Hellenica World

Pentagonal dipyramid

In[230]:=

"PentagonalDipyramid_2.gif"

Out[230]=

"PentagonalDipyramid_3.gif"

In[231]:=

"PentagonalDipyramid_4.gif"

Out[231]=

"PentagonalDipyramid_5.gif"

In[232]:=

"PentagonalDipyramid_6.gif"

Out[232]=

"PentagonalDipyramid_7.gif"

In[233]:=

"PentagonalDipyramid_8.gif"

Out[233]=

"PentagonalDipyramid_9.gif"

In[234]:=

"PentagonalDipyramid_10.gif"

Out[234]=

"PentagonalDipyramid_11.gif"

In[235]:=

"PentagonalDipyramid_12.gif"

Out[235]=

"PentagonalDipyramid_13.gif"

In[236]:=

"PentagonalDipyramid_14.gif"

Out[236]=

"PentagonalDipyramid_15.gif"

In[237]:=

"PentagonalDipyramid_16.gif"

Out[237]=

"PentagonalDipyramid_17.gif"

In[238]:=

"PentagonalDipyramid_18.gif"

Out[238]//InputForm=

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

In[239]:=

"PentagonalDipyramid_19.gif"

Out[239]=

"PentagonalDipyramid_20.gif"

In[240]:=

"PentagonalDipyramid_21.gif"

Out[240]=

"PentagonalDipyramid_22.gif"

In[241]:=

"PentagonalDipyramid_23.gif"

Out[241]=

"PentagonalDipyramid_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com