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
{{3,2}}{{5,2}},4
{{3,2}}{{5,2}},4
In[]:=
Select[Union[Table[RandomWolframModelRule[{{3,2}}{{5,2}},4],50]],NewVerticesQ]
Out[]=
In[]:=
ParallelMapMonitored[SafeHyperModelTestButton[#,10,4]&,%]
Out[]=
In[]:=
WolframModel[{{1,1},{2,1},{3,3}}{{2,1},{2,2},{3,3},{4,1},{4,2}},Table[0,3,2],20]
Out[]=
In[]:=
Graph[Rule@@@%["FinalState"]]
Out[]=
In[]:=
Graph[Rule@@@WolframModel[{{1,1},{2,1},{3,3}}{{2,1},{2,2},{3,3},{4,1},{4,2}},Table[0,3,2],40,"FinalState"]]
Out[]=
Another rule
Another rule
In[]:=
RulePlot[WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}}]]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}}],VertexLabelsAutomatic]
Out[]=
In[]:=
WolframModel[{{1,2},{1,2},{3,1}}{{1,1},{1,4},{2,1},{2,4},{4,3}},Table[0,3,2],20]
Out[]=
In[]:=
Graph[Rule@@@%["FinalState"]]
Out[]=
New explorer
New explorer
Another rule
Another rule
NOTE: this is an LHS disconnected rule.....