In[]:=
srules=If[FromDigits[IntegerDigits[#,2,8][[{1,5,3,7,2,6,4,8}]],2]<#,Nothing,#]&/@Range[0,255,2];
In[]:=
GraphicsGrid[Partition[Labeled[ArrayPlot[CellularAutomaton[#,{{1},0},{30,All}]],Style[Text[StringTemplate["rule ``"][#]],Small]]&/@Take[srules,14],UpTo[5]]]
Out[]=
In[]:=
Length[%]
Out[]=
14
In[]:=
Length[%]
Out[]=
256
In[]:=
GraphicsGrid[Partition[Labeled[ArrayPlot[CellularAutomaton[#,{{1},0},{30,All}]],Style[Text[StringTemplate["rule ``"][#]],Small]]&/@Range[0,30,2],UpTo[4]]]
Out[]=
TuringMachine
In[]:=
RulePlot[TuringMachine[{596440,2,3}],{1,{{},0}},50]
Out[]=
In[]:=
GraphicsGrid[Partition[Table[Labeled[RulePlot[TuringMachine[{596440+i,2,3}],{1,{{},0}},50],Style[Text[StringTemplate["machine ``"][596440+i]],Small]],{i,-10,10}],5]]
Out[]=
Circular CA
Circular CA
GraphicsRow[Labeled[RulePlot[CellularAutomaton[{1329,{3,1},1}],CenterArray[IntegerDigits[#[[1]],3],500],250,PlotRange->{Automatic,#[[2]]},ImageSize->{Automatic,500}],Text[Style[ToString[#[[1]]]<>"\n"<>#[[3]],Italic,TextAlignment->Center]],ImageSize->{Automatic,530}]&/@{{1,{235,265},"(period 78)"},{52,{235,265},"(period 7)"},{400,{235,265},"(period 2)"},{800,{235,265},"(period 12)"},{916,{230,290},"(period 31R)"},{2617,{220,280},"(period 9)"},{2669,{230,290},"(period 48R)"},{97357,{235,265},"(period 2)"},{659197,{235,265},"(period 9)"}},ImageSize->{Automatic,610}]
Labeled[RulePlot[CellularAutomaton[{1329,{3,1},1}],CenterArray[IntegerDigits[#[[1]],3],500],250,PlotRange->{Automatic,#[[2]]},ImageSize->{Automatic,500}],Text[Style[ToString[#[[1]]]<>"\n"<>#[[3]],Italic,TextAlignment->Center]],ImageSize->{Automatic,530}]
In[]:=
GraphicsGrid[Partition[Table[Labeled[ArrayPlot[CellularAutomaton[{1329,{3,1},1},{IntegerDigits[i,3],0},{200,{-15,15}}],ColorRules->"Colors"],Style[Text[i],Small]],{i,40}],20]]
Out[]=
In[]:=
With[{i=916},Labeled[ArrayPlot[CellularAutomaton[{1329,{3,1},1},{IntegerDigits[i,3],0},200],ColorRules->"Colors"],Style[Text[i],Small]]]
Out[]=
916 |
In[]:=
Table[With[{i=54889},Labeled[ArrayPlot[CellularAutomaton[{1329,{3,1},1},{IntegerDigits[i,3],0},t],ColorRules->"Colors"],Style[Text[i],Small]]],{t,{200,1000}}]
Out[]=
,
54889 |
54889 |
GoL
GoL