Hellenica World

Pentagonal cupola

In[843]:=

"PentagonalCupola_2.gif"

Out[843]=

"PentagonalCupola_3.gif"

In[844]:=

"PentagonalCupola_4.gif"

Out[844]=

"PentagonalCupola_5.gif"

In[845]:=

"PentagonalCupola_6.gif"

Out[845]=

"PentagonalCupola_7.gif"

In[846]:=

"PentagonalCupola_8.gif"

Out[846]=

"PentagonalCupola_9.gif"

In[847]:=

"PentagonalCupola_10.gif"

Out[847]=

"PentagonalCupola_11.gif"

In[848]:=

"PentagonalCupola_12.gif"

Out[848]=

"PentagonalCupola_13.gif"

In[849]:=

"PentagonalCupola_14.gif"

Out[849]=

"PentagonalCupola_15.gif"

In[850]:=

"PentagonalCupola_16.gif"

Out[850]=

"PentagonalCupola_17.gif"

In[851]:=

"PentagonalCupola_18.gif"

Out[851]//InputForm=

Graphics3D[GraphicsComplex[{{0, (-1 - Sqrt[5])/2, -Sqrt[701/2 - 131/(2*Sqrt[5])]/88},
   {0, (1 + Sqrt[5])/2, -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {Sqrt[1/2 + 1/(2*Sqrt[5])], 0,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88 + Sqrt[(5 - Sqrt[5])/10]}, {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88 + Sqrt[(5 - Sqrt[5])/10]}, {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88 + Sqrt[(5 - Sqrt[5])/10]}, {-Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {-Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88 + Sqrt[(5 - Sqrt[5])/10]}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88 + Sqrt[(5 - Sqrt[5])/10]}, {-Sqrt[5/4 + Sqrt[5]/2], -1/2,
    -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}, {-Sqrt[5/4 + Sqrt[5]/2], 1/2, -Sqrt[701/2 - 131/(2*Sqrt[5])]/88},
   {Sqrt[5/4 + Sqrt[5]/2], -1/2, -Sqrt[701/2 - 131/(2*Sqrt[5])]/88},
   {Sqrt[5/4 + Sqrt[5]/2], 1/2, -Sqrt[701/2 - 131/(2*Sqrt[5])]/88}},
  Polygon[{{5, 11, 10, 4, 3}, {15, 14, 8, 1, 6, 12, 13, 7, 2, 9}, {11, 5, 2, 7}, {10, 11, 13, 12},
    {4, 10, 6, 1}, {3, 4, 8, 14}, {5, 3, 15, 9}, {9, 2, 5}, {7, 13, 11}, {12, 6, 10}, {1, 8, 4},
    {14, 15, 3}}]]]

In[852]:=

"PentagonalCupola_19.gif"

Out[852]=

"PentagonalCupola_20.gif"

In[853]:=

"PentagonalCupola_21.gif"

Out[853]=

"PentagonalCupola_22.gif"

In[854]:=

"PentagonalCupola_23.gif"

Out[854]=

"PentagonalCupola_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com