Nonahedral Graph

Author

Eric W. Weisstein
December 1, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/GraphTheory/NonahedralGraph.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/NonahedralGraph.html.

©2008 Wolfram Research, Inc. except for portions noted otherwise

Nonahedral Graphs

non=GraphData["Polyhedral",9]

Length[non]

GraphicsGrid[Partition[Show[GraphData[#],PlotLabel->TextCell[GraphData[#,"Name"],PageWidth->100,TextAlignment->Center],BaseStyle->Italic]&/@non,4,4,{1,1},{}],ImageSize->400]

Grid[{#,GraphData[#,"PolyhedralEmbeddings"]}&/@non,Dividers->All,Alignment->Left]

Should be 2606

Length[g9=Graphs[9]]//Timing

Length[graphs=Flatten[Position[Take[g9,All],_?(PolyhedralQ[#]&),{1}]]]//Timing

graphs