| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，由“规则966”定义的二维元胞自动机生长的第n阶段的x轴从左边缘到原点的二进制表示。
+10
4
1, 11, 101, 1101, 10101, 110101, 1010001, 11011011, 101000001, 1101100011, 10101010101, 110101111101, 1010100111001, 11010111010111, 101000111010001, 1101101110001011, 10100010111010101, 110110101110110111, 1010100110101011011, 11010111111110100101
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=966；阶段=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=表[Table[Part[ca[[n]][[j]]，范围[k+1-n，k-1+n]]，{j，k+1-n，k-1+n}]，{n，1，k}]；
表[FromDigits[Part[ca[i]][[i]]，Range[1，i]，10]，{i，1，stages-1}]
基于5细胞von Neumann邻域，“规则966”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的十进制表示。
+10
4
1, 3, 5, 13, 21, 53, 81, 219, 321, 867, 1365, 3453, 5433, 13783, 20945, 56203, 83413, 224183, 347483, 884645, 1379707, 3512309, 5333359, 14390271, 21495663, 57370111, 88596335, 225125815, 355458891, 904008885, 1373061079, 3687372723, 5465013117, 14683512245
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=966；阶段=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=表[Table[Part[ca[[n]][[j]]，范围[k+1-n，k-1+n]]，{j，k+1-n，k-1+n}]，{n，1，k}]；
表[FromDigits[Part[ca[i]][[i]]，Range[1，i]，2]，{i，1，stages-1}]
基于5细胞von Neumann邻域，“规则966”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的十进制表示。
+10
4
1, 3, 5, 11, 21, 43, 69, 219, 261, 795, 1365, 3051, 5013, 15083, 17861, 53723, 87877, 243547, 447893, 679915, 1824277, 2882155, 8078149, 16763355, 32374725, 67017563, 129490709, 249187691, 442465941, 726274539, 1979610565, 3454735323, 6404537157, 11658376027
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=966；阶段=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=表[Table[Part[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]]，2]，{i，1，阶段-1}]
搜索在0.006秒内完成
| 