Re: need to find polyhedrons with less than a 24 vertex array in PolyhedronData[]
- To: mathgroup at smc.vnet.net
- Subject: [mg124827] Re: need to find polyhedrons with less than a 24 vertex array in PolyhedronData[]
- From: Bob Hanlon <hanlonr357 at gmail.com>
- Date: Wed, 8 Feb 2012 05:33:16 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Select[PolyhedronData[],
Length[PolyhedronData[#, "VertexCoordinates"]] == 24 &]
{CubeThreeCompound,ElongatedSquareGyrobicupola,GyroelongatedSquareBicupola, IcosahedronTwoCompound,{OctahedronFourCompound,1},SmallRhombicuboctahedron, SnubCube,TetrahedronSixCompound,TruncatedCube,TruncatedOctahedron}
PolyhedronData /@ %
Bob Hanlon
On Tue, Feb 7, 2012 at 4:01 AM, Roger Bagula <roger.bagula at gmail.com> wrote:
> I have an program that that cuts out after 24.
> I need to sort through the data:
> PolyhedronData[]
> {"AcuteGoldenRhombohedron", {"Antiprism", 4}, {"Antiprism",
> 5}, {"Antiprism", 6}, {"Antiprism", 7}, {"Antiprism",
> 8}, {"Antiprism", 9}, {"Antiprism",
> 10}, "AugmentedDodecahedron", "AugmentedHexagonalPrism", \
> "AugmentedPentagonalPrism", "AugmentedSphenocorona", \
> "AugmentedTriangularPrism", "AugmentedTridiminishedIcosahedron", \
> "AugmentedTruncatedCube", "AugmentedTruncatedDodecahedron", \
> "AugmentedTruncatedTetrahedron", "BiaugmentedPentagonalPrism", \
> "BiaugmentedTriangularPrism", "BiaugmentedTruncatedCube", \
> "BigyrateDiminishedRhombicosidodecahedron", "Bilunabirotunda", \
> "CsaszarPolyhedron", "Cube", "CubeFiveCompound", {"CubeFourCompound",
> 1}, {"CubeFourCompound",
> 2}, "CubeOctahedronCompound", "CubeOctahedronFiveCompound", \
> "CubeOctahedronThreeCompound", "CubeSixCompound", "CubeTenCompound", \
> "CubeThreeCompound", "CubeTwoCompound", "Cuboctahedron", \
> "CumulatedCube", "CumulatedDodecahedron", "CumulatedTetrahedron", \
> "DeltoidalHexecontahedron", "DeltoidalIcositetrahedron", \
> "DiminishedRhombicosidodecahedron", {"Dipyramid", 3}, {"Dipyramid",
> 5}, "DisdyakisDodecahedron", "DisdyakisTriacontahedron", \
> "Disphenocingulum", "Dodecahedron", "DodecahedronFiveCompound", \
> "DodecahedronIcosahedronCompound", "DodecahedronSixCompound", \
> "DodecahedronSmallTriambicIcosahedronCompound", \
> "DodecahedronTwoCompound", "DuerersSolid", "Echidnahedron", \
> "ElongatedDodecahedron", "ElongatedPentagonalCupola", \
> "ElongatedPentagonalDipyramid", "ElongatedPentagonalGyrobicupola", \
> "ElongatedPentagonalGyrobirotunda", \
> "ElongatedPentagonalGyrocupolarotunda", \
> "ElongatedPentagonalOrthobicupola", \
> "ElongatedPentagonalOrthobirotunda", \
> "ElongatedPentagonalOrthocupolarotunda", \
> "ElongatedPentagonalPyramid", "ElongatedPentagonalRotunda", \
> "ElongatedSquareCupola", "ElongatedSquareDipyramid", \
> "ElongatedSquareGyrobicupola", "ElongatedSquarePyramid", \
> "ElongatedTriangularCupola", "ElongatedTriangularDipyramid", \
> "ElongatedTriangularGyrobicupola", \
> "ElongatedTriangularOrthobicupola", "ElongatedTriangularPyramid", \
> "EschersSolid", "GreatDodecahedron", "GreatIcosahedron", \
> "GreatRhombicosidodecahedron", "GreatRhombicTriacontahedron", \
> "GreatRhombicuboctahedron", "GreatStellatedDodecahedron", \
> "GyrateBidiminishedRhombicosidodecahedron", \
> "GyrateRhombicosidodecahedron", "Gyrobifastigium", \
> "GyroelongatedPentagonalBicupola", \
> "GyroelongatedPentagonalBirotunda", "GyroelongatedPentagonalCupola", \
> "GyroelongatedPentagonalCupolarotunda", \
> "GyroelongatedPentagonalPyramid", "GyroelongatedPentagonalRotunda", \
> "GyroelongatedSquareBicupola", "GyroelongatedSquareCupola", \
> "GyroelongatedSquareDipyramid", "GyroelongatedSquarePyramid", \
> "GyroelongatedTriangularBicupola", "GyroelongatedTriangularCupola", \
> "Hebesphenomegacorona", "Icosahedron", "IcosahedronFiveCompound", \
> "IcosahedronSixCompound", "IcosahedronTwoCompound", \
> "Icosidodecahedron", "JessensOrthogonalIcosahedron", \
> "MathematicaPolyhedron", "MetabiaugmentedDodecahedron", \
> "MetabiaugmentedHexagonalPrism", \
> "MetabiaugmentedTruncatedDodecahedron", \
> "MetabidiminishedIcosahedron", \
> "MetabidiminishedRhombicosidodecahedron", \
> "MetabigyrateRhombicosidodecahedron", \
> "MetagyrateDiminishedRhombicosidodecahedron", \
> "ObtuseGoldenRhombohedron", "Octahedron", "OctahedronFiveCompound", \
> {"OctahedronFourCompound", 1}, {"OctahedronFourCompound",
> 2}, "OctahedronTenCompound", "OctahedronThreeCompound", \
> "ParabiaugmentedDodecahedron", "ParabiaugmentedHexagonalPrism", \
> "ParabiaugmentedTruncatedDodecahedron", \
> "ParabidiminishedRhombicosidodecahedron", \
> "ParabigyrateRhombicosidodecahedron", \
> "ParagyrateDiminishedRhombicosidodecahedron", "PentagonalCupola", \
> "PentagonalGyrobicupola", "PentagonalGyrocupolarotunda", \
> "PentagonalHexecontahedron", "PentagonalIcositetrahedron", \
> "PentagonalOrthobicupola", "PentagonalOrthobirotunda", \
> "PentagonalOrthocupolarotunda", "PentagonalPrismSixCompound", \
> "PentagonalRotunda", "PentakisDodecahedron", {"Prism", 3}, {"Prism",
> 5}, {"Prism", 6}, {"Prism", 7}, {"Prism", 8}, {"Prism",
> 9}, {"Prism", 10}, {"Pyramid", 4}, {"Pyramid",
> 5}, "RhombicDodecahedron", {"RhombicDodecahedronStellation",
> 2}, {"RhombicDodecahedronStellation",
> 3}, "RhombicEnneacontahedron", "RhombicHexecontahedron", \
> "RhombicIcosahedron", "RhombicTriacontahedron", \
> "SmallRhombicosidodecahedron", "SmallRhombicuboctahedron", \
> "SmallStellatedDodecahedron", "SmallTriakisOctahedron", \
> "SmallTriambicIcosahedron", "SnubCube", "SnubDisphenoid", \
> "SnubDodecahedron", "SnubSquareAntiprism", "Sphenocorona", \
> "Sphenomegacorona", "SquareCupola", "SquareGyrobicupola", \
> "SquareOrthobicupola", "SquashedDodecahedron", "StellaOctangula", \
> "SzilassiPolyhedron", "Tetrahedron", "TetrahedronFiveCompound", \
> {"TetrahedronFourCompound", 1}, {"TetrahedronFourCompound",
> 2}, {"TetrahedronFourCompound",
> 3}, "TetrahedronSixCompound", "TetrahedronTenCompound", \
> "TetrahedronThreeCompound", "TetrahedronTwoCompound", \
> "TetrakisHexahedron", "TriakisIcosahedron", "TriakisTetrahedron", \
> "TriangularCupola", "TriangularHebesphenorotunda", \
> "TriangularOrthobicupola", "TriaugmentedDodecahedron", \
> "TriaugmentedHexagonalPrism", "TriaugmentedTriangularPrism", \
> "TriaugmentedTruncatedDodecahedron", "TridiminishedIcosahedron", \
> "TridiminishedRhombicosidodecahedron", \
> "TrigyrateRhombicosidodecahedron", "TruncatedCube", \
> "TruncatedDodecahedron", "TruncatedIcosahedron", \
> "TruncatedOctahedron", "TruncatedTetrahedron"}
>
> For ones that have:
> v =PolyhedronData["TruncatedCube", "VertexCoordinates"]
> Length[v]=24.
>