Posts

Showing posts with the label 派遣エンジニア・設備管理技術者時代

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

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

Image
１　プログラム 　プログラムを再再再修正しました。 ・【３色・再再再修正版】ランダムに生成され、オセロ的に収束する空間。： 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 ...
Read more

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

Image
１　プログラム 　プログラムを再修正しました。 ・【再修正版】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_17.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer, d As Integer Dim o As Long For i = 1 To 50 For j = 1 To 50 Randomize c = Int(2 * Rnd) Cells(i, j) = c If c = 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 255) Else Cells(i, j).Interior.Color = RGB(0, 0, 0) End If Next j Next i For o = 1 To 10 For k = 2 To 49 For l = 2 To 49 Randomize c = Int(4 * Rnd) d = Int((Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 + 0.5) If c 0 Then ElseIf d = 0 Then Cells(k, l).Int...
Read more

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

Image
１　プログラム 　プログラムを再再再修正しました。 ・【３色・再再修正版】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_20.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 10 For k = 2 To 49 For l = 2 To 49 d = (Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 If d <= 2 / 3 Then Cells(k, l).Interior.Color = RGB(255, 255, 0) ...
Read more

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

Image
１　プログラム 　プログラムを再再修正しました。 ・【３色・再修正版】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_2.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 o = 1 To 10 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 k = 2 To 49 For l = 2 To 49 d = (Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 If d <= 2 / 3 Then Cells...
Read more

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

Image
１　プログラム 　プログラムを再修正しました。 ・【３色・修正版】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_19.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer, d As Integer Dim o As Long For o = 1 To 10 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 k = 2 To 49 For l = 2 To 49 d = Int((Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 + 0.5) If d = 0 Then ...
Read more

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

Image
１　プログラム 　プログラムを再修正しました。 ・【修正版】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_10.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer, d As Integer Dim o As Long For o = 1 To 10 For i = 1 To 50 For j = 1 To 50 Randomize c = Int(2 * Rnd) Cells(i, j) = c If c = 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 255) Else Cells(i, j).Interior.Color = RGB(0, 0, 0) End If Next j Next i For k = 2 To 49 For l = 2 To 49 d = Int((Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 + 0.5) If d = 0 Then Cells(k, l).Interior.Color = RGB(255, 255, 255) Else ...
Read more

【３色・青＋赤＝黄】ランダムに生成され、オセロ的に収束する空間。

Image
１　プログラム 　青と赤が隣り合ったら黄色になるプログラムを作ってみました。 Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer Dim o As Long For o = 1 To 10 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 k = 1 To 49 Step 2 For l = 1 To 50 If (Cells(k, l).Interior.Color = RGB(0, 0, 255) And Cells(k + 1, l).Interior.Color = RGB(255, 0, 0)) Or (Cells(k, l).Interior.Color = RGB(255, 0, 255) And Cells(k + 1, l).Interior.Color = RGB(0, 0, 255)) Then ...
Read more

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

Image
１　プログラム 　３色版も修正してみました。 ・【３色】ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_93.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer Dim c As Integer Dim o As Long For o = 1 To 10 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 k = 2 To 49 For l = 2 To 49 c = Int((Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 + 0.5) Cells(k, l) = c If c = 0 Then ...
Read more

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

Image
１　プログラム 　以前のプログラムを修正したのでここにメモ。 ・ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_8.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer Dim c As Integer Dim o As Long For o = 1 To 10 For i = 1 To 50 For j = 1 To 50 Randomize c = Int(2 * Rnd) Cells(i, j) = c If c = 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 255) Else Cells(i, j).Interior.Color = RGB(0, 0, 0) End If Next j Next i For k = 2 To 49 For l = 2 To 49 c = Int((Cells(k, l) + Cells(k - 1, l) + Cells(k + 1, l) + Cells(k, l - 1) + Cells(k, l + 1)) / 5 + 0.5) Cells(k, l) = c If c = 0 Then Cells(k, l).Interior.Color = RGB(255, 255, 255) Else C...
Read more

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

Image
１　プログラム 　前回のプログラムをちょこっと修正して、３色にしてみました。 ・ランダムに生成され、オセロ的に収束する空間。： https://tanakah17191928.blogspot.com/2025/08/blog-post_8.html Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer Dim o As Long For o = 1 To 10 For i = 1 To 50 For j = 1 To 50 Randomize c = Int(3 * Rnd) 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 k = 2 To 49 For l = 1 To 50 If Cells(k - 1, l).Interior.Color = Cells(k + 1, l).Interior.Color Then Cells(k, l).Interior.Color = Cells(k - 1, l).Interior.Color End If ...
Read more

ランダムに生成され、オセロ的に収束する空間。

Image
１　プログラム 　思索中に思いついたプログラムをここにメモ。 Option Explicit Sub jikken() Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, n As Integer Dim c As Integer Dim o As Long For o = 1 To 10 For i = 1 To 50 For j = 1 To 50 Randomize c = Int(2 * Rnd) If c = 0 Then Cells(i, j).Interior.Color = RGB(255, 255, 255) Else Cells(i, j).Interior.Color = RGB(0, 0, 0) End If Next j Next i For k = 2 To 49 For l = 1 To 50 If Cells(k - 1, l).Interior.Color = Cells(k + 1, l).Interior.Color Then Cells(k, l).Interior.Color = Cells(k - 1, l).Interior.Color End If Next l Next k For n = 2 To 49 For m = 1 To 50 If Cells(m, n - 1).Interior.Color = Cells(m, n + 1).Interior.Color Then ...
Read more

ランダムウォークの軌跡を表示するプログラム。

Image
１　ランダムウォークによる拡散をシミュレーションするプログラム。 　前回までのプログラムは、100個の粒子が一定回数のランダムウォークにより、どのように拡散するかを表現するものだった。 ・ブラウン運動による拡散を、単純なランダムウォークとして考察してみる。： https://tanakah17191928.blogspot.com/2024/12/blog-post_14.html ・閉鎖容器内の拡散を、単純なランダムウォークとして考察してみる。： https://tanakah17191928.blogspot.com/2025/01/blog-post.html 今回は１個の粒子について、そのランダムウォークの軌跡を表示するプログラムを考えてみた。 ２　ランダムウォークの軌跡を表示するプログラム Option Explicit Sub game() Dim i As Long Dim p_x As Double, p_y As Double Dim c As Integer, t As Integer Dim pi As Double pi = Atn(1) * 4 p_x = 0 p_y = 0 t = 1000 For i = 1 To t Cells(i, 1) = p_x Cells(i, 2) = p_y c = 0 Randomize c = Int(360 * Rnd + 1) p_x = p_x + Cos(c * pi / 180) p_y = p_y + Sin(c * pi / 180) Next i End Sub （１）$t=100$の場合 （２）$t=500$の場合 （３）$t=1000$の場合 ３　【閉鎖容器内】ランダムウォークの軌跡を表示するプログラム Option Explicit Sub game() Dim i As Long Dim p_x As Double, p_y As Double Dim c As Integer, t As Integer Dim pi As Double ...
Read more

閉鎖容器内の拡散を、単純なランダムウォークとして考察してみる。

Image
１　開放空間における拡散 　前回のプログラムは、開放空間における拡散だった。 ・ブラウン運動による拡散を、単純なランダムウォークとして考察してみる。： https://tanakah17191928.blogspot.com/2024/12/blog-post_14.html 今回は閉鎖容器内の拡散をプログラムで表現してみた。 ２　【2D・閉鎖容器内】ランダムウォークによる拡散のプログラム Option Explicit Sub game() Dim i As Long, j As Long Dim p_x As Double, p_y As Double Dim c As Integer, t As Integer Dim pi As Double pi = Atn(1) * 4 t = 50 For i = 1 To 100 p_x = 0 p_y = 0 For j = 1 To t c = 0 Randomize c = Int(360 * Rnd + 1) p_x = p_x + Cos(c * pi / 180) p_y = p_y + Sin(c * pi / 180) If p_x > 20 Then p_x = 40 - p_x ElseIf p_x < -20 Then p_x = -40 - p_x End If If p_y > 20 Then p_y = 40 - p_y ElseIf p_y < -20 Then p_y = -40 - p_y End If Next j Cells(i, 1) = p_x Cells(i, 2) = p_y Next i End S...
Read more

ブラウン運動による拡散を、単純なランダムウォークとして考察してみる。

Image
１　パチンコ玉と釘のプログラム 　パチンコ玉と釘のゲームで確率・統計を考察する記事をいくつか書いてきた。 ・パチンコ玉と釘の確率・統計（まとめ記事）。： https://tanakah17191928.blogspot.com/2024/11/blog-post_21.html 今回はパチンコ玉と釘のプログラムを流用して、ブラウン運動による拡散を考察してみたい。 ブラウン運動 に関する厳密な理論を扱いのは難しいので、単純な ランダムウォーク としてシミュレーションしてみる。 ２　【2D】ランダムウォークによる拡散のプログラム 　とりあえずプログラムだけメモ。 後日、また暇なときに実行してみて、結果を考察してみたい。 Option Explicit Sub game() Dim i As Long, j As Long Dim p_x As Double, p_y As Double Dim c As Integer, t As Integer, k As Integer t = 50 k = 0 For i = 1 To 100 p_x = 0 p_y = 0 For j = 1 To t c = 0 Randomize c = Int(1000 * Rnd + 1) If c <= (125 + k) Then p_x = p_x + 1 ElseIf (125 + k) < c And c <= 250 Then p_x = p_x - 1 ElseIf 250 < c And c <= (375 + k) Then p_y = p_y + 1 ElseIf (375 + k) < c And c <= 500 Then p_y = p_y - 1 ElseIf 500 < c And c <=...
Read more

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

Image
１　プログラムの修正 　以前の記事にメモしたプログラムが不正確だったので修正してみた。 ・【3D（８方向）】パチンコ玉に細工がしてある場合。： https://tanakah17191928.blogspot.com/2024/11/3d_72.html とりあえず修正したプログラムをメモ。 後日、また暇なときに実行してみて、結果に大きな違いが見られたらグラフを貼付しようと思う。 ２　【3D（８方向・リセット有り）・修正版】パチンコ玉に細工がしてある場合。 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 = True l = True f = True b = True rf = True lb = True rb = True lf = True 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 ...
Read more

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

Image
１　プログラムの修正 　以前の記事にメモしたプログラムが不正確だったので修正してみた。 ・【3D（４方向）】パチンコ玉に細工がしてある場合。： https://tanakah17191928.blogspot.com/2024/11/3d_24.html とりあえず修正したプログラムをメモ。 後日、また暇なときに実行してみて、結果に大きな違いが見られたらグラフを貼付しようと思う。 ２　【3D（４方向・リセット有り）・修正版】パチンコ玉に細工がしてある場合。 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 Dim r As Boolean, l As Boolean, f As Boolean, b As Boolean For i = 1 To 1000 p_x = 0 p_y = 0 k_x = 0 k_y = 0 r = True l = True f = True b = True For j = 1 To 50 c = 0 Randomize c = Int(100 * Rnd + 1) If c <= (25 + k_x) Then p_x = p_x + 1 If k_x < 25 Then k_x = k_x + 20 If k_x > 25 Then k_x = 25 End If End If If r = False Then ...
Read more

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

Image
１　プログラムの修正 　以前の記事にメモしたプログラムが不正確だったので修正してみた。 ・パチンコ玉に細工がしてある場合。： 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 ...
Read more

【3D】釘に細工がしてある場合。

Image
１　４方向 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 For i = 1 To 1000 p_x = 0 p_y = 0 k_x = 0 k_y = 0 For j = 1 To 50 c = 0 Randomize c = Int(100 * Rnd + 1) If c <= (25 + k_x) Then p_x = p_x + 1 ElseIf (25 + k_x) < c And c <= 50 Then p_x = p_x - 1 ElseIf 50 < c And c <= (75 + k_y) Then p_y = p_y + 1 Else p_y = p_y - 1 End If If p_x * 5 > 25 Then k_x = 25 ElseIf p_x * 5 < -25 Then k_x = -25 Else k_x = p_x * 5 End If If p_y * 5 > 25 Then k_y = 25 ElseIf p_y * 5 < -25 Then k_y = -25 Else k...
Read more

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

Image
１　【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 Then k_x = 125 End If End If ElseIf (125 + k_x) -125 Then k_x = k_x - 100 If k_x 125 Then ...
Read more