cp=ContourPlot3D[x^2/9+y^2/4+z^2-1==0,
{x,-3.5,3.5},{y,-3.5,3.5},{z,-3.5,3.5},
ColorFunction->(ColorData["BrightBands"][#3] &),
Mesh->False,ContourStyle->Opacity[0.8]];
sp=Table[Graphics3D[{Hue[i/24],Opacity[i/24],
Sphere[{0,3*Cos[Pi*i/12],3*Sin[Pi*i/12]},0.2]}],
{i,Range[1,24,1]}];
Show[cp,sp, Boxed->False,Axes->False,ImageSize->Large]
No comments:
Post a Comment