In[434]:=

Out[434]=

In[435]:=

Out[435]=

In[436]:=

Out[436]=

In[437]:=

Out[437]=

In[438]:=

Out[438]=

In[439]:=

Out[439]=

In[440]:=

Out[440]=

In[441]:=

Out[441]=

In[442]:=

Out[442]//InputForm=

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

In[443]:=

Out[443]=

In[444]:=

Out[444]=

In[445]:=

Out[445]=

Johnson Polyhedra

Geometry