設定１沖ドキ モード別の期待値をシミュレーションで算出しました。

よく解析サイトではモードBならどこから打っても期待値はプラスと書いてありますが、それは本当でしょうか？

それを確認するためにモードB確定時でのシミュレーションを行いました。

コードは以下の通りです。

www.dropbox.com

１００万回回したときのシミュレーション結果が以下の画像です。

設定１でモードBのみを打った場合の出玉推移

シミュレーション結果では7分で１００回転回すと仮定すると、時給約１８７枚でした。１枚２０円だと３７４０円です。なかなかおいしいです。１００、２００ゲーム目くらいから打つと期待値はさらに上がります。モードBならどこから打ってもプラスなのは事実でした。ちなみにあくまでシミュレーションなので、シミュレーションするごとに時給の数値は異なりますが、１０回以上シミュレーションしても右肩上がりのグラフであることは変わりないので期待値がプラスであることは同じです。

ちなみにモードAを打ってしまったら、出玉推移はどうなるかもシミュレーションしました。ポイントは期待値がマイナスからプラスに転換するゲーム数です。

モードA確定で800ゲームから打ちはじめ、100万回転させたときの出玉推移

こちらは850ゲームから打ち始めました。

期待値がプラスに転じるのは800ゲームから850ゲームの間でかなり深いです。天国スルー直後で200ゲーム超えてる台はおよそ75パーセントの確率でモードA滞在なので、打つとしても650ゲームは欲しいところです。

今回は以上です。

沖ドキ 設定１で1万回回したときの出玉推移をシミュレーション

今回は沖ドキの出玉推移をシミュレーションして、モード移行は実際にはどんな感じで推移しているのか見ていきたいと思います。あと今回は長いので、ほかの設定での出玉推移とか期待値がプラスになる打ち方とかは次回以降の記事で書きたいと思います。

今回はコードが長いので、dropboxのリンクを貼るので、興味のある方は以下のリンクから見てください。

www.dropbox.com

結果は以下の通りになりました。

設定１で１万回回したときの各当選ゲーム数とその契機、（）内は当選時のモードを表してます。

最初は通常Aモードで１８２ゲームでBB即告知でBBに当選、２回目は通常Bモードで１３８ゲームで角チェリー告知でBB当選、３回目は通常Bモードで７２８ゲームでBB即告知でBBに当選といった流れになっています。（）内のアルファベットはAは通常A、Bは通常B、Tは天国モード、Dはドキドキモード、Hは引き戻しモード、Vは保障モード、ここには出てきてませんが、Sはスーパードキドキモードで、Cはチャンスモードを表してます。ちなみにリセット後からコードを書いているので、１回目は33.2％の確率でチャンスモードです。

出玉推移のグラフは以下の通りです。

1万回回したときの出玉推移

沖ドキの魅力は天国に入ってしまえば1000枚くらいの出玉が期待できることですよね。実際にシミュレーションしていてもそうなってますし、ゴッドやバジリスクでも1000枚出すのは大変ですからね。シミュレーション結果を見ていて思うのは、結局内部のモードなんかわからないということで例えば4回目は4ゲーム目でBBに当選していますが、モードは天国ではなくBモード、実際なら多くの人が天国当選と勘違いするでしょう。

あとBモード確定でも油断してはいけなくて６回連続Bというところもありますね。設定１なら大体半分の確率でまたBなのですが、実際にシミュレーションすると、イメージとは裏腹にかなり偏ります。

1万回回したときのグラフを以下に補足でのせます。

沖ドキは天国入ってからは奇数設定なら共通で７５％で継続するので、出玉推移のグラフで設定判別するのは難しいです。設定判別できるなら初当たりの軽さですが、最初に載せた設定１のデータでも1万回回して500以上ハマっているのは2回しかないので軽いといえば軽いですよね。当日での判別は高設定でもよほどいいほうに偏ってないと難しいので、やはり立ち回りはスルー狙いに限るかなと思います。

ではどのように立ち回れば期待値がプラスになるか？それは次回以降に書きます。

今回は以上です。

沖ドキ 設定１で３３ゲーム目から引き戻しモード滞在率をシミュレーションで算出しました。

前回の記事で触れた通り、今回は設定１で引き戻しモードに滞在する確率を調べます。

