MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

need to find polyhedrons with less than a 24 vertex array in PolyhedronData[]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg124791] need to find polyhedrons with less than a 24 vertex array in PolyhedronData[]
  • From: Roger Bagula <roger.bagula at gmail.com>
  • Date: Tue, 7 Feb 2012 04:01:41 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com

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.



  • Prev by Date: The simple command x=0;Dynamic[x=x+1]
  • Next by Date: having trouble with a data transfer issue
  • Previous by thread: Re: The simple command x=0;Dynamic[x=x+1]
  • Next by thread: Re: need to find polyhedrons with less than a 24 vertex array in PolyhedronData[]