> restart:

> r:=sin(s):

> x:=r*cos(t):

> y:=r*sin(t):

> z:=cos(s):

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

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

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

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

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

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

>

> with (plots):

Warning, the name changecoords has been redefined

> display(a,b,c,d,e,f);