这就是沙皇邦巴(Tsar Bomba - 世界上最大的氢弹),约为58兆吨。...In[5]:= tsar = GeoPosition[{73.8072, 54.98167`}];
In[6]:= legend = Labeled[
SwatchLegend[{Directive...windows broke",
"top of mushroom cloud visible"}, LegendFunction -> "Frame"],
Text[Style["Tsar...[{73.80722222222222`, 54.98166666666667`, 67000}]],
Orange, GeoDisk[tsar, Quantity[270, "Kilometers..., GeoDisk[tsar, Quantity[900, "Kilometers"]]},
GeoGridRange -> {{-1.3, 1.3}, {-1, 1}} km/4000,