Genere mapas de las magnitudes de temblores para el mundo entero 

Mapee los grandes temblores mundiales registrados en las últimas dos décadas.

muestre la entrada completa de Wolfram Languageoculte la entrada

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