Weltkarten der Erdbebenstärken generieren  

Stellen Sie die weltweit stärksten Erdbeben der letzten zwanzig Jahre auf einer Karte dar.

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[1]:=

X data = {#["Magnitude"], #["Position"]} & /@ Values[EarthquakeData[All, 5, {DateObject[{2013}] - Quantity[20, "Years"], DateObject[{2013, 12, 31}]}]];

In[2]:=

X GeoGraphics[{ {Hue[0.7 (1 - #1/9)], PointSize[0.0006 #1], Point[#2]} & @@@ Sort[data]}, GeoBackground -> GeoStyling["ReliefMap"], GeoRange -> All]

Out[2]=