釘に細工がしてある場合。

１　釘に細工がしてある場合

　前回の記事では、玉に細工がしてある場合をプログラム（Excel VBA）で表現した。
・パチンコ玉に細工がしてある場合。：https://tanakah17191928.blogspot.com/2024/11/blog-post_95.html

今回は釘に細工がしてある場合を表現してみる。

２　右側（又は左側）の釘ほど右（又は左）に玉をはじきやすくしてある場合

Option Explicit

Sub game()
    Dim i As Long, j As Long
    Dim p As Integer, c As Integer, k As Integer

    For i = 1 To 1000
        p = 0
        k = 50
        For j = 1 To 100
            c = 0
            Randomize
            c = Int(100 * Rnd + 1)
            If c <= k Then
                p = p + 1
            Else
                p = p - 1
            End If
            k = 50 + (p * 1)
        Next j
    Cells(i, 1) = p
    Next i
End Sub

なんか僕が想像していたのと違う結果になった。
釘を少し調整しただけでこんなになるものなのか・・・直感に反する。
プログラムに間違いがあるのかなぁ・・・（´・ω・｀）
プログラムの間違いを修正しました（｀・ω・´）

（１）確率が（釘の位置の１倍）％増加する場合

（２）確率が（釘の位置の２倍）％増加する場合

（３）確率が（釘の位置の５倍）％増加する場合

・パチンコ玉と釘の確率・統計（まとめ記事）に戻る。