In[518]:=

Out[518]=

In[519]:=

Out[519]=

In[520]:=

Out[520]=

In[521]:=

Out[521]=

In[522]:=

Out[522]=

In[523]:=

Out[523]=

In[524]:=

Out[524]=

In[525]:=

Out[525]=

In[526]:=

Out[526]//InputForm=

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

In[527]:=

Out[527]=

In[528]:=

Out[528]=

In[529]:=

Out[529]=

Johnson Polyhedra

Geometry