In[458]:=

Out[458]=

In[459]:=

Out[459]=

In[460]:=

Out[460]=

In[461]:=

Out[461]=

In[462]:=

Out[462]=

In[463]:=

Out[463]=

In[464]:=

Out[464]=

In[465]:=

Out[465]=

In[466]:=

Out[466]//InputForm=

Graphics3D[GraphicsComplex[{{0, -1, -1/2}, {0, -1, 1/2}, {0, 1, -1/2}, {0, 1, 1/2},
   {-1/(2*Sqrt[3]), -1/2, (-3 - 2*Sqrt[6])/6}, {-1/(2*Sqrt[3]), -1/2, (3 + 2*Sqrt[6])/6},
   {-1/(2*Sqrt[3]), 1/2, (-3 - 2*Sqrt[6])/6}, {-1/(2*Sqrt[3]), 1/2, (3 + 2*Sqrt[6])/6},
   {1/Sqrt[3], 0, (-3 - 2*Sqrt[6])/6}, {1/Sqrt[3], 0, (3 + 2*Sqrt[6])/6}, {-Sqrt[3]/2, -1/2, -1/2},
   {-Sqrt[3]/2, -1/2, 1/2}, {-Sqrt[3]/2, 1/2, -1/2}, {-Sqrt[3]/2, 1/2, 1/2}, {Sqrt[3]/2, -1/2, -1/2},
   {Sqrt[3]/2, -1/2, 1/2}, {Sqrt[3]/2, 1/2, -1/2}, {Sqrt[3]/2, 1/2, 1/2}},
  Polygon[{{6, 8, 14, 12}, {10, 6, 2, 16}, {8, 10, 18, 4}, {4, 14, 8}, {12, 2, 6}, {16, 18, 10}, {8, 6, 10},
    {11, 13, 7, 5}, {15, 1, 5, 9}, {3, 17, 9, 7}, {7, 13, 3}, {5, 1, 11}, {9, 17, 15}, {9, 5, 7},
    {3, 13, 14, 4}, {13, 11, 12, 14}, {11, 1, 2, 12}, {1, 15, 16, 2}, {15, 17, 18, 16}, {17, 3, 4, 18}}]]]

In[467]:=

Out[467]=

In[468]:=

Out[468]=

In[469]:=

Out[469]=

Johnson Polyhedra

Geometry