In[]:=
sigsA[n_]:=DeleteDuplicates[Sort@(Rule@@@Partition[StringRepeat["A",#]&/@#,2])&/@Catenate[Permutations@*Reverse/@Select[IntegerPartitions[n],EvenQ@*Length]]]
In[]:=
sigsA[6]
Out[]=
{{AAAAAA},{AAAAAA},{AAAAAA},{AAAAAA},{AAAAAA},{AA,AAAA},{AA,AAAA},{AA,AAAA},{AAA,AAA},{AAA,AAA},{AAA,AAA},{AA,AA,AA}}
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[6],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[2],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[3],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[4],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[5],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[6],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[7],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[8],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[9],First]]
Out[]=
In[]:=
InteractiveListSelectorSW[First/@GatherBy[SubstitutionSystemCausalGraph[#,"A",3]#&/@sigsA[10],First]]
Out[]=
Summary
Summary
Multiway structure
Multiway structure