11-3

> 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=Pi/2..3*Pi/2,scaling=constrained):

> a;

> with(plottools):
b:=reflect(a,[[0,0,0],[0,1,0],[0,0,1]]):

> b;

> c:=display(a,b):c;

> d:=rotate(c,0,Pi/2,0):d;

> e:=rotate(c,0,Pi,0):

> f:=rotate(c,0,3*Pi/2,0):

> p:=display(c,d,e,f):p;

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

>