(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 59914, 1450] NotebookOptionsPosition[ 56155, 1353] NotebookOutlinePosition[ 57920, 1405] CellTagsIndexPosition[ 57877, 1402] WindowTitle->EarthAsteroidImpact | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(1)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Compute the effects of an asteroid impact on Earth:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7687350626647577`*^9, 3.7687350678802795`*^9}, { 3.7687358603735204`*^9, 3.7687358697884617`*^9}, 3.859483055475912*^9}, CellID->13078159], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EarthAsteroidImpact"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EarthAsteroidImpact"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EarthAsteroidImpact"], BoxID -> "EarthAsteroidImpact", Selectable->False], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2.7", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"2.5", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"500", ",", " ", "\"\\""}], "]"}], ",", "\n", "\t", RowBox[{"Quantity", "[", RowBox[{"18000", ",", " ", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"80", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"90", ",", " ", "\"\\""}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.768650412168436*^9, {3.768650467305378*^9, 3.768650520830574*^9}, { 3.768737538401306*^9, 3.768737538497316*^9}, 3.7687432929386854`*^9}, CellLabel->"In[1]:=", CellID->443871870], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"AirburstAltitude\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BreakupAltitude\"\>", "\[Rule]", TemplateBox[{"58230.36124450544`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"BrecciaLenseThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BrecciaLenseVolume\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ComplexCraterDepth\"\>", "\[Rule]", TemplateBox[{"565.5544721853696`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ComplexCraterDiameter\"\>", "\[Rule]", TemplateBox[{"8789.089539275628`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"CraterRimHeight\"\>", "\[Rule]", TemplateBox[{"244.05612075833298`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"DebrisFieldDiameter\"\>", "\[Rule]", TemplateBox[{"655.5898358517856`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"EarthRecurrenceInterval\"\>", "\[Rule]", TemplateBox[{"106875.74958165897`", "\"yr\"", "years", "\"Years\""}, "Quantity"]}], ",", RowBox[{"\<\"EffectiveSeismicMagnitude\"\>", "\[Rule]", "5.6106474756142415`"}], ",", RowBox[{"\<\"EjectaArrivalTime\"\>", "\[Rule]", TemplateBox[{"128.71348697771418`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"EjectaThickness\"\>", "\[Rule]", TemplateBox[{"0.03749719904443895`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"FinalSimpleCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FinalSimpleCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FireballRadius\"\>", "\[Rule]", TemplateBox[{"3457.1656396528547`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactEnergy\"\>", "\[Rule]", TemplateBox[{"2.7947278053686596`*^19", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactVelocity\"\>", "\[Rule]", TemplateBox[{"17784.78240535691`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"InitialKineticEnergy\"\>", "\[Rule]", TemplateBox[{"2.8627763055836987`*^19", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"IrradiationDuration\"\>", "\[Rule]", TemplateBox[{"78.8670964465356`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MaximumThermalRadiationTime\"\>", "\[Rule]", TemplateBox[{"0.3412672490222031`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MeanEjectaParticleDiameter\"\>", "\[Rule]", TemplateBox[{"0.09982149874991034`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"MeltSheetThickness\"\>", "\[Rule]", TemplateBox[{"6.829615203973547`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"MeltVolume\"\>", "\[Rule]", TemplateBox[{"2.487307746778107`*^8", RowBox[{ SuperscriptBox["\"m\"", "3"]}], "meters cubed", SuperscriptBox["\"Meters\"", "3"]}, "Quantity"]}], ",", RowBox[{"\<\"PeakOverpressure\"\>", "\[Rule]", TemplateBox[{"35950.930847901924`", "\"Pa\"", "pascals", "\"Pascals\""}, "Quantity"]}], ",", RowBox[{"\<\"PeakWindVelocity\"\>", "\[Rule]", TemplateBox[{"74.09128591348164`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"SeismicArrivalTime\"\>", "\[Rule]", TemplateBox[{"16.`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ShockWaveTravelTime\"\>", "\[Rule]", TemplateBox[{"242.42424242424244`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ThermalExposure\"\>", "\[Rule]", TemplateBox[{"1.8655392792229464`*^6", RowBox[{"\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "joules per meter squared", FractionBox["\"Joules\"", SuperscriptBox["\"Meters\"", "2"]]}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDepth\"\>", "\[Rule]", TemplateBox[{"2407.557728491911`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDiameter\"\>", "\[Rule]", TemplateBox[{"6809.601583658845`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.76865055157347*^9, 3.768650670621675*^9, 3.7687351529137816`*^9, 3.768738035007962*^9, 3.768738565868043*^9, 3.768738621012557*^9, 3.7687386958740425`*^9, 3.7687387706135154`*^9, 3.7687388244368973`*^9, 3.7687388890143547`*^9, 3.7687389443798904`*^9, 3.7687396108885345`*^9, 3.768739739929437*^9, 3.768742682552653*^9, 3.768743307358127*^9, 3.768746141132476*^9, 3.7687461858159437`*^9, 3.768834380285623*^9}, CellLabel->"Out[1]=", CellID->547190202] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellChangeTimes->{{3.859482946980955*^9, 3.859482947767159*^9}}, CellID->844491874], Cell["Compute the impact effects of an icy body impacting Earth:", "Text", TaggingRules->{}, CellChangeTimes->{{3.768743133847778*^9, 3.7687431714075336`*^9}}, CellID->6305037], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EarthAsteroidImpact"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EarthAsteroidImpact"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EarthAsteroidImpact"], BoxID -> "EarthAsteroidImpact", Selectable->False], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1000", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"2.5", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"200", ",", " ", "\"\\""}], "]"}], ",", "\n", "\t", RowBox[{"Quantity", "[", RowBox[{"50000", ",", " ", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"80", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"45", ",", " ", "\"\\""}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7687401401170087`*^9, 3.7687401826754456`*^9}, { 3.7687424181152115`*^9, 3.7687424189022903`*^9}, {3.7687430521676106`*^9, 3.7687430526456585`*^9}, {3.7687430974921427`*^9, 3.7687431050789013`*^9}, 3.7687433113995314`*^9}, CellLabel->"In[1]:=", CellID->17286432], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"AirburstAltitude\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BreakupAltitude\"\>", "\[Rule]", TemplateBox[{"97955.2559962721`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"BrecciaLenseThickness\"\>", "\[Rule]", TemplateBox[{"248.25504064436615`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"BrecciaLenseVolume\"\>", "\[Rule]", TemplateBox[{"5.094709992987711`*^8", RowBox[{ SuperscriptBox["\"m\"", "3"]}], "meters cubed", SuperscriptBox["\"Meters\"", "3"]}, "Quantity"]}], ",", RowBox[{"\<\"ComplexCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ComplexCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"CraterRimHeight\"\>", "\[Rule]", TemplateBox[{"72.12975954662978`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"DebrisFieldDiameter\"\>", "\[Rule]", TemplateBox[{"1455.687054162578`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"EarthRecurrenceInterval\"\>", "\[Rule]", TemplateBox[{"28405.596666617617`", "\"yr\"", "years", "\"Years\""}, "Quantity"]}], ",", RowBox[{"\<\"EffectiveSeismicMagnitude\"\>", "\[Rule]", "4.445569676961982`"}], ",", RowBox[{"\<\"EjectaArrivalTime\"\>", "\[Rule]", TemplateBox[{"128.71348697771418`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"EjectaThickness\"\>", "\[Rule]", TemplateBox[{"0.00028608688568894944`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"FinalSimpleCraterDepth\"\>", "\[Rule]", TemplateBox[{"535.4182749956931`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"FinalSimpleCraterDiameter\"\>", "\[Rule]", TemplateBox[{"2515.686368116273`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"FireballRadius\"\>", "\[Rule]", TemplateBox[{"680.2789735245453`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactEnergy\"\>", "\[Rule]", TemplateBox[{"5.098206569930815`*^17", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactVelocity\"\>", "\[Rule]", TemplateBox[{"15601.968880638742`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"InitialKineticEnergy\"\>", "\[Rule]", TemplateBox[{"5.235987755982988`*^18", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"IrradiationDuration\"\>", "\[Rule]", TemplateBox[{"20.76132927344234`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MaximumThermalRadiationTime\"\>", "\[Rule]", TemplateBox[{"0.10240544860934085`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MeanEjectaParticleDiameter\"\>", "\[Rule]", TemplateBox[{"0.027519343677294122`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"MeltSheetThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"MeltVolume\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"PeakOverpressure\"\>", "\[Rule]", TemplateBox[{"4435.023469484408`", "\"Pa\"", "pascals", "\"Pascals\""}, "Quantity"]}], ",", RowBox[{"\<\"PeakWindVelocity\"\>", "\[Rule]", TemplateBox[{"10.26077393222306`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"SeismicArrivalTime\"\>", "\[Rule]", TemplateBox[{"16.`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ShockWaveTravelTime\"\>", "\[Rule]", TemplateBox[{"242.42424242424244`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ThermalExposure\"\>", "\[Rule]", TemplateBox[{"23065.40050357427`", RowBox[{"\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "joules per meter squared", FractionBox["\"Joules\"", SuperscriptBox["\"Meters\"", "2"]]}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDepth\"\>", "\[Rule]", TemplateBox[{"711.5435560934295`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDiameter\"\>", "\[Rule]", TemplateBox[{"2012.5490944930184`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7687401843135085`*^9, 3.7687424193683367`*^9, 3.7687426952019176`*^9, 3.7687430533327274`*^9, {3.7687430991613097`*^9, 3.7687431058409777`*^9}, 3.7687433125636473`*^9, 3.7687461515455174`*^9, 3.7687461903824005`*^9, 3.7688343885799627`*^9}, CellLabel->"Out[1]=", CellID->1437366976] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->418073913], Cell["\<\ Compute the effects of an airburst resulting from an asteroid hitting the \ Earth\[CloseCurlyQuote]s atmosphere:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7687380644909105`*^9, 3.768738066659127*^9}, { 3.768739679818427*^9, 3.7687397126877136`*^9}}, CellID->64549670], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EarthAsteroidImpact"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EarthAsteroidImpact"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EarthAsteroidImpact"], BoxID -> "EarthAsteroidImpact", Selectable->False], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"1000", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"2500", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"100", ",", " ", "\"\\""}], "]"}], ",", "\n", "\t", RowBox[{"Quantity", "[", RowBox[{"50", ",", " ", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"80", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"45", ",", " ", "\"\\""}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768737479949462*^9, 3.768737498364303*^9}, { 3.7687375437378397`*^9, 3.7687375753930054`*^9}, {3.7687376148969555`*^9, 3.768737651515617*^9}, {3.7687378466621294`*^9, 3.768737858031266*^9}, { 3.7687382213085904`*^9, 3.7687382886063194`*^9}, 3.7687433177321644`*^9}, CellLabel->"In[1]:=", CellID->192407756], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"AirburstAltitude\"\>", "\[Rule]", TemplateBox[{"6010.303818542059`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"BreakupAltitude\"\>", "\[Rule]", TemplateBox[{"97955.24946333397`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"BrecciaLenseThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BrecciaLenseVolume\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ComplexCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ComplexCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"CraterRimHeight\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"DebrisFieldDiameter\"\>", "\[Rule]", TemplateBox[{"1434.9302408116905`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"EarthRecurrenceInterval\"\>", "\[Rule]", TemplateBox[{"5610.398713689139`", "\"yr\"", "years", "\"Years\""}, "Quantity"]}], ",", RowBox[{"\<\"EffectiveSeismicMagnitude\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"EjectaArrivalTime\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"EjectaThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FinalSimpleCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FinalSimpleCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FireballRadius\"\>", "\[Rule]", TemplateBox[{"759.7771100859119`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactEnergy\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ImpactVelocity\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"InitialKineticEnergy\"\>", "\[Rule]", TemplateBox[{"6.544984694978735`*^17", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"IrradiationDuration\"\>", "\[Rule]", TemplateBox[{"22.42481099564386`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MaximumThermalRadiationTime\"\>", "\[Rule]", TemplateBox[{"230.79384193314692`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MeanEjectaParticleDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"MeltSheetThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"MeltVolume\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"PeakOverpressure\"\>", "\[Rule]", TemplateBox[{"46.2632544173559`", "\"Pa\"", "pascals", "\"Pascals\""}, "Quantity"]}], ",", RowBox[{"\<\"PeakWindVelocity\"\>", "\[Rule]", TemplateBox[{"0.10902748484234243`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"SeismicArrivalTime\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ShockWaveTravelTime\"\>", "\[Rule]", TemplateBox[{"242.42424242424244`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ThermalExposure\"\>", "\[Rule]", TemplateBox[{"30422.065180263406`", RowBox[{"\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "joules per meter squared", FractionBox["\"Joules\"", SuperscriptBox["\"Meters\"", "2"]]}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"TransientCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.768737480839551*^9, 3.7687374992263894`*^9}, 3.7687375463511014`*^9, 3.768737576361102*^9, {3.7687376167531404`*^9, 3.768737651954661*^9}, 3.7687378587953424`*^9, {3.7687382352809877`*^9, 3.768738249080367*^9}, {3.7687382902724857`*^9, 3.768738311352594*^9}, 3.7687385732377796`*^9, 3.768738624987954*^9, 3.76873869885034*^9, 3.7687387740638604`*^9, 3.768738828929346*^9, 3.768738892364689*^9, 3.768738948328285*^9, 3.7687396145819035`*^9, 3.76874331869026*^9, 3.768746194342797*^9, 3.7688343996964693`*^9}, CellLabel->"Out[1]=", CellID->1988241234] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->480955645], Cell["\<\ Compute the effects of a 1.75 km diameter, dense asteroid hitting crystalline \ rock:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.768743707895177*^9, 3.768743789513338*^9}, { 3.777654456776102*^9, 3.7776544570459347`*^9}, {3.8594829766298323`*^9, 3.859482979885633*^9}}, CellID->125305942], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["EarthAsteroidImpact", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"1.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/EarthAsteroidImpact"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "EarthAsteroidImpact"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["EarthAsteroidImpact"], BoxID -> "EarthAsteroidImpact", Selectable->False], "[", RowBox[{ RowBox[{"Quantity", "[", RowBox[{"2700", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"2750", ",", " ", RowBox[{"\"\\"", "/", RowBox[{"\"\\"", "^", "3"}]}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"1.75", ",", " ", "\"\\""}], "]"}], ",", "\n", "\t", RowBox[{"Quantity", "[", RowBox[{"20", ",", " ", RowBox[{"\"\\"", "/", "\"\\""}]}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"80", ",", " ", "\"\\""}], "]"}], ",", RowBox[{"Quantity", "[", RowBox[{"45", ",", " ", "\"\\""}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768743533228712*^9, 3.768743571992588*^9}}, CellLabel->"In[1]:=", CellID->70899598], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"AirburstAltitude\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BreakupAltitude\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BrecciaLenseThickness\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"BrecciaLenseVolume\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"ComplexCraterDepth\"\>", "\[Rule]", TemplateBox[{"762.8538473007414`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ComplexCraterDiameter\"\>", "\[Rule]", TemplateBox[{"23753.499939385376`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"CraterRimHeight\"\>", "\[Rule]", TemplateBox[{"588.300464290886`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"DebrisFieldDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"EarthRecurrenceInterval\"\>", "\[Rule]", TemplateBox[{"2.362544963998866`*^6", "\"yr\"", "years", "\"Years\""}, "Quantity"]}], ",", RowBox[{"\<\"EffectiveSeismicMagnitude\"\>", "\[Rule]", "6.770327785587771`"}], ",", RowBox[{"\<\"EjectaArrivalTime\"\>", "\[Rule]", TemplateBox[{"128.71348697771418`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"EjectaThickness\"\>", "\[Rule]", TemplateBox[{"1.2660089529654803`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"FinalSimpleCraterDepth\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FinalSimpleCraterDiameter\"\>", "\[Rule]", RowBox[{"Missing", "[", "\<\"NotApplicable\"\>", "]"}]}], ",", RowBox[{"\<\"FireballRadius\"\>", "\[Rule]", TemplateBox[{"13917.607316259395`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactEnergy\"\>", "\[Rule]", TemplateBox[{"1.5038539128342737`*^21", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"ImpactVelocity\"\>", "\[Rule]", TemplateBox[{"19924.138712049076`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"InitialKineticEnergy\"\>", "\[Rule]", TemplateBox[{"1.5153275815049518`*^21", "\"J\"", "joules", "\"Joules\""}, "Quantity"]}], ",", RowBox[{"\<\"IrradiationDuration\"\>", "\[Rule]", TemplateBox[{"297.7496298975917`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MaximumThermalRadiationTime\"\>", "\[Rule]", TemplateBox[{"1.1500560026019992`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"MeanEjectaParticleDiameter\"\>", "\[Rule]", TemplateBox[{"0.2779465695937211`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"MeltSheetThickness\"\>", "\[Rule]", TemplateBox[{"44.72273937654094`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"MeltVolume\"\>", "\[Rule]", TemplateBox[{"9.464129167143436`*^9", RowBox[{ SuperscriptBox["\"m\"", "3"]}], "meters cubed", SuperscriptBox["\"Meters\"", "3"]}, "Quantity"]}], ",", RowBox[{"\<\"PeakOverpressure\"\>", "\[Rule]", TemplateBox[{"540634.845620524`", "\"Pa\"", "pascals", "\"Pascals\""}, "Quantity"]}], ",", RowBox[{"\<\"PeakWindVelocity\"\>", "\[Rule]", TemplateBox[{"536.8846869667489`", RowBox[{ "\"m\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "\"s\""}], "meters per second", FractionBox["\"Meters\"", "\"Seconds\""]}, "Quantity"]}], ",", RowBox[{"\<\"SeismicArrivalTime\"\>", "\[Rule]", TemplateBox[{"16.`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ShockWaveTravelTime\"\>", "\[Rule]", TemplateBox[{"242.42424242424244`", "\"s\"", "seconds", "\"Seconds\""}, "Quantity"]}], ",", RowBox[{"\<\"ThermalExposure\"\>", "\[Rule]", TemplateBox[{"1.0906235457779813`*^8", RowBox[{"\"J\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox["\"m\"", "2"]}], "joules per meter squared", FractionBox["\"Joules\"", SuperscriptBox["\"Meters\"", "2"]]}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDepth\"\>", "\[Rule]", TemplateBox[{"5803.449325827008`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}], ",", RowBox[{"\<\"TransientCraterDiameter\"\>", "\[Rule]", TemplateBox[{"16414.6334902591`", "\"m\"", "meters", "\"Meters\""}, "Quantity"]}]}], "\[RightAssociation]"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.768743582292618*^9, 3.768746197843147*^9, 3.768834404246187*^9}, CellLabel->"Out[1]=", CellID->1694096397] }, Open ]] }, Open ]] }, Closed]] }, ClosingSaveDialog->False, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"EarthAsteroidImpact | Example Notebook", Visible->False, FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions->Notebook[{ Cell[ StyleData[ StyleDefinitions -> FrontEnd`FileName[{"Wolfram"}, "Reference.nb", CharacterEncoding -> "UTF-8"]]], Cell[ StyleData[All, "Working"], Editable -> True, DockedCells -> {}], Cell[ StyleData["Notebook"], Editable -> True, DockedCells -> {}, ScrollingOptions -> {"VerticalScrollRange" -> Automatic}], Cell[ StyleData[ "Section", StyleDefinitions -> StyleData["PrimaryExamplesSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Subsection", StyleDefinitions -> StyleData["ExampleSection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsection", StyleDefinitions -> StyleData["ExampleSubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData[ "Subsubsubsection", StyleDefinitions -> StyleData["ExampleSubsubsection"]], Editable -> True, ShowGroupOpener -> "Inline", WholeCellGroupOpener -> True], Cell[ StyleData["Text", StyleDefinitions -> StyleData["ExampleText"]], Editable -> True]}, Visible -> False, FrontEndVersion -> "13.0 for Mac OS X x86 (64-bit) (December 9, 2021)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[632, 23, 168, 7, 70, "Subsection",ExpressionUUID->"e7b17e24-1f85-4e89-8d59-e63ed06ca232", CellID->462042388], Cell[803, 32, 251, 4, 70, "Text",ExpressionUUID->"4486cc08-0346-4de3-9e1d-23bbe0d50ae1", CellID->13078159], Cell[CellGroupData[{ Cell[1079, 40, 8078, 203, 70, "Input",ExpressionUUID->"eb3c0d74-e64e-4011-9bd1-5725f7d62cc7", CellID->443871870], Cell[9160, 245, 5527, 111, 70, "Output",ExpressionUUID->"5efca3cc-1142-4bed-9e6b-fbb8e35a7288", CellID->547190202] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[14736, 362, 225, 8, 70, "Subsection",ExpressionUUID->"d2e249a2-714b-46b3-a2b5-307315c80968", CellID->844491874], Cell[14964, 372, 179, 3, 70, "Text",ExpressionUUID->"b90420a4-4ee9-4d46-bbb1-327b4252df40", CellID->6305037], Cell[CellGroupData[{ Cell[15168, 379, 8168, 204, 70, "Input",ExpressionUUID->"0d10792c-29a9-486b-94bb-26fa4fe48c4d", CellID->17286432], Cell[23339, 585, 5354, 109, 70, "Output",ExpressionUUID->"3dec1868-4a25-4632-87af-25abdd7f1f9f", CellID->1437366976] }, Open ]], Cell[CellGroupData[{ Cell[28730, 699, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"21f96aac-7e4b-4c9f-8f2c-890162511ed1", CellID->418073913], Cell[28877, 705, 293, 7, 70, "Text",ExpressionUUID->"16bc3d56-72cb-4625-b282-0ae9c46e118b", CellID->64549670], Cell[CellGroupData[{ Cell[29195, 716, 8212, 204, 70, "Input",ExpressionUUID->"4f8a9010-afcc-478c-a955-faf12c57ea9d", CellID->192407756], Cell[37410, 922, 5074, 94, 70, "Output",ExpressionUUID->"bfc0a3b5-b427-48b4-b3da-3c07d4cbdaaf", CellID->1988241234] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[42533, 1022, 144, 4, 70, "ExampleDelimiter",ExpressionUUID->"f59df64c-5bd3-42c8-b301-f9bdbe69ed84", CellID->480955645], Cell[42680, 1028, 316, 8, 70, "Text",ExpressionUUID->"e93dbf3f-30bb-45c2-8685-1025d00d70fd", CellID->125305942], Cell[CellGroupData[{ Cell[43021, 1040, 7988, 202, 70, "Input",ExpressionUUID->"9e166033-62eb-4079-ae61-61c8e8325918", CellID->70899598], Cell[51012, 1244, 5103, 104, 70, "Output",ExpressionUUID->"316d429d-cebb-4b46-949b-42fc14050b77", CellID->1694096397] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)