Polyhedron Compound

Author

Eric W. Weisstein
September 24, 2023

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

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

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

PolyhedronData

PolyhedronData["Compound"]

By rotation about axes about face centers

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

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

By rotation about symmetry axis