In[]:=
EvolutionPicture[{{1,2,3},{3,4,5}}{{6,5,1},{5,2,3},{2,1,7}},{{0,0,0},{0,0,0}},8]
Out[]=
In[]:=
EvolutionPicture[{{1,2,3},{1,4,5}}{{2,1,6},{6,4,7},{5,3,4}},{{0,0,0},{0,0,0}},20]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2,3},{4,5,6},{1,4}}{{7,8,2},{3,10,9},{12,11,5},{6,14,13},{13,7},{12,10},{11,14},{8,9}},{{0,0},{0,0},{0,0},{0,0,0},{0,0,0}},14,"StatesList"]
Out[]=