MapleTorus.mws

Section 13.7 #31

>    with(plots): 

Warning, the name changecoords has been redefined

>    sphereplot(4*sin(phi),theta=0..2*Pi,phi=0..Pi,axes=boxed,scaling=constrained);

[Maple Plot]

>    Int(Int(Int((p^2)*sin(phi),p=0..4*sin(phi)),phi=0..Pi),theta=0..2*Pi);

Int(Int(Int(p^2*sin(phi),p = 0 .. 4*sin(phi)),phi = 0 .. Pi),theta = 0 .. 2*Pi)

>    value(%);

16*Pi^2

>    sphereplot(4*sin(phi),theta=0..2*Pi,phi=0..Pi,axes=boxed,scaling=constrained);

[Maple Plot]

>    implicitplot3d(x^2+y^2+z^2=4*sqrt(x^2+y^2),x=-4..4,y=-4..4,z=-2..2,scaling=constrained,axes=boxed);

[Maple Plot]

>