In[]:=
AgeHypergraphPlot[WolframModel[#,{{0,0,0},{0,0,0}},500],"RedBlueTones",.002]&/@{{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},{{1,1,2},{1,3,4}}{{4,4,3},{2,5,3},{2,5,3}},{{1,1,2},{1,3,4}}{{4,4,5},{5,4,2},{3,2,5}},{{1,2,1},{1,3,4}}{{4,5,4},{5,4,3},{1,2,5}}}
Out[]=
In[]:=
AgeHypergraphPlot[WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},{{0,0,0},{0,0,0}},100],"RedBlueTones",.002]
Out[]=
In[]:=
AgeHypergraphPlot[WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},{{0,0,0},{0,0,0}},101],"RedBlueTones",.002]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}}]]
Out[]=
In[]:=
Table[AgeHypergraphPlot[WolframModel[{{1,2,2},{3,1,4}}{{2,5,2},{2,3,5},{4,5,5}},{{0,0,0},{0,0,0}},t],"RedBlueTones",.002],{t,97,99}]
Out[]=
cornucopia