> with(plots):#power series solutions
> A:=array(1..5);
> for i from 1 to 5 do A[i]:= plot(convert(series(sin(x),x=0,2*i-1),polynom),x=-2*Pi..2*Pi): od:
> display(plot(sin(x),x=-2*Pi..2*Pi,color=blue),seq(A[i],i=1..5),view=-2..2);
> F:=exp(x);N:=5;B:=array(0..N):L:=5:B[0]:=plot(F,x=-L..L,color=blue):
> for i from 1 to N do
>    B[i]:=plot(convert(series(F,x=0,2*i+1),polynom),x=-L..L):
> od:
> display(seq(B[i],i=0..N),view=-1..4);
>