Hellenica World

Gyroelongated pentagonal pyramid

In[578]:=

"GyroelongatedPentagonalPyramid_2.gif"

Out[578]=

"GyroelongatedPentagonalPyramid_3.gif"

In[579]:=

"GyroelongatedPentagonalPyramid_4.gif"

Out[579]=

"GyroelongatedPentagonalPyramid_5.gif"

In[580]:=

"GyroelongatedPentagonalPyramid_6.gif"

Out[580]=

"GyroelongatedPentagonalPyramid_7.gif"

In[581]:=

"GyroelongatedPentagonalPyramid_8.gif"

Out[581]=

"GyroelongatedPentagonalPyramid_9.gif"

In[582]:=

"GyroelongatedPentagonalPyramid_10.gif"

Out[582]=

"GyroelongatedPentagonalPyramid_11.gif"

In[583]:=

"GyroelongatedPentagonalPyramid_12.gif"

Out[583]=

"GyroelongatedPentagonalPyramid_13.gif"

In[584]:=

"GyroelongatedPentagonalPyramid_14.gif"

Out[584]=

"GyroelongatedPentagonalPyramid_15.gif"

In[585]:=

"GyroelongatedPentagonalPyramid_16.gif"

Out[585]=

"GyroelongatedPentagonalPyramid_17.gif"

In[586]:=

"GyroelongatedPentagonalPyramid_18.gif"

Out[586]//InputForm=

Graphics3D[GraphicsComplex[{{0, 0, Sqrt[5/8 + Sqrt[5]/8] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {-Sqrt[1/2 + 1/(2*Sqrt[5])], 0, -Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {Sqrt[1/2 + 1/(2*Sqrt[5])], 0, Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {-Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, -Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {-Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, -Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, -Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44},
   {Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, -Sqrt[1/8 + 1/(8*Sqrt[5])] - Sqrt[(85 + 31*Sqrt[5])/10]/44}},
  Polygon[{{10, 4, 2, 5, 11}, {11, 7, 3}, {5, 9, 7}, {2, 8, 9}, {4, 6, 8}, {10, 3, 6}, {11, 5, 7}, {5, 2, 9},
    {2, 4, 8}, {4, 10, 6}, {10, 11, 3}, {7, 9, 1}, {9, 8, 1}, {8, 6, 1}, {6, 3, 1}, {3, 7, 1}}]]]

In[587]:=

"GyroelongatedPentagonalPyramid_19.gif"

Out[587]=

"GyroelongatedPentagonalPyramid_20.gif"

In[588]:=

"GyroelongatedPentagonalPyramid_21.gif"

Out[588]=

"GyroelongatedPentagonalPyramid_22.gif"

In[589]:=

"GyroelongatedPentagonalPyramid_23.gif"

Out[589]=

"GyroelongatedPentagonalPyramid_24.gif"

Johnson Polyhedra

Geometry