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