昨日の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