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[nonover5,6],{10}]
{{BBBBBBB,AAA},{BBBAAABA,AA},{BABABAAABA,BBAAAAB},{BBBBBA,AAAB},{BBBBBA,AAAABAAAA},{BBABBBB,AAAAABA},{AAAABBA,BABBB},{AAABABA,BBAABB},{BBBBA,ABAABAA},{AAAAA,BBBBABAA}}
Select[%,InterestingRuleQ]
{}
Table[RandomSMWGivenLHS[nonover5,6],{1000}];
Select[%,InterestingRuleQ]
{{AABA,BBABABAAAA}}
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"AA""BA","BBAB""ABAAAA"},"ABAAB",20],2.5]];
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"AA""BA","BBAB""ABAAAA"},"ABAAB",30],2.5]];
Show[SMWXGraphicsStreamedCW[SMWEvolveListX[{"AA""BA","BBAB""ABAAAA"},"ABAAB",30],2.5]];
Table[RandomSMWGivenLHS[nonover5,6],{5000}];
Select[%,InterestingRuleQ]
{{BBBAAAA,ABAABAB},{BBBBAA,ABABAAB},{ABAABBBB,BBBBABAABB},{ABAAABAAB,BBBBABAB},{BBBBA,ABABABA},{AAB,BBBABAAB},{BBBA,AABAA},{AABABABB,BBABABB},{BABBABA,AABABBBB},{BBAAA,AABA},{AABAB,BBABBAAA},{ABAABB,BBABAAAA},{AAABBBBB,BABBAAB},{ABABAAB,BBBBB},{BAABABAAB,AAAABA},{ABABAAB,BBBBBABA}}
ir1={{"BBB""AAAA","ABA""ABAB"},{"BBBB""AA","ABA""BAAB"},{"ABA""ABBBB","BBBB""ABAABB"},{"ABAA""ABAAB","BBBB""ABAB"},{"BBBB""A","ABA""BABA"},{"AA""B","BBB""ABAAB"},{"BBB""A","AA""BAA"},{"AA""BABABB","BBAB""ABB"},{"BABB""ABA","AA""BABBBB"},{"BB""AAA","AA""BA"},{"AA""BAB","BBAB""BAAA"},{"ABA""ABB","BB""ABAAAA"},{"AA""ABBBBB","BABB""AAB"},{"ABA""BAAB","BBBB""B"},{"BAAB""ABAAB","AAAA""BA"},{"ABA""BAAB","BBBB""BABA"}};
MapIndexed[Show[LabelWrapper[GraphicsRow[{SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",20],2.5],SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",20,Backward],2.5]}],First[#2]]]&,%405];