In[146]:=

Out[146]=

In[147]:=

Out[147]=

In[148]:=

Out[148]=

In[149]:=

Out[149]=

In[150]:=

Out[150]=

In[151]:=

Out[151]=

In[152]:=

Out[152]=

In[153]:=

Out[153]=

In[154]:=

Out[154]//InputForm=

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

In[155]:=

Out[155]=

In[156]:=

Out[156]=

In[157]:=

Out[157]=