Mathematica
1. Start Mathematica with the `xmath' command. (SHIFT+RETURN)
2. Define a function.
f[x_,y_]:=x^2 + y^2
3. Plot a function
Plot3D[f[x,y],{x,-1,1},{y,-1,1}]
4. Personalize the plot
Plot3D[f[x,y],{x,-1,1},{y,-1,1},PlotLabel->"The Good Doctor"]
5. Select the plot (with the mouse)
6. File menu, print selection.
7. Print dialog, print to file (say to the file "foo.ps")
8. Print the file (outside of Mathematica, at the taylor prompt) lpr foo.ps

Other options to try. (like the PlotLabel in 4)
A. PlotPoints->{10,10} and PlotPoints->{50,50}
B. Boxed->False
C. // maple Used the Style and Color menu to change things. (Click with middle mouse
	button for the re-draw.)
D. ViewPoint->{-2.4, 1.3, 2.0 } // changes view
E. Use help -> open function Browser
	select Graphics and Sound ->3DPlots->Options

Maple
1. Start Maple with the `xmaple' command. (NEED `;' to end commands and RETURNS)
2. Define a function
f:=(x,y)->x^2 + y^2;
3. Plot a function
plot3d(f(x,y),x=-1..1,y=-1..1);
4. Personalize the plot (Note the `backquotes`)
plot3d(f(x,y),x=-1..1,y=-1..1,title=`The Good Doctor`);
5. On the pop-up graphics. File menu, print submenu select Postscript.
6. Print dialog prints to a file. (say "foo.ps")
7. Print the file (outside of Maple, at the taylor prompt) lpr foo.ps

Other options to try. (like the title in 4)
A. grid=[10,10] and grid=[50,50]
B. axes=boxed
C. Used the Style and Color menu to change things. (Click with middle mouse
	button for the re-draw.)
D. Drag with left mouse button for view change.
E. Use help -> help browser
	select graphics->3D->Options->other options to find other things to do
	with plot3d (see also graphics->3D->plot3d)
 

For project 1, I want one "NICE" plot of the function
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)
(NOTE it takes both lines to define g(x,y))
personalized with your name, your plot points, your viewpoint.
from both Mathematica and Maple.