In[59]:=
Out[59]=
In[60]:=
Out[60]=
In[61]:=
Out[61]=
In[62]:=
Out[62]=
In[63]:=
Out[63]=
In[64]:=
Out[64]=
In[65]:=
Out[65]=
In[66]:=
Out[66]=
In[67]:=
Out[67]//InputForm=
Graphics3D[GraphicsComplex[{{-1/2, -1/2, -1 - Sqrt[5]/2}, {-1/2, -1/2, (2 + Sqrt[5])/2}, {-1/2, 1/2, -1 - Sqrt[5]/2}, {-1/2, 1/2, (2 + Sqrt[5])/2},
{-1/2, -1 - Sqrt[5]/2, -1/2}, {-1/2, -1 - Sqrt[5]/2, 1/2}, {-1/2, (2 + Sqrt[5])/2, -1/2}, {-1/2, (2 + Sqrt[5])/2, 1/2}, {0, (-3 + Sqrt[5])^(-1), (-5 - Sqrt[5])/4},
{0, (-3 + Sqrt[5])^(-1), (5 + Sqrt[5])/4}, {0, (3 + Sqrt[5])/4, (-5 - Sqrt[5])/4}, {0, (3 + Sqrt[5])/4, (5 + Sqrt[5])/4}, {1/2, -1/2, -1 - Sqrt[5]/2},
{1/2, -1/2, (2 + Sqrt[5])/2}, {1/2, 1/2, -1 - Sqrt[5]/2}, {1/2, 1/2, (2 + Sqrt[5])/2}, {1/2, -1 - Sqrt[5]/2, -1/2}, {1/2, -1 - Sqrt[5]/2, 1/2},
{1/2, (2 + Sqrt[5])/2, -1/2}, {1/2, (2 + Sqrt[5])/2, 1/2}, {(-5 - Sqrt[5])/4, 0, (-3 + Sqrt[5])^(-1)}, {(-5 - Sqrt[5])/4, 0, (3 + Sqrt[5])/4},
{(-1 - Sqrt[5])/4, (-1 - Sqrt[5])/2, (-3 + Sqrt[5])^(-1)}, {(-1 - Sqrt[5])/4, (-1 - Sqrt[5])/2, (3 + Sqrt[5])/4}, {(-1 - Sqrt[5])/4, (1 + Sqrt[5])/2, (-3 + Sqrt[5])^(-1)},
{(-1 - Sqrt[5])/4, (1 + Sqrt[5])/2, (3 + Sqrt[5])/4}, {(-1 - Sqrt[5])/2, (-3 + Sqrt[5])^(-1), (-1 - Sqrt[5])/4}, {(-1 - Sqrt[5])/2, (-3 + Sqrt[5])^(-1), (1 + Sqrt[5])/4},
{(-1 - Sqrt[5])/2, (3 + Sqrt[5])/4, (-1 - Sqrt[5])/4}, {(-1 - Sqrt[5])/2, (3 + Sqrt[5])/4, (1 + Sqrt[5])/4}, {-1 - Sqrt[5]/2, -1/2, -1/2}, {-1 - Sqrt[5]/2, -1/2, 1/2},
{-1 - Sqrt[5]/2, 1/2, -1/2}, {-1 - Sqrt[5]/2, 1/2, 1/2}, {(-3 + Sqrt[5])^(-1), (-5 - Sqrt[5])/4, 0}, {(-3 + Sqrt[5])^(-1), (-1 - Sqrt[5])/4, (-1 - Sqrt[5])/2},
{(-3 + Sqrt[5])^(-1), (-1 - Sqrt[5])/4, (1 + Sqrt[5])/2}, {(-3 + Sqrt[5])^(-1), (1 + Sqrt[5])/4, (-1 - Sqrt[5])/2}, {(-3 + Sqrt[5])^(-1), (1 + Sqrt[5])/4, (1 + Sqrt[5])/2},
{(-3 + Sqrt[5])^(-1), (5 + Sqrt[5])/4, 0}, {(1 + Sqrt[5])/4, (-1 - Sqrt[5])/2, (-3 + Sqrt[5])^(-1)}, {(1 + Sqrt[5])/4, (-1 - Sqrt[5])/2, (3 + Sqrt[5])/4},
{(1 + Sqrt[5])/4, (1 + Sqrt[5])/2, (-3 + Sqrt[5])^(-1)}, {(1 + Sqrt[5])/4, (1 + Sqrt[5])/2, (3 + Sqrt[5])/4}, {(1 + Sqrt[5])/2, (-3 + Sqrt[5])^(-1), (-1 - Sqrt[5])/4},
{(1 + Sqrt[5])/2, (-3 + Sqrt[5])^(-1), (1 + Sqrt[5])/4}, {(1 + Sqrt[5])/2, (3 + Sqrt[5])/4, (-1 - Sqrt[5])/4}, {(1 + Sqrt[5])/2, (3 + Sqrt[5])/4, (1 + Sqrt[5])/4},
{(2 + Sqrt[5])/2, -1/2, -1/2}, {(2 + Sqrt[5])/2, -1/2, 1/2}, {(2 + Sqrt[5])/2, 1/2, -1/2}, {(2 + Sqrt[5])/2, 1/2, 1/2}, {(3 + Sqrt[5])/4, (-5 - Sqrt[5])/4, 0},
{(3 + Sqrt[5])/4, (-1 - Sqrt[5])/4, (-1 - Sqrt[5])/2}, {(3 + Sqrt[5])/4, (-1 - Sqrt[5])/4, (1 + Sqrt[5])/2}, {(3 + Sqrt[5])/4, (1 + Sqrt[5])/4, (-1 - Sqrt[5])/2},
{(3 + Sqrt[5])/4, (1 + Sqrt[5])/4, (1 + Sqrt[5])/2}, {(3 + Sqrt[5])/4, (5 + Sqrt[5])/4, 0}, {(5 + Sqrt[5])/4, 0, (-3 + Sqrt[5])^(-1)},
{(5 + Sqrt[5])/4, 0, (3 + Sqrt[5])/4}}, Polygon[{{36, 23, 27}, {37, 28, 24}, {40, 8, 7}, {35, 5, 6}, {38, 29, 25}, {39, 26, 30}, {10, 14, 2}, {9, 1, 13}, {12, 4, 16},
{11, 15, 3}, {54, 45, 41}, {55, 42, 46}, {58, 19, 20}, {53, 18, 17}, {56, 43, 47}, {57, 48, 44}, {34, 32, 22}, {33, 21, 31}, {59, 51, 49}, {60, 50, 52}, {27, 31, 21, 36},
{23, 36, 1, 9}, {10, 2, 37, 24}, {37, 22, 32, 28}, {8, 40, 30, 26}, {25, 29, 40, 7}, {35, 27, 23, 5}, {6, 24, 28, 35}, {3, 38, 25, 11}, {21, 33, 29, 38}, {39, 30, 34, 22},
{12, 26, 39, 4}, {55, 14, 10, 42}, {41, 9, 13, 54}, {57, 44, 12, 16}, {15, 11, 43, 56}, {45, 54, 59, 49}, {50, 60, 55, 46}, {48, 58, 20, 44}, {43, 19, 58, 47},
{53, 17, 41, 45}, {46, 42, 18, 53}, {59, 56, 47, 51}, {52, 48, 57, 60}, {31, 32, 34, 33}, {17, 18, 6, 5}, {1, 3, 15, 13}, {14, 16, 4, 2}, {7, 8, 20, 19}, {51, 52, 50, 49},
{3, 1, 36, 21, 38}, {22, 37, 2, 4, 39}, {29, 33, 34, 30, 40}, {27, 35, 28, 32, 31}, {42, 10, 24, 6, 18}, {41, 17, 5, 23, 9}, {20, 8, 26, 12, 44}, {11, 25, 7, 19, 43},
{56, 59, 54, 13, 15}, {57, 16, 14, 55, 60}, {58, 48, 52, 51, 47}, {49, 50, 46, 53, 45}}]]]
In[68]:=
Out[68]=
In[69]:=
Out[69]=
In[70]:=
Out[70]=
In[71]:=
Out[71]=
Archimedean Solid
Geometry