Расчёт вероятности поглощения в состоянии — различия между версиями

Материал из Викиконспекты
Перейти к: навигация, поиск
(Псевдокод)
(Псевдокод)
Строка 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

Поглощающее(существенное) состояние цепи Маркова - состояние с вероятностью перехода в самого себя [math]p_{ii}=1[/math]. Составим матрицу G, элементы которой [math]g_{ij}[/math] равны вероятности того, что, выйдя из i, попадём в поглощающее состояние j.

Теорема:
[math] G = N \cdot R [/math]
Доказательство:
[math]\triangleright[/math]

Пусть этот переход будет осуществлён за r шагов: i → [math]i_{1}[/math][math]i_{2}[/math] → ... → [math]i_{r-1}[/math] → j, где все [math]i, i_{1}, ... i_{r-1}[/math] являются несущественными. Тогда рассмотрим сумму [math]\sum\limits_{\forall(i_{1} ... i_{r-1})} {p_{i, i_{1}} \cdot p_{i_{1}, i_{2}} \cdot ... \cdot p_{i_{r-1}, j}} = Q^{r-1} \cdot R[/math], где Q - матрица переходов между несущественными состояниями, R - из несущественного в существенное.

Матрица G определяется их суммированием по всем длинам пути из i в j: [math]G = \sum\limits_{r = 1}^{\infty}{Q^{r-1} \cdot R} = (I + Q + Q^{2} + Q^{3} + ...) \cdot R = NR[/math], т.к. [math](I + Q + Q^2 + ...) \cdot (I - Q) = I - Q + Q - Q^{2} + ... = I[/math], а фундаментальная матрица марковской цепи [math]N = (I - Q)^{-1}[/math]
[math]\triangleleft[/math]

Псевдокод

[math]n[/math] - количество состояний Марковской цепи, [math]m[/math] - количество переходов. Состояния и переходы пронумерованы от 0 до [math]n - 1[/math]. Пусть входные данные хранятся в массиве [math]input[/math] где [math]i[/math]-ая строка характеризует [math]i[/math]-ый переход таким образом: [math]input[i][2][/math] - вероятность перехода из состояния [math]input[i][0][/math] в состояние [math]input[i][1][/math]. Создадим массив [math]absorbing[/math] типа Boolean, где [math]i[/math]-ое [math]true[/math] обозначает что [math]i[/math]-ое состояние является поглощающим. Если состояние поглощающее то с вероятностью 1 оно переходит само в себя. Найдем такие состояния. Также посчитаем количество поглощающих состояний [math]abs[/math]_[math]num[/math].

 for i=0 to n-1
   if (input[i][0] == input[i][1] && input[i][2] == 1)
     absorbing[input[i][0]] = true;
     abs_num++;

Найдем число несущественных состояний [math]nonabs=n-abs[/math]_[math]num[/math]. Теперь нужно заполнить массивы Q (переходов между несущественными состояниями) и R (переходов из несущественных состояний в поглощающие). Для этого создадим сначала массив [math]position[/math] где [math]i[/math]-ый элемент указывает под каким номером будет находиться [math]i[/math]-ое состояние среди существенных если оно существенное или несущественных в обратном случае, и заполним эти массивы.

 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. В результате [math]N=E^{-1}[/math] т.е. 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];

Литература