ParametricPlot3D Examples 2

CPP[a_,b_]:=ParametricPlot3D[{

Cos[a*u]Sinh[v]/(1+Cosh[u]Cosh[v]),
Sin[b*u]Sinh[v]/(1+Cosh[u]Cosh[v]),

Sinh[u]Cosh[v]/(1+Cosh[u]Cosh[v])},
{u,-3,3},{v,-3,3},

PlotStyle->{RGBColor["steelblue"],

Opacity[.4]},AspectRatio->1,
Axes->False,Boxed->False,ImageSize->600,

PlotRange->All,ViewPoint->{0,1.2,.5},PlotPoints->30,

Mesh->{100,20},MeshStyle->{Orange,Cyan},

Background->RGBColor["slategray"]];
CPP[7,4]