Labels

ライトノベル711 Illustration472 イラスト472 English412 船員日記387 PoliticalEconomics265 JapaneseLesson261 STEM250 Literature233 ナイジェリア憲法和訳184
高認数学過去問141 ウガンダ憲法和訳130 ガーナ憲法和訳124 AnimeManga123 アニメまんが123 ザンビア憲法和訳119 ジンバブエ憲法和訳117 ケニア憲法和訳114 高認化学過去問97 高認物理過去問93 オンライン補習塾90 ドミニカ共和国憲法和訳84 ウルグアイ憲法和訳82 Education74 タンザニア憲法和訳74 古文・漢文73 JapaneseHistory70 ナミビア憲法和訳70 日本史70 Story69 物語69 各国憲法インデックス和訳68 マラウイ憲法和訳66 コンゴ民主共和国憲法和訳59 フリーランス時代57 アンゴラ憲法和訳56 法律和訳53 モザンビーク憲法和訳52 ペルー憲法和訳51 派遣エンジニア・設備管理技術者時代51 パラグアイ憲法和訳50 南スーダン憲法和訳50 シエラレオネ憲法和訳49 ボツワナ憲法和訳48 ホンジュラス憲法和訳47 ルワンダ憲法和訳47 Blog46 メキシコ憲法和訳46 グアテマラ憲法和訳45 チリ憲法和訳45 パナマ憲法和訳43 ChineseHistory40 ギニア憲法和訳40 中国史40 ブルンジ憲法和訳39 エルサルバドル憲法和訳38 チャド憲法和訳37 中央アフリカ憲法和訳36 コンゴ共和国憲法和訳35 スーダン憲法和訳34 ニカラグア憲法和訳33 行政書士時代33 ガボン憲法和訳29 マダガスカル憲法和訳29 WebLog27 トーゴ憲法和訳27 DragonBall26 ドラゴンボール26 第二種電工数学入門講座26 Ghibli25 Gundam25 アルゼンチン憲法和訳25 ガンダム25 ジブリ25 Game22 TarotCard22 ゲーム22 セネガル憲法和訳22 タロットカード22 健康・医療22 ベナン憲法和訳20 カメルーン憲法和訳19 論文和訳19 Alternatives18 リベリア憲法和訳18 FamousPerson15 有名人15 Dai14 WorldHistory14 ダイの大冒険14 世界史14 海運会社員時代13 JapaneseRealEstateLaw12 不動産法入門講座12 NPO職員時代11 Hokuto10 RurouniKenshin10 るろうに剣心10 不動産営業時代10 北斗の拳10 学習進度10 ココナラ8 Treemapping7 ツリーマップ7 Poetry5 叡智3
Show more

【3D（８方向）】パチンコ玉に細工がしてある場合。

１　【3D】パチンコ玉と釘の確率・統計

　前回はそれぞれ25％の確率で４方向（前後左右）にパチンコ玉がはじかれるプログラムを修正して、パチンコ玉に細工がしてある場合をシミュレーションしてみた。
・【3D（４方向）】パチンコ玉に細工がしてある場合。：https://tanakah17191928.blogspot.com/2024/11/3d_24.html

今回はそれぞれ12.5％の確率で８方向にパチンコ玉がはじかれるプログラムを修正して、パチンコ玉に細工がしてある場合をシミュレーションしてみる。
・【3D】パチンコ玉と釘の確率・統計。：https://tanakah17191928.blogspot.com/2024/11/3d.html

２　ある方向にはじかれた後は、次もその方向にはじかれやすくなる場合

Option Explicit

