2,24,2
2,24,2
In[]:=
est[{{2,2}}{{4,2}}]//N
Out[]=
87783.3
In[]:=
rules=Select[ParallelMapMonitored[RandomWolframModel[{{2,2}}{{4,2}}]&,Range[50]],ConnectedWolframModelQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
3
In[]:=
res2[[1]]
Out[]=
In[]:=
MakePictures2[res2]
Out[]=
In[]:=
rules=Select[ParallelMapMonitored[RandomWolframModel[{{2,2}}{{4,2}}]&,Range[1000]],ConnectedWolframModelQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
68
In[]:=
res3=First/@GroupBy[res2,#FinalState&];
In[]:=
Length[res3]
Out[]=
68
In[]:=
MakePictures2[Values[res3]]
Out[]=
Searches
Searches
2,2 5,2
2,2 5,2
2,3 4,3
2,3 4,3
2,3, 2,2 3,3 3,2
2,3, 2,2 3,3 3,2
2,3, 2,2 4,3 4,2
2,3, 2,2 4,3 4,2
2,4 3,4
2,4 3,4