MathGroup Archive 2010

[Date Index] [Thread Index] [Author Index]

Search the Archive

Simple Q


Dear All

I have the expression

E^(I km Subscript[X, 0] +
   I \[Lambda] Subscript[X,
    0]) (-(1/2) I kz^2 Am[Subscript[X, 1]] Coss[(m \[Pi] y)/B] -
    1/2 I km \[Lambda] Am[Subscript[X, 1]] Coss[(m \[Pi] y)/B]) +
 E^(I km Subscript[X, 0] -
   I \[Lambda] Subscript[X,
    0]) (1/2 I kz^2 Am[Subscript[X, 1]] Coss[(m \[Pi] y)/B] -
    1/2 I km \[Lambda] Am[Subscript[X, 1]] Coss[(m \[Pi] y)/B]) +
 E^(I kn Subscript[X, 0] +
   I \[Lambda] Subscript[X,
    0]) (-(1/2) I kz^2 An[Subscript[X, 1]] Coss[(n \[Pi] y)/B] -
    1/2 I kn \[Lambda] An[Subscript[X, 1]] Coss[(n \[Pi] y)/B]) +
 E^(I kn Subscript[X, 0] -
   I \[Lambda] Subscript[X,
    0]) (1/2 I kz^2 An[Subscript[X, 1]] Coss[(n \[Pi] y)/B] -
    1/2 I kn \[Lambda] An[Subscript[X, 1]] Coss[(n \[Pi] y)/B]) +
 E^(I km Subscript[X, 0]) Coss[(m \[Pi] y)/B]
\!\(\*SuperscriptBox["Bm", "\[Prime]",
MultilineFunction->None]\)[0] +
 E^(I kn Subscript[X, 0]) Coss[(n \[Pi] y)/B]
\!\(\*SuperscriptBox["Bn", "\[Prime]",
MultilineFunction->None]\)[0]

I want to extract terms that contain E^(I km Subscript[X, 0]) only and
I need this to be done automatically. I appreciate any help in this
regard.


HMQ


  • Prev by Date: Re: Mathematica- Use a previous equation into the
  • Next by Date: StringForm v.s Row
  • Previous by thread: Re: Mathematica- Use a previous equation into the
  • Next by thread: Re: Simple Q