Hellenica World

Truncated Cube

In[129]:=

"TruncatedCube_3.gif"

Out[129]=

"TruncatedCube_4.gif"

In[130]:=

"TruncatedCube_5.gif"

Out[130]=

"TruncatedCube_6.gif"

In[131]:=

"TruncatedCube_7.gif"

Out[131]=

"TruncatedCube_8.gif"

In[132]:=

"TruncatedCube_9.gif"

Out[132]=

"TruncatedCube_10.gif"

In[133]:=

"TruncatedCube_11.gif"

Out[133]=

"TruncatedCube_12.gif"

In[134]:=

"TruncatedCube_13.gif"

Out[134]=

"TruncatedCube_14.gif"

In[135]:=

"TruncatedCube_15.gif"

Out[135]=

"TruncatedCube_16.gif"

In[136]:=

"TruncatedCube_17.gif"

Out[136]=

"TruncatedCube_18.gif"

In[137]:=

"TruncatedCube_19.gif"

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]:=

"TruncatedCube_20.gif"

Out[138]=

"TruncatedCube_21.gif"

In[139]:=

"TruncatedCube_22.gif"

Out[139]=

"TruncatedCube_23.gif"

In[140]:=

"TruncatedCube_24.gif"

Out[140]=

"TruncatedCube_25.gif"

In[141]:=

"TruncatedCube_26.gif"

Out[141]=

"TruncatedCube_27.gif"

Archimedean Solid

Geometry