WOLFRAM NOTEBOOK

Graphs as Initial Conditions

In[]:=
inits=EdgeList/@
,
,
Out[]=
{{12,13,23},{12,14,23,34},{12,13,14,23,24,34}}
In[]:=
FindCycle
Out[]=
{{12,23,31}}
In[]:=
dinits={{12,23,31},{12,23,34,41},{12,23,31,14,24,34},{12,23,31,41,42,43}}/.RuleList;
In[]:=
dinits
Out[]=
{{{1,2},{2,3},{3,1}},{{1,2},{2,3},{3,4},{4,1}},{{1,2},{2,3},{3,1},{1,4},{2,4},{3,4}},{{1,2},{2,3},{3,1},{4,1},{4,2},{4,3}}}
In[]:=
eee=EnumerateWolframModelRules[{{1,2}}{{2,2}},2]
Out[]=
In[]:=
WolframModelExplorer1BinaryIC[eee,#,4]&/@dinits
Out[]=
In[]:=
Table[RandomWolframModelRule[{{2,2}}{{3,2}},4],10]
Out[]=
In[]:=
WolframModelExplorer1BinaryIC[%,#,4]&/@dinits
Out[]=
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.