Hellenica World

# Octahedron 4-Compound

In[359]:=

Out[359]=

In[360]:=

Out[360]=

In[361]:=

Out[361]=

In[362]:=

Out[362]=

In[363]:=

Out[363]=

In[364]:=

Out[364]=

In[365]:=

Out[365]=

In[366]:=

Out[366]=

In[367]:=

Out[367]//InputForm=

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

In[368]:=

Out[368]=

In[369]:=

Out[369]=

In[370]:=

Out[370]=

Geometry