ResourceFunction["MultiwaySystem"][{"ABA"->"BBAA","BAA"->"AAB"},{"BABBAAB"},100,"StatesGraphStructure",VertexSize->15]
In[]:=
ArrayPlot[First/@ResourceFunction["SequentialSubstitutionSystem"][{{0,1,0}->{1,1,0,0},{1,0,0}->{0,0,1}},{1,0,1,1,0,0,1},40],Mesh->True]
Out[]=
ResourceFunction["SequentialSubstitutionSystemPlot"][ResourceFunction["SequentialSubstitutionSystem"][{{0,0,0,1}->{1,0,0},{0,0,0}->{1,1},{1}->{0,0,1}},{1,0,1},50],Frame->True,FrameTicks->None,Axes->False]
In[]:=
ResourceFunction["MultiwaySystem"][{{0,0,0,1}->{1,0,0},{0,0,0}->{1,1},{1}->{0,0,1}},{{1,0,1}},3,"StatesGraph","IncludeStepNumber"->True]
Out[]=
In[]:=
ResourceFunction["MultiwaySystem"][{{0,0,0,1}->{1,0,0},{0,0,0}->{1,1},{1}->{0,0,1}},{{1,0,1}},6,"StatesGraphStructure","IncludeStepNumber"->True,GraphLayout->"LayeredDigraphEmbedding",AspectRatio->1/2]
Out[]=
In[]:=
evo=ResourceFunction["SubstitutionSystemCausalEvolution"][{"A"->"BBB","BB"->"A"},"A",10]
Out[]=
{{A},{BBB,{{1,1}{1,3}}},{AB,{{1,2}{1,1}}},{BBBB,{{1,1}{1,3}}},{AA,{{1,2}{1,1},{3,4}{2,2}}},{BBBBBB,{{1,1}{1,3},{2,2}{4,6}}},{AAA,{{1,2}{1,1},{3,4}{2,2},{5,6}{3,3}}},{BBBBBBBBB,{{1,1}{1,3},{2,2}{4,6},{3,3}{7,9}}},{AAAAB,{{1,2}{1,1},{3,4}{2,2},{5,6}{3,3},{7,8}{4,4}}},{BBBBBBBBBBBBB,{{1,1}{1,3},{2,2}{4,6},{3,3}{7,9},{4,4}{10,12}}},{AAAAAAB,{{1,2}{1,1},{3,4}{2,2},{5,6}{3,3},{7,8}{4,4},{9,10}{5,5},{11,12}{6,6}}}}
In[]:=
ResourceFunction["SubstitutionSystemCausalPlot"][ResourceFunction["SubstitutionSystemCausalEvolution"][{"A"->"BBB","BB"->"A"},"A",10],"CausalGraph"->True,"EventLabels"->True]
Out[]=
In[]:=
ResourceFunction["SubstitutionSystemCausalPlot"][ResourceFunction["SubstitutionSystemCausalEvolution"][{"A"->"BBB","BB"->"A"},"A",10],"CausalGraph"->True,"EventLabels"->False]
Out[]=