Cupola

Author

Eric W. Weisstein
May 17, 2004

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

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

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

Graphics

Show[GraphicsArray[Graphics3D[Polyhedron[Cupola[#]],Boxed->False]&/@Range[3,5]]]

Show/@(Graphics3D[Polyhedron[Cupola[#]],Boxed->False]&/@Range[3,5])

LiveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["cupola"<>ToString[#]<>".m",Polyhedron[Cupola[#]]]&/@Range[3,5]

Properties

<<Utilities`Simplify`

FullSimplify/@ToExact[#,Weight->100,CheckDigits->1000]&/@PolyhedronSurfaceArea/@(Polyhedron[Cupola[#]]&/@Range[3,5])

FullSimplify/@ToExact[#,Weight->100,CheckDigits->1000]&/@PolyhedronVolume/@(Polyhedron[Cupola[#]]&/@Range[3,5])