In[1060]:=

Out[1060]=

In[1061]:=

Out[1061]=

In[1062]:=

Out[1062]=

In[1063]:=

Out[1063]=

In[1064]:=

Out[1064]=

In[1065]:=

Out[1065]=

In[1066]:=

Out[1066]=

In[1067]:=

Out[1067]=

In[1068]:=

Out[1068]//InputForm=

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

In[1069]:=

Out[1069]=

In[1070]:=

Out[1070]=

In[1071]:=

Out[1071]=

Johnson Polyhedra

Geometry