Enneahedron

Author

Eric W. Weisstein
June 18, 2023

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polyhedra/Enneahedron.nb.

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

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

Examples

FirstCase[Import["https://oeis.org/A000944/b000944.txt","Table"],{9,n_}:>n]

GraphData["Polyhedral",9]

Length[%]

TextGrid[Sort[PolyhedronData[#,{"F","E","V","#"}]&/@PolyhedronData[9]],Dividers->All,Alignment->{{{Decimal},Left}}]

<<MathWorld`Prisms`

enneahedra=SortBy[Join[
PolyhedronData[#,{"Polyhedron","Name"}]&/@DeleteCases[PolyhedronData[9],{"CanonicalPyramid",_}],
{
{RegularPyramid[8,1],"octagonal pyramid"}
}
],Last]

Grid[Partition[Graphics3D[{Opacity[.5],#},PlotLabel->TextCell[Style[#2,Directive[14,Black,Italic,FontFamily->"Times"]],PageWidth->180,TextAlignment->Center,Hyphenation->True],Boxed->False,Method->{"SphericalRegion"->True}]&@@@enneahedra,UpTo[3]],ImageSize->600,Dividers->All,Alignment->Top]