Hellenica World

Tridiminished icosahedron

In[1120]:=

"TridiminishedIcosahedron_2.gif"

Out[1120]=

"TridiminishedIcosahedron_3.gif"

In[1121]:=

"TridiminishedIcosahedron_4.gif"

Out[1121]=

"TridiminishedIcosahedron_5.gif"

In[1122]:=

"TridiminishedIcosahedron_6.gif"

Out[1122]=

"TridiminishedIcosahedron_7.gif"

In[1123]:=

"TridiminishedIcosahedron_8.gif"

Out[1123]=

"TridiminishedIcosahedron_9.gif"

In[1124]:=

"TridiminishedIcosahedron_10.gif"

Out[1124]=

"TridiminishedIcosahedron_11.gif"

In[1125]:=

"TridiminishedIcosahedron_12.gif"

Out[1125]=

"TridiminishedIcosahedron_13.gif"

In[1126]:=

"TridiminishedIcosahedron_14.gif"

Out[1126]=

"TridiminishedIcosahedron_15.gif"

In[1127]:=

"TridiminishedIcosahedron_16.gif"

Out[1127]=

"TridiminishedIcosahedron_17.gif"

In[1128]:=

"TridiminishedIcosahedron_18.gif"

Out[1128]//InputForm=

Graphics3D[GraphicsComplex[{{-(1/Sqrt[3]), 0, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 1, 0]}, {-1/(2*Sqrt[3]), -1/2, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 4, 0]}, {-1/(2*Sqrt[3]), 1/2, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 4, 0]}, {1/(2*Sqrt[3]), -1/2, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 1, 0]}, {1/(2*Sqrt[3]), 1/2, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 1, 0]}, {1/Sqrt[3], 0, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 84*#1^2 + 144*#1^4 & , 4, 0]}, {Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0], (-1 - Sqrt[5])/4,
    -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 + Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0]},
   {Root[1 - 36*#1^2 + 144*#1^4 & , 4, 0], (1 + Sqrt[5])/4, -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 +
     Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0]}, {Root[1 - 9*#1^2 + 9*#1^4 & , 1, 0], 0,
    -Sqrt[(3*(7 - 3*Sqrt[5]))/10]/4 + Root[1 - 36*#1^2 + 144*#1^4 & , 3, 0]}},
  Polygon[{{9, 2, 3}, {1, 5, 4}, {3, 2, 6}, {3, 6, 8}, {2, 7, 6}, {2, 9, 1, 4, 7}, {5, 1, 9, 3, 8},
    {8, 6, 7, 4, 5}}]]]

In[1129]:=

"TridiminishedIcosahedron_19.gif"

Out[1129]=

"TridiminishedIcosahedron_20.gif"

In[1130]:=

"TridiminishedIcosahedron_21.gif"

Out[1130]=

"TridiminishedIcosahedron_22.gif"

In[1131]:=

"TridiminishedIcosahedron_23.gif"

Out[1131]=

"TridiminishedIcosahedron_24.gif"

Johnson Polyhedra

Geometry