11-11

> restart:

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

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

> u:=x*sqrt(2):
z:=(1-s)*2+s*u:

> a1:=plot3d([x,y,z],t=-Pi/3..Pi/3,s=0..1,scaling=constrained,grid=[30,8],color=green):
a2:=rotate(a1,0,0,2*Pi/3):
a3:=rotate(a1,0,0,4*Pi/3):
a:=display(a1,a2,a3):a;

> b1:=reflect(a,[[0,0,0],[1,0,sqrt(2)],[1,1,sqrt(2)]]):
b2:=rotate(b1,0,0,2*Pi/3):
b3:=rotate(b1,0,0,4*Pi/3):
c:=display(a,b1,b2,b3):cc:=reflect(c,[0,0,0]):

> p:=display(c,cc):p;

> vrml(p,"c:/Program Files/Maple 6/beauty/11-11.wrl",background_color=white);

>