Show[PNGraphics[Nest[PNEvolveNIStep[{NodeToTriangleRule},#]&,PNTetra,4]]];
Show[PNGraphics[PNShakeGraph[PNEvolve[{NodeToTriangleRule},PNTetra,4^4],3000]]];
Show[PNGraphics[Nest[PNEvolve[{NodeToTriangleRule},#]&,PNTetra,4]]];
ReverseEngineer[%]
{1{2,3,4},2{1,5,8},3{1,6,7},4{1,11,14},5{2,10,13},6{3,7,9},7{3,6,12},8{2,10,15},9{6,11,12},10{5,8,13},11{4,9,14},12{7,9,16},13{5,10,22},14{4,11,25},15{8,17,19},16{12,17,18},17{15,16,18},18{16,17,26},19{15,20,21},20{19,21,23},21{19,20,24},22{13,23,28},23{20,22,24},24{21,23,27},25{14,26,29},26{18,25,29},27{24,28,30},28{22,27,30},29{25,26,30},30{27,28,29}}
PNGraphics[Nest[PNEvolveNIStep[{NodeToTriangleRule},#]&,PNTetra,6]];
ReverseEngineer[%];
NeighborCounts[%208,1,20]
{1,4,8,14,22,32,45,58,69,82,91,92,92,92,92,92,92,92,92,92,92}
Show[NeighborsPictureR[%208]];
fracnet=ReverseEngineer[PNGraphics[Nest[PNEvolveNIStep[{NodeToTriangleRule},#]&,PNTetra,8]]];
Show[NeighborsPictureR[fracnet]];
NeighborCounts[fracnet,1,20]
{1,4,8,13,19,25,33,43,55,69,83,100,121,143,167,188,202,218,236,257,275}
Differences[%]
{3,4,5,6,6,8,10,12,14,14,17,21,22,24,21,14,16,18,21,18}
ListPlot[%,PlotJoined->True];
Table[Floor[n^Log[3,2]],{n,20}]
1,1,2,2,2,3,3,3,Floor,4,4,4,5,5,5,5,5,6,6,6
Log[2]
Log[3]
9
%217/3.
{1.,1.33333,1.66667,2.,2.,2.66667,3.33333,4.,4.66667,4.66667,5.66667,7.,7.33333,8.,7.,4.66667,5.33333,6.,7.,6.}
%222/%219
{1.,1.33333,0.833333,1.,1.,0.888889,1.11111,1.33333,1.55556,1.16667,1.41667,1.75,1.46667,1.6,1.4,0.933333,1.06667,1.,1.16667,1.}
ListPlot[%,PlotJoined->True];
N[Log[3,2]]
0.63093
NeighborCounts[fracnet,1,10]
{1,4,8,13,19,25,33,43,55,69,83}
NeighborCounts[fracnet,2,10]
{1,4,7,12,17,24,32,40,50,65,81}
Table[NeighborCounts[fracnet,i,10],{i,20}]
{{1,4,8,13,19,25,33,43,55,69,83},{1,4,7,12,17,24,32,40,50,65,81},{1,4,10,16,22,30,38,49,64,77,91},{1,4,7,11,16,22,29,37,48,61,76},{1,4,9,14,19,26,33,40,52,66,83},{1,4,9,13,17,23,30,38,48,61,76},{1,4,9,16,23,32,43,53,64,80,95},{1,4,8,15,22,27,34,46,59,73,87},{1,4,8,14,20,25,32,43,55,67,84},{1,4,8,15,23,28,34,45,56,70,87},{1,4,8,15,21,27,36,46,58,72,89},{1,4,8,15,23,29,36,45,56,71,86},{1,4,9,14,22,33,44,55,66,78,93},{1,4,8,15,24,29,36,47,60,72,89},{1,4,9,14,21,30,39,48,59,74,93},{1,4,9,14,21,31,39,47,59,73,93},{1,4,7,12,22,30,38,51,61,74,94},{1,4,7,12,20,29,39,51,62,75,89},{1,4,7,12,20,28,36,47,58,71,90},{1,4,7,12,20,28,37,47,57,71,89}}
Other Rules
Other Rules