(* 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[ 57785, 1378] NotebookOptionsPosition[ 54775, 1281] NotebookOutlinePosition[ 55557, 1307] CellTagsIndexPosition[ 55514, 1304] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ StyleBox[ StyleBox[ RowBox[{"(", "*"}]], "Section"], StyleBox[" ", "Section"], RowBox[{ StyleBox["Simple", "Section"], StyleBox[" ", "Section"], StyleBox["Rocket", "Section"], StyleBox[" ", "Section"], StyleBox["Example", "Section"], StyleBox[" ", "Section"], "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox["The", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["method", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["that", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["you", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["should", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["use", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["for", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["opening", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["your", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["data", "Subsection"], StyleBox[" ", "Subsection"], StyleBox["tables", "Subsection"]}], StyleBox[" ", "Subsection"], "*)"}]], "Input", CellChangeTimes->{{3.406548484965597*^9, 3.4065484984011583`*^9}, { 3.4065486022959843`*^9, 3.406548609311391*^9}, {3.406548691138007*^9, 3.406548719872531*^9}, {3.406548760210863*^9, 3.4065487729905767`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox["\[IndentingNewLine]", "Subsection"], "\[IndentingNewLine]", RowBox[{ RowBox[{"tabb", "=", RowBox[{"ReadList", "[", RowBox[{ "\"\\"", ",", " ", RowBox[{"{", RowBox[{"Number", ",", " ", "Number"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\n", "\n"}]}]], "Input", CellChangeTimes->{{3.400942811891389*^9, 3.400942917095504*^9}, 3.400942980700306*^9, {3.406548475599793*^9, 3.406548493492815*^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.400942920818087*^9, 3.406548327713078*^9, 3.4065485677649107`*^9, 3.406548813716811*^9}] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.400942999996399*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{ StyleBox[ RowBox[{"(", "*"}]], " ", RowBox[{ "A", " ", "simple", " ", "Table", " ", "for", " ", "this", " ", "example"}], " ", StyleBox[ RowBox[{"*", ")"}]]}], "Subsection"], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{ 3.400942920824766*^9, {3.400942983559804*^9, 3.400942997335058*^9}, { 3.406548586514399*^9, 3.40654859822219*^9}, {3.406548778369952*^9, 3.4065487836705437`*^9}}], 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[{"10", ",", "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", " ", "Mathematica", " ", "command", " ", "function", " ", "that", " ", "approimates", " ", "a", " ", "function", " ", "that", " ", "fits", " ", "the", " ", "given", " ", "points"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.400868091476325*^9, 3.400868092018304*^9}, { 3.4009430149604397`*^9, 3.400943020468286*^9}}], 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[{"10", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.4008680835405684`*^9, 3.400868102238666*^9}, 3.400868712306327*^9, 3.406548327958898*^9, 3.406548813783745*^9}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{{3.4008680835405684`*^9, 3.400868102238666*^9}, 3.400868712306327*^9, 3.406548327958898*^9, 3.406548813818812*^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", ",", "10"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.400868050228833*^9, 3.4008680507878027`*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxN1Xs01OkbAPAZMyRqGqbLEmOUkktaJ5VSnrcUK5MuiEgKkdiiXSG3Qos2 JcfWUEIbpVLpsoXIvRn3KCkTMW7DXFwrS2y/39l9v/Oc85znfM5znj+eP57z aLsf33NYjkQi3f6e/6tpEe4Kxp6/m5NIQ2xLr7fmFc0stiPLB1BWyOqtmY9h pqo4msUKgYPKYi+1zHJIK0nQkmfFw+nibBI1sxn8NgX+/EUrBUic6B0TGQJo njySPKSVAy+oI6OjGaMwq61LV6yVD5pmelbDGRTUWlIUKOrPh9vmU4VfN1HR nWxO+WBeAZhsafiR1EZFtids3QYsXgDbOlB93gIFdHl2weU+75cQ5lgqNoxX RKrXuHLD78qA/8u+5CMBc9Ek7a8c/43lcCTIcLY/jYa6z/y5ayijHMZOzYQH 3aWhv7wjrkt9KmBOVJb3bz3zkPNqkw2SyUpgcoM1mwxVkEW2dufPB6ug27rr nUOoCjJUmxcnrqiCOzU2Se95Kmh6WvhWlPAK1jYwZ3V6qaK+gHdhfiOvYGpX XKnnU1XU2F2xVLSXC2VNw6H9FAZ67vio2reQC7H2Lmv99jBQZnV6wKAWD3a0 VAxJMxhojPNUv+M8DyI6XPfRPjOQpXeNoGmCB6T/x3yUsqbzWpVXNbaI8sWh oJlwUsYSbmZuDbbpJtsN8bG12DEns5hOZvXYjQ+m5HSlDdgml94edr/7Gjuy 2nC7sVsz9sJNbaoNVS3Y9x/Et/kZfcA+Kbg4bLX/I3a6ck20yrZP2Jc4bOs4 eid29LJ62kwb4anBCwEFm7uwAx/tfBN4i/CjBQ/P2n0gLAmmrzOeK8A+f6dk XsZywvp8/34aEoCxh+Gc7j4G4s7VLg3fJ4AVCl1rTJ4zkDe8ThGdEAAz54pb TBwDkW58Lmj7XQAoMYBcsY+BOFQNfvVNAbgH2fxJMfg+z/Ni5rQI4Pa2md6o OlW0wn7qxuEN3WDS5XXsjKoq6j+ie6+d3AM7Fq8Nj7hGR0eTwosbE3thVD1n zfBBZSQ3fqPjZU4vrBfuD/GnKKNURy7pQVkvRD6jF0mzlFC1BsMiYawXlO2D t0oGZiODW7dfWTv1ASvBym7wV0UkKmxuLNPqB/ZMj39PnDyKYU4M55n2Q1Jd yhNPA3mkcYbJyNzdD61Xd3wV1FER29LHITK6HzxNn0Z2qVJRbuP0e7O+fggO iLnQcU0OWa7WmdQnCaEQTJsOgBxq/8NaQ11NCGSaaEF7JxnRXJIPfN0uhIQ7 dmn85WSUXZQf2echhObgWZ0uPBIyZ3VktIQJQc2qUKfNl4RaoqhllX8IwW3B 8SPONBI61qMneHJfCPwYo8SgyzPw6cB7xVKeEG4sK23eMG8G7FrjjOq6heBR ZbdoOnYaTGv6QnrUB0A4K+R6TMg3oORl0RfGDsDIufJ7l/ZPAidM2zzIbRBm X3Li3V3yBUoZainr6WII2iAvX+IqBpMEbvE2AzFMhOqft9wpgmyF4O7dlmI4 W7STUYcG4fxEy6qjYWKIR6naH5YKYW9HclVqvxiyLFeZjwm7geu0VZRNkYBx nH3lqTYBmDWNqjxmSuAxL4RNrusCVuUe1xp7CZSyK5xpDz/BwB362GSJBPKz Hkl2iVphv06JmiJfAq9XfJtybWiBhrTjMP+LBN7etVL2ffQGniTWnzNcKYXh PL7u2eBG0FWKeGj6kxSEPrZ+Os9qITV6ZctWj+/944I483AuRJ48r+2aIgW9 sLllJ2aXwIjUzMrniRQOUbcVqaU/A0+fQb/ABilEabeLru69D++6UpPODEhh 8y+exYrtqbDMaBm/Sm7o33sgkdoHpiRsOmHOrTfkZk3CStoxuh2mhLkbL62K 2Eb4N6fr6zT3EJZLfG7l4kv472mR97s0woN8h9sNcsPYtRxdvZJawhfoNfqZ B0ex3dvsX1JqP2MHVMa4H9f9GzvPf47dD9bfsDNDfQd+dCSh/xyVPrV7TETG JjV/Qi9OUbCX/+oVbK8vj909fmWvcpEC9vaeo+FJAYrYtt2JBkymEvZAuftp bq4ytpFKi6aF21xsJRg/xB+lYVuJnb8scaBjt5Z5kp2//5X//DSu4gBrnLCX fOCn+npVbI8ToU/npDKwV3kb1LMPzcduUDVUDly/ALvwftRVQ8pC7FCy/q7a j4SV+Kd+OvZkEXZPtnZyetgP2Mkr1Kj5DmrYialerw6x1LGdk13r5/QR/ro1 ayK9eDG2oGdLcFmsBvaNTcaL6w5pYueeDVTxXsnEjnXwsKGME17Dz8yJrdPC 5uhdza2zYWFHliRwbPIJ71jskFWto429+dgrF5V4wuka7jq144R1ym9dtnVZ Quy3sky/qZiw1yj1NU9/KbZ73ggr/iJhbrVi9Ispwn4WnYk8GdNf5F9vkbFT 7tGCIRn3Xawd1vlGWMEh8WCCjC06FpkfmCbc6zhk4yvjc43cfcEybioNCUyS sfvNtntVMj7tk7541Qxhna4gvY0y5jrvWmctYzqbbOch43Qjj3NXZLzllhnn pox7teZn58nYSKWytEbGTfFpDa0yPil38mOPjNVDbQdHZFw8unxiRsb/AAda o6M= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 5.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521973815921*^9, 3.400868051635029*^9, 3.4008681152197027`*^9, 3.400868712508703*^9, 3.4065483283631763`*^9, 3.406548813933301*^9}] }, Open ]], Cell[BoxData["\[IndentingNewLine]"], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"IM", "[", "t_", "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"T", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.4008681326440496`*^9, 3.400868140715825*^9}}], Cell[BoxData[ RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]], "Output", CellChangeTimes->{3.400868141938097*^9, 3.400868712659507*^9, 3.406548328572892*^9, 3.4065488140046473`*^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"}], "}"}], ",", " ", RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.400943058473136*^9, 3.400943065542602*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJxF1Hk01O0XAPAxxMx8S9nqJUT2tURpwX1CKSR5EZIyRFTeVCqUJSSFkEqU pVC8pmyVLUsUIXuhqBlj0GDGni1+3j9+M/ece57zOeeee8/94z6y5H+sTuFx OFzbSv73Pgkg82u5+hvg/gtLQ/2adhnzozL2gEPS2i/alwyWP5aHyMh4AG7d pVrZdmkQjHuTS+q6ALjVio1ZtlrwpDJq0yoZX8BNrY770WYA6mzX6GX3QMD1 1TkXiB6AXsHkpcXOG4CT1EiIsT0C8pnEHfMLYYAzPO7g+OgonNX3Ofd7UwTg fl76XdbmBAUd1PQpo0gIWijWtQ92gfkz5j3j7ncBZ6ThnCx6GlJ5eiJ+74uF IBPRWQ25c2D8OVZhpjMOKkN0l0JsvWEowaRqyiMegt5L6663vwSRrn8cJxfu r/SvyDz06Aq0L5yOH9v0CFDBFtWctgC4XCu9lZ2XCCe3Lyf/OhUMEvc6GkaN HgMuyKjmcHAIkFUR77B7ClD7+qj3RG8BfsGveepaKlDn9bu8I29DB9VGampf GsjgZzw3y0XB1RyseKLzKYx5GeRdt40F07gB/onUZ7C1O4Mu1BIHklerrMc9 0gFXWuqy1j4eKo2ujLEXMsCSMWG+/9FDEPjepzS6KQvOd0RXP2tLhq7Kdz4j Q1kQ86dQq8olFbIzE6qH87Iht9FXmXEqDSwuWJxgGuXATukIklnwM3hALHkw 6P4KUqPLU6NFX0DhFdMLF//Kha04N6Vn5lnwmKkrPnktF25R+q3PRmaDV4uw +8S+PAgqdU+XlKOA8OM6/HhnPpy0en/bzzYPFgTfZJ3XKwA0f8HjqFA+9Ac/ sxxLLQA+dDdJsCUf3rgHJLM9CkEngzSP2ReCg7bObtbCazD+ujrV8NFbSKtP 8R7eVAyLbQYxKW3lMJXwWvVnZDHIi9Lat1MrYL97A71trhha1BKzVHwrYYT3 t01Jewl8m7iMF46rgp36FrsjwsuAcNdWQvBnNbS8WsQrsStgYJnSV8CoA2Eg Oq3RrARzbYG+ophPsEcxfne4ayX8GNwZyGNQD9FTWZN+rZUQ06Fw73hKA+jE fjlF/rcKBMsUZPdeb4LAenVTrRPVUEn7wfxm1QYv8t4q/nu/GnpCD9v7lbRB W4Ihr0JjNcSdznmwR64d5N3tyv7aVQOl46oBcrPtUM8bqokT+QCy2B5cxKsv sF7/u3Dzx4+g5vC8Jdu6G16+ivh+VrMeEjaeFSaUUIEpzIw0da6H9IfyW5/M UUHpsqmBcnw95Ir0Htq2iwapelgafa4eajGLCMciGsR9inRz+NAAMwtbcHlv +uAy/e64ieNnsOqZHLUv6IcUrCFEaF8LrH7i/+nfnCFwh9ZHIxfaAd3dV/n8 8Bh4MVTohS+74ZPT1EayxCyQZEOVfu6kwiGVU+PrTXCoTi92S8A+Kszf8Snt tcWhm3bJulJWVHjBCgtLd8MhfEyRybEzVOAtzBTfdhOH5pdG3DufUKHYYGjv oQ84NNxj86IZTwNF6zNxIUY8qDFBSaWykQbLAd7aY4BHtwt1tE5004BCC/7z 5jAeHWjZu2uJQQMH47ja6yfwqEbA8aDeMg1eEwuOYYF4VHY5xqNIqw/OxE+F KJbjEcV6Liv3QR90ZV3pcNTjRdHrGlTTTtJBO7E13HInHyrWlXpt4UWH4kkB ithBPtTv9A8s+tMhP6mAUWPPh/ZQRKyPPqQDvtMzlubHh4YOOl5f00QHwoJd m0gZHzIKGW323dMPlbPa88d2r0Kz02t9rNYzoLG+n+anyI/kpMjLy3IMeD9R 43NDhx9ZGBdGULQYoO4hIXXJkB9lxNklEw4x4NhehUwxJ35ktSWttjyEAZtT StKOxPMjyultEmrjDLBb129AWeRH5O/WFbyNA+DySUtoskwAkZJo57y7B8Bz 74FYQp0Aynfwkvw5MAAXpShsQrsA4v0W7lvCMwh3eMgm9UMCKL2rRNtbdxBa fa+SD4sQ0MAXmRc/ng5CiaqdiYsrAUXfp9ia5w6u/FfWOYpeBLTDZveqkneD QFhOYXdcIaDwjr/J97sG4biLrNDEbQJSbr8paS44BJt6Wio0cwnIs2Ukpth3 CHDRfQ15MwQkHOMLSuFDYHzzg5jcMgGVHOZnxccPwZ2+Gf1AASLCmjeZnX81 BNK1xiqzG4go57PVKiXGEBxDUWdGdImIVV/kG2/5C7QnW5J/XCQi7w+h5H+U mOCaJpl9oZeIpPv3889oM4GIPRdUoBNRA56YfQ0xoUNth1bDEBEpoKjxCHsm UOPIuROTRNRdcj8o/Q4TGmcmH7wkktDe3MzkbjYTZsTm+L5tIyFW02nDk4tM wCaaDtbpklDSqOrAAGEYTMKyzLP1SGha9ZXGlOww6LSejTy4n4SyMt6WCVoP Q9+S2tSUHQkJJdV9Myoahti8SNdlfxIqL74dUF8zDBtwLyNUgkjoTJf55iOt w1C9quOsSSgJfRBr9XBiDkPcDs1zTpEk5BvTPXtVcgR4NTfaziWREC2Muf5l 0AjoXuqs6ysioej0nBKdqBHQ2G7cdKCMhPZUezmVPhoBU8rr2KcVJHQfN5lR lz8C8+8zrbQ+ktBB/wUdev9KfWhVWWkbCeWdX/33XwdHYeB4t1boLxJqTBTx pdiOgkTzZWenERIaqJFIMXQdhbkNNkqqbBKSEFcZPhs4Cm+2dvg8mCKh0Kp9 IVWvR0EroEfq/RIJJQ+bZ9lWj0JpTtCyMg+GisSsm4dbRoGdf+pKMC+GRj3I G9ePjILd/gkVAQKGbIUDCzw3s0A1Qizx1DoMnde72b28hQVEn0oNe2EM3XaL Wo7XZ8G9nTlHDUQxVFGSZFZhx4Ln+/d79W7A0Lf+p97WbizQip1yeCiOoSnB 7Ie/LrLArYDea7gRQ8ouRXSRuyxoDgjN9JLGkGFUBTHrMQv4lHeMsDZhyPHt xy0G2Sygv1CuOymLoVjsi//pDyx4ptViKC6PoZztPWl/2lhwY1cY7YQChj6e oNfGUVmwRtx/fYIihuYLxkXeLbBA9oSKUa8yhkR/zO6yIrIh5wNtN1MFQ5oE 3MnB9Wyg8X6vG1LF0IFtAjevybOhSlxstEsNQy6OgjlC29hgJhDzvEQdQwE3 xdoygQ3BjWazURoYSsiVnN1ziA3OHgd+WmliKP+bnHSrAxuGe8MciVsw1Min Zux2mg2yqnzn81Y8oLnNc8GHDTwW1eJmWzGEs98VExPChjsHq+2/rlgiBL1R iF2ZL8m39W8tDG2nmPSUJLMhrTbscdWKLTst8JY5bFA3PZAiuw1Dnjy2yoxi NpDTzXZeXHGo2nELv1o2GH696/5mxck2rpfWfmHD55+iGsMrLgo8k5jexwbe qm+3hLQx1J51oXLXGBvovjQ/lRWz2n0Hmv6wwYukwqu9Yr5AxJ+/agx0tP8L DElnmaibiHC9s93CqkeG67NKx5P59bhO8z/D3HqU67g1OsnCm8c5vpGyeGRq hGtcOxWV+U1yrHjJ7aq16jTH/dMPbbF3MxybMjyvx3nPcmzRH6MmLT3PMbOa HFRHWeBYU+irlNGJPxyTYNq5Z3KJY5NRh9+bbXDo/+5678rjoM7D8etbNU4y 01y7rfKhNjXhOXa54P96dSIvx1vc1ZrMnfk4bhZWx3x2reK49OWNJHVefo79 eVQtG3u5JvX4HfAqFOCYkSkbn3KNwHG8sjhfsQ2R45hEt1pnGRLHDvHHm1YP cj1rnDGXUo5xTGcYXn0fvprjp/paGz87r+GYEuYj5K4hyHG4jYsZ7zTXK+eX Ff55LccJKkmUz2brOA6sjEowK+b60EabjHp5IY73etUeE4rgOkWSLN84zbV8 9fMHFseEuftpvFdtK+fabZKv9ZOqCMfkvAmZiLtc19UTQsoWuTb6ucHAaYnr 8knFueVlrv8H3Je19g== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.398521974022554*^9, 3.400868158761141*^9, 3.400868712800849*^9, 3.400943066749248*^9, 3.406548328682548*^9, 3.406548814115226*^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[{"0.059`", "\[InvisibleSpace]", "-", RowBox[{"0.001617647058823529`", " ", RowBox[{ TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False], "[", "t", "]"}]}]}]], "Output", CellChangeTimes->{3.400868712945201*^9, 3.406548328814164*^9, 3.406548814196775*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SubscriptBox["m", "0"], "=", ".059"}]], "Input"], Cell[BoxData["0.059`"], "Output", CellChangeTimes->{3.398521974170394*^9, 3.400868221102747*^9, 3.400868713204769*^9, 3.4065483289013777`*^9, 3.406548814287559*^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[{"(*", " ", RowBox[{ RowBox[{"Mass", " ", "Change", " ", "Constant"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"\[CapitalDelta]m", "/", "Total"}], " ", "Impulse"}], " ", "=", " ", RowBox[{ RowBox[{"\[CapitalDelta]m", "/", " ", "IM"}], RowBox[{"(", RowBox[{"t", " ", "\[GreaterEqual]", " ", "0"}], ")"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", FractionBox[".0055", RowBox[{"IM", "[", "2", "]"}]]}], "\[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", "*", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "*", RowBox[{"Abs", "[", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "]"}]}], 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", CellChangeTimes->{{3.4008682568565063`*^9, 3.400868269439474*^9}, 3.4008684591362333`*^9, {3.400943093656972*^9, 3.400943158525283*^9}, { 3.400943215669314*^9, 3.4009433064811487`*^9}}], Cell[BoxData["0.0006834`"], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.406548814396413*^9}], Cell[BoxData["0.001617647058823529`"], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.40654881445338*^9}], Cell[BoxData["1.223`"], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.40654881450879*^9}], Cell[BoxData["0.9`"], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.406548814563431*^9}], Cell[BoxData["9.807`"], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.406548814616881*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"y", "\[Rule]", TagBox[ RowBox[{"InterpolatingFunction", "[", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"0.`", ",", "10.`"}], "}"}], "}"}], ",", "\<\"<>\"\>"}], "]"}], False, Editable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.3985219742180853`*^9, {3.4008681768008823`*^9, 3.400868204485147*^9}, 3.400868238866153*^9, 3.400868272815813*^9, 3.400868460767804*^9, 3.400868713288869*^9, 3.400943308047756*^9, 3.406548329003983*^9, 3.406548814670286*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Solving", " ", "the", " ", "differential", " ", "equation"}], "*)"}]], "Input"], Cell[BoxData["\[IndentingNewLine]"], "Input", CellChangeTimes->{3.4009433366982193`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", RowBox[{"First", "[", "solution", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "9"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.4009433477537317`*^9, 3.400943358998211*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwd13k4VV0XAHBJ5uGe68qQeUhEA5Iy7FWilIQcIuJVISpDhUwZS6hQeUsi Q0JkSJldhETJFJlflHlKlDJ92/fXfX7PXmedc/bed691JGydjc8zMjAwXNnA wLD+O+8qM7mYGqrFMHo6YH6vQdm5cJEzW57aoYfLPAUVnxnpgq+3U8bj3BGT 4SlbdlZJOhimqCUv+KPSbPNLzx2U6fO1Shea424ix+CVAbnrQE/TrHy8ph2B Oru0l6pDjtB3dMl+j1mIRNy+Hr+y3xvSBwzf8tXExaC3+9o4tQos6PsjVhQt XR6jRVv1mT0d1vQH7w/p/tSOQ8Pix3i4XWzp04wRZ8L4E1DMW50Xh9rP0aUT LpRELjxDjcJp5mEc9vRmjTuHLa2TUGl/46zcigPdryunVfZDMuIrqbW+9MiR vt2zzfqn0nOkX3Qq4Wm9E/0r3+JEeVwqWs29dIcx4CI95PUWzzDmNNSjbTU6 mHaRrmSEmExd0lHItMye4J0X6f3TtpESXRlI86fEc3lGJ3pExE3hKe1M1LCv 84Ag9wX6PvmMtMKsLOSedOpJFNjRh99/Ugnmz0ZCmSGDrTdt6fV5nv+9gBw0 YLgpUTPuNP1ZQFjqnYUc5LCquNuaxZDubhh38UpGLmqW1X4poi9BPy72Ssnc Og+lCT9MrdTRR9LT9EUt2mv04D7jwKsAG/S3tLlc+sNrdLV7ZazKwAk1hQ8F s/vlI4Oq6faSmiso1WLh6KzSG/R2sIX/+HMv5CPHQrSPvEGi8/+YlMsGoJOL Ah0lcW+RD9x177QLQfLv5Z8mGhWg7UHR8Zm0MMQQo3H2FnMhKlZbm5/ccw+1 nzOQu1RSiNQILWqafTTKVLaZMXYpQsyBc4q1bg9RIKPbGzWZYhQVWyibWf4I mTcHeYt2FaPBBNOnb47HIWbnFyzj2qVol17JeSOxJNSjWfTp82Ip+vaf750E 4xT0mrPh/pusMsTkfZhDLTMVhXX3mD+xLUcxknxn9BTTkU3GtFgAPx3ZZI1u Y+x4iVSvMwzbfaSjk3JWylEZrxCzNJtpKlSgyRSRN9FtOah3Tkg4YqECKckn DXNuzkdHuqTWVk9UIlN67+GLnW9QfqXCoGtGJRKFxC+Z+QUoLFIrzcy6CjE0 dPbuelOCFjwOh9cXVSHlC3XqKd1lyMba8LIm7R1qKU3TVeCuQHt32KpIfXiH tslwnXTzqEJJfE78MVLV6Pf8/Wu/Kt4h7pUrf1n9qpHOzoJ7DQI16FtDSMW0 Ug1qLOiNfjz/HkVdSNcvjqtFFuZ3dUXONyJul+TOutVaVHQr0nzbtiYU4f7U rsPmPdpZ8uBGjGwzCg2K8p+XrkPZjsySrw+1IuawcK6Nt+rQuFDbjne2bSg4 MiSWGKtDt79LNzmGf0H+T6/n78j6gGxS7PYeWulAq8lXDmjy1CPBX8uTH3Q7 kU/GpcZjrvVIhWu51uVJF/Io+GfUYU8DSpitlJe260WXm/WEk8s+IvYNPsKP KgbQZId2eq7YJ1SbvtYzHDWIHPs0VSsCPqGiEQWJOochZDex27BXpxG9HUv8 cVD2O7LaJBTM3/gZbVLulREdGUVTm8JYeQWakOhcwt1N38eQAhvLCSG9JuQ6 ePWZ/+g4yuDZ0LPtZRMq/R1NU2KYQqnCCws6zs1IP95l5kDRLPou5qZx/Fkz usRgIBVi8ANJS80EmjQ3I+GGEdPo4R8oSW6M56xyC6qwV85nF/uJnqr2yvn/ bkFxHqUv3XIX0APDGqviG22IyxaRfJZLqPXkwZTKnDZEPUyhzIssI6oZfbxu oA19ZHccfTK4jCKtijw6tL8ghar5G7pXV1GEY1bUPEs7+q6YNhrQwwBBwQ9r dkR2oGVvlonVs0xw0SPh2K+yDhTHJ9+v2coEpo7pzWUTHei7mc7jPO1NIG9Y 1qt/+CuKYs9l1tzGDE1bvi84rn5FeZe+q7ausYDoa5WtLy52oYNVIeemRzmA NVUr83JsF2KIJ9j9nDjhx6MjSqp1XehYUlP9gRlOqPaz1KqR6kZ9s7dEzv/l AqejwaZDXd1ItfRsbjgPBQoHWm+K6fWi9LPySZuMqJDU1ss54t6LXubWbR1+ QoWI9yPRr1J6ke14zQPrESpYZy3FazL0oQ2TUp3C/rzAfF2q4HRBHyo5nppW XkgD+dCinw3U/xCPNm9kuC4/eIixSbMGDCDIdDKJaxUGu+3Egue/A6hjtcjg /k4RMN0rWDuWNYBcHp5SFooQAZUTcg4NXQOIa2q/XoeuKMz56WXeVRlEl3Jn PTneicHFvtsqfKODKNGu+KO4kwTYPGXXkTzxDWXO5HuF5UnD0S2cdhoiI8jg lGD5i/HtoMsqcXi78hTKsH6+Y9pPFY4vjHFGufzA52t8lYyOFnBaf6y5EDyP FuKEPTV/HwQhAQJ9u/0bHXnjHLz/jC60NUjn2p7+iyTPrewXAD2Q8qx0K7+w giIr11oD+fTh3r2YzTySDKDr7f327XUDyA9baeUJ3QB2NkYPfPUNQYpRbt8N zo0wKdtAOUQaweivkthZdybY/3SfffFuY/htz5vStLYJrnUZTkpvOgmvGOLu BASwwEK6egJr8Uko2RxxRWWMFcocZyy+HjMBprGqP/ozrODQn2YqYWACBiV/ bpxfYAV6mVeFg6EJ/GdtHxGzgQ2m/Pf0z5mYAHP6weeLgmyw+UG8wbyVCRiq /2kvPcoGFUluEpnOJjBsbbdfJ5MNxEKMZ2ejTICaDhtMndmh+FiFR2ezCRgJ XrjHfI0dytx0xBNaTSDydpRIgRc7vL5ee/XsFxPgchzcJ3CTHSQUtSVHv5oA 6/Zgt644dtBib4ke6DeBlcz3Q2fq2YFo1hp5MGUCozkGtfYyHDA0po9WWUiQ lfAwEdjOAadXY1Mfs5FgF5UwWLeLAy5SRsqUOUgYcp1dldPggD+Sc8tnuUno U4reO2nMAWKFwhX5NBLa8r+kufhzQEt89lV+CRLohZbh17s5wML0ic2gGgnT +6Xbkgc4wL535xe3/SSIlk0IN45wwByH+7sNGiT4VXq9kpznAH3WZ1xbEAla 9Y+aGzg5gUVGzFJdh4Sy7jZ+US1OqFFdXFUyIqFkVT+l6hkn7B+Q01qzJ2Hc nzY1mcoJX1y9t1lfIEFoY88e/ixOWLa9EVnmSIIXi9N7pyJOkFHm67p2iYT9 lNvjtBZOkPfIMW1zI6FIomaX/UYuyHae49bzJaHgkGYZhx0XGEzOaFGjSLgZ HqIneJELoloKozSiSTBp+fRlqxsXeLp5Xjl/n4RZ6zPTB/y4QJZJ41veQxLk vW+IecZwARl12VcjloT43MqAb7VckHt7Iok9GecT1dUtk+UGHjkls/uvcb7z d1vqFbmhopTvzb18EqQy2898VeYG4t2blLA3JFTss/f4ibghs957n08BCX9N QtPkTnED9d5xdYMSEi6H17PHhHJDyUlqblYVCaaLBp8vj3HDiSGNEYsmPB+9 oWdpM9xQ+YGhcUszXr/Kqt9F89xw7uGaRzf2+XBV8U0MPOAmOsRn1krCVVFR 1yebeeDbl1wv1E7C/UNT1DptHhCNSvrZ1o3zy8m+uKTHA6y1UrTAHpyf+x91 3hM8IJmTsajYS0JSR9vZMxY8oHr4D1dgHwl5jqX58y488HrzoOOWARKaIsNN JeJ54GR972/qMAkPrtWM1ybzQPoJiTOZ2Kcs1vwupuP7rYnePjRCQr/UlRcF +TzgOeOm6DqK99Nbi8XjDfj5KuNzSsZJ4OqVi/Va5AHTofp0vhmcv/LsDvFV Hmh3dLV5gn201WBgcAMFEmxcesRmSeAuDL0WykKBVsk4aZkfJMQELD9tpVLA ljH1l/hPEp7Tvk1fkKOA+So1vfcXCQyRhjHXFShwT2NUx/w3CRYcZZq3d1Lg uLevays2D2NMRNoeCtj58lx7t0jC9ZnD8iMHKGAc0b8j+i8Jx+tfnj9nQQGJ AY1r4yskpOkIcF21okCD2DXGE6skMFYG5wfZUGCwdkU0D7ugwGpjsh0FZI+L M19dI0HiOU/igBsFVJOC7gwzmMLCjSs9Z8IpIGmmcOvmRlMwXOoPunyXAkpj k5xt2Bnu+tv9oigQdtRFUpzJFKwvyXg9/ZcC08sdy6+xP1h08Pck4+ulmpzr N5mCdLs2fSKVAt4bj1/lZDYFP6Mcu6V0CjzOKmY9jq185PYboRwK5Ej7DnzA frpH/aR5KQWO+MqdzGMxhcWcF38d6BToOV3YMYptrEBL8qyigNatM5MirKbA IjU1+28dBYQ/b6gNwraNN3/0ogHP11aW8HzsUsFaVNBIAVx5/hvCdqUk3G1v w+s1SlPXYjOFj+EcqsMdeL3efYYL2FtZPHsXuihw7G9FezR294qhAt8ABVwU /F8NYOtMMNafnKKAzPZy+cvsphC7x+HazlkKSAddSQ3Hnr3xSZzjJwXyvj0b eLE+TnvkUbVIAcVs+5ge7JkzK5LxSxTw4GKkLGAfSrdtvL5KARUuAT1ODlOY 1lSU2c1EwFhn+R9VbO3Q6CZOFgL+OWviehT7Uctv71E2AuarL6dZrscLW8lW cxKQd4+ScGk93r6qJYGHgKOKGqTvenyurJ83lYCB8p/14evxSxFyZnwETC6p MTxej9eda1MSIICR4FpIWY+PNPPn3kLAaz+X9Gzsqa7S7eMiBNgs2ooUYR+U keyoESeg4/mQYSX2v863AhOlCPh84qd2HfZk0aSi71YC6JlRvz5hH2Ay7jwl R4B3UZlDC3aMQUGwigIBj6U8Y7+sxz8S3kXZSYD1o8rwjvX4oYDuid34eV1i Nb6uxyuO3Hyvgu/HtjFrfXzSQ18peS8B2fS+7vXrD1Tl9vrtJ6DhuV3D//Nz 8t+20MT57P28GrEnTH1UVIEAPbOtY+vPB4kD/YQ2AZq61vxV2A8ndMOndAjo oclvKsYe35Op+uEIASdkb+XlYCN/YjDlGJ6fJHexVOwH9e53/A0IyHi1eCx2 PZ7Wo2ZpRIBRJZfanfV46wPf9poQYNn7dshvPT499R6vGQGezQsGzuvxPznU Z8wJuB378fqZ9fHQ9qhUawJM9+ly78Mea1HXDLQl4ID9uIc0tpZI4qjVeQJE muQSubFHc50QnxMBzPf8lfrx/tFcbhqfvURA2t+42BrsaF3VmI8uBPAZWVVl rI93M0wFuRPwq/Gzoev6uIzdI+vr+H3uBBcYY486N2ir+xAQJjDUq7Q+zhQT OxdAwNCxtAszeL+PGCzpNAYTgB7zfW7A1nhs8yP9FgGOBmrzqdjDituP/HOH gNAfz33NsdU9I39qRBIAE/MDu7AjqxbiBe7j/STIyMyyPm5WsfD5EQGsifZ3 svH/MdKfTNZKIcB22/DjH/j/raLoPcvxgoCsXbKrdOzOzmeanekETBwv2HEH W1J5suNKNr6/5sd5Kez874Gc6cUE5PJu4tPG58ep6DRz9zICXowvd7Ngr2g1 pmpXEMBQZOHcgM8j3UeCB/pq8Pxn2ywZYH89mnONtxnP5+Wj6Yfx+eXz+0vV f614v3hsaWPElkhZ4nnVTsAnE9+GUnz+Oa7oZhzpISAlnkFcEXs5u7fPd4QA uy5bm7UNpiDGx3FkdIWADcsM2o74fK2u3PXwDQMVuAVY9lGxHS6bDgZupIKo xvxSIT6Pc94n+oiwUeFoXswoI/ZBL7VcYxoVAgZ9rUKXcb/Uf16oTJ4KP/4R KDH/QwJ7RLh9mCIVZt9qB07jepCtlptvtosKwokVmwOxF6OWDeb2UEHjUd2L 57h+hB26HyR7gAoxnwod+xZIeJVeMRllRgXxHbu8Ns+RcKx/D3+cBRVA6Kzx HVyvRmkvD6RaUaGwVLmKEVvS/2FM8Vmcj9LtMIbrXYypIww5U2Gb693W51Mk 3NhIe6ASSgV3XTW5blw/hffdLtcKpwJLfJe/Onbx5dXRI3epMDz21SUW19v5 zlFNqwdU4BcRFjLB9dghp2wk5Bmej1M77r8dIsHQyl69o5AK9/v8t6vh+j4V 3XN+oIQKgcMKPIG4/ofVGUVOlFNhbyt3RD3uD6qVNb6vVVNh1+FXRma4f1Bj J+5ta6bC92u/uWy+4vpWUDx4fYwKiVbTZjtaSJijcIcJC/GCpVP7s/JqnI/P p3BOmBeYpAeWxt/h9xUaH64T4wU5FTXxzdhGUrXa12Tw+JVNNQ6VeL32+K18 2sULI10F/mtluD+ymHa5cZgXRMiET3Nvcb+Y3Gg2eJUXHDbmyf94QUJgmsbN Qg9eeHH018dfqbifycrIv+vFC7O8N/YvPSdB7+1NQh1/Z9U/SPJgSMH1u06r 4X44L0gn0nyWE/D6T73S0knihTTWDWXF/5IwoHpPJu0zL/Q8+/jU8CYJbtX6 u0taeOGinkIofwiu98bsmo1feOG2wkP23iD8PpdCTOa7eeGmynDH2QASziV7 B8EoL3xd0f7XxoeEYR6Hga8MNBBf3kffjPvViVF4yqZEA2G/r07uliQsxM7R nB7QgOLDr8+miPvxMJcq539pkJps4OC3nYR8r2nnq7E0+DFhtmtODvd3FuP1 vs9okGBqVv1lK55vwUH/yEwaFC0dW4sQJ2HmUfPkm2oaiFU4dZfwkjAWk1PN sECDnZPSTMJ/TKA3+vLVGJIPzJ9ZCE/RTcBZT7Slim0zbMzafM35sAnIauUE bf20GcK9//s1knMSwn5cUw4P4odSNq8GQ+pJqFAzOXlKVQDSOX9tu2FnDMLl tPeWiwLQ51QT4xprhL/X2PbZZgnCkz+8P/d+NIQTwf2r8a5C8FfhynWbwhOw tWasqmfbFnAp+Tvxqus4ND3m/B3YswV2tAu6K00eg2eZxA2bBGHQKyv8KFOo B1v8jm5CpAhUOt5X2xt1GErunO83ERKF0pJiBgkpHdi5+7Fca7coHDO63JeS dhAM7jO4GUeKAddHHfG/hwA+CMrcYpIXB7c+n36krA4HPpw1sQkRh1fZrV+F aaqQXPXKfLZPHByd+b4KzO4C/u5xVmGQAIvQq5b9nlthoAX21sVKwKF93ieK 9/ND2dgtHsqKBAjMk6cz37+ni0rt/rwFe5fVnZdK0nV0P8uuu7LYnofiFIr8 6+hanxW4ETYlXauydt8Henl+M+dlbLVvt1S+vayn029sYf+I/Wy19OC2yE/0 Sr5sptBVCVjWFPZ1zGymS544VX0fe/bgnrycrmZ6YOiG4ATs6s15a79YW+gH l05uLFiPV2sfCjrfQq/6b3HDMLane2VTvGgr/d3Lg2vaaxJAM57U6Ixso0t/ nyg/ga1fLb0oTm+jB4s+9DuNTeEua3CYaqMfihpZccPWUOUsXdT7Qq92j1hO xB4dFakU3NhOl87ZU5qFnXPQANnubqcHj/V5F2H7+PR8ybBupx+y3L3UhG0Y TehrlLbTUx52FfdgB88UbA8Zb6czfQ7yGsVm3Vki1SjQQT/Hqrh/HvsisUWF /3AHveZA+581bLXTHZY21zro/wMABX47 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{All, All}, PlotRangeClipping->True, PlotRangePadding->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.3985219774906607`*^9, 3.400868245854731*^9, 3.400868276409873*^9, 3.4008684749914913`*^9, 3.4008687140093*^9, {3.400943352218317*^9, 3.4009433597583113`*^9}, 3.406548329387746*^9, 3.406548814861947*^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, 3.400868299081283*^9, 3.4008687140931053`*^9, 3.400943371929737*^9, 3.406548329453086*^9, 3.406548814939528*^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, 3.4008683006811857`*^9, 3.4008685199079123`*^9, 3.400868714202777*^9, 3.400943376336988*^9, 3.406548329548114*^9, 3.406548815041975*^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:eJwV1nc8Vu8bB3A7MjIaeMiIzEQpRbpu4zkqUlaKyIqkFN8SUVQivtl8E0Ii CdnZnkcoe89S2eMZtsj8nd9f5/V+nT/OfV/X577PJWF3x/g6EwMDw15GBob/ P988tmNTcfA+PXS+ujiMqaiqtkvcwFz8Cji+SnTf+hZC2v5a9Uxc3Bmy3t0k BnxJIPFEfs7d2e8OVPNeQ2pLKukNOUSMVdwL6i1/pq0UfyQpzjqEbjv5QuR8 U1TBrlzST57ErY2+p1CVze4q8jSfJPWe4/ja+nOoeCare7ygkHRL8/7tFbEg CPDnq2N495lU0D2UuqTzEjYsI5y9jUpIay4Gg/NOYTB70epeWlUpKZlxMGiF GAHiRP6FR5Qykm5LhPSfvkj4sZ1ZztxTTpqK1ateco4GAaMXLMcfV5BeOmxe XVyPAS1ZC8bdExUkZeWC1fmQV9DFXJ6SwFVJ6lq/ET0n9hqU/w7Uts5XkDy+ 7VeezYuD7ELvwxkxFSThqO4muk4CvPZai5FfLSdVWQc70XregIok9spIqJxk J4+YqU5JQKZFFYj8LSUxrT9sW/JJBm8vr5PBr0pI3UNmokvEt/BnvDc7dukz 6f1XZZdFnhTI8jbxwniLSJ5ZnKULfSlQwHr2RwQln3QucoJtIfkdVLbXTHs+ yyWJeFabzjungtol1gOLRZmkGauElLkjaeDRQFc4MJJGIus8mJtdT4OXmSbC 63uTSJFyxqdna99DVY6R3oZ9BMlh16GXMyHpED52zJ7R4jppx48RGbpYBjT6 8hq96nsD/eTK+7SpDGhdrzcfbU+Hj+9ja6h5H+HJ/ZROj4RcMHQ3vEbRyYLU SHbOlfoyEL8slz3NlQ25Zzi/lIuTYUGTZX2qJxv21OcsV25+gf84yv6bdMoB tTjpBW7hBih8cM79H8FckHwtmG59pRkSKGpCiz65QFJ7LvegtA1c2/mdFoh5 IK1sPsTk2gX8CfVM8335EPXOftLO7Aes83zOuHuqANbS6UnI8yeMPXl3cS65 ACQ295W/yPwNn50eJ846F0JyRl5vtsQIWBxVVZ9ZL4LuyMBZfpFJ0HkvMXzb 5jOcpA9tq92ZAkWhXS/otZ/BVPryVEzjNGxtTffQQorB58T5A1uvafC2McmN KlYK/lpO3N/Oz8NSbJH875elkH/phKCP3AJgTk2jnX9L4UxMojP7zkWgMa+Y lXWVgSrnqMqHgSU4oWmoHhRYAYNrZ6q4C1bhX06HRZ+lCjh0565NQNFf+DXg lXXXthLcV6O3+yvWwN8jbf9ljSrYIUOJ4f6+Ae05G0wysyQoqrXYtE5nQPzA Yc2tRIZMVTMF9lOMSONgtHqgAxliw0VrxboYUehSxuLDDjLYhJXMx7EzI9WI nut2mdUgXG1u9DWcFfk2Kp5TuVYDF572PRXey4k+5BUfzIypAeoJjlvkDk7U GavNLN1cAx73jIr6wriQlNPlCsGTteBY90DGUoAHNTL7KzEI1IF43bTNz3he tFfzB3/b169gtiQgx7wugD7lBP24pdQIYj7UUN9kAqLwU16es20E8R1bhfuE RJCMx7nTstGNoKT0bjs/QgQln+J8O/q3EaSDDnQvPBVFkQ0vHS3qmoC9aSQu 5roY8hgNm9e72gLtCSbymTESKImz6RkfsR0i+oItJa5KIyfoeE1z74K4mgM1 3dOKyHVcbrTw0wAcPzAhoN57DO2U8Jf5fWII3ouoS3hWaKL6UxGHHxOH4JzS uFDqgCYKuJyoJmo8BM1pr0xa/mgipvASPUuXIYiPl/Dcp3IarW3RnPreDIFy ocHO4LTTiDpo9qGNaRiecNa9GAsB1BwrI0duHoZoNo6Lsp8QCi5UVbk2MAyp Pt+kQysQOtOudXJrfBhOGv66tNCIUO2Oq2dPbQ/DMb23X4omEarwCHcuURmB vFzv57ISWijb9G9G7n8joPxpYqQ8SguF8jbJv7UZhXtz8/OMD7RRqZpokaHr KEz6Mnzcfq6NxqzvwIb3KCRRTDRGorWRRraAqfmrUajWFBgzy9dGU2evPuJu HYX+KwIqK1RtpPOM3ualMQa861Zt4hY6yPUjWMicHQMVw954FycdFNcRMdZ9 aQw2JOtU4+/poDmx438Pu4/BiN6j1g+hOiix4rHkxIcxoCvyhjyq1kGry7vu G+8dh18Tp0q4JXXRAVG77e0D4/Dtc5FT2iFdZKhbGJStMg56YmxTEid1UVrk 5UT28+Nwf+3KtYYLusj48NtvVc/GYZrKcbXTWxdl3zgirDA/DscmfeZbWnVR f5h/av/WOHC9znEs6NdFLMW9SgFcE1AYkVj3aEQXWbB66wzLTMBK8OC56mVd xJ5Sc+uV9QToX31UwkwgIrsfpiTm5gmIZzNR97Qhop3xw7fdBibA4j+CVeAN Isq3cBX5PTEBTVzu//rcJSLm74FeZYyTsKhos0/Ij4hS+8uOuqlNwoXqHG1C IhEZxOqN/NKdhB3NLwUt04hoybw73MAYf+9oyf8ki4iIfXS6zO1JGAm4+ci3 jIgmesQ//EqZhO1KsQCsh4hCY7IvGeROwm2rB53FP4jouJk6a1nlJJD7vlnt GiGiwG4Tu5j+SXio5IXcZohItitAxIBnCvarsicysGHoZjstvNRrCja2qycv KmOIP9wLZAKn4JeT0KjMMQyVXWCbiY6eAq7VTsvxkxjibBPTv5szBW+OS/YJ 6GAoq8WYVWZ8CqLCme6CKYZMQ34XRC9MwZadbce5yxjaMLhlx8QwDRRB1q5T VzF0vvk56afwNKRXy9Z322NoprHEK/riNChIbw11u2Hov2CiLJP1NNyk9FTt uY+h0+c6e++4TMOCccQ1TU8MhTVQj+oHTIMDy40dWo8xpFy/f4axYhpK+jM0 jwVhqD8wM+FOwzS4ts621v2LIT+9E/o/e6ehSY54jxiKofavRh9K5qfBZSyY nT8KQ251/nZ3ZCggyr1dOBSPof1jGNufo7h5dld9e4OhJiaOjz6IAq5TIJ2c hCFpFDIfdIUCTNRdQtLvMNRpfSGG15ECV1puZHakYsj3Ed/JV+4UMGeQS7/z HkMDZTF+qf9SYIlJeMI3A0MBA+ZSCrEUoFb9VFr4iKGjq0L1eakU4PbWopll YSjkWOIuUiUFLNyj2uc/YUjd1KaA2EiBBAOjTblcDE26S5o391IgVNzwo0ke hrRy3ycOzFIg63ZQuHcBXs/WG9o2GxTwfe7f5lWIoXi6/MQEOxVWHhPjnIsw dIaLHnR7DxU842sWz33G0LJ8zqElCSq0iyz/Ei3GUMpZt46HSlRoi221HsF9 4cbR+4waVDj/V9sjtgTvZ8Cy4As9Ksj66MiiUgxlpBVX8JhSQaeA9GAA96Va L5sYGypIVqY5OZRhiHlUg0XkNhUuJdPWhnDnMm6lp3hRQSE1VvVCOYasxMn6 cgFUMLfM3peDeyc8nc2JpILBY8V0hgoMFVvpRh1PosIR6p4JHdwOPmxqlZlU oKc59Xni5ouv/65TQgXBftHHSbirSoMfN9ZSoUPz6M9i3C79BpJGHVT4kZ21 Uo1bcIXna99PKrRaxbVX4q7b0+FsTaHCugqnSyZud9Uo7vE/VDDeydUYjFvM xCzPhZkGFl/S5yxxN7vtM1vYRQNQmRzej9srfGDVU4QGX+U6krvw9R/MiU/Y lqXBoXxj5Ye4u1qsUMAxGtAMd0bx4/ajiY1xaeNzQLhIcwJej0OcI4FRhjRg FCX9EsT9XS5VQdiSBnx+0q0BeD0Dzzi2JTvRQFrxyZsJvP7Dzyl7P/nRQOxD 15Q33p/Q1Kwy1RAaqAxKuuTh/dSocbUux+eMaAnB7/14v2MYFtPq82mwHhIa vInnQ1us6OwFEg2i9M071/IxNKv5gN7TRIN0PTMBCp6ns97rqqNjNKjjdg5J zMHQn9eV/c7zNGhLLmq2x/P4rsTXZ26TBpdZ0vgI2RjaXGau3dxLB83CLyXX 8Dzn3eUyETxLh0+Wwx1a+HlojhPwyr5EB9p2zIZ7CoYmaoWTtB3o4BXX2B2V jCFhITnqLV86ML3c9yY1AUP+1cRn1UV0CGtSZGaOxlAi1SDjUg0dnJO6OfMj MFSyx7SN2k6H3pq7IxfDMER3tiPspdGB+5Edh3Uwnj9+34KbkjMQb5Kc/dkX Q3dPBQxsH56BgxlGMWM+GAp2DNmO1pyBfzZGbjI9xBCpLF6fdHkGtB+RZ7nv YUjWvmRUIGwGnNXDOxycMLRWMC9QuT4D7Pyd/nv0MbT71+pJY45ZuNz2S1lX D0NK7Aw2k3tn4XaxJac9fh/aX+XJ4jsyCxwXjSzdNPD9syjoOt6YhZXCf3ra 5fH9mDnc29UzCywmrdmJ+P371tuFomw+Bw3JexRWiolImcyxGmg1B/N7HgZe LyAiMssH1t/2cyBtkLXV/YmIhkLGxEPuzsESX69GMf6/2J9sZT4dNAfXk3LG XkQRUVzthdq3FXNA/NDlbXOHiCK5VRP5JefhXL/PkZ8yRPQ0acNoiTYPK19P OSzE6yKGriFU8XARrpIzXSnROujgPUdPU/llGFZp/rIWgM8Dy68ucVb+gcyb u/9Ix2qhc+M3H0W6rUL1dF/5zhSEDMfCFfbvX4Mg20DyIU9AlBo7v/rsdfAQ N+rn/aWJlPh6RXWubYKGW9JQ19FT+Pleth1c3ILJdVHoKVJHenSLFUkzBrSV EHMtRuYk6v/iwGihyIj4aba9m5/UUNGLWmvxZUbEkTB85JrlceTIen+otZUJ ecg/m6n7o4rs3b2LuOKYUQWLuXl9wVF02Emh1cCWBd18MjuZ6nsEtfErct4/ yYqktopludRVUPmnp/GKzGzIdjZkTwqfMvJmlL/Y/JMNvf18/rt7ziG0c/Dh GdfCHUix/K1FmKkCGn8vEZ3kw45ivwtM7jskh6JlhVhKzTjQmdfqScXDB1F4 nOM3W/GdiOXLUOX1r1LIItqqlWtyJzJ2r8hRq5REq7ppf5OqONGcMwxKh4mj 0XFtzy+BXOjBhwyXE0KiKEVThdBiy42sb5lWqTUIouzn9/mcDvGgeNZxvcim 3SjQzF6feZkHcZ6+SJGa5kXHBt9mBLbsQsa6h3ePunGgWLn47BZ9XsSx2euS n8GIfMkhsfqlvOjl570H0bMFOE8wS2uU4kNHFhqvMuqRQcv1myVfEB/Kykr3 t/9AISWJ2Ek1L/OhrxSDyfCVTZJUTfp/hpb8SC7cz6+6jI0cfuiLfGcVP/Jj NV+V0uchOy6ydDTIC6CIwX8umKgLkO3yFsSDwgRQ2LFF7lCmfeT6RvZnFRsC aNA2VMFYgEC+pTMc3oA7wDRsowU3b0VpYu//3evccnY3gXw5+2bZHO6/zzNd tfYQyJNhzfNSmwLI3882R3kfgcxmFm4TgrvM5JXcLgKBrPN732nrLQEkRJdm bJYkkCfM5/RdcBsHm7foHSCQg9vrr3jiRil2r2twd1Z73Y/EHQKsKuVSBLJd 6o+sr7gbRH2sPx4kkP2ckwiHtwXQWt/h/BfyBLLUyAO5U7j/6Vz1ZlEgkOst Lqqdxa2lGU/0w81rwGhij1vP9lb/A0UCOUnJPvgV7s522HBUIpC10zViU3G3 aXTXjuCeENv9Pg/3Np92iPVhAlmJr666CTdxM0P0kjK+vqA3bf24efhSxztw ezB5/BzH7RLyIPu8CoEs7G1IXcBd5CZ1vwF31eLBv9v//37lx1PEIwTy/wAz 5HRq "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 5}, {-6.799092243119339, 45.47466941768263}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.398521977634943*^9, 3.400868303581161*^9, 3.4008685229239273`*^9, 3.400868714361889*^9, 3.400943379384162*^9, 3.4009435728934937`*^9, 3.4065483296731167`*^9, 3.4065488151889277`*^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[{"\[IndentingNewLine]", RowBox[{ RowBox[{"a", "[", "t_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"T", "[", "t", "]"}], RowBox[{"m", "[", "t", "]"}]], "-", FractionBox[ RowBox[{ SubscriptBox["C", "d"], "*", "\[Rho]", "*", "s", "*", RowBox[{"v", "[", "t", "]"}], "*", RowBox[{"Abs", "[", RowBox[{"v", "[", "t", "]"}], "]"}]}], RowBox[{"2", "*", RowBox[{"m", "[", "t", "]"}]}]], "-", "g"}]}]}]], "Input", CellChangeTimes->{{3.400868334392198*^9, 3.4008684421214523`*^9}, 3.400868569027245*^9, {3.400868632427397*^9, 3.400868638379245*^9}, { 3.400868794213421*^9, 3.400868800785817*^9}, {3.400943639505828*^9, 3.400943681265258*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"a", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.4009437614784117`*^9, {3.400944153349004*^9, 3.400944174847989*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[{{2.0408163265306121`*^-7, -9.806913524731883}, { 0.003067179205596267, -8.507338575111076}, { 0.006134154329559881, -7.207731183366484}, { 0.01226810457748711, -4.60833260187191}, {0.02453600507334157, 0.591839340103963}, {0.04907180606505048, 11.003307258518202`}, { 0.04939602835650282, 11.141436763688311`}}], LineBox[CompressedData[" 1:eJwV13k8FusXAHBLZPfOSygS77z2NVlTzaES15JCi6SIkC1pI9tVIdkTsmTJ Gm6EosJD1shSErL0c6WybyG9+M39az7fz8wzn3POc+Y5n5G09zzuyMLExGTC zMT039XO6su98bmfRCrj0MVLhtKg3fbd59uOCUJxzLIx+hgdWEtzKEKhEwTP W6GsJzHikOQneeDGuUmi8mraj6H9bMC13HXhtu8kgU7JihobM4G/Z9C96IeT RMZx4z1jFcuEvf1IT17bJMF0xXX+Kn8LoWiY5tqnNUVkXLzvMyrMguoEtj/S oUwTV5NeNr91F0PqkS01hxWmCZNMunZzjzjKZb85dsxgmmgPc8bM0yRQxO9e lUt+08T9/wWecGbG0YmR+KbkH9OE6vr8bGy9DGo5dWgql3WG+PJ9etJhXhbp fljEysRniIGOpuTMXfJIovH42TbLGULntNr6SV9FNPGUsvQHzRCSj807beJV kQ0dbecYnCEC3805ucvtRp1pnoTgygzRo+MuuKdmNyqP6QhXVJolbmD8K0Pj akiGK6BE23CW2J8zbP3Wdw9Kvq3Ue+jCLDFca69sy6eOAq9HSJ59NEtoWutn lKtroIVZ3SMu5bPE/c2a25ebNZCDy6Tbtc5Zwjdc1m70tCb6PJoc9/fELLHt zH57rilNJKUsNdjEMkc01Nhx+57VQsMTjBkTyhzx7o+zptkxLZSU18P8cecc MWflqKF8WAtxSd6RGdGeI6wVY80wJS3Usi9WJeDwHMHR6Vv/VVILhZx6rLXz +BxBG/E58kpIC7HEVB454zpHvAlytLnPpIXWNqacPqfNERNMwbezezTR5KBV fifLPDF1S+VjfoAmak+SkUPt88T4vL9Mcb8GiqK0yWeeXyTYN97P3CpQR1Va OyvMPBaJl2Ks0jXp6mjM1pNg3Fok7L9cMOdMUEe6xQKWJxMXiVXxphOvgtXR DyMbf96ORYJ+PVssxEYdHbw93emju0SYS2bHv8bU0eov/mvHhX4RIT/Gvp4J 3oPsv1jWsrYvE/oLjiFBvmqIK+V/7l79y4RHouSRL1fU0HNrD7GR8WXiR+7h 6H2uaoh1INTnFfMKced4XDLVRg1l973a46W1Qkw8Gx/hPqCGxj9J5A9nrRA/ ZoONlVjV0KWuqZgqn1UixnOkayN2N/JqvGPvKbNGvGNSm4lBqkh8zIB9ec8a cfl5i0vzK1XUxsL51A/WiP/pJpiyVKgiKYicv3d6jZjWfLr/boEq6n/1MCj7 /hpBI4TMa+NUkV5J7uP+2TVC35Tex3RRFWEpLQMHK/8QgtbPjqTzq6LSyzwW IkbrxK0Ny/mtQ8qoPVnAp/jEOnHxzXxixgdlNN6wI13fYZ2oPDUSpdeijHZs l5t0C1wnCjqVj6aWKaM7dYdv11WsE7IFlgbl4croBDWw7BJtg0hsEY502quM 1srmBar/bBDU1W6NgnQllHnLdUL1JBMcDb1ylhakSGbIuRp6lgkU/phdkLup iNCWfLaRC0wwc1xbS/OyIvoaOSYReZkJAqOqNe3OKyLxjLMnf95jAsvscEEG KKLkhqMNmW+YwKfi5xk9VkUUx6v+mEpjhoRrYemT9xVQcDrj2NIUMzxH2V79 RfLIXLXSS2GRGfq1e/ktc+WReJ13rP1vZrA6P2D4MV0evRqd6OpiYwGDRc6A kTh5tCDVf7RYnAXUz6YmKfvII/uiCtOL5iwwW8L5MttAHulVeRj1lbEALdou bmBMDjF9/ApvfFmherLAuElJDt35WZPp+zcroH+rq/rIVuZkSmPRCWOFpf05 FbOScoiqdLqh4iErPOSvMlIQkkNSod1HnpWwwjKfZWjfhiz6S7feLGucFYqq r4dydMuiB0+e2IQd3wJyjVwf8m/KIumrF29ayrPBqaSZAYMeGaS0d8QiXZUN Zl+quVV2yiB1plMqE5pskFlwwkKpTQbpRxiNBx5kA21nLlFJ8vyyzVa0LLRh gzov5ZOqJTIooWdBhSWaDVxkiusmI2QQm0bg92eLbMCS8KehxVAGjf1KPMFd zQ7Hcb5v5a3SKEtvj/fQW3Ywrdv7b0qjNDoX2RH97B07uKktHwypk0YDdLZW iz52UK/dpDtWSaNuiyu6qYvsIOMqqWRcII1qSk0klOS3AnuhxaMX96RRojvz hFniVliiEO7rJtLor2+X/OO8OGDO/gw2PiiFDPzxokM3OWDzzfmbuf1SSH/b 4MByAAccz39Y7tIrhfYeNtU+E8EBfB5luaudUkg+R2URz+OAw9wiRtpvpRC3 45JzxSAH/GzeZ7D/qRRqH/O37DvCCduSZbwsfaWQ2ViMgrg4F9A3/172oJH3 FcZ6bOhcEGkeG84uIYWMvbUCUuS5wPc8u1nGTilkyDLcJaLFBQ3x4ecGRMh4 JBSuC5hzQd46b7wzvxTSsGlEHMFcEIbyAqYYdCTW89tq8RsXyHQ0OEX001Gy qOnm7iku2Lc4tM/5MzkMLmTkX17ggq2tjtIGn+hIaMHgz/QGF7AIp+/h6KYj CiU+44cwN/T2sErmtNARq4ny5JARN2ReyE/Vq6Sjibf2QS3F3LAaoTO1mURH u2L7LkWVc4P5gQGBpQQ6srQ1s7J8zQ1cV3fHTcTTUc2qjvzXFm6YvBgVPRxD R3FKWM/Kv9zwvID32mgYHekm1srI7OCBvABRldM+dBRxSazzbggPnMtLqmSc oaM6rbgq40geKH0ttGuvNR0tb+HIxuJ5wCH0Rb3PKTo6n754My2TBzTNPWs2 LelIvecdreINDxQq3/eWNqOjof0+18cWeGChY0pjGOhIGevdefAcL/zv6uKZ BRk6Go8cD37oyAuCZnGW0dJ0lMa18v27Ky8wj39SUpaiI54tIs8jbvKCYfax IC8amf/yaYPeWF541+GZyLeTjnIGhzxcGsj1x/TxLCpZ//xvtdFyfLDnhXqA wiaOeujL9FEVPgib/faEdQNH9zPZw9U1+SD4cXPKEANHa8kylv36fHDb1Y8p cQ1HfZEuP2g2fNDxr1fcrmUcPfCepryI4gNd7vmg0GkccRG/7AYX+YBosZh5 NoSjm3qyHC/W+MDzomBz8SCOxg+e+SeamR/O6jpWFH/BUb1h3Zo+Pz+5f9Tu sn4c+R6PfFAgzw9Xfh783fcJR5OOUo3X7fih9Kh9RUgHjqydT7maO/NDZVz6 y5z3OGq5dB+T9+SHMWWitakdR9me82eH/Phh5Yn2dv42HNn4VC8fTOKHRYqx fWUzjtojrGSxTn4oc/A2da/D0d7osI6JT/zQrTMkVoxwlB/7+mrDIOmi08sz tTi6kyBZd2OCH0zPWDbdrMGReNey4iwLBYK+sH3Ifo2j3v76RitxCvR7NZ+y fYEj3jODSfWSFGh3b8ytqcDRocFfripSFHiLzq1JkH4+LEvlVKTA6mGX0sky HEX9G2X7RocCzOHrJx+V4ujItPUKzYoCHTM2FlbFOHosePtj4CkKGPJbKvYV 4WhJt/DZ4BkK7GOtXrIhnRH+xynBngL+GnQLt0Jyv2RS+zgvU2Ccb7deVgGO zI82lF/0poBiXXKMOunc61Mxb69T4GwRZ0dLPo4sGvcZ+ftT4KTZUepKHo6K 7Ieq5sIpoLCd982lXByxhLMlmEZRgJaifIOH9KlSpStPYylg9tf2XSU5OGJj CpB3SKLASvgr9fVsHNmmiad8zqFAsY2L9z9PcFTeYHBDvYAC0g3csedIc015 WMQWUUDqmWsylfTLvbXcxmUUaIua8gzIwhGl75xfDaJAgFAfzT0TRxc3Q0+J NlDA4pdBihLpN9Il6jebKbB/PHFjNgNHLteYpnd3UABFBt31JY1SZVujuing 6zaRr09aqME8Z7KHAi7FAy94SNdTM8/mfKHAlfG12Nx0HInsbdVhGaEAl93j 6WukPezmt50bpcBRaT0hQ9KiJXodIj8pcCJk58H5xzi68tnl6bUp8v0fEypb SLdsxIZ8mKVAoB+rSBbpq6ajByKWKeD081C8Nel3V7lEf/4m6yf8tUSHtESq 2srhdQpkNWm83EH6+lvrj1lMGOzEzfLW03D0fiL42SYrBl3Vsn+PkqZTC+/b bMUgXL7mUCtpX52PTlVcGOikMi+Uku46/+egEB8Gtn+PhqWSlg7DJbwxDO5I mHHeI+33zJjRKYhBtvpu7xukP/R69ymKYBB0z6fJibTsRkr5PVEMuJKEWa1J B0o1xIyLYxBiwSRnRrrXZMrtIA2DODisfYi04lVBowwpDFLSBlX3kQ5O2Se1 LouB6pdGqibpvnoHZmtFDObduId3k57TG9jhr4LBsEXtUxXSW+uOqmeoYUB1 nxH4z+LQaPpWA4NZnqBFJdKatXudxrUxeNGpLqdA2uxASRDnPgx0y3krpEk7 VkslKxIYrOjzJEr8l9++lLKj+hhc99XsFCEd/5ry/sphDL6PRZ3lJ120N2T8 oSEG7dUC+ltIv636s1lpjEG5cYPfSiqOBrS9tg+aYdBz4AnvT9ILL8fVNo9h kMpftdRHmlPLxoRmhYHzDSG1ZtISL7odD5/CoPVCW2MZ6aPlb5Lu22LgYk2f CyV9cY/a83/sMPghXB/iSTrgeV5btwMGxk7l3laki0riNoRdMbi7+ttcjHSD CoeIrgcGX3n89dZTcPTlH//dtl4YPIKIsEHSXMXODtk3MFBK2L8jgTRNcdi/ 2RcDzahfDpdJ6xRaJE74Y3A/wpXdiLRzwYF3qncwoJRJmf1KxlFTjqBqdQwG 61ZGczqkh+nhRl8fYHBy2HWBnfSvJ5v2rIkYFEdLmnx4RPZb1sRDozQMGMOp 7A6kgx+jP58KyPyETB96J+Eoeafmtt9FGMAxV4s9pEtTC5XFSsj9MFlxnk/E 0dfkBDv7FxiYRL5PdiZ9INGteaYegxbfkV0HE8j/R6HRr1gTBvIPPdJ/PcSR +8OTa+qtGNSlad7MJZ36QF/pVifZj/l16qyk16JFHmwdxEBEgvlz/gMcVYQ1 2Er8woD5ltXn7BjyvP6rTSR0FYOXQp9E1Ukn83z4MP2H7LcrNl510TgKihkx eM1CBX0i06w3CkcmSWvKJyhUEE316/oRgaPRPNXN+wpUkHTq1CoNw9EnF62q BWUqxFI00yRJtygc8D6tRoUI0ZltMaE4Kn5m/F1ahwrWiTJ6TiHkfHt5sbPO gAoSNVfubNzGEV9zavqKHRV++JrSugNwxHzvyWlbRyqEyR4aopFe+uupQKMz Ffaknyu54o+j/o6XoXGeVFCyPZTB40fOr94Pnkr+VBCxrC6S8yHn0zgHXEii Ap/K1jQOb7K/2K597eigQivlHz0bRxzt2NX6+U83FXaumsv/7YCjDu2dnbKf qNB+VvRK9gXye3JrrA7+QoUNPUuJcTscsX/clqL5gwo2l3I3rWxxlJPxwuox swAEmHLz/TiBozHd1Xfu6gIg8PlT8WcDHCVZmdQnawnA7ud+wq2Hyfp5ZlQ1 7xUALe/aicpD5PmeZZgvqScAWcn3Oh/ok/OS89HdT6YCsDRnlqp5gOynzzqw 30kAxMod4lU1cHThyq0KnmQBGEureLkqScanNlwhlyYA/gOB52skyH5fgBcG GQLQKVAaFbwLRyVe7C+DcgVA9cmAH/tOHDEux1YuPReAol8nChnCOErwzHs9 2CYAjMl9hVm8OGp1+1hXtC4A+X6rcn0rNKTipNBhYicIROuBZeYWGhp22eVZ 7CAITJTVr0ZNNBThJkDhcxaE0wvDKjENNPTT68+xTg9BWAutZQjX0dATv7ZP x/wEQcal0EHwFQ0Jx7kOnUgUBEePx+uokIY23xROnX8vCGzbJxamI2mok6rI fU1nG1ReWnKrNqWh1/8EpyiyCoHq0kzZ5yZJdItZ3rx9SAi+qu6rW5WQRFyD voYe5cIQbDjuHugugb7lSsan+4lAHE0o5PbVXShedvuWKqvtwKHwouza4E4U k3yx2U5iB4TxN6XpWYgh6/izHTzfd0CvG73RpW0HWj2U8zu9RhRqm9pzrCS2 o3+/6d+sDxUDN/vD8YHxwihr/27R93Y74bjkbvkHM9tQ8d1rmJOSODDwY6PP PQRRqNUFY9Zf4hCoYdLlyCKANAYzC0Lf74JL/Yy4jRAMJcmlFL83loC7RiN6 hhoUFIgik4yrJIDHv4kxWM6LTEWtct7RJWHHs3ZrTnVupOfRfAa7JwmUpYWp bhZOlC5mT2//JQnUwoENxXfsiP42L8HsDA0E8wLG9g5uQTFK9fIfamgQ8Dng av12VnRxcUt3qzwO9VqIOdyKGdmXLkjci8ahElT+asvYrG15x3H7DQOH82WJ ihqPGLVuB/8X00qaids5bDCJUUt5U/W4lzTljuK326RPFV96NUda5GNs5odE Ru336PZ5+joOzqXvpS4nMGrZrWLOR5Iu6eawKXzAqD04InzAdgOHrpeBgbQo Ru34yTljV9Jfn3b9bo1k1IZ3tZy+Sfr8nW3XvEh/qPO5Fkda+19fDxTBqLXP /lLU9N96sXI32/uM2iCXdFGVTRwujw4nJIcxaumjN+T2kf5h6y6hT7rF2lzL iLRq9uzTn6Fk/CbMFhdIywZ31muTTle+EJ743/MnGeu9dxm1+nm6Sdmk577L RgeQHt8lmFtKmqJmJClNWhlrrGsjbT7tYHjtDhnfvbTOPtJd1ueHxEhfZ7k+ 9I00x62j3g23GbU7bplNLpDWNlHjciNdsyj9e/O/eNs5sgRI/x8JV8QR "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {-23.36514350067479, 11.141436763688311`}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{{3.400944170016816*^9, 3.400944175492828*^9}, 3.406548329770331*^9, 3.406548815295102*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "A", " ", "plot", " ", "of", " ", "the", " ", "rockets", " ", "acceleration", " ", "as", " ", "a", " ", "function", " ", "of", " ", "time"}], "*)"}]], "Input"] }, WindowSize->{919, 969}, WindowMargins->{{0, 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[568, 21, 1391, 38, 82, "Input"], Cell[CellGroupData[{ Cell[1984, 63, 573, 13, 187, "Input"], Cell[2560, 78, 5200, 136, 352, "Output"] }, Open ]], Cell[7775, 217, 87, 1, 55, "Input"], Cell[7865, 220, 495, 14, 55, "Input"], Cell[CellGroupData[{ Cell[8385, 238, 1521, 41, 187, "Input"], Cell[9909, 281, 617, 18, 31, "Output"], Cell[10529, 301, 407, 12, 31, "Output"] }, Open ]], Cell[10951, 316, 250, 5, 32, "Input"], Cell[CellGroupData[{ Cell[11226, 325, 237, 6, 32, "Input"], Cell[11466, 333, 3120, 58, 250, "Output"] }, Open ]], Cell[14601, 394, 45, 0, 55, "Input"], Cell[CellGroupData[{ Cell[14671, 398, 237, 6, 32, "Input"], Cell[14911, 406, 382, 12, 31, "Output"] }, Open ]], Cell[15308, 421, 518, 12, 77, "Input"], Cell[CellGroupData[{ Cell[15851, 437, 295, 7, 32, "Input"], Cell[16149, 446, 4449, 78, 247, "Output"] }, Open ]], Cell[20613, 527, 190, 4, 32, "Input"], Cell[CellGroupData[{ Cell[20828, 535, 186, 6, 32, "Input"], Cell[21017, 543, 470, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21524, 562, 74, 2, 32, "Input"], Cell[21601, 566, 168, 2, 31, "Output"] }, Open ]], Cell[21784, 571, 909, 24, 87, "Input"], Cell[CellGroupData[{ Cell[22718, 599, 2780, 75, 420, "Input"], Cell[25501, 676, 298, 5, 31, "Output"], Cell[25802, 683, 308, 5, 31, "Output"], Cell[26113, 690, 293, 5, 31, "Output"], Cell[26409, 697, 292, 5, 31, "Output"], Cell[26704, 704, 294, 5, 31, "Output"], Cell[27001, 711, 597, 17, 31, "Output"] }, Open ]], Cell[27613, 731, 128, 3, 32, "Input"], Cell[27744, 736, 89, 1, 55, "Input"], Cell[CellGroupData[{ Cell[27858, 741, 392, 10, 32, "Input"], Cell[28253, 753, 8137, 138, 241, "Output"] }, Open ]], Cell[36405, 894, 231, 5, 32, "Input"], Cell[CellGroupData[{ Cell[36661, 903, 254, 8, 55, "Input"], Cell[36918, 913, 429, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37384, 931, 159, 5, 32, "Input"], Cell[37546, 938, 455, 13, 31, "Output"] }, Open ]], Cell[38016, 954, 259, 5, 55, "Input"], Cell[CellGroupData[{ Cell[38300, 963, 168, 5, 32, "Input"], Cell[38471, 970, 6370, 110, 232, "Output"] }, Open ]], Cell[44856, 1083, 210, 5, 32, "Input"], Cell[45069, 1090, 739, 15, 99, "Input"], Cell[45811, 1107, 742, 19, 69, "Input"], Cell[CellGroupData[{ Cell[46578, 1130, 302, 8, 55, "Input"], Cell[46883, 1140, 7658, 131, 227, "Output"] }, Open ]], Cell[54556, 1274, 215, 5, 32, "Input"] } ] *) (* End of internal cache information *)