Simple Q
- To: mathgroup at smc.vnet.net
- Subject: [mg111496] Simple Q
- From: KFUPM <hussain.alqahtani at gmail.com>
- Date: Tue, 3 Aug 2010 06:39:20 -0400 (EDT)
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