Worksheet to Support WebAssign Homework Problem # 10 in Section 12.5

>	with(plots):

>	Paraboloid:=plot3d(x^2+y^2,x=-5..5,y=-sqrt(25-x^2)..sqrt(25-x^2),axes=boxed,numpoints=1000,color=blue,scaling=constrained,style=wireframe):

>	Sphere:=animate(implicitplot3d,[x^2+y^2+(z-A)^2=16,x=-5..5,y=-5..5,z=0..25],A=12..20,digits=4,color=red,axes=boxed,scaling=constrained,frames=33,numpoints=2000):

>	display(Paraboloid,Sphere);

>	Parabola:=plot(x^2,x=-6..6,y=0..24,color=blue,thickness=2,scaling=constrained):

>	Circle1:=plot([sin(t)/2,1/2+cos(t)/2,t=0..2*Pi],color=red,thickness=2,scaling=constrained):

>	Circle2:=animate(plot,[[4*sin(t),a+4*cos(t),t=0..2*Pi]],a=12..20,digits=4,frames=33,thickness=2,color=red):

>	display(Parabola,Circle1,Circle2);

>

>