Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1995
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1995

[Date Index] [Thread Index] [Author Index]

Search the Archive

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  } 


  • Prev by Date: Re: Shortening Polynomials
  • Next by Date: Re: Shortening Polynomials
  • Previous by thread: Re: Shortening Polynomials
  • Next by thread: Re: Shortening Polynomials