Hellenica World

Snub Dodecahedron

In[115]:=

"SnubDodecahedron_3.gif"

Out[115]=

"SnubDodecahedron_4.gif"

In[116]:=

"SnubDodecahedron_5.gif"

Out[116]=

"SnubDodecahedron_6.gif"

In[117]:=

"SnubDodecahedron_7.gif"

Out[117]=

"SnubDodecahedron_8.gif"

In[118]:=

"SnubDodecahedron_9.gif"

Out[118]=

"SnubDodecahedron_10.gif"

In[119]:=

"SnubDodecahedron_11.gif"

Out[119]=

"SnubDodecahedron_12.gif"

In[120]:=

"SnubDodecahedron_13.gif"

Out[120]=

"SnubDodecahedron_14.gif"

In[121]:=

"SnubDodecahedron_15.gif"

Out[121]=

"SnubDodecahedron_16.gif"

In[122]:=

"SnubDodecahedron_17.gif"

Out[122]=

"SnubDodecahedron_18.gif"

In[123]:=

"SnubDodecahedron_19.gif"

Out[123]//InputForm=

Graphics3D[GraphicsComplex[
  {{Root[3721 - 65628*#1^2 + 31104*#1^4 + 1050624*#1^6 + 2426112*#1^8 - 13188096*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 68*#1^2 + 1216*#1^4 - 5888*#1^6 + 9472*#1^8 -
       5120*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[3721 - 65628*#1^2 + 31104*#1^4 + 1050624*#1^6 + 2426112*#1^8 - 13188096*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 68*#1^2 + 1216*#1^4 - 5888*#1^6 + 9472*#1^8 -
       5120*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[5041 - 289884*#1^2 + 2745792*#1^4 - 10091520*#1^6 + 17190144*#1^8 - 13188096*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 68*#1^2 + 1216*#1^4 - 5888*#1^6 + 9472*#1^8 -
       5120*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 + 1078272*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[5041 - 289884*#1^2 + 2745792*#1^4 - 10091520*#1^6 + 17190144*#1^8 - 13188096*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 68*#1^2 + 1216*#1^4 - 5888*#1^6 + 9472*#1^8 -
       5120*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 + 1078272*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 1272*#1^2 + 158544*#1^4 + 763776*#1^6 - 787968*#1^8 - 12939264*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 56*#1^2 + 912*#1^4 - 6016*#1^6 + 15872*#1^8 -
       12288*#1^10 + 4096*#1^12 & , 6, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[1 - 1272*#1^2 + 158544*#1^4 + 763776*#1^6 - 787968*#1^8 - 12939264*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 56*#1^2 + 912*#1^4 - 6016*#1^6 + 15872*#1^8 -
       12288*#1^10 + 4096*#1^12 & , 6, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[17161 - 386076*#1^2 + 3170448*#1^4 - 11460096*#1^6 + 17750016*#1^8 - 12192768*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 100*#1^2 + 1872*#1^4 - 9472*#1^6 + 9216*#1^8 -
       13312*#1^10 + 4096*#1^12 & , 8, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[17161 - 386076*#1^2 + 3170448*#1^4 - 11460096*#1^6 + 17750016*#1^8 - 12192768*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 100*#1^2 + 1872*#1^4 - 9472*#1^6 + 9216*#1^8 -
       13312*#1^10 + 4096*#1^12 & , 8, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[3481 - 83304*#1^2 + 701136*#1^4 - 2782080*#1^6 + 7423488*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 56*#1^2 + 912*#1^4 - 6016*#1^6 + 15872*#1^8 -
       12288*#1^10 + 4096*#1^12 & , 3, 0],
    Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 - 3898368*#1^8 + 746496*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[3481 - 83304*#1^2 + 701136*#1^4 - 2782080*#1^6 + 7423488*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 56*#1^2 + 912*#1^4 - 6016*#1^6 + 15872*#1^8 -
       12288*#1^10 + 4096*#1^12 & , 3, 0],
    Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 - 3898368*#1^8 + 746496*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[6241 - 211068*#1^2 + 2283984*#1^4 - 9542016*#1^6 + 16941312*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 36*#1^2 + 272*#1^4 + 384*#1^6 - 768*#1^8 - 12288*#1^10 +
       4096*#1^12 & , 8, 0], Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 -
       3898368*#1^8 + 746496*#1^10 + 2985984*#1^12 & , 1, 0]},
   {Root[6241 - 211068*#1^2 + 2283984*#1^4 - 9542016*#1^6 + 16941312*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 36*#1^2 + 272*#1^4 + 384*#1^6 - 768*#1^8 - 12288*#1^10 +
       4096*#1^12 & , 8, 0], Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 -
       3898368*#1^8 + 746496*#1^10 + 2985984*#1^12 & , 8, 0]},
   {Root[361 - 83964*#1^2 + 2241792*#1^4 - 11102400*#1^6 + 17812224*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 116*#1^2 + 3456*#1^4 - 7488*#1^6 + 1792*#1^8 -
       8192*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[361 - 83964*#1^2 + 2241792*#1^4 - 11102400*#1^6 + 17812224*#1^8 - 11943936*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 116*#1^2 + 3456*#1^4 - 7488*#1^6 + 1792*#1^8 -
       8192*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[361 - 56064*#1^2 + 1461024*#1^4 + 1707264*#1^6 - 373248*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 160*#1^2 + 1312*#1^4 - 2048*#1^6 - 3584*#1^8 +
       3072*#1^10 + 4096*#1^12 & , 8, 0],
    Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[361 - 56064*#1^2 + 1461024*#1^4 + 1707264*#1^6 - 373248*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 160*#1^2 + 1312*#1^4 - 2048*#1^6 - 3584*#1^8 +
       3072*#1^10 + 4096*#1^12 & , 8, 0],
    Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[14641 - 604032*#1^2 + 5589216*#1^4 - 15704064*#1^6 + 18537984*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 160*#1^2 + 1312*#1^4 - 2048*#1^6 - 3584*#1^8 +
       3072*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[14641 - 604032*#1^2 + 5589216*#1^4 - 15704064*#1^6 + 18537984*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 160*#1^2 + 1312*#1^4 - 2048*#1^6 - 3584*#1^8 +
       3072*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[961 - 109116*#1^2 + 1807488*#1^4 - 6492096*#1^6 + 11010816*#1^8 - 10948608*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 116*#1^2 + 3456*#1^4 - 7488*#1^6 + 1792*#1^8 -
       8192*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[961 - 109116*#1^2 + 1807488*#1^4 - 6492096*#1^6 + 11010816*#1^8 - 10948608*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 116*#1^2 + 3456*#1^4 - 7488*#1^6 + 1792*#1^8 -
       8192*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[5041 - 240000*#1^2 + 3312288*#1^4 - 11062656*#1^6 + 15365376*#1^8 - 10450944*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 48*#1^2 + 672*#1^4 - 3456*#1^6 + 4352*#1^8 +
       6144*#1^10 + 4096*#1^12 & , 7, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[5041 - 240000*#1^2 + 3312288*#1^4 - 11062656*#1^6 + 15365376*#1^8 - 10450944*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 48*#1^2 + 672*#1^4 - 3456*#1^6 + 4352*#1^8 +
       6144*#1^10 + 4096*#1^12 & , 7, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[11881 - 272016*#1^2 + 2297376*#1^4 - 8899200*#1^6 + 15614208*#1^8 - 10450944*#1^10 +
       2985984*#1^12 & , 3, 0], Root[1 - 48*#1^2 + 672*#1^4 - 3456*#1^6 + 4352*#1^8 +
       6144*#1^10 + 4096*#1^12 & , 2, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[11881 - 272016*#1^2 + 2297376*#1^4 - 8899200*#1^6 + 15614208*#1^8 - 10450944*#1^10 +
       2985984*#1^12 & , 6, 0], Root[1 - 48*#1^2 + 672*#1^4 - 3456*#1^6 + 4352*#1^8 +
       6144*#1^10 + 4096*#1^12 & , 2, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[361 - 38172*#1^2 + 1001376*#1^4 - 4472064*#1^6 + 8169984*#1^8 - 9953280*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 132*#1^2 + 4256*#1^4 - 3072*#1^6 - 9728*#1^8 +
       4096*#1^12 & , 1, 0], Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 -
       10202112*#1^10 + 2985984*#1^12 & , 8, 0]},
   {Root[361 - 38172*#1^2 + 1001376*#1^4 - 4472064*#1^6 + 8169984*#1^8 - 9953280*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 132*#1^2 + 4256*#1^4 - 3072*#1^6 - 9728*#1^8 +
       4096*#1^12 & , 1, 0], Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 -
       10202112*#1^10 + 2985984*#1^12 & , 1, 0]},
   {Root[5041 - 180336*#1^2 + 912816*#1^4 + 1028160*#1^6 - 4396032*#1^8 - 9206784*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 128*#1^2 + 1392*#1^4 - 4672*#1^6 + 4096*#1^8 -
       1024*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 - 10202112*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[5041 - 180336*#1^2 + 912816*#1^4 + 1028160*#1^6 - 4396032*#1^8 - 9206784*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 128*#1^2 + 1392*#1^4 - 4672*#1^6 + 4096*#1^8 -
       1024*#1^10 + 4096*#1^12 & , 1, 0],
    Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 - 10202112*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[6241 - 97356*#1^2 + 351648*#1^4 + 110592*#1^6 + 870912*#1^8 - 8957952*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 132*#1^2 + 4256*#1^4 - 3072*#1^6 - 9728*#1^8 +
       4096*#1^12 & , 8, 0], Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 -
       11197440*#1^10 + 2985984*#1^12 & , 8, 0]},
   {Root[6241 - 97356*#1^2 + 351648*#1^4 + 110592*#1^6 + 870912*#1^8 - 8957952*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 132*#1^2 + 4256*#1^4 - 3072*#1^6 - 9728*#1^8 +
       4096*#1^12 & , 8, 0], Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 -
       11197440*#1^10 + 2985984*#1^12 & , 1, 0]},
   {Root[7921 - 275484*#1^2 + 2564496*#1^4 - 8951040*#1^6 + 13022208*#1^8 - 8211456*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 100*#1^2 + 1872*#1^4 - 9472*#1^6 + 9216*#1^8 -
       13312*#1^10 + 4096*#1^12 & , 1, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[7921 - 275484*#1^2 + 2564496*#1^4 - 8951040*#1^6 + 13022208*#1^8 - 8211456*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 100*#1^2 + 1872*#1^4 - 9472*#1^6 + 9216*#1^8 -
       13312*#1^10 + 4096*#1^12 & , 1, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 1452*#1^2 + 348624*#1^4 - 5457024*#1^6 + 11964672*#1^8 - 7962624*#1^10 +
       2985984*#1^12 & , 2, 0], Root[1 - 36*#1^2 + 272*#1^4 + 384*#1^6 - 768*#1^8 - 12288*#1^10 +
       4096*#1^12 & , 1, 0], Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 +
       1078272*#1^8 - 3234816*#1^10 + 2985984*#1^12 & , 1, 0]},
   {Root[1 - 1452*#1^2 + 348624*#1^4 - 5457024*#1^6 + 11964672*#1^8 - 7962624*#1^10 +
       2985984*#1^12 & , 7, 0], Root[1 - 36*#1^2 + 272*#1^4 + 384*#1^6 - 768*#1^8 - 12288*#1^10 +
       4096*#1^12 & , 1, 0], Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 +
       1078272*#1^8 - 3234816*#1^10 + 2985984*#1^12 & , 8, 0]},
   {Root[841 - 73056*#1^2 + 1265328*#1^4 - 6887808*#1^6 + 11964672*#1^8 - 7713792*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 48*#1^2 + 752*#1^4 - 4736*#1^6 + 14592*#1^8 -
       19456*#1^10 + 4096*#1^12 & , 1, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[841 - 73056*#1^2 + 1265328*#1^4 - 6887808*#1^6 + 11964672*#1^8 - 7713792*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 48*#1^2 + 752*#1^4 - 4736*#1^6 + 14592*#1^8 -
       19456*#1^10 + 4096*#1^12 & , 1, 0],
    Root[961 - 95784*#1^2 + 1076976*#1^4 - 3568320*#1^6 + 1824768*#1^8 + 1741824*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[1 - 3384*#1^2 + 1219104*#1^4 - 5679936*#1^6 + 7921152*#1^8 - 7464960*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 488*#1^2 + 5728*#1^4 - 20160*#1^6 + 29184*#1^8 -
       18432*#1^10 + 4096*#1^12 & , 1, 0],
    Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 - 3898368*#1^8 + 746496*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 3384*#1^2 + 1219104*#1^4 - 5679936*#1^6 + 7921152*#1^8 - 7464960*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 488*#1^2 + 5728*#1^4 - 20160*#1^6 + 29184*#1^8 -
       18432*#1^10 + 4096*#1^12 & , 1, 0],
    Root[22801 - 432792*#1^2 + 2409264*#1^4 - 3340224*#1^6 - 3898368*#1^8 + 746496*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[1 - 20280*#1^2 + 1035648*#1^4 - 781056*#1^6 - 8999424*#1^8 - 6718464*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 56*#1^2 + 1024*#1^4 - 7168*#1^6 + 18944*#1^8 -
       15360*#1^10 + 4096*#1^12 & , 5, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 20280*#1^2 + 1035648*#1^4 - 781056*#1^6 - 8999424*#1^8 - 6718464*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 56*#1^2 + 1024*#1^4 - 7168*#1^6 + 18944*#1^8 -
       15360*#1^10 + 4096*#1^12 & , 5, 0],
    Root[361 - 71736*#1^2 + 1573488*#1^4 - 167616*#1^6 - 3400704*#1^8 - 2239488*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[10201 - 246120*#1^2 + 1816128*#1^4 - 4962816*#1^6 + 5101056*#1^8 - 6718464*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 328*#1^2 + 2944*#1^4 - 8960*#1^6 + 9728*#1^8 -
       3072*#1^10 + 4096*#1^12 & , 2, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[10201 - 246120*#1^2 + 1816128*#1^4 - 4962816*#1^6 + 5101056*#1^8 - 6718464*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 328*#1^2 + 2944*#1^4 - 8960*#1^6 + 9728*#1^8 -
       3072*#1^10 + 4096*#1^12 & , 2, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[11881 - 341376*#1^2 + 3016368*#1^4 - 8434368*#1^6 + 8957952*#1^8 - 5225472*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 128*#1^2 + 1392*#1^4 - 4672*#1^6 + 4096*#1^8 -
       1024*#1^10 + 4096*#1^12 & , 8, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[11881 - 341376*#1^2 + 3016368*#1^4 - 8434368*#1^6 + 8957952*#1^8 - 5225472*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 128*#1^2 + 1392*#1^4 - 4672*#1^6 + 4096*#1^8 -
       1024*#1^10 + 4096*#1^12 & , 8, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[361 - 29856*#1^2 + 588816*#1^4 - 1926720*#1^6 - 1907712*#1^8 - 4230144*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 416*#1^2 + 6672*#1^4 - 21696*#1^6 + 28672*#1^8 -
       17408*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 + 1078272*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[361 - 29856*#1^2 + 588816*#1^4 - 1926720*#1^6 - 1907712*#1^8 - 4230144*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 416*#1^2 + 6672*#1^4 - 21696*#1^6 + 28672*#1^8 -
       17408*#1^10 + 4096*#1^12 & , 8, 0],
    Root[361 - 292488*#1^2 + 2858544*#1^4 - 6492096*#1^6 + 1078272*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[1 - 504*#1^2 + 65664*#1^4 - 2647296*#1^6 + 8335872*#1^8 - 3732480*#1^10 +
       2985984*#1^12 & , 3, 0], Root[1 - 328*#1^2 + 2944*#1^4 - 8960*#1^6 + 9728*#1^8 -
       3072*#1^10 + 4096*#1^12 & , 7, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 504*#1^2 + 65664*#1^4 - 2647296*#1^6 + 8335872*#1^8 - 3732480*#1^10 +
       2985984*#1^12 & , 6, 0], Root[1 - 328*#1^2 + 2944*#1^4 - 8960*#1^6 + 9728*#1^8 -
       3072*#1^10 + 4096*#1^12 & , 7, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[1 - 18792*#1^2 + 524016*#1^4 - 3443904*#1^6 + 6718464*#1^8 - 1244160*#1^10 +
       2985984*#1^12 & , 2, 0], Root[1 - 40*#1^2 + 624*#1^4 - 4672*#1^6 + 16384*#1^8 -
       21504*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 3, 0]},
   {Root[1 - 18792*#1^2 + 524016*#1^4 - 3443904*#1^6 + 6718464*#1^8 - 1244160*#1^10 +
       2985984*#1^12 & , 7, 0], Root[1 - 40*#1^2 + 624*#1^4 - 4672*#1^6 + 16384*#1^8 -
       21504*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1 - 10584*#1^2 + 441072*#1^4 - 3430080*#1^6 + 7962624*#1^8 - 3234816*#1^10 +
       2985984*#1^12 & , 6, 0]},
   {Root[1 - 7104*#1^2 + 351216*#1^4 - 3300480*#1^6 + 2757888*#1^8 + 4230144*#1^10 +
       2985984*#1^12 & , 2, 0], Root[1 - 48*#1^2 + 752*#1^4 - 4736*#1^6 + 14592*#1^8 -
       19456*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 - 10202112*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[1 - 7104*#1^2 + 351216*#1^4 - 3300480*#1^6 + 2757888*#1^8 + 4230144*#1^10 +
       2985984*#1^12 & , 7, 0], Root[1 - 48*#1^2 + 752*#1^4 - 4736*#1^6 + 14592*#1^8 -
       19456*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1 - 176136*#1^2 + 2371248*#1^4 - 9332928*#1^6 + 14764032*#1^8 - 10202112*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[361 - 23352*#1^2 + 432864*#1^4 - 2666304*#1^6 + 2115072*#1^8 + 4478976*#1^10 +
       2985984*#1^12 & , 4, 0], Root[1 - 488*#1^2 + 5728*#1^4 - 20160*#1^6 + 29184*#1^8 -
       18432*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[361 - 23352*#1^2 + 432864*#1^4 - 2666304*#1^6 + 2115072*#1^8 + 4478976*#1^10 +
       2985984*#1^12 & , 5, 0], Root[1 - 488*#1^2 + 5728*#1^4 - 20160*#1^6 + 29184*#1^8 -
       18432*#1^10 + 4096*#1^12 & , 8, 0],
    Root[1681 - 113304*#1^2 + 1571184*#1^4 - 7390656*#1^6 + 11446272*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[5041 - 143496*#1^2 + 1133568*#1^4 - 2958336*#1^6 + 124416*#1^8 + 5225472*#1^10 +
       2985984*#1^12 & , 1, 0], Root[1 - 56*#1^2 + 1024*#1^4 - 7168*#1^6 + 18944*#1^8 -
       15360*#1^10 + 4096*#1^12 & , 4, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[5041 - 143496*#1^2 + 1133568*#1^4 - 2958336*#1^6 + 124416*#1^8 + 5225472*#1^10 +
       2985984*#1^12 & , 8, 0], Root[1 - 56*#1^2 + 1024*#1^4 - 7168*#1^6 + 18944*#1^8 -
       15360*#1^10 + 4096*#1^12 & , 4, 0],
    Root[1 - 360*#1^2 + 12528*#1^4 - 478656*#1^6 + 5723136*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[961 - 36984*#1^2 + 466992*#1^4 - 2185920*#1^6 + 1741824*#1^8 + 6718464*#1^10 +
       2985984*#1^12 & , 4, 0], Root[1 - 40*#1^2 + 624*#1^4 - 4672*#1^6 + 16384*#1^8 -
       21504*#1^10 + 4096*#1^12 & , 1, 0],
    Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[961 - 36984*#1^2 + 466992*#1^4 - 2185920*#1^6 + 1741824*#1^8 + 6718464*#1^10 +
       2985984*#1^12 & , 5, 0], Root[1 - 40*#1^2 + 624*#1^4 - 4672*#1^6 + 16384*#1^8 -
       21504*#1^10 + 4096*#1^12 & , 1, 0],
    Root[841 - 44232*#1^2 + 705456*#1^4 - 4688064*#1^6 + 12939264*#1^8 - 11197440*#1^10 +
       2985984*#1^12 & , 1, 0]},
   {Root[1 - 528*#1^2 + 69264*#1^4 - 1498176*#1^6 + 2737152*#1^8 + 6718464*#1^10 +
       2985984*#1^12 & , 2, 0], Root[1 - 416*#1^2 + 6672*#1^4 - 21696*#1^6 + 28672*#1^8 -
       17408*#1^10 + 4096*#1^12 & , 1, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 8, 0]},
   {Root[1 - 528*#1^2 + 69264*#1^4 - 1498176*#1^6 + 2737152*#1^8 + 6718464*#1^10 +
       2985984*#1^12 & , 7, 0], Root[1 - 416*#1^2 + 6672*#1^4 - 21696*#1^6 + 28672*#1^8 -
       17408*#1^10 + 4096*#1^12 & , 1, 0],
    Root[961 - 90696*#1^2 + 1566576*#1^4 - 7750080*#1^6 + 15925248*#1^8 - 14183424*#1^10 +
       2985984*#1^12 & , 1, 0]}}, Polygon[{{5, 1, 9}, {5, 9, 3}, {5, 29, 15}, {5, 3, 29},
    {1, 27, 19}, {1, 19, 25}, {1, 25, 9}, {15, 29, 7}, {15, 45, 39}, {15, 7, 45}, {27, 39, 41},
    {27, 41, 37}, {27, 37, 19}, {9, 25, 17}, {39, 45, 21}, {39, 21, 41}, {29, 3, 13},
    {3, 43, 13}, {19, 37, 35}, {25, 31, 17}, {45, 7, 11}, {7, 49, 11}, {41, 21, 23},
    {37, 33, 35}, {17, 31, 59}, {17, 59, 55}, {13, 43, 53}, {13, 53, 51}, {21, 47, 23},
    {43, 55, 48}, {43, 48, 53}, {35, 33, 58}, {35, 58, 57}, {31, 57, 34}, {31, 34, 59},
    {11, 49, 52}, {11, 52, 54}, {55, 59, 24}, {55, 24, 48}, {49, 51, 50}, {49, 50, 52},
    {23, 47, 56}, {23, 56, 60}, {51, 53, 12}, {51, 12, 50}, {33, 60, 32}, {33, 32, 58},
    {57, 58, 36}, {57, 36, 34}, {47, 54, 44}, {47, 44, 56}, {48, 24, 22}, {54, 52, 14},
    {54, 14, 44}, {60, 56, 18}, {60, 18, 32}, {34, 36, 38}, {24, 42, 22}, {50, 12, 8},
    {12, 46, 8}, {32, 18, 26}, {36, 20, 38}, {44, 14, 4}, {22, 42, 40}, {22, 40, 46},
    {14, 30, 4}, {18, 10, 26}, {38, 20, 28}, {38, 28, 42}, {42, 28, 40}, {8, 46, 16},
    {8, 16, 30}, {46, 40, 16}, {26, 10, 2}, {26, 2, 20}, {20, 2, 28}, {4, 30, 6}, {4, 6, 10},
    {30, 16, 6}, {10, 6, 2}, {39, 27, 1, 5, 15}, {3, 9, 17, 55, 43}, {51, 49, 7, 29, 13},
    {57, 31, 25, 19, 35}, {47, 21, 45, 11, 54}, {33, 37, 41, 23, 60}, {42, 24, 59, 34, 38},
    {46, 12, 53, 48, 22}, {36, 58, 32, 26, 20}, {14, 52, 50, 8, 30}, {44, 4, 10, 18, 56},
    {16, 40, 28, 2, 6}}]]]

In[124]:=

"SnubDodecahedron_20.gif"

Out[124]=

"SnubDodecahedron_21.gif"

In[125]:=

"SnubDodecahedron_22.gif"

Out[125]=

"SnubDodecahedron_23.gif"

In[126]:=

"SnubDodecahedron_24.gif"

Out[126]=

"SnubDodecahedron_25.gif"

In[127]:=

"SnubDodecahedron_26.gif"

Out[127]=

"SnubDodecahedron_27.gif"

Archimedean Solid

Geometry

Index

Scientificlib.com
Scientificlib News