(* 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[      7990,        242]
NotebookOptionsPosition[      7411,        218]
NotebookOutlinePosition[      7745,        233]
CellTagsIndexPosition[      7702,        230]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Example 1", "Title",
 CellChangeTimes->{{3.454668774931506*^9, 3.4546687771674*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f1", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"x", "*", "y"}], "]"}], ",", 
     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"}], "}"}]}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", "f1", "]"}]}]], "Input",
 CellChangeTimes->{{3.411302655928485*^9, 3.411302700299361*^9}, {
  3.411303088920348*^9, 3.4113030893102016`*^9}, {3.411303122773354*^9, 
  3.411303165606852*^9}, {3.411304891727116*^9, 3.411304946292255*^9}, {
  3.411306930414281*^9, 3.411306965891601*^9}, {3.411307095967731*^9, 
  3.4113071037083397`*^9}, {3.411307177103366*^9, 3.41130721227699*^9}, {
  3.454758156631497*^9, 3.4547581599485073`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"t1", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{"1", "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", "-", "1"}], ")"}], "/", "2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"y", "-", "1"}], ")"}], "/", "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"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", 
   RowBox[{"f1", ",", "t1"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.411309198223164*^9, {3.4113109505437193`*^9, 3.4113109626458683`*^9}, {
   3.4113110044400578`*^9, 3.411311063790934*^9}, {3.4113110952970247`*^9, 
   3.4113110996635103`*^9}, {3.4113115687880173`*^9, 
   3.4113115838753967`*^9}, {3.454758244419252*^9, 3.454758253890502*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Example 2", "Title",
 CellChangeTimes->{{3.4547585058570147`*^9, 3.45475850753824*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f2", "=", 
   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"}], "}"}]}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", "f2", "]"}]}]], "Input",
 CellChangeTimes->{{3.411302655928485*^9, 3.411302700299361*^9}, {
  3.411303088920348*^9, 3.4113030893102016`*^9}, {3.411303122773354*^9, 
  3.411303165606852*^9}, {3.411304891727116*^9, 3.411304946292255*^9}, {
  3.411306930414281*^9, 3.411306965891601*^9}, {3.411307095967731*^9, 
  3.4113071037083397`*^9}, {3.411307177103366*^9, 3.41130721227699*^9}, {
  3.454758156631497*^9, 3.4547581599485073`*^9}, {3.454759546351206*^9, 
  3.454759552575427*^9}, {3.45475986948508*^9, 3.4547598724347763`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"t2", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{"0", ",", 
     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"}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", 
   RowBox[{"f2", ",", "t2"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.411309198223164*^9, {3.4113109505437193`*^9, 3.4113109626458683`*^9}, {
   3.4113110044400578`*^9, 3.411311063790934*^9}, {3.4113110952970247`*^9, 
   3.4113110996635103`*^9}, {3.4113115687880173`*^9, 
   3.4113115838753967`*^9}, {3.454758244419252*^9, 3.454758253890502*^9}, 
   3.454759567520228*^9, {3.454759876794922*^9, 3.454759881618106*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"px", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"y", "^", "3"}], "-", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "*", "y"}]}], ")"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}]}], ")"}], "^", "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"}], "}"}]}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", "px", "]"}]}]], "Input",
 CellChangeTimes->{{3.4547598925237713`*^9, 3.454759911378358*^9}, {
  3.45476140527951*^9, 3.454761409261015*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"py", "=", 
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "3"}], "-", 
        RowBox[{
         RowBox[{"y", "^", "2"}], "*", "x"}]}], ")"}], "/", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}]}], ")"}], "^", "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"}], "}"}]}]}], "]"}]}], ";", 
  RowBox[{"Show", "[", "py", "]"}]}]], "Input",
 CellChangeTimes->{{3.454761234791836*^9, 3.454761254235257*^9}, {
  3.454761358570422*^9, 3.454761358654923*^9}, {3.454761411957704*^9, 
  3.4547614154048653`*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{5, Automatic}, {Automatic, 5}},
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[CellGroupData[{
Cell[590, 23, 90, 1, 76, "Title"],
Cell[683, 26, 1045, 25, 58, "Input"],
Cell[1731, 53, 1160, 31, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2928, 89, 93, 1, 76, "Title"],
Cell[3024, 92, 1274, 31, 58, "Input"],
Cell[4301, 125, 1028, 25, 58, "Input"],
Cell[5332, 152, 1005, 30, 58, "Input"],
Cell[6340, 184, 1055, 31, 58, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)