>>952
このスレのド底辺シリツ医大卒の裏口馬鹿に検算できる能力があるはずもないのでシミュレーション結果と比較して検算してみる。

uneven.move2 <- function(N=5,prob.P=c(1,0,1),prob.Q=c(1,0,1)){
perm.P=sample(c(1,0,5),N,prob=prob.P,replace=TRUE)
move.P=cumsum(perm.P)
p0=0
P=(p0+move.P)%%6
perm.Q=sample(c(1,0,5),N,prob=prob.Q,replace=TRUE)
move.Q=cumsum(perm.Q)
q0=2
Q=(q0+move.Q)%%6
sum(P==Q) >=2
}

k=1e3
re=numeric()
for(i in 1:100){
re[i]=mean(replicate(k,uneven.move2()))
}

> mean(re)
[1] 0.47307

> 121/256
[1] 0.4726562

ほぼ一致したので計算は合っているんだろう。