(* 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[ 73020, 1628] NotebookOptionsPosition[ 50815, 1192] NotebookOutlinePosition[ 70218, 1534] CellTagsIndexPosition[ 70139, 1529] 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 4, 2008", "Subsubtitle", CellChangeTimes->{{3.432143882663803*^9, 3.432143888222726*^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["[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$$ = { 86.25, {1., 17.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`x$635$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`x$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`x$$, $CellContext`x$635$$, 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->{419., {64.1875, 74.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.4322406623724003`*^9, 3.432245406109617*^9, 3.432245770803824*^9, 3.4322458270315723`*^9, 3.432246769101582*^9, 3.43224999251224*^9, 3.432251612879953*^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$658$$ = 0, $CellContext`b$659$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`b$$ = 0, $CellContext`m$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`m$$, $CellContext`m$658$$, 0], Hold[$CellContext`b$$, $CellContext`b$659$$, 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->{591., {337.6875, 348.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.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}] }, 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]", "]"}], ";"}], "\[IndentingNewLine]", "\n", 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$691$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`xx$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`xx$$, $CellContext`xx$691$$, 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}] }, 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[CellGroupData[{ 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]", "]"}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[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}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`pig$$ = 2, $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$720$$ = False, $CellContext`time$721$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`pig$$ = 2, $CellContext`time$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`pig$$, $CellContext`pig$720$$, False], Hold[$CellContext`time$$, $CellContext`time$721$$, 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->{587., {252.5625, 260.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.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}}] }, 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 ]] }, ScreenStyleEnvironment->"SlideShow", WindowToolbars->"RulerBar", WindowSize->{1192, 931}, WindowMargins->{{0, Automatic}, {Automatic, 10}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJzdXWdgVEeSnlUiYzA2mdUCygFEkhDKRAkMAhsWE8wZe8FgwHjB9p7DLuwa\n\ 7CUJY6IIAgmUESighAQSCiihnBMCRDz7wu/7sd91v9f9pt/Mm5EE+M/9mNSv\n\ Q1V1d31V1WGWbvxiy6YdG7/Y+vHGPyzatfHzLVs/3v2HhTt3kSTL3+l0Flt0\n\ Op3zH3T0O8hX9vYWOjs7dVaozsvHleB3kB8ZhfbWVmspeQAa6upxLzAE3ePd\n\ UeYyBc0Bvnj0b6F4+NkaVK1fjXuXL+sspbz90NnRgerr15C/YzsKZs1B8UhH\n\ JE7zQsWVKzrQPNLbHCm37m3Wbtb3+3B1nANiN21DVXGxlZQ8Ah2krvp31+KR\n\ w3Tct5+JlsWBaN8Qgifb3sPDD0LR9OFK1EWcQW3qNVSeO4u87Z+icI4vaqe6\n\ ocjVFedGT8a15e+ivbHRVNs2qKuqQoLbLMQPnICL07xRfOwE6nNuWUiP30R7\n\ czPaVq7AIy9vtE2bjZo5nmhauwAPdq/Cs+/X4fE6QtPSeWgJDULzqvmo8JuO\n\ 8hnuqJjmgRhbJ4RTGla8q2/eR25+pPQxBimE9fQRk5Azwg7J5DPDcSru7Pgc\n\ ZSdPo2TdWjz18sTDQH80+vqi1c4DDX4z8eD7lXj69/fQ+UUo2jYFo2nRTDRv\n\ mYe7gTNREDQFCVPccMHWHhedXHDz8z/rTDQ+DjXFRUhycEfsyMnkZYfccXZI\n\ H2+POHsHFDk44anbTDwO8EfnwkB0zZiDDnc33N+5AI/Prcej42vR/mUwyjYG\n\ oHSdN26tmo3kebMQ7uCMw2PG45SLGyoTE6WmyaDQ9ZfatERdVhbqb92SfukJ\n\ myISNhYdbW3IWPFHXBn2eyT6euPu3z9CxT+3oOTAFlQe2oKGI5+i8acdaDix\n\ Ew0/f4a6w1tQd2o7GmO/RMOVr9AY/RVqLvwZVSe3o/LUDpQf/wylhz5F5vaV\n\ OOExBTe/+RaFBw9ZszHQ0daKisuXUXo2HFlr1yLjvVW4Fx+vJ2+qTN4o6WMy\n\ 7pLOSXBzQdWFr9B87QhqY4+hKeE4HqefxYP0cDxIO4OutHDcz7iArszz6Lz6\n\ MzpjjqKTPGvPOYfW3HNoJN9rk06iNv446pJ+RlPqSeR+8QmuOLgh87OdKCP0\n\ lNNXZCRKzpzB9XXrkRi6HElkgOeQwXCT0NmYny/I0EMkchIKDochLsQPDVf3\n\ 415kOCqvROJpWiy60qPxXzU5+J97OfglPxVP8zPxrCAdL1Kj8cuNWDxLicGT\n\ tBh0p8ahLTkO7dFRaIm+hKpzhOiLkWgnBJ2d4oIfJtkizMkJh13dcH46Ge2e\n\ 0xHnPAV3p3qhaLY/sjd/gra6+iaJHGu0Xk9DlYsvKoe5oCZ0Pf2tG8/GRHFx\n\ sTxOyK8XLG3btm1IT0+XfgWytFOnTknpERERpNckbt9gj6je4VVYMQm0Nbci\n\ ccVyxCz2QV38D2RknEf31Sj8WpCCC37+SAkJQWt6JP6z4Ta689Px+HYyXhQn\n\ 43l2LLqTiLQSL+FJdATuX7qAzvPn8fBSBJrPhKMhOhqdN1Jx0GsqDnhMQpj7\n\ ZJx1d0Y20REl84JQExCEXO8A0p1fUgk0Mwl0VFajynMRKn8/Q5ICkQaZgzL5\n\ lZWVEnf0138IEkhKShIkYIVbZObQNPqMfLcWheCIwiNhyP7oIyL6zbi54zPk\n\ /3gAVak3UH0zGwVbNyOPKIXUd/xRH/8jHqdexLPMaLyozkKSTwDKdBNwY4IL\n\ cndtQVv+VTyvzMZTIownt+LwKOUyEcglPCICuU8E0nrxPBojzxOlexqt8bF4\n\ lJ2G5IW+yA/xQePS+WgNWohm/2CUBwUhPSAQd/b/oGtnHLTl3ZG4p6/mn8PH\n\ 9lIAc1najz/+iKNHjwr9rBsofRBtU1SEqsiLaDwXjurLUSiNjkFh5GUUbN+O\n\ uqnT0PXmRNwfPgntQyaizckZT6a54ZmdK24vCUBV/H4ycy/iQcYVdN9LR5x/\n\ EMoHOKB2qDNu6yYi0W06bv/wDbrKUvGkMAldqZHoTIxAx9WLaI2LQPWlsygN\n\ P4l7Z47jflIcOm/eQNm7S9Cycinayef9NaGoXTgfGZ5zcGM9Gf01NR2Mo5q5\n\ yyVh1K3/RNdXadDfu3btMpaGK+oqylFI9NnNd1fgnpMbSkdNQuwIW8SMnYw8\n\ e0dkjrZFzaCJePiWHTrdXNHuNwsPPDyQuzwIpVF/J1P/HDoyL+N+WQqiyYDO\n\ H+yA4lFuKBnthuKhDkgeSuoLnIvik/vRfjMGLQnn0RB/gaiZ8yi9cBoFP4fh\n\ 7vEwMsES0XozDRWfrMaDbzfg0ZYVBFAXICfAD5nrN9AJohvMGGiOjFXGBpkl\n\ EkeW9BdhlT7jE9yCGRt0RtVt3a3oFfpJf5N02SCxYIUb/rJHKEzTrMQ0+l1K\n\ tmKAQAcpVVKMEKlSkiblsdBXrF2JBesc+oxxQw0jXshGZEXJRHpfoHiQkoez\n\ yJUGpYpSJykSOoUiY5ntZY3GfYf1oiDPe+LWktl3VDWT9tViJL9pOsuv0xcw\n\ LdNBSlpvqLbg4EvyirKmXCjNjFARTl+UKJpdZJTm6U2TNuZ7pm/0W/L5y2in\n\ 6txaGJi0Lp5fkKjOwpQQ+2lMfp4moiFvuLGxUZr85JkyBKIJNH399ddSfvpJ\n\ fjPF0E9BT1qGlqXt0jr37t1LiKK1DKDfJYyhz3ibVN3ychR5rXpsS/sZnxe0\n\ Tpqun8mWCqaRTyZEdT4bM/VaasjIhvHM6+Avyh/hgcqYtaOuk/NooVGn6TQb\n\ MU16UYuGQJUsVhsJtQQjh2fnvSZwKklf3yODjIrSvKzXORzw6pgkhkkjiJbj\n\ HNGep/XS32LPm6iHM8WYUITHSDEnG7HPTPdjP4kKPq7oi35n+XqUM+0vgzHZ\n\ 87Cz4YJVmqRCIWTIj4dIMqO1cpnQ4nSkUEop4zydtUjT2eyUuaHViXlY9Zqj\n\ k5Mk9rvRsNALjlDO0V1GSie0khZLiXd1b9sOdDt6oNveCUV2LshzJHbQ9Klo\n\ meiC+65T0DbbG/fnByDng2AUXNiDuoSzxPO4hJbCBJzzD8C1YXbIGOOK9DEu\n\ 5OWK7NGuuDZ0MsKJR3g5dCkKTx1CRRzxQC6Fo/DEURQePYjK2DNouJ2Kxtw0\n\ NOzZgF9/+hBPvlyBqiVBSPH1I17U2SGsPwRFK70oMFuwZ1SRi88oyvAJoZjK\n\ 7BmxkRQko+n0ORPay0I8xw+q4qkJxizz3wDiBRBQASjPQw0/Vivl00pBHYY0\n\ fLSIAqPUM4jvmc6B1NAWDSs9w7Lcja0C01LVp/WWbgXc5Y7k5bXoJnRasmSJ\n\ RGbPkZbMNdQDrPeeYol1bnBy60c/YfsZjklRhi+P69yo59OeKjGmpJSGeRrV\n\ PDQ//WS6kOXpr2h4mpfmoVqJqxCi2SwkcB0oKTmahSscqqxoGi1C05mC633L\n\ A83lkZph6M5nDSdU78brDQA9cPSmabUAbZggBGNC4YqjAvltyTLz6mmf8GwS\n\ ZhvXbDrNRgWgtIup/KRqqLhtFOygj7jIFSKsRb6lziLE6OSigyS0Eo01ygOt\n\ jpbhJgE3mjiF3CiUTQj6xFKEL5ZvkLm6DDnR9YoVrS5Up3Hs5yjLx6mAuqYF\n\ LZtD1kYjVT8WJvQ4DJl8VeXZhFTkxqwGJQ/tA/qcfvJ0Wi8ry5gaIJWnZUXG\n\ eBs0nZoC5kaROA40ZMvtHb39zYI+w9F0pxDNYQfQNX822p3d0eo9EzWLvNGy\n\ aA4eTJ+NR3OCkLE6GLfO/Q2lMWdQFncWNblxCPP1Rdgbtjg92oGG1kY5kLrI\n\ d5wZaY/Dg8fj+/F2iFi3FnlnjiIr7CBunTiI8qRzqL2Tgrr8VLQc+Dc827MS\n\ nWsCcGeuN64vWYKWe5U6jv2i2lf7fLKnKj6jiplPS9Fm4DqYfPYGkXrCfrkJ\n\ KxWSSlV3qjw5WsGrmgCWogev08YUmmat5ONYpGAJa9gIUdXJUliil7TyJhRx\n\ W9Di8oASK+3BBLBW0npLMyeO+sCcOCW5n4pmMQhBiePVUpNPaM5Eaz2YAn2n\n\ nHaQaDypDFWhCKlO3xPqPnk5a4ATJSh0EUO5nhF1CNc3XJRMp1gKRajqEvUz\n\ d+vMVcOasuzN4wGqx6JS44BCNJnCrxZi9IYxJietajizXPdT30lLZqIAekZ5\n\ axU20m4jOl0JdlD9znGE47EWKHLXg3apGDBQ6fp+qqY4bDHPXVGS3C3XhIvX\n\ Q61pCNfuJLMkvcRIsxQfK7ITi9A+Ztg6QKMIZ4DbFzTmw6sWR+MrwDJHd2pt\n\ MVgeLn0MQ2daMvG8F+BBiBfuL/dG68ZgtK5fhO7FgchcF4ys8L+i8MJRFEX8\n\ jHs3orDfazZ2DxmL7962xTcjba3w7du2uqH4buREfDN8AnYOHoVvHF1w/qMP\n\ cfdaOMpTzqGm+Dpqcq6h5eBG/PrP99H60SLkBPrhemjoUCYBMUqqVnd651zx\n\ Tz0X6YOabFGCuklaaSbVW1/hl6h1Ln9Bz74y/PZTYJWbGlwSBq6aMf4SMtSg\n\ Y4gI6kYte6JUHocqFKEmgRZS9Rl3e6JViy6NJmTTjJkthE59s50qu8FMc30G\n\ 3h7FbC1ZC8xcMRqgfNDWbd2t7et39hlr+yvaQ5z11Dmi30kdXPnS6mgS95sM\n\ 3FuhhNLLWrpFrKaHVowe91c95vRyJ4ToWb7dwhh/1ASa4skMxHJVTC0S2pqB\n\ lEyz3DOysqCrglVcw/cWWXlkQVzC6COymtX4r4dac8j6EiDU57FlKT5WqOcB\n\ 7E7m7VLOBrL8wjNlFPE6aD6+kYZbXZoRApOM8JHAe493i3586t6UPoaio/gu\n\ 2tYvR1fgTDzeRtB01xI8WD8XmcsCkUcc3KrIY6hOjUB9XiIOzPHBd2+Mx/7R\n\ djbYN2oyKb5v9GT6DX8dPA573xyPqNAQFMT8hJaKNNQTn7b95Gb89+kNeLB1\n\ EQoX+CF5MfFpq6oGM/pFPcUVHXEaFf+RAaTWeqm1oQ7W53opLFXC2EwPsi01\n\ XJ2/ljB2PzFErWKaamKhdn28W1o0ZTYF0fAqCgyWvQ0lZAI9jZxTKULQZ5/V\n\ Rh8ENkmi4SaDXmGn0o0kTViWULCtt81Zme+L3tCvXnbgQCvETtT0yWk8Ii97\n\ tdyz7huaDjbSrNxr5aEwPuvZd770KhZjjzSXhK3Yu+gxEW1hxSTHlYaqditV\n\ DFhJ7meYLHklPERnDjaN09QMcGJNY6a1uKSnMGzNmDMRVu0JM/Uykp+J4jaH\n\ QnyAUnjg4UVpmcBUs9q9zAPJlCMeqDYwiH4rDn4DHGWGgxLf0RxZg4wEQYtx\n\ /1fkikaIrdmg4N1LhSSuSNCFe0NOKC5zTOXwbSCtXmIqnag8hs1MW46pI6SP\n\ IWi7lYuuD0PwaIMP2j8MwqN9f0TO9hUoOvs3NMadQktGJNqKk3DK1x/nh09G\n\ 9FhX0u6VsS4EUC+PdETMaEfcmOmF7E3rkPbPL4lrehpdpcloLcpAx+lN+J/z\n\ 69C9aS6aVvogMygAN9Z9wAFV2fBFdBX3Cole4x3GfTbpEfcbVK7NbwOrltJm\n\ HwZ6pI3XgKUDjPxMcT8R/a4nzVqMHcsV/n6GTMZLw6iliJd0NGpBa6/9T2O6\n\ Xg07+fjvqV4tkLRgQQraXSyvTnOEGFeu7xTFOyedQ39zU65x32G5sv5mh1Rf\n\ oNFUgPQloFFGj218/xfXYDoRF40A0ESypZjMdh9ZKo6UyORvg41WikPBbAZp\n\ ZVVG/t8WFvsb6VC+U44qTrNNaqcJ269kaf8/AUIztpQoNbZNTG5NysKapHXy\n\ LVI0sxAs4I4jtcE48PEwOVuz6CPw8YVc+oiaN3QhmwHfW2xmth7bh/ZV/mjZ\n\ EYyOf6xCzu73UHqemMJRJ9GcFIGO21dx3i8AqUPtcXOMmxXdHUU80eyRLrg5\n\ wgmFTtNQ/P5yXP96J3LjzqKlNBUdhYnounsN7bdT0HFyE/770HK8+GIRHm4P\n\ QXmgN1J9/VB8NAyttbUDmWQVR5KoHEW99Fc0Fvc3Ra2kttJfNwbyOUpRl+pH\n\ rdpeAQMFnFfhD9v3qw9EGm34lmGZpusDlq/mVgrr0DzAI67oqWTZ631R5gl+\n\ NaDs38t6tYDSiuWjDuTL0T7AyM+nYQexE8lvpbxRxF2kh2DwS6DpEJXCEZ1M\n\ ASal772JcRq4KcIOWZ24PUc7pKevjpZ7PfFbqqeYJ2roiMoNy+BA+e5FWJoV\n\ M73Yaq1oYi3WBRQwAp+egKz3kVG1Hud0kLTeLtDyJrhQaBUMTX7zsDNHQcEe\n\ k158S52Cgq8/sNuLQSeEU7k6EEDRqJ+5Iy+GQTikdyoGhX7MGAtniCmGVDPS\n\ YPYZgnJzUiLaAmehZpUPKrctROZny1EV9Q+0XDqJ9pgL6MxJQLRfIIoG2qPi\n\ bTcLlL3tqnsbZSNcUDbUCTUT3FG7eCHy93yOa0cP4vqhQ2jIjEf7retoy0pA\n\ V0Ea7t8hwPb1Mjz7cgEeffUOHr0fhI5Fs1Ho5YVkzzlIXfVHtFZX6wYwvvm+\n\ IK44GQxbsDMlAnibiwq/1qVUnXqhjptRJpdQxY03Qh08IKjgixFac4Y47xy9\n\ meI3Az59Xz3VJFJePRVPDSqHaIQlQkH+CknMqVaR2RP2mSP9FRdT+2lXbcM6\n\ UNx81MlsP77vmTDKmeFZKKM2bMoY1CjlE8CXU8WBl/eDsLyqaCkF1w0HJrfW\n\ zOOzWq0yT9ekuuthY1GS8fYl9Z4Ta/E0KHc9dGJ1DNN601ovtzEJEG3kzMra\n\ TPb6OHL20CpD/d5gtGDtKBI1PNTDZCBuBmYtKEV4GieQbQ8ytTtIL1FrFfH8\n\ sE5Pq738rK5Ikn4CyiTx/bSaMNi3zUx6crX2Ag0SzSnpxQOxNJ/hlmpzjiZh\n\ q6eNTSbHnrYgub3DOFQNc2GdWgniDhDy9wTReqkM0ByBXLqsI3SG40e/iY7B\n\ tD1arsahaYUXKld6oWCTP9I2B6Puyj48iDmHhynR6L6djATfIFTa2KN2hCtq\n\ 3nRF9RBnNLztgjYfP5T9+U/IuXgcxWkJqElJwO0TJ9GQHofHZel4mHcdj4uy\n\ yGcWqt8LQMOKaahb4YOWBd7oeMcXLZ6eKPaYiTTP2UhethzFP/1EHOoaNh/1\n\ YWPmUXKlZsGUJtN5slpkgEmK8L4TFfFr3n9M467shKuwVitl1Z+MMmkdWClh\n\ cul4FKVYxgbOjLDZS3S7ZRdZOLpquK1HT7a1yptmp16NnTcO3KbB3MaQVrWU\n\ B4qhDAXuOD283wRDhbMo4jtvQY7RMvL1gNsz+WYB3cSuZPnwmbJ4xmGZtWUy\n\ AGIUs5YnqmjWqOMf6qCOmhVrI2NBNolkxoz3mA/Uh7mF9RZu+wmWglQ936tO\n\ 26T5xc1q5hDfGJ/eMFKdvT2hITtvippT6uGnN7jS41FKU6dD9Ed5f5ODTOLK\n\ 8asdZJIDrNwFI+laIV0rRqVhYFQ4C6MELBQrYJjKI6WP+TEefsJVTOOAZXSQ\n\ 6Q3N0z9aZ8cMT9ToTxBNlPKIAQ/enyL0CkJQIJ//NujbHuviwGZ8mmlQX/jR\n\ 7FzRoGJ1G1svwzStB0MWTTWtHMPr+WwTp0Ksgpt4nHu2nKFUzy1nvrtLlDCF\n\ fD4GjYPzgzSD86akpxVyobRQs5TjCP3NNcvvRFPDEY3f/jvKF89BxQfEbPjY\n\ Fzf+tAgNsT/gfmwEniRF42l+GmJ9glA6wF5SZBXDndAwZRaqP16DrEN7cCsm\n\ Em0FN9GZn4mGzOu4G3UJVdEX8aIkBU8Lr+GXiix03yGmxoa5aJ7rjOoZDqhz\n\ cUbT9KmodvRAqeNUlLt7IN9tOjJnzEbGu6tQcuoMjeErdytouWB8sdVC8rCs\n\ VHCnGBRWih5mZ565+ucAaYQ6otFBLRv92ehBki6nBSkGCHu19PdYMDdZ76Na\n\ KwdtBRwydv30wFWp7BoyTBOtIGuxAjEqwfubO5/yNmDjGAJbTxAEIkYHGM08\n\ l3yYt1Nwj6XbY2i5ISocFTcSULYMYN3IxDBm3UbVMQKW6kUmUK2PaVB0JyV5\n\ Mu8o1WUn1lq0Kgal1C5pq0E4Pi00ZSkKSJm6JmweYTu2EE/QZEEveB4boEQZ\n\ BrLoNmwOtMKFKKoLUAxGsJVKksIWcnNGBlcr4nFKY6Vs/v4Rni4bGfRdvzmH\n\ wycvl6QcrX2puyd6vpfCePGZXzhB8xGyTK/tmqvWWuXnM4o114l5aFiIFrM6\n\ 3lSkzR15bh2IB5j4tifaPq1DvHuEpVkya9DEfSKqKgVyVddoiPFv8WoTdppd\n\ sp9IE5Rirao4DBre0iGYULINRt5FVFZuQ3k16rXsBx4M4MeThCZ1XGLiBSGm\n\ 2OId0ZdrenjblH5+Jwotp+98Y0mr7kuxVoI2vFrz29gGqbax9a6z9bOer2ro\n\ RWOpsCUYDPKGNuIR1daidN5clHi5o2DJbGSFeiN5zUI0xfyArovn8DghGo9v\n\ peK8TwCSB0xEkcM0lK1aiuw9u5F+6hhKoiJRGX0Z1QmxaM5KRmtOCqqvxuJe\n\ VAQe5ybgaU4cXhTdQHdeBurX+OPhInfUudmj1sEOdU72aBpnj/Kxdihxn4IK\n\ x2modPBAleMUlMz0Qv77a1B58RKa75ZwfSTceqYIn6dRFcnVpDoOPVDlqisX\n\ TgmnZ1lYwWjdmtXH1oOtVWF+ZjzoREzldSvwJeOi3l9V6pcv0BKvIaPYQctT\n\ E8AgTX1sRwnkh65XupivzivXdhgwzTBVvFCRMy0RZaOHPUHAclRBwjD1aoAs\n\ eel+MQ5M9Oo3mVr58RCV5y3eXEbbpkyysL2YpoTezNCrWB7WZvBZrmeosjlR\n\ uU6T1MkDH2baMBeIMDzZoJhgpDnRKOmJBeE4gmGESLbXZCGbuF9NFZVRhiXJ\n\ Y9Y6sFKQ2eD8qKhtB5pJE2PXo3pZVisfh1Ku0qgqm6rRxjCNtHEa9Rle/kB/\n\ eQtiYP6XkZ9G9zxo8TZAVJN2qP/qC9Q5uCFv+hSkOrvjirMzEkMD0CipybPo\n\ IH5TY1I8TnrOQeIsT2R/sQWpR35Aaewl1F+Lwb0rF1F8Lhy3T51EfvgZVMZH\n\ oSI2ErdOnUBj3AW0J1zA45vX8CjnBsqW+qNzsSdqpriiaMYM5AQEIv+jjcjb\n\ uhU1sXGoTUiwIG/x1GJOiEP9lSjUxpD+v33LMKSmHAKU1JehHUqnyWBDhaef\n\ 4sZp9mJmcccKr5nPDMXdMHBUBhrQZ2Bpq1tzMvVgvEYtWsE+FtzTZMWphxki\n\ XCdjboaI17W97hlieMURtUU8XmGGiAsVPL7jI8wac8e+B5meIfJps4mo/8f3\n\ uDdtCjLsXBEz3hHR4+0RYTsJMSF+qL78PZpOH0fJyRMoOXMKl0OXIXXvlyi5\n\ GoGugmt4Up+Dpw3ZeFCeIW08qE+ORknEaWQdDUN62GFkHjmEguNHiTFwGm3J\n\ sejIvoHCBYEo85uN3LlzUfTPA6gm3sdgPsIZ0OgB0kp1HRX5rvjW+s1ZPU8G\n\ EQPtlXmlM1w+l4ei2CAzSRQC+zoBelxIp/lHaswBdvGWPhbB9qD1eV7wTc7c\n\ 4BdHlDjK+EgRN0Pz5be+zgz9Pi71tdfytQHad1dxC53o92lMUJWVw5Vv4kIk\n\ 529kL6oj7PgwXnpze5GZ+TKMz5fiu6he+yFKxjngwihbRA21RdJbtrg4wRZH\n\ xk5AuK8nyi/uw60fD6Do6BGUnjiK8sjTaMpNROfdZHRWpOI+fZVcQ3tBAppS\n\ o9GcEYP2zEjURp9CHt3Q8/0+pJHyBWdOkCF6E48qypDj74lcr1koJNN/KCPT\n\ WJdbKYaZGQtFmC/qAaqst8lgw4IiBEY79UsmtE3eoUb7STWmDMUWyaLic9rc\n\ 8JVu6SWTlcbnTGYeqYkjeqNdb9v10JqpI/M8+MJtHREtRgn5ejMnhMtZ5VIG\n\ c3E4a13rEldKG3UvF5sc/MbleLyAxrb9WB5zV3cO1uCHjfghvPPp312kpiF3\n\ 336kEBsq194d16Z4ISF4MeJ95yNj1RpELwrGURc3XBo2Adl/+QwNyQQd7pXh\n\ eXMtXnQ04vmDFjx/0olfXnThxfMu/NLdghcPGvG0rQFPW+vwrJ28mqrwuKYC\n\ XffK0VxSioctzfjff/0L98KOINXFGal+fii/dMlF363GwUR5b65+CHMxzzM1\n\ FqbID+QZJNo8f+jL6HESpMgvQB1lMALoryca+VTS7of2pibE+wfh+uIlKPru\n\ W9QmJ6OpqpL+XQRT3ONQX1qKhPnBuDJ0DA7a2SHhkw9Rf+wA6k+GoSHyJNqu\n\ R6Aj/QraUiPRlhIl/QFA6/WzaLl0DA3hP6HhzCE0njyIhhNHyPejqAo7hEp6\n\ O+3mT3BmsiNibe1w1dsH5REXdf/SYFf6KwYvkW4yz9vbUUEGdkdrMwsFjUNF\n\ Zjay9v2A88uXYY/tWJyeMRn1871Qs2Y+2veuxrP9a/DrpW34NX4Xfo3YjF8S\n\ P8HzCx+ge9McdITOQss77mgOdEJ90DQ0zJuOkhnuyCQWfDyh75ytI85NoP/j\n\ 4YbiY8dUdPINOSKdo6WPMYhasRz7x41BjvdUNPrOQdvGZXj+40Y8/XIlnn6/\n\ Bs//thq/hq3Drz+vxvO9y/BwexC65ruie90s3A/xQHWgJxrnTEOd73TcneqO\n\ PCc3xBPb6cTvHRA5xhbpa9cJ/1chuzJsLIxDc0MjjgUE4MTbY1A30wst7wbj\n\ 0ZbleLrjPbz46yp0bQ7B412hePJREF78JRhPvluGzp0haJnvhqZZ9mj3Iuou\n\ 0BuV7tNQM88PZZ4zUeLshqIpU5E82Rkxb01CwsLF0mDREzFbTURJYiLO2k5E\n\ rq0TGmcGoHvVMjzasBgPPghB658WozYkAA3Lg9AW4oknOxbi8RdL0b7CD60B\n\ 09Hg7oAqRzuU+/uhZO/fURUVhbzdu5GxYiVuE2nedXNHylhHhA2fgJt79poi\n\ 4k2UXo5C4mQ7VPqQBwsX4KGnPxpDl6Jowzrc+frfcffIYeRsWI+8QD/UB/vg\n\ 4ao5uP9+ANpme6DRwxllzq6oPHuG33rRWluDsrNncYtOLA+im0bbIXyWD/0X\n\ FoEGL5GGfohbvRoZpPu6/PzRvTwYLZ/tRF1ykvRXLhZsbrZUVODGH99HDmGu\n\ KcQbD5YFoH2GB1odHXH7ncWoy85WdrHRqVtMhl7yHH/ETHJG9nd/NW5cVtw2\n\ qL99S5rnNa6ziGQXoy09DR2NjdbMqKHtpq9di4Jp09E0w5M4sVNQN2yi5EwS\n\ +rjPU020Q9bHmxDn7UtqzNO35im2ZoWcnZ8j02MmKvwXofFmbn9GRG1GhnSd\n\ ceWsaah2ckXZZBeUnTo1gJWiDGV/uh03v/qLNL+V2mfJtfP/NpL+yuadJcib\n\ uwA1t28PZPIoOnQYucSpbrJzQlXoe9J+Y25h1RBA6Wht1U9T6W2mWK8lSo4f\n\ R0ZIMOrulrKCVqRHc5HiE4B6W2eUvv+Bvuw8uexb3DIhqJW6Zi0qU1KU/16g\n\ aVlbP0UxQbDCzVuMyvJ2O5qbFXXPAbLqejLSZsym/z2iMypoxzLRXkte/A5S\n\ V682zmTPMmX+aROuL1thwPpcOZPud/8HKWwI5g=="], Evaluatable -> False, ImageSize -> {616, 41}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0], Cell[ BoxData[ GridBox[{{ Cell[ GraphicsData[ "CompressedBitmap", "eJzVV0tIVFEYvs4dx9FkFtZCAh+LyhLMDDNNXJio+UILKqOVqOHbUtEEH5BR\n\ ahmC2MuQHhNFJpJIUFRChK4qNwWuWrSsdfjI/s5/zn/unHvnTpoMRBfunfP4\n\ H9/3/+f850xJRVtNdWNFW21lRXx+S8XZmtrK1vi85hY2pIdomjbP3th4DdvA\n\ mvSZh56eHja5/k8W/9HB6/XC7Owsvto5/hVjbJZLbDWLo+hSezS+TBy/Yux/\n\ E9f5NxJWZmoAHxzHZ/l+AW+vvD5v7gs5B3ac2NLchg7OYXvt+2f4uTgl9bis\n\ FgGrC3f4lDSDbXzWvr71M625TBbx/fXjG6rIaRWwAkAnVoq24CjAhv+RIP1q\n\ DlKTiFHTwb9ibKk3Bo0LN+y7fCsT6CG5UAOfZIjyWzaTG5d/bibKEYLw5BRd\n\ a/wiueTq3CAHh68pS/07DdKYKUbKgYMsSxhmjIl0im1uws6L05QlnmuBCR34\n\ SZuzYjcmGLsDYjcx13mX4GsCf7iBX8UuVQkNk2Wj6IzlkVzRmBJsxsCIwUxN\n\ RJC2FaHAFWEQ2kicXAYhjAs3ycAzdaeMxXAyX6vMMsafqXgC7RHeRjMoz+NF\n\ Y5vKlp1cqB1ZDLHE6+Z4/ZajL0e6ylqpAhaImH2qKWJvBydFGBSjINikSG58\n\ dE96tPEjjDG5uHABYt5k6aMFt5EcybXM65BdlQzzi49EzbyJZSCgelSo9hTt\n\ 4Qp1p9W9bo2Cb2tR6ZSrNHiJQQhqEG33TpSMr6gdbJHZ1j1S5cUDNwIWaEZa\n\ nl6sv15+jLpCtZHL+GqGQ6lkan4kCUIhuEYHBB2Isx1w7kqteCy7NrtJdRPs\n\ 3aSr4aIdkWCAlgTQu1wfvLpTVmyzphBSzhm+fLk+ydodV4H8oCwdEbhee2NY\n\ miU2tfxLvwYuSjO2KVS6Uu4s8Im+x49+IAoWug5+ZfCYFp9SP6w5DMqBFeq/\n\ 6VgdUWs/lQy6+viOS/mYyoZLVB1WWWRBpEucTrcHyzVQnA2hKg15mTQOFlzx\n\ SsHhQXKSN3nx5BH27QKlZDtNu0m5TkpuFqAmVUnGvwYK16Yrn+j/5Y3vn/01\n\ iCfx8YIi6G9q4r3tmzNxLy8fBmtrTSY2+OcqjsQvtrfDo+wcGCsp1R6qU064\n\ 0tAAk4eywJuTC30dHV7z7EBjIzxOTYfpjCwYqK/3kL2e7m7D1YjQiOE/Lj41\n\ erIchhjiuwl74d3+DBg/eiySNK8yg7dPnYberi5tVGjGkuaD3HzwVp+BqT1J\n\ 8CElDV4UF8JwVWUEaV5jmpOHc2Gkqkq7rmqGwQSj9jEtHV4lJ8JcUip8Kj0C\n\ 02VlcKGzk50YgslQfT08O5AJT7Ky0TlZ2EbGL7e2wmBTs+TAvm641NcHLwtL\n\ YDFqBzzdvQvepxyEL8VFsFBUDDfr6sIUw2/2ZcDzuEQYO37ihjCshfwGPGMf\nPw=="], Evaluatable -> False, ImageSize -> {199, 30}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJylVb1uAjEMDuSAUqTr1J234A3aqQ9xQpVgqFpRZkZWNkZWRkZmRkZmVkZ2\n\ xtSfY0e+9MrSSLkY27E//4W3aj55/6jm03E1fJ1VX5Pp+Hv48jkjlm8550a0\n\ y6EDHYiUzygsFgsS1o42Hw9hs9mE6/UasHCu12tI+KTVYbUy7Ha7pIZ1uVys\n\ GtPL5ZJpmLzdbrgTvXgrol+0XBHO5zOr4irtyO7zTWHx3u/3CRTo1Wol4FMM\n\ WBBB5Xg8MlDQsE6rYLUnjkFVIdputwm7qCYvigLmCCi5AvSSZapnbUFPY89l\n\ hN4zhE44HA4J3el0EtMcjHusAUHG8gTX4ikZIwxqpmwM1gwcqh7xC8k//CtU\n\ YrcFIthaXS1Z7IJuKiMyqcBI3pIIvHUtcRU5rDYLe4zKZgvVkLS4qJObw3eA\n\ +qeIkQG9Z20obm0/U2lpP5/CB09jRxW18mhPyoO7F9xzY87zNrTIgF56ovEO\n\ PGri8BsoRSeyB7U2w7ZtbNsOg1JIYCioBixtczewwZ+BWW9IEcrVES8NerUu\n\ gGcZqMju/womz5vtPnWNHOqMUkf+v0AohmIDDT19T/I7pBc90Rd3ZBycrY5W\n\ AEOn49JUHW+qowMKm6STXgVvX4GUTfsqEB1no8uXbTZBk3EdJ9RLbsgY9FJj\n\ 6kaXyMMRvelzjWRpIInt01MRX+KGPxo5XOsHSMiAwg=="], Evaluatable -> False, ImageSize -> {55, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], Cell[ GraphicsData[ "CompressedBitmap", "eJzzTSzJSM1NLMlMTlRwL0osyMhMLlZwyy8CCjEzMjAwMAExnwIDiP0fyIQS\n\ jP9bWloY/8+ZPZuBgfF/V2cn4//VK1cOFnZ7ezvj/+XLlgFdyggAJaVbgQ==\n"], Evaluatable -> False, ImageSize -> {2, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonBox[ Cell[ GraphicsData[ "CompressedBitmap", "eJyVVj1vIjEQ9bIBRKKjyClFOn5NUvEjUBQpKU6JctSUtHSUtJSU1JSU1LSU\n\ 9JTOPHued0x2SWJpWXvGOx/Pb8YMR+OX53+j8evTaPD4MXp/eX36P3h4+xBR\n\ WTjnhvL0Bw5zL1P9GfrJZCLK7NUKr9LP53OPgVWQlVi5O386nbC0G/x0Og3z\n\ xWKRybHGgN7KMYcdjPV67TrBzZXfbreeQ+aMBQOfYMWty+UybZV5S5XH4zGJ\n\ xTK9xeB7/nA4BBEfbFHLYT6bzVyRA8EcEhDuPllnvjZXmiJOVs78VqtVJocN\n\ yJgUwrgKvnrBFrISWXhgd7PZhO8Uc9dVUBQM2onhdlOocKHm6V5SgoFekFlk\n\ 4AJuMd/tdn6/33+PTJlYUMn6GQtgktFbBJAVdOKG8lJNGnIlULCVx3seLfd2\n\ lBLWjdFH8+2MuwSlc6YDcMpfAQHGm0GIVCsDaJplxMVdJ5D5EWuCbz03Zg4T\n\ yErC0My7aRuzIWUS/PJLgKtDaEShpZlCDVcEsYq6zlysVDJczqxAZV1ixt+s\n\ Zs5xYG2wPCmHZzACMuiwjqSNfqDT2pAcILu5BFAWQwVqvwmcVMsYOAzwwcTX\n\ UpgotgAhXFJAgCoQ+29L5zYLzCZCOZIHORko25/dI+B0GsqGn3wtm95FTBRH\n\ V9ak09Zf08vYD6V2gLoTNrDrEV3Lip8wxXRXASvylMcANlBmbqrY6kgTUAlG\n\ 2FYtNGcBpK7zHSQSmCMnTNCNPZaUZgMEpNpj1YJekikdFkidTNLUkm2nAmBj\n\ QfcutYNgv82ClxIquO4ilghrG1vF0z/Z5U40eDEiFl72X2PN7cWLzNX+M3HF\nJ/Rd8Mk="], Evaluatable -> False, ImageSize -> {77, 14}, ImageMargins -> {{0, 0}, {0, 0}}, ImageRegion -> {{0, 1}, {0, 1}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "SlideShowHeader"->{ Cell[2255, 69, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[4149, 119, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[7286, 189, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[11869, 296, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[16917, 430, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[27299, 672, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[28886, 717, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[30822, 773, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"]} } *) (*CellTagsIndex CellTagsIndex->{ {"SlideShowHeader", 69415, 1509} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 175, 3, 83, "Title"], Cell[768, 28, 332, 7, 49, "Subtitle"], Cell[1103, 37, 128, 2, 28, "Subsubtitle"], Cell[1234, 41, 220, 3, 28, "Subsubtitle"], Cell[1457, 46, 761, 18, 80, "PreviousNext"] }, Open ]], Cell[CellGroupData[{ Cell[2255, 69, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[2344, 74, 147, 2, 71, "Section"], Cell[2494, 78, 842, 15, 101, "Text"], Cell[3339, 95, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4149, 119, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[4238, 124, 103, 1, 71, "Section"], Cell[4344, 127, 2129, 36, 227, "Text"], Cell[6476, 165, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7286, 189, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[7375, 194, 92, 1, 71, "Section"], Cell[7470, 197, 866, 13, 65, "Text"], Cell[CellGroupData[{ Cell[8361, 214, 969, 19, 19, "Input", CellOpen->False], Cell[9333, 235, 1711, 34, 157, "Output"] }, Open ]], Cell[11059, 272, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11869, 296, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[11958, 301, 130, 2, 71, "Section"], Cell[12091, 305, 529, 18, 29, "Text"], Cell[CellGroupData[{ Cell[12645, 327, 1357, 33, 19, "Input", CellOpen->False], Cell[14005, 362, 2087, 41, 704, "Output"] }, Open ]], Cell[16107, 406, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16917, 430, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[17006, 435, 103, 1, 71, "Section"], Cell[CellGroupData[{ Cell[17134, 440, 6419, 144, 19, "Input", CellOpen->False], Cell[23556, 586, 2918, 59, 724, "Output"] }, Open ]], Cell[26489, 648, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[27299, 672, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[27388, 677, 162, 2, 71, "Section"], Cell[27553, 681, 520, 10, 137, "Text"], Cell[28076, 693, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[28886, 717, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[28975, 722, 102, 1, 71, "Section"], Cell[29080, 725, 253, 5, 29, "Text"], Cell[29336, 732, 630, 14, 125, "Text"], Cell[29969, 748, 804, 19, 35, "PreviousNext"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[30822, 773, 64, 1, 4, "SlideShowNavigationBar", CellTags->"SlideShowHeader"], Cell[CellGroupData[{ Cell[30911, 778, 153, 2, 71, "Section"], Cell[CellGroupData[{ Cell[31089, 784, 16141, 328, 1552, "Input"], Cell[47233, 1114, 2778, 53, 531, "Output"] }, Open ]], Cell[50026, 1170, 761, 18, 80, "PreviousNext"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature Rx0@Vj3lQUEXXDK8WFRejI6i *)