This project uses your choice of either Mathematica or Maple
(And not both.) The project requires you to print 5 graphs.

hmmm what should they be?
perhaps a pair of intersecting implicitplots, like a hyperboid and a plane.
perhaps a space curve and the surface it lives on
perhaps a level curve of the function from project 1
perhaps a curve in cylinder or spherical co-ordinates
finally something that you have to work at to get the correct picture.

1. Graph x^2+xy+2y^2+7yz-z^2+3x-xz=1 with axis labeled correctly and 
identify the figure.
2. The curve <cos(e^t),sin(e^t),t> t in [0,5] (this graph has a pretty
picture and the initial graph is not.)
3. ContourPlot of the function from project 1
4. Cylinder co-ordinates r=1+z sin(theta) for z in [0,2]
5. Looking Problem 35 Section 11.6, it follows that the intersection
of the hyperbolic parabolid z=x^2-y^2 and the plane y=x+1 is a straight
line. Graph the two curves together so we can see this line.


For reference here is the old handout given in the lab
This is the function for project one. [Note it is not how it is entered 
in Maple nor Mathematica.]

g(x,y)= 3*(1-x)^2*exp(-x^2-(y+1)^2)
        - 10*(x/5-x^3-y^5)*exp(-x^2-y^2) -(1/3)*exp(-(x+1)^2-y^2)



Maple
with(plots);
implicitplot3d(x^2+y^2+z^2=1,x=-2..2,y=-2..2,z=-2..2);

x^2-y^2+z^2=1
x^2-y^2-z^2=1
x-y^2-z^2=1
x-y^2-z^2=0
x-y^2+z^2=0

with(plots);
contourplot(x^2-y^2,x=-2..2,y=-2..2);

with(plots);
spacecurve([sin(t),cos(t),t],t=0..4*Pi);


Mathematica
Needs["Graphics`ContourPlot3D`"] [Note double quotes and backquotes]
or <<"Graphics/ContourPlot3D.m"
ContourPlot3D[x^2+y^2+z^2-1,{x,-2,2},{y,-2,2},{z,-2,2}]

ContourPlot[x^2-y^2,{x,-2,2},{y,-2,2}]


ParametricPlot3D[{Sin[t],Cos[t],t},{t,0,4*Pi}]


Needs["Graphics`ParametricPlot3D`"] [Note double quotes and backquotes]
or <<"Graphics/ParametricPlot3D.m"