In[542]:=

Out[542]=

In[543]:=

Out[543]=

In[544]:=

Out[544]=

In[545]:=

Out[545]=

In[546]:=

Out[546]=

In[547]:=

Out[547]=

In[548]:=

Out[548]=

In[549]:=

Out[549]=

In[550]:=

Out[550]//InputForm=

Graphics3D[GraphicsComplex[{{1.0786823526341342*^-18, -1.618033988749895, -0.4311985019297304},
   {1.0786823526341342*^-18, 1.618033988749895, -0.4311985019297304},
   {1.0786823526341342*^-18, -1.3763819204711736, 1.2818493102817692},
   {1.0786823526341342*^-18, 0.85065080835204, 1.8075804224009029},
   {-1.618033988749895, -1.4382431368455124*^-18, 0.4311985019297292},
   {-0.5, -1.5388417685876268, 0.4311985019297292}, {1.618033988749895, -1.4382431368455124*^-18,
    0.4311985019297292}, {-0.9510565162951535, -1.3090169943749475, -0.4311985019297304},
   {-0.9510565162951535, 1.3090169943749475, -0.4311985019297304}, {0.9510565162951535, -1.3090169943749475,
    -0.4311985019297304}, {0.9510565162951535, 1.3090169943749475, -0.4311985019297304},
   {-0.5, 1.5388417685876268, 0.4311985019297292}, {0.5, -1.5388417685876268, 0.4311985019297292},
   {0.5, 1.5388417685876268, 0.4311985019297292}, {-1.3090169943749475, -0.9510565162951535,
    0.4311985019297292}, {-1.3090169943749475, 0.9510565162951535, 0.4311985019297292},
   {1.3090169943749475, -0.9510565162951535, 0.4311985019297292}, {1.3090169943749475, 0.9510565162951535,
    0.4311985019297292}, {-1.5388417685876268, -0.5, -0.4311985019297304},
   {-1.5388417685876268, 0.5, -0.4311985019297304}, {1.5388417685876268, -0.5, -0.4311985019297304},
   {1.5388417685876268, 0.5, -0.4311985019297304}, {1.3763819204711736, -1.4382431368455124*^-18,
    -1.2818493102817692}, {0.42532540417601994, -1.3090169943749475, -1.2818493102817692},
   {0.42532540417601994, 1.3090169943749475, -1.2818493102817692}, {-1.1135163644116068, -0.8090169943749475,
    -1.2818493102817692}, {-1.1135163644116068, 0.8090169943749475, -1.2818493102817692},
   {1.3090169943749475, -0.4253254041760197, 1.2818493102817692}, {0.8090169943749475, 1.1135163644116066,
    1.2818493102817692}, {-0.8506508083520394, -1.4382431368455124*^-18, -1.8075804224009029},
   {-0.2628655560595671, -0.8090169943749475, -1.8075804224009029}, {-0.2628655560595671, 0.8090169943749475,
    -1.8075804224009029}, {0.6881909602355868, -0.5, -1.8075804224009029},
   {0.6881909602355868, 0.5, -1.8075804224009029}, {-0.8090169943749475, 0.2628655560595668,
    1.8075804224009029}, {-0.5, -0.6881909602355868, 1.8075804224009029},
   {-1.3090169943749475, -0.4253254041760197, 1.2818493102817692}, {-0.8090169943749475, 1.1135163644116066,
    1.2818493102817692}, {0.5, -0.6881909602355868, 1.8075804224009029},
   {0.8090169943749475, 0.2628655560595668, 1.8075804224009029}},
  Polygon[{{22, 18, 7}, {11, 14, 18}, {2, 12, 14}, {9, 16, 12}, {20, 5, 16}, {19, 15, 5}, {8, 6, 15},
    {1, 13, 6}, {10, 17, 13}, {21, 7, 17}, {22, 11, 18}, {11, 2, 14}, {2, 9, 12}, {9, 20, 16}, {20, 19, 5},
    {19, 8, 15}, {8, 1, 6}, {1, 10, 13}, {10, 21, 17}, {21, 22, 7}, {4, 35, 36, 39, 40}, {38, 35, 4},
    {37, 36, 35}, {3, 39, 36}, {28, 40, 39}, {29, 4, 40}, {18, 14, 29}, {12, 16, 38}, {5, 15, 37},
    {6, 13, 3}, {17, 7, 28}, {14, 12, 38, 4, 29}, {16, 5, 37, 35, 38}, {15, 6, 3, 36, 37},
    {13, 17, 28, 39, 3}, {7, 18, 29, 40, 28}, {34, 33, 31, 30, 32}, {32, 30, 27}, {30, 31, 26}, {31, 33, 24},
    {33, 34, 23}, {34, 32, 25}, {25, 2, 11}, {27, 20, 9}, {26, 8, 19}, {24, 10, 1}, {23, 22, 21},
    {25, 32, 27, 9, 2}, {27, 30, 26, 19, 20}, {26, 31, 24, 1, 8}, {24, 33, 23, 21, 10},
    {23, 34, 25, 11, 22}}]]]

In[551]:=

Out[551]=

In[552]:=

Out[552]=

In[553]:=

Out[553]=

Johnson Polyhedra

Geometry