Icosahedron

Author

Eric W. Weisstein
August 29, 2023

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

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

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

Examples

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

GraphData["Polyhedral",20]

Length[%]

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

<<MathWorld`Polyhedra`

icosahedra=Union[
{PolyhedronData[#,"Name"],Graphics3D[{Opacity[.3],PolyhedronData[#,"Polyhedron"]},Boxed->False]}&/@PolyhedronData["Simple",20],
{#,Graphics3D[{Opacity[.3],#2},Boxed->False]}&@@@{{"decagonal dipyramid",Dipyramid[10,3,1]},{"nonadecagonal pyramid",RegularRightPyramid[19,0,3,1]},{"octadecagonal prism",RegularRightPrism[18]}}]

Graphics

bug(422923): GraphicsRow/GraphicsGrid cut off plot label text

700/5.

GraphicsGrid[Partition[Show[#2,PlotLabel->TextCell[Style[#1,FontSlant->Italic,FontColor->Black,FontFamily->"Times"],TextAlignment->Center,Hyphenation->True,PageWidth->140],Boxed->False]&@@@icosahedra,UpTo[5]],Alignment->Top,Dividers->All,ImageSize->700]

Old

icosahedra=Union[
{PolyhedronData[#,"Name"],Show[PolyhedronData[#],Boxed->False]}&/@PolyhedronData[20],
{PolyhedronName[#],Graphics3D[Polyhedron[#],Boxed->False]}&/@{Dipyramid[10,3],Pyramid[19,3],Prism[18],RhombicIcosahedron}]

GraphicsGrid[Partition[Show[#2,PlotLabel->TextCell[Style[#1,FontSlant->Italic,FontColor->Black,FontFamily->"Times"],TextAlignment->Center,PageWidth->100],Boxed->False]&@@@icosahedra,UpTo[5]],ImageSize->500,Spacings->{-70,0}]