Saturday, December 21, 2019

ParametricPlot3D Examples


X1=(2+Cos[v/2]*Sin[u]-Sin[v/2]*Sin[5u])*Cos[v];
X2=6u Cos[v];
Y1=(2+Cos[v/3]*Sin[u]-Sin[v/2]*Sin[4u])*Sin[v];
Y2=6u Sin[v];
Z1=16Abs[Sin[v/2]*Sin[u]+Cos[v/2]*Sin[4u]];
Z2=4Im[(u Exp[I v]^5)^(1/5)];
tpp1=Table[ParametricPlot3D[{i*X1,i*Y1,Z1},
{u,0,2Pi},{v,0,2Pi},Mesh->None,
ColorFunction->"RoseColors",
PlotStyle->Opacity[0.5]],{i,3}];
tpp2=ParametricPlot3D[{X2,Y2,Z2},
{u,0,2},{v,0,2 Pi}, Mesh->None,
ExclusionsStyle->{None,Gray},
PlotStyle->Directive[Darker[Green],Opacity[0.7]]];   
Show[tpp1,tpp2,Axes->False,
Boxed->False,PlotPoints->20,ImageSize->700]


No comments:

Post a Comment