In[101]:=
Out[101]=
In[102]:=
Out[102]=
In[103]:=
Out[103]=
In[104]:=
Out[104]=
In[105]:=
Out[105]=
In[106]:=
Out[106]=
In[107]:=
Out[107]=
In[108]:=
Out[108]=
In[109]:=
Out[109]//InputForm=
Graphics3D[GraphicsComplex[{{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
{Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
{Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}}, Polygon[{{3, 1, 17}, {3, 17, 9}, {3, 19, 2}, {3, 9, 19},
{1, 4, 20}, {1, 20, 11}, {1, 11, 17}, {2, 19, 12}, {2, 18, 4}, {2, 12, 18}, {4, 18, 10}, {4, 10, 20}, {17, 11, 13},
{19, 9, 15}, {18, 12, 14}, {20, 10, 16}, {9, 21, 15}, {11, 23, 13}, {12, 24, 14}, {10, 22, 16}, {13, 23, 7},
{13, 7, 21}, {15, 21, 5}, {15, 5, 24}, {16, 22, 6}, {16, 6, 23}, {14, 24, 8}, {14, 8, 22}, {21, 7, 5}, {23, 6, 7},
{24, 5, 8}, {22, 8, 6}, {1, 3, 2, 4}, {21, 9, 17, 13}, {24, 12, 19, 15}, {10, 18, 14, 22}, {11, 20, 16, 23},
{8, 5, 7, 6}}]]]
In[110]:=
Out[110]=
In[111]:=
Out[111]=
In[112]:=
Out[112]=
In[113]:=
Out[113]=
Archimedean Solid
Geometry