In[506]:=

Out[506]=

In[507]:=

Out[507]=

In[508]:=

Out[508]=

In[509]:=

Out[509]=

In[510]:=

Out[510]=

In[511]:=

Out[511]=

In[512]:=

Out[512]=

In[513]:=

Out[513]=

In[514]:=

Out[514]//InputForm=

Graphics3D[GraphicsComplex[{{-2.18072699247918, 0.4768386675164633, -0.05588094033755608},
   {-2.1054113561728713, -0.3004869866616042, -0.6804547008209904}, {-2.049318264724184, 0.13843340009667762,
    0.8758988733804477}, {-1.9274550052962511, -1.1193059286906815, -0.13468269956308332},
   {-1.8927875682469062, -0.8480382113188147, 0.8271967078057857}, {-1.8018616751604033, 1.0785279208250849,
    -0.759038898257297}, {-1.7671942381110601, 1.3497956381969543, 0.20284050911157558},
   {-1.7265460388540945, 0.3012022666470182, -1.3836126587407294}, {-1.635785510356064, 1.0113903707771694,
    1.1346203228295795}, {-1.5700153423768186, -0.6852693447684741, -1.4323148243153896},
   {-1.4578291594794437, 0.19257142874809133, 1.6803923240874865}, {-1.3920589915001984, -1.5040882867975514,
    -0.8865428230574844}, {-1.301298463002166, -0.7939001826674028, 1.6316901585128254},
   {-1.2606502637452022, -1.8424935542173388, 0.04523699066052112},
   {-1.2259828266958572, -1.5712258368454721, 1.0071163980293902}, {-1.0574359868251126, 1.7136763159241974,
    -0.9649925599133985}, {-1.0227685497757695, 1.9849440332960642, -0.0031131525445277012},
   {-0.9355727273971833, 0.4559369871368366, -1.9755741328569294}, {-0.8101447618498238, 1.4373928086388545,
    1.5045382560822422}, {-0.7790420309199039, -0.5305346242786557, -2.0242762984315914},
   {-0.6321884109731893, 0.6185738666097729, 2.050310257340151}, {-0.5220399730290598, 1.3288939578173293,
    -1.7168526834077977}, {-0.49110260668762823, -1.8554115031139373, -1.1411986502882443},
   {-0.4312794445310452, 2.0390820619474788, 0.8013802981625039}, {-0.37891642379025686, -0.9775707295973719,
    1.9715084981146265}, {-0.35969387893263466, -2.1938167705337213, -0.20941883657024063},
   {-0.3036007874839454, -1.7548963837754377, 1.3469347376311975}, {-0.23179523831886634, 2.1396787537858843,
    -0.5950746266607295}, {-0.11223728936885319, -1.253722249805313, -1.8443566082079852},
   {-0.03461634258461504, 0.10461377082045244, -2.230229960087693}, {0.0346163305778578, -0.1046137589168845,
    2.230229947563751}, {0.16776714995778846, 1.646341070640668, 1.499160844880953},
   {0.23179522631210908, -2.1396787418823076, 0.5950746141367963}, {0.3036007754771944, 1.75489639567901,
    -1.3469347501551288}, {0.3457235008344069, 0.8275221286115864, 2.0449328461388565},
   {0.35969386692588007, 2.193816782437292, 0.20941882404630563}, {0.3789164117835067, 0.9775707415009407,
    -1.9715085106385613}, {0.43127943252427997, -2.039082050043903, -0.8013803106864424},
   {0.5220400322613609, -1.328894003417406, 1.7168527510417433}, {0.6321883989664357, -0.6185738547062032,
    -2.0503102698640885}, {0.8101447498430568, -1.4373927967352822, -1.5045382686061797},
   {0.9355727153904262, -0.45593697523326693, 1.975574120332991}, {0.958740461414704, 1.8010757911304882,
    0.907199370764752}, {1.0227685377690219, -1.984944021392491, 0.0031131400205962685},
   {1.0574360900855724, -1.7136763970634883, 0.9649926770876428}, {1.2259828146891034, 1.5712258487490391,
    -1.0071164105533268}, {1.2466798856469743, 0.4761989122952075, 1.7902770189080965},
   {1.2606502517384475, 1.8424935661209076, -0.04523700318445611}, {1.3012984509954122, 0.7939001945709707,
    -1.6316901710367593}, {1.4578291474726925, -0.1925714168445216, -1.6803923366114195},
   {1.6255452029657538, 1.0778881656038317, 1.0871190609883565}, {1.6357854983493127, -1.0113903588735988,
    -1.1346203353535107}, {1.7265460268473416, -0.3012022547434485, 1.3836126462167964},
   {1.7671942261043054, -1.3497956262933846, -0.2028405216355088}, {1.8018617343927024, -1.0785279664251695,
    0.7590389658912441}, {1.8927875562401533, 0.8480382232223844, -0.8271967203297207},
   {1.9274549932894973, 1.119305940594253, 0.13468268703914832}, {2.049318252717431, -0.13843338819311143,
    -0.8758988859043809}, {2.1054113441661175, 0.3004869985651757, 0.6804546882970554},
   {2.1807269804724263, -0.4768386556128954, 0.05588092781362287}},
  Polygon[{{37, 34, 46, 49}, {49, 46, 56}, {46, 48, 57, 56}, {34, 28, 36, 48, 46}, {36, 43, 48},
    {48, 43, 51, 57}, {24, 32, 43, 36}, {24, 19, 32}, {19, 21, 35, 32}, {32, 35, 47, 51, 43}, {21, 31, 35},
    {35, 31, 42, 47}, {49, 56, 58, 50}, {50, 58, 52}, {58, 60, 54, 52}, {56, 57, 59, 60, 58}, {60, 55, 54},
    {54, 55, 45, 44}, {59, 53, 55, 60}, {57, 51, 59}, {51, 47, 53, 59}, {53, 42, 39, 45, 55}, {47, 42, 53},
    {42, 31, 25, 39}, {50, 52, 41, 40}, {40, 41, 29}, {41, 38, 23, 29}, {52, 54, 44, 38, 41}, {38, 26, 23},
    {23, 26, 14, 12}, {44, 33, 26, 38}, {44, 45, 33}, {45, 39, 27, 33}, {33, 27, 15, 14, 26}, {39, 25, 27},
    {27, 25, 13, 15}, {40, 29, 20, 30}, {30, 20, 18}, {20, 10, 8, 18}, {29, 23, 12, 10, 20}, {10, 2, 8},
    {8, 2, 1, 6}, {12, 4, 2, 10}, {12, 14, 4}, {14, 15, 5, 4}, {4, 5, 3, 1, 2}, {15, 13, 5}, {5, 13, 11, 3},
    {30, 18, 22, 37}, {37, 22, 34}, {22, 16, 28, 34}, {18, 8, 6, 16, 22}, {16, 17, 28}, {28, 17, 24, 36},
    {6, 7, 17, 16}, {6, 1, 7}, {1, 3, 9, 7}, {7, 9, 19, 24, 17}, {3, 11, 9}, {9, 11, 21, 19},
    {37, 49, 50, 40, 30}, {11, 13, 25, 31, 21}}]]]

In[515]:=

Out[515]=

In[516]:=

Out[516]=

In[517]:=

Out[517]=

Johnson Polyhedra

Geometry