In[]:=
ParallelMapMonitored[TimeConstrained[MultiwaySystem[#,StringTuples["AB",4],4,"StatesGraphStructure"],4]#&,EnumerateSubstitutionSystemRules[{22,22},2]]
Out[]=
In[]:=
WeaklyConnectedComponents[MultiwaySystem[{"AA""BB","BB""AA"},StringTuples["AB",5],8,"StatesGraph"]]
Out[]=
{{AABBB,BBBBB,AABAA,AAAAB,BAABB,BBAAB,BBBAA,ABBAB,BAAAA,BABBA},{ABAAB,ABBBB,ABBAA,AAABB,AAAAA,BBABB,AABBA,BBAAA,BBBBA,BAABA},{BAAAB,BBBAB,BABBB,AABAB,BABAA},{AAABA,BBABA,ABBBA,ABAAA,ABABB}}
In[]:=
WeaklyConnectedComponents[MultiwaySystem[{"AA""BB","BB""AA"},StringTuples["AB",6],10,"StatesGraph"]]
Out[]=
{{ABBAAA,ABBBBA,ABBABB,AAAAAA,ABAABA,AAABBA,AAAABB,AABBAA,BBAAAA,BBABBA,AABBBB,BBAABB,BBBBAA,AABAAB,BBBBBB,BAABAA,BBBAAB,BAABBB,BAAAAB,BABBAB},{AABAAA,BBBAAA,AABABB,AABBBA,BBBABB,BBBBBA,BAAAAA,AAAABA,BAAABB,BAABBA,BBAABA,BABBAA,ABBABA,BABBBB,BABAAB},{AAABBB,AAAAAB,AAABAA,ABBBBB,BBABBB,ABBAAB,AABBAB,BBAAAB,BBABAA,ABBBAA,ABAABB,BBBBAB,ABAAAA,BAABAB,ABABBA},{BBABAB,AAABAB,ABBBAB,ABAAAB,ABABBB,ABABAA},{BABABB,BABAAA,BABBBA,BAAABA,BBBABA,AABABA}}
In[]:=
Map[LetterCounts[#,2]&,%275,{2}]
Out[]=
In[]:=
Table[Length[WeaklyConnectedComponents[MultiwaySystem[{"AA""BB","BB""AA"},StringTuples["AB",n],20,"StatesGraph"]]],{n,7}]
Out[]=
{0,1,2,3,4,5,6}
In[]:=
Table[Length[WeaklyConnectedComponents[MultiwaySystem[{"AB""AA","BB""BA"},StringTuples["AB",n],20,"StatesGraph"]]],{n,7}]