Surfaces as Exercises 5

MSPP4[a_,b_,c_,s_]:=Module[{x,y,z},
x=v*Cos[u]-a*v^4Cos[b*u];

y=v*Sin[u]+a*v^4Sin[b*u];

z=Exp[c*Log[v]]*Cos[c*u];
ParametricPlot3D[Table[{i*x,j*y,k*z},{i,{-2,2}},{j,{1,2}},{k,{1,2}}],
{u,0,4Pi},{v,0,1},AspectRatio->1,

PlotPoints->30,Axes->False,Boxed->False,
PlotStyle->Directive[Cyan,Opacity[.4]]

Mesh->{30,15},MeshStyle->{White,Cyan},
ImageSize->s,Background->RGBColor["silver"],

ViewPoint->{.1,.4,.9}]];
MSPP4[.5,2,1.5,600]