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
In[]:=
MultiwaySystem["SubstitutionSystem"->{"BA""AA","AB""BA"},{"AAABAAA"},6,"EvolutionCausalGraph"]
Out[]=
In[]:=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"EvolutionCausalGraph"]
Out[]=
In[]:=
LayeredGraphPlot[MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"EvolutionCausalGraph"],VertexLabelsAutomatic]
Out[]=
In[]:=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},6,"EvolutionCausalGraph"]
Out[]=
In[]:=
LayeredGraphPlot[%]
Out[]=
Out[]=
In[]:=
MultiwaySystem["SubstitutionSystem"->{"AA""","BA""ABB","BB""A"},{"BBA"},4,"StatesGraph"]
Out[]=