1、MengerMesh[1]
给出了一个一阶的Menger网格。
2、二阶Menger海绵：
MengerMesh[2]
3、5阶Menger海绵，就有分形效果了。
4、然而，阶数越多，运行时间越长。
1、MengerMesh[1,3]
2、MengerMesh[2,3]
3、MengerMesh[3,3]
4、Mathematica绘制6阶三维Menger海绵，直接导致我的电脑死机。
1、二维Menger海绵的动态图：
a = MengerMesh[#] & /@ {1, 2, 3, 4, 5, 6};
Export["0.gif", a, "AnimationRepetitions" -> Infinity,
"DisplayDurations" -> 1]
2、三维Menger海绵的动态图：
a = MengerMesh[#, 3] & /@ {1, 2, 3};
Export["00.gif", a, "AnimationRepetitions" -> Infinity,
"DisplayDurations" -> 1]
