4-13.mws

> restart;

> x:=cos(t);

x := cos(t)

> y:=sin(t);

y := sin(t)

> m:=[x+t*sin(s),y+t*cos(s), s=0..2*Pi];

m := [cos(t)+t*sin(s), sin(t)+t*cos(s), s = 0 .. 2*...

> t:=2*n*Pi/40;

t := 1/20*n*Pi

> w:=evalf(m):

> plot([w$n=1..100],color=blue,axes=none,scaling=constrained);

[Maple Plot]

>