.
Cube 5-Compound
In[334]:=
Out[334]=
In[335]:=
Out[335]=
In[336]:=
Out[336]=
In[337]:=
Out[337]=
In[338]:=
Out[338]=
In[339]:=
Out[339]=
In[340]:=
Out[340]=
In[341]:=
Out[341]=
In[342]:=
Out[342]//InputForm=
Graphics3D[GraphicsComplex[{{-Sqrt[1 - 2/Sqrt[5]]/2, -1/2, -Sqrt[1 + 2/Sqrt[5]]/2}, {-Sqrt[1 - 2/Sqrt[5]]/2, 1/2, -Sqrt[1 + 2/Sqrt[5]]/2},
{Sqrt[1/4 - 1/(2*Sqrt[5])], -1/2, Sqrt[1/4 + 1/(2*Sqrt[5])]}, {Sqrt[1/4 - 1/(2*Sqrt[5])], 1/2, Sqrt[1/4 + 1/(2*Sqrt[5])]},
{Root[1 - 5*#1^2 + 5*#1^4 & , 2, 0], 0, -Sqrt[1 + 2/Sqrt[5]]/2}, {Root[1 - 5*#1^2 + 5*#1^4 & , 3, 0], 0, Sqrt[1/4 + 1/(2*Sqrt[5])]},
{Root[1 - 20*#1^2 + 80*#1^4 & , 2, 0], (-1 - Sqrt[5])/4, -Sqrt[1 - 2/Sqrt[5]]/2}, {Root[1 - 20*#1^2 + 80*#1^4 & , 2, 0], (1 + Sqrt[5])/4,
-Sqrt[1 - 2/Sqrt[5]]/2}, {Sqrt[1/8 - 1/(8*Sqrt[5])], (-1 - Sqrt[5])/4, Sqrt[1/4 - 1/(2*Sqrt[5])]},
{Sqrt[1/8 - 1/(8*Sqrt[5])], (1 + Sqrt[5])/4, Sqrt[1/4 - 1/(2*Sqrt[5])]}, {Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0], (1 - Sqrt[5])/4,
Sqrt[1/4 + 1/(2*Sqrt[5])]}, {Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0], (-1 + Sqrt[5])/4, Sqrt[1/4 + 1/(2*Sqrt[5])]},
{Sqrt[1/8 + 1/(8*Sqrt[5])], (1 - Sqrt[5])/4, -Sqrt[1 + 2/Sqrt[5]]/2}, {Sqrt[1/8 + 1/(8*Sqrt[5])], (-1 + Sqrt[5])/4, -Sqrt[1 + 2/Sqrt[5]]/2},
{-Sqrt[1 + 2/Sqrt[5]]/2, -1/2, Sqrt[1/4 - 1/(2*Sqrt[5])]}, {-Sqrt[1 + 2/Sqrt[5]]/2, 1/2, Sqrt[1/4 - 1/(2*Sqrt[5])]},
{Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, -Sqrt[1 - 2/Sqrt[5]]/2}, {Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, -Sqrt[1 - 2/Sqrt[5]]/2},
{Root[1 - 5*#1^2 + 5*#1^4 & , 1, 0], 0, -Sqrt[1 - 2/Sqrt[5]]/2}, {Sqrt[(5 + Sqrt[5])/10], 0, Sqrt[1/4 - 1/(2*Sqrt[5])]}},
Polygon[{{19, 11, 4, 8}, {14, 20, 9, 1}, {19, 1, 9, 11}, {4, 20, 14, 8}, {19, 8, 14, 1}, {9, 20, 4, 11}, {7, 3, 12, 19}, {2, 10, 20, 13},
{12, 10, 2, 19}, {7, 13, 20, 3}, {2, 13, 7, 19}, {12, 3, 20, 10}, {5, 15, 12, 8}, {18, 6, 9, 13}, {5, 13, 9, 15}, {12, 6, 18, 8},
{5, 8, 18, 13}, {9, 6, 12, 15}, {7, 11, 16, 5}, {14, 10, 6, 17}, {16, 10, 14, 5}, {7, 17, 6, 11}, {14, 17, 7, 5}, {16, 11, 6, 10},
{15, 16, 2, 1}, {17, 18, 4, 3}, {15, 3, 4, 16}, {2, 18, 17, 1}, {15, 1, 17, 3}, {4, 18, 2, 16}}]]]
In[343]:=
Out[343]=
In[344]:=
Out[344]=
In[345]:=
Out[345]=
Undergraduate Texts in Mathematics
Graduate Studies in Mathematics
Retrieved from "http://en.wikipedia.org/"
All text is available under the terms of the GNU Free Documentation License