(* 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[ 161530, 3635] NotebookOptionsPosition[ 159004, 3557] NotebookOutlinePosition[ 159859, 3585] CellTagsIndexPosition[ 159816, 3582] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Earth Gravity\n", FontFamily->"Arial", FontColor->RGBColor[0., 0., 0.5019607843137255]], StyleBox["Dave Typinski, 2008", 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}}, FontSize->24, Magnification->1.25], Cell[CellGroupData[{ Cell["\<\ Density Profile of the Earth - Spherical Approximation Using PREM Data\ \>", "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.4330732061085*^9, 3.4330732098585*^9}, {3.433092362921*^9, 3.4330923751085*^9}, {3.433261120405375*^9, 3.433261121921*^9}, { 3.4351618092876253`*^9, 3.4351618284282503`*^9}, {3.4351632922095003`*^9, 3.4351632979907503`*^9}}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Earth", "'"}], "s", " ", "equatorial", " ", "radius", " ", "in", " ", "meters"}], "-", " ", RowBox[{ "WGS", " ", "84", " ", "reference", " ", "ellipsoid", " ", "via", " ", "Wikipedia"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ 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", " ", "and", " ", "linear", " ", "best", " ", "fits", " ", "to", " ", "Preliminary", " ", "Reference", " ", "Earth", " ", "Model"}], ",", " ", "1981"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Note", " ", "that", " ", "the", " ", "PREM", " ", "uses", " ", SubscriptBox["r", "volumetric"], " ", "as", " ", "the", " ", "radius", " ", "of", " ", "the", " ", "Earth"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Input", " ", "is", " ", "in", " ", "m"}], ",", " ", RowBox[{"output", " ", "is", " ", "in", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercore"], "=", RowBox[{"1.2215", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.177275"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"1.911026", "\[Times]", SuperscriptBox["10", RowBox[{"-", "8"}]], " ", "r"}], "+", RowBox[{"1.308848", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercore"], "=", RowBox[{"3.4800", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.412312"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"0.1397596", "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.234623", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innercore"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "DLayer"], " ", "=", " ", RowBox[{"3.6300", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.000714"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", "7306.695"}], "/;", RowBox[{ SubscriptBox["h", "outercore"], "\[LessEqual]", "r", "<", SubscriptBox["h", "DLayer"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lowermantle"], "=", RowBox[{"5.7010", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3.092201"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]], " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"2.444117", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"6.782253", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "DLayer"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lowermantle"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone1"], "=", RowBox[{"5.7710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.328571"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"5.319659", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "lowermantle"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone1"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone2"], "=", RowBox[{"5.9710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1.260300"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.124903", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone1"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outertransitionzone"], "=", RowBox[{"6.1510", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.970556"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"7.108267", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone2"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outertransitionzone"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lvlid"], "=", RowBox[{"6.3466", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"1.086873", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"2.690961", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "outertransitionzone"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lvlid"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercrust"], "=", RowBox[{"6.3560", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.900", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "lvlid"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercrust"], "=", RowBox[{"6.3680", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.600", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "innercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "ocean"], "=", SubscriptBox["r", "volumetric"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"1.020", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "outercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "[", RowBox[{"x", " ", SuperscriptBox["10", "3"]}], "]"}], " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ SubscriptBox["h", "ocean"], " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".7"}], "]"}], ",", "Thin"}], "}"}], "}"}]}], ",", "\[IndentingNewLine]", 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[{ "\"\\"", ",", "Bold", ",", RowBox[{"FontSize", "\[Rule]", "16"}], ",", RowBox[{"FontFamily", "\[Rule]", "Helvetica"}]}], "]"}], ",", "\"\<\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[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.4330918074835*^9, 3.433091860936625*^9}, {3.433091892217875*^9, 3.433091927467875*^9}, {3.4330919607335*^9, 3.43309200913975*^9}, { 3.433092055405375*^9, 3.4330920998585*^9}, {3.433092211796*^9, 3.4330922987335*^9}, {3.43309254132725*^9, 3.43309264288975*^9}, 3.433092679749125*^9, {3.433092750342875*^9, 3.433092862046*^9}, { 3.433102530092875*^9, 3.433102571436625*^9}, {3.433194060374125*^9, 3.4331940774835*^9}, {3.43321244657725*^9, 3.433212455905375*^9}, 3.433212565842875*^9, {3.433212710296*^9, 3.43321271082725*^9}, { 3.433213215374125*^9, 3.433213220905375*^9}, {3.433213635046*^9, 3.43321365607725*^9}, {3.433251098592875*^9, 3.433251105936625*^9}, { 3.433251683436625*^9, 3.43325172851475*^9}, {3.433251846217875*^9, 3.433251850749125*^9}, {3.43325192013975*^9, 3.433251991405375*^9}, { 3.433252044749125*^9, 3.433252047124125*^9}, {3.433252160749125*^9, 3.43325218807725*^9}, 3.433252288467875*^9, {3.433252593749125*^9, 3.43325261051475*^9}, 3.433253962421*^9, {3.433253997905375*^9, 3.43325402020225*^9}, {3.43325408451475*^9, 3.43325413013975*^9}, { 3.433254265499125*^9, 3.433254266296*^9}, {3.4351593883188753`*^9, 3.4351595734751253`*^9}, {3.4351596805532503`*^9, 3.4351596889595003`*^9}, {3.4351597518501253`*^9, 3.4351597523657503`*^9}, {3.4351608989595003`*^9, 3.4351609188970003`*^9}, {3.4351623738345003`*^9, 3.4351623939595003`*^9}, {3.4351637070845003`*^9, 3.4351637076313753`*^9}, {3.4351637714751253`*^9, 3.4351637719595003`*^9}, {3.4351638577407503`*^9, 3.4351638619595003`*^9}}, Magnification->1.25], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 0.7], Thickness[Tiny], LineBox[CompressedData[" 1:eJxN13c8lf/7B3AZkaNzHEJW6FjnREJZkZcVFTIyoqKSaJFUdmQkI7PxyYhS MjLCfQ5Sok9RWkiDyEpWUWlQ+t3f3z997n/ux/NxP97v631d7+teCrv8HPZw c3FxZSzg4vrfWTetaqpJUMH4JkcRNuosLDXTD503+2Ps3H1C6X/eGKluV2dG w/A1eoc16RgNj8q6AAl4Sr+x+p8HcwsNLpjJ4YHe67hNpBX4f/QbJDAg+Yea vJH0s3XZ14oCVOByKNR9A+nIY9i/1H0FouKWfbYkrVE2pHHKTAPnLX/YrSf9 KcB8dvasJv6pFAgyJ/3gzLltWgnaiLu3ea8p6dziD7d9I9ZgR+TjZSB97L6B Qn6ALhSHo3KNSNsOJEW/8tZH5+cD7w1IK8/3DtPc18Kv6Mw3XdIv1kQXR5gZ Yz/9mJ8m6a7r+xZ2ZwGPmta+UifdRGSwv501gbis3iIW6Yvtw5IrE8zg39bZ rEA67h310YYYc0QoHLWRJR3wUTdsT4QFguSsLy0lvUEwoTc7wBKrxHOzqKRX L61K4Rywwkeq5PpFpOWVe9DpvQHnKx5yeEj/MFl5heK+CaUfn3/7rsbC9eD2 vSFmmzHs5P/iLemHzeFCj5bZgetc3t0u0o0bRYZfZdmB/wT/saekS13Xnvt6 1h6vNwXrNpKOCUz+sSLBEaefTchcIh0yp/Bcn38LeFzbN54j7X+SKLKM2QLf +I9IJr0ttc9td4QTZgYfxoaQ1i7VbLgY4IJlcaIBDqRVte+fvf7JBTNbyvot SS+rcztEHHAFp+2EpBFpwZZouXbvreBm3+9XJj0w+CJqkbs7Lh8b6vy+goV0 6ZD1QWYekLjsYZFCmqfr0xfBRx4YHdjIH0naoOXmM1umJ5J0r57yJ116UjWi v8ITVjKFzXakU7+Lvl7YuBPnO/pUqaRd+8fO2PfuxumfitfDWCyk3b46LLXc C0HHF9j7kn6Y5Wk4tMcLeotsOE6kDZ27Ro9NekHDR7NJnbT8o7vm2b/2YFpU o/kNk4UP1Rdm30v54Mny+WBV0grpjvYVO3zw+u2jRXTSbn7U68GXfUCUCrj+ VGWhjRnjJMTyxUjsU41W0hW5fhWa+vuwTDm9bQ/poPj13mEuB9AvO16XrsIC 78rZDwIb/XF/bHxfvRILXMI7zpf5+qOvwXowh/Tc9F2LLaf9wUmKXh5J+nPN 6cuXWvxRLHtkxox0v5HkNh3Lw0gVcptsUWThto3e093mAfBcZqnUwiDjHTxW c3tdIGREcmuyFFgI3Pxmt9eOQOhtvy1wnLSf5joRwYhAiBVUL3cg7T3D5+fU EAhhJUYJP2mn8LOqE2uPgvcrP9VfngWt5OosSf1j+P7vlLSOHAvjpZ+jArWD 8FXf2PW8DAv3Ny41D3UIgurT2l0HSOd9MFp48nAQZt+a6piQdlY8nZBSHoRD PpF6Y9Jkv2bJZRSvCEbWqqIifdLnEqwL3jFCIHmmct0TSRZMfa7dt14Shszw HO0n4izILmyLd9QOg/b6EY9s0j+uTG90cwiDf7yx0z7SN/oMn+5NDQM7WDqL j/RSl46XJ4XCkU6LytAXY2HSgmuUwxsBbwEe3fOiLFxguFGUZk4geeWAFVOY BSb/tihvSiTuWW26P04j7+dfguEGMpHwjlzMU0YaIz6BA0aR+GCZU6dJuuqW 4m6tqEhM6o4p6FDJ58HebLTzR2EuS/+5lhALexsS5+hiJyEXWHZzjp8Fbt99 h9M0YpDoNRX5aJ4J6oXsjxbGMXjz+xJfNGnpB0/2z9rGQFuIy8GA9Golbe/d h2LAHf/c5PpvJvb0z7mtuREDsV+14VG/mGjZmmz+mhULga48b+YsEykbKyQU lOOgZX//l+0MEzJq3xoqZOLJeP4G02NMiCcmVn7bngSV2ynqgc+ZmNUqPVNu kYrYlug7PtVMxPta5IXYpOLOPuOur1VMiOX1Vlo4peK6c0xNJOlVi+kvur1S kUwpfnz+JhPeI0elBWJScXnUy6u5gon2LOPrnk2pmDx2YYXwDSaKeTvu0o3T INj1TT7yKhN6aw909KxPw9aybis+0v8e5hsutE2D27MN+gkFTLzr1RVYtyMN ftN3j2RcIddbm227LzwNvYUKm6/kM3HyoHd3Uz3p4dxLnBwm3Lp+fj2ilw6f a6mFtWeZkJPvdxxBOoyHDo6rkR7ybbnptiEdJ9tEP17KZMLv9zl/E7d0OGTX asRmMBGjuHqCGpYOYf2DBdZpTGw4JL3pZEw67B6m9DakkvvD4S6eSUrHPF/o y5Wk/9n0fG9PTjryw0r4hFOYKAs4NFh0Jx18ewMdnyYxceSWk6lsSzrKN/VE ryOtt9AoP/VZOh68ETpyI5GJ5n8oHsf702H040FyQgJZ78HPDWOj6ciOc6j9 cZoJW/U3Mjs+k/ncuXrFm/SrxutvzHkyYLnqWrVJPBM5gqn6HEoG3H0cu8tO MbFry/ELK5ZkoGdja6M0adXcHd9zZTIQ+ud3KredKiZHLJxFlDIgsaeIiN2s ipua6jWx6hl4rymaKUA6KHTJkp9rMjC2Zy0z0VYV3LTB533rM5DM8yAkxUYV D1wfrnLcnAH1gyxdOumky5Up910ysGCddUm6tSokdCJtbvhkwELsUV3mJlWo bZdtDUnIAC7WHDu7QRXOJS6NYk8y8P230a7TFqoosWwr2+SUieNqMgJrjVRh tfKorcb2TPit/1x/y1AV75cs+yiyJxPLNz5dtY60/ICf+pvATNyh5m7HWlVk homW+mRm4mHSmWYTfVWEVboVxXZkQmtbfaPeGlVYS49euWN/FmZW5pHf1cj8 P/L9o217DtudRJdwpFWhsMX9jprRBZxuruyhfFeBxak1+vrOF7H1Dp/d7EMV uE8dG3TalA2P5Y//eZmjgp0qRv2x+3JBEa+oPe2jArUzKcmDxnmgSxF8DzRU kM+oNk3Sy8cOj7b6gW/KoMpn5a9bfxnnRTaova1WRiC7ZulPkyv4+NBAbtUR ZbTXpOs3OBQgNEBbNEtFGcyM8B+nd1zF+3+ovB9fKSGYkv10h+s1ZDg1ySQk KuHuWJid0d5C2EnZL7DUVgL3nrRRhtd1HKyIrHrQo4i1t6vkRbcVIQ+MMqUY RRja6/JaehbB/FBqRfZJ0kN1IyFeRZisj9ovGqWIdYJNZQMHimDNnhLkilCE qfMzw5vhRTBbyTX14rgirD5OuNpfKoKY7LBD4H5FbFmmnJYyUATL+fuhoQ6K cKosCmx+X4QoNc6ZUTtFOJuru34fK0JTiLqby2ZFuOxbLefxpQh2xwuktKwV 4UaY3ljJW4xrU80mQxaK8LT1aH2sVIw1Qy2qa/UVcTDiwgIh32L0PRnbWiWn iDd9YXw/DpB+Qf+svUwR6012LhryL4as449N1TKKkOdl0W8FFWNjBY9FtaQi 2k/Xyx+IL8aJGVHrSlFF6J3tNW4rLIZpiVTZJX5FFHxrMuOUFENQXH+XzEJF 0F0LLQvKi0H/Lv7qAq8ixqT8N4exi/Fcmr4obYEicvIWeKg9KIbq1PyJiDkG uEsVI5LeF0PrXuNdm08MHFq86GTQWDH+Te9Kuz/JQPehyVivj8XIfFnCMJ5g oFqTSDb8Vozh5swkjVEG9rItcyb4SuCp4nlk8SADnUvV8l8tKkFX4WH7mH4G ECJ89d7iEpzONZ2e7WNAyuh1abZYCQo+Lj820sNAXG5DRbxkCYSstNy3dzPw 5U9+daBsCSolFnB3vGagrWnfLWsl0pJvMxu6GNBX3NyoxywBxXosUusFA9di te8pqpfg8ldiZWEHAyIjEi3CmiXwVjvMvmcmjhNWvx79Wl2CkM6Ra82m4pgo evf0g14JksN2nGsyEYcr5d+OTkNyvOKL2LsQh9aT5O5S8xI8CmzyurNOHLka AX0XrErQJ6O/5baROChpzoMx1iX4eq/crMFQHEOOcuPbtpRAVixneb2BOM6/ rpgV8irBoZrj7wgdceSZGyrZ+JSgN1TfPG+NOK6XP9icfKAEdqZzhadXi6Mu trdg8dESaD6N8NumJY4eTaHN1Dhy/g+x8wtWikM+Ye8V2vUShMpkytgokeMN llmLTJQgPrrCdVCUHJ+VmCMRWIqqma53EZNieGEY2Ms6cQOe893VNaViGA1K 1V0fVIZzLj0PzPzEMCPtZ7A/rhyE1gLV2BVi+F3ayLI2qYDsDrnlRuNLEFpv xz9yqwKU/p88xiVLcPT3Xc5Cs0rUWnWkEF5LMCFkc4zVWIm3GvY57xSWoG9z rUCH5U2sC5grtnklCltP48IT92/iQvqp2qR0URh4tmVWmFZBL8vUSt1GFJcz DFy8W6tg1Nk93s4lirjMJiV5y2oIyGjdjuOI4H3LitYdT6uRVT3ZKOQrguaJ rHoFpxqU6fl2vJMUQfyScy+XuNRg7Yt+M/ZSEdgapn7h31qDup6MgmQJEbxK jFnxcVsNEtUKdAzERPCRdTCrzqsGR58ezUkXFoGU77pQx8Aa7F/+9ij4ReA/ /M4gNqMGw7/q7VO/0qGzuNs56Cw5/vvOVq8vdMytfhGw/3wNGNtNNPU/0xEX 01psn1WD5b6lz/s/0ZHFuCm17Ao5X4y2k9Y4Hfd3Rs8SN2sg18K391k/HTK9 SnUfntdAMqauhuspHeUJR0b5OmvQFyHQWvuYDlPdu0sZXTUQs3zYGtBGh2/q tuPb39SgybgoY6iVDsI0Y3X7QA3WtHdaPbhHh30hV3n9lxryvTagd7qOTvaf be+rmRossjnIMKmlI4gre/G37zVYOLF/7gebjtytugdW/aqBVfq9Iz41dExQ DjGv8hLoOzEYu76CzMe/+8oZMQKH+l5q/LlKh5Qss6NEgkDLqUvTNQV03Gg9 xt0qSeDM7zd5B67Q0blcZCfPMgK77G88eJ1Hh8ILq2VBygQULt7Rqcqiozrq nM1ZVXL+G0pevhfp5PtvKOwmiwAl5U+E3D90HDp1ontiJYHrtdTwxHN03NIn LuzUJfCz/OLFXWl0bH7P0xKhT0BW45L20lQ6BtLtv2etJVAaKlH3+Awdx4wv KdcaESg6y7MyOpmORRMTTl3GBETDd6foJdGRfcEg9osJgTFN3d7JBDpWWcRX C5sTWFEdIXXlNB3N0y8G1dcT0Fg+F+LyiQbnXIboJisC5yT6vZw+0jC28bCp z0YCv4Qe2DpO0hD+/fbhWGsyX+4bevYTNBTYuT27Y0dg1WSQkM0YDdPcacmr txLk/7Nwtfl7GurEaY/V3QnYya2/6zhMQwwrWUhlO4HO0NAnu4ZoEHc4nSi5 k0Dv6vcfIgdoMMyPOj3vQ2DqWr1sQy8NfDV/Wr7vI3CUZ5rV9paGJy3hAtMH CMx6KOt199Cwcyr41KA/AR7JNIefb2iIMw6IbQkiIJHofWrNSxo2O07duxtC IHskK9O8i4alew/x1ocRkDd/nu/4goaSM/uib0QSYP5ee+twBw2Blz80XTtJ oGzr4dbIdhrWEd7ceTEEtIhrXSnPaeB/OGTyTxwBQqRnMPcZDc/e7opKjydg 6EefvvGUhn+m3zUmJhC4+2j9/K0nNOzi8+CKTSJgXpUYdOEhDWqSb40jzhCI XdLiGfkvDTNq7ieOpxJoPcq7waeRhtt4fds/nYDQS2ja1dMQv8Vl3jeTrJ9e uKQeQYNUmGP4tgsEXs/OjPKX0jCY8vyW00WyP7ZptX+6RkPplc2/bLMJeDYc qnuZT4Pxo02hJnkE3p8YSSg8T4OXlHmw8nUC33hfr7CMpqGMs/roFJvsF9qt g3FuNJjNiB2MeUnAmnFymncRDQ8VnzUceU3mE9wTtpCXBoctCdTd3QS0n+kI CPyhwrNqvtykj4Bc+PgyygwVYYdHPs+/J+fv2mJN76eCmOQEBX8jkJugUihb S4WR7JFWnx8E6P1RWnLVVNyzVpdynSVwSrenQb6cio6S/HqdeQKHh1I7GVep mPJNmP/Cx4b5utkFrDQqWO/dYw6JsTEx3bZNx5eKSjHxF9sl2NhlpfJB14sK PYtnSjaSbLzMjTqi70GFZYH5gxWybNzdpJNg6ESF1y51wVFFNjKvXmKbmlAx njbi9kqZDcFfP03NDakIuJtf8kCVjRMOW55Y6FIRJS9uc02NDd8/AsNW6lTk 9s6n7F7NhuHWAJHNklQoUWvfOeiwUVHelmO3hIpSoyOapnpsqCxUYTrQqKjP HmmXN2RDqKrb2ImPCtO2fIbwOjZiF+k8cuai4uGce+AfYzZ+eKQ6u84txiu3 Z2K9ZmwMCVkcdJ9eDI+EBO/HFmy47r70Y9vEYryvNWffsmTjUe3P6B0ji3Fw dJ6/dANZH+EtNM+Bxfi6tNY1axMb9d5lF3e+XYxQqyNFCTZsaDQIKO9+tRjc QeqzwZvZKBDdXenVsRgJhSMbfe3ZkNzXYOj9ZDHoL/OzXB3Z+O4sRVd2FYJ3 Yvmfw05srJVW/JbpJIRbxg27E13YCO9T7+ZxJK9ff7XitjsbfD4mV/tthFAX TLvF8GJDPNhHP8dMCF4y4T0fA9nQziJ2LtEQArHTVTb2HBtH+hxuci8UIr+z vaNyL7DBvrLt/GEeIXg+PDLMvsjG3F7vsHdcQhDUTrkxlstG9FTw+ttzFHjw 3jeyK2QjY0H+m+BpCgQKtXdIc9ioZHzinu6hwH2CeqnyNRtTexMd+6ooeM9v I1rYzcZk5gtmSCUFAYzEU9lv2Ri9K8clVk5BvBu//6l+Nt5JV5duLKaguuUP to+y0f60h4/Io5D/lUY1DuNsPPml3GOXS8HDP6FMq0k22piHb45nUfBO5wdd e5qNe9F8HgrnKRC6OjUg8JONGt2VnKRkCs43rnSZn2WjyivojEoiBct7Djz6 8ovsl7Qmr6Z4Cm58LzYenWej5LbQ2u1xFOiJjlb1cnFQOO5M/xFNQfNKFdVO bg6uLs0fSY+iwHbjnuxWXg7yLMYb1E9Q8GbPFeE7CznICliT2RJGwZ6o/phq AQ6Ej/d8yHsniKlsuZ9Fghzc2374lHC/IMI42w9eEuIgyHyhciTp9E+vnRKE Oeinr9rtMSCI29vblT2XclBVGv1WdkgQG4KFs5ykOPDJWBqWTLoz05a2SYYD mZAbUr9Jjz16+H2NPAexli9deoYFIWHQ3EJR5cBlgNV+cUQQ/uLV+9i6HMxJ tN+XGBeEwtOzZVQXDsyi5SvonwUR4qeis3IrGY+wK00g3UmrbbBx50BpLPI6 zxdBxNn1tCV5cLDQvj9vhvTY8+Xjgj4ctC67nPZ6RhA3O8tV+IM5sK1jHMn/ KQjKUZNy5VAO7kw6+knNCsJLrENnfTgHGgox+zNIizt/s4iN4oAeP7Q7do6M /9LQiyeBgw6nq1t8fwvC9E1r3p+LHLhOK+toLqAgK8RdVS6HjKfoolVM+qvU ZPm6SxwYuJ5ayeCm4Jq78J3wKxxI3xlRFuOhQPCt89u5Eg7eJl2X+MlLwe7w D17SZeT6Gl+JBvBRcEs2ZMKgglzfFwHhcdKHduTMBVeT++nmK/B2IQUdfYOS P25xsEuV9bNRgAK1yKP5EnfI9bm7zegvoiBOnp+pe5cD85SE6Zuk+xovVDg3 c1DdVDe5QpDsn50svWP/kvX7NjZaQDptwa07Zx9wcI4p/V6WQsFYvo1lTStZ z+2bBs6RNjPte9L5iAPt/z/4kT3g7/z18V/PnOTuFX3217aMzD3a7X9d2Kw0 6dDJweO2/x284PJiBwZ0/fXNgjfRlW/+2mv4d/pU718HmSyMC+j766QcavDX /5ha5MfmfceBA2dZ7Lj9lHFa9bOZJf/xkkbN1Ur/8blH6QFr/uOsgS2fnP7j vJ/iB479x8UqWXvY/3G1k5zHj/+4Z/Eqi1/9f81zHyu4Bv/6/wCDbzB9 "]]}}, 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[ "\"Density, kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \\(-3\\)]\\)\ \[Times]\\!\\(\\*SuperscriptBox[\\(10\\), \\(3\\)]\\)\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Earth's Density 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->{Automatic, 727.3683572898997}, PlotRange->{{0., 6371.00065998873}, {0., 13.08848000000248}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{ 3.41574297144475*^9, 3.415743018241625*^9, 3.415743074366625*^9, { 3.41574314100725*^9, 3.41574328569475*^9}, {3.41574332950725*^9, 3.415743354835375*^9}, {3.415743386476*^9, 3.41574340456975*^9}, 3.415743574929125*^9, 3.4157438336635*^9, 3.415744129226*^9, 3.41574425769475*^9, 3.415744425976*^9, 3.4157451031635*^9, 3.41574518438225*^9, 3.415745502960375*^9, 3.415745672304125*^9, 3.415745780022875*^9, 3.415745851022875*^9, 3.41574593731975*^9, 3.41574600031975*^9, 3.415746367460375*^9, {3.41574641025725*^9, 3.415746423929125*^9}, {3.415746536147875*^9, 3.415746552241625*^9}, { 3.41574660913225*^9, 3.415746635397875*^9}, {3.4157467491635*^9, 3.415746773554125*^9}, 3.415847799491625*^9, 3.415847833272875*^9, 3.43233258828125*^9, 3.4328547686089125`*^9, 3.4328566740151625`*^9, 3.4328570174995375`*^9, 3.4328573291089125`*^9, 3.4328574034057875`*^9, 3.4328596794057875`*^9, 3.432935919499125*^9, 3.43293938501475*^9, { 3.43309261763975*^9, 3.433092643686625*^9}, 3.433092683811625*^9, { 3.433092765155375*^9, 3.433092794092875*^9}, 3.43309286557725*^9, 3.433102603530375*^9, 3.43320948270225*^9, 3.433209964655375*^9, 3.433209999499125*^9, 3.433210085905375*^9, 3.433212456874125*^9, 3.433212711905375*^9, 3.433213223467875*^9, {3.43321363676475*^9, 3.433213657374125*^9}, 3.433251732967875*^9, 3.433251983296*^9, 3.433252048280375*^9, 3.433252195092875*^9, 3.433252290030375*^9, { 3.43325399995225*^9, 3.43325402182725*^9}, 3.433254097155375*^9, 3.433254131530375*^9, 3.4332542672335*^9, 3.4351595782251253`*^9, 3.4351596289126253`*^9, {3.4351596611313753`*^9, 3.4351596899595003`*^9}, 3.4351597530532503`*^9, 3.4351607386001253`*^9, {3.4351609063657503`*^9, 3.4351609318970003`*^9}, 3.4351623994126253`*^9, 3.4351660959907503`*^9, 3.435197048765625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Mass of the Earth - Spherical Approximation", "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.4330732061085*^9, 3.4330732098585*^9}, {3.4330923778585*^9, 3.43309237857725*^9}, {3.433213581217875*^9, 3.433213586311625*^9}, { 3.4351632796001253`*^9, 3.4351632843501253`*^9}}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"Earth", "'"}], "s", " ", "equatorial", " ", "radius", " ", "in", " ", "meters"}], "-", " ", RowBox[{ "WGS", " ", "84", " ", "reference", " ", "ellipsoid", " ", "via", " ", "Wikipedia"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ 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[{"Earth", " ", "mass"}], ",", " ", "NASA", ",", " ", "kg"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "accepted"], "=", RowBox[{"5.9736", "\[Times]", SuperscriptBox["10", "24"]}]}], " ", ";"}], "\[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", "v"], " ", "as", " ", "the", " ", "radius", " ", "of", " ", "the", " ", "Earth"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Input", " ", "is", " ", "in", " ", "m"}], ",", " ", RowBox[{"output", " ", "is", " ", "in", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercore"], "=", RowBox[{"1.2215", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.177275"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"1.911026", "\[Times]", SuperscriptBox["10", RowBox[{"-", "8"}]], " ", "r"}], "+", RowBox[{"1.308848", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercore"], "=", RowBox[{"3.4800", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.412312"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"0.1397596", "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.234623", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innercore"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "DLayer"], " ", "=", " ", RowBox[{"3.6300", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.000714"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", "7306.695"}], "/;", RowBox[{ SubscriptBox["h", "outercore"], "\[LessEqual]", "r", "<", SubscriptBox["h", "DLayer"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lowermantle"], "=", RowBox[{"5.7010", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3.092201"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]], " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"2.444117", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"6.782253", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "DLayer"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lowermantle"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone1"], "=", RowBox[{"5.7710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.328571"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"5.319659", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "lowermantle"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone1"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone2"], "=", RowBox[{"5.9710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1.260300"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.124903", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone1"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outertransitionzone"], "=", RowBox[{"6.1510", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.970556"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"7.108267", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone2"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outertransitionzone"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lvlid"], "=", RowBox[{"6.3466", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"1.086873", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"2.690961", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "outertransitionzone"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lvlid"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercrust"], "=", RowBox[{"6.3560", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.900", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "lvlid"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercrust"], "=", RowBox[{"6.3680", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.600", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "innercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "ocean"], "=", SubscriptBox["r", "volumetric"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"1.020", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "outercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mass", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ RowBox[{"\[Rho]", "[", "r", "]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}], RowBox[{"\[DifferentialD]", "r"}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "1", "]"}], "=", RowBox[{"Mass", "[", RowBox[{"0", ",", SubscriptBox["h", "innercore"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "2", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercore"], ",", SubscriptBox["h", "outercore"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "3", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercore"], ",", SubscriptBox["h", "DLayer"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "4", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "DLayer"], ",", SubscriptBox["h", "lowermantle"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "5", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lowermantle"], ",", SubscriptBox["h", "innertransitionzone1"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "6", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone1"], ",", SubscriptBox["h", "innertransitionzone2"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "7", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone2"], ",", SubscriptBox["h", "outertransitionzone"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "8", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outertransitionzone"], ",", SubscriptBox["h", "lvlid"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "9", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lvlid"], ",", SubscriptBox["h", "innercrust"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "10", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercrust"], ",", SubscriptBox["h", "outercrust"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "11", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercrust"], ",", SubscriptBox["h", "ocean"]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "1", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "2", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "3", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "4", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "5", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "6", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "7", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "8", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "9", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "10", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "11", "]"}], "//", "N"}], ",", "\"\< kg.\>\""}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["Mass", "total"], "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "11"], RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}]}], "//", "N"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["Mass", "total"], ",", "\"\< kg via integration of each layer.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", SubscriptBox["Mass", "accepted"], ",", "\"\< kg via NASA.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{"PaddedForm", "[", RowBox[{ RowBox[{ RowBox[{"100", " ", FractionBox[ RowBox[{ SubscriptBox["Mass", "total"], " ", "-", " ", SubscriptBox["Mass", "accepted"]}], SubscriptBox["Mass", "accepted"]]}], "//", "N"}], ",", "3"}], "]"}], ",", "\"\< percent.\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", " ", RowBox[{ RowBox[{"Mass", "[", RowBox[{"0", ",", "r"}], "]"}], "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "1", "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercore"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "innercore"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercore"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "outercore"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "DLayer"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "DLayer"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "DLayer"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "lowermantle"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lowermantle"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "lowermantle"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innertransitionzone1"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone1"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone1"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innertransitionzone2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone2"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone2"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outertransitionzone"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outertransitionzone"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "outertransitionzone"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "lvlid"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lvlid"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "lvlid"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercrust"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "innercrust"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercrust"], ",", "r"}], "]"}]}], ")"}], "/;", RowBox[{ SubscriptBox["h", "outercrust"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}], ")"}], "/;", RowBox[{ SubscriptBox["h", "ocean"], "<", "r"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]avg", "=", RowBox[{ FractionBox[ RowBox[{"3", " ", RowBox[{ SubscriptBox["M", "g"], "[", SubscriptBox["h", "ocean"], "]"}]}], RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox[ SubscriptBox["h", "ocean"], "3"]}]], "//", "N"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "\[Rho]avg", ",", "\"\< kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\).\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["M", "prox"], "[", "r_", "]"}], ":=", RowBox[{"\[Rho]avg", " ", FractionBox[ RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["r", "3"]}], "3"]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["M", "prox"], "[", RowBox[{"x", " ", SuperscriptBox["10", "3"]}], "]"}], ",", RowBox[{ SubscriptBox["M", "g"], "[", RowBox[{"x", " ", SuperscriptBox["10", "3"]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ SubscriptBox["h", "ocean"], " ", SuperscriptBox["10", RowBox[{"-", "3"}]]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", ".7"}], "]"}], ",", "Thin"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 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[{"\"\\"Italic\"]\) 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.4330918074835*^9, 3.433091860936625*^9}, {3.433091892217875*^9, 3.433091927467875*^9}, {3.4330919607335*^9, 3.43309200913975*^9}, { 3.433092055405375*^9, 3.4330920998585*^9}, {3.433092211796*^9, 3.4330922987335*^9}, {3.433102626467875*^9, 3.43310264520225*^9}, { 3.433102785905375*^9, 3.433103127624125*^9}, {3.433103170967875*^9, 3.4331033589835*^9}, {3.433103504530375*^9, 3.43310355407725*^9}, { 3.43310365663975*^9, 3.433103696686625*^9}, {3.433103727780375*^9, 3.43310377301475*^9}, {3.4331044782335*^9, 3.4331045112335*^9}, 3.433194086421*^9, 3.433209500405375*^9, {3.433209927967875*^9, 3.433209949467875*^9}, 3.433210022874125*^9, {3.43321011401475*^9, 3.433210216936625*^9}, {3.433210264092875*^9, 3.4332102691085*^9}, { 3.433211300811625*^9, 3.433211338655375*^9}, {3.43321139663975*^9, 3.43321143895225*^9}, {3.433211475842875*^9, 3.433211602092875*^9}, { 3.433211643592875*^9, 3.43321170563975*^9}, {3.433211841936625*^9, 3.433211904749125*^9}, {3.433211955671*^9, 3.433211982546*^9}, { 3.433212284874125*^9, 3.433212307249125*^9}, 3.433212386546*^9, { 3.433212748030375*^9, 3.433212749046*^9}, {3.433213227561625*^9, 3.43321323095225*^9}, {3.433213277421*^9, 3.4332133106085*^9}, { 3.43321362226475*^9, 3.4332136226085*^9}, {3.433251067499125*^9, 3.433251084592875*^9}, 3.433252310342875*^9, {3.433252376936625*^9, 3.433252389171*^9}, {3.4332525851085*^9, 3.433252585311625*^9}, 3.433253969874125*^9, 3.4351598546313753`*^9, {3.4351637000688753`*^9, 3.4351637008813753`*^9}, {3.435182852640625*^9, 3.435182980390625*^9}, { 3.435183014890625*^9, 3.4351830505*^9}, {3.435184454890625*^9, 3.435184455328125*^9}, {3.435184537546875*^9, 3.435184620984375*^9}, { 3.4351846733125*^9, 3.435184676578125*^9}, {3.435184763625*^9, 3.435184787484375*^9}, {3.435184923078125*^9, 3.43518495621875*^9}, 3.435186121015625*^9, {3.435187659109375*^9, 3.435187759515625*^9}, { 3.435187814328125*^9, 3.435187821921875*^9}, {3.435188017546875*^9, 3.435188034296875*^9}, {3.435188071296875*^9, 3.43518812465625*^9}, 3.435188160046875*^9, {3.435188195890625*^9, 3.43518826046875*^9}, { 3.435188459484375*^9, 3.435188465859375*^9}, {3.435188508921875*^9, 3.43518851565625*^9}}, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the inner core is \"\>", "\[InvisibleSpace]", "9.84334105549067`*^22", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the inner core is ", 9.84334105549067*^22, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the outer core is \"\>", "\[InvisibleSpace]", "1.840895039615799`*^24", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the outer core is ", 1.840895039615799*^24, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066703125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the D'' layer is \"\>", "\[InvisibleSpace]", "1.3171805210361064`*^23", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the D'' layer is ", 1.3171805210361064`*^23, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706671875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the lower mantle is \"\>", "\[InvisibleSpace]", "2.8082958997520366`*^24", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the lower mantle is ", 2.8082958997520366`*^24, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066734375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the inner transition zone 1 is \"\>", "\[InvisibleSpace]", "1.1530450571360007`*^23", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the inner transition zone 1 is ", 1.1530450571360007`*^23, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706675*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the inner transition zone 2 is \"\>", "\[InvisibleSpace]", "3.3341390716603904`*^23", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the inner transition zone 2 is ", 3.3341390716603904`*^23, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706678125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the outer transition zone is \"\>", "\[InvisibleSpace]", "2.8993555287267402`*^23", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the outer transition zone is ", 2.8993555287267402`*^23, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066796875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the LV & Lid is \"\>", "\[InvisibleSpace]", "3.2349522790136596`*^23", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the LV & Lid is ", 3.2349522790136596`*^23, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.4351970668125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the inner crust is \"\>", "\[InvisibleSpace]", "1.3818504634932258`*^22", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the inner crust is ", 1.3818504634932258`*^22, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066828125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the outer crust is \"\>", "\[InvisibleSpace]", "1.5869086095187806`*^22", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm[ "The mass of the outer crust is ", 1.5869086095187806`*^22, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706684375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The mass of the ocean is \"\>", "\[InvisibleSpace]", "1.5604734601810335`*^21", "\[InvisibleSpace]", "\<\" kg.\"\>"}], SequenceForm["The mass of the ocean is ", 1.5604734601810335`*^21, " kg."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197066875*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706696875*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The total mass of the Earth is \"\>", "\[InvisibleSpace]", "5.972739659870333`*^24", "\[InvisibleSpace]", "\<\" kg via integration of each layer.\"\>"}], SequenceForm[ "The total mass of the Earth is ", 5.972739659870333*^24, " kg via integration of each layer."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197067*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The total mass of the Earth is \"\>", "\[InvisibleSpace]", "5.973600000000001`*^24", "\[InvisibleSpace]", "\<\" kg via NASA.\"\>"}], SequenceForm[ "The total mass of the Earth is ", 5.973600000000001*^24, " kg via NASA."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197067015625*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.43519706703125*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The error via integration of the PREM approximations is \"\>", "\[InvisibleSpace]", TagBox[ InterpretationBox["\<\"-0.0144\"\>", -0.01440237260056838, AutoDelete->True], PaddedForm[#, 3]& ], "\[InvisibleSpace]", "\<\" percent.\"\>"}], SequenceForm["The error via integration of the PREM approximations is ", PaddedForm[-0.01440237260056838, 3], " percent."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197067046875*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.4351970670625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The average density of the Earth is \"\>", "\[InvisibleSpace]", "5513.939530029553`", "\[InvisibleSpace]", "\<\" kg\[CenterDot]\\!\\(\\*SuperscriptBox[\\(m\\), \ \\(-3\\)]\\).\"\>"}], SequenceForm[ "The average density of the Earth is ", 5513.939530029553, " kg\[CenterDot]\!\(\*SuperscriptBox[\(m\), \(-3\)]\)."], Editable->False]], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197067171875*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.43310453751475*^9, {3.433209929546*^9, 3.433209968061625*^9}, { 3.43321000426475*^9, 3.43321002413975*^9}, {3.4332100959835*^9, 3.433210200467875*^9}, 3.433211781421*^9, 3.433211906217875*^9, 3.433212309311625*^9, {3.4332123693585*^9, 3.433212392217875*^9}, 3.433212750061625*^9, 3.433213252811625*^9, {3.43321328357725*^9, 3.433213311967875*^9}, 3.433213625124125*^9, 3.43325231382725*^9, 3.433252392905375*^9, 3.433254040342875*^9, 3.4351599220376253`*^9, 3.4351661026938753`*^9, 3.43518298875*^9, 3.435183028078125*^9, 3.435184520046875*^9, 3.435184678140625*^9, 3.435184816640625*^9, 3.43518497334375*^9, 3.4351861223125*^9, 3.43518774828125*^9, 3.435187788234375*^9, 3.435187823296875*^9, 3.435188266359375*^9, 3.4351884671875*^9, 3.435188517390625*^9, 3.435197067203125*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {GrayLevel[0.5], Thickness[Tiny], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV1/c/1f0fBnAjkSScRFEIhbIjZLz4vA8le5M9DrJPuI2TeewRxwyhJCrJ XiWjkoaIG6HbyC4yUkT0Pd8frsf1eP4F1+MScPQxcqGjoaHZpub/fSG9drWT WUCtcfFm90XHy8CNKYbuYX/Vev8y1PTmTGtoR4gbtGCHwXBIP0k/B4eRJe2q W4hc4LvAhouLk8KmC8uUcjE+YDToCjqcg2ECjFtTSomC8PucU26QgDHWp1pw /wHxDPgMv2VyirPHIgLBg/vqWeg+QFgFtWuYZOWMZBwmCcqr9T4r2dexFSLa 3s6SBtm4UyOOM6HY69Rsa5lEWShNN0u3E4jGCh8uPHcPk4NNVryNc2ACFtil JHCHeAFE/J/SG8alYXpfkqM/ERRBXjjaqZU+Czu9Nz57+OpFoKuOdRdRy8P2 jklf0tJXgZ/ZD3IFhIqxQbnoh2GYGgiPKHlMZJdgQ+XX9o/lA6g/VFE6HV6G dTZkNP7KUofArKAMvZlHWOXLZ24caRqwx2EZ9YlQheX1zx6TSMQg5PqnQ8YC tVjsJOu7y2QEvdUnZDHhBoz4/QLJJQwPCTgWRdPAZsz2j714ZJAm6IzHEuS4 W7HLzInjBUQt6HukQHsprh07z117s8nzEmQ5Dj+Ir+zE+E9/hn8JlwHk0/tq 6F9hLOcZ1lfsteH2m+HcgvjX2Ja6RMnBq1fAv433NK/aW2xG39zkjKkOZLR8 zGcU7cH6bCIYMH1dmJaoSz0u1IeVB/e7hmD68C6Dxn04ewB7++IGy7uTBjB/ +UfpQOgg1q7NMfsp3wDuHWuRPBE+jFVYXMzeyDKErCtlvmhmDLs70etNhzOC HAO1K1ta41guwVmLLc0I3K1ef+4nTGJk/5Sts4nGoOXL815HYBoL2RH4qMho Ap6lNEfHbs1gvlEND7TIJrB1TlZXWXgOs06bsHIKM4VjQ2v3dQMXMSMuf1m/ HVNgfSM/tqD8DbtUyMQSHmQGitVK/OLcy5hshXRrHtEctiO3wrG4VUxEtiur fMUcfvBJDGFZa9jJFivvBk8LWDlA6oquXMeYu6P5+gmWoJtxLO4x/U+MRp97 a2LaEhzy8ZMs8Av7NVjRt2xvBaPtGrPZ8ZvYl+nByANXrwJBzn3fUbVt7NO1 a1Zcn66C6LJ3WcTjHezD2p6MsKk1NGXsMdKK7mItf8/MgL4NGKq1HOASokEU nhDNIMwOHmvMuA5k0yP6oZUfzO/swOXpO1+6vH1IqbumT0/UHl5m7Qj+LmVA FVEiYVNV9sCaZHtl4BMjmrWb/vfhhj001d4vpqU5gE6qFJ71V3CAREsHxxQp ZpS2iRvZ3+4AmgoWy0aVLOjNvx8k++gdYSHsQc7wziFEV5MQe0vLEcA2x1ff +DDy9/wre67XETQiFRXM2diRxdTXVMNxJ2AyLN8p5j2C0p+Xzh4/5Qw+jUMy ystH0Nt8e+UZF2eoirnxgvCCEymbDS0GLjtDmuvl/roILsT/rgMV/HGB9WKv HlDnQZblpHwXIEDS/fVNR+BFlJgL6xJkAsRIHld9iD+B9sHjoo6DrmA64rK3 7siHFupyt+eOu4F7oPpT5Z8CSIBibFhl6wZjDcNGbqmnkJUPa3nwXTfo0DSx XBMTRO9FyaYsYu7QMZYoqO4thKoKfaqkFa9Bd2Jj+38nz6DFUDHGHdI1WP91 eXp74Aw6ZTlr87L9Gui2D5u2J4ugTNzVg+aXPCB2zSff/YAYCorXJJDMPeFg mPWzi1LiqNqFthWf7wl/ojOId+gl0FeNZ7jDE54wtTFquT0qgax3pTvuELxA vpcje1BbCgHxBO/rAG8wm2wOZjwpg/ZJbC8wafsCxaF4ME5MHtGw2eZUuvtC 2z27oPoKebSz1oE3SfAFH+u1pc9SF9B6fcLdom5fINIPxouoKaAplWPW8lp+ kCacr3DCXwk911XodUJEsHHlmPyooYZaJAtuHHAmwpcbUR9c5tRQPTvNuSfR RLBT2FDn1gRUMfg6fruTCC8dfdqVVwDl25hrpKtfh+tpigqn9DVQkFdg/XNV fzh2mvP1AS088tcfdXK29YfYEUjxfoRHPtKqHMxh/sAkGSx9iF0TEX4y+Ji2 +oOeeF3N3wlNZHojS2TpYgBk+/V//558Ccmk1OUfUwyE+ZUy2jtCOkjCh1u7 zSIQdhO+qMXf1kGihqQt56BAYA15OvSaSxfxcyLTqsZAOP1mqcKcTQ+x3h5g 1ZL/B/6yzpVvMhmgbxXrkf6yQeDzrCXX5JwR6tLmRqFGQWA2pHc3g2iEihdU 9kf5BUFCMeeb2GYjZCaUkHjzSRDsj9RkSLlsjNrz+TIeng2GJ2xkSxmiCcpO 1Lk3KRgCnTbToQ/mzJCfCJEwrxECmOePg9kK5kinK0fku0MIjHE5ceKTzBEt 3XTFTlEI+EV6nv0uY4E8g4Prj/KGQqNyYExMkiXScLvfpXOEBLmaozvpjtbo xP738cayJFA6KjfI3mGNtkrWtK2MSNDow0t25LdBjyeUe13TSPDPTv7v4Ckb xG0+MBzFcgP8jjx2zvOyQ8t4msWmfWFwn6/rlJy5A8oVtDoo/DMc+Jl+aGgt OSNRRutIwsEIYG01GyuTcEGxf5hvKPFGgJc4LZbp54Jg3s3/i0oE9LQ1vOX4 7YJqnwk5yURGgP9p0qsGVleU51oA/YyRwDJ0tvG4qTtybU3aYeeMgvSMXRpT I2/0skZpc1Y4Cl44aRZeKfNG/OWL683yUcD2VdFu8o83GqVofXWwiALj3MfZ cw98kJ4b/Uh1fhRYh/aut8T4ovO40AbDU9HQ91ZGNO2XH6Jzv+aXLkmGgtwq b2OuAMSaW/Adr0aGoy8SxesuBSCe1x88tvXIkMe+3OEQEoDOC8sSnLzJkMZa aXlvPAC5TO1YyT0mw3eZ/970PAxE3ZYpaEQsBl6E9vTPGgahm9pVXAKnYyGg bbL+3edQVBD8JXNQLhZ0Y0QLlbhJqLz8CEciPha6Dh3v3TUmofb9wSw/nGPh upXZ78j3JLTeqU77qiQWglM2f8R13EBmFwe+ugnEQWBVc9nzp+GI99yv1ire eOjpwfEq/45EuZEvB+vF44G0rZ5O4ItCR4Ypyy2q8eBqVzHfhY9CLFGSJ17Z x4OL37de0YwotDPsRhq5Fw9XOJjrSFLRaDR6TIlOPAFGRcnb/wSQ0a2x9kZj lURwbtfY6xGNQ0ekb/Za6CUCyKwd3TOLQ2mxNvM2donA8in+gxs5DsVLbx91 i0wEGjvRmu8TcSgoTjaQ9CoRQhtO+7XfikcWsvfPl+omwYRXz24BdyI6mpRU /csmGZ6w3u3FUAqKeq5kXOGdDAl+62LHg1LQ8trihkN4MoSdWs0Rr0hBLy0u KfQUJwO5JkqehTMVEU8ztJVMJ0OH8wqxYjEVfegIe2/gngJaqydFdPTTUMyW 3/xD/1Q4PFjjwcJLQatnBRLsY1LBRPdL0DdFCrK26xM7mp0KvqHCut/MKUim S8I7sjEVfuRVUnQzKWgy49uG+XYqCJuoxxeyZiBlSRc6hoibEH70yMfIA5lo W6Yi9Qk+DVw43wa+485G8e744hDdNPB4+1Y7TyEbcRaPV+NN02AhIjA7ziIb SR1iHxxzToMIGvbe1txsRJgP4GEipwGpgt8m73gO6s9XK7fvTIOb70484hfK RQ/3DXSwq6WD3aszdN16echq6PfGdQUKcN1RU6xmKEJ8/FPG80ABk3BOgxWp IjTj3l1jdZkCee1R0abWRchnN9tX3YoC+ioeiXm1RYgsdH6JlUQBiodc2j6Z YlRJ9J5+0EYBEPYyQ3PFiO7w9McJzQxgY8u8e9n2Lnqk9b7yimkmCJL/kbqe WoouSQToSdpkAtvxUL3MslI0d+Tkdw6XTJBxj17qbi9F/F98xEf9M2F4c6TL 80cpyiThKtwyM8FeUbi7yPI+IlVbPYgZyIQ9e9dbzaJlSIdnsaTNMAt8J2Us 1j6Vo+XvDLdk9bJhKfWRMXdABRIwudp2TiUXPlZQRjQ0ahA+Tk5R0SwPSlqv RO54NKKrq4HTplcKQEQ1NKaDuRU5nFGZirlWCO87XJt/H+hE51JvpkyrFcNf QqaGPG0XuiNYp5GscAdMdrx0dqTeIlb+/DuqmnfBQvZmmoVOL/JvrOf+rV4C wVipj7ZBP+qvpyi2Gt0DjUpoMoodRKIZN7YSbEtBN0nw9UuGERR8sKDX1uI+ mEm7lXIWfEYdX0kGKq5l8DXMN1HTZxLRuaQvCjqXg1rEvzwTeV/Qxee1/Djr B4CpqqgeWpxBXmG5tCzuD4Ho1d9sXjiPckaqtlmcH4FXc7Uum+VX1JKfdJvL vwJkmLUZNuOX0aCy/7hY+GPw9z2V2XF9FS0GpV3QDKoE/oFxFdKpdfSTx0fJ I/YJCGb4RbRwbqDdinYxHfUqSJbm61zZ/wuFPjVgnH9WBffb+K6Fs2yhgN2O pv1YNRTPERrn7bfREotuoFh7NWTRMlP+Vv5BE/rNTANaNTCqaczzj8lfpGev VhbeVQNuzLg7XVs0eCX795lVGrVAvTA7pkZ0+LsZSuaEN7XUvRLSt/mPHh+b 2SnMr1UHce/b1SMdGPBz3Wff2PbWQd+oyOYUDyP+xVL+UwHTelj5wEF6PcOE 5x0Xbln4WA/v6WoPlZcw49fo0lPOWzbA4runndpFLHjsJ6cXebgB2sxL6Ag3 WfHsw3fyLYwb4eeqEkTi2fBXl1iLqkcaIfbEThGTCzteoDerktW8Cbw9FJn+ kjjwzrO7lNXxJqCl++no24zDz63afqSZaALhhKdMOVS7/2k7zE71RlJdZSvV 3rioZGmqDzKo7jC34PBB6vtjiVR3dVdml1KdfJs1eIPqi7WMw6NPcfg6Uz67 rckmWN7OuYF/jsPLO0TcZppqgjX5SlFPqps9p8a4qX6+/muQQvXz6BILRaql vvJJTlLdXX3GKITqw597p0PacPjPh6Twf6guWSgzq2rH4W2PpUezfGmCJKk5 hmGqp4TWO3ip1tk2q9+leu5inaoK1f24viNXOnD4VXcFhTCqbznyD81STQy4 FZhKdd+z9ViWThz+Z8R2XSHVC7c2L8hSvZ3zTLqN6vP/5eZFUE0qOeHbS/Uj TE6njOq9yrDKCarJ4vv2eqiOaJlYWqF6Io+haoNq+i44SzPdBFNJio48L3D4 /wE4PzZX "]]}, {RGBColor[0, 0, 0.7], Thickness[Tiny], LineBox[CompressedData[" 1:eJwV1nk01G8XAHDZQ7apSBRFQiVLsrt8n0ESRXZC2ZOtSci+71uIRiIpZmSX NVuKX4lKSihZi6xpGUN6v+9fz/mc59x77j33nHuu2EVvE2dGBgYGxW0MDP9/ T2bUrnRxiGkdELqzcVX0AghiKje2sH9aCkbLA+zaf3QMwo+ebcZ4IGTGJckH JLFoWfvqZj8BmLgptqpQgGFTBQ9Vc7H9IDyvO3AQLDAxNtqEauJBWJ70yr9Z 54K91sx/UOYnCW+5LoywFVzFwv3hsqCNDMzfTerqPBSGyVZMy8ZhsiC+VsK0 oRWHLfshOj1bDlIO7mvTT0nHelJzbOUTFaDfIZ3qW5eDFVC+tbmHngCCUUqH hXIB5v9cVazI7yRY7tsut3inGDOaTI4adlGB+AObPgsrpdihrc8zPDZqUHGE rJl3qBLb2iOnr2esAZzv43PkDtdiQyeiKKGYFrSyVUyMaTVg70s9WEfJACdc 6zRYp1qwrsc3G35na0OJrVGVfEoHVtHd6safrgO638I3La8/xW6/ndlzLBGD +fh378/VPcdiv3C/PBWNICE4gTtQ/wXmt3Qy2DmUCPP9MV7Syv3YhU2HoxEB usDcn/r5C/YGO8WR+DnfTw9EyxbtXt0ZxBQFa9MaPfXBl158k/3Ie0z00Bi8 czkFEpVWNh0rwxiXIsuPZQcDOKa9lXJgaRSjaR8r5rQ5DTbD5dvsDo1j08YW 5yXNDKH3RG93/5kJ7LVdOAtmfAZWV6bo7IensNLAt65BmDFgujNDD7S+Yi+e hnC93HcWzp3o11EOm8M6DPhnhsln4euXl3Ltk9+xcku1nJ/Z58DEyzyBOWUF uzc+4MVIMIGlBaHxzT+rWK6Lkx5vuglci4uoFLm+hkWTUmgyiabQmEzzYq37 jQVtiL1RYTsPtkz98jN+NMwn8nGZXvR5sGjrFBLSp2O26ePWl0LNwM4s8Gft yS3MRICk4LthBtvaOD7ekmJA+gXsXGEB5uCm25R9C9uGFMrlntz2s4Aks4Ur V+8wocMKz7NLly3glsT1+ZFPzGhfs7XXY09LKGT5xkqWYUUcvVH737pYgcLN 0yNqK+yIwViQNj5lBY/klxceunKg30PlrxcdrMGxf9A8apETTU4NRWy3sYGi u9/HCyR40LCHh7XAsA2oBsVIn/DkRf2rW/ISZrYgpVswa3eGDzX/k5wGYzto ubO/PkqSgDL3BukGYPbgXTj0ellTADG9X17jeGkPY0fVadf9BJFqb81rIykH YNGoNveo2oPKIw+HTlQ5QMaagYyWoTCasZ96R/npABH8YlZBFBG0T6NAhqTs CBUel46+IexH6X8IH1k7HOHFleZcbWYx9N+7ftnXTBfBifo5Ye8LMcRYkxCb p3cRLPsqGcayDyCS5z+FIwMXQcOA85i7ljiynJhPPff5EnA/SlUV+ySJMtpK ZoQOOEGWuzN3/rvD6AXZQX3a2QnIfl9aKt5KIXXz93P+i04QejdX9+ekDBJ9 2YnyN52hN/ycupLMcWRVGkx2BhfQtVlUT+g6jjJjTv44Fu0CQ9w/esLt5BAz PLrbyekKPXSO3oQCefStLpc+K+QGLRLsPipGJ5BYpum5qgtu8J19rXuWSQlZ e3OXBt5zA9YMacWMJ0qoTyrajEvaHY7/FijZrqGMqgq8q+RUPIDp4KP8titq aO6GNNtGsAesdtplJCJ1dMBqxq67wwNSWTTFyvdroCyCDaeF/mXYY6NjJDyl iQLidV2CLTwhQcNeec1YG1U7b3tCJHvCPozDw+CVNprXaSXwjHuCjc6tIpqh DrL9K9dZ5HIF4hwX1HxMMQR+IsI917zgWGxbr0sIETEfo39jN/ABq/tNB3UN DBAD74VbFe4+8GK7QE/etAHaWO0knk/wgZRJN3sUcRr9qE+4d7fXB37TVpyq Og3RhMYeWyU9X3yfrvo72hujtjPKA5eQHxgak0gcCSaoWTY/ZLuTH1inmZxc nzNB9XwMRyqj/MB+kWR10tAUlQ/1xNO7/IAhy7eGsvM8IttZ6GRoXwXrvPmr 5fVmKOCKf32bJgmy7V3H+VStEMl45JLTBRIYhXk7MlVbIW85TX6OUBJer/Fu Nylr5PKLxdvsCQmYQlY5svbZILOQ7MMLateAR1CgtU7IDsmn1JH3qPjD8O2N ZdYKB3TMW9Cg3dIf1u5/d7n7ywFJnQumOQX4w2ZXvAWTpiMS3YXMqhr84dI5 f2H5N46I+84gt57SdVBSiPI12HYJfS//EUFSCIAeN1V2hwRn9NxAEN0wCYBx prM9CWPOqPCbBmukbwDUcOecjD/ugszFExLTKgNgsGfMjm3UBXWQ99+kyARC vNXBfUdU3VBOouH9LweDwPFh8XG62GXke9jP5atOEGj0WLxaiLyMDJ/fOrzk GASGPvTP3dOX0TbGqfKNu0HQYOufLkX1RJ6BgfW7hW9A60zttUkdL6Tj9uC5 4c5gmJ9WPxk64INEWPviTRWCYfz1uW+ObL6IVrxqYG0SDOJdPFUdWr7o0bj6 gGt6MHxQ7MpbrfZFghaDHyK5QqAq8ZSPbL4fWiQyzDUyh0IQVH1Niyeh3IPW nBK/wiDcP7sgvjsASbHZRrhwhsOnki/6NP5AFLvJEaIqHA6xs4+ucF0MRPDV jTSpEQ4k1rg+ccYgVNsqfkk+IhyGnESdDxvcQLdd8+EtWwR4vhTn46GHINcn SRt8uyLhabuk/eZSBOquUf0zIxEJt/doFO0Xi0SipXM/mpQiQcpx8tFd00g0 kqk372gZCUPbD19vaIpERm5MH6vJkVCWEkw3SoxCioQbj88diIKAKTYVV40Y xOju4ZshGw0PHAv44xbjEXdu/hJRKxoMx/KsmyQT0N6e/st0o2iQcPVKIV5M QIoSCi6XvKKhP6asy3M4ATlPbFifeBQN+X1Zg397E1GvVQr6KB0DjT9MO51b klGaQZWA2KFYcButrs68mo7yAyezhk7EwqtDDvSknHRUWrqTP5EYC9cLuX0e N6WjDtZArjWnWGi80Ox2lyED/ejS3vasOBam/ptUfZaegczVBufdxOLg1UjH 45DmTCR85PeTKuF4CGXxOZSsmI1yI7qH6o/Gw/T1+L3Ojtlo54fMxWbNeNDr lHoSnJqNuCJlRZ45xEMAr36l21w22vjgFvzxfjw4rcwunbyXg0aiRlUZjyYA fX9F//D+XJQ32tFgqpEItHsOowaGZLRTLm3A0igRnyedcDqCjNJj7b7a2SdC hnqDWtpjMoqXo+92i0gEYZuxf1Ni+SggTsE/+FkicB8YW3i6kY8sFR4olpxJ gp+TImMRrQVod1JS9W+7ZNgawe4lqxShyDZV03KvZFBr/e49ZVGEFlfnfjqG JYNITNwNO/8i1G2pr/yqMBnWF1tut9QWIb9DLO3FU8kwXZS098Dxe6i/M7Tv rHsK/HwYrVAmW4xiaL5fKaRUMLnjUCtpUIJWZMQSHGJSoX/Xk2XOKyXI1v61 9O6cVDimy/lhV3oJkn9+zCuiIRU2GJPWbr8vQV9ufv9pQU8FjrCtUE/nB0hd 1pmRJTwNas2TKzUSHyK6fHlqJTEdYoYzQ/etlqF4d2Jh0Jl04O36LX18NwXt KvxcTTRLh7YuqWonNQo6voNvaNQpHQbV8+KVYinI5eu1vezR6UBPDOUPE6Gi t2StUoeudGDSv8pUbVKOKMyDnXxaGfg9gkUyDVcg6/frP68qZwKfAivb6OEa tF90wvQrZMJqSAtpWbsGTbv31lifygT3nitkIZsa5P03x0fbOhPuZg+r1KfU oGhxxQXu4EzQbJvq3lyrQRV+XlNl7ZnQ1ibk8Km7FjHyTL0Z170JQlEyVsk+ 9Yiq11dx2iwLyK3AU/GjEekfu2Yka5cFZiJc7ae5m9Dszn1L/M5ZcJHZxnBL qgmJTnofHSFlwfMTAsL3HJtQVjCh3C0rC5zK31rMvGlCwdXWZTGDWWB39GWQ w+NmZLh3rrj9XDZkylgx26S1osUlljwFoxyIa/BYIml3ILHzNu1HNHLB4XjT 7MuSbkSMO6GiYn4bbJNVFRvVXyCbFf8ps9P5cNv04dPwg6+Ro6TGRIxHAUwK LikmTg2iI6lpKVNahXAF6e6aIgyjooN1OsnKRaC62ZMlfW0McYuSizR178Gw mK69xfgXRGqoF1zXLobIdy0eOXlT6G19psoTk/vAzHzJtHt4FkndDKElXCiB EB5Zph9m8yiQM3/gguUD6D3oKQKfFlHnfPBZDdeHsEXSDV3dWkGMzhlzB51K YfbdmGY97xpSa6sVJdiWQea3b+yGqr/QldDcbVzuFCA17LT52/gHjYwHs9A8 KeCTwyia2/UH6Wo7bp/2ocBttW9sJ/r+IFFmab7WAArwvxSDa+N/0NuEFlHP eAqYx64Z8bDSkHL2Z62+hxQ49CHnRZkpDd3/3YU1UimQe8atysWOhvgsH+rd r6TATn2lBglXGpoX8jEObqBA+pa2JCWIhu4UbrM/0kOB0BqnlL4iGmIsFw9N nqWA9Yt00+srNOS1Y3tkwDwFaPH8KuZ0Ghr1WoxxWqKAvO1FjZPM66hO7nGK +m8KnM37WPRPYB25NujdWWChAkey4PsyrXX0TvBI0fB2KsT6bz3KO7WOIIi3 pHsHFXJn4oqTTNeRkMbH8vxdVPA4vjB7zXUd9XV5tBpKUOGsfPuLS2nrSEXc uENZigoXXOKSnPLW0YMYhW7xo3i+rBY31+J1xP9VoJdXjgq0Qe0B1fJ1FKa/ +XJTkQrhTkyPx6rX0ULZl4FvylTY0s3bCGtYR5aczwbfqVPh9cyeQvEn60i+ P2W0HFHB8qMiq1/vOiqQ9RvP1aeC4shGj1D/OuLMMJ+KNqRC2zLrXPfgOpo2 3f/d9jwVJi10TomMr6NbH6voXE74v3FL9Odf66gQqUuccaOC9F/2cq7NdVRa 2WOc4kmFI+TnPuqMdNQc8/n+jmtUqCrZNljITUdjclzG3LFU6PCI/hssSUei ia7FPKVUUKcwMUVZ0VGp6j5D/gUq3Ft6l/a8DY8nJ90RIJVD1ujgUZnUDTSk TvosHfYIPtpHH/RV/ovmAtJP6gZUQKliSbbdpy30a6+36uXYSrBM+1v+1J6B +Le8Q9pQuwpuGL61/2W4jXij5Szb19Yq+HZj0GoBGInX/nY2smLVQE7JXQoz ZyIucJ3xl+6ohsm57K/JzszEceMm9kG9GviiJOIck8tCNHLQehj2vAaOCDlb XX3KSlR16Muq0qkF/WnFh3/W2Ij3bqpauPxXC+JD5rJ0g+3E2KwuCVG9Ojj6 5trR2RwO4myvzH8XBuqgJ7VkjzYnF/HpArlFzKweNO6ZxbnH7CAKf5Zo/vam HsJkMWHZVW7iKmNGiqLVYwjJ+pK4BrxE7NeuK9EfHgPHcRdq1g9eIt+HIrKl aQMc4h2RiSziI9oscN+t/tgAvJcbmQ9b8hPFBrIruC0aQWzodVkYM4EY5C2p dMyqEURy22JJbATiO56mJ2dsGkHN4t9Pdw4CMfbsWF+yfSMwOzbHmPMSiPNv DnzncGuE9dmRQCVhArHmXaUkW2AjuI3MNfMpEog6I/8V/rvdCAEi4XxKTgQi Ocjm8P47jfCC54CyhiuB+FNosVLzbiPojAv/QB4E4gMb3vaQ4kZwoNuJmvsQ iByfzD9tUBtBNfqda1gwgTg4PrWH1toII/SeqsUsAtFp5m/myudG+F6qG5/b QSDOrlx4wzCO1x8U2UnB7b7ZzsOHW23Pe3orbi9CZLIcbv/O7isTuAO0WWP9 cN9vaT8v3Ukg0g1duyNxz/xtSlXHHWLZy3gTdxp3X68R7kjvxLBa3BbkkxpX cTPf+P7kKe5sgYzrMbjjYg03B3EHXmSsuYWbI/OR6jTuncFJC2W4k+9wB/7E 7ed0RLIVN3eZdwPzF9wSvtIvcWfUvf61E/fz7+jcW9w7O+QUJXArbj8Q8BF3 zstMvxO420PY737BLfhhrYqI2/sU7dlX3OTJ88tmuE97ri4s4S5c3+3pjzu/ 4Z/qX9x1Zvvtabht4ytISl0EopJj+B32Cbz/y9z5GribPCdGBXE7PLj+FOFu iyq2VMF95oALvynu3mpJkyDcJYq1Vd64x3YcJ27iLuvdsVyK+8KejCiuyUbg PcQkUIV7QvxHpzDuM6PbtBpwz6rVaWrgdjizN+0Z7hV3ZeVQ3LfPtslO4va7 luefitv6ypbFHO5f4fS6Atxik3rhK7jpt1rl2nGPDf5+vYU7uFjEZwD36Fnb dZanBOJWRWjFOO51iZdiO3CHN48vLONWN8UMduJmeg4yDFONQB3u9tuL+3/0 AhCL "]]}}, 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[ "\"Mass, kg\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Earth's Mass \\\"Below\\\" Radius \ \\!\\(\\*\\nStyleBox[\\\"r\\\",\\nFontSlant->\\\"Italic\\\"]\\) 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.00065998873}, {0., 5.972739592225143*^24}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.435182988671875*^9, 3.4351830280625*^9, 3.435184520015625*^9, 3.435184678109375*^9, 3.435184816625*^9, 3.4351849733125*^9, 3.43518612175*^9, 3.43518774775*^9, 3.4351877876875*^9, 3.435187823828125*^9, 3.435188292*^9, 3.4351884925625*^9, 3.43518854278125*^9, 3.435197092203125*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Acceleration due to Earth Gravity - Spherical Approximation", \ "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}, FontSize->12, Magnification->1.25], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Universal", " ", "gravitational", " ", "constant"}], ",", " ", 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[{ 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[{"Clear", "[", "\[Rho]", "]"}], ";"}], "\[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]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Input", " ", "is", " ", "in", " ", "m"}], ",", " ", RowBox[{"output", " ", "is", " ", "in", " ", RowBox[{"kg", "\[CenterDot]", SuperscriptBox["m", RowBox[{"-", "3"}]]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercore"], "=", RowBox[{"1.2215", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.177275"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"1.911026", "\[Times]", SuperscriptBox["10", RowBox[{"-", "8"}]], " ", "r"}], "+", RowBox[{"1.308848", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercore"], "=", RowBox[{"3.4800", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.412312"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "10"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"0.1397596", "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.234623", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innercore"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "DLayer"], " ", "=", " ", RowBox[{"3.6300", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.000714"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", "7306.695"}], "/;", RowBox[{ SubscriptBox["h", "outercore"], "\[LessEqual]", "r", "<", SubscriptBox["h", "DLayer"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lowermantle"], "=", RowBox[{"5.7010", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "3.092201"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "11"}]], " ", SuperscriptBox["r", "2"]}], "-", RowBox[{"2.444117", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"6.782253", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "DLayer"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lowermantle"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone1"], "=", RowBox[{"5.7710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "2.328571"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"5.319659", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "lowermantle"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone1"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innertransitionzone2"], "=", RowBox[{"5.9710", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1.260300"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "3"}]], " ", "r"}], "+", RowBox[{"1.124903", "\[Times]", SuperscriptBox["10", "4"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone1"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innertransitionzone2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outertransitionzone"], "=", RowBox[{"6.1510", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "5.970556"}], "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"7.108267", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone2"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outertransitionzone"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "lvlid"], "=", RowBox[{"6.3466", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"1.086873", "\[Times]", SuperscriptBox["10", RowBox[{"-", "4"}]], " ", "r"}], "+", RowBox[{"2.690961", "\[Times]", SuperscriptBox["10", "3"]}]}], "/;", RowBox[{ SubscriptBox["h", "outertransitionzone"], "<", "r", "\[LessEqual]", SubscriptBox["h", "lvlid"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "innercrust"], "=", RowBox[{"6.3560", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.900", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "lvlid"], "<", "r", "\[LessEqual]", SubscriptBox["h", "innercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "outercrust"], "=", RowBox[{"6.3680", "\[Times]", SuperscriptBox["10", "6"]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"2.600", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "innercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "outercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["h", "ocean"], "=", SubscriptBox["r", "volumetric"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "r_", "]"}], ":=", RowBox[{ RowBox[{"1.020", "\[Times]", SuperscriptBox["10", "3"]}], "/;", RowBox[{ SubscriptBox["h", "outercrust"], "<", "r", "\[LessEqual]", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mass", "[", RowBox[{"a_", ",", "b_"}], "]"}], ":=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", " ", "\[Pi]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], RowBox[{ SubsuperscriptBox["\[Integral]", "a", "b"], RowBox[{ RowBox[{"\[Rho]", "[", "r", "]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{"Sin", "[", "\[Phi]", "]"}], RowBox[{"\[DifferentialD]", "r"}], RowBox[{"\[DifferentialD]", "\[Phi]"}], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "1", "]"}], "=", RowBox[{"Mass", "[", RowBox[{"0", ",", SubscriptBox["h", "innercore"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "2", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercore"], ",", SubscriptBox["h", "outercore"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "3", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercore"], ",", SubscriptBox["h", "DLayer"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "4", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "DLayer"], ",", SubscriptBox["h", "lowermantle"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "5", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lowermantle"], ",", SubscriptBox["h", "innertransitionzone1"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "6", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone1"], ",", SubscriptBox["h", "innertransitionzone2"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "7", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone2"], ",", SubscriptBox["h", "outertransitionzone"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "8", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outertransitionzone"], ",", SubscriptBox["h", "lvlid"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "9", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lvlid"], ",", SubscriptBox["h", "innercrust"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "10", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercrust"], ",", SubscriptBox["h", "outercrust"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "11", "]"}], "=", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercrust"], ",", SubscriptBox["h", "ocean"]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Gravitational", " ", "acceleration", " ", "as", " ", "a", " ", "function", " ", "of", " ", "radius"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Input", " ", "is", " ", "in", " ", "m"}], ",", " ", RowBox[{"output", " ", "is", " ", "in", " ", RowBox[{"m", "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "2"}]]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"Mass", "[", RowBox[{"0", ",", "r"}], "]"}]}], "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "1", "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercore"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "innercore"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outercore"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercore"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "outercore"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "DLayer"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "DLayer"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "DLayer"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "lowermantle"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lowermantle"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "lowermantle"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innertransitionzone1"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone1"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone1"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innertransitionzone2"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innertransitionzone2"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "innertransitionzone2"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outertransitionzone"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "7"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outertransitionzone"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "outertransitionzone"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "lvlid"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "8"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "lvlid"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "lvlid"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "innercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "innercrust"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "innercrust"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "outercrust"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ SubscriptBox["h", "outercrust"], ",", "r"}], "]"}]}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "outercrust"], "<", "r", "\[LessEqual]", " ", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", "r_", "]"}], ":=", RowBox[{ RowBox[{ FractionBox["G", SuperscriptBox["r", "2"]], " ", RowBox[{"(", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}], ")"}]}], "/;", RowBox[{ SubscriptBox["h", "ocean"], "<", "r"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Gravitational", " ", "acceleration", " ", "as", " ", "a", " ", "function", " ", "of", " ", "radius"}], ",", " ", RowBox[{"constant", " ", "density"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Input", " ", "is", " ", "in", " ", "m"}], ",", " ", RowBox[{"output", " ", "is", " ", "in", " ", RowBox[{"m", "\[CenterDot]", SuperscriptBox["s", RowBox[{"-", "2"}]]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "gconst"], "[", "r_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"G", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}], " ", "r"}], SuperscriptBox[ SubscriptBox["h", "ocean"], "3"]], " ", "/;", RowBox[{"0", "\[LessEqual]", "r", "\[LessEqual]", " ", SubscriptBox["h", "ocean"]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["a", "gconst"], "[", "r_", "]"}], ":=", RowBox[{ FractionBox[ RowBox[{"G", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ SubscriptBox["Mass", "partial"], "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}]}], SuperscriptBox["r", "2"]], " ", "/;", RowBox[{ SubscriptBox["h", "ocean"], "<", "r"}]}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["a", "WGS84avg"], "=", "9.8063"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ErrorPct", "=", RowBox[{ FractionBox[ RowBox[{ RowBox[{"N", "[", RowBox[{ SubscriptBox["a", "g"], "[", SubscriptBox["r", "volumetric"], "]"}], "]"}], "-", SubscriptBox["a", "WGS84avg"]}], SubscriptBox["a", "WGS84avg"]], " ", "100"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", SubscriptBox["r", "volumetric"], "]"}], "//", "N"}], ",", "\"\< m\[CenterDot]\!\(\*SuperscriptBox[\(s\), \(-2\)]\).\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", SubscriptBox["a", "WGS84avg"], ",", "\"\< m\[CenterDot]\!\(\*SuperscriptBox[\(s\), \(-2\)]\).\>\""}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\<\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", "ErrorPct", ",", "\"\<%.\>\""}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "g"], "[", RowBox[{"x", " ", SubscriptBox["r", "volumetric"]}], "]"}], ",", RowBox[{ SubscriptBox["a", "gconst"], "[", RowBox[{"x", " ", SubscriptBox["r", "volumetric"]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "12"}], "}"}]}], ",", 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[{ "\"\\"", ",", "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}, Magnification->1.25], Cell[BoxData["0.15151290392747996`"], "Output", CellChangeTimes->{ 3.43325314495225*^9, 3.433253264421*^9, 3.433253429655375*^9, 3.4332534806085*^9, 3.433253620999125*^9, 3.43325431913975*^9, 3.433254833092875*^9, 3.4351578502876253`*^9, 3.4351579108501253`*^9, 3.4351581994595003`*^9, 3.4351585863657503`*^9, 3.4351586508970003`*^9, 3.4351588853345003`*^9, 3.4351602019438753`*^9, {3.4351603775845003`*^9, 3.4351604515532503`*^9}, 3.4351605840376253`*^9, 3.4351607476938753`*^9, 3.4351611256157503`*^9, 3.4351611863813753`*^9, 3.4351612929595003`*^9, 3.4351615185220003`*^9, 3.4351619176313753`*^9, 3.4351624696157503`*^9, 3.4351625433813753`*^9, 3.4351647189907503`*^9, 3.4351648713345003`*^9, 3.4351661158813753`*^9, 3.4351933735*^9, 3.435193537640625*^9, 3.435193660359375*^9, 3.43519414678125*^9, 3.435194255046875*^9, 3.435195790484375*^9, 3.435195903890625*^9, 3.435195962828125*^9, 3.43519602184375*^9, 3.435196081328125*^9, 3.435197125578125*^9, 3.435197205171875*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The calculated acceleration due to gravity at Earth's \ volumetric radius is \"\>", "\[InvisibleSpace]", "9.82115780989784`", "\[InvisibleSpace]", "\<\" m\[CenterDot]\\!\\(\\*SuperscriptBox[\\(s\\), \ \\(-2\\)]\\).\"\>"}], SequenceForm[ "The calculated acceleration due to gravity at Earth's volumetric radius is \ ", 9.82115780989784, " m\[CenterDot]\!\(\*SuperscriptBox[\(s\), \(-2\)]\)."], Editable->False]], "Print", CellChangeTimes->{3.435193373828125*^9, 3.43519353796875*^9, 3.4351936606875*^9, 3.435194090015625*^9, 3.435194200203125*^9, 3.435195732953125*^9, 3.435195904078125*^9, 3.435195963015625*^9, 3.435196022046875*^9, 3.43519608153125*^9, 3.43519712575*^9, 3.43519720534375*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.435193373828125*^9, 3.43519353796875*^9, 3.4351936606875*^9, 3.435194090015625*^9, 3.435194200203125*^9, 3.435195732953125*^9, 3.435195904078125*^9, 3.435195963015625*^9, 3.435196022046875*^9, 3.43519608153125*^9, 3.43519712575*^9, 3.435197205359375*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The average surface acceleration using the WGS84 gravity \ formula is \"\>", "\[InvisibleSpace]", "9.8063`", "\[InvisibleSpace]", "\<\" m\[CenterDot]\\!\\(\\*SuperscriptBox[\\(s\\), \ \\(-2\\)]\\).\"\>"}], SequenceForm[ "The average surface acceleration using the WGS84 gravity formula is ", 9.8063, " m\[CenterDot]\!\(\*SuperscriptBox[\(s\), \(-2\)]\)."], Editable->False]], "Print", CellChangeTimes->{3.435193373828125*^9, 3.43519353796875*^9, 3.4351936606875*^9, 3.435194090015625*^9, 3.435194200203125*^9, 3.435195732953125*^9, 3.435195904078125*^9, 3.435195963015625*^9, 3.435196022046875*^9, 3.43519608153125*^9, 3.43519712575*^9, 3.435197205375*^9}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{3.435193373828125*^9, 3.43519353796875*^9, 3.4351936606875*^9, 3.435194090015625*^9, 3.435194200203125*^9, 3.435195732953125*^9, 3.435195904078125*^9, 3.435195963015625*^9, 3.435196022046875*^9, 3.43519608153125*^9, 3.43519712575*^9, 3.435197205390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"The The relative error in the calculated acceleration is \"\>", "\[InvisibleSpace]", "0.15151290392747996`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm[ "The The relative error in the calculated acceleration is ", 0.15151290392747996`, "%."], Editable->False]], "Print", CellChangeTimes->{3.435193373828125*^9, 3.43519353796875*^9, 3.4351936606875*^9, 3.435194090015625*^9, 3.435194200203125*^9, 3.435195732953125*^9, 3.435195904078125*^9, 3.435195963015625*^9, 3.435196022046875*^9, 3.43519608153125*^9, 3.43519712575*^9, 3.43519720540625*^9}] }, Open ]], Cell[BoxData[ GraphicsBox[{{}, {}, {RGBColor[0, 0, 0.7], Thickness[Tiny], LineBox[CompressedData[" 1:eJwV13c81d8fB3CzlJVRRqm4nytFpTIaeJ8iK0RkkxKlia/KSGYy06AfmUnL CIUUSpKKkhKy3eu6gzuQkTJ+p7/u4/m45/H5fM75nPN+vz7Kx84f8hLg4+ML 5ufj+/dr7sX8VsfyMtj2RG1pBqfEQMhQ0XdAwQikpPR5lWZJsCMnLfO5gh0I 2Z7TvmiWBQe+dD7LUjgOjg8NPx0yKwaH4zO1txQCwP9N31cts1ro23rNMEkh GmjtR19Omn6B3JUHY+IVUqAvd2LzCtM+iBB5viFOIR/atV0qEow44Oh0r2Rs vBxiVHhdTucXQHQxwtVk7RsQUZIw6ohdgsg2XOa7hAZYlpraXpQjji617IK0 yU+g+VeZGnNBGsmVS/Xz838FwWytg5WxK1El1fDzV73vkFPV9NVtUB7Vn8pa 7cT+AXsNE9Gswho0paovWXy2E04Q05X1wuuQwGzhitXkbuCXb7vjLqKMdBY9 Km2f9oLD6ZZH646poM/RWi2Nmwbg5arhBs49Etot2SxwU3sA+qkW9zUekdDj 9KO6LmgAfEpX/fIpIqGop9dzeYcHYPMxgjZQicf/ZPrLRwzAspng2apmPF49 S+5U5wCwDERc102R0D5WZOmSfYPw34a3blXGBAra0tJ02mQQTPdtWtdwgECl /ykMt1oMQrTDJ70WawKtXShRyHAYhGdnlsf3ORNoVrovcuvZQdASN3JmnsPj 9XQPO6YNQn3YHnh6h0DrbozOPuEOQkt9VeI0jUCvj4Y9efZrEMilCR+CWARy 3yHjVP17EHwcP0f+5RAos2N31WcBCtwZDA38M00geaX4i7xVFHDmTNnQRcjo BVdJ9fdqCpj7xke4iZORfV1ZO58yBfaudN3cJkVGqZ5dWtLqFLjqmzPzUpGM pAvUfmkBBeiDwqYXNMioLKQmT9+IAlNJVPNBTTKytrQ+ZGxGgTN/Wt6baZNR 8tilMgdbCpSav1WWNyCjLfWiRz0cKbDVp4Y/dB8ZtdzOWeHjRgGTmjKHQWMy EtP9cD74BH6+3xc88w6SUaGIy7qoMxQoDN4tz29HRubd3JYEPwrIH6chd0cy YhVGXkm5iJ83m9v70pWMYkNXbckKoUCXVpTziyNktOFgQd+DcArY8ktKNeL/ G9cbJD29SgGvV5VqXU5kJNzgxX6TTAE/E2cvMXz9/NTZjI8pFHAY9wnTsCEj oxNJB76lU+CpfC3N2oqMIpdXFFDvU6BlsiDkoSkZLVgL+QhXUWBZYfX+aH0y +t2XN2w+SIFfrsxqYTUyGp0Z6G/XpMLK17Hb5xcJVHkiud5chwrJSl0sn3kC hXcaPHyzhwrxJ09Ruv8QaNWLrLNPjKkwKFzg2DhFoH0XXeYuu1IhTYPZ1zpK oLuTHQpELBXeFSzfW/KTQKbjX+z8B6gg5WDKf7qCQDJHQ3cyaFTI47uv5/Cc QP2tGmtcR6gg079fw6SMQAGlCUP7p6iwsSBfdnsxgXLOm/kriA7BS5pExI4H BJrmNCTX6QzBb7FN6YOpBMofqW6SuD4Etis/3HsXRKBz/ztIOnV7CLyEqULk QALpGg2FvE8bgqS42rNxFwnUlLV88+X7Q3DFT2Cvy38EGrd2SmZVDUGNyny4 ylkCGbyYtm0YGoJvIgek9I4SSOR4fNE61hCsesQn9PkIgb6vWCscwh2CmwXT b9zdCeR1an/lttkh2GymeTXRhUCJSinyORI0UOZUDYrYE6graltf0C4aFBwy aorA5ytP8712uwENnAxknuiZE+hMn+N1TSMaFN4+pfDHlEB8uuHAsKKBlK/H vcv4fKqOtNyzO04DwxcKEzl78fpYn/HemkyDYlHhetedBJJQesSj0Wjw4rCf WfoGAiH7qL4hFg34MjtHSlUJ5J98pJnKpUGFjI1/E5lAHfzyjwZ/0+DdN8NN ggSBsumx7r1iw/BEdeNC/HoCbSk99aVNaxiMZRINJhQI5MEyrv6+axh8vn3d tgH7lgrpyTeDYdhDP8twk8fvI6Un+qvpMEQcJ91sXYXPe5CFXrPrMBTvp+U1 yRDI0nBLYX30MGSuXTMqKUGgK5eXp7+NG4aLhwOWeojj+lFBj6m7PgzUZlpD mRiBZNVyjr1OG4ZIQcnVzqIE6hVbofiqaBgeHF82XyuC16tjPLbsxzAo67dQ WwXx80u2XCztGob9gubk3ditpgXHS/qHQfZjHytfgEBa1cdQMXMY/tzqHL/C T6C5nLaZx3PDsOq51SejRRJK9KnwziXoEJz/cmHlXxIaQcWxopvoQNAqWxL+ kJCJ/IOCi1vpQPUo2SeILfAhhWuxmw7eGqXiM79JKIgIuDh7kA7I7PDE+DQJ eQ9sjzkUQoef759K7fhFQg2Vmx7XhtOh0Fh7Tf0ECalcV2lSi6FDo5f940PY fXrSEos36DBcrKofOE5CdnfHUwsf0mFT8ot17TwS2nu49IHQdzqsucu/5Aeb hLI1Hn8430kHFmGnG4w9J5jL6u7F40NMmpSxq54lby5j0IEz5yF+YZSEtqw4 X+E2Twfhv6Jt6iN4vgzvzo8CDEhaJdDby8Lzfe0+u0OEARfG/XSTsR+ctdJf LsMAp2rb/hkmCa1p3vy+Uo0BIVUPqn4ySCg4j8xQ3sIAORJFOQW7M0hpWdIO BnTcnWqxxr6lJm7pacAAsZkwzhc6CS2LYf+QtGNAc6zX8s5hvD5utOlgJwaU eTz0yMRu0OqVp7szQIScyz6GHT7U7Frjw4Bhp7bsXzQSmkaFtJNh+PmMtfVI 2DX5oxmXohmw0JNtOTVEQpEiGrYxcQxwnpA6+hFborXo7f3bDIiKzY/1w1Y9 8jS7/xEDfDZVlX+lkhC7nnuYU8QA07e5pU+wn6luFZ8rY8DQmY770dgG3JIQ hRoGLN6hndLHtg8tc7RrZUD3qxn7VxS8HpRxSc92BhQuK2RmYFONtn/w62ZA +6TRiSvY58SeayfTGDCuLq1qjK3l+4udxWLAR79qT3XsP2078ou4DIg10o2T wo7JKJdu+o3XIyg3ZnCQhCwWJz/9nMf/T4q7fsKW9tSOYAgwgbPRSvY5dvam Sp6QOBNs8u3U4rCPX59+KCPNhGBOfsQF7E0TOu4qckzwnu6pOoZd8fLFZ1Bm QtCrdTWAHaz0O8pKlQn0HXVXt2KjiJ173NSZkE0/p7Yee8lw4MRpTSbUlfzO k8L+bPrySbA2E9Qy1ScFsW8VzXrE7WYCld6hODNAQo4rdsunARNqZppWjmLT Ol/FVJgxYYLyI6odu2DPX/0GKyb4ut2cbMb2zdkz9d0We3BI6x22juDlIooj E+5m5hlWY89513iOuTHhHiN/XTl2fdOc4uIxJvTuevehGDt2i/538ZP4/hqd ux9jW90KjVtzlgkrgqsv3ceWna5F6v5M0Js9EJqD3e20MLPrEhP25XiZZ2Ln 1hqUmF5mwqPL9L50bG/lMG+HCCbsrCnWScPWuPpGyTuGCZX3Mmz/hz3BXPwR kMCEU7E3d/xzlQVKjLrBBArFr/2fr5SGG95KZcIVrfU7/13PSPbtn9y7TNit GOGcgb08kP9ZSQ4TDCB4TzZ2a89en9f5eH4eE133sO9A5PovT5ggfuCb1kNs 1/v1nT1PmXCpa9G8EFtlqWDyyHMmfP91YnUZNvOUofFsFRPeJ03mv8B+2hI1 v/Q1E44+uEl/jR2wvaF81TsmDOzVGGj8Nz+t9bk3PzLh41D+wdZ/70vncoJY CxNmwl1SurHNd/68eK2NCbkO04XD2Ht2ax0T6GKCsZhS6vi/9dC7YRnaj6/3 KNBqAXutAXvn7yEmLKQ+7xDF+0FgX74kl8sEkz+XrDZiTxry/T05yQRLwm3P Luzh/a70oVkmzAp1jZthfzSTre0SYsFfXZfKs9jJNtGn3iuyYMIBBb3GDrcd PIzWs8ClMPb6D2z/w3p7q8kskOte5TmKbe80KVemyYKzaMpo9b/zePT4+0xj FoQYpn6MwpbwrCuVs2DBshP95TnYfF5rMm/ZsOBC8Hn7Guyhkz/8Y11Z8Mkj snwGu8DXaH2APwsES91fXcTnPdM/V5R3iQUyct+3pGEnBcxN+4SywE9lwOoV tm9g+ZcjsSxomRBO4sP1RTecCDmQzQJRy2uDKdgNyUIdKk0skFDcNtiD61Xl TY+3WV9ZMD1PilyK69vj2zVF8u0s4LfRqd2BnfC/gCiJQRYc3rvvTxL2oRya 5p8pPN7+l68Zrp8DTxsSvimPANtW2bUH19dWjhB7+4YROJR2baUkrs91Gvst UjRGwNTys40hdm7BezEH3RFYoj5jVYx97GFjUq/FCKSSt6NruL7Tsz4mMy6N wHYCEYdwf+Akfr49/2UECkdoNvq43/Q3i026t41AYjskhGG3LLe0q/s5Aoun PDbWYz+N/SIbNTQCKYUnb5iO4fWIbkkVmR2Ba9rzY064f02GtP5PhhgFiSMS u6/j/vf31I+MjcGjoOIgIqiL+6WdjtvNLWGjIP3Cev4KdhE/PWZH9ChUOs/r fsB2T5vx078+CkUd46cdZ0no7XtFU5u8UXgx71MTivvvtfVHJwObRiFW0t2/ bY6EBkdZrNCvo5CuzFNdN09CO1/4D0T+GAVnzW6p09gjltFNif2jsPmUZazg AglZhjzKzZ0YhXhaMV0H93+ZDo7FR0U2vN20eughzgdn7l3c92UdG9KvyFZM YTecWdT9TrCBE9/73AjniYuCUqTeLWxoSIjRHsLu0tSa5e1jQx2xZpeKEIG2 z9VwJ03Y0D529Kg/dvyH/bRZCzbE/ewrq8fWc3f4KujABr39Wp88hXG+TQh+ IHeaDQnRd98+WkKg3/aCGWt82XBi5vPqWWxrlcQbyhfYUJ35Mt18KYEEXmaF qIexQb0nYYGD7RKt6qcZzYbQSgca4HxUfrDEWzuODU0mBaM3sb3odTZwmw3n 3pe76izD+azMzMQojQ0/3Ozfx2KvCv2uZ5bFhjOChyx7sM+bumy3ymNDTbrS 5OblBPooQ9tg+4gNvbUXPAbw/8oDZ5Qci9iQNV9zPAE7uGBK2q2MDZ4Kja47 sdX3Ll3wrmbD3dMsIhXfv7SgcMPPOjZ8kyvUN8DWkrW2MWtkw9+1Kn5M/Px6 jLR89W9syIWNBMK2Stp0YIzOhpDenOw5vD7+XZZpQdIcMIy0u5WG8930vom3 I3IcoObzvTTDDim6M+qixAH+5gTmLH4f0WEDBgZqHKjKOHPUAfsO2W9YwIAD bx3vlS/B7/OlX8r2RB8O/Eetfa6D94NBz07X+XMcaH4nbf0T75d6o76r5wI4 8N1deiIQu0lOtcs6jAPSSgeMX+D91lv7ImxlKgdUtQw2qeG86LHB9UnMXQ6Q FKK4b/H+HL7B1zaTw4HW5SOVzthcTzPV7gIO3JV2s43D+5lvec/n7DoORFje reieIaHo/8KmJRs5wDdbmnoGe1kfaX1EMwfSVc4EzuM8KV165j/PDg60ecju X4N9R0Eq60cPB1Lk87cU4O/51VEVjfspHHBOUVLUxSbsFxTU2BxYOSY7bTmJ 682bPMP0cQ4ovNehd+LzuHmjydnlMxzoNYnv9MB+dmv0TsgcB2R7KJ+YOI/q zCXXsfm50BrZE7wF+5WX1ojbUi7oPd5ieAyfb4OvP2W+inHBK77t0h18/k3y lE+UyXHBWVyVxIfrg1aahGrjGi5cdikSMuSS0Prrf2ndylxAN9fvi+Hg/BPU fkxIgws6bUEt4jivFtvEuTsgLrDWZ61RxvVJhn/88PxJLuz7ViDuiOvpwJE6 I7NXXAgxYNsK/sR55HCxoPsbLixIaqdbd+J+fOBuvX8DF2gPE9WyO3A+0Q1A mS1cePDJnLS7nYT2S6rp8ahcePbSMvjCdxIqfJ28I1WUB9UOCVtUPpPQJaUj KhRXHrh1CGuG1uF6aa1p33uUB48DA59/f4PzRRR/fKc3D4oPXE7fiK3Kuj/+ xZcHZFNeXE8tCf0oZ9a9iubB/1Dx8MFqXI8ZLycr4njwKPCrd+krfD/FBLWy 6zwY2ypoJI0dGb75xqM0Hhh7n5bsriIhTQv/IylFPMjc9rstqBL3szDD28ll PAjb6rJuuIKElj6T/RBfyYMrcYF1Ntj9ci+2RNTxIDq2nm9rOd6f5rHHLr/n wb1Wj+yc5zjvhTrdudTEg9aXmdelsBOH/s6f/cGDwuOdnrNlJBS46ss2ny4e 8PIsTM5je5plex3v58HhYItgeime7+Xz6UeGePCKz1uYW0JCu0vQF2cmD5KW um7KeIrnT5Xit+fw4CnfnsJdxSQktXJIy2aCBxmLYUM+hTi/mZSftJjhgZyf wL2MJzivBF/NNJnD693aq1PzCNdje/WT9/jGIOeS/R1qHj4/YzIC6wTHwJ4v Wv9DJgkdIA1rK4qMwZ5bj2XTb+D8E3cta4X0GJwMfVvuHoj7n93nM/PkMVBy nNT2NcX5hH1YtNNyDAI1V1rnjqigKjuLN/HWY5B1VfSzK00FGdbu+8/Adgy6 A8Y81/SrIOfrW3seOI4BY73VQP43FRSnuawwwHMM2ny3NndXqSB6QI25dNAY PFCtef7zmgrKnVeJt8wfA82Hexcl1FSQjOSYSMOfMdixqGY/56uMhN5klJAy x+Gg3O3bYrrr0Wmt6q5lByagzy5zx3XxtajQ7Fju6+kJuJbWJzw1vRpNjSqu oN/5BZfuNhfxayuiClsTwRSjSWgLmrjsESKPwkyv5pTTsWfcnG2F5ZByn/nP +1engFxxMHxX5Uq0Wzc6RWH7NAx2cjvGfWSR69qvs/xt02As+VhU1koGTTUl UX0jZkBp/9izih3SKE3IPeAQ8RsObTvx6vBeKSTTX5En0PAbGkOeBWZ5rUDC oRF2u/xmYdzxWuN9aUnE98S9hCr9B7xvntNaSBVH/ndLkqTr/4BlxdS1BDkx VKseKyJ17i9sKFtddrN6OZIy99eIlJgD69UnxQySlqHeza1tQTVzcK3z8fRV FxFUmo0/pd3nYcPI2++iNkuRW4mOlNLCPDCkwhbFXJeg8Kv3InoLFiDZKXtu 9Jgw/lZXypCwWIR5RTnVjlghZCMlsfPDn0XQt712oatAEMULC6zuxR5woje8 wW6YnZofw1avvCT7EFuH2vdO8e8ivDm7rdwfW/F58cFz2Eea+KZFsal2lidW zi1CZKNElMETQRSQlnjHc34R/LbT6u8/EkTFieFBgdgzvET5eGx6eIBrEnbt xIlzvtiOPq4qL7D/vC9X1MfW363xdPnCIgymPLnQ8VAQLeltfl+GffXootYy bGh987gRO1z7cxLvgSAKbHie0IN9zbiZ3o49UpRhI7y4CIVKHul52C2hp/sc sX/fpPHpYS/1P1J3FnsWDF1UsJG37f1IbLbqjwoR7GdWe3yKsO9lJZ5uzxdE o/u2WrzFdtEob6zGJnRJWzuw/46Lq+Rhu6vLSY9iz3PSQ2Ox/7dOdGoRm7LO sesc9v8BP59sow== "]]}, {GrayLevel[0.5], Thickness[Tiny], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV0ntYjIkXB/AypVKq6WI0SXpfwtZuUenH0jltCCVSEpJINzaSsYX1qyij G1vSRldJohltNcVKCrPlUm6h0IWRTJed942mdJnm9/7+OM/3+fxxnuc8z/dY 7D6wKWiKiopKFDP/z3VB0hf1vUFOhVbfyx72XHRSc+FGdJmshPOTgX+vF0aD XX5WTqWJNxTnveznCE+DW3NrRa7JHhDKtNQVgizYsmekNt2EBxWZV9IoQQl0 2PBdUk3ioWrvt1ap4BYUGG84lWSSAdXe3GOfBQ8hTrNyfqJJEYgeCZs+CdrA d+ulMnpQBLbprbVnqntBWxnn5zq7DsK5LLePJt9gnqdM+iBZDMl795w0XzoK UU+XQtbQI7hyT55v16EEjojdqar6DKq0DuT1arCwWuLS9Gz5S5i5ZNy/KHAq 3t+ba7p14BW07xKsKi/TQrnlCj1heCt8n5Y4wHqgg1NGS/VN572DR+/v3g/Q 0cclyoBqrxvtcI/2OCC5yMamePunDT90wd6EwZ9SLQzR/I/+0WuyD9BiWhAS /sgI+0e6Ol/bSkAasSeW9p6BRX01j3XPfILbjfYG11Rnoq7ZVaq7uxuc8zg3 k4pNMCWsKrhgbg8ctNNfrmdjisNY2h0a8wV2PTZa9qhtFvIWi0UzHkhhwtxm pmXwbOy6IU5+YdEHpTXXHf2mzcHxva+yFx7th0XzGwf+7piDVs4ak8E1A6Ad KWP3Flqga6FFSDlHBo212d8qogm0z9K1bJglg0N5koAXxwicc2a8+52FDGbH LHxK/ZfAsSOvd6tZyyAab5ZYJxAo9Ez034IyWPjg5Y7iNAINVQc3K0JlkPxQ 6+GF6wR27axfufa2DDxaonJi2wls2ixk+dfJYKLyrlZ+F4G33C7ejxTL4GqG elSthMB0Rx7mPJWBis85zzEpgav0FiynJDIob7sxlScnsPTuWbvz2hQYdn6O CNElMcpsJ/HRj4I2qdcqDyRx90Zbn/ZdFJyU1avtcCHR46RqUmswBTZDP4r3 rSbRsvfyYHMEBaeUGi6J7iS+Eknrb8dT4DDjDop9SbR1j9yZIaAg3WXu8mUH SZwV43LubDkFTmvTxtfwSNSoMGpMqqag12Py9pYoEjs5N3+Kq6fAeVvb0sPH SUz5NK4If0UBFZHi+FciidEzmheFvaUg+7fR4bspJAauzQva00mB6+/B1c1n SVxWhs3bpBTk8tGh/zxzn4St6vMvBWtThUOjWSSyjT/Ze36lQJ7OFWnmkDjh Kgp1H6GgIIt/iJNPovRoQo7rBAXueUOLLQtJ7POxCr2kQkN+lE+mhHEAbTjF nEWDj0r8ikZm/03iRHaOOg2cwuTaG5kkupGfHbiaNPycXmJ04Q8S6+80P/tz Gg1HgzjOp5JIXOJTHWY8nQaB7gzn3+JJJBL5ufoGNIQevyfyjybxuXfTr4p5 NJj5DjlErCHRemCzdut6GqJtjTcW9DH9ervXJW2kITdBu8mvm0CX2l8OOXnR 8I5HB87qJHDbGZv3V3xp+DLHo6voBYGJtlqlvEAaWiJsnry7RWAP7846gyM0 XLG8U9nGJ7BAQSStL6LBtthZqbuA+Tc9WlM8RoOdcoHPRIQFqtVll5E5g7CB c+6cjuMc3Gdf81bL7St0eOfYnZk+G0vX7i64O/wV+Fkd6vJhU5T3c/V7Mr9B 1MUnAlUHLlZ5ubIyVg5By5Gvvwccm4kxaxLyRT2MR3Zs81LnoEXHurbLCXKY V7Uhdmm1MS5zjM8wWTwMH1plbwbDjNBv9rNR1ZZhWK1Xom3kYYjyx6mSiLgR MFtFV1TZGWCWmj9v09zvsGlRyO3Nzmw07KwqnCL+Dg3HKqJzg/RR/Xic99KD ozDoy2+4bKCHKtf8yyQGYxCctt9+8vx0jLxYlmpwfwzWV8n5yRwdrLU6rcne Pw7zy03L02qmIXtdpPUJ3QnYaBqq45Sqhe0/Pm85cmcC+K0lwwnbNfGvPJjb 7a+A+X33Xmp7auCOsiVss0kFfGHHKHX8pmJswqW49uuTcHZr3kT/bnUUSs2y dd2VoOByLN+cVkNPtu5/GseUsMKLf/jtdRYmqU8xbWfctbVHXMdYPCpX0Iyt qqOMihkvkXQ84I4roS58kSiSMbdSuGE/452PVYa1GUu814cYTyjhRIPuSadr LORlpWQGKpRwcHH3/ctXWShMiT0SzXiESpmZxLgnlueXyrj2a8j+CMa+YX7E TcZj/4i4KxivWGZ9Y9qkEj5kXDv8ppiFU9uf/FPOOGGX0l6LMTyvK2lgHOvQ lEpdYWG0uDL5PWP+6ic9rxn3CbI91ZVKKDULuFDI+OnxfR2+jL+ndassZ6wR ubM+nPEouGwnGGOw1+UTjAcsX1VpMq7w+DlMwPhSbsq+10Us7P/Fxv0e4+3W ooYaxnMdSZs3jMcHpxOFjP2tOAb9jBX/Xjh+mvGf5tpyJeOP5r5v9zP+HzSY mgI= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->None, AxesOrigin->{0, 0}, Frame->True, FrameLabel->{ FormBox[ StyleBox[ "\"Earth Radii\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Acceleration, m\[CenterDot]\\!\\(\\*SuperscriptBox[\\(s\\), \\(-2\\)]\ \\)\"", FontSize -> 14, FontFamily -> $CellContext`Helvetica, StripOnInput -> False], TraditionalForm], FormBox[ StyleBox[ "\"Acceleration Due to Earth Gravity 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.2360679775, Automatic}, PlotRange->{{0, 2}, {0, 12}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.43325314495225*^9, 3.433253264421*^9, 3.433253429655375*^9, 3.4332534806085*^9, 3.433253620999125*^9, 3.43325431913975*^9, 3.433254833092875*^9, 3.4351578502876253`*^9, 3.4351579108501253`*^9, 3.4351581994595003`*^9, 3.4351585863657503`*^9, 3.4351586508970003`*^9, 3.4351588853345003`*^9, 3.4351602019438753`*^9, {3.4351603775845003`*^9, 3.4351604515532503`*^9}, 3.4351605840376253`*^9, 3.4351607476938753`*^9, 3.4351611256157503`*^9, 3.4351611863813753`*^9, 3.4351612929595003`*^9, 3.4351615185220003`*^9, 3.4351619176313753`*^9, 3.4351624696157503`*^9, 3.4351625433813753`*^9, 3.4351647189907503`*^9, 3.4351648713345003`*^9, 3.4351661158813753`*^9, 3.4351933735*^9, 3.435193537640625*^9, 3.435193660359375*^9, 3.43519414678125*^9, 3.435194255046875*^9, 3.435195790484375*^9, 3.435195903890625*^9, 3.435195962828125*^9, 3.43519602184375*^9, 3.435196081328125*^9, 3.435197125578125*^9, 3.435197262609375*^9}] }, Open ]] }, Open ]] }, 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, 473, 13, 114, "Section"], Cell[CellGroupData[{ Cell[1088, 40, 583, 11, 33, "Subsubsection"], Cell[CellGroupData[{ Cell[1696, 55, 19388, 439, 1039, "Input"], Cell[21087, 496, 11235, 196, 742, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[32371, 698, 500, 8, 33, "Subsubsection"], Cell[CellGroupData[{ Cell[32896, 710, 36923, 928, 2409, "Input"], Cell[CellGroupData[{ Cell[69844, 1642, 1135, 19, 23, "Print"], Cell[70982, 1663, 1137, 19, 23, "Print"], Cell[72122, 1684, 1137, 19, 23, "Print"], Cell[73262, 1705, 1144, 19, 23, "Print"], Cell[74409, 1726, 1170, 21, 23, "Print"], Cell[75582, 1749, 1173, 21, 23, "Print"], Cell[76758, 1772, 1170, 21, 23, "Print"], Cell[77931, 1795, 1134, 19, 23, "Print"], Cell[79068, 1816, 1142, 19, 23, "Print"], Cell[80213, 1837, 1141, 19, 23, "Print"], Cell[81357, 1858, 1124, 18, 23, "Print"], Cell[82484, 1878, 881, 13, 23, "Print"], Cell[83368, 1893, 1201, 21, 23, "Print"], Cell[84572, 1916, 1157, 19, 23, "Print"], Cell[85732, 1937, 881, 13, 23, "Print"], Cell[86616, 1952, 1317, 24, 23, "Print"], Cell[87936, 1978, 880, 13, 23, "Print"], Cell[88819, 1993, 1257, 22, 23, "Print"], Cell[90079, 2017, 882, 13, 23, "Print"] }, Open ]], Cell[90976, 2033, 13405, 238, 720, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[104430, 2277, 799, 13, 33, "Subsubsection"], Cell[CellGroupData[{ Cell[105254, 2294, 37391, 955, 2420, "Input"], Cell[142648, 3251, 1032, 15, 30, "Output"], Cell[CellGroupData[{ Cell[143705, 3270, 766, 14, 23, "Print"], Cell[144474, 3286, 322, 5, 23, "Print"], Cell[144799, 3293, 732, 14, 23, "Print"], Cell[145534, 3309, 322, 5, 23, "Print"], Cell[145859, 3316, 631, 13, 23, "Print"] }, Open ]], Cell[146505, 3332, 12459, 220, 742, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)