(* 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[ 54081, 1429] NotebookOptionsPosition[ 52251, 1362] NotebookOutlinePosition[ 52692, 1380] CellTagsIndexPosition[ 52649, 1377] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", "Graphics`Arrow`"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"obspkg\"\>"}], RowBox[{ ":", " "}], "\<\"\\!\\(\\\"Graphics`Arrow`\\\"\\) is now obsolete. The \ legacy version being loaded may conflict with current Mathematica \ functionality. See the Compatibility Guide for updating information. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:Compatibility/Tutorials/Graphics/Arrow\\\", ButtonNote \ -> \\\"General::obspkg\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.434667234355075*^9, 3.46140402512547*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Example 1: The Unit Circle (first parameterization)\ \>", "Subsection", CellChangeTimes->{{3.4614040286091757`*^9, 3.461404032066456*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"x", ",", "y"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Cos", "[", "t", "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sin", "[", "t", "]"}]}], " ", ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"POSITION", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Hue", "[", ".7", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "24"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664754266116*^9, 3.434664824676796*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 18.910088348388673`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 24}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$1831$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$1831$$, 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" :> Show[ ParametricPlot[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{0, 0}, { $CellContext`x[($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi]}], Hue[0.7]}]], "Specifications" :> {{$CellContext`k$$, 1, 24, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664797059045*^9, 3.434664826225231*^9}, 3.4346650624059057`*^9, 3.434667242662797*^9, {3.461404010897703*^9, 3.461404034253975*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "24"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.434664847352062*^9, 3.434664921883497*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 16.561220455169675`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 24}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$2243$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$2243$$, 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" :> Show[ ParametricPlot[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x[($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x[($CellContext`k$$/24) 2 Pi] + Derivative[ 1][$CellContext`x][($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi] + Derivative[1][$CellContext`y][($CellContext`k$$/24) 2 Pi]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, 1, 24, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664905364333*^9, 3.4346649231030073`*^9}, 3.434665064034347*^9, 3.4346672441153183`*^9, 3.461404039053685*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "and", " ", "ACCELERATION", " ", "VECTOR"}], " ", "*)"}], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", "t", "]"}], ",", RowBox[{"y", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x", "''"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y", "''"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "24"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664951080441*^9, 3.434664986038628*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 4.311036109924316, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 24}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$2468$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$2468$$, 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" :> Show[ ParametricPlot[{ $CellContext`x[$CellContext`t], $CellContext`y[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x[($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x[($CellContext`k$$/24) 2 Pi] + Derivative[ 1][$CellContext`x][($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi] + Derivative[1][$CellContext`y][($CellContext`k$$/24) 2 Pi]}], Hue[0]}], Graphics[{ Arrow[{ $CellContext`x[($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x[($CellContext`k$$/24) 2 Pi] + Derivative[ 2][$CellContext`x][($CellContext`k$$/24) 2 Pi], $CellContext`y[($CellContext`k$$/24) 2 Pi] + Derivative[2][$CellContext`y][($CellContext`k$$/24) 2 Pi]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, 1, 24, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664961324266*^9, 3.434665066197682*^9, 3.434667245112989*^9, 3.461404041763566*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example 2: The Unit Circle (second parameterization)", "Subsection", CellChangeTimes->{{3.434665024173588*^9, 3.434665028011581*^9}}], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"x2", ",", "y2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x2", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Cos", "[", RowBox[{"t", "/", "3"}], "]"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"Sin", "[", RowBox[{"t", "/", "3"}], "]"}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.434665031285202*^9, 3.434665057612522*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"POSITION", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Hue", "[", ".7", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "72"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664754266116*^9, 3.434664824676796*^9}, { 3.434665072368246*^9, 3.43466508857617*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 55.06204597854593, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 72}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$3673$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$3673$$, 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" :> Show[ ParametricPlot[{ $CellContext`x2[$CellContext`t], $CellContext`y2[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{0, 0}, { $CellContext`x2[($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi]}], Hue[0.7]}]], "Specifications" :> {{$CellContext`k$$, 1, 72, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664797059045*^9, 3.434664826225231*^9}, { 3.434665080925549*^9, 3.4346650890271473`*^9}, {3.4346651282411118`*^9, 3.434665131261736*^9}, {3.4346651729337473`*^9, 3.434665177913207*^9}, { 3.434665759343339*^9, 3.43466575977339*^9}, 3.434667247562641*^9, 3.461404058540523*^9, {3.461404131401053*^9, 3.461404131902211*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x2", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "72"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.434664847352062*^9, 3.434664921883497*^9}, { 3.434665143515429*^9, 3.434665166968133*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 48.56821405792236, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 72}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$3979$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$3979$$, 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" :> Show[ ParametricPlot[{ $CellContext`x2[$CellContext`t], $CellContext`y2[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x2[($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x2[($CellContext`k$$/24) 2 Pi] + Derivative[ 1][$CellContext`x2][($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi] + Derivative[1][$CellContext`y2][($CellContext`k$$/24) 2 Pi]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, 1, 72, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664905364333*^9, 3.4346649231030073`*^9}, { 3.434665167748599*^9, 3.434665186745707*^9}, {3.434665763264104*^9, 3.434665763695283*^9}, 3.4346672491565332`*^9, 3.4614040627258863`*^9, { 3.4614041392639027`*^9, 3.461404139663075*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "and", " ", "ACCELERATION", " ", "VECTOR"}], " ", "*)"}], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", "t", "]"}], ",", RowBox[{"y2", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "0.001"}], ",", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}]}], "}"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x2", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], ",", RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"x2", "''"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}], "+", RowBox[{ RowBox[{"y2", "''"}], "[", RowBox[{ RowBox[{"k", "/", "24"}], "*", "2", "Pi"}], "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "72"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664951080441*^9, 3.434664986038628*^9}, { 3.4346652009896803`*^9, 3.434665230062554*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 4.368456523132324, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], 1, 72}}, Typeset`size$$ = {540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$4171$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$4171$$, 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" :> Show[ ParametricPlot[{ $CellContext`x2[$CellContext`t], $CellContext`y2[$CellContext`t]}, {$CellContext`t, -0.001, \ ($CellContext`k$$/24) 2 Pi}, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x2[($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x2[($CellContext`k$$/24) 2 Pi] + Derivative[ 1][$CellContext`x2][($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi] + Derivative[1][$CellContext`y2][($CellContext`k$$/24) 2 Pi]}], Hue[0]}], Graphics[{ Arrow[{ $CellContext`x2[($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi]}, {$CellContext`x2[($CellContext`k$$/24) 2 Pi] + Derivative[ 2][$CellContext`x2][($CellContext`k$$/24) 2 Pi], $CellContext`y2[($CellContext`k$$/24) 2 Pi] + Derivative[2][$CellContext`y2][($CellContext`k$$/24) 2 Pi]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, 1, 72, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664961324266*^9, {3.434665231902094*^9, 3.434665235416263*^9}, { 3.4346657695399*^9, 3.4346657734771223`*^9}, 3.434667250274386*^9, 3.4614040648745117`*^9, {3.461404147740593*^9, 3.461404148041039*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Example 3: The Unit Circle (third parameterization)", "Subsection"], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"x3", ",", "y3"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x3", "[", "t_", "]"}], " ", ":=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"t", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", "^", "2"}]}], ")"}]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y3", "[", "t_", "]"}], " ", ":=", " ", RowBox[{"2", RowBox[{"t", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"t", "^", "2"}]}], ")"}]}]}]}], " ", ";"}]}], "Input", CellChangeTimes->{{3.434665254128829*^9, 3.434665258283855*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"POSITION", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "t", "]"}], ",", RowBox[{"y3", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "20"}], ",", "k"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "k", "]"}], ",", RowBox[{"y3", "[", "k", "]"}]}], "}"}]}], "]"}], ",", RowBox[{"Hue", "[", ".7", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "19"}], ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664754266116*^9, 3.434664824676796*^9}, { 3.434665072368246*^9, 3.43466508857617*^9}, {3.4346652934487057`*^9, 3.434665457948588*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 13.689799880981447`, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], -19, 20}}, Typeset`size$$ = { 540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$4406$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = -19}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$4406$$, 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" :> Show[ ParametricPlot[{ $CellContext`x3[$CellContext`t], $CellContext`y3[$CellContext`t]}, {$CellContext`t, -20, \ $CellContext`k$$}, PlotPoints -> 100, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{0, 0}, { $CellContext`x3[$CellContext`k$$], $CellContext`y3[$CellContext`k$$]}], Hue[0.7]}]], "Specifications" :> {{$CellContext`k$$, -19, 20, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664797059045*^9, 3.434664826225231*^9}, { 3.434665080925549*^9, 3.4346650890271473`*^9}, {3.4346651282411118`*^9, 3.434665131261736*^9}, {3.4346651729337473`*^9, 3.434665177913207*^9}, 3.434665303015024*^9, {3.434665336891357*^9, 3.4346653725355177`*^9}, { 3.434665407167932*^9, 3.434665459329517*^9}, 3.434667253607379*^9, 3.4614040678290777`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Animate", "[", " ", StyleBox[ RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "VECTOR"}], " ", "*)"}], FontColor->RGBColor[1, 0, 0]], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "t", "]"}], ",", RowBox[{"y3", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "20"}], ",", "k"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "k", "]"}], ",", RowBox[{"y3", "[", "k", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"x3", "'"}], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{"y3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"y3", "'"}], "[", "k", "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "19"}], ",", "20"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.434664847352062*^9, 3.434664921883497*^9}, { 3.434665143515429*^9, 3.434665166968133*^9}, {3.434665472608245*^9, 3.434665543897056*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = -9.12567768096924, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], -19, 20}}, Typeset`size$$ = { 540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$4577$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = -19}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$4577$$, 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" :> Show[ ParametricPlot[{ $CellContext`x3[$CellContext`t], $CellContext`y3[$CellContext`t]}, {$CellContext`t, -20, \ $CellContext`k$$}, PlotPoints -> 100, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x3[$CellContext`k$$], $CellContext`y3[$CellContext`k$$]}, \ {$CellContext`x3[$CellContext`k$$] + Derivative[ 1][$CellContext`x3][$CellContext`k$$], \ $CellContext`y3[$CellContext`k$$] + Derivative[1][$CellContext`y3][$CellContext`k$$]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, -19, 20, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664905364333*^9, 3.4346649231030073`*^9}, { 3.434665167748599*^9, 3.434665186745707*^9}, 3.434665545368245*^9, 3.434667254982307*^9, 3.461404070299979*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Animate", "[", " ", RowBox[{"(*", " ", RowBox[{"VELOCITY", " ", "and", " ", "ACCELERATION", " ", "VECTOR"}], " ", "*)"}], RowBox[{ RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "t", "]"}], ",", RowBox[{"y3", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "20"}], ",", "k"}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "100"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Hue", "[", "0", "]"}], ",", RowBox[{"Thickness", "[", ".0075", "]"}]}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "k", "]"}], ",", RowBox[{"y3", "[", "k", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"x3", "'"}], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{"y3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"y3", "'"}], "[", "k", "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x3", "[", "k", "]"}], ",", RowBox[{"y3", "[", "k", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"x3", "''"}], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{"y3", "[", "k", "]"}], "+", RowBox[{ RowBox[{"y3", "''"}], "[", "k", "]"}]}]}], "}"}]}], "\[IndentingNewLine]", "]"}], ",", RowBox[{"Hue", "[", "0", "]"}]}], "}"}], "]"}]}], "]"}], " ", ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"-", "19"}], ",", "20"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.434664951080441*^9, 3.434664986038628*^9}, { 3.4346652009896803`*^9, 3.434665230062554*^9}, {3.434665568611068*^9, 3.434665693615683*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`k$$ = 10.3623646736145, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`k$$], -19, 20}}, Typeset`size$$ = { 540., {260., 271.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`k$4748$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`k$$ = -19}, "ControllerVariables" :> { Hold[$CellContext`k$$, $CellContext`k$4748$$, 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" :> Show[ ParametricPlot[{ $CellContext`x3[$CellContext`t], $CellContext`y3[$CellContext`t]}, {$CellContext`t, -20, \ $CellContext`k$$}, PlotPoints -> 100, AspectRatio -> Automatic, PlotStyle -> { Hue[0], Thickness[0.0075]}, PlotRange -> {{-1.5, 1.5}, {-1.5, 1.5}}], Graphics[{ Arrow[{ $CellContext`x3[$CellContext`k$$], $CellContext`y3[$CellContext`k$$]}, \ {$CellContext`x3[$CellContext`k$$] + Derivative[ 1][$CellContext`x3][$CellContext`k$$], \ $CellContext`y3[$CellContext`k$$] + Derivative[1][$CellContext`y3][$CellContext`k$$]}], Hue[0]}], Graphics[{ Arrow[{ $CellContext`x3[$CellContext`k$$], $CellContext`y3[$CellContext`k$$]}, \ {$CellContext`x3[$CellContext`k$$] + Derivative[ 2][$CellContext`x3][$CellContext`k$$], \ $CellContext`y3[$CellContext`k$$] + Derivative[2][$CellContext`y3][$CellContext`k$$]}], Hue[0]}]], "Specifications" :> {{$CellContext`k$$, -19, 20, AppearanceElements -> { "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", "DirectionButton"}}}, "Options" :> { ControlType -> Animator, AppearanceElements -> None, SynchronousUpdating -> True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}], ImageSizeCache->{587., {306.5625, 314.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.434664961324266*^9, {3.434665231902094*^9, 3.434665235416263*^9}, { 3.434665675229199*^9, 3.4346656950455647`*^9}, 3.434667256130287*^9, 3.461404072304483*^9}] }, Open ]] }, Open ]] }, WindowSize->{930, 1014}, WindowMargins->{{Automatic, 133}, {Automatic, 0}}, DockedCells->FEPrivate`FrontEndResource[ "FEExpressions", "CompatibilityToolbar"], Magnification->1.5, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 59, 1, 40, "Input"], Cell[652, 26, 592, 11, 80, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[1281, 42, 150, 3, 51, "Subsection"], Cell[1434, 47, 373, 10, 89, "Input"], Cell[CellGroupData[{ Cell[1832, 61, 1896, 55, 156, "Input"], Cell[3731, 118, 2362, 50, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6130, 173, 2654, 73, 202, "Input"], Cell[8787, 248, 2605, 54, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11429, 307, 3791, 106, 248, "Input"], Cell[15223, 415, 3027, 64, 646, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18299, 485, 141, 1, 51, "Subsection"], Cell[18443, 488, 493, 13, 89, "Input"], Cell[CellGroupData[{ Cell[18961, 505, 1948, 56, 156, "Input"], Cell[20912, 563, 2559, 52, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23508, 620, 2711, 74, 202, "Input"], Cell[26222, 696, 2739, 56, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28998, 757, 3856, 107, 248, "Input"], Cell[32857, 866, 3167, 66, 646, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36073, 938, 74, 0, 51, "Subsection"], Cell[36150, 940, 689, 22, 89, "Input"], Cell[CellGroupData[{ Cell[36864, 966, 1843, 52, 133, "Input"], Cell[38710, 1020, 2594, 54, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41341, 1079, 2288, 63, 202, "Input"], Cell[43632, 1144, 2596, 56, 646, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46265, 1205, 2983, 84, 248, "Input"], Cell[49251, 1291, 2972, 67, 646, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)