ハリケーンサンディーによる気圧降下を調べる 

AirPressureDataを使って，ロングアイランドのマッカーサー空港におけるハリケーンサンディーによる気圧降下を調べる．

In[1]:=

X pressure = AirPressureData[ "KISP", {DateObject[{2012, 10, 24}], DateObject[{2012, 10, 30}]}]

Out[1]=

In[2]:=

X DateListPlot[pressure, FrameLabel -> Automatic, ImageSize -> 300]

Out[2]=

観察時間内での最低気圧を求め，それをさまざまな単位で表す．

In[3]:=

X Map[UnitConvert[Min[pressure], #] &, {"Milibars", "mmHg", "inHG"}]

Out[3]=

Differencesを使って気圧の変化を調べる．

In[4]:=

X resampled = TimeSeriesResample[pressure, "Hour"];

In[5]:=

X changes = Differences[resampled];

In[6]:=

X DateListPlot[changes]

Out[6]=

LowpassFilterを使って， 差分信号のノイズを減少させる．

In[7]:=

X changes2 = Differences[LowpassFilter[resampled, 2]];

完全なWolfram言語入力を表示する入力を隠す

In[8]:=

X DateListPlot[{changes, changes2}, PlotRange -> All, FrameLabel -> Automatic, ImageSize -> Medium, PlotLegends -> {"direct differencing", "filtered differencing"}, PlotTheme -> "Detailed"]

Out[8]=

記録された気圧の最大降下と最大上昇を求める．

In[9]:=

X Map[#[changes2] &, {Min, Max}]

Out[9]=