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

【３色・再再再再修正版】ランダムに生成され、オセロ的に収束する空間。

１　プログラム

　プログラムを再再再修正しました。
・【３色・再再再修正版】ランダムに生成され、オセロ的に収束する空間。：https://tanakah17191928.blogspot.com/2025/08/blog-post_41.html
Option Explicit

Sub jikken()
    Dim i As Integer, j As Integer, k As Integer, l As Integer
    Dim c As Integer
    Dim d As Double
    Dim o As Long

    For i = 1 To 50
        For j = 1 To 50
            Randomize
            c = Int(3 * Rnd)
            Cells(i, j) = c
            If c = 0 Then
                Cells(i, j).Interior.Color = RGB(255, 255, 0)
            ElseIf c = 1 Then
                Cells(i, j).Interior.Color = RGB(0, 0, 255)
            Else
                Cells(i, j).Interior.Color = RGB(255, 0, 0)
            End If
        Next j
    Next i

    For o = 1 To 30
        For k = 2 To 49
            For l = 2 To 49
                Randomize
                c = Int(4 * Rnd)
                d = (Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5
                If c <> 0 Then
                    
                ElseIf d <= 2 / 3 Then
                    Cells(k, l).Interior.Color = RGB(255, 255, 0)
                ElseIf d < 4 / 3 Then
                    Cells(k, l).Interior.Color = RGB(0, 0, 255)
                Else
                    Cells(k, l).Interior.Color = RGB(255, 0, 0)
                End If
                If Cells(k, l).Interior.Color = RGB(255, 255, 0) Then
                    Cells(k, l) = 0
                ElseIf Cells(k, l).Interior.Color = RGB(0, 0, 255) Then
                    Cells(k, l) = 1
                Else
                    Cells(k, l) = 2
                End If
            Next l
        Next k
    Next o
End Sub

２　実行結果

・【３色・再再再再修正版】ランダムに生成され、オセロ的に収束する空間（東三河狂人堂主人）

・ランダムに生成され、オセロ的に収束する空間（まとめ記事）に戻る。

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

R６年度第１回高認数学問５解説

問５ （１）【文章題（三角比）】 $\mathrm{AB} = 20 \times \tan 53^{\circ}$ （２）【$90^{\circ} − \theta$の三角比】 $\sin 53^{\circ} = \cos (90^{\circ} − 53^{\circ}) = \cos 37^{\circ}$ （３）【$\sin 90^{\circ} = 1$】 $\sin 90^{\circ} = 1$ （４）【余弦定理】 $\mathrm{BC}^2 = \mathrm{AB}^2 + \mathrm{AC}^2 − 2 \cdot \mathrm{AB} \cdot \mathrm{AC} \cdot \cos \angle\mathrm{A}$ $= 4^2 + (\sqrt{2})^2 − 2 \cdot 4 \cdot \sqrt{2} \cdot \cos 45^{\circ} = 16 + 2 - 8\sqrt{2} \cdot \dfrac{1}{\sqrt{2}}$ $= 18 - 8 = 10$ $\mathrm{BC} > 0$なので$\mathrm{BC} = \sqrt{10}$ よって、BCの長さは$\mathrm{10}$cmである。 （５）【正弦定理】 $\dfrac{\mathrm{AC}}{\sin B} = \dfrac{\mathrm{AB}}{\sin C}$ $\mathrm{AC} = \dfrac{\mathrm{AB}}{\sin C} \times \sin B$ $= \mathrm{AB} \div \sin C \times \sin B$ $= 4 \div \dfrac{1}{3} \times \dfrac{2}{3} = 4 \times \dfrac{3}{1} \times \dfrac{2}{3} = 8$ よって、ACの長さは8cmである。 ・ 令和６年度第１回高認数学過去問解説に戻る。
Read more