Hellenica World

Gyroelongated square bicupola

In[602]:=

"GyroelongatedSquareBicupola_2.gif"

Out[602]=

"GyroelongatedSquareBicupola_3.gif"

In[603]:=

"GyroelongatedSquareBicupola_4.gif"

Out[603]=

"GyroelongatedSquareBicupola_5.gif"

In[604]:=

"GyroelongatedSquareBicupola_6.gif"

Out[604]=

"GyroelongatedSquareBicupola_7.gif"

In[605]:=

"GyroelongatedSquareBicupola_8.gif"

Out[605]=

"GyroelongatedSquareBicupola_9.gif"

In[606]:=

"GyroelongatedSquareBicupola_10.gif"

Out[606]=

"GyroelongatedSquareBicupola_11.gif"

In[607]:=

"GyroelongatedSquareBicupola_12.gif"

Out[607]=

"GyroelongatedSquareBicupola_13.gif"

In[608]:=

"GyroelongatedSquareBicupola_14.gif"

Out[608]=

"GyroelongatedSquareBicupola_15.gif"

In[609]:=

"GyroelongatedSquareBicupola_16.gif"

Out[609]=

"GyroelongatedSquareBicupola_17.gif"

In[610]:=

"GyroelongatedSquareBicupola_18.gif"

Out[610]//InputForm=

Graphics3D[GraphicsComplex[
  {{0, -(1/Sqrt[2]), Root[47 - 96*#1 - 608*#1^2 + 1408*#1^3 + 256*#1^4 - 1024*#1^5 - 512*#1^6 + 512*#1^8 & ,
     1, 0]}, {0, 1/Sqrt[2], Root[47 - 96*#1 - 608*#1^2 + 1408*#1^3 + 256*#1^4 - 1024*#1^5 - 512*#1^6 +
       512*#1^8 & , 1, 0]}, {0, -Sqrt[1 + 1/Sqrt[2]], Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {0, Sqrt[1 + 1/Sqrt[2]], Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-(1/Sqrt[2]), 0, Root[47 - 96*#1 - 608*#1^2 + 1408*#1^3 + 256*#1^4 - 1024*#1^5 - 512*#1^6 + 512*#1^8 & ,
     1, 0]}, {1/Sqrt[2], 0, Root[47 - 96*#1 - 608*#1^2 + 1408*#1^3 + 256*#1^4 - 1024*#1^5 - 512*#1^6 +
       512*#1^8 & , 1, 0]}, {-Sqrt[1 + 1/Sqrt[2]]/2, Sqrt[1 - 1/Sqrt[2]]/2,
    Root[47 + 96*#1 - 608*#1^2 - 1408*#1^3 + 256*#1^4 + 1024*#1^5 - 512*#1^6 + 512*#1^8 & , 6, 0]},
   {Sqrt[1 + 1/Sqrt[2]]/2, -Sqrt[1 - 1/Sqrt[2]]/2,
    Root[47 + 96*#1 - 608*#1^2 - 1408*#1^3 + 256*#1^4 + 1024*#1^5 - 512*#1^6 + 512*#1^8 & , 6, 0]},
   {1/2 + 1/Sqrt[2], 1/2, -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-Sqrt[1 + 1/Sqrt[2]], 0, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {Sqrt[1 + 1/Sqrt[2]], 0, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-Sqrt[2 + Sqrt[2]]/2, -Sqrt[2 + Sqrt[2]]/2, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-Sqrt[2 + Sqrt[2]]/2, Sqrt[2 + Sqrt[2]]/2, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {Sqrt[2 + Sqrt[2]]/2, -Sqrt[2 + Sqrt[2]]/2, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {Sqrt[2 + Sqrt[2]]/2, Sqrt[2 + Sqrt[2]]/2, Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-1/2, -1/2 - 1/Sqrt[2], -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {1/2, 1/2 + 1/Sqrt[2], -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {1/2, -1/2 - 1/Sqrt[2], -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-1/2, 1/2 + 1/Sqrt[2], -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {1/2 + 1/Sqrt[2], -1/2, -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-1/2 - 1/Sqrt[2], 1/2, -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-1/2 - 1/Sqrt[2], -1/2, -Sqrt[-1 - Sqrt[2] + Sqrt[5 + 7/Sqrt[2]]]/2},
   {-Sqrt[1 - 1/Sqrt[2]]/2, -Sqrt[1 + 1/Sqrt[2]]/2,
    Root[47 + 96*#1 - 608*#1^2 - 1408*#1^3 + 256*#1^4 + 1024*#1^5 - 512*#1^6 + 512*#1^8 & , 6, 0]},
   {Sqrt[1 - 1/Sqrt[2]]/2, Sqrt[1 + 1/Sqrt[2]]/2,
    Root[47 + 96*#1 - 608*#1^2 - 1408*#1^3 + 256*#1^4 + 1024*#1^5 - 512*#1^6 + 512*#1^8 & , 6, 0]}},
  Polygon[{{9, 15, 11}, {17, 4, 15}, {19, 13, 4}, {21, 10, 13}, {22, 12, 10}, {16, 3, 12}, {18, 14, 3},
    {20, 11, 14}, {9, 17, 15}, {17, 19, 4}, {19, 21, 13}, {21, 22, 10}, {22, 16, 12}, {16, 18, 3},
    {18, 20, 14}, {20, 9, 11}, {24, 7, 23, 8}, {7, 24, 4, 13}, {23, 7, 10, 12}, {8, 23, 3, 14},
    {24, 8, 11, 15}, {15, 4, 24}, {13, 10, 7}, {12, 3, 23}, {14, 11, 8}, {5, 2, 6, 1}, {20, 18, 1, 6},
    {17, 9, 6, 2}, {21, 19, 2, 5}, {16, 22, 5, 1}, {1, 18, 16}, {6, 9, 20}, {2, 19, 17}, {5, 22, 21}}]]]

In[611]:=

"GyroelongatedSquareBicupola_19.gif"

Out[611]=

"GyroelongatedSquareBicupola_20.gif"

In[612]:=

"GyroelongatedSquareBicupola_21.gif"

Out[612]=

"GyroelongatedSquareBicupola_22.gif"

In[613]:=

"GyroelongatedSquareBicupola_23.gif"

Out[613]=

"GyroelongatedSquareBicupola_24.gif"

Johnson Polyhedra

Geometry