> with(plots):with(plottools):

> x:=cos(t):

> y:=sin(t):

> z1:=-1:z2:=cos(3*t):

> z:=(1-s)*z1+s*z2:

> a:=plot3d([x,y,z],s=0..1,t=0..2*Pi,scaling=constrained,grid=[5,50]):

> x:=r*cos(t):y:=r*sin(t):

> b:=plot3d([x,y,x^3-3*x*y^2],r=0..1,t=0..2*Pi,scaling=constrained,grid=[10,100]):

> h:=display(a,b):

> h;

> vrml(h,"C:/My Documents/trfa/wrl/11-10.wrl",background_color=white);

>