(* 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[      4849,        157]
NotebookOptionsPosition[      4476,        141]
NotebookOutlinePosition[      4823,        156]
CellTagsIndexPosition[      4780,        153]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"\"\< #13 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", " ", 
  RowBox[{
   RowBox[{"Limit", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "4"}], " ", "-", " ", 
        RowBox[{"y", "^", "4"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
     RowBox[{"y", "\[Rule]", "0"}]}], "]"}], ",", 
   RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", " ", 
  RowBox[{
   RowBox[{"Limit", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "4"}], " ", "-", " ", 
        RowBox[{"y", "^", "4"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}], ")"}]}], ",", 
     RowBox[{"x", "\[Rule]", "0"}]}], "]"}], ",", 
   RowBox[{"y", "\[Rule]", "0"}]}], "]"}]}], "Input"],

Cell[BoxData[{"\"\< #29 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", "  ", 
  RowBox[{
   RowBox[{"Limit", "[", "  ", 
    RowBox[{
     RowBox[{"ArcTan", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], " ", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "1"}], ")"}], "^", "2"}]}], ")"}]}], "]"}], ",", 
     RowBox[{"y", "\[Rule]", "1"}]}], "      ", "]"}], ",", "    ", 
   RowBox[{"x", "\[Rule]", "0"}]}], "   ", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", "  ", 
  RowBox[{
   RowBox[{"Limit", "[", "  ", 
    RowBox[{
     RowBox[{"ArcTan", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "-", "1"}], ")"}], " ", "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "1"}], ")"}], "^", "2"}]}], ")"}]}], "]"}], ",", 
     "  ", 
     RowBox[{"x", "\[Rule]", "0"}]}], "    ", "]"}], ",", "    ", 
   RowBox[{"y", "\[Rule]", "1"}]}], "   ", "]"}]}], "Input"],

Cell[BoxData[{"\"\< #32 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", "    ", 
  RowBox[{
   RowBox[{"Limit", "[", "  ", 
    RowBox[{
     RowBox[{"x", "*", "y", "*", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}], "]"}]}], ",", " ", 
     RowBox[{"y", "\[Rule]", "0"}]}], "      ", "]"}], ",", "    ", 
   RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", " ", "[", "    ", 
  RowBox[{
   RowBox[{"Limit", "[", "  ", 
    RowBox[{
     RowBox[{"x", "*", "y", "*", 
      RowBox[{"Log", "[", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{"y", "^", "2"}]}], "]"}]}], ",", " ", 
     RowBox[{"x", "\[Rule]", "0"}]}], "      ", "]"}], ",", "    ", 
   RowBox[{"y", "\[Rule]", "0"}]}], "]"}]}], "Input"],

Cell[BoxData[{
 StyleBox["\"\<WARNING EXAMPLE\>\"",
  FontColor->RGBColor[1, 0, 0]], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", "2"], " ", "y"}], 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}]], ",", 
     RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}], ",", 
   RowBox[{"y", "\[Rule]", "\[Infinity]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x", "2"], " ", "y"}], 
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}]], ",", 
     RowBox[{"y", "\[Rule]", "\[Infinity]"}]}], "]"}], ",", 
   RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}]}], "Input"]
},
WindowSize->{1179, 837},
WindowMargins->{{-5, Automatic}, {-19, Automatic}},
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, 999, 30, 72, "Input"],
Cell[1547, 52, 1209, 35, 72, "Input"],
Cell[2759, 89, 841, 22, 72, "Input"],
Cell[3603, 113, 869, 26, 116, "Input"]
}
]
*)

(* End of internal cache information *)