WOLFRAM NOTEBOOK

More Hyperedge-based rules

1 3-edge (2 symbols) ⟶ 2 3-edges (2 symbols)

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

1 3-edge (3 symbols) ⟶ 2 3-edges (3 symbols)

In[]:=
Union[Table[RandomInteger[{1,3},{1,3}]->RandomInteger[{1,3},{2,3}],30]]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[Echo@#,10,4]&,%]
Out[]=
{{2,3,3}}{{3,2,2},{2,1,1}}
In[]:=
OrderedHypergraphPlot/@WolframModel[{{2,3,3}}{{3,2,2},{2,1,1}},Table[{0,0,0},3],7,"StatesList"]
Out[]=
Note the disconnected causal graph:

2 3-edges (3 symbols) ⟶ 4 3-edges (4 symbols) [already started]

1 3-edge + 1 2-edge (3 symbols) ⟶ 2 3-edges + 2 2-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.