with(plots):
Reading Questions - Regions and Solids
solve(2*(x-3)^2-8=(x-3)^2-4,x);
plot([2*(x-3)^2-8, (x-3)^2-4], x=1..5, color=[red,blue]);
p1:=tubeplot([x,0,0], x=1..5, radius=(x-3)^2-4, axes=normal):
p2:=tubeplot([x,0,0], x=1..5, radius=2*(x-3)^2-8, style=wireframe, color=black):
display(p1,p2);
p3:=tubeplot([0,y,0], y=-4..0, radius=3+sqrt(y+4), axes=normal):
p4:=tubeplot([0,y,0], y=-4..0, radius=3-sqrt(y+4), axes=normal):
p5:=tubeplot([0,y,0], y=-8..0, radius=3+sqrt(2*(y+8)), style=wireframe, color=black):
p6:=tubeplot([0,y,0], y=-8..0, radius=3-sqrt(2*(y+8)), style=wireframe, color=black):
display(p3,p4,p5,p6);
Example - what the solid looks like
p1:=tubeplot([x,0,0], x=-2..1, radius=x+2, axes=normal):
p2:=tubeplot([x,0,0], x=-2..1, radius=4-x^2, style=wireframe, color=black):
display(p1,p2);