WOLFRAM NOTEBOOK

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

2,2 5,2

2,3 4,3

2,3, 2,2 3,3 3,2

2,3, 2,2 4,3 4,2

2,4 3,4

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.