いつもはコードと結果だけ載せるのですが、それだと勉強にならないので、今回は確率を算出するうえで使っている数学的な道具を下にのせます。

算出に当たってベイズの定理を使用します

確率を算出するうえで注意しなければならないのは上記のように各モードに滞在しているときにボーナスに当選する確率にモード滞在率を掛けなければいけないことです。

３３ゲームを抜けると、モードは通常Aか通常Bか引き戻しのいずれかなので、

1geki.jp

上のサイトによると天国抜けした直後に通常A、通常B、引き戻し移行する確率はそれぞれ13.28%,3.91%,7.81%なので、３３ゲーム目以降に各モードに滞在している確率は以下の画像のように算出します。

各モードに滞在している確率

以上の結果を使って３３ゲーム目以降から引き戻しモードに滞在している確率をシミュレーションで算出します。コードは以下の通りです。

rRB <- function(n){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー

TA <- 0.1328

TB <- 0.0391

TH <- 0.0781

p <- TH/(TA + TB + TH)

q <- (TA + TB)/(TA + TB + TH)
for(k in 2:n){
g <- 0.0458 #スイカ告知(1)
h <- 0.0229 #チェリー告知(1)
i <- 0.0018 #RB告知(1)
j <- 0.0024 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
m <- b * (1 - h)
l <- c * (1 - g)
z <- (x + m + l)^(k - 1)*y + (x + m + l)^(k - 2)*(y + c * g)
g <- 0.0183 #スイカ次告知(1)
h <- 0.0092 #チェリー次告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
m <- b * (1 - h)
l <- c * (1 - 2 * g)
w <- (x + m + l)^(k - 1)*y + (x + m + l)^(k - 2)*(y + c * g)
cat(z*p/(z*p+w*q),"\n")
}
}

rBB <- function(n){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー

TA <- 0.1328

TB <- 0.0391

TH <- 0.0781

p <- TH/(TA + TB + TH)

q <- (TA + TB)/(TA + TB + TH)
for(k in 2:n){
g <- 0.0458 #スイカ告知(1)
h <- 0.0229 #チェリー告知(1)
i <- 0.0018 #RB告知(1)
j <- 0.0024 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*j
v <- b * h
s <- c * g
m <- b * (1 - h)
l <- c * (1 - 2 * g)
z <- (x + m + l)^(k - 1)*y + (x + m + l)^(k - 2)*(y + v + s)
g <- 0.0183 #スイカ告知(1)
h <- 0.0092 #チェリー告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
v <- b * h
s <- c * g
m <- b * (1 - h)
l<- c * (1 - g)
w <- (x + m + l)^(k - 1)*y + (x + m + l)^(k - 2)*(y + v + s)
cat(z*p/(z*p+w*q),"\n")
}
}

コードは以上です。結果は以下の通りです。

３３ゲーム目から７０ゲーム目までに当選したときに引き戻しに滞在している確率

たとえ早い当たりであっても確率は意外と大して変わりません。

ということは 次回天国に上がれる確率を考えるには早い当たりでも通常モードで当選したと考えて確率を考えるべきでしょう。

今回は以上です。

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

沖ドキで通常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)
}

コードは以上です。結果は以下の画像の通りです。

1列目は打ち始めのスルー回数、1行目は天国に上がるまでにスルーする回数

期待値を取るのがこのブログの目的であり、深いゲーム数から打ち始めるのが前提なので引き戻しモードから打ち始める場合は除外しています。

例えば天国抜けた直後（0スルー）に1発で天国に上がれる確率は20.00192%、天国３スルーから打ちはじめ2回目で天国に上がれる確率は66.60843%です。

天国抜けた直後だと、３回目（２スルー）で初めて確率が50％を超えますので、いかに天国抜けで打つのが厳しいかわかります。

逆に1スルーさえすれば1発で天国に上がれる確率が10％以上アップするので、どんなに美味しい台が拾えなかったとしても最低でも1スルーから打ち始めたいところです。

上記とは別に天国から引き戻しを挟んで通常に移行した場合のスルー回数別の天国スルー確率は以下になります。

天国抜けて引き戻しを挟んだ場合の確率一覧

引き戻しからのAに対するB移行比率は天国から通常に移行したときより優遇されているので、その分、天国抜けよりは引き戻しを挟んだほうが若干天国に上がれる確率が上がります。

