>    restart:

>    f := sin;

>    Poly := n-> convert( taylor(f(x), x=0, n+1), polynom);

Poly := proc (n) options operator, arrow; convert(taylor(f(x),x = 0,n+1),polynom) end proc

>    with(plots): 

Warning, the name changecoords has been redefined

>    for i from 1 by 2 to 15 do
print(Poly(i));
plot([f(x),Poly(i)],x=-2*Pi..2*Pi, y=-5..5, thickness=3, color=[red,blue], scaling=constrained, title=convert(i,string))
od;

[Maple Plot]

[Maple Plot]

[Maple Plot]

[Maple Plot]

[Maple Plot]

[Maple Plot]

[Maple Plot]

[Maple Plot]

>   

Maple TM is a registered trademark of Waterloo Maple Inc.
Math rendered by WebEQ