Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 NuclearWeaponEffects

Source Notebook

Get the effects from detonating a nuclear weapon of specified energy

Contributed by: Julián Laverde

ResourceFunction["NuclearWeaponEffects"][energy]

returns the effects of a nuclear weapon detonation yielding energy.

Details and Options

ResourceFunction["NuclearWeaponEffects"] returns its result as an Association.
The available effects are the following:
"CloudTopHeight"height of the top of the stabilized mushroom cloud for a surface burst
"CloudBottomHeight"height of the bottom of the stabilized mushroom cloud for a surface burst
"CloudRadius"radius of the stabilized mushroom cap for a surface burst
"AirBlastRadius"radius of the air blast (near-total fatalities)
"IonizingRadiationRadius"radius of the ionizing radiation up to 500 rem
"AirBlastRadiusWidespreadDestruction"radius of the air blast (widespread destruction)
"ThermalRadiationRadius1stDegreeBurns"radius of the thermal radiation capable of producing first‐degree burns
"ThermalRadiationRadius2ndDegreeBurns"radius of the thermal radiation capable of producing second‐degree burns
"ThermalRadiationRadius3rdDegreeBurns"radius of the thermal radiation capable of producing third‐degree burns
"FireballDuration"fireball duration in seconds
The units for energy can be any available energy units.
The valid range of energy is from 1 kiloton to 20,000 kilotons of TNT.
ResourceFunction["NuclearWeaponEffects"] takes the option "LengthUnit" (default "Kilometers").

Examples

Basic Examples (2) 

Calculate the effects of nuclear weapon detonation:

In[1]:=
ResourceFunction["NuclearWeaponEffects"][Quantity[1, "MegatonsOfTNT"]]
Out[1]=

Use any suitable quantity:

In[2]:=
ResourceFunction["NuclearWeaponEffects"][ Quantity[418.4, "TeraJoules"]]
Out[2]=

Scope (2) 

Create a Dataset based on the output Association:

In[3]:=
ResourceFunction["NuclearWeaponEffects"][ Quantity[2000, "KilotonsOfTNT"]] // Dataset
Out[3]=

Use Interval to get the effects for a range of values:

In[4]:=
ResourceFunction["NuclearWeaponEffects"][ Interval[{Quantity[100, "KilotonsOfTNT"], Quantity[200, "KilotonsOfTNT"]}]]
Out[4]=

Options (1) 

LengthUnit (1) 

Use "LengthUnit" to specify the output length unit:

In[5]:=
ResourceFunction["NuclearWeaponEffects"][ Quantity[10, "MegatonsOfTNT"], "LengthUnit" -> "Miles"]
Out[5]=

Neat Examples (2) 

Use GeoGraphics with NuclearWeaponsEffects to visualize the two-dimensional disk with the radius representing the air blast (widespread destruction) of a nuclear weapon detonating in the city of London:

