In[]:=
ToCoords[s_]:=FromDigits[LetterNumber[Characters[s]]-1,2]
In[]:=
Graphics[Point[Catenate@MapIndexed[{ToCoords[#],-First[#2]}&,MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",6],100],{2}]],AspectRatio1]
Out[]=
In[]:=
Graphics[Point[Catenate@MapIndexed[{ToCoords[#],-First[#2]}&,MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],10],{2}]],AspectRatio1]
Out[]=
In[]:=
Graph3D[UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",4]],7,"StatesGraph"]]]
Out[]=
In[]:=
Graph3D[UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",6]],20,"StatesGraphStructure"]]]
Out[]=
In[]:=
UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",4]],7,"StatesGraph"]]
Out[]=
In[]:=
MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],10,"CriticalPairs"]
Out[]=
{{ABBABA,BAABBA},{ABBABA,BABAAB},{BAABBA,BABAAB},{ABABBA,ABBAAB},{ABABBA,BAABAB},{ABBAAB,BAABAB},{AABBBA,ABABAB},{ABABAB,BAAABB},{AABBAB,ABAABB}}
In[]:=
Table[MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],t,"BranchialGraph"],{t,10}]
Out[]=
In[]:=
GraphEmbedding
,Automatic,1