Hellenica World

# Truncated Cube

In[129]:=

Out[129]=

In[130]:=

Out[130]=

In[131]:=

Out[131]=

In[132]:=

Out[132]=

In[133]:=

Out[133]=

In[134]:=

Out[134]=

In[135]:=

Out[135]=

In[136]:=

Out[136]=

In[137]:=

Out[137]//InputForm=

Graphics3D[GraphicsComplex[{{-1/2, 1/2 + 1/Sqrt[2], 1/2 + 1/Sqrt[2]},
{-1/2, 1/2 + 1/Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {-1/2, (2 - 2*Sqrt[2])^(-1), 1/2 + 1/Sqrt[2]},
{-1/2, (2 - 2*Sqrt[2])^(-1), (2 - 2*Sqrt[2])^(-1)}, {1/2, 1/2 + 1/Sqrt[2], 1/2 + 1/Sqrt[2]},
{1/2, 1/2 + 1/Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {1/2, (2 - 2*Sqrt[2])^(-1), 1/2 + 1/Sqrt[2]},
{1/2, (2 - 2*Sqrt[2])^(-1), (2 - 2*Sqrt[2])^(-1)}, {1/2 + 1/Sqrt[2], -1/2, 1/2 + 1/Sqrt[2]},
{1/2 + 1/Sqrt[2], -1/2, (2 - 2*Sqrt[2])^(-1)}, {1/2 + 1/Sqrt[2], 1/2, 1/2 + 1/Sqrt[2]},
{1/2 + 1/Sqrt[2], 1/2, (2 - 2*Sqrt[2])^(-1)}, {1/2 + 1/Sqrt[2], 1/2 + 1/Sqrt[2], -1/2},
{1/2 + 1/Sqrt[2], 1/2 + 1/Sqrt[2], 1/2}, {1/2 + 1/Sqrt[2], (2 - 2*Sqrt[2])^(-1), -1/2},
{1/2 + 1/Sqrt[2], (2 - 2*Sqrt[2])^(-1), 1/2}, {(2 - 2*Sqrt[2])^(-1), -1/2, 1/2 + 1/Sqrt[2]},
{(2 - 2*Sqrt[2])^(-1), -1/2, (2 - 2*Sqrt[2])^(-1)}, {(2 - 2*Sqrt[2])^(-1), 1/2,
1/2 + 1/Sqrt[2]}, {(2 - 2*Sqrt[2])^(-1), 1/2, (2 - 2*Sqrt[2])^(-1)},
{(2 - 2*Sqrt[2])^(-1), 1/2 + 1/Sqrt[2], -1/2}, {(2 - 2*Sqrt[2])^(-1), 1/2 + 1/Sqrt[2], 1/2},
{(2 - 2*Sqrt[2])^(-1), (2 - 2*Sqrt[2])^(-1), -1/2}, {(2 - 2*Sqrt[2])^(-1),
(2 - 2*Sqrt[2])^(-1), 1/2}}, Polygon[{{6, 12, 10, 8, 4, 18, 20, 2},
{1, 19, 17, 3, 7, 9, 11, 5}, {3, 24, 23, 4, 8, 15, 16, 7}, {5, 14, 13, 6, 2, 21, 22, 1},
{9, 16, 15, 10, 12, 13, 14, 11}, {19, 22, 21, 20, 18, 23, 24, 17}, {16, 9, 7}, {5, 11, 14},
{3, 17, 24}, {22, 19, 1}, {8, 10, 15}, {13, 12, 6}, {23, 18, 4}, {2, 20, 21}}]]]

In[138]:=

Out[138]=

In[139]:=

Out[139]=

In[140]:=

Out[140]=

In[141]:=

Out[141]=

Archimedean Solid

Geometry