In[26]:=

Out[26]=

In[27]:=

Out[27]=

In[28]:=

Out[28]=

In[29]:=

Out[29]=

In[30]:=

Out[30]=

In[31]:=

Out[31]=

In[32]:=

Out[32]=

In[33]:=

Out[33]=

In[34]:=

Out[34]//InputForm=

Graphics3D[GraphicsComplex[{{-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 5*#1^2 + 5*#1^4 & , 4, 0], (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712,
    -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 5*#1^2 + 5*#1^4 & , 4, 0], (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712,
    1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (-1 - Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, -1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (-1 - Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, 1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (1 + Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, -1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 20*#1^2 + 80*#1^4 & , 3, 0], (1 + Sqrt[5])/4 +
     (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712, 1/2},
   {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], -1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], -1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, 1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], 1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, -1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 40*#1^2 + 80*#1^4 & , 1, 0], 1/2 + (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/
      52712, 1/2}, {-11/(2*Sqrt[209970 - 91382*Sqrt[5] - 448*Sqrt[386525 - 172855*Sqrt[5]]]) +
     Root[1 - 4320*#1^2 + 213760*#1^4 - 2252800*#1^6 + 1638400*#1^8 & , 8, 0],
    (1631 - 889*Sqrt[5] - 16*Sqrt[29585 + 1181*Sqrt[5]])/52712 +
     Root[1 + 88*#1 - 176*#1^2 - 128*#1^3 + 256*#1^4 & , 4, 0], 0}},
  Polygon[{{3, 7, 9, 5, 1}, {2, 6, 10, 8, 4}, {5, 9, 10, 6}, {9, 7, 8, 10}, {7, 3, 4, 8}, {3, 1, 2, 4},
    {11, 1, 5}, {11, 5, 6}, {11, 6, 2}, {11, 2, 1}}]]]

In[35]:=

Out[35]=

In[36]:=

Out[36]=

In[37]:=

Out[37]=