You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Table[RandomSMWGivenLHS[fnonover,6],{10}]
{{AABBBBB,AABABA},{AABBBABBABA,AABABAB},{BBAAA,BBABAAB},{BBABAAA,BBAAABAAAAB},{AABABBB,AABBAAB},{ABABBBB,AABBBBBBB},{BBAAABB,BABAABBB},{AABBBBABA,AABABA},{ABABBABBAA,AAABBBBBB},{BBABAB,BBAAAAB}}
Select[%,InterestingRuleQ]
{}
Table[RandomSMWGivenLHS[fnonover,6],{5000}];
Select[%,InterestingRuleQ]
{}
Table[RandomSMWGivenLHS[fnonover,7],{10000}];
Select[%,InterestingRuleQ]
{}
Select[Table[RandomSMWGivenLHS[fnonover,6],{10000}],InterestingRuleQ]
%
{}
Select[Table[RandomSMWGivenLHS[fnonover,6],{10000}],InterestingRuleQ[#,"ABBAAAABBBAA"]&]
{}
rinit="AABBAABAAABABBAABABAABBABBAAABBBABAAAABABAAAAABBBB";
Table[RuleChecker[RandomSMWGivenLHS[fnonover,6],rinit],{1000}];
Cases[%,_List]
{{Partially cyclic,{BBABABAAA,BBAAABBBAB}},{Partially cyclic,{BBAABBBAB,BABAAABAA}},{Partially cyclic,{BABAAAAAA,BBAAABBBBAB}}}
{First[#],Length[#]}&/@Split[Sort[%124]]
{{Partially cyclic,3},{Pure cyclic,2},{Too long,268},{Unapplied,727}}
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BBABA""BAAA","BBAAA""BBBAB"},rinit,20],2.5]];
Show[SMWSimpleGraphics[SMWEvolveList[{"BBABA""BAAA","BBAAA""BBBAB"},rinit,50]]];
Show[SMWSimpleGraphics[SMWEvolveList[{"BBAA""BBBAB","BABAA""ABAA"},rinit,50]]];
Show[SMWSimpleGraphics[SMWEvolveList[{"BABAA""AAAA","BBAAA""BBBBAB"},rinit,50]]];
Table[RuleChecker[RandomSMWGivenLHS[fnonover,6],"ABAAB"],{1000}];
Cases[%,_List]
{}
{First[#],Length[#]}&/@Split[Sort[%%]]
{{Too long,71},{Unapplied,929}}
Table[RuleChecker[RandomSMWGivenLHS[fnonover,6],"ABAABAAAAABBBB"],{1000}];
Cases[%,_List]
{{Partially cyclic,{AABBBABBB,AABABAAAAA}},{Partially cyclic,{ABABBA,AABBBAAABBB}},{Partially cyclic,{ABABBABAABB,AABBBABBA}},{Partially cyclic,{AABABAABAAA,AAABBAAABBA}},{Partially cyclic,{AABABAABABA,AABBBBBBA}},{Partially cyclic,{AABABB,AABBAABBA}},{Partially cyclic,{AABABB,AABBAABBB}},{Partially cyclic,{AABBAAABBB,AABABBBBABB}},{Partially cyclic,{AABBBAABBBA,AABABBABB}},{Partially cyclic,{AAABBAAABBA,ABABBA}},{Partially cyclic,{AABBBAB,AABABAABABB}},{Partially cyclic,{AABBAAAABB,ABABBA}}}
{First[#],Length[#]}&/@Split[Sort[%%]]
{{Pure cyclic,1},{Too long,86},{Unapplied,901},{{Partially cyclic,{AAABBAAABBA,ABABBA}},1},{{Partially cyclic,{AABABAABAAA,AAABBAAABBA}},1},{{Partially cyclic,{AABABAABABA,AABBBBBBA}},1},{{Partially cyclic,{AABABB,AABBAABBA}},1},{{Partially cyclic,{AABABB,AABBAABBB}},1},{{Partially cyclic,{AABBAAAABB,ABABBA}},1},{{Partially cyclic,{AABBAAABBB,AABABBBBABB}},1},{{Partially cyclic,{AABBBAB,AABABAABABB}},1},{{Partially cyclic,{AABBBABBB,AABABAAAAA}},1},{{Partially cyclic,{AABBBAABBBA,AABABBABB}},1},{{Partially cyclic,{ABABBA,AABBBAAABBB}},1},{{Partially cyclic,{ABABBABAABB,AABBBABBA}},1}}
Show[SMWSimpleGraphics[SMWEvolveList[Last[#],rinit,50]]]&/@%139;