Decahedron

Author

Eric W. Weisstein
August 21, 2023

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

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

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

Graphic

<<MathWorld`Polyhedra`

New

decahedra=Union[
{PolyhedronData[#,"Name"],PolyhedronData[#,"Polyhedron"]}&/@PolyhedronData["Simple",10],
{
{"octagonal dipyramid",Dipyramid[8,2,1]},
{"nonagonal pyramid",RegularRightPyramid[9,0,1,1]}
}
]

GraphicsGrid[Partition[Show[Graphics3D[{Opacity[.5],#2},Boxed->False],PlotLabel->TextCell[Style[#1,Italic,14,Black,FontFamily->"Times"],Hyphenation->True,TextAlignment->Center,PageWidth->130]]&@@@decahedra,UpTo[5]],Alignment->Top,Dividers->All,ImageSize->700]

All

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

GraphData

GraphData["Polyhedral",10]

Length[%]

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