ゆるセポネ

[0001 名無しさん＠お腹いっぱい。 2018/04/13(金) 23:48:59.88 ID:WC8df9qV0]

https://www.youtube.com/watch?v=hvDrVZT80r8

[0952 名無しさん＠お腹いっぱい。 2018/04/30(月) 18:12:51.99 ID:RcHDo3hI0]

当たらなければどうということはない

[0953 名無しさん＠お腹いっぱい。 2018/04/30(月) 20:00:57.85 ID:6qOJjwdA0]

昨日のsim野郎です
Excelマクロで作ったんだが、RT時は-0.22枚/Gじゃないと割が合わない。
どこか間違ってるかな？

Sub macro()
Randomize
Dim i As Long
Dim rt_gc As Long
Dim gc As Long
Dim coin As Single
Dim rd As Long
Dim GOD As Long
Dim BB As Long
Dim MB As Long
Const SIM_GC = 10000000 ' 試行G数
Const BASE = 30.4 ' 通常時ベース(設定1)
Const RT_ZOUGEN = -0.22 ' RT時の純増減枚数
Const GOD_k = 40 ' 65536 / 1638.4
Const BB_k = 309 ' 65536 / 212.09 (設定1)
Const MB_k = 307 ' 65536 / 213.47 (設定1)

For i = 1 To SIM_GC
gc = gc + 1
If rt_gc = 0 Then
coin = coin - 50# / BASE
Else
coin = coin + RT_ZOUGEN
rt_gc = rt_gc - 1
End If
rd = Int(Rnd() * 65536)
If rd < GOD_k Then
GOD = GOD + 1
rt_gc = 700
coin = coin + 203
gc = gc + 17
ElseIf rd < GOD_k + BB_k Then
BB = BB + 1
coin = coin + 155
gc = gc + 13
ElseIf rd < GOD_k + BB_k + MB_k Then
MB = MB + 1
coin = coin + 47
gc = gc + 4
End If
Next i
MsgBox Int(coin) & "枚"
MsgBox round((gc * 3 + coin) / (gc * 3) * 100, 2) & "%"
End Sub

[0954 名無しさん＠お腹いっぱい。 2018/04/30(月) 20:09:27.56 ID:Ww6YZ+gWa]

ワロタ

[0955 名無しさん＠お腹いっぱい。 2018/04/30(月) 20:50:57.52 ID:PhvGWUI70]

高貴すぎだろ

[0956 マジキチスマイル ◆lJuzVc8vX6 2018/04/30(月) 21:05:19.28 ID:j4T0xRKE0]

>>953
const使ってるくせに直値にしてるとこは何なんだよｗｗｗ
97.83パーになったけどRTはどういう仕様で加味させてんのかも言えよｗｗｗ

[0957 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:10:25.26 ID:6qOJjwdA0]

>>956
文法的に細かいことは気にするな。
https://chonborista.com/slot/universal-slot/57961/
の言ってる機械割97.8%とするためには、RTの純増減を-0.22にしないと
辻褄が合わんってことだ。

[0958 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:29:19.21 ID:JumyVVE70]

>>953
俺プログラム系出来るぜ凄い？のアピたまんねーwww

[0959 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:38:08.06 ID:cfvLuOO7r]

どうせならハーデスそのまんまの壮大な演出に派手な重低音でこのスペックにすりゃ良かったのに
パロディってのは中途半端に逃げちゃダメなんだよ、やるからには自分を殺すつもりでキッチリやらないと

[0960 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:39:07.38 ID:4ODrxu1Wp]

>>917
1/1000で8192と変わらんとか・・・
ゆるセポネこそ高貴なGODだろ

[0961 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:41:20.76 ID:tXid1KIl0]

高貴と言うからにはやはり純増9枚で500Gじゃないとな

[0962 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:41:45.01 ID:JumyVVE70]

純増なんかある訳ないのにこいつら馬鹿か
プラマイゼロに決まってんじゃん

[0963 マジキチスマイル ◆lJuzVc8vX6 2018/04/30(月) 21:49:52.59 ID:j4T0xRKE0]

>>957
大体デバッグしてみたけど大筋はよさそうだな
たぶんGOD、BB、MBのif文が間違ってる

もう1度言うけど、どういう仕様だと思って書いてんだよｗｗｗ

[0964 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:51:53.68 ID:T2TTUbjd0]

simセポネはもう少し修業が必要だな

[0965 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:52:41.91 ID:6qOJjwdA0]

>>963
仕様ってGODでRT700なだけだろ
間違ってるって言うなら、RT現状維持で辻褄が合うように直してくれ

[0966 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:54:44.69 ID:ZWDSL+Mqd]

