You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BB""A","ABA""BAAB"},"ABAAB",20],2.5]]
⁃Graphics⁃
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BB""A","ABA""BAAB"},"ABAAB",40],2.5]]
⁃Graphics⁃
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BB""A","AA""BBAB"},"ABAAB",20],2.5]];
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"AA""AAB","BBBB""ABBB"},"ABAAB",20],2.5]];
<<"MultiwaySystems/Multiway.m"
mwpix[{rr_,init_},t_,rs_:0.2]:=RHInset[Surround[MWEvolGraphic[FromChars[MWEvolveListT[rr,{init},t]]]],MWRuleGraphic[FromChars[rr]],{rs,.04}]
mwpix[{{"BB""A","AA""BBAB"},"ABAAB"},5]//Show
⁃Graphics⁃
mwpix[{{"AA""AAB","BBBB""ABBB"},"ABAAB"},7]//Show;
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"A""AB","B"->"BA"},"A",5],2.5]];
Show[SMWXGraphicsStreamedCW[SMWEvolveListX[{"BB""A","ABA""BAAB"},"ABAAB",5],3.5]]
⁃Graphics⁃
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BB""A","ABA""BAAB"},"ABAAB",5],2.5]]
⁃Graphics⁃
Show[SMWXGraphicsStreamed[SMWEvolveListX[{"BB""A","ABA""BAAB"},"ABAAB",5],1.5]]