それでも天国抜けた直後だと、確率が50％を超えるのは３回目（２スルー）からなので、1スルーは確保しなければなりません。

最後に気になるのは天国抜けた直後の早いゲーム数での当選での通常に対する引き戻し滞在確率ですよね。それも載せたいところですが、次回の記事で書きたいと思います。

今回は以上です。

沖ドキ 32ゲーム以内の当選は天国即抜けとみるべきか通常モードでの当選とみるべきか

RBの3ゲームを天国単発とみるべきか通常モードでの当選とみるべきか

上の画像はデータロボセブン様から引用した某ホールの沖ドキの履歴です。

ここで問題になってくるのが３ゲームで当選したRBで、これを天国単発とみるべきか通常モードでの当選とみるべきかで、天国スルー回数が天国単発なら１回か通常当選なら４回で大きく違ってきます。

そこで今回は設定１で32ゲーム以内にボーナス解除した場合に天国と通常それぞれに滞在している確率を求めました。

確率を求めるときに使用したコードは以下の通りです。

#1ゲーム目にビッグボーナスに当選した時に天国に滞在する確率

rBB1 <- function(){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
g <- 0.1250 #スイカ告知(6)
h <- 0.0625 #チェリー告知(6)
i <- 0.0183 #RB告知(6)
j <- 0.0427 #BB告知(6)
z <- (1 - b - c - d - e - f)*j
g <- 0.0183 #スイカ告知(1)
h <- 0.0092 #チェリー告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
w <- (1 - b - c - d - e - f)*j
cat(z/(z+w),"\n")
}

#1ゲーム目にレギュラーボーナスに当選した時に天国に滞在する確率

rRB1 <- function(){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
g <- 0.1250 #スイカ告知
h <- 0.0625 #チェリー告知
i <- 0.0183 #RB告知
j <- 0.0427 #BB告知
z <- (1 - b - c - d - e - f)*i
g <- 0.0183 #スイカ告知(1)
h <- 0.0092 #チェリー告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
w <- (1 - b - c - d - e - f)*i
cat(z/(z+w),"\n")
}

#2ゲーム目から31ゲーム目にビッグボーナスに当選した時に天国に滞在する確率

rBB <- function(){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
for(k in 2:31){
g <- 0.1250 #スイカ告知(6)
h <- 0.0625 #チェリー告知(6)
i <- 0.0183 #RB告知(6)
j <- 0.0427 #BB告知(6)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*j
v <- b * h
s <- c * g
m <- b * (1 - h)
n <- c * (1 - 2 * g)
z <- (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + v + s)
g <- 0.0183 #スイカ告知(1)
h <- 0.0092 #チェリー告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
v <- b * h
s <- c * g
m <- b * (1 - h)
n <- c * (1 - g)
w <- (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + v + s)
cat(z/(z+w),"\n")
}
}

#2ゲーム目から31ゲーム目にレギュラーボーナスに当選した時に天国に滞在する確率

rRB <- function(n){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
for(k in 2:n){
g <- 0.1250 #スイカ次告知
h <- 0.0625 #チェリー次告知
i <- 0.0183 #RB告知
j <- 0.0427 #BB告知
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)#ハズレorリプレイ
y <- (1 - b - c - d - e - f)*i
m <- b * (1 - h)
n <- c * (1 - 2 * g)
z <- (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + c * g)
g <- 0.0183 #スイカ次告知(1)
h <- 0.0092 #チェリー次告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
m <- b * (1 - h)
n <- c * (1 - 2 * g)
w <- (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + c * g)
cat(z/(z+w),"\n")
}
}

#32ゲーム目にビッグボーナスに当選した時に天国に滞在する確率

rBB32 <- function(){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
g <- 0.1250 #スイカ告知
h <- 0.0625 #チェリー告知
i <- 0.0183 #RB告知
j <- 0.0427 #BB告知
z <- (1 - b - c - d - e - f)*j
for(k in 2:31){
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*j
v <- b * h
s <- c * g
m <- b * (1 - h)
n <- c * (1 - 2 * g)
cat((x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + v + s),"\n")
z <- z + (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + c * g)
}
z <- 1 - z
cat(z,"\n")
g <- 0.0183 #スイカ次告知(1)
h <- 0.0092 #チェリー次告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
w <- (x + m + n)^31*y + (x + m + n)^30 * (y + v + s)
cat(z/(z+w),"\n")
}

