collecting terms



On Saturday 15 January 2005 07:16, Fabrizio Caruso wrote:
FC> t :  (x+1)^4 + a*(x+1)^2+b*(x+1)+c;
FC>
Please look at demo(facexp);

(%i2) load(facexp);

Warning - you are redefining the MACSYMA function INTERSECTION
(%o2) ?\/usr\/share\/maxima\/5\.9\.1\/share\/simplification\/facexp\.mac
(%i3) t :  (x+1)^4 + a*(x+1)^2+b*(x+1)+c;

(%o3) (x+1)^4+a*(x+1)^2+b*(x+1)+c
(%i4) collecttermsl(expand(t),[x,x^2,x^3,x^4]);

(%o4) x^4+4*x^3+(a+6)*x^2+(b+2*a+4)*x+c+b+a+1

rgds,
Valery