(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      2758,         87]
NotebookOptionsPosition[      2474,         73]
NotebookOutlinePosition[      2811,         88]
CellTagsIndexPosition[      2768,         85]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"50", "*", "2", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ArcTan", "[", 
       RowBox[{"2", 
        RowBox[{"y", "/", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           SuperscriptBox["x", "2"], "-", 
           SuperscriptBox["y", "2"]}], ")"}]}]}], "]"}], ")"}], "/", "Pi"}]}],
    "+", "50"}]}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "35"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", "y"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "35"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.437404016643363*^9, 3.437404089256496*^9}, {
   3.43740412103446*^9, 3.437404126961382*^9}, {3.437404186131311*^9, 
   3.437404196563631*^9}, {3.43740427232178*^9, 3.4374043163462963`*^9}, 
   3.437404362614975*^9, {3.4374050406645737`*^9, 3.437405042438098*^9}, {
   3.4374050763228607`*^9, 3.437405132521573*^9}, {3.437406058282208*^9, 
   3.4374060988882103`*^9}, {3.437406133803948*^9, 3.437406204412219*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4374062625957317`*^9, 3.437406264866756*^9}}]
},
WindowSize->{640, 750},
WindowMargins->{{28, Automatic}, {42, Automatic}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 1805, 47, 108, "Input"],
Cell[2376, 70, 94, 1, 29, "Input"]
}
]
*)

(* End of internal cache information *)