沖ドキ　設定１でスルー回数別に天国に上がれるまでにスルーする回数の確率を算出しました。

沖ドキで通常B狙いでよくある戦略は天国スルー狙いですよね。

揚げ足を取りますが、大事なのはモードが通常Bであるということよりも、次回当選した時に天国に上がれるかどうかです。前々回の記事ではモード移行のシミュレーションをしましたが、5回連続通常Aからの天国上がりということもあるのです。結局内部のモードなんか見れないので、確率的に次回天国に上がれるかどうかがポイントです。

そこで今回はスルー回数別にどのくらい天国スルーすれば天国に上がれるか、その確率をシミュレーションで算出しました。コードは以下の通りです。ただしスイカ、確定役以上でモード移行する場合は除いています。設定は1です。

#天国nスルー時にm回以内で天国に上がれる確率
p <- function(n,m){
AA <- 0.6406
AB <- 0.25
AT <- 0.1016
AD <- 0.0078
BB <- 0.4922
BT <- 0.4219
BD <- 0.0859
TA <- 0.1328
TB <- 0.0391
TH <- 0.0781
TT <- 0.7422
TD <- 0.0078
y <- TA + TB
TA <- TA/y
TB <- TB/y
f <- 0
for(h in 1:m){
#天国nスルー時に通常Aに滞在している確率
v <- TA * (AA)^n
#天国nスルー時に通常Bに滞在している確率
w <- 1 - v
a <- v * (AA)^(h - 1) * (AT + AD)
b <- 0
if (h > 1){
for(k in 0:(h - 2)){
b <- b + v * (AA)^k * (AB)^(h - 1 - k) * (BT + BD)
}
}
c <- w * (BB)^(h - 1) * (BT + BD)
f <- f + a + b + c
}
print(f)
}