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
<<PlanarNetworks/PNInit.m
<<PlanarNetworks/PNRules.m
{0,0,0,16,8,125,24,246}
<<Universe-97/TimeNetworks.m
hx17=PNHexGrid[13,11];
hx17p=Fold[PNEvolveStep[{NodeToTriangleRule},#1,{1,#2,0}]&,hx17,{148,147,164}];
ParticleRule1={1->{20,21,4},4->{1,5,6},5->{6,4,22},6->{4,5,7},7->{6,8,9},8->{9,7,13},9->{7,8,10},10->{9,18,19},13->{8,14,17},14->{13,15,16},15->{16,14,23},16->{14,15,24}}->{1->{20,2,3},2->{21,3,1},3->{4,1,2},4->{3,5,6},5->{6,4,22},6->{4,5,7},7->{10,6,13},10->{7,11,12},11->{12,10,18},12->{10,11,19},13->{7,14,17},14->{13,23,24}};
ParticleRule2=ParticleRule1/.{a_,b_,c_}->{a,c,b};
Show[DirectedNeighborsPicture[PNTimeNetwork[{NodeToTriangleRule},PNTetra,100],{1},NodeSize->.1]];
Show[DirectedNeighborsPicture[PNTimeNetwork[{ParticleRule1,ParticleRule2},hx17p,20],{1},NodeSize->.1]];
?*Rule
ApplyGraphRule ElementaryRule NodeToTriangleRule RandomSymmetricRule
BlockRule FindGraphRule NumberedBlockRule ReduceRule
CACompoundRule FlipRule NumberedRule Rule
CAExternalCompoundRule FunctionRule OuterCountRule SumRule
CAExternalRule GeneralRule RandomLegalRule ToCACompoundRule
CARule MAToMWRule RandomNumberedLegalRule TotalisticRule
CountRule NIRule RandomRule TriangleToNodeRule
BlockRule FindGraphRule NumberedBlockRule ReduceRule
CACompoundRule FlipRule NumberedRule Rule
CAExternalCompoundRule FunctionRule OuterCountRule SumRule
CAExternalRule GeneralRule RandomLegalRule ToCACompoundRule
CARule MAToMWRule RandomNumberedLegalRule TotalisticRule
CountRule NIRule RandomRule TriangleToNodeRule
FlipRule
{1{2,3,4},2{1,5,6}}{1{2,4,5},2{1,6,3}}
Show[DirectedNeighborsPicture[PNTimeNetwork[{FlipRule},hx17p,5],{1},NodeSize->.1]];