Aproximação da função seno

> s2:=series(sin(x),x=0,10);

> p2:=convert(s2,polynom);

> fplot:=plot(sin(x),x=-Pi..Pi,color=blue,linestyle=2):
p2plot:=plot(p2,x=-Pi..Pi):
display(fplot,p2plot);

>

> fplot:=plot(sin(x),x=-2*Pi..2*Pi,color=blue):
p2plot:=plot(p2,x=-2*Pi..2*Pi):
display(fplot,p2plot);