| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，“规则425”定义的二维细胞自动机从原点到第n个生长阶段角的对角线的二进制表示。
+10
4
1, 1, 110, 11, 10100, 10111, 1011000, 1001111, 100010000, 111011111, 11011100000, 1000111111, 1000101000000, 1110101111111, 110110110000000, 10010011111111, 10000000100000000, 11111110111111111, 1100000111000000000, 111110001111111111, 101000101010000000000
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=425；阶段=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}]
基于5细胞von Neumann邻域，“规则425”定义的二维细胞自动机从角到第n个生长阶段原点的对角线的十进制表示。
+10
4
1, 2, 3, 12, 5, 58, 13, 242, 17, 1006, 59, 4036, 81, 16302, 219, 65316, 257, 261886, 899, 1047676, 1349, 4192954, 3437, 16773778, 4353, 67104510, 15235, 268420220, 20805, 1073721018, 56173, 4294911122, 65537, 17179803646, 229379, 68719247356, 344069
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=425；阶段=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}]
基于5细胞von Neumann邻域，“规则425”定义的二维细胞自动机从原点到第n个生长阶段角的对角线的十进制表示。
+10
4
1, 1, 6, 3, 20, 23, 88, 79, 272, 479, 1760, 575, 4416, 7551, 28032, 9471, 65792, 130559, 396800, 254975, 1332224, 1529855, 5986304, 4804607, 16846848, 33415167, 101638144, 65159167, 340869120, 392003583, 1533902848, 1227161599, 4295032832, 8589803519
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=425；阶段=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}]
搜索在0.006秒内完成
| 