#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);