Gere mapas das magnitudes de terremotos para todo o mundo 

Mapeie grandes terremotos mundiais registrados ao longo das últimas duas décadas.

mostre o input completo de Wolfram Languageoculte o input

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]=