Sub game()
    Dim i As Long, j As Long
    Dim p_x As Integer, p_y As Integer, c As Integer, k_x As Integer, k_y As Integer, k_xy As Integer, k_yx As Integer

    For i = 1 To 1000
        p_x = 0
        p_y = 0
        k_x = 0
        k_y = 0
        k_xy = 0
        k_yx = 0
        For j = 1 To 50
            c = 0
            Randomize
            c = Int(1000 * Rnd + 1)
            If c <= (125 + k_x) Then
                p_x = p_x + 1
                If k_x < 125 Then
                    k_x = k_x + 100
                    If k_x > 125 Then
                        k_x = 125
                    End If
                End If
            ElseIf (125 + k_x) < c And c <= 250 Then
                p_x = p_x - 1
                If k_x > -125 Then
                    k_x = k_x - 100
                    If k_x < -125 Then
                        k_x = -125
                    End If
                End If
            ElseIf 250 < c And c <= (375 + k_y) Then
                p_y = p_y + 1
                If k_y < 125 Then
                    k_y = k_y + 100
                    If k_y > 125 Then
                        k_y = 125
                    End If
                End If
            ElseIf (375 + k_y) < c And c <= 500 Then
                p_y = p_y - 1
                If k_y > -125 Then
                    k_y = k_y - 100
                    If k_y < -125 Then
                        k_y = -125
                    End If
                End If
            ElseIf 500 < c And c <= (625 + k_xy) Then
                p_x = p_x + 1
                p_y = p_y + 1
                If k_xy < 125 Then
                    k_xy = k_xy + 100
                    If k_xy > 125 Then
                        k_xy = 125
                    End If
                End If
                j = j + 1
            ElseIf (625 + k_xy) < c And c <= 750 Then
                p_x = p_x - 1
                p_y = p_y - 1
                If k_xy > -125 Then
                    k_xy = k_xy - 100
                    If k_xy < -125 Then
                        k_xy = -125
                    End If
                End If
                j = j + 1
            ElseIf 750 < c And c <= (875 + k_yx) Then
                p_x = p_x + 1
                p_y = p_y - 1
                If k_yx < 125 Then
                    k_yx = k_yx + 100
                    If k_yx > 125 Then
                        k_yx = 125
                    End If
                End If
                j = j + 1
            Else
                p_x = p_x - 1
                p_y = p_y + 1
                If k_yx > -125 Then
                    k_yx = k_yx - 100
                    If k_yx < -125 Then
                        k_yx = -125
                    End If
                End If
                j = j + 1
            End If
        Next j
        Cells(i, 1) = p_x
        Cells(i, 2) = p_y
    Next i
End Sub

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

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

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

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


３　ある方向にはじかれた後は、次もその方向にはじかれやすくなるけれど、一度別方向にはじかれると確率がリセットされる場合

Option Explicit

Sub game()
    Dim i As Long, j As Long
    Dim p_x As Integer, p_y As Integer, c As Integer, k_x As Integer, k_y As Integer, k_xy As Integer, k_yx As Integer
    Dim r As Boolean, l As Boolean, f As Boolean, b As Boolean, rf As Boolean, lb As Boolean, rb As Boolean, lf As Boolean

    For i = 1 To 1000
        p_x = 0
        p_y = 0
        k_x = 0
        k_y = 0
        k_xy = 0
        k_yx = 0
        r = False
        l = False
        f = False
        b = False
        rf = False
        lb = False
        rb = False
        lf = False
        For j = 1 To 50
            c = 0
            Randomize
            c = Int(1000 * Rnd + 1)
            If c <= (125 + k_x) Then
                p_x = p_x + 1
                If r = True Then
                    If k_x < 125 Then
                        k_x = k_x + 100
                        If k_x > 125 Then
                            k_x = 125
                        End If
                    End If
                Else
                    k_x = 0
                End If
                r = True
                l = False
                f = False
                b = False
                rf = False
                lb = False
                rb = False
                lf = False
            ElseIf (125 + k_x) < c And c <= 250 Then
                p_x = p_x - 1
                If l = True Then
                    If k_x > -125 Then
                        k_x = k_x - 100
                        If k_x < -125 Then
                            k_x = -125
                        End If
                    End If
                Else
                    k_x = 0
                End If
                r = False
                l = True
                f = False
                b = False
                rf = False
                lb = False
                rb = False
                lf = False
            ElseIf 250 < c And c <= (375 + k_y) Then
                p_y = p_y + 1
                If f = True Then
                    If k_y < 125 Then
                        k_y = k_y + 100
                        If k_y > 125 Then
                            k_y = 125
                        End If
                    End If
                Else
                    k_y = 0
                End If
                r = False
                l = False
                f = True
                b = False
                rf = False
                lb = False
                rb = False
                lf = False
            ElseIf (375 + k_y) < c And c <= 500 Then
                p_y = p_y - 1
                If b = True Then
                    If k_y > -125 Then
                        k_y = k_y - 100
                        If k_y < -125 Then
                            k_y = -125
                        End If
                    End If
                Else
                    k_y = 0
                End If
                r = False
                l = False
                f = False
                b = True
                rf = False
                lb = False
                rb = False
                lf = False
            ElseIf 500 < c And c <= (625 + k_xy) Then
                p_x = p_x + 1
                p_y = p_y + 1
                If rf = True Then
                    If k_xy < 125 Then
                        k_xy = k_xy + 100
                        If k_xy > 125 Then
                            k_xy = 125
                        End If
                    End If
                Else
                    k_xy = 0
                End If
                r = False
                l = False
                f = False
                b = False
                rf = True
                lb = False
                rb = False
                lf = False
                j = j + 1
            ElseIf (625 + k_xy) < c And c <= 750 Then
                p_x = p_x - 1
                p_y = p_y - 1
                If lb = True Then
                    If k_xy > -125 Then
                        k_xy = k_xy - 100
                        If k_xy < -125 Then
                            k_xy = -125
                        End If
                    End If
                Else
                    k_xy = 0
                End If
                r = False
                l = False
                f = False
                b = False
                rf = False
                lb = True
                rb = False
                lf = False
                j = j + 1
            ElseIf 750 < c And c <= (875 + k_yx) Then
                p_x = p_x + 1
                p_y = p_y - 1
                If rb = True Then
                    If k_yx < 125 Then
                        k_yx = k_yx + 100
                        If k_yx > 125 Then
                            k_yx = 125
                        End If
                    End If
                Else
                    k_yx = 0
                End If
                r = False
                l = False
                f = False
                b = False
                rf = False
                lb = False
                rb = True
                lf = False
                j = j + 1
            Else
                p_x = p_x - 1
                p_y = p_y + 1
                If lf = True Then
                   If k_yx > -125 Then
                        k_yx = k_yx - 100
                        If k_yx < -125 Then
                            k_yx = -125
                        End If
                    End If
                Else
                    k_yx = 0
                End If
                r = False
                l = False
                f = False
                b = False
                rf = False
                lb = False
                rb = False
                lf = True
                j = j + 1
            End If
        Next j
        Cells(i, 1) = p_x
        Cells(i, 2) = p_y
    Next i
