地震の頻度とマグニチュードを解析する 

EarthquakeDataは与えられた時間内に記録された地震の特性のTimeSeriesを返し，後続するデータ解析を合理化する．

2013年に記録された，マグニチュードが少なくとも3.5の地震のマグニチュード．

In[1]:=

X ed = EarthquakeData[All, 3.5, {{2013, 1, 1}, {2013, 12, 31}}, "Magnitude"]

Out[1]=

In[2]:=

X DateListPlot[ed, Joined -> False, Filling -> Axis, ImageSize -> Medium]

Out[2]=

その時間内に記録された最大のマグニチュード．

In[3]:=

X Max[ed]

Out[3]=

選ばれた地震の頻度を，そのマグニチュードの関数として表す．

In[4]:=

X Histogram[ed, {3.5, 8.5, 0.5}, ScalingFunctions -> "Log", LabelingFunction -> Top, ImageSize -> 300]

Out[4]=

最も頻度の高いマグニチュードを求める．

In[5]:=

X {bins, counts} = HistogramList[ed, {3.5, 8.5, 0.5}]

Out[5]=

In[6]:=

X MaximalBy[Transpose[{Partition[bins, 2, 1], counts}], Last]

Out[6]=