#32ゲーム目にレギュラーボーナスに当選した時に天国に滞在する確率

rRB32 <- function(){
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
g <- 0.1250 #スイカ告知
h <- 0.0625 #チェリー告知
i <- 0.0183 #RB告知
j <- 0.0427 #BB告知
z <- (1 - b - c - d - e - f)*i
for(k in 2:31){
x <- (1 - b - c - d - e - f)*(1 - 2*i-2*j)
y <- (1 - b - c - d - e - f)*i
m <- b * (1 - h)
n <- c * (1 - 2 * g)
cat((x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + c * g),"\n")
z <- z + (x + m + n)^(k - 1)*y + (x + m + n)^(k - 2)*(y + c * g)
}
z <- 1 - z
cat(z,"\n")
g <- 0.0183 #スイカ次告知(1)
h <- 0.0092 #チェリー次告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
w <- (x + m + n)^31*y + (x + m + n)^30 * (y + c * g)
cat(z/(z+w),"\n")
}

コードは以上です。結果は以下の通りです。ただし、確定役、確定チェリー、中段チェリーでボーナス解除する確率は除いています。

設定１での32ゲーム以内に当選した時の通常と比較した各ゲーム数での天国滞在確率

天国滞在時と通常時とではビッグとレギュラーが当選する確率の比率がそれぞれ異なるため、上の画像のように分けています。

注目してもらいたいのはRBの27ゲームから31ゲームまでの部分とRB、BB両方の32ゲーム目での天国で当選した確率です。

27ゲーム目から31ゲーム目までにRBで当選した場合は天国ではなく通常モードで当選した確率のほうが高いのです。これを知っておくと例えば以下の画像の履歴はチャンスに見えてくるのではないでしょうか？

29ゲームのRBが通常当選なら5スルー

もう一つ、32ゲーム目ジャストでの当選も天国滞在での天井当選が濃厚ということも注目していただきたいです。こちらは逆に天国抜けと判断でき一つの区切りとできるので、間違えて通常からの天国スルーと判断しないように注意してください。

長くなりましたが、今回は以上です。

沖ドキ モード別初当たり当選ゲーム数をシミュレーション

沖ドキはコイン持ちが悪いので、皆さんが遊戯してるときは何ゲーム目で当選するかが気になるところだと思います。

そこで今回はモード別に設定１では何ゲーム目に当選するのかシミュレーションします。前回の記事では通常Bの見つけ方について次からは書くということを言ったのですが、それを考えるにあたって今回のシミュレーションは必要になりますので、しっかり一歩一歩段階を踏んで沖ドキの打ち方、期待値の取り方を研究していきたいと思います。

#子役確率
a <- 1/5.05 #リプレイ
b <- 1/32.13　#角チェリー
c <- 1/128.00　#スイカ
d <- 1/8192.00　#確定役
e <- 1/10922.67　#確定チェリー
f <- 1/32768.00　#中段チェリー
#通常AB
g <- 0.0183 #スイカ告知(1)
h <- 0.0092 #チェリー告知(1)
i <- 0.0007 #RB告知(1)
j <- 0.0009 #BB告知(1)
k <- 1000 #天井

#沖ドキ初当たり当選ゲーム数
l <- function(n){
q <- 0
repeat{
q <- q + 1
p <- 0
repeat{
p <- p + 1
z <- runif(1)
if *1 cat(p,"-RB", "\n")
if *2 cat(p,"-BB", "\n")
if (p >= k) break
if (z <= f) cat(p + 1,"-中段チェリー", "\n")
if *3 cat(p + 1,"-確定チェリー", "\n")
if *4 cat(p + 1,"-確定役", "\n")
if (z <= d + e + f) break
w <- runif(1)
if *5 cat(p + 1,"-スイカRB告知", "\n")
if *6 break
if *7 cat(p + 1,"-角チェリーRB告知", "\n")
if *8 break
if *9 cat(p ,"-RB即告知", "\n")
if *10 break
if *11 cat(p ,"-BB即告知", "\n")
if *12 break
if *13 && (w > (1 - (i + j)))) cat(p + 1,"-BB次告知", "\n")
if *14 && (w > (1 - (i + j)))) break
}
if (q >= n) break
}
}

