In[1096]:=
Out[1096]=
In[1097]:=
Out[1097]=
In[1098]:=
Out[1098]=
In[1099]:=
Out[1099]=
In[1100]:=
Out[1100]=
In[1101]:=
Out[1101]=
In[1102]:=
Out[1102]=
In[1103]:=
Out[1103]=
In[1104]:=
Out[1104]//InputForm=
Graphics3D[GraphicsComplex[{{-1/(2*Sqrt[3]), -1/2, -1/2}, {-1/(2*Sqrt[3]), -1/2, 1/2},
{-1/(2*Sqrt[3]), 1/2, -1/2}, {-1/(2*Sqrt[3]), 1/2, 1/2}, {1/Sqrt[3], 0, -1/2}, {1/Sqrt[3], 0, 1/2},
{Root[25 - 168*#1^2 + 144*#1^4 & , 1, 0], 0, 0}, {Root[25 - 672*#1^2 + 2304*#1^4 & , 4, 0],
(-1 - Sqrt[6])/4, 0}, {Root[25 - 672*#1^2 + 2304*#1^4 & , 4, 0], (1 + Sqrt[6])/4, 0}},
Polygon[{{1, 3, 5}, {6, 4, 2}, {9, 5, 3}, {9, 3, 4}, {9, 4, 6}, {9, 6, 5}, {7, 3, 1}, {7, 1, 2}, {7, 2, 4},
{7, 4, 3}, {8, 1, 5}, {8, 5, 6}, {8, 6, 2}, {8, 2, 1}}]]]
In[1105]:=
Out[1105]=
In[1106]:=
Out[1106]=
In[1107]:=
Out[1107]=
Johnson Polyhedra
Geometry
