MathGroup Archive 2010

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

Search the Archive

Re: Manipulate Series Expansions

Use Evaluate (see the More Information section in the help for Plot).

  Evaluate[{Normal[Series[Sin[x], {x, 0, n}]], Sin[x]}],
  {x, -10 Pi, 10 Pi},
  PlotRange -> 2],
 {n, 1, 100, 1, Appearance -> "Labeled"}]

Bob Hanlon

---- Daniel <bridges2 at> wrote: 

I'm new to Mathemtica and have been searching the net for a while
regarding using Manipulate to compare a series expansion to the
original function, but haven't found an adequate solution to my

Why doesn't this work:

 Plot[{Normal[Series[Sin[x], {x, 0, n}]], Sin[x]}, {x, -10 Pi,
   10 Pi}, PlotRange -> 2], {n, 1, 100, 1}]

I can do this to make it work as intended:

p[x_, n_] := Normal[Series[Sin[y], {y, 0, n}]] /. y -> x
 Plot[{p[x, n], Sin[x]}, {x, -10 Pi, 10 Pi}, PlotRange -> 2], {n, 1,
  100, 1}]

Any information would be helpful.

  • Prev by Date: Shading in Plot3D
  • Next by Date: Re: Generation of polynomials
  • Previous by thread: Manipulate Series Expansions
  • Next by thread: Re: Manipulate Series Expansions