Visualize Depth and Position of Earthquakes

Obtain and visualize a decade of earthquake data in Japan

Find the epicenters of all the individual earthquakes in Japan that had a magnitude of at least 3 over a decade:

In[1]:=

events=QuietEarthquakeDataCountryData["Japan"],3,

Year:

2008

Year:

2018

,"Position"["Values"];

Visualize the data on the map:

In[2]:=

GeoGraphics[Point[events]]

Out[2]=

Use a geo smooth histogram to show the areas with the highest frequency of earthquakes:

In[3]:=

GeoSmoothHistogramevents,1,RegionFunction

Japan

COUNTRY

,PlotLegendsAutomatic

Out[3]=

Obtain the position and depth of earthquakes in the region with a magnitude of 5 or higher:

In[4]:=

data={#["Position"],#["Depth"]}&/@Values[EarthquakeData[Rectangle[{30,128},{46,147}],5,{{2000,1,1},{2010,1,1}}]];

Define a function to create a line indicating the position of an earthquake beneath the surface:

In[5]:=

eqdepth[{GeoPosition[{lat_,long_}],depth_}]:=With[{epi={long,lat,-QuantityMagnitude[depth]/10}},{Point[epi],Line[{{long,lat,0},epi}]}]

Visualize the earthquake data together with the position lines:

In[6]:=

Graphics3D

,MapAppend[Reverse[#],0]&,

Japan

COUNTRY

["Polygon"]/.GeoPositionIdentity,{-2},

,eqdepth/@data,



Out[6]=

Related Symbols