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[]:=
ordered=Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/AllOrderedNetsTo4.m"];
In[]:=
Length/@ordered
Out[]=
{4,38,308,4026}
In[]:=
First[ordered]
Out[]=
{OrderedNet[{{1},{{3,h[1],1}}}],OrderedNet[{{1},{{2,1,h[1]}}}],OrderedNet[{{1},{{h[1],3,2}}}],OrderedNet[{{1},{{h[1],h[2],h[3]}}}]}
In[]:=
rules=Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/RewritesOrdered24h4.m"];
In[]:=
Length[rules]
Out[]=
264
In[]:=
OrderedGraphModelPlot/@(Take[rules,4]/.OrderedNet[{_,x_}]x)
Out[]=
In[]:=
OrderedGraphModelPlot/@(rules/.OrderedNet[{_,x_}]x)
Out[]=
In[]:=
OrderedGraphModelPlot/@(Take[rules,-4]/.OrderedNet[{_,x_}]x)
Out[]=
In[]:=
Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/RewritesOrdered22h2.m"]
Out[]=