線形成長モデルの伊藤過程とStratonovich過程の解
ipr = ItoProcess[ⅆx[t] == x[t](r ⅆt + σ ⅆw[t]), x[t], {x, x0}, t, wWienerProcess[]]spr = StratonovichProcess[ⅆx[t] == x[t](r ⅆt + σ ⅆw[t]), x[t], {x, x0}, t, wWienerProcess[]]{Mean[ipr[t]], Variance[ipr[t]]}//Simplify{Mean[spr[t]], Variance[spr[t]]}//SimplifyAssuming[0 < r < σ^2 / 2 && σ > 0 && x0 > 0,
Limit[Probability[[t] ≤ 1 / t, ipr], t -> ∞]]ListLogPlot[RandomFunction[ipr /. {r -> 1, σ -> 2, x0 -> 1}, {0, 20., 0.002}, 6, Method -> "KPS"], PlotRange -> All, Joined -> True]Assuming[0 < r < σ^2 / 2 && σ > 0 && x0 > 0,
Limit[Probability[[t] > t, spr], t -> ∞]]ListLogPlot[RandomFunction[spr /. {r -> 1, σ -> 2, x0 -> 1}, {0, 20., 0.002}, 6, Method -> "KPS"], PlotRange -> All, Joined -> True]