In[722]:=

Out[722]=

In[723]:=

Out[723]=

In[724]:=

Out[724]=

In[725]:=

Out[725]=

In[726]:=

Out[726]=

In[727]:=

Out[727]=

In[728]:=

Out[728]=

In[729]:=

Out[729]=

In[730]:=

Out[730]//InputForm=

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

In[731]:=

Out[731]=

In[732]:=

Out[732]=

In[733]:=

Out[733]=

Johnson Polyhedra

Geometry