Question: How can I extract the constants with maple's rules?help me please.

I have an expression like this:
B0:=(phi(x))^2:
B1:=diff(phi(x),x):
B2:=diff(phi(x),x,x):
B3:=B2^2:
B4:=(phi(x))^2:
B5:=B1^2:

C0:=(psi(x))^2:
C1:=diff(psi(x),x):
C2:=:C1^2:
C3:=

D0:=(eta(x))^2:

F1:=phi(x)*psi(x):
F2:=phi(x)*eta(x):
F3:=psi(x)*eta(x):

g1:=B1*C1:
g2:=B2*phi(x):
g3:=B2*psi(x):
g4:=B2*eta(x):

T:=A0011*B0+A0022*C0+A0033*D0+A0012*F1+A0013*F2+A0023*F3+A1111*B5+A1122*C2+A1112*g1+A2011*g2+A2012*g3+A2013*g4+A2211*B5:

A0011 and A0022 and etc are constants and coefficients.

Now I want to extract some constants like A1112 or A2013 from T. Please write out an useful code for extract these coefficients!

Thanks

Please Wait...