11-10

> restart;

> 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=[10,100],color=gray):a;

> evalc(Re(expand(x+I*y)^3));

> x:=r*cos(t):y:=r*sin(t):
z:=x^3-3*x*y^2:

> b:=plot3d([x,y,z],r=0..1,t=0..2*Pi,grid=[10,100],scaling=constrained,color=pink):b;

> with(plots):
p:=display(a,b):p;

Warning, the name changecoords has been redefined

> with(plottools):
vrml(p,"c:/program files/maple 6/beauty/11-10.wrl",background_color=white);

>