Surfaces as Exercises 3

MSPP[a_,b_,c_,d_,s_]:=Module[{h,x,y,z},
h=a(1+u^2Sin[v]^2); z=b(Cos[u]+u*Sin[u])Sin[v]/h;
y=b(-u*Cos[u]+Sin[u])Sin[v]/h; x=(Log[Tan[v/c]]/c+Cos[v]/h)/b;
ParametricPlot3D[{x,y,z},{u,-3Pi,3Pi},{v,d,Pi-d},PlotRange->All,
PlotStyle->{RGBColor["steelblue"],

Opacity[.1]},Axes->False,Boxed->False,
AspectRatio->1,ViewPoint->{.3,1,0},

PlotPoints->50,Mesh->{90,30},
MeshStyle->{White,Cyan},ImageSize->s,

Background->RGBColor["silver"]]];
MSPP[1,2,2,.001,600]