In[446]:=

Out[446]=

In[447]:=

Out[447]=

In[448]:=

Out[448]=

In[449]:=

Out[449]=

In[450]:=

Out[450]=

In[451]:=

Out[451]=

In[452]:=

Out[452]=

In[453]:=

Out[453]=

In[454]:=

Out[454]//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/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},
   {-(1/Sqrt[3]), 0, (-3 - 2*Sqrt[6])/6}, {1/(2*Sqrt[3]), 1/2, (-3 - 2*Sqrt[6])/6}},
  Polygon[{{6, 5, 8}, {5, 6, 12, 10}, {8, 5, 2, 14}, {6, 8, 16, 4}, {4, 12, 6}, {10, 2, 5}, {14, 16, 8},
    {7, 17, 18}, {11, 3, 18, 17}, {1, 9, 17, 7}, {15, 13, 7, 18}, {18, 3, 15}, {17, 9, 11}, {7, 13, 1},
    {3, 11, 12, 4}, {11, 9, 10, 12}, {9, 1, 2, 10}, {1, 13, 14, 2}, {13, 15, 16, 14}, {15, 3, 4, 16}}]]]

In[455]:=

Out[455]=

In[456]:=

Out[456]=

In[457]:=

Out[457]=

Johnson Polyhedra

Geometry