Hellenica World

# Great rhombicosidodecahedron

In[16]:=

Out[16]=

In[17]:=

Out[17]=

In[18]:=

Out[18]=

In[19]:=

Out[19]=

In[20]:=

Out[20]=

In[21]:=

Out[21]=

In[22]:=

Out[22]=

In[23]:=

Out[23]=

In[24]:=

Out[24]//InputForm=

Graphics3D[GraphicsComplex[{{-1/2, 1/2 + 1/Sqrt[2], -1/2 - Sqrt[2]}, {-1/2, 1/2 + 1/Sqrt[2], 1/2 + Sqrt[2]}, {-1/2, (2 - 2*Sqrt[2])^(-1), -1/2 - Sqrt[2]},
{-1/2, (2 - 2*Sqrt[2])^(-1), 1/2 + Sqrt[2]}, {-1/2, -1/2 - Sqrt[2], 1/2 + 1/Sqrt[2]}, {-1/2, -1/2 - Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {-1/2, 1/2 + Sqrt[2], 1/2 + 1/Sqrt[2]},
{-1/2, 1/2 + Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {1/2, 1/2 + 1/Sqrt[2], -1/2 - Sqrt[2]}, {1/2, 1/2 + 1/Sqrt[2], 1/2 + Sqrt[2]}, {1/2, (2 - 2*Sqrt[2])^(-1), -1/2 - Sqrt[2]},
{1/2, (2 - 2*Sqrt[2])^(-1), 1/2 + Sqrt[2]}, {1/2, -1/2 - Sqrt[2], 1/2 + 1/Sqrt[2]}, {1/2, -1/2 - Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {1/2, 1/2 + Sqrt[2], 1/2 + 1/Sqrt[2]},
{1/2, 1/2 + Sqrt[2], (2 - 2*Sqrt[2])^(-1)}, {1/2 + 1/Sqrt[2], -1/2, -1/2 - Sqrt[2]}, {1/2 + 1/Sqrt[2], -1/2, 1/2 + Sqrt[2]}, {1/2 + 1/Sqrt[2], 1/2, -1/2 - Sqrt[2]},
{1/2 + 1/Sqrt[2], 1/2, 1/2 + Sqrt[2]}, {1/2 + 1/Sqrt[2], -1/2 - Sqrt[2], -1/2}, {1/2 + 1/Sqrt[2], -1/2 - Sqrt[2], 1/2}, {1/2 + 1/Sqrt[2], 1/2 + Sqrt[2], -1/2},
{1/2 + 1/Sqrt[2], 1/2 + Sqrt[2], 1/2}, {(2 - 2*Sqrt[2])^(-1), -1/2, -1/2 - Sqrt[2]}, {(2 - 2*Sqrt[2])^(-1), -1/2, 1/2 + Sqrt[2]},
{(2 - 2*Sqrt[2])^(-1), 1/2, -1/2 - Sqrt[2]}, {(2 - 2*Sqrt[2])^(-1), 1/2, 1/2 + Sqrt[2]}, {(2 - 2*Sqrt[2])^(-1), -1/2 - Sqrt[2], -1/2},
{(2 - 2*Sqrt[2])^(-1), -1/2 - Sqrt[2], 1/2}, {(2 - 2*Sqrt[2])^(-1), 1/2 + Sqrt[2], -1/2}, {(2 - 2*Sqrt[2])^(-1), 1/2 + Sqrt[2], 1/2},
{-1/2 - Sqrt[2], -1/2, 1/2 + 1/Sqrt[2]}, {-1/2 - Sqrt[2], -1/2, (2 - 2*Sqrt[2])^(-1)}, {-1/2 - Sqrt[2], 1/2, 1/2 + 1/Sqrt[2]}, {-1/2 - Sqrt[2], 1/2, (2 - 2*Sqrt[2])^(-1)},
{-1/2 - Sqrt[2], 1/2 + 1/Sqrt[2], -1/2}, {-1/2 - Sqrt[2], 1/2 + 1/Sqrt[2], 1/2}, {-1/2 - Sqrt[2], (2 - 2*Sqrt[2])^(-1), -1/2}, {-1/2 - Sqrt[2], (2 - 2*Sqrt[2])^(-1), 1/2},
{1/2 + Sqrt[2], -1/2, 1/2 + 1/Sqrt[2]}, {1/2 + Sqrt[2], -1/2, (2 - 2*Sqrt[2])^(-1)}, {1/2 + Sqrt[2], 1/2, 1/2 + 1/Sqrt[2]}, {1/2 + Sqrt[2], 1/2, (2 - 2*Sqrt[2])^(-1)},
{1/2 + Sqrt[2], 1/2 + 1/Sqrt[2], -1/2}, {1/2 + Sqrt[2], 1/2 + 1/Sqrt[2], 1/2}, {1/2 + Sqrt[2], (2 - 2*Sqrt[2])^(-1), -1/2}, {1/2 + Sqrt[2], (2 - 2*Sqrt[2])^(-1), 1/2}},
Polygon[{{44, 42, 17, 19}, {14, 6, 3, 11}, {34, 36, 27, 25}, {8, 16, 9, 1}, {20, 18, 41, 43}, {12, 4, 5, 13}, {26, 28, 35, 33}, {2, 10, 15, 7}, {45, 23, 24, 46},
{39, 29, 30, 40}, {48, 22, 21, 47}, {38, 32, 31, 37}, {9, 19, 17, 11, 3, 25, 27, 1}, {2, 28, 26, 4, 12, 18, 20, 10}, {41, 48, 47, 42, 44, 45, 46, 43},
{35, 38, 37, 36, 34, 39, 40, 33}, {15, 24, 23, 16, 8, 31, 32, 7}, {5, 30, 29, 6, 14, 21, 22, 13}, {46, 24, 15, 10, 20, 43}, {35, 28, 2, 7, 32, 38},
{41, 18, 12, 13, 22, 48}, {40, 30, 5, 4, 26, 33}, {44, 19, 9, 16, 23, 45}, {37, 31, 8, 1, 27, 36}, {47, 21, 14, 11, 17, 42}, {34, 25, 3, 6, 29, 39}}]]]

In[25]:=

Out[25]=

In[26]:=

Out[26]=

In[27]:=

Out[27]=

In[28]:=

Out[28]=