In[]:=
rules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/13-33c.wxf"];
In[]:=
SeedRandom[42422];GraphicsGrid[Partition[ParallelMapMonitored[HypergraphPlot[WolframModel[#,{{0,0,0}},4,"FinalState"]]&,RandomSample[rules,50]],14],ImageSizeFull]
Out[]=
SeedRandom[42422];GraphicsGrid[Partition[ParallelMapMonitored[HypergraphPlot[WolframModel[#,{{0,0,0}},4,"FinalState"]]&,RandomSample[rules,50]],14],ImageSizeFull]
In[]:=
ress=Map[WolframModelTest[#,{{0,0},{0,0}}]&,frules];
In[]:=
MakePictures2[ress]
In[]:=
SeedRandom[42422];ParallelMapMonitored[WolframModelTest[#,{{0,0,0}}]&,RandomSample[rules,50]];
In[]:=
MakePictures[%]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3}}{{4,2,5},{4,5,1},{5,1,3}},{{0,0,0}},5},{{{1,2,3}}{{2,2,3},{2,2,4},{5,3,4}},{{0,0,0}},4}},2]
Out[]=
In[]:=
ParallelMapMonitored[ConnectedHypergraphQ[WolframModel[#,{{0,0,0}},4,"FinalState"]]&,SeedRandom[24266];RandomSample[rules,300]]
Out[]=
In[]:=
Pick[SeedRandom[24266];RandomSample[rules,300],%];
In[]:=
Length[%]
Out[]=
186
In[]:=
Out[]=
84
In[]:=
84/14
Out[]=
6
In[]:=
Take[%98,84]
Out[]=