Sample Maple worksheet illustrating series summation and graphing. By Sterl Phinney 2/13/2004.

We wish to expand terms of the geometric series Sum_k=1,n x^k, and compare it to 1/(1-x) for various n:]

> Geomser := (x,n) -> Sum(x^k,k=0..n);

We now compare the two functions for n=7, with the series in blue and 1/(1-x) in red.

> plot([Geomser(x,7),1/(1-x)],x=0..1, y=0..5,linestyle=[1,4],color=[blue,red]);

We now compare the fractional error residuals, making the small values visible by using a logarithmic vertical axis:

> with(plots):

Warning, the name changecoords has been redefined

> logplot((1/(1-x) - Geomser(x,7))*(1-x),x=0..1,y=10^(-6)..1,labels=[x,`fractional residual`]);

Now just a warning about plotting points and display resolution:

> plot(sin(53*2*Pi*x),x=0..1,resolution=50,numpoints=50, adaptive=false);

> plot(sin(53*2*Pi*x),x=0..1,resolution=800,numpoints=800, adaptive=false);

Those two preceeding graphs are supposed to be of the same function...! Hope this was helpful.

>