Services & Resources / Wolfram Forums
MathGroup Archive
*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
  • Subject: [mg422] Re: [mg413] Shortening Polynomials
  • From: danl (Daniel Lichtblau)
  • Date: Tue, 24 Jan 1995 11:04:17 -0600

>...I often want to shorten
>polynomials, after using Expand.  At the moment, I use the following
>type of unwieldy expression:
>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?

  You can do this by
Normal[Series[t1, {q,0,2}]]
If desired, Series/Normal will handle more variables.

  Daniel Lichtblau, WRI

  • Prev by Date: Printing to file using >>> "file" & control structures
  • Next by Date: Re: Shortening Polynomials
  • Previous by thread: Re: Shortening Polynomials
  • Next by thread: Re: Shortening Polynomials