Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Временные ряды и стохастические дифференциальные уравнения
Решения СДУ, моделирующего линейный рост в форме Ито и в форме Стратоновича
Зададим процессы
ItoProcess
и
StratonovichProcess
одинаковым стохастическим дифференциальным уравнением
.
In[1]:=
X
ipr = ItoProcess[\[DifferentialD]x[t] == x[t] (r \[DifferentialD]t + \[Sigma] \[DifferentialD]w[t]), x[t], {x, x0}, t, w \[Distributed] WienerProcess[]]
Out[1]=
In[2]:=
X
spr = StratonovichProcess[\[DifferentialD]x[t] == x[t] (r \[DifferentialD]t + \[Sigma] \[DifferentialD]w[t]), x[t], {x, x0}, t, w \[Distributed] WienerProcess[]]
Out[2]=
Найдём функции среднего и дисперсии для процесса в форме Ито.
In[3]:=
X
{Mean[ipr[t]], Variance[ipr[t]]} // Simplify
Out[3]=
Функции среднего и дисперсии для процесса в форме Стратоновича имеют другой вид.
In[4]:=
X
{Mean[spr[t]], Variance[spr[t]]} // Simplify
Out[4]=
При условии
, решение СДУ в форме Ито стремится к нулю почти наверняка.
In[5]:=
X
Assuming[0 < r < \[Sigma]^2/2 && \[Sigma] > 0 && x0 > 0, Limit[Probability[ 0 < \[FormalX][t] <= 1/t, \[FormalX] \[Distributed] ipr], t -> \[Infinity]]]
Out[5]=
Подтверждение сходимости к нулю на случайных траекториях процесса.
In[6]:=
X
ListLogPlot[ RandomFunction[ ipr /. {r -> 1, \[Sigma] -> 2, x0 -> 1}, {0, 20., 0.002}, 6, Method -> "KPS"], PlotRange -> All, Joined -> True, ImageSize -> 300]
Out[6]=
При условии
, решение СДУ в форме Стратоновича в то же время почти наверняка стремится к бесконечности.
In[7]:=
X
Assuming[0 < r < \[Sigma]^2/2 && \[Sigma] > 0 && x0 > 0, Limit[Probability[\[FormalX][t] > t, \[FormalX] \[Distributed] spr], t -> \[Infinity]]]
Out[7]=
Подтверждение расходимости на случайных траекториях процесса.
In[8]:=
X
ListLogPlot[ RandomFunction[ spr /. {r -> 1, \[Sigma] -> 2, x0 -> 1}, {0, 20., 0.002}, 6, Method -> "KPS"], PlotRange -> All, Joined -> True, ImageSize -> 300]
Out[8]=