Surfaces as Exercises 6

MSPP3[s_]:=Module[{x,y,z},
x=u - u^3/3 + u *v^2; y=v- v^3/3 + v *u^2; z=u^2-v^2;
ParametricPlot3D[Table[{i*x,j*y,k*z},{i,{-2,1}},{j,{-2,1}},{k,{-2,1}}],
{u,-2,2},{v,-2,2},AspectRatio->1,PlotRange->All,PlotPoints->30,
PlotStyle->Directive[Cyan,Opacity[.3]],

Axes->False,Boxed->False,Mesh->{15,25},

MeshStyle->{RGBColor["mintcream"],RGBColor["steelblue"]},
ImageSize->s,Background->RGBColor["silver"],

ViewPoint->{.1,.1,1.4}]];
MSPP3[600]