End Sub

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

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

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

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


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

Popular posts from this blog

高等学校卒業程度認定試験（高認）数学過去問解説

・ 令和７年度第１回 ・ 令和７年度第２回 ・ 令和６年度第１回 ・ 令和６年度第２回 ・ 令和５年度第１回 ・ 令和５年度第２回 ・ 令和４年度第１回 ・ 令和４年度第２回 ・ 令和３年度第１回 ・ 令和３年度第２回 ・ 令和２年度第１回 ・ 令和２年度第２回 ・ 令和元年度第１回 ・ 令和元年度第２回 ・ 平成30年度第１回 ・ 平成30年度第２回 ・ 平成29年度第１回 ・ 平成29年度第２回 ・ 平成28年度第１回 ・ 平成28年度第２回 ・ 高等学校卒業程度認定試験問題　解答・過去問題 （ 文部科学省 ） ・ 高認数学過去問を淡々と解くだけの動画（YouTube再生リスト）
Read more

愛知県公立高校入試過去問古文・漢文現代語訳

・ 令和８年度【古文】 ・ 令和７年度【古文】 ・ 令和６年度【漢文】 ・ 令和５年度【漢文】 ・ 令和４年度（A）【漢文】 ・ 令和４年度（B）【古文】 ・ 令和３年度（A）【古文】 ・ 令和３年度（B）【漢文】 ・ 令和２年度（A）【漢文】 ・ 令和２年度（B）【古文】 ・ 平成31年度（A）【古文】 ・ 平成31年度（B）【漢文】 ・ 平成30年度（A）【漢文】 ・ 平成30年度（B）【古文】 ・ 平成29年度（A）【古文】 ・ 平成29年度（B）【漢文】 ・ 平成28年度（A）【古文】 ・ 平成28年度（B）【漢文】 ・ 平成27年度（A）【漢文】 ・ 平成27年度（B）【古文】 ・ 平成26年度（A）【漢文】 ・ 平成26年度（B）【古文】 ・ 高等学校への入学 （ 愛知県 ） ・ 愛知県公立高校入試過去問古文・漢文現代語訳（PDF）
Read more

令和７年度第１回高認数学過去問解説

問１ 【因数分解、分母の有理化、集合と命題】 問２ 【一次不等式、文章題】 問３ 【二次関数、グラフの概形、平方完成】 問４ 【二次関数の最大値、二次関数のグラフと$x$軸との共有点（二次方程式）、二次不等式】 問５ 【三角比、文章題、三角比の相互関係、余弦定理、三角形の面積】 問６ 【平均値、中央値、最頻値、最小値、箱ひげ図、分散と標準偏差、仮説検定】 ・ 高等学校卒業程度認定試験（高認）数学過去問解説に戻る。
Read more