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]
In[]:=
Out[]=
Graphics[Point[Catenate@MapIndexed[{ToCoords[#],-First[#2]}&,MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],10],{2}]],AspectRatio1]
In[]:=
Out[]=
Graph3D[UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",4]],7,"StatesGraph"]]]
In[]:=
Out[]=
Graph3D[UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",6]],20,"StatesGraphStructure"]]]
In[]:=
Out[]=
UndirectedGraph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",4]],7,"StatesGraph"]]
In[]:=
Out[]=
MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],10,"CriticalPairs"]
In[]:=
{{ABBABA,BAABBA},{ABBABA,BABAAB},{BAABBA,BABAAB},{ABABBA,ABBAAB},{ABABBA,BAABAB},{ABBAAB,BAABAB},{AABBBA,ABABAB},{ABABAB,BAAABB},{AABBAB,ABAABB}}
Out[]=
Table[MultiwaySystem[{"BA""AB"},StringJoin@Table["BA",3],t,"BranchialGraph"],{t,10}]
In[]:=
Out[]=
GraphEmbedding
,Automatic,1
In[]:=
{{-0.866025},{1.83697×},{0.866025}}
-16
10
Out[]=
Table[MultiwaySystem[{"""A","""B"},"",t,"BranchialGraph"],{t,4}]
In[]:=
Out[]=
Table[Graph[MultiwaySystem[{"""A","""B"},"",t,"BranchialGraphStructure"],GraphLayout"LinearEmbedding"],{t,4}]
In[]:=
Out[]=
Table[Graph[MultiwaySystem[{"BA""AB"},StringJoin[Table["BA",4]],t,"BranchialGraph"],GraphLayout"LinearEmbedding",ImageSize600],{t,2,7}]
In[]:=
Out[]=
allrules=;
In[]:=
First/@Gather[ParallelMapMonitored[Catch[Module[{u},Do[u=MultiwaySystem[#,"A",t,"BranchialGraphStructure"];If[VertexCount[u]>150||EdgeCount[u]>150,Throw[u]],{t,9}];u]]#&,Catenate[allrules]],IsomorphicGraphQ[First[#],First[#2]]&]
In[]:=
Out[]=
Graph[First[#],GraphLayout"LinearEmbedding"]&/@%178
In[]:=
Out[]=
Table[Graph[MultiwaySystem[{"A""AB"},"AA",t,"BranchialGraph"],ImageSize{600,30}],{t,7}]//Column
In[]:=
Out[]=
Table[Graph[MultiwaySystem[{"A""AB"},"AAA",t,"BranchialGraph"]],{t,7}]//Column
In[]:=
Out[]=