Hellenica World

# Sphenocorona

In[976]:=

Out[976]=

In[977]:=

Out[977]=

In[978]:=

Out[978]=

In[979]:=

Out[979]=

In[980]:=

Out[980]=

In[981]:=

Out[981]=

In[982]:=

Out[982]=

In[983]:=

Out[983]=

In[984]:=

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]:=

Out[985]=

In[986]:=

Out[986]=

In[987]:=

Out[987]=

Johnson Polyhedra

Geometry