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