In[]:=
HypergraphPlot/@WolframModel[{{1,2,3},{1,4,5}}{{3,6,4},{4,7,2},{2,6,1}},{{0,0,0},{0,0,0}},30,"StatesList"]
Out[]=
In[]:=
(HypergraphPlot/@WolframModel[#,{{0,0,0},{0,0,0}},30,"StatesList"])&/@{{{1,2,3},{2,4,5}}{{3,5,5},{1,4,6},{2,4,6}},{{1,2,3},{2,4,5}}{{1,6,6},{2,3,6},{4,3,7}},{{1,2,3},{1,4,5}}{{3,6,4},{4,7,2},{2,6,1}},{{1,2,3},{1,4,5}}{{1,3,4},{4,5,6},{2,7,8}},{{1,2,3},{3,4,5}}{{2,2,6},{3,7,4},{1,4,5}},{{1,2,3},{1,4,5}}{{2,6,3},{6,3,4},{5,1,7}},{{1,2,3},{1,4,5}}{{3,3,6},{5,6,7},{2,4,4}}}
Out[]=