Hellenica World

Icosahedron

In[50]:=

"Icosahedron_3.gif"

Out[50]=

"Icosahedron_4.gif"

In[51]:=

"Icosahedron_5.gif"

Out[51]=

"Icosahedron_6.gif"

In[52]:=

"Icosahedron_7.gif"

Out[52]=

"Icosahedron_8.gif"

In[53]:=

"Icosahedron_9.gif"

Out[53]=

"Icosahedron_10.gif"

In[54]:=

"Icosahedron_11.gif"

Out[54]=

"Icosahedron_12.gif"

In[55]:=

"Icosahedron_13.gif"

Out[55]=

"Icosahedron_14.gif"

In[56]:=

"Icosahedron_15.gif"

Out[56]=

"Icosahedron_16.gif"

In[57]:=

"Icosahedron_17.gif"

Out[57]=

"Icosahedron_18.gif"

In[58]:=

"Icosahedron_19.gif"

Out[58]//InputForm=

Graphics3D[GraphicsComplex[{{0, 0, -5/Sqrt[50 - 10*Sqrt[5]]}, {0, 0, 5/Sqrt[50 - 10*Sqrt[5]]},
   {-Sqrt[2/(5 - Sqrt[5])], 0, -(1/Sqrt[10 - 2*Sqrt[5]])}, {Sqrt[2/(5 - Sqrt[5])], 0,
    1/Sqrt[10 - 2*Sqrt[5]]}, {(1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), -1/2, -(1/Sqrt[10 - 2*Sqrt[5]])},
   {(1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), 1/2, -(1/Sqrt[10 - 2*Sqrt[5]])},
   {-(1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), -1/2, 1/Sqrt[10 - 2*Sqrt[5]]},
   {-(1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), 1/2, 1/Sqrt[10 - 2*Sqrt[5]]},
   {-(-1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), -Sqrt[(5 + Sqrt[5])/(5 - Sqrt[5])]/2,
    -(1/Sqrt[10 - 2*Sqrt[5]])}, {-(-1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]),
    Sqrt[(5 + Sqrt[5])/(5 - Sqrt[5])]/2, -(1/Sqrt[10 - 2*Sqrt[5]])},
   {(-1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), -Sqrt[(5 + Sqrt[5])/(5 - Sqrt[5])]/2, 1/Sqrt[10 - 2*Sqrt[5]]},
   {(-1 + Sqrt[5])/(2*Sqrt[10 - 2*Sqrt[5]]), Sqrt[(5 + Sqrt[5])/(5 - Sqrt[5])]/2, 1/Sqrt[10 - 2*Sqrt[5]]}},
  Polygon[{{2, 12, 8}, {2, 8, 7}, {2, 7, 11}, {2, 11, 4}, {2, 4, 12}, {5, 9, 1}, {6, 5, 1}, {10, 6, 1},
    {3, 10, 1}, {9, 3, 1}, {12, 10, 8}, {8, 3, 7}, {7, 9, 11}, {11, 5, 4}, {4, 6, 12}, {5, 11, 9}, {6, 4, 5},
    {10, 12, 6}, {3, 8, 10}, {9, 7, 3}}]]]

In[59]:=

"Icosahedron_20.gif"

Out[59]=

"Icosahedron_21.gif"

In[60]:=

"Icosahedron_22.gif"

Out[60]=

"Icosahedron_23.gif"

In[61]:=

"Icosahedron_24.gif"

Out[61]=

"Icosahedron_25.gif"

Platonic Polyhedra

Geometry