MSPP2[a_,b_,c_,s_]:=Module[{x,y,z},
x=a(2+Cos[u])Cos[v]^3*Sin[v];
y=b(2+Cos[u+2Pi/3])Cos[v+2Pi/3]^2*Sin[v+2Pi/3]^2;
z=c(2+Cos[u-2Pi/3])Cos[v+2Pi/3]^2*Sin[v+2Pi/3]^2;
ParametricPlot3D[Table[{i*x,j*y,k*z},
{i,{-1,1}},{j,{-1,1}},{k,{-1,1}}],
{u,0,2Pi},{v,0,Pi},AspectRatio->1,
{u,0,2Pi},{v,0,Pi},AspectRatio->1,
PlotRange->All,PlotPoints->20,
PlotStyle->Directive[RGBColor["steelblue"],
PlotStyle->Directive[RGBColor["steelblue"],
Opacity[.2]],Axes->False,Boxed->False,
Mesh->{20,20},MeshStyle->{White,Cyan},ImageSize->s,
Background->RGBColor["silver"]]];
MSPP2[1,1,1,600]
Mesh->{20,20},MeshStyle->{White,Cyan},ImageSize->s,
Background->RGBColor["silver"]]];
MSPP2[1,1,1,600]
No comments:
Post a Comment