Hellenica World

Pentagonal gyrobicupola

In[855]:=

"PentagonalGyrobicupola_2.gif"

Out[855]=

"PentagonalGyrobicupola_3.gif"

In[856]:=

"PentagonalGyrobicupola_4.gif"

Out[856]=

"PentagonalGyrobicupola_5.gif"

In[857]:=

"PentagonalGyrobicupola_6.gif"

Out[857]=

"PentagonalGyrobicupola_7.gif"

In[858]:=

"PentagonalGyrobicupola_8.gif"

Out[858]=

"PentagonalGyrobicupola_9.gif"

In[859]:=

"PentagonalGyrobicupola_10.gif"

Out[859]=

"PentagonalGyrobicupola_11.gif"

In[860]:=

"PentagonalGyrobicupola_12.gif"

Out[860]=

"PentagonalGyrobicupola_13.gif"

In[861]:=

"PentagonalGyrobicupola_14.gif"

Out[861]=

"PentagonalGyrobicupola_15.gif"

In[862]:=

"PentagonalGyrobicupola_16.gif"

Out[862]=

"PentagonalGyrobicupola_17.gif"

In[863]:=

"PentagonalGyrobicupola_18.gif"

Out[863]//InputForm=

Graphics3D[GraphicsComplex[{{0, (-1 - Sqrt[5])/2, 0}, {0, (1 + Sqrt[5])/2, 0},
   {-Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, Sqrt[(5 - Sqrt[5])/10]}, {-Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2,
    Sqrt[(5 - Sqrt[5])/10]}, {Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, -Sqrt[(5 - Sqrt[5])/10]},
   {Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, -Sqrt[(5 - Sqrt[5])/10]}, {-Sqrt[1/2 + 1/(2*Sqrt[5])], 0,
    -Sqrt[(5 - Sqrt[5])/10]}, {Sqrt[1/2 + 1/(2*Sqrt[5])], 0, Sqrt[(5 - Sqrt[5])/10]},
   {-Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, -Sqrt[(5 - Sqrt[5])/10]},
   {-Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, -Sqrt[(5 - Sqrt[5])/10]},
   {Sqrt[(5 - Sqrt[5])/10]/2, (-1 - Sqrt[5])/4, Sqrt[(5 - Sqrt[5])/10]},
   {Sqrt[(5 - Sqrt[5])/10]/2, (1 + Sqrt[5])/4, Sqrt[(5 - Sqrt[5])/10]},
   {-Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4, 0}, {-Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4, 0},
   {Sqrt[5/8 + Sqrt[5]/8], (-3 - Sqrt[5])/4, 0}, {Sqrt[5/8 + Sqrt[5]/8], (3 + Sqrt[5])/4, 0},
   {-Sqrt[5/4 + Sqrt[5]/2], -1/2, 0}, {-Sqrt[5/4 + Sqrt[5]/2], 1/2, 0}, {Sqrt[5/4 + Sqrt[5]/2], -1/2, 0},
   {Sqrt[5/4 + Sqrt[5]/2], 1/2, 0}}, Polygon[{{12, 4, 3, 11, 8}, {4, 12, 2, 14}, {3, 4, 18, 17},
    {11, 3, 13, 1}, {8, 11, 15, 19}, {12, 8, 20, 16}, {16, 2, 12}, {14, 18, 4}, {17, 13, 3}, {1, 15, 11},
    {19, 20, 8}, {5, 9, 7, 10, 6}, {2, 16, 6, 10}, {18, 14, 10, 7}, {13, 17, 7, 9}, {15, 1, 9, 5},
    {20, 19, 5, 6}, {6, 16, 20}, {10, 14, 2}, {7, 17, 18}, {9, 1, 13}, {5, 19, 15}}]]]

In[864]:=

"PentagonalGyrobicupola_19.gif"

Out[864]=

"PentagonalGyrobicupola_20.gif"

In[865]:=

"PentagonalGyrobicupola_21.gif"

Out[865]=

"PentagonalGyrobicupola_22.gif"

In[866]:=

"PentagonalGyrobicupola_23.gif"

Out[866]=

"PentagonalGyrobicupola_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com