一个二维元胞自动机的构造和动态演示

1、元胞自动机的初始状态：c=Table[If[And[m==20,n==20],1,0],{m,73},{n,73}];里面的元素只有一个1，也就是元胞，其余全部是0。

3、采用规则797：code797 = {797, 辘腋粪梯{2, 1}, {1, 1}};元胞自动机c的第一次迭代，结果如下：b=First[CellularAutomaton[code797, c, {{1}}]]

5、第二次迭代的像素图。

7、第100代的像素图。