通常以外のモードでシミュレーションする場合はスイカ告知確率、角チェリー告知確率とRB告知確率、BB告知確率と天井ゲーム数が通常A,Bモードとはそれぞれ違うので、g,h,i,j,kの値を以下のように入れてください。

#引き戻し
g <- 0.0648 #スイカ告知(6)
h <- 0.0420 #チェリー告知(6)
i <- 0.0026 #RB告知(6)
j <- 0.0027 #BB告知(6)
k <- 200 #天井
#保障/天国/ドキドキ/超ドキ
g <- 0.1631 #スイカ告知(6)
h <- 0.0816 #チェリー告知(6)
i <- 0.0183 #RB告知(6)
j <- 0.0427 #BB告知(6)
k <- 32 #天井
#チャンス
g <- 0.0778 #スイカ告知(6)
h <- 0.0504 #チェリー告知(6)
i <- 0.0031 #RB告知(6)
j <- 0.0033 #BB告知(6)
k <- 200 #天井

各モードで20回当選した時の各当選ゲーム数とその契機は以下の画像のようになりました。

設定１の通常Aと通常Bモードで20回当選した時の各当選ゲーム数とその契機

こちらは設定１の引き戻しモード

設定1の保証、天国、ドキドキ、超ドキモード

設定１のチャンスモード

前回の記事でも言いましたが、確率というのは実践では大抵偏ります。確率1/100でも3回目に当たったり、500回やっても当たらなかったりするのがリアルであって、50回目に当たって、120回目に当たって、次は90回目に当たるなんて綺麗なものではないというのがシミュレーションしてみると実感できます。ホールで履歴見ても前回はすぐ当たったのに、次は天井までハマったというのは相当数の方が経験してるかと思います。
今回は以上となります。この記事を見てくださった皆さんもご自分でシミュレーションしてみてください。

*1:p >= k) && (z <= 0.4

*2:p >= k) && (z > 0.4

*3:z > f) && (z <= e + f

*4:z > e + f) && (z <= d + e + f

*5:z > d + e + f) && (z <= c + d + e + f) && (w < g

*6:z > d + e + f) && (z <= c + d + e + f) && (w < g

*7:z > d + e + f) && (z <= c + d + e + f) && (w > (1 - g))) cat(p + 1,"-スイカBB告知", "\n")
if ((z > d + e + f) && (z <= c + d + e + f) && (w > (1 - g))) break
if ((z > c + d + e + f) && (z <= b + c + d + e + f) && (w < h

*8:z > c + d + e + f) && (z <= b + c + d + e + f) && (w < h

*9:z > c + d + e + f) && (z <= b + c + d + e + f) && (w > (1 - h))) cat(p + 1,"-角チェリーBB告知", "\n")
if ((z > c + d + e + f) && (z <= b + c + d + e + f) && (w > (1 - h))) break
if ((z > b + c + d + e + f) && (w < i

*10:z > b + c + d + e + f) && (w < i

*11:z > b + c + d + e + f) && (w > (1- i))) cat(p + 1,"-RB次告知", "\n")
if ((z > b + c + d + e + f) && (w > (1- i))) break
if ((z > b + c + d + e + f) && (w > i) && (w <= i + j

*12:z > b + c + d + e + f) && (w > i) && (w <= i + j

*13:z > b + c + d + e + f) && (w <= (1- i

*14:z > b + c + d + e + f) && (w <= (1- i

沖ドキ 設定１でモード移行の推移をシミュレーション

沖ドキの設定１でモード移行の推移をシミュレーションするコードをお見せします。

ご自分で試されたい方は以下のコードをRにコピーペーストしてください。

設定１の場合のコードは以下の通りです。言語はRです。

#設定１
#通常A(1)
AA <- 0.6406
AB <- 0.25
AT <- 0.1016
AD <- 0.0078

#通常B(2)
BB <- 0.4922
BT <- 0.4219
BD <- 0.0859

#天国モード(3)
TA <- 0.1328
TB <- 0.0391
TH <- 0.0781
TT <- 0.7422
TD <- 0.0078

#ドキドキモード(4)
DV <- 0.1797
DD <- 0.8164
DS <- 0.0039

#引き戻し(5)
HA <- 0.5000
HB <- 0.3359
HT <- 0.1563
HD <- 0.0078

#スーパードキドキモード(6)
SV <- 0.0937
SS <- 0.9063

#保障モード(7)
VA <- 0.6523
VB <- 0.1016
VH <- 0.2031
VT <- 0.0391
VD <- 0.0039

i <- function(n){
e <- 0
m <- 1
cat("A")
repeat{
if(m == 1) z <- c(rep(1, AA*10000), rep(2, AB*10000), rep(3, AT*10000),rep(4,AD*10000))
if(m == 1) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 1) cat("A")
if (m == 2) cat("B")
if (m == 2) break
if (m == 3) cat("T")
if (m == 3) break
if (m == 4) cat("D")
if (m == 4) break
}
if (m == 2) z <- c(rep(2, BB*10000), rep(3, BT*10000),rep(4,BD*10000))
if (m == 2) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 2) cat("B")
if (m == 3) cat("T")
if (m == 3) break
if (m == 4) cat("D")
if (m == 4) break
}
if (m == 3) z <- c(rep(1, TA*10000),rep(2, TB*10000), rep(3, TT*10000),rep(4, TD*10000),rep(5, TH*10000))
if (m == 3) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 1) cat("A")
if (m == 1) break
if (m == 2) cat("B")
if (m == 2) break
if (m == 3) cat("T")
if (m == 4) cat("D")
if (m == 4) break
if (m == 5) cat("H")
if (m == 5) break
}
if (m == 4) z <- c(rep(4, DD*10000), rep(6, DS*10000),rep(7, DV*10000))
if (m == 4) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 4) cat("D")
if (m == 6) cat("S")
if (m == 6) break
if (m == 7) cat("V")
if (m == 7) break
}
if (m == 5) z <- c(rep(1, HA*10000), rep(2, HB*10000),rep(3, HT*10000),rep(4, HD*10000))
if (m == 5) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 1) cat("A")
if (m == 1) break
if (m == 2) cat("B")
if (m == 2) break
if (m == 3) cat("T")
if (m == 3) break
if (m == 4) cat("D")
if (m == 4) break
}
if (m == 6) z <- c(rep(6,SS*10000), rep(7, SV*10000))
if (m == 6) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 6) cat("S")
if (m == 7) cat("V")
if (m == 7) break
}

