(* 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[      8322,        251]
NotebookOptionsPosition[      7912,        234]
NotebookOutlinePosition[      8256,        249]
CellTagsIndexPosition[      8213,        246]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{"Plot3D", " ", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"BoxRatios", "\[Rule]", "1"}], ",", 
   RowBox[{"ClippingStyle", "\[Rule]", "None"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", "     ", 
    RowBox[{
     RowBox[{"ContourPlot", " ", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], "-", 
        RowBox[{"y", "^", "2"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "        ", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"min", ",", "max"}], "}"}], ",", 
          RowBox[{"Range", "[", 
           RowBox[{"min", ",", "max", ",", "0.1"}], "]"}]}], "]"}]}]}], "]"}],
      ",", "\[IndentingNewLine]", "                               ", 
     RowBox[{"ContourPlot", " ", "[", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "-", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"Contours", "\[Rule]", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"min", ",", "max"}], "}"}], ",", 
          RowBox[{"Range", "[", 
           RowBox[{"min", ",", "max", ",", "0.1"}], "]"}]}], "]"}]}]}], 
      "]"}]}], "}"}], ",", " ", 
   RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.47015656246875*^9, 3.47015657178125*^9}, {
  3.476629821468004*^9, 3.4766298299993095`*^9}, {3.4766306328382845`*^9, 
  3.4766306510145793`*^9}, {3.476630770496755*^9, 3.4766308190085506`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"\"\< #35 \>\"", "\[IndentingNewLine]", 
   RowBox[{"Plot3D", " ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"BoxRatios", "\[Rule]", "1"}], ",", 
     RowBox[{"ClippingStyle", "\[Rule]", "None"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"GraphicsRow", "[", 
    RowBox[{
     RowBox[{"{", "     ", 
      RowBox[{
       RowBox[{"ContourPlot", " ", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "        ", 
         RowBox[{"Contours", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"min", ",", "max"}], "}"}], ",", 
            RowBox[{"Range", "[", 
             RowBox[{"min", ",", "max", ",", "0.1"}], "]"}]}], "]"}]}]}], 
        "]"}], ",", "\[IndentingNewLine]", "                               ", 
       RowBox[{"ContourPlot", " ", "[", 
        RowBox[{
         RowBox[{"2", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"x", "^", "2"}], "+", 
            RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"y", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"Contours", "\[Rule]", 
          RowBox[{"Function", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"min", ",", "max"}], "}"}], ",", 
            RowBox[{"Range", "[", 
             RowBox[{"min", ",", "max", ",", "0.1"}], "]"}]}], "]"}]}]}], 
        "]"}]}], "}"}], ",", " ", 
     RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.47015656246875*^9, 3.47015657178125*^9}, {
  3.476629821468004*^9, 3.4766298299993095`*^9}, {3.4766298607026305`*^9, 
  3.4766298886246843`*^9}, {3.476629930812454*^9, 3.4766300557507544`*^9}, {
  3.476630086204074*^9, 3.476630105329196*^9}, {3.4766302466269755`*^9, 
  3.4766302845022182`*^9}, {3.476630349252632*^9, 3.4766303699090147`*^9}, {
  3.476630412924915*^9, 3.476630440053444*^9}, {3.476630555741414*^9, 
  3.476630608754304*^9}}],

Cell[BoxData[
 RowBox[{"DensityPlot", " ", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], "+", 
    RowBox[{"y", "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.47015656246875*^9, 3.47015657178125*^9}, {
  3.476629821468004*^9, 3.4766298299993095`*^9}, {3.4766298607026305`*^9, 
  3.4766298634057727`*^9}}],

Cell[BoxData[{"\"\< #61 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Plot3D", "             ", "[", "   ", 
  RowBox[{
   RowBox[{"x", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"y", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "  ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"ContourPlot", " ", "[", "   ", 
  RowBox[{
   RowBox[{"x", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"y", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "  ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"DensityPlot", " ", "[", "   ", 
  RowBox[{
   RowBox[{"x", "*", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], "-", 
      RowBox[{"y", "^", "2"}]}], "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "  ", "]"}]}], "Input",
 CellChangeTimes->{{3.476453902985767*^9, 3.4764539068608165`*^9}, 
   3.476630855405837*^9}],

Cell[BoxData[""], "Input"]
},
WindowSize->{1272, 907},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2436, 69, 72, "Input"],
Cell[2984, 91, 2902, 75, 112, "Input"],
Cell[5889, 168, 504, 14, 31, "Input"],
Cell[6396, 184, 1483, 46, 92, "Input"],
Cell[7882, 232, 26, 0, 31, "Input"]
}
]
*)

(* End of internal cache information *)