Triacontahedron

Author

Eric W. Weisstein
February 20, 2005

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

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

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

Examples

PolyhedronName/@(polys=Sort[Select[Join[Platonics,Archimedeans,JohnsonSolids,First/@ArchimedeanDuals,{Prism[28],Antiprism[14],Pyramid[29,3],Dipyramid[15,1]}],(Length[PolyhedronFaces[#]]==30&)],OrderedQ[PolyhedronName/@{##}]&])//ColumnForm

Show[GraphicsArray[Partition[Graphics3D[Polyhedron[#],PlotLabel->StyleForm[StringJoin@@StringSplit[PolyhedronName[#]," "->"\n"],FontFamily->"Times",TextAlignment->0,FontSlant->"Italic"],Boxed->False]&/@polys,3,3,{1,1},{}]],ImageSize->500,GraphicsSpacing->{-.2,-.2}]