Re: How come doesn't this work?

*To*: mathgroup at smc.vnet.net*Subject*: [mg75748] Re: How come doesn't this work?*From*: dimitris <dimmechan at yahoo.com>*Date*: Wed, 9 May 2007 04:46:16 -0400 (EDT)*References*: <f1phau$i6i$1@smc.vnet.net>

How about? In[13]:= Quit[] In[1]:= taylor[n_][x_] := Normal[ArcTan[x] + O[x]^n] In[2]:= f[x_] := ArcTan[x] In[3]:= graph[n_] := Plot[Evaluate[{f[x], taylor[n][x]}], {x, -Pi, Pi}, PlotStyle -> {Red, Blue}, Frame -> {True, True, False, False}, FrameTicks -> {Range[-Pi, Pi, Pi/2], Range[-3, 3]}, PlotRange -> {-3.1, 3.1}] In[4]:= graph /@ Range[10] Dimitris =CF/=C7 Anolethron =DD=E3=F1=E1=F8=E5: > 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]