SetDirectory["/swolf4/NewScience/Programs"]
/swolf4/NewScience/Programs
<<Universe-97/TimeNetworks.m
Select[Table[RandomSMW[3,6],{10000}],InterestingRuleQ]//Timing
{52.14Second,{{BAABABBAA,BBBBA,BBABBA},{BAA,ABABAB,BBABB},{ABBABBAB,ABABA,BAABA},{AABBABBBBBA,AAABAAAA,AAAAABA},{ABABABA,BAAAAA,BBBABABABAAA},{BBABBAAA,AABB,BAAAB},{ABBAB,BAABB,BAAB},{BABA,BBABBBAAA,AAABAAB},{BAABABBAB,BBBAAB,ABA},{BBABBBB,BBBBBAA,ABA},{BAABAAAB,BBBAAB,AAABABBA},{BBBBAABAABB,BABBA,BBBBBABBABBA},{AABBA,BBABA,BABBBABBA},{BAAABAA,ABB,BBBBAAAA},{BABABB,AAABB,BBAA},{AAABBBA,ABA,BBBBABBA},{AABBABAB,BAAABA,BABABB},{BAABBBAABABA,AAAAAA,AAA},{ABBBBB,ABABBBB,BBBBA},{BBAA,BBAAAAB,ABABAAB},{BBABAABBA,AABBB,ABAAAABB}}}
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{}
Select[Table[RandomSMW[3,6],{100000}],InterestingRuleQ]//Timing
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{{BAAABA,BAAAABBA,AAABBABBA},{AABBABBB,BBBAAABA,ABBA},{AAABBABAABB,BAABABABBB,BABBAB},{BBAABAABAB,AAAABBBAB,BAAAB},{BAAB,BAAAABAABA,AABBABBBAB},{AABABABB,BABAABBA,BBABBAB},{BBBBABBB,BBAAAABAB,ABBAA},{AABAA,BBAABAA,ABABAB}}
Select[Table[RandomSMW[3,5],{100000}],InterestingRuleQ]//Timing
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{{ABBBA,BBAAABAB,ABBA},{BBAAAA,AABBABB,BBBABBAB},{AABBAA,AABABABABB,BBAAABAAB},{ABAAABAB,BAAB,AABBBABA},{BAAABB,ABABAAAA,BABAAABA},{BBBBBBBA,AAABA,ABABAAB},{AAAAB,AAABAB,BBBBABAB},{BABBABBAB,BAAA,AAAABBAAB},{BBBABBA,AABAB,BAAB},{AABBAABA,ABBA,BBAAAABAB},{ABBBBBBA,ABABAAB,BBAA}}
Select[Table[RandomSMW[2,6],{100000}],InterestingRuleQ]//Timing
{376.48Second,{{ABBAB,BABA},{AAAABB,BBA},{BBA,ABAABABB},{AAB,BBBAA},{ABBAB,BBAA},{BBAA,AAB},{AAB,BBAA},{AABAB,BAB},{ABBA,BAAAAAB},{AAB,BBBAA},{BBAABAAB,AABBAA},{AAAABAB,BBA},{BABAB,BBBAA},{BBBAAB,ABBA},{AABBBABA,BAAB},{BBBAAB,ABBAB},{AAAAAA,AAA},{ABBBA,BBBAAB},{BAABABAABA,AAABABAA},{BAAB,AAABBA},{ABAAAB,BAAABAA},{AABAB,BAABA},{BAAB,AAABBBA},{BBBBAA,BABBA},{AAAABABAAAAA,BAABA},{BAAABB,ABAABAA},{BAA,AABBAAB},{AAABAAB,BAB},{ABAAAAAAB,AABABA},{ABABA,BAAAABAAB},{AAA,ABAAAA},{BBBBAAAB,AABAA},{ABBAB,BAA},{BAAB,AABBBBBAA},{BAABAA,AABAB},{AABBA,BAAAAABA},{BBAABB,ABBA},{AABBBA,BBAB},{AAABAABAA,BAAAAB},{BBBBBBAAB,ABAAABAAB},{BAAAB,ABAABAAA},{BAAB,AAAABBAAB},{AAB,BBABAB},{AABB,BAAABA},{BAAAABBBA,BBA},{BBBBBABBAAB,AABAA},{ABBBA,BBBABBBAAB},{AAA,ABAAAABA},{ABBA,BBAAB},{AAAABB,BAAAABA},{BABBAA,ABBBBBAB},{AAABABA,ABAAB},{BAB,ABBA},{BABAA,AAAABBA},{ABBAB,BAAB},{BAB,AAABAB},{AAAAABB,BAAAB},{BAABAAA,AABAAABA},{AABABA,BAABAAA},{BBABAB,ABBBBAB},{BBAAB,ABA},{BAAAB,AAAAABABAAB},{ABBA,BBAABAAB},{BAB,AABABA},{BBA,AAAAABB},{AABBAA,BAAB},{BBBBAA,BABBBAA},{BAAAAAB,AAABBA},{AAB,BAAAAAA},{ABAABABAAB,BBAABB},{BAAB,AABBBAABBB},{AABABABBAA,BAAB},{BBABAAB,AABABB},{BAAB,AABBBBAA},{ABBBBAABBAAB,AABBAAB},{BABBBABB,BBB},{AAAAAA,AAA},{ABB,BBBAABA},{BBBBBABAB,ABA},{BBA,AAABABA},{AAAABAABA,BBA},{BAB,AABAB},{AABAB,BAB},{ABBAB,BAAB},{AAAABABA,BBA},{BAA,ABAB},{ABAABAAB,BAA},{ABBBA,BBBBBBA},{BBBAA,AAB},{BBBAA,ABBBAB},{BABAB,ABABAAB},{AAABBA,BAABAA},{BABAAAB,ABABAAB},{AAABAB,BAABA},{ABBA,BBAABB},{ABBA,BAB},{ABAABBBAA,BBB},{AAAABBBB,BAAA},{ABAB,BBBABAB},{AAABB,BBA},{ABAABAAA,BAAAAAABA},{BAAABABABA,BBA},{AABABA,BAB},{ABB,BAABA},{ABBA,BAAB},{AABAAAB,BABA},{BBAA,ABAB},{AABAABA,AAAB},{AAAAAA,AAA},{ABAABAAA,ABBAAB},{BAB,AABAB},{AAAABABB,AAA},{BABB,BBBBAAAAA},{AABBA,ABAAAAAAB},{AABABBB,BBABAA},{BBBBB,ABABAAB},{BAB,AABABA},{ABAB,BAA},{ABAB,BBBABA},{ABB,BAABA},{BAAB,AAABAAABB},{ABBBABB,BABBAB},{ABBAB,BAA},{BAAABB,AAABAABAAB},{BABAB,ABBA},{ABBB,BBBAABA},{AAABABA,BBA}}}
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{{BAAB,AAAABBAAB},{BAAAB,AAAAABABAAB},{ABBA,BBAABAAB},{ABB,BBBAABA},{BBBBB,ABABAAB}}
Select[Table[RandomSMW[2,4],{100000}],InterestingRuleQ]//Timing
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{{BBBBA,ABABAAB},{BBABAB,ABBA},{BBAAB,AABABA},{ABBA,BBABAB},{ABABAAB,BBBAA},{BBAABAA,ABABAB}}
Select[Table[RandomSMW[4,4],{100000}],InterestingRuleQ]//Timing
Select[Last[%],SMWOverlapTest[#,"ABAAB",25]&]
{}