(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 49572, 1010] NotebookOptionsPosition[ 32791, 706] NotebookOutlinePosition[ 49362, 1003] CellTagsIndexPosition[ 49319, 1000] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["", "Text"], Cell[TextData[{ StyleBox["Kinematics Match #9", "Title"], "\n" }], "Input", CellChangeTimes->{{3.4813240951254473`*^9, 3.4813241225346956`*^9}, { 3.48132545145723*^9, 3.4813254642024527`*^9}, 3.4860465658176575`*^9, { 3.4861211778135853`*^9, 3.4861211802457237`*^9}, {3.4862529516085587`*^9, 3.4862529833533745`*^9}, {3.486291892146005*^9, 3.486291892458006*^9}, 3.4862963167365584`*^9, 3.486298822395145*^9, 3.486299299453431*^9, { 3.486468595665966*^9, 3.486468596180767*^9}}], Cell[TextData[StyleBox["In the animation below, you control the blue ball. \ The red ball and the blue ball will both move with constant acceleration. \ The red ball follows parameters that are already determined. You set the \ parameters that determine the motion of the blue ball. The parameters of the \ motion of the blue ball are shown on the graph.", "Text", FontSize->18]], "Text", CellChangeTimes->{{3.486041417662309*^9, 3.4860414251815224`*^9}, { 3.486251058667289*^9, 3.486251082274639*^9}, {3.486252862209446*^9, 3.486252940818942*^9}, {3.486294114524273*^9, 3.4862941493273077`*^9}}], Cell[TextData[StyleBox["If you click on the \"+\" sign next to the slider for \ time (t) you will find all of the controls for that parameter. By clicking \ on the play button (black triangle) for time you can make the animation run \ on its own. Adjust the other paramters with the sliders.", "Text", FontSize->18]], "Text", CellChangeTimes->{{3.481326003096599*^9, 3.4813260062322044`*^9}, { 3.481326044686272*^9, 3.4813261672254877`*^9}, {3.486041337727769*^9, 3.486041399223077*^9}, {3.486041438597546*^9, 3.48604145787918*^9}, { 3.4862528443194227`*^9, 3.4862528488526816`*^9}, {3.486294170567634*^9, 3.4862941831728277`*^9}}], Cell[TextData[{ StyleBox["Before you begin: ", "Subsection", FontSize->18], StyleBox["Move the slider or click the \"play\" button for time. Estimate \ the initial position, velocity, and acceleration of the red ball. Is the \ initial velocity positive or negative? What about the acceleration? After \ you have decided whether they are positive or negative, see if you can \ estimate how big they are (hint: try setting the time to some small value \ such as 0.1 seconds).\n", FontSize->18], StyleBox["After you have done that:", "Subsection", FontSize->18], StyleBox[" Adjust the sliders to precisely match the motion of the red ball.", FontSize->18], " " }], "Text", CellChangeTimes->{{3.481325908451233*^9, 3.481325908451233*^9}, { 3.486289667873498*^9, 3.486289673395908*^9}, {3.486289750397643*^9, 3.4862897540324497`*^9}, {3.4862897899749126`*^9, 3.48629000474149*^9}, { 3.4862941898729305`*^9, 3.4862942005255938`*^9}, 3.4869113462113547`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", "0.8"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.9"}], "}"}]}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"m", ","}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"PointSize", "[", "0.025", "]"}], ",", "Blue", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"x0", "+", RowBox[{"v0", " ", "t"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{"(", "a", ")"}], " ", RowBox[{"t", "^", "2"}]}]}], ",", "0.2"}], "}"}], "]"}], ",", RowBox[{"PointSize", "[", "0.025", "]"}], ",", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"8.6", "-", RowBox[{".5", " ", "5.4", " ", RowBox[{"t", "^", "2"}]}], "-", RowBox[{".4", " ", "t"}]}], ",", "0.8"}], "}"}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2.7", " ", "3"}], ",", ".65"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", "3"}], ",", ".65"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"8.6", "-", RowBox[{".5", " ", "5.4", " ", RowBox[{"t", "^", "2"}]}], "-", RowBox[{".4", " ", "t"}]}], ",", "0.01"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.7", " ", "3"}], ",", ".65"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Red"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.4", " ", "3"}], ",", ".65"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2.7", " ", "3"}], ",", ".35"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", " ", "3"}], ",", ".35"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{ RowBox[{"x0", "+", RowBox[{"v0", " ", "t"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}], "*", RowBox[{"(", "a", ")"}], " ", RowBox[{"t", "^", "2"}]}]}], ",", "0.01"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.7", " ", "3"}], ",", ".35"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.4", " ", "3"}], ",", ".35"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Medium"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "3"}], ",", "0.5"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.5"}], " ", "3"}], ",", "0.5"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.32", "-", "3"}], ")"}], " ", "3"}], ",", "0.5"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Round", "[", RowBox[{"t", ",", ".1"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{".4", "-", "3"}], ")"}], " ", "3"}], ",", "0.5"}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0", " ", "3"}], ",", RowBox[{"-", "0.4"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"x", ",", "0"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3.8"}], " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"N", "[", RowBox[{"x0", ",", "2"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"Subscript", "[", RowBox[{"v", ",", "0"}], "]"}], ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.5", " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2.2", " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"v0", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3.2", " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"4.65", " ", "3"}], ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1.6"}], " ", "3"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<=\>\"", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", ".8"}], " ", "3"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"a", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0.0", " ", "3"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Superscript", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"2", ",", RowBox[{"FontColor", "\[Rule]", "Blue"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1.8", " ", "3"}], ",", RowBox[{"-", "1.2"}]}], "}"}], ",", RowBox[{"Background", "\[Rule]", "White"}], ",", RowBox[{"FormatType", "\[Rule]", "Large"}]}], "]"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "False"}], "}"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "3", ",", ".1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x0", ",", "1", ",", RowBox[{"Subscript", "[", RowBox[{"x", ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"-", "15"}], ",", "15", ",", ".2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"v0", ",", ".2", ",", RowBox[{"Subscript", "[", RowBox[{"v", ",", "0"}], "]"}]}], "}"}], ",", RowBox[{"-", "5"}], ",", "5", ",", ".2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"a", ",", "0", ",", RowBox[{"Style", "[", RowBox[{"a", ",", "Italic"}], "]"}]}], "}"}], ",", RowBox[{"-", "10"}], ",", "10", ",", ".2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.4813241721115828`*^9, 3.4813243020296106`*^9}, { 3.4813244498554707`*^9, 3.481324505656769*^9}, {3.48132456328327*^9, 3.4813247712004347`*^9}, {3.4813248038356924`*^9, 3.4813248114339056`*^9}, {3.48132484823437*^9, 3.481324924003703*^9}, { 3.4813249623797708`*^9, 3.4813249689941826`*^9}, {3.4813250419711103`*^9, 3.4813250623915462`*^9}, {3.481325131406068*^9, 3.4813252724615154`*^9}, { 3.4813255731530437`*^9, 3.4813255860854664`*^9}, {3.4813262247895885`*^9, 3.481326226037591*^9}, {3.4860376599713097`*^9, 3.4860376990649786`*^9}, { 3.4860377582358823`*^9, 3.4860377872051334`*^9}, {3.4860379147509575`*^9, 3.4860380311427617`*^9}, {3.4860381089244986`*^9, 3.4860381613717904`*^9}, {3.4860384661183257`*^9, 3.4860386265958076`*^9}, {3.4860386869055133`*^9, 3.486038709260353*^9}, { 3.486038739415206*^9, 3.4860388360261755`*^9}, {3.486038879175851*^9, 3.4860389022794914`*^9}, {3.4860389522619796`*^9, 3.48603897531882*^9}, { 3.4860390302153163`*^9, 3.4860391093766556`*^9}, {3.4860391560051374`*^9, 3.486039243240491*^9}, {3.4860392845805635`*^9, 3.4860394088035817`*^9}, { 3.486039444293644*^9, 3.486039478254904*^9}, {3.4860396787584553`*^9, 3.486039679288856*^9}, {3.4860398071310806`*^9, 3.4860398076926813`*^9}, 3.4860406504061613`*^9, 3.4860406986570463`*^9, {3.486041022388815*^9, 3.4860410516700664`*^9}, {3.486041132353408*^9, 3.4860411347090125`*^9}, { 3.48612110096519*^9, 3.486121116554081*^9}, {3.486250854487611*^9, 3.4862508905096707`*^9}, {3.4862509244576125`*^9, 3.4862509717353168`*^9}, {3.486251018698003*^9, 3.4862510200210786`*^9}, { 3.4862510906871204`*^9, 3.486251269583353*^9}, 3.4862513047913666`*^9, { 3.4862513642537675`*^9, 3.4862514053771195`*^9}, {3.4862514605402746`*^9, 3.486251467162654*^9}, {3.4862514974603863`*^9, 3.486251576476906*^9}, { 3.4862516091427746`*^9, 3.4862516488690467`*^9}, 3.486251784279792*^9, { 3.4862518811913347`*^9, 3.4862518984033194`*^9}, {3.486251950766314*^9, 3.4862522905637493`*^9}, {3.4862523309210577`*^9, 3.4862523546774163`*^9}, {3.486252395540754*^9, 3.4862524013180842`*^9}, { 3.48625243341692*^9, 3.486252486090933*^9}, {3.4862525206439095`*^9, 3.486252728687809*^9}, {3.4862527641898394`*^9, 3.4862527973767376`*^9}, { 3.486290053709976*^9, 3.4862902528599253`*^9}, {3.486290325791054*^9, 3.486290331017063*^9}, {3.486290372013935*^9, 3.4862905789326982`*^9}, { 3.4862906118799562`*^9, 3.486290667384854*^9}, {3.486290700441312*^9, 3.4862907076485243`*^9}, {3.4862907450583906`*^9, 3.4862907717656374`*^9}, {3.486290827878936*^9, 3.4862908327617445`*^9}, { 3.4862908670350046`*^9, 3.486291500303517*^9}, {3.4862915391319847`*^9, 3.4862916093945084`*^9}, {3.4862922392215385`*^9, 3.4862924851053147`*^9}, {3.4862926147558064`*^9, 3.4862926175795994`*^9}, {3.4862926488738303`*^9, 3.4862930386858177`*^9}, {3.486293075497633*^9, 3.486293089996606*^9}, { 3.486293409625196*^9, 3.4862936373459435`*^9}, {3.4862936840741615`*^9, 3.4862937658154173`*^9}, 3.486293899018713*^9, 3.486293981178475*^9, { 3.4862940358205643`*^9, 3.486294044276944*^9}, 3.486294093417699*^9, { 3.486294228839779*^9, 3.4862942780842857`*^9}, {3.486294386008443*^9, 3.4862944148988867`*^9}, {3.4862944727157745`*^9, 3.4862946717425823`*^9}, {3.486294730262231*^9, 3.4862948170473137`*^9}, { 3.486294859985473*^9, 3.4862949502628603`*^9}, 3.4862949966235723`*^9, { 3.4862950414280105`*^9, 3.4862950768560543`*^9}, {3.4862951102640676`*^9, 3.4862951460521173`*^9}, {3.4862952030929937`*^9, 3.48629526081513*^9}, { 3.486296393322939*^9, 3.486296573844264*^9}, {3.486298854808999*^9, 3.4862988709159203`*^9}, {3.4862989074340086`*^9, 3.4862989101931667`*^9}, {3.486298977612023*^9, 3.486298988187628*^9}, { 3.4862990181883435`*^9, 3.486299096609829*^9}, {3.486299131863846*^9, 3.4862991406193466`*^9}, 3.486299199687725*^9, {3.4862993088269672`*^9, 3.486299355292625*^9}, {3.4862994084506655`*^9, 3.486299417877205*^9}, { 3.486299459323575*^9, 3.4862994618987226`*^9}, 3.4862995667987223`*^9, { 3.4862996547037506`*^9, 3.4862996628732176`*^9}, {3.486299709121863*^9, 3.4862997137061253`*^9}, {3.4862997679232264`*^9, 3.486299771165412*^9}, { 3.486299813344824*^9, 3.4862998161909866`*^9}, {3.4863000087850027`*^9, 3.486300012708227*^9}, {3.4863000753928127`*^9, 3.4863001014913054`*^9}, { 3.486300160795697*^9, 3.486300169200178*^9}, {3.4863774323327928`*^9, 3.4863774331595945`*^9}, {3.4864686135747976`*^9, 3.4864686495328608`*^9}, {3.4864686796877136`*^9, 3.4864688310079794`*^9}, 3.4864688652656393`*^9, 3.486469578732893*^9, {3.486469615626958*^9, 3.486469660445836*^9}, {3.4864697002259064`*^9, 3.4864697039699125`*^9}, { 3.48646973643357*^9, 3.4864697399747763`*^9}, {3.4864698251509256`*^9, 3.4864698952886486`*^9}, {3.486469942119931*^9, 3.4864699451619363`*^9}, { 3.486470037794899*^9, 3.486470052724125*^9}, 3.486470087262586*^9, { 3.486668904832114*^9, 3.486668911155476*^9}, 3.4867260069161963`*^9, 3.486726040815056*^9, {3.486747557541318*^9, 3.486747562970127*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`a$$ = 0, $CellContext`t$$ = 0, $CellContext`v0$$ = 0.2, $CellContext`x0$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[$CellContext`t$$], 0, 3, 0.1}, {{ Hold[$CellContext`x0$$], 1, Subscript[$CellContext`x, 0]}, -15, 15, 0.2}, {{ Hold[$CellContext`v0$$], 0.2, Subscript[$CellContext`v, 0]}, -5, 5, 0.2}, {{ Hold[$CellContext`a$$], 0, Style[$CellContext`a$$, Italic]}, -10, 10, 0.2}}, Typeset`size$$ = { 504., {144., 153.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$6439$$ = 0, $CellContext`x0$6440$$ = 0, $CellContext`v0$6441$$ = 0, $CellContext`a$6442$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`a$$ = 0, $CellContext`t$$ = 0, $CellContext`v0$$ = 0.2, $CellContext`x0$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$6439$$, 0], Hold[$CellContext`x0$$, $CellContext`x0$6440$$, 0], Hold[$CellContext`v0$$, $CellContext`v0$6441$$, 0], Hold[$CellContext`a$$, $CellContext`a$6442$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[{0.2, 0.8}, {$CellContext`x, -15, 15}, PlotRange -> {-1.5, 0.9}, AxesLabel -> {$CellContext`m, Null}, Epilog -> { PointSize[0.025], Blue, Point[{$CellContext`x0$$ + $CellContext`v0$$ $CellContext`t$$ + ((1/ 2) $CellContext`a$$) $CellContext`t$$^2, 0.2}], PointSize[0.025], Red, Point[{8.6 - (0.5 5.4) $CellContext`t$$^2 - 0.4 $CellContext`t$$, 0.8}], Text[ Style["x", Italic, FontColor -> Red], {2.7 3, 0.65}, Background -> White, FormatType -> Medium], Text[ Style["=", FontColor -> Red], {3 3, 0.65}, Background -> White, FormatType -> Medium], Text[ Style[ Round[ 8.6 - (0.5 5.4) $CellContext`t$$^2 - 0.4 $CellContext`t$$, 0.01], FontColor -> Red], {3.7 3, 0.65}, Background -> White, FormatType -> Medium], Text[ Style["m", Italic, FontColor -> Red], {4.4 3, 0.65}, Background -> White, FormatType -> Medium], Text[ Style["x", Italic, FontColor -> Blue], {2.7 3, 0.35}, Background -> White, FormatType -> Medium], Text[ Style["=", FontColor -> Blue], {3 3, 0.35}, Background -> White, FormatType -> Medium], Text[ Style[ Round[$CellContext`x0$$ + $CellContext`v0$$ $CellContext`t$$ + (( 1/2) $CellContext`a$$) $CellContext`t$$^2, 0.01], FontColor -> Blue], {3.7 3, 0.35}, Background -> White, FormatType -> Medium], Text[ Style["m", Italic, FontColor -> Blue], {4.4 3, 0.35}, Background -> White, FormatType -> Medium], Text[ Style["t ", Italic, FontColor -> Black], {(-4) 3, 0.5}, Background -> White, FormatType -> Large], Text[ Style["=", FontColor -> Black], {(-3.5) 3, 0.5}, Background -> White, FormatType -> Large], Text[ Style["s ", Italic, FontColor -> Black], {(1.32 - 3) 3, 0.5}, Background -> White, FormatType -> Large], Text[ Style[ Round[$CellContext`t$$, 0.1], FontColor -> Black], {(0.4 - 3) 3, 0.5}, Background -> White, FormatType -> Large], Text[ Style["Properties of blue ball:", Italic, FontColor -> Blue], { 0 3, -0.4}, Background -> White, FormatType -> Large], Text[ Style[ Subscript[$CellContext`x, 0], FontColor -> Blue], {(-3.8) 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style["=", FontColor -> Blue], {(-3) 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style[ N[$CellContext`x0$$, 2], FontColor -> Blue], {(-2) 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style["m", Italic, FontColor -> Blue], {-3, -0.8}, Background -> White, FormatType -> Large], Text[ Style[ Subscript[$CellContext`v, 0], FontColor -> Blue], {1.5 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style["=", FontColor -> Blue], {2.2 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style[$CellContext`v0$$, FontColor -> Blue], {3.2 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style["m/s", Italic, FontColor -> Blue], {4.65 3, -0.8}, Background -> White, FormatType -> Large], Text[ Style["a", Italic, FontColor -> Blue], {(-1.6) 3, -1.2}, Background -> White, FormatType -> Large], Text[ Style["=", FontColor -> Blue], {(-0.8) 3, -1.2}, Background -> White, FormatType -> Large], Text[ Style[$CellContext`a$$, FontColor -> Blue], {0. 3, -1.2}, Background -> White, FormatType -> Large], Text[ Superscript[ Style["m/s", Italic, FontColor -> Blue], Style[2, FontColor -> Blue]], {1.8 3, -1.2}, Background -> White, FormatType -> Large]}, Axes -> {True, False}], "Specifications" :> {{$CellContext`t$$, 0, 3, 0.1}, {{$CellContext`x0$$, 1, Subscript[$CellContext`x, 0]}, -15, 15, 0.2}, {{$CellContext`v0$$, 0.2, Subscript[$CellContext`v, 0]}, -5, 5, 0.2}, {{$CellContext`a$$, 0, Style[$CellContext`a$$, Italic]}, -10, 10, 0.2}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{570., {267., 274.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.4862912184422216`*^9, 3.4862913383128324`*^9}, { 3.4862913797933054`*^9, 3.48629140533055*^9}, {3.4862914435194173`*^9, 3.486291501442319*^9}, {3.4862915525636086`*^9, 3.4862916267573385`*^9}, 3.4862924863640842`*^9, 3.486292618853369*^9, {3.4862926556376843`*^9, 3.4862926781805305`*^9}, {3.486292724292489*^9, 3.4862927338163853`*^9}, { 3.4862929588335915`*^9, 3.4862929682974863`*^9}, {3.486292999625468*^9, 3.4862930391233244`*^9}, {3.4862930780851727`*^9, 3.4862930906716166`*^9}, {3.486293425211685*^9, 3.486293455119645*^9}, { 3.4862934883214045`*^9, 3.486293501951364*^9}, 3.486293641383506*^9, { 3.486293693434305*^9, 3.486293766519178*^9}, 3.4862939024962664`*^9, 3.4862939847797804`*^9, 3.486294045184458*^9, 3.486294094603967*^9, 3.486294278763046*^9, 3.4862946056153164`*^9, {3.4862947444186983`*^9, 3.486294817599822*^9}, 3.4862948652080536`*^9, 3.4862948952220144`*^9, { 3.4862949265912466`*^9, 3.486294951659131*^9}, 3.486294997088579*^9, 3.486295077263561*^9, 3.486295148008397*^9, {3.486295210243103*^9, 3.4862952621063995`*^9}, 3.486296464627017*^9, {3.4862964969078636`*^9, 3.4862965112936864`*^9}, {3.4862965464706984`*^9, 3.4862965740942783`*^9}, 3.486296706922876*^9, 3.486299056435531*^9, 3.4862990973278704`*^9, 3.4862991413243866`*^9, 3.486299200356763*^9, 3.486299356616701*^9, 3.486299418333231*^9, 3.4862994628027744`*^9, 3.486299568115798*^9, 3.4862996635692577`*^9, 3.4862997151952105`*^9, 3.4862997719854584`*^9, 3.486299816538007*^9, 3.486300013602278*^9, {3.4863000823552103`*^9, 3.4863001019683323`*^9}, {3.4863001695351973`*^9, 3.4863002194720535`*^9}, {3.486377433627595*^9, 3.48637744242601*^9}, 3.486468652091265*^9, {3.4864686846641226`*^9, 3.4864687108565683`*^9}, 3.486468743554226*^9, {3.4864687787946877`*^9, 3.486468897542096*^9}, { 3.486469494055944*^9, 3.4864695097027717`*^9}, 3.486469581509698*^9, 3.4864696167813597`*^9, {3.4864696477942142`*^9, 3.4864696611478376`*^9}, 3.486469704515914*^9, 3.486469741066778*^9, {3.486469799816481*^9, 3.4864698290977325`*^9}, 3.4864698592057858`*^9, 3.486469897535053*^9, 3.4864699492491436`*^9, 3.4864700540033274`*^9, {3.486470088853789*^9, 3.486470113049431*^9}, 3.486668912937578*^9, 3.4867258003250337`*^9, 3.4867260099114017`*^9, 3.486726041532657*^9, 3.486726072763912*^9, 3.4867475635005283`*^9}] }, {2}]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.4813242385842996`*^9, 3.481324239473501*^9}}] }, WindowSize->{1348, 633}, WindowMargins->{{Automatic, -6}, {Automatic, 30}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "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, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], 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}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], Magnification->1.4000000953674316`, FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 16, 0, 53, "Text"], Cell[564, 22, 499, 9, 142, "Input"], Cell[1066, 33, 606, 8, 161, "Text"], Cell[1675, 43, 645, 9, 161, "Text"], Cell[2323, 54, 981, 19, 256, "Text"], Cell[CellGroupData[{ Cell[3329, 77, 20149, 441, 1453, "Input"], Cell[23481, 520, 9200, 180, 789, "Output"] }, {2}]], Cell[32693, 703, 94, 1, 57, "Input"] } ] *) (* End of internal cache information *) (* NotebookSignature 0v0u55EvvZqK5AKowysE7slQ *)