パチンコ玉に細工がしてある場合。

１　 パチンコ玉と釘の確率・統計

　前回の記事で基本プログラム（Excel VBA）を作成した。
・パチンコ玉と釘の確率・統計。：https://tanakah17191928.blogspot.com/2024/11/blog-post_7.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
                k = k + 1
            Else
                p = p - 1
                k = k - 1
            End If
        Next j
    Cells(i, 1) = p
    Next i
End Sub

（１）確率が１％増加する場合

（２）確率が２％増加する場合

（３）確率が５％増加する場合

３　右（又は左）にはじかれた後は、次も右（又は左）にはじかれやすくなるけれど、一度逆方向にはじかれると確率が50％にリセットされる場合

Option Explicit

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

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

（１）確率が２％増加する場合

（２）確率が５％増加する場合

（３）確率が10％増加する場合

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