Zoom in on Earthquakes

Use

to obtain the location of earthquakes that occurred in the past year:

In[1]:=

eq=Quiet[EarthquakeData[All,5,{Today-

1

yr

,Today},"Position"]["Values"]];

Visualize the data over the map using

. Click and drag the map, or use the buttons to interactively zoom into the plot:

In[2]:=

DynamicGeoGraphicsGeoListPlot[eq],GeoProjection"Equirectangular",

...



Out[2]=

Wolfram Language Example Repository