Wolfram Cloud Document

Select[Table[RandomSMW[2,4],{200}],InterestingRuleQ[#,"ABAAB",False,SSS]&]

{{BBBAAA,ABB},{BBBA,AABBAAB},{AAAABB,BAB}}

Show[SMWNetworkPictureR[{"AB"->"BAA"},"ABAAB",45,{1},SSS->True,Arrows->True]];

MapIndexed[Show[LabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",20,SSS]],BigFont@First[#2]]]&,%47];

Show[SMWNetworkPictureR[#,"ABAAB",45,{1},SSS->True,Arrows->True]]&/@%47;

Show[SMWNetworkPictureR[{"BBB""A","AAB""BAAB"},"ABAAB",100,{1},SSS->True,Arrows->True]];

{"BBB""A","AAB""BAAB"}

Select[Table[RandomSMW[2,4],{200}],InterestingRuleQ[#,"ABAAB",False,SSS]&]

{{BBAAAAB,AABBABB},{AABABBA,BAAAA},{BA,ABABA}}

MapIndexed[Show[LabelWrapper[SMWXGraphicsStreamed[SMWEvolveListX[#,"ABAAB",20,SSS]],BigFont@First[#2]]]&,%];