%I#27 2016年1月30日14:39:21
%S 1,1,1,1,0,0,0,1,1,1,1,0,1,1,1,1,1,1,0,1,0,0,0,00,01,1,1,1,
%T 1,1,0,0,0,1,0,0,0,00,01,0,1,1,1,1,0,1,1,1,0,1,1,0,
%U 0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
%N行读取的三角形,给出“规则22”生成的细胞自动机的连续状态。
%C行n的长度为2n+1。
%D S.Wolfram,《一种新的科学》,Wolfram Media,2002年;第3章。
%H Michael De Vlieger,n的表,n=0..10000的a(n)</a>
%H Michael De Vlieger,前256代插图</a>
%H S.Wolfram,<a href=“http://wolframscience.com/“>一种新的科学</a>
%H<a href=“https://oeis.org/wiki/Index_to_Elementary_Cellular_Automata网站“>初等元胞自动机索引</a>
%H<a href=“/index/Ce#cell”>与细胞自动机相关的序列的索引条目</a>
%e来自Michael De Vlieger_,2015年10月5日:(开始)
%e前8行,将“0”替换为“.”,以便更好地查看ON单元格:
%第1页
%e 11 11
%e 1。1
%e 11 1。1 1 1
%e 1。1
%e 1 1 1。1 1 1
%e 1。1 . . . 1 . . . 1
%e 11 1。1 1 1 . 1 1 1 . 1 1 1
%e 1。1
%e(结束)
%t clip[lst_]:=块[{p=Flatten@Position[lst,1]},取[lst、{Min@p、Max@p}]];clip/@CellularAutomaton[22,{1},0},9]//压扁(*Michael De Vlieger_,2015年10月5日*)
%Y有关ON电池的数量,请参见A071044。
%K nonn,标签
%0、1
%A Hans Havermann,2002年5月26日
%E由Hans Havermann修订,2012年1月7日
|