ParametricPlot3D[
{2Sin[6u]/(2+Cos[v]),(2Sin[u]+2Sin[2u])/(2+Cos[v+Pi]),
(Cos[u]-2Cos[2u])(2+Cos[v])(2+Cos[v+Pi])/3},
(Cos[u]-2Cos[2u])(2+Cos[v])(2+Cos[v+Pi])/3},
{u,0,2Pi},{v,0,2Pi},AspectRatio->1,
PlotStyle->{RGBColor["steelblue"],Opacity[.5]},
PlotStyle->{RGBColor["steelblue"],Opacity[.5]},
Mesh->{100,50},MeshStyle->{Cyan,White},
ViewPoint->{0,1.1,.1},Background->RGBColor["slategray"],
ViewPoint->{0,1.1,.1},Background->RGBColor["slategray"],
PlotPoints->30,Boxed->False,ImageSize->600,Axes->False]
No comments:
Post a Comment