WOLFRAM NOTEBOOK

Hyperedge-based rules

2 3-edges (2 symbols) 3 3-edges (3 symbols)

In[]:=
Union[Table[RandomInteger[{1,2},{2,3}]->RandomInteger[{1,3},{3,3}],30]]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=
In[]:=
Union[Table[RandomInteger[{1,2},{2,3}]->RandomInteger[{1,3},{3,3}],30]];
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=

2 3-edges (2 symbols) 4 3-edges (3 symbols)

In[]:=
Union[Table[RandomInteger[{1,2},{2,3}]->RandomInteger[{1,3},{4,3}],30]];
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=
In[]:=
OrderedHypergraphPlot[WolframModel[{{2,2,1},{2,2,2}}{{1,1,3},{1,1,1},{2,1,2},{3,3,2}},Table[{0,0,0},3],15,"FinalState"]]
Out[]=
In[]:=
OrderedHypergraphPlot[WolframModel[{{2,2,1},{2,2,2}}{{1,1,3},{1,1,1},{2,1,2},{3,3,2}},Table[{0,0,0},3],25,"FinalState"]]
Out[]=

2 3-edges (2 symbols) 4 3-edges (4 symbols)

2 3-edges (3 symbols) 4 3-edges (4 symbols)

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.