Table[RandomSMW[2,6],{10}]
{{BABBBAB,BBAB},{BABBBBAB,BBAABABB},{BBAABAA,ABBABAABAABA},{ABABAAA,AAABAABB},{AAAA,BABBABBAAB},{ABBAABABBBB,AABA},{BABAAAABABA,AB},{BBAABBBBA,ABABAAB},{BAAAAABA,ABAAABBBA},{BABBBBBBBA,BBAAABA}}
Select[%60,(SMWTestEvolveList[#,"ABAAB",20]==SMWTestEvolveListBackward[#,"ABAAB",20])&]
{{BABBBBAB,BBAABABB},{BBAABAA,ABBABAABAABA},{ABABAAA,AAABAABB},{AAAA,BABBABBAAB},{ABBAABABBBB,AABA},{BABAAAABABA,AB},{BBAABBBBA,ABABAAB},{BAAAAABA,ABAAABBBA},{BABBBBBBBA,BBAAABA}}
MapIndexed[Show[LabelWrapper[GraphicsRow[{SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",5],2.5],SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",5,Backward],2.5]}],First[#2]]]&,%62];
Select[Table[RandomSMW[2,6],{1000}],InterestingRuleQ]
{{BBAB,AABBBBB}}
Select[%,(SMWTestEvolveList[#,"ABAAB",20]==SMWTestEvolveListBackward[#,"ABAAB",20])&]
{}
Select[Table[RandomSMW[2,6],{10000}],InterestingRuleQ]
{{BABABB,ABA},{BAABBAA,BBBBA},{BBAABB,AABAA},{BBAA,ABAB},{ABBA,BBABAB},{BAAB,ABBA},{BBBBABBBA,ABA},{AAABB,BAAA},{AABAA,BAAB},{AABBBA,BBBABAA},{ABAA,BAABAAA},{BABBB,BBABAA}}
Select[%,(SMWTestEvolveList[#,"ABAAB",20]==SMWTestEvolveListBackward[#,"ABAAB",20])&]
{{ABBA,BBABAB}}
MapIndexed[Show[LabelWrapper[GraphicsRow[{SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",25],2.5],SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",25,Backward],2.5]}],First[#2]]]&,{{"AB""BA","BB""ABAB"}}];
Select[Table[RandomSMW[3,6],{5000}],InterestingRuleQ]
{{ABB,BABBAABA,BAABA},{BBB,AABAB,BABA},{BBABAB,AABBAAB,BABAB},{AABABBBB,ABBABB,BAA},{ABAAABAA,AAAABAB,BABABBBBAA},{ABA,BABA,ABABABAA},{AABBA,BBAABBAA,BBBBBAA},{BAABAA,BAAABAAA,AAAABAB},{ABBB,BBBBBBAAAA,ABABBABA},{BBAAB,ABBA,BBABAABB},{BBAAAA,BBAAAAA,ABBB},{BBA,AABBAB,BBBBAABAB},{BBBAAABAAAA,AAAABBAAB,ABAABB},{BABBABBBBB,AAAAAB,AAA},{BAAB,AAA,ABBBBBA},{BABAA,AAABAB,BBAABB},{BAABAAA,AABAAB,AAA},{BABA,AABABAA,BAABBAAAB}}
Select[%,(SMWTestEvolveList[#,"ABAAB",20]==SMWTestEvolveListBackward[#,"ABAAB",20])&]
{}
Select[Table[RandomSMW[3,6],{20000}],InterestingRuleQ]
Select[%,(SMWTestEvolveList[#,"ABAAB",20]==SMWTestEvolveListBackward[#,"ABAAB",20])&]
{{BBABBABB,BBAA,AABABAB},{ABA,AAABABAA,BBBBB},{BBBBA,BABBBA,AAAAAA}}
MapIndexed[Show[LabelWrapper[GraphicsRow[{SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",25],2.5],SMWXGraphicsStreamed[ChopEvolution@SMWEvolveListX[#,"ABAAB",25,Backward],2.5]}],First[#2]]]&,%];