| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，“规则417”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的二进制表示。
+10
4
1, 0, 101, 10, 10001, 100, 1010001, 100100, 100000001, 1111100, 10100000101, 1001010010, 1000000000001, 11111111100, 101000000000101, 10010111010010, 10000000000000001, 111111111111100, 1010000000000000101, 100101111111110010, 100000000000000010001
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=417；阶段=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[Part[ca[[i]][[i]]，范围[1，i]]，10]，｛i，1，阶段-1｝]
基于5细胞von Neumann邻域，“规则417”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的十进制表示。
+10
4
1, 0, 5, 2, 17, 4, 81, 36, 257, 124, 1285, 594, 4097, 2044, 20485, 9682, 65537, 32764, 327685, 155634, 1048593, 522180, 5242961, 2479396, 16777217, 8378364, 83886085, 39802354, 268435473, 133551428, 1342177297, 634737988, 4294967313, 2144687428, 21474836501
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=417；阶段=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[Part[ca[[i]][[i]]，范围[1，i]]，2]，｛i，1，阶段-1｝]
基于5细胞von Neumann邻域，“规则417”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的十进制表示。
+10
4
1, 0, 5, 4, 17, 8, 69, 36, 257, 248, 1285, 1188, 4097, 4088, 20485, 19364, 65537, 65528, 327685, 327588, 1114113, 588792, 4521989, 2403236, 16777217, 16756728, 83886085, 83537828, 285212673, 145419256, 1140850693, 581610404, 4563402753, 2326441976
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=417；阶段=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]]，2]，{i，1，阶段-1}]
搜索在0.005秒内完成
| 