You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
newrules={{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,11},{8,10},{9,13},{12,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,13},{9,12},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,13},{9,12},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,11},{8,10},{9,13},{12,14}},{{1,2,3},{4,5,6},{2,5}}{{7,1,8},{9,3,10},{11,4,12},{13,6,14},{7,13},{8,10},{9,11},{12,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,10},{8,12},{9,13},{11,14}},{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{7,11},{8,14},{9,13},{10,12}},{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,14},{8,11},{9,12},{10,13}}};
In[]:=
FindCanonicalWolframModel[{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,11},{8,10},{9,13},{12,14}}]
Out[]=
{{1,2,3},{4,5,6},{1,4}}{{3,7,8},{6,9,10},{11,12,2},{13,14,5},{7,11},{8,10},{9,13},{12,14}}
In[]:=
newrulesp=ParallelMapMonitored[FindCanonicalWolframModel[{#}]&,newrules]
Out[]=
In[]:=
Labeled[RulePlot[WolframModel[#]],#]&/@newrulesp
Out[]=
In[]:=
Binomial[4,2]
Out[]=
6
In[]:=
RulePlot[WolframModel[#],"HyperedgeRendering""Subgraphs"]&/@newrulesp
Out[]=