Hellenica World

Octahedron 5-Compound

In[347]:=

"OctahedronFiveCompound_2.gif"

Out[347]=

"OctahedronFiveCompound_3.gif"

In[348]:=

"OctahedronFiveCompound_4.gif"

Out[348]=

"OctahedronFiveCompound_5.gif"

In[349]:=

"OctahedronFiveCompound_6.gif"

Out[349]=

"OctahedronFiveCompound_7.gif"

In[350]:=

"OctahedronFiveCompound_8.gif"

Out[350]=

"OctahedronFiveCompound_9.gif"

In[351]:=

"OctahedronFiveCompound_10.gif"

Out[351]=

"OctahedronFiveCompound_11.gif"

In[352]:=

"OctahedronFiveCompound_12.gif"

Out[352]=

"OctahedronFiveCompound_13.gif"

In[353]:=

"OctahedronFiveCompound_14.gif"

Out[353]=

"OctahedronFiveCompound_15.gif"

In[354]:=

"OctahedronFiveCompound_16.gif"

Out[354]=

"OctahedronFiveCompound_17.gif"

In[355]:=

"OctahedronFiveCompound_18.gif"

Out[355]//InputForm=

Graphics3D[GraphicsComplex[{{0, -(1/Sqrt[2]), 0}, {0, 1/Sqrt[2], 0}, {Sqrt[1/2 - 1/Sqrt[5]]/2, -1/(2*Sqrt[2]), -Sqrt[1 + 1/Sqrt[5]]/2},
   {Sqrt[1/2 - 1/Sqrt[5]]/2, 1/(2*Sqrt[2]), -Sqrt[1 + 1/Sqrt[5]]/2}, {Sqrt[1 - 1/Sqrt[5]]/4, -Sqrt[3 + Sqrt[5]]/4, Sqrt[1 - 1/Sqrt[5]]/2},
   {Sqrt[1 - 1/Sqrt[5]]/4, Sqrt[3 + Sqrt[5]]/4, Sqrt[1 - 1/Sqrt[5]]/2}, {Sqrt[1 + 1/Sqrt[5]]/4, -1/(2*Sqrt[3 + Sqrt[5]]), Sqrt[1 + 1/Sqrt[5]]/2},
   {Sqrt[1 + 1/Sqrt[5]]/4, 1/(2*Sqrt[3 + Sqrt[5]]), Sqrt[1 + 1/Sqrt[5]]/2}, {Sqrt[1/2 + 1/Sqrt[5]]/2, -1/(2*Sqrt[2]), -Sqrt[1 - 1/Sqrt[5]]/2},
   {Sqrt[1/2 + 1/Sqrt[5]]/2, 1/(2*Sqrt[2]), -Sqrt[1 - 1/Sqrt[5]]/2}, {-Sqrt[1 + 1/Sqrt[5]]/2, 0, -Sqrt[1 - 1/Sqrt[5]]/2},
   {-Sqrt[1 + 1/Sqrt[5]]/4, -1/(2*Sqrt[3 + Sqrt[5]]), -Sqrt[1 + 1/Sqrt[5]]/2}, {-Sqrt[1 + 1/Sqrt[5]]/4, 1/(2*Sqrt[3 + Sqrt[5]]),
    -Sqrt[1 + 1/Sqrt[5]]/2}, {Sqrt[1 + 1/Sqrt[5]]/2, 0, Sqrt[1 - 1/Sqrt[5]]/2}, {Sqrt[5 - Sqrt[5]]/4, -Sqrt[3 + Sqrt[5]]/4, 0},
   {Sqrt[5 - Sqrt[5]]/4, Sqrt[3 + Sqrt[5]]/4, 0}, {Sqrt[1 - 1/Sqrt[5]]/2, 0, -Sqrt[1 + 1/Sqrt[5]]/2},
   {-Sqrt[5 - Sqrt[5]]/4, -Sqrt[3 + Sqrt[5]]/4, 0}, {-Sqrt[5 - Sqrt[5]]/4, Sqrt[3 + Sqrt[5]]/4, 0},
   {-Sqrt[5 + Sqrt[5]]/4, -1/(2*Sqrt[3 + Sqrt[5]]), 0}, {-Sqrt[5 + Sqrt[5]]/4, 1/(2*Sqrt[3 + Sqrt[5]]), 0},
   {Sqrt[5 + Sqrt[5]]/4, -1/(2*Sqrt[3 + Sqrt[5]]), 0}, {Sqrt[5 + Sqrt[5]]/4, 1/(2*Sqrt[3 + Sqrt[5]]), 0},
   {-Sqrt[1 - 1/Sqrt[5]]/2, 0, Sqrt[1 + 1/Sqrt[5]]/2}, {-Sqrt[1/2 + 1/Sqrt[5]]/2, -1/(2*Sqrt[2]), Sqrt[1 - 1/Sqrt[5]]/2},
   {-Sqrt[1/2 + 1/Sqrt[5]]/2, 1/(2*Sqrt[2]), Sqrt[1 - 1/Sqrt[5]]/2}, {-Sqrt[1 - 1/Sqrt[5]]/4, -Sqrt[3 + Sqrt[5]]/4, -Sqrt[1 - 1/Sqrt[5]]/2},
   {-Sqrt[1 - 1/Sqrt[5]]/4, Sqrt[3 + Sqrt[5]]/4, -Sqrt[1 - 1/Sqrt[5]]/2}, {Root[1 - 80*#1^2 + 320*#1^4 & , 2, 0], -1/(2*Sqrt[2]),
    Sqrt[1 + 1/Sqrt[5]]/2}, {Root[1 - 80*#1^2 + 320*#1^4 & , 2, 0], 1/(2*Sqrt[2]), Sqrt[1 + 1/Sqrt[5]]/2}},
  Polygon[{{1, 11, 17}, {24, 11, 1}, {17, 14, 1}, {1, 14, 24}, {17, 11, 2}, {2, 11, 24}, {2, 14, 17}, {24, 14, 2}, {3, 5, 20}, {23, 5, 3},
    {3, 20, 28}, {28, 23, 3}, {21, 6, 4}, {4, 6, 22}, {27, 21, 4}, {4, 22, 27}, {30, 20, 5}, {5, 23, 30}, {6, 21, 29}, {29, 22, 6}, {7, 9, 16},
    {18, 9, 7}, {7, 16, 26}, {26, 18, 7}, {15, 10, 8}, {8, 10, 19}, {25, 15, 8}, {8, 19, 25}, {9, 13, 16}, {18, 13, 9}, {15, 12, 10},
    {10, 12, 19}, {12, 15, 25}, {25, 19, 12}, {26, 16, 13}, {13, 18, 26}, {30, 28, 20}, {21, 27, 29}, {29, 27, 22}, {23, 28, 30}}]]]

In[356]:=

"OctahedronFiveCompound_19.gif"

Out[356]=

"OctahedronFiveCompound_20.gif"

In[357]:=

"OctahedronFiveCompound_21.gif"

Out[357]=

"OctahedronFiveCompound_22.gif"

In[358]:=

"OctahedronFiveCompound_23.gif"

Out[358]=

"OctahedronFiveCompound_24.gif"