In[698]:=

Out[698]=

In[699]:=

Out[699]=

In[700]:=

Out[700]=

In[701]:=

Out[701]=

In[702]:=

Out[702]=

In[703]:=

Out[703]=

In[704]:=

Out[704]=

In[705]:=

Out[705]=

In[706]:=

Out[706]//InputForm=

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

In[707]:=

Out[707]=

In[708]:=

Out[708]=

In[709]:=

Out[709]=

Johnson Polyhedra

Geometry