In[287]:=

Out[287]=

In[288]:=

Out[288]=

In[289]:=

Out[289]=

In[290]:=

Out[290]=

In[291]:=

Out[291]=

In[292]:=

Out[292]=

In[293]:=

Out[293]=

In[294]:=

Out[294]=

In[295]:=

Out[295]//InputForm=

Graphics3D[GraphicsComplex[{{(-2 - Sqrt[2])/4, (-2 + Sqrt[2])/4, 0}, {(-2 - Sqrt[2])/4, 0, (-2 + Sqrt[2])/4},
   {(-2 - Sqrt[2])/4, 0, (2 - Sqrt[2])/4}, {(-2 - Sqrt[2])/4, (2 - Sqrt[2])/4, 0}, {-(1/Sqrt[2]), -1/(2*Sqrt[2]), -1/(2*Sqrt[2])},
   {-(1/Sqrt[2]), -1/(2*Sqrt[2]), 1/(2*Sqrt[2])}, {-(1/Sqrt[2]), 1/(2*Sqrt[2]), -1/(2*Sqrt[2])}, {-(1/Sqrt[2]), 1/(2*Sqrt[2]), 1/(2*Sqrt[2])},
   {-1/(2*Sqrt[2]), -(1/Sqrt[2]), -1/(2*Sqrt[2])}, {-1/(2*Sqrt[2]), -(1/Sqrt[2]), 1/(2*Sqrt[2])}, {-1/(2*Sqrt[2]), -1/(2*Sqrt[2]), -(1/Sqrt[2])},
   {-1/(2*Sqrt[2]), -1/(2*Sqrt[2]), 1/Sqrt[2]}, {-1/(2*Sqrt[2]), 1/(2*Sqrt[2]), -(1/Sqrt[2])}, {-1/(2*Sqrt[2]), 1/(2*Sqrt[2]), 1/Sqrt[2]},
   {-1/(2*Sqrt[2]), 1/Sqrt[2], -1/(2*Sqrt[2])}, {-1/(2*Sqrt[2]), 1/Sqrt[2], 1/(2*Sqrt[2])}, {(-2 + Sqrt[2])/4, (-2 - Sqrt[2])/4, 0},
   {(-2 + Sqrt[2])/4, 0, (-2 - Sqrt[2])/4}, {(-2 + Sqrt[2])/4, 0, (2 + Sqrt[2])/4}, {(-2 + Sqrt[2])/4, (2 + Sqrt[2])/4, 0},
   {0, (-2 - Sqrt[2])/4, (-2 + Sqrt[2])/4}, {0, (-2 - Sqrt[2])/4, (2 - Sqrt[2])/4}, {0, (-2 + Sqrt[2])/4, (-2 - Sqrt[2])/4},
   {0, (-2 + Sqrt[2])/4, (2 + Sqrt[2])/4}, {0, (2 - Sqrt[2])/4, (-2 - Sqrt[2])/4}, {0, (2 - Sqrt[2])/4, (2 + Sqrt[2])/4},
   {0, (2 + Sqrt[2])/4, (-2 + Sqrt[2])/4}, {0, (2 + Sqrt[2])/4, (2 - Sqrt[2])/4}, {(2 - Sqrt[2])/4, (-2 - Sqrt[2])/4, 0},
   {(2 - Sqrt[2])/4, 0, (-2 - Sqrt[2])/4}, {(2 - Sqrt[2])/4, 0, (2 + Sqrt[2])/4}, {(2 - Sqrt[2])/4, (2 + Sqrt[2])/4, 0},
   {1/(2*Sqrt[2]), -(1/Sqrt[2]), -1/(2*Sqrt[2])}, {1/(2*Sqrt[2]), -(1/Sqrt[2]), 1/(2*Sqrt[2])}, {1/(2*Sqrt[2]), -1/(2*Sqrt[2]), -(1/Sqrt[2])},
   {1/(2*Sqrt[2]), -1/(2*Sqrt[2]), 1/Sqrt[2]}, {1/(2*Sqrt[2]), 1/(2*Sqrt[2]), -(1/Sqrt[2])}, {1/(2*Sqrt[2]), 1/(2*Sqrt[2]), 1/Sqrt[2]},
   {1/(2*Sqrt[2]), 1/Sqrt[2], -1/(2*Sqrt[2])}, {1/(2*Sqrt[2]), 1/Sqrt[2], 1/(2*Sqrt[2])}, {1/Sqrt[2], -1/(2*Sqrt[2]), -1/(2*Sqrt[2])},
   {1/Sqrt[2], -1/(2*Sqrt[2]), 1/(2*Sqrt[2])}, {1/Sqrt[2], 1/(2*Sqrt[2]), -1/(2*Sqrt[2])}, {1/Sqrt[2], 1/(2*Sqrt[2]), 1/(2*Sqrt[2])},
   {(2 + Sqrt[2])/4, (-2 + Sqrt[2])/4, 0}, {(2 + Sqrt[2])/4, 0, (-2 + Sqrt[2])/4}, {(2 + Sqrt[2])/4, 0, (2 - Sqrt[2])/4},
   {(2 + Sqrt[2])/4, (2 - Sqrt[2])/4, 0}}, Polygon[{{32, 13, 1, 14}, {32, 14, 36, 48}, {32, 48, 35, 13}, {13, 35, 17, 1}, {17, 35, 48, 36},
    {1, 17, 36, 14}, {45, 37, 20, 38}, {45, 38, 12, 29}, {45, 29, 11, 37}, {37, 11, 4, 20}, {4, 11, 29, 12}, {20, 4, 12, 38}, {30, 9, 3, 15},
    {30, 15, 40, 46}, {30, 46, 34, 9}, {9, 34, 19, 3}, {19, 34, 46, 40}, {3, 19, 40, 15}, {47, 33, 18, 39}, {47, 39, 16, 31}, {47, 31, 10, 33},
    {33, 10, 2, 18}, {2, 10, 31, 16}, {18, 2, 16, 39}, {28, 43, 23, 7}, {28, 7, 6, 26}, {28, 26, 42, 43}, {43, 42, 21, 23}, {21, 42, 26, 6},
    {23, 21, 6, 7}, {24, 44, 27, 8}, {24, 8, 5, 22}, {24, 22, 41, 44}, {44, 41, 25, 27}, {25, 41, 22, 5}, {27, 25, 5, 8}}]]]

In[296]:=

Out[296]=

In[297]:=

Out[297]=

In[298]:=

Out[298]=

Geometry