GenerationalMultiwaySystem[{"A""AB","B""BA"},{"A"},5]
In[]:=
{{A},{AB},{ABBA},{ABBABAAB},{ABBABAABBAABABBA},{ABBABAABBAABABBABAABABBAABBABAAB}}
Out[]=
GenerationalMultiwaySystem[{"A""AB","B""A"},{"A"},5]
In[]:=
{{A},{AB},{ABA},{ABAAB},{ABAABABA},{ABAABABAABAAB}}
Out[]=
EnumerateSubstitutionSystemRules[{22},2]
In[]:=
{{AAAA},{AAAB},{AABB},{ABAA},{ABAB},{ABBA}}
Out[]=
Graph[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"],VertexLabelsAutomatic]&/@EnumerateSubstitutionSystemRules[{22},2]
In[]:=
Out[]=
EnumerateSubstitutionSystemRules[{12},2]
In[]:=
{{AAA},{AAB},{ABB}}
Out[]=
Graph[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"],VertexLabelsAutomatic]&/@EnumerateSubstitutionSystemRules[{12},2]
In[]:=
Out[]=
EnumerateSubstitutionSystemRules[{12,12},2]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraph"]#&,EnumerateSubstitutionSystemRules[{12,12},2]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[{#,GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"],MultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"]}#&,EnumerateSubstitutionSystemRules[{12,12},2]]]
In[]:=
Out[]=
InteractiveListSelectorSW[ParallelMapMonitored[{#,GenerationalMultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"],MultiwaySystem[#,StringTuples["AB",2],3,"StatesGraphStructure"]}#&,EnumerateSubstitutionSystemRules[{12,11},2]]]
In[]:=
Out[]=
%309[[10]]
In[]:=
{AAB,ABB}
Out[]=
Graph[GenerationalMultiwaySystem[{"A""AB","A""BB"},{"A"},5,"StatesGraph"],VertexLabelsAutomatic]
In[]:=
Out[]=
Graph[GenerationalMultiwaySystem[{"A""AB","A""BB"},{"AA"},5,"StatesGraph"],VertexLabelsAutomatic]
In[]:=
Out[]=
MultiwaySystem[{"A""AB","A""BB"},{"AA"},5,"StatesGraph"]
In[]:=
Out[]=
HighlightGraph[MultiwaySystem[{"A""AB","A""BB"},{"AA"},5,"StatesGraphStructure"],VertexList[GenerationalMultiwaySystem[{"A""AB","A""BB"},{"AA"},5,"StatesGraph"]]]
In[]:=
Out[]=
LayeredGraphPlot[HighlightGraph[MultiwaySystem[{"A""AB","A""BB"},{"AA"},8,"StatesGraphStructure"],VertexList[GenerationalMultiwaySystem[{"A""AB","A""BB"},{"AA"},8,"StatesGraph"]]],AspectRatio1/2]
In[]:=
Out[]=
GraphNeighborhoodVolumes[GenerationalMultiwaySystem[{"A""AB","A""BB"},{"AA"},20,"StatesGraph"],{"AA"}]
In[]:=
AA{1,5,12,20,29,39,50,62,75,89,104,120,137,155,174,194,215,237,260,284,309}
Out[]=
GraphNeighborhoodVolumes[MultiwaySystem[{"A""AB","A""BB"},{"AA"},20,"StatesGraph"],{"AA"}]
In[]:=
AA{1,5,12,21,32,45,60,77,96,117,140,165,192,221,252,285,320,357,396,437,480}
Out[]=
Values[%%]/Values[%]
In[]:=
1,1,1,
20
21
,
29
32
,
13
15
,
5
6
,
62
77
,
25
32
,
89
117
,
26
35
,
8
11
,
137
192
,
155
221
,
29
42
,
194
285
,
43
64
,
79
119
,
65
99
,
284
437
,
103
160

Out[]=
N[%]
In[]:=
{{1.,1.,1.,0.952381,0.90625,0.866667,0.833333,0.805195,0.78125,0.760684,0.742857,0.727273,0.713542,0.701357,0.690476,0.680702,0.671875,0.663866,0.656566,0.649886,0.64375}}
Out[]=
ListLinePlot[%]
In[]:=
Out[]=
LayeredGraphPlot[HighlightGraph[MultiwaySystem[{"A""AA","A""BB"},{"AA"},3,"StatesGraphStructure"],VertexList[GenerationalMultiwaySystem[{"A""AA","A""BB"},{"AA"},3,"StatesGraph"]]],AspectRatio1/2]
In[]:=
Out[]=
LayeredGraphPlot[HighlightGraph[MultiwaySystem[{"A""AA","A""BB"},{"AA"},4,"StatesGraphStructure"],VertexList[GenerationalMultiwaySystem[{"A""AA","A""BB"},{"AA"},4,"StatesGraph"]]],AspectRatio1/2]
In[]:=
$Aborted
Out[]=