Kepler-Poinsot Polyhedron

Author

Eric W. Weisstein
September 20, 2023

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polyhedra/Kepler-PoinsotPolyhedron.nb.

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

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

Solids

keplerpoinsot=PolyhedronData["KeplerPoinsot"]

GraphicsRow[Graphics3D[{PolyhedronData[#,"Polyhedron"]},Boxed->False,PlotLabel->Style[PolyhedronData[#,"Name"],Directive[14,Italic,Black,FontFamily->"Times"]]]&/@keplerpoinsot,Dividers->All,ImageSize->800]

GraphicsRow[Graphics3D[{FaceForm[Green,Red],PolyhedronData[#,"Polyhedron"]},Boxed->False,PlotLabel->Style[PolyhedronData[#,"Name"],Directive[14,Italic,Black,FontFamily->"Times"]]]&/@keplerpoinsot,Dividers->All,ImageSize->800]