In[]:=
maxConnectedAtoms[{{1,3}}{{2,3}}]
Out[]=
7
In[]:=
rules=Select[EchoFunction[Length]@ResourceFunction["EnumerateWolframModelRules"][{{1,3}}{{2,3}},6],FullyConnectedRuleQ];
»
10581
In[]:=
Length[rules]
Out[]=
8341
In[]:=
ParallelMapMonitored[WolframModelTest[#,Automatic]&,RandomSample[rules,100]];
In[]:=
MakePictures[%]
Out[]=
1,2->n,2
1,2->n,2
Newer Case
Newer Case
Original Case
Original Case
1,2 -> 2,2
1,2 -> 2,2