In[1036]:=

Out[1036]=

In[1037]:=

Out[1037]=

In[1038]:=

Out[1038]=

In[1039]:=

Out[1039]=

In[1040]:=

Out[1040]=

In[1041]:=

Out[1041]=

In[1042]:=

Out[1042]=

In[1043]:=

Out[1043]=

In[1044]:=

Out[1044]//InputForm=

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

In[1045]:=

Out[1045]=

In[1046]:=

Out[1046]=

In[1047]:=

Out[1047]=

Johnson Polyhedra

Geometry