Stable your plots together. Due Wed 20 Nov

This project has 5 parts. All plots need your name as part of the title.
Each plot is of one or more surfaces given by parametric equations
r(u,v) = <x(u,v),y(u,v),z(u,v)>, and
the equation of the surface needs to be in the title also. If
not otherwise given use the range -2..2 for both u and v.

Part 1. Part of the sphere S of radius 4 over u,v=0..1 using the
parametric equations u=theta, v=phi from spherical co-ordinates.

Part 2. <u cos v, u sin v, u> u=0..1, v=0..2pi

Part 3. < cosh u * cos v, cosh u * sin v, u> u =-2..2, v=0..2pi.

Part 4. <cos u ( cos 3u/2 + 2 + 0.3 cos v), sin u ( cos 3u/2 + 2 + 0.3 cos v),
sin 3u/2 + 0.3 sin v > u=0..4pi, v=0..2pi. (Use "Torus Knot" for title)

Part 5. The klein bottle.
A Klein bottle is a nonorientable surface in
four-dimensional space. It is formed by
attaching two Mobius strips along their common
boundary.

Klein bottles cannot be constructed without
intersection in three-space. The figure shown is
an example of such a self-intersecting Klein
bottle.

c=.6;a=.2;
u=Pi/2..5*Pi/2
handle: v=Pi/4..5*Pi/4
x:=(u,v)->c*(cos(v)*sin(v) -0.5 + a*sin(u)*sin(v)/sqrt(sin(v)^2+cos(2*v)^2));
y:=(u,v)->a*c*cos(u);
z:=(u,v)->cos(v)+a*c*sin(u)*cos(2*v)/sqrt(sin(v)^2+cos(2*v)^2);
bulb: v=5*Pi/4..9*Pi/4
r:=(u,v)->sin(v)*cos(v) - (a+1/2);
x:=(u,v)-> c* sin(u) * r(u,v);
y:=(u,v)-> - c * cos(u) * r(u,v);
z:=(u,v)->cos(v);

I did things so that the following plotted the Klein Bottle
plot3d({[A(u,v),B(u,v),C(u,v)],[A2(u,v+Pi),B2(u,v+Pi),C2(u,v+Pi)]},
u=Pi/2..5*Pi/2,v=Pi/4..5*Pi/4,style=WIREFRAME,title=`Klein Bottle`);

The following example will help maple users
This project uses plot3d so you don't have to say with(plots);
A:=(u,v)->(3+cos(v))*cos(u)
B:=(u,v)->(3+cos(v))*sin(u)
C:=(u,v)->sin(v)
plot3d([A(u,v),B(u,v),C(u,v)],u=0..2*Pi,v=0..2*Pi);