| 显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域，“规则133”定义的二维细胞自动机第n个生长阶段中活动（ON，黑色）细胞数的部分和。
+10
1
1, 9, 13, 53, 70, 170, 195, 379, 435, 752, 800, 1229, 1349, 1998, 2070, 2903, 3031, 4104, 4272, 5505, 5817, 7446, 7558, 9603, 9883, 12043, 12448, 15000, 15393, 18477, 18854, 22250, 22779, 26651, 27188, 31380, 32161, 37033, 37658, 43082, 43799, 49703, 50564
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[｛0，2，0｝，｛2，1，2｝，｛0，2，0｝｝，a，2]，｛2｝]；
代码=133；阶段=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邻域，由“规则133”定义的二维细胞自动机生长的第n阶段中活性（ON，黑色）细胞数量的第一个差异。
+10
1
7, -4, 36, -23, 83, -75, 159, -128, 261, -269, 381, -309, 529, -577, 761, -705, 945, -905, 1065, -921, 1317, -1517, 1933, -1765, 1880, -1755, 2147, -2159, 2691, -2707, 3019, -2867, 3343, -3335, 3655, -3411, 4091, -4247, 4799, -4707, 5187, -5043, 5575, -5523
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[｛0，2，0｝，｛2，1，2｝，｛0，2，0｝｝，a，2]，｛2｝]；
代码=133；阶段=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邻域，“规则133”定义的二维细胞自动机第2^n-1阶段的活动（ON，黑色）细胞数。
+10
0
1, 8, 40, 184, 833, 3396, 13808, 55997, 224172, 899277, 3601904, 14404537, 57636288, 230552981, 922356789, 3689638640
参考文献
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
数学
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[｛0，2，0｝，｛2，1，2｝，｛0，2，0｝｝，a，2]，｛2｝]；
代码=133；阶段=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.011秒内完成
| 