Re: Manipulate Series Expansions

*To*: mathgroup at smc.vnet.net*Subject*: [mg112998] Re: Manipulate Series Expansions*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Sun, 10 Oct 2010 06:42:16 -0400 (EDT)

Use Evaluate (see the More Information section in the help for Plot). Manipulate[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 gmail.com> 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 errors. Why doesn't this work: Manipulate[ 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 Manipulate[ Plot[{p[x, n], Sin[x]}, {x, -10 Pi, 10 Pi}, PlotRange -> 2], {n, 1, 100, 1}] Any information would be helpful.