ジャグラーの出玉推移をシミュレーション
今回はマイジャグラー４の設定１と設定６のそれぞれの場合で5000回転させたときの出玉推移のシミュレーション結果をグラフにしたいと思います。
ボーナス確率と子役確率は
https://1geki.jp/700/myj-1.php
を参照します。
プログラミング言語はRを使用します。
コードは以下の通りです。
p <- function(n){
x <- numeric(0)
y <- numeric(0)
a <- 0
b <- 0
repeat {
a <- a + 1 #試行回数
b <- b - 3 #メダル枚数
z <- runif(1)
if (z <= big) b <- b + 312
if *1 b <- b + 104
if *2 b <- b + 7
if *3 b <- b + 2
if *4 b <- b + 3
if *5 b <- b + 15
if *6 b <- b + 10
if *7 b <- b + 2
if *8 b <- b + 2
x[a] <- a
y[a] <- b
if (a > n) break
}
plot(x,y,type = "l")
}
#設定１
big <- 1/287.4
reg <- 1/431.2
grape <- 1/6.35
cherry <- 1/36.03
replay <- 1/7.30
piero <- 1/1024
bell <- 1/1024
centercherry1 <- 1/6553.60
centercherry2 <- 1/6553.60
#設定６
big <- 1/240.9
reg <- 1/240.9
grape <- 1/6.07
cherry <- 1/35.6
replay <- 1/7.30
piero <- 1/1024
bell <- 1/1024
centercherry1 <- 1/6553.60
centercherry2 <- 1/6553.60
コードは以上となります。
最初に設定１で5000回転させた場合のグラフは以下です。
運よくプラス領域で推移してますね。何回もシミュレーションすると調子が悪いときはマイナス5000枚まで一直線です。
次は設定６でシミュレーションしてみます。
安定してプラスですね。何回もシミュレーションするとほとんどが上記と似たようなグラフになりますが、運が悪いときは以下のようになります。
ちなみに設定１でも運がいいと以下のようになります。
おそらくホールでは出てる数少ない台はおそらく低設定でたまたま出てる台でしょうね。
そこらへんの話はおそらく他の人のほうが詳しいでしょう。私はホール関係者でもありませんし。
このブログの目的はあくまでも公式に出ている情報から出玉推移や期待値をシミュレーションするコードなどを載せることでブログを見ている人に勝てる戦略を検証する道具やヒントを与えることです。
今回は以上です。
*1:big < z) && (z <= big + reg
*2:big + reg < z) && (z <= big + reg + grape
*3:big + reg + grape < z) && (z <= big + reg + grape + cherry
*4:big + reg + grape + cherry < z) && (z <= big + reg + grape + cherry + replay
*5:big + reg + grape + cherry + replay < z) && (z <= big + reg + grape + cherry + replay + piero
*6:big + reg + grape + cherry + replay + piero < z) && (z <= big + reg + grape + cherry + replay + piero + bell
*7:big + reg + grape + cherry + replay + piero + bell < z) && (z <= big + reg + grape + cherry + replay + piero + bell + centercherry1
*8:big + reg + grape + cherry + replay + piero + bell + centercherry1 < z) && (z <= big + reg + grape + cherry + replay + piero + bell + centercherry1 + centercherry2
