显示找到的3个结果中的1-3个。
第页1
基于5细胞von Neumann邻域,“规则395”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的二进制表示。
+10 4
1, 1, 111, 100, 11101, 10111, 1110100, 1010101, 111010111, 101110100, 11101010101, 10101110111, 1110101010100, 1011101110101, 111010101010111, 101011101110100, 11101010101010101, 10111010101110111, 1110101010101010100, 1010111010101110101
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
当n>19时,a(n)=-a(n-1)+a(n-3)+a。
通用公式:(-100000000*x^19-1000000000*x^18-1000000000*x^17+1000000000*x ^15+90000000*x×^12+901000000*x ^11+11100000*x ^9+11999000*x ^7+1120000*x ^6+211000*x ^5+11199*x ^4+210*x ^3+112*x ^2+2*x+1)/(100000000*x^12+100000000*x)。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=395;阶段=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[Part[ca[i]][[i]],Range[1,i],10],{i,1,stages-1}]
基于5细胞von Neumann邻域,“规则395”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的二进制表示。
+10 4
1, 10, 111, 10, 10111, 111010, 10111, 10101010, 111010111, 10111010, 10101010111, 111011101010, 10101010111, 10101110111010, 111010101010111, 10111011101010, 10101010101010111, 111011101010111010, 10101010101010111, 10101110101011101010
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
当n>19时,a(n)=-10*a(n-1)+1000*a(n3)+10000*a(n-4)+a(n-8)+10*a。
通用公式:(-10000000*x ^19-1000000000*x ^18-100000000*x ^17+1000000*x ^15-90000*x×^12+991000*x ^11+1100*x ^9-99790*x ^8-8880*x ^7+211*x ^6+1120*x ^5-9789*x ^4+120*x ^3+211*x ^2+20*x x+1)/。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=395;阶段=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[Part[ca[[i]][[i]],范围[i,2*i-1]],10],{i,1,阶段-1}]
基于5细胞von Neumann邻域,“规则395”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的十进制表示。
+10 4
1, 1, 7, 4, 29, 23, 116, 85, 471, 372, 1877, 1399, 7508, 6005, 30039, 22388, 120149, 95607, 480596, 357749, 1922391, 1537396, 7689557, 5731703, 30758228, 24474997, 123032919, 91583860, 492131669, 393573751, 1968526676, 1467315573, 7874106711, 6265599348
参考文献
S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第170页。
配方奶粉
a(n)=-a(n-1)+a(n-3)+a。
通用公式:(-512*x^19-512*x^18-512*x ^17+512*x ^15+128*x ^12+160*x ^11+192*x ^9+248*x ^8+168*x ^7+128*x^6+44*x ^5+31*x ^4+10*x ^3+8*x ^2+2*x+1)/(256*x^12+256*x ^11-256*x ^9-256*x×^8-x^4-x^3+x+1)。(结束)
数学
CAStep[rule_,a_]:=映射[rule[[10-#]]&,ListConvolve[{{0,2,0},{2,1,2},},a,2],{2}];
代码=395;阶段=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[Part[ca[i]][[i]],Range[1,i],2],{i,1,stages-1}]
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日15:17。包含376087个序列。(在oeis4上运行。)
|