<<"MultiwaySystems/Universe.m"
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"-"})
mwcrule=mkrule[{{1,1}{0,0},{1,0}{1,1},{0,1}{1,1},{0,0}{0,0}}]
{B--B-AA-,B--A-BB-,A--B-BB-,A--A-AA-}
mwcinit=ToCharsX[ReplacePart[Flatten[Table[{0,0,-1,-1},{5}]],1,{{9},{10}}]]
AA--AA--BB--AA--AA--
mwpixx[{rr_,init_},t_]:=Surround[MWEvolGraphic[FromCharsX[CMWEvolveListT[rr,{init},t]]]]
mwpixxy[{rr_,init_},t_]:=Surround[MWEvolGraphic[FromCharsX[CMWEvolveListT[rr,{init},t]/.s_StringStringReplace[s,"-"""]]]]
FromCharsX[rule_]:=rule/.x_StringCharacters[x]/."B"1,"A"0,"-"
1
3

Show[mwpixxy[{mwcrule,"AA--BB--AA--"},8]];
PSWrite["mwca.eps",%,{3,3}];
Show[mwpixx[{mwcrule,"AA--BB--AA--"},8]];
arhead[{x_,y_},d_]:=With[{c=.03},If[d>0,Line[{{x-c,y+c},{x+c,y},{x-c,y-c}}],Line[{{x+c,y+c},{x-c,y},{x+c,y-c}}]]]
unit[pos:{x_,y_},a_,d_]:=AbsoluteThickness[.3],Linex-
1
2
,y+
1
8
,x+
1
2
,y+
1
8
,Linex-
1
2
,y-
1
8
,x+
1
2
,y-
1
8
,arheadx-.35,y+
1
8
,1,arheadx+.35,y+
1
8
,If[d>0,-1,1],arheadx-.35,y-
1
8
,If[d>0,-1,1],arheadx+.35,y-
1
8
,-1,AbsolutePointSize[2],Pointx+
#1〚1〛
2
,y+
#1〚2〛
8
&/@{{1,1},{1,-1},{-1,1},{-1,-1}},AbsoluteThickness[.25],GrayLevel[If[a==0,.8,.2]],Disk{x,y},
1
4
,Circle{x,y},
1
4

BCAEvolveList[{n_Integer,rule_},init_,t_]:=FoldList[BCAStep[{n,rule},#1,#2]&,init,Range[t]]/;Mod[Length[init],n]==0​​BCAStep[{n_,rule_},a_,d_]:=RotateRight[Flatten[(Replace[#1,rule]&)/@Partition[RotateLeft[a,d],n]],d]
evol=BCAEvolveList[{2,{{1,1}{0,0},{1,0}{1,1},{0,1}{1,1},{0,0}{0,0}}},CenterList[10,{1,1}],4]
{{0,0,0,0,1,1,0,0,0,0},{0,0,0,1,1,1,1,0,0,0},{0,0,1,1,0,0,1,1,0,0},{0,1,1,1,1,1,1,1,1,0},{1,1,0,0,0,0,0,0,1,1}}
ShowGraphicsTableunit{x,-t},evolt,x,
Mod[t+x,2]
(-1)
,{x,1,Length[First[evol]]},{t,1,Length[evol]},AspectRatioAutomatic,PlotRangeAll;
PSWrite["netca.eps",%,FullColumn];
<<"Phred/MSource/Network.m"
Show[NetworkGraphics[Network[{Node[1,NodePosition{-31.,156.},NodeLabelAngle1.1781],Node[2,NodePosition{406.0000000000001,149.},NodeLabelAngle1.1781],Node[3,NodePosition{246.8640590000001,151.059418},NodeLabelAngle1.255194],Node[4,NodePosition{137.589767,152.380356},NodeLabelAngle1.255194],Node[5,NodePosition{249.201096,340.3327030000001},NodeLabelAngle1.255194],Node[6,NodePosition{84.12673200000002,247.69397},NodeLabelAngle1.255194],Node[7,NodePosition{139.925476,341.6547240000001},NodeLabelAngle1.255194],Node[8,NodePosition{302.6637270000001,245.019257},NodeLabelAngle1.255194],Node[9,NodePosition{-30.,249.},NodeLabelAngle1.1781],Node[10,NodePosition{405.,243.},NodeLabelAngle1.1781],Arc[{2,3},ArcBezierPath{{-0.3333330000000001,0.},{0.3333330000000001,0.}},ArcCircleHeight0.,ArcStyleLine],Arc[{1,4},ArcBezierPath{{-0.3333330000000001,0.},{0.3333330000000001,0.}},ArcCircleHeight0.,ArcStyleLine],Arc[{4,3},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{6,4},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{5,7},ArcBezierPath{{-0.374486,0.333817},{0.374486,0.333817}},ArcCircleHeight0.6458880000000002,ArcStyleCircle],Arc[{5,7},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{7,6},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{3,8},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{8,5},ArcBezierPath{{-0.3803040000000001,-0.357016},{0.3803040000000001,-0.357016}},ArcCircleHeight-0.267762,ArcStyleCircle],Arc[{6,9},ArcBezierPath{{-0.3333330000000001,0.},{0.3333330000000001,0.}},ArcCircleHeight0.,ArcStyleLine],Arc[{10,8},ArcBezierPath{{-0.3333330000000001,0.},{0.3333330000000001,0.}},ArcCircleHeight0.,ArcStyleLine]},ArcArrowTrue,ArcArrowAngle0.3926990000000001,ArcArrowColorGrayLevel[0.],ArcArrowFlare0.3,ArcArrowPosition0.5,ArcArrowSize10.,ArcColorGrayLevel[0.],ArcFlippedFalse,ArcLabel"",ArcLabelColorGrayLevel[0],ArcLabelDistance3.,ArcLabelPosition0.5,ArcLabelSideLeft,ArcLoopAngle2.65358979278929*^-6,ArcLoopClockwiseTrue,ArcLoopSize20.,ArcThickness0.5,NodeAnnulusRatio0.2,NodeColorGrayLevel[0.],NodeLabelNone,NodeLabelColorGrayLevel[0],NodeLabelDistance4.,NodeSize1.4,NodeStyleDisk,PlotRangeAutomatic,ArcLabelFont$DefaultFont,NodeLabelFont$DefaultFont]]];
Use the network with the inner loop going the other way to represent 0; can make one loop hang down much more than the other, so in main picture can see difference.....