(* 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[ 100935, 2127] NotebookOptionsPosition[ 82587, 1806] NotebookOutlinePosition[ 100502, 2113] CellTagsIndexPosition[ 100459, 2110] WindowFrame->Normal ContainsDynamic->True *) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Codigo de Inicializacion \ \ \>", "Section", CellGroupingRules->{GroupTogetherGrouping, 10000.}, InitializationCell->True, CellChangeTimes->{{3.428263238256*^9, 3.4282632633185*^9}, { 3.42826340697475*^9, 3.428263431756*^9}, 3.428712633106996*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"DingraphPlot", "[", " ", RowBox[{"plot_", ",", "fun_", ",", RowBox[{"{", RowBox[{"tpmin_", ",", "tpmax_"}], "}"}], ",", RowBox[{"{", RowBox[{"ypmin_", ",", "ypmax_"}], "}"}], ",", RowBox[{"{", RowBox[{"color1_", ",", "color2_", ",", "color3_"}], "}"}], ",", "tp_", ",", "opts__"}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"fp1", ",", "fp2"}], "}"}], ",", RowBox[{"Show", "[", RowBox[{ RowBox[{ "{", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"plot", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "color1", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"tp", ",", RowBox[{"fp1", "=", RowBox[{ RowBox[{"fun", "[", "tp", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", "color2", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"tp", ",", RowBox[{"fp2", "=", RowBox[{ RowBox[{"fun", "[", "tp", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Medium", "]"}], ",", "color1", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "fp1"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Medium", "]"}], ",", "color2", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "fp2"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Dashed", ",", "color1", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tpmin", ",", "fp1"}], "}"}], ",", RowBox[{"{", RowBox[{"tp", ",", "fp1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Dashed", ",", "color2", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tpmin", ",", "fp2"}], "}"}], ",", RowBox[{"{", RowBox[{"tp", ",", "fp2"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Dashed", ",", "color3", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tp", ",", "ypmin"}], "}"}], ",", RowBox[{"{", RowBox[{"tp", ",", "ypmax"}], "}"}]}], "}"}], "]"}]}], "}"}]}], " ", "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"tpmin", ",", "tpmax"}], "}"}], ",", RowBox[{"{", RowBox[{"ypmin", ",", "ypmax"}], "}"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", "opts"}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tmax", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xmin", "=", "0"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xmax", "=", "60"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ymin", "=", "0"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ymax", "=", "60"}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"pos", "[", "s_", "]"}], " ", ":=", " ", RowBox[{"xi", " ", "+", " ", RowBox[{"vi", " ", "s"}], " ", "+", " ", RowBox[{"ai", " ", FractionBox[ SuperscriptBox["s", "2"], "2"]}]}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.428894085421875*^9, 3.428894112359375*^9}, { 3.42889423996875*^9, 3.428894291953125*^9}, {3.42889433215625*^9, 3.42889435025*^9}, {3.428894406390625*^9, 3.428894413390625*^9}, { 3.42889577590625*^9, 3.42889578603125*^9}, {3.428896026265625*^9, 3.42889602634375*^9}, 3.429110072*^9, {3.4291106011875*^9, 3.429110639203125*^9}, {3.42911081378125*^9, 3.429110814484375*^9}, { 3.429110864046875*^9, 3.42911093715625*^9}, {3.429111765109375*^9, 3.429111772109375*^9}, 3.429112031*^9, {3.42911207678125*^9, 3.4291120888125*^9}, 3.429112301546875*^9, {3.429112561234375*^9, 3.42911256659375*^9}, {3.4291126004375*^9, 3.429112604703125*^9}, { 3.4291129003125*^9, 3.429112909203125*^9}, {3.429122544703125*^9, 3.4291225584375*^9}, {3.42912263596875*^9, 3.429122638796875*^9}, 3.4291228258125*^9, {3.42912301059375*^9, 3.429123018515625*^9}, { 3.429123169609375*^9, 3.429123206578125*^9}}] }, Closed]], Cell[CellGroupData[{ Cell["Funcion de Manipulacion", "Section", CellChangeTimes->{{3.428283296015625*^9, 3.42828330015625*^9}, 3.429110075984375*^9, {3.429111775828125*^9, 3.4291117789375*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ "Manipulate", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Panel", "[", RowBox[{"LocatorPane", "[", RowBox[{ RowBox[{"Dynamic", "[", " ", RowBox[{"{", RowBox[{"x0", ",", "vri", ",", "ari"}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Show", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{"xi", "!=", "x0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"vri", "=", RowBox[{"x0", "+", "vi"}]}], ";", "\[IndentingNewLine]", RowBox[{"ari", " ", "=", RowBox[{"x0", "+", "ai"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"xi", "=", "x0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"vi", "=", RowBox[{"vri", "-", "xi"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"ai", "=", RowBox[{"ari", "-", "xi"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"t", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", " ", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"pos", "[", "t", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"pos", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", " ", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{"Green", "//", "Darker"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "70"}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", " ", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "t", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", " ", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{ RowBox[{"Blue", "//", "Darker"}], "//", "Darker"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{"Blue", "//", "Darker"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "50"}], "}"}]}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", " ", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"pos", "[", "\[Xi]", "]"}], ",", RowBox[{"{", RowBox[{"\[Xi]", ",", "0", ",", RowBox[{"3", " ", "tmax"}]}], "}"}], ",", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.005", "]"}], ",", RowBox[{"Darker", "[", RowBox[{"Darker", "[", "Green", "]"}], "]"}], ",", RowBox[{"Opacity", "[", "0.3", "]"}]}], "}"}]}]}], "]"}], " ", ",", RowBox[{"Graphics", "[", RowBox[{ "{", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Vectors", " ", "attached", " ", "to", " ", "leading", " ", "dot"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Thick", ",", "Blue", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "=", RowBox[{"pos", "[", "t", "]"}]}], ",", RowBox[{"r", "+", RowBox[{ RowBox[{"pos", "'"}], "[", "t", "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thick", ",", "Red", ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{"r", ",", RowBox[{"r", "+", " ", RowBox[{ RowBox[{"pos", "''"}], "[", "t", "]"}]}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"r", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "Large", "]"}], ",", RowBox[{"Green", "//", "Darker"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{"r", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"16", " ", "trailing", " ", "dots"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Lighter", "[", RowBox[{"RGBColor", "[", RowBox[{".6", ",", ".73", ",", ".36"}], "]"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"pos", "[", RowBox[{"Max", "[", RowBox[{ RowBox[{"t", "-", RowBox[{"i", " ", "20", " ", RowBox[{"tmax", "/", "1000"}]}]}], ",", "0"}], "]"}], "]"}], ",", RowBox[{"0.7", "-", RowBox[{"i", " ", RowBox[{"0.3", "/", "15"}]}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Leading", " ", "dot"}], "*)"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Thick", ",", " ", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"pos", "[", "t", "]"}], ",", "1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Vectors", " ", "attached", " ", "to", " ", "every", " ", "second", " ", "trailing", " ", "dot"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ti", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"t", "-", RowBox[{"i", " ", "20", " ", RowBox[{"tmax", "/", "1000"}]}]}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", "showvelocitytrail", ")"}], "&&", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12", ",", "14", ",", "16"}], "}"}], ",", "i"}], "]"}]}], ")"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", RowBox[{"1", "-", FractionBox["i", "16"]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"pos", "[", "ti", "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"pos", "[", "ti", "]"}], "+", RowBox[{ RowBox[{"pos", "'"}], "[", "ti", "]"}]}], ")"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", "showaccelerationtrail", ")"}], "&&", RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{ "2", ",", "4", ",", "6", ",", "8", ",", "10", ",", "12", ",", "14", ",", "16"}], "}"}], ",", "i"}], "]"}]}], ")"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Opacity", "[", RowBox[{"1", "-", FractionBox["i", "16"]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"pos", "[", "ti", "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{"pos", "[", "ti", "]"}], "+", RowBox[{ RowBox[{"pos", "''"}], "[", "ti", "]"}]}], ")"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "16"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"xmin", ",", "xmax"}], "}"}], ",", RowBox[{"{", RowBox[{"ymin", ",", "ymax"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "500"}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"If", "[", RowBox[{"showvelanimation", ",", RowBox[{"Epilog", "->", RowBox[{"Inset", "[", " ", RowBox[{ RowBox[{"Panel", "[", RowBox[{"Show", "[", " ", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ti", "=", RowBox[{"Max", "[", RowBox[{ RowBox[{"t", "-", RowBox[{"i", " ", "40", " ", RowBox[{"tmax", "/", "1000"}]}]}], ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4", ",", "8", ",", "12", ",", "16"}], "}"}], ",", "i"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Opacity", "[", RowBox[{"1", "-", FractionBox["i", "16"]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"(", RowBox[{ RowBox[{"pos", "'"}], "[", "ti", "]"}], ")"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "4", ",", "8", ",", "12", ",", "16"}], "}"}], ",", "i"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", "0"}], ",", RowBox[{"Opacity", "[", RowBox[{"1", "-", FractionBox["i", "16"]}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}]}], "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "ti", "]"}], ",", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "ti", "]"}], "+", RowBox[{ RowBox[{ RowBox[{"pos", "''"}], "[", "ti", "]"}], "160", " ", RowBox[{"tmax", "/", "1000"}]}]}], ")"}]}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"{", "}"}], ",", RowBox[{"{", "}"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "16"}], "}"}]}], "\[IndentingNewLine]", "]"}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"Axes", "\[Rule]", "False"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "}"}]}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(v\), \(x\)]\)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(v\), \(y\)]\)\>\""}], "}"}]}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"48", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "25"}], "]"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", "}"}]}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]}], ",", RowBox[{"Enabled", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"t", "\[NotEqual]", "0"}], ",", "False", ",", "True"}], "]"}]}], ",", RowBox[{"Appearance", "\[Rule]", "None"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "tmax", ",", "0.01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", "\[IndentingNewLine]", "\"\< \>\"", ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"showaccelerationtrail", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "None"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"showvelocitytrail", ",", "True"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "None"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"showvelanimation", ",", "False"}], "}"}], ",", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}], ",", "None"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Panel", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Spacer", "[", "5", "]"}], ",", RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "showvelanimation", "]"}], "]"}]}], "}"}], "]"}], "]"}], ",", RowBox[{"Spacer", "[", "20", "]"}], ",", RowBox[{"Panel", "[", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Spacer", "[", "5", "]"}], ",", "\"\<\!\(\*OverscriptBox[\(v\), \(\[RightVector]\)]\)(t)\>\"", ",", RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "showvelocitytrail", "]"}], "]"}], ",", RowBox[{"Spacer", "[", "8", "]"}], ",", "\"\<\!\(\*OverscriptBox[\(a\), \(\[RightVector]\)]\)(t)\>\"", ",", RowBox[{"Checkbox", "[", RowBox[{"Dynamic", "[", "showaccelerationtrail", "]"}], "]"}]}], "}"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", " ", ",", "Medium", ",", "Bold"}], "]"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{ "\"\< \!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) = \>\"", "<>", " ", RowBox[{"ToString", "[", RowBox[{"ai", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", " ", "\"\< i + \>\"", "<>", RowBox[{"ToString", "[", " ", RowBox[{"ai", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", " ", "\"\< j\>\""}], " ", ",", "Medium", ",", "Bold", ",", "Red"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{ "\"\< \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\ \[RightVector]\)], \(i\)]\) = \>\"", "<>", " ", RowBox[{"ToString", "[", RowBox[{"vi", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", " ", "\"\< i + \>\"", "<>", RowBox[{"ToString", "[", " ", RowBox[{"vi", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", " ", "\"\< j\>\"", " ", "<>", "\"\< \!\(\*SubscriptBox[\(v\), \(i\)]\) = \>\"", "<>", " ", RowBox[{"ToString", "[", SqrtBox[ RowBox[{"vi", ".", "vi"}]], "]"}], "<>", " ", "\"\<, \[Theta] = \>\"", "<>", RowBox[{"ToString", "[", " ", RowBox[{"N", "[", RowBox[{ RowBox[{ FractionBox["180", "\[Pi]"], RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"vi", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"vi", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ",", "2"}], "]"}], "]"}]}], ",", "Medium", ",", "Bold", ",", "Blue"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ RowBox[{ "\"\< \!\(\*SubscriptBox[OverscriptBox[\(r\), \(\ \[RightVector]\)], \(i\)]\) = \>\"", "<>", " ", RowBox[{"ToString", "[", RowBox[{"x0", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "<>", " ", "\"\< i + \>\"", "<>", RowBox[{"ToString", "[", " ", RowBox[{"x0", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "<>", " ", "\"\< j\>\""}], " ", ",", "Medium", ",", "Bold", ",", " ", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}]}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", " ", ",", "Medium", ",", "Bold"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", "\[IndentingNewLine]", RowBox[{"DingraphPlot", "[", RowBox[{"p1", ",", "pos", ",", RowBox[{"{", RowBox[{"0", ",", "tmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "70"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}], ",", RowBox[{"Green", "//", "Darker"}], ",", "Gray"}], "}"}], ",", "t", ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\< \>\""}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"Prolog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "55"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Medium", ",", "Bold", ",", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "55"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Green", "//", "Darker"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "48"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Medium", ",", "Bold", ",", RowBox[{"Green", "//", "Darker"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "48"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\n", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"Text", "[", RowBox[{"Style", "[", RowBox[{ "\"\\"", " ", ",", "Medium", ",", "Bold"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\"\< \>\"", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Dynamic", "@", RowBox[{"DingraphPlot", "[", RowBox[{"p2", ",", RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "#", "]"}], "&"}], ",", RowBox[{"{", RowBox[{"0", ",", "tmax"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Blue", "//", "Darker"}], "//", "Darker"}], ",", RowBox[{"Blue", "//", "Darker"}], ",", "Gray"}], "}"}], ",", "t", ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\< \>\""}], "}"}]}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"ImageSize", "\[Rule]", "300"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", RowBox[{"1", "/", "2"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Prolog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Blue", "//", "Darker"}], "//", "Darker"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "40"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)\>\"", ",", "Medium", ",", "Bold", ",", RowBox[{ RowBox[{"Blue", "//", "Darker"}], "//", "Darker"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "40"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"Blue", "//", "Darker"}], ",", "Thick", ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "30"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(v\), \(y\)]\)(t)\>\"", ",", "Medium", ",", "Bold", ",", RowBox[{"Blue", "//", "Darker"}]}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "30"}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Delimiter", ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"AutorunSequencing", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "2"}], "}"}]}], ",", " ", RowBox[{"ControlPlacement", "\[Rule]", "Left"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", RowBox[{"Initialization", "\[RuleDelayed]", " ", RowBox[{"(", RowBox[{ RowBox[{"xi", "=", RowBox[{"x0", "=", RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}]}]}], ";", RowBox[{"vri", "=", RowBox[{"{", RowBox[{"15", ",", "40"}], "}"}]}], ";", RowBox[{"ari", "=", RowBox[{"{", RowBox[{"0", ",", "10"}], "}"}]}], ";", RowBox[{"vi", "=", RowBox[{"vri", "-", "xi"}]}], ";", RowBox[{"ai", "=", RowBox[{"ari", "-", "xi"}]}], ";", RowBox[{"p1", " ", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"pos", "[", "t", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{"pos", "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{ RowBox[{"Green", "//", "Darker"}], "//", "Darker"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{"Green", "//", "Darker"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "20"}], ",", "70"}], "}"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p2", " ", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "t", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"pos", "'"}], "[", "t", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{ RowBox[{"Blue", "//", "Darker"}], "//", "Darker"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.015", "]"}], ",", RowBox[{"Blue", "//", "Darker"}]}], "}"}]}], "}"}]}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "50"}], ",", "50"}], "}"}]}]}], "]"}]}], ";"}], ")"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.428888787109375*^9, 3.428888895203125*^9}, { 3.42888901140625*^9, 3.42888902815625*^9}, {3.428889312125*^9, 3.428889329984375*^9}, {3.428889371734375*^9, 3.428889423671875*^9}, { 3.428889468203125*^9, 3.428889486046875*^9}, {3.42888952978125*^9, 3.428889532796875*^9}, {3.428889690484375*^9, 3.428889746734375*^9}, 3.4288897995625*^9, {3.42888990865625*^9, 3.428890031828125*^9}, { 3.428890085265625*^9, 3.428890142890625*^9}, {3.4288901758125*^9, 3.42889034875*^9}, {3.428890407734375*^9, 3.4288904145*^9}, { 3.42889052425*^9, 3.428890539*^9}, 3.428890647796875*^9, { 3.428890701171875*^9, 3.42889070825*^9}, {3.42889079790625*^9, 3.42889083015625*^9}, {3.42889087403125*^9, 3.42889092403125*^9}, 3.42889101590625*^9, {3.428891062015625*^9, 3.428891064609375*^9}, { 3.42889109609375*^9, 3.428891153484375*^9}, {3.428891206578125*^9, 3.428891255671875*^9}, {3.42889135553125*^9, 3.428891367453125*^9}, { 3.428891416578125*^9, 3.42889141665625*^9}, {3.428891747953125*^9, 3.4288917494375*^9}, {3.4288920168125*^9, 3.428892092390625*^9}, { 3.42889213021875*^9, 3.428892161609375*^9}, {3.428892203046875*^9, 3.428892223671875*^9}, {3.428892271921875*^9, 3.4288924504375*^9}, { 3.428892492890625*^9, 3.42889250375*^9}, {3.42889253503125*^9, 3.42889260571875*^9}, {3.428892671578125*^9, 3.428892689234375*^9}, 3.428892902625*^9, {3.428893081203125*^9, 3.4288931580625*^9}, { 3.42889320803125*^9, 3.4288933295625*^9}, {3.42889335990625*^9, 3.42889342925*^9}, {3.42889356865625*^9, 3.42889364434375*^9}, { 3.428893683578125*^9, 3.428893761453125*^9}, {3.4288938185625*^9, 3.428893847671875*^9}, {3.428893902203125*^9, 3.428893970796875*^9}, 3.428894008859375*^9, {3.428894156421875*^9, 3.428894217765625*^9}, 3.42889438521875*^9, {3.428894460765625*^9, 3.428894470828125*^9}, { 3.428894542265625*^9, 3.428894596171875*^9}, {3.428894683390625*^9, 3.428894687796875*^9}, {3.428894757375*^9, 3.4288948118125*^9}, { 3.42889484809375*^9, 3.428895022921875*^9}, {3.428895053640625*^9, 3.428895178046875*^9}, {3.4288952893125*^9, 3.42889532978125*^9}, { 3.4288955396875*^9, 3.4288955523125*^9}, {3.428895743109375*^9, 3.428895773640625*^9}, {3.4288958355*^9, 3.42889584359375*^9}, { 3.42889964175*^9, 3.4288996441875*^9}, 3.42889981521875*^9, { 3.429107477484375*^9, 3.429107627609375*^9}, {3.429107665*^9, 3.429107733328125*^9}, {3.429107811578125*^9, 3.42910789753125*^9}, { 3.42910796975*^9, 3.429108060984375*^9}, {3.42910810284375*^9, 3.42910823153125*^9}, 3.429108612328125*^9, {3.429108757375*^9, 3.429108766109375*^9}, {3.4291088733125*^9, 3.42910897384375*^9}, { 3.42910901615625*^9, 3.429109056578125*^9}, {3.429109088078125*^9, 3.429109122515625*^9}, {3.429109219625*^9, 3.429109225671875*^9}, { 3.429109259125*^9, 3.429109336953125*^9}, {3.429109422453125*^9, 3.42910943609375*^9}, {3.4291094756875*^9, 3.429109497234375*^9}, { 3.42910953225*^9, 3.429109539125*^9}, {3.429109603203125*^9, 3.429109638296875*^9}, 3.42910968290625*^9, {3.429109729375*^9, 3.42910973409375*^9}, {3.429109775171875*^9, 3.429109845453125*^9}, { 3.429110009296875*^9, 3.42911003740625*^9}, {3.42911018475*^9, 3.4291102340625*^9}, {3.429110290078125*^9, 3.429110346796875*^9}, { 3.42911037775*^9, 3.429110437390625*^9}, {3.42911046859375*^9, 3.4291105046875*^9}, {3.4291109523125*^9, 3.429110985875*^9}, { 3.429111029296875*^9, 3.429111093078125*^9}, {3.42911113940625*^9, 3.429111259109375*^9}, {3.429111327765625*^9, 3.42911134859375*^9}, { 3.42911150428125*^9, 3.429111563890625*^9}, {3.4291116130625*^9, 3.429111617875*^9}, {3.42911179528125*^9, 3.429111887484375*^9}, { 3.42911193290625*^9, 3.429111978640625*^9}, {3.429112138171875*^9, 3.429112139703125*^9}, {3.429112171625*^9, 3.4291122273125*^9}, { 3.429112266421875*^9, 3.429112364609375*^9}, {3.429112401125*^9, 3.42911242303125*^9}, {3.429112459859375*^9, 3.429112465828125*^9}, { 3.42911251525*^9, 3.42911251928125*^9}, {3.42911267259375*^9, 3.42911270665625*^9}, {3.42911292953125*^9, 3.429112953875*^9}, { 3.429113001765625*^9, 3.429113034015625*^9}, {3.4291130789375*^9, 3.4291130980625*^9}, {3.429113315890625*^9, 3.429113319296875*^9}, { 3.429114284046875*^9, 3.42911443903125*^9}, {3.4291148208125*^9, 3.429114918234375*^9}, {3.429115450453125*^9, 3.429115494265625*^9}, { 3.429115542875*^9, 3.429115558203125*^9}, {3.42911561946875*^9, 3.4291156590625*^9}, {3.429115783015625*^9, 3.429115783078125*^9}, { 3.4291158419375*^9, 3.429115843625*^9}, {3.42911590521875*^9, 3.4291159750625*^9}, {3.429116040625*^9, 3.429116055703125*^9}, 3.42911610178125*^9, {3.429116147921875*^9, 3.429116169109375*^9}, { 3.42911639159375*^9, 3.429116405921875*^9}, {3.429116471625*^9, 3.429116586*^9}, {3.429116620859375*^9, 3.42911662934375*^9}, { 3.42911667475*^9, 3.429116913125*^9}, {3.429116972*^9, 3.429117070171875*^9}, {3.429117175765625*^9, 3.42911737478125*^9}, { 3.42911744409375*^9, 3.429117525109375*^9}, {3.429117638265625*^9, 3.429117674234375*^9}, {3.42911778253125*^9, 3.429117838546875*^9}, { 3.429117928015625*^9, 3.42911794209375*^9}, {3.429118025296875*^9, 3.4291180314375*^9}, {3.429118109265625*^9, 3.4291181151875*^9}, { 3.42911819325*^9, 3.42911819446875*^9}, {3.42911822834375*^9, 3.42911825340625*^9}, {3.429118345390625*^9, 3.429118412375*^9}, { 3.429118455953125*^9, 3.429118479046875*^9}, {3.429118586921875*^9, 3.42911865153125*^9}, {3.429118699796875*^9, 3.4291187688125*^9}, { 3.429118875265625*^9, 3.429118956046875*^9}, {3.429119019015625*^9, 3.429119029015625*^9}, {3.429119325671875*^9, 3.42911942175*^9}, { 3.429119500078125*^9, 3.42911959753125*^9}, {3.42911972890625*^9, 3.429119826578125*^9}, {3.4291199505*^9, 3.429119961359375*^9}, { 3.429119992953125*^9, 3.429120057453125*^9}, {3.429120114796875*^9, 3.429120134296875*^9}, {3.429120187375*^9, 3.429120269296875*^9}, { 3.429120376703125*^9, 3.4291203801875*^9}, {3.429120450890625*^9, 3.429120485015625*^9}, 3.429120544734375*^9, {3.42912066540625*^9, 3.429120845203125*^9}, {3.42912093371875*^9, 3.429121050640625*^9}, { 3.42912109040625*^9, 3.42912120446875*^9}, {3.429121240828125*^9, 3.42912128178125*^9}, {3.429121336734375*^9, 3.42912138928125*^9}, { 3.42912172584375*^9, 3.42912172875*^9}, {3.429122116796875*^9, 3.42912211871875*^9}, {3.42912229634375*^9, 3.429122439609375*^9}, { 3.429122512125*^9, 3.42912253709375*^9}, {3.429122569140625*^9, 3.429122599359375*^9}, {3.429122668484375*^9, 3.429122677140625*^9}, { 3.429122793421875*^9, 3.42912281025*^9}, {3.429122858921875*^9, 3.429122860859375*^9}, {3.42912292128125*^9, 3.42912293021875*^9}, 3.429123253421875*^9, {3.429123295140625*^9, 3.4291233219375*^9}, { 3.42912342590625*^9, 3.42912346328125*^9}, {3.429123496203125*^9, 3.429123537765625*^9}, 3.42912356865625*^9, {3.429123628609375*^9, 3.42912378953125*^9}, {3.42912384259375*^9, 3.429123866359375*^9}, { 3.4291241125*^9, 3.4291241144375*^9}}], Cell[BoxData["\[AliasDelimiter]"], "Input", CellChangeTimes->{3.42912409928125*^9}] }, Closed]], Cell[CellGroupData[{ Cell["Animacion", "Section", CellChangeTimes->{{3.428263320427875*^9, 3.428263346427875*^9}}], Cell["\<\ Movimiento Parabolico (Cinematica en dos dimensiones con aceleracion \ constante). Cuando t=0, la grafica de la trayectoria deja ajustar la posicion \ inicial (haciendo click en el punto negro), la velocidad inicial (haciendo \ click en la punta de la flecha azul) y ajustar la aceleracion (haciendo click \ en la flecha naranja). Las graficas de la izaquierda muestran las componentes \ de la posicion y velocidad como funcion del tiempo. Los controles de \ animacion se abren apretando en el signo \"+\" al lado de la barra del \ tiempo.\ \>", "Text", CellChangeTimes->{{3.42826344203725*^9, 3.42826350741225*^9}, { 3.428263538459125*^9, 3.42826366447475*^9}, {3.428265283052875*^9, 3.428265313271625*^9}, {3.428712662669496*^9, 3.428712718060121*^9}, { 3.4288960524375*^9, 3.428896314765625*^9}}, FontSize->18], Cell[BoxData[ FormBox[ TagBox[ FormBox[ StyleBox[ DynamicModuleBox[{$CellContext`showaccelerationtrail$$ = False, $CellContext`showvelanimation$$ = False, $CellContext`showvelocitytrail$$ = False, $CellContext`t$$ = 1.79, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 0, "t"}, 0, 6, 0.01}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`showaccelerationtrail$$], False}, { True, False}}, {{ Hold[$CellContext`showvelocitytrail$$], True}, {True, False}}, {{ Hold[$CellContext`showvelanimation$$], False}, {True, False}}, { Hold[ Row[{ Panel[ Row[{"Animar \!\(\*OverscriptBox[\(v\), \(\[RightVector]\)]\)(t)", Spacer[5], Checkbox[ Dynamic[$CellContext`showvelanimation$$]]}]], Spacer[20], Panel[ Row[{"Estelas:", Spacer[5], "\!\(\*OverscriptBox[\(v\), \(\[RightVector]\)]\)(t)", Checkbox[ Dynamic[$CellContext`showvelocitytrail$$]], Spacer[8], "\!\(\*OverscriptBox[\(a\), \(\[RightVector]\)]\)(t)", Checkbox[ Dynamic[$CellContext`showaccelerationtrail$$]]}]]}]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Text[ Style["Condiciones Iniciales", Medium, Bold]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`ai, 1]], " i + ", ToString[ Part[$CellContext`ai, 2]], " j"], Medium, Bold, Red]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`vi, 1]], " i + ", ToString[ Part[$CellContext`vi, 2]], " j", " \!\(\*SubscriptBox[\(v\), \(i\)]\) = ", ToString[Dot[$CellContext`vi, $CellContext`vi]^Rational[1, 2]], ", \[Theta] = ", ToString[ N[(180/Pi) ArcTan[ Part[$CellContext`vi, 1], Part[$CellContext`vi, 2]], 2]]], Medium, Bold, Blue]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(r\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`x0, 1]], " i + ", ToString[ Part[$CellContext`x0, 2]], " j"], Medium, Bold, Darker[ Darker[Green]]]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Text[ Style[ "Posicion \!\(\*OverscriptBox[\(r\), \(\[RightVector]\)]\)(t) \ = \!\(\*SubscriptBox[OverscriptBox[\(r\), \(\[RightVector]\)], \(i\)]\) + \ \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\[RightVector]\)], \(i\)]\) t + \ \!\(\*FractionBox[\(1\), \(2\)]\)\!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) \!\(\*SuperscriptBox[\(t\), \(2\)]\) ", Medium, Bold]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ $CellContext`DingraphPlot[$CellContext`p1, $CellContext`pos, { 0, $CellContext`tmax}, {-20, 70}, { Darker[ Darker[Green]], Darker[Green], Gray}, $CellContext`t$$, FrameLabel -> {"t", " "}, Frame -> True, ImageSize -> 300, GridLines -> Automatic, AspectRatio -> 1/2, Prolog -> {{ Darker[ Darker[Green]], Thick, Line[{{1.2, 55}, {2, 55}}]}, Text[ Style["x(t)", Medium, Bold, Darker[ Darker[Green]]], {1, 55}], { Darker[Green], Thick, Line[{{1.2, 48}, {2, 48}}]}, Text[ Style["y(t)", Medium, Bold, Darker[Green]], {1, 48}]}]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ Text[ Style[ "Velocidad \!\(\*OverscriptBox[\(v\), \ \(\[RightVector]\)]\)(t) = \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\ \[RightVector]\)], \(i\)]\) + \!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) t ", Medium, Bold]]]], Manipulate`Dump`ThisIsNotAControl}, { Hold[" "], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Dynamic[ $CellContext`DingraphPlot[$CellContext`p2, Derivative[ 1][$CellContext`pos][#]& , {0, $CellContext`tmax}, {-50, 50}, { Darker[ Darker[Blue]], Darker[Blue], Gray}, $CellContext`t$$, FrameLabel -> {"t", " "}, Frame -> True, ImageSize -> 300, GridLines -> Automatic, AspectRatio -> 1/2, Prolog -> {{ Darker[ Darker[Blue]], Thick, Line[{{1.2, 40}, {2, 40}}]}, Text[ Style["\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)", Medium, Bold, Darker[ Darker[Blue]]], {1, 40}], { Darker[Blue], Thick, Line[{{1.2, 30}, {2, 30}}]}, Text[ Style["\!\(\*SubscriptBox[\(v\), \(y\)]\)(t)", Medium, Bold, Darker[Blue]], {1, 30}]}]]], Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = { 522., {258.5, 263.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`t$1198625$$ = 0, $CellContext`showaccelerationtrail$1198626$$ = False, $CellContext`showvelocitytrail$1198627$$ = False, $CellContext`showvelanimation$1198628$$ = False}, DynamicBox[Manipulate`ManipulateBoxes[ 1, TraditionalForm, "Variables" :> {$CellContext`showaccelerationtrail$$ = False, $CellContext`showvelanimation$$ = False, $CellContext`showvelocitytrail$$ = True, $CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$1198625$$, 0], Hold[$CellContext`showaccelerationtrail$$, \ $CellContext`showaccelerationtrail$1198626$$, False], Hold[$CellContext`showvelocitytrail$$, \ $CellContext`showvelocitytrail$1198627$$, False], Hold[$CellContext`showvelanimation$$, \ $CellContext`showvelanimation$1198628$$, False]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Panel[ LocatorPane[ Dynamic[{$CellContext`x0, $CellContext`vri, $CellContext`ari}], Dynamic[ Show[ If[$CellContext`xi != $CellContext`x0, $CellContext`vri = \ $CellContext`x0 + $CellContext`vi; $CellContext`ari = $CellContext`x0 + \ $CellContext`ai; Null]; $CellContext`xi = $CellContext`x0; $CellContext`vi = \ $CellContext`vri - $CellContext`xi; $CellContext`ai = $CellContext`ari - \ $CellContext`xi; If[$CellContext`t$$ == 0, $CellContext`p1 = Plot[{ Part[ $CellContext`pos[$CellContext`t$$], 1], Part[ $CellContext`pos[$CellContext`t$$], 2]}, {$CellContext`t$$, 0, $CellContext`tmax}, PlotStyle -> {{ Thickness[0.015], Darker[ Darker[Green]]}, { Thickness[0.015], Darker[Green]}}, PerformanceGoal -> "Speed", PlotRange -> {-20, 70}]; $CellContext`p2 = Plot[{ Part[ Derivative[1][$CellContext`pos][$CellContext`t$$], 1], Part[ Derivative[1][$CellContext`pos][$CellContext`t$$], 2]}, {$CellContext`t$$, 0, $CellContext`tmax}, PlotStyle -> {{ Thickness[0.015], Darker[ Darker[Blue]]}, { Thickness[0.015], Darker[Blue]}}, PerformanceGoal -> "Speed", PlotRange -> {-50, 50}]; Null]; { ParametricPlot[ $CellContext`pos[$CellContext`\[Xi]], {$CellContext`\[Xi], 0, 3 $CellContext`tmax}, PlotPoints -> 200, PlotStyle -> { Thickness[0.005], Darker[ Darker[Green]], Opacity[0.3]}], Graphics[{{Thick, Blue, Arrow[{$CellContext`r = $CellContext`pos[$CellContext`t$$], \ $CellContext`r + Derivative[1][$CellContext`pos][$CellContext`t$$]}]}, { Thick, Red, Arrow[{$CellContext`r, $CellContext`r + Derivative[2][$CellContext`pos][$CellContext`t$$]}]}, { PointSize[Large], Darker[ Darker[Green]], Point[{ Part[$CellContext`r, 1], 0}]}, { PointSize[Large], Darker[Green], Point[{0, Part[$CellContext`r, 2]}]}, Lighter[ RGBColor[0.6, 0.73, 0.36]], Table[ Disk[ $CellContext`pos[ Max[$CellContext`t$$ - ($CellContext`i 20) ($CellContext`tmax/1000), 0]], 0.7 - $CellContext`i (0.3/15)], {$CellContext`i, 1, 16}], { Thick, Darker[ Darker[Green]], Disk[ $CellContext`pos[$CellContext`t$$], 1]}, Table[$CellContext`ti = Max[$CellContext`t$$ - ($CellContext`i 20) ($CellContext`tmax/1000), 0]; { If[ And[$CellContext`showvelocitytrail$$, MemberQ[{2, 4, 6, 8, 10, 12, 14, 16}, $CellContext`i]], { Blue, Opacity[1 - $CellContext`i/16], Arrow[{ $CellContext`pos[$CellContext`ti], \ $CellContext`pos[$CellContext`ti] + Derivative[ 1][$CellContext`pos][$CellContext`ti]}]}, {}, {}], If[ And[$CellContext`showaccelerationtrail$$, MemberQ[{2, 4, 6, 8, 10, 12, 14, 16}, $CellContext`i]], { Red, Opacity[1 - $CellContext`i/16], Arrow[{ $CellContext`pos[$CellContext`ti], \ $CellContext`pos[$CellContext`ti] + Derivative[ 2][$CellContext`pos][$CellContext`ti]}]}, {}, {}]}, \ {$CellContext`i, 1, 16}]}]}, PlotRange -> {{$CellContext`xmin, $CellContext`xmax}, \ {$CellContext`ymin, $CellContext`ymax}}, Axes -> False, Frame -> True, ImageSize -> {500, 500}, GridLines -> Automatic, FrameLabel -> {"x", "y"}, If[$CellContext`showvelanimation$$, Epilog -> Inset[ Panel[ Show[ Graphics[ Table[$CellContext`ti = Max[$CellContext`t$$ - ($CellContext`i 40) ($CellContext`tmax/1000), 0]; { If[ MemberQ[{0, 4, 8, 12, 16}, $CellContext`i], {Blue, Opacity[1 - $CellContext`i/16], Arrow[{{0, 0}, Derivative[ 1][$CellContext`pos][$CellContext`ti]}]}, {}, {}], If[ MemberQ[{0, 4, 8, 12, 16}, $CellContext`i], {Red, If[$CellContext`i == 0, Opacity[1 - $CellContext`i/16], Opacity[0.5]], Arrow[{ Derivative[1][$CellContext`pos][$CellContext`ti], Derivative[ 1][$CellContext`pos][$CellContext`ti] + ( Derivative[2][$CellContext`pos][$CellContext`ti] 160) ($CellContext`tmax/ 1000)}]}, {}, {}]}, {$CellContext`i, 0, 16}]], Frame -> True, Axes -> False, Background -> White, PlotRange -> {{-30, 30}, {-30, 30}}, GridLines -> Automatic, FrameLabel -> { "\!\(\*SubscriptBox[\(v\), \(x\)]\)", "\!\(\*SubscriptBox[\(v\), \(y\)]\)"}]], {48, 48}, {0, 0}, 25], Epilog -> {}]]], Enabled -> If[$CellContext`t$$ != 0, False, True], Appearance -> None]], "Specifications" :> {{{$CellContext`t$$, 0, "t"}, 0, 6, 0.01, Appearance -> "Labeled"}, " ", {{$CellContext`showaccelerationtrail$$, False}, {True, False}, ControlType -> None}, {{$CellContext`showvelocitytrail$$, True}, { True, False}, ControlType -> None}, {{$CellContext`showvelanimation$$, False}, {True, False}, ControlType -> None}, Row[{ Panel[ Row[{"Animar \!\(\*OverscriptBox[\(v\), \ \(\[RightVector]\)]\)(t)", Spacer[5], Checkbox[ Dynamic[$CellContext`showvelanimation$$]]}]], Spacer[20], Panel[ Row[{"Estelas:", Spacer[5], "\!\(\*OverscriptBox[\(v\), \(\[RightVector]\)]\)(t)", Checkbox[ Dynamic[$CellContext`showvelocitytrail$$]], Spacer[8], "\!\(\*OverscriptBox[\(a\), \(\[RightVector]\)]\)(t)", Checkbox[ Dynamic[$CellContext`showaccelerationtrail$$]]}]]}], Delimiter, Text[ Style["Condiciones Iniciales", Medium, Bold]], Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`ai, 1]], " i + ", ToString[ Part[$CellContext`ai, 2]], " j"], Medium, Bold, Red]]], Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`vi, 1]], " i + ", ToString[ Part[$CellContext`vi, 2]], " j", " \!\(\*SubscriptBox[\(v\), \(i\)]\) = ", ToString[Dot[$CellContext`vi, $CellContext`vi]^Rational[1, 2]], ", \[Theta] = ", ToString[ N[(180/Pi) ArcTan[ Part[$CellContext`vi, 1], Part[$CellContext`vi, 2]], 2]]], Medium, Bold, Blue]]], Dynamic[ Text[ Style[ StringJoin[ " \!\(\*SubscriptBox[OverscriptBox[\(r\), \(\ \[RightVector]\)], \(i\)]\) = ", ToString[ Part[$CellContext`x0, 1]], " i + ", ToString[ Part[$CellContext`x0, 2]], " j"], Medium, Bold, Darker[ Darker[Green]]]]], Delimiter, Dynamic[ Text[ Style[ "Posicion \!\(\*OverscriptBox[\(r\), \(\[RightVector]\)]\)(t) \ = \!\(\*SubscriptBox[OverscriptBox[\(r\), \(\[RightVector]\)], \(i\)]\) + \ \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\[RightVector]\)], \(i\)]\) t + \ \!\(\*FractionBox[\(1\), \(2\)]\)\!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) \!\(\*SuperscriptBox[\(t\), \(2\)]\) ", Medium, Bold]]], Dynamic[ $CellContext`DingraphPlot[$CellContext`p1, $CellContext`pos, { 0, $CellContext`tmax}, {-20, 70}, { Darker[ Darker[Green]], Darker[Green], Gray}, $CellContext`t$$, FrameLabel -> {"t", " "}, Frame -> True, ImageSize -> 300, GridLines -> Automatic, AspectRatio -> 1/2, Prolog -> {{ Darker[ Darker[Green]], Thick, Line[{{1.2, 55}, {2, 55}}]}, Text[ Style["x(t)", Medium, Bold, Darker[ Darker[Green]]], {1, 55}], { Darker[Green], Thick, Line[{{1.2, 48}, {2, 48}}]}, Text[ Style["y(t)", Medium, Bold, Darker[Green]], {1, 48}]}]], Dynamic[ Text[ Style[ "Velocidad \!\(\*OverscriptBox[\(v\), \ \(\[RightVector]\)]\)(t) = \!\(\*SubscriptBox[OverscriptBox[\(v\), \(\ \[RightVector]\)], \(i\)]\) + \!\(\*SubscriptBox[OverscriptBox[\(a\), \(\ \[RightVector]\)], \(i\)]\) t ", Medium, Bold]]], " ", Dynamic[ $CellContext`DingraphPlot[$CellContext`p2, Derivative[ 1][$CellContext`pos][#]& , {0, $CellContext`tmax}, {-50, 50}, { Darker[ Darker[Blue]], Darker[Blue], Gray}, $CellContext`t$$, FrameLabel -> {"t", " "}, Frame -> True, ImageSize -> 300, GridLines -> Automatic, AspectRatio -> 1/2, Prolog -> {{ Darker[ Darker[Blue]], Thick, Line[{{1.2, 40}, {2, 40}}]}, Text[ Style["\!\(\*SubscriptBox[\(v\), \(x\)]\)(t)", Medium, Bold, Darker[ Darker[Blue]]], {1, 40}], { Darker[Blue], Thick, Line[{{1.2, 30}, {2, 30}}]}, Text[ Style["\!\(\*SubscriptBox[\(v\), \(y\)]\)(t)", Medium, Bold, Darker[Blue]], {1, 30}]}]], Delimiter}, "Options" :> {AutorunSequencing -> {1, 2}, ControlPlacement -> Left}, "DefaultOptions" :> {}], ImageSizeCache->{871., {301., 308.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`x0 = {-0.19999999999999996`, 0.8999999999999999}, $CellContext`vri = {8., 35.5}, $CellContext`ari = {-0.19999999999999996`, -9.1}, \ $CellContext`xi = {-0.19999999999999996`, 0.8999999999999999}, $CellContext`vi = {8.2, 34.6}, $CellContext`ai = {0., -10.}, $CellContext`p1 = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], Thickness[0.015], RGBColor[0, 4/9, 0], Line[{{2.5*^-7, -0.19999794999999995`}, { 0.030056606214843417`, 0.04646417096171604}, { 0.060112962429686834`, 0.29292629192343206`}, { 0.12022567485937367`, 0.7858505338468641}, { 0.24045109971874734`, 1.7716990176937282`}, { 0.5011273742968684, 3.90924446923432}, {0.7445290737343632, 5.905138404621777}, {0.9831561980312316, 7.861880823856098}, {1.2420087471874737`, 9.984471726937285}, {1.4835867212030895`, 11.965411113865335`}, {1.745390120078079, 14.112198984640248`}, {2.002418943812442, 16.219835339262023`}, {2.2421731924061787`, 18.185820177730665`}, {2.5021528658592893`, 20.31765350004617}, {2.7448579641717736`, 22.307835306208542`}, {2.9827884873436314`, 24.258865596217777`}, {3.240944435374863, 26.375744370073875`}, {3.4818258082654685`, 28.35097162777684}, {3.7429326060154473`, 30.492047369326666`}, {3.9992648286248, 32.59397159472336}, { 4.2383224760935265`, 34.55424430396691}, {4.497605548421626, 36.68036549705733}, {4.7396140456091, 38.66483517399461}, { 5.001847967655947, 40.815153334778756`}, {5.259307314562168, 42.92631997940977}, {5.499492086327763, 44.89583510788765}, { 5.759902282952731, 47.03119872021239}, {5.78991446633364, 47.27729862393584}, {5.819926649714548, 47.52339852765928}, { 5.879951016476365, 48.01559833510619}, {5.909963199857274, 48.26169823882964}, {5.939975383238183, 48.50779814255309}, { 5.969987566619091, 48.75389804627654}, {5.99999975, 48.999997949999994`}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.015], RGBColor[0, 2/3, 0], Line[CompressedData[" 1:eJwVkXk4lAkAxgczjPuYYXRMmxWxJF1qmOZ7m6S5vk/Z0ulYJWra1KBCYtcT tjVFd2oI6UBSpLRKaKMDSaHUOlI6UD2jpmjZ2T/e533eP3+/1y4kwi9Ul0aj BWjzfysHrpzS3EkXBJX99fGfB/1EXnPPZae6LGLeZb8jGZpRQqQT5ju5rpjY SvUnPb1kgAnjznMn1t0kfn8X+o2vZoHucI8+vq6RiF2269Kvz+0QlrrDh2/Y RfQwNZU3RtyxKKUl162ljzhvlSA+8XIu0F/0XW/7B2L0m+ryfmsBWMLwdO9O NdGesa1EyRaiR8nY8nelhjgWU37XROUNR3Wd+6SBEWL70x9NEwwWo3LPFN4Q nYb56/xsl1qKQfh+rl4mpEFx/VznWZEYNbZ3JFcSaCjVMV/ZvluM+sKwtduH aQgINl57p0+MluaChK8fdOAbWFvSWijBYH9DcvJMXRxkcOiPXkjAZH5SsqN1 sW3KcVGkmRR8wdyT7sO60NQ75Z+VS+G/anXeTb4eciiPG57HpNgaFV8gS9DD K6niTmStFPkFtdfC6XTwLkQXtVnLcCM++/ReIR3xtHT9SE8ZniyJSy9KpMNa WVrXFSADQzMz/ON3OuBnkzArRwbuPbNlVl4MtOxdHm1bLcMc1TtidgwDFd9V j5o6ZQhdmMvZ+ZmBxDRJzZVxJIp1Nk34ZaY+ZoXRVgXOJvGlasYPkgh9FKlP 2bwiSaTyqx0nvtWH2i5XXxlPonk49SeGowGqa3V5xQdJjK9Y4jYYYgB/DnXg wjkSRXO65tx6boC2ltMVPk0k0hYNX22dxMR01Uk3vx4Sm5ezPQeCmQh08JUz h0jIQt0q9fKYCN1cGbGRTmFatEgw/hUTixS9XtEsCmZ7Qm65TzXEvx51TS52 FAYP7RIu3miI/dfXuyinUWg8feR2QKEhvnyvpI7Po1BcVuITNWAIz9Em3hIh hbRdSRcmuRghYMxlzFVCYZO3P/tuuBGMY1Iudi2hIDJxjos8YwRC3iOR+1Nw fDzSze01wpcn/OYHqynQTzaK6u2MMafiiJARSKFnXc5FRZAxRtgfs9jBFG65 RNlwVcbwfit6PazdWWqf+LpnxrDxyLG9pt0s080h2VwTeBxdYz85iEKqY8bi HcEm6I7cxnVZS2GUKHf1zTPBuAc9+k9XUIhc1WE59bUJOrMvdjr7UXijoGlG nUwx60PbWa6UQmCaw/NWuSlY19cElWn5WvIl1cXFpviN5qU/qOUXVUWcSf5k iria6JP3tH4GaxPzHGaZ4ecCt3spWn+H6jNO3Y4yg9eB7cohrV/PhlzVunIz uMSSry0YFLqbSzN1v5rBPqT08XPtP6mtt4/m8MxhLzm3cuVLEm4dTw4hzhwu M10VSQ9JxPZq9u0eNcca3e7QN2dI7H8YfK2dawENDxVXMkh0Fy9yVvAtQNi/ UATGkdgjNzfOj7HAfaOHtkIpiTbxUJzgmAVYho6M+BkknJ2e9reVW0CvomLF QRsSDb25jUZDFng/LXO63wsZ3r0vGfW0tkSKt4q7tlIGpvqmm9zDEssPv281 zZTBW6dj3/2dllC92lgYvlSG61yWb9q/lqjCQMfIRSlaE+O3JU+0wssQ7JqX IoX6Zd/BRC8rbNRME4gDpHAtqGyPirFC0o52xz6GFFkeG0ICPlvB+PGmP9li CZJrvi0ctGFh4NN5wzIrCbZQSoeEeSwU0rgK9TMxBBvK3pyKY6HqY5aOX5gY nYd1I3p12CAnWE3YFyFCbw7VkWJojbaV9gYMsQ+6lPHPYsesUct/zB4YXgje rc+P7I04YKXPcC+fugAC593+nU4cXD2cv7O+ERAe0H+WuZiDPLk0szQKkK3n dFvu4aDcYtUjp1gCSxuy1zfkcUBlNbmyqwTw93B6k1rDwZYH53mXdARYnV0i 9+7mwONE39exBfMRxOR9GBvjINnoj020RD7+A5ASf3k= "]]}}}, { AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{0, 6}, {-20, 70}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Automatic}}], Attributes[PlotRange] = {ReadProtected}, $CellContext`pos[ Pattern[$CellContext`s, Blank[]]] := $CellContext`xi + $CellContext`vi $CellContext`s + \ $CellContext`ai ($CellContext`s^2/2), $CellContext`tmax = 6, $CellContext`p2 = Graphics[{{{}, {}, { Hue[0.67, 0.6, 0.6], Thickness[0.015], RGBColor[0, 0, 4/9], Line[{{2.5*^-7, 8.2}, {0.12022567485937367`, 8.2}, { 0.24045109971874734`, 8.2}, {0.5011273742968684, 8.2}, { 0.7445290737343632, 8.2}, {0.9831561980312316, 8.2}, { 1.2420087471874737`, 8.2}, {1.4835867212030895`, 8.2}, { 1.745390120078079, 8.2}, {2.002418943812442, 8.2}, { 2.2421731924061787`, 8.2}, {2.5021528658592893`, 8.2}, { 2.7448579641717736`, 8.2}, {2.9827884873436314`, 8.2}, { 3.240944435374863, 8.2}, {3.4818258082654685`, 8.2}, { 3.7429326060154473`, 8.2}, {3.9992648286248, 8.2}, { 4.2383224760935265`, 8.2}, {4.497605548421626, 8.2}, { 4.7396140456091, 8.2}, {5.001847967655947, 8.2}, { 5.259307314562168, 8.2}, {5.499492086327763, 8.2}, { 5.759902282952731, 8.2}, {5.879951016476365, 8.2}, { 5.99999975, 8.2}}]}, { Hue[0.9060679774997897, 0.6, 0.6], Thickness[0.015], RGBColor[0, 0, 2/3], Line[{{2.5*^-7, 34.5999975}, {0.030056606214843417`, 34.29943393785157}, {0.060112962429686834`, 33.998870375703135`}, {0.12022567485937367`, 33.39774325140626}, {0.24045109971874734`, 32.19548900281253}, {0.5011273742968684, 29.58872625703132}, {0.7445290737343632, 27.154709262656368`}, {0.9831561980312316, 24.768438019687686`}, {1.2420087471874737`, 22.179912528125264`}, {1.4835867212030895`, 19.764132787969107`}, {1.745390120078079, 17.14609879921921}, {2.002418943812442, 14.575810561875581`}, {2.2421731924061787`, 12.178268075938213`}, {2.5021528658592893`, 9.57847134140711}, {2.7448579641717736`, 7.151420358282266}, {2.9827884873436314`, 4.772115126563687}, {3.240944435374863, 2.1905556462513687`}, { 3.4818258082654685`, -0.21825808265468538`}, { 3.7429326060154473`, -2.8293260601544716`}, { 3.9992648286248, -5.392648286247997}, { 4.2383224760935265`, -7.783224760935262}, { 4.497605548421626, -10.37605548421626}, { 4.7396140456091, -12.796140456091003`}, { 5.001847967655947, -15.418479676559471`}, { 5.259307314562168, -17.99307314562168}, { 5.499492086327763, -20.394920863277626`}, { 5.759902282952731, -22.999022829527306`}, { 5.78991446633364, -23.2991446633364}, { 5.819926649714548, -23.59926649714547}, { 5.879951016476365, -24.19951016476365}, { 5.909963199857274, -24.499631998572738`}, { 5.939975383238183, -24.799753832381832`}, { 5.969987566619091, -25.099875666190904`}, { 5.99999975, -25.399997499999998`}}]}}}, { AspectRatio -> GoldenRatio^(-1), Axes -> True, AxesOrigin -> {0, 0}, PlotRange -> {{0, 6}, {-50, 50}}, PlotRangeClipping -> True, PlotRangePadding -> { Scaled[0.02], Automatic}}], Attributes[Derivative] = {NHoldAll, ReadProtected}, Attributes[Thick] = {ReadProtected}, $CellContext`r = {21.94, 57.87000000000001}, $CellContext`ti = 0.7800000000000002, $CellContext`showvelocitytrail$$ = False, $CellContext`showaccelerationtrail$$ = False, $CellContext`xmin = 0, $CellContext`xmax = 60, $CellContext`ymin = 0, $CellContext`ymax = 60, $CellContext`showvelanimation$$ = False, $CellContext`DingraphPlot[ Pattern[$CellContext`plot, Blank[]], Pattern[$CellContext`fun, Blank[]], { Pattern[$CellContext`tpmin, Blank[]], Pattern[$CellContext`tpmax, Blank[]]}, { Pattern[$CellContext`ypmin, Blank[]], Pattern[$CellContext`ypmax, Blank[]]}, { Pattern[$CellContext`color1, Blank[]], Pattern[$CellContext`color2, Blank[]], Pattern[$CellContext`color3, Blank[]]}, Pattern[$CellContext`tp, Blank[]], Pattern[$CellContext`opts, BlankSequence[]]] := Module[{$CellContext`fp1, $CellContext`fp2}, Show[{$CellContext`plot, Graphics[{{ PointSize[Large], $CellContext`color1, Point[{$CellContext`tp, $CellContext`fp1 = Part[ $CellContext`fun[$CellContext`tp], 1]}]}, { PointSize[Large], $CellContext`color2, Point[{$CellContext`tp, $CellContext`fp2 = Part[ $CellContext`fun[$CellContext`tp], 2]}]}, { PointSize[Medium], $CellContext`color1, Point[{0, $CellContext`fp1}]}, { PointSize[Medium], $CellContext`color2, Point[{0, $CellContext`fp2}]}, { Dashed, $CellContext`color1, Line[{{$CellContext`tpmin, $CellContext`fp1}, \ {$CellContext`tp, $CellContext`fp1}}]}, {Dashed, $CellContext`color2, Line[{{$CellContext`tpmin, $CellContext`fp2}, \ {$CellContext`tp, $CellContext`fp2}}]}, {Dashed, $CellContext`color3, Line[{{$CellContext`tp, $CellContext`ypmin}, \ {$CellContext`tp, $CellContext`ypmax}}]}}]}, PlotRange -> {{$CellContext`tpmin, $CellContext`tpmax}, \ {$CellContext`ypmin, $CellContext`ypmax}}, GridLines -> Automatic, $CellContext`opts]]}; ($CellContext`xi = \ ($CellContext`x0 = {0, 20}); $CellContext`vri = {15, 40}; $CellContext`ari = { 0, 10}; $CellContext`vi = $CellContext`vri - $CellContext`xi; \ $CellContext`ai = $CellContext`ari - $CellContext`xi; $CellContext`p1 = Plot[{ Part[ $CellContext`pos[$CellContext`t$$], 1], Part[ $CellContext`pos[$CellContext`t$$], 2]}, {$CellContext`t$$, 0, $CellContext`tmax}, PlotStyle -> {{ Thickness[0.015], Darker[ Darker[Green]]}, { Thickness[0.015], Darker[Green]}}, PerformanceGoal -> "Speed", PlotRange -> {-20, 70}]; $CellContext`p2 = Plot[{ Part[ Derivative[1][$CellContext`pos][$CellContext`t$$], 1], Part[ Derivative[1][$CellContext`pos][$CellContext`t$$], 2]}, {$CellContext`t$$, 0, $CellContext`tmax}, PlotStyle -> {{ Thickness[0.015], Darker[ Darker[Blue]]}, { Thickness[0.015], Darker[Blue]}}, PerformanceGoal -> "Speed", PlotRange -> {-50, 50}]; Null)}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], TraditionalForm], Manipulate`InterpretManipulate[1]], TraditionalForm]], "Output", CellChangeTimes->{{3.4291232166875*^9, 3.429123224078125*^9}, 3.4291232541875*^9, {3.429123298296875*^9, 3.42912334009375*^9}, 3.429123395234375*^9, 3.42912346753125*^9, 3.429123538828125*^9, 3.429123569421875*^9, 3.429123657609375*^9, 3.42912369415625*^9, { 3.429123731390625*^9, 3.42912380815625*^9}, {3.429123844609375*^9, 3.429123867640625*^9}, 3.429123990484375*^9, {3.429124066796875*^9, 3.429124116625*^9}}] }, Open ]] }, AutoGeneratedPackage->None, WindowToolbars->"RulerBar", WindowSize->{1249, 743}, WindowMargins->{{-12, Automatic}, {Automatic, -5}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], { Cell[ BoxData[ Cell[ GraphicsData[ "CompressedBitmap", "eJy9XXd4FEeWHysRDKwxJoNlQDmQkRAoYoKEDQIbFhPMGXvB2IDx4rDnsAu7\n\ BntJwhgEiCCQQBmBAkpIQkIBJZRzQgIRP/vu9tu7+76L+7uq7qqe6pmekQTs\n\ /TGMprq6Xqiq93vv1etm2abPt27esenzjz7Y9NqSXZs+3frRB5+9tnjnLtJk\n\ +YJOZ+Gu0+mcX9PRv0H+ZP+8gs7OTp0VqvPycSnwTeRHRKK9tdVaah6Ehrp6\n\ 3PYPQs8Ed5S5TEWznzfu/UMw7n6yFlUb1uD2xYs6S6nvAHR2dKD66hXk79iO\n\ gjnzUDzKEQkzPFFx6ZIOtM/fpI66kYxk5nd7cXm8A2I2b0NVcbGV1DwCHWSY\n\ +rfW4Z7DTNyxn42Wpf5o3xiEB9vext13g9H03irUhZ9CbcoVVJ45jbztH6Nw\n\ njdqp7mhyNUVZ8ZMwZUVb6G9sVGDrA3qqqoQ7zYHcYMn4vwMLxQfPY767FwL\n\ 6fLLaG9uRtuqlbjn6YW2GXNRM88DTesWofuz1Xj03XrcX0/YWfY6WoID0Lx6\n\ ISp8ZqJ8ljsqZkxHtK0Twij5lW9JlCFTHiV9jUUyEThtxGRkj7BDEvlOd5yG\n\ mzs+RVnoSZSsX4eHnh646++LRm9vtNpNR4PPbHR/twoP//g2Oj8PRtvmQDQt\n\ mY3mra/jlv9sFARMRfxUN5yztcd5Jxdc//S3OmO641FTXIREB3fEjJpCPnbI\n\ GW+HtAn2iLV3QJGDEx66zcZ9P190LvZH16x56HB3w52di3D/zAbcO7YO7V8E\n\ omyTH0rXeyF39VwkvT4HYQ7OODR2Ak64uKEyIUGiShaAbqBE0xJ1mZmoz82V\n\ fkns/FXkaRw62tqQvvLXuPTSq0jw9sKtP76Pij9vRcn+rag8uBUNhz9G4487\n\ 0HB8Jxp++gR1h7ai7sR2NMZ8gYZLX6Ix6kvUnPstqkK3o/LEDpQf+wSlBz9G\n\ xvZVOD59Kq5//Q0KDxy0ZpPe0daKiosXUXo6DJnr1iH97dW4HRcncfavMmej\n\ pa8puEVmI97NBVXnvkTzlcOojTmKpvhjuJ92Gt1pYehOPYWu1DDcST+Hroyz\n\ 6Lz8Ezqjj6CTXGvPPoPWnDNoJH/XJoaiNu4Y6hJ/QlNKKHI+/xCXHNyQ8clO\n\ lBFWyuknIgIlp07h6voNSAhegUSyjrPJ7F8nLDbm58ua+zeRv8koOBSC2CAf\n\ NFzeh9sRYai8FIGHqTHoSovCP9dk4y+3s/Fzfgoe5mfgUUEanqRE4edrMXiU\n\ HI0HqdHoSYlFW1Is2qMi0RJ1AVVnCL/nI9BOeDk91QXfT7ZFiJMTDrm64exM\n\ sqg9ZiLWeSpuTfNE0VxfZG35EG119U0SO9ZovZqKKhdvVL7kgprgDfS3bgJb\n\ BMXFxfLCIL/+ynZ9Wloatm3bhh9++AGNjY3yrtf9it1BbQi/w4oJ3NbcioSV\n\ KxC9dD7q4r4n038WPZcj8UtBMs75+CI5KAitaRH4p4Yb6MlPw/0bSXhSnITH\n\ WTHoSSTKSbiAB1HhuHPhHDrPnsXdC+FoPhWGhqgodF5LwQHPadg/fTJC3Kfg\n\ tLszssjOL3k9ADV+Acjx8iMT9wUVuJkJ3FFZjSqPJah8dZYkNBGe7DGZ/crK\n\ Spw4cUL69a9MCKqExMREfPXVVwgPD1cJ7IjCwyHIev99otUtuL7jE+T/sB9V\n\ KddQfT0LBR9tQR7Z2ylv+qI+7gfcTzmPRxlReFKdicT5fijTTcS1iS7I2bUV\n\ bfmX8bgyCw+J4A9yY3Ev+SIR/gLuEeHvEOFbz59FY8RZYjFPojUuBveyUpG0\n\ 2Bv5QfPRuGwhWgMWo9k3EOUBAUjz88fNfd/r2pkEbXk3JUnpp/mnsHEawv47\n\ a4siOqWCstmkkg6WvoiVKCpCVcR5NJ4JQ/XFSJRGRaMw4iIKtm9H3bQZ6Hp5\n\ Eu4Mn4z2oZPQ5uSMBzPc8MjOFTfe8ENV3D6y986jO/0Sem6nIdY3AOWDHFA7\n\ zBk3dJOQ4DYTN77/Gl1lKXhQmIiulAh0JoSj4/J5tMaGo/rCaZSGheL2qWO4\n\ kxiLzuvXUPbWG2hZtQzt5PvO2mDULl6IdI95uLaBLOKamg4mQ82CFZLgdRs+\n\ 1JmTnE4zXdfkWy25K+oqylFIDM/1t1bitpMbSkdPRswIW0SPm4I8e0dkjLFF\n\ zYuTcPcVO3S6uaLdZw66p09HzooAlEb+kezWM+jIuIg7ZcmIIosyf4gDike7\n\ oWSMG4qHOSBpGBnPfwGKQ/eh/Xo0WuLPoiHuHLEMZ1F67iQKfgrBrWMhZJMk\n\ oPV6Kio+XIPubzbi3taVBOoWIdvPBxkbNtJFrhvC5rw5IkaZc7LSpVVrSX8R\n\ 4eg1vkktGPjTXVH30WeKKaDf9Ddpl9VhwW5u+N1u4WbaZiW20b+lZitmueni\n\ o3aFMSINStqkPhb6gbUHsWCTQ68xaaijwm+yEUVROpGZFjh+UenDReQbn3JF\n\ uZOMAd0aETFs5q3RuPeQXhXkem/SWjJ/i1pTQl+tRvKbtrP+Ov0NpnX6otLW\n\ F64tOEqSvqKuqRQKmREqxumHMkW7i4LSPn0haWN+ZvrHvyXfq4x3apKthYVJ\n\ x+L9BY3qLEwpcYDGRudtdJNTENObOEsKZNi1axe9piwBbgppf/pNfjNIGyCN\n\ SdvpPfReSpeOuWfPHsIUHWUQ/Ru5sgel0Dxy5IhyH8ESNp45WtrX+L7gYKzf\n\ yZYSVtE28s2UqO5nY2ZcSw0d2RiMIeuI/juYQ4XyITJxPUqysnu4kaHqoGrh\n\ JOlv+k1ZlfsMk9RJ1cuHodepbebtXH10eHo//U2u8S1gODMqDmykkajnwgSR\n\ /iZtWvq0ZAwJuuiNCXGuB5igSOUn8lqyy6JK6IeOLohDFzAlImqDKHmgcLeh\n\ OKTN0qQ41ipx2HVl2ik1el2/FBieOKGVSFdK4oTb23agx3E6euydUGTngjxH\n\ 4hnMnIaWSS644zoVbXO9cGehH7LfDUTBud2oiz9NvOkLaCmMxxlfP1x5yQ7p\n\ Y12RNtaFfFyRNcYVV4ZNQRiJbS4GL0PhiYOoiCVe9YUwFB4/gsIjB1AZcwoN\n\ N1LQmJOKht0b8cuP7+HBFytR9UYAkr19SFBweiiTTjBH0ofCl4Xg6YrXqC3m\n\ WlGcQnaNeA2Kvaft9Dpb5E8LhNzKUkNInRLmg/4dgFAwlSqY4X2oK8RGpXJa\n\ KbaZ2WO++ESFUe4ZEPbO52DqZoruh15gWe/G2Glaq/q2vvKtQKA8kfx+Lb4J\n\ n5asWWKReT2EkjlCvYBf3zm2FN0y7iOIbpnBmhR1+PToRxFCRD+KBNyyc8K8\n\ jVp02p9+c9Mg9xmoWD7al/YR7C01WhaSXR8s2S/ahRtHbjjpLbSdgWHfKQ82\n\ 10ciwzCQ7xrOKIVcPnccJuX931fSagUajkXllX6RqJfbWBEWuaJEi85hhf6m\n\ 5lvUikBL6kOtvzgOHZfiC8dL3k7HYffLbL+oOVeCCqS1wljQyRNnowxDrwla\n\ tWKTIHLXKwdqxVkLK5R2k/0mWX0cX0WngCqTtovKYStbUR7zYZQ+ZMwBBvOj\n\ F85SgU09GfWaEPGSS8muKxtHHJfhpZwXGI6mm4VoDtmProVz0e7sjlav2ahZ\n\ 4oWWJfPQPXMu7s0LQPqaQOSe+QNKo0+hLPY0anJiEeLtjZBf2eLkGAeqi9EO\n\ ZCzyN06NssehIRPw3QQ7hK9fh7xTR5AZcgC5xw+gPPEMam8moy4/BS37/wGP\n\ dq9C51o/3FzghatvkCj5dqWOA6RoG9Xhgxz0iNeo9eJ+igis3FCR776Y7d4A\n\ UiZhpYIbaehOVVBAB3hWnLQUg0GdtuGlbdZKP26wFYPLCBvBjrpZinD7yCsn\n\ oajbgt4u+//ioL3gpLXS1leeOXM0nOLMKc0DVDyL8Sxljg9L/SKBnAlqveBl\n\ /zmnEyR6GCpvTriFDKefCfWcPB1kcqa40WGuO59KbgL1XW0Ue8VVyYyGpXAL\n\ teOiWeSuvLlhGCnLvlwepLqsZfYJIukMraXIUV8EY3rSGsbGzDDcEHfqAxLK\n\ FncHeBO3wRxLSRcWIvc+rJHarVVKoBNO0EOJuCmScHThJp9fE1lhZBUbaUiS\n\ 9eXCMzICulgq0uh1rdYrvU7vIettMLuFLj3mYel4bMHzCjwGVSG1OQyzkpjm\n\ aQAl8CSgQ79eQmdqEgnnFqE7yBN3VnihdVMgWjcsQc9Sf2SsD0Rm2O9ReO4I\n\ isJ/wu1rkdjnORefDR2Hb0fa4utRtlb4ZqQtwe9vR03C18MnYueQ0fja0QVn\n\ 338Pt66EoTz5DGqKr6Im+wpaDmzCL39+B63vL0G2vw+uBgcPY/yLCSq1edBH\n\ fErQ47FEn09iuV/qe2u1mTQH/YUrYga5CRDs0jPD1QAFhjg0c00Y+P/GeEXY\n\ UBtpQwuqJmrZG6fy6lRZXQqhWpa93zjVG69afGmQkF0ZBvOETz3ZThXOmiHX\n\ b6DqVc3WEroyeDdaoHzRkphTO4DsPzYNVOyHaOL46QYZg1srnuzhh3wGMZNw\n\ hzLLxtTUw/RCxejyQNVlzi+PdIhl4qfRIpZYaTBoSiYzkGRtchg1OJgDAIr+\n\ ZEZUKGmoH3GsXnCIJfcUUtz49wWH5KBGm6QBDjEyKhwST7+sGQke03FJKWsv\n\ CrjFtWZloHw2dl9ASIk8GKZxsCff7JruZelrGDqKb6Ftwwp0+c/G/W0EgXa9\n\ ge4NC5Cx3B95JIiqijiK6pRw1OclYP+8+fj2VxOwb4ydDfaOnkJu3ztmCv0L\n\ vx8yHntenoDI4CAURP+IlopU1JO4qT10C/7l5EZ0f7QEhYt8kLSUxE1VVUOY\n\ bOLe5saBBCZKjMJARet4x9rQbul7PRX+KPlEZjvYoT03gc8lnzhAzBWqhKbW\n\ Sxhdn3iUzngYDhOrqOLA4JTOUEMmEMcoAJKi0H7HRTb6bJxJFg3PRPuEN8o0\n\ kjYhP6zgQV/JWZmfi77wr87/cnAS4nM1f3IbT43KkROP3vqHQENU27pTSMfw\n\ VIyBHeXGxbQ1UKfTrNi/PJ1G23Nzc62Y5rjRUI1upYyuah5g2Kz4voRnnTmo\n\ MW5TC8CZNYczWmcxPCnXm4Hn43M5uGWmYxq4/Jq5LG5mxfnQK7g3zNPO9GnQ\n\ NpfpE9ushDZ+yigeEQqpOYVVGWZllOP5SBHA+FTqaVpzJ6JX9RqiEZ8qKh69\n\ n0ZaDI1GSF9D0Zabg673gnBv43y0vxeAe3t/jeztK1F0+g9ojD2BlvQItBUn\n\ 4oS3L84On4Koca5kk14a50Kg6OIoR0SPccS12Z7I2rweqX/+ggRCJ9FVmoTW\n\ onR0nNyMv5xdj57NC9C0aj4yAvxwbf27HIqUyg6yy3kMQiwC9zd4hCBd4l6q\n\ ypH++wCSpXSqz+CC0HgOKDTIKKoRCwfo33rWrMXMnjzgq7NkNp4agCxFpCGM\n\ aYJSn6MdY76eDXX4zuptXC14sWAhMZ0u1lenuUKMB9dPihILksmhv7kTRGJV\n\ ebCBZpdUf0DFVPrqKUCFtlnrMyAcUHQiohhBh4lmS7GZFX5YKkUfopB/L1TR\n\ OrHoL6rwuEAo3pAle/5QYmM0s4yoVf/xY6DRWPzkSCzqGMDEEfrpxNQrzZyJ\n\ mMGP5vqLGfQ+EWvIGBwzXmGLuvXoXrSv9kXLjkB0/Gk1sj97G6Vnif8VGYrm\n\ xHB03LiMsz5+SBlmj+tj3axobQQJf7JGueD6CCcUOs1A8TsrcPWrnciJPY2W\n\ 0hR0FCag69YVtN9IRkfoZvzLwRV48vkS3N0ehHJ/L6R4+6D4SAhaa2sHM9Up\n\ 0QvZrcrOHKhsdh7kiBta7Ro+b/jgy5sCFjUtWqM9A3wIEKky3aw2Tp8xMiqK\n\ lBGNtuszS88WywgHbHyzikcVKl32uSrCPMPPhjED+ziuFsZYsX40ank63gcZ\n\ BZc01hUnkfxW7jdKjYr8EPh6CiAaqtryYmRjCER9SUYZeMlC3Zgq8cQzPtyq\n\ Gg5H73s+iTZqs1j4Yxj9JCqVDPJZVx/yhyZybfqRrJWuXPSnzbnRTNRAtvDo\n\ mHQ8lpHqK2b1PdemVTNjkmzfoEsNg1wbJOzgFHktg4hWfO7F/cYiIxWCcRTs\n\ H4LZqJa2sNZeUINYc2IC2vznoGb1fFRuW4yMT1agKvJPaLkQivboc+jMjkeU\n\ jz+KBtujYqSbBcpGuupGomyEC8qGOaFmojtqly5G/u5PceXIAVw9eBANGXFo\n\ z72Ktsx4dBWk4s5NAgRfLcejLxbh3pdv4t47AehYMheFnp5I8piHlNW/Rmt1\n\ NTEPMuO8QIAbGgZbFqxOWQA7c6m753pGZHACwT0sk2dD4gm8MAbP2ij22Ajd\n\ uEBcdo52zFCaMdb9PxbSZFI+FhKfMFEKs4WzD0H/CkssflOx2RtWmGP9GU+J\n\ BmgPbcMmUKxC6GS+Eq8SJIJyYXgXKqgN2zIGI0r9BLDiXHGg4vMgnBspeKbg\n\ oOHC5N6NeTxTGwAWVJk8qeilwkB1kKF1Bm/NkycKPOjrpGyUWjueQ3o+9QwC\n\ pBnFTUpcQ2aZx2i9UGUoaXoka8Vk8iMMfUGAtaogwFwgJJzy8yIArhb+YZz1\n\ Fd7UJQ02WiUNFG+Uo1G9vVeWQy8c9A3p1CuO15vz/mJFBB9XSL6pxlXDnI0W\n\ zOklGqzylgwXCQdcHiO+QJl4gc6CCuzs0XI5Fk0rPVG5yhMFm32RuiUQdZf2\n\ ojv6DO4mR6HnRhLivQNQaWOP2hGuqHnZFdVDndEw0gVt831Q9tvfIPv8MRSn\n\ xqMmOR43joeiIS0W98vScDfvKu4XZZLvTFS/7YeGlTNQt3I+WhZ5oeNNb7R4\n\ eKB4+mykesxF0vIVKP7xRxLG1ej4cwXcgrA4hpsGC2Z6mOWQjQuDHXILn1zR\n\ nD3ncj6aKGPPHgnHUlJXfTW+SYy1UvKaUkk+5Vi2sFwYoRZEDPbkwEx4qMjw\n\ 1F/PtrUqhmPPIxmHDBz+TEOijSGvai0PFgNoBTQ4P3zeBLjnIoooySnISTXG\n\ vh62emffLCyaKPKTH3hQDrI4uDFaJsNuoySjvF9F50AddatTCWpRrI0gV3Ys\n\ ZMGMSzYH6/OSQoKce1AC3krD89JPSpP2F2tZzOGmEAMyPn9lhJu9FafzYmbZ\n\ +aaR0SCVieKFztzCcaffgtlOjdr5fpTt97t4Xjwke7bieTmLyk9lSLtWFpM/\n\ nqZRM69kWHvDU6E6U1bwUKVUnn7EYQ2ryY0nZ4ARfhjXyltr1cqTa9S9GmpU\n\ FM+R1Qwvuv7B7HBN8cWFwnFQqLhX0aTqFas01XlRK8O8qCzaiyZF0/JFLGWs\n\ lWBWAlwBax3R+M0/onzpPFS8S3DzA29c+80SNMR8jzsx4XiQGIWH+amImR+A\n\ 0kH20k6uGO6EhqlzUP3BWmQe3I3c6Ai0FVxHZ34GiSiv4lbkBVRFnceTkmQ8\n\ LLyCnysy0XOTYO3GBWhe4IzqWQ6oc3FG08xpqHacjlLHaSh3n458t5nImDUX\n\ 6W+tRsmJUzR1qjz2qeXJ8+MhC8lRt1LZewVRrRRDxB404/aPI4SR2RVRl0K7\n\ /oG0FyVjRm+kRlCoy9A/YsuiLX2oY6083SQYYuMIQm+5K5UKAcM20Q2wFgcQ\n\ g1sOnDyGkcvkjENRlsYVFCIGmYxn3kt+gqpTiLKkB9vpfUNVQCIefVKxDHDN\n\ CGONRbdRTYwAJnqVCVzrQ2MKb+RO3swnSvUctrUWr4pHJdEltBqEZ9YEUpai\n\ ghSDYAL0hXJFISzVFEGveB5iUqYM8yG0TJEjjfCsturZbIMVbKXSpFBiaQ5l\n\ uVGikGMu4jH3aDRvlw05/XeA6kEm8b5E5RkgGwUJDR7VfrYntQcaOQm8toD2\n\ I2yZQ0LTw+oL56h5Zxxrng3KGh6kekCbgbDCFo/O+IuctunLMxToEJ9coxDC\n\ NSryyOGUY4Ech8rITftzOlzjZp/JHqBMFn9YnJOmsaoYt2uQ7x+IDlKBKAdo\n\ /nA2q3lR1b1yrgWSfHkb16MMNqpHMSGVqXQ1dQsYhkp5WXLtBSmFzqpSiJdc\n\ W4vS1xegxNMdBW/MRWawF5LWLkZT9PfoOn8G9+OjcD83BWfn+yFp0CQUOcxA\n\ 2eplyNr9GdJOHEVJZAQqoy6iOj4GzZlJaM1ORvXlGNyODMf9nHg8zI7Fk6Jr\n\ 6MlLR/1aX9xd4o46NxL7OtihzskeTePtUT7ODiXuU1HhOAOVDtNR5TgVJbM9\n\ kf/OWlSev4DmWyVKqbz+HSWKWnkbtRrccqgzfINV4ZvyegjhASUWahqdoLHx\n\ 2MmUtSqByvBUJ8IMH1ux6DJU6GMYZXz5dRfiS0OoOaX3U1Q0aFNXeisp0uAN\n\ ir3l54TK48MGQjOYEV9hxIWWmLLRI4GgYDnSlMy6Os8qa156Gwi31fRFLTK3\n\ 8uWhqmhMfM8IpU2FZAlRsU3Hs3Vm+FXA2NoMZPFXMfAKI+V9VWRMHgyboWEu\n\ ODUs7FW8EkJOxOneRBCqcQ2zBrILIyvZxNtQVJG6sixJH7OAaaWAlSqNqbb8\n\ g820iTZwdB/v1er3okbbWI221/plj9Vtr7A248pzffqSRsJaPMtnhcxM2qH+\n\ y89R5+CGvJlTkeLsjkvOzkgI9kOjZCZPo4OEEo2JcQj1mIeEOR7I+nwrUg5/\n\ j9KYC6i/Eo3bl86j+EwYbpwIRX7YKVTGRaIiJgK5J46jMfYc2uPP4f71K7iX\n\ fQ1ly3zRudQDNVNdUTRrFrL9/JH//ibkffQRamJiURsfb0H+iaNOZHws6i9F\n\ ojaazP+NXMM0i/LciGS+DF0zuk2GGBo8/RY3brMXO4tn53xkvjMUD9zAdx9s\n\ wJ+B86mm5mTqwgSNUbQSQCzhoymKUy87hOIqcyfN7RCxQvf/c4eIdJ/HDjF+\n\ QNBSfEDQ3A6RH7aYhPo/fYfbM6Yi3c4V0RMcETXBHuG2kxEd5IPqi9+h6eQx\n\ lIQeR8mpE7gYvBwpe75AyeVwdBVcwYP6bDxsyEJ3ebp0pFufFIWS8JPIPBKC\n\ tJBDyDh8EAXHjhBn4CTakmLQkXUNhYv8UeYzFzkLFqDoz/tRTRzyIXyFM6DR\n\ A6SV6rUY5G8l3NSXifS+GUQMtFf2lc7wYFKeAZEgc0kUBvu7AXo9oqT9R2ns\n\ AfYCEH14zqph+r0veB6NZ/z0kmqvWrGicdBT7gx9HYj6vZLD+9hPK6qR3+dn\n\ I/InfVgCb4IGq33dTCMNyJl6dYTWxmab6SW+mYpvoXrdeygZ74Bzo20ROcwW\n\ ia/Y4vxEWxweNxFh3h4oP78XuT/sR9GRwyg9fgTlESfRlJOAzltJ6KxIwR36\n\ KbmC9oJ4NKVEoTk9Gu0ZEaiNOoE8Wkfx3V6kkvsLTh0n6/c67lWUIdvXAzme\n\ c1BIWB/G2DQ29FaK12bGfRE2k3r1Kgc0MhKxJALB2E59jp3S5LNoVPamsZ8o\n\ 8EjuFt/w5ta29MI9spNpPstk51GaIKP36PWOXy/UTD2CyZMVfCWJJn200K8v\n\ G8b4PWvqjTrcTD+exTa1YV5lbcLhqfLuU1O7hD+hofXUxihhA2q8h2yIBgts\n\ cwzl64S+dDolFTl79yGZ+GI59u64MtUT8YFLEee9EOmr1yJqSSCOuLjhwksT\n\ kfW7T9CQRFDmdhkeN9fiSUcjHne34PGDTvz8pAtPHnfh554WPOluxMO2Bjxs\n\ rcOjdvJpqsL9mgp03S5Hc0kp7rY047/+9jfcDjmMFBdnpPj4oPzCBRf9CjDO\n\ 08nVhvrVzjX9uqllM1W+IG820Xd6rT8LzUlD8XwBiQttpkabt8a9nhr9VLMy\n\ AO1NTYjzDcDVpW+g6NtvUJuUhKaqSvrWZwYU41FfWor4hYG4NGwsDtjZIf7D\n\ 91B/dD/qQ0PQEBGKtqvh6Ei7hLaUCLQlR0qv+G29ehotF46iIexHNJw6iMbQ\n\ A2g4fpj8fQRVIQdRSd8ZuOVDnJriiBhbO1z2mo/y8PO6v2mo5b9FlonVaG9H\n\ BdkmHa3NLHM2HhUZWcjc+z3OrliO3bbjcHLWFNQv9ETN2oVo37MGj/atxS8X\n\ tuGXuF34JXwLfk74EI/PvYuezfPQETwHLW+6o9nfCfUBM9Dw+kyUzHJHBgkW\n\ 4ghrZ2wdcWYifQm3G4qPHlWxyA9PGItjpK+xiFy5AvvGj0W21zQ0es9D26bl\n\ ePzDJjz8YhUefrcWj/+wBr+ErMcvP63B4z3LcXd7ALoWuqJn/RzcCZqOan8P\n\ NM6bgTrvmbg1zR15Tm6IIx7a8VcdEDHWFmnr1stvnP5fme5opobmhkYc9fPD\n\ 8ZFjUTfbEy1vBeLe1hV4uONtPPn9anRtCcL9XcF48H4AnvwuEA++XY7OnUFo\n\ WeiGpjn2aPckJtPfC5XuM1Dzug/KPGajxNkNRVOnIWmKM6JfmYz4xUul1SHR\n\ /x81/ZKEBJy2nYQcWyc0zvZDz+rluLdxKbrfDULrb5aiNsgPDSsC0BbkgQc7\n\ FuP+58vQvtIHrX4z0eDugCpHO5T7+qBkzx9RFRmJvM8+Q/rKVbhBdHjLzR3J\n\ 4xwRMnwiru/eo0H/ZZRejETCFDtUzp+LzsWLcNfDF43By1C0cT1ufvWPuHX4\n\ ELI3bkCevw/qA+fj7up5uPOOH9rmTkfjdGeUObui8vQp/p781toalJ0+jVy6\n\ p6YTUzXGDmFz5tPXpcvk/1skPwCxa9YgnUxVl48velYEouWTnahLSpRety5v\n\ pkFoqajAtV+/g2wiUlOQF7qX+6F91nS0OjrixptLUZeVpRR40s1ZTFZY0jxf\n\ RE92Rta3v1fR5Ua5/kautIlrXOcQVS5FW1oqOniF0UCJZNq6dSiYMRNNszxI\n\ RDwVdS9NkiJTwhoPoKrJ1s/8YDNivbzJiHkSof8SCVkhe+enyJg+GxW+S9B4\n\ PYe/nLI2PV16PWPlnBmodnJF2RQXlJ04MYjdRcXI+ng7rn/5O2nz0ub/lAfm\n\ /8OA9JL5N99A3oJFqLlxYzBTQNHBQ8ghcXmTnROqgt+WikG5H1ZDsKSjtVX6\n\ JQ35H+KQlig5dgzpQYGou1XK7rEiE5eD5Pl+qLd1Ruk77+pfwc+sIg+sKFal\n\ rF2HyuRk5T3LtC3zo49RTHCrcMtWo3s53Y7mZsXIc1isupqE1Flz6fvDdUY3\n\ 2rFOdJqSlr6JlDVrjDvZs04Zv9mMq8tX6qWW/pGnUKd74f8A8yVfcQ=="], ImageSize -> {557, 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"}]}, {}], FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (May 21, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 372, 7, 71, "Section", CellGroupingRules->{GroupTogetherGrouping, 10000.}, InitializationCell->True], Cell[965, 32, 5709, 134, 470, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Closed]], Cell[CellGroupData[{ Cell[6711, 171, 177, 2, 41, "Section"], Cell[6891, 175, 42151, 916, 3133, "Input"], Cell[49045, 1093, 84, 1, 31, "Input"] }, Closed]], Cell[CellGroupData[{ Cell[49166, 1099, 94, 1, 41, "Section"], Cell[49263, 1102, 834, 15, 126, "Text"], Cell[50100, 1119, 32471, 684, 626, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature XvT2ijbf2LtHBDgGsSlO2qFf *)