Tetradecahedron

Author

Eric W. Weisstein
July 28, 2011

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

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

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

Examples

V5

PolyhedronName/@(polys=Sort[Select[Join[Platonics,Archimedeans,JohnsonSolids,First/@ArchimedeanDuals,{Prism[12],Antiprism[6],Pyramid[13],Dipyramid[7,.5]}],(Length[PolyhedronFaces[#]]==14&)],OrderedQ[PolyhedronName/@{##}]&])//ColumnForm

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

V6

Unprotect[PolyhedronData]

PolyhedronData[{"Dipyramid",7}]:=Graphics3D[Polyhedron[Dipyramid[7,2]]]
PolyhedronData[{"Dipyramid",7},"Name"]:="heptagonal dipyramid"

PolyhedronData[{"Prism",12}]:=Graphics3D[Polyhedron[Prism[12]]]
PolyhedronData[{"Prism",12},"Name"]:="dodecagonal prism"

PolyhedronData[{"Pyramid",13}]:=Graphics3D[Polyhedron[Pyramid[13,3]]]
PolyhedronData[{"Pyramid",13},"Name"]:="tridecagonal pyramid"

polys=SortBy[Join[DeleteCases[PolyhedronData[14],"CubeOctahedronCompound"],{{"Prism",12},{"Pyramid",13},{"Dipyramid",7}}],PolyhedronData[#,"Name"]&]

GraphicsGrid[Partition[Show[PolyhedronData[#],Boxed->False,PlotLabel->TextCell[Style[PolyhedronData[#,"Name"],Italic],PageWidth->100,TextAlignment->Center]]&/@polys,5,5,{1,1},{}],ImageSize->500]

GraphicsGrid[Partition[Show[PolyhedronData[#],Boxed->False,PlotLabel->TextCell[Style[PolyhedronData[#,"Name"],Italic],PageWidth->90,TextAlignment->Center]]&/@polys,4,4,{1,1},{}]]

Grid[{#,Subscript["J","Johnson"/.PolyhedronData[#,"NotationRules"]]}&/@PolyhedronData["Johnson",14]]