if (m == 7) z <- c(rep(1, VA*10000), rep(2, VB*10000),rep(3, VT*10000),rep(4, VD*10000),rep(5, VH*10000))
if (m == 7) repeat{
e <- e + 1
if (e > n) cat("\n")
if (e > n) break
m <- z[sample(1:10000,1)]
if (m == 1) cat("A")
if (m == 1) break
if (m == 2) cat("B")
if (m == 2) break
if (m == 3) cat("T")
if (m == 3) break
if (m == 4) cat("D")
if (m == 4) break
if (m == 5) cat("H")
if (m == 5) break
}
if (e > n) break
}
}

コードは以上です。ちなみにチェリーとスイカから上がった場合の移行率は含まれていないので、実際はもう少し甘目です。

設定１で７０回モード移行した場合の推移

上の画像ではRで７０回モード移行した場合の推移で、Aというのは通常A、Bは通常B、Tは天国、Dはドキドキ、Hは引き戻し、Vは保証モードをさしています。上の画像では出てきませんでしたが、実際にRでシミュレーションした時にSが出てきたら、Sはスーパードキドキです。

上の画像は、最初は通常Aで始まり、次は一発で天国に上がり、即落ちしてまた通常Aが２回続いた後に天国７連して通常Aに転落、というような流れになっています。

案外通常Aから天国に上がるケースも少なくありませんが、５回、６回はまってるところもありますよね。

シミュレーションしてみると、AからAに移行する確率は約64％だから2回3回ハマれば上がると思いきや、実際は1発で上がったり、4回も5回もはまっていて実データは理論値よりもかなり汚くて偏っていることが見て取れます。Bから天国に上がるのも同様で、こちらはAよりは偏ってませんが、それでも2回ハマっている（”BBB"となっている箇所）のもちらほらですね。

沖ドキではいかにAを打たずにBを打つのが大事ですが、次回以降の記事ではではどうやって実際にはBを見つけるのか書いていきたいと思います。

Bでも8回ハマります。怖い！