Examples
Examples
SMWEvolveListX[{"AAB"->"BB","BA"->"ABB"},"AAABBBAAABAAAB",5]
{{AAABBBAAABAAAB},{ABBBABBBBABB,{{2,4}{2,3},{6,7}{5,7},{8,10}{8,9},{12,14}{11,12}}},{ABBABBBBBABBBB,{{4,5}{4,6},{9,10}{10,12}}},{ABABBBBBBABBBBBB,{{3,4}{3,5},{9,10}{10,12}}},{AABBBBBBBABBBBBBBB,{{2,3}{2,4},{9,10}{10,12}}},{BBBBBBBABBBBBBBBBB,{{1,3}{1,2},{9,10}{8,10}}}}
Show[SMWXGraphics[%162,3]];
SMWEvolveList[{"AAB"->"BB","BA"->"ABB"},"AAABBBAAABAAAB",10]
{AAABBBAAABAAAB,ABBBABBBBABB,ABBABBBBBABBBB,ABABBBBBBABBBBBB,AABBBBBBBABBBBBBBB,BBBBBBBABBBBBBBBBB,BBBBBBABBBBBBBBBBBB,BBBBBABBBBBBBBBBBBBB,BBBBABBBBBBBBBBBBBBBB,BBBABBBBBBBBBBBBBBBBBB,BBABBBBBBBBBBBBBBBBBBBB}
SMWEvolveList[{"AB"->"BAA","BBB"->"AAB"},"BAABB",10]
{BAABB,BABAAB,BBAAABAA,BBAABAAAA,BBABAAAAAA,BBBAAAAAAAA,AABAAAAAAAA,ABAAAAAAAAAA,BAAAAAAAAAAAA,BAAAAAAAAAAAA,BAAAAAAAAAAAA}
SMWEvolveList[{"AA""BABBBBA","BAB""A"},"ABAAB",30]
{ABAAB,ABBABBBBAB,ABABBA,AABA,BABBBBABA,ABBAA,ABBBABBBBA,ABBABBBA,ABABBA,AABA,BABBBBABA,ABBAA,ABBBABBBBA,ABBABBBA,ABABBA,AABA,BABBBBABA,ABBAA,ABBBABBBBA,ABBABBBA,ABABBA,AABA,BABBBBABA,ABBAA,ABBBABBBBA,ABBABBBA,ABABBA,AABA,BABBBBABA,ABBAA,ABBBABBBBA}
SMWEvolveList[{"AA""","BA""ABB","BB""A"},"BBA",30]
{BBA,AA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,}
Search
Search
Table[RandomSMW[2,4],{20}]
{{AAAA,ABAAAB},{BBAAA,BAABA},{AAABBBBA,BBBBBABA},{BBAB,BBAAAB},{AAAABAAA,ABAAB},{BAABAAB,AA},{BBAABA,ABBBBBAA},{ABABBBBB,BBABA},{BBABB,AAABA},{BAABBBA,AABAAAB},{BBABAAB,BBBABB},{BBB,BAABAA},{AAAABAA,BBAA},{ABBAAA,BABBAA},{BABBBA,BABBA},{AAAAA,AABAA},{BAAAA,ABBA},{BB,BABBA},{BABBAA,BABBB},{ABAA,ABABBB}}
SMWTestEvolveList[#,"ABAAB",10]&/@%186
{{ABAAB,ABB,ABB},{ABAAB,ABAAAAABAAA,ABAAAAAAAABAAAAAA,ABAAAAAAAAAAABAAAAAAAAA,ABAAAAAAAAAAAAAABAAAAAAAAAAAA,ABAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAA,ABAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAA,ABAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAAAAAAAAAAAA,,},{ABAAB,ABAAB},{ABAAB,ABAAB},{ABAAB,BAABBBAABBAABB,BBAABBAABBBBBAABBAABBBBAABBAABBB,,},{ABAAB,AAAB,AAAB},{ABAAB,ABAAB},{ABAAB,ABAAB},{ABAAB,ABABAB,ABABAB},{ABAAB,ABBA,ABBA},{ABAAB,ABAAB},{ABAAB,AABAAAB,AAABAAAAB,AAAABAAAAAB,AAAAABAAAAAAB,AAAAAABAAAAAAAB,AAAAAAABAAAAAAAAB,AAAAAAAABAAAAAAAAAB,AAAAAAAAABAAAAAAAAAAB,AAAAAAAAAABAAAAAAAAAAAB,AAAAAAAAAAABAAAAAAAAAAAAB},{ABAAB,ABAAB},{ABAAB,BAAAABAAA,BAAABAAAAAA,BAABAAAAAAAAA,BABAAAAAAAAAAAA,BBAAAAAAAAAAAAAAA,BBAAAAAAAAAAAAAAA},{ABAAB,AABBAAAABBA,AAABBAABBAAAAAABBAABBAA,AAAABBAABBAAAABBAABBAAAAAAAABBAABBAAAABBAABBAAA,,},{ABAAB,ABAAAB,ABAAAAB,ABAAAAAAB,ABAAAAAAAAAB,ABAAAAAAAAAAAAAB,ABAAAAAAAAAAAAAAAAAAAB,ABAAAAAAAAAAAAAAAAAAAAAAAAAAAAB,ABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAB,,},{ABAAB,AAAB,AAAB},{ABAAB,ABAAB},{ABAAB,AABBBAAABBB,AAABBBABBBABBBAAAABBBABBBABBB,AAAABBBABBBAAAAABBBAAAAABBBABBBAAAAABBB,,},{ABAAB,BAABBAABAAB,BBAABAABBBAABAABBAABAAB,BBBAABAABBAABAABBBBAABAABBAABAABBBAABAABBAABAAB,,}}
Table[RandomSMW[2,4],{100}];
SMWTestEvolveList[#,"ABAAB",20]&/@%;
picks[rules_,histories_,n_]:=Select[Transpose[{rules,histories}],Length[Last[#]]>=n&]
picks[%194,%195,20]
Show[SMWXGraphics[SMWEvolveListX[{"AB""B","B""AABA"},"ABAAB",40],2.5]];
Select[Table[RandomSMW[2,4],{100}],InterestingRuleQ]
{{BBA,ABABAAB}}
Show[SMWXGraphics[SMWEvolveListX[#,"ABAAB",20],2.5]]&/@%;
Show[SMWXGraphics[SMWEvolveListX[#,"ABAAB",40],2.5]]&/@%222;