Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Цепи Маркова и теория массового обслуживания
Распределение времени достижения искомого состояния
Нахождение распределения вероятностей, кумулятивной функции распределения, среднего значения и дисперсии числа переходов, необходимого для перехода от состояния 1 к состоянию 3.
In[1]:=
X
\[ScriptCapitalP] = DiscreteMarkovProcess[1, ({ {0, 1/2, 1/2}, {1/2, 0, 1/2}, {1/2, 1/2, 0} })];
In[2]:=
X
\[ScriptCapitalD] = FirstPassageTimeDistribution[\[ScriptCapitalP], 3];
Распределение вероятностей.
In[3]:=
X
PDF[\[ScriptCapitalD], k]
Out[3]=
In[4]:=
X
PDF[\[ScriptCapitalD], k]; DiscretePlot[%, {k, 1, 5}, ExtentSize -> 1/2]
Out[4]=
Кумулятивная функция распределения.
In[5]:=
X
CDF[\[ScriptCapitalD], k]
Out[5]=
In[6]:=
X
CDF[\[ScriptCapitalD], k]; DiscretePlot[%, {k, 0, 5}, ExtentSize -> Right]
Out[6]=
Среднее значение и дисперсия.
In[7]:=
X
Mean[\[ScriptCapitalD]]
Out[7]=
In[8]:=
X
Variance[\[ScriptCapitalD]]
Out[8]=