(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     18250,        335]
NotebookOptionsPosition[     17827,        315]
NotebookOutlinePosition[     18174,        330]
CellTagsIndexPosition[     18131,        327]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Ikosaeder-Explorer", "Title",
 CellChangeTimes->{{3.445331720359375*^9, 3.4453317243125*^9}, {
  3.445332373265625*^9, 3.445332376328125*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Row", "[", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"PolyhedronData", "[", "g", "]"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Style", "[", 
       RowBox[{
        RowBox[{"PolyhedronData", "[", 
         RowBox[{"g", ",", "p"}], "]"}], ",", "16", ",", "Bold"}], "]"}]}], 
     "}"}], "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"g", ",", 
     RowBox[{"PolyhedronData", "[", "All", "]"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"p", ",", 
     RowBox[{"Complement", "@@", 
      RowBox[{"PolyhedronData", "/@", 
       RowBox[{"{", 
        RowBox[{"\"\<Properties\>\"", ",", "\"\<Classes\>\""}], "}"}]}]}]}], 
    "}"}]}], "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.445331739890625*^9, 3.445331881703125*^9}, {
  3.445332107640625*^9, 3.44533210884375*^9}},
 CellID->209333783],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`g$$ = "Cuboctahedron", $CellContext`p$$ = 
    "NetImage", Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`g$$], {{"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", "CubeOctahedronCompound", 
       "CubeOctahedronFiveCompound", "CubeOctahedronThreeCompound", 
       "CubeSixCompound", "CubeTenCompound", "CubeThreeCompound", 
       "CubeTwoCompound", "Cuboctahedron", "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", "HexagonalPrismSixCompound", "Icosahedron", 
       "IcosahedronFiveCompound", "IcosahedronSixCompound", 
       "IcosahedronTwoCompound", "Icosidodecahedron", 
       "JessensOrthogonalIcosahedron", "MathematicaPolyhedron", 
       "MetabiaugmentedDodecahedron", "MetabiaugmentedHexagonalPrism", 
       "MetabiaugmentedTruncatedDodecahedron", "MetabidiminishedIcosahedron", 
       "MetabidiminishedRhombicosidodecahedron", 
       "MetabigyrateRhombicosidodecahedron", 
       "MetagyrateDiminishedRhombicosidodecahedron", "Octahedron", 
       "OctahedronFiveCompound", "OctahedronFourCompound", 
       "OctahedronTenCompound", "OctahedronThreeCompound", 
       "ParabiaugmentedDodecahedron", "ParabiaugmentedHexagonalPrism", 
       "ParabiaugmentedTruncatedDodecahedron", 
       "ParabidiminishedRhombicosidodecahedron", 
       "ParabigyrateRhombicosidodecahedron", 
       "ParagyrateDiminishedRhombicosidodecahedron", "PentagonalCupola", 
       "PentagonalGyrobicupola", "PentagonalGyrocupolarotunda", 
       "PentagonalHexecontahedron", "PentagonalIcositetrahedron", 
       "PentagonalOrthobicupola", "PentagonalOrthobirotunda", 
       "PentagonalOrthocupolarotunda", "PentagonalRotunda", 
       "PentakisDodecahedron", {"Prism", 3}, {"Prism", 5}, {"Prism", 6}, {
       "Prism", 7}, {"Prism", 8}, {"Prism", 9}, {"Prism", 10}, {
       "Pyramid", 4}, {"Pyramid", 5}, "RhombicDodecahedron", {
       "RhombicDodecahedronStellation", 2}, "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"}}, {
      Hold[$CellContext`p$$], {
      "AdjacentFaceIndices", "AlternateNames", "AlternateStandardNames", 
       "Centroid", "Circumcenter", "Circumradius", "Circumsphere", "Classes", 
       "DefaultOrientation", "DihedralAngleRules", "DihedralAngles", 
       "DualCompound", "DualName", "DualScale", "EdgeCount", "EdgeIndices", 
       "EdgeLengths", "Edges", "FaceCount", "FaceCountRules", "FaceIndices", 
       "Faces", "GeneralizedDiameter", "Image", "Incenter", "InertiaTensor", 
       "Information", "Inradius", "Insphere", "Midcenter", "Midradius", 
       "Midsphere", "Name", "NetCoordinates", "NetCount", "NetEdgeIndices", 
       "NetEdges", "NetFaceIndices", "NetFaces", "NetImage", "NotationRules", 
       "Orientations", "PolyhedronIndices", "RegionFunction", 
       "SchlaefliSymbol", "SkeletonCoordinates", "SkeletonGraphName", 
       "SkeletonImage", "SkeletonRules", "StandardName", "StandardNames", 
       "StellationCount", "SurfaceArea", "SymmetryGroupString", 
       "VertexCoordinates", "VertexCount", "VertexIndices", "Volume", 
       "WythoffSymbol"}}}, Typeset`size$$ = {506., {118., 122.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`g$1221$$ = 0, $CellContext`p$1222$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`g$$ = {"Antiprism", 4}, $CellContext`p$$ = 
        "AdjacentFaceIndices"}, "ControllerVariables" :> {
        Hold[$CellContext`g$$, $CellContext`g$1221$$, 0], 
        Hold[$CellContext`p$$, $CellContext`p$1222$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Row[{
         Show[
          PolyhedronData[$CellContext`g$$], ImageSize -> 400], 
         Style[
          PolyhedronData[$CellContext`g$$, $CellContext`p$$], 16, Bold]}], 
      "Specifications" :> {{$CellContext`g$$, {{"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",
           "CubeOctahedronCompound", "CubeOctahedronFiveCompound", 
          "CubeOctahedronThreeCompound", "CubeSixCompound", "CubeTenCompound",
           "CubeThreeCompound", "CubeTwoCompound", "Cuboctahedron", 
          "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", "HexagonalPrismSixCompound", "Icosahedron", 
          "IcosahedronFiveCompound", "IcosahedronSixCompound", 
          "IcosahedronTwoCompound", "Icosidodecahedron", 
          "JessensOrthogonalIcosahedron", "MathematicaPolyhedron", 
          "MetabiaugmentedDodecahedron", "MetabiaugmentedHexagonalPrism", 
          "MetabiaugmentedTruncatedDodecahedron", 
          "MetabidiminishedIcosahedron", 
          "MetabidiminishedRhombicosidodecahedron", 
          "MetabigyrateRhombicosidodecahedron", 
          "MetagyrateDiminishedRhombicosidodecahedron", "Octahedron", 
          "OctahedronFiveCompound", "OctahedronFourCompound", 
          "OctahedronTenCompound", "OctahedronThreeCompound", 
          "ParabiaugmentedDodecahedron", "ParabiaugmentedHexagonalPrism", 
          "ParabiaugmentedTruncatedDodecahedron", 
          "ParabidiminishedRhombicosidodecahedron", 
          "ParabigyrateRhombicosidodecahedron", 
          "ParagyrateDiminishedRhombicosidodecahedron", "PentagonalCupola", 
          "PentagonalGyrobicupola", "PentagonalGyrocupolarotunda", 
          "PentagonalHexecontahedron", "PentagonalIcositetrahedron", 
          "PentagonalOrthobicupola", "PentagonalOrthobirotunda", 
          "PentagonalOrthocupolarotunda", "PentagonalRotunda", 
          "PentakisDodecahedron", {"Prism", 3}, {"Prism", 5}, {"Prism", 6}, {
          "Prism", 7}, {"Prism", 8}, {"Prism", 9}, {"Prism", 10}, {
          "Pyramid", 4}, {"Pyramid", 5}, "RhombicDodecahedron", {
          "RhombicDodecahedronStellation", 2}, "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"}}, {$CellContext`p$$, {
         "AdjacentFaceIndices", "AlternateNames", "AlternateStandardNames", 
          "Centroid", "Circumcenter", "Circumradius", "Circumsphere", 
          "Classes", "DefaultOrientation", "DihedralAngleRules", 
          "DihedralAngles", "DualCompound", "DualName", "DualScale", 
          "EdgeCount", "EdgeIndices", "EdgeLengths", "Edges", "FaceCount", 
          "FaceCountRules", "FaceIndices", "Faces", "GeneralizedDiameter", 
          "Image", "Incenter", "InertiaTensor", "Information", "Inradius", 
          "Insphere", "Midcenter", "Midradius", "Midsphere", "Name", 
          "NetCoordinates", "NetCount", "NetEdgeIndices", "NetEdges", 
          "NetFaceIndices", "NetFaces", "NetImage", "NotationRules", 
          "Orientations", "PolyhedronIndices", "RegionFunction", 
          "SchlaefliSymbol", "SkeletonCoordinates", "SkeletonGraphName", 
          "SkeletonImage", "SkeletonRules", "StandardName", "StandardNames", 
          "StellationCount", "SurfaceArea", "SymmetryGroupString", 
          "VertexCoordinates", "VertexCount", "VertexIndices", "Volume", 
          "WythoffSymbol"}}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{551., {175., 180.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.4453317468125*^9, 3.445331784640625*^9}, {
   3.44533183890625*^9, 3.445331882921875*^9}, 3.445332109671875*^9, 
   3.4513832793125*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1016, 1180},
WindowMargins->{{Automatic, 13}, {Automatic, -7}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 148, 2, 83, "Title"],
Cell[CellGroupData[{
Cell[740, 28, 1114, 29, 172, "Input",
 CellID->209333783],
Cell[1857, 59, 15942, 252, 372, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
