計算機科学のブログ

ひまわりの種と黄金比(Sunflower Seed Arrangements)

フラクタル図形のシェルピンスキーのギャスケット(シェルピンスキーの三角形)を描いたのと同じく、Wolfram Engineで気軽に試せないか検索してみたら、Sunflowerという単語で検索したら見つかった(DemonstrationsのSunflower Seed Arrangementsという部分)から、MathematicaではなくWolfram EngineとJupyterでもうまくいくか試してみた。

コード(Wolfram)

Manipulate[
    ListPlot[
        Table[Sqrt[a] {Cos[2Pi/GoldenRatio^2 a], 
                       Sin[(2Pi)/GoldenRatio^2 a]},
              {a, n}
        ],
        AspectRatio -> 1, 
        Axes -> False,
        PlotStyle -> {Yellow, PointSize -> Large}, 
        Background -> Black,
        PlotRange -> {{-35, 35}, {-35, 35}}, 
        ImageSize -> 450],
    {{n, 100, "number of seeds"}, 1, 1000, 1,
     Appearance -> "Labeled"}
]
Output
今回はシェルピンスキーのギャスケットと違って組み込み関数はなかったけど上手くいった。ただ、ちょっと動作が遅い気がしたから、Mathematica入手したくなったかも。 (Wolfram EngineとJupyterの組み合わせでManipulateコマンドで描画しても、GIF形式で画像が保存されて手動で操作できないのは今回に限らず。)