In[]:=
$UnorderedHypergraphs=Association[(ToExpression/@StringSplit[StringTake[#,{-7,-5}],"-"]Import[#])&/@FileNames["*","/Users/sw/Dropbox/Physics/Data/UnorderedHypergraphs"]]
Out[]=
In[]:=
Length/@%
Out[]=
$UnorderedHypergraphs
In[]:=
Show[#,ImageSizeTiny]&/@unorderedHypergraphEvolutionStatesPlots[{{x,y,z},{u,v,z}}{{x,x,w},{u,v,x},{y,z,y}},10]
Out[]=
In[]:=
ParallelMapMonitored[TimeConstrained[Rasterize[(unorderedHypergraphPlot@orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[#],initialUnorderedHypergraphSelfLoop@#,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100,"MaxVertexDegree"20|>,"FinalState",TimeConstraint4]),RasterSize100],5]#&,Table[RandomChoice[$UnorderedHypergraphs[{2,3}]]RandomChoice[$UnorderedHypergraphs[{3,3}]],5]]
Out[]=
In[]:=
ParallelMapMonitored[TimeConstrained[Rasterize[(unorderedHypergraphPlot@orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[#],initialUnorderedHypergraphSelfLoop@#,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100,"MaxVertexDegree"20|>,"FinalState",TimeConstraint4]),RasterSize100],5]#&,Table[RandomChoice[$UnorderedHypergraphs[{2,3}]]RandomChoice[$UnorderedHypergraphs[{3,3}]],25]]
Out[]=
In[]:=
unorderedHypergraphEvolutionStatesPlots[{{1,1,1},{1,1,1}}{{1,1,2},{2,3,3},{2,4,5}},3]
Out[]=
In[]:=
TimeConstrained[Rasterize[(unorderedHypergraphPlot@orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[#],initialUnorderedHypergraphSelfLoop@#,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100,"MaxVertexDegree"20|>,"FinalState",TimeConstraint4]),RasterSize100],5]&[{{1,1,1},{1,1,1}}{{1,1,2},{2,3,3},{2,4,5}}]
Out[]=
In[]:=
InteractiveListSelectorSW[ParallelMapMonitored[TimeConstrained[(unorderedHypergraphPlot@orderedToUnorderedHypergraph@WolframModel[unorderedToOrderedHypergraphRule[#],initialUnorderedHypergraphSelfLoop@#,<|"MaxVertices"200,"MaxEdges"200,"MaxEvents"5000,"MaxGenerations"100,"MaxVertexDegree"20|>,"FinalState",TimeConstraint4]),5]#&,Table[RandomChoice[$UnorderedHypergraphs[{2,3}]]RandomChoice[$UnorderedHypergraphs[{3,3}]],25]]]
Out[]=
Have to sample 2,3 3,3
Have to sample 2,3 3,3
Use UnorderedHypergraphs-03 code
Use UnorderedHypergraphs-03 code
In[]:=
15!
Out[]=
1307674368000
In[]:=
11!
Out[]=
39916800
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/23-33c.wxf"];
Out[]=
$Aborted
Binary Rules
Binary Rules
canonicalUnorderedHypergraphRule
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"]
Out[]=
In[]:=
Union[ParallelMapMonitored[canonicalUnorderedHypergraphRule,allrules]]
Out[]=
5,2
5,2