回作業9

Construct the sphere with the command "plot3d".

> restart;

> r:=sin(s);

r := sin(s)

> x:=r*cos(t);

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

> y:=r*sin(t);

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

> z:=cos(s);

z := cos(s)

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

[Maple Plot]

沿經線切割

> plot3d([x,y,z],s=0..Pi,t=0..Pi,scaling=constrained);

[Maple Plot]

沿赤道切割

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

[Maple Plot]