Sequential CA as string rewrite
Sequential CA as string rewrite
In[]:=
#->ReplacePart[#,2->CellularAutomaton[30][#][[2]]]&/@Tuples[{1,0},3]
Out[]=
{{1,1,1}{1,0,1},{1,1,0}{1,0,0},{1,0,1}{1,0,1},{1,0,0}{1,1,0},{0,1,1}{0,1,1},{0,1,0}{0,1,0},{0,0,1}{0,1,1},{0,0,0}{0,0,0}}
In[]:=
Map[StringJoin,%/.{1"B",0"A"},{2}]
Out[]=
{BBBBAB,BBABAA,BABBAB,BAABBA,ABBABB,ABAABA,AABABB,AAAAAA}
In[]:=
MultiwaySystem[%,{"AABAA"},4,"EvolutionPlot"]
Out[]=
In[]:=
Graph[MultiwaySystem[%4,{"AABAA"},6,"EvolutionGraph"],VertexLabelsAutomatic]
Out[]=
In[]:=
Graph[#CellularAutomaton[30][#]&/@Tuples[{1,0},5],VertexLabelsAutomatic]
Out[]=
In[]:=
Graph[MultiwaySystem[%4,{"AAAABAAAA"},6,"EvolutionGraph"],VertexLabelsAutomatic]
Out[]=
In[]:=
MultiwaySystem[%4,{"AAAABAAAA"},6,"EvolutionGraph"]
Out[]=
In[]:=
CommunityGraphPlot[%]
Out[]=
The sorting substitution:
In[]:=
Graph[MultiwaySystem[{"AB""BA","BA""AB"},{"AAAABAAAA"},6,"EvolutionGraph"],VertexLabelsAutomatic]
Out[]=
[ See Confluence-01.nb ]
[ See Confluence-01.nb ]