In[185]:=

Out[185]=

In[186]:=

Out[186]=

In[187]:=

Out[187]=

In[188]:=

Out[188]=

In[189]:=

Out[189]=

In[190]:=

Out[190]=
In[191]:=

Out[191]=

In[192]:=

Out[192]=

In[193]:=

Out[193]//InputForm=
Graphics3D[GraphicsComplex[{{0, -1, -Sqrt[3/2]/2}, {0, 1, -Sqrt[3/2]/2},
{-(1/Sqrt[3]), -1, 1/(2*Sqrt[6])}, {-(1/Sqrt[3]), 1, 1/(2*Sqrt[6])},
{-1/(2*Sqrt[3]), -1/2, 5/(2*Sqrt[6])}, {-1/(2*Sqrt[3]), 1/2, 5/(2*Sqrt[6])},
{1/Sqrt[3], 0, 5/(2*Sqrt[6])}, {2/Sqrt[3], 0, 1/(2*Sqrt[6])},
{-Sqrt[3]/2, -1/2, -Sqrt[3/2]/2}, {-Sqrt[3]/2, 1/2, -Sqrt[3/2]/2},
{Sqrt[3]/2, -1/2, -Sqrt[3/2]/2}, {Sqrt[3]/2, 1/2, -Sqrt[3/2]/2}},
Polygon[{{11, 12, 8}, {3, 9, 1}, {2, 10, 4}, {6, 5, 7}, {11, 8, 7, 5, 3, 1},
{2, 4, 6, 7, 8, 12}, {9, 3, 5, 6, 4, 10}, {2, 12, 11, 1, 9, 10}}]]]
In[194]:=

Out[194]=

In[195]:=

Out[195]=

In[196]:=

Out[196]=

In[197]:=

Out[197]=

Archimedean Solid
Geometry