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]
>
>
>