In[782]:=

Out[782]=

In[783]:=

Out[783]=

In[784]:=

Out[784]=

In[785]:=

Out[785]=

In[786]:=

Out[786]=

In[787]:=

Out[787]=

In[788]:=

Out[788]=

In[789]:=

Out[789]=

In[790]:=

Out[790]//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}, {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 & , 1, 0], 0},
   {(3 + Sqrt[6])/4, Root[1 - 160*#1^2 + 256*#1^4 & , 4, 0], 0}},
  Polygon[{{7, 3, 1, 5, 9, 11}, {12, 10, 6, 2, 4, 8}, {9, 5, 6, 10}, {5, 1, 2, 6}, {3, 7, 8, 4},
    {7, 11, 12, 8}, {14, 11, 9}, {14, 9, 10}, {14, 10, 12}, {14, 12, 11}, {13, 1, 3}, {13, 3, 4}, {13, 4, 2},
    {13, 2, 1}}]]]

In[791]:=

Out[791]=

In[792]:=

Out[792]=

In[793]:=

Out[793]=

Johnson Polyhedra

Geometry