¦^§@·~12

> restart;

> with(plots):with(plottools): 

Warning, the name changecoords has been redefined
> r:=cos(t);

r := cos(t)

> x:=r*cos(s);

x := cos(t)*cos(s)

> y:=r*sin(s);

y := cos(t)*sin(s)

> z:=sqrt(1-r^2);

z := sqrt(1-cos(t)^2)

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

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

> h:=display(a,b):

> h;

[Maple Plot]

> vrml(h,"c:/042/12/12-6.wrl",background_color=white);

>