Wolfram Cloud Page

WOLFRAM NOTEBOOK

In[]:=

unoPicture[rule_,steps_]:=unorderedHypergraphPlot@orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[rule],initialUnorderedHypergraphSelfLoop@rule,steps,"FinalState"]

In[]:=

unoPicture[#,5]&/@{{{1,2,3},{2,4,5}}{{2,3,2},{6,2,5},{4,3,7}},{{1,2,1},{3,4,2}}{{2,1,1},{3,4,1},{5,6,3}},{{1,1,2},{3,1,2}}{{4,1,5},{5,6,7},{8,3,9}},{{1,2,3},{4,2,3}}{{5,3,1},{6,1,7},{8,7,2}},{{1,2,1},{1,3,4}}{{5,3,5},{6,3,7},{8,4,9}},{{1,1,2},{1,3,2}}{{4,4,5},{5,3,6},{7,8,1}},{{1,2,3},{2,4,5}}{{4,3,3},{3,6,2},{1,7,4}},{{1,2,1},{3,2,4}}{{4,4,5},{6,4,5},{1,6,7}},{{1,2,3},{2,4,5}}{{4,2,5},{2,6,3},{7,1,6}},{{1,2,2},{3,4,1}}{{1,5,6},{7,6,8},{2,4,9}},{{1,1,2},{3,2,4}}{{5,6,7},{7,2,8},{9,10,4}},{{1,2,1},{2,3,3}}{{4,5,6},{5,7,8},{6,9,2}},{{1,2,3},{3,4,2}}{{2,5,5},{2,4,6},{3,4,2}},{{1,2,1},{3,2,4}}{{5,6,7},{8,7,1},{4,3,9}},{{1,1,2},{1,3,4}}{{2,4,3},{2,3,1},{5,6,4}},{{1,2,3},{4,5,3}}{{6,7,3},{7,8,2},{3,5,8}},{{1,1,2},{3,2,4}}{{2,5,6},{4,7,6},{8,9,6}},{{1,1,2},{3,1,4}}{{4,1,4},{1,5,6},{2,7,1}},{{1,2,2},{1,3,4}}{{5,5,3},{6,5,3},{2,7,6}},{{1,2,3},{2,4,3}}{{3,3,1},{5,6,3},{7,5,5}},{{1,2,2},{2,3,1}}{{4,5,1},{1,6,2},{3,7,2}},{{1,1,2},{1,3,4}}{{5,6,7},{6,8,9},{4,7,1}},{{1,2,1},{3,2,4}}{{3,5,6},{7,5,6},{8,5,4}},{{1,2,3},{4,2,5}}{{2,1,5},{1,2,6},{3,5,1}}}

Out[]=

In[]:=

unoTestPicture[rule_]:=If[!ConnectedHypergraphQ[#],Nothing,unorderedHypergraphPlot[#]rule]&[orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[rule],initialUnorderedHypergraphSelfLoop@rule,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100,"MaxVertexDegree"20|>,"FinalState"]]

In[]:=