Hellenica World

Metabidiminished icosahedron

In[722]:=

"MetabidiminishedIcosahedron_2.gif"

Out[722]=

"MetabidiminishedIcosahedron_3.gif"

In[723]:=

"MetabidiminishedIcosahedron_4.gif"

Out[723]=

"MetabidiminishedIcosahedron_5.gif"

In[724]:=

"MetabidiminishedIcosahedron_6.gif"

Out[724]=

"MetabidiminishedIcosahedron_7.gif"

In[725]:=

"MetabidiminishedIcosahedron_8.gif"

Out[725]=

"MetabidiminishedIcosahedron_9.gif"

In[726]:=

"MetabidiminishedIcosahedron_10.gif"

Out[726]=

"MetabidiminishedIcosahedron_11.gif"

In[727]:=

"MetabidiminishedIcosahedron_12.gif"

Out[727]=

"MetabidiminishedIcosahedron_13.gif"

In[728]:=

"MetabidiminishedIcosahedron_14.gif"

Out[728]=

"MetabidiminishedIcosahedron_15.gif"

In[729]:=

"MetabidiminishedIcosahedron_16.gif"

Out[729]=

"MetabidiminishedIcosahedron_17.gif"

In[730]:=

"MetabidiminishedIcosahedron_18.gif"

Out[730]//InputForm=

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

In[731]:=

"MetabidiminishedIcosahedron_19.gif"

Out[731]=

"MetabidiminishedIcosahedron_20.gif"

In[732]:=

"MetabidiminishedIcosahedron_21.gif"

Out[732]=

"MetabidiminishedIcosahedron_22.gif"

In[733]:=

"MetabidiminishedIcosahedron_23.gif"

Out[733]=

"MetabidiminishedIcosahedron_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com