Search All of the Math Forum:
Views expressed in these public forums are not endorsed by
NCTM or The Math Forum.



Re: Vertices of a polyhedron
Posted:
Jan 16, 2014 1:49 AM


PolyhedronData[12 + 8 + 6]
{"ElongatedSquareGyrobicupola", "GreatRhombicuboctahedron", \ "GyroelongatedSquareCupola", "GyroelongatedTriangularBicupola", \ "SmallRhombicuboctahedron", "SnubSquareAntiprism"}
poly = "GreatRhombicuboctahedron";
graph = PolyhedronData[poly, "NetGraph"]
polyImage = PolyhedronData[poly]
vCnt = PolyhedronData[poly, "VertexCount"]
48
vCoord = PolyhedronData[poly, "VertexCoordinates"]
Length[vCoord] == vCnt
True
Bob Hanlon
On Wed, Jan 15, 2014 at 4:16 AM, Francisco Javier Garc=EDa Capit=E1n < garciacapitan@gmail.com> wrote:
> > Dear friends, how can we calculate the vertices of a convex polyhedron that > has for its faces 12 squares, 8 regular hexagons, and 6 regular octagons? > >  >  > Francisco Javier Garc=EDa Capit=E1n > http://garciacapitan.99on.com > > >



