In[]:=
EvolutionPicture[{{1,1,1},{2,3,1}}{{3,3,3},{1,4,3},{1,2,4}},10]
Out[]=
In[]:=
EvolutionPicture[{{1,1,1},{2,3,1}}{{3,3,3},{1,4,3},{1,2,4}},40]
Out[]=
In[]:=
Length/@WolframModel[{{1,1,1},{2,3,1}}{{3,3,3},{1,4,3},{1,2,4}},{{0,0,0},{0,0,0}},40,"StatesList"]
Out[]=
{2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42}
In[]:=
AgeHypergraphPlot[WolframModel[{{1,1,1},{2,3,1}}{{3,3,3},{1,4,3},{1,2,4}},{{0,0,0},{0,0,0}},60]]
Out[]=
In[]:=
AgeHypergraphPlot[WolframModel[{{1,1,1},{2,3,1}}{{3,3,3},{1,4,3},{1,2,4}},{{0,0,0},{0,0,0}},100]]
Out[]=
In[]:=
AgeHypergraphPlot[WolframModel[{{1,1,2},{2,3,4}}{{5,5,3},{5,1,6},{2,1,5}},{{0,0,0},{0,0,0}},100]]
Out[]=
