12-1

> restart;

> x:=(1-s)*cos(t):

> y:=s*sin(t):

> z:=2*s:

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

> p;

> with(plottools);

> vrml(p,"c:/program files/maple 6/beauty/12-1.wrl",background_color=white);

>