Re: How come doesn't this work?

*To*: mathgroup at smc.vnet.net*Subject*: [mg75694] Re: [mg75659] How come doesn't this work?*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 9 May 2007 04:16:31 -0400 (EDT)*Reply-to*: hanlonr at cox.net

Taylor[n_]:= Normal[Series[ArcTan[x],{x,0,n}]]; F=ArcTan[x]; Use SetDelayed when defining Grafico Grafico[n_]:=Plot[{F,Taylor[n]}//Evaluate, {x,-Pi,Pi},PlotStyle->{Blue,Red}]; Grafico[3] Bob Hanlon ---- Anolethron <abacus78685 at tin.it> wrote: > I know I have to put Evaluate In but it doesn't work still. > Taylor[n_] := Normal[Series[ArcTan[x], {x, 0, n}]] > > F = ArcTan[x] > Grafico[n_] = > Plot[{F, Taylor[n]} // Evaluate, {x, -Pi, Pi}, > DisplayFunction -> $DisplayFunction] > > >