%I#13 2022年5月16日02:43:05
%S 1,0,1,1,1,1,0,1,1,1,1,1,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,
%T 1,1,1,1,1,1,1,1,1,1,1,1,0,1,1,11,1,1,2,1,1,1,1,1,1,1,1-1,1,1,1,
%U 1,1,1,1,1,1,1,1,1,1,1,0,1,1,11,1,1,1
%N由行读取的三角形,给出由“规则245”生成的元胞自动机的连续状态,由单个ON(黑色)单元启动。
%C行n的长度为2n+1。
%D S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第55页。
%H Robert Price,n的表,n=0..10000的a(n)</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/ElementaryCellularAutomaton.html“>基本元胞自动机</a>
%H S.Wolfram,<a href=“http://wolframscience.com/“>一种新的科学</a>
%H<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
%H<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>基本元胞自动机索引</a>
%e前十行:
%第1页
%e 0 1 1
%e 1 1 0 1 1
%e 1 1 1 1 0 1 1
%e 11 1 1 1 1 0 1 1
%e 1 1 1 1 11 1 1 1 0 1 1
%e 11 11 11 11 1 1 1 1 10 1
%e 11 11 11 11 1 1 1 1 11 1 1 10 1
%e 11 11 11 11 1 1 1 1 11 1 1 11 11 1 0 1 1
%e 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1
%t规则=245;行=20;ca=细胞自动机[规则,{{1},0},行-1,{All,All}];(*以单个黑色单元格开始*)catri=表[Take[ca[[k]],{rows-k+1,rows+k-1}],{k,1,rows}];(*每行的截断列表*)展平[catri](*CA的三角形表示*)
%Y参见A267923、A267924、A266678(中央列)、A265186(倒置行)。
%K non,tabf,简单
%O 0(零)
%2016年1月22日A _罗伯特价格
|