| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，由“规则485”定义的二维细胞自动机生长的第n阶段中活跃（ON，黑色）细胞数量的部分和。
+10
1
1, 9, 14, 54, 71, 179, 216, 420, 473, 809, 898, 1378, 1499, 2147, 2304, 3192, 3349, 4445, 4714, 6070, 6331, 8019, 8348, 10368, 10773, 13161, 13638, 16442, 16951, 20127, 20796, 24376, 25077, 29193, 30078, 34706, 35631, 40791, 41724, 47496, 48669, 55025, 56178
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=485；阶段=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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
表[Total[Part[on，Range[1，i]]]，{i，1，Length[on]}]（*每个阶段的总和*）
基于5细胞von Neumann邻域，“规则485”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的第一个差异。
+10
1
7, -3, 35, -23, 91, -71, 167, -151, 283, -247, 391, -359, 527, -491, 731, -731, 939, -827, 1087, -1095, 1427, -1359, 1691, -1615, 1983, -1911, 2327, -2295, 2667, -2507, 2911, -2879, 3415, -3231, 3743, -3703, 4235, -4227, 4839, -4599, 5183, -5203, 5727, -5623
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=485；阶段=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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
表[on[i+1]-on[i]]，{i，1，长度[on]-1}]（*每个阶段的差异*）
基于5细胞von Neumann邻域，“规则485”定义的二维细胞自动机第2^n-1阶段的活动（ON，黑色）细胞数。
+10
0
1, 8, 40, 204, 888, 3580, 14648, 59792, 239668, 960664, 3844852, 15388808, 61571632, 246305788, 985328220, 3941279788
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=485；阶段=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}]；
on=映射[Function[Apply[Plus，Flatten[#1]]]，ca]（*在每个阶段计数on单元格*）
第[on，2^Range[0，Log[2，stages]]]部分（*提取相关术语*）
搜索在0.005秒内完成
| 