In[157]:=
!["TruncatedIcosahedron_3.gif"](HTMLFiles/TruncatedIcosahedron_3.gif)
Out[157]=
!["TruncatedIcosahedron_4.gif"](HTMLFiles/TruncatedIcosahedron_4.gif)
In[158]:=
!["TruncatedIcosahedron_5.gif"](HTMLFiles/TruncatedIcosahedron_5.gif)
Out[158]=
!["TruncatedIcosahedron_6.gif"](HTMLFiles/TruncatedIcosahedron_6.gif)
In[159]:=
!["TruncatedIcosahedron_7.gif"](HTMLFiles/TruncatedIcosahedron_7.gif)
Out[159]=
!["TruncatedIcosahedron_8.gif"](HTMLFiles/TruncatedIcosahedron_8.gif)
In[160]:=
!["TruncatedIcosahedron_9.gif"](HTMLFiles/TruncatedIcosahedron_9.gif)
Out[160]=
!["TruncatedIcosahedron_10.gif"](HTMLFiles/TruncatedIcosahedron_10.gif)
In[161]:=
!["TruncatedIcosahedron_11.gif"](HTMLFiles/TruncatedIcosahedron_11.gif)
Out[161]=
!["TruncatedIcosahedron_12.gif"](HTMLFiles/TruncatedIcosahedron_12.gif)
In[162]:=
!["TruncatedIcosahedron_13.gif"](HTMLFiles/TruncatedIcosahedron_13.gif)
Out[162]=
In[163]:=
!["TruncatedIcosahedron_15.gif"](HTMLFiles/TruncatedIcosahedron_15.gif)
Out[163]=
!["TruncatedIcosahedron_16.gif"](HTMLFiles/TruncatedIcosahedron_16.gif)
In[164]:=
!["TruncatedIcosahedron_17.gif"](HTMLFiles/TruncatedIcosahedron_17.gif)
Out[164]=
!["TruncatedIcosahedron_18.gif"](HTMLFiles/TruncatedIcosahedron_18.gif)
In[165]:=
!["TruncatedIcosahedron_19.gif"](HTMLFiles/TruncatedIcosahedron_19.gif)
Out[165]//InputForm=
Graphics3D[GraphicsComplex[{{-Sqrt[1 - 2/Sqrt[5]]/2, -1 - Sqrt[5]/2, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{-Sqrt[1 - 2/Sqrt[5]]/2, (2 + Sqrt[5])/2, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{Sqrt[1 - 2/Sqrt[5]]/2, -1 - Sqrt[5]/2, (-3*Sqrt[(5 + Sqrt[5])/10])/2},
{Sqrt[1 - 2/Sqrt[5]]/2, (2 + Sqrt[5])/2, (-3*Sqrt[(5 + Sqrt[5])/10])/2},
{-Sqrt[2 - 2/Sqrt[5]]/4, (1 - Sqrt[5])^(-1), -Sqrt[25/8 + 41/(8*Sqrt[5])]},
{-Sqrt[2 - 2/Sqrt[5]]/4, (-3*(1 + Sqrt[5]))/4, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{-Sqrt[2 - 2/Sqrt[5]]/4, (1 + Sqrt[5])/4, -Sqrt[25/8 + 41/(8*Sqrt[5])]},
{-Sqrt[2 - 2/Sqrt[5]]/4, (3*(1 + Sqrt[5]))/4, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[2 - 2/Sqrt[5]]/4, (1 - Sqrt[5])^(-1), Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Sqrt[2 - 2/Sqrt[5]]/4, (-3*(1 + Sqrt[5]))/4, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Sqrt[2 - 2/Sqrt[5]]/4, (1 + Sqrt[5])/4, Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Sqrt[2 - 2/Sqrt[5]]/4, (3*(1 + Sqrt[5]))/4, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Sqrt[1/4 + 1/(2*Sqrt[5])], -1/2, -Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Sqrt[1/4 + 1/(2*Sqrt[5])], 1/2, -Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Sqrt[5/4 + 1/(2*Sqrt[5])], -1 - Sqrt[5]/2, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Sqrt[5/4 + 1/(2*Sqrt[5])], (2 + Sqrt[5])/2, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{(-3*Sqrt[1 + 2/Sqrt[5]])/2, -1/2, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{(-3*Sqrt[1 + 2/Sqrt[5]])/2, 1/2, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{-Sqrt[1 + 2/Sqrt[5]], -1, Sqrt[26 + 58/Sqrt[5]]/4}, {-Sqrt[1 + 2/Sqrt[5]], 1,
Sqrt[26 + 58/Sqrt[5]]/4}, {-Sqrt[1 + 2/Sqrt[5]], -2/(-1 + Sqrt[5]),
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {-Sqrt[1 + 2/Sqrt[5]], (1 + Sqrt[5])/2,
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {-Sqrt[1 + 2/Sqrt[5]]/2, -1/2, Sqrt[25/8 + 41/(8*Sqrt[5])]},
{-Sqrt[1 + 2/Sqrt[5]]/2, 1/2, Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Sqrt[1 + 2/Sqrt[5]], -1, Root[1 - 260*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[1 + 2/Sqrt[5]], 1, Root[1 - 260*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[1 + 2/Sqrt[5]], -2/(-1 + Sqrt[5]), Sqrt[9/8 + 9/(8*Sqrt[5])]},
{Sqrt[1 + 2/Sqrt[5]], (1 + Sqrt[5])/2, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{-Sqrt[2 + 2/Sqrt[5]], 0, Root[1 - 260*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[2 + 2/Sqrt[5]], 0, Sqrt[26 + 58/Sqrt[5]]/4}, {-Sqrt[5 + 2/Sqrt[5]]/2, -1 - Sqrt[5]/2,
Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]}, {-Sqrt[5 + 2/Sqrt[5]]/2, (2 + Sqrt[5])/2,
Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]}, {-Sqrt[17/8 + 31/(8*Sqrt[5])], (1 - Sqrt[5])^(-1),
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {-Sqrt[17/8 + 31/(8*Sqrt[5])], (1 + Sqrt[5])/4,
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {Sqrt[9/4 + 9/(2*Sqrt[5])], -1/2,
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {Sqrt[9/4 + 9/(2*Sqrt[5])], 1/2,
(-3*Sqrt[(5 + Sqrt[5])/10])/2}, {Sqrt[5/2 + 11/(2*Sqrt[5])], -1,
Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]}, {Sqrt[5/2 + 11/(2*Sqrt[5])], 1,
Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]}, {Sqrt[13/4 + 11/(2*Sqrt[5])], -1/2,
Sqrt[1/8 + 1/(8*Sqrt[5])]}, {Sqrt[13/4 + 11/(2*Sqrt[5])], 1/2, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{-Sqrt[10 + 22/Sqrt[5]]/4, (-5 - Sqrt[5])/4, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{-Sqrt[10 + 22/Sqrt[5]]/4, (5 + Sqrt[5])/4, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{Sqrt[10 + 22/Sqrt[5]]/4, (-5 - Sqrt[5])/4, (-3*Sqrt[(5 + Sqrt[5])/10])/2},
{Sqrt[10 + 22/Sqrt[5]]/4, (5 + Sqrt[5])/4, (-3*Sqrt[(5 + Sqrt[5])/10])/2},
{-Sqrt[13 + 22/Sqrt[5]]/2, -1/2, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{-Sqrt[13 + 22/Sqrt[5]]/2, 1/2, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{-Sqrt[26 + 38/Sqrt[5]]/4, (-5 - Sqrt[5])/4, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{-Sqrt[26 + 38/Sqrt[5]]/4, (5 + Sqrt[5])/4, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Sqrt[26 + 38/Sqrt[5]]/4, (-5 - Sqrt[5])/4, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[26 + 38/Sqrt[5]]/4, (5 + Sqrt[5])/4, Root[1 - 20*#1^2 + 80*#1^4 & , 1, 0]},
{Sqrt[34 + 62/Sqrt[5]]/4, (1 - Sqrt[5])^(-1), Sqrt[9/8 + 9/(8*Sqrt[5])]},
{Sqrt[34 + 62/Sqrt[5]]/4, (1 + Sqrt[5])/4, Sqrt[9/8 + 9/(8*Sqrt[5])]},
{Sqrt[(5 + Sqrt[5])/10], 0, Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Root[1 - 25*#1^2 + 5*#1^4 & , 1, 0], -1, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Root[1 - 25*#1^2 + 5*#1^4 & , 1, 0], 1, Sqrt[1/8 + 1/(8*Sqrt[5])]},
{Root[1 - 5*#1^2 + 5*#1^4 & , 1, 0], 0, -Sqrt[25/8 + 41/(8*Sqrt[5])]},
{Root[1 - 5*#1^2 + 5*#1^4 & , 2, 0], -2/(-1 + Sqrt[5]), Root[1 - 260*#1^2 + 80*#1^4 & , 1,
0]}, {Root[1 - 5*#1^2 + 5*#1^4 & , 2, 0], (1 + Sqrt[5])/2,
Root[1 - 260*#1^2 + 80*#1^4 & , 1, 0]}, {Root[1 - 5*#1^2 + 5*#1^4 & , 3, 0],
-2/(-1 + Sqrt[5]), Sqrt[26 + 58/Sqrt[5]]/4}, {Root[1 - 5*#1^2 + 5*#1^4 & , 3, 0],
(1 + Sqrt[5])/2, Sqrt[26 + 58/Sqrt[5]]/4}},
Polygon[{{53, 11, 24, 23, 9}, {51, 39, 40, 52, 30}, {60, 28, 16, 12, 2}, {20, 42, 48, 55, 18},
{19, 17, 54, 47, 41}, {1, 10, 15, 27, 59}, {36, 26, 44, 50, 38}, {4, 58, 22, 32, 8},
{34, 29, 33, 45, 46}, {21, 57, 3, 6, 31}, {37, 49, 43, 25, 35}, {13, 5, 56, 7, 14},
{9, 59, 27, 51, 30, 53}, {53, 30, 52, 28, 60, 11}, {11, 60, 2, 42, 20, 24},
{24, 20, 18, 17, 19, 23}, {23, 19, 41, 1, 59, 9}, {13, 25, 43, 3, 57, 5},
{5, 57, 21, 33, 29, 56}, {56, 29, 34, 22, 58, 7}, {7, 58, 4, 44, 26, 14},
{14, 26, 36, 35, 25, 13}, {40, 38, 50, 16, 28, 52}, {16, 50, 44, 4, 8, 12},
{12, 8, 32, 48, 42, 2}, {48, 32, 22, 34, 46, 55}, {55, 46, 45, 54, 17, 18},
{54, 45, 33, 21, 31, 47}, {47, 31, 6, 10, 1, 41}, {10, 6, 3, 43, 49, 15},
{15, 49, 37, 39, 51, 27}, {39, 37, 35, 36, 38, 40}}]]]
In[166]:=
!["TruncatedIcosahedron_20.gif"](HTMLFiles/TruncatedIcosahedron_20.gif)
Out[166]=
!["TruncatedIcosahedron_21.gif"](HTMLFiles/TruncatedIcosahedron_21.gif)
In[167]:=
!["TruncatedIcosahedron_22.gif"](HTMLFiles/TruncatedIcosahedron_22.gif)
Out[167]=
!["TruncatedIcosahedron_23.gif"](HTMLFiles/TruncatedIcosahedron_23.gif)
In[168]:=
!["TruncatedIcosahedron_24.gif"](HTMLFiles/TruncatedIcosahedron_24.gif)
Out[168]=
!["TruncatedIcosahedron_25.gif"](HTMLFiles/TruncatedIcosahedron_25.gif)
In[169]:=
!["TruncatedIcosahedron_26.gif"](HTMLFiles/TruncatedIcosahedron_26.gif)
Out[169]=
!["TruncatedIcosahedron_27.gif"](HTMLFiles/TruncatedIcosahedron_27.gif)
Archimedean Solid
Geometry