<<Universe-97/TimeNetworks.m
ToMW[rule_]:=Apply[StringJoin,rule/.{0->"A",1->"B"},{2}]
ToMW[{{0,0,0,1}{1,0,0},{0,0,0}{1,1},{1}{0,0,1}}]
{AAABBAA,AAABB,BAAB}
SMWEvolveListX[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",5,SSS]
{{BAB},{AABAB,{{1,1}{1,3}}},{AAAABAB,{{3,3}{3,5}}},{ABAAAB,{{2,5}{2,4}}},{ABBAA,{{3,6}{3,5}}},{AAABBAA,{{2,2}{2,4}}}}
SMWXGraphicsStreamed[SMWEvolveListX[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",25,SSS]]//Show;
SMWXGraphicsNetwork[SMWEvolveListX[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",25,SSS],WedgeNumber->True]//Show;
SMWNetworkPictureR[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",30,{1},SSS->True,Arrows->True]//Show;
SMWNetworkPictureR[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",60,{1},SSS->True,Arrows->True]//Show;
SMWNetworkPictureR[{"AAAB""BAA","AAA""BB","B""AAB"},"BAB",100,{1},SSS->True,Arrows->True]//Show;