(* 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[      4084,        113]
NotebookOptionsPosition[      3757,         97]
NotebookOutlinePosition[      4099,        112]
CellTagsIndexPosition[      4056,        109]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot3D", " ", "[", 
    RowBox[{
     RowBox[{"-", " ", 
      FractionBox[
       RowBox[{"2", "x", "*", "y"}], 
       RowBox[{
        SuperscriptBox["x", "2"], "+", 
        SuperscriptBox["y", "2"]}]]}], " ", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
     RowBox[{"PlotPoints", "\[Rule]", "M"}]}], "  ", "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"M", ",", "10"}], "}"}], 
     StyleBox[",",
      FontColor->GrayLevel[0]], "10", ",", "100", ",", "1"}], "}"}]}], 
  "\[IndentingNewLine]", "                        ", "]"}]], "Input",
 CellChangeTimes->{{3.4632394155*^9, 3.463239478453125*^9}, {
  3.463239602015625*^9, 3.463239668203125*^9}, {3.4632397518125*^9, 
  3.463239785609375*^9}, {3.463239915453125*^9, 3.4632399695625*^9}, {
  3.463240149046875*^9, 3.4632401659375*^9}, {3.46324026596875*^9, 
  3.463240305203125*^9}, {3.463240392421875*^9, 3.463240404328125*^9}, {
  3.4632405801875*^9, 3.46324060021875*^9}, {3.4632406366875*^9, 
  3.463240678703125*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`M$$ = 100, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`M$$], 10}, 10, 100, 1}}, Typeset`size$$ = {
    360., {142., 147.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`M$16368$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`M$$ = 10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`M$$, $CellContext`M$16368$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Plot3D[-(2 $CellContext`x $CellContext`y/($CellContext`x^2 + \
$CellContext`y^2)), {$CellContext`x, -1, 1}, {$CellContext`y, -1, 1}, 
        PlotPoints -> $CellContext`M$$], 
      "Specifications" :> {{{$CellContext`M$$, 10}, 10, 100, 1}}, 
      "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{406., {188., 193.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4632394599375*^9, 3.463239480046875*^9}, 
   3.463239977578125*^9, {3.463240151*^9, 3.463240168140625*^9}, 
   3.46324031546875*^9, 3.4632404094375*^9, {3.463240638984375*^9, 
   3.463240680640625*^9}}]
}, Open  ]]
},
WindowSize->{1075, 750},
WindowMargins->{{Automatic, 88}, {Automatic, 44}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 1298, 32, 123, "Input"],
Cell[1891, 57, 1850, 37, 398, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)