(* 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[ 13174, 477] NotebookOptionsPosition[ 11242, 415] NotebookOutlinePosition[ 11770, 434] CellTagsIndexPosition[ 11727, 431] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[StyleBox["Limits and Continuity", "Title"]], "Text", CellChangeTimes->{{3.4604043259122868`*^9, 3.460404331115178*^9}}], Cell[CellGroupData[{ Cell["Limits & Continuity in 2D:", "Subsection", FontColor->RGBColor[1, 0, 0]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", "x_", "]"}], ":=", RowBox[{"Sin", "[", FractionBox["1", "x"], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"-", "2"}], "\[Pi]"}], ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Limit", "[", RowBox[{ FractionBox[ RowBox[{"Sin", "[", "x", "]"}], "x"], ",", " ", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Limits & Continuity in 3D:", "Subsection", FontColor->RGBColor[1, 0, 0]], Cell[CellGroupData[{ Cell["Example 1", "Subsubsection", FontColor->RGBColor[0, 0.501961, 0]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", FractionBox[ RowBox[{ RowBox[{"5", SuperscriptBox["x", "2"], "y"}], "+", "3"}], RowBox[{"1", "+", SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}]], "Input", CellChangeTimes->{{3.46040591393489*^9, 3.4604059496207914`*^9}, { 3.4604060698966527`*^9, 3.46040610320766*^9}}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", ".2"}], ",", ".2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", ".2"}], ",", ".2"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "10"}]}], "]"}]], "Input", CellChangeTimes->{{3.4604068343072386`*^9, 3.4604068565872064`*^9}, 3.4604069115141134`*^9}], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "100"}]}], "]"}]], "Input", CellChangeTimes->{{3.4604068343072386`*^9, 3.4604068565872064`*^9}}], Cell[BoxData[ RowBox[{"f", "[", RowBox[{"0", ",", "0"}], "]"}]], "Input", CellChangeTimes->{{3.4604060133991838`*^9, 3.460406014117902*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Example 2", "Subsubsection", FontColor->RGBColor[0, 0.501961, 0]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", FractionBox["1", RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "100"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1000"}], "}"}]}], "}"}]}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "10"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "100"}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Example 3", "Subsubsection", FontColor->RGBColor[0, 0.501961, 0]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], " ", "y"}], RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]]}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", ".005"}], ",", ".005"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", ".005"}], ",", ".005"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}]}], "]"}]], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["Example 4", "Subsubsection", CellChangeTimes->{{3.4604079640254335`*^9, 3.460407966009351*^9}}, FontColor->RGBColor[0, 0.501961, 0]], Cell[BoxData[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{ SuperscriptBox["x", "2"], "-", " ", SuperscriptBox["y", "2"]}], RowBox[{ SuperscriptBox["x", "2"], "+", SuperscriptBox["y", "2"]}]], ")"}], "2"]}]], "Input", CellChangeTimes->{3.4604074099037247`*^9}], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", ".05"}], ",", ".05"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", ".05"}], ",", ".05"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "10"}]}], "]"}]], "Input"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", RowBox[{"ContourShading", "\[Rule]", "False"}], ",", RowBox[{"Contours", "\[Rule]", "100"}]}], "]"}]], "Input"], Cell[TextData[StyleBox["", "Subsubsection"]], "Text", CellChangeTimes->{{3.4604071949701843`*^9, 3.460407195063892*^9}, 3.4604074153075175`*^9}] }, Open ]] }, Open ]] }, WindowSize->{1272, 622}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, DockedCells->(FrontEndExecute[{ FrontEnd`NotebookApply[ FrontEnd`InputNotebook[], #, Placeholder]}]& ), FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 134, 1, 57, "Text"], Cell[CellGroupData[{ Cell[727, 26, 79, 1, 37, "Subsection"], Cell[809, 29, 131, 4, 55, "Input"], Cell[943, 35, 189, 6, 41, "Input"], Cell[1135, 43, 265, 9, 55, "Input"], Cell[1403, 54, 170, 5, 55, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[1610, 64, 79, 1, 37, "Subsection"], Cell[CellGroupData[{ Cell[1714, 69, 72, 1, 27, "Subsubsection"], Cell[1789, 72, 404, 12, 61, "Input"], Cell[2196, 86, 306, 10, 41, "Input"], Cell[2505, 98, 310, 10, 41, "Input"], Cell[2818, 110, 514, 14, 41, "Input"], Cell[3335, 126, 487, 13, 41, "Input"], Cell[3825, 141, 145, 3, 41, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4007, 149, 72, 1, 27, "Subsubsection"], Cell[4082, 152, 201, 7, 58, "Input"], Cell[4286, 161, 629, 21, 41, "Input"], Cell[4918, 184, 629, 21, 41, "Input"], Cell[5550, 207, 630, 21, 41, "Input"], Cell[6183, 230, 631, 21, 41, "Input"], Cell[6817, 253, 420, 12, 41, "Input"], Cell[7240, 267, 421, 12, 41, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[7698, 284, 72, 1, 27, "Subsubsection"], Cell[7773, 287, 251, 9, 61, "Input"], Cell[8027, 298, 306, 10, 41, "Input"], Cell[8336, 310, 318, 10, 41, "Input"], Cell[8657, 322, 372, 11, 41, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[9066, 338, 140, 2, 27, "Subsubsection"], Cell[9209, 342, 388, 13, 62, "Input"], Cell[9600, 357, 306, 10, 41, "Input"], Cell[9909, 369, 314, 10, 41, "Input"], Cell[10226, 381, 416, 12, 41, "Input"], Cell[10645, 395, 417, 12, 41, "Input"], Cell[11065, 409, 149, 2, 29, "Text"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)