計算機科学のブログ

フラクタル図形 シェルピンスキーのギャスケット(シェルピンスキーの三角形) SierpinskiMesh、2次元、3次元

ということで(?)、SierpinskiMesh関数を利用して2次元、3次元のシェルピンスキーのギャスケットを1行で、かついくつか描いてみた。

コード(Wolfram)

Column[Table[SierpinskiMesh[i], {i, 1, 10}]]
Output
Column[Table[SierpinskiMesh[i, 3], {i, 1, 5}]]
Output

(組み込み関数を利用してるから、apuさんの一行っていうのとはちょっと(全然?)意味が違うかも。。😅)