Увеличение масштаба на землетрясениях
Интерактивно увеличьте масштаб на графике землетрясений, произошедших за последний год.
In[1]:=

eq = EarthquakeData[All, 6, {Today - Quantity[1, "Years"], Today},
"Position"]["Values"];
In[2]:=

DynamicGeoGraphics[GeoListPlot[eq]]
