(* 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[      7918,        266]
NotebookOptionsPosition[      7091,        232]
NotebookOutlinePosition[      7426,        247]
CellTagsIndexPosition[      7383,        244]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"14.1", " ", "#42"}], "Title"]], "Input",
 CellChangeTimes->{{3.454419006214693*^9, 3.4544190066522913`*^9}, {
  3.454421651468381*^9, 3.4544216522757607`*^9}}],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"Plot3D", "[", 
      RowBox[{"K", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", ".5", ",", "1.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], ",", 
     RowBox[{"Plot3D", "[", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{"y", "/", "x"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", ".5", ",", "1.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"y", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"K", ",", "0.1", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454418289773163*^9, 3.454418450934395*^9}, {
  3.454418871033059*^9, 3.4544189220211153`*^9}, {3.454421729336864*^9, 
  3.4544217383614693`*^9}, {3.454421813694426*^9, 3.454421827651349*^9}}],

Cell[CellGroupData[{

Cell["Example 1", "Title",
 CellChangeTimes->{{3.4542383745295467`*^9, 3.454238378177567*^9}, {
  3.454253969740776*^9, 3.4542539862656*^9}, {3.454410765673675*^9, 
  3.454410767725601*^9}}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "-", 
      RowBox[{"y", "^", "2"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454237105467353*^9, 3.454237137456716*^9}, {
  3.454237173725087*^9, 3.454237178184593*^9}, {3.4542539223348923`*^9, 
  3.454253951339593*^9}, {3.4544107928193827`*^9, 3.4544108124480762`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 2", "Title",
 CellChangeTimes->{{3.45441141462746*^9, 3.454411415850256*^9}}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "*", "y"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454411355181134*^9, 3.454411357082876*^9}, 
   3.454411391379447*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 3", "Title",
 CellChangeTimes->{{3.45441141462746*^9, 3.454411415850256*^9}, 
   3.454411451433461*^9}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "*", "y"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "4"}], "+", 
      RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454411355181134*^9, 3.454411357082876*^9}, 
   3.454411391379447*^9, {3.4544114559935417`*^9, 3.454411473841633*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 4", "Title",
 CellChangeTimes->{{3.45441141462746*^9, 3.454411415850256*^9}, 
   3.454412257556202*^9}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}], " ", "+", " ", "1"}], "]"}], "-", "1"}], 
     ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454411355181134*^9, 3.454411357082876*^9}, 
   3.454411391379447*^9, {3.454412270476357*^9, 3.454412279988306*^9}, {
   3.4544123481439943`*^9, 3.454412363886321*^9}, {3.4544124039567327`*^9, 
   3.454412418398128*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 5", "Title",
 CellChangeTimes->{{3.45441141462746*^9, 3.454411415850256*^9}, 
   3.454412741659268*^9}],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Exp", "[", 
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], ")"}]}], "]"}], "-", "1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], "+", 
      RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.454411355181134*^9, 3.454411357082876*^9}, 
   3.454411391379447*^9, {3.454412752753501*^9, 3.454412774675768*^9}, {
   3.454412812364644*^9, 3.4544128166579657`*^9}}]
}, Open  ]]
},
WindowSize->{640, 652},
WindowMargins->{{35, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 195, 4, 51, "Input"],
Cell[766, 27, 953, 25, 43, "Input"],
Cell[CellGroupData[{
Cell[1744, 56, 190, 3, 76, "Title"],
Cell[1937, 61, 920, 26, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2894, 92, 91, 1, 76, "Title"],
Cell[2988, 95, 742, 23, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3767, 123, 117, 2, 76, "Title"],
Cell[3887, 127, 817, 24, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4741, 156, 117, 2, 76, "Title"],
Cell[4861, 160, 1039, 30, 43, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5937, 195, 117, 2, 76, "Title"],
Cell[6057, 199, 1018, 30, 43, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)