显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域,“规则533”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的二进制表示。
+10 4
1, 10, 100, 1001, 10010, 100100, 1001011, 10010001, 100101100, 1001000011, 10010111101, 100100010010, 1001011000000, 10010000111111, 100101111011101, 1001000100101010, 10010110011010000, 100100001000100111, 1001011110111011001, 10010001001010100110
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
当n>24时,a(n)=10001*a(n-4)-10000*a(n-8)。
通用公式:(99000000*x^24-991000000*x ^23+1000000*x^22+1000000*x^21-9999000*x^20-900*x^19-100*x^18-111011000*x^17+1101000*x*^16+1000*x ^15+1100*x^13-1100*x^12+9*x^11+90*x^10-89*x^9+1090*x*x^8-1000*x^7+911*x^6+90*x ^5+9*x ^4+1001*x^3+100*x ^2+10*x+1)/(10000*x^8-10001*x^4+1)。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=533;阶段=128;
规则=整数位数[code,2,10];
g=2*级+1;(*网格的最大尺寸*)
a=PadLeft[{{1}},{g,g},0,Floor[{g,g}/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]],Range[1,i],10],{i,1,stages-1}]
基于5细胞von Neumann邻域,“规则533”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的二进制表示。
+10 4
1, 1, 1, 1001, 1001, 1001, 1101001, 10001001, 1101001, 1100001001, 10111101001, 10010001001, 1101001, 11111100001001, 101110111101001, 101010010001001, 1011001101001, 111001000100001001, 1001101110111101001, 1100101010010001001, 110101011001101001
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
当n>24时,a(n)=10001*a(n-4)-10000*a(n-8)。
通用名称:(-99000000000000*x^24-90100000000000000*x^23+10000000000000*x^22+110000000000000*x^21+999990000000000000*x^20+99000000000000000*x^19-100000000000000000*x^18-11011100000000*x^17+1010000000000000*x^16+11000000000000*x^15+110000000000000*x^13-1100000000*x^12-90000000000*x^11-90000000000*x^10+1090000000000*x^9-8900000*x^8-10000*x^7+1091000*x^6-9000*x^5-9000*x^4+1001*x^3+x^2+x+1)/(10000*x^8-10001*x^4+1)。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=533;阶段=128;
规则=整数位数[code,2,10];
g=2*级+1;(*网格的最大尺寸*)
a=PadLeft[{{1}},{g,g},0,Floor[{g,g}/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邻域,“规则533”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的十进制表示。
+10 4
1, 2, 4, 9, 18, 36, 75, 145, 300, 579, 1213, 2322, 4800, 9279, 19421, 37162, 77008, 148007, 310745, 594598, 1232216, 2368039, 4971993, 9513126, 19715928, 37888551, 79551961, 152209574, 315455320, 606216743, 1272831449, 2435352742, 5047285592, 9699467815
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
当n>24时,a(n)=17*a(n-4)-16*a(n-8)。
通用公式:(384*x^24-448*x^23+64*x*^22+384*x^21-120*x^20-4*x^19-4*x^18-472*x^17+208*x^16+8*x^15+12*x^13-12*x^12+x^11+2*x^10-x^9+10*x ^8-8*x^7+7*x^6+2*x*x^5+x^4+9*x^3+4*x^2+2*x+1)/(16*x^8-17*x^4+1)。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=533;阶段=128;
规则=整数位数[code,2,10];
g=2*级+1;(*网格的最大尺寸*)
a=PadLeft[{{1}},{g,g},0,Floor[{g,g}/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]],Range[1,i],2],{i,1,stages-1}]
搜索在0.009秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日04:44。包含376079个序列。(在oeis4上运行。)
|