显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域,“规则326”定义的二维细胞自动机第n个生长阶段中活动(ON,黑色)细胞数的部分和。
+10 1
1, 6, 10, 30, 39, 76, 100, 164, 177, 234, 278, 418, 467, 632, 700, 888, 960, 1216, 1352, 1728, 1853, 2302, 2518, 3094, 3291, 3860, 4148, 4876, 5149, 5890, 6190, 7098, 7511, 8544, 8892, 9984, 10489, 11758, 12194, 13342, 13879, 15340, 15976, 17636, 18244
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=326;阶段=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邻域,“规则326”定义的二维细胞自动机第n个生长阶段中活动(ON,黑色)细胞数的第一个差异。
+10 1
4, -1, 16, -11, 28, -13, 40, -51, 44, -13, 96, -91, 116, -97, 120, -116, 184, -120, 240, -251, 324, -233, 360, -379, 372, -281, 440, -455, 468, -441, 608, -495, 620, -685, 744, -587, 764, -833, 712, -611, 924, -825, 1024, -1052, 1112, -928, 1280, -1312, 1392
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=326;阶段=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邻域,由“规则326”定义的二维元胞自动机第2^n-1阶段的活动(ON,黑色)细胞数。
+10 0
1, 5, 20, 64, 188, 908, 3768, 15072, 61616, 244688, 978644, 3913036, 15637312, 62573512, 250302340, 1001208180
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=326;阶段=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秒内完成
|