Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Временные ряды и стохастические дифференциальные уравнения
Глобальное потепление
Глобальная среднегодовая температура за период с 1880 по 2011 год относительно среднего значения за период с 1951 по 1980 год.
In[1]:=
X
gmt = \!\(\* TagBox[ RowBox[{"TemporalData", "[", PanelBox["1", FrameMargins->Small], "]"}], InterpretTemplate[TemporalData[Automatic, {CompressedData[" 1:eJxdkz1MAkEQhU9La2qNndbWZEpsob7KRFu11RZqGhotbKCxucSEAhLjRNAo Ro2ISCQmclhia+/tzrwxt5tcvszu/LydnVvf2a/sLkdRtJR91ew7LiSl9OiN wcPiyqR58MT13u9GXH/lLb9G3Hdmb8xrtUW5szq2c+edhQT2Hfs0xantI37P r3eL+8my1RZDPj1xa6A6bqxuxR2X7y0v/KHDeReS/zybsav4yG63lE6tDvxC G3qgT3ireS5Z3Eeq78P8UQdEHHR42Z1njvx6MUqec/OXe/aNqAs/2CHRJ2E7 JAkbajcozyqJzgvSvhp1H3F6j8QI3bCRD4Q+Ob+y9wOhT+MRx3m2TJ+84wOD Enem/cT8tjjPNkn/uuaHpX0m5An7L3WvEa8cGLe9kKEx79e1e+kckM6pUe+h /Z4Q6oXUeSOdP6PONem8Wh7Qtz/+0jyp2aC4fWueub7Xp1H+2znJe83oDzXD JD8= "], {{1880, 2011, 1}}, 1, {"Discrete", 1}, {"Discrete", 1}, 1, {}}]& ], Editable->False, SelectWithContents->True, Selectable->True]\);
In[2]:=
X
ListLinePlot[gmt, Filling -> -.5, AxesOrigin -> {1880, -.5}, ImageSize -> 300]
Out[2]=
Критерий
UnitRootTest
показывает присутствие линейного тренда.
In[3]:=
X
UnitRootTest[gmt, Automatic, {"TestDataTable", All}]
Out[3]=
Фиттинг модели
ARIMAProcess
с линейным трендом по данным.
In[4]:=
X
eproc = EstimatedProcess[gmt, ARIMAProcess[3, 1, 1]]
Out[4]=
Построение возможных сценариев на последующие 20 лет с помощью модели ARIMA.
In[5]:=
X
future = RandomFunction[eproc, {2012, 2031}];