In[1048]:=

Out[1048]=

In[1049]:=

Out[1049]=

In[1050]:=

Out[1050]=

In[1051]:=

Out[1051]=

In[1052]:=

Out[1052]=

In[1053]:=

Out[1053]=

In[1054]:=

Out[1054]=

In[1055]:=

Out[1055]=

In[1056]:=

Out[1056]//InputForm=

Graphics3D[GraphicsComplex[{{-0.9601329154398749, 0.715228827607169, -0.038940340478218406},
   {-0.8187282992850485, 0.16130517672676778, -0.8594117437126204}, {-0.7611144360244372, 0.3324336895940013,
    0.8632012931717644}, {-0.5479424211554954, 1.1239249279664272, -0.8532292904049141},
   {-0.47830520371478974, -0.7754136121667969, -0.7777415132970539},
   {-0.4206913404541757, -0.604285099299567, 0.9448715235873327}, {-0.27928672429935203, -1.158208750179968,
    0.12440012035291889}, {-0.18156919050129358, 1.336062427757598, 0.05273390417913578},
   {-0.026905148726201384, 0.12175399793315325, 1.508608753592473}, {0.01744934059955831, 0.9532667741322984,
    0.9548758259169691}, {0.04722853458733749, 0.43979375739903803, -1.2748180091772525},
   {0.34329703413956375, -1.3284373060931192, -0.6394137983994109}, {0.3876519127990416, -0.4969254544690647,
    -1.1931480832747694}, {0.568266260917956, -0.5623777208013869, 1.087021565146125},
   {0.6400338013331498, 0.7830391754875077, 0.19106203932993235}, {0.7096707041513745, -1.116301423393658,
    0.2665495971587358}, {0.7814386781557835, 0.22911425565242435, -0.6294107944859267},
   {0.9804569718616517, -0.15368159140503465, 0.27273270035205593}},
  Polygon[{{12, 13, 17, 18, 16}, {13, 12, 5}, {12, 7, 5}, {7, 12, 16}, {7, 16, 14, 6}, {14, 16, 18},
    {9, 14, 18, 15, 10}, {6, 14, 9}, {3, 6, 9}, {3, 9, 10}, {8, 10, 15}, {3, 10, 8, 1}, {17, 15, 18},
    {17, 11, 4, 8, 15}, {4, 1, 8}, {4, 2, 1}, {2, 4, 11}, {13, 5, 2, 11}, {13, 11, 17}, {2, 5, 7, 6, 3, 1}}]]]

In[1057]:=

Out[1057]=

In[1058]:=

Out[1058]=

In[1059]:=

Out[1059]=

Johnson Polyhedra

Geometry