|
| 数据
|
1, 3, 6, 7, 24, 15, 120, 31, 480, 127, 1920, 511, 7680, 2047, 32640, 31231, 105984, 124927, 423936, 237567, 2080768, 425983, 8355840, 6356991, 29327360, 25296895, 117309440, 133431295, 406323200, 533725183, 2137489408, 54132735, 8554151936, 206045183
|
|
| 链接
|
N.J.A.Sloane，<A href=“http://arxiv.org/abs/1503.01168“>关于元胞自动机中On细胞的数量，arXiv:1503.01168[math.CO]，2015
Eric Weisstein的《数学世界》，<a href=“http://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>
S.Wolfram，<a href=“http://wolframscience.com/“>一种新的科学</a>
Wolfram Research，<a href=“http://atlas.wolfram.com/“>Wolfram简易程序地图集</a>
<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
<a href=“https://oeis.org/wiki/Index_to_2D_5-邻居_细胞_自动机“>二维五邻域元胞自动机索引</a>
<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>初等元胞自动机索引</a>
|
|
| 数学
|
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=499；阶段=128；
规则=整数位数[code，2，10]；
g=2*级+1；（*网格的最大尺寸*）
a=PadLeft[{{1}}，{g，g}，0，Floor[{g，c}/2]]；（*电网上的初始ON电池*）
ca=a；
ca=表[ca=CAStep[rule，ca]，{n，1，stages+1}]；
PrependTo[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}]；
表[FromDigits[部分[ca[i]][[i]]，范围[i，2*i-1]]，10]，{i，1，阶段-1}]
|
