In[]:=
rules2=Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/RewritesOrdered22h2.m"];
In[]:=
Length[rules2]
Out[]=
438
In[]:=
allresx2=ParallelMapMonitored[TimeConstrained[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],4]["FinalState"],5]#&,rules2/.OrderedNet[{_,x_}]x];
In[]:=
allplotsx2=ParallelMapMonitored[OrderedGraphModelPlot[hypergraphToColoredSpec[First[#]],VertexShapeFunction"Circle"]Last[#]&,allresx2];
In[]:=
gathered2=Gather[allplotsx2,IsomorphicGraphQ@@SimpleGraph/@(First/@{##})&];
In[]:=
{First[#]OrderedGraphModelPlot[Last[#]]}&[First[#]]&/@gathered2
Out[]=
In[]:=
Take[allplotsx2,5]
Out[]=
In[]:=
OrderedGraphModelPlot[{{5,h[1],4},{3,1,h[2]}}{{5,6,h[1]},{h[2],1,2}}]
Out[]=
