六面体の頂点をたどる（4）

前回求めた漸化式に順番に値を代入して確率を具体的に求めた。それを以前と同じようにはじめて全頂点をたどった確率に直してグラフにした。

回数が大きくなると、偶数回とその次の奇数回が同じ確率になる。また、2つ前の7/9の確率になるようである。

プログラムは、前回の表示部分を次のように変えただけである。

var N = 100;

var p = [ ];
// 初期化

p[1] = [ 1 ];

for(var s_next in q) {

    p[s_next] = [ 0 ];

}
for(var t = 1; t <= N; t++) {

    for(var s_next in p) {

        p[s_next][t] = 0;

    }

    

    for(var s_next in q) {

        var q_next = q[s_next];

        for(var s in q_next) {

            p[s_next][t] += p[s][t-1] * q_next[s] / 3;

        }

    }

    

    WScript.Echo("p<sub>255," + t + "</sub> = " + p[255][t]);

}