Hellenica World

Snub Cube

In[101]:=

"SnubCube_3.gif"

Out[101]=

"SnubCube_4.gif"

In[102]:=

"SnubCube_5.gif"

Out[102]=

"SnubCube_6.gif"

In[103]:=

"SnubCube_7.gif"

Out[103]=

"SnubCube_8.gif"

In[104]:=

"SnubCube_9.gif"

Out[104]=

"SnubCube_10.gif"

In[105]:=

"SnubCube_11.gif"

Out[105]=

"SnubCube_12.gif"

In[106]:=

"SnubCube_13.gif"

Out[106]=

"SnubCube_14.gif"

In[107]:=

"SnubCube_15.gif"

Out[107]=

"SnubCube_16.gif"

In[108]:=

"SnubCube_17.gif"

Out[108]=

"SnubCube_18.gif"

In[109]:=

"SnubCube_19.gif"

Out[109]//InputForm=

Graphics3D[GraphicsComplex[{{Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]},
   {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]}, {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0], Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 1, 0]},
   {Root[-1 + 4*#1^2 - 16*#1^4 + 32*#1^6 & , 2, 0], Root[-1 + 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0],
    Root[-1 - 12*#1^2 - 32*#1^4 + 32*#1^6 & , 2, 0]}}, Polygon[{{3, 1, 17}, {3, 17, 9}, {3, 19, 2}, {3, 9, 19},
    {1, 4, 20}, {1, 20, 11}, {1, 11, 17}, {2, 19, 12}, {2, 18, 4}, {2, 12, 18}, {4, 18, 10}, {4, 10, 20}, {17, 11, 13},
    {19, 9, 15}, {18, 12, 14}, {20, 10, 16}, {9, 21, 15}, {11, 23, 13}, {12, 24, 14}, {10, 22, 16}, {13, 23, 7},
    {13, 7, 21}, {15, 21, 5}, {15, 5, 24}, {16, 22, 6}, {16, 6, 23}, {14, 24, 8}, {14, 8, 22}, {21, 7, 5}, {23, 6, 7},
    {24, 5, 8}, {22, 8, 6}, {1, 3, 2, 4}, {21, 9, 17, 13}, {24, 12, 19, 15}, {10, 18, 14, 22}, {11, 20, 16, 23},
    {8, 5, 7, 6}}]]]

In[110]:=

"SnubCube_20.gif"

Out[110]=

"SnubCube_21.gif"

In[111]:=

"SnubCube_22.gif"

Out[111]=

"SnubCube_23.gif"

In[112]:=

"SnubCube_24.gif"

Out[112]=

"SnubCube_25.gif"

In[113]:=

"SnubCube_26.gif"

Out[113]=

"SnubCube_27.gif"

Archimedean Solid

Geometry

Index

Scientificlib.com
Scientificlib News