(* 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[ 243963, 4973] NotebookOptionsPosition[ 240863, 4881] NotebookOutlinePosition[ 241718, 4909] CellTagsIndexPosition[ 241675, 4906] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Earth's Gravitational Binding Energy\n", FontFamily->"Arial", FontColor->RGBColor[0., 0., 0.5019607843137255]], StyleBox["Dave Typinski, January 2009", FontFamily->"Arial", FontSize->12, FontColor->RGBColor[0., 0., 0.]] }], "Section", CellChangeTimes->{{3.415142998108*^9, 3.415143001967375*^9}, 3.4351591269907503`*^9, {3.4351592552720003`*^9, 3.4351592598032503`*^9}, { 3.4351660305688753`*^9, 3.4351660359907503`*^9}, {3.4359454863005*^9, 3.43594549508175*^9}, {3.43596343808175*^9, 3.435963442972375*^9}}, FontSize->24, Magnification->1.25], Cell[CellGroupData[{ Cell["Earth's Gravitational Binding Energy", "Subsubsection", CellChangeTimes->{{3.43293983376475*^9, 3.43293983820225*^9}, { 3.432939966374125*^9, 3.432939971217875*^9}, {3.43294088670225*^9, 3.4329408904835*^9}, {3.433072854280375*^9, 3.433072858749125*^9}, { 3.43309238188975*^9, 3.433092382624125*^9}, {3.433213590374125*^9, 3.4332135934835*^9}, {3.433257217467875*^9, 3.433257223296*^9}, { 3.43325739720225*^9, 3.43325739913975*^9}, {3.43340195649975*^9, 3.4334019623435*^9}, {3.4351618452876253`*^9, 3.4351618875220003`*^9}, { 3.4351631608970003`*^9, 3.4351631934907503`*^9}, {3.4351632365376253`*^9, 3.4351632632876253`*^9}, {3.4351635064751253`*^9, 3.4351635095220003`*^9}, 3.435194313453125*^9, {3.43596375158175*^9, 3.435963761972375*^9}}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Universal", " ", "gravitational", " ", "constant"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{ SuperscriptBox["m", "3"], "\[CenterDot]", SuperscriptBox["kg", RowBox[{"-", "1"}]], "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "2"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"G", "=", RowBox[{"6.67428", "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Speed", " ", "of", " ", "light"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{"m", "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "1"}]]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"clight", "=", "299792458"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Earth", " ", "mass"}], ",", " ", "NASA", ",", " ", "kg"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "accepted"], "=", RowBox[{"5.9736", "\[Times]", SuperscriptBox["10", "24"]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Average", " ", "Earth", " ", "density"}], ",", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", "avg"], "=", "5513.94"}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Earth", "'"}], "s", " ", "equatorial", " ", "radius", " ", "in", " ", "meters"}], "-", " ", RowBox[{ "WGS", " ", "84", " ", "reference", " ", "ellipsoid", " ", "via", " ", "Wikipedia"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "equatorial"], "=", RowBox[{"6.378137", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"inverse", " ", "flattening", " ", RowBox[{"(", RowBox[{"1", "/", "f"}], ")"}]}], " ", "-", " ", RowBox[{ "WGS", " ", "84", " ", "reference", " ", "ellipsoid", " ", "via", " ", "Wikipedia"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", FractionBox["1", "298.257223563"]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "polar"], "=", RowBox[{ SubscriptBox["r", "equatorial"], " ", RowBox[{"(", RowBox[{"1", "-", "f"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "volumetric"], "=", RadicalBox[ RowBox[{ SuperscriptBox[ SubscriptBox["r", "equatorial"], "2"], " ", SubscriptBox["r", "polar"]}], "3"]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Quadratic", " ", "fit", " ", "to", " ", "Preliminary", " ", "Reference", " ", "Earth", " ", "Model", " ", RowBox[{"(", "PREM", ")"}]}], ",", " ", RowBox[{ RowBox[{"Dziewonski", " ", "&"}], " ", "Anderson"}], ",", " ", "1981"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Note", " ", "that", " ", "the", " ", "PREM", " ", "uses", " ", SubscriptBox["r", "volumetric"], " ", "as", " ", "the", " ", "radius", " ", "of", " ", "the", " ", "Earth"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Quadratic", " ", "density", " ", "function", " ", "constants"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "2.177275"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "2.412312"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]]}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "3.092201"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]]}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{ RowBox[{"1.911026", "\[Times]", SuperscriptBox["10", RowBox[{"-", "8"}]]}], ",", "\[IndentingNewLine]", RowBox[{"1.397596", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "5.000714"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "2.444117"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "2.328571"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "1.260300"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"-", "5.970556"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", RowBox[{"1.086873", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]]}], ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0", ",", "\[IndentingNewLine]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"1.308848", "\[Times]", SuperscriptBox["10", "4"]}], ",", "\[IndentingNewLine]", RowBox[{"1.234623", "\[Times]", SuperscriptBox["10", "4"]}], ",", "\[IndentingNewLine]", RowBox[{"7.306695", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"6.782253", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"5.319659", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"1.124903", "\[Times]", SuperscriptBox["10", "4"]}], ",", "\[IndentingNewLine]", RowBox[{"7.108267", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"2.690961", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"2.900", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"2.600", "\[Times]", SuperscriptBox["10", "3"]}], ",", "\[IndentingNewLine]", RowBox[{"1.020", "\[Times]", SuperscriptBox["10", "3"]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"{", RowBox[{ RowBox[{"1.2215", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"3.4800", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"3.6300", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"5.7010", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"5.7710", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"5.9710", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"6.1510", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"6.3466", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"6.3560", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", RowBox[{"6.3680", "\[Times]", SuperscriptBox["10", "6"]}], ",", "\[IndentingNewLine]", SubscriptBox["r", "volumetric"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "potential", " ", "energy", " ", "at", " ", "r", " ", "using", " ", "average", " ", "density"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "gavg"], "[", "R_", "]"}], ":=", RowBox[{ FractionBox["16", "15"], "G", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ SubscriptBox["\[Rho]", "avg"], "2"], " ", SuperscriptBox["R", "5"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", RowBox[{"bind", "-", "avg"}]], "[", "R_", "]"}], ":=", RowBox[{"-", RowBox[{ SubscriptBox["U", "gavg"], "[", "R", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "potential", " ", "energy", " ", "at", " ", "r", " ", "using", " ", "manual", " ", "integration"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ui", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox["\[Pi]", "2"]}], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "9"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "8"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "7"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "6"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "5"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "5"}]}], ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Pi]", "2"]}], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "\[LessEqual]", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Ui", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "2"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "3"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "4", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "4", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "4", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "4", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "4", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "3", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "4"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "5", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "5", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "5", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "5", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "5", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "5", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "4", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "5"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "6", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "6", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "6", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "6", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "6", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "6", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "5", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "6"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "7", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "7", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "7", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "7", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "7", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "7", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "6", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "7"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "8", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "8", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "8", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "8", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "8", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "8", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "7", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "8"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "9", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "9", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "9", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "9", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "9", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "9", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "8", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "9"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "10", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "10", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "10", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "10", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "10", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "10", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "9", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "10"], RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "11", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "11", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "11", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "11", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "11", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "11", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "11", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "11", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "11", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "10", "]"}], "]"}], "<", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "11", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "bind"], "[", "R_", "]"}], ":=", RowBox[{"-", RowBox[{ SubscriptBox["U", "g"], "[", "R", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"E1", "=", RowBox[{ SubscriptBox["E", RowBox[{"bind", "-", "avg"}]], "[", SubscriptBox["r", "volumetric"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E2", "=", RowBox[{ SubscriptBox["E", "bind"], "[", SubscriptBox["r", "volumetric"], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"M1", "=", FractionBox[ RowBox[{"-", "E1"}], SuperscriptBox["clight", "2"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M2", "=", FractionBox[ RowBox[{"-", "E2"}], SuperscriptBox["clight", "2"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", FractionBox["M1", SubscriptBox["Mass", "accepted"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "=", FractionBox["M2", SubscriptBox["Mass", "accepted"]]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "E1", ",", "\"\< J.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "M1", ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "F1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "E2", ",", "\"\< J.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "M2", ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "F2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ FractionBox[ RowBox[{"E1", "-", "E2"}], "E2"], " ", "100"}], ",", "\"\<%.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", "bind"], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "32"}]]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", RowBox[{"bind", "-", "avg"}]], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "32"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], " ", SubscriptBox["r", "volumetric"]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "2.4"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".7"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"GridLines", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"RotateLabel", "\[Rule]", " ", "True"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<-Gravitational Binding Energy of the Earth as a Function of \ Distance From Center\>\"", ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", "\"\<\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4151432581705*^9, 3.415143280248625*^9}, { 3.415143735498625*^9, 3.415143963529875*^9}, {3.415144027811125*^9, 3.41514410826425*^9}, {3.41514415145175*^9, 3.41514415301425*^9}, { 3.415144195686125*^9, 3.4151443547955*^9}, 3.415144387498625*^9, { 3.415144555092375*^9, 3.415144555498625*^9}, {3.41514461920175*^9, 3.41514465657675*^9}, {3.415145144092375*^9, 3.41514514576425*^9}, { 3.41514553701425*^9, 3.415145553233*^9}, 3.41514581395175*^9, 3.41514586288925*^9, {3.415145933983*^9, 3.415145948311125*^9}, { 3.415145992936125*^9, 3.415146023842375*^9}, {3.415146125373625*^9, 3.4151461340455*^9}, {3.4151461722955*^9, 3.415146317217375*^9}, { 3.415146365904875*^9, 3.415146406936125*^9}, {3.415146469608*^9, 3.415146764248625*^9}, {3.41514679832675*^9, 3.415146820858*^9}, { 3.415146852858*^9, 3.41514685663925*^9}, {3.415146915279875*^9, 3.415146942608*^9}, {3.415147084061125*^9, 3.41514708426425*^9}, { 3.415147116733*^9, 3.415147244092375*^9}, {3.415147277592375*^9, 3.415147334717375*^9}, {3.41514740613925*^9, 3.41514742532675*^9}, { 3.415147457717375*^9, 3.415147470733*^9}, {3.4151486791705*^9, 3.415148804186125*^9}, {3.415148851311125*^9, 3.41514891370175*^9}, { 3.415148948858*^9, 3.415148970404875*^9}, {3.415313511436125*^9, 3.4153135340455*^9}, {3.41531356588925*^9, 3.415313566483*^9}, { 3.415315647529875*^9, 3.415315648061125*^9}, {3.41531568507675*^9, 3.415315849858*^9}, {3.415315896123625*^9, 3.415315903404875*^9}, { 3.415315944248625*^9, 3.4153159945455*^9}, {3.415316042311125*^9, 3.4153160762955*^9}, {3.415316122686125*^9, 3.415316257608*^9}, { 3.415316294561125*^9, 3.4153163171705*^9}, {3.415316371498625*^9, 3.415316382998625*^9}, {3.4153164194205*^9, 3.415316439967375*^9}, { 3.415316664123625*^9, 3.415316694467375*^9}, {3.415316725279875*^9, 3.415316899108*^9}, {3.41531693113925*^9, 3.41531697988925*^9}, { 3.4153170635455*^9, 3.415317155873625*^9}, {3.415317403717375*^9, 3.4153174250455*^9}, {3.4153174569205*^9, 3.415317485779875*^9}, { 3.4153175246705*^9, 3.415317554311125*^9}, {3.415317744733*^9, 3.415317802123625*^9}, {3.415317914592375*^9, 3.415317948311125*^9}, { 3.41531798038925*^9, 3.4153180349205*^9}, {3.415318079233*^9, 3.41531826088925*^9}, {3.41531832707675*^9, 3.415318347936125*^9}, { 3.4153183847955*^9, 3.415318397311125*^9}, {3.4153195572955*^9, 3.415319974904875*^9}, {3.415320027983*^9, 3.415320033186125*^9}, { 3.4157398525385*^9, 3.415739906241625*^9}, {3.415739945179125*^9, 3.415739981460375*^9}, {3.415740030491625*^9, 3.415740036804125*^9}, { 3.4157401115385*^9, 3.415740120429125*^9}, {3.415740226710375*^9, 3.41574025481975*^9}, {3.41574029169475*^9, 3.415740364522875*^9}, { 3.41574039869475*^9, 3.415740484897875*^9}, {3.41574060150725*^9, 3.415740666522875*^9}, {3.415740775460375*^9, 3.4157407827885*^9}, { 3.4157408220385*^9, 3.415740908710375*^9}, {3.415740971054125*^9, 3.41574103719475*^9}, {3.415741108491625*^9, 3.41574125781975*^9}, { 3.415741319460375*^9, 3.41574135775725*^9}, {3.41574140519475*^9, 3.415741465397875*^9}, {3.415741499054125*^9, 3.415741666226*^9}, { 3.4157417592885*^9, 3.415741788397875*^9}, {3.4157418529135*^9, 3.41574185300725*^9}, {3.415742240976*^9, 3.41574224931975*^9}, { 3.4157424064135*^9, 3.415742409585375*^9}, {3.4157424411635*^9, 3.415742441522875*^9}, {3.415742636804125*^9, 3.415742649647875*^9}, { 3.415742909054125*^9, 3.415742970226*^9}, {3.415743010351*^9, 3.415743015241625*^9}, {3.415743068976*^9, 3.415743072679125*^9}, { 3.415743111226*^9, 3.41574313063225*^9}, {3.415743165304125*^9, 3.415743573226*^9}, {3.4157436059135*^9, 3.415743606554125*^9}, { 3.4157436595385*^9, 3.415743659679125*^9}, {3.41574369713225*^9, 3.415743830616625*^9}, {3.41574387694475*^9, 3.415744126647875*^9}, { 3.415744246226*^9, 3.415744256429125*^9}, {3.415744363241625*^9, 3.415744384960375*^9}, {3.415744415022875*^9, 3.41574442350725*^9}, { 3.415744825726*^9, 3.415744864101*^9}, {3.415744901460375*^9, 3.4157450905385*^9}, {3.41574517963225*^9, 3.41574518256975*^9}, { 3.415745281335375*^9, 3.415745483460375*^9}, {3.415745696804125*^9, 3.4157458481635*^9}, {3.415745926835375*^9, 3.41574599725725*^9}, { 3.415746027272875*^9, 3.41574605731975*^9}, {3.41574610781975*^9, 3.415746216601*^9}, {3.415746248866625*^9, 3.415746291429125*^9}, { 3.41574633794475*^9, 3.415746361366625*^9}, {3.415746400179125*^9, 3.415746421351*^9}, {3.415746481866625*^9, 3.415746550179125*^9}, { 3.41574660338225*^9, 3.415746632351*^9}, {3.415746742679125*^9, 3.415746771241625*^9}, {3.4158477821635*^9, 3.415847831022875*^9}, { 3.43233258425*^9, 3.432332585453125*^9}, {3.4328536594370375`*^9, 3.4328537437182875`*^9}, 3.4328538140620375`*^9, {3.4328540028901625`*^9, 3.4328540557651625`*^9}, {3.4328540917026625`*^9, 3.4328541628901625`*^9}, {3.4328542064370375`*^9, 3.4328542161401625`*^9}, {3.4328542732026625`*^9, 3.4328542738901625`*^9}, {3.4328543834995375`*^9, 3.4328544954214125`*^9}, {3.4328545378901625`*^9, 3.4328545573901625`*^9}, 3.4328547634526625`*^9, 3.4328566647182875`*^9, 3.4328570056557875`*^9, { 3.4328573263589125`*^9, 3.4328573264214125`*^9}, {3.4328573705307875`*^9, 3.4328573824682875`*^9}, {3.4329395228585*^9, 3.432939523124125*^9}, { 3.432939564546*^9, 3.432939577796*^9}, {3.4329396704835*^9, 3.432939679186625*^9}, {3.432940081905375*^9, 3.432940084811625*^9}, { 3.432940117936625*^9, 3.432940118124125*^9}, {3.432940290921*^9, 3.43294030032725*^9}, {3.43294033320225*^9, 3.432940370999125*^9}, { 3.4332134389835*^9, 3.4332134913585*^9}, {3.433213694936625*^9, 3.433213695311625*^9}, {3.433251165342875*^9, 3.433251200921*^9}, { 3.433251233499125*^9, 3.433251292280375*^9}, {3.43325132357725*^9, 3.433251376780375*^9}, {3.433251417030375*^9, 3.433251477780375*^9}, 3.433251539749125*^9, {3.4332515706085*^9, 3.433251618311625*^9}, { 3.433252413311625*^9, 3.433252432061625*^9}, {3.43325249457725*^9, 3.4332525241085*^9}, {3.433252566999125*^9, 3.433252574092875*^9}, { 3.433252647061625*^9, 3.43325269332725*^9}, {3.433252740467875*^9, 3.433252906655375*^9}, {3.433253090671*^9, 3.43325309820225*^9}, { 3.433253160624125*^9, 3.433253162686625*^9}, 3.433253218374125*^9, { 3.433253361874125*^9, 3.4332534433585*^9}, {3.43325355745225*^9, 3.433253577155375*^9}, 3.433253756171*^9, 3.433253978421*^9, { 3.433254213436625*^9, 3.433254316796*^9}, {3.433254718671*^9, 3.433254823671*^9}, {3.433255740155375*^9, 3.433255745905375*^9}, { 3.4351579063345003`*^9, 3.4351579077251253`*^9}, {3.4351581534126253`*^9, 3.4351581868188753`*^9}, {3.4351584804595003`*^9, 3.4351585840220003`*^9}, 3.4351586500220003`*^9, 3.4351588368501253`*^9, {3.4351588783813753`*^9, 3.4351588837563753`*^9}, {3.4351593235220003`*^9, 3.4351593235688753`*^9}, 3.4351599950688753`*^9, {3.4351601616157503`*^9, 3.4351601872095003`*^9}, { 3.4351603666626253`*^9, 3.4351603710063753`*^9}, {3.4351604173970003`*^9, 3.4351604485845003`*^9}, {3.4351605747876253`*^9, 3.4351605809907503`*^9}, {3.4351607186001253`*^9, 3.4351607259595003`*^9}, {3.4351608612251253`*^9, 3.4351608666626253`*^9}, {3.4351610629126253`*^9, 3.4351611229282503`*^9}, {3.4351611794438753`*^9, 3.4351611832563753`*^9}, {3.4351612466157503`*^9, 3.4351612701313753`*^9}, 3.4351613522876253`*^9, {3.4351615375845003`*^9, 3.4351615414907503`*^9}, { 3.4351619087407503`*^9, 3.4351619143970003`*^9}, 3.4351624680532503`*^9, { 3.4351625358970003`*^9, 3.4351625363032503`*^9}, {3.4351648659282503`*^9, 3.4351648696001253`*^9}, {3.4351649589595003`*^9, 3.4351649805063753`*^9}, 3.435192731640625*^9, {3.435192815984375*^9, 3.435192827234375*^9}, { 3.435192910578125*^9, 3.43519292721875*^9}, {3.43519301753125*^9, 3.435193018*^9}, {3.43519313421875*^9, 3.435193153828125*^9}, { 3.43519319521875*^9, 3.435193232625*^9}, {3.435193279453125*^9, 3.43519329309375*^9}, {3.43519333915625*^9, 3.435193371484375*^9}, { 3.435193604984375*^9, 3.43519360771875*^9}, {3.435193738734375*^9, 3.43519377690625*^9}, {3.435193814046875*^9, 3.435193897234375*^9}, { 3.435193991125*^9, 3.435193991453125*^9}, 3.435194170046875*^9, { 3.435195459015625*^9, 3.435195459140625*^9}, {3.435195714578125*^9, 3.4351959233125*^9}, 3.435195979625*^9, 3.4351960373125*^9, 3.435197193125*^9, {3.435965303816125*^9, 3.435965432566125*^9}, { 3.435965464097375*^9, 3.435965509863*^9}, {3.4359655661755*^9, 3.435965615238*^9}, {3.435965659784875*^9, 3.435965660253625*^9}, { 3.435965946816125*^9, 3.435965998113*^9}, {3.43596611983175*^9, 3.4359661540505*^9}, {3.435966185441125*^9, 3.4359661855505*^9}, { 3.435966220972375*^9, 3.435966247941125*^9}, {3.435966294784875*^9, 3.435966321753625*^9}, {3.435966420347375*^9, 3.435966460972375*^9}, { 3.435966494222375*^9, 3.435966543909875*^9}, {3.43596664045675*^9, 3.435966698441125*^9}, {3.435966737066125*^9, 3.4359667689255*^9}, 3.4359668678005*^9, {3.435966898441125*^9, 3.43596692058175*^9}, { 3.435966972284875*^9, 3.435966989847375*^9}, {3.43596708051925*^9, 3.43596711333175*^9}, {3.43596721408175*^9, 3.435967224597375*^9}, { 3.435967266441125*^9, 3.43596729264425*^9}, {3.43596745458175*^9, 3.435967510128625*^9}, {3.435967545784875*^9, 3.43596764820675*^9}, { 3.4359678761755*^9, 3.435967961613*^9}, {3.435968034816125*^9, 3.435968164472375*^9}, {3.435968205159875*^9, 3.43596822689425*^9}, 3.435968363847375*^9, {3.43596842008175*^9, 3.43596850633175*^9}, { 3.435968683378625*^9, 3.435968687222375*^9}, {3.435968778472375*^9, 3.435968819222375*^9}, {3.435970113316125*^9, 3.435970147253625*^9}, { 3.435970231378625*^9, 3.435970233472375*^9}, 3.43597026914425*^9, { 3.4359704078005*^9, 3.435970417472375*^9}, {3.435970448847375*^9, 3.43597045001925*^9}, {3.435970488738*^9, 3.435970562238*^9}, { 3.435970595566125*^9, 3.4359706724255*^9}, {3.435970715238*^9, 3.435970717816125*^9}, {3.4359707521755*^9, 3.435970793941125*^9}, { 3.435970936784875*^9, 3.435971030566125*^9}, {3.43597110420675*^9, 3.435971106738*^9}, {3.435971189722375*^9, 3.435971408363*^9}, { 3.43597145283175*^9, 3.435971462363*^9}, {3.4359717283005*^9, 3.435971775941125*^9}, {3.435971825941125*^9, 3.435971859128625*^9}, { 3.435971898409875*^9, 3.43597191689425*^9}, 3.43597194851925*^9, { 3.435972804253625*^9, 3.435972828878625*^9}, {3.436044976238737*^9, 3.43604559567647*^9}, {3.4360456996947575`*^9, 3.4360457111325502`*^9}, { 3.4360458341044483`*^9, 3.4360458403858585`*^9}, {3.436045871230398*^9, 3.436045999843066*^9}, {3.4360460476255393`*^9, 3.436046069251093*^9}, { 3.436046101220661*^9, 3.436046179425788*^9}, {3.4360463053821373`*^9, 3.4360466713133802`*^9}, 3.436046849051474*^9, {3.4360469451158185`*^9, 3.436046994476141*^9}, {3.4360470249767265`*^9, 3.4360470397426353`*^9}, { 3.4360470892435856`*^9, 3.436047104009494*^9}, {3.436047333201394*^9, 3.4360473461235175`*^9}, {3.436047378280385*^9, 3.4360473959682245`*^9}, { 3.4360474579381647`*^9, 3.43604746211012*^9}, {3.4360475010171165`*^9, 3.436047510361046*^9}, {3.4360477710064974`*^9, 3.4360478119288964`*^9}, { 3.436047879461011*^9, 3.4360478897580175`*^9}, {3.436047971337187*^9, 3.4360479868061347`*^9}, {3.436048070869711*^9, 3.4360481244641466`*^9}, { 3.436048170120981*^9, 3.4360483421700583`*^9}, {3.436048389733167*^9, 3.436048495718899*^9}, {3.4360502717572565`*^9, 3.4360505472295327`*^9}, { 3.436050579995577*^9, 3.436050817889231*^9}, {3.43605084971756*^9, 3.4360509092648163`*^9}, {3.436050973999605*^9, 3.4360509989685154`*^9}, 3.4360510582501445`*^9, {3.436051122109928*^9, 3.436051150469485*^9}, { 3.4360512093761115`*^9, 3.4360512172824125`*^9}, {3.436051256938916*^9, 3.436051257454544*^9}, {3.436051462846484*^9, 3.4360514745965595`*^9}, { 3.4360515579564676`*^9, 3.4360515847222643`*^9}, {3.4360516810353804`*^9, 3.4360517129574594`*^9}, {3.436051804426795*^9, 3.4360518082393193`*^9}, { 3.4360518416614084`*^9, 3.436051845786435*^9}, {3.4360518919742303`*^9, 3.4360519910842395`*^9}, {3.436052043662701*^9, 3.43605228958615*^9}, { 3.436052325414504*^9, 3.4360530465284944`*^9}, {3.4360530934350443`*^9, 3.436053103966362*^9}, {3.4360531408728485`*^9, 3.436053170482413*^9}, { 3.4360532186858463`*^9, 3.4360532537329454`*^9}, 3.4360532850456457`*^9, { 3.436053338561613*^9, 3.436053347983549*^9}, {3.436053480343771*^9, 3.436053489781331*^9}, {3.4360545018659334`*^9, 3.436054502475312*^9}, { 3.436054906524773*^9, 3.4360549084622855`*^9}, {3.4360582982813606`*^9, 3.436058326328235*^9}, {3.436221593234375*^9, 3.43622159553125*^9}, { 3.436221840328125*^9, 3.436221847546875*^9}, {3.436303715234375*^9, 3.436303878875*^9}, {3.43630393334375*^9, 3.436303996296875*^9}, { 3.436304046453125*^9, 3.43630445609375*^9}, {3.436304489625*^9, 3.43630450134375*^9}, {3.436304544328125*^9, 3.436304557609375*^9}, 3.43630464340625*^9, {3.436304689*^9, 3.436304953046875*^9}}, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData["\<\"AVERAGE Density Method:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.43630495396875*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy is \"\>", "\[InvisibleSpace]", RowBox[{"-", "2.2423079564917473`*^32"}], "\[InvisibleSpace]", "\<\" J.\"\>"}], SequenceForm[ "The Earth's gravitational binding energy is ", -2.2423079564917473`*^32, " J."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304953984375*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy mass equivalent is \"\ \>", "\[InvisibleSpace]", "2.4949040734800175`*^15", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The Earth's gravitational binding energy mass equivalent is ", 2.4949040734800175`*^15, " kg."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy mass fraction is \ \"\>", "\[InvisibleSpace]", "4.1765502770189117`*^-10"}], SequenceForm[ "The Earth's gravitational binding energy mass fraction is ", 4.1765502770189117`*^-10], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954015625*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.43630495403125*^9}}], Cell[BoxData["\<\"VARIABLE Density Method:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954046875*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy is \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.7109830058909964`*^32"}], "\[InvisibleSpace]", "\<\" J.\"\>"}], SequenceForm[ "The Earth's gravitational binding energy is ", -1.7109830058909964`*^32, " J."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.4363049540625*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy mass equivalent is \"\ \>", "\[InvisibleSpace]", "1.9037253374114058`*^15", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The Earth's gravitational binding energy mass equivalent is ", 1.9037253374114058`*^15, " kg."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954078125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Earth's gravitational binding energy mass fraction is \ \"\>", "\[InvisibleSpace]", "3.1868979131702917`*^-10"}], SequenceForm[ "The Earth's gravitational binding energy mass fraction is ", 3.1868979131702917`*^-10], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.43630495409375*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954109375*^9}}], Cell[BoxData["\<\"DIFFERENCE Analysis:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The relative error in the average density calculations is \ \"\>", "\[InvisibleSpace]", "31.05378304584988`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "The relative error in the average density calculations is ", 31.05378304584988, "%."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.436304954140625*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362213534375*^9, 3.4362215965*^9, 3.436221852875*^9, 3.436304515203125*^9, 3.436304558390625*^9, 3.436304646515625*^9, 3.436304684*^9, {3.436304780609375*^9, 3.436304797984375*^9}, 3.436304869765625*^9, {3.436304905546875*^9, 3.43630495415625*^9}}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 0.7], Thickness[Tiny], LineBox[CompressedData[" 1:eJwVz3c41X8fBnANEZIVigoRIX4ihPP9vO29M7LLHlkhOzvJPEb2TjgSMk4y shKJjMqKkFVSqOhQnvP8dV+v677uP27uGx4G9gcpKCgWD1BQ/D+lUp7+6KTh RgR+DZ1YTxFpdsUrQf8U99G24/KAVE+knEbYRb1mxeOQsSaxYd09Khclal3b 7M0G+5kvjHi6DuIW8h/JZCqeBarKpIHNrnM4bqqdOZm4c+DyzmL2uQCGe4vl llV48wPDvSMXpjoNcGF+4MpuLgRCEnMpN1TscKLVn0XvKoqC0jUavaauW7jv 3kokUroY/KxdbZgaDMf1JmZYXIoTh9ej/I1uAom4/MqVNufQy1Ci4a04p5aJ 83spw13kLQVymtv0jzuLcTrz8ZHjDlcg0P3JMPpHwJ3/N7N43FwW+C906Imp 1OP+nRRTU9XFwR9Lav7LhS24d5cjK0MVEdAFM3yM7urCvS93OTKVA9CdMd3/ p7Mf19mY2vQ7XR5K+jHfqsFhXHV3ixNTsgJ4FtDmVht9wGWPLJ4UiVOEf3Pm 3KwCM7iYT/Sv1aOUIMMyZjQQW8B5r0sF24cqwyNr5+k0tRWc1Z7NxXB/FWgu 4b05bLiOU6eJm8n1VoU1/dnPrp2bOAn2p0lENzUYU9vJHz6wjeM6Pw1jDuog 2r7IMPZ3F0cnQbn53UYDLD9ZS/1bosB25EVKaM01wWyZ/vmk8mHss67JVX4j LVhQu7stcoEae2sZRqmoqw2RRuoZjwvosBbXikYrdR2QCedbiJtmwMoDRhwD FXXhy4tx3JkuZqy/K4Tu9Rk9yG4t/hBHx4a90GBaHM/RA/b+oUGrzlNY43BZ 6xK7PnQGUx7qWD+DVZnKZvxM1wedJZVJmUFurHh2yP0gswFYerSmeLnyYpkO dqoMyQZwSUSfjdaIH0v8tnP2zDFD4EmXCrBNEcSifBJ2hOIMgVW4+6kIvwgW uMs9fIXqKjRTG4a10othnhGNFapRV6H2NlXqBE4ccziqGWF0wAjOO8/deFt6 GbNInjWzDTWCf3zUxk2q0pgBm4+4164RyAuYJr0TlMXU8qnp7vgbw1rOyxMP DTBMvEqsNdvbBPQt+bqKOxQwAfGX6eXfTaBhX63y6Gsl7EyzmXujmykU8tsq 9lKoYizy31W6V01BZqrOu9BeHaN5FXl2xOEanHE9d/j2niZGocu+M7twDXor BjGNVzrY73dVb7/ZmIH4vGwLx5IeNr/wLvyouTmE1C6GNildxcZdXMzYxs3h oG5WYy+vMTa48e8Sn5EFOASslD7nN8W6/VNpxUcs4Nvd7y5eumZY8z7/Z9C1 hLFi7OuHPAusJqalRWfAEr7ZBDF/Z7HGyo7pp1uoW4EF4z6T3ZQNhucIVPFX tIZ193PN1R222KH337doXltDxeax+63B9pjMq7q3OhdsgC8/zFvP2BG79fAm P/tNGzjtZ3ryp64zVhUhEDpXYwO58mxmCq6u2KL1wljlTxsQql29PV9xEzuD yxfykb4Okf1jld1HPLHkbeaJIy+uw868EU/EQ2+sb2xQ9O2hG1Br68GixOKD Hay7F5OlegMOy9l5XsnyxXzc9sWFh27Adw8RnbZVf+yxenPcLyZbmEs0i7Rp CsSWzvvOtRnbwoDQZrt5QTBmOvclUX/GFrrH8B2u18OwlLaHi6d47EC5KSnw alg41p9jI/fZ3g5CHajbmqsjMDnj96t+3+zgwlenlBC5aMxXPAVAzB74ZaOd z+XFYNUMWg+O+trDj8HPtyeOx2JcrzuUcvfs4WFZw4KUyH3sWnlwjj04AIfz K0atqXgMHy21KRLlADPdDZfU8hKxw/C4oIPWERZejNSGiaVguNNOv+N0HeF8 2V/gl8BjfiQe7aupjmDAnrg4rJCKrdRnkpZOOYGfFaPdx+h0jBtvqF9j5QTp JEPs5PMMzMyDvjyg2An2fsrIHf/3ABu4EGVEJ+gM7uxSjaTqbIySClW9u+kM cVMNlLOnczHs85+DBbXOYJyjfNE8Nw+ryfeoEbviAsTL5T409oXYapAg1W6w C6jmb/4TxBVhPNcWLbtfuMC97wJ7p84UY2nM5rQmaq5A/bk7Mmi3BPOPVXEI NnEDv+YvR2iFy7Fa+wOtyjlu0Fc/zuJiUIF9UWhhPj7rBvLa68fmIisxi79i HUUON0FRIvyw8dHHWPrkGptr5U04oL2ou21ZjQ02PXKXWL8JrZb/BLbbnmDg fZqz19cd0l979tUb1mIBuuPeyc/cYXczoaWHrQ6rE07tu/bXHagmDHUb5usw 3mXq22tRHpB6sE94JaEeOyxCWqHW8ITDX55TvsWIGAWD1YNqZ08wZqJM7L34 DNvd6FC+es8T6t7cPUrH24xtNtwrLnjlCQsxPOrn+VuwOdxJC0lVL/DY13KU VHmBTZ8NoZl28AJKDtorGh9fYOMH5ojhMV5gvcdk2uTfgb3tKT/xpscLjHBW An9bOrE2bekhWyVvuOuXX7sc0oM1i+aGHLXzhkMLKzI+Mi+xBkYK4SeR3pBD OqPCs/cSq3rXG0vq9AZltn8Z2kmvsBxLE4UU+VvAy/iI6dP2aywDPf8hef0W MElP8/t+GsDw3GcLpsNugS3XcATN0BssbnFpl//FLfBJemxd1TaE+d/0a2jD fIDqdvHRpF/DmI/upK2dlQ/ke1ExRESOYB5iGBNNqA88WRUP+MEyijn8ovQw avUBjvtSzWEKY5hRSLrAmqwvqIvTryr0v8f0rP+8TzH3Bc1sibwF3w+Ylrxl tFSQL7w5U+54l28cU6Lkm49o9gULgYmvZ1MmsEsJ9Tknr/jBsOv29/ScaUzE g12j3dQPntSICeo6f8Qu6Afv2Pn7AZ3aE8lC2RmM64SSUU2THxglHT9nuj6L 0eeN0qtK3gbqIcdv/L1z2NeqzXAfcX/4Ndfmob24iL3UYFcKMvCHi7Yqsh+9 l7DCFdyRCC9/YOZ41aJ0aBkz5r0Xl/TEH161T4W+FF7BXuScTa0UCgDaOH29 gZIvWM4VZaNajQBIlO+10lP/ivl9cGEjOgeAxLVp4SObXzEh5sacnkcBYPvh D5ek9jcsI06r9NO5QAh6mEHYPfED8xLwdlhWCITvfiPKwn4/MK2XDwTWrwdC k+q29vnxH9iBgwtVuwWB4Pfj08Hkog3MLSCggZUzCHiMNJvWNbYwBaeyl1os wfCWYVay5u9v7PSRgVhD8WB43LqjkBSyje2UbGiYGQRDR4rHdsn+NvZ4Vm7I MTkYcvaeh9+n+YOxm4x+iKALgUgOmkoeuV1s8+dO1j2hEGAWpz8VOriLvcGf sUjWIPfWbmc1bfewiEHnT3mxIWAqps54Le0v9k2ZYpV4OBQmQ7JOptBQoFcL fIT2c6HAWxXavmVJgYrDNW++VAgFtYYRoSd1FMi0NWNjNCwUBq9VbILNAdQp cZG0vhcK2rcuaqoMHESZ58xo+X7dAVX7jdTSr5ToApVFuANtGJxcuTLbbH0E xezRhMhwhoFWQjRl87sjCJadfOZxYXCC48pkXC8VetrCa3spPAx+7dSxcncd RQx1o1ZH8GFQYBhjIqBKg9weRZhNFodB0++3xepvaNB5/Cf9iO4wODNQ/HFr lhZlO+bCCFU4RHt6a+aepUfbFppyZezhUPbqzneBBnp01YAkFXghHGKUb2we 0j6OjuFMRXk0w6Gy3/bkJ3kGFMbEcsY7MRwi4kT4jt5lRI6t93cZT0QAkSeq 4bwOC+quk9le5IsA/nE1s8OPWRBX+ermM8kI+ETzz1Hh2Ak0iVf9ct00AsoH C7fXh08gHadDE7U5EUD6uf/H140NSTAHNerzRIKVi8rHutVTKIVasI5PPBLE hSRPu9twoPW/44//KEbCbcbU4b5xDlS+IvmwyD4SPGmLU24NciKOts3UjfJI 6L/ENUE9eAYddHbxShGNgrV3PydpUrgRfWbuujIi+zcDIeodN+LoHXQl6UTB aWpa4sgpHiTBJ+5g6x4FXunPhbce8SD7uV2zy4+j4Ocqf37QwDn06lqC0oRg NHA+/bJvB+fRWGx7R4JMNOB7OYaOpZ5Hc00bmIJGNDyjqG2uXDqPSCeMrxCc o0EfM1HuS+ZHwiNnRELKowHXd9127IcAStKoYeM+HwNFLlkeR+aFUG7AfNq7 yzHgfKRYaVNJGJWXszDFKceAKVcR7a9yYfTiSADdll0MsHMYJqn5XESbnfIH ekpiQKdV6I8juygylh394sR9F3TULX00tcQQp/Dv1hrOWDDFa5YvK11GmeHd 7xouxoKMfFvVVtJlxPIB/60Zi4Ux2vXDI1OXEV2E6Okem1g42XMgis5PEu1+ cAqeKI2F5w8YKCvqpdBk5JTMwYv34Hdl/dRRCxlkPFFhQIXdg/Pl0iV0DTJo RMTfhU73HlxRoGP7Ry+L+idYslm9yNY661rfI4uaRXX+CDbcA/E/JqdLMBzK mnrRZIiLA4OAsuyT/wFiEUsaMtWJg6ODzz+H2wFKjrFctrSOA4XByo+eWYBi xUisTuFxYJeMTS8dlkf+d8X9gnviYF/NUV93Xh6ZipdJPNS+D/3fJlV3mhQR 6/37tb8t4yFFJ4TA+V4VRbTJGFa5x8MYvmqamVMNfdtY/Xn9Tjy4RlRuP76h hrpN1aTfFMbDcQthzaENNeR9nrK9ZCEe4sMHNRfZNNBgR+iAnnMCjIQdar8W pYVkfl10PxKYAJNPvmlQvtNCDwU+Hm+JSwDTcPUB+/PaKDhJ1pC/KgHEI7Is NF5rI0HLnYm/6wkgG7la33laF0XveC1X+iSCmq6MELalh34Icd+ziU4E9fJB 6khufWRh/VaQNSMRGKu+HxTW00eXXoq4hzclQtv2n/6qan30KfXrTxNSIlh1 8UCQpwGSE7U/SBmWBIqSoyGTVFcR6VJV4hPlZDhGUAu6EmeCYp2VCwO1k4Fq Ok9IstMEnSicqVU2SoYAcx/DXJIJ+u8Y47spu2SI+B2j/8jNFDks+3JQRyWD NP7wqVdG19BIDiq36UyGBVIZY5OcOao8PNrBiFLgfD/J1u+6NZKWdRudVkmB 2IeXJV4+skY9XpSLj3RS4LJA3WP8ujX6NCNFjVmlwOK6INMIZoNYn+XquISk AI6JMvDjWxsUcdNhqvN5CrDyD4jzHriBzN7/+XlLGg/Ho+i/t6fZobNcc4bL gIf6JY6Cw9126LPzqzozdTzcCKnjLNiyQx5/MzzlzfAQebhd9YOhPYrilVij D8YDZbnjZxt2B1Tt7b5Q0Y6HUzYPCrE6R3Tw+MLwrEoq+AWXcEYcc0W9pv3/ GeqmAsXt/a51BVcUX1yb9NIkFXR8TZmb/F0Rm2SY9mOnVJi3D/WxWHRFwpan +wLjUuHSIGn6SJcbMiaYvDgxmArH1upVINkdEVQHqjWN0kCYQb+6S8YLqYn4 6ohapoHN7aha32teaInlzDqTfRp0u4ULGPt7Ia55j4uTPmlA38SIlTR6obRg 5iqntDSIj/AqvXXZGwXXmlVEj6aBjpba01Nyt5AWx2pJu346RP7otNty90Wr B/CKJdfSQa3rkcpEqi+KWZFZiLmeDjgSF/aT6IteNMTz6Hilg0jMpEb/IT8k ofdf0XRyOshsMa/v5fghzujb+X+G0uGJxbz14/e30bd1yixxnQxwzkaH+/0C UYRSQch3owx4srMuMl8UiFizpW8QLDNgVZMVk3gTiEDZVejczQzw1Pm7GsMb hNJy3rYyxWcAy2vzwrV3QUhGLWd+oy8DpJfrRb8qhqC7Rf8J1yg/AK+Ev0q8 /GGIc7uPwU37ATxobDkRA2GoRsv2F7/RA+BIsbhNbRaGJrfT2wrsHkAh30V7 j4QwJKKzq5cU+QDUbx+R7PsVhsZIPb7uHQ8g4FG+VO9AOOK+at4ujMsEKqeX qt1pkWi9RWEjWTkTLifantqtj0TNfILnfmlnwsBZzVGLd5Ho6vZOTKtVJtjv /ZdTxBqFYrIzdHTCMmF5MfWfRE4U+vJp+KNHVyYYbulIPKqKRk9vqu3VqWdB Uql638zGXRT2XlSEzSALJmqf0HSxxSItxGYTZJYFdVInfT/gYtESw1KXomsW kCxXvFPiYhF7feT9sfgsuKPxfFzn/D0UTGo79XsoC+7VsvSccIxDyncvX7li nA1RGQQpuuMJ6Ev8DOGYVTYYMAz2GkonoET83TPz9tkQ3C3C0389Ab3Pmzh0 3zcbGq2jXys2JCCn+pDB6bRseEq1TedhlYji5npsw0az4QCj5I2Xz5LQW1nj xF69HOBZa+bt1EhBPvL7FLmmOWAvb+55+0YKOqlafsvTJgdkbty5qxKYgm4Y kExPeuYAofqC46XKFLTllH/ONSkHAtbSTijS4hFrxhKRfjAH/Ld80q6N4JH5 D78FI81cuEzDM7Hsk4akj7qXjBjmwgr/bJ8SPg2x8Njb6lrkQvyD0QNdT9LQ gKHhgtrNXAiqKK859zUNyTWJLsgm5UK34H/f/G3TEWfoyjz3aC5onu7mjDPL QDO0ZvPfzPLgD9Ww0iHbTNTMq1/sYpsHr4JDp1qiMlEGTu3GsmsemA/tseaU ZSIdD8n5T8F5kGrQ/qXnSyZqH2GaH83PA/eAftpxnyxUmPV67tl8HjzMzbp7 JDkbXefHzUW75EPE+RIK/YVcJPGEd2nSOx9qqdKecB3NQ9RSdF9Fg/LBWMGU mU00D9WoTP2cuJ8PLBJqDv5BeYjCIYBa5HE++LNdkGRgzUf5pQ2i77/nw/Bh lZAqgwI0zS0Set63AOwj6GqFfxUi4cSkhAVUCCzLG+3vB0pQBJfdfy8VC4GK hUbn+kIJGq+THi1XLYSUrKzO/T8lKPLDHLu7biEQ1NMT/flL0SSXROmOVSHo TU/9M4ssRfeejjcfCy0Ebee2mm/YQ7Q0zr0i1VIIm9fsXfN7ylDRuXqFeOki uFpGF/WeuRLh20XpuuSK4ECW4CrrpUoUZU549weKIJ/6po63XiVySi12clQv grtrctcCEyqRyKGURAWzIui62S86TE1ALfM3J3eCiuC70P7Ko8NVaLyI39u+ vQgGnEc9XBirET1XThGmUgz7m8KSLvK1yC3u9v2LGsVQILy/tWpQi/p+Gvpy 6hTDkrOS7G27WhTVR6dOMiqGhg1cePPdWrTrHfqjwb4Yjnk0lX8erEUrPdfR xehiMFWfMH5jXYc6XAU+cnQXQ5fbp/mz8U+RT1MD+x/5EujE5p+rMzQid6Er F+RUSuDpqmERH38jcixouXJHowS27hzxZMYakdndLjNKwxIgeEas8bo1IjAZ zmW0KwEWbZVrXH2NiG57jUswpgQSb6a1h8U0oRJJ3gvm/SUw8Wioj+/4MzTS gL/SalAKvA8GCjavtSC164lua8al8BtkPxzzbUGtdHEFHOal8MO3wk8uuQWV 24ZTBtqWwklL9eNjL1tQCKPnsKRPKbRP/0n9JtGKBG5qO9eklwLjRV6dYZY2 FMpLnVUyXgoLo+VZGQvt6EJqyM49q4fAn3hb3n+2AwXQ5g5ZmZbB8KH9BMpv PajjS7AezvERNBqkNPnSvEYH7VNWz9mVw5XsoTYZlbdItu0pF7NFBVS1Lt/x NBlFN0MzD9A5V8Jn/HDL/KkPaHI2mHLHrRKucrGWjVz4gFTkrx/97FkJz3Pt L/dJf0BchwUZW/wrYWM4XaPf+AMaufecyy22EhZ7Trtzpn5A0ukzaOBRJSxd PJR44Ng4Kv3dqUgkVILqrpG5Bec4YjR9pFr6pBIm949/ahUaR19OeeoGN1VC 2uMN5nSNcZRXeMBauLcSOtdeKKTFjqODVbyh8UuVkPFbpvQ95QRyP3Y0wv9L JeT5VdvlnZhAU+7fou3WK0GEe3/NhW8C1Ys1Jsj9roTpvxLXTilPIMcm1bw1 SgKUiVQ874+aQGPswkXjRwlg9KXzfW/aBIJAhofdxwiA5HM6XpdOoFO4iarc EwSINXOgWemeQDH5rTWxJwnw9ICKC8W7CbS1X1Tvc5oAMXRteWcXJ9BAp0uL Fh8BXnqrRHpTTqIrvLovpC8Q4NmmrFTZiUlUFi3ezXuRALRn0jo/8U0ipmW2 VwxiBCjWy2viEJ9Ed9T2Xu9JEMB5TKUHk55EaxWfhlakCUDdIWxoh5tEprQ9 o2NyBLjUwXwjXmESXRpMmKpSIsDmxjblZ61JlC/qPZupRoCeztBcZoNJRJti vBClRYCE5ZNNyiaT6LPh2a8WVwnQxlAUVHt9Ej2YqCHR2REg/mq4ySO/SVSo JMen7USAXY4haYvgSVT+pFc3wY0ADxn2T7BETKLm6JnSY74EmPq+2RufMImm xeh06WMIQJqs4isunURccY4lx8sJYM7UUmo5St7LnNFiWiPA8cKeB2fEp1Bz zv08Np8quChzSHlrdwq9k/OZEbzzGLbfpLPwV31Eq/7JUir+1RAtbte44TGL fnF4yLjGPAHeJVUx7b5P6G/VC0Et+Rp46+Ie/ezzHAp6rke13FIDzpx4lMq6 gHz/dhCPKNZCeZnKe9/Iz2iNTttP8EUt1HTbEc12FtGs7jPqUdU62NS/Xhdf u4x0bNCjOy/rYKv/ofEDr1UkYzOQVqPwFJa1Ah6Pan5FxakyJg59TyFaRKwl we8biknr5ONSrQe2pj/NJ0u+o6VXQn1WQ/Xwzr6lqZFlA3Wt5TznNmoAu6Vn VJJOm4hzhq95ZbgBsIvxobvELbRxMCVB4loj6BT5MfFc+oUUf524GfWhETyb Y3udPH4jxg9FOaaGTTDDKjKtXLGNzNfoC2onmuC93V4u4fMO4h5Kr6Y3IcKg 8wYxh5GEAj34JUWuEWHvPenqe1YSGjv+rFXbnAhC5xS2mDhJKEZveiDemgif 2UnS+PMk9GWY5yuNExEqnPlI5bIkVDf2hJ8qgAgcPvHTUg4kpDDZV7ifTYSQ xXWv2RYSygk0FzibRwTssXuMeScJ/Tz17QlWQARS2reaiV4SKjNnaA8pIUKH pIvG9AgJ0Xw0/rhLIMJMw49C0goJ2Yas2HFUE+G4H8nv7joJtZwOXJOpIQLN x6NOrD9JyN0qbzegngjR99vzZPZJaHR24eROCxHQcynn3BO7SDjMt4itnQim VGcvyHDsohguqgtSHUQ4EcBxdJJrF0lfF5T26yFCj/SMEJfwLko50NKe3kuE fNYvHi/FdtGXIm3Vhj4ifLqS8d5dahcpKswOjr0mgttYAJ2s3C7Knfc0/vmG CKJ4/teOsIt+RRycYX5LBI/M/e10pV2kcy7NXnyECJS/rVN71HYRhV2Tj/d7 IiifseGT1NtFdot/8T9myP+qyqxfWO6ipR9WwxSzRMh6JG8ySbbzXvtxRrKZ Arl0f5LtzhwRL0b2xMMKJGC1i/zlj8R4k23O/+VcMtkkLcfuCLJHVkpOV5Id YvrqYCrZ1tFFbN1kR3jE3XlKdp++E90O2YeDvrZ2kV0dIUbFZL2L7sZo7Y2S 3ZqMHRQmmwb/WOYz2f7BSX+VyY7Pow/4SfYNFd4/1mTTV3g0Hf5EhM3sXvwt slPq3/5iIXtAOhV/m2yWF2ISfGTPqDnjg8jOeI33vky23Gt1/B2y2T9s1SiT vdsugY8kO2f+6ncjssX4BfF3yS78w+rmR7a+tgQ+iWweSv/KGLJt6dTxqWQ/ ZJhYySAbhznhH5BdyZ9j30R2NqkHX0B2vdFZ6x2ypcf/pT4hW/J6WB71HBG6 RR3TnpL9zG1uip3sNtJEWhPZbZElplfIVv46k95O9qtafoNAsj9JO2QOkT19 7D/lPbJxmS4F38m2OpkSSTdPBM7/Agu3yJ7j3ezgJLtaLq1om+wl2XoMR7Zs /XLJPtk/nKWlQ8lWOEtXcdxmF3n7Zvklkv3byqOSmexfYaT6fLIPsXwksJFN etAi1k62x8yH6rNkB5ec9hwim7RlV3OO7H/VodWzZIvc2avlJzuseXbtO9ln w/KfCpF96CUIUSwQYf63RoMo2f8DLWRn/A== "]]}, {GrayLevel[0.5], Thickness[Tiny], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV12c0Fv4XAHCKUilKorLJykhkP9/vtYVsGSGy9wiRPUPI3lkPIiOUkp+y RcOsrOysMqJhRP7+r+75nHvuPee+uOfcy3rLRdvqAAkJyRNSEpL/R7GEpz9a jrLiB2+d3x3KJhenl5Pw/Se3h6kfZvaeOGUsrRLEr1kvRwUH8dWBL9Tl0mGC N6vr3emAqTLzQx5xRHom55FkuhwzkMtHDclR70izHt6ckoxmh4fmOQ4n7WgJ vSi7uNSdC9zlm/YwkZcQ5AUO9Dcuwsf3tvR+XdIEwcqvgvfkBKHDhd14g0qN sOouv72dIgSxLV+YBpUNCW/iUo0vRwuDYFtPw7StFSHn8cJru4ArUGziohZI cCN4dUiy5ruLgX+6dAYV8S5BfTomdMhaAiq8nBQDJ0IJnP/GZ6luSAGnyI6s RlcM4d9ZIWUlDQIQyf7eDtJOJny6Evo4QA5DKJUgUx9VNuFzif2h0SyAy5lf 2+r3Cggtz5Ne/EmRgdAamoA65VJCZVuD7al4WUg+/IftR3wVIbN/9qxAtBy8 /Bdh9c62lhAxeeLd1TB5KOs7e5xC5z+C+4qYn1WAArC4S4s6E5oJpjtm/MHe inCSm2ly/l474erR6PFsdyXI5qC13ih4SxChf/qgzlEZnk1eYArS6yWwcH6B j9ZXgWR2Lct5YoBAKUK+vmqmAtz6A867e4OETRkB4rEbqmAzYjQk3vWF8FVD X5dLTw3U7quzKHNNEXpNgsjlNK5Blm17pZv2V0KDQ+lz06vqYBzKUaG0Nk8o 8em3uSunAV3B8nuvqJYIb1v9Kd8xaYIls/cVFZMfhCaVU7NDWZog4dCZUrm3 TnjeV/xqjl4LdIaXWmT+/CaUG0il/krRghnVev5S5S1CwUSP8wEabXgwdP3m 7r8dQrq1pRJ1vDbYzN/Ln4snQXHLm8xMx3Xg3ARdHfXYARTmEbt5MVoHNNG3 l4225OjuX9Y+icO6cDP1VuwfcQrkGvK8VClMF6jYCse2tI8h6yOqIXqkejDc 6deo1XACGcdPGFkE6MFvau4yK8JJpE3nIez2Vw/qpIKlCSo0SDmHgjLQ+zr0 f3UrG7tHi4TLhV5luuuD0MFIte8F5xC3cEdKyao+UKrzrbneY0RM9UbOzx0N oPdWyT9vPRZ0WmZVsW3RANwKFccqKdjQ0c5Q5n5rQ0i5VqdoPcGOSDToNydm DOHf+rZF0+gF9OdTee+ymRFIMO6++rnHhaZnPgUfuXEDhO2piPxdfGjI3t6I bugGCHG39FPdFkTda/8uX9AzhoSEOxUyXEKozTvpmHC/MUj66M3TPbmM6ve4 voKGCdAO8KvZa4ugqoiGBvX3JtDc6lNdeEoUFR/XSjG+agrbSykyeE0MJZ6/ q+gtdxOi2AdcnlFJo4OfV38efXcT1I0rAs6FIyTZWdOrzmMGm1MTpSuJgG4X OXHRO5nB7yxNd/ptGVQewh0wVWUGjUJbG/w+cmj25szHx7/MgEX5NKfxSQXE RMi56CFuDtel+LKGWxVR/AbN8KEmc4i45CDT7aeCuj52C/YevAW/eTsSv4ar oQM1UREZSrdgqlWzPrJSHXk47gnz9dwC7ow5N9oaLVRxtT769ykLWAjl+Hp8 WxvNcXpOvb5uAVzFdqpNurrIYOpbnNa4BWQ1HlAJUdBHCa+LZs+xWYIkZnws NmaA3maZSX+1sgQbF6G69WgjJH3986LXsiWo0G0DOZ8p8hROABCyAslEztJ0 ajNUSa2WdsTTChokmYQP0ZsjlnfN8tk7VvDsdPhfEw0LZFjil2UF1tAzbMSl GmSJEsPF1gXCrAFl/2uhbbJCZFCR23zMBpSuvnFxdLZFBEbbP9EaNtCsnaJK O26HvLbZrukm2YCtqih8MnVAC8/St+fO2YLE+wXyrRRnxJqoo1VlagvmeRQm bzldkZHLiRKfAltoTfequkHpht7zhOlR8trBiuCdXZo/7oj8MC7/5GQHc+/N T81u30bo69aB3Go7uBUgOPXhqCeqynGpEpKwhxCD/lMa1+6gRV/ew3/97MGj xNwgL8gbsRnOmrQ12UNiLSuXb5MPSqa5cUxf2QGmNMkEdG38kHekorWfviPQ zl58biAQjKqtSF8pZDmCaKpy+pO9YPRNtoGGasIRStU7R74PhSDjXaHmfGsn SFs+xr1JDEMpI0t0Do+dYI2CtEQ6NRx1v3jkLLLiBDqyJXc0EiIQuDMyvPF0 hg+nCl5+LIhEPhpD7vEvnaHkygFoexmFaviSugx3neGsFIOc30g04pinuLMU 5gKz/myMapKxiExge4FCxRV8ph7lOxASEAm1aVqlnSvw+zuRe8wnoL9rzQq6 Ua7weICv80lqIlqvjSrI7XQF1VkVRinyZDRFOGssquQGrgr2ZSc409AXZv+j X6zdgJvPMYJhNw0NkU7VBUe4QZFh8xWTkXTU215C+6HdDaSDrnbtPcpEr6+J 91jIu8PzniO0BUk5qF4w2/+IpTvIVm3GnM/LRbUnSfiehLrDVwbjwz8N81D5 pzeR2y3usKshbn3QJx9lmejLJsjchr0DgxfM5ogoFf/3Q9T8NoQqZ/YfjClE iazMuV+CbkMQQ6fp6pUiFD0795er6TZsZp7sWE8tRt5OXrWvkQcs+CX3HY0v RR4aIxaWph5wZTwkR9XoMXIRQqeOBniAgsBAWxhPGbL+Te6i98oDWE875BEG y5Gefwr3kpQnvIyoPiYiUYU0b259TrjhCSzXJZjDnlYhNRmTcDFfTxAQJM2u vlSN5MkvTIfUe4Jo1wvhIeEadDn2WdZZCS+wlY2YazV9hgRc6FUaDbygruii svPaM8Sj5bdp6e0FDXqUjWb3ahELrbxe1Qsv6P/Sy3X91XN04uHACSXRO2Bz 7jbQ6rxE38vXgz2EveEIP8PTncuNqEOFXt5X2xvSx8cHd3caUd4C4VCImzfk fJeliLRqQtc5oqIfPPEGw48lkgMSzagpiznp8UUfOJWZ48i/04KyJBT0qlV8 QKvV+7GWeyvyGrSnq7PzgW4tE9HGb63oIs3zrPZHPsCeFciUPt2GUqPVCifZ 78J83/RR4dUO5Mbtbj0vexeEbbcOJnm/QWodadwr5nehktlOPISsE5EemCn/ m3sXJCMvj13m6EKOPj61Zxh8gWRyM3Uq9B2StS3uUDvtB1nCr+1drXsR46H3 kTrCfkD+7cX2x+ZetElcUzHS9oMVvnfiPUx9qGJCuscm3g/mV7s/ZIz1IXr9 gcEQSn/I7VZVZXQZQOu/NjOiLvoDVI58bxscQB8SmYzjVfbzOysR/LIfUUi3 3eTDSH845X9Y2IDhE1pWIFmsIwsARYG3T57OfUadMxfKGtkDwGXFkOmg6SAq CFZ16pANgCvtLR9kBgeRwavUtYGgAMATG1uFPUOoRYR/e2UnAMSyRKMrhkZQ OrvRsQu/A+GO7JNeZa0JxHPYONj6WBAcurKcHLcxgSJ2jvpLMgTBYbuxj1c1 JxHM23pME4JA5FetUuDuJHrawGFxOTgIzhLH7LjsphF1zYDpocQgmPDToml9 M40cH4UYjRQEgSdRkmmaawZxJk5qhbQFQXed9WzD0gzKtMmG/sPBcFQ4hMMu ahZtGKtKF9MHg7rH01Dir1mkq70tdpcnGHbUu3Xvmc+h4wQDQTbVYOCMOHjs JsyjoFOnmdzjgoGS1Z5h9NQisnl1/+9J2hAwnfPpjaRaRm01khuzF0Ig5GPB 2uu0ZcRSsrj+UjQEen3DN9ZYV9BIotI3c4MQiPIaWLGUXkXqtgeHq7NCYJu6 lXCi/QcSofF9rsUWCglHW76tKf5ECRS8NReEQ8EkvyNELfsnWtkdqtiSCwVO I0mbj+s/UcmCaFG+VSiEnq2M8Cb+QudfryetlYQCKbWJvT3NH3TAzt4tQTAM jjB7i3Vd2kIn0rNXFHAY7IkH1pglbaHzb7odttXDQGkuePXixhYSuSBsbeEc BjpFjMu2LdvIauqv0ZWKMGAKKMl8b7ODOg1j5Yd5wyGA5Zlex4899DGysTlW MhySrmqwbQuT4KkXa0hWJRyW/C55ybqS4G3a6xJlduHQW5lqtvyNBPP1Mwn4 l4RDv2Pt7uACKX6gUkXHyhkBVGPMo1YUZDjbZzr505UIIA/oedKrQYZLSk6f ilaIgDS59oJD6WS46ZAP5U/LCCAj8hWP8JLj9RYZ0nZiBETXJP/VNjqEr0sN fLNlvQeTl2USj01TYAa+P6+qGCKh7PjJKe38Ezg9uO1TLX8k/ONqjjp0ggqf HkxcrkeRQP7y0u9lXypMGSLI2G4WCVwvjdmr+anx30Fbv+HCSMi10wxMPn0S j4SOSh7gj4KVc7BDIKXB14dLtQ+jKLjPF5/RL0OD+wW87Sk1ovb3+7nGmVAa /Hb4dOYZtyh4aTacXHX4NK4XVN/irY0CU7KxHv2ztDhjtOmFDiEauOYCS6pv 0uHTQg96DNSjwcA4w266jA7HR5jMm9yMBtNzOQbDm3Q4Umj7jG1wNBAd5juZ U+ix9z1hL7/2aNAXNsqSGDyLDYSLRYqu3YcXTr7tOyEM+Mz9+9V/TGLgQQKR mkyWFYe8ltQpd46BLKsO7tOerHh5bfGXeWAMNItvDGaXsOI2A2XxD3kxUDg9 pXn+JBt25yRvJM7EgDjZTYmv82y4uzngvaZdLLwTG42wquDAkr/5nQ/djYXn fMTzVgscuIh7jKohOhYuK9dSfWe/gP0eSOlwlcdCZVPf49jsC5jXZHN4dyUW mNdithSTOXH4ptv8Y484+Cqy9VI/hxv/uMgaZRYeB9Z7lCO809zY+GYv75nU OBDaqudI4uTBlzsEnINfxMHlMPKTXNU8eDLp+y/97ThQ+8J+684HXiwtaHWA POgBFPP8U0xl58fbl8vjnijEw6XCSWkPTiEcaaeQd/daPAQ0DUhVaAhh2rzx agW9eFhqZzS84iOELx0/+WnUMh5+JwzWinwQwtbznucpwuLBbCozeMf7Mu7P wiVmLfGQmBJLd2ZSGD8mG2g+iRPg9qM/ObWrolhcynHgi2ICZFeo/XvOLobb 3chnH6knwBvL85FnDMTw5LgYBTJNANss4XPrzWL4zMtsdXv/BLB6RKLKkymO Q5ysR1v+SwD5ToW1IyaS2Ojz1q/b4okQvbG1In0JYWaWKZ15SISPOqlNgV4I f7XrrDG6mgit4c+4FF4h7LKb6ipjlAhttLOxRmoYh3GILJ3wSwSzIf8pc3HA le7OM6WNicARVs6aYSeDD1DN9E0oJkEK3YTAKKk8fmPw9pKORhLcPrpu/YVf HscUVD/o0E+C1e6333iN5DGdaNC1CtskuCXR4Vj9VB7zmTB23Y1OApvnAnEu 9gr4epl+E213EvitsVEdm1fEZUrvK1X1koHoShx/xKyClQU81QVNkkEzof28 v7YKnjvNtHLKKhkw1N/ID1fBLNMu/CMeyZDzB3SHllRwsh9NuW1yMvht2Sgf bVTFftVGpeEDyWBFFs3f634Nq51fJDZqpcADLT52mVhNvEiaKEc0TAH56oKm jTJNHLEgORNhngIRMydmR99q4qbaGDZ1txQ4mU4fy39EC4toXsr/Ep8CYmPq 3/7e08IM4XdytnpSYGwkaNAtThsvr5BnCKunAusS25XLTbo4RD7Xf1UvFf5t nHkk/1UXn8kUv1VmkgoJn98IRVHoYVBwuMjulAqksb/MS7X0cHJW76tTMalg QuK2qDqnhyWVs6bXuvb7cbR9Vzqrj+/lX+KrUkiD9crbv1MeGWKGjS5qx2tp 0GgUIKbTb4ir1Cx+c+mlgRdrsfHVXUM8spHyOtcyDd4tqgtP6RhhAfW/mg9C 0yClWUuj/eAN/HG73dO5OQ0YW2pKEpyNMavujUY+QjoUbRQvfHK7iVcaZNfi FdLhNV9ZuV3JTVx/gZf997V0cPXLZLo6cRPrbmxGvDJNh3UWB/Y/nGY4IjNV XT0oHQZtvbis08zwt8m+MZfWdBDYZk7IDjTHT52Ud2quZoAF2RGOIGcLHPRZ UIBOOwO4ln8xDMRZYDVMZ+ZrlAGOmp3HtJ5Y4DnquVY5hwzY/1O8un9YYPpn ofc/xmSAVOdt4Y+elthv+/W5Pz0Z8DmRUUMo0gor3LsiIXE9EwYEbm7b9Njg bzHjZcdNM0Eipuf91LoNjku8xzRtlQmjMt2j4Wds8eeHwwfve2aC1kMpxWum ttj2mX/3l+RMOPcfk9vYqi2Onmq3CBrIhGUZ6vsc5+1xr9T1uDeaWfB6r+ij SZIj9pDZI8k2yAKV6Xvf7Boc8VmlktuuZlmg1KnAVDTriG9pbxucdc2Cr74B waXiTvinbQ67w4MsaNM9U7Yy6YTPpM7VnejOArKKn95xki74xg+vGT3VbDDn 5WApPOKGxY84E/t1suGGrYiADLsbPs1mZaFhnA0HqY+S7kq74fc6OjPKTtng LD9o0efqhqVfCM5IPciGQBp9nh/DbpghYGGadSAbHAziFZhq3PH4MaPpZaOH QMpb00zm64HrObQK7C0egrMIh3Z1ugdOJSjfmnd4CK4zi4Sg5x5Y3UV0etLv IWw8eZYTvu6BG/tPTQ/kPATJ0KV3Qo6eOC/j3dTL6Yeg/+ONLK+1FzbnIkyF 2+dA9LsQorunNxZ5wjE34p4D9gc7pMjTvDGFGOV3Qd8cqP6d96ihzhtXKY7+ Gr6fA2VWhNuZO96YxNqHQqAiBwZCY/hpI3xwTmGt4OfVHDCc+kvClncXf2EV COD0zIVALwbO22t+uKqUNtTXPxfeSC/QfaHzx2FCu/d6w3NBRlmowwn5Yz6Z 9wl3U3NhS6Nj+FiMP/Y1sy/qfpELI4rRDqI8AfhcbvF7r+1cuENqOmfuEIj5 4h7EzuA8CNcqTN09HIxDWCwvdcjlQfbpoQYLhmA8VCM+UKKUB/cfidiPXQrG oYNT9M4aebCe4ZV4zCgYj7CIFG6a5kGdwVaBbkUwjno6VH88IA88v09zF+uH 4Lkh1gWxhjw4XqqiXfZfKJZ2+BN9rikPkniHD+b0h+LE3bf8u615MM749Ujx YihGbB63W97lQcvMtPofujCc4tDxT200Dzh3BUwzPMOw/D972lvbeWBPefz5 H5FwnM/+TDZGPB/qe+8MebdF4MRGQcpW6Xxg7cyoN5+MwGE3yj5tQT5YCy// stqJwLZJBbY2V/PBbsS/pUnkHhY4mBAna5QPYW0tv5uL7+GGaaeRTd98IDjQ BJPFR+KhfC53q8Z8iJbe1D3nHY1PsGTlI8UCKL22zHuRGIcdo+/c51cpALUd uyWhtjjc9UvHk0G9AFYy/7HpzcbhsC7Kq9t6BaDrsyG+xvUA/3UP+FFrVQAN lhmUIZUP8EK7OeYPL4A7JfTK983icbMD99j5tgKwHvymqhSQgD1e1NJvyRDh YdfEG++FJOx8UYJHWpEIdIFJ56L/JWGb3AaJQBUiTESWbleeTsZG91qNyHWI 4GW2miosk4xBvy/7pCUREvXflPNkJWPKjSUW3ggiSB2qf/NROwUTRTl4brwl wt872v+F9qXi/tpEiVfahXBN7csApsrEyuZxjkvXCyFeq6yIiTcTv6KMzj1/ oxAUvl56SKOQiUssgsnvWhRCpgejCPhmYv+Trn2iHoVQcnghuGghE3M7XbOr Sincv4d5npa/ycIBHBQZxKFC0FALU6BKe4h5kvw3o0yLYGSpwYy9MQ8fPT6i 6narCNjoaF94dOfhpQjRXAPrIri63QF9Y3m48u6qApdzEbwqfHOofCcPC98y T2rzL4K0yyVHFiXzMUFIQWAvuwiWg4h6ES/zsVYPpaXHaBFsC/zs92kswD7H sntMDYrBffUOfrxaiP/E5V7NNC6GvG+MMeEHi7DHKWLrJ7NiaCWOzrnQFWHn s49fqNkVg7Dr8IIbLsK3uOpyJe/u138QouKLL8Kqch9dzmQXQ+TfdPcgkWLM 6EtJ3T1RDMWLZaVzkY9w8zc/TYLNI4g0YNHOvvUYH7BKWGS3LIFyCkOxGfEq LPX6KQuNcSm8ybneFFT7FDsFpJNS2j2GIPJJ602OOpw2XLVNaVkGEy/XAl9u NuD6rPsP6TzK4Wcev9er8Gb8SdpjnDewAvrO2EuUbLfhRe94MUXvSoh/Nbe0 Ut6Jf593kXSIeALhWzy3pWQ+4N3yJl41mSqI7B8vM6Pqw77/aR6eb6iCrO4S hmeNA9hzt7nukFw1lGu2RJ08OoiXKK958TZVg9mO0t6g/wie0HhJMaBUA69P Wdg4VI1jdTP8KLCjBt76ST10iprCkmbvk6tknwJPWrcX/9IMLkiS1LfuegrM FyQmSd7P4YjklgssSs/g/UiuH3P7Ip7rvNhl2vMM7IMX1YL1lnHrUtZ/rHq1 YJBMYmqT+QMzjF+oX+irBa16Qc2K1HW8diAhVsTwObBqRH1J+vkLy/2mdQob fA5nHjiQWJhu4JOD+VkGOi9g+aKBmejPLXxj6URu9fALeNHbmLlEsotZe1Iq T+jXwezNDN744yRgObub+GO8DkQbImjzp0hh7odpH8lEHRRNRd8d3bfdTiPV yX2HpHBN0k6TgjNNSIzQvi9W8FZE79tb5lCE+77JX+mre8yQQszDEz6/9q1m qV6hNEsKz/SYb25O1gHrv9qxlQVSEDUPekgxVQe+It16PIuk8NJxapR+30VM gd0W+34dSjSQ2PcxmrLmoX13VnNp3933ePbFJy3fSOHL8UsKO/v2lOwtTl0i BdOzCaGU03UwJuHB3bfvKY71ZoZ9d+1VPT62vD+P1DNE2Pe7mV9VQfv+YScu HrBvEf7iNvsVUnD3zPCK2/f1YGrVon3/Dtp+lrNvnSKa/ol9b6c1CDXu+575 1yndVVLwIzK69uybZqfa/sG+/1UGVE7sm8OB/lfXvoPqJ5ZW973whC6A7Acp HOyAiyQzdRD77gkF3vf/ACbhn94= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->None, AxesOrigin->{0, 0}, Frame->True, FrameLabel->{ FormBox[ StyleBox[ "\"Radius, km\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Binding Energy, J\[Times]\\!\\(\\*SuperscriptBox[\\(10\\), \ \\(32\\)]\\)\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"-Gravitational Binding Energy of the Earth as a Function of Distance \ From Center\"", Bold, FontSize -> 16, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, FrameStyle->{{ Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}, { Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}}, ImageSize->{1131., Automatic}, PlotRange->{{0, 6371.000790009154}, {0, 2.4}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.4360530678255053`*^9, 3.4360531052788706`*^9, 3.436053257623595*^9, 3.436053290342555*^9, 3.436053379905628*^9, 3.4360534932657285`*^9, 3.436053574469373*^9, 3.436054506194086*^9, 3.436221353671875*^9, 3.436221596734375*^9, 3.436221853109375*^9, 3.43630451559375*^9, 3.436304558625*^9, 3.43630464675*^9, 3.436304684234375*^9, { 3.43630478084375*^9, 3.43630479821875*^9}, 3.436304869984375*^9, { 3.43630490578125*^9, 3.4363049541875*^9}}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["The Moon's Gravitational Binding Energy", "Subsubsection", CellChangeTimes->{{3.43293983376475*^9, 3.43293983820225*^9}, { 3.432939966374125*^9, 3.432939971217875*^9}, {3.43294088670225*^9, 3.4329408904835*^9}, {3.433072854280375*^9, 3.433072858749125*^9}, { 3.43309238188975*^9, 3.433092382624125*^9}, {3.433213590374125*^9, 3.4332135934835*^9}, {3.433257217467875*^9, 3.433257223296*^9}, { 3.43325739720225*^9, 3.43325739913975*^9}, {3.43340195649975*^9, 3.4334019623435*^9}, {3.4351618452876253`*^9, 3.4351618875220003`*^9}, { 3.4351631608970003`*^9, 3.4351631934907503`*^9}, {3.4351632365376253`*^9, 3.4351632632876253`*^9}, {3.4351635064751253`*^9, 3.4351635095220003`*^9}, 3.435194313453125*^9, {3.43596375158175*^9, 3.435963761972375*^9}, { 3.43621976271875*^9, 3.4362197716875*^9}}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Universal", " ", "gravitational", " ", "constant"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{ SuperscriptBox["m", "3"], "\[CenterDot]", SuperscriptBox["kg", RowBox[{"-", "1"}]], "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "2"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"G", "=", RowBox[{"6.67428", "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Speed", " ", "of", " ", "light"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{"m", "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "1"}]]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"clight", "=", "299792458"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Lunar", " ", "mass"}], ",", " ", "NASA", ",", " ", "kg"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "accepted"], "=", RowBox[{"7.349", "\[Times]", SuperscriptBox["10", "22"]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Lunar", " ", "radii", " ", "in", " ", "meters"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "volumetric"], "=", RowBox[{"1.7371", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "core"], "=", RowBox[{"3.5", "\[Times]", SuperscriptBox["10", "5"]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Average", " ", "lunar", " ", "density"}], ",", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", "avg"], "=", FractionBox[ SubscriptBox["Mass", "accepted"], RowBox[{ FractionBox["4", "3"], " ", "\[Pi]", " ", SuperscriptBox[ SubscriptBox["r", "volumetric"], "3"]}]]}], ";"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Average", " ", "lunar", " ", "core", " ", "density"}], ",", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", "core"], "=", "7200."}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Find", " ", "average", " ", "density", " ", "of", " ", "lunar", " ", "mantle"}], ",", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", "mantle"], "=", FractionBox[ RowBox[{ SubscriptBox["Mass", "accepted"], "-", RowBox[{ SubscriptBox["\[Rho]", "core"], " ", FractionBox["4", "3"], " ", "\[Pi]", " ", SuperscriptBox[ SubscriptBox["r", "core"], "3"]}]}], RowBox[{ FractionBox["4", "3"], " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["r", "volumetric"], "3"], "-", SuperscriptBox[ SubscriptBox["r", "core"], "3"]}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["\[Rho]", "core"], ",", "\"\< kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["\[Rho]", "mantle"], ",", "\"\< kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["\[Rho]", "avg"], ",", "\"\< kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Quadratic", " ", "density", " ", "function", " ", "constants"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"{", RowBox[{"0", ",", "\[IndentingNewLine]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{"{", RowBox[{"0", ",", "\[IndentingNewLine]", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ SubscriptBox["\[Rho]", "core"], ",", "\[IndentingNewLine]", SubscriptBox["\[Rho]", "mantle"]}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"{", RowBox[{ SubscriptBox["r", "core"], ",", "\[IndentingNewLine]", SubscriptBox["r", "volumetric"]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "=", "0"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "potential", " ", "energy", " ", "at", " ", "r", " ", "using", " ", "average", " ", "density"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "gavg"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{"-", FractionBox["16", "15"]}], "G", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ SubscriptBox["\[Rho]", "avg"], "2"], " ", SuperscriptBox["R", "5"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "bindavg"], "[", "R_", "]"}], ":=", RowBox[{ SubscriptBox["U", "gavg"], "[", "R", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "potential", " ", "energy", " ", "at", " ", "r", " ", "using", " ", "manual", " ", "integration"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ui", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ui", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{ RowBox[{"-", SuperscriptBox["\[Pi]", "2"]}], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "9"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "8"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "7"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "6"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "^", "5"}], "-", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "5"}]}], ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[Pi]", "2"]}], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "0", "]"}], "]"}], "\[LessEqual]", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "g"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"Ui", "[", RowBox[{"[", "1", "]"}], "]"}], "-", RowBox[{ SuperscriptBox["\[Pi]", "2"], " ", "G", " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["16", "27"], " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "9"}], "-", RowBox[{"R", "^", "9"}]}], ")"}]}], "+", RowBox[{ FractionBox["4", "3"], " ", RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "8"}], "-", RowBox[{"R", "^", "8"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "21"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"a", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "7"}], "-", RowBox[{"R", "^", "7"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "9"], " ", RowBox[{"b", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "6"}], "-", RowBox[{"R", "^", "6"}]}], ")"}]}], "+", RowBox[{ FractionBox["16", "15"], " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "5"}], "-", RowBox[{"R", "^", "5"}]}], ")"}]}]}], ")"}]}]}], "/;", RowBox[{ RowBox[{"h", "[", RowBox[{"[", "1", "]"}], "]"}], "\[LessEqual]", "R", "\[LessEqual]", " ", RowBox[{"h", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "bind"], "[", "R_", "]"}], ":=", RowBox[{"-", RowBox[{ SubscriptBox["U", "g"], "[", "R", "]"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"E1", "=", RowBox[{ SubscriptBox["E", "bindavg"], "[", SubscriptBox["r", "volumetric"], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"E2", "=", RowBox[{ SubscriptBox["E", "bind"], "[", SubscriptBox["r", "volumetric"], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"M1", "=", FractionBox[ RowBox[{"-", "E1"}], SuperscriptBox["clight", "2"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M2", "=", FractionBox[ RowBox[{"-", "E2"}], SuperscriptBox["clight", "2"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", FractionBox["M1", SubscriptBox["Mass", "accepted"]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F2", "=", FractionBox["M2", SubscriptBox["Mass", "accepted"]]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "E1", ",", "\"\< J.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "M1", ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "F1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "E2", ",", "\"\< J.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "M2", ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "F2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ FractionBox[ RowBox[{"E1", "-", "E2"}], "E2"], " ", "100"}], ",", "\"\<%.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", "bind"], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "29"}]]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", "bindavg"], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "29"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], " ", SubscriptBox["r", "volumetric"]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.4"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".7"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"GridLines", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"RotateLabel", "\[Rule]", " ", "True"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<-Gravitational Binding Energy of the Moon as a Function of \ Distance From Center\>\"", ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", "\"\<\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4151432581705*^9, 3.415143280248625*^9}, { 3.415143735498625*^9, 3.415143963529875*^9}, {3.415144027811125*^9, 3.41514410826425*^9}, {3.41514415145175*^9, 3.41514415301425*^9}, { 3.415144195686125*^9, 3.4151443547955*^9}, 3.415144387498625*^9, { 3.415144555092375*^9, 3.415144555498625*^9}, {3.41514461920175*^9, 3.41514465657675*^9}, {3.415145144092375*^9, 3.41514514576425*^9}, { 3.41514553701425*^9, 3.415145553233*^9}, 3.41514581395175*^9, 3.41514586288925*^9, {3.415145933983*^9, 3.415145948311125*^9}, { 3.415145992936125*^9, 3.415146023842375*^9}, {3.415146125373625*^9, 3.4151461340455*^9}, {3.4151461722955*^9, 3.415146317217375*^9}, { 3.415146365904875*^9, 3.415146406936125*^9}, {3.415146469608*^9, 3.415146764248625*^9}, {3.41514679832675*^9, 3.415146820858*^9}, { 3.415146852858*^9, 3.41514685663925*^9}, {3.415146915279875*^9, 3.415146942608*^9}, {3.415147084061125*^9, 3.41514708426425*^9}, { 3.415147116733*^9, 3.415147244092375*^9}, {3.415147277592375*^9, 3.415147334717375*^9}, {3.41514740613925*^9, 3.41514742532675*^9}, { 3.415147457717375*^9, 3.415147470733*^9}, {3.4151486791705*^9, 3.415148804186125*^9}, {3.415148851311125*^9, 3.41514891370175*^9}, { 3.415148948858*^9, 3.415148970404875*^9}, {3.415313511436125*^9, 3.4153135340455*^9}, {3.41531356588925*^9, 3.415313566483*^9}, { 3.415315647529875*^9, 3.415315648061125*^9}, {3.41531568507675*^9, 3.415315849858*^9}, {3.415315896123625*^9, 3.415315903404875*^9}, { 3.415315944248625*^9, 3.4153159945455*^9}, {3.415316042311125*^9, 3.4153160762955*^9}, {3.415316122686125*^9, 3.415316257608*^9}, { 3.415316294561125*^9, 3.4153163171705*^9}, {3.415316371498625*^9, 3.415316382998625*^9}, {3.4153164194205*^9, 3.415316439967375*^9}, { 3.415316664123625*^9, 3.415316694467375*^9}, {3.415316725279875*^9, 3.415316899108*^9}, {3.41531693113925*^9, 3.41531697988925*^9}, { 3.4153170635455*^9, 3.415317155873625*^9}, {3.415317403717375*^9, 3.4153174250455*^9}, {3.4153174569205*^9, 3.415317485779875*^9}, { 3.4153175246705*^9, 3.415317554311125*^9}, {3.415317744733*^9, 3.415317802123625*^9}, {3.415317914592375*^9, 3.415317948311125*^9}, { 3.41531798038925*^9, 3.4153180349205*^9}, {3.415318079233*^9, 3.41531826088925*^9}, {3.41531832707675*^9, 3.415318347936125*^9}, { 3.4153183847955*^9, 3.415318397311125*^9}, {3.4153195572955*^9, 3.415319974904875*^9}, {3.415320027983*^9, 3.415320033186125*^9}, { 3.4157398525385*^9, 3.415739906241625*^9}, {3.415739945179125*^9, 3.415739981460375*^9}, {3.415740030491625*^9, 3.415740036804125*^9}, { 3.4157401115385*^9, 3.415740120429125*^9}, {3.415740226710375*^9, 3.41574025481975*^9}, {3.41574029169475*^9, 3.415740364522875*^9}, { 3.41574039869475*^9, 3.415740484897875*^9}, {3.41574060150725*^9, 3.415740666522875*^9}, {3.415740775460375*^9, 3.4157407827885*^9}, { 3.4157408220385*^9, 3.415740908710375*^9}, {3.415740971054125*^9, 3.41574103719475*^9}, {3.415741108491625*^9, 3.41574125781975*^9}, { 3.415741319460375*^9, 3.41574135775725*^9}, {3.41574140519475*^9, 3.415741465397875*^9}, {3.415741499054125*^9, 3.415741666226*^9}, { 3.4157417592885*^9, 3.415741788397875*^9}, {3.4157418529135*^9, 3.41574185300725*^9}, {3.415742240976*^9, 3.41574224931975*^9}, { 3.4157424064135*^9, 3.415742409585375*^9}, {3.4157424411635*^9, 3.415742441522875*^9}, {3.415742636804125*^9, 3.415742649647875*^9}, { 3.415742909054125*^9, 3.415742970226*^9}, {3.415743010351*^9, 3.415743015241625*^9}, {3.415743068976*^9, 3.415743072679125*^9}, { 3.415743111226*^9, 3.41574313063225*^9}, {3.415743165304125*^9, 3.415743573226*^9}, {3.4157436059135*^9, 3.415743606554125*^9}, { 3.4157436595385*^9, 3.415743659679125*^9}, {3.41574369713225*^9, 3.415743830616625*^9}, {3.41574387694475*^9, 3.415744126647875*^9}, { 3.415744246226*^9, 3.415744256429125*^9}, {3.415744363241625*^9, 3.415744384960375*^9}, {3.415744415022875*^9, 3.41574442350725*^9}, { 3.415744825726*^9, 3.415744864101*^9}, {3.415744901460375*^9, 3.4157450905385*^9}, {3.41574517963225*^9, 3.41574518256975*^9}, { 3.415745281335375*^9, 3.415745483460375*^9}, {3.415745696804125*^9, 3.4157458481635*^9}, {3.415745926835375*^9, 3.41574599725725*^9}, { 3.415746027272875*^9, 3.41574605731975*^9}, {3.41574610781975*^9, 3.415746216601*^9}, {3.415746248866625*^9, 3.415746291429125*^9}, { 3.41574633794475*^9, 3.415746361366625*^9}, {3.415746400179125*^9, 3.415746421351*^9}, {3.415746481866625*^9, 3.415746550179125*^9}, { 3.41574660338225*^9, 3.415746632351*^9}, {3.415746742679125*^9, 3.415746771241625*^9}, {3.4158477821635*^9, 3.415847831022875*^9}, { 3.43233258425*^9, 3.432332585453125*^9}, {3.4328536594370375`*^9, 3.4328537437182875`*^9}, 3.4328538140620375`*^9, {3.4328540028901625`*^9, 3.4328540557651625`*^9}, {3.4328540917026625`*^9, 3.4328541628901625`*^9}, {3.4328542064370375`*^9, 3.4328542161401625`*^9}, {3.4328542732026625`*^9, 3.4328542738901625`*^9}, {3.4328543834995375`*^9, 3.4328544954214125`*^9}, {3.4328545378901625`*^9, 3.4328545573901625`*^9}, 3.4328547634526625`*^9, 3.4328566647182875`*^9, 3.4328570056557875`*^9, { 3.4328573263589125`*^9, 3.4328573264214125`*^9}, {3.4328573705307875`*^9, 3.4328573824682875`*^9}, {3.4329395228585*^9, 3.432939523124125*^9}, { 3.432939564546*^9, 3.432939577796*^9}, {3.4329396704835*^9, 3.432939679186625*^9}, {3.432940081905375*^9, 3.432940084811625*^9}, { 3.432940117936625*^9, 3.432940118124125*^9}, {3.432940290921*^9, 3.43294030032725*^9}, {3.43294033320225*^9, 3.432940370999125*^9}, { 3.4332134389835*^9, 3.4332134913585*^9}, {3.433213694936625*^9, 3.433213695311625*^9}, {3.433251165342875*^9, 3.433251200921*^9}, { 3.433251233499125*^9, 3.433251292280375*^9}, {3.43325132357725*^9, 3.433251376780375*^9}, {3.433251417030375*^9, 3.433251477780375*^9}, 3.433251539749125*^9, {3.4332515706085*^9, 3.433251618311625*^9}, { 3.433252413311625*^9, 3.433252432061625*^9}, {3.43325249457725*^9, 3.4332525241085*^9}, {3.433252566999125*^9, 3.433252574092875*^9}, { 3.433252647061625*^9, 3.43325269332725*^9}, {3.433252740467875*^9, 3.433252906655375*^9}, {3.433253090671*^9, 3.43325309820225*^9}, { 3.433253160624125*^9, 3.433253162686625*^9}, 3.433253218374125*^9, { 3.433253361874125*^9, 3.4332534433585*^9}, {3.43325355745225*^9, 3.433253577155375*^9}, 3.433253756171*^9, 3.433253978421*^9, { 3.433254213436625*^9, 3.433254316796*^9}, {3.433254718671*^9, 3.433254823671*^9}, {3.433255740155375*^9, 3.433255745905375*^9}, { 3.4351579063345003`*^9, 3.4351579077251253`*^9}, {3.4351581534126253`*^9, 3.4351581868188753`*^9}, {3.4351584804595003`*^9, 3.4351585840220003`*^9}, 3.4351586500220003`*^9, 3.4351588368501253`*^9, {3.4351588783813753`*^9, 3.4351588837563753`*^9}, {3.4351593235220003`*^9, 3.4351593235688753`*^9}, 3.4351599950688753`*^9, {3.4351601616157503`*^9, 3.4351601872095003`*^9}, { 3.4351603666626253`*^9, 3.4351603710063753`*^9}, {3.4351604173970003`*^9, 3.4351604485845003`*^9}, {3.4351605747876253`*^9, 3.4351605809907503`*^9}, {3.4351607186001253`*^9, 3.4351607259595003`*^9}, {3.4351608612251253`*^9, 3.4351608666626253`*^9}, {3.4351610629126253`*^9, 3.4351611229282503`*^9}, {3.4351611794438753`*^9, 3.4351611832563753`*^9}, {3.4351612466157503`*^9, 3.4351612701313753`*^9}, 3.4351613522876253`*^9, {3.4351615375845003`*^9, 3.4351615414907503`*^9}, { 3.4351619087407503`*^9, 3.4351619143970003`*^9}, 3.4351624680532503`*^9, { 3.4351625358970003`*^9, 3.4351625363032503`*^9}, {3.4351648659282503`*^9, 3.4351648696001253`*^9}, {3.4351649589595003`*^9, 3.4351649805063753`*^9}, 3.435192731640625*^9, {3.435192815984375*^9, 3.435192827234375*^9}, { 3.435192910578125*^9, 3.43519292721875*^9}, {3.43519301753125*^9, 3.435193018*^9}, {3.43519313421875*^9, 3.435193153828125*^9}, { 3.43519319521875*^9, 3.435193232625*^9}, {3.435193279453125*^9, 3.43519329309375*^9}, {3.43519333915625*^9, 3.435193371484375*^9}, { 3.435193604984375*^9, 3.43519360771875*^9}, {3.435193738734375*^9, 3.43519377690625*^9}, {3.435193814046875*^9, 3.435193897234375*^9}, { 3.435193991125*^9, 3.435193991453125*^9}, 3.435194170046875*^9, { 3.435195459015625*^9, 3.435195459140625*^9}, {3.435195714578125*^9, 3.4351959233125*^9}, 3.435195979625*^9, 3.4351960373125*^9, 3.435197193125*^9, {3.435965303816125*^9, 3.435965432566125*^9}, { 3.435965464097375*^9, 3.435965509863*^9}, {3.4359655661755*^9, 3.435965615238*^9}, {3.435965659784875*^9, 3.435965660253625*^9}, { 3.435965946816125*^9, 3.435965998113*^9}, {3.43596611983175*^9, 3.4359661540505*^9}, {3.435966185441125*^9, 3.4359661855505*^9}, { 3.435966220972375*^9, 3.435966247941125*^9}, {3.435966294784875*^9, 3.435966321753625*^9}, {3.435966420347375*^9, 3.435966460972375*^9}, { 3.435966494222375*^9, 3.435966543909875*^9}, {3.43596664045675*^9, 3.435966698441125*^9}, {3.435966737066125*^9, 3.4359667689255*^9}, 3.4359668678005*^9, {3.435966898441125*^9, 3.43596692058175*^9}, { 3.435966972284875*^9, 3.435966989847375*^9}, {3.43596708051925*^9, 3.43596711333175*^9}, {3.43596721408175*^9, 3.435967224597375*^9}, { 3.435967266441125*^9, 3.43596729264425*^9}, {3.43596745458175*^9, 3.435967510128625*^9}, {3.435967545784875*^9, 3.43596764820675*^9}, { 3.4359678761755*^9, 3.435967961613*^9}, {3.435968034816125*^9, 3.435968164472375*^9}, {3.435968205159875*^9, 3.43596822689425*^9}, 3.435968363847375*^9, {3.43596842008175*^9, 3.43596850633175*^9}, { 3.435968683378625*^9, 3.435968687222375*^9}, {3.435968778472375*^9, 3.435968819222375*^9}, {3.435970113316125*^9, 3.435970147253625*^9}, { 3.435970231378625*^9, 3.435970233472375*^9}, 3.43597026914425*^9, { 3.4359704078005*^9, 3.435970417472375*^9}, {3.435970448847375*^9, 3.43597045001925*^9}, {3.435970488738*^9, 3.435970562238*^9}, { 3.435970595566125*^9, 3.4359706724255*^9}, {3.435970715238*^9, 3.435970717816125*^9}, {3.4359707521755*^9, 3.435970793941125*^9}, { 3.435970936784875*^9, 3.435971030566125*^9}, {3.43597110420675*^9, 3.435971106738*^9}, {3.435971189722375*^9, 3.435971408363*^9}, { 3.43597145283175*^9, 3.435971462363*^9}, {3.4359717283005*^9, 3.435971775941125*^9}, {3.435971825941125*^9, 3.435971859128625*^9}, { 3.435971898409875*^9, 3.43597191689425*^9}, 3.43597194851925*^9, { 3.435972804253625*^9, 3.435972828878625*^9}, {3.436044976238737*^9, 3.43604559567647*^9}, {3.4360456996947575`*^9, 3.4360457111325502`*^9}, { 3.4360458341044483`*^9, 3.4360458403858585`*^9}, {3.436045871230398*^9, 3.436045999843066*^9}, {3.4360460476255393`*^9, 3.436046069251093*^9}, { 3.436046101220661*^9, 3.436046179425788*^9}, {3.4360463053821373`*^9, 3.4360466713133802`*^9}, 3.436046849051474*^9, {3.4360469451158185`*^9, 3.436046994476141*^9}, {3.4360470249767265`*^9, 3.4360470397426353`*^9}, { 3.4360470892435856`*^9, 3.436047104009494*^9}, {3.436047333201394*^9, 3.4360473461235175`*^9}, {3.436047378280385*^9, 3.4360473959682245`*^9}, { 3.4360474579381647`*^9, 3.43604746211012*^9}, {3.4360475010171165`*^9, 3.436047510361046*^9}, {3.4360477710064974`*^9, 3.4360478119288964`*^9}, { 3.436047879461011*^9, 3.4360478897580175`*^9}, {3.436047971337187*^9, 3.4360479868061347`*^9}, {3.436048070869711*^9, 3.4360481244641466`*^9}, { 3.436048170120981*^9, 3.4360483421700583`*^9}, {3.436048389733167*^9, 3.436048495718899*^9}, {3.4360502717572565`*^9, 3.4360505472295327`*^9}, { 3.436050579995577*^9, 3.436050817889231*^9}, {3.43605084971756*^9, 3.4360509092648163`*^9}, {3.436050973999605*^9, 3.4360509989685154`*^9}, 3.4360510582501445`*^9, {3.436051122109928*^9, 3.436051150469485*^9}, { 3.4360512093761115`*^9, 3.4360512172824125`*^9}, {3.436051256938916*^9, 3.436051257454544*^9}, {3.436051462846484*^9, 3.4360514745965595`*^9}, { 3.4360515579564676`*^9, 3.4360515847222643`*^9}, {3.4360516810353804`*^9, 3.4360517129574594`*^9}, {3.436051804426795*^9, 3.4360518082393193`*^9}, { 3.4360518416614084`*^9, 3.436051845786435*^9}, {3.4360518919742303`*^9, 3.4360519910842395`*^9}, {3.436052043662701*^9, 3.43605228958615*^9}, { 3.436052325414504*^9, 3.4360530465284944`*^9}, {3.4360530934350443`*^9, 3.436053103966362*^9}, {3.4360531408728485`*^9, 3.436053170482413*^9}, { 3.4360532186858463`*^9, 3.4360532537329454`*^9}, 3.4360532850456457`*^9, { 3.436053338561613*^9, 3.436053347983549*^9}, {3.436053480343771*^9, 3.436053489781331*^9}, {3.4360545018659334`*^9, 3.436054502475312*^9}, { 3.436054906524773*^9, 3.4360549084622855`*^9}, {3.4360582982813606`*^9, 3.436058326328235*^9}, {3.436219781921875*^9, 3.436219857125*^9}, { 3.4362199093125*^9, 3.436220123578125*^9}, {3.436220334703125*^9, 3.436220624296875*^9}, {3.436220668140625*^9, 3.436220736921875*^9}, { 3.436220900296875*^9, 3.436220902875*^9}, {3.4362209411875*^9, 3.436221007703125*^9}, {3.436221097859375*^9, 3.436221098484375*^9}, { 3.4362211419375*^9, 3.43622133225*^9}, 3.4362214036875*^9, { 3.436221450515625*^9, 3.436221506125*^9}, {3.436221558515625*^9, 3.436221569*^9}, {3.43622161340625*^9, 3.436221649359375*^9}, { 3.43622174975*^9, 3.43622175028125*^9}, {3.4362218735*^9, 3.43622188878125*^9}, {3.4362219260625*^9, 3.4362219801875*^9}, { 3.436222075703125*^9, 3.4362221303125*^9}, {3.436222294609375*^9, 3.436222311359375*^9}, {3.436222346640625*^9, 3.436222347984375*^9}, { 3.436323591640625*^9, 3.436323641265625*^9}, {3.43632380625*^9, 3.436323851296875*^9}, {3.43632389559375*^9, 3.43632398659375*^9}, { 3.43632412428125*^9, 3.436324150921875*^9}, {3.43632440978125*^9, 3.43632444959375*^9}, {3.436324491203125*^9, 3.436324642859375*^9}, { 3.43632479378125*^9, 3.436324795703125*^9}, {3.436325008265625*^9, 3.436325045640625*^9}, {3.43632541128125*^9, 3.4363254215*^9}, { 3.436325808140625*^9, 3.436325828421875*^9}, {3.436325949078125*^9, 3.436325958703125*^9}, 3.436326417703125*^9, {3.436370899578125*^9, 3.436370923015625*^9}}, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The lunar core average density is \"\>", "\[InvisibleSpace]", "7200.`", "\[InvisibleSpace]", "\<\" kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \ \\(-3\\)]\\)\"\>"}], SequenceForm[ "The lunar core average density is ", 7200., " kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)"], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923765625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The lunar mantle average density is \"\>", "\[InvisibleSpace]", "3315.297809207981`", "\[InvisibleSpace]", "\<\" kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \ \\(-3\\)]\\)\"\>"}], SequenceForm[ "The lunar mantle average density is ", 3315.297809207981, " kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)"], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.43637092378125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The lunar average density is \"\>", "\[InvisibleSpace]", "3347.0729440851333`", "\[InvisibleSpace]", "\<\" kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \ \\(-3\\)]\\)\"\>"}], SequenceForm[ "The lunar average density is ", 3347.0729440851333`, " kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)"], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923796875*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.4363709238125*^9}], Cell[BoxData["\<\"AVERAGE Density Method:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy is \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.2450515896319611`*^29"}], "\[InvisibleSpace]", "\<\" J.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy is ", -1.2450515896319611`*^29, " J."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.43637092384375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass equivalent is \ \"\>", "\[InvisibleSpace]", "1.3853067209936484`*^12", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy mass equivalent is ", 1.3853067209936484`*^12, " kg."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923859375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass fraction is \"\>", "\[InvisibleSpace]", "1.8850275152995625`*^-11"}], SequenceForm[ "The Moon's gravitational binding energy mass fraction is ", 1.8850275152995625`*^-11], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923875*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923890625*^9}], Cell[BoxData["\<\"DUAL Density Method:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.43637092390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy is \"\>", "\[InvisibleSpace]", RowBox[{"-", "1.223031712915908`*^29"}], "\[InvisibleSpace]", "\<\" J.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy is ", -1.223031712915908*^29, " J."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923921875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass equivalent is \ \"\>", "\[InvisibleSpace]", "1.360806303931238`*^12", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy mass equivalent is ", 1.360806303931238*^12, " kg."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.4363709239375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass fraction is \"\>", "\[InvisibleSpace]", "1.8516890786926633`*^-11"}], SequenceForm[ "The Moon's gravitational binding energy mass fraction is ", 1.8516890786926633`*^-11], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923953125*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.43637092396875*^9}], Cell[BoxData["\<\"DIFFERENCE Analysis:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370923984375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The relative error in the average density calculations is \ \"\>", "\[InvisibleSpace]", "1.800433830415902`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "The relative error in the average density calculations is ", 1.800433830415902, "%."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370924*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370924015625*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 0.7], Thickness[Tiny], LineBox[CompressedData[" 1:eJwV1Xc0Fn4bBnCUVSojKY+VbJHMxPP93vyskJ2yeRDZe6/HnhkhK0mKEklZ kcxQlEqRSpSdbJnV6/3rOp9zrnP/d5/rOMndwJ6KgoKiiZKC4v/59gDqEcym wj9o4ipm2ghnXNSerz5iGMMZOqqqM7ReiouP3buTGZZwupJnPR9tm+L9jvDs loxNTLPzqzyBY0mxelZdMoiBElxoEn3aaJiJh1Z0j2XqUoPVLccgL7Io0WX7 IkVlBj1UEkNDtTiUiD17rKe6PhwA3sSh+cZQAyILjfSUBwMTaB6TM0ynIRGV 99UP/xFjAdqLGdtdRA+ix0HF14m6rNBwnESWJQcTC5lbWtk82SC07LnTKn8s sfeISk1JxjHILYu/fJIjnbjF3l12+gkBEiVyOD/E5RKFubULmj9wAq2iI+/N 0GLipRP9qVrr3HBfiNB+jXCf2M5yX8mF4TiQX9e0BdBUE4dZXRolOXlBvD/q qrljPXGZTVxmU+wEKH09pvuE2EKkZ1+sfI744DkvB1FVo5PIw1EtFKvLDzc5 aGKOkl8R5bh8irWtBeD7JsWSdMpbog6PLAeLpyCI31P3H+H/SLTn3cj6RBYC O0ZZS8Z7n4khfE8PFWUIQ4Qe92cOjjHiNYGQhMu3ReD4QIXnzPY48b4Q2iP2 RBQefSQ/eR43Q2wToQhd6TgJe6YPfmb7ME/8dLLtd8MHMbiRQGxKC10mLopH e0RMisNmbK+EE/1vIt1ptVm19VPQL+XZE0HYIqYd21tNEy0Bol/O7Jds+0vM Z5+Yv8JwGuikw4NcaKjQXcIL0b7M01DSICX/k5oaVXOUOkpwSsLFao8pbUc6 1MwZf+faHUmYUdbNHJBlQC+5rnz/LSYFt1+MB9wnMqKP3JrcprVSIFfIoc5e xIzGeETNnyFp2KL9SSOvwYrmjjPk8nRJA700u+SAwlG0wfvrQ5SuDDRMj8XS kwloL99r5qlBGbjUfZfvHBc3OsT/UFfTWhauvTIfEE05jtgF0pIrpmXhDiTx CzWfQAKCnj2MnnJgKZER+p5fAEkKGdD4bMpBKOVZxNothIjCUv8Nks9AfN1z pT33RJGR6FrTjQx5ODDmxsrKcRpZn/y4SUE4C4yr5/Ra1iWRs1idrN3ts/DT lUlrdFsa+YnneHeJKoB/4cD+HRE5FHkqsErkiQI8Y9j59yROHl2VMP2VoqgI /hqBUV2HFVHeaQWRpQ5FiGv87bD/A0KPpP7crvtAhJQU0YSEUGXUJD0yym6J oOeZi0qilArqlnnOGTaJgE/3z5QNvRoakC0yHXPDwKowtdFBoYFG5cjXVdYx pJgXafsTNJEfx+nZ9xig5VKxtraZNtopuBVPHQ0wHUd1VrBNB9EWRnY6MihB wpXLxpdpDFDEXM2AsbESlD65EVCVZ4g2zs78UClSAkvnBfYPmheQZwLHiuSs EtRU3A9DRy+i2UFdquPSyqAbIPqbtNcE2QpEMR0KU4ZTcv5snYxm6ItPLc+f LmVYvPRpfgVZoNdMnPiT2X8Q+nd/fe4eG6RurafTdec/8DtXw6dvQEItlVEW NQu7dgnROV9jix5pzQanR6lA/3F6g8bGy0gkjzMpvE8FrJS/MjLbOKLiab08 VzZVEJ+NT/DnckKZMXX158pVQcpakDV2whUdGJjtkltThWZ31b3nl9xRLC/X ID9WA56DbNoPGTxRwPPoNcr3atCydPmRv403WjpQv3eRQx2GGbW07G77ICfz nywjl9XB4ufK+f41X2S2qS/5dEsdYvWca8pfB6AB9RilMhUNsF871uxgHIS0 s+v1sq9qQPj7/DTFpWCEpLjdvXjPQS27qeQ6KRzVkQ3CrF3OwYLlJ/c7NyKQ RH9Mik7tOdgul8zuySQjXte5chFNTWBY5PeKvROF8hu5G49masIrK8uwqefR 6PA+w5c0I5ogOSaY+X4yBtGUNkx/99SCnw/5Sb/N4lH42tx6f6MWmHNuF9OW J6CN/3hon1Nrgy2l1n4TuiQ0MxrLn5+rDewKPgZJCymIdOqpdMIPbaAosa01 CUpFw6G//vMXOw+6DnoPbiWmoV52I5Jh63koa6uWeogyUJXR8Zv7Z3TAIVy/ NJQ5GwnfNqrclNSFjnfjTK7c11HxUtyzqRBd0DPN0yfL5iBN9fVfNnR6kBnz 9IVidB6KnU9buySmB+WRtTmBjfmoPUvkj66BHghvaobT/C1AiuMWDKhAD/gV Y6c0795EAUnrLDKtehDW4JasH1uEaiTTCScn9UC2E0gv8C0kTu4QYZfQh0t/ qnslXxQjbi7Rc7/b9cGbVCLwmf8umhTwkAua1AfCdwk3LYpSVHGqhv8vnQFU tSuzO42VIgUlTEWjYwD0DEvrOvX30EU7w0bWIQOwL5E6x/WsAnG55tzL3TKA 0VtEYfu3lWjC9+t1Tk5DuOr5pqD410PkHefgw08yBJ1jpz0vcT9CqfeDxWTm DCH3e1A9dcljZPy4hdBw0AiYS4yyA/WeIM4m6n3E00awvXgou4iyBpX3pU6q +BnBWl8NlZNXLepavH3TiOICLArZapSnNaCrm9MpQ7wXIIvWvMzP/im6QCUe Yq56Aaq69b634kb0g6X+kl3iBXgeRftIhfoZ+ifby+Rz2Bj23l5zjHZuQS8w E8WGrDEYnKD67ParBaVoGM8HmxgDNXRnJXq1IoLp6MuoQmM4UOz6Oz22DcmF rkZdE7oI3+/5sKUOdqC/MfJebFoXoV1xHh75dKLOq2HW+a4XgbJJoZDM+gIZ FtERb1dfhEyP7HU3Uhdyb+f4Xa14CajaWn8bib5Esr0247JWl0CY+QdqmXqJ /gzcffeUfAnqHSk7SWWvUNKkxMO2F5fgzMuy7izZPlRKr+r4Ts8EFh8yapqr 9KNvuq7DS3am4KSfMGizbwAZM6n6dseaghr+Yn8ieQD1vuNgvFlmCukHH1eS GT+gpxd6VbXnTKGKV7lB8fhHlGkm+uiutxmUHqi/0Gs7hPZx7tEOzTKDl9SX 7mdsDyHyyPCkYZ0ZhL55+Esj+xNys0nkoNw2g+BFvb6qgWGk4TATZxZpDu8e aNwp8fuKmoVaeSVLzIEuf8CZR3AEyczmPKN7YQ6Uf2//nhge2f1fjZUaegvg FZgtQQKjaMer1JIx3QL8Mni7sx6Moaowe5nOm5Ygzo7kHzBNIAEg9ue3WgIa Z/dkjZtANyhZnb1+WIL0s1cDcX8nUGJ0RxG3oBUEuw+evL0yiewSTzAEVVpB 2+Zys8/6NBrW2r6r128FwmnNKVOhM0j/wHslwWUryNE0F8qnmUXcGq0Ks+zW EF5D+2iM6ydieOXhed3SGlikov81OP9CXeVfmiPdrcFt9d4jCup5FJmsweAW YQ1cv9yK24vm0eZ5nlKVYmtgFh7l/fptAU32v/myNGENsOei0A20hFo/imto u9pAE+fc3CDnKtpyevXobrgNZBDkG+/EryLJfw4EygwbmEK2OnJrq6hY8NZ8 Ta0NrB5R5Wh6v4YiA1iyuClI0NORbfzz7jp6ylD1N5CZBIo5S1u+PBtouUjb cYCPBIdVP2os528gUk+MQsI5EpSWi9UO5mwiZfaNseUMEvBt3dH7d38bBVVm ap2/QwLnBkqHFukdVK18uqa0jgSfX/oeKGnZQbzOTvHmX0gQJ9bjMDfyB1E1 fRF/wW8LG8MyfewECtxm0RqcW28LGamrY0/vU+GtJYuJlZe2kKy/4C1PtQdL xm7p6Hy1hXkKmem/pntwcaUU7x4qO6CRqmtxYdyLI//d6XbRsgO3pNYS+SRq rHwrkRVG7CDb5vPgp3Y6HCQjGJ63aAejdAFbEafpcXVP+/QqlT3kDG2dKi+i x7zLO433BO2BpabpTU7UPkz1nzuJxdMe1A446GqaM+D2ccOHk3suQzHhTriR OCNuEVZLpmW9DLI+5PEyV0bc7HbmipDAZfCZX9toq2DE9RscJ5w0LkOhD+sV XQkmXMkwmf0r+TLAdXx1BzHjHOmAsFVWB8h8qOavGX0YZwU6mbEKOgDztyGt of7DOKPZ/IzsGQf4sfB66xwXK07RUFr2N3WAo2cDBkcbWXGk+b7L24UOcH2f ybPDVGzYNbrgPJWQI9w4xx9t3XQMO/VcFTkh7wg5eb8keY6yY8eDZFoVTUeo OsLzftyHHZNy7FtjXByhLYvresxpAr70QFyG/pEjrMqcukOq48DKAy0cjGev gNmvzI6IdW7Mxjfxk1PbCdS81SnePjiBMzjoJiosnWBK1GP89vIJzMAqOkL0 dIKVT5UBivJ8mILGs98i2wkGs2VRZzcfnp7aeXJj1AlijU7n2C7x4/ryw2Gc vs4wnLVOqeMkhCVL5Pwr4pyh5W2RrOozIfygwNSDmOcMaXNsFpxMwrgopYhk 8dwZcuyqiv0bhXGC+0n1G/QugESJV2kIothUSoWRs9AFpq9r9gnTiuMBUQf6 iioXSB9OVd1/RRzr8CVSEdtdIHx92fjnK3GszNq/aj7tAt/clKkfZp7CIutm nwokXeG61FolMVcCbz/1LubocoXad7yW3nqSuED5tjTHohtk7DiFt4nKYrfr h6IvULnDzTBJGnNXWQxzwe+vHnYHjaS0gLSHsng8y8iLUt4duEOtHV/LyGHR GeqqSbI77BE6WNN07gz+qv4ka4jeA4qupkuapJ3Fal5OxDVmD+jhzkzi+3IW VxbwTDBxeEAB+6foAiEFHLGULK0l7gFHx0yWs9sVMF++/ftnBh5QvFAi/5GS iF3mjzDdzveAydORfbFFGH842lf/vMQDXiodXi1bxxj9F2X9pcIDGlalLTsF ATPmLDxkbfEA+/4qxp4IwE+UunXixz3g4Ptb8VfklPB2ZmCyq5gnePBxGhbU KeNEhS+0Z557wuNtxm0TOjVsjIgzdV2ecFBGQVmXqIaPKxW+lOv3hNmhIbH7 Xmq4Xs06RW7ME2wXeBSujajhSf1xZrk9XqBcYXVOuVEd/+c4xymr7gXXfouM ZMefwzuZO1LSb7xAzW7QXtv/PO6+bsH6ZNAL6l7QjhOensfX8pp/S416QUW4 l5ndn/NYpCiiQWrJC6b6Yl6QYnSwSfleLMXiDdeT128J5uvi2lYGTcmL3uAd PbRzekEPu89zWEt884aK9htyYnaGeEMz+43DtDfEdo3O6qQb4sjSQ/jmkjcc A+PwjmZDnG1NxXVwrw8w6RO4K9iNcPO7qc8/hXwg4lnqUfJHI3ywrvpiqZcP rE/5ahdYGuPKcA1dLhpfCB5+cmTzsQk+86W1+cIhX+i952BCnjPBbWcUxFOO +sL1SuEZF35T/HFJ7MCOiC98T3i45Z5jiv/asrz6pOsLQ4v5mtJRZji+Jfks k4kv+LtEX5xoNsPMnDT3NUi+cJ706t2fLTMs8HEjvs7HF+J474s5+Jjj8xoj alm5vmAkE41EXCzwx5KLtb3FvpDlwhTDX26BrSnf8u994AtVVnIBybMW2Odp +17vZl+I2Hsk+aaTJf57hOhzv8sXFJ8PtWqXW+J479ofY/2+8Khc47XDnCVm 7j9leGzYF5K8mIhLYla44OS9Nr0fvsAQecf4pIUVFkjglYyf8wX9KvkH4GyF qybybz1f8wWpjII2l0Ar3FF4NUKczg+6kn/dY8i2wnOMPohBzA+2ZTkfufVb 4SHVnKm7Mruu/A/UR6xwZ1BTmhLygxHRt0Yyc1a4cHzvDz9dP2DbkJIX3muN 9euz4sY8/WC/yHBRD481rrWq66+t9YMbN8Rbec2tcUTlFskG/KGtsSc9/bM1 dvnBxbCj4Q83XfQlF35YY5Oj/9Vk6/tDDI+HvMmcNZaMTKLtJfnDt8qUaoM/ 1njiAscD2Rh/8GtTGvjCbYM1/xDX9r/0h3zHySOmDjaYRZscV2sYAIJ5dG3m FCR88tTLz/zmAfCPuWS/xD4SVmFmkciyCwDaHL8txsMk7DNUMuTtGwCqG2kU O4Ik/NGuW/j09QD4ccMbBeiRcF7ood7y4QBYdOfjOVJCwrwPbzDesgmErkPc ETrGtvhsxqQdo1MgDJZQPFq2scWGvqcawr0CwdIj1/quqy2OVmi1sYwKhEuv OgMVY2zxZNd4NeFOIIR5cKjz19ji+6OiF7KnA8F48iTdOpsdlmR+mpvkHgRb IW+O7p+1w/S6hJDqgCB44Zz7bHrDDo8mhVh+IgcBV3vgv2Fae3yVGp8QzAyC k6dPVf3ht8czG+0P2uqDwLo3hgfZ2uOib33PNymD4Z00Wa15zB4frBibcMgM hs/FTXQXFy7jiRnl7qs3guHWu7a5ZQoH3CRQcr/mbjDk59GcucvsgJ2KLrvv aQgGYkKcjaGsA+689nOj8Gsw0H/JTHsZ5oBDgtb2fxQIAcLfv8xKhx3xrDq9 pEpDCLzbeRq+rn8F81mw6rxuDYGYKJV5Tfsr2MLruNOllyEwy89iVRNwBfcX yBe7fA6BwJFbuW9uXsG1S1eYs/6EwCd97ieEhSs4Mv/l8oRSKNg45T/my3DC 7AtJj+NehsKAhhTD1VlnbLQ35w3T+1Dwp+bxmaVwwSnHSn7mfw4FqfTxWGs2 F0yh0nSiai4UPtZpUeepuODJnLlrQwfDIEar5p1KkQuuVj7vI2wYBtI79cop 5q5YK/ugzKvPYTD2cfpB/IwbVqaW+sYwEQaTlTnNHtTu+KzPxQSd+TDQppUz DjrujkUMir6+pQiHgDs7qcsm7njfQcnYIf5woD74Jiyo1x2/jLkwOOEeDox9 J+IozT1wydnXihRUEZDO6Ow6beSJebxGmW7RRIDrPdXnzPaeuODe8qTS/gig cw3p1vX1xJlH2dKjDkcAn8O6ElW2J47+bTVBIxgByYH/cjWHPLFt9VLKAe0I MDPhU/G39sK8Iqzf2LN373uJ36oJ98ZP6hvo7+ZFwLCbz+1/6d5YTd1S+vTN CFDtj6mxKPHGTnalCeplu307Gi3jHm/8qFBe2ufpbp/VdL/CYR8MLJYJfSMR IMH+I3Sswgdb7tyVihAkw+qoxPzRJV+8mKhluf8kGY4LZyZR0/jhyGOL8dkS ZAj/TWVKR/DDd2XlRx7Ik0GDL6tfT9UP//J4Ff9JiwyifzMPL+T54ZCJha+S HmTou8Fw3UPTH+e/PhM/UU8GVhYjV5rGAGzZU63L+4wMGZ8yWOFtAObtOMlm 1UqG8d8xe1OnAnBZA8/doR4ybKoVrLgcDsRPSug6Xg2T4bVdabuIeyB+HTT0 79EOGUTCxR40CgVhKsEA/zCIhEO2wsJFD4Jx5/Fl1KgSCU/Pj3YVdQbjeA4X mg2NSFBe+Xm7fiQYH2K2zvLUj4SykC4jcaYQzPFH/bEdKRLWugutpfxDsMx7 tgXN6EgYLd3jVa0eih3D6y6zdUcC7yDx2sZWGN5XSlx72BsJlSeWjtocC8cV r9ujNN5GgpZrzJUpuXC8zNlfFDgcCb2xg23nfcNxcNP08Oe5SOgQEHwWtRSO r24e0y1iioKSsjnWAf8I/MQ7RE7YLAqYTAYp68lkTOmoRKcwHwXNnSf27u2K wgPbBVIxy1EQEJI7RPkpCpelbli++R0FA7ceix36GYX16h7W2P6Lgmv1P8iX DkXjQhou22TGaBAfT/h591I0Vryz9eyrZDQkj7wtUJiPxgHfH3tH+EeDhpMb bzJ/LF4wF/jWSREDoS6BAaxd8biY8+pbZ+oYOPxUKYnnWzw2GllrZ9oXA65J sT9hPR4/teoss2CJgZOM3H2tggk4lmTntcYfA6qZhOLOhATM5VhMza8VAwoa Zoe/6ydibW+uk9FZMTBMyej2fjkJ30s4EqgsEgt7FUujB4NSsdctxtZ34rHA m2osxJWTis827KO3lYqFO291f4XUpOLe6b85UYqxwBTYcSRqMRUvqk/Vd+jE gqWQWucnqTQsS1O/oeYdC4ikwGhSkYY7Ik0CtJpiYU69Sq/7XjoeDS7wN9KJ g2dZssJcL6/h4X/O5tkGcXB7kZTyevgaHohSUBoyjoOPjvn8ST+v4Z6k4X3m VnHwSn+FQfhAJq7OP1po6xEHn4ns3ht6mTiqMbPDKyMO1PUFo38OZ2KB7WSm 9I9x0Mrp72mwkYWdg0LL+yzjQVZn1fKeaQ5WETW56GwbDxv3/Z5reeRgri/S e+gd42Ey6Fjc35gc3E+cM1XxjAdgY/DMepSDZSnN9jVGxUOTe0hNAn0upog/ c6WsLB62P347m9mUi7OzVgSiluNB8hB9p/epfNxWdaX4TGwCUAvz04ZqFmK3 larX+/ISAU2khih7FePs7RQrr7Ik0PZX4e5Bd3GSgt/jV33JMPidKWeKpRwP xDUoJn9LgcTPHSt8olV4Zj9dAqJLBdc3/I2cQY9xs8hvjnbWNLjpe1NYCdXh Rx9Y0/JupEHdF8tOpNqIEzkax2cl0iEqU5gTH2/BKTMHBtyepkOiiG9+W1cb 1s0t9yUqZcCf3mWZmppOvD7+eiP6fQZQFbOwhWj14J7am0cozK+Bl1IXg83B Pkzm+826unANAj1KR6/192Pbo1sPCUGZ4DAwMEYv/R7vXdDYSaHMAnXqr9t+ fR9wkg2nSGBmFqjF84iKLAxhRdOby9c5s8H/7x6iy8kv+P383YJT1dngzFPC imhHsdDlzQ0mlevw4OshOZUT33GZ7eaCYO91uFKyOLTv/Dg++Cesu9YqBx68 Msk7OjqJCzmqFQJnckBfh1xzPnIGz3FJ2MR65MKCfs+fcwZzmOeZlCPDnjwI a3K/sX1nAYePjdO/SMqDVNbNsJKoJdxxi5CywZ0PkYSLRQXkFRxXZKayjycf Sk6W4i+71ryZv03YdZjPjW+EyJXd/SQ44V1HV4Qcz9/1l+sE9dhdk6apK3Kj VvBqCoHy8PF8cCpU+ZEds4JPBBF8T/HmA9NqcG96wgqeDDA7qbTracOsiLe7 LvPP/2Gwa0mWCzJMiStY3Jdg4LdrlZquorRdn/UgnHq26+X7geGpSSvY4DJh RvNEPqQFMpmnpKxgVnuzIvNdJ1xJZ+/b9ZBt/kW3XRv01X1iuLqCLW0IL9J3 Hba2bpK8aydzwu2hXQ/8VCUlpa5gMTMz09ldHy7c5H+160WTfKadXZu8Npzd l7aC/S4SIrj58uFA5bZP4q7ljc3kTu+a1vqcwstd7xjlzyvvmj2LSLUvfQU/ N/x8x2jXmTpDPed2HWlAsLi865qUYxkJu/4faTKS3w== "]]}, {GrayLevel[0.5], Thickness[Tiny], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV1fc/F24Xx3EjvhnZo+wtRLaGz3UdowjZK3sTsvce2aPsLUlUioiMBlJC JaGSZBSysmdUt/un83j+Aef94rXz1HckISIiqiUmIvr//XAE9QjnkmCOoV+x lv+2FdzPt23UUU/iZ9qauRIndBRXHnl2p1KvYlNfr+4R0RuK915G5rZn7uKm /AxR5Zx3ivXzatIh1MTwQ2dkWlJ0WZF2XedYtg4ZqM6Fx3R1/Udw3zMhqsmk gL79o/c+ZXMSekhtfr7+eATWEmbpJ7dPEhjJZX96UdNDJvXtza8imKBM2Tzy R5wRWELp2wWZtAheNIp9yTrMIKxLWp3ZZUIoZWjvYPVmhbzWzdAzgvaEtyyq jRWZx8B4Um++LPsK4Tdb9x2pBnagZO3gfkwfQBDh1ip+/pETmI7xqNduRxJM +fuvaW5zw5srpz+4Z8QTOhnvKblT88Lat/fhdSLXCCPM7k+kOfmAa49KVOFY DmGNVUJuV5wfsGzfU1KmYgIF20pNGxIA6+o7GQWO5QQejvrj8TqC0Lbo3BbU VUVQ4PIr17IRgmt81WVUpjUEbR55DkZvYWi0s44RFnxEcOTbyfkSfRz2jJOs yeaaCGECrbRlmSLAXJZCGZ/9jJAlFJbkdEsU3t4mp8rnf0G4dxyRijeIgaB7 T8kt+i7CC1Gi8PWXJ4DaSb5no7KX8OXEi62Wj+LwTcDAPnf7PWFF4qpX1IwE lM7tD6ZTDxIOS52fP799EqjguKtFxifC9WOH6smvSkK1LM9kae4IoYhteuky tRSY3dpSKhYZJ1Syd4m9y5aCi4JvItGJ74R6jioXSU5pMD6Fy0WOTROecybe zrotDamqmCfDfpbQy3X5+5a4DDD8OvVkjXGR8Ilbg9vssQyUdkeQVB5bIUzy iFk8Q7KQQKtLes1xjbDIS13A81oWmH3v+javbRB2+H59jNWRA63G8h63rm3C IYE+hp+f5SCTXanu9MxvAq1grY6GjTycNJ0Z3zP5S2ATup76YFYeBlvGfRfo iJGQsHcPnbcCMH4tIOMSJEXSx/XJ/XYVwLBbJHHTjQwRRGRUPkefAkInP+Xv 2f+Qodjm05LM05A+UFsYlH0E2Zz4tEvEfgaOfXm7cNmRDrmJN8k73DoDJbTk fNf5GVCARL7va7GzcL+WijBGzoRiTgY/FG04C41owKKQngWlS5r9SlNUBBZr ljne80dRodRZ0dWXihCYfIp8vpIN1cn8udX0kQDXQtdWkra50VPZsQk2KwRM e+yX7QN4UbdcG2fEDAI+8aZ7CdT8aEi+zGzSA0Ne2VXG6jYBNKEQnae6jaFN 8Za8YYYQCuCQmh/EAE0TV7lYY4+j/eKbiWRXAR6BRUJOrij6rzTmlQu1EoAl TUWGyEkUtdg4ZGysBP6Owr3Ka5Jo58zcD9UyJeBPTYrtd5ZG3kkc69LzSkCf rMJXvSWD5j/rkPDKKoPGizunWMrkkL1QLD1thDKQkVKuWzsqoFG/xzx/XiuD tr+/yqTaadRHz4m/mKtA8+ZHPUFXAlKz0dV+fVsFqhIumX24j1F7Taxl47IK LB99saZCoYTqNOdDM2JVoXyQbKa+UgWJFnKmRL5TBdmS5dY5hnOofFa38Arr OVC7Z6+5mHUeZcc1NV+oPgc2Hz0pxj5fQEeG5l8rbJ4DVh/54pvFmiiej+uz ID4P5rhi4kvwRRTUdnWTePA8PH9ey/i2XRetHmk+tMKhBkbtTqqMn/WQq8UC 45iTGmhNrSqX7Okj81096dbfajD2W/RSlbcRGlKLU7qjqg4fn9runX9pjLRy m3Vz09UhW8Eq10XYFCEZbk8fvguQzBL5J4/XHDVF60fYuF+AUi2BI99bLJBk f1ya9uMLQPvZq17I0QrxXVmsFtXQAJ59kvtlezao6An3k6PZGrDoaf+ledkW MVEa9JKPacC9kX+P7yzZIfKqltnv3pqw1R5vEknjiCI3F7f7n2hC+ffjJPyS TmhHhee/NjIt0FVxUjhq5YzmJuIFiwq0oDT9R2jCxGVkd7JVNumHFsiZG4/2 ybmhkfBfKoHiF6FYqNWPpMAdvWUztDPouAgsFeyaE8me6KEh7w2qOW2wUr+g 5szki0RuGdbsSuvAJtFXz4l9X1S+mvDsZ5gO8N4WM+Na8kMaatu/bA/rglx4 jMr0QgCKX7q+aSquC1fkzXKXdwJRZ47oHx19XVj+QWXaQRuMFKcsqVGxLgxL wUyveSgKStlmlOvQhSlvvYK0jDDUKJ3BfmJGFzJ/fEgTHwhHEtEvRdkk9SD+ aa5m9pkoxM0ldmGrUw+Y3vVWCAjGohkhL4WQGT0wiCfW3Z6MRQ9ONgr+PawP A3YsodcrrqKzSpiEXFsfIvLdA0rOxiMTB4MnzMP68GCArmKlIQlxXcm/W/Bb HxbUA7xf3EpG0/7f8jg5DWDRg8EzoCAF+SY4+wnaGYD2pbI+jsI0dO1eqLjc ogGYSAWyG/6+jowftbO30BhC6ZCyn9O1DMT5lIySIGUIMWU2/YnHM1H1u2sz qgGGUC73UEffOQu9Xrl1w5DICNro3+ReOpaL0ndn04b5jGDINQg0P+QiIxKJ MItzRiCowj/1Jy0P/WBsNnVINoJ7NYeFDrEUoH/yb+n9mIxhYn/plYJ9MerC 9EQ78saQtGNpM6BSgtLUjZdCLxmDn6bh8qpIKWI3m+iNLTWGKv/0ySzSMqQQ vhGbddwE6E9e8xQ7VI7+xp32YdU0gdFVjdf/UsrRq/QIm6IrJlCc/CibhPUW Mig7TLhVbwKPGcrK3spXIM9Ojq16RVNg+V0nQ3WjEsm/tZ2StzYFu4mVN/NK VejPUOVAa7QpUJDe0PGcrUIpM5K1L7pMIVHMNeU23EVVFOdcBnQvwTWj1Mo4 7vtoXOfKyKqDGRSU5Ee9169DxvTn/LvjzWDZS8N/90UdejvAQXfjjhkIOvGF OMrVo1ajt+e0Fs1gV84oQYj3Eco2F6ur9DWH2368hueYGxElJ6lWeI452JJ/ GArMb0TRYyMzBk3mcOfXXz1ZrsfIwzaZg3jPHLAz808vqSak7jyXYB5jAfUR FPRkQS3o+fEOPukKCyBbG3DNomtFcvP5zw53WYDG4j2X3erWg/9VX2+ksISF MaYpv4UnaN+nyoouwxLe1lAJaKY/Rw8jHOVe3bAC56wvyc7yL5AQEPqLOqzg wnZz+XTRC1RCzOzm88MKKjhiCEKknSj56ssybmFrIP3DYkX+uRM5JPNTh9RY g3MBw7vZ7FdoRHOvUrffGnaurQnwUnQhvSODSsJr1iDzkZlZK7ILcat3nJ1n s4EzZi86Mr1fI+o3Xt55VjYgXu6vm+PRg15Xjz6P8bSBiGUKBqb1HhSTqk7t EWUDzs5G75uDe9HuRZ4q1XIbWHRnWklPe4Nm+t+Prk7bwL8Aq3qx/neo45OE utYVW7gWOMBVbv8B/XZ9U1cZaQuPreQ3Nto+IOl/zuzEmbbQHmWj3cc5gMqF by41PraFHxcvfRceG0AxQYw53ER2kKyY/vuf9xBqpX74N5jBDiodK3jpvg6h tTItlyEBOwji1g7uO/cR2fXEnU26YAdjfAKGrjyfkDLbzuRaph0E1oJC3fxn FFKTrXnxth28j/5y7JXtMKpXlmqsarID9m4Dn7qRYcTn5ppoMWoHUbst3iID XxDJ01GJLkF7eHDMMFp6+Ct6YdkRWtBsDyqeFC8+8k2g36uW0+u99mDybDEt 0GMCScf/1tb+Zg+TzGnzMk8mUHmNDB8piQM00qrXHjadRDH/bne7azpAhu6D oyE3viPlm8nMMOYALxuqDl10mUYhcsKRhSsOQHb9thbL62lU39M5u0HiCCn3 Z05ICM8gvrX9J3eFHUFEwDvBZGEGkah42jF6O4KC4391a7GzqHPKoHaG1AkU YutMPHcXULvI+dT/mJ3gIqcx6aLTInrucerycSEn4Hwf5/v84yJq3uHgd1V3 gl1PMU7vpl+ohnom91eqEzhE5pE7pSyjfNmgiA1mZ3hjxD0t+XQV5QS7mjML O4PcIXzf8u8qynxucUr+lDO8Lre/rKO0drAfSmuBZs7wkuvbzcSeNRRjQem0 V+oMg5bdpTE/1tGVq8UXSY67wHiD7VtevIVce9JF+U+7gEreMpV3+hZyoYn+ T1XDBTTvU47eHNtCdvmOHXHuLlD4eqC2Nnobmd6XkKOoc4F0uQW1uoEdpDzU zkF35jLI1Sce/XtzD7EKTC9warnCH20rkSViYpzJcXj6gZUrFLRK519AxJia WWyM4O0KOQEtczqhxJiI3LvfMtcVyLDumN02MZ79ud9QMuEKrodjuXu3SXBz NVMEp78bJDaMiU2zkWHpCoXABwlu8LJquqfYjgzfLzbzIhS6gXSX9ghLNRku Syuzs2xzA4mrb8JNETlO8jyhVkLhDsIMNX4Ej/+wmYwqHWepO1zfV5dc26DA Q2LOFA8eukOgx2eH9AuUWFsgmYTQ6Q6xp8cfkN+gxMrM/RsWs+7gQpQgmalF hUW3zb8US18BH451E9V6arzX6lvO8foKjObfN8u7S4uLlW/Jcqx4ALmXFzMW ZcQeebRXjUg8gS+Ts3PdjhHDYuhgOpMnuKvamEsUM+KpHEMf4tOeEB5t8O8U HRMWmyN7OBPtCUrld88+/8uEv6k15AxTeMGNnotGllss+LyPK2GTwQvM0kn+ TSqw4ppinml6Di/g+uE5uRfMiqNWU2U1JbxAm+2nxvo/VixQ5Dj4TN8LfPvK u6kZj2H3JRb6W0Ve0GFK/6vPmB1/PPquua3CC7gjVD7ylLNjpBJrM/rAC+wD yR2OLrFjuvzlWuZ2L/AaJm3ZT+DADUrd2olTXmDd99CiuZMT72UHp14R94a4 O3N8O+I8OPns6H+n2rxBY1As/hYVPzZGhLmm195wTKyg2fU0P+ZVKu1V6PeG 1PHK10nO/Lj5vE2awqQ3SPLS+X94yY9n9KYYFEh9QL01fjc7VgCruCxyyqv5 wJpIUpElgxDez96XkX3vA3QjCoy5QSK4O8+SueGzD3Tx/aozrhfBWYXPt2Qm fMA7jeVH5KIIFi2LapFZ9YGpGl1ZGjtRfKn6EJZh9IWeBVkZUX0x/LiDWkPa xBf2C+l1x86LY88lDhvJcV/oK1jI5O+UxDsaue+dZ32hRZf8k9C8JI6posU3 Vn0hzoO0yIdeCufakHDRHPIDz+E0NG0jhZ8P/Py6cNwPNrtaqZRJpTFNU71J lY8frBeTrckYy+CaSHUdLnJ/MJDgph1TkMenRjueG9H6w+n9mpNPXeTxi1Nn JdKO+oPi8+dCKwXy+NOq+JF9UX8oHdWxMP8jj//aM775ouMPtzxCjTW7FfBF 9bHzOQX+0BBYYLLlcRov0vkhavGAg17G1j0iIeDhc/k/K+UC4CIIkQqfJeBX IU+vK6EAeMQ5wrDmS8ClU4d+BOgEwIigJlnGDAHrNeckTHoHgB4h2P/Pe4Qf Wzf1P34cAOH2L9s3LwGOqvltZwuBkD3NZxFjq4zdf3BR76sHwnqh7beSWGV8 6ahKY65eIBTGXf+1cFsZS8ek/PfWLhD+03At4llQxtNGHPfl4wJhYXbAbC1Q BWv8IWxS9QbC36rr1peLVDGjVnTCY4MgSD325iuBSg2fONn7VdAiCIZFyN5o yahhVQZGyRyHINB/c9Yiy1wN+w1XDPv6B4EiDWh131fDnxy6RaTyguDJ9FD7 Zz11XBhO+7Z6JAiSbFa82ysvYL7aErqbtsFg1+u1bRGuhc9kzjjQuQbDNTlS o8H7WtjA/2RLpE8wbNw7Mp44qoWvnu2wtYoNhr+t5X71ihfxzOupevbbwTD3 pSSLnEgb35sQM8qdDQYjJ/WC+UwdLM3QWpDiGQKPuB6yN/rrYQod9rD6oBA4 U+P3lyRbD0+khFl9iQ6BscEHMyH1ejidDPMLZ4fA1L54wNyyHp7b6bz/ojkE btYPWHW56+Oy8Xdtu8ShsMR2V7DSwwDTPJicds4OBWWhabUz2UZ4ek65O70k FN5P6zzmbjbCT4Uq7jVWhkKdFNGI7KgRdi1z8iRtCQUuOY1/SwLG+FXWwk7p t1Aw8WPZq2o2xmEhm1SfhMLgmODfBeM5EzyvRiGt2hIGi5oWk0TeZljAklm7 ryMMjhbqGTjlm2FLH15X094w+NbZdP93mxnuLz5d7v41DL6Mqz57SGuOH69e Zsj5EwbkZZ+WjOvMcUxR79q0UjiMfXOqe/jHArMtpzxK6A2HWo+X3a+fWGPD Q/nv6QfDgYO4gN1yzhqnHatYKPoaDhG3SmyyqGwwkepT/oeL4UBTHTFafdoG z+QvZg3TRECvj1ElW54Nrle+6CdiEAEUVMX+pCa2WDOXRu7N1wi4YbGtXrFg h5XJZMappyOg6QfnBvNhe3zGzyRJeykCElkjeu8K2GNR/bJvH4giIVpt3/eU lT2mpJGOHxaMhIdcHuybA/a4N87o87RnJBhkfz30X6cDrjjTp0hEEgU2cVlm bs+dMI/PBP1N8ih4SiToYj3uhIvvrs0oUUVBchFRSTCRM84+ypoRyxQFm+8O E/OqOOOrW9bT5MJR8IGt1gj3OmP7+tW0I1pRwH/yZ/LncRfMJ8o8zpYbBcVo ftZBxA03NLdQVBZGAS75of5A2w2fV7OSlboRBbqSGulcfm7Y1aEqSe1OFMz9 nNAJa3PDdaWnZf1ao+CuZ4/1cVN3DIxWSe/GosA5/V2oTcYVbLVfKRMlHA2l VaXWvAxeeCVZ04rqRDR8oyIT8Rf2wjHHVhJzJaPh9e3v18cVvXCl/Omx+6ej 4Y7fauyOsxf+5fUm8YtmNGjHbKwotnnhsOnlb9Je0aAWVjbA7eONi/pOJU43 R0OzUeeR93M+2KqnXofvWTSQhIpoBRD5Yr6XJ1itO6LB/uSJMzKsvvhOC0/l cE80lISo2S+p+uKGisMv34xEw/gNhRtuN31xX8jwv7r9aJixS4q+ZuWHSYSD AiMgBrpccO7inD9+xbuGnqjGwF+BmjAX0gCcyOFOvqMeA8sChxn3OQIwLYNN jrdeDBhZx2a46gZgjj9qjxzsYqD+5eXbTs0BWG6QdVnjagy8/9zZPpcaiF0i m5xYu2PAoL72WKZ6MKasImzWvo0BKsX29OvOwfhBX2es+ocYYB3Ks30QH4zX OPvLgkdiYFx7IFj5VTAOfTo78nUxBggq+j9HVUJw+u4xnTL6WJBnNPKeOR+K G3zDFETMY6H83yGzRYdwTOyidPjsUiwYaU45bZBE46G9Ypm4tVjA131WNZij 8Z1rO1bvt2Kh/xrzhTrhaKzbVNto/y8WJDquJD7Qisal5Fz2qXRXoWv5uJNj XjRWvP372TfpqzDccLH868kYHPT9kW9U4FWIvvZeROxKLF62EBp/RRQHDE7G 8Q/Y43E5Z/oHN7I4uHCeU+ikbDw2HNvspKeMA14D17AurXjcav3qjiVjHPhZ qMXLR8TjeDsHn03BOChxPFfB+T0ec7mUkwlqxsHFfvpuppoErOXLdeJqThzk q1ZuHTFJwneTWIKVRePB31slJnQlFfvcpOsYkIgH05zfkfo0afhMCyWFvUw8 HJLaYlY+kYbfzv7Nj1WMh1GFODU3lzS8ovaz+aV2PFg8mHP7OZmG5cmbd877 xoNSa4Fg9pd0/DLmUpDm03jQ/r1OwuJxHU+EFgcaaifAq5yGwZ/5mXjkn5tF rn4CRHJORs/fzcRDsWeVho0T4GbuubLd1kzckzJCaWGdAKYr++qEb5m4vuho qb1XwkF/SynM+bJw7JPslz6ZCXDevFpzqyYLC+2l0md8SgBbKfeA0Q/Z2C0k vPqdVSKQH6d9v4HzsKrYJRM3+0QgXnv7ldg4D3ONypJSuCTC+nJKGbd7Hu4n LJqpeidCIi19UFp+HpYnNqd8EpsI/exsrjJreZgo8dTlO3cSQdqJ9tnDO/k4 N2ddKHYtEWiHDm008BXiFw8vl5+KTwL21QI9mosl2GP9YR9lYTJoz8Xd/0Ba jnP30qx97qSAliRdJuOP2zjlbMCjN+9SoTG5YYWs/x4eSmhRTB1PA76zXb5i LA/xHNXhJHT4GhyqOe3m5/8IPxfd4uhkvg6tPkodIlpNuO4j8/XCkutQwTk/ TeL8BCdzPJmal8wA9y4iWg/UjtPmjgx5tGbALw5tLtK1F1inoNqfoJQJZnuZ Mc5Lr/D2VN/O1cFMqPxYWf81pwf3PL7BQmSRBSmmxVe03N7haIEt5o3lLNCl HdjQofyA7Y/+rmUPyQb/VxWzqcGD+NCy+n4acQ5UdrynesP9CafYcooGZ+dA yyyx9LLuF6xodmMtjzMXEpZSOURLR/HgUmXxyfpc2D7J3lZ7YQIfd9rdoVfN g7no8lwOr+/4jv3usvDbPLDlU36WVjGFaf5EdD+2zgffFCaOi6o/cSlH/dng uXzQvlSdGrE+hxe5JG3jvQpgttT/u+mHRczzTMaFmrQQxuyM/jSzreDIySmK rpRCsPLN3WoYXMUvb7Kn7XAXQe4ripLIr+s4ocxclZKnCBiFaQLaD6xxo2iP /cBf1p7oEI+uH/ST3RUf2L+PkSz2wKN57GrxB8atDYHx39bxRho7MRNvEWTF Pw1LG1/H/CHs/if5iiCR/BdZ8Y91PBNkfkLpwHdleTdGD3wnsOiH/oGvb/39 zjm1jiX82fUDDvzvTNOLGwc+48V+8tmBk+fZkm9Nr2N9J/Y5Df4i2CN/eKr6 5zpmdjQvszhw8ZEIqcUDD9sXmXgcuOfppqj47Dq2smXvyjgwGdt37toDu1qw 3xo+8KWNGvpHc+tY3NzcbP7Ab+x7aTcOvHKpiH7/wJLx12jk5tdxgAl7FLdA EZDPsdA0Hfi0sbmC1IFpTnyh2TnwvmHRkvKB5YXP0Z1eWMdtBl9vGx544KsZ Q8iBY/TZLZ0OLKzJxvzkwP8D7MRHwQ== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->None, AxesOrigin->{0, 0}, Frame->True, FrameLabel->{ FormBox[ StyleBox[ "\"Radius, km\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Binding Energy, J\[Times]\\!\\(\\*SuperscriptBox[\\(10\\), \ \\(29\\)]\\)\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"-Gravitational Binding Energy of the Moon as a Function of Distance \ From Center\"", Bold, FontSize -> 16, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, FrameStyle->{{ Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}, { Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}}, ImageSize->{1131., Automatic}, PlotRange->{{0, 1737.1000000000001`}, {0, 1.4}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.436221314421875*^9, {3.436221387*^9, 3.43622140446875*^9}, { 3.43622146875*^9, 3.43622150665625*^9}, 3.436221575453125*^9, 3.436221650390625*^9, 3.43622175128125*^9, {3.43622187709375*^9, 3.436221889671875*^9}, {3.436221970984375*^9, 3.436221987828125*^9}, { 3.43622208009375*^9, 3.436222131703125*^9}, {3.436222298578125*^9, 3.436222312375*^9}, 3.436222348875*^9, 3.4363242406875*^9, 3.436325425625*^9, 3.436325510296875*^9, 3.436325888796875*^9, 3.436325920671875*^9, 3.436325961078125*^9, 3.436326419609375*^9, 3.436370924046875*^9}] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["\<\ A Neutron Star's Gravitational Binding Energy, Average Density Method\ \>", "Subsubsection", CellChangeTimes->{{3.43293983376475*^9, 3.43293983820225*^9}, { 3.432939966374125*^9, 3.432939971217875*^9}, {3.43294088670225*^9, 3.4329408904835*^9}, {3.433072854280375*^9, 3.433072858749125*^9}, { 3.43309238188975*^9, 3.433092382624125*^9}, {3.433213590374125*^9, 3.4332135934835*^9}, {3.433257217467875*^9, 3.433257223296*^9}, { 3.43325739720225*^9, 3.43325739913975*^9}, {3.43340195649975*^9, 3.4334019623435*^9}, {3.4351618452876253`*^9, 3.4351618875220003`*^9}, { 3.4351631608970003`*^9, 3.4351631934907503`*^9}, {3.4351632365376253`*^9, 3.4351632632876253`*^9}, {3.4351635064751253`*^9, 3.4351635095220003`*^9}, 3.435194313453125*^9, {3.43596375158175*^9, 3.435963761972375*^9}, { 3.43621976271875*^9, 3.4362197716875*^9}, {3.436368448953125*^9, 3.436368452796875*^9}, {3.436370974828125*^9, 3.43637098009375*^9}}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Universal", " ", "gravitational", " ", "constant"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{ SuperscriptBox["m", "3"], "\[CenterDot]", SuperscriptBox["kg", RowBox[{"-", "1"}]], "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "2"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"G", "=", RowBox[{"6.67428", "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Speed", " ", "of", " ", "light"}], ",", " ", RowBox[{"NIST", "-", "CODATA"}], ",", " ", RowBox[{"m", "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "1"}]]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"clight", "=", "299792458"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Solar", " ", "mass"}], ",", " ", "NASA", ",", " ", "kg"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "solar"], "=", RowBox[{"1.9891", "\[Times]", SuperscriptBox["10", "30"]}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "accepted"], "=", RowBox[{"1.5", " ", SubscriptBox["Mass", "solar"]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Neutron", " ", "star", " ", "radius", " ", "in", " ", "meters"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["r", "volumetric"], "=", RowBox[{"6", "\[Times]", SuperscriptBox["10", "3"]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Average", " ", "lunar", " ", "density"}], ",", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Rho]", "avg"], "=", FractionBox[ SubscriptBox["Mass", "accepted"], RowBox[{ FractionBox["4", "3"], " ", "\[Pi]", " ", SuperscriptBox[ SubscriptBox["r", "volumetric"], "3"]}]]}], ";"}], "\[IndentingNewLine]", " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["\[Rho]", "avg"], ",", "\"\< kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "potential", " ", "energy", " ", "at", " ", "r", " ", "using", " ", "average", " ", "density"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["U", "gavg"], "[", "R_", "]"}], ":=", RowBox[{ RowBox[{"-", FractionBox["16", "15"]}], "G", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ SubscriptBox["\[Rho]", "avg"], "2"], " ", SuperscriptBox["R", "5"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["E", "bindavg"], "[", "R_", "]"}], ":=", RowBox[{ SubscriptBox["U", "gavg"], "[", "R", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"E1", "=", RowBox[{ SubscriptBox["E", "bindavg"], "[", SubscriptBox["r", "volumetric"], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"M1", "=", FractionBox[ RowBox[{"-", "E1"}], SuperscriptBox["clight", "2"]]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", FractionBox["M1", SubscriptBox["Mass", "accepted"]]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "E1", ",", "\"\< J.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "M1", ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "F1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", "bind"], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "46"}]]}], ",", RowBox[{ RowBox[{"-", RowBox[{ SubscriptBox["E", "bindavg"], "[", RowBox[{ SuperscriptBox["10", "3"], " ", "x"}], "]"}]}], " ", SuperscriptBox["10", RowBox[{"-", "46"}]]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ SuperscriptBox["10", RowBox[{"-", "3"}]], " ", SubscriptBox["r", "volumetric"]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "6.1"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".7"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "None"}], ",", RowBox[{"GridLines", "\[Rule]", "None"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"RotateLabel", "\[Rule]", " ", "True"}], ",", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"Thin", ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}], ",", "14"}], "]"}], ",", "Thin"}], "}"}]}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", RowBox[{"FontSize", "\[Rule]", "14"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<-Gravitational Binding Energy of a 1.5 Solar Mass, 6 km radius \ Neutron Star as a Function of Distance From Center\>\"", ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", "\"\<\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.4151432581705*^9, 3.415143280248625*^9}, { 3.415143735498625*^9, 3.415143963529875*^9}, {3.415144027811125*^9, 3.41514410826425*^9}, {3.41514415145175*^9, 3.41514415301425*^9}, { 3.415144195686125*^9, 3.4151443547955*^9}, 3.415144387498625*^9, { 3.415144555092375*^9, 3.415144555498625*^9}, {3.41514461920175*^9, 3.41514465657675*^9}, {3.415145144092375*^9, 3.41514514576425*^9}, { 3.41514553701425*^9, 3.415145553233*^9}, 3.41514581395175*^9, 3.41514586288925*^9, {3.415145933983*^9, 3.415145948311125*^9}, { 3.415145992936125*^9, 3.415146023842375*^9}, {3.415146125373625*^9, 3.4151461340455*^9}, {3.4151461722955*^9, 3.415146317217375*^9}, { 3.415146365904875*^9, 3.415146406936125*^9}, {3.415146469608*^9, 3.415146764248625*^9}, {3.41514679832675*^9, 3.415146820858*^9}, { 3.415146852858*^9, 3.41514685663925*^9}, {3.415146915279875*^9, 3.415146942608*^9}, {3.415147084061125*^9, 3.41514708426425*^9}, { 3.415147116733*^9, 3.415147244092375*^9}, {3.415147277592375*^9, 3.415147334717375*^9}, {3.41514740613925*^9, 3.41514742532675*^9}, { 3.415147457717375*^9, 3.415147470733*^9}, {3.4151486791705*^9, 3.415148804186125*^9}, {3.415148851311125*^9, 3.41514891370175*^9}, { 3.415148948858*^9, 3.415148970404875*^9}, {3.415313511436125*^9, 3.4153135340455*^9}, {3.41531356588925*^9, 3.415313566483*^9}, { 3.415315647529875*^9, 3.415315648061125*^9}, {3.41531568507675*^9, 3.415315849858*^9}, {3.415315896123625*^9, 3.415315903404875*^9}, { 3.415315944248625*^9, 3.4153159945455*^9}, {3.415316042311125*^9, 3.4153160762955*^9}, {3.415316122686125*^9, 3.415316257608*^9}, { 3.415316294561125*^9, 3.4153163171705*^9}, {3.415316371498625*^9, 3.415316382998625*^9}, {3.4153164194205*^9, 3.415316439967375*^9}, { 3.415316664123625*^9, 3.415316694467375*^9}, {3.415316725279875*^9, 3.415316899108*^9}, {3.41531693113925*^9, 3.41531697988925*^9}, { 3.4153170635455*^9, 3.415317155873625*^9}, {3.415317403717375*^9, 3.4153174250455*^9}, {3.4153174569205*^9, 3.415317485779875*^9}, { 3.4153175246705*^9, 3.415317554311125*^9}, {3.415317744733*^9, 3.415317802123625*^9}, {3.415317914592375*^9, 3.415317948311125*^9}, { 3.41531798038925*^9, 3.4153180349205*^9}, {3.415318079233*^9, 3.41531826088925*^9}, {3.41531832707675*^9, 3.415318347936125*^9}, { 3.4153183847955*^9, 3.415318397311125*^9}, {3.4153195572955*^9, 3.415319974904875*^9}, {3.415320027983*^9, 3.415320033186125*^9}, { 3.4157398525385*^9, 3.415739906241625*^9}, {3.415739945179125*^9, 3.415739981460375*^9}, {3.415740030491625*^9, 3.415740036804125*^9}, { 3.4157401115385*^9, 3.415740120429125*^9}, {3.415740226710375*^9, 3.41574025481975*^9}, {3.41574029169475*^9, 3.415740364522875*^9}, { 3.41574039869475*^9, 3.415740484897875*^9}, {3.41574060150725*^9, 3.415740666522875*^9}, {3.415740775460375*^9, 3.4157407827885*^9}, { 3.4157408220385*^9, 3.415740908710375*^9}, {3.415740971054125*^9, 3.41574103719475*^9}, {3.415741108491625*^9, 3.41574125781975*^9}, { 3.415741319460375*^9, 3.41574135775725*^9}, {3.41574140519475*^9, 3.415741465397875*^9}, {3.415741499054125*^9, 3.415741666226*^9}, { 3.4157417592885*^9, 3.415741788397875*^9}, {3.4157418529135*^9, 3.41574185300725*^9}, {3.415742240976*^9, 3.41574224931975*^9}, { 3.4157424064135*^9, 3.415742409585375*^9}, {3.4157424411635*^9, 3.415742441522875*^9}, {3.415742636804125*^9, 3.415742649647875*^9}, { 3.415742909054125*^9, 3.415742970226*^9}, {3.415743010351*^9, 3.415743015241625*^9}, {3.415743068976*^9, 3.415743072679125*^9}, { 3.415743111226*^9, 3.41574313063225*^9}, {3.415743165304125*^9, 3.415743573226*^9}, {3.4157436059135*^9, 3.415743606554125*^9}, { 3.4157436595385*^9, 3.415743659679125*^9}, {3.41574369713225*^9, 3.415743830616625*^9}, {3.41574387694475*^9, 3.415744126647875*^9}, { 3.415744246226*^9, 3.415744256429125*^9}, {3.415744363241625*^9, 3.415744384960375*^9}, {3.415744415022875*^9, 3.41574442350725*^9}, { 3.415744825726*^9, 3.415744864101*^9}, {3.415744901460375*^9, 3.4157450905385*^9}, {3.41574517963225*^9, 3.41574518256975*^9}, { 3.415745281335375*^9, 3.415745483460375*^9}, {3.415745696804125*^9, 3.4157458481635*^9}, {3.415745926835375*^9, 3.41574599725725*^9}, { 3.415746027272875*^9, 3.41574605731975*^9}, {3.41574610781975*^9, 3.415746216601*^9}, {3.415746248866625*^9, 3.415746291429125*^9}, { 3.41574633794475*^9, 3.415746361366625*^9}, {3.415746400179125*^9, 3.415746421351*^9}, {3.415746481866625*^9, 3.415746550179125*^9}, { 3.41574660338225*^9, 3.415746632351*^9}, {3.415746742679125*^9, 3.415746771241625*^9}, {3.4158477821635*^9, 3.415847831022875*^9}, { 3.43233258425*^9, 3.432332585453125*^9}, {3.4328536594370375`*^9, 3.4328537437182875`*^9}, 3.4328538140620375`*^9, {3.4328540028901625`*^9, 3.4328540557651625`*^9}, {3.4328540917026625`*^9, 3.4328541628901625`*^9}, {3.4328542064370375`*^9, 3.4328542161401625`*^9}, {3.4328542732026625`*^9, 3.4328542738901625`*^9}, {3.4328543834995375`*^9, 3.4328544954214125`*^9}, {3.4328545378901625`*^9, 3.4328545573901625`*^9}, 3.4328547634526625`*^9, 3.4328566647182875`*^9, 3.4328570056557875`*^9, { 3.4328573263589125`*^9, 3.4328573264214125`*^9}, {3.4328573705307875`*^9, 3.4328573824682875`*^9}, {3.4329395228585*^9, 3.432939523124125*^9}, { 3.432939564546*^9, 3.432939577796*^9}, {3.4329396704835*^9, 3.432939679186625*^9}, {3.432940081905375*^9, 3.432940084811625*^9}, { 3.432940117936625*^9, 3.432940118124125*^9}, {3.432940290921*^9, 3.43294030032725*^9}, {3.43294033320225*^9, 3.432940370999125*^9}, { 3.4332134389835*^9, 3.4332134913585*^9}, {3.433213694936625*^9, 3.433213695311625*^9}, {3.433251165342875*^9, 3.433251200921*^9}, { 3.433251233499125*^9, 3.433251292280375*^9}, {3.43325132357725*^9, 3.433251376780375*^9}, {3.433251417030375*^9, 3.433251477780375*^9}, 3.433251539749125*^9, {3.4332515706085*^9, 3.433251618311625*^9}, { 3.433252413311625*^9, 3.433252432061625*^9}, {3.43325249457725*^9, 3.4332525241085*^9}, {3.433252566999125*^9, 3.433252574092875*^9}, { 3.433252647061625*^9, 3.43325269332725*^9}, {3.433252740467875*^9, 3.433252906655375*^9}, {3.433253090671*^9, 3.43325309820225*^9}, { 3.433253160624125*^9, 3.433253162686625*^9}, 3.433253218374125*^9, { 3.433253361874125*^9, 3.4332534433585*^9}, {3.43325355745225*^9, 3.433253577155375*^9}, 3.433253756171*^9, 3.433253978421*^9, { 3.433254213436625*^9, 3.433254316796*^9}, {3.433254718671*^9, 3.433254823671*^9}, {3.433255740155375*^9, 3.433255745905375*^9}, { 3.4351579063345003`*^9, 3.4351579077251253`*^9}, {3.4351581534126253`*^9, 3.4351581868188753`*^9}, {3.4351584804595003`*^9, 3.4351585840220003`*^9}, 3.4351586500220003`*^9, 3.4351588368501253`*^9, {3.4351588783813753`*^9, 3.4351588837563753`*^9}, {3.4351593235220003`*^9, 3.4351593235688753`*^9}, 3.4351599950688753`*^9, {3.4351601616157503`*^9, 3.4351601872095003`*^9}, { 3.4351603666626253`*^9, 3.4351603710063753`*^9}, {3.4351604173970003`*^9, 3.4351604485845003`*^9}, {3.4351605747876253`*^9, 3.4351605809907503`*^9}, {3.4351607186001253`*^9, 3.4351607259595003`*^9}, {3.4351608612251253`*^9, 3.4351608666626253`*^9}, {3.4351610629126253`*^9, 3.4351611229282503`*^9}, {3.4351611794438753`*^9, 3.4351611832563753`*^9}, {3.4351612466157503`*^9, 3.4351612701313753`*^9}, 3.4351613522876253`*^9, {3.4351615375845003`*^9, 3.4351615414907503`*^9}, { 3.4351619087407503`*^9, 3.4351619143970003`*^9}, 3.4351624680532503`*^9, { 3.4351625358970003`*^9, 3.4351625363032503`*^9}, {3.4351648659282503`*^9, 3.4351648696001253`*^9}, {3.4351649589595003`*^9, 3.4351649805063753`*^9}, 3.435192731640625*^9, {3.435192815984375*^9, 3.435192827234375*^9}, { 3.435192910578125*^9, 3.43519292721875*^9}, {3.43519301753125*^9, 3.435193018*^9}, {3.43519313421875*^9, 3.435193153828125*^9}, { 3.43519319521875*^9, 3.435193232625*^9}, {3.435193279453125*^9, 3.43519329309375*^9}, {3.43519333915625*^9, 3.435193371484375*^9}, { 3.435193604984375*^9, 3.43519360771875*^9}, {3.435193738734375*^9, 3.43519377690625*^9}, {3.435193814046875*^9, 3.435193897234375*^9}, { 3.435193991125*^9, 3.435193991453125*^9}, 3.435194170046875*^9, { 3.435195459015625*^9, 3.435195459140625*^9}, {3.435195714578125*^9, 3.4351959233125*^9}, 3.435195979625*^9, 3.4351960373125*^9, 3.435197193125*^9, {3.435965303816125*^9, 3.435965432566125*^9}, { 3.435965464097375*^9, 3.435965509863*^9}, {3.4359655661755*^9, 3.435965615238*^9}, {3.435965659784875*^9, 3.435965660253625*^9}, { 3.435965946816125*^9, 3.435965998113*^9}, {3.43596611983175*^9, 3.4359661540505*^9}, {3.435966185441125*^9, 3.4359661855505*^9}, { 3.435966220972375*^9, 3.435966247941125*^9}, {3.435966294784875*^9, 3.435966321753625*^9}, {3.435966420347375*^9, 3.435966460972375*^9}, { 3.435966494222375*^9, 3.435966543909875*^9}, {3.43596664045675*^9, 3.435966698441125*^9}, {3.435966737066125*^9, 3.4359667689255*^9}, 3.4359668678005*^9, {3.435966898441125*^9, 3.43596692058175*^9}, { 3.435966972284875*^9, 3.435966989847375*^9}, {3.43596708051925*^9, 3.43596711333175*^9}, {3.43596721408175*^9, 3.435967224597375*^9}, { 3.435967266441125*^9, 3.43596729264425*^9}, {3.43596745458175*^9, 3.435967510128625*^9}, {3.435967545784875*^9, 3.43596764820675*^9}, { 3.4359678761755*^9, 3.435967961613*^9}, {3.435968034816125*^9, 3.435968164472375*^9}, {3.435968205159875*^9, 3.43596822689425*^9}, 3.435968363847375*^9, {3.43596842008175*^9, 3.43596850633175*^9}, { 3.435968683378625*^9, 3.435968687222375*^9}, {3.435968778472375*^9, 3.435968819222375*^9}, {3.435970113316125*^9, 3.435970147253625*^9}, { 3.435970231378625*^9, 3.435970233472375*^9}, 3.43597026914425*^9, { 3.4359704078005*^9, 3.435970417472375*^9}, {3.435970448847375*^9, 3.43597045001925*^9}, {3.435970488738*^9, 3.435970562238*^9}, { 3.435970595566125*^9, 3.4359706724255*^9}, {3.435970715238*^9, 3.435970717816125*^9}, {3.4359707521755*^9, 3.435970793941125*^9}, { 3.435970936784875*^9, 3.435971030566125*^9}, {3.43597110420675*^9, 3.435971106738*^9}, {3.435971189722375*^9, 3.435971408363*^9}, { 3.43597145283175*^9, 3.435971462363*^9}, {3.4359717283005*^9, 3.435971775941125*^9}, {3.435971825941125*^9, 3.435971859128625*^9}, { 3.435971898409875*^9, 3.43597191689425*^9}, 3.43597194851925*^9, { 3.435972804253625*^9, 3.435972828878625*^9}, {3.436044976238737*^9, 3.43604559567647*^9}, {3.4360456996947575`*^9, 3.4360457111325502`*^9}, { 3.4360458341044483`*^9, 3.4360458403858585`*^9}, {3.436045871230398*^9, 3.436045999843066*^9}, {3.4360460476255393`*^9, 3.436046069251093*^9}, { 3.436046101220661*^9, 3.436046179425788*^9}, {3.4360463053821373`*^9, 3.4360466713133802`*^9}, 3.436046849051474*^9, {3.4360469451158185`*^9, 3.436046994476141*^9}, {3.4360470249767265`*^9, 3.4360470397426353`*^9}, { 3.4360470892435856`*^9, 3.436047104009494*^9}, {3.436047333201394*^9, 3.4360473461235175`*^9}, {3.436047378280385*^9, 3.4360473959682245`*^9}, { 3.4360474579381647`*^9, 3.43604746211012*^9}, {3.4360475010171165`*^9, 3.436047510361046*^9}, {3.4360477710064974`*^9, 3.4360478119288964`*^9}, { 3.436047879461011*^9, 3.4360478897580175`*^9}, {3.436047971337187*^9, 3.4360479868061347`*^9}, {3.436048070869711*^9, 3.4360481244641466`*^9}, { 3.436048170120981*^9, 3.4360483421700583`*^9}, {3.436048389733167*^9, 3.436048495718899*^9}, {3.4360502717572565`*^9, 3.4360505472295327`*^9}, { 3.436050579995577*^9, 3.436050817889231*^9}, {3.43605084971756*^9, 3.4360509092648163`*^9}, {3.436050973999605*^9, 3.4360509989685154`*^9}, 3.4360510582501445`*^9, {3.436051122109928*^9, 3.436051150469485*^9}, { 3.4360512093761115`*^9, 3.4360512172824125`*^9}, {3.436051256938916*^9, 3.436051257454544*^9}, {3.436051462846484*^9, 3.4360514745965595`*^9}, { 3.4360515579564676`*^9, 3.4360515847222643`*^9}, {3.4360516810353804`*^9, 3.4360517129574594`*^9}, {3.436051804426795*^9, 3.4360518082393193`*^9}, { 3.4360518416614084`*^9, 3.436051845786435*^9}, {3.4360518919742303`*^9, 3.4360519910842395`*^9}, {3.436052043662701*^9, 3.43605228958615*^9}, { 3.436052325414504*^9, 3.4360530465284944`*^9}, {3.4360530934350443`*^9, 3.436053103966362*^9}, {3.4360531408728485`*^9, 3.436053170482413*^9}, { 3.4360532186858463`*^9, 3.4360532537329454`*^9}, 3.4360532850456457`*^9, { 3.436053338561613*^9, 3.436053347983549*^9}, {3.436053480343771*^9, 3.436053489781331*^9}, {3.4360545018659334`*^9, 3.436054502475312*^9}, { 3.436054906524773*^9, 3.4360549084622855`*^9}, {3.4360582982813606`*^9, 3.436058326328235*^9}, {3.436219781921875*^9, 3.436219857125*^9}, { 3.4362199093125*^9, 3.436220123578125*^9}, {3.436220334703125*^9, 3.436220624296875*^9}, {3.436220668140625*^9, 3.436220736921875*^9}, { 3.436220900296875*^9, 3.436220902875*^9}, {3.4362209411875*^9, 3.436221007703125*^9}, {3.436221097859375*^9, 3.436221098484375*^9}, { 3.4362211419375*^9, 3.43622133225*^9}, 3.4362214036875*^9, { 3.436221450515625*^9, 3.436221506125*^9}, {3.436221558515625*^9, 3.436221569*^9}, {3.43622161340625*^9, 3.436221649359375*^9}, { 3.43622174975*^9, 3.43622175028125*^9}, {3.4362218735*^9, 3.43622188878125*^9}, {3.4362219260625*^9, 3.4362219801875*^9}, { 3.436222075703125*^9, 3.4362221303125*^9}, {3.436222294609375*^9, 3.436222311359375*^9}, {3.436222346640625*^9, 3.436222347984375*^9}, { 3.436323591640625*^9, 3.436323641265625*^9}, {3.43632380625*^9, 3.436323851296875*^9}, {3.43632389559375*^9, 3.43632398659375*^9}, { 3.43632412428125*^9, 3.436324150921875*^9}, {3.43632440978125*^9, 3.43632444959375*^9}, {3.436324491203125*^9, 3.436324642859375*^9}, { 3.43632479378125*^9, 3.436324795703125*^9}, {3.436325008265625*^9, 3.436325045640625*^9}, {3.43632541128125*^9, 3.4363254215*^9}, { 3.436325808140625*^9, 3.436325828421875*^9}, {3.436325949078125*^9, 3.436325958703125*^9}, 3.436326417703125*^9, {3.436370379359375*^9, 3.43637057184375*^9}, {3.436370671*^9, 3.436370744734375*^9}, { 3.43637085440625*^9, 3.436370876640625*^9}}, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The neutron star average density is \"\>", "\[InvisibleSpace]", "3.297657263584261`*^18", "\[InvisibleSpace]", "\<\" kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \ \\(-3\\)]\\)\"\>"}], SequenceForm[ "The neutron star average density is ", 3.297657263584261*^18, " kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)"], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.436370877484375*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.4363708775*^9}}], Cell[BoxData["\<\"AVERAGE Density Method:\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.436370877515625*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy is \"\>", "\[InvisibleSpace]", RowBox[{"-", "5.94155573172153`*^46"}], "\[InvisibleSpace]", "\<\" J.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy is ", -5.94155573172153*^46, " J."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.43637087753125*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass equivalent is \ \"\>", "\[InvisibleSpace]", "6.610872317945658`*^29", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The Moon's gravitational binding energy mass equivalent is ", 6.610872317945658*^29, " kg."], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.436370877546875*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The Moon's gravitational binding energy mass fraction is \"\>", "\[InvisibleSpace]", "0.2215699669178911`"}], SequenceForm[ "The Moon's gravitational binding energy mass fraction is ", 0.2215699669178911], Editable->False]], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.436370877546875*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.43605171387934*^9, 3.4360517193168755`*^9}, { 3.4360518181456327`*^9, 3.4360518238487945`*^9}, {3.436051897693017*^9, 3.436051913708744*^9}, {3.436051969052849*^9, 3.4360519984592867`*^9}, { 3.436052050350244*^9, 3.436052104459965*^9}, {3.436052145241476*^9, 3.4360521737572837`*^9}, {3.436052291164285*^9, 3.436052299851841*^9}, { 3.436052335227067*^9, 3.4360523400083475`*^9}, 3.4360524107119255`*^9, 3.4360525110563173`*^9, 3.436052622088278*^9, 3.436052724526434*^9, 3.436052783011183*^9, 3.4360529198401833`*^9, 3.4360530477316275`*^9, 3.4360531050288687`*^9, 3.436053257357969*^9, 3.436053290092553*^9, 3.4360533784368687`*^9, 3.436053493015727*^9, 3.436053574281872*^9, 3.436054505975335*^9, 3.4362198849375*^9, 3.43622001465625*^9, { 3.43622007034375*^9, 3.436220092671875*^9}, 3.436220670875*^9, 3.436220738171875*^9, 3.436220906984375*^9, {3.436220942546875*^9, 3.436220949390625*^9}, {3.436220996328125*^9, 3.436221017203125*^9}, 3.436221314015625*^9, {3.43622138475*^9, 3.436221404265625*^9}, { 3.436221468546875*^9, 3.436221506453125*^9}, 3.43622157525*^9, 3.4362216501875*^9, 3.436221751078125*^9, {3.436221876890625*^9, 3.436221889484375*^9}, {3.436221970734375*^9, 3.436221987609375*^9}, { 3.436222079875*^9, 3.43622213146875*^9}, {3.43622229834375*^9, 3.436222312140625*^9}, 3.436222348640625*^9, 3.436324240078125*^9, 3.436325424984375*^9, 3.436325509734375*^9, 3.436325888265625*^9, 3.436325920140625*^9, 3.436325960515625*^9, 3.436326419078125*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.436370856109375*^9, 3.4363708775625*^9}}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {}, {GrayLevel[0.5], Thickness[Tiny], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV1Wc81n0fxvHTVnKhbElllMiIiDp/3789QmTvLSEre0RCZWVEkplNiJCV QrbKpjLKyt573u5Hx+v9+HjwuWDmcNeSEIfDFRHgcP/f7dv2SaoO/qj84aQz Sjt7I9ji0uUfXEbw2W3EWzXe+da3xQmbcC57oH213BL0qv5WPt3v1J+JboAd xgzFZK7cWv4gFWbH9QgCIqidz786jWfm7q8+GggA+zviG1WGvHi8R4hga2Iw NFJw1ahnSuBNmlF2tGkIXPiQ8rmbRh0fQL921oArAqIlZJsX4szw3SXqrdEb kfAky0fw12dHvMWvq4FbA9HwumuKxdfQB79BQA4GVS9hr0mPUXMgGB/MPbbz JTEOgvaE3wllRuEZ1GpKOf3igcn+UFlJIwGf4xHnEGKaABXnwk6V0aTjxVMd ryxJJcKQww/+vPk8fHuz4qQ6VzKkPTvp3BtXgi90P61qQJwKSemLvn08lXj3 UL+CiI1UuPvT5V/j5y94LGX+ZN1UGmyxOQWXrzbiyT/oWq8NvIWgp5b8RoYd +M6mpkbO1nSwS5JzbWTqxr/+JcSuU5UB1x/Qu6KBfrzZYqp/SH4m3KUdYYsL HsJfIfxvpCYxC8IXlDPYM//iV+m8by6FZ0MJe6zQVvokvpp7Ov6CXw6Y7DiI iWjM4gPxmpvqjrkgIPBqhLhjCa+kVq8ebJoHU8LUQlk0a3g6S/7iirv5ENtq pTxVuYkf8Uj8b07qHby9xJccN7+Lzwo7Ycd6vQCki23Kn1Yc4R1S3VrvcBXC IzL35uY4QnSjdJwrgKEIgp392BQKSRDO4rKkHvF78Jb2123kOYEmFkYc13ze Q5Z+eHErIyVqdY9NCdt4D+iuR331Z2pUSKD0ndO+GCR3a7Wkr59B0aGEB7VT xeDs/HAxd5UOudFV8ugYl0CFFpnP9AEj0ktx0FsZKIGiI75KFcOzCHFzPQ9R /QB7H2WufKE4jy5+GPrI3voBWs/nUdUwXUSk+JipGolS+NLqzypjwIHmmhTo tKpKwW7Pi11ogAt1quKkl66VwTU+2uawCG5U+qvc+Vl+GYzj7iU8C+ZFPovs nVWJ5cDYaJTKkimITDx+HarTfYRcV7m7OS+EkDRh1NWF8I+g+6qoYSH9Oroc JmcQTFoBjC8dbjydEEWU9IchbH4VwKrMx8+jIY5WU0orK7YqQCaufT5/4xbq 57adVnOshODiNrLtdkDJ+EGZQNMqoK/QbEqmkUIBzREurL+qYOi5hJp6nzS6 pyaTXn63Gri/oPrhSlmk9Huv6057NdDyysri6uSRgGUJbkaqBnqaTfvC5hUR 7ZI1f0BNDdxdN/WwRMpo24PNiOX6Jxguj47wqbiD6sLCqpW5aqF+mN+5Lu4u qp392UGRWws5vekWxaIaqEb+0kgrz2cYERmd1tvQRJVZLktPCz/DTplhrFCX NtInNMWlM36B1kNF508dukivmOwEod4XGEwtvfp0Rh/pmBTSmL75Avsb1Xd4 uY2QZu3eRbZzdXCl7rfgUKgp0njwlueRcR2kSJ6AU5Nm6O5ZBeHh1DqYUD1n wK5ugVS94mTesNdDlL1/QLvTPaTCjVfZtaiH7xwiiaoc95Hy4LiWblY94JP6 mTOXbJCiiKA1A3cD0MdTeqz32iP5yQFHN5sGGMELnHnh4YjkXj7y7MtvgH7L jGDxWCckvdoeEsP3FbLu+esU7j9EkmnOMasOX2Er9IitQN4VSagyJaoVfwXe JWrHokw3hAqtCqiEG6HvcixOJ9YT3TKkLLd3bQTp1H9Kmtze6Oap0tpv5Y1g HJahTtzlg27YEHSGijVB5ynj61f4/ZEoU87grFcTPNrKsfx48TESaVH5q1DT BHFttp1xFwKQEFfiKhk0g7PZJueIZCC61ie5Z+XfDBLc3/JprYKQQOAMUVNd M1hqyRWJxwUjvjERukDpFui0rCQ+xfYc8UYNs44HtYC2qndZvEcI4sECuSSb W6CC53HhwJ9QdDm5SxSn2ArCn1w2FEYjEJeyB2Yc2grMkdosYjcjEef+OYXa jlYYSZ/RZaGKQhf17PR87rRBpTbpmW+d0egsPZnvtkY7KLpXPJRsiEPMjQVB 2nHtoPKaseDN4CvE5KIRUT7QDlaDlds22/GIvjstxUWvA2QF5c1f67xBtI/l c3redIDNw82O6NeJ6IzA0vtrwx0gZbI4ITKVhKgjbtUvG38DArx67l+1VPQf frztTto3YOX3Kco5mYYo55/3FI59A9OO5KbZ1jR0UnFgws7yO3zo+70ebpCO SEidyWZsfoBM2dSJmwNZaFrBj2ot+wd8GNL56F+RjdrCwxgOJn5A2zu4nZea g5pDemKe8XeCcaafmWJwHgo9vZiemNsJfjJStAr5hcindD37Qksn8IqTvRBu KUL2Wnv5WVOdkPC4RTDf7T1STSAvfc/eBTLvb5zzzClGtBfZv35N6oJb7FfM 1SRKEclX7haFmi5Yb2k1vLJWijYtBTq+/+oCu+061qHcMjSYi+8dZOiGe9v6 pPxcH1GSoM7EfFQ3RMe8x983rEIRPUbTTu+7IVy058fQjWrk72o5v/m9G+oG FmX3mWqQWaXzOu5UD9SoSTIWLXxCXBLhxHTBPZAW/uIf8dIXxDAeQ56Q0QPp D3s7jlzqEHlQwim2hh4gNb4SJnNYh2Zbsmm5cb3AuUcQusTcgIpU6znwXr1g q3Sq3PNRI0pdbblcH98LOraflILPN6Holz945T72gosCWZRRUxNyGRwSVlvv hUe+miLlrC3ohsmWtKV9H0S7bLyY2W9D3ISH8rNhffCO83mP2Od2xJxBrOyQ 3wedVsaM40EdaP8fjabndB9wtHdzhp7/jr448FqGm/VDzG2cYHpTJ1LwMw0q 0xqA6qA+mb95vejaizrZNJcBMHgyfVQs0IfOplwgD48eADKBsybClX1oufZv iMX3AahUGE127+5HcYemkWdkB0F2WKLy/KWfyP+/erUj80EQYYmNzGr4iWzO XTwz93gQuLvjhoTMfyE8Gout/zQIfAEiNVH5v9GEr9kbp+s/4VHyVbI3ZiPo e3i9gaH6T9jsK76WyDiKKpIunlNw+glmDuPuBN2jKPTTWOr5gp8gRUlo8DL7 D7p2YJb1g+MX3DFOjL8gPob8fcyLr9L+hqrXkRLWVZPIJqzBmenab1C5wdHs KzSFNBLZhUlUfwOxr13Tu8IpdKlmvHwo9Dc0nF9keJj/D33fM68JJRqCQ62P 7+59nkEVFF993S8MgVdI3k0qxVn0loUDzGEIamLa004MzCLXmxN14t5DYB2p 2k67PYfOels0z6wOQdAVqnUd7UVEGvr1WR/1MEg9uMRvu7GIlhM4FOv4hqHq rUYkZdwSaqia6Ii3GYZM1rw7UQ7LyGbXoltubBhIU9WxipYV9NHTcjizawQc EndF1mrXURayHWBeHYGckOsmjFc3UByRU9eL06Mg1mPgSJW0gdzCfRo91UfB +YuxWkjAJhJJiylQ7huF0BcrVNoW24jL6nV2/cYoLHiG0Rf93UahsT86WSj+ QJvrbR1y0x3krdfXFsnzB2hsCS8MWO4i/Yk/tV52fyDMnDvi5bN91N00frPM 5w/kUN8cyaA/QIq5UxVLYX+AkjB1YDrrAInbz5dYFPwBJJK9yPn9EDFvb2Wp LP4Br8xJJYZEHPyioHpx0fEvMEVuUIpjRHB3keaUof9f+OovruWaQARtnbTP X0X+BQ/f91UEm0RQFcv85FTxX/i3VRBztpgYEti43DdX/oJ3eAxngygp6Anh jdsejgFvA7sPf8gJ6KbDhogDx+CgNKVNeu8EKG5L6sLLMaCmXJWbeXASxD/J q5eWjoGO1aXby9oUwCynIZe8MQbnbjo8sAVK+Klny+/sPg56o55bs0XUEDIm Z/cqeBzIr5aHiq9Qg7gNR25N7Dh4nfl0qClEA4mewxfJSschWMZubauSBkzi 79AnLo/DzZ+nf57tOg3/+oQOGu9PwCTXoxsJl+kg3pBafM5jAsrnr3OGu9OB /OS8G/WzCXglzEpp20wHeeuZy3pZE+Cy8Ppg6T492J9hnFgamwC7/kUNnSoG 2FDdb2MymITDIoZAnxBmyBocJAPbSTBi9NljnmEGLZMyaQuvSeBrYIhokmeB Cgf72sL4SRjfHt5RpjgLPhF/iqX6JsF1Of6OYRIrEHV8jX+gMgUXCUVb67zP A41cuFUd9g8GuwsYzRU5QDq3BnjU/kHpahSfZTQHeFDMM8aa/oNf9vXsQr85 4M8PxXbrgH9AVyfzQMyBE97rkAtQf/0H1NCryJbGBao2T3aM5KZhw+P24/6r 3BDYUdLdoj0NCirKl6yecEMF31j+Netp8A9Iahn+yQ3n1zAj0ufToOcfoxv2 /Aosex/WF7RNQw9uqol5nQciwz3D9pVn4FbDg/jMLT74upRjaWU0Aze+8W3E GfDDttog6rSfgS7dk2MR9fxgQi+6kv5iBgRyuK9/kxcAgZR1zdtdM1Cbsm/A e04QOt87sCVozIKg9vlgtvFrQN1rWSKqPwebU0F5asMigC1IzGrYzsG2U0PE 9nlRcCQ9d9HZew6uS9wWBUtR6LrRH/XuzRxwjfXB+yVRiE6SdbowNAeeASOm 2CkxoLt3SYDCcB5su1W+0VveBFl/IuvLD+YhbWTussSHm+D2ejRFxncerqfd DmUlvAX97a+o/JPmITDEiH0l7RbEC5AvrQ/Pw5nYUE7OWTww704XjBgtgOFe cNC0CgaKZxon9+wXoIfr7+N+bwy8eNNYmfwWoFndQ+VSLga/jXTD1VMWQOko ZXyNWAISG1rtWkYXwCi/cE2xTgLOhefxlJgswoNg3uwAZSlgP2+XG2S2BBG5 b2O+VchC2MiFtHCnJaA3l9+1WZKFzcSB+Fj/JZATsBJy4pKDFiapZ5nJSzAr SuZRFSsHdmeY7zX+WoKLA7r/VD3lQZ/IIjqAexmK2iTP0WoqQuYmjWp92jJ4 iAuTyZurwK+++duyucvQiaRj+XJU4L+yZrm298vwWs5iMmpBBTwe+kL352Wg tFhw7PK8A4rL03xjw8vAQ3XhAbuSKizOfKYkZF4BF5tUii43Nbgx/KBdInoF UoKmIz2P1KGQ25nOOmEFYkI+lBHzaQCHm5txxNsVUFJz0Z8y0ABqKr+1XyUr 8IC0gqKoWgNmsEgWl54V0L/3S9rcVxMSMkpss2hXYW0wsryeRhv2bbcoKF6t gjdzakvXYz1wrtjTFExZhcPEl23navRgmhiXqp29CuYFQ8Ldm3rQm0QunPFx FTZ/xBnaP9CHgh9MBvjBVfAV6BkIMTYAI6Fb7xyY1oCl7KisQ9sI6nb9lXrf rAFfq7DLJRVT6GVy3nRIXwOvEZOZHgdTmLphnkqRvwavQyPKSqNM4ZS7zLpk 1RoYhX+Xpe03Ba21E4nFg2vg8UGb8K6pGczORc9F0K3D8zsXOA8fmwPtcEaI wot1CLZV4OlbsASu/Vjhybh16JTs5gqmtwIxlqcj/snr8O57xcOHYAVGuvev VRSsA+mnHEriaCvI7bv6i6tjHRbF+NOIxe8B+l7OTXxiA5hqTo3XxlqD9eeW ltqADWhXLsId+drCjhj1ReGQDbhbQe/bWmALIaXa3rlRG4CfytPpH7aF/Nyp qy9TNwChYokKZAeLMcQx92s3IKeB1iWD6AG4WGOGtLsbcHRcP/0Ee/CnqVi5 77QJn9QuBCQdOgJN2JHiqMcmNDI/sl5gdoK3pHIZGv6bwPEf4aGZqBM07PVp wYtNsFX80/HZ0QlIp9aqaQs2IV/r9FnpSScIq+IP/jy9CUsMruPxfc7w2jyb mc5kC7YSTI2e9LqA3W3Gel7rLZhhMWvL23YBJPT8vrTjFtjfsdQhZnWFMULb iof+W6BjM5SnYuUKvG/5tLpTt+D3U6UJmT1XqP1TFvXi7xbkHe5szPO5w7jh V/KT5tvg9PSu+6taTyiXuf7+gu020JNijTYznvDsapa22MNt6OsjPXSj9QLe g6dZ1k+2IZFj7vRNWy9wS7wt3Zy+DRkePSQeLN5A/rvbL3BiG0KbBWy2gn3g qs7fzUPLHXCJr2rPCvWDxNNwGPpgB7TYJM9kV/nByW+JJEyuOzDddlp1dMYP piV0aIUCd6CwK/uGD4c/ZPD8ELz3dgfeDnrdmwn0B+ajGrsfIzvQ8E2V7crt x0CaFT+Wor0LSQ4z3DsLAeBqsjnDa7wLfyI5Wa+ceAITzBorlVa7YM2RKOvF 8QTqXlDhel13gVQ1I9tD/wn4eAazkr/cBQVux9jltiewquSi49i5Cy21Zxcm igJhZO3Od0xhD1YZlbnSooMhgmWA3VFtD8LGXz2ILA0GJGXkmaK7B6f9Ujxy +oMhJdqO4/D+HoxYf7RTZ3kKJoLPvapD9qDsekJffNZTGLev5xLp2AOj95dF CRufwfSMsB/PnX3oXbUS1LkYCvE0Nb162vuQNXz0PkchFOTFpK6EGO9DhoxK GZdTKOQ+U+ubdtgHB2Wq2fwvoWBzyZ4nK3IfdrfF9UdNw2DBInvgfPc+iCzw mlAWhMPqKJMAveYBvOErutclFAnnzbeE2QwPYGTOr/U/xUi4M9UrdtnyAOxe P460MImEd/MvpMRdD6DrukaybngkWO2QaBvFHoBhqvSC7XQk/Dq96pvVdwAc KQtnpdKjoE6mrV1E6xBovfL5lHhjYLkluxOMDiEirX3ik0wMnFMK6pO3OoTU Vo5XisYx4HUXG9VzOwTixLuyZdExIGxcvvoo7hBWJtq5u3djIMfjLVNz/yGs t9ET4ztfQmS+1z1t7SPoXxbXdoqMA30CmY4+oyNgaxI+4ZEfB1zaVIIaVkfw M9opIb4pDmoIM3ZVXY9gPGA749JBHEzrfgtXjDmC5BYKCz/bVwDk50vxP45A gu1gg1M5HtxLzHDR7DjMeakksZcjAQyGm6+pXcJh1iWDgzelEkCS/KolNQ8O e1zoov3ZNAFOGW21RlzDYW0qPTYsKQnw9kRYTKgEDlMaDz5zheUNfDcp4woy xmFa+x/7ShgTgYuKXNnjDQ7DceTIH3Enw7vlx1nPUnBYetZzgx2VZLjWvXcU n47Dlr525DG4JAPELpVU5uOwQN8pk7raZNBhGWDcq8Zh+qZybB2aKRByKWvC dwiHXR2XF7WVSYVFkPZ5wkqAZfnl5dc+S4NyR//8iBQCrIxYcuPN7QwIqV4u 1U0nwFJ2k0t9TDPAmNS0liObAAuR/6fs6J4B5IkSXVWFBFh08BKKTM8AvWbC ralPBNg5gT3H0v0MOGQNkoQhAgyFXxiIL8kEmfbnP5cYCbEvlw+7Ll/Nhl7O GDK1aEKs0c1WRMAkDxQuMd54EEeI6RAzDtn55kHt5STr5wmEWMBn2fsNCXmQ y5PdWveWEMvaPHhU25cHjwSrQ699IMTiQNp7USkfLuPHqWh7CbGV6w1z0tg7 8NEQYhygI8LU7U9MyN4sBI4nPZcNXxNhV/XwAgpSxaBTQiRolUSESauR7NJp FkPYXyExhzQirH0lzWHFqhg24KXC41wirMUuMaA3pBia9jVsMiuJsLwVvKxS TzHcd+vPX/hJhBURfZQ5ea8ECu//5HvETIw90ibcwiV8ADHVUeGUN8RYvqgJ xzx/OdRMkyyYpRBjkQVhdqLS5YAe82ZypRNjbz8khEbplIN0iSddYR4xFjQ+ ae/8uBxUaGk3ayqJsct6OYX/esrBbFD+468BYqzkDhuW7f0RQk1KxOhpSbCd kZni0v4KGHYMQuFhJFhgIvXyWE014L58YX0bSYI9i0t5JzhQDRxU+/vlL0mw 5yHG+i9XqsGmwLn6TyIJ9squoyaWqwa2Z4xvCBeQYEu/v3x7HlUDp83Fr/3+ RoLVO9/nlrD9BPKaS5zcVKTYzBXdMjzfZygR06VsjCLFXim/XHzsVQf0Ws0/ c4LIsLvPZVP+e9QIMIaLqnchx/5zExbOPdsGr+mtKbk8TmAkxm9tiQ5+QEDy /afXbU5i+zdej7IK9kDS9/imCEcKLOnmeBiF6AD42scsszqfwgL3epkftv+G OdPLjLpmlJgg/dPf0Tp/IPRglnjE6j/MN8iVgMt0HKrm5Zb+06PCRJVo2sQT pqCf88aYOAc1locXWuS9MgvW3Ob8MZnUmJ39EK9w8CLUael7S5yjwVLMLW6G ha2AkM5sLm0aDZYkKMlsrrEOdk9kB/Asp7G51psOize34JkV+S5BzGls66sr E5PlLnxiNT2apT2DvRQYKtwROoTKw2CiKxFnMJ0QnTC+0wTY9w9Ss+E0tFjE n7MbMfZEWON5q6awaFosXqMeJ3F0/NNHzbS/J+mwZ5orJNmp5JjBxSEj/XA6 rF9Re42mngLbK+dn4SGjx7K7U0VnN/7DfIhmOmIf0WO7Zcox5QI0GD2HmCkn jgFzkuS3ChM5g7nba62f9GTAYl+sG+ZI02ErYSdt6PYZsIcCPPdb3zNgZwMl aDmPjVQ+N9EXM2By3h61wseWC2HltDh20v2p0xrHvmV+Y+Lw2Aqy9dXRx6b4 +s9W+AMDlnbkSUl9wID1vuFLSyljwNScZ96fPGTA5jzupbtVMWA+98/rMx+7 3FCS+euxs020Sa4cWyL6XxRNNQN2oNKoq3DsjuXIJ++OncuTRvjs2GRFxo5j NQwYwaSOBskRAzYfsuig8pkB4x16cUh77DBOh7U3x9buacrhOHbJ5Sr3mWMX 1AkfSB273r4oIPALA6abTJ0VcOy7nAxvq+oYsMBYOdXoY/vxz/GQ1zNgRWGP dtOO/brwebnmsUm851Xqjl1Ow/V9+dgCzuw7ncfu32bXRw0MmP59vfQ/xz6j Pz8deuxgkyjl5WNvifm5/zx2sXbL1tGxqV8NkV76yoD9Dy5b3xw= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->None, AxesOrigin->{0, 0}, Frame->True, FrameLabel->{ FormBox[ StyleBox[ "\"Radius, km\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Binding Energy, J\[Times]\\!\\(\\*SuperscriptBox[\\(10\\), \ \\(46\\)]\\)\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"-Gravitational Binding Energy of a 1.5 Solar Mass, 6 km radius \ Neutron Star as a Function of Distance From Center\"", Bold, FontSize -> 16, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox["\"\"", TraditionalForm]}, FrameStyle->{{ Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}, { Directive[ Thickness[Tiny], FontFamily -> $CellContext`Helvetica, 14], Thickness[Tiny]}}, ImageSize->{1131., Automatic}, PlotRange->{{0, 6}, {0, 6.1}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.436221314421875*^9, {3.436221387*^9, 3.43622140446875*^9}, { 3.43622146875*^9, 3.43622150665625*^9}, 3.436221575453125*^9, 3.436221650390625*^9, 3.43622175128125*^9, {3.43622187709375*^9, 3.436221889671875*^9}, {3.436221970984375*^9, 3.436221987828125*^9}, { 3.43622208009375*^9, 3.436222131703125*^9}, {3.436222298578125*^9, 3.436222312375*^9}, 3.436222348875*^9, 3.4363242406875*^9, 3.436325425625*^9, 3.436325510296875*^9, 3.436325888796875*^9, 3.436325920671875*^9, 3.436325961078125*^9, 3.436326419609375*^9, 3.436370575390625*^9, 3.43637069178125*^9, 3.436370746078125*^9, { 3.43637085621875*^9, 3.436370877578125*^9}}] }, Open ]] }, Closed]] }, Open ]] }, WindowSize->{1272, 907}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingStartingPageNumber->8, PrintingPageRange->{Automatic, Automatic}, PrintingOptions->{"FacingPages"->False, "FirstPageHeader"->True, "PrintCellBrackets"->False, "PrintMultipleHorizontalPages"->False, "PrintRegistrationMarks"->False, "PrintingMargins"->{{18, 36}, {36, 54}}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (February 7, 2008)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]]}, Visible -> False, FrontEndVersion -> "6.0 for Microsoft Windows (32-bit) (February 7, 2008)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 596, 14, 114, "Section"], Cell[CellGroupData[{ Cell[1211, 41, 819, 12, 33, "Subsubsection"], Cell[CellGroupData[{ Cell[2055, 57, 65384, 1622, 4686, "Input"], Cell[CellGroupData[{ Cell[67464, 1683, 1083, 15, 23, "Print"], Cell[68550, 1700, 1373, 24, 23, "Print"], Cell[69926, 1726, 1379, 23, 23, "Print"], Cell[71308, 1751, 1334, 22, 23, "Print"], Cell[72645, 1775, 1060, 15, 23, "Print"], Cell[73708, 1792, 1085, 15, 23, "Print"], Cell[74796, 1809, 1371, 24, 23, "Print"], Cell[76170, 1835, 1385, 23, 23, "Print"], Cell[77558, 1860, 1333, 22, 23, "Print"], Cell[78894, 1884, 1061, 15, 23, "Print"], Cell[79958, 1901, 1078, 15, 23, "Print"], Cell[81039, 1918, 1366, 23, 23, "Print"], Cell[82408, 1943, 1060, 15, 23, "Print"] }, Open ]], Cell[83483, 1961, 21044, 361, 740, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[104576, 2328, 869, 13, 24, "Subsubsection"], Cell[CellGroupData[{ Cell[105470, 2345, 36331, 812, 2514, "Input"], Cell[CellGroupData[{ Cell[141826, 3161, 1974, 32, 23, "Print"], Cell[143803, 3195, 2001, 32, 23, "Print"], Cell[145807, 3229, 1991, 32, 23, "Print"], Cell[147801, 3263, 1627, 23, 23, "Print"], Cell[149431, 3288, 1652, 23, 23, "Print"], Cell[151086, 3313, 1938, 32, 23, "Print"], Cell[153027, 3347, 1951, 31, 23, "Print"], Cell[154981, 3380, 1899, 30, 23, "Print"], Cell[156883, 3412, 1629, 23, 23, "Print"], Cell[158515, 3437, 1648, 23, 23, "Print"], Cell[160166, 3462, 1936, 32, 23, "Print"], Cell[162105, 3496, 1946, 31, 23, "Print"], Cell[164054, 3529, 1902, 30, 23, "Print"], Cell[165959, 3561, 1628, 23, 23, "Print"], Cell[167590, 3586, 1649, 23, 23, "Print"], Cell[169242, 3611, 1928, 31, 23, "Print"], Cell[171173, 3644, 1629, 23, 23, "Print"] }, Open ]], Cell[172817, 3670, 20371, 350, 740, "Output"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[193237, 4026, 1002, 16, 24, "Subsubsection"], Cell[CellGroupData[{ Cell[194264, 4046, 22115, 414, 1101, "Input"], Cell[CellGroupData[{ Cell[216404, 4464, 2103, 33, 23, "Print"], Cell[218510, 4499, 1717, 24, 23, "Print"], Cell[220230, 4525, 1745, 24, 23, "Print"], Cell[221978, 4551, 2026, 33, 23, "Print"], Cell[224007, 4586, 2041, 32, 23, "Print"], Cell[226051, 4620, 1984, 31, 23, "Print"], Cell[228038, 4653, 1720, 24, 23, "Print"] }, Open ]], Cell[229773, 4680, 11050, 196, 747, "Output"] }, Open ]] }, Closed]] }, Open ]] } ] *) (* End of internal cache information *)