In[50]:=

Out[50]=

In[51]:=

Out[51]=

In[52]:=

Out[52]=

In[53]:=

Out[53]=

In[54]:=

Out[54]=

In[55]:=

Out[55]=

In[56]:=

Out[56]=

In[57]:=

Out[57]=

In[58]:=

Out[58]//InputForm=

Graphics3D[GraphicsComplex[{{-1/(2*Sqrt[3]) - Sqrt[(97 + 8*Sqrt[6])/3]/76,
    -1/2 + (-1 - 4*Sqrt[6])/76, -1/2}, {-1/(2*Sqrt[3]) - Sqrt[(97 + 8*Sqrt[6])/3]/76,
    -1/2 + (-1 - 4*Sqrt[6])/76, 1/2}, {-1/(2*Sqrt[3]) - Sqrt[(97 + 8*Sqrt[6])/3]/76,
    1/2 + (-1 - 4*Sqrt[6])/76, -1/2}, {-1/(2*Sqrt[3]) - Sqrt[(97 + 8*Sqrt[6])/3]/76,
    1/2 + (-1 - 4*Sqrt[6])/76, 1/2}, {1/Sqrt[3] - Sqrt[(97 + 8*Sqrt[6])/3]/76,
    (-1 - 4*Sqrt[6])/76, -1/2}, {1/Sqrt[3] - Sqrt[(97 + 8*Sqrt[6])/3]/76, (-1 - 4*Sqrt[6])/76,
    1/2}, {-Sqrt[(97 + 8*Sqrt[6])/3]/76 + Root[25 - 672*#1^2 + 2304*#1^4 & , 4, 0],
    (-1 - 4*Sqrt[6])/76 + (1 + Sqrt[6])/4, 0}},
  Polygon[{{1, 3, 5}, {6, 4, 2}, {3, 1, 2, 4}, {1, 5, 6, 2}, {7, 5, 3}, {7, 3, 4}, {7, 4, 6},
    {7, 6, 5}}]]]

In[59]:=

Out[59]=

In[60]:=

Out[60]=

In[61]:=

Out[61]=