搜索： a284026-编号：a284026
|
| |
|
|
A284024型
|
| 基于5细胞von Neumann邻域，“规则782”定义的二维细胞自动机第n个生长阶段的x轴从左边缘到原点的二进制表示。 |
|
+10
4
|
|
|
|
1, 11, 111, 1101, 11001, 111011, 1111111, 11010111, 110010111, 1110111101, 11111101101, 110101100101, 1100100100101, 11101110001101, 111111110011001, 1101011100011011, 11001011000011111, 111011111000010111, 1111110101100010111, 11010110000100010101
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
在零级用单个黑色（ON）单元初始化。
|
|
|
参考文献
|
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
|
|
|
链接
|
|
|
|
公式
|
a（n）=a（n-1）-a（n-2）+a（n-3）+100000000*a。
通用名称：（1000000000000*x^32+1010000000000*x^30+1000000000*x^28+1010000000000*x^27-10000000000*x^26+9900000000*x ^25-1000100000*x ^24-10100000000*x×^23-901000100*x ^22-10100000000*x^21-99000000100*x ^20-1010*x ^19-9999999900*x^18+989999010*x 0*x^11-10000*x^10+999999 0*x*9+100*x^8+9999010*x^7+1010000*x^6+101000*x*5+10000*x^4+1000*xs^3+101*x^2+10*x+1）/（100000000*x*^11-100000000*x ^10+100000000*x|9-100000000*x-^8-x^3+x^2-x+1）。（完）
|
|
|
数学
|
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=782；阶段=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=表[Table[Part[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}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A284025型
|
| 基于5细胞von Neumann邻域，“规则782”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的二进制表示。 |
|
+10
4
|
|
|
|
1, 11, 111, 1011, 10011, 110111, 1111111, 11101011, 111010011, 1011110111, 10110111111, 101001101011, 1010010010011, 10110001110111, 100110011111111, 1101100011101011, 11111000011010011, 111010000111110111, 1110100011010111111, 10101000100001101011
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
在零级用单个黑色（ON）单元初始化。
|
|
|
参考文献
|
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
|
|
|
链接
|
|
|
|
公式
|
当n>32时，a（n）=10*a（n-1）-100*a（n-2）+1000*a。
通用名称：（1000000000000000000*x^32+1010000000000000*x^30+100000000000000*x^28+1010000000000000*x ^27-100000000000000*x^26-99000000000000*x^25-100010001000000000000*x ^24-101000000000**x^23-101000009901000000000*x ^22-10100000000000*x00000000*x^17+9999000000000*x^16+100990000000000*x^15-990100000000*x^14-100000000*x ^13-100000000*x^12-9999010000*x^11-1000000*x ^10-99999900*x ^9+1000000*x^8+990001*x ^7+101*x ^6+101*x^5+x^4+x^3+101*x^2+x+1）/（（x-1）*（x+1）*（10*x-1）+1）*（x^4+1））。（完）
|
|
|
数学
|
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=782；阶段=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=表[Table[Part[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}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
| |
|
|
A284027型
|
| 基于5细胞von Neumann邻域，“规则782”定义的二维细胞自动机第n个生长阶段的x轴从原点到右边缘的十进制表示。 |
|
+10
4
|
|
|
|
1, 3, 7, 11, 19, 55, 127, 235, 467, 759, 1471, 2667, 5267, 11383, 19711, 55531, 127187, 238071, 476863, 690283, 1118355, 3285111, 6291711, 8388843, 16777427, 50332151, 100665023, 134219883, 268439699, 805314679, 1610612991, 2147483883, 4294967507
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
0,2
|
|
|
评论
|
在零级用单个黑色（ON）单元初始化。
|
|
|
参考文献
|
S.Wolfram，《一种新的科学》，Wolfram Media，2002年；第170页。
|
|
|
链接
|
|
|
|
公式
|
当n>32时，a（n）=2*a（n-1）-4*a（n-2）+8*a（n3）+a（n-8）-2*a（no-9）+4*a（名词-10）-8*a（n-11）。
总经理：（1048576*x^32+1310720*x^30+262144*x^28+327680*x^27-65536*x^26-49152*x^25-1118208*x^24-20480*x^23-1324032*x^22-5120*x^21-259072*x^20-327680*x^19+65280*x*x^18+48384*x^17+3840*x^16+19456*x^15-3328*x^14-256*x^13-256*x^12-976*x ^11-64*x^10-252*x^9+64*x*8+49*x^7+5*x^6+5*x^5+x^4+x^3+5*x^2+x+1）/（（x-1）*（x+1）*（2*x-1）x（x^2+1）*。（完）
|
|
|
数学
|
CAStep[rule_，a_]：=映射[rule[[10-#]]&，ListConvolve[{{0，2，0}，{2，1，2}，}，a，2]，{2}]；
代码=782；阶段=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=表[Table[Part[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]]，2]，{i，1，阶段-1}]
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,容易的
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
搜索在0.006秒内完成
|
