restart: with(plots): with(plottools); _EnvExplicit := true;b := (theta,phi) -> 0.75 + 0.35*sin(8*theta)*sin(4*phi); p := plot3d(b(theta,phi),theta=0..2*Pi,phi=0..Pi,coords=spherical, axes=BOXED): %;int( int( int( rho^2*sin(phi), rho=0...0.75+0.35*sin(8*theta)*sin(4*phi)), phi=0..Pi), theta=0..2*Pi); f := (theta,phi) -> .5 + .345*sin(8*theta)*sin(phi);p := plot3d(f(theta,phi),theta=0..2*Pi,phi=0..Pi,coords=spherical, axes=BOXED): %;int( int( int( rho^2*sin(phi), rho=0...0.5+0.345*sin(8*theta)*sin(phi)), phi=0..Pi), theta=0..2*Pi);NiMtSSRpbnRHNiRJKnByb3RlY3RlZEdGJkkoX3N5c2xpYkc2IjYkLUYkNiQtRiQ2JComSSRyaG9HRigiIiMtSSRzaW5HRiU2I0kkcGhpR0YoIiIiL0YvOyIiISwmLUkmRmxvYXRHRiY2JCIiJiwkRjUhIiJGNSooLUY7NiQiJFgkLCQiIiRGP0Y1LUYyNiMqJiIiKUY1SSZ0aGV0YUdGKEY1RjVGMUY1RjUvRjQ7RjhJI1BpR0YmL0ZKO0Y4KiZGMEY1Rk1GNQ==NiMtSSRpbnRHNiRJKnByb3RlY3RlZEdGJkkoX3N5c2xpYkc2IjYkLUYkNiQtRiQ2JComSSRyaG9HRigiIiMtSSRzaW5HRiU2I0kkcGhpR0YoIiIiL0YvOyIiISwmLUkmRmxvYXRHRiY2JCIjdiEiI0Y1KigtRjs2JCIjTkY+RjUtRjI2IyomIiIpRjVJJnRoZXRhR0YoRjVGNS1GMjYjKiYiIiVGNUY0RjVGNUY1L0Y0O0Y4SSNQaUdGJi9GRztGOComRjBGNUZORjU=