6でGODで期待枚数1500なんかある訳ないだろ
どんな計算してんだ？
現状維持のRT700だぞ、ある訳無いだろ

[0967 名無しさん＠お腹いっぱい。 2018/04/30(月) 21:59:07.40 ID:T2TTUbjd0]

１で１０００枚なら普通にボナ確率考えれば６で1500枚ぐらいはあるんちゃうか
もしかすると６だけエクストラ設定でRT中減るとか、、、いやないな。

[0968 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:01:11.73 ID:ZWDSL+Mqd]

>>967
1なんか1000枚も行く訳ないだろ
1／1680如きでそんな枚数貰えんから
1でGOD引いて600枚あるかないかぐらいだから

[0969 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:05:27.85 ID:t1JnoBmqa]

GODランプが光れば大当たりで良いのにBB311枚RB120枚の完全告知で良かった

[0970 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:09:33.88 ID:ZWDSL+Mqd]

割と本気で書くけどGOD期待枚数

設定1 585枚
設定2 625枚

設定5 750枚
設定6 1050枚

[0971 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:46:20.62 ID:d2F840Rz0]

>>965
間違いはないんじゃね？
メーカー公表値でシミュ作ると割がしっくりこねーとか良くあるし

[0972 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:47:01.84 ID:d2F840Rz0]

つーかRT中GODで700のリスタートなのは確定なん？

[0973 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:48:48.75 ID:JumyVVE70]

>>972
考えるまでも無く再スタートになる
原理解ってればそうなる理由が解るよ
つーか再スタートにならなきゃinGODの意味まるで無しだろw

[0974 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:49:56.39 ID:IeXMN1iNd]

今初めて知ったけどこれ面白そう

[0975 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:52:39.55 ID:6qOJjwdA0]

>>971
何度も見直してんだが、あってるよね
てことは、メーカの言ってることのどっかにウソがあるてことだな

[0976 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:53:32.89 ID:JumyVVE70]

>>974
PV見て騙されたパターンだな
実際は死にそうな顔でダラダラ打ってるだけになるからな
今のスロットなんか全部それだし、PVに煽られてるだけ

[0977 名無しさん＠お腹いっぱい。 2018/04/30(月) 22:57:19.27 ID:6qOJjwdA0]

>>975
若しくは、機械割って例えば10000Gで打ち切って計算するとか？
ちなみに、これは1000万Gの試行だけど、10000Gとかにすると
とんでもなく割が落ちる。時間の無い時に設定1なんか絶対打てない。

[0978 名無しさん＠お腹いっぱい。 2018/04/30(月) 23:04:13.64 ID:d2F840Rz0]

>>975
あとはexcelのrndって線形合同法じゃなかったっけ？
乱数精度あげないと正確に出ないかもな

[0979 名無しさん＠お腹いっぱい。 2018/04/30(月) 23:09:45.87 ID:M/EG3Zxt0]

RT中のBB、MBは、rt_gcからそれぞれ-13、-4しなくていいの？

[0980 名無しさん＠お腹いっぱい。 2018/04/30(月) 23:12:47.44 ID:6qOJjwdA0]

>>978
その辺は、あとで検証してみる
こんな程度のsimなら、十分なランダムだと思うけど

>>979
たぶんしなくていいと思う
ちなみに-13,-4してみたけど、大して結果は変わらんかった

[0981 名無しさん＠お腹いっぱい。 2018/04/30(月) 23:23:16.50 ID:6qOJjwdA0]

1日当たり5000G打ち切り（但しボーナスは取り切る）、試行日数10000日
RT増減：-0.1枚/Gで、97.8%

Sub macro()
Randomize
Dim i As Long
Dim rt_gc As Long
Dim gc As Long
Dim total_gc As Long
Dim coin As Double
Dim rd As Long
Dim GOD As Long
Dim BB As Long
Dim MB As Long
Const SIM_GC = 5000 ' 1日あたりG数(ボーナスG含む)
Const SIM_DAY = 10000 ' 試行日数
Const BASE = 30.4 ' 通常時ベース(設定1)
Const RT_ZOUGEN = -0.1 ' RT時の純増減枚数
Const GOD_k = 40 ' 65536 / 1638.4
Const BB_k = 309 ' 65536 / 212.09 (設定1)
Const MB_k = 307 ' 65536 / 213.47 (設定1)

