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
1,2;1,3 2,2; 1,3
1,2;1,3 2,2; 1,3
In[]:=
EnumerateWolframModelRules[{{1,2},{1,3}}{{2,2},{1,3}}]
Out[]=
$Aborted
In[]:=
est[{{1,2},{1,3}}{{2,2},{1,3}}]
Out[]=
4213597
2
In[]:=
N[%]
Out[]=
2.1068×
6
10
In[]:=
RandomWolframModel[{{1,2},{1,3}}{{2,2},{1,3}}]
Out[]=
{{1,2,3},{3,4}}{{5,6,2},{7,7},{7,8}}
In[]:=
rules=Select[ParallelMapMonitored[RandomWolframModel[{{1,2},{1,3}}{{2,2},{1,3}}]&,Range[50]],ConnectedWolframModelQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
1
In[]:=
MakePictures[res2]
Out[]=
In[]:=
rules=Select[ParallelMapMonitored[RandomWolframModel[{{1,2},{1,3}}{{2,2},{1,3}}]&,Range[300]],ConnectedWolframModelQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
22
In[]:=
MakePictures[res2]
Out[]=
In[]:=
MakeDirectPictures[{{{{1,2,3},{1,4}}{{1,5,6},{2,1},{4,6}},{{0,0,0},{0,0}},4}},5]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2,3},{1,4}}{{1,5,6},{2,1},{4,6}}]]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2,3},{1,4}}{{1,5,6},{2,1},{4,6}},{{0,0,0},{0,0}},5,"StatesList"]
Out[]=
In[]:=
rules=Select[ParallelMapMonitored[RandomWolframModel[{{1,2},{1,3}}{{2,2},{1,3}}]&,Range[1000]],ConnectedWolframModelQ]
Out[]=
In[]:=
res=ParallelMapMonitored[WolframModelTest[#,{{0,0,0},{0,0}}]&,rules];
In[]:=
res2=DeleteDuplicates[Select[res,ConnectedHypergraphQ[#FinalState]&]];
In[]:=
Length[res2]
Out[]=
81
In[]:=
MakePictures[res2]
Out[]=
1,2;1,3 2,2; 2,3
1,2;1,3 2,2; 2,3