Fine Art

.

In[334]:=

"CubeFiveCompound_2.gif"

Out[334]=

"CubeFiveCompound_3.gif"

In[335]:=

"CubeFiveCompound_4.gif"

Out[335]=

"CubeFiveCompound_5.gif"

In[336]:=

"CubeFiveCompound_6.gif"

Out[336]=

"CubeFiveCompound_7.gif"

In[337]:=

"CubeFiveCompound_8.gif"

Out[337]=

"CubeFiveCompound_9.gif"

In[338]:=

"CubeFiveCompound_10.gif"

Out[338]=

"CubeFiveCompound_11.gif"

In[339]:=

"CubeFiveCompound_12.gif"

Out[339]=

"CubeFiveCompound_13.gif"

In[340]:=

"CubeFiveCompound_14.gif"

Out[340]=

"CubeFiveCompound_15.gif"

In[341]:=

"CubeFiveCompound_16.gif"

Out[341]=

"CubeFiveCompound_17.gif"

In[342]:=

"CubeFiveCompound_18.gif"

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]:=

"CubeFiveCompound_19.gif"

Out[343]=

"CubeFiveCompound_20.gif"

In[344]:=

"CubeFiveCompound_21.gif"

Out[344]=

"CubeFiveCompound_22.gif"

In[345]:=

"CubeFiveCompound_23.gif"

Out[345]=

"CubeFiveCompound_24.gif"

Geometry

Undergraduate Texts in Mathematics

Graduate Texts in Mathematics

Graduate Studies in Mathematics

Mathematics Encyclopedia

Retrieved from "http://en.wikipedia.org/"
All text is available under the terms of the GNU Free Documentation License

Hellenica World - Scientific Library