Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Цепи Маркова и теория массового обслуживания
Визуализация случайной траектории конечных процессов Маркова
Визуализация случайной траектории цепи Маркова с дискретным временем.
In[1]:=
X
\[ScriptCapitalP] = DiscreteMarkovProcess[1, ({ {0, 1/2, 1/2}, {1/2, 0, 1/2}, {1/2, 1/2, 0} })];
In[2]:=
X
data = RandomFunction[\[ScriptCapitalP], {0, 50}];
In[3]:=
X
ListPlot[data, Filling -> Axis, Ticks -> {Automatic, {1, 2, 3}}, PlotRange -> All]
Out[3]=
Визуализация случайной траектории цепи Маркова с непрерывным временем.
In[4]:=
X
\[ScriptCapitalP] = ContinuousMarkovProcess[1, ({ {0, 1/2, 1/2}, {1/2, 0, 1/2}, {1/2, 1/2, 0} }), {2, 7, 3}];
In[5]:=
X
data = RandomFunction[\[ScriptCapitalP], {0, 10}];
In[6]:=
X
ListLinePlot[data, Filling -> Axis, Ticks -> {Automatic, {1, 2, 3}}, PlotRange -> All, InterpolationOrder -> 0]
Out[6]=