|
CAStep[rule_u，a_u]：=Map[rule[[10-#]]&，listcollve[{0，2，0}，{2，1，2}，{0，2，0}，a，2]，{2}]；
代码=998；阶段=128；
规则=整数位数[代码，2，10]；
g=2*阶段+1；（*网格最大尺寸*）
a=PadLeft[{1}}}，{g，g}，0，Floor[{g，g}/2]]；（*网格上单元格的首字母*）
ca=a；
ca=表[ca=CAStep[rule，ca]，{n，1，stages+1}]；
前奏[ca，a]；
（*修剪整个网格以反映每个阶段一个单元格的增长*）
k=（长度[ca[[1]]]+1）/2；
ca=表[表[部分[ca[[n]][[j]]，范围[k+1-n，k-1+n]]，{j，k+1-n，k-1+n}]，{n，1，k}]；
Map[Function[Apply[Plus，Flatten[#1]]]，ca]（*每个阶段的细胞计数*）
| 