You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Neighbor-Independent Rules
Neighbor-Independent Rules
AAA
AAA
In[]:=
MultiwaySystem[{"A""AA"},"A",5,"EvolutionPlot"]
Out[]=
In[]:=
MultiwaySystem[{"A""AA"},"A",5,"EvolutionPlot","EvolutionEventRendering"->"PositionalPolygons","VerticalSpacing"3,"HorizontalSpacing"1]
Out[]=
MultiwaySystem[{"A""AA"},"A",5,"EvolutionPlot"]
In[]:=
MultiwaySystem[{"A""AA"},"A",5]
Out[]=
{{A},{AA},{AAA},{AAAA},{AAAAA},{AAAAAA}}
In[]:=
SubstitutionSystem[{"A""AA"},"A",5]
Out[]=
{A,AA,AAAA,AAAAAAAA,AAAAAAAAAAAAAAAA,AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}
In[]:=
MultiwaySystem[{"A""AA"},"A",5,"StatesGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AA"},"A",5,"EvolutionEventsGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AA"},"A",3,"EvolutionCausalGraph"]
Out[]=
In[]:=
MultiwaySystem[{"A""AA"},"A",3,"CausalGraph"]
Out[]=
AAB, BAB
AAB, BAB
In[]:=
MultiwaySystem[{"A""AB","B""AB"},"A",3,"EvolutionPlot"]
Out[]=
In[]:=
MultiwaySystem[{"A""AB","B""AB"},"A",5]
Out[]=
{{A},{AB},{AAB,ABB},{AAAB,AABB,ABAB,ABBB},{AAAAB,AAABB,AABAB,AABBB,ABAAB,ABABB,ABBAB,ABBBB},{AAAAAB,AAAABB,AAABAB,AAABBB,AABAAB,AABABB,AABBAB,AABBBB,ABAAAB,ABAABB,ABABAB,ABABBB,ABBAAB,ABBABB,ABBBAB,ABBBBB}}
In[]:=
ArrayPlot[Sort[MultiwaySystem[{{0}{0,1},{1}{0,1}},{{0}},8]//Last]]
Out[]=