Hellenica World

# Pentagonal cupola

In[843]:=

Out[843]=

In[844]:=

Out[844]=

In[845]:=

Out[845]=

In[846]:=

Out[846]=

In[847]:=

Out[847]=

In[848]:=

Out[848]=

In[849]:=

Out[849]=

In[850]:=

Out[850]=

In[851]:=

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]:=

Out[852]=

In[853]:=

Out[853]=

In[854]:=

Out[854]=

Johnson Polyhedra

Geometry