In[1084]:=

Out[1084]=

In[1085]:=

Out[1085]=

In[1086]:=

Out[1086]=

In[1087]:=

Out[1087]=

In[1088]:=

Out[1088]=

In[1089]:=

Out[1089]=

In[1090]:=

Out[1090]=

In[1091]:=

Out[1091]=

In[1092]:=

Out[1092]//InputForm=

Graphics3D[GraphicsComplex[{{-1, 0, -1/2}, {-1, 0, 1/2}, {-1/2, -Sqrt[3]/2, -1/2}, {-1/2, -Sqrt[3]/2, 1/2},
   {-1/2, Sqrt[3]/2, -1/2}, {-1/2, Sqrt[3]/2, 1/2}, {0, Root[1 - 40*#1^2 + 16*#1^4 & , 1, 0], 0},
   {1/2, -Sqrt[3]/2, -1/2}, {1/2, -Sqrt[3]/2, 1/2}, {1/2, Sqrt[3]/2, -1/2}, {1/2, Sqrt[3]/2, 1/2},
   {1, 0, -1/2}, {1, 0, 1/2}, {(-3 - Sqrt[6])/4, Root[1 - 160*#1^2 + 256*#1^4 & , 4, 0], 0},
   {(3 + Sqrt[6])/4, Root[1 - 160*#1^2 + 256*#1^4 & , 4, 0], 0}},
  Polygon[{{8, 3, 1, 5, 10, 12}, {13, 11, 6, 2, 4, 9}, {10, 5, 6, 11}, {1, 3, 4, 2}, {8, 12, 13, 9},
    {15, 12, 10}, {15, 10, 11}, {15, 11, 13}, {15, 13, 12}, {14, 5, 1}, {14, 1, 2}, {14, 2, 6}, {14, 6, 5},
    {7, 3, 8}, {7, 8, 9}, {7, 9, 4}, {7, 4, 3}}]]]

In[1093]:=

Out[1093]=

In[1094]:=

Out[1094]=

In[1095]:=

Out[1095]=

Johnson Polyhedra

Geometry