Hellenica World

Pentagonal pyramid

In[940]:=

"PentagonalPyramid_2.gif"

Out[940]=

"PentagonalPyramid_3.gif"

In[941]:=

"PentagonalPyramid_4.gif"

Out[941]=

"PentagonalPyramid_5.gif"

In[942]:=

"PentagonalPyramid_6.gif"

Out[942]=

"PentagonalPyramid_7.gif"

In[943]:=

"PentagonalPyramid_8.gif"

Out[943]=

"PentagonalPyramid_9.gif"

In[944]:=

"PentagonalPyramid_10.gif"

Out[944]=

"PentagonalPyramid_11.gif"

In[945]:=

"PentagonalPyramid_12.gif"

Out[945]=

"PentagonalPyramid_13.gif"

In[946]:=

"PentagonalPyramid_14.gif"

Out[946]=

"PentagonalPyramid_15.gif"

In[947]:=

"PentagonalPyramid_16.gif"

Out[947]=

"PentagonalPyramid_17.gif"

In[948]:=

"PentagonalPyramid_18.gif"

Out[948]//InputForm=

Graphics3D[GraphicsComplex[{{0, 0, (3*Sqrt[(5 - Sqrt[5])/10])/4}, {Sqrt[1/2 + 1/(2*Sqrt[5])], 0, -Sqrt[(5 - Sqrt[5])/10]/4},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, -Sqrt[(5 - Sqrt[5])/10]/4}, {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4,
    -Sqrt[(5 - Sqrt[5])/10]/4}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, -Sqrt[(5 - Sqrt[5])/10]/4},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, -Sqrt[(5 - Sqrt[5])/10]/4}}, Polygon[{{4, 6, 1}, {6, 5, 1}, {5, 3, 1}, {3, 2, 1}, {2, 4, 1},
    {2, 3, 5, 6, 4}}]]]

In[949]:=

"PentagonalPyramid_19.gif"

Out[949]=

"PentagonalPyramid_20.gif"

In[950]:=

"PentagonalPyramid_21.gif"

Out[950]=

"PentagonalPyramid_22.gif"

In[951]:=

"PentagonalPyramid_23.gif"

Out[951]=

"PentagonalPyramid_24.gif"

Johnson Polyhedra

Geometry