10-6.mws

> restart;

> r:=exp(-t);

r := exp(-t)

> x:=r*cos(s);

x := exp(-t)*cos(s)

> y:=r*sin(s);

y := exp(-t)*sin(s)

> z:=t+0.04*s;

z := t+.4e-1*s

> a:=plot3d([x,y,z],s=0..8*Pi,t=1..3,scaling=constrained,color=green,grid=[100,20]):

z := 4*cos(t)^2+3*r^2*sin(t)^2

> with(plots): 

Warning, the name changecoords has been redefined

>

> display(a);

[Maple Plot]

> with(plottools):

> vrml(a,"c:/My Documents/mei/10.html/10-6.wrl",background_color=white):

>