#------------------------------------------------------------
#
#     Sample code
#                ----------- The Klein bottle
#
#------------------------------------------------------------

ka = 0.5 
KleinX(x,y) = 5.0*cos(x) * (cos(ka*x)*cos(y) + sin(ka*x)*sin(2.0*y) +3.0)-10.0;
KleinY(x,y) = -5.0*sin(x) * (cos(ka*x)*cos(y) + sin(ka*x)*sin(2.0*y) +3.0);
KleinZ(x,y) = 5.0*( - sin(ka*x)*cos(y) + cos(ka*x)*sin(2.0*y));

klein = surf{
           [KleinX(x,y),KleinY(x,y),KleinZ(x,y)]
           [x=-pi:pi][y=-pi:pi][samp=50:30]
          };

#------------------------------------------------------------
center;
plot klein;
#------------------------------------------------------------
