(* 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[ 62487, 1462] NotebookOptionsPosition[ 58034, 1317] NotebookOutlinePosition[ 59324, 1357] CellTagsIndexPosition[ 59245, 1352] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Rates of Change", "Title", CellChangeTimes->{{3.432143670462803*^9, 3.4321436851572533`*^9}, { 3.432143723624968*^9, 3.4321438117489223`*^9}}, TextAlignment->Center], Cell[TextData[ButtonBox["STEMschool Inc.", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.stemschool.org"], None}]], "Subtitle", CellChangeTimes->{{3.432143670462803*^9, 3.4321436851572533`*^9}, { 3.432143723624968*^9, 3.4321438236671867`*^9}, {3.432144172668893*^9, 3.432144172671577*^9}}, TextAlignment->Center], Cell["October 7, 2008", "Subsubtitle", CellChangeTimes->{{3.432143882663803*^9, 3.432143888222726*^9}, { 3.4324099379880943`*^9, 3.4324099392068987`*^9}}, TextAlignment->Center], Cell["\[Copyright] 2008 STEMschool Inc.", "Subsubtitle", CellChangeTimes->{{3.432154572866815*^9, 3.432154590459826*^9}, { 3.4321546623343678`*^9, 3.432154662338644*^9}, 3.432155470821591*^9}, TextAlignment->Center], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["[Dates]", "Section", CellChangeTimes->{{3.432409887945176*^9, 3.432409958690653*^9}}], Cell["\<\ revised 2008-10-07 created 2008-10-04\ \>", "Text", CellChangeTimes->{{3.432409887945176*^9, 3.432409958690653*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["[Prototype]", "Section", CellChangeTimes->{{3.432144284226663*^9, 3.432144293317295*^9}, { 3.432144810575986*^9, 3.4321448156054688`*^9}}], Cell[TextData[{ "This is an experimental prototype for a collection of lessons that ", ButtonBox["STEMschool Inc.", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.stemschool.org"], None}], " is developing. STEMschool Inc. in an Indiana non-profit corporation.\n\n\ This prototype is a work in proress.\n\nSlides, like this one, whose title is \ in square brackets (i.e., \"[Prototype]\") are comments to the reader but not \ part of the lesson per se." }], "Text", CellChangeTimes->{{3.432144367060603*^9, 3.432144418340108*^9}, { 3.432144459438602*^9, 3.432144494170349*^9}, {3.432144544269659*^9, 3.4321446482998667`*^9}, {3.432144755388082*^9, 3.4321447796079073`*^9}, { 3.432144819382142*^9, 3.43214495504843*^9}, {3.4321481666878633`*^9, 3.432148202042617*^9}, {3.432150797336841*^9, 3.432150802572908*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["[Implementation]", "Section", CellChangeTimes->{{3.4322428116333933`*^9, 3.432242821996174*^9}}], Cell[TextData[{ "This lesson was implemented using ", Cell[BoxData[ FormBox[ ButtonBox["Mathematica", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.wolfram.com/products/mathematica"], None}], TraditionalForm]]], ", a very powerful programming language. STEMschool recommends students use \ it for self-directed projects, term projects, and to double check homework. \ STEMschool recommends teachers use it for teaching.\n\nTo use this lesson in \ full screen mode:\n\t1. Go to the \"Evaluation\" menu, hold down left mouse \ button, and select \"Evaluate Notebook\".\n\t2. Hold down the right mouse \ button and select \"Toggle Full Screen\".\n\nAfter that, to see the ", StyleBox["Mathematica", FontSlant->"Italic"], " code used:\n\t1. Hold down the right mouse button and select \"Toggle \ Full Screen\".\n\t2. Then go to the \"Format\" menu, hold down left mouse \ button, select \"Screen Environment\", and with left mouse button still \ down select \"Presentation\". \n\t3. You will see a series of brackets on \ the right hand side of the screen. Click on a smallest left-hand bracket, \ for example the one immediately before the slider in the next section. Go to \ the \"Cell\" menu, hold down the left mouse button, select \"Cell \ Properties\", and with the left mouse button still down select \"Open\"." }], "Text", CellChangeTimes->{{3.432242849252334*^9, 3.432242906475176*^9}, { 3.4322429777420807`*^9, 3.432242977745063*^9}, {3.432243112894103*^9, 3.432243150565626*^9}, {3.432243203928562*^9, 3.432243409200457*^9}, { 3.43224344780291*^9, 3.432243648102607*^9}, {3.4322436833395557`*^9, 3.4322437349106493`*^9}, {3.43224377955406*^9, 3.4322439365473757`*^9}, { 3.432244020836265*^9, 3.432244061360318*^9}, {3.432244111860199*^9, 3.4322442797711277`*^9}, {3.4322443751241426`*^9, 3.432244494608629*^9}, { 3.432244554653026*^9, 3.4322445590431423`*^9}, {3.43224460894582*^9, 3.4322446611459513`*^9}, {3.4322447424264917`*^9, 3.432244751336043*^9}, { 3.432245520357189*^9, 3.432245743305621*^9}, {3.43224596721621*^9, 3.432246005232842*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Sliders", "Section", CellChangeTimes->{{3.432132396977045*^9, 3.432132404440939*^9}}], Cell["\<\ A slider is a control to change the value of a variable. Below is a slider. \ Click on the button with the left mouse button. While holding it down move \ the mouse side to side to see what happens. Use sliders in the later \ exercises to experiment and see what happens.\ \>", "Text", CellChangeTimes->{{3.432131422584556*^9, 3.432131455593432*^9}, { 3.432131508173921*^9, 3.432131571956374*^9}, {3.4321325959373627`*^9, 3.432132632228598*^9}, {3.432133138139717*^9, 3.4321331864432077`*^9}, { 3.432133315873046*^9, 3.4321333444539623`*^9}, {3.432133383461996*^9, 3.432133398852647*^9}, 3.4321334693427362`*^9, {3.432136806065971*^9, 3.4321368310998287`*^9}, {3.4321368925409107`*^9, 3.432136982658194*^9}, { 3.4321370147689734`*^9, 3.43213709753786*^9}, {3.432137314524213*^9, 3.432137365461671*^9}, 3.4322460688597603`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"\"\\"", " ", "<>", " ", RowBox[{"ToString", "[", "x", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}], ",", RowBox[{"-", "100"}], ",", "100", ",", "1", ",", " ", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.432133424865244*^9, 3.4321334304110193`*^9}, { 3.432228420685604*^9, 3.432228433508565*^9}, {3.4322284668418427`*^9, 3.432228560464897*^9}, {3.4322286068234177`*^9, 3.43222864943591*^9}, 3.432228698954391*^9, {3.432236485987605*^9, 3.432236605875226*^9}, { 3.4322366665796556`*^9, 3.4322366863870564`*^9}, {3.432236719939164*^9, 3.432236727277212*^9}, {3.432236760412322*^9, 3.432236894494267*^9}, { 3.432237067978298*^9, 3.4322371455511827`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`x$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`x$$], 0}, -100, 100, 1}}, Typeset`size$$ = { 64.5, {1., 13.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x$526$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`x$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`x$$, $CellContext`x$526$$, 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" :> StringJoin["x is ", ToString[$CellContext`x$$]], "Specifications" :> {{{$CellContext`x$$, 0}, -100, 100, 1, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{415., {58.5625, 66.4375}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{3.4322406623724003`*^9, 3.432245406109617*^9, 3.432245770803824*^9, 3.4322458270315723`*^9, 3.432246769101582*^9, 3.43224999251224*^9, 3.432251612879953*^9, 3.432406753122699*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Equation for a line", "Section", CellChangeTimes->{{3.432148245994534*^9, 3.432148259586589*^9}, 3.432149334630189*^9}], Cell[TextData[{ "The equation for a line is ", StyleBox["y = mx + b", "InlineFormula", FontFamily->"Times New Roman", FontSlant->"Italic"], " where ", StyleBox["m", FontSlant->"Italic"], " is the slope and", StyleBox[" b", FontSlant->"Italic"], " is the ", StyleBox["y", FontSlant->"Italic"], " - intercept." }], "Text", CellChangeTimes->{{3.432148268950835*^9, 3.432148286990231*^9}, { 3.432148324499113*^9, 3.432148383515078*^9}, {3.4321488738305798`*^9, 3.432148874929782*^9}, 3.432149899629568*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"m", " ", "x"}], " ", "+", " ", "b"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "->", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "->", "10"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"m", ",", "1"}], "}"}], ",", RowBox[{"-", "50"}], ",", " ", "50", ",", " ", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "0"}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", " ", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellOpen->False, CellChangeTimes->{{3.43214892233095*^9, 3.432149017559725*^9}, { 3.43214904890105*^9, 3.432149104743722*^9}, {3.4321491402945232`*^9, 3.432149276939868*^9}, {3.432151740246172*^9, 3.432151756265052*^9}, { 3.432228340107003*^9, 3.432228359648939*^9}, {3.43224253034251*^9, 3.432242574829969*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`b$$ = 0, $CellContext`m$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`m$$], 1}, -50, 50}, {{ Hold[$CellContext`b$$], 0}, -5, 5}}, Typeset`size$$ = { 540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`m$553$$ = 0, $CellContext`b$554$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b$$ = 0, $CellContext`m$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`m$$, $CellContext`m$553$$, 0], Hold[$CellContext`b$$, $CellContext`b$554$$, 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`m$$ $CellContext`x + $CellContext`b$$, \ {$CellContext`x, -10, 10}, AspectRatio -> Automatic, PlotRange -> 10], "Specifications" :> {{{$CellContext`m$$, 1}, -50, 50, Appearance -> "Labeled"}, {{$CellContext`b$$, 0}, -5, 5, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{587., {335.0625, 342.9375}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.432240663164728*^9, {3.432242564183105*^9, 3.4322425770508633`*^9}, 3.4322454070672483`*^9, 3.432245771542714*^9, 3.432245827988305*^9, 3.43224677015112*^9, 3.4322499934062777`*^9, 3.432251613992901*^9, 3.432406753806355*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Rate of Change", "Section", CellChangeTimes->{{3.4322463555712843`*^9, 3.4322463691711607`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Make", " ", "sure", " ", "all", " ", "variable", " ", "names", " ", "that", " ", "start", " ", "with", " ", RowBox[{"a", "--"}], "z", " ", "are", " ", RowBox[{"unset", ".", " ", "This"}], " ", "prevents", " ", "wierd", " ", "problems", " ", "when", " ", "evaluating", " ", "a", " ", "notebook", " ", "that", " ", "has", " ", "alread", " ", "been", " ", RowBox[{"evaluated", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "\"\<[a-z]*\>\"", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Set", " ", "default", " ", "Plot", " ", RowBox[{"options", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", "\[IndentingNewLine]", RowBox[{"Plot", ",", "\[IndentingNewLine]", RowBox[{"PlotStyle", " ", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Thickness", "[", "0.02", "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], "\n", "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"f", " ", "=", " ", RowBox[{"x", " ", RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"m", " ", "=", " ", RowBox[{"D", "[", RowBox[{"f", ",", "x"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"deltax", " ", "=", " ", RowBox[{"Sqrt", "[", RowBox[{"1", " ", "/", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"m", "^", "2"}]}], ")"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"deltay", " ", "=", " ", RowBox[{"m", " ", "deltax"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{"f", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", "\[IndentingNewLine]", RowBox[{ "PlotLabel", " ", "\[Rule]", " ", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "2"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", " ", RowBox[{"-", "1"}], ",", " ", "1", ",", " ", "2"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"(", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Red", ",", "\[IndentingNewLine]", RowBox[{"PointSize", " ", "\[Rule]", " ", "0.03"}], ",", "\[IndentingNewLine]", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"xx", ",", "f"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Thickness", " ", "\[Rule]", " ", "0.01"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xx", "-", "deltax"}], ",", RowBox[{"f", "-", "deltay"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xx", " ", "+", "deltax"}], ",", RowBox[{"f", "+", "deltay"}]}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Style", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"\"\\"", " ", "<>", " ", RowBox[{"ToString", "[", RowBox[{"m", " ", "/.", " ", RowBox[{"x", "\[Rule]", "xx"}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1.25"}]}], "}"}]}], "]"}], ",", " ", "18"}], "]"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "/.", RowBox[{"x", "\[Rule]", "xx"}]}], "\[IndentingNewLine]", ")"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xx", ",", "0", ",", " ", "\"\\""}], "}"}], ",", RowBox[{"-", "1.9"}], ",", "1.9", ",", " ", RowBox[{"Appearance", " ", "\[Rule]", " ", "\"\\""}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]}]], "Input", CellOpen->False, CellChangeTimes->{{3.432246404660254*^9, 3.432246410880789*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`xx$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`xx$$], 0, "x"}, -1.9, 1.9}}, Typeset`size$$ = { 540., {290., 301.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`xx$585$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`xx$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`xx$$, $CellContext`xx$585$$, 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" :> With[{$CellContext`f$ = $CellContext`x Sin[$CellContext`x^2]}, With[{$CellContext`m$ = D[$CellContext`f$, $CellContext`x]}, With[{$CellContext`deltax$ = Sqrt[1/(1 + $CellContext`m$^2)]}, With[{$CellContext`deltay$ = $CellContext`m$ $CellContext`deltax$}, Plot[$CellContext`f$, {$CellContext`x, -2, 2}, AspectRatio -> Automatic, PlotLabel -> "Rate of Change\ny = x sin \!\(\*SuperscriptBox[\(x\), \(2\)]\)", PlotRange -> {{-2, 2}, {-2, 2}}, Ticks -> {{-2, -1, 1, 2}, {-2, -1, 1, 2}}, Epilog -> ReplaceAll[{Red, PointSize -> 0.03, Point[{$CellContext`xx$$, $CellContext`f$}], Thickness -> 0.01, Line[{{$CellContext`xx$$ - $CellContext`deltax$, \ $CellContext`f$ - $CellContext`deltay$}, {$CellContext`xx$$ + \ $CellContext`deltax$, $CellContext`f$ + $CellContext`deltay$}}], Style[ Text[ StringJoin["rate of change = ", ToString[ ReplaceAll[$CellContext`m$, $CellContext`x -> \ $CellContext`xx$$]]], {0, -1.25}], 18]}, $CellContext`x -> $CellContext`xx$$]]]]]], "Specifications" :> {{{$CellContext`xx$$, 0, "x"}, -1.9, 1.9, Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{591., {347.6875, 358.3125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4322463841081*^9, 3.432246412808689*^9}, 3.432246771085499*^9, 3.4322499940381203`*^9, 3.432251614881176*^9, 3.432406754377799*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["\"Rate of change\" is also known as \"derivitive\"", "Section", CellChangeTimes->{ 3.432132829231489*^9, {3.4321371220387707`*^9, 3.432137178920473*^9}}], Cell["\<\ The term \"rate of change\" is also known as \"derivitive\". The derivitive \ of distance is velocity, the derivitive of velocity is acceleration, and the \ derivative of acceleration is jerk. This can also be stated as the first \ derivitive of distance is velocity, the second derivitive of distance is \ acceleration, and the third derivitive of distance is jerk. \"Rate of change\" is sometimes abbreviated as \"ROC\". \ \>", "Text", CellChangeTimes->{{3.432228770912847*^9, 3.4322288023571587`*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["Guinea Pig Race", "Section", CellChangeTimes->{{3.4321519936704407`*^9, 3.432152008034074*^9}}], Cell["\<\ A guinea pig race will be used to illustrate the relationship between \ distance, velocity, acceleration, and jerk.\ \>", "Text", CellChangeTimes->{{3.43215203445536*^9, 3.432152100654211*^9}, { 3.432158761932938*^9, 3.432158775615391*^9}}], Cell[TextData[{ StyleBox["Guinea Pig", FontWeight->"Bold"], "\t\t", StyleBox["Characteristics", FontWeight->"Bold"], "\nThe Rock\t\tdoesn't move at all\nSlow and Steady\tmoves at constant slow \ speed\nWrong Way Rick\tgoes wrong direction\nWander\t\twanders around\nPanic\t\ \t\tmoves very erratically" }], "Text", CellMargins->{{92., 160.6875}, {10., 10.}}, CellChangeTimes->{{3.432152806765924*^9, 3.432152849119981*^9}, 3.4321529053961573`*^9, 3.432153214052752*^9, {3.432153310241716*^9, 3.432153337659162*^9}, {3.432153936859067*^9, 3.4321541840261602`*^9}, { 3.43215428628115*^9, 3.432154312902625*^9}}], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext", CellMargins->{{90.625, 50.}, {10., 10.}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["", "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell["The Guinea Pig Race", "Section", CellChangeTimes->{{3.432140551386341*^9, 3.432140582814291*^9}, { 3.432140661695455*^9, 3.432140675978825*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Initialize", " ", "distance", " ", RowBox[{"functions", "."}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"1", ",", " ", "1", ",", " ", "x_"}], "]"}], " ", ":=", " ", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"2", ",", " ", "1", ",", " ", "x_"}], "]"}], " ", ":=", " ", "x"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"3", ",", " ", "1", ",", " ", "x_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"-", "x"}], "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"4", ",", " ", "1", ",", " ", "x_"}], "]"}], " ", ":=", " ", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"5", ",", " ", "1", ",", " ", "x_"}], "]"}], " ", ":=", " ", RowBox[{ RowBox[{"x", "/", "2"}], " ", RowBox[{"Sin", "[", RowBox[{"x", "^", "2"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Compute", " ", "velocity"}], ",", " ", "acceleration", ",", " ", RowBox[{"and", " ", "jerk", " ", RowBox[{"functions", "."}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", " ", "=", " ", "1"}], ",", " ", RowBox[{"i", " ", "\[LessEqual]", " ", "5"}], ",", " ", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", " ", "=", " ", "2"}], ",", " ", RowBox[{"j", " ", "\[LessEqual]", " ", "5"}], ",", " ", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"i", ",", " ", "j", ",", " ", "x_"}], "]"}], " ", "=", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"i", ",", " ", "1", ",", " ", "x"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"j", "-", "1"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Initialize", " ", "plot", " ", "ranges"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"range", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}], ",", " ", RowBox[{"{", "5", "}"}], ",", RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"5", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "60"}], ",", "60"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"5", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "600"}], ",", "600"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"range", "[", RowBox[{"[", RowBox[{"5", ",", "4"}], "]"}], "]"}], " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "6000"}], ",", " ", "6000"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"plot", "[", RowBox[{ "pig_", ",", "nplot_", ",", " ", "plotvar_", ",", " ", "plotword_", ",", " ", "time_"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", RowBox[{"pig", ",", " ", "nplot", ",", " ", "x"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x", ",", " ", "0", ",", " ", "6"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotLabel", "\[Rule]", " ", RowBox[{ "plotword", " ", "<>", " ", "\"\< (\>\"", " ", "<>", " ", "plotvar", " ", "<>", " ", "\"\<) vs. Time (t)\>\""}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"range", "[", RowBox[{"[", RowBox[{"pig", ",", "nplot"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", " ", "\[Rule]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Style", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Text", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ "plotvar", "\[IndentingNewLine]", "<>", " ", "\"\< \[TildeTilde] \>\"", "\[IndentingNewLine]", "<>", " ", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{"f", "[", RowBox[{"pig", ",", "nplot", ",", "time"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", "<>", " ", "\"\< ROC \[TildeTilde] \>\"", "\[IndentingNewLine]", "<>", " ", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{"f", "[", RowBox[{"pig", ",", RowBox[{"nplot", "+", "1"}], ",", "time"}], "]"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{"0.25", ",", RowBox[{"range", "[", RowBox[{"[", RowBox[{"pig", ",", "nplot", ",", "1"}], "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "10"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Line", "[", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"time", ",", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "3"}], ")"}], " ", RowBox[{"range", "[", RowBox[{"[", RowBox[{"pig", ",", "nplot", ",", "1"}], "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"time", ",", RowBox[{"range", "[", RowBox[{"[", RowBox[{"pig", ",", "nplot", ",", "2"}], "]"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], " ", ";"}]}]}]], "Input", InitializationCell->True, CellChangeTimes->{{3.4321376422548428`*^9, 3.432137833883213*^9}, { 3.4321379068009443`*^9, 3.432137917094542*^9}, {3.432137949193275*^9, 3.43213795018471*^9}, {3.432138034458664*^9, 3.432138081497974*^9}, { 3.4321381255683527`*^9, 3.432138133442775*^9}, {3.432138179130211*^9, 3.432138190309222*^9}, {3.4321382369265842`*^9, 3.432138264697159*^9}, { 3.4321383997978153`*^9, 3.432138472190176*^9}, {3.432138504525498*^9, 3.4321385166765833`*^9}, {3.432138561657655*^9, 3.432138625415494*^9}, { 3.432138705008191*^9, 3.432138737327094*^9}, {3.432138778996688*^9, 3.43213895448792*^9}, {3.432139005123022*^9, 3.4321390246932697`*^9}, { 3.4321390948654137`*^9, 3.432139135696645*^9}, {3.432139185795137*^9, 3.432139233088272*^9}, {3.432139318718011*^9, 3.432139345817544*^9}, { 3.432139419966247*^9, 3.432139425069765*^9}, {3.4321404006221724`*^9, 3.432140432774811*^9}, {3.432156576053097*^9, 3.432156636366193*^9}, { 3.432156779958817*^9, 3.4321567856717567`*^9}, {3.432157644860124*^9, 3.432157649114912*^9}, {3.43215882614991*^9, 3.432158901640326*^9}, { 3.432159199992539*^9, 3.432159204549026*^9}, {3.432159249537994*^9, 3.432159253289748*^9}, {3.4321594092236633`*^9, 3.4321594540046*^9}, { 3.432159659846223*^9, 3.432159666255706*^9}, {3.432159716487041*^9, 3.432159797231394*^9}, {3.432159837295863*^9, 3.43215984914503*^9}, 3.4322002103150663`*^9, {3.432200262621797*^9, 3.4322003194345913`*^9}, 3.432200378735465*^9, 3.432200448240121*^9, {3.4322005267404833`*^9, 3.4322005924256573`*^9}, {3.432200679580803*^9, 3.432200680722988*^9}, { 3.4322007138956738`*^9, 3.43220072754677*^9}, {3.432200757547432*^9, 3.432200798429563*^9}, {3.432200855808462*^9, 3.432200857909205*^9}, { 3.432200912848905*^9, 3.432200980321203*^9}, {3.432201053929626*^9, 3.432201121683275*^9}, {3.432201158249096*^9, 3.43220116440333*^9}, { 3.432201213805551*^9, 3.432201254111775*^9}, {3.432201295640156*^9, 3.432201297201764*^9}, {3.432201356373341*^9, 3.432201366726406*^9}, { 3.432201424264621*^9, 3.432201448087598*^9}, 3.432201498153802*^9, { 3.432201535713565*^9, 3.432201589826969*^9}, {3.432201619865231*^9, 3.4322016294667892`*^9}, {3.432201681804924*^9, 3.432201737745246*^9}, { 3.432201802770967*^9, 3.432201804370644*^9}, 3.4322018452526073`*^9, { 3.432202461327895*^9, 3.43220249239187*^9}, {3.432202539409124*^9, 3.432202541844083*^9}, {3.432202661552896*^9, 3.4322026941657248`*^9}, { 3.432202763948196*^9, 3.432202789376698*^9}, {3.4322028774152803`*^9, 3.432202879062481*^9}, {3.432202915530878*^9, 3.432202916097024*^9}, { 3.4322030103808002`*^9, 3.432203140273677*^9}, {3.4322031716857567`*^9, 3.432203177344969*^9}, {3.432203237504311*^9, 3.432203258734457*^9}, { 3.432203329257634*^9, 3.432203329907361*^9}, {3.4322033662168713`*^9, 3.4322034128129263`*^9}, {3.43220364294915*^9, 3.432203681247566*^9}, { 3.43220387251571*^9, 3.432203892533733*^9}, {3.432203941902884*^9, 3.43220402533132*^9}, 3.4322041533184757`*^9, 3.43220427477523*^9, { 3.432204393987419*^9, 3.432204438414908*^9}, {3.432204559227523*^9, 3.4322046157735653`*^9}, {3.432204840008594*^9, 3.432204932920567*^9}, { 3.43220497291037*^9, 3.432204989335376*^9}, {3.4322051870136433`*^9, 3.432205203302985*^9}, {3.432205240344537*^9, 3.432205249950575*^9}, { 3.432205335414522*^9, 3.432205348092568*^9}, {3.432205401557056*^9, 3.4322054444617167`*^9}, {3.432205587496931*^9, 3.4322056188024187`*^9}, { 3.4322056748007812`*^9, 3.4322056963844347`*^9}, {3.43220574656327*^9, 3.4322057745823803`*^9}, {3.432205826841502*^9, 3.432205829209516*^9}, { 3.432205876500827*^9, 3.4322058906771793`*^9}, {3.432205937287889*^9, 3.4322059382874117`*^9}, {3.432206000335795*^9, 3.432206003025476*^9}, { 3.4322060686584883`*^9, 3.432206105997849*^9}, {3.432206226635775*^9, 3.432206275491248*^9}, {3.432206385404071*^9, 3.432206447582387*^9}, { 3.4322065077418833`*^9, 3.432206589217431*^9}, {3.432206621172319*^9, 3.4322066452091293`*^9}, {3.43220674192454*^9, 3.432206791627451*^9}, { 3.432206888915928*^9, 3.432206941131814*^9}, {3.432207133180917*^9, 3.432207154747302*^9}, {3.432219990585802*^9, 3.432220063446464*^9}, { 3.432220100509585*^9, 3.432220179300357*^9}, {3.4322202420370827`*^9, 3.432220328002404*^9}, 3.432220367589611*^9, {3.4322204404380503`*^9, 3.432220538832304*^9}, {3.432220580377384*^9, 3.432220723432767*^9}, { 3.4322213130898046`*^9, 3.432221334339663*^9}, {3.432221436539218*^9, 3.4322214966364326`*^9}, {3.432221556673992*^9, 3.432221574060704*^9}, { 3.432221623625646*^9, 3.4322216767123528`*^9}, {3.432221744442525*^9, 3.432221875275675*^9}, {3.4322219178056107`*^9, 3.432221919701695*^9}, { 3.4322220813682528`*^9, 3.4322220935656357`*^9}, {3.432222129180135*^9, 3.432222138281085*^9}, {3.4322221720228157`*^9, 3.432222187198468*^9}, { 3.4322222866829443`*^9, 3.432222332711851*^9}, 3.432222371071218*^9, { 3.4322225209019213`*^9, 3.432222525005423*^9}, {3.4322235455364513`*^9, 3.4322235461792173`*^9}, {3.432223850130745*^9, 3.4322238671143827`*^9}, { 3.432223977654347*^9, 3.43222401844066*^9}, 3.432224251049715*^9, 3.432224284487342*^9, {3.432224463771132*^9, 3.432224495301565*^9}, { 3.432224534450432*^9, 3.432224538284587*^9}, {3.432224875599524*^9, 3.432224881088868*^9}, {3.432224969401206*^9, 3.43222497739675*^9}, { 3.432225312713346*^9, 3.432225382117271*^9}, {3.4322259186149187`*^9, 3.432225929947568*^9}, {3.432226008820552*^9, 3.432226086170789*^9}, { 3.432226129183429*^9, 3.432226170649026*^9}, {3.432226273303114*^9, 3.432226281716037*^9}, 3.432226411435568*^9, 3.4322269040766*^9, { 3.4322269859377527`*^9, 3.4322270334952*^9}, {3.4322271479808283`*^9, 3.432227149197834*^9}, {3.432229613932931*^9, 3.432229624843294*^9}, { 3.432251522531125*^9, 3.432251579627206*^9}, 3.432409814701947*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"GraphicsGrid", "[", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"plot", "[", RowBox[{ "pig", ",", " ", "1", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "time"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"plot", "[", RowBox[{ "pig", ",", " ", "2", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "time"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"plot", "[", RowBox[{ "pig", ",", " ", "3", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "time"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"plot", "[", RowBox[{ "pig", ",", " ", "4", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "time"}], "]"}]}], "\[IndentingNewLine]", "}"}]}], "\[IndentingNewLine]", "}"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"pig", ",", " ", "2", ",", " ", "\"\\""}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"1", " ", "\[Rule]", " ", "\"\< The Rock\>\""}], ",", "\[IndentingNewLine]", RowBox[{"2", " ", "\[Rule]", " ", "\"\< Slow and Steady\>\""}], ",", "\[IndentingNewLine]", RowBox[{"3", " ", "\[Rule]", " ", "\"\< Wrong Way Rick\>\""}], ",", "\[IndentingNewLine]", RowBox[{"4", " ", "\[Rule]", " ", "\"\< Wander\>\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"5", " ", "\[Rule]", " ", "\"\< Panic \>\""}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ControlType", " ", "\[Rule]", " ", "SetterBar"}]}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"time", ",", " ", "1", ",", " ", "\"\\""}], "}"}], ",", "0", ",", " ", "6", ",", " ", RowBox[{"Appearance", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"FrameLabel", " ", "\[Rule]", " ", "\"\\""}], ",", " ", RowBox[{"SaveDefinitions", " ", "\[Rule]", " ", "True"}]}], "}"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.4321376422548428`*^9, 3.432137833883213*^9}, { 3.4321379068009443`*^9, 3.432137917094542*^9}, {3.432137949193275*^9, 3.43213795018471*^9}, {3.432138034458664*^9, 3.432138081497974*^9}, { 3.4321381255683527`*^9, 3.432138133442775*^9}, {3.432138179130211*^9, 3.432138190309222*^9}, {3.4321382369265842`*^9, 3.432138264697159*^9}, { 3.4321383997978153`*^9, 3.432138472190176*^9}, {3.432138504525498*^9, 3.4321385166765833`*^9}, {3.432138561657655*^9, 3.432138625415494*^9}, { 3.432138705008191*^9, 3.432138737327094*^9}, {3.432138778996688*^9, 3.43213895448792*^9}, {3.432139005123022*^9, 3.4321390246932697`*^9}, { 3.4321390948654137`*^9, 3.432139135696645*^9}, {3.432139185795137*^9, 3.432139233088272*^9}, {3.432139318718011*^9, 3.432139345817544*^9}, { 3.432139419966247*^9, 3.432139425069765*^9}, {3.4321404006221724`*^9, 3.432140432774811*^9}, {3.432156576053097*^9, 3.432156636366193*^9}, { 3.432156779958817*^9, 3.4321567856717567`*^9}, {3.432157644860124*^9, 3.432157649114912*^9}, {3.43215882614991*^9, 3.432158901640326*^9}, { 3.432159199992539*^9, 3.432159204549026*^9}, {3.432159249537994*^9, 3.432159253289748*^9}, {3.4321594092236633`*^9, 3.4321594540046*^9}, { 3.432159659846223*^9, 3.432159666255706*^9}, {3.432159716487041*^9, 3.432159797231394*^9}, {3.432159837295863*^9, 3.43215984914503*^9}, 3.4322002103150663`*^9, {3.432200262621797*^9, 3.4322003194345913`*^9}, 3.432200378735465*^9, 3.432200448240121*^9, {3.4322005267404833`*^9, 3.4322005924256573`*^9}, {3.432200679580803*^9, 3.432200680722988*^9}, { 3.4322007138956738`*^9, 3.43220072754677*^9}, {3.432200757547432*^9, 3.432200798429563*^9}, {3.432200855808462*^9, 3.432200857909205*^9}, { 3.432200912848905*^9, 3.432200980321203*^9}, {3.432201053929626*^9, 3.432201121683275*^9}, {3.432201158249096*^9, 3.43220116440333*^9}, { 3.432201213805551*^9, 3.432201254111775*^9}, {3.432201295640156*^9, 3.432201297201764*^9}, {3.432201356373341*^9, 3.432201366726406*^9}, { 3.432201424264621*^9, 3.432201448087598*^9}, 3.432201498153802*^9, { 3.432201535713565*^9, 3.432201589826969*^9}, {3.432201619865231*^9, 3.4322016294667892`*^9}, {3.432201681804924*^9, 3.432201737745246*^9}, { 3.432201802770967*^9, 3.432201804370644*^9}, 3.4322018452526073`*^9, { 3.432202461327895*^9, 3.43220249239187*^9}, {3.432202539409124*^9, 3.432202541844083*^9}, {3.432202661552896*^9, 3.4322026941657248`*^9}, { 3.432202763948196*^9, 3.432202789376698*^9}, {3.4322028774152803`*^9, 3.432202879062481*^9}, {3.432202915530878*^9, 3.432202916097024*^9}, { 3.4322030103808002`*^9, 3.432203140273677*^9}, {3.4322031716857567`*^9, 3.432203177344969*^9}, {3.432203237504311*^9, 3.432203258734457*^9}, { 3.432203329257634*^9, 3.432203329907361*^9}, {3.4322033662168713`*^9, 3.4322034128129263`*^9}, {3.43220364294915*^9, 3.432203681247566*^9}, { 3.43220387251571*^9, 3.432203892533733*^9}, {3.432203941902884*^9, 3.43220402533132*^9}, 3.4322041533184757`*^9, 3.43220427477523*^9, { 3.432204393987419*^9, 3.432204438414908*^9}, {3.432204559227523*^9, 3.4322046157735653`*^9}, {3.432204840008594*^9, 3.432204932920567*^9}, { 3.43220497291037*^9, 3.432204989335376*^9}, {3.4322051870136433`*^9, 3.432205203302985*^9}, {3.432205240344537*^9, 3.432205249950575*^9}, { 3.432205335414522*^9, 3.432205348092568*^9}, {3.432205401557056*^9, 3.4322054444617167`*^9}, {3.432205587496931*^9, 3.4322056188024187`*^9}, { 3.4322056748007812`*^9, 3.4322056963844347`*^9}, {3.43220574656327*^9, 3.4322057745823803`*^9}, {3.432205826841502*^9, 3.432205829209516*^9}, { 3.432205876500827*^9, 3.4322058906771793`*^9}, {3.432205937287889*^9, 3.4322059382874117`*^9}, {3.432206000335795*^9, 3.432206003025476*^9}, { 3.4322060686584883`*^9, 3.432206105997849*^9}, {3.432206226635775*^9, 3.432206275491248*^9}, {3.432206385404071*^9, 3.432206447582387*^9}, { 3.4322065077418833`*^9, 3.432206589217431*^9}, {3.432206621172319*^9, 3.4322066452091293`*^9}, {3.43220674192454*^9, 3.432206791627451*^9}, { 3.432206888915928*^9, 3.432206941131814*^9}, {3.432207133180917*^9, 3.432207154747302*^9}, {3.432219990585802*^9, 3.432220063446464*^9}, { 3.432220100509585*^9, 3.432220179300357*^9}, {3.4322202420370827`*^9, 3.432220328002404*^9}, 3.432220367589611*^9, {3.4322204404380503`*^9, 3.432220538832304*^9}, {3.432220580377384*^9, 3.432220723432767*^9}, { 3.4322213130898046`*^9, 3.432221334339663*^9}, {3.432221436539218*^9, 3.4322214966364326`*^9}, {3.432221556673992*^9, 3.432221574060704*^9}, { 3.432221623625646*^9, 3.4322216767123528`*^9}, {3.432221744442525*^9, 3.432221875275675*^9}, {3.4322219178056107`*^9, 3.432221919701695*^9}, { 3.4322220813682528`*^9, 3.4322220935656357`*^9}, {3.432222129180135*^9, 3.432222138281085*^9}, {3.4322221720228157`*^9, 3.432222187198468*^9}, { 3.4322222866829443`*^9, 3.432222332711851*^9}, 3.432222371071218*^9, { 3.4322225209019213`*^9, 3.432222525005423*^9}, {3.4322235455364513`*^9, 3.4322235461792173`*^9}, {3.432223850130745*^9, 3.4322238671143827`*^9}, { 3.432223977654347*^9, 3.43222401844066*^9}, 3.432224251049715*^9, 3.432224284487342*^9, {3.432224463771132*^9, 3.432224495301565*^9}, { 3.432224534450432*^9, 3.432224538284587*^9}, {3.432224875599524*^9, 3.432224881088868*^9}, {3.432224969401206*^9, 3.43222497739675*^9}, { 3.432225312713346*^9, 3.432225382117271*^9}, {3.4322259186149187`*^9, 3.432225929947568*^9}, {3.432226008820552*^9, 3.432226086170789*^9}, { 3.432226129183429*^9, 3.432226170649026*^9}, {3.432226273303114*^9, 3.432226281716037*^9}, 3.432226411435568*^9, 3.4322269040766*^9, { 3.4322269859377527`*^9, 3.4322270334952*^9}, {3.4322271479808283`*^9, 3.432227149197834*^9}, {3.432229613932931*^9, 3.432229624843294*^9}, { 3.432251522531125*^9, 3.432251579627206*^9}, 3.432409814701947*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`pig$$ = 1, $CellContext`time$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`pig$$], 2, "guinea pig"}, { 1 -> " The Rock", 2 -> " Slow and Steady", 3 -> " Wrong Way Rick", 4 -> " Wander", 5 -> " Panic "}}, {{ Hold[$CellContext`time$$], 1, "t (time)"}, 0, 6}}, Typeset`size$$ = { 540., {162., 172.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`pig$615$$ = False, $CellContext`time$616$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`pig$$ = 2, $CellContext`time$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`pig$$, $CellContext`pig$615$$, False], Hold[$CellContext`time$$, $CellContext`time$616$$, 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" :> GraphicsGrid[{{ $CellContext`plot[$CellContext`pig$$, 1, "d", "Distance", $CellContext`time$$], $CellContext`plot[$CellContext`pig$$, 2, "v", "Velocity", $CellContext`time$$]}, { $CellContext`plot[$CellContext`pig$$, 3, "a", "Acceleration", $CellContext`time$$], $CellContext`plot[$CellContext`pig$$, 4, "j", "Jerk", $CellContext`time$$]}}], "Specifications" :> {{{$CellContext`pig$$, 2, "guinea pig"}, { 1 -> " The Rock", 2 -> " Slow and Steady", 3 -> " Wrong Way Rick", 4 -> " Wander", 5 -> " Panic "}, ControlType -> SetterBar}, {{$CellContext`time$$, 1, "t (time)"}, 0, 6, Appearance -> "Open", FrameLabel -> "saved", SaveDefinitions -> True}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{591., {255.1875, 265.8125}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.432240665498499*^9, {3.4322427064046392`*^9, 3.432242709132947*^9}, 3.432245408004157*^9, 3.43224577313649*^9, 3.43224582867695*^9, 3.4322467730850277`*^9, 3.432249996223638*^9, {3.432251587389409*^9, 3.4322516160806723`*^9}, 3.432406755604423*^9}] }, Open ]], Cell[TextData[{ ButtonBox["\[FilledLeftTriangle]\[ThickSpace]\[ThickSpace]\[ThickSpace]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPagePrevious"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowPrevSlideText"], ButtonFrame->"None"], "\[ThickSpace]\[ThickSpace]|\[ThickSpace]\[ThickSpace]", ButtonBox["\[ThickSpace]\[ThickSpace]\[ThickSpace]\[FilledRightTriangle]", BaseStyle->"SlidePreviousNextLink", ButtonFunction:>FrontEndExecute[{ FrontEndToken[ FrontEnd`ButtonNotebook[], "ScrollPageNext"]}], ButtonNote->FEPrivate`FrontEndResource[ "FEStrings", "SlideshowNextSlideText"], ButtonFrame->"None"] }], "PreviousNext"] }, Open ]] }, Open ]] }, AutoGeneratedPackage->Automatic, ScreenStyleEnvironment->"Presentation", WindowToolbars->"RulerBar", WindowSize->{1192, 931}, WindowMargins->{{0, Automatic}, {Automatic, 10}}, FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[2308, 70, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[3433, 109, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[5327, 159, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[8464, 229, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[13068, 336, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[18142, 471, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[28550, 714, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30137, 759, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[32073, 815, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 58431, 1330} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 175, 3, 114, "Title"], Cell[768, 28, 332, 7, 69, "Subtitle"], Cell[1103, 37, 181, 3, 39, "Subsubtitle"], Cell[1287, 42, 220, 3, 39, "Subsubtitle"], Cell[1510, 47, 761, 18, 115, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[2308, 70, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2397, 75, 92, 1, 100, "Section"], Cell[2492, 78, 128, 5, 84, "Text"], Cell[2623, 85, 761, 18, 115, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3433, 109, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[3522, 114, 147, 2, 100, "Section"], Cell[3672, 118, 842, 15, 152, "Text"], Cell[4517, 135, 761, 18, 115, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[5327, 159, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[5416, 164, 103, 1, 100, "Section"], Cell[5522, 167, 2129, 36, 332, "Text"], Cell[7654, 205, 761, 18, 115, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[8464, 229, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[8553, 234, 92, 1, 100, "Section"], Cell[8648, 237, 866, 13, 62, "Text"], Cell[CellGroupData[{ Cell[9539, 254, 969, 19, 28, "Input", CellOpen->False], Cell[10511, 275, 1732, 34, 150, "Output"] }, Open ]], Cell[12258, 312, 761, 18, 115, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[13068, 336, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[13157, 341, 130, 2, 100, "Section"], Cell[13290, 345, 529, 18, 41, "Text"], Cell[CellGroupData[{ Cell[13844, 367, 1357, 33, 28, "Input", CellOpen->False], Cell[15204, 402, 2113, 42, 703, "Output"] }, Open ]], Cell[17332, 447, 761, 18, 48, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18142, 471, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[18231, 476, 103, 1, 108, "Section"], Cell[CellGroupData[{ Cell[18359, 481, 6419, 144, 32, "Input", CellOpen->False], Cell[24781, 627, 2944, 60, 736, "Output"] }, Open ]], Cell[27740, 690, 761, 18, 48, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28550, 714, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[28639, 719, 162, 2, 108, "Section"], Cell[28804, 723, 520, 10, 212, "Text"], Cell[29327, 735, 761, 18, 48, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30137, 759, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[30226, 764, 102, 1, 108, "Section"], Cell[30331, 767, 253, 5, 54, "Text"], Cell[30587, 774, 630, 14, 212, "Text"], Cell[31220, 790, 804, 19, 48, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32073, 815, 64, 1, 11, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[32162, 820, 153, 2, 108, "Section"], Cell[32318, 824, 13375, 268, 1492, "Input", InitializationCell->True], Cell[CellGroupData[{ Cell[45718, 1096, 8709, 141, 862, "Input"], Cell[54430, 1239, 2800, 53, 551, "Output"] }, Open ]], Cell[57245, 1295, 761, 18, 48, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)