【2D（リセット有り）・修正版】パチンコ玉に細工がしてある場合。

１　プログラムの修正

　以前の記事にメモしたプログラムが不正確だったので修正してみた。
・パチンコ玉に細工がしてある場合。：https://tanakah17191928.blogspot.com/2024/11/blog-post_95.html

とりあえず修正したプログラムをメモ。
後日、また暇なときに実行してみて、結果に大きな違いが見られたらグラフを貼付しようと思う。

２　【2D（リセット有り）・修正版】パチンコ玉に細工がしてある場合。

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

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

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

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

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