Fine Art

.

In[254]:=

"ElongatedPentagonalCupola_2.gif"

Out[254]=

"ElongatedPentagonalCupola_3.gif"

In[255]:=

"ElongatedPentagonalCupola_4.gif"

Out[255]=

"ElongatedPentagonalCupola_5.gif"

In[256]:=

"ElongatedPentagonalCupola_6.gif"

Out[256]=

"ElongatedPentagonalCupola_7.gif"

In[257]:=

"ElongatedPentagonalCupola_8.gif"

Out[257]=

"ElongatedPentagonalCupola_9.gif"

In[258]:=

"ElongatedPentagonalCupola_10.gif"

Out[258]=

"ElongatedPentagonalCupola_11.gif"

In[259]:=

"ElongatedPentagonalCupola_12.gif"

Out[259]=

"ElongatedPentagonalCupola_13.gif"

In[260]:=

"ElongatedPentagonalCupola_14.gif"

Out[260]=

"ElongatedPentagonalCupola_15.gif"

In[261]:=

"ElongatedPentagonalCupola_16.gif"

Out[261]=

"ElongatedPentagonalCupola_17.gif"

In[262]:=

"ElongatedPentagonalCupola_18.gif"

Out[262]//InputForm=

Graphics3D[GraphicsComplex[
  {{0, (-1 - Sqrt[5])/2, -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/
      319840}, {0, (-1 - Sqrt[5])/2, (154425 - 45*Sqrt[5] -
      Sqrt[2650294450 - 213518390*Sqrt[5]])/319840}, {0, (1 + Sqrt[5])/2,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {0, (1 + Sqrt[5])/2, (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[1/2 + 1/(2*Sqrt[5])], 0, Sqrt[(5 - Sqrt[5])/10] +
     (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, Sqrt[(5 - Sqrt[5])/10] +
     (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, Sqrt[(5 - Sqrt[5])/10] +
     (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, Sqrt[(5 - Sqrt[5])/10] +
     (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, Sqrt[(5 - Sqrt[5])/10] +
     (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/4 + Sqrt[5]/2], -1/2,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/4 + Sqrt[5]/2], -1/2, (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/
     319840}, {-Sqrt[5/4 + Sqrt[5]/2], 1/2,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {-Sqrt[5/4 + Sqrt[5]/2], 1/2, (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/
     319840}, {Sqrt[5/4 + Sqrt[5]/2], -1/2,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/4 + Sqrt[5]/2], -1/2, (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/
     319840}, {Sqrt[5/4 + Sqrt[5]/2], 1/2,
    -1 + (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/319840},
   {Sqrt[5/4 + Sqrt[5]/2], 1/2, (154425 - 45*Sqrt[5] - Sqrt[2650294450 - 213518390*Sqrt[5]])/
     319840}}, Polygon[{{17, 7, 4, 11}, {16, 17, 21, 19}, {6, 16, 9, 2}, {5, 6, 13, 23},
    {7, 5, 25, 15}, {15, 4, 7}, {11, 21, 17}, {19, 9, 16}, {2, 13, 6}, {23, 25, 5},
    {7, 17, 16, 6, 5}, {24, 22, 12, 1, 8, 18, 20, 10, 3, 14}, {14, 3, 4, 15}, {3, 10, 11, 4},
    {10, 20, 21, 11}, {20, 18, 19, 21}, {18, 8, 9, 19}, {8, 1, 2, 9}, {1, 12, 13, 2},
    {12, 22, 23, 13}, {22, 24, 25, 23}, {24, 14, 15, 25}}]]]

In[263]:=

"ElongatedPentagonalCupola_19.gif"

Out[263]=

"ElongatedPentagonalCupola_20.gif"

In[264]:=

"ElongatedPentagonalCupola_21.gif"

Out[264]=

"ElongatedPentagonalCupola_22.gif"

In[265]:=

"ElongatedPentagonalCupola_23.gif"

Out[265]=

"ElongatedPentagonalCupola_24.gif"

Johnson Polyhedra

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