Hellenica World

Tetrahedron 5-Compound

In[226]:=

"TetrahedronFiveCompound_2.gif"

Out[226]=

"TetrahedronFiveCompound_3.gif"

In[227]:=

"TetrahedronFiveCompound_4.gif"

Out[227]=

"TetrahedronFiveCompound_5.gif"

In[228]:=

"TetrahedronFiveCompound_6.gif"

Out[228]=

"TetrahedronFiveCompound_7.gif"

In[229]:=

"TetrahedronFiveCompound_8.gif"

Out[229]=

"TetrahedronFiveCompound_9.gif"

In[230]:=

"TetrahedronFiveCompound_10.gif"

Out[230]=

"TetrahedronFiveCompound_11.gif"

In[231]:=

"TetrahedronFiveCompound_12.gif"

Out[231]=

"TetrahedronFiveCompound_13.gif"

In[232]:=

"TetrahedronFiveCompound_14.gif"

Out[232]=

"TetrahedronFiveCompound_15.gif"

In[233]:=

"TetrahedronFiveCompound_16.gif"

Out[233]//InputForm=

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

In[234]:=

"TetrahedronFiveCompound_17.gif"

Out[234]=

"TetrahedronFiveCompound_18.gif"

In[235]:=

"TetrahedronFiveCompound_19.gif"

Out[235]=

"TetrahedronFiveCompound_20.gif"

In[236]:=

"TetrahedronFiveCompound_21.gif"

Out[236]=

"TetrahedronFiveCompound_22.gif"