Re: Shortening Polynomials
- To: mathgroup at christensen.cybernetics.net
- Subject: [mg427] Re: [mg413] Shortening Polynomials
- From: bob at zim.uoregon.edu (Robert Zimmerman)
- Date: Tue, 24 Jan 95 18:36:53 -0800
Two more solutions to the shortening problem
t1 = a0 + a1 q + a2 q^2 ;
Expand[%^4] /. {q^3->0,q^4->0,q^5->0,q^6->0,q^7->0,q^8->0};
Is there a neater way to collect powers up to order m after
expanding a polynomial?
======
(t1^4//ExpandAll)/.q^n_->(If[n>2,0,q^n])
(t1^4//ExpandAll)/.{ q^n_ /;n >2 ->0 }