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
In[]:=
all42=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/22-42c.wxf"];
In[]:=
RandomSample[all42,4]
Out[]=
Only one new variable on the right
No repeated edges on the right
No repeated edges on the right
In[]:=
all42proc=Select[all42,Max[Last[#]]Max[First[#]]+1&];
In[]:=
Length[all42proc]
Out[]=
7933
In[]:=
Length[all42]
Out[]=
40405
In[]:=
all42procx=Select[all42,Max[Last[#]]Max[First[#]]+1&&Length[Union[Last[#]]]Length[Last[#]]&];
In[]:=
Length[all42procx]
Out[]=
3689
In[]:=
RandomSample[all42procx,5]
Out[]=
Loops on the right are OK.
In[]:=
MakePictures2[ParallelMapMonitored[WolframModelTest[#,Automatic]&,RandomSample[all42procx,5]]]
Out[]=
In[]:=
MakePictures2[ParallelMapMonitored[WolframModelTest[#,Automatic]&,RandomSample[all42procx,40]]]
Out[]=
In[]:=
MakePictures2[ParallelMapMonitored[WolframModelTest[#,Automatic]&,RandomSample[all42procx,50]]]
Out[]=