> restart;

> r:=sin(s);

> x:=r*cos(t+s);

> y:=r*sin(t+s);

> z:=cos(s);

> a:=plot3d([x,y,z],s=0..Pi,t=0..Pi/3,scaling=constrained,color=coral):

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

> c:=plot3d([x,y,z],s=0..Pi,t=2*Pi/3..Pi,scaling=constrained,color=pink):

> d:=plot3d([x,y,z],s=0..Pi,t=Pi..4*Pi/3,scaling=constrained,color=cyan):

> e:=plot3d([x,y,z],s=0..Pi,t=4*Pi/3..5*Pi/3,scaling=constrained,color=yellow):

> f:=plot3d([x,y,z],s=0..Pi,t=5*Pi/3..2*Pi,scaling=constrained,color=red):

> with(plots):

Warning, the name changecoords has been redefined

> g;

存成vrml檔

> with(plottools):

> vrml(g,"c:/042/13/13-4.wrl",background_color=white):
 

maple