(* 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[ 16472, 436] NotebookOptionsPosition[ 15609, 402] NotebookOutlinePosition[ 15949, 417] CellTagsIndexPosition[ 15906, 414] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Related rates : filling a cone", "Title", CellChangeTimes->{{3.4322454378075724`*^9, 3.432245442366851*^9}}], Cell["Problem Formulation :", "Subtitle", CellChangeTimes->{{3.4322454558864937`*^9, 3.432245460143057*^9}}], Cell["\<\ Consider an inverted cone with height 20 meters and radius 20 meters. Assume \ water enters at a rate of 2 \[Pi] meters^3 /sec. How fast is the height \ increasing when there is 9 \[Pi] meters^3 of water in the cone?\ \>", "Subsubtitle", CellChangeTimes->{{3.432245468749928*^9, 3.4322456198877153`*^9}, { 3.4322463666621847`*^9, 3.432246367976554*^9}, 3.4323101967002163`*^9}], Cell[CellGroupData[{ Cell["Functions :", "Subtitle", CellChangeTimes->{{3.4322456277446346`*^9, 3.432245629233797*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"V", "[", "r_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}], " ", "Pi", " ", RowBox[{"r", "^", "3"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"radius", "[", "vol_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{"3", " ", RowBox[{"vol", " ", "/", " ", "Pi"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"volume", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"2", " ", "Pi", " ", "t"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"line", "[", RowBox[{"t_", ",", "height_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], " ", "\[LessEqual]", " ", "height"}], ",", " ", "height", ",", " ", "GoEphs"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"heightfn", "[", RowBox[{"x_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", RowBox[{"x", " ", "<", " ", RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}]}]}], ",", " ", RowBox[{"-", "5"}], ",", " ", "GoEphs"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4322456376541567`*^9, 3.4322457310095096`*^9}, { 3.4322459584363594`*^9, 3.432245991821918*^9}, {3.4322462423752174`*^9, 3.432246242796089*^9}, {3.432246944394738*^9, 3.4322469674499035`*^9}, { 3.432247005507038*^9, 3.4322470064776793`*^9}, {3.4322882446335583`*^9, 3.4322883047849817`*^9}, {3.432288445938057*^9, 3.4322884465073566`*^9}, { 3.4322885118000526`*^9, 3.432288537559146*^9}, {3.43228857304418*^9, 3.432288629377488*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"boundary", "[", "x_", "]"}], " ", ":=", " ", RowBox[{"Abs", "[", "x", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"boundary", "[", "x", "]"}], ",", " ", RowBox[{"line", "[", RowBox[{"x", ",", RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}]}], "]"}], ",", " ", RowBox[{"heightfn", "[", RowBox[{"x", ",", "t"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", " ", RowBox[{"Epilog", " ", "\[Rule]", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}]}], ",", RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}], ",", RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"radius", "[", RowBox[{"volume", "[", "t", "]"}], "]"}], ",", RowBox[{"-", "5"}]}], "}"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1200"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.432245735150846*^9, 3.432245828277698*^9}, { 3.432245862977626*^9, 3.4322459185268044`*^9}, {3.4322459965032587`*^9, 3.432246001217801*^9}, {3.432246052197936*^9, 3.432246066580805*^9}, { 3.432246112239992*^9, 3.432246142275179*^9}, {3.4322462025223*^9, 3.432246217485209*^9}, {3.4322463193546658`*^9, 3.4322463285034943`*^9}, { 3.4322463724098635`*^9, 3.432246410843927*^9}, {3.4322464501402397`*^9, 3.432246552353424*^9}, {3.4322883258353925`*^9, 3.432288337642254*^9}, { 3.4322884957346745`*^9, 3.4322884960237184`*^9}, {3.432288610668724*^9, 3.4322886148344736`*^9}, {3.4322898666156826`*^9, 3.4322901562084756`*^9}}],\ Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 458.81774054038533`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 1200}}, Typeset`size$$ = { 360., {110., 115.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$196306$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$196306$$, 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" :> Plot[{ $CellContext`boundary[$CellContext`x], $CellContext`line[$CellContext`x, $CellContext`radius[ $CellContext`volume[$CellContext`t$$]]], $CellContext`heightfn[$CellContext`x, $CellContext`t$$]}, \ {$CellContext`x, -20, 20}, Epilog -> {{ PointSize[0.025], Point[{-$CellContext`radius[ $CellContext`volume[$CellContext`t$$]], $CellContext`radius[ $CellContext`volume[$CellContext`t$$]]}]}, { PointSize[0.025], Point[{ $CellContext`radius[ $CellContext`volume[$CellContext`t$$]], $CellContext`radius[ $CellContext`volume[$CellContext`t$$]]}]}, { PointSize[0.025], Point[{ $CellContext`radius[ $CellContext`volume[$CellContext`t$$]], -5}]}}], "Specifications" :> {{$CellContext`t$$, 0, 1200}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{408., {167., 172.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.4322901023398533`*^9, {3.432290158798154*^9, 3.4322901709155416`*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Related rates : separating cars", "Title", CellChangeTimes->{{3.4322454378075724`*^9, 3.432245442366851*^9}, { 3.432288743487372*^9, 3.4322887453026857`*^9}}], Cell["Problem Formulation :", "Subtitle", CellChangeTimes->{{3.4322454558864937`*^9, 3.432245460143057*^9}}], Cell["\<\ At time 0, car A leaves the origin traveling at 40 mph along the positive \ x-axis, while car B leaves the origin traveling at 30 mph along the positive \ y-axis. How fast are the cars separating at one hour?\ \>", "Subsubtitle", CellChangeTimes->{{3.432245468749928*^9, 3.4322456198877153`*^9}, { 3.4322463666621847`*^9, 3.432246367976554*^9}, {3.432288749718418*^9, 3.4322888020217113`*^9}, {3.432289769697081*^9, 3.4322897717291775`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"cara", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"40", " ", "t"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"carb", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"30", "t"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dist", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"cara", "[", "t", "]"}], "^", "2"}], "+", RowBox[{ RowBox[{"carb", "[", "t", "]"}], "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"carline", "[", RowBox[{"x_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"0", " ", "\[LessEqual]", " ", "x"}], " ", "&&", " ", RowBox[{"x", " ", "\[LessEqual]", " ", RowBox[{"cara", "[", "t", "]"}]}]}], ",", " ", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"carb", "[", "t", "]"}], "/", RowBox[{"cara", "[", "t", "]"}]}], ")"}]}], " ", "x"}], " ", "+", RowBox[{"carb", "[", "t", "]"}]}], ",", " ", "GoEphs"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"cardistfn", "[", RowBox[{"x_", ",", "t_"}], "]"}], " ", ":=", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"x", " ", "\[GreaterEqual]", " ", "0"}], " ", "&&", " ", RowBox[{"x", " ", "<", " ", RowBox[{"dist", "[", "t", "]"}]}]}], ",", " ", RowBox[{"-", "10"}], ",", " ", "GoEphs"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"carline", "[", RowBox[{"x", ",", "t"}], "]"}], ",", " ", RowBox[{"cardistfn", "[", RowBox[{"x", ",", "t"}], "]"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "60"}], "}"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "12"}], ",", "60"}], "}"}]}], ",", " ", RowBox[{"Epilog", " ", "\[Rule]", " ", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"carb", "[", "t", "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"cara", "[", "t", "]"}], ",", "0"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", ".025", "]"}], ",", " ", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"dist", "[", "t", "]"}], ",", RowBox[{"-", "10"}]}], "}"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"t", ",", "0", ",", "1"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.4322888084812593`*^9, 3.4322888452386723`*^9}, { 3.432288892852812*^9, 3.4322889546281548`*^9}, {3.4322889911092186`*^9, 3.4322892564223156`*^9}, {3.432289298707695*^9, 3.432289451955699*^9}, { 3.4322895098328543`*^9, 3.4322895571804094`*^9}, {3.4322896113468647`*^9, 3.4322896476414165`*^9}, {3.432289702666215*^9, 3.432289818652932*^9}, { 3.4322901879710913`*^9, 3.4322902582703023`*^9}, {3.43229030178119*^9, 3.432290312717013*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`t$$ = 0.8868704605102563, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 1}}, Typeset`size$$ = {360., {108., 113.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$200422$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$200422$$, 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" :> Plot[{ $CellContext`carline[$CellContext`x, $CellContext`t$$], $CellContext`cardistfn[$CellContext`x, $CellContext`t$$]}, \ {$CellContext`x, 0, 60}, PlotRange -> {-12, 60}, Epilog -> {{ PointSize[0.025], Point[{0, $CellContext`carb[$CellContext`t$$]}]}, { PointSize[0.025], Point[{ $CellContext`cara[$CellContext`t$$], 0}]}, { PointSize[0.025], Point[{ $CellContext`dist[$CellContext`t$$], -10}]}}], "Specifications" :> {{$CellContext`t$$, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{408., {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.432289163112858*^9, {3.4322892349598217`*^9, 3.432289257940773*^9}, { 3.432289316843253*^9, 3.432289340460882*^9}, {3.4322893885251884`*^9, 3.4322894055680428`*^9}, {3.432289452565035*^9, 3.4322894727053475`*^9}, { 3.432289523542914*^9, 3.4322895574499235`*^9}, {3.4322896240315995`*^9, 3.43228964863354*^9}, {3.4322897097116623`*^9, 3.4322898288993464`*^9}, { 3.432290185007414*^9, 3.4322901920030594`*^9}, 3.4322902356067142`*^9, { 3.43229030734431*^9, 3.4322903176707973`*^9}}] }, Open ]] }, Open ]] }, WindowSize->{733, 645}, WindowMargins->{{22, Automatic}, {6, Automatic}}, FrontEndVersion->"6.0 for Microsoft Windows (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, 115, 1, 83, "Title"], Cell[708, 26, 109, 1, 49, "Subtitle"], Cell[820, 29, 391, 6, 66, "Subsubtitle"], Cell[CellGroupData[{ Cell[1236, 39, 99, 1, 49, "Subtitle"], Cell[1338, 42, 1891, 49, 112, "Input"], Cell[CellGroupData[{ Cell[3254, 95, 2794, 67, 132, "Input"], Cell[6053, 165, 2425, 53, 356, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8539, 225, 167, 2, 83, "Title"], Cell[8709, 229, 109, 1, 49, "Subtitle"], Cell[8821, 232, 457, 7, 66, "Subsubtitle"], Cell[CellGroupData[{ Cell[9303, 243, 3788, 103, 252, "Input"], Cell[13094, 348, 2487, 50, 352, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)