| Author |
Comment/Response |
Bill Simpson
|
 02/05/13 00:52am
In[1]:= poly=x+3 x^2+2 x^3-2 y+6 x y-5 x^2 y+8 x y^2-4 x^2 y^2;
In[2]:= Coefficient[Collect[poly,y],y,2]
Out[2]= 8*x - 4*x^2
In[3]:= Table[Coefficient[Collect[poly,y],y,n],{n,0,2}]
Out[3]= {x+3*x^2+2*x^3, -2+6*x-5*x^2, 8*x-4*x^2}
URL: , |
|
