Hellenica World

Tetrahedron 10-Compound

In[237]:=

"TetrahedronTenCompound_2.gif"

Out[237]=

"TetrahedronTenCompound_3.gif"

In[238]:=

"TetrahedronTenCompound_4.gif"

Out[238]=

"TetrahedronTenCompound_5.gif"

In[239]:=

"TetrahedronTenCompound_6.gif"

Out[239]=

"TetrahedronTenCompound_7.gif"

In[240]:=

"TetrahedronTenCompound_8.gif"

Out[240]=

"TetrahedronTenCompound_9.gif"

In[241]:=

"TetrahedronTenCompound_10.gif"

Out[241]=

"TetrahedronTenCompound_11.gif"

In[242]:=

"TetrahedronTenCompound_12.gif"

Out[242]=

"TetrahedronTenCompound_13.gif"

In[243]:=

"TetrahedronTenCompound_14.gif"

Out[243]=

"TetrahedronTenCompound_15.gif"

In[244]:=

"TetrahedronTenCompound_16.gif"

Out[244]//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}, {18, 12, 1}, {1, 12, 19}, {19, 18, 1}, {12, 18, 19}, {14, 9, 2}, {2, 9, 15},
    {15, 14, 2}, {9, 14, 15}, {2, 10, 13}, {16, 10, 2}, {2, 13, 16}, {16, 13, 10}, {3, 7, 9}, {20, 7, 3}, {3, 9, 20}, {20, 9, 7}, {10, 8, 3},
    {3, 8, 19}, {19, 10, 3}, {8, 10, 19}, {4, 5, 11}, {14, 5, 4}, {4, 11, 14}, {14, 11, 5}, {12, 6, 4}, {4, 6, 13}, {13, 12, 4}, {6, 12, 13},
    {16, 7, 5}, {5, 7, 18}, {18, 16, 5}, {7, 16, 18}, {6, 8, 15}, {17, 8, 6}, {6, 15, 17}, {17, 15, 8}}]]]

In[245]:=

"TetrahedronTenCompound_17.gif"

Out[245]=

"TetrahedronTenCompound_18.gif"

In[246]:=

"TetrahedronTenCompound_19.gif"

Out[246]=

"TetrahedronTenCompound_20.gif"

In[247]:=

"TetrahedronTenCompound_21.gif"

Out[247]=

"TetrahedronTenCompound_22.gif"