Solution

In[13]:=

(*1a*)Plot3D[1/(x * x + y * y), {x, -2, 2}, {y, -2, 2}] ContourPlot[1/(x * x + y * y), {x, -2, 2}, {y, -2, 2}]

[Graphics:../HTMLFiles/ex02_solutions_44.gif]

Out[13]=

⁃SurfaceGraphics⁃

[Graphics:../HTMLFiles/ex02_solutions_46.gif]

Out[14]=

⁃ContourGraphics⁃

In[15]:=

(*1b*)Plot3D[Sin[x] Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}] ContourPlot[Sin[x] Cos[y], {x, -Pi, Pi}, {y, -Pi, Pi}]

[Graphics:../HTMLFiles/ex02_solutions_49.gif]

Out[15]=

⁃SurfaceGraphics⁃

[Graphics:../HTMLFiles/ex02_solutions_51.gif]

Out[16]=

⁃ContourGraphics⁃

Created by Mathematica  (April 10, 2007) Valid XHTML 1.1!