Surfaces as Exercises

CPP[a_,b_,c_,s_]:=ParametricPlot3D[

{a*Cos[v]Sinh[u]-b*Cos[c*v]Sinh[c*u],
a*Sin[v]Sinh[u]+b*Sin[c*v]Sinh[c*u],

Cos[a*v]Cosh[a*u]},
{u,-1,1},{v,-Pi,Pi},PlotStyle->{RGBColor["steelblue"],Opacity[.2]},
Axes->False,Boxed->False,AspectRatio->1,ViewPoint->{.1,0,2},
PlotRange->All,PlotPoints->50,
Mesh->{30,50},MeshStyle->{Magenta,Cyan},ImageSize->s,
Background->RGBColor["silver"]];
{CPP[2,.6,3,400],CPP[8,4,3,400]}