Расчёт вероятности поглощения в состоянии — различия между версиями
(→Псевдокод) |
(→Псевдокод) |
||
Строка 42: | Строка 42: | ||
for j=0 to nonabs | for j=0 to nonabs | ||
E[i][j]-=Q[i][j]; | E[i][j]-=Q[i][j]; | ||
+ | </code> | ||
+ | Теперь приведем матрицу E к единичной методом Гаусса—Жордана, применяя те же преобразования к матрице N. В результате <tex>N=E^{-1}</tex> т.е. N - фундаментальная матрица Марковской цепи. | ||
+ | <code style = "display: inline-block;"> | ||
+ | for i = 0 to nonabs | ||
+ | if E[i][i] != 1 | ||
+ | mul = E[i][i]; | ||
+ | for j = 0 to nonabs | ||
+ | E[i][j] /= mul; | ||
+ | N[i][j] /= mul; | ||
+ | for row = 0 to nonabs | ||
+ | if i != row | ||
+ | mul = E[row][i]; | ||
+ | for j = 0 to nonabs | ||
+ | E[row][j] -= mul * E[i][j]; | ||
+ | N[row][j] -= mul * N[i][j]; | ||
</code> | </code> | ||
Версия 17:22, 5 января 2013
Поглощающее(существенное) состояние цепи Маркова - состояние с вероятностью перехода в самого себя
. Составим матрицу G, элементы которой равны вероятности того, что, выйдя из i, попадём в поглощающее состояние j.Теорема: |
Доказательство: |
Пусть этот переход будет осуществлён за r шагов: i → Матрица G определяется их суммированием по всем длинам пути из i в j: → → ... → → j, где все являются несущественными. Тогда рассмотрим сумму , где Q - матрица переходов между несущественными состояниями, R - из несущественного в существенное. , т.к. , а фундаментальная матрица марковской цепи |
Псевдокод
for i=0 to n-1 if (input[i][0] == input[i][1] && input[i][2] == 1) absorbing[input[i][0]] = true; abs_num++;
Найдем число несущественных состояний
count_q = 0; count_r = 0; for i = 0 to n - 1 if abs[i] position[i] = count_r; count_r++; else position[i] = count_q; count_q++; for i = 0 to m - 1 if absorbing[input[i][1]] if absabsorbing[input[i][0]] R[position[input[i][0]]][position[input[i][1]]] = input[i][2]; else Q[position[input[i][0]]][position[input[i][1]]] = input[i][2];
Найдем Матрицу E = I - Q и создадим единичную матрицу N.
for i=0 to nonabs N[i][i]=1;' E[i][i]=1; for j=0 to nonabs E[i][j]-=Q[i][j];
Теперь приведем матрицу E к единичной методом Гаусса—Жордана, применяя те же преобразования к матрице N. В результате
for i = 0 to nonabs if E[i][i] != 1 mul = E[i][i]; for j = 0 to nonabs E[i][j] /= mul; N[i][j] /= mul; for row = 0 to nonabs if i != row mul = E[row][i]; for j = 0 to nonabs E[row][j] -= mul * E[i][j]; N[row][j] -= mul * N[i][j];
Литература
- Википедия - Цепи Маркова
- Кемени Дж., Снелл Дж. "Конечные цепи Маркова".