Fine Art

.

In[374]:=

"ElongatedSquareCupola_2.gif"

Out[374]=

"ElongatedSquareCupola_3.gif"

In[375]:=

"ElongatedSquareCupola_4.gif"

Out[375]=

"ElongatedSquareCupola_5.gif"

In[376]:=

"ElongatedSquareCupola_6.gif"

Out[376]=

"ElongatedSquareCupola_7.gif"

In[377]:=

"ElongatedSquareCupola_8.gif"

Out[377]=

"ElongatedSquareCupola_9.gif"

In[378]:=

"ElongatedSquareCupola_10.gif"

Out[378]=

"ElongatedSquareCupola_11.gif"

In[379]:=

"ElongatedSquareCupola_12.gif"

Out[379]=

"ElongatedSquareCupola_13.gif"

In[380]:=

"ElongatedSquareCupola_14.gif"

Out[380]=

"ElongatedSquareCupola_15.gif"

In[381]:=

"ElongatedSquareCupola_16.gif"

Out[381]=

"ElongatedSquareCupola_17.gif"

In[382]:=

"ElongatedSquareCupola_18.gif"

Out[382]//InputForm=

Graphics3D[GraphicsComplex[{{0, -(1/Sqrt[2]), 1/Sqrt[2] + (167 - 44*Sqrt[2])/376},
   {0, 1/Sqrt[2], 1/Sqrt[2] + (167 - 44*Sqrt[2])/376}, {-(1/Sqrt[2]), 0, 1/Sqrt[2] + (167 - 44*Sqrt[2])/376},
   {1/Sqrt[2], 0, 1/Sqrt[2] + (167 - 44*Sqrt[2])/376}, {1/2, (1 + Sqrt[2])/2, -1 + (167 - 44*Sqrt[2])/376},
   {1/2, (1 + Sqrt[2])/2, (167 - 44*Sqrt[2])/376}, {-1/2, (1 + Sqrt[2])/2, -1 + (167 - 44*Sqrt[2])/376},
   {-1/2, (1 + Sqrt[2])/2, (167 - 44*Sqrt[2])/376}, {(-1 - Sqrt[2])/2, 1/2, -1 + (167 - 44*Sqrt[2])/376},
   {(-1 - Sqrt[2])/2, 1/2, (167 - 44*Sqrt[2])/376}, {(-1 - Sqrt[2])/2, -1/2, -1 + (167 - 44*Sqrt[2])/376},
   {(-1 - Sqrt[2])/2, -1/2, (167 - 44*Sqrt[2])/376}, {-1/2, (-1 - Sqrt[2])/2, -1 + (167 - 44*Sqrt[2])/376},
   {-1/2, (-1 - Sqrt[2])/2, (167 - 44*Sqrt[2])/376}, {1/2, (-1 - Sqrt[2])/2, -1 + (167 - 44*Sqrt[2])/376},
   {1/2, (-1 - Sqrt[2])/2, (167 - 44*Sqrt[2])/376}, {(1 + Sqrt[2])/2, -1/2, -1 + (167 - 44*Sqrt[2])/376},
   {(1 + Sqrt[2])/2, -1/2, (167 - 44*Sqrt[2])/376}, {(1 + Sqrt[2])/2, 1/2, -1 + (167 - 44*Sqrt[2])/376},
   {(1 + Sqrt[2])/2, 1/2, (167 - 44*Sqrt[2])/376}},
  Polygon[{{3, 2, 8, 10}, {1, 3, 12, 14}, {4, 1, 16, 18}, {2, 4, 20, 6}, {6, 8, 2}, {10, 12, 3}, {14, 16, 1},
    {18, 20, 4}, {2, 3, 1, 4}, {19, 17, 15, 13, 11, 9, 7, 5}, {5, 7, 8, 6}, {7, 9, 10, 8}, {9, 11, 12, 10},
    {11, 13, 14, 12}, {13, 15, 16, 14}, {15, 17, 18, 16}, {17, 19, 20, 18}, {19, 5, 6, 20}}]]]

In[383]:=

"ElongatedSquareCupola_19.gif"

Out[383]=

"ElongatedSquareCupola_20.gif"

In[384]:=

"ElongatedSquareCupola_21.gif"

Out[384]=

"ElongatedSquareCupola_22.gif"

In[385]:=

"ElongatedSquareCupola_23.gif"

Out[385]=

"ElongatedSquareCupola_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