In[226]:=
!["TetrahedronFiveCompound_2.gif"](HTMLFiles/TetrahedronFiveCompound_2.gif)
Out[226]=
!["TetrahedronFiveCompound_3.gif"](HTMLFiles/TetrahedronFiveCompound_3.gif)
In[227]:=
!["TetrahedronFiveCompound_4.gif"](HTMLFiles/TetrahedronFiveCompound_4.gif)
Out[227]=
!["TetrahedronFiveCompound_5.gif"](HTMLFiles/TetrahedronFiveCompound_5.gif)
In[228]:=
!["TetrahedronFiveCompound_6.gif"](HTMLFiles/TetrahedronFiveCompound_6.gif)
Out[228]=
!["TetrahedronFiveCompound_7.gif"](HTMLFiles/TetrahedronFiveCompound_7.gif)
In[229]:=
!["TetrahedronFiveCompound_8.gif"](HTMLFiles/TetrahedronFiveCompound_8.gif)
Out[229]=
!["TetrahedronFiveCompound_9.gif"](HTMLFiles/TetrahedronFiveCompound_9.gif)
In[230]:=
!["TetrahedronFiveCompound_10.gif"](HTMLFiles/TetrahedronFiveCompound_10.gif)
Out[230]=
!["TetrahedronFiveCompound_11.gif"](HTMLFiles/TetrahedronFiveCompound_11.gif)
In[231]:=
!["TetrahedronFiveCompound_12.gif"](HTMLFiles/TetrahedronFiveCompound_12.gif)
Out[231]=
In[232]:=
!["TetrahedronFiveCompound_14.gif"](HTMLFiles/TetrahedronFiveCompound_14.gif)
Out[232]=
!["TetrahedronFiveCompound_15.gif"](HTMLFiles/TetrahedronFiveCompound_15.gif)
In[233]:=
!["TetrahedronFiveCompound_16.gif"](HTMLFiles/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"](HTMLFiles/TetrahedronFiveCompound_17.gif)
Out[234]=
!["TetrahedronFiveCompound_18.gif"](HTMLFiles/TetrahedronFiveCompound_18.gif)
In[235]:=
!["TetrahedronFiveCompound_19.gif"](HTMLFiles/TetrahedronFiveCompound_19.gif)
Out[235]=
!["TetrahedronFiveCompound_20.gif"](HTMLFiles/TetrahedronFiveCompound_20.gif)
In[236]:=
!["TetrahedronFiveCompound_21.gif"](HTMLFiles/TetrahedronFiveCompound_21.gif)
Out[236]=
!["TetrahedronFiveCompound_22.gif"](HTMLFiles/TetrahedronFiveCompound_22.gif)