Расчёт вероятности поглощения в состоянии
Поглощающее(существенное) состояние цепи Маркова - состояние с вероятностью перехода в самого себя . Составим матрицу G, элементы которой равны вероятности того, что, выйдя из i, попадём в поглощающее состояние j.
| Теорема: | 
| Доказательство: | 
| Пусть этот переход будет осуществлён за r шагов: i → → → ... → → j, где все являются несущественными. Тогда рассмотрим сумму , где Q - матрица переходов между несущественными состояниями, R - из несущественного в существенное.Матрица G определяется их суммированием по всем длинам пути из i в j: , т.к. , а фундаментальная матрица марковской цепи | 
Псевдокод
 - количество состояний Марковской цепи,  - количество переходов. Состояния и переходы пронумерованы от 0 до . Пусть входные данные хранятся в массиве  где -ая строка характеризует -ый переход таким образом:  - вероятность перехода из состояния  в состояние .
Создадим массив  типа Boolean, где -ое  обозначает что -ое состояние является поглощающим. Если состояние поглощающее то с вероятностью 1 оно переходит само в себя. Найдем такие состояния. Также посчитаем количество поглощающих состояний _.
 for i=0 to n-1
   if (input[i][0] == input[i][1] && input[i][2] == 1)
     absorbing[input[i][0]] = true;
     abs_num++;
Найдем число несущественных состояний _. Теперь нужно заполнить массивы Q (переходов между несущественными состояниями) и R (переходов из несущественных состояний в поглощающие). Для этого создадим сначала массив  где -ый элемент указывает под каким номером будет находиться -ое состояние среди существенных если оно существенное или несущественных в обратном случае, и заполним эти массивы.
 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. В результате   т.е. 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];
Найдем матрицу G = N * R
 for i = 0 to nonabs
     for j = 0 to absorbing
         G[i][j] = 0;
         for k = 0 to nonabs
             G[i][j] += N[i][k] * R[k][j];
Литература
- Википедия - Цепи Маркова
- Кемени Дж., Снелл Дж. "Конечные цепи Маркова".
