Wolfram Cloud Page

<<MultiwaySystems`Multiway`

<<"Universe-97/TimeNetworks.m"

MWEvolve[rule_,init_,t_]:=Nest[MWStep[rule,#]&,init,t]

MWEvolveSS[rule_,init_,t_,max_:300]:=Catch[Nest[If[Length[#]>max,Throw[#],MWStep[rule,#]]&,init,t]]

MWEvolveSS[{"B""ABBA","A""BBBA"},{"BABBA"},8,50];

Length[%]

789

Table[RandomSMW[3,4],{20}]

{{BABBAAAA,ABAAA,ABAAB},{ABBBB,AABAA,ABB},{ABBA,ABBAABA,ABB},{ABAB,BAA,AAABBB},{AABBB,BAABAAAB,ABAABABA},{ABBAB,ABAABB,BBBBABB},{BBBBAABA,BBAAAABA,BBABB},{ABBB,BAB,AABA},{AAAA,AAB,BBBB},{BBAABA,ABBBA,ABAABBB},{BBBAABA,AABAB,BAB},{ABAAABAB,AABB,AAABB},{BAAAA,BBBAA,BBAABBAA},{AB,BBBBA,AAB},{BBBABA,ABB,ABABABAB},{BBB,AAABBB,BAB},{BAA,BAB,BAAAA},{ABAAAA,AAABAA,BAAA},{BAAAABA,BBA,ABBA},{BAABA,ABB,AAABA}}

MapIndexed[Catch[Show[LabelWrapper[RPadGraphics[Sort[FromChars/@If[Length[#]<1,Throw[{}],#]&@MWEvolveSS[#1,{"BABBA"},8,40]]],BigFont[#2]]]]&,%];

{{2,

MWEvolveTest[rule_,init_,t_,max_:300]:=Nest[Function[a,If[Length[a]>max,Throw[False],If[#===a,Throw[False],#]&@MWStep[rule,a]]],init,t]

InterfaceAverage[str_]:=Apply[Plus,Length[StringPosition[#,{"AB","BA"}]]/StringLength[#]&/@str]/Length[str]

GrowthTest[rule_,init_]:=TimeConstrained[If[#===False||Length[#]<10||!(.15<InterfaceAverage[#]<.9),False,Length[Union[MWEvolveList[rule,#,4]]]5]&@Catch[Fold[MWEvolveTest[rule,#1,#2[[1]],#2[[2]]]&,init,{{2,5},{3,10},{5,30},{10,200},{10,500}}]],.2,False]