11-2

> restart;

> with(plots):

Warning, the name changecoords has been redefined

> x:=cos(t):

> y:=sin(t):

> z1:=-1.5;:
z2:=x;:

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

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

> a;

> with(plottools);:

> b:=reflect(a,[[0,0,0],[1,0,1],[2,-1,2]]):

> b;

> p:=display(a,b):

> p;

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

>