(* 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[ 229120, 4883] NotebookOptionsPosition[ 223950, 4727] NotebookOutlinePosition[ 224485, 4748] CellTagsIndexPosition[ 224442, 4745] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "experimental", " ", "molecule", " ", "data", " ", "source"}], ",", " ", RowBox[{"ES", " ", "end", " ", "january", " ", "2013"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", "Plot9", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "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}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJw1U1tIVFEUtUkMLCXDzKJMI9QKyZRQMnOrjY/MNNPJF+JzfN3mPaOmPyUS ISUmooYZ9kCEkLAo6cN2GjKEhUkSViJi9iAtQ1Si0u49yw5cDvvcfdZea+19 fPL1KUUqBweHQPlb77C2QnPpjiHc+W1TAtVLn393vw6iJk9HjatLHN1SP1r4 +zGd7u3MLAzTazhu6rx7T0sq8tbFcrCyBjPJKF+/3ZrKyVdadFsGY6hhYNE/ ezKTZ0b2vP/lGsfuPbFT5x0zuFW3pZZTNNTnVfftdGguTybJF0YTeGKv04Xm 6GAGHwMJ3NtZ1DhXE3H4exT53DeVNLqk08thec2WkMgr0bKM0uelLqSA3hs/ uoY0uP+ljJb8sxsG1IUseHRpSKuspTLwnzyLc79SFrwDtcA7bmCBL2XxoPy7 4WIU9O02k+C/qYzEeVQ89JCVzCUyww3JtE8ut+iZj7oBEsmohvB3elLS3HsK eOVN5Vdft0Dw0OpI+e38wAg+YSZStthDkXy9TV7bz5HY27JJgfV/WAxddhNi KRt5VcUk7k+bgBNrYtWBSx7jHZG0WzFmRWLBb3U/z8o21dXrWPBsN5Ii26CW WPB4qse5vQA6T1pZwHUmseC/kgcfDpiRN1+K8554Ev5HVkH3Lj11yF1IaIkC 38Jq+Lo5E3ljBVStFMgxwId+C3Q+K+daftGp/hSP+KcZ+7iVBa6bjZTpqB9O Rr87zST0LBTBXyeJBe5oBfpgLwL/7nLEfyrgj5+Nx18tn5lWn4bfdWbM56n/ 82nBPNit8KHGANyrFtzfJuGd6Kvh/3gGiz4/KQCvxCrEKj1fjsydGVFFo1+B NuhvlkgZ47lZNfJSKunIQ7utf2Ma5mF5bX6sOuxpJtR7XMyKfGmZ4Ns1I97P kJlFn30tZOu/ueNgUTz642FEXe981J0o5WNKwUQrfFvNQ9xYChyDFfpCLCy/ 8smkrSdwrjJinlwjoO+uEe+j10xByjzc1GEuQkws8ueLUTenEvljqSziD/nY j9rW5lbi9ufe903pMfQPSFIfcg== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[25, 24.], 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.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], 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.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{37, 25}, 15.], CylinderBox[{38, 26}, 15.], CylinderBox[{39, 27}, 15.], CylinderBox[{40, 28}, 15.], CylinderBox[{41, 29}, 15.], CylinderBox[{42, 30}, 15.], CylinderBox[{43, 31}, 15.], CylinderBox[{44, 32}, 15.], CylinderBox[{45, 33}, 15.], CylinderBox[{46, 34}, 15.], CylinderBox[{47, 35}, 15.], CylinderBox[{48, 36}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 7}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 8}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 9}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 10}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 11}, 15.], CylinderBox[{6, 12}, 15.], CylinderBox[{7, 13}, 15.], CylinderBox[{7, 14}, 15.], CylinderBox[{8, 15}, 15.], CylinderBox[{8, 16}, 15.], CylinderBox[{9, 17}, 15.], CylinderBox[{9, 18}, 15.], CylinderBox[{10, 19}, 15.], CylinderBox[{10, 20}, 15.], CylinderBox[{11, 21}, 15.], CylinderBox[{11, 22}, 15.], CylinderBox[{12, 23}, 15.], CylinderBox[{12, 24}, 15.], CylinderBox[{13, 15}, 15.], CylinderBox[{13, 37}, 15.], CylinderBox[{14, 17}, 15.], CylinderBox[{14, 38}, 15.], CylinderBox[{15, 39}, 15.], CylinderBox[{16, 19}, 15.], CylinderBox[{16, 40}, 15.], CylinderBox[{17, 41}, 15.], CylinderBox[{18, 21}, 15.], CylinderBox[{18, 42}, 15.], CylinderBox[{19, 43}, 15.], CylinderBox[{20, 23}, 15.], CylinderBox[{20, 44}, 15.], CylinderBox[{21, 45}, 15.], CylinderBox[{22, 24}, 15.], CylinderBox[{22, 46}, 15.], CylinderBox[{23, 47}, 15.], CylinderBox[{24, 48}, 15.]}}]}, Boxed->False, ImageSize->351.70204061894594`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{ 3.568633192308091*^9, 3.568633279871045*^9, {3.568633315610708*^9, 3.568633337294746*^9}, 3.568633506617443*^9, 3.568633546662714*^9, 3.5686336091252236`*^9, 3.5693010441798325`*^9, 3.56930113942228*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "t", "]"}]}], "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.569301026636829*^9, 3.569301034772294*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"2.451919485`", "1.0422783753`", "0.35562753593999996`"}, {"0.9089960005199998`", "1.88175135628`", RowBox[{"-", "1.69580231788`"}]}, {"1.5565673062`", RowBox[{"-", "0.86951962438`"}], "2.022951683`"}, { RowBox[{"-", "1.5568507651`"}], "0.86027886424`", RowBox[{"-", "2.0312664774`"}]}, { RowBox[{"-", "0.9092794594199999`"}], RowBox[{"-", "1.8910488081999999`"}], "1.68739303718`"}, { RowBox[{"-", "2.4521084575999996`"}], RowBox[{"-", "1.05151913544`"}], RowBox[{"-", "0.36403681664`"}]}, {"4.90383897`", "2.0890920929999997`", "0.7154691608599999`"}, {"1.81814317912`", "3.768113644`", RowBox[{"-", "3.3873338549999996`"}]}, {"3.0643796815999997`", RowBox[{"-", "1.72161597504`"}], "4.067635215`"}, { RowBox[{"-", "3.0647576268`"}], "1.7123752148999998`", RowBox[{"-", "4.076138982`"}]}, { RowBox[{"-", "1.8045938437`"}], RowBox[{"-", "3.8026956297999996`"}], "3.3546415952`"}, { RowBox[{"-", "4.918011915`"}], RowBox[{"-", "2.073029422`"}], RowBox[{"-", "0.6995765652`"}]}, {"5.781616697`", "3.9380000113999993`", RowBox[{"-", "0.9546895752`"}]}, {"6.425635317799999`", "1.21163561942`", "2.7359453028`"}, {"4.2600093218`", "4.815399793199999`", RowBox[{"-", "2.9751846144`"}]}, {"0.30362227642`", "4.595813632`", RowBox[{"-", "5.3515150594`"}]}, {"5.5128976598`", RowBox[{"-", "0.6497822850999999`"}], "4.399282128`"}, {"2.161846544`", RowBox[{"-", "3.5834874138`"}], "5.67862663`"}, { RowBox[{"-", "2.1484294894`"}], "3.548905428`", RowBox[{"-", "5.7113188898`"}]}, { RowBox[{"-", "5.5270706048000005`"}], "0.66595833966`", RowBox[{"-", "4.3834084296`"}]}, { RowBox[{"-", "0.25509411274`"}], RowBox[{"-", "4.6177344536`"}], "5.3254368406`"}, { RowBox[{"-", "4.273993294199999`"}], RowBox[{"-", "4.7993371222`"}], "2.9910583128`"}, { RowBox[{"-", "6.439808262799999`"}], RowBox[{"-", "1.1954406676`"}], RowBox[{"-", "2.7200716043999997`"}]}, { RowBox[{"-", "5.795789642`"}], RowBox[{"-", "3.9217483678`"}], "0.9705632735999999`"}, {"7.635815848199999`", "4.7040949318`", RowBox[{"-", "0.70263792132`"}]}, {"8.281724194999999`", "1.970039355`", "2.9982392715999997`"}, {"4.9497593118`", "6.272000594`", RowBox[{"-", "4.196136583`"}]}, {"0.97885917074`", "6.030115666`", RowBox[{"-", "6.606482096`"}]}, {"6.6728114786`", RowBox[{"-", "1.2698202829599998`"}], "5.935062448199999`"}, {"3.3185478286000003`", RowBox[{"-", "4.2365767193999995`"}], "7.2032575668`"}, { RowBox[{"-", "3.2934144728`"}], "4.1817746654`", RowBox[{"-", "7.2529573606`"}]}, { RowBox[{"-", "6.6987007248`"}], "1.30564948792`", RowBox[{"-", "5.9021812158`"}]}, { RowBox[{"-", "0.91872808942`"}], RowBox[{"-", "6.052414432799999`"}], "6.5864510004`"}, { RowBox[{"-", "4.984719242799999`"}], RowBox[{"-", "6.2158757318`"}], "4.2469702124`"}, { RowBox[{"-", "8.295708167399999`"}], RowBox[{"-", "1.953976684`"}], RowBox[{"-", "2.9823655731999996`"}]}, { RowBox[{"-", "7.6499887931999995`"}], RowBox[{"-", "4.6878432882`"}], "0.7185116197199999`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5693010442348356`*^9, 3.5693011394602823`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bt", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "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.5678693210962543`*^9, { 3.567869354027912*^9, 3.5678693684423375`*^9}, {3.5682782542610955`*^9, 3.5682782564138994`*^9}, 3.568284752702606*^9, 3.568284795821082*^9, 3.568566526821499*^9, 3.568615530519183*^9, {3.5686196140291557`*^9, 3.568619615745158*^9}, 3.568628204107724*^9, 3.568631432625001*^9, 3.568632298270521*^9, 3.5686331643684425`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "2"}], "}"}], ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "12"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5686331923704915`*^9, 3.568633279933445*^9, {3.568633315673108*^9, 3.568633337341546*^9}, 3.568633506679844*^9, 3.568633546725114*^9, 3.5686336092032237`*^9, 3.5693010442488365`*^9, 3.5693011394882836`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "2"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}]], "Input", CellChangeTimes->{{3.56863187076737*^9, 3.5686320183124294`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "2"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5686331923860917`*^9, 3.568633279949045*^9, {3.5686333156887083`*^9, 3.5686333373571463`*^9}, 3.5686335066954436`*^9, 3.568633546740714*^9, 3.5686336092188234`*^9, 3.5693010442608366`*^9, 3.5693011395042844`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}], "\[IndentingNewLine]", 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5686331924016914`*^9, 3.5686332799802456`*^9, {3.5686333157199078`*^9, 3.5686333373727465`*^9}, 3.5686335067110434`*^9, 3.568633546771914*^9, 3.5686336092344236`*^9, 3.569301044278838*^9, 3.5693011395202856`*^9}] }, Open ]], 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}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"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\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5686331924172916`*^9, 3.5686332799958453`*^9, {3.568633315735508*^9, 3.568633337388346*^9}, 3.568633506742244*^9, 3.5686335467875137`*^9, 3.568633609250024*^9, 3.5693010442888384`*^9, 3.5693011395362864`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"n", "=", RowBox[{"Length", "[", "u", "]"}]}]}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9}], Cell[BoxData["36"], "Output", CellChangeTimes->{ 3.568633192432892*^9, 3.568633280011445*^9, {3.568633315751108*^9, 3.568633337403946*^9}, 3.5686335067578435`*^9, 3.568633546803114*^9, 3.5686336092812233`*^9, 3.569301044301839*^9, 3.5693011395542874`*^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["24"], "Output", CellChangeTimes->{ 3.5686331924484916`*^9, 3.5686332800270452`*^9, {3.5686333157667084`*^9, 3.568633337419546*^9}, 3.5686335067734437`*^9, 3.568633546818714*^9, 3.5686336092968235`*^9, 3.5693010443108397`*^9, 3.5693011395692883`*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.5686331924484916`*^9, 3.5686332800270452`*^9, {3.5686333157667084`*^9, 3.568633337419546*^9}, 3.5686335067734437`*^9, 3.568633546818714*^9, 3.5686336092968235`*^9, 3.5693010443108397`*^9, 3.569301139575289*^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}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.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`"}], "}"}]], "Output", CellChangeTimes->{ 3.5686331924640913`*^9, 3.5686332800582457`*^9, {3.5686333157979083`*^9, 3.5686333374507465`*^9}, 3.5686335068046436`*^9, 3.568633546849914*^9, 3.568633609328024*^9, 3.5693010443338413`*^9, 3.5693011396002903`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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.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`"}], "}"}]], "Output", CellChangeTimes->{ 3.5686331924640913`*^9, 3.5686332800582457`*^9, {3.5686333157979083`*^9, 3.5686333374507465`*^9}, 3.5686335068046436`*^9, 3.568633546849914*^9, 3.568633609328024*^9, 3.5693010443338413`*^9, 3.5693011396052904`*^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}], Cell[BoxData["\<\"C24H12\"\>"], "Output", CellChangeTimes->{ 3.5686331924796915`*^9, 3.5686332800894456`*^9, {3.568633315829108*^9, 3.5686333374663467`*^9}, 3.568633506835844*^9, 3.568633546865514*^9, 3.5686336093592243`*^9, 3.569301044345842*^9, 3.569301139621291*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"v", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, 3.568284752733806*^9, 3.568284795899082*^9, 3.568566526852699*^9, 3.5686155305347834`*^9, 3.5686282041389246`*^9, 3.5686314326406007`*^9, 3.5686322982861214`*^9, 3.5686331643996425`*^9}], 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[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"Axes", "\[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}, {3.5693011003410444`*^9, 3.5693011318678474`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.451919485, 1.0422783753, 0.35562753593999996`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9089960005199998, 1.88175135628, -1.69580231788}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.5565673062, -0.86951962438, 2.022951683}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.5568507651, 0.86027886424, -2.0312664774}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.9092794594199999, -1.8910488081999999`, 1.68739303718}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.4521084575999996`, -1.05151913544, -0.36403681664}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.90383897, 2.0890920929999997`, 0.7154691608599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.81814317912, 3.768113644, -3.3873338549999996`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0643796815999997`, -1.72161597504, 4.067635215}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0647576268, 1.7123752148999998`, -4.076138982}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.8045938437, -3.8026956297999996`, 3.3546415952}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.918011915, -2.073029422, -0.6995765652}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.781616697, 3.9380000113999993`, -0.9546895752}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.425635317799999, 1.21163561942, 2.7359453028}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2600093218, 4.815399793199999, -2.9751846144}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.30362227642, 4.595813632, -5.3515150594}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.5128976598, -0.6497822850999999, 4.399282128}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.161846544, -3.5834874138, 5.67862663}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.1484294894, 3.548905428, -5.7113188898}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.5270706048000005`, 0.66595833966, -4.3834084296}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.25509411274, -4.6177344536, 5.3254368406}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.273993294199999, -4.7993371222, 2.9910583128}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.439808262799999, -1.1954406676, -2.7200716043999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.795789642, -3.9217483678, 0.9705632735999999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.635815848199999, 4.7040949318, -0.70263792132}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.281724194999999, 1.970039355, 2.9982392715999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.9497593118, 6.272000594, -4.196136583}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.97885917074, 6.030115666, -6.606482096}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.6728114786, -1.2698202829599998`, 5.935062448199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.3185478286000003`, -4.2365767193999995`, 7.2032575668}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.2934144728, 4.1817746654, -7.2529573606}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.6987007248, 1.30564948792, -5.9021812158}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.91872808942, -6.052414432799999, 6.5864510004}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.984719242799999, -6.2158757318, 4.2469702124}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.295708167399999, -1.953976684, -2.9823655731999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.6499887931999995`, -4.6878432882, 0.7185116197199999}, 0.1]}, Text3DBox["1", {1.951919485, 1.0422783753, 0.35562753593999996`}, {1, 0}], Text3DBox["2", {0.40899600051999985`, 1.88175135628, -1.69580231788}, {1, 0}], Text3DBox["3", {1.0565673062, -0.86951962438, 2.022951683}, {1, 0}], Text3DBox["4", {-2.0568507651, 0.86027886424, -2.0312664774}, {1, 0}], Text3DBox["5", {-1.40927945942, -1.8910488081999999`, 1.68739303718}, {1, 0}], Text3DBox[ "6", {-2.9521084575999996`, -1.05151913544, -0.36403681664}, {1, 0}], Text3DBox["7", {4.40383897, 2.0890920929999997`, 0.7154691608599999}, {1, 0}], Text3DBox["8", {1.31814317912, 3.768113644, -3.3873338549999996`}, { 1, 0}], Text3DBox["9", {2.5643796815999997`, -1.72161597504, 4.067635215}, {1, 0}], Text3DBox["10", {-3.5647576268, 1.7123752148999998`, -4.076138982}, {1, 0}], Text3DBox["11", {-2.3045938437, -3.8026956297999996`, 3.3546415952}, {1, 0}], Text3DBox["12", {-5.418011915, -2.073029422, -0.6995765652}, {1, 0}], Text3DBox["13", {5.281616697, 3.9380000113999993`, -0.9546895752}, {1, 0}], Text3DBox["14", {5.925635317799999, 1.21163561942, 2.7359453028}, {1, 0}], Text3DBox["15", {3.7600093218, 4.815399793199999, -2.9751846144}, {1, 0}], Text3DBox["16", {-0.19637772358, 4.595813632, -5.3515150594}, {1, 0}], Text3DBox["17", {5.0128976598, -0.6497822850999999, 4.399282128}, {1, 0}], Text3DBox["18", {1.6618465439999999`, -3.5834874138, 5.67862663}, {1, 0}], Text3DBox["19", {-2.6484294894, 3.548905428, -5.7113188898}, {1, 0}], Text3DBox["20", {-6.0270706048000005`, 0.66595833966, -4.3834084296}, {1, 0}], Text3DBox["21", {-0.7550941127399999, -4.6177344536, 5.3254368406}, { 1, 0}], Text3DBox["22", {-4.773993294199999, -4.7993371222, 2.9910583128}, {1, 0}], Text3DBox[ "23", {-6.939808262799999, -1.1954406676, -2.7200716043999997`}, {1, 0}], Text3DBox["24", {-6.295789642, -3.9217483678, 0.9705632735999999}, {1, 0}], Text3DBox["25", {7.135815848199999, 4.7040949318, -0.70263792132}, {1, 0}], Text3DBox["26", {7.781724194999999, 1.970039355, 2.9982392715999997`}, {1, 0}], Text3DBox["27", {4.4497593118, 6.272000594, -4.196136583}, {1, 0}], Text3DBox["28", {0.47885917073999995`, 6.030115666, -6.606482096}, {1, 0}], Text3DBox["29", {6.1728114786, -1.2698202829599998`, 5.935062448199999}, { 1, 0}], Text3DBox["30", {2.8185478286000003`, -4.2365767193999995`, 7.2032575668}, {1, 0}], Text3DBox["31", {-3.7934144728, 4.1817746654, -7.2529573606}, {1, 0}], Text3DBox["32", {-7.1987007248, 1.30564948792, -5.9021812158}, {1, 0}], Text3DBox["33", {-1.41872808942, -6.052414432799999, 6.5864510004}, {1, 0}], Text3DBox["34", {-5.484719242799999, -6.2158757318, 4.2469702124}, { 1, 0}], Text3DBox[ "35", {-8.795708167399999, -1.953976684, -2.9823655731999996`}, {1, 0}], Text3DBox["36", {-8.149988793199999, -4.6878432882, 0.7185116197199999}, { 1, 0}]}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, ImageSize->{375.5293628058438, 372.6552397983855}, ViewPoint->{0.9914206477452684, -2.5428199420498108`, 2.000287939657225}, ViewVertical->{0.040347818687662115`, 0.02046198338468288, 1.1709354109304784`}]], "Output", CellChangeTimes->{ 3.568633192526492*^9, 3.5686332801362457`*^9, {3.5686333158603086`*^9, 3.5686333375131464`*^9}, 3.5686335068826437`*^9, 3.5686335469123144`*^9, 3.568633609390424*^9, 3.569301044387844*^9, 3.569301139659293*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.568284752733806*^9, 3.568284795914682*^9, 3.568566526852699*^9, 3.5686155305347834`*^9, 3.5686282041389246`*^9, 3.5686314326406007`*^9, 3.5686322982861214`*^9, 3.5686331643996425`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, 100.}], LineBox[{{484.3526685273913, 89.75137482542937}, {509.90500000000003`, 75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, 50.}], LineBox[{{509.90500000000003`, 75.}, {535.4573314726088, 60.248625174570634`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, 100.}], LineBox[{{448.84784390422715`, 89.75048724262537}, {423.3, 75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., 50.}], LineBox[{{423.3, 75.}, {397.7521560957729, 60.24951275737463}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, 100.}], LineBox[{{{461.0776286632731, 120.41615607506878`}, {460.5925000000001, 151.995}}, {{471.4926286632731, 120.57615607506878`}, { 471.00750000000005`, 152.15499999999997`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, 204.15}], LineBox[{{{460.5925000000001, 151.995}, {460.107371336727, 183.57384392493123`}}, {{471.00750000000005`, 152.15499999999997`}, { 470.52237133672696`, 183.73384392493125`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, 50.}], LineBox[{{553.21, 29.501425468772936`}, {553.21, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, -50.}], LineBox[{{553.21, 0.}, {553.21, -29.501425468772936`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, 50.}], LineBox[{{{568.5845714556496, 64.52369671837711}, {596.176, 79.89}}, {{ 573.6525714556495, 55.423696718377116`}, {601.244, 70.79}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {644.21, 100.67999999999999`}], LineBox[{{{596.176, 79.89}, {623.7674285443505, 95.25630328162288}}, {{ 601.244, 70.79}, {628.8354285443505, 86.15630328162288}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., 50.}], LineBox[{{380., 29.501425468772936`}, {380., 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., -50.}], LineBox[{{380., 0.}, {380., -29.501425468772936`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., 50.}], LineBox[{{{359.5574285443505, 55.423696718377116`}, {331.966, 70.79}}, {{ 364.6254285443505, 64.52369671837711}, {337.034, 79.89}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {289., 100.67999999999999`}], LineBox[{{{331.966, 70.79}, {304.3745714556495, 86.15630328162288}}, {{ 337.034, 79.89}, {309.4425714556495, 95.25630328162288}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, -50.}], LineBox[{{535.4573314726088, -60.248625174570634`}, { 509.90500000000003`, -75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, -100.}], LineBox[{{509.90500000000003`, -75.}, { 484.3526685273913, -89.75137482542937}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {553.21, -50.}], LineBox[{{{573.4751054061378, -56.053188679563576`}, { 600.5785, -72.2655}}, {{568.1281054061378, -64.99218867956357}, { 595.2315, -81.2045}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {642.6, -103.47}], LineBox[{{{600.5785, -72.2655}, { 627.6818945938622, -88.47781132043644}}, {{595.2315, -81.2045}, { 622.3348945938623, -97.41681132043644}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., -50.}], LineBox[{{397.7521560957729, -60.24951275737463}, {423.3, -75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, -100.}], LineBox[{{423.3, -75.}, {448.84784390422715`, -89.75048724262537}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {380., -50.}], LineBox[{{{365.0818945938622, -64.99218867956355}, { 337.9785, -81.2045}}, {{359.73489459386224`, -56.05318867956356}, { 332.6315, -72.2655}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {290.61, -103.47}], LineBox[{{{337.9785, -81.2045}, { 310.8751054061378, -97.41681132043644}}, {{332.6315, -72.2655}, { 305.5281054061378, -88.47781132043644}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {466.6, -100.}], LineBox[{{{471.4926286632731, -120.57615607506878`}, { 471.00750000000005`, -152.15499999999997`}}, {{ 461.0776286632731, -120.41615607506878`}, { 460.5925000000001, -151.995}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, -204.15}], LineBox[{{{471.00750000000005`, -152.15499999999997`}, { 470.52237133672696`, -183.73384392493125`}}, {{ 460.5925000000001, -151.995}, { 460.107371336727, -183.57384392493123`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, 204.15}], LineBox[{{482.67216525686854`, 214.53682496946016`}, {509.9, 230.54000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, 256.93}], LineBox[{{509.9, 230.54000000000002`}, {537.1278347431314, 246.54317503053989`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, 204.15}], LineBox[{{447.4967082539026, 214.81894258412086`}, {421.70500000000004`, 230.54000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, 256.93}], LineBox[{{421.70500000000004`, 230.54000000000002`}, {395.9132917460975, 246.26105741587918`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {644.21, 100.67999999999999`}], LineBox[{{644.3674344850463, 121.17796995302677`}, {644.61, 152.76}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, 204.84}], LineBox[{{644.61, 152.76}, {644.8525655149538, 184.3420300469732}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {644.21, 100.67999999999999`}], LineBox[{{662.2009706367174, 90.85571715792734}, {688.71, 76.38}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, 52.080000000000005`}], LineBox[{{688.71, 76.38}, {715.2190293632825, 61.90428284207267}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {289., 100.67999999999999`}], LineBox[{{288.8425655149537, 121.17796995302677`}, {288.6, 152.76}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, 204.84}], LineBox[{{288.6, 152.76}, {288.35743448504627`, 184.3420300469732}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {289., 100.67999999999999`}], LineBox[{{271.0090293632826, 90.85571715792734}, {244.5, 76.38}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., 52.080000000000005`}], LineBox[{{244.5, 76.38}, {217.9909706367174, 61.904282842072654`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {642.6, -103.47}], LineBox[{{660.430471383926, -93.35734218717624}, {687.905, -77.775}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, -52.080000000000005`}], LineBox[{{687.905, -77.775}, { 715.3795286160739, -62.19265781282376}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {642.6, -103.47}], LineBox[{{643.087201432717, -123.96278391474007`}, { 643.8050000000001, -154.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, -204.84}], LineBox[{{643.8050000000001, -154.155}, { 644.522798567283, -184.34721608525993`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {290.61, -103.47}], LineBox[{{272.77952861607395`, -93.35734218717626}, {245.305, -77.775}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., -52.080000000000005`}], LineBox[{{245.305, -77.775}, { 217.83047138392604`, -62.192657812823754`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {290.61, -103.47}], LineBox[{{290.122798567283, -123.96278391474007`}, {289.405, -154.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, -204.84}], LineBox[{{289.405, -154.155}, { 288.687201432717, -184.34721608525993`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, -204.15}], LineBox[{{482.67216525686854`, -214.53682496946016`}, { 509.9, -230.54000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, -256.93}], LineBox[{{509.9, -230.54000000000002`}, { 537.1278347431314, -246.54317503053989`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {465.00000000000006`, -204.15}], LineBox[{{447.4967082539026, -214.81894258412086`}, { 421.70500000000004`, -230.54000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, -256.93}], LineBox[{{421.70500000000004`, -230.54000000000002`}, { 395.9132917460975, -246.26105741587918`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, 256.93}], LineBox[{{{575.15617000382, 251.19014537746386`}, {602.5095, 235.3955}}, {{569.9471700038199, 242.16914537746388`}, { 597.3004999999999, 226.37449999999998`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, 204.84}], LineBox[{{{602.5095, 235.3955}, {629.86282999618, 219.60085462253613`}}, {{597.3004999999999, 226.37449999999998`}, { 624.65382999618, 210.57985462253612`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, 256.93}], LineBox[{{554.720651273728, 277.4284209536225}, {554.6800000000001, 287.93}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.5600000000001, 318.93}], LineBox[{{554.6800000000001, 287.93}, {554.6393487262721, 298.4315790463775}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, 256.93}], LineBox[{{{363.26282999618, 242.16914537746388`}, {335.9095, 226.37449999999998`}}, {{358.05382999618, 251.19014537746386`}, { 330.70050000000003`, 235.3955}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, 204.84}], LineBox[{{{335.9095, 226.37449999999998`}, {308.55617000382, 210.57985462253612`}}, {{330.70050000000003`, 235.3955}, { 303.34717000382005`, 219.60085462253613`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, 256.93}], LineBox[{{378.65137638235126`, 277.42715334514315`}, {378.775, 287.925}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {379.14, 318.92}], LineBox[{{378.775, 287.925}, {378.8986236176487, 298.42284665485687`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, 204.84}], LineBox[{{662.8004177405209, 215.02295607522845`}, {671.915, 220.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {698.82, 235.64}], LineBox[{{671.915, 220.24}, {681.0295822594792, 225.4570439247716}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, 52.080000000000005`}], LineBox[{{{738.4179999999999, 31.58142546877294}, {738.4179999999999, 0.}}, {{728.002, 31.58142546877294}, {728.002, 0.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, -52.080000000000005`}], LineBox[{{{738.4179999999999, 0.}, { 738.4179999999999, -31.58142546877294}}, {{728.002, 0.}, { 728.002, -31.58142546877294}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, 52.080000000000005`}], LineBox[{{750.8385172836978, 62.54073306181918}, {759.87, 67.9}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {786.5300000000001, 83.72}], LineBox[{{759.87, 67.9}, {768.9014827163022, 73.25926693818083}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, 204.84}], LineBox[{{270.4095822594791, 215.02295607522845`}, {261.295, 220.24}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {234.39000000000001`, 235.64}], LineBox[{{261.295, 220.24}, {252.18041774052088`, 225.45704392477157`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., 52.080000000000005`}], LineBox[{{{205.208, 31.58142546877294}, {205.208, 0.}}, {{194.792, 31.58142546877294}, {194.792, 0.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., -52.080000000000005`}], LineBox[{{{205.208, 0.}, {205.208, -31.58142546877294}}, {{194.792, 0.}, {194.792, -31.58142546877294}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., 52.080000000000005`}], LineBox[{{182.37148271630215`, 62.54073306181921}, {173.34, 67.9}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {146.68, 83.72}], LineBox[{{173.34, 67.9}, {164.30851728369785`, 73.2592669381808}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {733.2099999999999, -52.080000000000005`}], LineBox[{{750.921869676928, -62.39897428816369}, { 759.9949999999999, -67.685}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {786.78, -83.28999999999999}], LineBox[{{759.9949999999999, -67.685}, { 769.0681303230717, -72.97102571183635}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, -204.84}], LineBox[{{{629.86282999618, -219.60085462253613`}, { 602.5095, -235.3955}}, {{624.65382999618, -210.57985462253612`}, { 597.3004999999999, -226.37449999999998`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, -256.93}], LineBox[{{{602.5095, -235.3955}, { 575.15617000382, -251.19014537746386`}}, {{ 597.3004999999999, -226.37449999999998`}, { 569.9471700038199, -242.16914537746388`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {645.01, -204.84}], LineBox[{{662.8829388654887, -214.8774107280103}, { 672.04, -220.01999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {699.07, -235.2}], LineBox[{{672.04, -220.01999999999998`}, { 681.1970611345114, -225.16258927198973`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {200., -52.080000000000005`}], LineBox[{{182.2881303230718, -62.398974288163686`}, {173.215, -67.685}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {146.43, -83.28999999999999}], LineBox[{{173.215, -67.685}, { 164.1418696769282, -72.97102571183632}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, -204.84}], LineBox[{{{308.55617000382, -210.57985462253612`}, { 335.9095, -226.37449999999998`}}, {{ 303.34717000382005`, -219.60085462253613`}, { 330.70050000000003`, -235.3955}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, -256.93}], LineBox[{{{335.9095, -226.37449999999998`}, { 363.26282999618, -242.16914537746388`}}, {{ 330.70050000000003`, -235.3955}, { 358.05382999618, -251.19014537746386`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {288.2, -204.84}], LineBox[{{270.3270611345113, -214.8774107280103}, { 261.17, -220.01999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {234.14000000000001`, -235.2}], LineBox[{{261.17, -220.01999999999998`}, { 252.01293886548868`, -225.1625892719897}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.8, -256.93}], LineBox[{{554.720651273728, -277.4284209536225}, { 554.6800000000001, -287.93}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {554.5600000000001, -318.93}], LineBox[{{554.6800000000001, -287.93}, { 554.6393487262721, -298.4315790463775}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {378.41, -256.93}], LineBox[{{378.65137638235126`, -277.42715334514315`}, { 378.775, -287.925}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.04566657836362208], FontWeight->Plain], {379.14, -318.92}], LineBox[{{378.775, -287.925}, { 378.8986236176487, -298.42284665485687`}}]}}}, {}, {}}, ImageSize->{{0., 218.97852561614255`}, {0., 223.28021504971883`}}, PlotRange->{{127.21950000000001`, 805.9905}, {-349.92714906245413`, 342.1778617968406}}]], "Output", CellChangeTimes->{ 3.568633192620092*^9, 3.568633280229846*^9, {3.5686333159695086`*^9, 3.568633337622347*^9}, 3.568633506976244*^9, 3.5686335470059147`*^9, 3.5686336094996243`*^9, 3.5693010444958506`*^9, 3.569301139794301*^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[CellGroupData[{ 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[{"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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.7006836560210634`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.6900923640335686`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.6900450787738635`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.6900783909951627`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.6900023548835006`", "2.7006472991143364`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.690207076697373`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.6918748510954447`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.679607638489164`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.6798050030625564`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.689925495520615`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.690120824355084`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.641663194348788`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>"}, {"0", "0", "0", "0", "0", "0", "2.677334089603614`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.688751668265447`", "0", "0", "0", "0", "2.677222363719071`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.614740644608688`", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.6933357427846687`", "0", "0", "0", "0", "2.657942068906952`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.622293778000481`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.624178692447011`", "0", "0", "0", "0", "0", "2.6903593526207605`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6930258060112764`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.636147112707796`", "0", "0", "0", "0", "0", "0", "2.6525482285670625`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6876422220496083`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.677391706392355`", "0", "0", "0", "0", "0", "0", "0", "2.6579288347557863`", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.641518987197336`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6773917063923562`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022000483579845`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022137550285862`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021921029917939`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219073794662417`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219961369268358`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221233880087595`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219206855139786`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220268740437453`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022096290718501`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221344431213644`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220137166050893`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220004835798444`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.568633192666892*^9, 3.5686332802766457`*^9, {3.5686333160007086`*^9, 3.568633337653547*^9}, 3.568633507023044*^9, 3.5686335470527143`*^9, 3.568633609546424*^9, 3.5693010445238523`*^9, 3.569301139832303*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Eij", "=", 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"}]}], ",", RowBox[{"0.529177", "*", "sq"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Eij", "]"}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.5679574512554846`*^9, 3.5679574566530943`*^9}, { 3.5679575983637433`*^9, 3.5679576252893906`*^9}, {3.5679577071427345`*^9, 3.5679577424611964`*^9}, 3.567958973147358*^9, {3.5679591782097178`*^9, 3.56795917902092*^9}, {3.567959225290601*^9, 3.567959254322252*^9}, { 3.5682778318055534`*^9, 3.568277834176758*^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["903.0189827579543`"], "Output", CellChangeTimes->{ 3.5686331927136917`*^9, 3.568633280307846*^9, {3.5686333160475087`*^9, 3.5686333376847467`*^9}, 3.568633507054244*^9, 3.5686335470839148`*^9, 3.5686336095776243`*^9, 3.5693010445668545`*^9, 3.569301139875306*^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[CellGroupData[{ Cell[BoxData[ 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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"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\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0947418280105319`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0894461820167844`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.089422539386932`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.0894391954975815`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0894011774417505`", "1.0947236495571684`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "1.0895035383486866`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0903374255477225`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.0842038192445822`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.0843025015312784`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "1.0893627477603076`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "1.0894604121775422`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0652315971743942`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0830670448018072`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.0887758341327236`", "0", "0", "0", "0", "1.0830111818595356`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.0517703223043442`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.0910678713923345`", "0", "0", "0", "0", "1.0733710344534761`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.0555468890002406`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0564893462235057`", "0", "0", "0", "0", "0", "1.0895796763103804`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0909129030056384`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.062473556353898`", "0", "0", "0", "0", "0", "0", "1.0706741142835314`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0882211110248043`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0830958531961776`", "0", "0", "0", "0", "0", "0", "0", "1.0733644173778933`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0651594935986681`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0830958531961783`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024004835798447`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.202537550285862`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.202321029917939`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023073794662416`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023961369268357`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2025233880087594`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2023206855139785`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024268740437452`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.202496290718501`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2025344431213643`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024137166050892`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2024004835798443`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.568633192744892*^9, 3.568633280339046*^9, {3.5686333160631084`*^9, 3.568633337715947*^9}, 3.5686335070698442`*^9, 3.5686335471151147`*^9, 3.5686336095932245`*^9, 3.569301044582855*^9, 3.5693011398953066`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "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.5681133837179556`*^9, 3.5681133888191648`*^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]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0947418280105319`"}], SequenceForm["C", 2, " ", "C", 1, " ", 1.0947418280105319`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399223084`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0894461820167844`"}], SequenceForm["C", 3, " ", "C", 1, " ", 1.0894461820167844`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399233084`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.089422539386932`"}], SequenceForm["C", 4, " ", "C", 2, " ", 1.089422539386932], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399263086`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0894391954975815`"}], SequenceForm["C", 5, " ", "C", 3, " ", 1.0894391954975815`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399283085`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0894011774417505`"}], SequenceForm["C", 6, " ", "C", 4, " ", 1.0894011774417505`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139930309*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0947236495571684`"}], SequenceForm["C", 6, " ", "C", 5, " ", 1.0947236495571684`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139934309*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0895035383486866`"}], SequenceForm["C", 7, " ", "C", 1, " ", 1.0895035383486866`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139936309*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0903374255477225`"}], SequenceForm["C", 8, " ", "C", 2, " ", 1.0903374255477225`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399383097`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0842038192445822`"}], SequenceForm["C", 9, " ", "C", 3, " ", 1.0842038192445822`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399403095`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0843025015312784`"}], SequenceForm["C", 10, " ", "C", 4, " ", 1.0843025015312784`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399423094`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0893627477603076`"}], SequenceForm["C", 11, " ", "C", 5, " ", 1.0893627477603076`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399443097`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0894604121775422`"}], SequenceForm["C", 12, " ", "C", 6, " ", 1.0894604121775422`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.56930113994631*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0652315971743942`"}], SequenceForm["C", 13, " ", "C", 7, " ", 1.0652315971743942`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.56930113994831*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0830670448018072`"}], SequenceForm["C", 14, " ", "C", 7, " ", 1.0830670448018072`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.56930113995131*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0887758341327236`"}], SequenceForm["C", 15, " ", "C", 8, " ", 1.0887758341327236`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.56930113995331*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0830111818595356`"}], SequenceForm["C", 15, " ", "C", 13, " ", 1.0830111818595356`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.56930113995831*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0517703223043442`"}], SequenceForm["C", 16, " ", "C", 8, " ", 1.0517703223043442`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139967311*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0910678713923345`"}], SequenceForm["C", 17, " ", "C", 9, " ", 1.0910678713923345`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399733114`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0733710344534761`"}], SequenceForm["C", 17, " ", "C", 14, " ", 1.0733710344534761`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399763117`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0555468890002406`"}], SequenceForm["C", 18, " ", "C", 9, " ", 1.0555468890002406`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399783115`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0564893462235057`"}], SequenceForm["C", 19, " ", "C", 10, " ", 1.0564893462235057`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139980312*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0895796763103804`"}], SequenceForm["C", 19, " ", "C", 16, " ", 1.0895796763103804`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139985312*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0909129030056384`"}], SequenceForm["C", 20, " ", "C", 10, " ", 1.0909129030056384`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399873123`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.062473556353898`"}], SequenceForm["C", 21, " ", "C", 11, " ", 1.062473556353898], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301139989312*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0706741142835314`"}], SequenceForm["C", 21, " ", "C", 18, " ", 1.0706741142835314`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399913125`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0882211110248043`"}], SequenceForm["C", 22, " ", "C", 11, " ", 1.0882211110248043`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399933124`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0830958531961776`"}], SequenceForm["C", 23, " ", "C", 12, " ", 1.0830958531961776`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399953127`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0733644173778933`"}], SequenceForm["C", 23, " ", "C", 20, " ", 1.0733644173778933`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011399973125`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0651594935986681`"}], SequenceForm["C", 24, " ", "C", 12, " ", 1.0651594935986681`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140000313*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0830958531961783`"}], SequenceForm["C", 24, " ", "C", 22, " ", 1.0830958531961783`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400023127`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024004835798447`"}], SequenceForm["H", 25, " ", "C", 13, " ", 1.2024004835798447`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400043135`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "26", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202537550285862`"}], SequenceForm["H", 26, " ", "C", 14, " ", 1.202537550285862], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400063133`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "27", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202321029917939`"}], SequenceForm["H", 27, " ", "C", 15, " ", 1.202321029917939], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140008313*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "28", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023073794662416`"}], SequenceForm["H", 28, " ", "C", 16, " ", 1.2023073794662416`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400103135`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "29", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023961369268357`"}], SequenceForm["H", 29, " ", "C", 17, " ", 1.2023961369268357`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140012314*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2025233880087594`"}], SequenceForm["H", 30, " ", "C", 18, " ", 1.2025233880087594`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400143137`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "31", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2023206855139785`"}], SequenceForm["H", 31, " ", "C", 19, " ", 1.2023206855139785`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140018314*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "32", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024268740437452`"}], SequenceForm["H", 32, " ", "C", 20, " ", 1.2024268740437452`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140020314*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "33", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.202496290718501`"}], SequenceForm["H", 33, " ", "C", 21, " ", 1.202496290718501], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.569301140022314*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "34", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2025344431213643`"}], SequenceForm["H", 34, " ", "C", 22, " ", 1.2025344431213643`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400243144`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "35", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024137166050892`"}], SequenceForm["H", 35, " ", "C", 23, " ", 1.2024137166050892`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400263147`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "36", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2024004835798443`"}], SequenceForm["H", 36, " ", "C", 24, " ", 1.2024004835798443`], Editable->False]], "Print", CellChangeTimes->{ 3.5686331927604923`*^9, 3.5686332803546457`*^9, {3.568633316094309*^9, 3.568633337731547*^9}, 3.5686335071010447`*^9, 3.5686335471307144`*^9, 3.5686336096244245`*^9, 3.5693010446028566`*^9, 3.5693011400283146`*^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[{"2", ",", "1", ",", "1.0947418280105319`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.0894461820167844`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.089422539386932`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.0894391954975815`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.0894011774417505`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.0947236495571684`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.0895035383486866`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.0903374255477225`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.0842038192445822`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.0843025015312784`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.0893627477603076`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "1.0894604121775422`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "1.0652315971743942`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "7", ",", "1.0830670448018072`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "8", ",", "1.0887758341327236`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "13", ",", "1.0830111818595356`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "8", ",", "1.0517703223043442`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "9", ",", "1.0910678713923345`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "14", ",", "1.0733710344534761`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "9", ",", "1.0555468890002406`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "10", ",", "1.0564893462235057`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "16", ",", "1.0895796763103804`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10", ",", "1.0909129030056384`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "11", ",", "1.062473556353898`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "18", ",", "1.0706741142835314`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "11", ",", "1.0882211110248043`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "12", ",", "1.0830958531961776`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "20", ",", "1.0733644173778933`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "12", ",", "1.0651594935986681`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "22", ",", "1.0830958531961783`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "13", ",", "1.2024004835798447`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "14", ",", "1.202537550285862`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "15", ",", "1.202321029917939`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "16", ",", "1.2023073794662416`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "17", ",", "1.2023961369268357`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "18", ",", "1.2025233880087594`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "19", ",", "1.2023206855139785`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "20", ",", "1.2024268740437452`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "21", ",", "1.202496290718501`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "22", ",", "1.2025344431213643`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "23", ",", "1.2024137166050892`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "24", ",", "1.2024004835798443`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5686331929320927`*^9, 3.568633280463846*^9, {3.568633316187909*^9, 3.568633337840747*^9}, 3.568633507210244*^9, 3.568633547239915*^9, 3.5686336097180243`*^9, 3.569301044729864*^9, 3.5693011400633163`*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.5686331929320927`*^9, 3.568633280463846*^9, {3.568633316187909*^9, 3.568633337840747*^9}, 3.568633507210244*^9, 3.568633547239915*^9, 3.5686336097180243`*^9, 3.569301044729864*^9, 3.569301140070317*^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.5686331929476924`*^9, 3.5686332804794464`*^9, {3.5686333162035093`*^9, 3.568633337856347*^9}, 3.5686335072258444`*^9, 3.568633547255515*^9, 3.5686336097336245`*^9, 3.5693010447428646`*^9, 3.569301140086318*^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.6", "]"}], ",", 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}], 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}}], 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", ",", "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}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.451919485, 1.0422783753, 0.35562753593999996`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.9089960005199998, 1.88175135628, -1.69580231788}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.5565673062, -0.86951962438, 2.022951683}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.5568507651, 0.86027886424, -2.0312664774}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.9092794594199999, -1.8910488081999999`, 1.68739303718}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.4521084575999996`, -1.05151913544, -0.36403681664}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.90383897, 2.0890920929999997`, 0.7154691608599999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.81814317912, 3.768113644, -3.3873338549999996`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0643796815999997`, -1.72161597504, 4.067635215}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0647576268, 1.7123752148999998`, -4.076138982}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.8045938437, -3.8026956297999996`, 3.3546415952}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.918011915, -2.073029422, -0.6995765652}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.781616697, 3.9380000113999993`, -0.9546895752}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.425635317799999, 1.21163561942, 2.7359453028}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2600093218, 4.815399793199999, -2.9751846144}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.30362227642, 4.595813632, -5.3515150594}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.5128976598, -0.6497822850999999, 4.399282128}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.161846544, -3.5834874138, 5.67862663}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.1484294894, 3.548905428, -5.7113188898}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.5270706048000005`, 0.66595833966, -4.3834084296}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.25509411274, -4.6177344536, 5.3254368406}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.273993294199999, -4.7993371222, 2.9910583128}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.439808262799999, -1.1954406676, -2.7200716043999997`}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.795789642, -3.9217483678, 0.9705632735999999}, 0.2556]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.635815848199999, 4.7040949318, -0.70263792132}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.281724194999999, 1.970039355, 2.9982392715999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.9497593118, 6.272000594, -4.196136583}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.97885917074, 6.030115666, -6.606482096}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.6728114786, -1.2698202829599998`, 5.935062448199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.3185478286000003`, -4.2365767193999995`, 7.2032575668}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.2934144728, 4.1817746654, -7.2529573606}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.6987007248, 1.30564948792, -5.9021812158}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.91872808942, -6.052414432799999, 6.5864510004}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.984719242799999, -6.2158757318, 4.2469702124}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.295708167399999, -1.953976684, -2.9823655731999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.6499887931999995`, -4.6878432882, 0.7185116197199999}, 0.1]}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{1.6804577427600003`, 1.4620148657899998`, -0.6700873909699998}, 1.0947418280105319`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{2.0042433956, 0.0863793754600003, 1.1892896094699998`}, 1.0894461820167844`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-0.32392738228999995`, 1.3710151102600001`, -1.8635343976399998`}, 1.089422539386932]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{0.32364392339000025`, -1.3802842162899998`, 1.85517236009}, 1.0894391954975815`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-2.00447961135, -0.09562013559999971, -1.1976516470200003`}, 1.0894011774417505`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-1.6806939585099996`, -1.4712839718200001`, 0.6616781102700003}, 1.0947236495571684`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{3.6778792274999996`, 1.5656852341499996`, 0.5355483483999999}, 1.0895035383486866`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{1.3635695898199998`, 2.8249325001399996`, -2.5415680864399994`}, 1.0903374255477225`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{2.3104734938999996`, -1.29556779971, 3.045293449}, 1.0842038192445822`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-2.31080419595, 1.2863270395699997`, -3.0537027296999995`}, 1.0843025015312784`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-1.3569366515599999`, -2.8468722189999998`, 2.52101731619}, 1.0893627477603076`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-3.6850601862999994`, -1.56227427872, -0.53180669092}, 1.0894604121775422`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{5.3427278335, 3.0135460521999993`, -0.11961020716999982`}, 1.0652315971743942`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{5.664737143899999, 1.6503638562099998`, 1.7257072318299997`}, 1.0830670448018072`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{3.03907625046, 4.291756718599999, -3.1812592346999997`}, 1.0887758341327236`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{5.0208130094, 4.3766999022999995`, -1.9649370947999996`}, 1.0830111818595356`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{1.0608827277700001`, 4.181963638, -4.369424457199999}, 1.0517703223043442`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{4.288638670699999, -1.1856991300700002`, 4.2334586715}, 1.0910678713923345`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{5.9692664888, 0.28092666716000003`, 3.5676137154000003`}, 1.0733710344534761`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{2.6131131128, -2.6525516944199996`, 4.8731309225}, 1.0555468890002406`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-2.6065935581, 2.6306403214499996`, -4.8937289359}, 1.0564893462235057`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-0.9224036064899996, 4.07235953, -5.5314169746}, 1.0895796763103804`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-4.2959141158000005`, 1.18916677728, -4.2297737058}, 1.0909129030056384`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-1.0298439782200002`, -4.2102150417, 4.340039217899999}, 1.062473556353898]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{0.9533762156300003, -4.1006109337, 5.5020317353}, 1.0706741142835314`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-3.03929356895, -4.301016376, 3.172849954}, 1.0882211110248043`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-5.6789100888999995`, -1.6342350448, -1.7098240847999997`}, 1.0830958531961776`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-5.983439433799999, -0.2647411639699998, -3.551740017}, 1.0733644173778933`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-5.3569007785, -2.9973888949, 0.13549335419999997`}, 1.0651594935986681`]}}, {RGBColor[ 0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], {Opacity[0.6], SphereBox[{-5.0348914681, -4.360542745, 1.9808107932000003`}, 1.0830958531961783`]}}, {Opacity[0.4], SphereBox[{6.990239245699027, 4.4373636286468265`, -0.7903947570737502}, 1.0947418280105319`]}, {Opacity[0.4], SphereBox[{7.635533450278366, 1.7060037903704612`, 2.906922558743797}, 1.0894461820167844`]}, {Opacity[0.4], SphereBox[{4.709599589548282, 5.7648358983517145`, -3.77102097602237}, 1.089422539386932]}, {Opacity[0.4], SphereBox[{0.7437510849646908, 5.530711666494068, -6.169520045839407}, 1.0894391954975815`]}, {Opacity[0.4], SphereBox[{6.268963363599992, -1.053941161075587, 5.400348595054828}, 1.0894011774417505`]}, {Opacity[0.4], SphereBox[{2.9158435677288175`, -4.009204406776114, 6.672459008278728}, 1.0947236495571684`]}, {Opacity[0.4], SphereBox[{-2.8947492659555016`, 3.961419858051886, -6.716183840640037}, 1.0895035383486866`]}, {Opacity[0.4], SphereBox[{-6.290779536873121, 1.0829310986859224`, -5.3733969275147855`}, 1.0903374255477225`]}, {Opacity[0.4], SphereBox[{-0.6876815652128305, -5.552925506385958, 6.147424445347195}, 1.0842038192445822`]}, {Opacity[0.4], SphereBox[{-4.737282150020916, -5.722712092482796, 3.809728277114229}, 1.0843025015312784`]}, {Opacity[0.4], SphereBox[{-7.649543642348176, -1.6898788931886752`, -2.89104326785717}, 1.0893627477603076`]}, {Opacity[0.4], SphereBox[{-7.004412190699027, -4.421111985046826, 0.8062684554737501}, 1.0894604121775422`]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.9089960005199998, 1.88175135628, -1.69580231788}, { 2.451919485, 1.0422783753, 0.35562753593999996`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{1.5565673062, -0.86951962438, 2.022951683}, {2.451919485, 1.0422783753, 0.35562753593999996`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.5568507651, 0.86027886424, -2.0312664774}, { 0.9089960005199998, 1.88175135628, -1.69580231788}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.9092794594199999, -1.8910488081999999`, 1.68739303718}, { 1.5565673062, -0.86951962438, 2.022951683}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-2.4521084575999996`, -1.05151913544, -0.36403681664}, \ {-1.5568507651, 0.86027886424, -2.0312664774}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-2.4521084575999996`, -1.05151913544, -0.36403681664}, \ {-0.9092794594199999, -1.8910488081999999`, 1.68739303718}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{4.90383897, 2.0890920929999997`, 0.7154691608599999}, { 2.451919485, 1.0422783753, 0.35562753593999996`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{1.81814317912, 3.768113644, -3.3873338549999996`}, { 0.9089960005199998, 1.88175135628, -1.69580231788}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.0643796815999997`, -1.72161597504, 4.067635215}, { 1.5565673062, -0.86951962438, 2.022951683}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.0647576268, 1.7123752148999998`, -4.076138982}, {-1.5568507651, 0.86027886424, -2.0312664774}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-1.8045938437, -3.8026956297999996`, 3.3546415952}, {-0.9092794594199999, -1.8910488081999999`, 1.68739303718}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-4.918011915, -2.073029422, -0.6995765652}, \ {-2.4521084575999996`, -1.05151913544, -0.36403681664}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{5.781616697, 3.9380000113999993`, -0.9546895752}, { 4.90383897, 2.0890920929999997`, 0.7154691608599999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{6.425635317799999, 1.21163561942, 2.7359453028}, { 4.90383897, 2.0890920929999997`, 0.7154691608599999}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{4.2600093218, 4.815399793199999, -2.9751846144}, { 1.81814317912, 3.768113644, -3.3873338549999996`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{4.2600093218, 4.815399793199999, -2.9751846144}, { 5.781616697, 3.9380000113999993`, -0.9546895752}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.30362227642, 4.595813632, -5.3515150594}, {1.81814317912, 3.768113644, -3.3873338549999996`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{5.5128976598, -0.6497822850999999, 4.399282128}, { 3.0643796815999997`, -1.72161597504, 4.067635215}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{5.5128976598, -0.6497822850999999, 4.399282128}, { 6.425635317799999, 1.21163561942, 2.7359453028}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{2.161846544, -3.5834874138, 5.67862663}, { 3.0643796815999997`, -1.72161597504, 4.067635215}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-2.1484294894, 3.548905428, -5.7113188898}, {-3.0647576268, 1.7123752148999998`, -4.076138982}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-2.1484294894, 3.548905428, -5.7113188898}, {0.30362227642, 4.595813632, -5.3515150594}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-5.5270706048000005`, 0.66595833966, -4.3834084296}, {-3.0647576268, 1.7123752148999998`, -4.076138982}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.25509411274, -4.6177344536, 5.3254368406}, {-1.8045938437, -3.8026956297999996`, 3.3546415952}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.25509411274, -4.6177344536, 5.3254368406}, { 2.161846544, -3.5834874138, 5.67862663}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-4.273993294199999, -4.7993371222, 2.9910583128}, {-1.8045938437, -3.8026956297999996`, 3.3546415952}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-6.439808262799999, -1.1954406676, -2.7200716043999997`}, \ {-4.918011915, -2.073029422, -0.6995765652}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-6.439808262799999, -1.1954406676, -2.7200716043999997`}, \ {-5.5270706048000005`, 0.66595833966, -4.3834084296}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-5.795789642, -3.9217483678, 0.9705632735999999}, {-4.918011915, -2.073029422, -0.6995765652}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-5.795789642, -3.9217483678, 0.9705632735999999}, {-4.273993294199999, -4.7993371222, 2.9910583128}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{7.635815848199999, 4.7040949318, -0.70263792132}, { 5.781616697, 3.9380000113999993`, -0.9546895752}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{8.281724194999999, 1.970039355, 2.9982392715999997`}, { 6.425635317799999, 1.21163561942, 2.7359453028}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{4.9497593118, 6.272000594, -4.196136583}, {4.2600093218, 4.815399793199999, -2.9751846144}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{0.97885917074, 6.030115666, -6.606482096}, {0.30362227642, 4.595813632, -5.3515150594}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{6.6728114786, -1.2698202829599998`, 5.935062448199999}, { 5.5128976598, -0.6497822850999999, 4.399282128}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{3.3185478286000003`, -4.2365767193999995`, 7.2032575668}, { 2.161846544, -3.5834874138, 5.67862663}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-3.2934144728, 4.1817746654, -7.2529573606}, {-2.1484294894, 3.548905428, -5.7113188898}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-6.6987007248, 1.30564948792, -5.9021812158}, {-5.5270706048000005`, 0.66595833966, -4.3834084296}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-0.91872808942, -6.052414432799999, 6.5864510004}, {-0.25509411274, -4.6177344536, 5.3254368406}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-4.984719242799999, -6.2158757318, 4.2469702124}, {-4.273993294199999, -4.7993371222, 2.9910583128}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-8.295708167399999, -1.953976684, -2.9823655731999996`}, \ {-6.439808262799999, -1.1954406676, -2.7200716043999997`}}, 0.05]}, {RGBColor[0.19999999999999996`, 0., 0.], CylinderBox[{{-7.6499887931999995`, -4.6878432882, 0.7185116197199999}, {-5.795789642, -3.9217483678, 0.9705632735999999}}, 0.05]}}, AspectRatio->Automatic, Boxed->False, ImageSize->{392.70638070268717`, 428.8889002505647}, ViewPoint->{-1.226223048193309, 2.7199398872895477`, 1.5963408300268553`}, ViewVertical->{0.5359432309837285, 0.8912564490293204, 0.5339313566515178}]], "Output", CellChangeTimes->{ 3.5686331929944925`*^9, 3.568633280526246*^9, {3.568633316265909*^9, 3.568633337918747*^9}, 3.5686335072726445`*^9, 3.568633547317915*^9, 3.5686336097960243`*^9, 3.5693010447928677`*^9, 3.569301140143321*^9}] }, Open ]] }, WindowSize->{1245, 910}, WindowMargins->{{Automatic, 215}, {Automatic, 0}}, 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) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 1005, 21, 70, "Input"], Cell[1587, 45, 4178, 73, 340, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5802, 123, 1066, 19, 50, "Input"], Cell[6871, 144, 4078, 106, 562, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10986, 255, 875, 13, 29, "Input"], Cell[11864, 270, 868, 27, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12769, 302, 693, 24, 29, "Input"], Cell[13465, 328, 872, 27, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14374, 360, 728, 21, 50, "Input"], Cell[15105, 383, 681, 20, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15823, 408, 965, 14, 29, "Input"], Cell[16791, 424, 977, 15, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17805, 444, 213, 5, 50, "Input"], Cell[18021, 451, 266, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18324, 460, 732, 21, 70, "Input"], Cell[19059, 483, 274, 4, 28, "Output"], Cell[19336, 489, 272, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[19645, 498, 3094, 85, 110, "Input"], Cell[22742, 585, 869, 14, 48, "Output"], Cell[23614, 601, 893, 14, 48, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24544, 620, 349, 6, 29, "Input"], Cell[24896, 628, 280, 4, 28, "Output"] }, Open ]], Cell[25191, 635, 868, 15, 29, "Input"], Cell[26062, 652, 4522, 93, 70, "Input"], Cell[CellGroupData[{ Cell[30609, 749, 2696, 39, 29, "Input"], Cell[33308, 790, 8410, 134, 380, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41755, 929, 820, 12, 29, "Input"], Cell[42578, 943, 31516, 759, 214, "Output"] }, Open ]], Cell[74109, 1705, 1254, 35, 70, "Input"], Cell[CellGroupData[{ Cell[75388, 1744, 4981, 113, 90, "Input"], Cell[80372, 1859, 14024, 214, 562, "Output"] }, Open ]], Cell[94411, 2076, 1985, 50, 50, "Input"], Cell[96399, 2128, 1890, 45, 90, "Input"], Cell[98292, 2175, 511, 11, 50, "Input"], Cell[98806, 2188, 2123, 48, 90, "Input"], Cell[100932, 2238, 1935, 47, 50, "Input"], Cell[102870, 2287, 1261, 33, 50, "Input"], Cell[CellGroupData[{ Cell[104156, 2324, 2013, 47, 50, "Input"], Cell[106172, 2373, 288, 4, 28, "Output"] }, Open ]], Cell[106475, 2380, 1995, 35, 90, "Input"], Cell[CellGroupData[{ Cell[108495, 2419, 1642, 22, 29, "Input"], Cell[110140, 2443, 15016, 231, 577, "Output"] }, Open ]], Cell[125171, 2677, 1655, 24, 29, "Input"], Cell[CellGroupData[{ Cell[126851, 2705, 2749, 55, 70, "Input"], Cell[CellGroupData[{ Cell[129625, 2764, 608, 11, 21, "Print"], Cell[130236, 2777, 608, 11, 21, "Print"], Cell[130847, 2790, 605, 11, 21, "Print"], Cell[131455, 2803, 608, 11, 21, "Print"], Cell[132066, 2816, 606, 11, 21, "Print"], Cell[132675, 2829, 606, 11, 21, "Print"], Cell[133284, 2842, 606, 11, 21, "Print"], Cell[133893, 2855, 608, 11, 21, "Print"], Cell[134504, 2868, 608, 11, 21, "Print"], Cell[135115, 2881, 610, 11, 21, "Print"], Cell[135728, 2894, 610, 11, 21, "Print"], Cell[136341, 2907, 607, 11, 21, "Print"], Cell[136951, 2920, 607, 11, 21, "Print"], Cell[137561, 2933, 607, 11, 21, "Print"], Cell[138171, 2946, 607, 11, 21, "Print"], Cell[138781, 2959, 609, 11, 21, "Print"], Cell[139393, 2972, 608, 11, 21, "Print"], Cell[140004, 2985, 610, 11, 21, "Print"], Cell[140617, 2998, 612, 11, 21, "Print"], Cell[141232, 3011, 610, 11, 21, "Print"], Cell[141845, 3024, 610, 11, 21, "Print"], Cell[142458, 3037, 610, 11, 21, "Print"], Cell[143071, 3050, 612, 11, 21, "Print"], Cell[143686, 3063, 607, 11, 21, "Print"], Cell[144296, 3076, 612, 11, 21, "Print"], Cell[144911, 3089, 612, 11, 21, "Print"], Cell[145526, 3102, 612, 11, 21, "Print"], Cell[146141, 3115, 612, 11, 21, "Print"], Cell[146756, 3128, 610, 11, 21, "Print"], Cell[147369, 3141, 612, 11, 21, "Print"], Cell[147984, 3154, 612, 11, 21, "Print"], Cell[148599, 3167, 609, 11, 21, "Print"], Cell[149211, 3180, 607, 11, 21, "Print"], Cell[149821, 3193, 612, 11, 21, "Print"], Cell[150436, 3206, 610, 11, 21, "Print"], Cell[151049, 3219, 612, 11, 21, "Print"], Cell[151664, 3232, 610, 11, 21, "Print"], Cell[152277, 3245, 610, 11, 21, "Print"], Cell[152890, 3258, 607, 11, 21, "Print"], Cell[153500, 3271, 612, 11, 21, "Print"], Cell[154115, 3284, 612, 11, 21, "Print"], Cell[154730, 3297, 612, 11, 21, "Print"] }, Open ]] }, Open ]], Cell[155369, 3312, 2696, 53, 90, "Input"], Cell[CellGroupData[{ Cell[158090, 3369, 867, 15, 50, "Input"], Cell[158960, 3386, 3999, 91, 105, "Output"], Cell[162962, 3479, 264, 4, 28, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163263, 3488, 191, 4, 50, "Input"], Cell[163457, 3494, 272, 4, 28, "Output"] }, Open ]], Cell[163744, 3501, 4130, 55, 29, "Input"], Cell[167877, 3558, 10873, 255, 110, "Input"], Cell[178753, 3815, 11133, 259, 110, "Input"], Cell[189889, 4076, 8460, 166, 70, "Input"], Cell[CellGroupData[{ Cell[198374, 4246, 4724, 66, 29, "Input"], Cell[203101, 4314, 20833, 410, 399, "Output"] }, Open ]] } ] *) (* End of internal cache information *)