Hellenica World

Triaugmented dodecahedron

In[1072]:=

"TriaugmentedDodecahedron_2.gif"

Out[1072]=

"TriaugmentedDodecahedron_3.gif"

In[1073]:=

"TriaugmentedDodecahedron_4.gif"

Out[1073]=

"TriaugmentedDodecahedron_5.gif"

In[1074]:=

"TriaugmentedDodecahedron_6.gif"

Out[1074]=

"TriaugmentedDodecahedron_7.gif"

In[1075]:=

"TriaugmentedDodecahedron_8.gif"

Out[1075]=

"TriaugmentedDodecahedron_9.gif"

In[1076]:=

"TriaugmentedDodecahedron_10.gif"

Out[1076]=

"TriaugmentedDodecahedron_11.gif"

In[1077]:=

"TriaugmentedDodecahedron_12.gif"

Out[1077]=

"TriaugmentedDodecahedron_13.gif"

In[1078]:=

"TriaugmentedDodecahedron_14.gif"

Out[1078]=

"TriaugmentedDodecahedron_15.gif"

In[1079]:=

"TriaugmentedDodecahedron_16.gif"

Out[1079]=

"TriaugmentedDodecahedron_17.gif"

In[1080]:=

"TriaugmentedDodecahedron_18.gif"

Out[1080]//InputForm=

Graphics3D[GraphicsComplex[{{-Sqrt[(7 - 3*Sqrt[5])/30]/6, 0, -Sqrt[(7 - 3*Sqrt[5])/6]/12 +
     Root[9 - 36*#1^2 + 16*#1^4 & , 4, 0]}, {-Sqrt[(7 - 3*Sqrt[5])/30]/6, 0,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[9 - 36*#1^2 + 16*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0], (-3 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0], (3 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0], (1 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0], (1 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 216*#1^2 + 144*#1^4 & , 1, 0], -1/2,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 216*#1^2 + 144*#1^4 & , 1, 0], 1/2,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 216*#1^2 + 144*#1^4 & , 4, 0], -1/2,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 216*#1^2 + 144*#1^4 & , 4, 0], 1/2,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 9*#1^2 + 9*#1^4 & , 1, 0], 0,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0], (1 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 9*#1^2 + 9*#1^4 & , 4, 0], 0,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0], (1 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[121 - 345*#1^2 + 225*#1^4 & , 1, 0], 0,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[121 - 6180*#1^2 + 3600*#1^4 & , 4, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 2, 0], (-3 - Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[1 - 36*#1^2 + 144*#1^4 & , 2, 0], (3 + Sqrt[5])/4,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[121 - 2520*#1^2 + 3600*#1^4 & , 4, 0], (5 + 4*Sqrt[5])/10,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[121 - 1620*#1^2 + 3600*#1^4 & , 2, 0]},
   {-Sqrt[(7 - 3*Sqrt[5])/30]/6 + Root[121 - 2520*#1^2 + 3600*#1^4 & , 4, 0], (-5 - 4*Sqrt[5])/10,
    -Sqrt[(7 - 3*Sqrt[5])/6]/12 + Root[121 - 1620*#1^2 + 3600*#1^4 & , 2, 0]}},
  Polygon[{{2, 6, 12, 11, 5}, {11, 12, 8, 16, 7}, {6, 2, 13, 18, 21}, {2, 5, 20, 17, 13},
    {4, 21, 18, 10, 15}, {18, 13, 17, 9, 10}, {17, 20, 3, 14, 9}, {3, 7, 16, 1, 14}, {16, 8, 4, 15, 1},
    {19, 15, 10}, {19, 10, 9}, {19, 9, 14}, {19, 14, 1}, {19, 1, 15}, {23, 5, 11}, {23, 11, 7}, {23, 7, 3},
    {23, 3, 20}, {23, 20, 5}, {22, 12, 6}, {22, 6, 21}, {22, 21, 4}, {22, 4, 8}, {22, 8, 12}}]]]

In[1081]:=

"TriaugmentedDodecahedron_19.gif"

Out[1081]=

"TriaugmentedDodecahedron_20.gif"

In[1082]:=

"TriaugmentedDodecahedron_21.gif"

Out[1082]=

"TriaugmentedDodecahedron_22.gif"

In[1083]:=

"TriaugmentedDodecahedron_23.gif"

Out[1083]=

"TriaugmentedDodecahedron_24.gif"

Johnson Polyhedra

Geometry