本文的元胞自动机,是共线的,但不是一条线段,而是断为两条以上的线段。
工具/原料
1
电脑
2
Mathematica
方法/步骤
1
元胞组成3个断开的线段:b = Table[ If[m == 5 && Or[-17 < n < -13, -10 < n < -2, 0 < n < 5], 1, 0], {m, -20, 30}, {n, -30, 30}];
3
线性元胞组33733经过76步,趋于稳定。
4
线性元胞组9、4、10、5、3:b = Table[ If[m == 5 && Or[-16 < n < -6, -3 < n < 8, 12 < n < 16], 1, 0], {m, -20, 30}, {n, -30, 30}];
5
9、4、10、5、3能够生成一个叫做tumbler的部件。
注意事项
由于这类元胞自动机,大多数都需要巨大的空间。所以,用Mathematica来演示,显得力不从心。
上一篇:工艺美术馆:美丽的花园快乐的鸟。
下一篇:window10如何打开蓝牙呢?