For i = 1 To SIM_DAY
gc = 0
rt_gc = 0
While (gc < SIM_GC)
gc = gc + 1
If rt_gc = 0 Then
coin = coin - 50# / BASE
Else
coin = coin + RT_ZOUGEN
rt_gc = rt_gc - 1
End If
rd = Int(Rnd() * 65536)
If rd < GOD_k Then
GOD = GOD + 1
rt_gc = 700
coin = coin + 203
gc = gc + 17
ElseIf rd < GOD_k + BB_k Then
BB = BB + 1
coin = coin + 155
gc = gc + 13
ElseIf rd < GOD_k + BB_k + MB_k Then
MB = MB + 1
coin = coin + 47
gc = gc + 4
End If
Wend
total_gc = total_gc + gc
Next i
MsgBox Int(coin) & "枚"
MsgBox round((total_gc * 3 + coin) / (total_gc * 3) * 100, 2) & "%"
End Sub

[0982 マジキチスマイル ◆lJuzVc8vX6 2018/05/01(火) 00:26:19.09 ID:FX9F52Ea00501]

>>981
Private Sub CommandButton1_Click()
Randomize
Const SIM_GC = 1000000 ' 試行G数
Const BASE = 30.4 ' 通常時ベース(設定1)
Const RT_ZOUGEN = 0.2 ' RT時の純増減枚数
Const GOD_k = 40 ' 65536 / 1638.4
Const BB_k = 309 ' 65536 / 212.09 (設定1)
Const MB_k = 307 ' 65536 / 213.47 (設定1)

For i = 1 To SIM_GC
'ゲームカウント
gc = gc + 1

'RTゲームカウント
If rt_gc = 0 Then
coin = coin - 50# / BASE
Else
coin = coin + RT_ZOUGEN
rt_gc = rt_gc - 1

'RT制限
TotalRTGameCount = TotalRTGameCount + 1
If 1500 = TotalRTGameCount Then
RT = RT + 1
rt_gc = 0
TotalRTGameCount = 0
End If

End If

'ランダム関数
rd = Int(Rnd() * 65536)

'GOD 0〜39
If rd < GOD_k Then
GOD = GOD + 1
rt_gc = 700
coin = coin + 203
gc = gc + 17

'BB 40〜308
ElseIf rd < GOD_k + BB_k Then
BB = BB + 1
coin = coin + 155
gc = gc + 13

'MB 309〜656
ElseIf rd < GOD_k + BB_k + MB_k Then
MB = MB + 1
coin = coin + 47
gc = gc + 4
End If
Next i

MsgBox Int(coin) & "枚"
MsgBox Round((gc * 3 + coin) / (gc * 3) * 100, 2) & "%"

End Sub

[0983 マジキチスマイル ◆lJuzVc8vX6 2018/05/01(火) 00:31:07.64 ID:FX9F52Ea00501]

1000万G以上の試行はこの計算式で行くとかなり上ブレする
500万Gでギリセーフってとこ
100万Gだとブレ幅が大きい
ランダム関数のせい？
あとRTでも1500G制限あるから(乙女マスターしかり)
そのコードは埋め込んでみた

1000万Gの単位までいくとかなり上ブレする
1億Gの単位までいくと1000万Gの単位より少し上ブレする

[0984 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:33:05.53 ID:Cc3Xh9gzd0501]

乙女マスターは指示機能使ってるから上限アリってことらしいぞ

[0985 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:35:19.60 ID:aHpXuZcm00501]

RT最大2999まで行くらしいじゃねーか！情報出たぞ

[0986 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:37:26.84 ID:4Tg6onLC00501]

いやさ、97.8% って技術介入しない場合の値でしょ
技術介入ありの場合はちゃんと攻略時の割も書かれるじゃん
BB MBで毎度あるから3%〜5%変わると思う
設定1で100.8% 設定6で118%くらい
だからRTも微増はすると思うよ
今時設定１で100%越えないとか減るRTとか流行らないだろうし

割だけ見ると神台に見えるけど実際はそううまくいかないだろうな
GOD引いた10G後にまたGOD引いたらそれだけで690GのRT消滅だからね
それだけで割も5%くらいガクンと減るし

[0987 マジキチスマイル ◆lJuzVc8vX6 2018/05/01(火) 00:37:32.91 ID:FX9F52Ea00501]

>>984
乙女マスターって意図的に機械割落としてるって事か？ｗｗｗ
指示なしでもRT消化できるのにどういうこっちゃ・・・

[0988 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:40:35.03 ID:vLc6Twgwa0501]

これ電源offでもrt残るん？
外部から分からんのなら仕込めるのか？

[0989 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:44:19.47 ID:Cc3Xh9gzd0501]

>>987
意図的に落としてるかどうかは知らんがストックの概念を使いたかったんじゃない？
RTの上乗せって指示機能使わないと出来ない…よな、多分

[0990 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:45:14.69 ID:aHpXuZcm00501]

>>988
外部から解るぞ台に映るから
電源オフで消えないから店は閉店残りしたら消すだけ

