In[215]:=

Out[215]=

In[216]:=

Out[216]=

In[217]:=

Out[217]=

In[218]:=

Out[218]=

In[219]:=

Out[219]=

In[220]:=

Out[220]=

In[221]:=

Out[221]=

In[222]:=

Out[222]//InputForm=

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

In[223]:=

Out[223]=

In[224]:=

Out[224]=

In[225]:=

Out[225]=