Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Coefficients' topicStudent Support Forum > General > Archives > "Coefficients"

Next Comment >Help | Reply To Topic
Author Comment/Response
Sinval Santos
02/23/00 5:51pm

Be the following expression:

exp= ax+Sin[rx+1]-Cos[bx+a];

The coefficients of variable x are: {a , r, b}.
I tried with several forms to collect these coefficients but I didn't get.

d1=Depth[exp]
6

p1=Position[exp,x]
{{1,2},{2,2,1,2,2},{3,1,2,2}}

01 - exp//Coefficient[#,x,p1]&
{{a,0},{0,0,a,0,0},{0,a,0,0}}

02 - exp//Coefficient[#,x,d1]&
0

03 - exp//Map[Coefficient[#,x]&,#,p1]&
Map[Coefficient[#1,x]&,a x-Cos[a+b x]+Sin[1+r x], {{1,2},{2,2,1,2,2},{3,1,2,2}}

04 - exp//Map[Coefficient[#,x]&,#,d1]&
0

I didn't get to collect the coefficients of x indicating the positions and the maximum level. I also used MapAt but I didn't get.
In big expressions, to simplify, it is necessary to substitute the coefficients of some variable.
How to do to collect the exp coefficients?.

Sinval Santos

URL: ,

Subject (listing for 'Coefficients')
Author Date Posted
Coefficients Sinval Santos 02/23/00 5:51pm
Re: Coefficients P.J. Hinton 02/24/00 4:57pm
Re: Coefficients Aaron Honecker 02/24/00 4:59pm
Next Comment >Help | Reply To Topic