In[]:=
allsigs={{11},{12},{13},{22},{11,11},{14},{23},{11,12},{12,11},{15},{24},{33},{11,13},{13,11},{11,22},{12,12},{12,21},{21,12},{22,11},{11,11,11},{16},{25},{34},{11,14},{14,11},{11,23},{12,13},{12,31},{13,12},{13,21},{21,13},{23,11},{31,12},{12,22},{22,12},{11,11,12},{11,12,11},{12,11,11}};
In[]:=
MultiwaySystem[{"A""AA","A""B"},"A",5]
Out[]=
{{A},{AA,B},{AAA,AB,BA},{AAAA,AAB,ABA,BAA,BB},{AAAAA,AAAB,AABA,ABAA,ABB,BAAA,BAB,BBA},{AAAAAA,AAAAB,AAABA,AABAA,AABB,ABAAA,ABAB,ABBA,BAAAA,BAAB,BABA,BBAA,BBB}}
In[]:=
gm=MultiwaySystem[{"A""AA","A""B"},"A",5,"StatesGraph"]
Out[]=
In[]:=
VertexList[gm]
Out[]=
{A,AA,B,AAA,AB,BA,AAAA,AAB,ABA,BAA,BB,AAAAA,AAAB,AABA,ABAA,ABB,BAAA,BAB,BBA,AAAAAA,AAAAB,AAABA,AABAA,AABB,ABAAA,ABAB,ABBA,BAAAA,BAAB,BABA,BBAA,BBB}
In[]:=
GraphNeighborhoodVolumes[gm,{"A"},Automatic]
Out[]=
A{1,3,6,11,19,32}
In[]:=
GraphNeighborhoodVolumes[MultiwaySystem[{"A""AA","A""B"},"A",10,"StatesGraph"],{"A"},Automatic]
Out[]=
A{1,3,6,11,19,32,53,87,142,231,375}
Basic function:
Basic function:
In[]:=
MWGrowth[rule_,inits_,t_Integer]:=GraphNeighborhoodVolumes[MultiwaySystem[rule,inits,t,"StatesGraph"],inits,Automatic]
In[]:=
EnumerateSubstitutionSystemRules[{11,12},2]
Out[]=
In[]:=
ParallelMapMonitored[MWGrowth[#,StringTuples["AB",3],15]&,EnumerateSubstitutionSystemRules[{11,12},2]]
(kernel 65)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 68)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 67)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
Out[]=
In[]:=
ParallelMapMonitored[#({#,Differences[#],Ratios[#]}&[MeanAround/@Transpose[Values[MWGrowth[#,StringTuples["AB",3],15]]]])&,EnumerateSubstitutionSystemRules[{11,12},2]]
(kernel 65)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 68)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 67)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
Out[]=
In[]:=
Last[%524]
Out[]=
In[]:=
If[Length[#[[2,1]]]<5,Nothing,First[#](ListPlot[#,PlotTheme"Minimal",PlotRange{0,Automatic},Ticks{None,Automatic}]&/@Last[#])]&/@%524
Out[]=
In[]:=
ParallelEvaluate[Off[BreadthFirstScan::inv]]
Out[]=
{Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null,Null}
In[]:=
Map[If[Length[#[[2,1]]]<5,Nothing,First[#](ListPlot[#,PlotTheme"Minimal",PlotRange{0,Automatic},Ticks{None,Automatic}]&/@Last[#])]&/@ParallelMapMonitored[TimeConstrained[#({#,Differences[#],Ratios[#]}&[MeanAround/@Transpose[Values[MWGrowth[#,StringTuples["AB",3],15]]]]),15]&,EnumerateSubstitutionSystemRules[#,2]]]&/@Take[allsigs,3]
(kernel 68)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 68)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 67)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 65)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 61)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 68)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 63)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 62)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
(kernel 65)
BreadthFirstScan::inv:The argument BBB in is not a valid vertex.
During evaluation of In[537]:=
Basic function:
Basic function:
From NKS
From NKS
https://www.wolframscience.com/nks/p205--multiway-systems/