10日目　コラッツ予想をシミュレーションしよう【30日間1日1本マクロ生活】

2017年10月8日

30日間1日1本マクロ生活、10日目です。

ついに10日目。我ながら頑張ってます。3分の1に到達しました。

引き続き、褒めてくれてもいいんですよ。内容が面白くなくても、続いていることに価値があります。はい。

まあ、頑張って30日間続けますよ。

コラッツ予想

マクロを書く準備は、0日目に記事を書きました。

0日目　マクロを書く準備をしよう【30日間1日1本マクロ生活】

マクロを書く準備早速マクロを書こうと思ったんですが、マクロって何？食えんの？って人もいると思うんで、丁寧に行こうかな、と。マクロってのは、通常は人間の手でやるような作業を、プログラムを書くことで機械に自動的にやらせるってことです。Excelの場合はVBA(Visual Basic for Application)という言語を使ってマクロを書きます。まずはその準備を。Excelを起動すると、ワークシートが現れます。ここでキーボードの「ALT+」を押してください。はキーボードの上方にあるファンクションキーの11番です。すると、このウィンドウが開...

今日のネタは、コラッツ予想という数学の問題です。

コラッツ予想とは、全ての自然数 $n$ に対して

$n$ が偶数のときは2で割る
$n$ が奇数のときは3倍して1を足す

そうしてできた数に、同じルールを繰り返していくと最後は必ず1になる、というものです。

数学の世界でも未解決

コラッツ予想は、数学の世界でも未解決の問題です。

この予想が「正しい」とも「間違っている」とも結論が出ていないんです。

世の中には、とんでもなく頭のいい人たちがいるんです。

数学の世界で、信じられないような発想を当たり前のようにしてしまう大天才がたくさんいるんです。

とてもとても同じ人類とは思えない。そういう人々をわたしは数学奇人と呼んでます。

そんな頭の良い人たちが寄ってたかって取り組んでも、この単純な問題が解決できないんです。

数学って本当に奥が深いですよね。

コラッツ予想をシミュレーション

Cells(1,1)に数値を入力し、マクロを実行すると、上のコラッツ予想の操作を繰り返し、1になったところで終了させます。

さっそくコードを


Sub コラッツ予想()
    y = 1
    Do Until Cells(y, 1) = 1
        n = Cells(y, 1)
        If n Mod 2 = 0 Then
            Cells(y + 1, 1) = n / 2
        Else
            Cells(y + 1, 1) = 3 * n + 1
        End If
        
        y = y + 1
    Loop
End Sub

では、解説します。