Deltahedron

Author

Eric W. Weisstein
July 24, 2023

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

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

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

Graphics

Convex

convexdeltahedra=SortBy[
{PolyhedronData[#,"Name"],PolyhedronData[#,"Polyhedron"],#}&/@PolyhedronData[{"Deltahedron","Convex"}],
PolyhedronData[#[[-1]],"F"]&]

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

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

Concave

concavedeltahedra=SortBy[
{PolyhedronData[#,"Name"],PolyhedronData[#,"Polyhedron"],#}&/@PolyhedronData[{"Deltahedron","Concave"}],
PolyhedronData[#[[-1]],"F"]&
]

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

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

PolyhedronData["EquilateralAugmentedIcosahedron","StandardName"]