In[746]:=
Out[746]=
In[747]:=
Out[747]=
In[748]:=
Out[748]=
In[749]:=
Out[749]=
In[750]:=
Out[750]=
In[751]:=
Out[751]=
In[752]:=
Out[752]=
In[753]:=
Out[753]=
In[754]:=
Out[754]//InputForm=
Graphics3D[GraphicsComplex[{{-2.1571324327317396, -0.11470481229472682, 0.5654118030497493},
{-2.1264149152248737, 0.6802890949978341, -0.040427384759960355}, {-2.10096334300349, -0.7212451729757291,
-0.2276542876539607}, {-2.070245825496625, 0.07374873431683185, -0.8334934754636685},
{-1.8455157954718133, -1.058150869770507, 0.678569250954079}, {-1.765096290588828, 1.0231702003704872,
-0.9075383344483667}, {-1.7130921009758155, 0.13516422658041308, 1.4258731021130495},
{-1.6633901135997007, 1.421491389428843, 0.44560470452030976}, {-1.566039514950117, -1.4527790532310703,
-0.6504008786742645}, {-1.5163375275739879, -0.16645189038262628, -1.6306692762670052},
{-1.4079425660680245, 1.0845856926340596, 1.3518282431283495}, {-1.40147546371589, -0.8082818308953691,
1.539030550017382}, {-1.310591967418439, -1.7896847500258501, 0.2558226599337743},
{-1.3020714889636336, 1.7643724948015067, -0.4215062451681002}, {-1.2111879926661826, 0.782969575671029,
-1.7047141352517061}, {-1.2047208903140623, -1.1098979478584101, -1.5175118283626718},
{-0.9384506620907024, -0.06707953646434603, 2.0250626392976536}, {-0.8872932032342492, 1.8263530825782834,
0.9290926517758595}, {-0.7566836694958031, -2.0298853747253083, -0.5413531408695615},
{-0.6762641646128073, 0.05143569541569129, -2.127460726272011}, {-0.6333011271828971, 0.8823419295893092,
1.9510177803129503}, {-0.592119618261577, -1.3853881523896088, 1.6480782878220859},
{-0.5359505285333276, -1.9919285130706093, 0.8550121971183768}, {-0.5259745785981936, 2.169234187950947,
0.061981702087450435}, {-0.4619981260024521, 1.982260080599826, -0.9182976951731041},
{-0.4058290362742009, 1.3757197199188256, -1.7113637858768114}, {-0.3953650448597476, -1.6870042693526481,
-1.4084640905579688}, {-0.3646475273528808, -0.8920103620600891, -2.0143032783676795},
{-0.12909481663638783, -0.6441858579585859, 2.1341103771023575},
{-0.11265176434913443, 1.6241093195335208, 1.528282188960462}, {0.017957769389309878, -2.2321291377700674,
0.05783639631504009}, {0.1290947917791752, 0.6441858396634877, -2.1341103768971164},
{0.36464750249566286, 0.8920103437649839, 2.0143032785729136}, {0.40582901141698474, -1.3757197382139288,
1.711363786082053}, {0.46199810114523504, -1.9822600988949293, 0.9182976953783448},
{0.47197405108036766, 2.178902602126627, 0.12526720034741753}, {0.5359506006767795, 1.9919286147700697,
-0.8550122818154267}, {0.5921196533540715, 1.3853882082552258, -1.6480783400893453},
{0.6025835848188142, -1.6773358551769681, -1.3451785922980035}, {0.6333011023256819, -0.8823419478844091,
-1.9510177801077122}, {0.6762641397555916, -0.05143571371078934, 2.127460726477248},
{0.7274215986120439, 1.8419969053318472, 1.03149073895546}, {0.8580311323504927, -2.0142415519717463,
-0.4389550536899629}, {0.9384506372334885, 0.06707951816925864, -2.0250626390924116},
{1.2047208654568429, 1.109897929563307, 1.5175118285679117}, {1.2111879678089663, -0.7829695939661271,
1.7047141354569468}, {1.3020714641064155, -1.7643725130966081, 0.42150624537334},
{1.3105920025109332, 1.789684805891469, -0.2558227122010337}, {1.4014754388586763, 0.8082818126002763,
-1.5390305498121395}, {1.470056393851096, -1.3974350671283946, -0.9339043839656089},
{1.5007739113579632, -0.6024411598358373, -1.5397435717753185}, {1.5163375919013953, 0.16645190769078902,
1.63066932771338}, {1.566039490092898, 1.4527790349359706, 0.6504008788795079},
{1.765096265731603, -1.0231702186655833, 0.9075383346536119}, {1.8455157706145984, 1.0581508514754092,
-0.6785692507488357}, {1.9140967256070185, -1.1475660282532583, -0.07344308490230692},
{1.9637987129831485, 0.13876113459518394, -1.0537114824950466}, {2.0702459449431627, -0.07374869500464029,
0.8334935585788121}, {2.1009634073309003, 0.7212451902838882, 0.2276543391003398},
{2.219246260514826, -0.19814456219959417, -0.14748794388700606}},
Polygon[{{20, 15, 26, 32}, {32, 26, 38}, {26, 25, 37, 38}, {15, 6, 14, 25, 26}, {14, 24, 25},
{25, 24, 36, 37}, {8, 18, 24, 14}, {8, 11, 18}, {11, 21, 30, 18}, {18, 30, 42, 36, 24}, {21, 33, 30},
{30, 33, 45, 42}, {32, 38, 49, 44}, {49, 55, 57}, {55, 59, 60, 57}, {38, 37, 48, 55, 49}, {59, 58, 60},
{60, 58, 54, 56}, {48, 53, 59, 55}, {37, 36, 48}, {36, 42, 53, 48}, {53, 45, 52, 58, 59}, {42, 45, 53},
{45, 33, 41, 52}, {49, 57, 51, 44}, {44, 51, 40}, {51, 50, 39, 40}, {57, 60, 56, 50, 51}, {50, 43, 39},
{43, 47, 35, 31}, {56, 47, 43, 50}, {56, 54, 47}, {58, 52, 46, 54}, {54, 46, 34, 35, 47}, {52, 41, 46},
{46, 41, 29, 34}, {40, 39, 27, 28}, {28, 27, 16}, {27, 19, 9, 16}, {39, 43, 31, 19, 27}, {19, 13, 9},
{9, 13, 5, 3}, {31, 23, 13, 19}, {31, 35, 23}, {35, 34, 22, 23}, {23, 22, 12, 5, 13}, {34, 29, 22},
{22, 29, 17, 12}, {28, 16, 10, 20}, {20, 10, 15}, {10, 4, 6, 15}, {16, 9, 3, 4, 10}, {4, 2, 6},
{6, 2, 8, 14}, {3, 1, 2, 4}, {3, 5, 1}, {5, 12, 7, 1}, {1, 7, 11, 8, 2}, {12, 17, 7}, {7, 17, 21, 11},
{20, 32, 44, 40, 28}, {17, 29, 41, 33, 21}}]]]
In[755]:=
Out[755]=
In[756]:=
Out[756]=
In[757]:=
Out[757]=
Johnson Polyhedra
Geometry