[0991 マジキチスマイル ◆lJuzVc8vX6 2018/05/01(火) 00:49:05.46 ID:FX9F52Ea00501]

>>986
計算式の正当性を見たかっただけなのに、なんで技術介入の話しなんだ・・・

ちなみに技術介入ありの設定1で機械割100.8なら最初の計算式で合ってる

1000万Gでかなり違い数値になる
最初の計算式なら1億Gでもブレにくい

もっとはよ言えよ

[0992 名無しさん＠お腹いっぱい。 2018/05/01(火) 00:59:21.66 ID:bdD22dXa00501]

BIG＋ART楽しみ

[0993 名無しさん＠お腹いっぱい。 2018/05/01(火) 01:04:09.47 ID:aHpXuZcm0]

ARTじゃないけどRTだよ

[0994 名無しさん＠お腹いっぱい。 2018/05/01(火) 02:09:14.43 ID:E2iL/Uv8a]

>>987
乙女マスターズは、ナビストックを使ってCZ中のRT突入6択リプを捌いていくタイプだよ
だから1500G超えるとその時のRT(CZ)は継続するけどナビストックは0になる

[0995 名無しさん＠お腹いっぱい。 2018/05/01(火) 03:47:08.23 ID:b49qGSED0]

1段階設定で6のみにして(´･ω･`)

[0996 名無しさん＠お腹いっぱい。 2018/05/01(火) 04:50:18.18 ID:KY+OFiVH0]

1日当たり7000Gで打ち切り（但しボーナスは取り切る）、試行日数10000日
RT増減：現状維持、ボーナス時技術介入無し
sim結果 ・・・ 設定1：約97.9%、設定6：約113.1%

Sub sim_sephone()
Randomize
Dim i As Long
Dim rt_gc As Long
Dim gc As Long
Dim total_gc As Long
Dim coin As Double
Dim rd As Long
Dim GOD As Long
Dim BB As Long
Dim MB As Long
Const SIM_GC = 7000 ' 1日あたりG数(ボーナスG含む)
Const SIM_DAY = 10000 ' 試行日数
Const BASE = 30.4 ' 通常時ベース(設定1)
' Const BASE = 32.9 ' 通常時ベース(設定6)
Const RT_ZOUGEN = -0# ' RT時の純増減枚数
Const GOD_K = 40 ' 65536 / 1638.4
Const BB_K = 309 ' 65536 / 212.09 (設定1)
' Const BB_K = 455 ' 65536 / 144.03 (設定6)
Const MB_K = 307 ' 65536 / 213.47 (設定1)
' Const MB_K = 453 ' 65536 / 144.67 (設定6)

For i = 1 To SIM_DAY
gc = 0
rt_gc = 0
While (gc < SIM_GC)
gc = gc + 1
If rt_gc = 0 Then
coin = coin - 50# / BASE
Else
coin = coin + RT_ZOUGEN
rt_gc = rt_gc - 1
End If
rd = (Int(Rnd() * 65536) + rd + gc + total_gc + Int(Abs(coin))) Mod 65536 ' 乱数が周期的にならないよう工夫
If rd < GOD_K Then
GOD = GOD + 1
rt_gc = 700
coin = coin + 203 - 8 ' -8は技術介入無し分
gc = gc + 17
ElseIf rd < GOD_K + BB_K Then
BB = BB + 1
coin = coin + 155 - 6 ' -6は技術介入無し分
gc = gc + 13
ElseIf rd < GOD_K + BB_K + MB_K Then
MB = MB + 1
coin = coin + 47 - 2 ' -2は技術介入無し分
gc = gc + 4
End If
Wend
total_gc = total_gc + gc
Next i
MsgBox "Total : " & Int(coin) & "枚" & vbCrLf & vbCrLf & Int(coin / SIM_DAY) & "枚/day"
MsgBox "機械割 : " & Format((coin + total_gc * 3) / (total_gc * 3), "#.00%")
End Sub

[0997 名無しさん＠お腹いっぱい。 2018/05/01(火) 06:32:44.57 ID:c5ofBK5s0]

>>995
設定6 機械割99.7(フル攻略時100.5)
とかでいいなら

[0998 名無しさん＠お腹いっぱい。 2018/05/01(火) 08:03:04.91 ID:Q/RIazYrd]

【高貴な】ゆるセポネ part2【マクロ】

[0999 名無しさん＠お腹いっぱい。 2018/05/01(火) 08:38:43.56 ID:wE6mPxvO0]

>>998
wwww

[1000 名無しさん＠お腹いっぱい。 2018/05/01(火) 08:43:00.55 ID:ms0mZVtDM]

1000ならゆるポセイ