In[6]:=
GeoGraphics[GeoDisk[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "London", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"London\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"London\"", ",", "\"GreaterLondon\"", ",", "\"UnitedKingdom\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"London\\\", \\\"GreaterLondon\\\", \\\"UnitedKingdom\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{"type" -> "Clash", "word" -> "London", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "4", "Values" -> {{"name" -> "City", "desc" -> "a city", "input" -> "*C.London-_*City-"}, {"name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.London-_*AdministrativeDivision-"}, {"name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.London-_*GivenName-"}, {"name" -> "Surname", "desc" -> "a surname", "input" -> "*C.London-_*Surname-"}}}, {"type" -> "SubCategory", "word" -> "London", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "7", "Values" -> {{"name" -> "{London, GreaterLondon, UnitedKingdom}", "desc" -> "London (United Kingdom)", "input" -> "*DPClash.CityE.London-_**London.GreaterLondon.UnitedKingdom--"}, {"name" -> "{London, Ontario, Canada}", "desc" -> "London (Canada)", "input" -> "*DPClash.CityE.London-_**London.Ontario.Canada--"}, {"name" -> "{London, Ohio, UnitedStates}", "desc" -> "London (Ohio, USA)", "input" -> "*DPClash.CityE.London-_**London.Ohio.UnitedStates--"}, {"name" -> "{London, Kentucky, UnitedStates}", "desc" -> "London (Kentucky, USA)", "input" -> "*DPClash.CityE.London-_**London.Kentucky.UnitedStates--"}, {"name" -> "{London, California, UnitedStates}", "desc" -> "London (California, USA)", "input" -> "*DPClash.CityE.London-_**London.California.UnitedStates--"}, {"name" -> "{London, Arkansas, UnitedStates}", "desc" -> "London (Arkansas, USA)", "input" -> "*DPClash.CityE.London-_**London.Arkansas.UnitedStates--"}, {"name" -> "{London, Kiritimati, Kiribati}", "desc" -> "London (Kiribati)", "input" -> "*DPClash.CityE.London-_**London.Kiritimati.Kiribati--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{137.25, {8.125, 17.125}}, TrackedSymbols:>{WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), ResourceFunction["NuclearWeaponEffects"][ Quantity[5, "MegatonsOfTNT"]][ "AirBlastRadiusWidespreadDestruction"]], GeoRange -> \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query$$ = "London", Typeset`boxes$$ = TemplateBox[{"\"London\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"London\"", ",", "\"GreaterLondon\"", ",", "\"UnitedKingdom\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"London\\\", \\\"GreaterLondon\\\", \\\"UnitedKingdom\\\"}]\"", "\"city\""}, "Entity"], Typeset`allassumptions$$ = {{"type" -> "Clash", "word" -> "London", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "4", "Values" -> {{"name" -> "City", "desc" -> "a city", "input" -> "*C.London-_*City-"}, {"name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.London-_*AdministrativeDivision-"}, {"name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.London-_*GivenName-"}, {"name" -> "Surname", "desc" -> "a surname", "input" -> "*C.London-_*Surname-"}}}, {"type" -> "SubCategory", "word" -> "London", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "7", "Values" -> {{"name" -> "{London, GreaterLondon, UnitedKingdom}", "desc" -> "London (United Kingdom)", "input" -> "*DPClash.CityE.London-_**London.GreaterLondon.UnitedKingdom--"}, {"name" -> "{London, Ontario, Canada}", "desc" -> "London (Canada)", "input" -> "*DPClash.CityE.London-_**London.Ontario.Canada--"}, {"name" -> "{London, Ohio, UnitedStates}", "desc" -> "London (Ohio, USA)", "input" -> "*DPClash.CityE.London-_**London.Ohio.UnitedStates--"}, {"name" -> "{London, Kentucky, UnitedStates}", "desc" -> "London (Kentucky, USA)", "input" -> "*DPClash.CityE.London-_**London.Kentucky.UnitedStates--"}, {"name" -> "{London, California, UnitedStates}", "desc" -> "London (California, USA)", "input" -> "*DPClash.CityE.London-_**London.California.UnitedStates--"}, {"name" -> "{London, Arkansas, UnitedStates}", "desc" -> "London (Arkansas, USA)", "input" -> "*DPClash.CityE.London-_**London.Arkansas.UnitedStates--"}, {"name" -> "{London, Kiritimati, Kiribati}", "desc" -> "London (Kiribati)", "input" -> "*DPClash.CityE.London-_**London.Kiritimati.Kiribati--"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1, 2}, Typeset`querystate$$ = {"Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.9883591, "Messages" -> {}}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["Entity", 4, Automatic, Dynamic[Typeset`query$$], Dynamic[Typeset`boxes$$], Dynamic[Typeset`allassumptions$$], Dynamic[Typeset`assumptions$$], Dynamic[Typeset`open$$], Dynamic[Typeset`querystate$$]], StandardForm], ImageSizeCache->{137.25, {8.125, 17.125}}, TrackedSymbols:>{Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$, Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{Typeset`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\)]
Out[6]=

Visualize the thermal radiation radius of the detonation of "Little Boy" in the city of Rome:

In[7]:=
littleBoy = ResourceFunction["NuclearWeaponEffects"][ Entity["NuclearExplosion", "UnitedStates08051945"][ EntityProperty["NuclearExplosion", "Yield"]]]; GeoGraphics[{Yellow, GeoDisk[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Roma", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Rome\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Rome\"", ",", "\"Lazio\"", ",", "\"Italy\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Rome\\\", \\\"Lazio\\\", \\\"Italy\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{"type" -> "Clash", "word" -> "Roma", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "8", "Values" -> {{"name" -> "City", "desc" -> "a city", "input" -> "*C.Roma-_*City-"}, {"name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Roma-_*GivenName-"}, {"name" -> "HistoricalCountry", "desc" -> "a historical country", "input" -> "*C.Roma-_*HistoricalCountry-"}, {"name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.Roma-_*AdministrativeDivision-"}, {"name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.Roma-_*Mythology-"}, {"name" -> "Movie", "desc" -> "a movie", "input" -> "*C.Roma-_*Movie-"}, {"name" -> "Financial", "desc" -> "a financial entity", "input" -> "*C.Roma-_*Financial-"}, {"name" -> "Language", "desc" -> "a language", "input" -> "*C.Roma-_*Language-"}}}, {"type" -> "SubCategory", "word" -> "Roma", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "4", "Values" -> {{"name" -> "{Rome, Lazio, Italy}", "desc" -> "Rome (Italy)", "input" -> "*DPClash.CityE.Roma-_**Rome.Lazio.Italy--"}, {"name" -> "{Roma, Texas, UnitedStates}", "desc" -> "Roma (United States)", "input" -> "*DPClash.CityE.Roma-_**Roma.Texas.UnitedStates--"}, {"name" -> "{Roma, Queensland, Australia}", "desc" -> "Roma (Australia)", "input" -> "*DPClash.CityE.Roma-_**Roma.Queensland.Australia--"}, {"name" -> "{Roma, Botosani, Romania}", "desc" -> "Roma (Romania)", "input" -> "*DPClash.CityE.Roma-_**Roma.Botosani.Romania--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{124.25, {8.125, 17.125}}, TrackedSymbols:>{WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), littleBoy["ThermalRadiationRadius1stDegreeBurns"]], Orange, GeoDisk[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Roma", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Rome\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Rome\"", ",", "\"Lazio\"", ",", "\"Italy\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Rome\\\", \\\"Lazio\\\", \\\"Italy\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{"type" -> "Clash", "word" -> "Roma", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "8", "Values" -> {{"name" -> "City", "desc" -> "a city", "input" -> "*C.Roma-_*City-"}, {"name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Roma-_*GivenName-"}, {"name" -> "HistoricalCountry", "desc" -> "a historical country", "input" -> "*C.Roma-_*HistoricalCountry-"}, {"name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.Roma-_*AdministrativeDivision-"}, {"name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.Roma-_*Mythology-"}, {"name" -> "Movie", "desc" -> "a movie", "input" -> "*C.Roma-_*Movie-"}, {"name" -> "Financial", "desc" -> "a financial entity", "input" -> "*C.Roma-_*Financial-"}, {"name" -> "Language", "desc" -> "a language", "input" -> "*C.Roma-_*Language-"}}}, {"type" -> "SubCategory", "word" -> "Roma", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "4", "Values" -> {{"name" -> "{Rome, Lazio, Italy}", "desc" -> "Rome (Italy)", "input" -> "*DPClash.CityE.Roma-_**Rome.Lazio.Italy--"}, {"name" -> "{Roma, Texas, UnitedStates}", "desc" -> "Roma (United States)", "input" -> "*DPClash.CityE.Roma-_**Roma.Texas.UnitedStates--"}, {"name" -> "{Roma, Queensland, Australia}", "desc" -> "Roma (Australia)", "input" -> "*DPClash.CityE.Roma-_**Roma.Queensland.Australia--"}, {"name" -> "{Roma, Botosani, Romania}", "desc" -> "Roma (Romania)", "input" -> "*DPClash.CityE.Roma-_**Roma.Botosani.Romania--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{124.25, {8.125, 17.125}}, TrackedSymbols:>{WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), littleBoy["ThermalRadiationRadius2ndDegreeBurns"]], Red, GeoDisk[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Roma", WolframAlphaClient`Private`boxes$$ = TemplateBox[{"\"Rome\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Rome\"", ",", "\"Lazio\"", ",", "\"Italy\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Rome\\\", \\\"Lazio\\\", \\\"Italy\\\"}]\"", "\"city\""}, "Entity"], WolframAlphaClient`Private`allassumptions$$ = {{"type" -> "Clash", "word" -> "Roma", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "8", "Values" -> {{"name" -> "City", "desc" -> "a city", "input" -> "*C.Roma-_*City-"}, {"name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Roma-_*GivenName-"}, {"name" -> "HistoricalCountry", "desc" -> "a historical country", "input" -> "*C.Roma-_*HistoricalCountry-"}, {"name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.Roma-_*AdministrativeDivision-"}, {"name" -> "Mythology", "desc" -> "a mythological figure", "input" -> "*C.Roma-_*Mythology-"}, {"name" -> "Movie", "desc" -> "a movie", "input" -> "*C.Roma-_*Movie-"}, {"name" -> "Financial", "desc" -> "a financial entity", "input" -> "*C.Roma-_*Financial-"}, {"name" -> "Language", "desc" -> "a language", "input" -> "*C.Roma-_*Language-"}}}, {"type" -> "SubCategory", "word" -> "Roma", "template" -> "Assuming ${desc1}. Use ${desc2} instead", "count" -> "4", "Values" -> {{"name" -> "{Rome, Lazio, Italy}", "desc" -> "Rome (Italy)", "input" -> "*DPClash.CityE.Roma-_**Rome.Lazio.Italy--"}, {"name" -> "{Roma, Texas, UnitedStates}", "desc" -> "Roma (United States)", "input" -> "*DPClash.CityE.Roma-_**Roma.Texas.UnitedStates--"}, {"name" -> "{Roma, Queensland, Australia}", "desc" -> "Roma (Australia)", "input" -> "*DPClash.CityE.Roma-_**Roma.Queensland.Australia--"}, {"name" -> "{Roma, Botosani, Romania}", "desc" -> "Roma (Romania)", "input" -> "*DPClash.CityE.Roma-_**Roma.Botosani.Romania--"}}}}, WolframAlphaClient`Private`assumptions$$ = {}, WolframAlphaClient`Private`open$$ = {1, 2}}, DynamicBox[ToBoxes[ AlphaIntegration`LinguisticAssistantBoxes["", 1, Dynamic[WolframAlphaClient`Private`query$$], Dynamic[WolframAlphaClient`Private`boxes$$], Dynamic[WolframAlphaClient`Private`allassumptions$$], Dynamic[WolframAlphaClient`Private`assumptions$$], Dynamic[WolframAlphaClient`Private`open$$]], StandardForm], ImageSizeCache->{124.25, {8.125, 17.125}}, TrackedSymbols:>{WolframAlphaClient`Private`query$$, WolframAlphaClient`Private`boxes$$, WolframAlphaClient`Private`allassumptions$$, WolframAlphaClient`Private`assumptions$$, WolframAlphaClient`Private`open$$}], DynamicModuleValues:>{}, UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}], BaseStyle->{"Deploy"}, DeleteWithContents->True, Editable->False, SelectWithContents->True]\), littleBoy["ThermalRadiationRadius3rdDegreeBurns"]]}, GeoRange -> Quantity[3, "Miles"]]
Out[8]=

Publisher

WolframSpecialProjects

Version History

  • 1.0.0 – 23 November 2020

License Information