In[350]:=

Out[350]=

In[351]:=

Out[351]=

In[352]:=

Out[352]=

In[353]:=

Out[353]=

In[354]:=

Out[354]=

In[355]:=

Out[355]=

In[356]:=

Out[356]=

In[357]:=

Out[357]=

In[358]:=

Out[358]//InputForm=

Graphics3D[GraphicsComplex[{{0, 0, (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888 +
     (10 + Sqrt[10*(5 - Sqrt[5])])/10}, {Sqrt[1/2 + 1/(2*Sqrt[5])], 0,
    (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}, {Sqrt[1/2 + 1/(2*Sqrt[5])], 0,
    1 + (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, 1 + (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/
      2888}, {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/
     2888}, {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4,
    1 + (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2,
    (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2,
    1 + (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2,
    (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2,
    1 + (-1487 + 9*Sqrt[5] - Sqrt[107666 - 102062/Sqrt[5]])/2888}},
  Polygon[{{7, 11, 1}, {11, 9, 1}, {9, 5, 1}, {5, 3, 1}, {3, 7, 1}, {6, 10, 11, 7}, {10, 8, 9, 11},
    {8, 4, 5, 9}, {4, 2, 3, 5}, {2, 6, 7, 3}, {2, 4, 8, 10, 6}}]]]

In[359]:=

Out[359]=

In[360]:=

Out[360]=

In[361]:=

Out[361]=

Johnson Polyhedra