In[]:=
GenerationalMultiwaySystem[{"A""AB","B""BA"},{"A"},5]
Out[]=
{{A},{AB},{ABBA},{ABBABAAB},{ABBABAABBAABABBA},{ABBABAABBAABABBABAABABBAABBABAAB}}
In[]:=
GenerationalMultiwaySystem[{"A""AB","B""A"},{"A"},5]
Out[]=
{{A},{AB},{ABA},{ABAAB},{ABAABABA},{ABAABABAABAAB}}
In[]:=
EnumerateSubstitutionSystemRules[{22},2]
Out[]=
{{AAAA},{AAAB},{AABB},{ABAA},{ABAB},{ABBA}}
In[]:=
Graph[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"],VertexLabelsAutomatic]&/@EnumerateSubstitutionSystemRules[{22},2]
Out[]=
In[]:=
EnumerateSubstitutionSystemRules[{12},2]
Out[]=
{{AAA},{AAB},{ABB}}
In[]:=
Graph[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"],VertexLabelsAutomatic]&/@EnumerateSubstitutionSystemRules[{12},2]
Out[]=
In[]:=
EnumerateSubstitutionSystemRules[{12,12},2]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"]#&,EnumerateSubstitutionSystemRules[{12,12},2]]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[{#,GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"],MultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"]}#&,EnumerateSubstitutionSystemRules[{12,12},2]]]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[{#,GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"],MultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"]}#&,EnumerateSubstitutionSystemRules[{12,11},2]]]
Out[]=