|
|
数学
|
规则=33；阶段=300；
ca=细胞自动机[{rule，{2，{0,2,0}，{2,1,2}，}0,0,0}}，1,1}}；（*从单个黑电池开始*）
l=长度[ca[[1]]]；k=（l+1）/2；s=阶段；（*将范围限制为每个阶段一个细胞生长*）
ca=表[表[部分[ca[[n]][[j]]，范围[最大值[1，k+1-n]，最小值[l，k-1+n]]，{j，最大值[1,k+1-n]，最小[l，k1+n]}]，{n，1，s+1}]；
Map[Function[Apply[Plus，Flatten[#1]]]，ca]（*每个阶段的细胞计数*）
|
