{{1,1}{0,0},{1,0}{1,1},{0,1}{1,1},{0,0}{0,0}}
Show[GridCAGraphics[FromCAState[CAEvolveList[BlockRule[%246,2,2],CenterList[40,{1}],20]]]];
Without periodic boundaries....
Without periodic boundaries....
mkrule[rule_]:=ToCharsX[(#1/.({a_,b_}{c_,d_}){a,-1,-1,b}{-1,c,d,-1}&)/@rule]
ToCharsX[rule_]:=rule/.x:{___Integer}StringJoin@@(x/.{0"A",1"B",-1"-"})
mkrule[%246]
ToCharsX[ReplacePart[Rest[Rest[Flatten[Table[{0,0,-1,-1},{6}]]]],1,{{11},{12}}]]
FromCharsX[rule_]:=rule/.x_StringCharacters[x]/."B"1,"A"0,"-"
1
2
<<"MultiwaySystems/Multiway.m";
mwpixx[{rr_,init_},t_]:=Surround[MWEvolGraphic[FromCharsX[MWEvolveListT[rr,{init},t]]]]
Show[mwpixx[{%251,%272},5]];
MWEvolveList[%279,{%280},15]
Length/@MWEvolveList[%251,{%272},15]
mkrule2[rule_]:=ToCharsX2[(#1/.({a_,b_}{c_,d_}){a,-2,-1,b}{-1,c,d,-2}&)/@rule]
ToCharsX2[rule_]:=rule/.x:{___Integer}StringJoin@@(x/.{0"A",1"B",-1"<",-2">"})
mkrule2[%246]
ToCharsX2[ReplacePart[Rest[Rest[Flatten[Table[{0,0,-2,-1},{6}]]]],1,{{11},{12}}]]
FromCharsX2[rule_]:=rule/.x_StringCharacters[x]/."B"1,"A"0,">","<"
1
3
2
3
MWEvolveList[%287,{%288},15]
mkrule[{{0,0}{0,0}}]
ToCharsX[Flatten[Table[{0,0,-1,-1},{3}]]]
MWEvolveList[%292,{%296},5]
ToCharsX[Flatten[Table[{0,0,-1,-1},{5}]]]
MWEvolveList[%292,{%298},15]
With periodic boundaries
With periodic boundaries
Note: must have periodic boundaries, otherwise cells at the ends are frozen in time......
<<"MultiwaySystems/Universe.m"
mkrule[{{0,0}{0,0}}]
ToCharsX[Flatten[Table[{0,0,-1,-1},{3}]]]
CMWEvolveList[%309,{%310},5]
Length/@CMWEvolveList[%309,{%310},15]
mkrule[rule_]:=ToCharsX[(#1/.({a_,b_}{c_,d_}){a,-1,-1,b}{-1,c,d,-1}&)/@rule]
ToCharsX[rule_]:=rule/.x:{___Integer}StringJoin@@(x/.{0"A",1"B",-1"-"})
ToCharsX[ReplacePart[Rest[Rest[Flatten[Table[{0,0,-1,-1},{6}]]]],1,{{11},{12}}]]
FromCharsX[rule_]:=rule/.x_StringCharacters[x]/."B"1,"A"0,"-"
1
2
<<"MultiwaySystems/Universe.m";
mwpixx[{rr_,init_},t_]:=Surround[MWEvolGraphic[FromCharsX[CMWEvolveListT[rr,{init},t]]]]
Show[mwpixx[{%309,%310},15]];
Contents cannot be rendered at this time; please try again later
Show[MWNetGraphic[CMWEvolveListT[%309,{%310},15]]];
Show[MWNetGraphic[CMWEvolveListT[%309,{%310},25]]];
Contents cannot be rendered at this time; please try again later
Note: reaches invariant size, where network just recirculates among possible configurations of strings.