(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 212568, 4670] NotebookOptionsPosition[ 207516, 4525] NotebookOutlinePosition[ 208052, 4546] CellTagsIndexPosition[ 208009, 4543] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "experimental", " ", "molecule", " ", "data", " ", "source"}], ",", " ", RowBox[{"ES", " ", "end", " ", "january", " ", "2013"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "Plot9", "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, 3.568284752749406*^9, 3.5682847957898817`*^9, {3.5682872948362713`*^9, 3.568287369232802*^9}, { 3.5683911898567343`*^9, 3.568391205612762*^9}, 3.5685665220166903`*^9, 3.568615530503583*^9, 3.568628204107724*^9, {3.568631404950552*^9, 3.568631407742957*^9}, 3.568632298254921*^9, 3.5686331643684425`*^9, 3.568633808321973*^9, 3.568633874232089*^9, 3.568633908302549*^9, 3.5686339746338654`*^9, {3.568634503895995*^9, 3.5686345041611958`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5686339746494656`*^9, 3.568633974665066*^9}, 3.568635228220867*^9, 3.5686355802354856`*^9, 3.5686372172243605`*^9, 3.568637420555118*^9, 3.56863758692941*^9, 3.568637674102363*^9, 3.56863825308178*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQtQlFUU3rAMzXzFIKOgoMZoikoSYIocHvLwBQu7PNZt2V32xe4CC7tA oqaOgTpqSI2p+RpRxjStphhTEz2ZmYOPzDKHUTJzSE3xkYYomv33ftyZ3Tv3 3/ufc77HORtmLs2y+qlUqrnKp5fy6XtxhyduqJfkvkdH5oF5U5q6tDyxbXTv pe1zuO7Yv2P0z100WayplXy0/+bJDQGhfLU64PPU/EJWvq9W9yumOBGgeS5f yVizvqSvhs6cVlayjT89MStmZaua498yHEp/qmb/vcE6S/d4Wuw87PsoKJIu PX7PefhhLCUa28+N3JTJp7bP2P+gQ8NpIsGPqTyi5pb6wFkL7X/w7Nd3B2nI JtZZE3W8emTSRmcY7fQomZfpqEwUsGQe9rxCajpZeWRbNfGh9H5+40bkkKy3 yEUhOsvUKxnjELfTya0FlRnDA4MQZ1QRNyjpn/kyWNBwMjqT5fNexJ1j9HXH Wj04jzPjfraDBG19Sx00U0mzPFzD3yt01f1jpyGtZx9ljxrPIs3wC1a6rWw1 l4yoT2XE8ykekvcbHPzVlru7TrjepAWC0DdsyHfBRILegA9cpBIrz827LydH nNlH8TL/KzaS+uR6oMNaL73ee+m6pFOxOGveoSwl7a0QH+IVG/mhQuPNvxJw tlbRIiFMpJYGL+OW7esS4IOWcu7Kvta4KSqZJE/HPCzrv1vNkv8UPetF4tMG nHOqWeo3bBr4uVbMPz1SAlzLo5iVCcZ2VSL8FJfHwGPnDSVKRl0q6lxtpz33 z88xD5wAnyW5Sai05ptoGisSBVmwn7SD9wcOErDUQfn8yUZlPbYAp9pBEYLI 2lj4bJUWfBp8dGehAvTJXJZxYsvgryFqlr6anwN+Dzj5h9Avyx0/R7GMF2YE zve9OL9gIfleTBJJ/g5WgJfPLNCpxE2ynptlNEUYsC4BeH830ZFtQye27ezB 31AJXn+zI06Ii2X+P4qBo96Eejw++GVFMUtehjlJ8hVsBa6scpa7XxX6r00P XxuM6JOtPvxudnCKAHojDfEbF5Hsx9WzSOp8PJykH2dUIf5tKxlE4/TKRR8H l4OHfjr4I7AS/s1fAj49FpbPD+XD/1sXs5RjwyTw093zfnIpePrTTDn9FaUG aIGbKih5lft6d0cuyT6Y9zb//UVunqc9Dvq+VIT+TffyjlEHny6/lwI+ZvXo 3+EgjW/0+uf+UfBjrRP5NttJNfJZZ0VTBvyz14R5drSE/lPaIDwymmUdqTPh jw8NwDPGyLOFcRvT4LcYG3dd7tNZ0DydZZ/7G6HbfBcLG7eMnUOjIxXHDQ0E brcG9/xMfG+XMgDrU1FnhI0EbTW/pJKg9bS/nXSJ02+0uifSdEHgvp75cNwM nsNtJNrn3J5MniYG64tG+KutiFrEnGyehjl8QYt6+pTRt2LeXU9EHU0l/HFn 74IN4+PZ66jvWDggidYK/BedvGVQY/N360Pgj5Ea4J7Q46fAQgoVAm/tg7gK 79L3rkLwaHRSrQASVgKf3ZnN0id6E2Uq439wth54i724l2+hKKFXnRW+GVsK Xr82YS4OK0M/33NjHnRZobfWAV7iPcifXkHCraEr1KjXv4CkXAYf8DosuPdy MOLXVJOQ9+4CNcl5nhKDeNoqUsT335topOvdu++fP5OBOrzlLMbG1Ney0Adu L/g4twh9O9ME3yXpUeeThSznZ350z/+Jh/8HggpxnQ== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], SphereBox[33, 24.], SphereBox[34, 24.], SphereBox[35, 24.], SphereBox[36, 24.], SphereBox[37, 24.], SphereBox[38, 24.], SphereBox[39, 24.], SphereBox[40, 24.], SphereBox[41, 24.], SphereBox[42, 24.], SphereBox[43, 24.], SphereBox[44, 24.], SphereBox[45, 24.], SphereBox[46, 24.], SphereBox[47, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.], SphereBox[22, 34.], SphereBox[23, 34.], SphereBox[24, 34.], SphereBox[25, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[3, 32.], SphereBox[4, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{57, 26}, 15.], CylinderBox[{58, 27}, 15.], CylinderBox[{59, 28}, 15.], CylinderBox[{60, 29}, 15.], CylinderBox[{61, 30}, 15.], CylinderBox[{62, 31}, 15.], CylinderBox[{63, 32}, 15.], CylinderBox[{64, 33}, 15.], CylinderBox[{65, 34}, 15.], CylinderBox[{66, 35}, 15.], CylinderBox[{67, 36}, 15.], CylinderBox[{68, 37}, 15.], CylinderBox[{69, 38}, 15.], CylinderBox[{70, 39}, 15.], CylinderBox[{71, 40}, 15.], CylinderBox[{72, 41}, 15.], CylinderBox[{73, 42}, 15.], CylinderBox[{74, 43}, 15.], CylinderBox[{75, 44}, 15.], CylinderBox[{76, 45}, 15.], CylinderBox[{77, 46}, 15.], CylinderBox[{78, 47}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{48, 14}, 15.], CylinderBox[{49, 22}, 15.], CylinderBox[{50, 19}, 15.], CylinderBox[{51, 7}, 15.], CylinderBox[{52, 13}, 15.], CylinderBox[{53, 16}, 15.], CylinderBox[{54, 6}, 15.], CylinderBox[{55, 17}, 15.], CylinderBox[{56, 19}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{5, 11}, 15.], CylinderBox[{5, 12}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 57}, 15.], CylinderBox[{7, 10}, 15.], CylinderBox[{7, 58}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 14}, 15.], CylinderBox[{8, 59}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 15}, 15.], CylinderBox[{9, 60}, 15.], CylinderBox[{10, 61}, 15.], CylinderBox[{10, 62}, 15.], CylinderBox[{11, 13}, 15.], CylinderBox[{11, 63}, 15.], CylinderBox[{11, 64}, 15.], CylinderBox[{12, 17}, 15.], CylinderBox[{12, 21}, 15.], CylinderBox[{13, 65}, 15.], CylinderBox[{13, 66}, 15.], CylinderBox[{14, 18}, 15.], CylinderBox[{14, 67}, 15.], CylinderBox[{15, 16}, 15.], CylinderBox[{15, 20}, 15.], CylinderBox[{16, 68}, 15.], CylinderBox[{16, 69}, 15.], CylinderBox[{17, 23}, 15.], CylinderBox[{18, 19}, 15.], CylinderBox[{18, 70}, 15.], CylinderBox[{18, 71}, 15.], CylinderBox[{20, 22}, 15.], CylinderBox[{20, 72}, 15.], CylinderBox[{21, 24}, 15.], CylinderBox[{21, 73}, 15.], CylinderBox[{22, 74}, 15.], CylinderBox[{22, 75}, 15.], CylinderBox[{23, 25}, 15.], CylinderBox[{23, 76}, 15.], CylinderBox[{24, 25}, 15.], CylinderBox[{24, 77}, 15.], CylinderBox[{25, 78}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{3, 51}, 15.], CylinderBox[{3, 52}, 15.], CylinderBox[{3, 53}, 15.], CylinderBox[{4, 54}, 15.], CylinderBox[{4, 55}, 15.], CylinderBox[{4, 56}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 48}, 15.], CylinderBox[{1, 49}, 15.], CylinderBox[{2, 50}, 15.]}}]}, Boxed->False, ImageSize->333.67071477644873`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5686382689158077`*^9, 3.5686385617907224`*^9, 3.56863884504042*^9, 3.568639134701729*^9, 3.5686393046328273`*^9, 3.568639400869396*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 3.5682782435438766`*^9}, 3.5682847420789876`*^9, 3.568284795821082*^9, { 3.568287382898426*^9, 3.5682873928356433`*^9}, 3.568566526821499*^9, 3.568615530503583*^9, {3.568623871740513*^9, 3.5686239073709755`*^9}, { 3.5686239374634285`*^9, 3.5686239652158775`*^9}, {3.5686240254007826`*^9, 3.5686240291135893`*^9}, {3.568624068550459*^9, 3.5686241298273664`*^9}, 3.5686241856286645`*^9, 3.568628204107724*^9, 3.568631432625001*^9, 3.568632298270521*^9, 3.5686331643684425`*^9, 3.568633808337573*^9, 3.5686338742476892`*^9, 3.568633908302549*^9, 3.568633974665066*^9, 3.5686352282364674`*^9, 3.5686355802510853`*^9, 3.5686372172399607`*^9, 3.568637420570718*^9, 3.56863758694501*^9, 3.568637674102363*^9, 3.56863825309738*^9}], Cell[BoxData[ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.568619649566018*^9, 3.5686197006249075`*^9}, { 3.5686315613096266`*^9, 3.5686315730408473`*^9}, {3.5686320251140413`*^9, 3.5686320443644753`*^9}, {3.5686322075563617`*^9, 3.568632211799569*^9}, { 3.5686345504152765`*^9, 3.5686345758901215`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, {3.567943087867528*^9, 3.567943093733138*^9}, 3.567943185211699*^9, 3.5679432253505697`*^9, 3.5679433277647495`*^9, { 3.5679434430645523`*^9, 3.5679434440941534`*^9}, {3.568278260766307*^9, 3.5682782624355097`*^9}, 3.568284752702606*^9, 3.568284795852282*^9, 3.568566526837099*^9, 3.568615530519183*^9, 3.5686282041233244`*^9, 3.568631432625001*^9, 3.568632298270521*^9, 3.5686331643840427`*^9, 3.5686338083531733`*^9, 3.5686338742632895`*^9, 3.568633908318149*^9, 3.5686339746962657`*^9, 3.5686352282364674`*^9, 3.5686355802510853`*^9, 3.5686372172399607`*^9, 3.568637420570718*^9, 3.56863758694501*^9, 3.5686376741179633`*^9, 3.56863825309738*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.568638268993808*^9, 3.5686385618219223`*^9, 3.56863884507162*^9, 3.5686391347329288`*^9, 3.568639304664027*^9, 3.568639400900596*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "u", "]"}]}]], "Input", CellChangeTimes->{{3.56863535501789*^9, 3.5686353642999067`*^9}, { 3.5686369830367494`*^9, 3.5686369891519604`*^9}, 3.568638056022234*^9}], Cell[BoxData["47"], "Output", CellChangeTimes->{3.568638269009408*^9, 3.5686385618375225`*^9, 3.56863884508722*^9, 3.5686391347485285`*^9, 3.568639304695227*^9, 3.568639400916196*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", " ", RowBox[{"bc", "=", RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", RowBox[{"bh", "=", RowBox[{"n", "-", "bc"}]}]}], "Input", CellChangeTimes->{{3.568632051805688*^9, 3.568632136077036*^9}, { 3.5686321665438895`*^9, 3.568632197509944*^9}, {3.5686324120883207`*^9, 3.5686324277039485`*^9}}], Cell[BoxData["25"], "Output", CellChangeTimes->{3.568638269025008*^9, 3.5686385618687224`*^9, 3.56863884510282*^9, 3.5686391347641287`*^9, 3.568639304710827*^9, 3.568639400931796*^9}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.568638269025008*^9, 3.5686385618687224`*^9, 3.56863884510282*^9, 3.5686391347641287`*^9, 3.568639304710827*^9, 3.5686394009473963`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]", RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2556", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.213", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2556", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.564", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.213", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178"}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5686154384478216`*^9, 3.568615482112298*^9}, { 3.5686157311667356`*^9, 3.568615736252344*^9}, {3.56861579063404*^9, 3.568615829727709*^9}, {3.56861597290476*^9, 3.568615973981162*^9}, { 3.56861739044805*^9, 3.5686174033960724`*^9}, {3.5686241445225925`*^9, 3.568624159108618*^9}, {3.568624862622655*^9, 3.568624863137456*^9}, { 3.5686270815141525`*^9, 3.5686273366682005`*^9}, {3.5686274562268105`*^9, 3.5686274982844844`*^9}, {3.5686278155110416`*^9, 3.568627853465908*^9}, 3.568628035393428*^9, {3.5686368697337503`*^9, 3.5686368703265514`*^9}, { 3.568636929247855*^9, 3.568636930339857*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.178`", ",", "0.178`", ",", "0.213`", ",", "0.213`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.568638269056208*^9, 3.5686385618999224`*^9, 3.56863884514962*^9, 3.568639134795329*^9, 3.5686393047420273`*^9, 3.5686394009785967`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.178`", ",", "0.178`", ",", "0.213`", ",", "0.213`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.2556`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`", ",", "0.564`"}], "}"}]], "Output", CellChangeTimes->{3.568638269056208*^9, 3.5686385618999224`*^9, 3.56863884514962*^9, 3.568639134795329*^9, 3.5686393047420273`*^9, 3.5686394009785967`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.568284795883482*^9, 3.568284795883482*^9}, 3.568566526837099*^9, 3.568615530519183*^9, 3.5686282041233244`*^9, 3.5686314326406007`*^9, 3.5686322982861214`*^9, 3.5686331643840427`*^9, 3.5686338083687735`*^9, 3.5686338742632895`*^9, 3.568633908318149*^9, 3.5686339747274656`*^9, 3.568635228252067*^9, 3.5686355802666855`*^9, 3.568637217255561*^9, 3.568637420586318*^9, 3.5686375869606104`*^9, 3.568637674133563*^9, 3.56863825311298*^9}], Cell[BoxData["\<\"C21H22N2O2\"\>"], "Output", CellChangeTimes->{3.568638269071808*^9, 3.568638561931123*^9, 3.5686388451652203`*^9, 3.5686391348265285`*^9, 3.568639304773227*^9, 3.5686394009941964`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.5"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, 3.568615628331355*^9, { 3.568628116965971*^9, 3.5686281181983733`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", RowBox[{"{", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.568120119762987*^9, 3.5681201279374013`*^9}, {3.5681212588145876`*^9, 3.5681212809978266`*^9}, 3.568121331261115*^9, {3.5682660696812944`*^9, 3.5682660793689113`*^9}, {3.5682661730782757`*^9, 3.5682661751998796`*^9}, 3.568266213092346*^9, {3.568266308392914*^9, 3.5682663102025166`*^9}, { 3.568266350887388*^9, 3.5682663517297897`*^9}, 3.568266419574309*^9, { 3.5683892670285573`*^9, 3.5683892701017623`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, 0.178]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, 0.213]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{-1.1618035448, 1.5148610533799998`, -3.366546869}, 0.213]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.34924546674, -1.3595066789199999`, 0.27384019466}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.32306755696, 0.47160002055999994`, -1.25523159824}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.58204081268, -0.8987536856, 3.1456378996}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.0042433956, 2.0788875726, 2.9247289302}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.25806098256, -4.0763279546, 0.113791740816}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.8006169312, -1.18890221564, -1.2256006945599998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.6052792378, -5.0948902686, 2.7470946862}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6777847412, 3.6938474122, -1.52315695052}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.5484844836000002`, -2.4192272252, 4.905161778199999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.7242720008, 0.34810642645999995`, -3.3512400884}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6962610568, 4.1657119944, -4.2849537049999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.61870534*^-6, 3.3329097462, -4.940877599599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.915409297799999, -0.46853866444, 2.2170265432}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.0824610761999995`, -2.4836668818, -0.67659749704}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.0743782536, 1.60205301102, 0.6645977369399999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.6812722464, 0.76365717386, -5.0676782142}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.1441521422, -2.137280106, -2.3279534593999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.28406361232, 4.272670486, 0.42928905541999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0383014628, 3.5957706328, 3.7722710412}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.8969069587999998`, 3.170960228, 3.6766509056}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.46347419875999996`, 1.62852807228, 6.1591839518}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.7263161881, -6.5688765486, 3.1248509136}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2979928144, 5.415954716, -0.6637284629799999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.7011743444, -1.8628163017599997`, 6.8432647638}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6038964546, -4.0993826118, 4.51644514}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6561988656, 6.17940402, -4.4648556202}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.9575931868, -2.1818776395999997`, 2.4747851696}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.234206073999999, -3.6866664534, 0.94144259594}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.964293226199999, 1.0411634369599998`, 0.21512640784}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.476425948, 1.9689055193999998`, -6.678102711399999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5603128066, -0.31360002969999995`, -5.7394758072}, 0.1]}, Text3DBox["1", {5.2757585464, 2.0155817515999996`, -1.6608045923599999`}, { 1, 0}], Text3DBox["2", {-1.6299238671799998`, 4.2326082947999994`, -6.721755382}, {1, 0}], Text3DBox["3", {-0.6519396395779999, -2.9251068753999996`, 4.3915342513999995`}, {1, 0}], Text3DBox["4", {-1.6618035448, 1.5148610533799998`, -3.366546869}, {1, 0}], Text3DBox["5", {-1.84924546674, -1.3595066789199999`, 0.27384019466}, {1, 0}], Text3DBox["6", {-0.17693244304, 0.47160002055999994`, -1.25523159824}, {1, 0}], Text3DBox["7", {-2.08204081268, -0.8987536856, 3.1456378996}, {1, 0}], Text3DBox["8", {1.0169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, {1, 0}], Text3DBox["9", {1.5042433956, 2.0788875726, 2.9247289302}, {1, 0}], Text3DBox["10", {-1.12281589508, 1.6721618456199998`, 4.1439801454}, {1, 0}], Text3DBox["11", {-0.75806098256, -4.0763279546, 0.113791740816}, {1, 0}], Text3DBox[ "12", {-4.3006169312, -1.18890221564, -1.2256006945599998`}, {1, 0}], Text3DBox["13", {-1.1052792378, -5.0948902686, 2.7470946862}, {1, 0}], Text3DBox["14", {3.1777847412, 3.6938474122, -1.52315695052}, {1, 0}], Text3DBox["15", {3.1203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, {1, 0}], Text3DBox["16", {2.0484844836000002`, -2.4192272252, 4.905161778199999}, { 1, 0}], Text3DBox["17", {-4.2242720008, 0.34810642645999995`, -3.3512400884}, {1, 0}], Text3DBox["18", {2.1962610568, 4.1657119944, -4.2849537049999995`}, {1, 0}], Text3DBox["19", {-0.49999038129466, 3.3329097462, -4.940877599599999}, {1, 0}], Text3DBox["20", {5.415409297799999, -0.46853866444, 2.2170265432}, {1, 0}], Text3DBox["21", {-6.5824610761999995`, -2.4836668818, -0.67659749704}, {1, 0}], Text3DBox["22", {6.5743782536, 1.60205301102, 0.6645977369399999}, { 1, 0}], Text3DBox["23", {-6.1812722464, 0.76365717386, -5.0676782142}, {1, 0}], Text3DBox[ "24", {-8.6441521422, -2.137280106, -2.3279534593999998`}, {1, 0}], Text3DBox["25", {-8.463305364, -0.53112638956, -4.5187128111999995`}, {1, 0}], Text3DBox["26", { 1.3813545138199999`, -0.6804336408199999, -1.83229722686}, {1, 0}], Text3DBox["27", {-4.0609996744, -0.8826721173400001, 3.5600548113999997`}, {1, 0}], Text3DBox["28", {-0.21593638768, 4.272670486, 0.42928905541999995`}, {1, 0}], Text3DBox["29", {2.5383014628, 3.5957706328, 3.7722710412}, {1, 0}], Text3DBox["30", {-2.3969069588, 3.170960228, 3.6766509056}, {1, 0}], Text3DBox["31", {-0.96347419876, 1.62852807228, 6.1591839518}, {1, 0}], Text3DBox[ "32", {-1.67079864056, -5.2073289655999995`, -1.2920056662000001`}, {1, 0}], Text3DBox["33", { 1.1988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, {1, 0}], Text3DBox["34", {-2.9388803755999997`, -5.9008584075999995`, 3.0246954356}, {1, 0}], Text3DBox["35", {0.22631618809999998`, -6.5688765486, 3.1248509136}, {1, 0}], Text3DBox["36", {3.7979928143999997`, 5.415954716, -0.6637284629799999}, {1, 0}], Text3DBox["37", {2.2011743444, -1.8628163017599997`, 6.8432647638}, {1, 0}], Text3DBox["38", {3.1038964546, -4.0993826118, 4.51644514}, {1, 0}], Text3DBox["39", {2.1561988656, 6.17940402, -4.4648556202}, {1, 0}], Text3DBox["40", {3.4466927509999996`, 3.1915582413999997`, -5.5402986868}, {1, 0}], Text3DBox["41", {6.4575931868, -2.1818776395999997`, 2.4747851696}, {1, 0}], Text3DBox["42", {-6.734206073999999, -3.6866664534, 0.94144259594}, { 1, 0}], Text3DBox["43", {8.464293226199999, 1.0411634369599998`, 0.21512640784}, {1, 0}], Text3DBox["44", {6.5358278432, 3.3143904313999997`, 1.7394360912199998`}, { 1, 0}], Text3DBox["45", {-5.976425948, 1.9689055193999998`, -6.678102711399999}, {1, 0}], Text3DBox[ "46", {-10.385912596399999`, -3.0902689278, -1.9447170265999998`}, {1, 0}], Text3DBox[ "47", {-10.0603128066, -0.31360002969999995`, -5.7394758072}, {1, 0}]}, AspectRatio->Automatic, ImageSize->{533.3333379250846, Automatic}, ViewPoint->{1.5579192612182777`, -2.546525730314773, -1.5931397554420366`}, ViewVertical->{0.15562155101892022`, -1.3791931707784297`, 0.5119975173541822}]], "Output", CellChangeTimes->{3.5686382691342087`*^9, 3.5686385619623227`*^9, 3.56863884521202*^9, 3.5686391348733287`*^9, 3.5686393048200274`*^9, 3.5686394010409966`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], \ "Input", CellChangeTimes->{{3.5686339747742653`*^9, 3.5686339747898655`*^9}, 3.5686352282676673`*^9, 3.5686355802666855`*^9, 3.568637217255561*^9, 3.568637420586318*^9, 3.5686375869606104`*^9, 3.568637674133563*^9, 3.56863825311298*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -209.87}], LineBox[{{660.9994027946955, -198.77325091382903`}, {640.2, -186.765}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -163.66}], LineBox[{{640.2, -186.765}, {617.9249676143756, -173.9048145109982}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -209.87}], LineBox[{{702.4116400526085, -209.55328406187908`}, { 716.3050000000001, -209.35500000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {752.39, -208.84}], LineBox[{{716.3050000000001, -209.35500000000002`}, { 731.9020864436648, -209.13240059530312`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {353.51, -213.66}], LineBox[{{{370.2303402521369, -198.2328058590433}, { 394.30999999999995`, -184.32999999999998`}}, {{ 375.2303402521369, -206.89280585904334`}, { 399.30999999999995`, -192.99}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -163.66}], LineBox[{{{394.30999999999995`, -184.32999999999998`}, { 419.86526961163713`, -169.5752253974381}}, {{ 399.30999999999995`, -192.99}, { 424.86526961163713`, -178.23522539743811`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {580.97, 204.}], LineBox[{{585.2290259067528, 183.95752514469314`}, {590.575, 158.8}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, 113.6}], LineBox[{{590.575, 158.8}, {595.9209740932473, 133.64247485530683`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {580.97, 204.}], LineBox[{{560.5922433615523, 206.14175964669138`}, {535.015, 208.82999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {489.06, 213.66}], LineBox[{{535.015, 208.82999999999998`}, {509.4377566384478, 211.5182403533086}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {580.97, 204.}], LineBox[{{599.7177079172243, 195.7317748064991}, {671.815, 163.935}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {762.66, 123.86999999999999`}], LineBox[{{671.815, 163.935}, {743.9122920827757, 132.13822519350092`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -71.24000000000001}], LineBox[{{457.8544133034239, -60.99422543107311}, { 480.125, -48.135000000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -25.03}], LineBox[{{480.125, -48.135000000000005`}, { 502.39558669657606`, -35.27577456892691}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -71.24000000000001}], LineBox[{{422.3650323856244, -60.9951854890018}, { 400.09, -48.135000000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, -25.03}], LineBox[{{400.09, -48.135000000000005`}, { 377.8149676143756, -35.27481451099821}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -71.24000000000001}], LineBox[{{440.10999999999996`, -91.72999999999996}, { 440.10999999999996`, -117.45}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -163.66}], LineBox[{{440.10999999999996`, -117.45}, { 440.10999999999996`, -143.17000000000004`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, 67.39}], LineBox[{{520.14, 46.90000000000005}, {520.14, 21.18}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -25.03}], LineBox[{{520.14, 21.18}, {520.14, -4.540000000000049}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, 67.39}], LineBox[{{537.8849676143756, 77.63481451099818}, {560.1600000000001, 90.495}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, 113.6}], LineBox[{{560.1600000000001, 90.495}, {582.4350323856245, 103.3551854890018}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, 67.39}], LineBox[{{504.9129901140681, 81.10051676392}, {485.79999999999995`, 98.31}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {451.46, 129.23}], LineBox[{{485.79999999999995`, 98.31}, {466.68700988593184`, 115.51948323607998`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, 67.39}], LineBox[{{499.65000000000003`, 67.39}, {440.105, 67.39}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, 67.39}], LineBox[{{440.105, 67.39}, {380.55999999999995`, 67.39}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -25.03}], LineBox[{{537.8849676143756, -35.27481451099819}, { 560.1600000000001, -48.135000000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -71.24000000000001}], LineBox[{{560.1600000000001, -48.135000000000005`}, { 582.4350323856245, -60.9951854890018}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -25.03}], LineBox[{{502.3954348714044, -14.784488377976084`}, { 493.295, -9.530000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {466.45000000000005`, 5.970000000000001}], LineBox[{{493.295, -9.530000000000001}, { 484.1945651285956, -4.275511622023918}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, 113.6}], LineBox[{{617.9249676143756, 103.3551854890018}, {640.2, 90.495}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, 67.39}], LineBox[{{640.2, 90.495}, {662.4750323856244, 77.63481451099821}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, 113.6}], LineBox[{{616.7572883196692, 125.64299015886657`}, {625.26, 131.82}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {650.34, 150.04}], LineBox[{{625.26, 131.82}, {633.7627116803308, 137.99700984113346`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -71.24000000000001}], LineBox[{{617.9249676143756, -60.9951854890018}, { 640.2, -48.135000000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -25.03}], LineBox[{{640.2, -48.135000000000005`}, { 662.4750323856244, -35.27481451099821}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -71.24000000000001}], LineBox[{{600.1800000000001, -91.72999999999996}, { 600.1800000000001, -117.45}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -163.66}], LineBox[{{600.1800000000001, -117.45}, { 600.1800000000001, -143.17000000000004`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -71.24000000000001}], LineBox[{{617.9245651285956, -81.4855116220239}, { 627.0250000000001, -86.74000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {653.87, -102.24}], LineBox[{{627.0250000000001, -86.74000000000001}, { 636.1254348714044, -91.99448837797607}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -25.03}], LineBox[{{680.22, -4.540000000000049}, {680.22, 21.18}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, 67.39}], LineBox[{{680.22, 21.18}, {680.22, 46.90000000000005}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -25.03}], LineBox[{{699.2939263309515, -32.51501398271446}, {723.235, -41.91}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {766.25, -58.79}], LineBox[{{723.235, -41.91}, {747.1760736690485, -51.30498601728554}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, -25.03}], LineBox[{{681.7500635427024, -45.46279240718927}, {682.535, -55.945}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {684.8499999999999, -86.86}], LineBox[{{682.535, -55.945}, { 683.3199364572976, -66.42720759281073}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, 67.39}], LineBox[{{700.3985144682134, 63.83083523054931}, {710.75, 62.005}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {741.28, 56.620000000000005`}], LineBox[{{710.75, 62.005}, {721.1014855317866, 60.17916476945069}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {680.22, 67.39}], LineBox[{{687.2265610082244, 86.64482284618657}, {690.8199999999999, 96.52}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {701.42, 125.64999999999999`}], LineBox[{{690.8199999999999, 96.52}, {694.4134389917755, 106.39517715381345`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {451.46, 129.23}], LineBox[{{459.7957622528329, 147.94777678209257`}, {470.26, 171.445}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {489.06, 213.66}], LineBox[{{470.26, 171.445}, {480.7242377471671, 194.9422232179074}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {451.46, 129.23}], LineBox[{{433.7154348714044, 139.47551162202393`}, {424.615, 144.73000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {397.77, 160.23000000000002`}], LineBox[{{424.615, 144.73000000000002`}, {415.51456512859556`, 149.9844883779761}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {451.46, 129.23}], LineBox[{{439.41700984113345`, 112.65271168033077`}, {433.24, 104.14999999999999`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {415.02, 79.07}], LineBox[{{433.24, 104.14999999999999`}, {427.06299015886657`, 95.6472883196692}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, 67.39}], LineBox[{{360.07, 46.90000000000005}, {360.07, 21.18}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, -25.03}], LineBox[{{360.07, 21.18}, {360.07, -4.540000000000049}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, 67.39}], LineBox[{{{340.0150866965761, 73.6342745689269}, {317.74449999999996`, 86.4935}}, {{344.63608669657606`, 81.63727456892691}, { 322.36549999999994`, 94.49650000000001}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, 113.6}], LineBox[{{{317.74449999999996`, 86.4935}, {295.4739133034239, 99.35272543107308}}, {{322.36549999999994`, 94.49650000000001}, { 300.0949133034239, 107.3557254310731}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {489.06, 213.66}], LineBox[{{493.3202908242104, 233.70220601862846`}, {495.505, 243.98000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {501.95, 274.3}], LineBox[{{495.505, 243.98000000000002`}, {497.6897091757896, 254.25779398137155`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {489.06, 213.66}], LineBox[{{469.5728020149531, 219.9916044326522}, {459.57500000000005`, 223.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {430.09000000000003`, 232.82}], LineBox[{{459.57500000000005`, 223.24}, {449.57719798504695`, 226.48839556734782`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -163.66}], LineBox[{{582.4350323856245, -173.9048145109982}, { 560.1600000000001, -186.765}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -209.87}], LineBox[{{560.1600000000001, -186.765}, { 537.8849676143756, -199.6251854890018}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -163.66}], LineBox[{{600.1800000000001, -184.14999999999995`}, { 600.1800000000001, -194.66000000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {600.1800000000001, -225.66000000000003`}], LineBox[{{600.1800000000001, -194.66000000000003`}, { 600.1800000000001, -205.17000000000007`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {766.25, -58.79}], LineBox[{{765.847367256555, -38.303956290344786`}, {764.4549999999999, 32.53999999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {762.66, 123.86999999999999`}], LineBox[{{764.4549999999999, 32.53999999999999}, {763.062632743445, 103.38395629034477`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {766.25, -58.79}], LineBox[{{{778.4723572699862, -75.61500862599513}, { 785.1044999999999, -89.11850000000001}}, {{ 772.0933572699863, -78.74800862599514}, {778.7255, -92.2515}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {797.5799999999999, -122.58}], LineBox[{{{785.1044999999999, -89.11850000000001}, { 791.7366427300136, -102.62199137400486`}}, {{778.7255, -92.2515}, { 785.3576427300137, -105.75499137400485`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {762.66, 123.86999999999999`}], LineBox[{{782.9889140356693, 121.30575466650204`}, {793.42, 119.99}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {824.18, 116.11}], LineBox[{{793.42, 119.99}, {803.8510859643307, 118.67424533349795`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {762.66, 123.86999999999999`}], LineBox[{{768.133452839102, 143.61541501255732`}, {770.94, 153.74}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {779.22, 183.61}], LineBox[{{770.94, 153.74}, {773.7465471608981, 163.86458498744267`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {360.07, -25.03}], LineBox[{{{344.63608669657606`, -39.2772745689269}, { 322.36549999999994`, -52.136500000000005`}}, {{ 340.0150866965761, -31.2742745689269}, { 317.74449999999996`, -44.133500000000005`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, -71.24000000000001}], LineBox[{{{322.36549999999994`, -52.136500000000005`}, { 300.0949133034239, -64.9957254310731}}, {{ 317.74449999999996`, -44.133500000000005`}, { 295.4739133034239, -56.99272543107309}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -209.87}], LineBox[{{502.39558669657606`, -199.62422543107309`}, { 480.125, -186.765}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {440.10999999999996`, -163.66}], LineBox[{{480.125, -186.765}, { 457.8544133034239, -173.9057745689269}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -209.87}], LineBox[{{506.9690571813522, -225.56606209429322`}, { 500.21500000000003`, -233.615}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {480.29, -257.36}], LineBox[{{500.21500000000003`, -233.615}, { 493.4609428186478, -241.6639379057068}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {520.14, -209.87}], LineBox[{{533.312882000299, -225.56443467622188`}, { 540.0699999999999, -233.615}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {560., -257.36}], LineBox[{{540.0699999999999, -233.615}, { 546.8271179997009, -241.6655653237782}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {797.5799999999999, -122.58}], LineBox[{{788.071474585394, -140.7301527387455}, { 774.9849999999999, -165.71}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {752.39, -208.84}], LineBox[{{774.9849999999999, -165.71}, { 761.898525414606, -190.6898472612545}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {797.5799999999999, -122.58}], LineBox[{{818.0682510269411, -122.84771226539478`}, { 828.575, -122.985}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {859.57, -123.39}], LineBox[{{828.575, -122.985}, { 839.0817489730589, -123.12228773460522`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, 113.6}], LineBox[{{262.2950323856244, 103.3551854890018}, {240.01999999999998`, 90.495}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., 67.39}], LineBox[{{240.01999999999998`, 90.495}, {217.74496761437558`, 77.63481451099821}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, 113.6}], LineBox[{{280.03999999999996`, 134.08999999999995`}, { 280.03999999999996`, 144.6}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, 175.6}], LineBox[{{280.03999999999996`, 144.6}, {280.03999999999996`, 155.11000000000004`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {752.39, -208.84}], LineBox[{{749.3031600681404, -229.09614768990085`}, {747.72, -239.485}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {743.0500000000001, -270.13}], LineBox[{{747.72, -239.485}, { 746.1368399318596, -249.87385231009915`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {752.39, -208.84}], LineBox[{{771.8600108382842, -215.2242601730423}, { 781.8499999999999, -218.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {811.31, -228.16}], LineBox[{{781.8499999999999, -218.5}, { 791.8399891617157, -221.77573982695773`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, -71.24000000000001}], LineBox[{{262.2950323856244, -60.9951854890018}, { 240.01999999999998`, -48.135000000000005`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., -25.03}], LineBox[{{240.01999999999998`, -48.135000000000005`}, { 217.74496761437558`, -35.27481451099821}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, -71.24000000000001}], LineBox[{{280.03999999999996`, -91.72999999999996}, { 280.03999999999996`, -102.24000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {280.03999999999996`, -133.24}], LineBox[{{280.03999999999996`, -102.24000000000001`}, { 280.03999999999996`, -112.75000000000006`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., 67.39}], LineBox[{{{204.621, 46.90000000000005}, {204.621, 21.18}}, {{195.379, 46.90000000000005}, {195.379, 21.18}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., -25.03}], LineBox[{{{204.621, 21.18}, {204.621, -4.540000000000049}}, {{195.379, 21.18}, {195.379, -4.540000000000049}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., 67.39}], LineBox[{{182.2554348714044, 77.63551162202391}, {173.155, 82.89}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {146.31, 98.39}], LineBox[{{173.155, 82.89}, {164.0545651285956, 88.14448837797609}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {200., -25.03}], LineBox[{{182.2554348714044, -35.27551162202391}, {173.155, -40.53}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04112789740594205], FontWeight->Plain], {146.31, -56.03}], LineBox[{{173.155, -40.53}, { 164.0545651285956, -45.78448837797609}}]}}}, {}, {}}, ImageSize->{{0., 243.1439638476444}, {0., 193.23595868302186`}}, PlotRange->{{126.31, 879.57}, {-301.1099999999999, 297.53499999999997`}}]], "Output", CellChangeTimes->{3.5686382692746086`*^9, 3.568638562118323*^9, 3.5686388453524203`*^9, 3.568639135013729*^9, 3.5686393049604273`*^9, 3.5686394011969967`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Dij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, {3.568286391407484*^9, 3.568286398053096*^9}, { 3.56856731902209*^9, 3.568567323936099*^9}, {3.5686259672509956`*^9, 3.568625969107399*^9}, {3.568626068916374*^9, 3.5686260698991756`*^9}, { 3.5686379683656797`*^9, 3.568637976524494*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "Gij", "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.5685673432021327`*^9, 3.5685673517353477`*^9}, {3.568625843839179*^9, 3.568625849782789*^9}, { 3.568626005627063*^9, 3.568626007389866*^9}, {3.568626080553994*^9, 3.5686260810375953`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "Lij", "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.568567050623619*^9, 3.56856705698843*^9}, { 3.568625871295227*^9, 3.568625877160837*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.568285867917365*^9, 3.568285868634966*^9}, { 3.5685662802006655`*^9, 3.5685663279991493`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Nij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Total", " ", "kinetic", " ", "energy", " ", "in", " ", "Eh"}], ",", " ", RowBox[{"=", " ", RowBox[{"|", "Etot", "|"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tsigma", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568286113290196*^9, 3.5682861137113967`*^9}, {3.5682870401502237`*^9, 3.5682870902263117`*^9}, 3.568566812692001*^9, {3.56856697153148*^9, 3.568566972342681*^9}, {3.5686252771057835`*^9, 3.5686252869962006`*^9}, { 3.5686253620323324`*^9, 3.568625362874734*^9}, {3.5686254979241714`*^9, 3.568625499718174*^9}, {3.5686260279195023`*^9, 3.568626034424713*^9}, { 3.568626091162013*^9, 3.5686260974956245`*^9}, {3.5686329319904337`*^9, 3.568633002970559*^9}}], Cell[BoxData["1052.54559811828`"], "Output", CellChangeTimes->{3.5686382693370085`*^9, 3.568638562180723*^9, 3.5686388454148207`*^9, 3.568639135076129*^9, 3.568639305022828*^9, 3.5686394012593966`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, 3.5685663358303633`*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{"MatrixForm", "[", "Pij", "]"}], "*)"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, {3.568567024103572*^9, 3.5685670312327847`*^9}, 3.568637995041727*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1577208281476055`"}], SequenceForm["C", 6, " ", "N", 4, " ", 1.1577208281476055`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2010779965009082`"}], SequenceForm["C", 6, " ", "C", 5, " ", 1.2010779965009082`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1534638789207712`"}], SequenceForm["C", 7, " ", "N", 3, " ", 1.1534638789207712`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2033130416206546`"}], SequenceForm["C", 7, " ", "C", 5, " ", 1.2033130416206546`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1910287876895758`"}], SequenceForm["C", 8, " ", "C", 6, " ", 1.1910287876895758`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1789551076137423`"}], SequenceForm["C", 9, " ", "C", 8, " ", 1.1789551076137423`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2044005437466394`"}], SequenceForm["C", 10, " ", "C", 7, " ", 1.2044005437466394`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2067132239282896`"}], SequenceForm["C", 10, " ", "C", 9, " ", 1.2067132239282896`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394012749968`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.210467608441075`"}], SequenceForm["C", 11, " ", "C", 5, " ", 1.210467608441075], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1837271796159385`"}], SequenceForm["C", 12, " ", "C", 5, " ", 1.1837271796159385`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1457052761056528`"}], SequenceForm["C", 13, " ", "N", 3, " ", 1.1457052761056528`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1667496499139194`"}], SequenceForm["C", 13, " ", "C", 11, " ", 1.1667496499139194`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1282851820757147`"}], SequenceForm["C", 14, " ", "O", 1, " ", 1.1282851820757147`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.203981492863959`"}], SequenceForm["C", 14, " ", "C", 8, " ", 1.203981492863959], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.180619134067527`"}], SequenceForm["C", 15, " ", "C", 9, " ", 1.180619134067527], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1631993650995722`"}], SequenceForm["C", 16, " ", "N", 3, " ", 1.1631993650995722`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1901236621758353`"}], SequenceForm["C", 16, " ", "C", 15, " ", 1.1901236621758353`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1735170375590884`"}], SequenceForm["C", 17, " ", "N", 4, " ", 1.1735170375590884`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0565134618366996`"}], SequenceForm["C", 17, " ", "C", 12, " ", 1.0565134618366996`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2287825517727222`"}], SequenceForm["C", 18, " ", "C", 14, " ", 1.2287825517727222`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.9296873349413726`"}], SequenceForm["C", 19, " ", "O", 2, " ", 0.9296873349413726], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"N\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1011426350156646`"}], SequenceForm["C", 19, " ", "N", 4, " ", 1.1011426350156646`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.192982717481274`"}], SequenceForm["C", 19, " ", "C", 18, " ", 1.192982717481274], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401290597*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0174430524918365`"}], SequenceForm["C", 20, " ", "C", 15, " ", 1.0174430524918365`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0846082630783902`"}], SequenceForm["C", 21, " ", "C", 12, " ", 1.0846082630783902`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1308753277707284`"}], SequenceForm["C", 22, " ", "O", 1, " ", 1.1308753277707284`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1621970698850244`"}], SequenceForm["C", 22, " ", "C", 20, " ", 1.1621970698850244`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.06241860994477`"}], SequenceForm["C", 23, " ", "C", 17, " ", 1.06241860994477], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0764595298723756`"}], SequenceForm["C", 24, " ", "C", 21, " ", 1.0764595298723756`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0846893940877769`"}], SequenceForm["C", 25, " ", "C", 23, " ", 1.0846893940877769`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1056367405707301`"}], SequenceForm["C", 25, " ", "C", 24, " ", 1.1056367405707301`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "26", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202390241471804`"}], SequenceForm["H", 26, " ", "C", 6, " ", 1.202390241471804], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202349101734182`"}], SequenceForm["H", 27, " ", "C", 7, " ", 1.202349101734182], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "28", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024913312347179`"}], SequenceForm["H", 28, " ", "C", 8, " ", 1.2024913312347179`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "29", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202413336895049`"}], SequenceForm["H", 29, " ", "C", 9, " ", 1.202413336895049], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023053509123793`"}], SequenceForm["H", 30, " ", "C", 10, " ", 1.2023053509123793`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "31", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023644071276507`"}], SequenceForm["H", 31, " ", "C", 10, " ", 1.2023644071276507`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "32", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024088201556526`"}], SequenceForm["H", 32, " ", "C", 11, " ", 1.2024088201556526`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "33", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2022864253419774`"}], SequenceForm["H", 33, " ", "C", 11, " ", 1.2022864253419774`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.5686394013061967`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "34", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202463290229071`"}], SequenceForm["H", 34, " ", "C", 13, " ", 1.202463290229071], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "35", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023994310695338`"}], SequenceForm["H", 35, " ", "C", 13, " ", 1.2023994310695338`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "36", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202510022985657`"}], SequenceForm["H", 36, " ", "C", 14, " ", 1.202510022985657], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "37", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2025648033990979`"}], SequenceForm["H", 37, " ", "C", 16, " ", 1.2025648033990979`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "38", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2022598310626307`"}], SequenceForm["H", 38, " ", "C", 16, " ", 1.2022598310626307`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "39", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2025091098705343`"}], SequenceForm["H", 39, " ", "C", 18, " ", 1.2025091098705343`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "40", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202390598315014`"}], SequenceForm["H", 40, " ", "C", 18, " ", 1.202390598315014], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "41", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202309298602956`"}], SequenceForm["H", 41, " ", "C", 20, " ", 1.202309298602956], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023515958889404`"}], SequenceForm["H", 42, " ", "C", 21, " ", 1.2023515958889404`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "43", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202379276261204`"}], SequenceForm["H", 43, " ", "C", 22, " ", 1.202379276261204], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "44", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024937325472769`"}], SequenceForm["H", 44, " ", "C", 22, " ", 1.2024937325472769`], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "45", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.20229333090966`"}], SequenceForm["H", 45, " ", "C", 23, " ", 1.20229333090966], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "46", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202475007935168`"}], SequenceForm["H", 46, " ", "C", 24, " ", 1.202475007935168], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "47", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202283473733498`"}], SequenceForm["H", 47, " ", "C", 25, " ", 1.202283473733498], Editable->False]], "Print", CellChangeTimes->{3.5686382693526087`*^9, 3.5686385621963234`*^9, 3.5686388454460206`*^9, 3.568639135091729*^9, 3.568639305038428*^9, 3.568639401321797*^9}] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568389047208571*^9, 3.5683890542753835`*^9}, {3.5683902124526176`*^9, 3.5683902131078186`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.1577208281476055`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.2010779965009082`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1534638789207712`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "1.2033130416206546`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6", ",", "1.1910287876895758`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.1789551076137423`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7", ",", "1.2044005437466394`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.2067132239282896`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.210467608441075`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "1.1837271796159385`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.1457052761056528`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "1.1667496499139194`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "1", ",", "1.1282851820757147`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "8", ",", "1.203981492863959`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "9", ",", "1.180619134067527`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3", ",", "1.1631993650995722`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.1901236621758353`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "1.1735170375590884`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "12", ",", "1.0565134618366996`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "14", ",", "1.2287825517727222`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "2", ",", "0.9296873349413726`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "4", ",", "1.1011426350156646`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "1.192982717481274`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "15", ",", "1.0174430524918365`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "12", ",", "1.0846082630783902`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "1", ",", "1.1308753277707284`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "20", ",", "1.1621970698850244`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "17", ",", "1.06241860994477`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "21", ",", "1.0764595298723756`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "23", ",", "1.0846893940877769`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "24", ",", "1.1056367405707301`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "6", ",", "1.202390241471804`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "7", ",", "1.202349101734182`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "8", ",", "1.2024913312347179`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "9", ",", "1.202413336895049`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "10", ",", "1.2023053509123793`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "10", ",", "1.2023644071276507`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "11", ",", "1.2024088201556526`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "11", ",", "1.2022864253419774`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "13", ",", "1.202463290229071`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "13", ",", "1.2023994310695338`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "14", ",", "1.202510022985657`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "16", ",", "1.2025648033990979`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "16", ",", "1.2022598310626307`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "18", ",", "1.2025091098705343`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "18", ",", "1.202390598315014`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "20", ",", "1.202309298602956`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "21", ",", "1.2023515958889404`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "22", ",", "1.202379276261204`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "22", ",", "1.2024937325472769`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "23", ",", "1.20229333090966`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "24", ",", "1.202475007935168`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "25", ",", "1.202283473733498`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.568638269586609*^9, 3.568638562305523*^9, 3.568638845539621*^9, 3.5686391352009296`*^9, 3.568639305147628*^9, 3.568639401368597*^9}], Cell[BoxData["53"], "Output", CellChangeTimes->{3.568638269586609*^9, 3.568638562305523*^9, 3.568638845539621*^9, 3.5686391352009296`*^9, 3.568639305147628*^9, 3.568639401368597*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"26", "\[IndentingNewLine]", RowBox[{ RowBox[{"bl", "=", RowBox[{"nb", "-", "bh"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568632559212179*^9, 3.568632577370611*^9}}], Cell[BoxData["26"], "Output", CellChangeTimes->{3.568638269602209*^9, 3.568638562321123*^9, 3.5686388455552206`*^9, 3.56863913521653*^9, 3.568639305163228*^9, 3.568639401384197*^9}] }, Open ]], Cell[BoxData[" "], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, 3.56838891559114*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bl"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"wy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bl"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"wz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bl"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Gray", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bl"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.568388937930379*^9}, {3.568391616907484*^9, 3.568391624754298*^9}, { 3.568391667342373*^9, 3.5683916742531853`*^9}, {3.568391794825797*^9, 3.5683917959489985`*^9}, {3.5683918276482544`*^9, 3.56839185905111*^9}, { 3.5683919288612328`*^9, 3.5683919590316854`*^9}, {3.568524054858098*^9, 3.5685240555756993`*^9}, {3.5685666362556906`*^9, 3.568566666394944*^9}, { 3.5685667055978127`*^9, 3.5685667164398317`*^9}, {3.5686174374353323`*^9, 3.568617488572222*^9}, {3.568618796213319*^9, 3.568618805526535*^9}, { 3.568619728205756*^9, 3.5686197473469896`*^9}, {3.5686325836106224`*^9, 3.5686326013946533`*^9}, 3.5686336048196163`*^9, 3.5686392970512137`*^9, 3.568639395612187*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", "0.14", "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bl", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", "0.14", "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bl", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", "0.14", "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bl", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.5683889530312057`*^9}, {3.5683893397246847`*^9, 3.568389482371335*^9}, { 3.568389512432588*^9, 3.568389840313964*^9}, {3.568390052801937*^9, 3.568390055422742*^9}, 3.568390114578046*^9, 3.568390152064912*^9, { 3.568390244027073*^9, 3.568390244635474*^9}, 3.5683904737686768`*^9, { 3.56852316213093*^9, 3.5685231796497607`*^9}, {3.568524015343229*^9, 3.5685240160296297`*^9}, 3.568524093889367*^9, 3.568524191046337*^9, { 3.5685666461617084`*^9, 3.568566671137352*^9}, {3.568566721712641*^9, 3.568566754238698*^9}, {3.5686174565765657`*^9, 3.5686174617401752`*^9}, { 3.5686174951554337`*^9, 3.568617503891449*^9}, {3.5686185965173683`*^9, 3.5686185984517717`*^9}, {3.5686188095825424`*^9, 3.5686188240749683`*^9}, {3.5686197519957976`*^9, 3.5686197778606434`*^9}, {3.5686326115970716`*^9, 3.568632637415117*^9}, { 3.568633261119812*^9, 3.5686333326303377`*^9}, {3.5686334678669753`*^9, 3.568633498567829*^9}, {3.5686335356802945`*^9, 3.5686335417799053`*^9}, { 3.5686385486866994`*^9, 3.5686385567987137`*^9}, {3.5686391133608913`*^9, 3.5686391289765186`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"PLot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.05"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.5683889530312057`*^9}, {3.5683893397246847`*^9, 3.568389482371335*^9}, { 3.568389512432588*^9, 3.568389840313964*^9}, {3.568390052801937*^9, 3.568390055422742*^9}, 3.568390114578046*^9, 3.568390152064912*^9, { 3.568390244027073*^9, 3.568390244635474*^9}, 3.5683904737686768`*^9, { 3.568390648613784*^9, 3.568390694009864*^9}, {3.5683907253191185`*^9, 3.5683908630517607`*^9}, {3.5683910922941628`*^9, 3.5683911307638307`*^9}, {3.5683913309433823`*^9, 3.568391333236586*^9}, { 3.56839141488713*^9, 3.568391447397587*^9}, {3.568391486709656*^9, 3.568391491342864*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, { 3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, { 3.5682869898869357`*^9, 3.568287001134555*^9}, {3.56838891559114*^9, 3.568388924030755*^9}, {3.568390166448137*^9, 3.568390171252945*^9}, { 3.5683908961862183`*^9, 3.5683909036430316`*^9}, 3.5683909701615486`*^9, 3.5683913684302483`*^9, {3.5683915370821447`*^9, 3.5683915698422017`*^9}, { 3.5685232430326724`*^9, 3.5685232511134863`*^9}, {3.568524281323696*^9, 3.5685242837417*^9}, 3.5685243967170987`*^9, {3.568638834775602*^9, 3.5686388369752054`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, 0.178]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, 0.213]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], SphereBox[{-1.1618035448, 1.5148610533799998`, -3.366546869}, 0.213]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.34924546674, -1.3595066789199999`, 0.27384019466}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.32306755696, 0.47160002055999994`, -1.25523159824}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.58204081268, -0.8987536856, 3.1456378996}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.0042433956, 2.0788875726, 2.9247289302}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.25806098256, -4.0763279546, 0.113791740816}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.8006169312, -1.18890221564, -1.2256006945599998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.6052792378, -5.0948902686, 2.7470946862}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6777847412, 3.6938474122, -1.52315695052}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.5484844836000002`, -2.4192272252, 4.905161778199999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.7242720008, 0.34810642645999995`, -3.3512400884}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6962610568, 4.1657119944, -4.2849537049999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.61870534*^-6, 3.3329097462, -4.940877599599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.915409297799999, -0.46853866444, 2.2170265432}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.0824610761999995`, -2.4836668818, -0.67659749704}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.0743782536, 1.60205301102, 0.6645977369399999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.6812722464, 0.76365717386, -5.0676782142}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.1441521422, -2.137280106, -2.3279534593999998`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.28406361232, 4.272670486, 0.42928905541999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0383014628, 3.5957706328, 3.7722710412}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.8969069587999998`, 3.170960228, 3.6766509056}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.46347419875999996`, 1.62852807228, 6.1591839518}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.7263161881, -6.5688765486, 3.1248509136}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2979928144, 5.415954716, -0.6637284629799999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.7011743444, -1.8628163017599997`, 6.8432647638}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.6038964546, -4.0993826118, 4.51644514}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6561988656, 6.17940402, -4.4648556202}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.9575931868, -2.1818776395999997`, 2.4747851696}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.234206073999999, -3.6866664534, 0.94144259594}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.964293226199999, 1.0411634369599998`, 0.21512640784}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.476425948, 1.9689055193999998`, -6.678102711399999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5603128066, -0.31360002969999995`, -5.7394758072}, 0.1]}, Text3DBox["1", {5.2757585464, 2.0155817515999996`, -1.6608045923599999`}, { 1, 0}], Text3DBox["2", {-1.6299238671799998`, 4.2326082947999994`, -6.721755382}, {1, 0}], Text3DBox["3", {-0.6519396395779999, -2.9251068753999996`, 4.3915342513999995`}, {1, 0}], Text3DBox["4", {-1.6618035448, 1.5148610533799998`, -3.366546869}, {1, 0}], Text3DBox["5", {-1.84924546674, -1.3595066789199999`, 0.27384019466}, {1, 0}], Text3DBox["6", {-0.17693244304, 0.47160002055999994`, -1.25523159824}, {1, 0}], Text3DBox["7", {-2.08204081268, -0.8987536856, 3.1456378996}, {1, 0}], Text3DBox["8", {1.0169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, {1, 0}], Text3DBox["9", {1.5042433956, 2.0788875726, 2.9247289302}, {1, 0}], Text3DBox["10", {-1.12281589508, 1.6721618456199998`, 4.1439801454}, {1, 0}], Text3DBox["11", {-0.75806098256, -4.0763279546, 0.113791740816}, {1, 0}], Text3DBox[ "12", {-4.3006169312, -1.18890221564, -1.2256006945599998`}, {1, 0}], Text3DBox["13", {-1.1052792378, -5.0948902686, 2.7470946862}, {1, 0}], Text3DBox["14", {3.1777847412, 3.6938474122, -1.52315695052}, {1, 0}], Text3DBox["15", {3.1203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, {1, 0}], Text3DBox["16", {2.0484844836000002`, -2.4192272252, 4.905161778199999}, { 1, 0}], Text3DBox["17", {-4.2242720008, 0.34810642645999995`, -3.3512400884}, {1, 0}], Text3DBox["18", {2.1962610568, 4.1657119944, -4.2849537049999995`}, {1, 0}], Text3DBox["19", {-0.49999038129466, 3.3329097462, -4.940877599599999}, {1, 0}], Text3DBox["20", {5.415409297799999, -0.46853866444, 2.2170265432}, {1, 0}], Text3DBox["21", {-6.5824610761999995`, -2.4836668818, -0.67659749704}, {1, 0}], Text3DBox["22", {6.5743782536, 1.60205301102, 0.6645977369399999}, { 1, 0}], Text3DBox["23", {-6.1812722464, 0.76365717386, -5.0676782142}, {1, 0}], Text3DBox[ "24", {-8.6441521422, -2.137280106, -2.3279534593999998`}, {1, 0}], Text3DBox["25", {-8.463305364, -0.53112638956, -4.5187128111999995`}, {1, 0}], Text3DBox["26", { 1.3813545138199999`, -0.6804336408199999, -1.83229722686}, {1, 0}], Text3DBox["27", {-4.0609996744, -0.8826721173400001, 3.5600548113999997`}, {1, 0}], Text3DBox["28", {-0.21593638768, 4.272670486, 0.42928905541999995`}, {1, 0}], Text3DBox["29", {2.5383014628, 3.5957706328, 3.7722710412}, {1, 0}], Text3DBox["30", {-2.3969069588, 3.170960228, 3.6766509056}, {1, 0}], Text3DBox["31", {-0.96347419876, 1.62852807228, 6.1591839518}, {1, 0}], Text3DBox[ "32", {-1.67079864056, -5.2073289655999995`, -1.2920056662000001`}, {1, 0}], Text3DBox["33", { 1.1988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, {1, 0}], Text3DBox["34", {-2.9388803755999997`, -5.9008584075999995`, 3.0246954356}, {1, 0}], Text3DBox["35", {0.22631618809999998`, -6.5688765486, 3.1248509136}, {1, 0}], Text3DBox["36", {3.7979928143999997`, 5.415954716, -0.6637284629799999}, {1, 0}], Text3DBox["37", {2.2011743444, -1.8628163017599997`, 6.8432647638}, {1, 0}], Text3DBox["38", {3.1038964546, -4.0993826118, 4.51644514}, {1, 0}], Text3DBox["39", {2.1561988656, 6.17940402, -4.4648556202}, {1, 0}], Text3DBox["40", {3.4466927509999996`, 3.1915582413999997`, -5.5402986868}, {1, 0}], Text3DBox["41", {6.4575931868, -2.1818776395999997`, 2.4747851696}, {1, 0}], Text3DBox["42", {-6.734206073999999, -3.6866664534, 0.94144259594}, { 1, 0}], Text3DBox["43", {8.464293226199999, 1.0411634369599998`, 0.21512640784}, {1, 0}], Text3DBox["44", {6.5358278432, 3.3143904313999997`, 1.7394360912199998`}, { 1, 0}], Text3DBox["45", {-5.976425948, 1.9689055193999998`, -6.678102711399999}, {1, 0}], Text3DBox[ "46", {-10.385912596399999`, -3.0902689278, -1.9447170265999998`}, {1, 0}], Text3DBox[ "47", {-10.0603128066, -0.31360002969999995`, -5.7394758072}, {1, 0}], {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.4307283679273257, 1.0012122638054513`, -2.3270423738452912`}, 1.1577208281476055`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.5130889548900003, -0.4439533291800002, \ -0.49069570178999977`}, 1.2010779965009082`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.8560153205813928, -1.9274809529156507`, 3.778147353429347}, 1.1534638789207712`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-1.46564313971, -1.12913018226, 1.70973904713}, 1.2033130416206546`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.9200036544699998, 1.5817573537799996`, -0.5453352393540001}, 1.1910287876895758`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.76059157379, 2.3854011298, 1.544645024866}, 1.1789551076137423`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-1.1024283538800002`, 0.3867040800099997, 3.6448090224999996`}, 1.2044005437466394`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{0.6907137502600004, 1.8755247091099998`, 3.5343545377999996`}, 1.2067132239282896`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.80365322465, -2.71791731676, 0.19381596773799997`}, 1.210467608441075]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.57493119897, -1.2742044472799998`, -0.4758802499499999}, 1.1837271796159385`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.37511085299178515`, -3.993253568529585, 3.582005203880957}, 1.1457052761056528`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.43167011018, -4.5856091116, 1.4304432135079999`}, 1.1667496499139194`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{4.757030464849587, 2.830509160377627, -1.5939660466383894`}, 1.1282851820757147`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.5973622465899995`, 3.1928810495999995`, -0.6792979154939998}, 1.203981492863959]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{2.8122902331999997`, 0.9065110108300001, 3.1126621808999997`}, 1.180619134067527]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.1776931519017815`, -2.676022235074446, 4.644433785357734}, 1.1631993650995722`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{3.0844107772000005`, -1.34254638807, 4.102878604899999}, 1.1901236621758353`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-2.4236529462718903`, 0.940310126051995, -3.3590092730177563`}, 1.1735170375590884`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-3.762444466, -0.42039789459000004`, -2.28842039148}, 1.0565134618366996`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{3.187022899, 3.9297797032999995`, -2.9040553277599996`}, 1.2287825517727222`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.5840770124019006, 3.7979830454943384`, -5.861451170813998}, 0.9296873349413726]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-0.5901622881664331, 2.409386672498501, -4.141157129467142}, 1.1011426350156646`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{1.3481353377526701`, 3.7493108703, -4.612915652299999}, 1.192982717481274]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{4.767873184299999, -0.36720210768999995`, 2.7588109874}, 1.0174430524918365`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-4.941539003699999, -1.83628454872, -0.9510990958}, 1.0846082630783902`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{6.406374563435259, 1.8147701930903581`, -0.531577962903164}, 1.1308753277707284`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{6.4948937757, 0.5667571732899999, 1.4408121400700002`}, 1.1621970698850244`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-4.7027721236, 0.5558818001599999, -4.2094591513}, 1.06241860994477]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-7.1133066091999995`, -2.3104734939, -1.5022754782199998`}, 1.0764595298723756`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-6.8222888051999995`, 0.11626539215000009`, -4.7931955127}, 1.0846893940877769`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.4], SphereBox[{-8.0537287531, -1.33420324778, -3.423333135299999}, 1.1056367405707301`]}}, {Opacity[0.4], SphereBox[{ 1.3388029252273124`, -0.2793279969959376, -1.6313792430754848`}, 1.1577208281476055`]}, {Opacity[0.4], SphereBox[{-2.8719679685791295`, -0.888271379974915, 3.4157635897975505`}, 1.2010779965009082`]}, {Opacity[0.4], SphereBox[{0.7132948685514681, 3.72232339469603, 0.3371228589745839}, 1.1534638789207712`]}, {Opacity[0.4], SphereBox[{2.678275707269296, 3.0676407461689763`, 3.477184141792981}, 1.2033130416206546`]}, {Opacity[0.4], SphereBox[{-1.453285743566493, 2.6490989743466655`, 3.8393686038694756`}, 1.1910287876895758`]}, {Opacity[0.4], SphereBox[{-0.518953194242732, 1.6437203161805725`, 5.457537832459565}, 1.1789551076137423`]}, {Opacity[0.4], SphereBox[{-0.8530120390245353, -4.813549915871271, -0.802551137281042}, 1.2044005437466394`]}, {Opacity[0.4], SphereBox[{ 1.0174580570301572`, -4.052185793818217, -0.21680312577518907`}, 1.2067132239282896`]}, {Opacity[0.4], SphereBox[{-1.800495213647446, -5.620253160178827, 2.928046172185767}, 1.210467608441075]}, {Opacity[0.4], SphereBox[{0.26269430699109164`, -6.055678411560407, 2.993327442325366}, 1.1837271796159385`]}, {Opacity[0.4], SphereBox[{4.082066638984422, 4.816401018083436, -0.962939509041093}, 1.1457052761056528`]}, {Opacity[0.4], SphereBox[{2.648016628558783, -2.0565261761695046`, 6.168530192429303}, 1.1667496499139194`]}, {Opacity[0.4], SphereBox[{3.2364080579422083`, -3.5143621400570417`, 4.651794044552386}, 1.1282851820757147`]}, {Opacity[0.4], SphereBox[{2.670146571224355, 5.478334439183382, -4.402222527018935}, 1.203981492863959]}, {Opacity[0.4], SphereBox[{3.5113277629281545`, 3.530731055894538, -5.103223030798599}, 1.180619134067527]}, {Opacity[0.4], SphereBox[{6.5947196106396095`, -1.5853174282462756`, 2.385037289657521}, 1.1631993650995722`]}, {Opacity[0.4], SphereBox[{-6.18137173381678, -3.2678079109263067`, 0.37807588242719714`}, 1.1901236621758353`]}, {Opacity[0.4], SphereBox[{8.30627454305573, 1.2364504336043858`, 0.37162050221642673`}, 1.1735170375590884`]}, {Opacity[0.4], SphereBox[{7.049249322375157, 2.7182333272340413`, 1.3652268301785222`}, 1.0565134618366996`]}, {Opacity[0.4], SphereBox[{-5.547751072757555, 1.549251909445009, -6.117371426175015}, 1.2287825517727222`]}, {Opacity[0.4], SphereBox[{-9.279506130297179, -2.7584789952236166`, -2.078143555107814}, 0.9296873349413726]}, {Opacity[0.4], SphereBox[{-9.004250474523888, -0.3893405752511552, -5.314418102169626}, 1.1011426350156646`]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.32306755696, 0.47160002055999994`, -1.25523159824}, {-1.1618035448, 1.5148610533799998`, -3.366546869}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.32306755696, 0.47160002055999994`, -1.25523159824}, {-1.34924546674, \ -1.3595066789199999`, 0.27384019466}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.58204081268, -0.8987536856, 3.1456378996}, {-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.58204081268, -0.8987536856, 3.1456378996}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, {0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.0042433956, 2.0788875726, 2.9247289302}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, { 2.0042433956, 2.0788875726, 2.9247289302}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.25806098256, -4.0763279546, 0.113791740816}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.8006169312, -1.18890221564, -1.2256006945599998`}, \ {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.6052792378, -5.0948902686, 2.7470946862}, {-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.6052792378, -5.0948902686, 2.7470946862}, {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.6777847412, 3.6938474122, -1.52315695052}, {5.7757585464, 2.0155817515999996`, -1.6608045923599999`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.6777847412, 3.6938474122, -1.52315695052}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.5484844836000002`, -2.4192272252, 4.905161778199999}, {-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.5484844836000002`, -2.4192272252, 4.905161778199999}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.7242720008, 0.34810642645999995`, -3.3512400884}, {-1.1618035448, 1.5148610533799998`, -3.366546869}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.7242720008, 0.34810642645999995`, -3.3512400884}, {-3.8006169312, -1.18890221564, \ -1.2256006945599998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.6962610568, 4.1657119944, -4.2849537049999995`}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{9.61870534*^-6, 3.3329097462, -4.940877599599999}, {-1.1299238671799998`, 4.2326082947999994`, -6.721755382}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{9.61870534*^-6, 3.3329097462, -4.940877599599999}, {-1.1618035448, 1.5148610533799998`, -3.366546869}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{9.61870534*^-6, 3.3329097462, -4.940877599599999}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{5.915409297799999, -0.46853866444, 2.2170265432}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-6.0824610761999995`, -2.4836668818, -0.67659749704}, \ {-3.8006169312, -1.18890221564, -1.2256006945599998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{7.0743782536, 1.60205301102, 0.6645977369399999}, { 5.7757585464, 2.0155817515999996`, -1.6608045923599999`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{7.0743782536, 1.60205301102, 0.6645977369399999}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-5.6812722464, 0.76365717386, -5.0676782142}, {-3.7242720008, 0.34810642645999995`, -3.3512400884}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-8.1441521422, -2.137280106, -2.3279534593999998`}, \ {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, { 0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.28406361232, 4.272670486, 0.42928905541999995`}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.0383014628, 3.5957706328, 3.7722710412}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.8969069587999998`, 3.170960228, 3.6766509056}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.46347419875999996`, 1.62852807228, 6.1591839518}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.17079864056, -5.2073289655999995`, \ -1.2920056662000001`}, {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, \ {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.7263161881, -6.5688765486, 3.1248509136}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{4.2979928144, 5.415954716, -0.6637284629799999}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.7011743444, -1.8628163017599997`, 6.8432647638}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.6038964546, -4.0993826118, 4.51644514}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.6561988656, 6.17940402, -4.4648556202}, {2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{6.9575931868, -2.1818776395999997`, 2.4747851696}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-6.234206073999999, -3.6866664534, 0.94144259594}, {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{8.964293226199999, 1.0411634369599998`, 0.21512640784}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-5.476425948, 1.9689055193999998`, -6.678102711399999}, {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-9.5603128066, -0.31360002969999995`, -5.7394758072}, \ {-7.963305363999999, -0.53112638956, -4.5187128111999995`}}, 0.05]}}, AspectRatio->Automatic, Boxed->False, ImageSize->{538.8888936278075, Automatic}, ViewPoint->{2.477725536175125, -1.9800783318961275`, -1.1790529958153446`}, ViewVertical->{0.12852209600093825`, -1.384306990388904, 0.2785151141473134}]], "Output", CellChangeTimes->{3.568638269649009*^9, 3.5686385623679237`*^9, 3.5686388456332207`*^9, 3.5686391352789297`*^9, 3.568639305225628*^9, 3.568639401446597*^9}] }, Open ]] }, WindowSize->{1427, 910}, WindowMargins->{{Automatic, 57}, {Automatic, 14}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, Magnification->0.8999999761581421, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1004, 19, 50, "Input"], Cell[CellGroupData[{ Cell[1586, 43, 360, 6, 29, InheritFromParent], Cell[1949, 51, 6170, 105, 302, "Output"] }, Open ]], Cell[8134, 159, 1216, 21, 29, "Input"], Cell[9353, 182, 343, 6, 29, "Input"], Cell[CellGroupData[{ Cell[9721, 192, 1241, 19, 29, "Input"], Cell[10965, 213, 1104, 16, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12106, 234, 225, 4, 29, InheritFromParent], Cell[12334, 240, 190, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12561, 248, 732, 21, 70, InheritFromParent], Cell[13296, 271, 190, 3, 28, "Output"], Cell[13489, 276, 192, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13718, 284, 3178, 86, 110, "Input"], Cell[16899, 372, 937, 15, 48, "Output"], Cell[17839, 389, 984, 16, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18860, 410, 618, 10, 29, "Input"], Cell[19481, 422, 209, 3, 28, "Output"] }, Open ]], Cell[19705, 428, 4522, 93, 50, "Input"], Cell[CellGroupData[{ Cell[24252, 525, 2568, 36, 29, "Input"], Cell[26823, 563, 11317, 201, 406, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38177, 769, 373, 7, 29, InheritFromParent], Cell[38553, 778, 38567, 941, 187, "Output"] }, Open ]], Cell[77135, 1722, 1254, 35, 70, "Input"], Cell[78392, 1759, 5060, 115, 90, "Input"], Cell[83455, 1876, 1890, 45, 90, "Input"], Cell[85348, 1923, 511, 11, 50, "Input"], Cell[85862, 1936, 2123, 48, 90, "Input"], Cell[87988, 1986, 1935, 47, 50, "Input"], Cell[89926, 2035, 1261, 33, 50, "Input"], Cell[CellGroupData[{ Cell[91212, 2072, 2013, 47, 50, "Input"], Cell[93228, 2121, 208, 3, 28, "Output"] }, Open ]], Cell[93451, 2127, 1995, 35, 90, "Input"], Cell[95449, 2164, 1693, 24, 29, "Input"], Cell[CellGroupData[{ Cell[97167, 2192, 2749, 55, 70, "Input"], Cell[CellGroupData[{ Cell[99941, 2251, 529, 10, 21, "Print"], Cell[100473, 2263, 529, 10, 21, "Print"], Cell[101005, 2275, 529, 10, 21, "Print"], Cell[101537, 2287, 529, 10, 21, "Print"], Cell[102069, 2299, 529, 10, 21, "Print"], Cell[102601, 2311, 529, 10, 21, "Print"], Cell[103133, 2323, 531, 10, 21, "Print"], Cell[103667, 2335, 531, 10, 21, "Print"], Cell[104201, 2347, 526, 10, 21, "Print"], Cell[104730, 2359, 529, 10, 21, "Print"], Cell[105262, 2371, 529, 10, 21, "Print"], Cell[105794, 2383, 531, 10, 21, "Print"], Cell[106328, 2395, 529, 10, 21, "Print"], Cell[106860, 2407, 526, 10, 21, "Print"], Cell[107389, 2419, 526, 10, 21, "Print"], Cell[107918, 2431, 529, 10, 21, "Print"], Cell[108450, 2443, 531, 10, 21, "Print"], Cell[108984, 2455, 529, 10, 21, "Print"], Cell[109516, 2467, 531, 10, 21, "Print"], Cell[110050, 2479, 531, 10, 21, "Print"], Cell[110584, 2491, 528, 10, 21, "Print"], Cell[111115, 2503, 529, 10, 21, "Print"], Cell[111647, 2515, 528, 10, 21, "Print"], Cell[112178, 2527, 533, 10, 21, "Print"], Cell[112714, 2539, 533, 10, 21, "Print"], Cell[113250, 2551, 531, 10, 21, "Print"], Cell[113784, 2563, 533, 10, 21, "Print"], Cell[114320, 2575, 528, 10, 21, "Print"], Cell[114851, 2587, 533, 10, 21, "Print"], Cell[115387, 2599, 533, 10, 21, "Print"], Cell[115923, 2611, 533, 10, 21, "Print"], Cell[116459, 2623, 528, 10, 21, "Print"], Cell[116990, 2635, 528, 10, 21, "Print"], Cell[117521, 2647, 531, 10, 21, "Print"], Cell[118055, 2659, 528, 10, 21, "Print"], Cell[118586, 2671, 533, 10, 21, "Print"], Cell[119122, 2683, 533, 10, 21, "Print"], Cell[119658, 2695, 533, 10, 21, "Print"], Cell[120194, 2707, 533, 10, 21, "Print"], Cell[120730, 2719, 528, 10, 21, "Print"], Cell[121261, 2731, 531, 10, 21, "Print"], Cell[121795, 2743, 528, 10, 21, "Print"], Cell[122326, 2755, 531, 10, 21, "Print"], Cell[122860, 2767, 531, 10, 21, "Print"], Cell[123394, 2779, 531, 10, 21, "Print"], Cell[123928, 2791, 528, 10, 21, "Print"], Cell[124459, 2803, 528, 10, 21, "Print"], Cell[124990, 2815, 531, 10, 21, "Print"], Cell[125524, 2827, 528, 10, 21, "Print"], Cell[126055, 2839, 531, 10, 21, "Print"], Cell[126589, 2851, 526, 10, 21, "Print"], Cell[127118, 2863, 528, 10, 21, "Print"], Cell[127649, 2875, 528, 10, 21, "Print"] }, Open ]] }, Open ]], Cell[128204, 2889, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[130925, 2946, 867, 15, 50, "Input"], Cell[131795, 2963, 4886, 112, 124, "Output"], Cell[136684, 3077, 189, 3, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136910, 3085, 191, 4, 50, InheritFromParent], Cell[137104, 3091, 188, 3, 28, "Output"] }, Open ]], Cell[137307, 3097, 4130, 55, 29, "Input"], Cell[141440, 3154, 10923, 256, 110, "Input"], Cell[152366, 3412, 11241, 261, 110, "Input"], Cell[163610, 3675, 8460, 166, 50, "Input"], Cell[CellGroupData[{ Cell[172095, 3845, 4793, 68, 29, "Input"], Cell[176891, 3915, 30609, 607, 493, "Output"] }, Open ]] } ] *) (* End of internal cache information *)