Hellenica World

Sphenocorona

In[976]:=

"Sphenocorona_2.gif"

Out[976]=

"Sphenocorona_3.gif"

In[977]:=

"Sphenocorona_4.gif"

Out[977]=

"Sphenocorona_5.gif"

In[978]:=

"Sphenocorona_6.gif"

Out[978]=

"Sphenocorona_7.gif"

In[979]:=

"Sphenocorona_8.gif"

Out[979]=

"Sphenocorona_9.gif"

In[980]:=

"Sphenocorona_10.gif"

Out[980]=

"Sphenocorona_11.gif"

In[981]:=

"Sphenocorona_12.gif"

Out[981]=

"Sphenocorona_13.gif"

In[982]:=

"Sphenocorona_14.gif"

Out[982]=

"Sphenocorona_15.gif"

In[983]:=

"Sphenocorona_16.gif"

Out[983]=

"Sphenocorona_17.gif"

In[984]:=

"Sphenocorona_18.gif"

Out[984]//InputForm=

Graphics3D[GraphicsComplex[{{0, -1/2, -Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {0, 1/2, -Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180}, {(-6 - Sqrt[6] - 2*Sqrt[213 - 57*Sqrt[6]])/30, 1/2,
    Sqrt[1/6 + 6*Sqrt[6] - Sqrt[538 + 18*Sqrt[6]]/3]/5 - Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {-1/2, 0, Sqrt[(1 + Sqrt[6])/2] - Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {(-6 - Sqrt[6] - 2*Sqrt[213 - 57*Sqrt[6]])/30, -1/2, Sqrt[1/6 + 6*Sqrt[6] - Sqrt[538 + 18*Sqrt[6]]/3]/5 -
     Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180}, {(6 + Sqrt[6] + 2*Sqrt[213 - 57*Sqrt[6]])/30, 1/2,
    Sqrt[1/6 + 6*Sqrt[6] - Sqrt[538 + 18*Sqrt[6]]/3]/5 - Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {1/2, 0, Sqrt[(1 + Sqrt[6])/2] - Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {(6 + Sqrt[6] + 2*Sqrt[213 - 57*Sqrt[6]])/30, -1/2, Sqrt[1/6 + 6*Sqrt[6] - Sqrt[538 + 18*Sqrt[6]]/3]/5 -
     Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180}, {0, (9 - Sqrt[6] + 2*Sqrt[213 - 57*Sqrt[6]])/30,
    Sqrt[1/6 + 6*Sqrt[6] + Sqrt[538 + 18*Sqrt[6]]/3]/5 - Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180},
   {0, (-9 + Sqrt[6] - 2*Sqrt[213 - 57*Sqrt[6]])/30, Sqrt[1/6 + 6*Sqrt[6] + Sqrt[538 + 18*Sqrt[6]]/3]/5 -
     Sqrt[7774 + 4389*Sqrt[6] - 2*Sqrt[3330013 + 481743*Sqrt[6]]]/180}},
  Polygon[{{3, 2, 1, 5}, {2, 6, 8, 1}, {3, 9, 2}, {9, 6, 2}, {9, 3, 4}, {6, 9, 7}, {3, 5, 4}, {6, 7, 8}, {4, 7, 9}, {10, 7, 4}, {10, 8, 7},
    {5, 10, 4}, {1, 8, 10}, {5, 1, 10}}]]]

In[985]:=

"Sphenocorona_19.gif"

Out[985]=

"Sphenocorona_20.gif"

In[986]:=

"Sphenocorona_21.gif"

Out[986]=

"Sphenocorona_22.gif"

In[987]:=

"Sphenocorona_23.gif"

Out[987]=

"Sphenocorona_24.gif"

Johnson Polyhedra

Geometry

Index

Scientific Library - Scientificlib.com