In[]:=
Graph[#,ImageSize150]&/@NestListRuleOnGraph[{{x,y}}{{x,y},{y,z},{z,x}},#]&,
,3
Out[]=
In[]:=
PlanarGraphQ/@%
Out[]=
{False,False,False,False}
In[]:=
ResourceFunction["ChromaticNumber"]
Out[]=
3
In[]:=
UndirectedGraph[Rule@@@#]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},5,"StatesList"]
Out[]=
In[]:=
ParallelMapMonitored[ResourceFunction["ChromaticNumber"],%]
Out[]=
{2,3,3,3,3,3}
In[]:=
UndirectedGraph[Rule@@@#]&/@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},6,"StatesList"]
Out[]=
In[]:=
ParallelMapMonitored[ResourceFunction["ChromaticNumber"],%]
Out[]=
{2,3,3,3,3,3,3}
In[]:=
In[]:=
With[{ru=testrules},Pick[ru,ParallelMapMonitored[PlanarTest[#,1]&,ru]]]
Out[]=
In[]:=
Length[%]
Out[]=
69
In[]:=
Length[testrules]
Out[]=
74
In[]:=
With[{ru=testrules},Pick[ru,ParallelMapMonitored[PlanarTest[#,4]&,ru]]]
Out[]=
In[]:=
Length[%]
Out[]=
62
In[]:=
$PhysicsDataDirectory
Out[]=
/Users/sw/Dropbox/Physics/Data
In[]:=
allrules=Import["/Users/sw/Dropbox/Physics/Data/RuleEnumerations/12-32c.wxf"];
In[]:=
Length[allrules]
Out[]=
506
In[]:=
With[{ru=allrules},Pick[ru,ParallelMapMonitored[PlanarTest[#,1]&,ru]]];
In[]:=
Length[%]
Out[]=
506