In[1]:=

Out[1]=

In[2]:=

Out[2]=

In[3]:=

Out[3]=

In[4]:=

Out[4]=

In[5]:=

Out[5]=

In[6]:=

Out[6]=

In[7]:=

Out[7]=

In[8]:=

Out[8]=

In[9]:=

Out[9]//InputForm=

Graphics3D[GraphicsComplex[{{-Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 0, -Sqrt[(23 - 3*Sqrt[5])/6]/44 +
     Root[9 - 36*#1^2 + 16*#1^4 & , 4, 0]}, {-Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 0,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[9 - 36*#1^2 + 16*#1^4 & , 1, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-3 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (3 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (1 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (1 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 216*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], -1/2,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 216*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 1/2,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 216*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], -1/2,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[1 - 216*#1^2 + 144*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 1/2,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[1 - 9*#1^2 + 9*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 0,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (1 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[1 - 9*#1^2 + 9*#1^4 & , 4, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 0,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[25 - 180*#1^2 + 144*#1^4 & , 4, 0]},
   {Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[25 - 180*#1^2 + 144*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (1 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[121 - 345*#1^2 + 225*#1^4 & , 1, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], 0,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[121 - 6180*#1^2 + 3600*#1^4 & , 4, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 2, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (-3 - Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 2, 0] - Root[1 - 1236*#1^2 + 17424*#1^4 & , 2, 0], (3 + Sqrt[5])/4,
    -Sqrt[(23 - 3*Sqrt[5])/6]/44 + Root[1 - 36*#1^2 + 144*#1^4 & , 1, 0]}},
  Polygon[{{2, 6, 12, 11, 5}, {5, 11, 7, 3, 20}, {11, 12, 8, 16, 7}, {12, 6, 21, 4, 8}, {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}}]]]

In[10]:=

Out[10]=

In[11]:=

Out[11]=

In[12]:=

Out[12]=

Johnson Polyhedra

Geometry