Hellenica World

Pentagonal orthobicupola

In[879]:=

"PentagonalOrthobicupola_2.gif"

Out[879]=

"PentagonalOrthobicupola_3.gif"

In[880]:=

"PentagonalOrthobicupola_4.gif"

Out[880]=

"PentagonalOrthobicupola_5.gif"

In[881]:=

"PentagonalOrthobicupola_6.gif"

Out[881]=

"PentagonalOrthobicupola_7.gif"

In[882]:=

"PentagonalOrthobicupola_8.gif"

Out[882]=

"PentagonalOrthobicupola_9.gif"

In[883]:=

"PentagonalOrthobicupola_10.gif"

Out[883]=

"PentagonalOrthobicupola_11.gif"

In[884]:=

"PentagonalOrthobicupola_12.gif"

Out[884]=

"PentagonalOrthobicupola_13.gif"

In[885]:=

"PentagonalOrthobicupola_14.gif"

Out[885]=

"PentagonalOrthobicupola_15.gif"

In[886]:=

"PentagonalOrthobicupola_16.gif"

Out[886]=

"PentagonalOrthobicupola_17.gif"

In[887]:=

"PentagonalOrthobicupola_18.gif"

Out[887]//InputForm=

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

In[888]:=

"PentagonalOrthobicupola_19.gif"

Out[888]=

"PentagonalOrthobicupola_20.gif"

In[889]:=

"PentagonalOrthobicupola_21.gif"

Out[889]=

"PentagonalOrthobicupola_22.gif"

In[890]:=

"PentagonalOrthobicupola_23.gif"

Out[890]=

"PentagonalOrthobicupola_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com