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[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"];
In[]:=
WolframModel[#,{{0,0},{0,0}},7,"CausalGraph"]&/@RandomSample[allrules,10]
Out[]=
In[]:=
Counts[ParallelMapMonitored[WolframModelTest[#,Automatic]["EvolutionObject"]["CausalGraph"]&,allrules]]
Out[]=
In[]:=
distincts=First/@GatherBy[ParallelMapMonitored[WolframModelTest[#,Automatic]["EvolutionObject"]["CausalGraph"]#&,Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-32c.wxf"]],First];
SeedRandom[2425];GraphicsGrid[Partition[RandomSample[distincts,8*6],8],ImageSizeFull]
In[]:=
InteractiveListSelectorSW[distincts]
Out[]=
In[]:=
In[]:=
WolframModelTest[ints[[1]],Automatic,1.3]
Out[]=
In[]:=
ParallelMapMonitored[With[{w=WolframModelTest[#,Automatic,1.3]},GraphicsColumn[{HypergraphPlot[w["FinalState"]],w["EvolutionObject"]["CausalGraph"]}]#]&,ints]
In[]:=
InteractiveListSelectorSW[%]
Out[]=
In[]:=
DeleteDuplicates@{{{1,1},{1,2}}{{2,2},{3,2},{1,3}},{{1,2},{1,3}}{{2,1},{1,3},{3,4}},{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{1,2},{1,3}}{{1,2},{1,2},{2,4}},{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{1,2},{1,3}}{{2,3},{2,4},{1,3}},{{1,2},{2,3}}{{1,1},{1,4},{4,3}},{{1,2},{1,3}}{{2,3},{3,4},{4,1}},{{1,2},{1,3}}{{2,3},{3,4},{4,1}},{{1,2},{1,3}}{{2,3},{3,4},{4,1}},{{1,2},{1,3}}{{1,4},{1,2},{3,4}},{{1,2},{1,3}}{{1,4},{1,2},{3,4}},{{1,2},{1,3}}{{1,4},{1,2},{3,4}},{{1,2},{1,3}}{{2,4},{2,1},{4,1}},{{1,2},{1,3}}{{2,4},{4,3},{3,1}},{{1,2},{2,3}}{{1,4},{1,2},{4,3}},{{1,2},{2,3}}{{3,4},{3,4},{3,1}},{{1,2},{1,3}}{{4,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,4},{1,3},{4,2}},{{1,2},{3,2}}{{1,4},{1,3},{4,2}},{{1,2},{3,2}}{{2,4},{2,1},{4,3}},{{1,2},{3,2}}{{2,4},{2,1},{4,3}}}
In[]:=
ints2={{{1,1},{1,2}}{{2,2},{3,2},{1,3}},{{1,2},{1,3}}{{2,1},{1,3},{3,4}},{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{1,2},{1,3}}{{1,2},{1,2},{2,4}},{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{1,2},{1,3}}{{2,3},{2,4},{1,3}},{{1,2},{2,3}}{{1,1},{1,4},{4,3}},{{1,2},{1,3}}{{2,3},{3,4},{4,1}},{{1,2},{1,3}}{{1,4},{1,2},{3,4}},{{1,2},{1,3}}{{2,4},{2,1},{4,1}},{{1,2},{1,3}}{{2,4},{4,3},{3,1}},{{1,2},{2,3}}{{1,4},{1,2},{4,3}},{{1,2},{2,3}}{{3,4},{3,4},{3,1}},{{1,2},{1,3}}{{4,4},{2,4},{3,4}},{{1,2},{3,2}}{{1,4},{1,3},{4,2}},{{1,2},{3,2}}{{2,4},{2,1},{4,3}}};
In[]:=
WolframModel[{{1,2},{2,3}}{{3,2},{3,2},{2,4}},{{0,0},{0,0}},50,"CausalGraph"]
Out[]=
In[]:=
ParallelMapMonitored[{#,{{0,0},{0,0}},Length[WolframModelTest[#,Automatic,1.3]["Sizes"]]}&,ints2]
Out[]=
In[]:=
trints={{{{1,2},{2,3}}{{3,2},{3,2},{2,4}},{{0,0},{0,0}},50},{{{1,1},{1,2}}{{2,2},{3,2},{1,3}},{{0,0},{0,0}},130},{{{1,2},{1,3}}{{2,1},{1,3},{3,4}},{{0,0},{0,0}},25},{{{1,2},{1,3}}{{1,2},{2,3},{3,4}},{{0,0},{0,0}},17},{{{1,2},{1,3}}{{1,2},{1,2},{2,4}},{{0,0},{0,0}},15},{{{1,2},{2,3}}{{1,3},{3,2},{2,4}},{{0,0},{0,0}},16},{{{1,2},{1,3}}{{2,3},{3,1},{1,4}},{{0,0},{0,0}},22},{{{1,2},{1,3}}{{2,3},{2,4},{1,3}},{{0,0},{0,0}},15},{{{1,2},{2,3}}{{1,1},{1,4},{4,3}},{{0,0},{0,0}},13},{{{1,2},{1,3}}{{2,3},{3,4},{4,1}},{{0,0},{0,0}},22},{{{1,2},{1,3}}{{1,4},{1,2},{3,4}},{{0,0},{0,0}},14},{{{1,2},{1,3}}{{2,4},{2,1},{4,1}},{{0,0},{0,0}},130},{{{1,2},{1,3}}{{2,4},{4,3},{3,1}},{{0,0},{0,0}},26},{{{1,2},{2,3}}{{1,4},{1,2},{4,3}},{{0,0},{0,0}},16},{{{1,2},{2,3}}{{3,4},{3,4},{3,1}},{{0,0},{0,0}},27},{{{1,2},{1,3}}{{4,4},{2,4},{3,4}},{{0,0},{0,0}},17},{{{1,2},{3,2}}{{1,4},{1,3},{4,2}},{{0,0},{0,0}},130},{{{1,2},{3,2}}{{2,4},{2,1},{4,3}},{{0,0},{0,0}},30}};
In[]:=
ParallelMapMonitored[With[{w=(WolframModel@@#)},GraphicsColumn[{HypergraphPlot[w["FinalState"]],w["CausalGraph"]}]]&,trints]
Out[]=