Manipulate[Show[Table[ContourPlot3D[{x^2+y^2-2*z*i^2==0,
x^2+y^2+2*z*i^2==0},{x,-i,i},{y,-i,i},{z,-1,1},
PlotPoints->5,Mesh->False,ImageSize->500,
ContourStyle->Directive[Hue[Sin[0.2i]],Opacity[0.5]]],{i,N}],
ContourPlot3D[z==0,{x,-7,7},{y,-7,7},{z,-1,1},Mesh->False,
ContourStyle->Directive[Blue,Opacity[0.2]]],
PlotRange->{{-7,7},{-7,7},{-1,1}},
Boxed->False,Axes->False],{N,Range[5,1,-1]}]
No comments:
Post a Comment