In[218]:=

Out[218]=

In[219]:=

Out[219]=

In[220]:=

Out[220]=

In[221]:=

Out[221]=

In[222]:=

Out[222]=

In[223]:=

Out[223]=

In[224]:=

Out[224]=

In[225]:=

Out[225]=

In[226]:=

Out[226]//InputForm=

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

In[227]:=

Out[227]=

In[228]:=

Out[228]=

In[229]:=

Out[229]=

Johnson Polyhedra

Geometry