(* 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[ 56969, 1416] NotebookOptionsPosition[ 53700, 1310] NotebookOutlinePosition[ 54485, 1336] CellTagsIndexPosition[ 54442, 1333] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tab", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{".2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{".4", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{".6", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{".8", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "A", " ", "made", " ", "up", " ", "set", " ", "of", " ", "points", " ", "governing", " ", "the", " ", "thrust", " ", "curve", " ", "of", " ", "the", " ", "rockets", " ", "engine"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"Interpolation", "[", RowBox[{"tab", ",", RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}], "[", "t", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ "The", " ", "matematica", " ", "command", " ", "function", " ", "that", " ", "approimates", " ", "a", " ", "function", " ", "that", " ", "fits", " ", "the", " ", "given", " ", "points"}], "*)"}]}]}], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2`", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4`", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6`", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"0.8`", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.3985219733735847`*^9}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.398521973419751*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "rocket", " ", "engines", " ", "thrust", " ", "in", " ", "newtons", " ", "as", " ", "a", " ", "funcion", " ", "of", " ", "time"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"T", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1.0204081632653061`*^-7, 2.5510204082479504`*^-6}, { 0.0015335896027981336`, 0.03833974006995344}, {0.0030670771647799406`, 0.07667692911949864}, {0.006134052288743555, 0.15335130721858903`}, { 0.012268002536670784`, 0.3067000634167698}, {0.02453590303252524, 0.6133975758131305}, {0.04907170402423416, 1.2267926006058536`}, { 0.08429436951503026, 2.107359237875756}}], LineBox[CompressedData[" 1:eJxNz3s01AkUB/AZzVivNoNUKsnKK/RaZ1PpjqSRaSU1RFEME8bJ46TGo+Wk muhgFrsxwirRwzi1ZUPyihoa8ihLsR4x7fyGGa8plTFrz9n9/X73nHvu+Zzv /ePe9YERnsFqBAIhbrH/nYzStvuf/CVwQTRvOfiOQN3t1tUTwZZAbiibv0ZA oIo1T1wa4EjgPf8dvSGOQM1okW6jX5aAlYiuDHYlULencEYqsyQQoXxSrmVI oA65kn82L5LAjawxa3irgisamZBdLgHfNxsaja6pYLPQWEaskYDeCpbPx8Mq 6OXeux7RIoHWoyWTnboqSKJtpw/0LN7DF3MFbQvQ8fzQ7copCUyvPfVHEG0B opovBkZYICAyC9Hv3qEE49F96h+3IcC+mj+0ZX4eXqpp3k2gIqA13SXgPZ2H DdS0qRQfBFzrHF3dqfPQV/1LUvFVBJp89M+3uHwFp/slBX1yBGrSa8V1Hp+B kid861wphbI5g+oylgJqq1J/am2SAv2EG1fbUgHs3gOmhzqlgDQnHgmTzELz 8s5Qf0QKllmIzCJ8FmJ5fXOcNeNQbFv/3c2oGRi+hBiWJ43D9UB2Wm7CFDyI 1Dm8cv8ErMhNbtDZIAURXz9W4DUBmrM7XRzyERA3GRXuCZoA8sFZYfByBIxW WUnDEydASQruqCVL4GKDS3JDxQT0Re4bjBSLwUsv8WGYqQxuuWoqX5eOQOSu y32qTTIoutmQRDQZgVRWmirbUQb5C7Eku5xhqKvOo9cdlcHVR4g298oQWDIr 3+tnyGCYmmMf3dUPXx5O6T/9KoPYybVROxivweCvOQdPTTlElaRzsly6wU6D cPKDoRxCj6sSx+27gHn82zLKVjm4CIfSCww7QETauJcVIof1VJoP+f4LENtt DfsaIwdKmWXIY14zEHwceLxkORBXap0LjXoG9gJaf3WBHKIHc63ygmvB4093 NY+yxfzxcZrKvBrCiF6WY1VyGE5fF8z8uwIKGEFnlr2Rg9N5NyfvnrtQmcjm F48s7tt2JKzzuQHdd6LrHSYX88p7ka8eZ4GsO1bcrlzMH1U6qpBgICVS1X8n TwLhv6IY7M1N0MFsfIdmQ9PHvL3b3bPfBLNLiOdYiQVmTyWDE2WHOdzCr0B9 F+aieDay2Rvz5nrNOa4f5nrSbfIgE/NQ2qhJWiTunt/8vCUpmPlNB5uKajBn Lv2+QM90CvWFwvlDs+OYCd1D1Jq4GdTmZ1icI9YK1KOKa17aTz+idhsLO58Z NYfafZS30dj4C2rkWWCSUPAVtR2lZ63zCSVqLVAE9M8soKZN+H4yZRCo/7u3 MYjoa0NEXXGlyd9EgZlFjhlqb1dDzYyOr9DhL0G96dTG9gMBJNSv9Gy0YxzI qJ+UX8izWaKOOp5o7SEawKzVH+d6+tE3qMdK1mcXJmigzrZcRapiaKLm8Vkv Aky0UPtm+7XrfMA8t/fW58JabdTvx/ZwGrk6qG84blndFrAUteBSDOWU7beo uQwmfYkCs31/0R1u2zLUOVZ5gja6LurE+rQcehXmH1czbrWaUVA7nX5xjJKC uXBNoJlIgdnsWemv7sf0sP9sG627ajGzZkidLdb6qAMfTJukZGAWtmok18xj Dnce5rXgrFtTVdCD81FBWPUkzh8yRFNmSszqDN7JNJydB1fs9l/ALPaepLNx Tu0Q+nBw7mqIjcnEObD4XdlznJNCC1dvUmE2GzlntQtnoa/HD/tx1j1APMzE udCOmXoN5z2lO3OKcRavMyh5gLMdpbnhJc5dKfmvenE+q3Z2YAxno3h36TTO tTPmn1U4/wMiaJVT "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {0., 2.107359237875756}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521973815921*^9}] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IM", "[", "t_", "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"T", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.398521973883336*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"The", " ", "intergral", " ", "of", " ", "the", " ", "thrust"}], ",", " ", RowBox[{ "gives", " ", "us", " ", "the", " ", "total", " ", "impluse", " ", "of", " ", "the", " ", "rocket", " ", RowBox[{"engine", ".", " ", "As"}], " ", "you", " ", "can", " ", "see"}], ",", " ", RowBox[{"it", " ", "reaches", " ", RowBox[{"it", "'"}], "s", " ", "max", " ", "when", " ", "the", " ", "engine", " ", "stops"}]}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"IM", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF03s0lHkYB/BhxmXenxTCumSxlBnXQRfb5feL1qWRU0JRyNAkWV3thhaF SmXDqiwdjtZlOSha5RYhmS1G6May0aCay/uW25Kws3/s+z7nPOc5n3Oec57z /PE14R31PqhIo9Ei5f3fZMbfLmkI/wDTs58tNCYw0fH2ZN7RNWIYVmBYdmKI iYxGXZVnHMSQCUrUzUVM9FSRWXYGieFzy3Wcp++ZyBylfUr1F8PhTN6diUkm 6q+/llh4WQw7ZyavVzIxtPVOcV4/IYYz2nOMAXsM4cJw5wNfxBBMCD0E6zGU K2OPj6tKoFtKqWfZJgxNs29bT5lIoGNP5BUPVwyVFt1vVPeRwLeLllNTezGk kSsYcKmVwIyqK2FLcRhqqrsU/+SRBOrSKlNZiRg68trTdFePBLYpPY90S8ZQ u3bP4SCxBGaus/k+6AqGYtL7Z08bSiHdxsBvLhdDIylincpEKVx/6pXgbS2G fi4sr3dMk0LrtduE7o0Y2tgWFdTwqxRur6jJuNWMoWu0ySJBtRR+bi325jzG kEfcvKNoVL6f3NLY0IuhqmNqu7/ykMHxwH5O8gcMdeZoxVT4yaB+9w8hQVIM jT/Sz3cOk8E5Xd81bAJD+nosSWSCDN6zex59fQpDyS3fJbXUyCAnfnBV6yKG 8iSepX5tMthQnrhkoQBQrbZPt+SZDBLVB388SwdIdphnoCOVwb2uEywVVYD8 NBPuRpjikJ2qnXNwBUDHNp3vX7LFITP6obW/JkCX+GlLWZtx+MuG8j1bVgLU XJ/Lbd6LwxJX16ghXYAGRm8d9+HjkJMxFXBDD6Ap9bIbH07ikH9XNORsAJBF aK1I6yoOu+OTi6OMAHJOa2aW3sQhw2KdFP8aoP33H9tuKcOh6HcLwQETgDLA i7jwdhz+xnnmrGcGUPnawYKFXhyec0oZCTYH6HGwqCNzGIfL9OJ0slcD9Pnu J60H8zg0CWa5DFkAtPLvWSdvJgHL20e+FbMAslGlHXinQ8AR+l+C92yA3O1V zp8xI2CLnrbstSVAofvVyzXsCchVSS+ptwIo/rx2bzEk4NlO7myaNUDZdwxn N+4gYMhh9zfeNgBVD3xj1BNAQMlQyn6mLUCdDMtt/HACmrAZx6rkHrexj5iP JqCCV5se1w4gmr9TenoSAS97tPm/lFs/Cd0zz5DfN2TY7eYAtLbCbbA+j4AF HSk3W+Te+cpLcWc5Aa22u+eb2AMUoeBnMVZHQF4hd8NJuZMtA71iOwjo/PLq oXty5/mGnVr+goBdb1ZaS+SuTTiSU/iWgPSWgYsaDgD1lZ546PSRgKKYkViW 3HhfzLhwgYBRGIvuIDcjASlXK32Ejg7/FUBGpW5WblqUN/R5eQ8aU45cE5in vIlyQdwRsd0eypnLHPM0TT+RPpf/ZdeUlDKtbxg1xk6SXn2Kf9qHPU16dPqG H3gwQ3r7WMRPmcdnSXuNplsaGX0mLW7jJQoq5knbaLxc5RK8QBqD0yGDk4uk 3WQB/5j60tD/ft0aphBgpUC65uKjIONpynyl6GGhUJF06Im4GrUcOmnbQ5ZC zxAG6W5NKxDtpES6ofJcrhVdmXScAntn5xBlbDDWPeoPFdJjxSZZ+WdUSWdZ 6DHqfJmk03P4HSHGGOmArECh2jvKs9uK5vKbAGnRmPPp1gtqpG9t5hh0hSwj XZESrXHIWp30Bd9QLn2asjx+pRe6lpPOZuVWdHFXkE54mJbNraO8w8C36ImZ BumtUR37NFIp5xvyzDqnKZu1lVz32qdJ/Wfdyu5tosyfZPT8ydYizauaME69 SlnwRDWp8Qtllze6W4IWKTdNrp5bWqL8L+MXqus= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 3.2}, PlotRange->{{0, 5}, {3.187372191360801, 3.4000000000000004`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521974022554*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "impulse", " ", "as", " ", "a", " ", "function", " ", "of", " ", "time"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m", "[", "t_", "]"}], "=", RowBox[{ SubscriptBox["m", "0"], "-", RowBox[{"\[Alpha]", "*", RowBox[{"IM", "[", "t", "]"}]}]}]}]], "Input"], Cell[BoxData[ RowBox[{ SubscriptBox["m", "0"], "-", RowBox[{"\[Alpha]", " ", RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "5.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.398521974081785*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["m", "0"], "=", ".059"}]], "Input"], Cell[BoxData["0.059`"], "Output", CellChangeTimes->{3.398521974170394*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Differential", " ", "equation", " ", "governing", " ", "rockets", " ", "motion", " ", "under", " ", "both", " ", "powered", " ", "and", " ", "coasting", " ", "flight"}], ",", " ", RowBox[{ RowBox[{ "providing", " ", "Thrust", " ", "term", " ", "goes", " ", "to", " ", "zero", " ", "when", " ", "the", " ", "rocket", " ", "engine", " ", RowBox[{"stops", ".", " ", RowBox[{"a", "[", "t_", "]"}]}]}], ":=", RowBox[{ FractionBox[ RowBox[{"T", "[", "t", "]"}], RowBox[{"m", "[", "t", "]"}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "d"], "*", "\[Rho]", "*", "s", "*", SuperscriptBox["v", "2"]}], RowBox[{"2", "*", RowBox[{"m", "[", "t", "]"}]}]], "-", "g"}]}]}], "*)"}], "\[IndentingNewLine]"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Rocket", " ", "surface", " ", "area"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"s", "=", RowBox[{"6.834", "*", SuperscriptBox["10", RowBox[{"-", "4"}]]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "Constant", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", FractionBox[".0055", "2.5"]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Air", " ", "Density", " ", "from", " ", "ideal", " ", "gas", " ", "law"}], "*)"}], "\[IndentingNewLine]", RowBox[{"\[Rho]", "=", "1.223"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Rocket", " ", "drag", " ", "coeficcent"}], "*)"}], "\[IndentingNewLine]", RowBox[{ SubscriptBox["C", "d"], "=", ".9"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Acceleration", " ", "due", " ", "to", " ", "gravity"}], "*)"}], "\[IndentingNewLine]", RowBox[{"g", "=", "9.807"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"solution", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "\[Equal]", RowBox[{ FractionBox[ RowBox[{"T", "[", "t", "]"}], RowBox[{"m", "[", "t", "]"}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "d"], "*", "\[Rho]", "*", "s", "*", SuperscriptBox[ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "2"]}], RowBox[{"2", "*", RowBox[{"m", "[", "t", "]"}]}]], "-", "g"}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "0", "]"}], "\[Equal]", "0"}]}], "}"}], ",", "y", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}]}]}]], "Input"], Cell[BoxData["0.0006834`"], "Output", CellChangeTimes->{3.3985219742180853`*^9}], Cell[BoxData["0.0022`"], "Output", CellChangeTimes->{3.3985219742510977`*^9}], Cell[BoxData["1.223`"], "Output", CellChangeTimes->{3.398521974281807*^9}], Cell[BoxData["0.9`"], "Output", CellChangeTimes->{3.398521974320429*^9}], Cell[BoxData["9.807`"], "Output", CellChangeTimes->{3.398521974352291*^9}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"Input value \\!\\({5.108211908176262`}\\) lies outside the \ range of data in the interpolating function. Extrapolation will be used. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{3.398521976756571*^9}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"Input value \\!\\({5.108211908176262`}\\) lies outside the \ range of data in the interpolating function. Extrapolation will be used. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{3.3985219768903837`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"InterpolatingFunction", "::", "\<\"dmval\"\>"}], RowBox[{ ":", " "}], "\<\"Input value \\!\\({5.108211908176262`}\\) lies outside the \ range of data in the interpolating function. Extrapolation will be used. \ \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \ ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \ ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \ "MSG", CellChangeTimes->{3.398521976938946*^9}], Cell[BoxData[ RowBox[{ RowBox[{"General", "::", "\<\"stop\"\>"}], RowBox[{ ":", " "}], "\<\"Further output of \\!\\(InterpolatingFunction :: \\\"dmval\ \\\"\\) will be suppressed during this calculation. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \ \\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.3985219771716547`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.3985219772259817`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Solving", " ", "the", " ", "differential", " ", "equation"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData["0.9"], "Input"], Cell[BoxData["0.9`"], "Output", CellChangeTimes->{3.398521977383368*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", RowBox[{"First", "[", "solution", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "8"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4lF0UAHD7bsw7BtmiQikhS1pwTyEKZZtJlKWEkBCJFqlshVKSSnbK lmSLMGOnELKUbElZEiq+IvJdf83ze55z7vvee9977pl1x89YnGRjYWG5ysrC svp74OR4B3MiRJflvGuduLFhJYeehNeQuBPSFcxWkxxYrlJPik8oFPdFPhev xVypk2KMSskF+ytcRl16j/171qkwjFt7XzwWv474qmw0VWN3MeQipTNWZCKQ GCXi4fy4HmPpwIn7jgrRCL5PZ930MmZMXu+qc4yLQZc31R7e0mPOOOz0u/KO eCzy2ZOXNa5OZ9TpSZTWJsQh5ZAhh12lNgzVDTrP52QeIPYtoeL9BvaMBDaH LPm0R6jc+aFE3Ygjg2fkaipdIRG9Lkta/ivoxCgf7myttUpGEgq7P3iLOTO8 zJwOHI1LQd9pPxVYf7owFJjzDXO9qchabmvY9dunGAMqYXpR4uloQSO0tvuL GyM2aQ1T3jYD7dJl7WoddWccEMrWrkrIRGWjdYP6VzwYLEG7y+iDT1D6DyNh So4Ho2S6RXNGJgtN3Lt7i9/ag+FhZ/cizDEb+SXQ7LkC3Rnr22aUZdNyEMcF mYs97G6M9zrBOS9Hc9HinfrGg+MujOg8yiZzhWfodj3pG0icZBhIp6dPuOSj yKIDey9FOjIuNzwkV1s9R1xh5eUZJ2wYRy5/Phg1/xwV8eux6c4dYmhsV4o6 EleAZIs0ixaElBlC075v5LVeIKaWjpthlT6azKjk/dn7AlVzOLwvuWaD6o9x GVWdL0TtTS8URE44o2SRQ6E3xIuQc+ZJY20zL3Sh9X4dvbwI1YTQXZLZzyF6 yDDbBtti1GbLaUSzuIi26SjumflbjLwiecQupQQjgXnvoFcJJShQti1BzDME jeWWV4bplKK9/gtFB+5EoBon9iXLwVKU7xZ/0IWIRue7Ys9PyZShDnbJSx2i scgycqDkJbMMhdWxShWO433XV5i/7liOyF1umXnTDxDvkqe6OdsrJJ58mOG2 +TEaLSz1lk57he6qF8i9PpiMGO4szyf0KtBnDk+NSblU9HDD/uni0Qqk2fmj xm1NOjK/2+d2UKEKvWIp7x6xeYqUjDdkSTRWIddjLG4hOdmIh91j7KsLA8ky fBMHpfKQfdm/AoYVE53b/GBvqFoBMhHZ0CGfwUR2mcTzhsQXaJe34ezNeSby i2TGkaSLkIjibWXruGq0mSO82tG8FLGFFJlWfa1GRVuE8/R4ytDs8HsPOa0a NHlPwrGvsxy9iV+XM9tbg1KGjPd2pVehYJ7CjRHidcjG6vvV4bRatNkwJvyF Vx2q0Sreu2G6DnWGnJn42FiHemtMkxcNGpAcu1KO8rl6NK+o0hMo04xa9vAJ WLfWo3Vy+1LzUl4jvyvjHsFyDci5/fevcLUW1LCcrtzV2YACkw/lmga/RWe0 r91aVmxEHOe9K4aT2tGaC46zCsGNSNvmqvFCaAc69Uf6RYBKE+rKNxM3P/0O CfyK05SJbEbLS5Usrom9qHibX5zR52aU2Ou01oH5Htl5Wf723vUazbT/p6T6 7QPK/y5UVjf+GtVtOYVsbfuRxXi4tptBC2IJ7C780zmM/iq4PL6b0IIcrr/s sAv7hNJPGvyr+NWCDHd2vFKHETQ/wsoUSm1FwwPjmlsYn1H8QKBe8b829B8F pI78/Ir2SB1JH6S9RZJSU+y6r8fQpI0WJ0/eW1R+ppYrNnMcrZ0KOJG3tR0p 0CXtYz0m0ZlT2+VZ+ttRPK/i7NTWaVQXntEdy92BduQG0RwVZ9Cap9RQRfUO RPmXbZ5OnUXMrz+/WtzoQL++LNvukPyBKE75TzN2dKI7D7Y1iuj9Qs7X1h7Z 5dSJilIbuRM7f6FXqVG8b291IneuUEcHpznk9Mnd7c/XThSc7ZV0N3oeFdtt UjK+9w71BajXFC//RtZHUvJnf3Qh32R9yR/7ltHMRyu+VIlutODRl6c8vYxC 7XhOWup1I5u1GRXH7v9DhSfOSJTEdiOBGzHGt2dWEMlTJ+SCVg+iNFv4pdmy Qv3VDzZcl3qR6eCt4kVzDjjKGVVcmtGLun6TbeSKOeBnGJBPtfWiZ5etwvaJ c4Js1JP6NzLvkdmbGAffUU64eN9PNabmPTKvdtruF8oNarkElxRPH4rcrmDH vsAHzcr1Dq2qfajwx+DFAnd+cCg4/+rykT50i/Q59PAQP0SVDHl9yu5Dx5lK G282C8A4M+9jpulH1Hwrne9WFgkSu/cXbLvbj6YVHjctGxPAvxJ81HDtEPrD IzfyI04E4k8dtlPaN4Qa/+mrGg2KgFyXkgPhOYQ4D/v6URVEQTer98THyiH0 kiRbSCoVhbKsuOJS5WH00lUlNnxQDL5bTlUYtw2jlJFukVA9CaA9vf/mrOAI ejX8NB2dlAF58+nx2pujaL/HZTXZK/IgEWS4yyVlFNHqAwi1Enkg5yXf5Csd RaJy3zUuTMnDIo+lsvnIKDJ8G3P4+REFaGeWnh3c8QUdbM46E7N9IwSqBv/7 8+UL4hovXIpY2ARtQlSqMoyhumfcSVuTlMC/bSeKn5tA2zv0OzfIqoFYETHI yjqD/Mcyq/SP74SSEb2Wt9o/UeVUV0vmSYAat8eSR6bmkJfWsU/JpXowr6Aj lHf6N+o7Pcd+NnofsC3kkCXlF1HOnPrlew77YfuKQ4nlsyW0Q26CzavZGFqu a7Q1bF5BAi7C5kpzpiBz+9tC1jQLVAcOXugQMINvv4cGu1XZ4I5BY97SvBmk T756TYpmh8f3RER7+syBJP1kZnSUAyaUovyupltA5Kli52Q5LkhgpTcsmFjC f5Az6hrEDbvfVcnJzViCr1pdkWgtD0xV2HsNnbWCoWd1NzvW8cHtDTmW3LNW 0P6dY0ptIx9oXJz83PDDCphKBiaxSnyg6R64J+SXFSRn1wsc1uID0w88J//9 ZwXHMxui+k34YI2qvvnIshV8fdx0a8yfD4qNuT548dPge2TL3eVWPjjge8A/ S54Gf926HikG8kPe8Matt+g0sNp+LEY5iB9upNGFJg/TIJf1a6j6dX4w+VY9 pXeEBnbxv711ovkha0/ygzlbGlTXSxiZp/LDua7Syv2ONAiTdZw7/xrHL/yB WncaCPd8N2mSEADDicuVv4Jo4JFybm+rjACsbW/fqhxMgzqPFa1OOQGQftX+ yOUqDc6xExv6lQWg3UPOu/c6DT6oaizM7BWAKBMp9pwIGiTdDMwQcxcADkfZ rnV3abBlD/c/51cC0PCkIONgBg2eZ+dsfM8UgE9tfU+uZNJAg2pmvr9BABSb pi8WPKGB9lh8+pYOAXB/vzlZKJsGB6M2G89+FYBBlR2tlc9o4PPBND6AIgiB iSHvPpXSoMw7Vi3ylCDYJ9pJ7m+mge7HHUeXPQVhbqYphfaaBjX6AyGevoKg kBCz7PCGBq/FFD6YBQnCz6ZQTd9WGvRXlgaJ3BME6/ULTyM7aMDC97ElkYnH 47+UF/KBBoap61wKxEiQxp2YHj+O3zeepNAgRQKXcwZZXhM0kI3+O9q3jgQ+ jV45hpM0WAzoPs6hRILykpCnP7/RIM88wu4wkKBimDtMewavN+sP2rIrCS4a qQ0nzdNgyJ6pv7+cBAFZAvQMVjq00PLY7Rgk2Lnn1vpjbHR4afywxqeOBFMz AtPC7HS4o+ULCW0k0HGUu3qZgw4GQpu0Z0ZI8Kb3W5IhNx1yqm6p3+MXgnnH qXI8JPhL26//dFQIGqkcRXmidDhupkrvdxSCOlGJC3vF6HDwGuuNXmchOFVE N+nBVphI+9HqJQStA06Cf9fQoatonFl+XQhk7pXx7ZSkg6qJj31srhDYLu5e CJWhg1SQ3t1bBUKQOBjkLCBLB+4X1MYbJUKQ7e06eBt7UKxUOZgpBM7IYDpu HR0iP/9dPt0lBO45C9H3N9BhPDAkwXBJCJgJwX1uG+kwSd/imsJChpJ69/lh bIdZYTYZdjKUl7tJ0jfRwXjDF00JHjLEK1aH6yjSYX1E2GMyhQxf/rs2wbKF Du1WLR7L8mSQrexsOqJMh33TRVwXNpGh8s3SfSZ2Rdjj5D+byZA+8thHQYUO T8o9u36pkOFRl+2BGezLsoT25E4yjJ89ft1vGx2Upmj8vaZkMPp4YKOVBt4P KxPGDTP8vNksSiG2XuXes7qWZBC6kzJI1qSDTbTKxwxrMjgv+6xpxo5Q5c3x PUEGS5Z9VCUtOlAfrNhtciaDXBDBeRU7mfU/Sr8rGbiz03t6sF92jgTqeZKh SmmH1KUddPjqW3GAEkAGveHsbRU76eAz8OJf/QUyOOgaK/LuosOyQdaLgMtk CH82wErDporFSXy6Roa521O0CWy9sjOT+dFk+NC+4waHNn7e8vobpulkQGNX NnLq4vk5i+uyPiGDy+7TqoBd2ib0syiLDDP6dyQCsduSlo5I5eP4qHt3JrGX 9/QofisjwznXr0QVokN4dstAYgUZhB3/yc1iU4VrYywYZPhxyF18HeDxR/MX yurIcOaNWWYQtk1oRHP4WzIwdyaZqezB85sOuqTdSQYb1yJPa2zvw+e2zXaR 4ZbEds8r2OGbTjw43EeGS+4RRCs2NeaIKf8AGab5HYp/YCctHGJlDJEhWj1v l8heOpS81j6l8IUMraZFE9bYe9XVpfvGyHAq10c4ALv1kWJH1CQZVN2er43H HvUQ3Tk/g78nwRcfOrG9ugW+P/1JhuzmgIhp7CUd9pSj82RoimmS4NWjg7DQ LE/dIhns5dlGdmF3Vt4I279MhlKrqbtm2Hc85LnerpCBQ/e4yUlsymsb9j4O AtaOz7ffXI0/Px9sz02Afp/I48er8Rtvs3zhJYCYqD/zbDU+pH55hkTAgQ19 m1pX49UdLvoRBNwmgdDH1fiRxcVFYQI043YujWFbxNwLuCJKwLNzjTO/sAlQ /cMpToCu3eTEP+z26dfnbkoSsDiVOsmjT4fbj0/Ok9cSUFf04weBbWbC4hsn S4Dpzt4VcWzy34c/JTcQIDprSV2H3Z6l6Z0iT8BpcFXZuJpv3T6jsImAM9eo 5kqr+dzunrmbCeDiOBKgii1Uwvl921YCJv9pPlXHbnNKdi9VISAtNWdAEzta ePekthoB14XKxbWwD9Z0u9Zo4Pc/7Hh01SRvrzFDLQKEglIytq/my/A7t+4k 4MSFwHmN1fy2jFELbTxLjSljtdX8S3DivS4BLVf/e6qMLaj08dOxPQQcVnsg sBm7pc/P4bMeAVUr787JYUdGkIdc9xFQ/iBzTBrbZEfOsWkjAt4mk+1FsQXG DPrP4r7t0BNiQHA1/96wzYIpAVbbshw5VvP1L3y4bEZAfVHP1AJeX5NfItYc lgTQHzy4PI3Nn/q8J4JGQPCOH6Ij2K/NjGlC1nj/BvqLu7BvrHx5F2tDwN16 W9sGbL5jkh1J9gQU8ZPLM1fj+UsOyR8nYCJB7+y91fhys7ZsJwJQL5f6NWze NaFvik8RsJnY0WCL3dQge2C3BwHrOtMe7MMO93vVxPQkgIXx8KwqNs+72fo3 ZwkYYpPfzboaH3xT3/wcAWFZxZvG8fcdrqpQ23OeADfJFqk2bO5oW+anSwQw T1xfcx+ba39D+e8wAvwvzh+Txm747bDz0g0CdHrDgpbw+QvN/FvKFkWAcsyd J33YnBzbigXvEPDTjpc/FpuD8Sh/QwIB7NN7Zf7i89+nrW80lEjg+/8sy1vs /PKp4YcpBAgL+1akrNaHEh0K5QkB1fd66vSwC/KGfFleEBD+rVk0ENeX0C3h ghVFBJzvlWrTxz6apZrpX0rA9yY5BxI2T0Zw73QFfp81BtREXK/sEjbsGmgk oCnhaEW+Dh00JFo6418TsPPsdyNvbN54X3erVgIo3NTn27CL7tYnvOkkoMyE IOXjesl/02WlbADnG5rxJOzG9Tkgpy7uFwHdf6p+6OJ6HP3b8pjFfwRcLA2W n8b1+oTf0rzgAgER7yPVE3asfs+mG0P+4fOk5Tw4h+v7SdeZiLO8FFhfH+oZ vx2f98Pqh8xkKEAT3H/2qTq+D7s+jvGvp0BH2jsjA+xKi+tXGuUo8MzX4M+w Gh1cD3YX6G6mQHVt7SgVu8rAn7pVkwIPCk/98lSlg7vGqw+8xhSIuU769E2J Dsz27tyXphS4u7cx4Dy2yOnZIBczPP6Jh/+xYzMy5BXqaRTwifZOEMP3p7DY bZ8rDhQweMofvw3fr68WnPh/+1Gg6tdPQ1V5vB4Mks5oMgWU9T8ctJbC97Ot IvluGgXkjHpsqnF/UPxb7/OeTAosc73fr4htrxoQkZRDgSaRmvZ5cToUpnzu timhgPwf0eBg3G/YXn/p2fGGAuoFZcdPUHD/sv94chX+87smI3fADPczGkrr dNECBVQGA1pTufB8ScMfGX8poJm3se4XJ65P746JVbMIQ4H6cv0d3A/NHTsS XcsnDALVfhL1uJ/S9TG72LRWGAwnHy0v/qVB+0Nd6859wtDDVuiYg/uxI5eW 5y32C8NF2CY+OE2DEfuKu++MhcGIrtkjhD0nt+ttl5kwzHYlOXhN0UA8X3Nf r40wXHN+XiyP+7/jtUoa/Z7CkERZR3ccocH8Nwny1zhh4OlTWSPVRYPYx2ON CQ+EISe42l7yHQ3UDxUFWSYIw7HhT5fFO2ng/cJ0hpkiDGMT4XqUdtz/n7/S 9ihXGBoyr47O4371C+fXSPMaYbjtdtYvpJYG3TIFvJXfhcE/w8m8voAGxZaG 7LH6VJjSyXtUe4MG4cYvQ6QMqVC7JkM/GvfjR/UUeTL2U4EZNPX1cDgN2NT5 BUsOUqHaT0ZsPAT315S3ou+tqXCoj0du6QoNxtvpm6VOU6Gww3Do5zkaSBx0 Nk+/R4Xm9F4LieM0CDIKSSr6SoW5NPbnJpo06LRzPao6QQXLe7n+/eo0kPMz Fs/9RoXW7jEddzXcb6cQd9NmqaASWFUfokID6t/HoXcWqcBJjWA+U6TB07yS 014kETiVuudQuzTeH8r4bqXtIsCZvUndnJMG6wYOvE8LEYG6qJhJ/Q4r2KV1 PVZcTRRmrjHXi1lYwdG1bxdY34mCWLT0gk+zJcy/jhrxChaDL3/9twits4R4 DjtfC7k1IOEVsY3qZQHCg8WpbHVrQGkxMdco3xw4LwVb7fQWh/y1kwa3G82A Jcsuf4QiAbcnS04vFBwCn4f5UZQaCRBnC9V0CjCFyi3hPISnJNgt6m3PEjYG 4oCP0lWSFPibpT7kTTWC/q3t7wIqpIBiVHRse6UBPE9EcqN20sCLtN+vNO+F Y/nbCel/0rBb9PnnTfsRXAlJCe7PXgtjdeFP1Lq1IG9c+hHJRAbQw6G48Z2q YE6QdjQuykCSU/3kmXIpuMHJJtmPzXiaefNLsRTULcwvz2I3HX+51rZACraP DNRK/JUBOOQhue+pFEgU5h3yxO5NFDojGScFI1amLiJLMqDfTA6q9ZYC3/jI uBPLMlDrfxx4FaUgL/JKwHnsK93DCpfkpODrFd+jUdijFuErszJSYH3q6PpS bIdq87D3olKgs0vpGd8/GehfbpzN5JACrv439QXYV/1JW/YMSwJqZzxtwC7b xa5R9FESztcV3vyI3XVGWmVjryRM5j4y51yRAZJ+9V+BNklou+Q+YI3ts545 3ftKErh97JmnsRvZ+sIPlEoCOFumXcW+fElMpPKFJLw4uPtULvZm+hJ7apYk fNurYlKNraSb5kzNkAQ5rQ0qPdgZXR6vQpPxvm0Ro3zDthu0Zlt4JAn3Zfjn V7AbZF12u9+XhP8Bzia8UQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.3985219774906607`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "height", " ", "of", " ", "the", " ", "rocket", " ", "as", " ", "a", " ", "function", " ", "of", " ", "time"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"yy", "[", "t_", "]"}], "=", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", RowBox[{"First", "[", "solution", "]"}]}], "]"}]}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.398521977534748*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"v", "[", "t_", "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"yy", "[", "t", "]"}]}]}]], "Input"], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.3985219775896482`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "Taking", " ", "the", " ", "derivative", " ", "of", " ", "the", " ", "rockets", " ", "postion", " ", "function", " ", "gives", " ", "us", " ", "its", " ", "velocity", " ", "function"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"v", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV1nk4lGsbAHD7Eo2ttAyhRJa0qCRx34x5J0t1jhKpxHA4UokOpb0UEVIR yZ6tRVkLYUYkSZakkIoYyyx2RcT3fn891++v596e+3o0mD52/4gICQkpCwsJ /f9MvMCU2OB+1oz9ufj5TZGiiuoWdVsH9f3gf1gnZe5NBGu+piJIXd0LLhGW A8GvEliU289zF7T5gUWlpDn/fTorkR2hJq4eCDVx4XHTLx6x9IfdI+c9L0LD L0mVIrlc1ldK0tzs5yvAfqF1YsWVfJZmpvSW3zPXQK+a9nRrQSHrqKn/sV9q oXCXY3dM9MFzVsHHrvQJWjjE/rdw7Pzfxazf3rado543oXP/mEFWRQkrRbgz 9Bf9FqyiENXnuaUsy/e3Vv/8fBt2jb2SFGp9yRqIY1ROeEUDX7HQae2FMla4 +5+D4zMxoEKX2S/WV8Zav75gajQiFloWJv66IlvOapn5N3pE7R5cfvnbNmu0 jBXwZsX64bx4kPDwu+UTU8ZafufjOwEtASqGKGodv16yKpzDPPmtiXBGKM6X s/Qli6mLojzPZNgix6dETZWwRGbONE6cSwH13Taxn+8Wsz522atO0FOhNP7b npLx56zMmvXe45Q06EstSt4oV8Q6/USmZOxzGlx/9vM7DuazrG/3SYylPIDr D78FdV/OZamcrtw76pUODzSuSGvmP2YNHUpIG9mYAeki8vXJXzNYbNqpkeGZ DIjztNBjyiazbuvYmQ1XZ8K+tG1taQ63WO5ya8OHIrIgqi1IL63fnSX55Ye2 QO0hnHNhTnhzE6GNXe7PH3gIXfmd6glfsuBRZlwVL+8RVH/5QoSl5cIuv12H ubQnYKoZmvS4qRTUHXVyBmVzYMj4kIbsajaMmYrNDLTmAO/4RECkSBXclS69 2+/5DHyz0GJe7S0UnrL2O7k0F2bqI9ijh+shgWu0bPxcLmRWhe4pZjfC8SZF zzF6HkwVtk27+7WAYkKtyOjnfOgIfPop+cAXmKE8f3hiewEEzylnS138Cr2X H/w1klIAG3/bZ/bmf4fnnheShr0KYfH1nUf/rP4BToabtg3NFIHr7hPJPzT6 gZap0X3M5TlsoW3O8fcfAP1lctcF1c8hUM77LqN5EObmBlv5ES9g386eZ49S +ZBal+zLUyuB44aObLbdKEzEFel+Dy+BkFbxbw0GY0B4vuv5MF0Cev8s/1gs Nw580V/2pS2lMPam0nBl1wRsNd21LTSkDDq/rax1fDkFN2Tcx89NlIFW85d7 eyqm4Vt74JMTruVgOtxhZ1DzG64GZKxwNKkATcwKv9Y7C03PZkW0h1mgWqIv xskRQkWQdl5owAbXeKFTgxbCaKIVvS3EnQ3Lm/ZKunQIY+TEw/EzzWyg+Y4+ SJcXxU23Wv9hPq6E2G2T5XfixfFinb71hsNVwI5/O2mtKYPZeS+0HsdUwenS SunoLhn8EGchurq+Co7KtoztSZZFTU/HsqXG1dA0FHDJWJOCdaJXDYSUXoNq qK36hwx5VDb9othYUwPBVtpByVKL8Omz0C9HDepgvDWRal9MRa4iN9zatQ5C PJy3ZWxQQe0Aa7M10XXwumyamHmkginbZVJ7putgT+fZzuJEVbz9NtzD6fU7 qN7UJ3Y6SA0Dem6OMg6+B8dD3WIzWRqYLPMuSIHeBHU+V8yMAlajJzTf45Nz IpEs+iV6yVo8ztHpKXzaDr5HvorrSG3BBRpXtb9v7QKTgc+vo5XNsHb7rXUX 6F1gLMtZe2STGQY7Jhmp2nWBg/n6Q6Z2ZigSVcw44N0FNkyjuc4IM/w9x/f8 nNgFVa3iVULigLxO++xGkW5w8w5T+zQGWB+nrcOu74ZoJRMbmz7EsMJNGw63 d8ONwwfrF04i7mgyN57jdIP7VGpvg6g5VksetNo+3w1C5/WbbTXMsSwgyqt4 ww+QljroaHTQHHP2Tj/MvUvObc9PhdfN5hgp/0431aUHPhLMe6tfWmCJkWrR ruM94No0mB9eZ4G9zj4we7YHPDhUvbZ2CzTJUdrrENsDzoF9m1WmLHDA6uD5 hQ09cGNGyMHRkIa0IEFjoEkvJD108ElKp+HxR+CkbdUL8aHdf1nn0zC++Vbv x329YJP/mNnBouGI2pbpdX69UHN7dnFWBw2Tyi6s7MvuBd9imuw4xRKnJuX8 7ZQ58PZo4u49fpa4SpU5P7+KA73TRcoWFyxxl2VhaM4GDnxt7RFaHGaJGbcd k6R2cmDD0zFjz1RLtFuX+qYiiAO1Wg6nyhssMeffjcv1RjlAE43R36BJx7ab V9Pb5jgglKjuyjSgo9iLTwbBsn3wKMLt1amtdHQSP0vr1u4DS84mid22dJRK qzoa69wHDQq/o5750ZH5ZS9LtL4PLN5WbtxWSscF97uP+bb3gZWZh13IKzrm Ox1X+d7XByMGzc9L6ugo2hESWCrcD7knFzo3dNAxva3U0NeoH/5k/HPixTQd beMYP75Z9oPyDxvxdcIETjh8jLK16wei/6DghhSB9M8CgfaxfhAcjcmbVCaw r1U9+1taPyT7iQaEbiQwMiZnn21uP/glp3TrGRO4xX6beGl5P5QfFCkuAAJD Pu5hxrT1Q3xaSt5JWwLXtASr2FIGYLm4sn6RO4FHmvhRJYEDcFHO7itGEagY FQjaIQNwILbQ2ySGwNLdEkPR0QOgGl4fT40nUKZRzebEswHQlfbkhj8g8Ml7 O3FtzgC4NcoXGxYRuDfie0H02ADc32lSdKCEwFnbo0wRoUH4+DDez6ucwJ31 11hflw/C9ffbYMtrAofqigOj/xqERnXvyJgWAu+G0deIOA9CalS7MP8TgWbW Hz75eA+CguC845oOAm++5RnaBA+CvdAKX7suAtfXrhgSLhsEzYDsj2E8AttC Hif4vB2EWhVag+4QgZcYW22+fhoEuDlIKxkhsKnm7+zi0UFY5yKbnzpJoO/r q0wfbS6cYeycT5kjcEUvIfHTkAtBNQZ/bgkx8J2I9KNzyAXzLv0PJ0UYuBoj RkP3c8Eq1oeyQIKBH5x3x8h7cGFu7Z7zFZIMvHhewTjWjwuWdrc+uEkzsL00 5lL6DS68vbx/22VZBga3O2jqxXHhnsuN3dMLGWg4taw2L50LGRuf72XKMTBi c5Icq5wL1wLaTSQVGbhtr0sBvY4Ltf9xV9GUGNjvt9Kh/hMX1C+uljqxiIHm uZlJ7cNc8BdUNSYoM3Co4V8Ll1ky/phVxQlLGHhfoNvXJ8WDYevmzIilDNwh Kwg9tpgHcZmRKT7LGDip+2zthAYP2Fcx22I5A9OsfJvPGPDA01qBLUFl4O5/ Df2FTXjgZOfOfUl6Nnhy6XUGD9YJWnWYKgx8mPGijLKXBzauJpenSe+rDnSJ ceHBN27a+GVVBor2mIipHONBz8s9V2dI5wrPZaUF8kB99v0WjxUMPKTOttEJ 5oH+2zrKK9IL4Mrws9s8cNuyXV5OjYEvDlne2ZLMg++cRrOdpN3PSRiVP+aB Gqsr4Rxphfu1HbRiHkxqlOsnkq4oCbtQV80Dy2+ckaekvdtsV/7dzANrLQo/ j/TSX5Saz195kB1J1cgk/Xpxs5czlweOFK07N0j7bbqzkPOTBwVzp+hM0mp7 7PO8Rflwkhppoku63neJ/ZgcHx5fWRLYQ8YbGNU+dVqFD02Fk8KRpLWe3U+Y X8MHocJFHTqkW94fwuDNfDiYTBd7QeZ/ia/WK2vBBy2Z+SubSa+V+RFyZxcf Vvj1OmaQ9evQSddbfoAPpYlV1yVIh+zwaEzx5MPKzOjF+8n6d1/jKj+9xIfT Rmy7D2T/ItOflG6K4IPJmW/S02R/TaqOO7+8xwffhQF6CqRjhMYzavP5oHeE Wb6YnA8LtSKr3Szy/lcDm0QWM3DY9JSg9R0f5h2qNbvI+bI6O7Opp5cPGs6B gScUGPjzXnmb1ygfbq3y7l0pz8AHxRfPjfzhg0Hzj5YaCgP/TIpW/1EWwIty 0Z09MgzMOyG7Z6mVABzep4j4iJP1ilcKzNkngLREA9cQUQb2VS9PtnAXgKZV 3OdIYQYuX6bDO3pRAJ0/Xqp6/yHwaiU9qLJIAKpF9RH7JwhM4tk+3FclAC+J 05q8UQKLF+9t5DUJIJUxOeY9TKDAi0lV5gug9KDtThMugfsULxYcWTkEuWUl IQrfCTyxPbh9ft0QPHjtely1k8Awj4j5aNMhEBw/U7i0nUBW6X0bluMQXPGr 8Pn6gdyPbsU9SjeH4NrVj5QUcj/9LhhVKp8ZgjiHaceF2QQu+jZlbCc9DNbu FKpCOoEGUkIu/crDoGv68YJYCoFuBylPFDYOw/Cq19tLYwmsF9Oz9Ph3GC5F Ciswg8l87N3/k2sdBpmi/xZluRCYetabu95hBDb3PO+voJD7jC09FXJoBPJv tp//I00gWyxb/LvbCNRtsLI2FSewK6JXPeLECGgltgWxZ+i4IuWQw2DoCFRK hnu1DtAxvnp3dWrZCIjz9K5uraLj7YWbkhRXjsISP3elrtN0vJI8+/cEfxTG DlPO3e23RKGWLiw7Mw6vjH72KnymodZ/Hqf36k7ChbeSXpvZ5H9gMnafTPlP sGAaKWrVmaM158j5275TkON5fsjkPeKu3ii9FSt+w+DewdczrwC5VcxLtTkz sGNG6dRJNTM0UPikSjv8BzZeHzDdeXQ7+b4nXTvH5yD+roSyXP82ZAicfq20 F0K9k1VhU38bY9srd2EnfWHMof2rHtVihEXXq53VJ4URWBVhW89uQQ9x/66G BhHcss5wRl9xM7r5nS2SjRdFCmf2Suw7Q1znqddg6yqG50XC0tyjN2Kjor6M v7E4XrjxnRi22YAvn165ry8qgTQFTyUTjfV4Vlj3r/qvEnjrzTK9I3VrcUHn mR3HCyUx1PDndcmjesjJ1IhOPieFT7M++DSb62D0mmViJfbSWHM/wvjnuBZG xXu8cVVfgD7h861lnzTRKfpQg2z/ApRWrbksWb8SpywzppMrZDAq879fqQnq 2MOxOP0qRBYVLz3UMt+oimmmG6jvXRci18Y0P7trKeZc81fwXEtBrbBPsYLu RRhi72YjOklBU//IO+w5edzcmfow5L0c3r78e142QRrjdO7nvLeRx8ynJjK2 LcJ4kR0RZ1Mij8+2jjf/aB2DnVT7jDpNBezLg5aRjldgfvzNAYVQBTxsOXop TZzLSlZhatZPKmDliZYlwvl/WJpVWXd3HVDEsSMbl9OzJdhRa1/pfqhQxK4d Z93WO1LYHuNizW91lXBMN+t+7iElNjNvTD30phJW900eKNi1hF1bJxVUNquE EZkXBoWSqOyjtO6ot6S9eucCr5GWLytJ+kTavPzRggXJVLZjzpHSEdI+tGv6 SilUdv/N+lHNP0q4rpTutzqNypawj3KJIP1g8aS4dSaVTfu+xMx5TgnDM5R2 3XlKZfc5jNh4k740KdW75BmVHdZUu/806cuzOmcSSH+oDPS/TVrZcDgzI5fK ZqZ/eVJDWupAsEhxPpV9ySuZum5eCS2dBio7n1PZmj9O6WwnXRx0z8n1BZVd 6/SXkRXpzX4B4xzS8rbCe9xIN6UWrB4uprKTDdzCYklLuJuEC7+ksi2yTOLS Sds2WGsFk+5TW5SZRzpbLJi9oIzKNlB4XfmOtEz7xUmlcjK+0MTGNtItp82i 4kgHiAR85ZDWHVijp1pBZS8/u4s3RnpYG2pSSVeMa03PkxY3vuyqxaKy/wcm f1PC "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-6.9366698489304826`, 46.247617251309364`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521977634943*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "rockets", " ", "velocity", " ", "as", " ", "a", " ", "function", " ", "of", " ", "time"}], "*)"}]], "Input"], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "We", " ", "could", " ", "get", " ", "the", " ", "rockets", " ", "acceleration", " ", "two", " ", RowBox[{"ways", ".", " ", "One"}], " ", "is", " ", "to", " ", "take", " ", "the", " ", "derivative", " ", "of", " ", "velocity"}], ",", " ", RowBox[{"the", " ", "other"}], ",", " ", RowBox[{"which", " ", "is", " ", "below"}], ",", " ", RowBox[{ "is", " ", "to", " ", "go", " ", "back", " ", "to", " ", "our", " ", "original", " ", "equation", " ", "now", " ", "that", " ", "we", " ", "have", " ", "time", " ", "dependent", " ", "functions", " ", "of", " ", "velcity", " ", "and", " ", RowBox[{"mass", "."}]}]}], "*)"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"a", "[", "t_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"T", "[", "t", "]"}], RowBox[{"m", "[", "t", "]"}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "d"], "*", "\[Rho]", "*", "s", "*", SuperscriptBox[ RowBox[{"v", "[", "t", "]"}], "2"]}], RowBox[{"2", "*", RowBox[{"m", "[", "t", "]"}]}]], "-", "g"}]}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"a", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "5"}], "}"}]}], "]"}]], "Input"], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{1.0204081632653061`*^-7, -9.806956762365973}, { 0.0015335896027981336`, -9.157174532757509}, { 0.0030670771647799406`, -8.50739036207336}, { 0.006134052288743555, -7.2077970770800475`}, { 0.012268002536670784`, -4.608379000303872}, {0.02453590303252524, 0.5924056465854388}, {0.04907170402423416, 11.009453619578828`}, { 0.05340375415438639, 12.858899785138707`}}], LineBox[CompressedData[" 1:eJwV13k4VV0XAHBTIlzn3GtoMJ+bOUqZ+tRZyVCUkHkKyVRJKoTSW1JIydtE GSMkqahXxo1SIWMDomQoZB5CRd/2131+z7nP3vvstfZa+8i6H7E8wMXBwQGc HBxLv5wOffWuhYN0+qEjzyr/U4L1r6VGOUsHab2NzRb1dkrQdiH3zpE3g7TV m12/Xz1WhDPGOqZdHwbpS5a98T0rFKGpxiK7aGKQjji9y/BEmTwcfRnhfkRh iOboHn4oymaDVJ8R78+NQ7TOh8BgzSgK6rj474fBEL3ylPTho6NysBZiJ6Ls h2jLPf77tj6Xhfbi62cyYoZo8zutFftSpWDbo3vJ7WNDdJGfxhWJ5aJA3n7d sb3oB81R80TvJdFNlz+PPl374gd95oX5kG9oLX2wbZecRTN+3n7P8drFZxUv RZt9XIaw45yCx+73V5yMa58LlhimEdNM1+juQsXX80NiD88M0wY2xjsiqwn0 2F9w78qdI7SLtkhC3F1ZVJ/IOplnM0LLSAjem9KXQ99erE7R9xihPQPXZ6v1 yKHVq5R+HAofoVt2PjFXlWGjiErDc5VPR+gDjglPDBLlkQ0zvMBXbpQu2pMt /DlSBfnrRbb/VR+l1ygpmhZTqijaM/bvtS2jdNAH8erDSBVVFN82rbAbpeud 2UYO8+uQ4v6iXtaVUXpGf8wqY9N69KtgglX2e5Tm1nx5rDhVA4l8ntO15B+j 1UQE3naPaCA1Pg7X72Jj9ACj6Obk5o1ovxPjAakxRu9baX+67d1GVM+jYuDp PUY7qr+7nLdcE31T0/D9fWKMvpwmekTdShNx2OvGxZ0bozM0+4rvpGoizTzj zuLkMbrmJCBdXS1k/tGMy/zBGH0zUv2Yz3kt5Mtpo9j/fIzWdfNPimjWQsnW HseF34/RnxudHU75aKOi8IOJGT1jdI7ltwmHp9qoNScA6Y6P0blFNTxsTh00 2nryW8PCGL01LOtm2y4dxBMOvE+WjdNdOTKxPnt1EClikBAmOE7f+3JN8Ql+ LpVjrGrMGqeX/+5QWTTUQTqtZpadMuO00ioft1QdHWTobdl/T2GcLmjbd+Xn Bh1kuWAdfFRtnDY76SxhrqKDDik4J/PqjdOLEa9NhKR0UFrowaH1tuN0BPm0 JJ9bB61H/HMXnMfp/O4dEnEL2gjxZC/7sn+cltzE73JsVht1x/bJxPqP039+ qJ3W/6GNpFKdbQejxumDN7ZycLdqo8QXe16klY7Ty0TeXxG4q43ihTYlM+Um 6MlbnDLqhtrobMofi+nhCXrFZVeG51UtxNHaDaUhU7R7ROW44m5NJH/cM9hK eYbu+GyVPsjchPpmbtoIlP2kjUJaHjkJbkQm/b6n4o/O0Ru7bhzrE9RAZn1x KlJSv2iXxK6bAyob0FC1+5nXeb/pN4Uywq5+65Ea+UFy+74FWmr3xd7X3upo BT3j1jm1SEs18QY7qakh4xGHWTlrDpCwFj9yal4VtVV5cDqocsIA/3YLse8q 6OnFFy4yM5ywSSktxnBRGXkuO9Hd0MAFW7bdk360UhntDwh9KpjIDYlVjs6t 1kpI3UulYZcbD1xcJXM2MEsRNTJVBU7oLgOeEdvrPr8VUMnDs7dVuXlB8hJH c5qPAgrlVDav7+IF1W1510M65NGKzpAdfoXLYb14kFubozzqvyd7LSWMD+JG VEyMJ9aia4qreJ5b80Ph84GGkKi1KC7R85WbzApYZ3/n3qzGWuRwzblB8PsK 6M6PX233nY3mDDLnU8oF4KzVFVoghY16+/WDqy4Iwk7v3s0WHmykn9KQrhwj CGsp2dse+9ko1c7hbfxlQWh4NhMf7M5GLnVH5fZfFwTL7F870l3ZqONRaj33 XUEINUyr++PERi2hizKG5YJw6A4h2mDNRlVk8ZtX04JgZJvA/9WYjdK3bFjz 1k0IZpXV9KrX4edmK8799hCC3dPpk3zYPft6h5S8hSBv9UrFPapsRJ29Xhzp JwSEZZlwlzIbZdTM20OoEKTyCDQtKrBR5p6qWwXXhKDfKXGZgxwbZbvtFUt8 JQRTY84NfuJslHf+BOm1jgHmLe/MGNxsNKznfPb8egYwFiR3BXKxkeq0wdTd jQzIeZ9W8ZmTje67i7zv1mXAJn2K/zEHHo8uuOVgxAALy3/ZjosUypgflzbb xwCusdNHX85TKPHwITXNqwx43BjKNzlOoQ62VcreawyYDU4q8MZe1fk/IuAm A3a6O7V+GaPQLROByYdJDIhl/+PfOEqh6wr3nyreZ0ATiyVTOEyhuK/f9SSq GSB44evOfwcodMF6vyn3DAPEVO8FZndTKH1Pp9OBOQZcd9LXo7BLd1r7vfrN gMp8l6jkLxSa3GJ8NYZLGBasup/f+EwhJ3mVjyxCGNZORgbEdlJIY3bSna0i DBJ9MVrX2ij0+dbZEEM3YaB5WvN4myk0H/87JstDGAauPtkZ30QhkdjjSfze wqCzGHBQCnvnP57orZ8wKFl5gk4jhQp9THhtwoShevMbtYC3FIrezIz3vCkM e3OB9fcNhTQ703IuvBWGc/Y9uWHVFCLUvOfym4Shu9cvThp7OFzNuK1VGML+ ug1UVeH9pUr6FDvwfGcdJldgixx8J137TRhC1PIOpyIK/QrjNuXlICD7QcWv 7jIKtQtoVe5YRQBtPqddVEShmk0JA52rCbjuNX7SB7vQ+Y/wUQkCQqZs1dZg x+VXuSRIE8BvZD8a/h+Fduzd82dwLQH5Ku61Zs8oVJTorR2jQcDK4YRhzkIc L6XbeW9NCZC8ovagLJ9C01NGmed2EzBgoNAYhL2nfPKO7h4C0lZcDdLA5t1r cinTkoAfKYl2OQ8pdCJs3veUPZ7/b6lDUh6FLBttFdd5EeBmttY+OZdCDxO4 ZXq9CZis/drois3vkS+e4IvHY6fVUdhojnf5Mj8CWhsZlrn3KaQu96y/8zgB N0pnElAOhQRPiNy9dJYAl5dJBE82hbxplKgfQYB7WMa7hiwKVfMfip87T0Dg +G7JROyQ5Op/PKIImJ4M0NPAHnwV4KoXR8CbrMOPve/h/VvdLDmcREDp1PWj oxkUkusPE01PISBFzOxUJfapfEUhuzQCSjpshK5jbzI486c6g4DBbOPiLdjp h9U/3c4loGy1gvH1uxQKR7G3TJ8TEMxDKjmnU2ioC12bLyZAJ7pGVhfb5vdU XFYpAb5J1Qmi2KpaDlHciIDUlZHLm9Io1JYrH1JSQ4DCSG27Cfb2N/aBPq8J aGM41itjP/x2KUC8loBaT/GtAtjnZad8j70lYC03X8rbVJzvNyscVd4RsOZF gI0ddlLhpG37ewI+sBj6eth8LWutLnzE+xdW9kAG+4vgpV29HQTYBu3+O5RC oUtn7bbc/kqAk/73W+exZ1NidHf2EiAm3hZ2GNu9rFxzto+AZ7Kvv1hj686x 1fYOEHDM6Y6cIva3wxNSAmMEaDS+v92STCGLGPaa5+MENLmeCSrHLs22Ffea JOBR2MqW+9j/9pYJV88QcNGfn+c89iLHhMDRWQLWBbl8CsD2lWLzSc8T4H0g YYMbNthHc4T+IaC657kDjZ0bWPZHcZGACd4769Sxxa6Nz334i/NHzzlcGnuk wWZCg5uE5GuBKZzYiQZUzxA/CR6Vn5rrkii0zN3m8y0BEoq/Xbpdge0fHtVh JESCaxvZV4BtXDzWkk6QsPpo/EQS9pOPco3mTBL8u2Oe/YstNWNdt8giIeGB 1a8o7Gn10moHcRKKgs0Xg7D37R6r4FtFgkPWP+VHsGt95UqfrSZBIe70ghe2 5kXrIg8JEgJ9jUpcsVMzLxYypUjwC2mbtccWqC55hKRJ4CI3FezFDuwefeAn S8JUjN3IbuyeBdkcCYqEJmvDezuwd6+xzqxlkzDbP9+1HftWnxpylCfh9vpN HTR2Xx7fp2EFElIIZKCHvT6oZ+aUEgn/00yS1MUOg1JCWIUEZ9s6Dy3s1/w3 VFJVScjUNVm9CVuk9YjRBjUS9mev2qqB7Xpnp1uVOglJJ3Wb1mM/OECF7d1A gkBsTpM69pzawo0+DRLE6n3oJRvMfXh8YhMJn5VCJJYcV/monleLBI27HV5L /hQd/f2mNgk3t8bILo0nb+XBpaRLgoHgpZ0bsAMkt0oWbyZBXr7ry9L85d/E dUz1SOjIP923tL4VjyYsO7eQ8OSDv602ts3JusOHaRKeNRfobMZO18+8uAj4 /b8aX9yCPSoQfveKPgmfzNcZbcPWfW9XLmNAQuwxjwBD7IhkjfbHhiTEZI0I mmA3eQlO6xuT4Gb1RnQPtvevCqUDJiQYfT8Z4IBdWJ1g8NOUhMn6PTVL8eSI Pbbvwm4SHimHXFyK9y1phes55iS4FzXYBi7FY4Dj0WZLHB/NXx6nl+LxpKO2 bi+Jv6PCuiOxXxlc5hi1IcFELlouAZvJ8F4TbkcCHS02mI7t8nGbFuFAwtPN C5J52D99Zg5qOJPQLtrVUoWtv7ExstqFBGWlNssG7Mt/stOsXEnQt9mwrWNp f684fQzcT8I3XS6fqaX9tdOaXH6AhFr5sHQOfF7KZQmhBE8SFBPtTBjY1oXV +iU+JPT82NKvjB3Rrvzw7xESQuGzsQ92UzrPm7ijJNjIxU2fxJY49LlX9hgJ p7TyhWOwCxavrjIIxPHk+d/Vh9g91HzExTASTpY9rfyFvc3vlSMZhc/PZEl7 Fq4nv9oGjV5EkyBt8vNIJXbhdkGNoEskDLXJX/yELb/Kgq/rCgkLx05sJXE9 E3zRUZh9g4Sy4+LVZ7Fr1BZSHG+R8HLBwicVOzxBOoaRSEJBbcLVcuxJPw+3 40k43585e//Bbls1KgQZJNwIINVP4/oaH0HMT2aSoOVAfEvBNh3T6MvMIuHa uJZ0FXb5i6BigVwSPPfxr+TD9TzjCKfXx8ckrClQYidi+78UQX4VJBziKsr5 gPuD8nrtXNlKEirZcxEcuH/0JtrfeFdFwtXR5B5lbBv/5EOba0hgkhpr/8HW W6O4ivctCeynw682ZuL6ffR/AUkdJKioN194jPtXioQ7u36GBNGbwqLCuF9u 3qii5j5LAsPT/oAh9rud09pzczh/YjsVwrD5giJN2X/w+5elc//A9m++HxDG xYTNn0vEGnD/hcgppCqMvSovPwf3756xCOdYRSbkpxKtzx7j+sBr5kUpM2FA fOD4b2wxSfGjz1WY0JqcGwVPKGRikhPRr8aE78PCgvXYTzLe5m7RZEKhxd/j AwUUOmcv9mtkGxNmNyp3aeH7B7s664aZIxOM3A9oKZdQqEF1LqPTiQmyyxNS QrGDb+wo8HVhwqMDrOC32HU+g42Rbkw4Pz4XGFCK85VQ4a/wYkJnvUVeJb4f VTg/DFU/zgTT0nyuE/j+5DBX6ErEMkH+e9N59RoK8bgvO5J8mQk8GSe+XcZ+ WGd9SjWOCUdk7f8bxeZM+Zmw418mPFhcyMl/RaFsQ53WMwlMuNT1oFUL3+9m 4ksMJzKZsHXDOnCox/VrXZVySzkTUgS2lM604P/rOPKfRUxozLt/4VArXs/2 6e8bqpgwkXuprRd71F4+8+pLJqSafFnx7h3Op8hoaYt6Joh0ShQUf8D3qS+W Ik3tTND/j5RM66BQaFzvwttpJvTrJD5p6aGQ5xRP8xtlFiz3fDZRN43P/32D BidVFjSHH9zlMIPzxy2ibmwdCzQ0vaQGsY0auWtEN7DAMsJTkW8Wn5dcrhI3 bRb45E+9N8X3+X53jsz57SzwfdyfPrhAIY+W38FKziz40++/P3w5G7k/npSJ usICD68zqWISbNwPQke3XGWBclBjSTP2Onfu0sl4FlDe4V6xkvh7iyli63SD BU9E9vrzSrPRleOasepJLIh1WmbyV5aNSrWD59/fZ0FueK66oCIbiZYvNMvV 4PFfqNn9uwmPX8t3rvQPC0Jso+Yc97DRoe1f495gX2KvyXLHJkqfJ3/A/q7V aO2DbZfnWzyOLaeaXBCI/f1K/QR7gQUuzh/9r2LzWse5xmJHc/w3UYO9/Yv4 VpdFFuQFqgppmLPRN9tx04PYorAc6WBHN722D8Zea8VzjMZuqTx5Ih572OlA +y5s94xPD2qwX89UZXlhn/FJWaP+lwWHfYdNkrDZPUFKethxkz/+3sV+7WCu vROb8Vro6X1sYhfn3v3YLxyLpIuwU9T2R9/Efqec87MFWz/rf7cysMPlSh60 L61PWuTeY+wv3mPu3dhq5MvKOuwDPeWNI0vri0pqbMP+KuoQOY0dyBXY1Y9d dkt8y2/s1aFmPyax1x6cneK0YKPyKfn5v9j6sfP3+bD/D3iWP1c= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-24.325829334711546`, 12.858899785138707`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521977740238*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "rockets", " ", "acceleration", " ", "as", " ", "a", " ", "function", " ", "of", " ", "time"}], "*)"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"tabb", "=", RowBox[{"ReadList", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"{", RowBox[{"Number", ",", " ", "Number"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.3985220851649017`*^9, 3.3985220883211393`*^9}, { 3.398522138586624*^9, 3.398522144890815*^9}, {3.398532590565143*^9, 3.398532592570201*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00009116233`", ",", "0.0073096873`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0054180962`", ",", "0.2661612`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.016014187`", ",", "0.6989556`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.021880159`", ",", "1.040523`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.031756707`", ",", "1.54349`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.041059766`", ",", "2.02444`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.052930098`", ",", "2.629947`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.064815767`", ",", "3.206332`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.076609045`", ",", "3.772981`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.092450343`", ",", "4.615119`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1043143`", ",", "5.232759`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1205916`", ",", "5.987649`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.132195`", ",", "6.544532`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1487788`", ",", "7.272815`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1584642`", ",", "7.768442`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1682854`", ",", "8.191296`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1765888`", ",", "8.533594`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1838326`", ",", "8.851305`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1917716`", ",", "9.144951`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1977065`", ",", "9.355472`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2020006`", ",", "9.533946`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2073826`", ",", "9.68362`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2111262`", ",", "9.796396`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.216349`", ",", "9.878061`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2205439`", ",", "9.874467`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2244026`", ",", "9.76883`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2277069`", ",", "9.604774`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2302309`", ",", "9.256018`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2339989`", ",", "8.766858`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2400061`", ",", "7.914293`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2468683`", ",", "6.734315`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2547928`", ",", "5.574074`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2615847`", ",", "4.527571`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2643062`", ",", "4.174019`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2668391`", ",", "3.808275`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2695534`", ",", "3.653751`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.273054`", ",", "3.487326`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.279305`", ",", "3.282893`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2859319`", ",", "3.105272`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2929181`", ",", "2.986011`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3007921`", ",", "2.8476`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3109817`", ",", "2.756`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3200925`", ",", "2.676212`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3327954`", ",", "2.62663`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.345697`", ",", "2.569825`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3594826`", ",", "2.50115`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3737479`", ",", "2.447183`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3847921`", ",", "2.399529`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3995385`", ",", "2.357842`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4128123`", ",", "2.33513`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4233575`", ",", "2.309171`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4452315`", ",", "2.250207`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4618061`", ",", "2.255186`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6386982`", ",", "2.250065`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6548097`", ",", "2.208788`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6652377`", ",", "2.034736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6713452`", ",", "1.917638`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6763223`", ",", "1.724958`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6797357`", ",", "1.53909`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6841006`", ",", "1.212732`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6905862`", ",", "0.9331262`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6951014`", ",", "0.6917639`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7008752`", ",", "0.46777`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7075046`", ",", "0.2852952`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7130399`", ",", "0.1437539`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7195489`", ",", "0.0049322862`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.3985219779995003`*^9, 3.3985221763070374`*^9, 3.398522220453555*^9, 3.3985325948968153`*^9}] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ReadList", "[", RowBox[{ "\"\\ \"", ",", " ", RowBox[{"{", RowBox[{"Number", ",", " ", "Number"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.398522158940318*^9, 3.3985221678105*^9}, { 3.398532598581552*^9, 3.398532600786195*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.00009116233`", ",", "0.0073096873`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0054180962`", ",", "0.2661612`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.016014187`", ",", "0.6989556`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.021880159`", ",", "1.040523`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.031756707`", ",", "1.54349`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.041059766`", ",", "2.02444`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.052930098`", ",", "2.629947`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.064815767`", ",", "3.206332`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.076609045`", ",", "3.772981`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.092450343`", ",", "4.615119`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1043143`", ",", "5.232759`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1205916`", ",", "5.987649`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.132195`", ",", "6.544532`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1487788`", ",", "7.272815`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1584642`", ",", "7.768442`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1682854`", ",", "8.191296`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1765888`", ",", "8.533594`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1838326`", ",", "8.851305`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1917716`", ",", "9.144951`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.1977065`", ",", "9.355472`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2020006`", ",", "9.533946`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2073826`", ",", "9.68362`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2111262`", ",", "9.796396`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.216349`", ",", "9.878061`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2205439`", ",", "9.874467`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2244026`", ",", "9.76883`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2277069`", ",", "9.604774`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2302309`", ",", "9.256018`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2339989`", ",", "8.766858`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2400061`", ",", "7.914293`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2468683`", ",", "6.734315`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2547928`", ",", "5.574074`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2615847`", ",", "4.527571`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2643062`", ",", "4.174019`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2668391`", ",", "3.808275`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2695534`", ",", "3.653751`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.273054`", ",", "3.487326`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.279305`", ",", "3.282893`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2859319`", ",", "3.105272`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2929181`", ",", "2.986011`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3007921`", ",", "2.8476`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3109817`", ",", "2.756`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3200925`", ",", "2.676212`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3327954`", ",", "2.62663`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.345697`", ",", "2.569825`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3594826`", ",", "2.50115`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3737479`", ",", "2.447183`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3847921`", ",", "2.399529`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3995385`", ",", "2.357842`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4128123`", ",", "2.33513`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4233575`", ",", "2.309171`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4452315`", ",", "2.250207`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4618061`", ",", "2.255186`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6386982`", ",", "2.250065`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6548097`", ",", "2.208788`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6652377`", ",", "2.034736`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6713452`", ",", "1.917638`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6763223`", ",", "1.724958`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6797357`", ",", "1.53909`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6841006`", ",", "1.212732`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6905862`", ",", "0.9331262`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.6951014`", ",", "0.6917639`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7008752`", ",", "0.46777`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7075046`", ",", "0.2852952`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7130399`", ",", "0.1437539`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7195489`", ",", "0.0049322862`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.398521978219116*^9, 3.3985222395670633`*^9, 3.3985326017033043`*^9}] }, Open ]] }, WindowSize->{919, 969}, WindowMargins->{{-930, Automatic}, {Automatic, 6}}, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"Magnification"->1, "PaperOrientation"->"Portrait", "PaperSize"->{612, 792}, "PostScriptOutputFile":>FrontEnd`FileName[{$RootDirectory, "home", "s03", "mqschade"}, "SummerResearch-easyrocketexample.nb.ps", CharacterEncoding -> "iso8859-1"], "PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->True, "PrintingMargins"->{{54, 54}, {72, 72}}}, FrontEndVersion->"6.0 for Linux x86 (64-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 1402, 39, 187, "Input"], Cell[1995, 64, 522, 17, 31, "Output"], Cell[2520, 83, 306, 10, 31, "Output"] }, Open ]], Cell[2841, 96, 250, 5, 32, "Input"], Cell[CellGroupData[{ Cell[3116, 105, 168, 5, 32, "Input"], Cell[3287, 112, 2645, 49, 243, "Output"] }, Open ]], Cell[5947, 164, 45, 0, 55, "Input"], Cell[CellGroupData[{ Cell[6017, 168, 169, 5, 32, "Input"], Cell[6189, 175, 306, 10, 31, "Output"] }, Open ]], Cell[6510, 188, 518, 12, 77, "Input"], Cell[CellGroupData[{ Cell[7053, 204, 169, 5, 32, "Input"], Cell[7225, 211, 2276, 43, 230, "Output"] }, Open ]], Cell[9516, 257, 190, 4, 32, "Input"], Cell[CellGroupData[{ Cell[9731, 265, 186, 6, 32, "Input"], Cell[9920, 273, 405, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10362, 292, 74, 2, 32, "Input"], Cell[10439, 296, 75, 1, 31, "Output"] }, Open ]], Cell[10529, 300, 909, 24, 87, "Input"], Cell[CellGroupData[{ Cell[11463, 328, 2109, 58, 393, "Input"], Cell[13575, 388, 81, 1, 31, "Output"], Cell[13659, 391, 78, 1, 31, "Output"], Cell[13740, 394, 75, 1, 31, "Output"], Cell[13818, 397, 73, 1, 31, "Output"], Cell[13894, 400, 75, 1, 31, "Output"], Cell[13972, 403, 541, 11, 45, "Message"], Cell[14516, 416, 543, 11, 45, "Message"], Cell[15062, 429, 541, 11, 45, "Message"], Cell[15606, 442, 472, 9, 24, "Message"], Cell[16081, 453, 380, 13, 31, "Output"] }, Open ]], Cell[16476, 469, 128, 3, 32, "Input"], Cell[CellGroupData[{ Cell[16629, 476, 29, 0, 32, "Input"], Cell[16661, 478, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16771, 484, 324, 9, 32, "Input"], Cell[17098, 495, 8243, 140, 242, "Output"] }, Open ]], Cell[25356, 638, 231, 5, 32, "Input"], Cell[CellGroupData[{ Cell[25612, 647, 254, 8, 55, "Input"], Cell[25869, 657, 311, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26217, 673, 159, 5, 32, "Input"], Cell[26379, 680, 313, 11, 31, "Output"] }, Open ]], Cell[26707, 694, 259, 5, 55, "Input"], Cell[CellGroupData[{ Cell[26991, 703, 168, 5, 32, "Input"], Cell[27162, 710, 6206, 108, 232, "Output"] }, Open ]], Cell[33383, 821, 210, 5, 32, "Input"], Cell[33596, 828, 739, 15, 99, "Input"], Cell[34338, 845, 406, 13, 50, "Input"], Cell[CellGroupData[{ Cell[34769, 862, 168, 5, 32, "Input"], Cell[34940, 869, 7215, 124, 234, "Output"] }, Open ]], Cell[42170, 996, 215, 5, 32, "Input"], Cell[CellGroupData[{ Cell[42410, 1005, 472, 11, 77, "Input"], Cell[42885, 1018, 5204, 136, 352, "Output"] }, Open ]], Cell[48104, 1157, 26, 0, 32, "Input"], Cell[CellGroupData[{ Cell[48155, 1161, 346, 8, 55, "Input"], Cell[48504, 1171, 5180, 136, 352, "Output"] }, Open ]] } ] *) (* End of internal cache information *)