#1 solid surface of revolution
with(Student[Calculus1]): with(plots):
plot(sqrt(x),x=0..4);
VolumeOfRevolution(sqrt(x),x=0..4,output=plot);
#2 annular surface of revolution with washers
a:=VolumeOfRevolution(0,x=0..4,distancefromaxis=3,output=plot):
b:=VolumeOfRevolution(sqrt(x),x=0..4, distancefromaxis=3,output=plot):
display(a,b);
washer annulular disk,
washer animation surface
#3 annular surface of revolution with washers
a:=VolumeOfRevolution(4,y=0..2,output=plot):
b:=VolumeOfRevolution(y^2,y=0..2,output=plot):
display(a,b);
#4 acorn solid of revolution
VolumeOfRevolution(y^2,y=0..2,distancefromaxis=4, output=plot);