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[]=