(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 15582, 434] NotebookOptionsPosition[ 14564, 397] NotebookOutlinePosition[ 14944, 413] CellTagsIndexPosition[ 14901, 410] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Math", " ", "105"}], ":", " ", RowBox[{"Level", " ", "Sets", " ", "and", " ", "Contour", " ", "Plots"}]}], "Title"]], "Input", CellChangeTimes->{{3.4752301385730877`*^9, 3.4752301401824627`*^9}, { 3.4752826574782133`*^9, 3.4752826827594633`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"Lecture", " ", "5"}], ":", " ", RowBox[{"Feb", " ", "15"}]}], ",", "2010"}], "Title"]], "Input", CellChangeTimes->{{3.475282684275089*^9, 3.4752826855094633`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "y_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ")"}], "^", "2"}], " ", "-", RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ")"}]}]}]}], "Title"]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", ".1", ",", "4"}], "}"}]}], "]"}], "Title"]], "Input", CellChangeTimes->{{3.475229935841716*^9, 3.475229960294841*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0.1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 0.1, 4}}, Typeset`size$$ = {324., {124., 127.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$632$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$632$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot3D[ $CellContext`f[$CellContext`x, $CellContext`y], {$CellContext`x, \ -$CellContext`a$$, $CellContext`a$$}, {$CellContext`y, -$CellContext`a$$, \ $CellContext`a$$}], "Specifications" :> {{$CellContext`a$$, 0.1, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{366., {165., 170.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4752299632938256`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", ".1", ",", "4"}], "}"}]}], "]"}], "Title"]], "Input", CellChangeTimes->{{3.4752299866980877`*^9, 3.4752299892449627`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 2.18, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 0.1, 4}}, Typeset`size$$ = {324., {161., 164.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$681$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.1}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$681$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ContourPlot[ $CellContext`f[$CellContext`x, $CellContext`y], {$CellContext`x, \ -$CellContext`a$$, $CellContext`a$$}, {$CellContext`y, -$CellContext`a$$, \ $CellContext`a$$}], "Specifications" :> {{$CellContext`a$$, 0.1, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{366., {202., 207.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4752299899168377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], " ", "\[Equal]", " ", "c"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], "Title"]], "Input", CellChangeTimes->{{3.4752300087605877`*^9, 3.4752300351512127`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`c$$ = -1.94, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`c$$], -4, 4}}, Typeset`size$$ = {324., {161., 164.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`c$748$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`c$$ = -4}, "ControllerVariables" :> { Hold[$CellContext`c$$, $CellContext`c$748$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> ContourPlot[$CellContext`f[$CellContext`x, $CellContext`y] == \ $CellContext`c$$, {$CellContext`x, -3, 3}, {$CellContext`y, -3, 3}], "Specifications" :> {{$CellContext`c$$, -4, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{366., {202., 207.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4752300236043377`*^9, 3.4752300362918377`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "y"}], "]"}], ",", "c"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "a"}], ",", "a"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"a", ",", ".1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"c", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}]}], "]"}], "Title"]], "Input", CellChangeTimes->{{3.4752300595574627`*^9, 3.4752300677762127`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0.1, $CellContext`c$$ = -4., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`a$$], 0.1, 4}, { Hold[$CellContext`c$$], -4, 4}}, Typeset`size$$ = {324., {128., 132.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`a$882$$ = 0, $CellContext`c$883$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0.1, $CellContext`c$$ = -4}, "ControllerVariables" :> { Hold[$CellContext`a$$, $CellContext`a$882$$, 0], Hold[$CellContext`c$$, $CellContext`c$883$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot3D[{ $CellContext`f[$CellContext`x, $CellContext`y], $CellContext`c$$}, \ {$CellContext`x, -$CellContext`a$$, $CellContext`a$$}, {$CellContext`y, \ -$CellContext`a$$, $CellContext`a$$}], "Specifications" :> {{$CellContext`a$$, 0.1, 4}, {$CellContext`c$$, -4, 4}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{366., {183., 188.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4752300686980877`*^9}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ "Note", " ", "our", " ", "function", " ", "can", " ", "be", " ", "written", " ", "compactly", " ", "in", " ", "polar", " ", "coordinates"}], "Subtitle"], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"It", " ", "is", " ", RowBox[{"r", "^", "4"}]}], " ", "-", " ", RowBox[{"4", " ", RowBox[{"r", "^", "2"}], " ", "or", " ", RowBox[{"r", "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"r", "^", "2"}], " ", "-", " ", "4"}], ")"}], " ", "or", " ", RowBox[{"r", "^", "2"}], " ", RowBox[{"(", RowBox[{"r", "-", "2"}], ")"}], " ", RowBox[{ RowBox[{"(", RowBox[{"r", "+", "2"}], ")"}], "."}]}]}], "Subtitle"]}], "Input", CellChangeTimes->{{3.475198154109375*^9, 3.475198201640625*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ "Thus", " ", "our", " ", "function", " ", "is", " ", "negative", " ", "for", " ", "r", " ", "up", " ", "to", " ", "2", " ", "and", " ", "positive", " ", "from", " ", "there", " ", RowBox[{"onward", ".", " ", "If"}], " ", "we", " ", "are", " ", "looking", " ", "for", " ", "level", " ", "curves"}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "we", " ", "are", " ", "solving", " ", "the", " ", "quartic", " ", RowBox[{"r", "^", "4"}]}], " ", "-", " ", RowBox[{"4", " ", RowBox[{"r", "^", "2"}]}]}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"c", ".", " ", "If"}], " ", "we", " ", "let", " ", "u"}], " ", "=", " ", RowBox[{"r", "^", "2"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{ "this", " ", "is", " ", "the", " ", "same", " ", "as", " ", "solving", " ", RowBox[{"u", "^", "2"}]}], " ", "-", " ", RowBox[{"4", "u"}], " ", "-", " ", "c"}], " ", "=", " ", "0."}]}], "Subtitle"]], "Input", CellChangeTimes->{{3.475198203015625*^9, 3.475198264984375*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"The", " ", "solutions", " ", "are", " ", "u"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"4", " ", "+", RowBox[{"-", " ", RowBox[{"Sqrt", "[", RowBox[{"16", "-", RowBox[{"4", "c"}]}], "]"}]}]}], ")"}], "/", "2"}], " ", "=", " ", RowBox[{"2", " ", "+", RowBox[{"-", " ", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"4", "-", "c"}], "]"}], ".", " "}]}]}]}]}], "Subtitle"]], "Input", CellChangeTimes->{{3.47519827384375*^9, 3.475198311578125*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{ RowBox[{"Thus", " ", "the", " ", "solutions", " ", "are", " ", "r"}], " ", "=", " ", RowBox[{"Sqrt", "[", RowBox[{"2", " ", "+", RowBox[{"-", " ", RowBox[{"Sqrt", "[", RowBox[{"4", "-", "c"}], "]"}]}]}], "]"}]}], ",", " ", RowBox[{ RowBox[{"subject", " ", "of", " ", "course", " ", "to", " ", "r"}], " ", "\[GreaterEqual]", " ", "0."}]}], "Subtitle"]], "Input", CellChangeTimes->{{3.475198341984375*^9, 3.47519837509375*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"In", " ", "other", " ", "words"}], ",", " ", RowBox[{ "the", " ", "level", " ", "set", " ", "of", " ", "value", " ", "c", " ", "is", " ", "either", " ", "zero"}], ",", " ", RowBox[{"one", " ", "or", " ", "two", " ", "circles", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"if", " ", "c"}], " ", "=", " ", RowBox[{ "0", " ", "the", " ", "circle", " ", "is", " ", "a", " ", "point"}]}], ")"}], "."}]}]}], "Subtitle"]], "Input", CellChangeTimes->{{3.47519839496875*^9, 3.4751984216875*^9}}] }, WindowSize->{778, 691}, WindowMargins->{{Automatic, 76}, {Automatic, -2}}, Magnification->0.8999999761581421, 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, 304, 7, 50, "Input"], Cell[852, 29, 230, 6, 50, "Input"], Cell[1085, 37, 430, 15, 50, "Input"], Cell[CellGroupData[{ Cell[1540, 56, 551, 16, 98, "Input"], Cell[2094, 74, 1635, 33, 350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3766, 112, 560, 16, 98, "Input"], Cell[4329, 130, 1641, 33, 424, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6007, 168, 627, 18, 98, "Input"], Cell[6637, 188, 1628, 33, 424, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8302, 226, 707, 21, 98, "Input"], Cell[9012, 249, 1871, 37, 386, "Output"] }, Open ]], Cell[10898, 289, 805, 22, 73, "Input"], Cell[11706, 313, 1122, 29, 139, "Input"], Cell[12831, 344, 595, 18, 39, "Input"], Cell[13429, 364, 531, 14, 73, "Input"], Cell[13963, 380, 597, 15, 73, "Input"] } ] *) (* End of internal cache information *)