12-2

> restart;

> x1:=cos(t):

> y1:=sin(t):

> z1:=0:

> z2:=sqrt(3)*x1:

> y2:=y1:

> x2:=0:

> x:=(1-s)*x1+s*x2:

> y:=(1-s)*y1+s*y2:

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

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

> with(plots):with(plottools):

Warning, the name changecoords has been redefined

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

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

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

>