Star Polyhedron

Author

Eric W. Weisstein
May 22, 2009

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

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

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

Figure

l={{"StellaOctangula"},PolyhedronData["KeplerPoinsot"]}

l2=Flatten[Partition[#,4,4,{1,1},{}]&/@l,1]

GraphicsGrid[Map[Show[PolyhedronData[#],Boxed->False,PlotLabel->TextCell[PolyhedronData[#,"Name"],TextAlignment->Center,PageWidth->90],BaseStyle->{10,Italic}]&,l2,{2}],ImageSize->400,Spacings->{-100,-40}]