Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: Vertices of a polyhedron
Replies: 1   Last Post: Jan 16, 2014 1:49 AM

 Bob Hanlon Posts: 906 Registered: 10/29/11
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
>
>
>