Octahedron

Author

Eric W. Weisstein
July 24, 2023

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

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

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

Graphic

<<MathWorld`Polyhedra`

octahedra=Union[
{PolyhedronData[#,"Name"],PolyhedronData[#,"Polyhedron"]}&/@PolyhedronData["Simple",8],
{
{"square dipyramid",Dipyramid[4,2,1]},
{"heptagonal pyramid",RegularRightPyramid[7,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->140]]&@@@octahedra,UpTo[5]],Alignment->Top,Dividers->All,ImageSize->700]

Examples

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

GraphData["Polyhedral",8]

Length[%]

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