<<Universe-97/MAToNetworks.m
mrs={{{1,1,1}{{1,0,1},-1},{1,1,0}{{1,0,0},1},{1,0,1}{{1,1,1},-1},{1,0,0}{{1,1,0},-1},{0,1,1}{{0,0,1},1},{0,1,0}{{0,1,0},-1},{0,0,1}{{0,1,1},1},{0,0,0}{{0,1,0},1}},{{1,1,1}{{1,0,1},1},{1,1,0}{{1,0,0},1},{1,0,1}{{1,1,1},1},{1,0,0}{{1,1,0},-1},{0,1,1}{{0,0,1},-1},{0,1,0}{{0,0,0},-1},{0,0,1}{{0,1,1},1},{0,0,0}{{0,1,0},1}},{{0,0,0}{{1,1,1},1},{0,0,1}{{1,0,1},1},{0,1,0}{{0,1,1},-1},{0,1,1}{{0,0,0},1},{1,0,0}{{1,0,0},1},{1,0,1}{{1,1,1},1},{1,1,0}{{1,0,1},-1},{1,1,1}{{0,0,0},-1}},{{0,0,0}{{1,1,0},1},{0,0,1}{{1,0,1},-1},{0,1,0}{{0,0,1},-1},{0,1,1}{{0,1,1},1},{1,0,0}{{0,1,0},-1},{1,0,1}{{1,0,1},1},{1,1,0}{{0,1,0},1},{1,1,1}{{1,1,0},1}}};
MMAPositionsList[mrs[[3]],MAInitialState[101],100];
MAToNet[%]
NeighborCountsI[%,1,20]
{1,4,9,16,27,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞}
tx=MMAPositionsList[mrs[[3]],MAInitialState[101],1000];//Timing
{0.66Second,Null}
tx=MAToNet[tx];//Timing
{0.22Second,Null}
NeighborCountsI[tx,1,20]
{1,4,9,16,27,46,68,95,124,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞,∞}
tx=MMAPositionsList[mrs[[3]],MAInitialState[301],10000];//Timing
{11.42Second,Null}
tx=MAToNet[tx];//Timing
{2.47Second,Null}
NeighborCountsI[tx,1,20]
{1,4,9,16,27,46,68,95,124,162,207,262,326,∞,∞,∞,∞,∞,∞,∞,∞}
Length[Select[%,IntegerQ]]
13
tx=MMAPositionsList[mrs[[3]],MAInitialState[401],20000];//Timing
{27.24Second,Null}
tx=MAToNet[tx];//Timing
{5.77Second,Null}
NeighborCountsI[tx,1,20]
{1,4,9,16,27,46,68,95,124,162,207,262,326,399,479,∞,∞,∞,∞,∞,∞}
ListPlot[Select[%,IntegerQ],PlotJoined->True];
<<Universe-97/SpaceNetworks.m
NeighborLists[tx,1,3]
{{1},{2,3,4},{3,4,5,6,7,8,9},{4,5,6,7,8,9,10,11,12,13,28,29,56}}
NeighborLists[tx,1,10];
Max[%]
2645
NeighborLists[tx,1,15];
Max[%]
∞
Drop[%189,-1];
Max[%]
17599