ordered=Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/AllOrderedNetsTo4.m"];
In[]:=
Length/@ordered
In[]:=
{4,38,308,4026}
Out[]=
First[ordered]
In[]:=
{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]}}}]}
Out[]=
rules=Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/RewritesOrdered24h4.m"];
In[]:=
Length[rules]
In[]:=
264
Out[]=
OrderedGraphModelPlot/@(Take[rules,4]/.OrderedNet[{_,x_}]x)
In[]:=
Out[]=
OrderedGraphModelPlot/@(rules/.OrderedNet[{_,x_}]x)
In[]:=
Out[]=
OrderedGraphModelPlot/@(Take[rules,-4]/.OrderedNet[{_,x_}]x)
In[]:=
Out[]=
Get["/Users/sw/Dropbox/Physics/SW2004Material/Data/RewritesOrdered22h2.m"]
In[]:=
Out[]=
Length[%]
In[]:=
438
Out[]=
OrderedGraphModelPlot/@(Take[%425,4]/.OrderedNet[{_,x_}]x)
In[]:=
Out[]=
coloredRuleToHypergraph[in:coloredSpecPatternout:coloredSpecPattern]:=Module[{hairPositions,hairRules,outIndexToHair,hairToInIndex,outToInMapping},hairPositions=Position[Catenate[#],_h,{1}]〚All,1〛&/@{in,out};hairRules=Thread[Catenate[{in,out}〚#〛]〚hairPositions〚#〛〛hairPositions〚#〛]&/@{1,2};outIndexToHair=Association[Reverse/@hairRules〚2〛];hairToInIndex=Association[hairRules〚1〛];​​outToInMapping=Association[(#+Length[Catenate[in]])hairToInIndex[outIndexToHair[#]]&/@Keys[outIndexToHair]];coloredSpecToHypergraph[in](coloredSpecToHypergraph[out]+Length[Catenate[in]]/.outToInMapping)]
In[]:=
ParallelMapMonitored[TimeConstrained[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],6]["FinalStatePlot"],5]#&,rules/.OrderedNet[{_,x_}]x]
In[]:=
Out[]=
InteractiveListSelectorSW[%]
In[]:=
Out[]=
ParallelMapMonitored[TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],3]["FinalState"]],VertexShapeFunction"Circle"],5]#&,Take[rules/.OrderedNet[{_,x_}]x,3]]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],1]["FinalState"]],VertexShapeFunction"Circle",VertexSize0],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],2]["FinalState"]],VertexShapeFunction"Circle"],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],3]["FinalState"]],VertexShapeFunction"Circle"],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],4]["FinalState"]],VertexShapeFunction"Circle"],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],5]["FinalState"]],VertexShapeFunction"Circle"],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
TimeConstrained[OrderedGraphModelPlot[hypergraphToColoredSpec[WolframModel[coloredRuleToHypergraph[#],coloredSpecToHypergraph[{{4,5,6},{1,2,3}}],6]["FinalState"]],VertexShapeFunction"Circle"],5]&/@Take[rules/.OrderedNet[{_,x_}]x,3]
In[]:=
Out[]=
Graph3D
,VertexCoordinatesAutomatic
In[]:=
Out[]=
ParallelEvaluate[$MachineName]
In[]:=
{delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,delta,lambda,lambda,lambda,lambda,lambda,lambda,lambda,lambda,lambda,lambda,lambda,lambda,tremac,tremac,tremac,tremac,tremac,tremac,tremac,tremac,tremac,tremac,tremac,tremac,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper,threadripper}
Out[]=