(* 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[ 470269, 9616] NotebookOptionsPosition[ 461336, 9337] NotebookOutlinePosition[ 461835, 9357] CellTagsIndexPosition[ 461792, 9354] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram"}], ",", " ", RowBox[{"ES", " ", "24", " ", "June", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"Plot0", "=", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, { 3.5750055229593754`*^9, 3.5750055237081766`*^9}, 3.5753452568612485`*^9, { 3.575602814966606*^9, 3.5756028151382065`*^9}, 3.5757279640625825`*^9, { 3.575775139243217*^9, 3.5757751402728186`*^9}, {3.5809175214308605`*^9, 3.580917612971822*^9}, {3.58096449139602*^9, 3.580964509086451*^9}, { 3.580971899521303*^9, 3.5809719305653577`*^9}, {3.581045653434513*^9, 3.5810456822633634`*^9}, 3.5810459232057867`*^9, 3.581047116639083*^9, { 3.581047297569401*^9, 3.5810473128106275`*^9}, {3.5810668586727743`*^9, 3.5810668610907784`*^9}, {3.5810876767770157`*^9, 3.581087689475438*^9}, { 3.5810947762870855`*^9, 3.5810947771762867`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmJmIBa/ee57cLLuAT7dTXPfP/d3+BH8eOnsJ/4H8oWa D5wy9HOoFlnn/jAq+oBsVIr1/XhfBwYQECh1mHNEYUORh+cBW67riwtYcxx2 yLW+DsyIOnBR6fbPuiybAx4Pq0TWlccdAMracm3POWC55UTZvvvOB9JAQMzh ANDUKpFtgQ4JTy8AdQg7fFh+zNuc09gBrM8/3WHWTCC4GebQnfP898qDfg5g c64XOEiyhPHpFmlC7BNIhvJ9D8gDuTv44g8EgSQSEw4c/qoR038p4UBb1OU9 j0MkHMDujM0+ADLe3bXwwJe/Vypeivk4bCjKmPi2xhyiXijzQK29adyuzqAD uzx5mLTNAxyWgKxdXXQApN3WK/pAIcigG0EQc14mOYDFm9Ig5tdGO4DdUZbn 8CYQ6BDpOAeg4famchYHQKGyR8TvwLLZwIDbZOiwyHXb578m4QfEQOEvbONw V4WtcaqxIyR8E8wOFIOclR7goAoUdpb2gthf5Awx93ORwzRnYMi8NjoAcsbD rnSHJIEIyy0TQg68UjPkWCMSfOAb0DuH5sZDwoUt7oCBzzIut1C1AyDvLPZJ PXAGBBbkHyiZLMESlqfgsG++lP7dK9YHzoLEn2QdAId/pQ8kXYQbQOKlueDA FKByvrlBB8Dh8tjrAMj6KplUiLu+Jzg4giI0P9TBxBgIHmc5gMO1KsrhEIje ZOQAALaEIw4= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[9, 24.], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[3, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{20, 9}, 15.], CylinderBox[{21, 10}, 15.], CylinderBox[{22, 11}, 15.], CylinderBox[{23, 12}, 15.], CylinderBox[{24, 13}, 15.], CylinderBox[{25, 14}, 15.], CylinderBox[{26, 15}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{16, 4}, 15.], CylinderBox[{17, 6}, 15.], CylinderBox[{18, 6}, 15.], CylinderBox[{19, 8}, 15.], CylinderBox[{4, 5}, 15.], CylinderBox[{4, 20}, 15.], CylinderBox[{4, 21}, 15.], CylinderBox[{5, 22}, 15.], CylinderBox[{5, 23}, 15.], CylinderBox[{5, 24}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{7, 8}, 15.], CylinderBox[{7, 25}, 15.], CylinderBox[{7, 26}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{3, 19}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 16}, 15.], CylinderBox[{1, 17}, 15.], CylinderBox[{2, 18}, 15.]}}]}, Boxed->False, ImageSize->230.6754511170722, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{ 3.5812195523178296`*^9, 3.5815671451978397`*^9, {3.5815671769438953`*^9, 3.5815671948995266`*^9}, 3.581567235506398*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 3.57466137224955*^9, 3.574701612104143*^9, 3.574852309007204*^9, 3.574935583329076*^9, 3.5753438951264563`*^9, 3.5753463317967367`*^9, 3.575346463679368*^9, 3.575347966071207*^9, 3.5753753647221766`*^9, 3.5809645825313797`*^9, 3.580968422758925*^9, {3.5809686190328693`*^9, 3.580968622823676*^9}, 3.58097117067988*^9, 3.5810036889413176`*^9, { 3.5810474472672634`*^9, 3.581047474910512*^9}, {3.5810475642674694`*^9, 3.5810475718334827`*^9}, 3.581087689475438*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955238023*^9, 3.5815671452446394`*^9, {3.581567177006295*^9, 3.581567194930727*^9}, 3.581567235553198*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["15"], "Output", CellChangeTimes->{ 3.58121955239583*^9, 3.5815671452602396`*^9, {3.581567177006295*^9, 3.5815671949463267`*^9}, 3.581567235568798*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.574996055162717*^9, 3.574996080637562*^9}, { 3.5749961872169495`*^9, 3.5749961936753607`*^9}, {3.5749962548738976`*^9, 3.574996268492721*^9}, {3.574996311720397*^9, 3.5749963415788493`*^9}, { 3.57499639316814*^9, 3.5749964813394947`*^9}, {3.5749966279017525`*^9, 3.5749966325037603`*^9}, {3.575738220273323*^9, 3.5757382663558044`*^9}, { 3.5757383024542675`*^9, 3.5757383039050703`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"O\"\>", RowBox[{"-", "0.27767633844`"}], "1.20587195512`", RowBox[{"-", "1.20538062636`"}]}, {"2", "\<\"O\"\>", "1.14118663414`", RowBox[{"-", "2.0677381892`"}], "1.11019512774`"}, {"3", "\<\"N\"\>", "6.368376619999999`", RowBox[{"-", "0.95555884916`"}], "4.236198774199999`"}, {"4", "\<\"C\"\>", RowBox[{"-", "1.9961175737999999`"}], RowBox[{"-", "0.53698454016`"}], RowBox[{"-", "2.3030090762`"}]}, {"5", "\<\"C\"\>", RowBox[{"-", "4.341078567199999`"}], RowBox[{"-", "0.75112829048`"}], RowBox[{"-", "0.6080193405`"}]}, {"6", "\<\"C\"\>", "1.3387763846999998`", "0.09437291644`", "0.35972824136000003`"}, {"7", "\<\"C\"\>", "3.5241500174`", "1.727209564`", "1.16242715438`"}, {"8", "\<\"C\"\>", "5.091677734399999`", "0.24042983898`", "2.8820211226`"}, {"9", "\<\"H\"\>", RowBox[{"-", "1.11289743592`"}], RowBox[{"-", "2.3476066098`"}], RowBox[{"-", "2.4766748956`"}]}, {"10", "\<\"H\"\>", RowBox[{"-", "2.5431932508`"}], "0.114950142854`", RowBox[{"-", "4.1369881591999995`"}]}, {"11", "\<\"H\"\>", RowBox[{"-", "5.221879855799999`"}], "1.06162916954`", RowBox[{"-", "0.44385884288`"}]}, {"12", "\<\"H\"\>", RowBox[{"-", "3.7904124108`"}], RowBox[{"-", "1.40126962352`"}], "1.2257140781199998`"}, {"13", "\<\"H\"\>", RowBox[{"-", "5.6453674523999995`"}], RowBox[{"-", "2.0628249016`"}], RowBox[{"-", "1.4245699451`"}]}, {"14", "\<\"H\"\>", "2.8589664653999995`", "3.4028296082`", "2.0779427096`"}, {"15", "\<\"H\"\>", "4.6054512346`", "2.2757970218`", RowBox[{"-", "0.45576411667999994`"}]} }, 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.58121955241143*^9, 3.58156714527584*^9, {3.5815671770218954`*^9, 3.5815671949619265`*^9}, 3.5815672355843983`*^9}] }, Open ]], 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[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9, {3.5810671572556987`*^9, 3.581067194212164*^9}, { 3.5810673289184003`*^9, 3.58106734571963*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9, {3.5810671572556987`*^9, 3.581067194212164*^9}, { 3.5810673289184003`*^9, 3.5810673386684175`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955244263*^9, 3.5815671453070393`*^9, {3.581567177053095*^9, 3.581567194993127*^9}, 3.581567235615598*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.58121955245823*^9, 3.5815671453226395`*^9, {3.581567177068695*^9, 3.581567195008727*^9}, 3.581567235631198*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "3", ",", "1", ",", "2", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955247383*^9, 3.5815671453382397`*^9, {3.5815671770842953`*^9, 3.581567195024327*^9}, 3.581567235646798*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"(*", "0.25618", "*)"}], "0.2572", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.21522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1786", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, { 3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, { 3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 3.5747439758396235`*^9}, {3.5750084847337775`*^9, 3.575008487276582*^9}, { 3.575008535059466*^9, 3.575008535761467*^9}, {3.5750085659943204`*^9, 3.5750085672267227`*^9}, {3.5750086497820673`*^9, 3.5750086512484703`*^9}, {3.575345710884446*^9, 3.5753457175144577`*^9}, { 3.5757079421584663`*^9, 3.5757079428916674`*^9}, 3.575774946192878*^9, 3.575774992259759*^9, {3.581131863852779*^9, 3.5811318642583795`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955248943*^9, 3.58156714535384*^9, {3.5815671770998955`*^9, 3.5815671950399265`*^9}, 3.5815672356623983`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.21522`", ",", "0.1786`", ",", "0.1786`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955248943*^9, 3.58156714535384*^9, {3.5815671770998955`*^9, 3.5815671950399265`*^9}, 3.5815672356623983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955248943*^9, 3.58156714535384*^9, {3.5815671771154957`*^9, 3.5815671950555267`*^9}, 3.5815672356779985`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5812195525050297`*^9, 3.5815671453694396`*^9, {3.5815671771310954`*^9, 3.5815671950555267`*^9}, 3.5815672356935987`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", 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.5688281182607965`*^9, 3.5688281434392405`*^9}, { 3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 3.569234051519184*^9}, 3.5692372799312553`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{ 3.58121955252063*^9, 3.5815671453850393`*^9, {3.5815671771466956`*^9, 3.581567195071127*^9}, 3.5815672357091985`*^9}], Cell[BoxData["7"], "Output", CellChangeTimes->{ 3.58121955252063*^9, 3.5815671453850393`*^9, {3.5815671771466956`*^9, 3.581567195071127*^9}, 3.5815672357091985`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, 3.5753438951420565`*^9, 3.5753463317967367`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.580968446954568*^9, { 3.5809686406233077`*^9, 3.5809686430257115`*^9}, 3.581045597165214*^9, { 3.581045956309045*^9, 3.5810459966819153`*^9}, 3.581047124189496*^9, 3.581087689491038*^9}], Cell[BoxData["\<\"NCCH2COOC2H5\"\>"], "Output", CellChangeTimes->{ 3.58121955253623*^9, 3.5815671454006395`*^9, {3.5815671771622953`*^9, 3.581567195086727*^9}, 3.581567235724798*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "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.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.575562664774312*^9}], Cell[CellGroupData[{ Cell[BoxData[ 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.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.5753438951420565`*^9, 3.5753463318123364`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.580964599114209*^9, 3.5809684404961557`*^9, {3.5809686473001194`*^9, 3.580968650061324*^9}, {3.58104557800838*^9, 3.5810455839207907`*^9}, { 3.581046017539152*^9, 3.5810460312047763`*^9}, {3.5810460622800307`*^9, 3.581046062560831*^9}, 3.581047128838304*^9, 3.581087689491038*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {546.41, 75.}], LineBox[{{565.6386401593061, 63.89801376483485}, {589.71, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {633.01, 25.}], LineBox[{{589.71, 50.}, {615.2577922177911, 35.24954259942777}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {546.41, 75.}], LineBox[{{527.1813598406939, 63.89801376483484}, {503.10999999999996`, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{503.10999999999996`, 50.}, {477.5622077822088, 35.24954259942776}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {459.80999999999995`, -75.}], LineBox[{{{454.80999999999995`, -52.7965160224375}, { 454.80999999999995`, -25.}}, {{ 464.80999999999995`, -52.7965160224375}, {464.80999999999995`, -25.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{{454.80999999999995`, -25.}, {454.80999999999995`, 4.501365785979736}}, {{464.80999999999995`, -25.}, { 464.80999999999995`, 4.501365785979736}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {200., -25.}], LineBox[{{{214.2522077822089, -8.688457400572238}, {239.8, 6.062000000000002}}, {{221.2522077822089, -20.812457400572242`}, { 246.8, -6.062000000000002}}, {{217.7522077822089, -14.75045740057224}, { 243.3, 0.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {286.6, 25.}], LineBox[{{{239.8, 6.062000000000002}, {265.34779221779115`, 20.812457400572242`}}, {{246.8, -6.062000000000002}, { 272.34779221779115`, 8.688457400572238}}, {{243.3, 0.}, { 268.84779221779115`, 14.75045740057224}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {633.01, 25.}], LineBox[{{650.7627202153193, 35.24865501403951}, {676.315, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {719.62, 75.}], LineBox[{{676.315, 50.}, {701.8672797846807, 64.75134498596047}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {633.01, 25.}], LineBox[{{619.8335071208766, 9.297323793486274}, {613.085, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {593.1600000000001, -22.49}], LineBox[{{613.085, 1.2550000000000008`}, { 606.3364928791235, -6.787323793486273}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {633.01, 25.}], LineBox[{{646.1884328779201, 9.298951897330035}, {652.94, 1.2550000000000008`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {672.87, -22.49}], LineBox[{{652.94, 1.2550000000000008`}, { 659.69156712208, -6.788951897329996}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {719.62, 75.}], LineBox[{{729.8698289446248, 57.247957547196606`}, {735.12, 48.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {750.62, 21.310000000000002`}], LineBox[{{735.12, 48.155}, {740.3701710553752, 39.0620424528034}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {719.62, 75.}], LineBox[{{737.3720424528034, 85.24982894462478}, {746.465, 90.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {773.3100000000001, 106.}], LineBox[{{746.465, 90.5}, {755.5579575471967, 95.75017105537522}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {719.62, 75.}], LineBox[{{709.3701710553752, 92.7520424528034}, {704.12, 101.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {688.62, 128.69}], LineBox[{{704.12, 101.845}, {698.8698289446248, 110.9379575471966}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{442.0577922177911, 35.24954259942777}, {416.51, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {373.21, 75.}], LineBox[{{416.51, 50.}, {390.96220778220885`, 64.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {373.21, 75.}], LineBox[{{355.45727978468074`, 64.75134498596049}, {329.905, 50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {286.6, 25.}], LineBox[{{329.905, 50.}, {304.35272021531927`, 35.24865501403953}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {373.21, 75.}], LineBox[{{386.3864928791234, 90.70267620651371}, {393.135, 98.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {413.06, 122.49000000000001`}], LineBox[{{393.135, 98.745}, {399.8835071208766, 106.7873237934863}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {373.21, 75.}], LineBox[{{360.0315671220799, 90.70104810266999}, {353.28, 98.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05100679573736578], FontWeight->Plain], {333.34999999999997`, 122.49000000000001`}], LineBox[{{353.28, 98.745}, {346.52843287792007`, 106.78895189733002`}}]}}}, {}, {}}, ImageSize->{{0., 224.7803399269847}, {0., 95.40553873079575}}, PlotRange->{{182.8007, 790.5093}, {-105.99726842804053`, 151.9379513210304}}]], "Output", CellChangeTimes->{ 3.58121955259863*^9, 3.5815671454786396`*^9, {3.5815671771934958`*^9, 3.5815671951335273`*^9}, 3.5815672357715983`*^9}] }, Open ]], Cell["(* Distance Matrix Bohr *)", "Text", 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.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "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.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "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.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15"}, {"0.`", "2.9013255264614797`", "0", "0", "0", "0", "2.6824200372841402`", "0", "2.0220261887156847`", "2.021828356751159`", "0", "0", "0", "0", "0"}, {"2.9013255264614797`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220903016028804`", "2.022002774304518`", "2.02199712797832`", "0", "0"}, {"0", "0", "0.`", "2.8436488842821057`", "0", "0", "2.5095647604612767`", "2.2971649244690893`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8436488842821057`", "0.`", "2.7612787816213675`", "0", "0", "0", "0", "0", "0", "0", "0", "2.021964495787681`", "2.0220542799115084`"}, {"0", "0", "0", "2.7612787816213675`", "0.`", "2.212271705452115`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.212271705452115`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6824200372841402`", "0", "2.5095647604612767`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.2971649244690893`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"2.0220261887156847`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"2.021828356751159`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "2.0220903016028804`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "2.022002774304518`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "2.02199712797832`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "2.021964495787681`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "2.0220542799115084`", "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.58121955261423*^9, 3.58156714549424*^9, {3.5815671772246957`*^9, 3.581567195164727*^9}, 3.581567235787198*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 3.574656960905402*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.595"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}, 3.581132559770001*^9, { 3.5811325909076557`*^9, 3.5811325913288565`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.21522`", ",", "0.1786`", ",", "0.1786`", ",", "0.595`", ",", "0.595`", ",", "0.595`", ",", "0.595`", ",", "0.595`", ",", "0.595`", ",", "0.595`"}], "}"}]], "Output", CellChangeTimes->{ 3.58121955264543*^9, 3.58156714550984*^9, {3.5815671772402954`*^9, 3.5815671951803274`*^9}, 3.5815672358027983`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 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[{"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.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}, 3.575798260154653*^9, { 3.57579837247485*^9, 3.575798382833268*^9}, 3.575798442113373*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.6441255264614796`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "2.5864488842821056`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.5040787816213674`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "1.9970517054521149`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.5038200372841404`", "0", "2.330964760461277`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.1185649244690894`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"1.4270261887156848`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"1.426828356751159`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4270903016028804`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.427002774304518`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4269971279783202`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "1.4269644957876808`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "0", "0", "1.4270542799115085`", "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.5812195526610303`*^9, 3.58156714552544*^9, {3.5815671772402954`*^9, 3.581567195195927*^9}, 3.5815672358183985`*^9}] }, Open ]], 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, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[CellGroupData[{ 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[{"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.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}, {3.5757984551081953`*^9, 3.5757984616914067`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2.3869255264614795`", "0", "0", "0", "0", "2.2466200372841403`", "0", "1.169826188715685`", "1.1696283567511592`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1698903016028805`", "1.169802774304518`", "1.1697971279783204`", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "2.3292488842821055`", "0", "0", "2.073764760461277`", "1.8613649244690893`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.2468787816213673`", "0", "0", "0", "0", "0", "0", "0", "0", "1.169764495787681`", "1.1698542799115086`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.7398517054521148`", "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", "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"} }, 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.5812195526766305`*^9, 3.58156714554104*^9, {3.581567177271496*^9, 3.581567195211527*^9}, 3.5815672358339987`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", 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[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", 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.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}, {3.5757985741520042`*^9, 3.5757985795340137`*^9}, {3.5757996092762227`*^9, 3.5757996144242315`*^9}, {3.575799724856826*^9, 3.575799730145235*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1.1934627632307397`", "0", "0", "0", "0", "1.1233100186420701`", "0", "1.169826188715685`", "1.1696283567511592`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1698903016028805`", "1.169802774304518`", "1.1697971279783204`", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "1.1646244421410528`", "0", "0", "1.0368823802306384`", "0.9306824622345446`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.1234393908106837`", "0", "0", "0", "0", "0", "0", "0", "0", "1.169764495787681`", "1.1698542799115086`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0.8699258527260574`", "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", "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"} }, 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.58121955269223*^9, 3.5815671455566397`*^9, {3.581567177271496*^9, 3.581567195211527*^9}, 3.581567235849599*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ 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[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\n", RowBox[{"Tval", "=", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"Tcor", "=", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "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}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}, 3.574657067547189*^9}], Cell[BoxData["25.97758606377744`"], "Output", CellChangeTimes->{ 3.5812195527078304`*^9, 3.58156714557224*^9, {3.5815671772870955`*^9, 3.581567195227127*^9}, 3.581567235849599*^9}], Cell[BoxData["359.71364749336743`"], "Output", CellChangeTimes->{ 3.5812195527078304`*^9, 3.58156714557224*^9, {3.5815671772870955`*^9, 3.581567195227127*^9}, 3.5815672358651986`*^9}], Cell[BoxData["385.69123355714487`"], "Output", CellChangeTimes->{ 3.5812195527078304`*^9, 3.58156714557224*^9, {3.5815671772870955`*^9, 3.581567195227127*^9}, 3.5815672358651986`*^9}], Cell[BoxData["11.509625660350158`"], "Output", CellChangeTimes->{ 3.5812195527078304`*^9, 3.58156714557224*^9, {3.5815671772870955`*^9, 3.581567195227127*^9}, 3.5815672358651986`*^9}], Cell[BoxData["14.467960403427282`"], "Output", CellChangeTimes->{ 3.5812195527078304`*^9, 3.58156714557224*^9, {3.5815671772870955`*^9, 3.581567195227127*^9}, 3.5815672358651986`*^9}] }, Open ]], Cell[BoxData[{ 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.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "2.0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}, {3.580992421663953*^9, 3.5809924274359627`*^9}}], Cell[BoxData[ RowBox[{"{", "2.5095647604612767`", "}"}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.5815672358807983`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({2.5095647604612767`}\\)\ \[NoBreak] should have at least two elements. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.5812195528170304`*^9, 3.5815671457126403`*^9, {3.5815671773806963`*^9, 3.5815671953207273`*^9}, 3.581567235958799*^9}], Cell[BoxData[ RowBox[{"2.5095647604612767`", "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "2.5095647604612767`", "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.581567235958799*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9013255264614797`", ",", "2.8436488842821057`", ",", "2.7612787816213675`", ",", "2.6824200372841402`"}], "}"}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.581567235958799*^9}], Cell[BoxData[ RowBox[{"2.7971683074122735`", "\[PlusMinus]", "0.09568070837445383`"}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.581567235958799*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0220261887156847`", ",", "2.021828356751159`", ",", "2.0220903016028804`", ",", "2.022002774304518`", ",", "2.02199712797832`", ",", "2.021964495787681`", ",", "2.0220542799115084`"}], "}"}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.581567235958799*^9}], Cell[BoxData[ RowBox[{"2.021994789293107`", "\[PlusMinus]", "0.00008399838895308528`"}]], "Output", CellChangeTimes->{ 3.5812195527234306`*^9, 3.58156714558784*^9, {3.5815671773182955`*^9, 3.5815671952583275`*^9}, 3.581567235958799*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.58121955283263*^9, 3.5815671457282405`*^9, {3.5815671774118958`*^9, 3.5815671953519278`*^9}, 3.5815672359743986`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"no", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", "no"}]}]], "Input", CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.5812195528482304`*^9, 3.58156714574384*^9, {3.5815671774118958`*^9, 3.5815671953519278`*^9}, 3.581567235989999*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "3", ",", "0", ",", "2", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.5812195528638306`*^9, 3.58156714574384*^9, {3.581567177427496*^9, 3.5815671953675275`*^9}, 3.581567235989999*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conns", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conns", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}, { 3.5809196826118565`*^9, 3.5809196867146635`*^9}, {3.58091973012954*^9, 3.580919826178909*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.581219552879431*^9, 3.5815671457594404`*^9, {3.581567177443096*^9, 3.5815671953831277`*^9}, 3.581567236005599*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.581219552879431*^9, 3.5815671457594404`*^9, {3.581567177443096*^9, 3.5815671953831277`*^9}, 3.581567236005599*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "7", ",", "9", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "11", ",", "12", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "5", ",", "14", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "4", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "4"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.581219552879431*^9, 3.5815671457594404`*^9, {3.581567177443096*^9, 3.5815671953831277`*^9}, 3.581567236005599*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]}, { RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"C\"\>"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.581219552879431*^9, 3.5815671457594404`*^9, {3.581567177443096*^9, 3.5815671953831277`*^9}, 3.5815672360211987`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "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, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}, {3.574950232276594*^9, 3.574950236582202*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"6", ",", "5", ",", "4", ",", "6"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.581219552895031*^9, 3.5815671457750406`*^9, {3.581567177458696*^9, 3.5815671953987274`*^9}, 3.5815672360211987`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", "1", ",", "3"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.581219552895031*^9, 3.5815671457750406`*^9, {3.581567177458696*^9, 3.5815671953987274`*^9}, 3.5815672360367985`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.581219552895031*^9, 3.5815671457750406`*^9, {3.581567177458696*^9, 3.5815671953987274`*^9}, 3.5815672360367985`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.581219552895031*^9, 3.5815671457750406`*^9, {3.581567177458696*^9, 3.5815671953987274`*^9}, 3.5815672360367985`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.2"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.2"}], "}"}]}], ";"}]}], "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, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 3.5748534455472*^9}, {3.575721474665098*^9, 3.5757215077995567`*^9}, { 3.575721778631632*^9, 3.575721826414516*^9}, {3.5809715159634295`*^9, 3.5809715296758537`*^9}, {3.581089033729799*^9, 3.5810890368966045`*^9}, { 3.5810908673258195`*^9, 3.581090869026222*^9}, {3.581090900834678*^9, 3.581090904110684*^9}}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C=C and C=O, half occ each above and below *)\ \>", "Text", 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, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}, {3.574782364321311*^9, 3.574782366817315*^9}, { 3.5747823996553726`*^9, 3.5747824011997757`*^9}, {3.574851478943345*^9, 3.574851501984586*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"connc", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "7", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "4"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}]}]}]], "Input", CellChangeTimes->{{3.574782409030989*^9, 3.5747824335386324`*^9}, { 3.57478246631429*^9, 3.5747824836615205`*^9}, {3.574782729892353*^9, 3.574782734509961*^9}, {3.5747827728236284`*^9, 3.574782822150915*^9}, { 3.574782939494321*^9, 3.574782974048382*^9}, {3.5747830324548845`*^9, 3.574783065448942*^9}, {3.574783361818263*^9, 3.5747833666074715`*^9}, { 3.574783407073942*^9, 3.574783441097602*^9}, {3.574783484762079*^9, 3.5747834849804792`*^9}, 3.574783557801407*^9, {3.5747836107946997`*^9, 3.5747836636631927`*^9}, {3.574783719464491*^9, 3.574783731414112*^9}, { 3.574783780975399*^9, 3.5747838001946325`*^9}, {3.574783898490405*^9, 3.5747839481764927`*^9}, {3.5747840180958157`*^9, 3.5747840270034313`*^9}, {3.574784153800454*^9, 3.5747841712568846`*^9}, { 3.5747854335799017`*^9, 3.5747854339543023`*^9}, 3.5747867930286894`*^9, { 3.5747868591884055`*^9, 3.574786865865217*^9}, 3.574787046575935*^9, { 3.574787368045699*^9, 3.574787376922115*^9}, 3.5747874778074923`*^9, { 3.5747875111447506`*^9, 3.5747875582880335`*^9}, {3.5747875958996997`*^9, 3.574787678221044*^9}, 3.574787726456329*^9, {3.574787774847614*^9, 3.5747877758148155`*^9}, 3.5747879836695805`*^9, {3.574788032310466*^9, 3.574788047239692*^9}, {3.5747881733035135`*^9, 3.574788204831169*^9}, { 3.574828128133003*^9, 3.5748281291938047`*^9}, {3.57482825168522*^9, 3.574828270452053*^9}, 3.574828314724931*^9, {3.5748306212357817`*^9, 3.574830621703783*^9}, {3.5753559894421577`*^9, 3.575356014137001*^9}, { 3.5753561901365104`*^9, 3.575356206251339*^9}, {3.575375584885363*^9, 3.575375598753787*^9}, {3.5753756763015237`*^9, 3.5753756873931427`*^9}, { 3.575562289422053*^9, 3.575562298189268*^9}, {3.5755628657806654`*^9, 3.5755629193667593`*^9}, {3.575563069579423*^9, 3.5755630812326436`*^9}, 3.5755632175768833`*^9, 3.575563562493489*^9, {3.5755643314188395`*^9, 3.575564336426448*^9}, {3.5755649483375225`*^9, 3.575564954156333*^9}, { 3.5755653205385766`*^9, 3.5755653215213785`*^9}, {3.580894768624258*^9, 3.5808947815410805`*^9}, {3.5808962984409447`*^9, 3.580896311123767*^9}, { 3.5809006217573385`*^9, 3.5809006392917695`*^9}, {3.5809722862303824`*^9, 3.580972313748831*^9}, {3.580972650397422*^9, 3.5809727057931194`*^9}, { 3.580974161306876*^9, 3.5809741619776773`*^9}, 3.5809741927565312`*^9, { 3.5810043290519295`*^9, 3.581004352401265*^9}, {3.581047911539679*^9, 3.5810479493385453`*^9}, {3.581087961118715*^9, 3.5810879636771193`*^9}, { 3.5810886412175093`*^9, 3.581088668236757*^9}, {3.5810887259568586`*^9, 3.581088732196869*^9}, {3.5810889749176955`*^9, 3.581089008863355*^9}, { 3.5810902666311646`*^9, 3.58109028138879*^9}, 3.5810907690144467`*^9, 3.581090818653734*^9, {3.5810910227800922`*^9, 3.5810910290981035`*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.5812195529106307`*^9, 3.5815671457906404`*^9, {3.581567177474296*^9, 3.5815671954143276`*^9}, 3.5815672360523987`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9, {3.580899285145791*^9, 3.5808992860817924`*^9}, { 3.58090152780693*^9, 3.5809015330953393`*^9}, {3.58097175550185*^9, 3.5809717625374627`*^9}, {3.58109024681913*^9, 3.5810902475211306`*^9}, 3.581090660500656*^9, {3.581090699219924*^9, 3.581090807452914*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rpno", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.3", ",", "1.4", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpni", "=", RowBox[{"{", RowBox[{"1.4", ",", "1.3", ",", "1.4", ",", "1.3"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "4", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "3"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cnj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpno", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cnj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpnu", "=", "tpno"}], ";", " ", RowBox[{"tpnv", "=", "tpno"}], ";", " ", RowBox[{"tpnw", "=", "tpno"}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\""}]}], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9, {3.580899285145791*^9, 3.5808992860817924`*^9}, { 3.58090152780693*^9, 3.5809015330953393`*^9}, {3.58097175550185*^9, 3.5809717625374627`*^9}, {3.58109024681913*^9, 3.5810902475211306`*^9}, 3.581090660500656*^9, {3.581090699219924*^9, 3.581090807452914*^9}, { 3.5810908576538024`*^9, 3.58109089061666*^9}, {3.5810909522835684`*^9, 3.5810909760112104`*^9}, {3.5810910459305334`*^9, 3.5810910471629353`*^9}, {3.5810930246536083`*^9, 3.5810930275396137`*^9}, {3.581095396388174*^9, 3.581095417183011*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.5812195529418306`*^9, 3.5815671458218403`*^9, {3.581567177489896*^9, 3.581567195429928*^9}, 3.581567236067999*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"rln", "=", "1.14"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{"{", RowBox[{"6", ",", "4", ",", "3"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnlj", "=", RowBox[{"Length", "[", "connc", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlno", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cnlj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\""}]}], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9, {3.580899285145791*^9, 3.5808992860817924`*^9}, { 3.58090152780693*^9, 3.5809015330953393`*^9}, {3.58097175550185*^9, 3.5809717625374627`*^9}, {3.58109024681913*^9, 3.5810902475211306`*^9}, 3.581090660500656*^9, {3.581090699219924*^9, 3.581090807452914*^9}, { 3.5810908576538024`*^9, 3.58109089061666*^9}, {3.5810909522835684`*^9, 3.5810909760112104`*^9}, {3.5810910459305334`*^9, 3.5810910471629353`*^9}, {3.5810930246536083`*^9, 3.5810932147243423`*^9}, {3.581132835032484*^9, 3.581132835391285*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 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.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}, {3.5747841177643905`*^9, 3.574784120931196*^9}, { 3.574788295155328*^9, 3.5747883150453625`*^9}, {3.5748281376022196`*^9, 3.5748281378830204`*^9}, {3.5748343592063475`*^9, 3.574834363948756*^9}, { 3.5753654533402643`*^9, 3.575365496287139*^9}, {3.5753657782732344`*^9, 3.575365826196519*^9}, {3.575365998186821*^9, 3.575366010152042*^9}, { 3.5755611386860313`*^9, 3.575561149793251*^9}, {3.575561180306905*^9, 3.5755612310849943`*^9}, {3.575561285248289*^9, 3.575561409393307*^9}, { 3.575561440016161*^9, 3.5755615497935534`*^9}, {3.5755616124120636`*^9, 3.575561635437704*^9}, {3.575561892338955*^9, 3.575561942820644*^9}, { 3.5755620823160887`*^9, 3.5755621030173254`*^9}, 3.57556213981779*^9, { 3.5755625665409393`*^9, 3.575562567820142*^9}, {3.5755634654301186`*^9, 3.575563469205325*^9}, {3.5755638765688405`*^9, 3.575564008295472*^9}, { 3.575564213810233*^9, 3.5755642215946465`*^9}, 3.575564866094178*^9, 3.57556519149515*^9, {3.575816288424014*^9, 3.5758162902024174`*^9}, 3.581093019302799*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", RowBox[{"-", "1.9961175737999999`"}], RowBox[{"-", "0.53698454016`"}], RowBox[{"-", "2.3030090762`"}]}, {"2", "\<\"C\"\>", RowBox[{"-", "4.341078567199999`"}], RowBox[{"-", "0.75112829048`"}], RowBox[{"-", "0.6080193405`"}]}, {"3", "\<\"C\"\>", "1.3387763846999998`", "0.09437291644`", "0.35972824136000003`"}, {"4", "\<\"C\"\>", "3.5241500174`", "1.727209564`", "1.16242715438`"}, {"5", "\<\"C\"\>", "5.091677734399999`", "0.24042983898`", "2.8820211226`"}, {"6", "\<\"N\"\>", "6.368376619999999`", RowBox[{"-", "0.95555884916`"}], "4.236198774199999`"}, {"7", "\<\"O\"\>", RowBox[{"-", "0.27767633844`"}], "1.20587195512`", RowBox[{"-", "1.20538062636`"}]}, {"8", "\<\"O\"\>", "1.14118663414`", RowBox[{"-", "2.0677381892`"}], "1.11019512774`"}, {"9", "\<\"H\"\>", RowBox[{"-", "1.11289743592`"}], RowBox[{"-", "2.3476066098`"}], RowBox[{"-", "2.4766748956`"}]}, {"10", "\<\"H\"\>", RowBox[{"-", "2.5431932508`"}], "0.114950142854`", RowBox[{"-", "4.1369881591999995`"}]}, {"11", "\<\"H\"\>", RowBox[{"-", "5.221879855799999`"}], "1.06162916954`", RowBox[{"-", "0.44385884288`"}]}, {"12", "\<\"H\"\>", RowBox[{"-", "3.7904124108`"}], RowBox[{"-", "1.40126962352`"}], "1.2257140781199998`"}, {"13", "\<\"H\"\>", RowBox[{"-", "5.6453674523999995`"}], RowBox[{"-", "2.0628249016`"}], RowBox[{"-", "1.4245699451`"}]}, {"14", "\<\"H\"\>", "2.8589664653999995`", "3.4028296082`", "2.0779427096`"}, {"15", "\<\"H\"\>", "4.6054512346`", "2.2757970218`", RowBox[{"-", "0.45576411667999994`"}]} }, 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.581219552957431*^9, 3.5815671458374405`*^9, {3.581567177521096*^9, 3.5815671954611273`*^9}, 3.581567236083599*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9, 3.574740785852421*^9, {3.5749559129781585`*^9, 3.574955914444561*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "8", ",", "7"}], "}"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, { 3.574786365775139*^9, 3.574786374511154*^9}, {3.5753558083414397`*^9, 3.5753558395570946`*^9}, {3.575367002641385*^9, 3.575367023202221*^9}, { 3.5753671931957197`*^9, 3.575367224473775*^9}, {3.575367534103119*^9, 3.575367537769125*^9}, {3.57537552033245*^9, 3.5753755271184616`*^9}, 3.5809007348575373`*^9, {3.5809724154142094`*^9, 3.5809724551786795`*^9}, { 3.5809921840599356`*^9, 3.580992187710342*^9}, {3.5810043867822313`*^9, 3.5810044091495113`*^9}, {3.5810479881982136`*^9, 3.5810480035330405`*^9}, {3.581088126042205*^9, 3.58108814622864*^9}, 3.581088245850415*^9, 3.5810884167487154`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"oj", "=", RowBox[{"Length", "[", "conn", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5809724723231096`*^9, 3.580972508156372*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\""}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9, {3.5753484863633204`*^9, 3.5753485008089457`*^9}, 3.5757146385303354`*^9, {3.575816415969838*^9, 3.575816437934677*^9}, 3.5809007468695583`*^9, {3.580972392513369*^9, 3.5809723934025707`*^9}, { 3.580972540276829*^9, 3.580972579214497*^9}, {3.580974406211706*^9, 3.5809744907638545`*^9}, {3.580974532213127*^9, 3.5809745364095345`*^9}, 3.5809745898396287`*^9, {3.5809746633469577`*^9, 3.5809746775117826`*^9}, 3.580974760191928*^9, {3.5809748106424165`*^9, 3.5809748253532424`*^9}, { 3.5809748897813554`*^9, 3.580974914164198*^9}, 3.580974946035054*^9, 3.5809749886543293`*^9, {3.5809750218511877`*^9, 3.5809750254079933`*^9}, 3.5809750736276784`*^9, 3.580975145013404*^9, 3.5809752146675262`*^9, { 3.5809752594708047`*^9, 3.580975261904409*^9}, {3.5809753136653*^9, 3.580975338828144*^9}, 3.581004560807185*^9, {3.581048221746224*^9, 3.581048234397846*^9}, {3.5810482972347565`*^9, 3.5810483673880796`*^9}, { 3.581088252839227*^9, 3.581088259594039*^9}, {3.581088497510057*^9, 3.5810885514081516`*^9}, {3.581132774925579*^9, 3.581132777686784*^9}}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1406698977297542`, 0.6310666719239674, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.023821562951466358`, -1.3033823280751313`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.481391649932261, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{1.9907061098259715`, 3.758813079847241, 0}, 0.1786]}, Text3DBox["4", {4.481391649932261, 0, 0}, {1, 0}], Text3DBox["8", {0, 0, 0}, {1, 0}], Text3DBox["7", {1.9907061098259715`, 3.758813079847241, 0}, {1, 0}], TubeBox[{{4.481391649932261, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.481391649932261, 0, 0}, { 1.9907061098259715`, 3.758813079847241, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.9907061098259715`, 3.758813079847241, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzte3lcW+eZ7jPYcfYmTdraTdNpmrQzd2bS6e92OtPO3N6ZzqT3Zjo3jXeM 2fcdvOEdO47rOIDZJIEkJLGYzXjBYBtjx7sNxmDMJrFIgNl3YzYDNrZB837n fEcILJz03vnz6vd7dY4kznfe5/ne793Oxx88wvx9QjzCArw83vt4s8dG/wCv Le/97w2b6atFfwaggCT1PbBzM53ytwKYzWb243/hYYNwWAThBnTG5N++9qcQ dljMfvjI6gurv2Wv34lnoexgZ/OLP7cM8/7Ct3xdeF+MR48e4fr16/j8889R VVX1mo078lHChcNLlivs7e3x8ccfW45eXl4YHx9fbLn7Yhu3/bE41k7h8Kow Vn9/PyIjI4UxCgsL2RjCr6SNcM6+U6vVXOO5w70nDrddOCyxqRp9XsKvZB/Z qOK9FxwtTDi8/Mxo1sqNjo4K59LQ7DMngCgSqbUeepbGf7LME10mUSx+otfP rZDYIEbiQOJEnBFpwA/E8f6HjTm0swH3VctM/fD5/L3BL2Y/sxfj8Gfi0L8R Di/MGVe657ds6PGOcPbK13LLuXyNK9be3j7nT/nPH/5pgG1Z0FIOwJYVvsD/ XrLEWbtZAqPRKGgljcNn5MNnJvmFOZMsnb9pQ5W3nz8L79iw4r8WB/ytjdHm s8/kzT/BsqXbWVs2v92/WNBJXmSeqb+5AKmMsB9bmTAbl336K/HC5ZZxv/Uc KujC9/ltJbPgRsmHcf4TUL7PNWWf2WjWaP+bOJzjPDChoaEWMH9jA8xfipet Ew4vPqPFqVOnLHf4mY0p/Qvx8jULMMBBSOZtbYIfWs0Yc+fsDny0X8wNDlZo 2LhZWVnCQL/kA7Df2PdMTT7Af7c90e8sAJKBkUD9Pb+U+SumPf/+p88deOk3 g8+gsvm4f/8+/sEG/J889ybftcEFuwnj4l/4aOzm0sx+8NzR3lqAC6Zyd3c3 ZDIZ/tXGhC+2zM27zx3/jedT8jt+Ffu5vLxcsrFFtgf7wXy7+Bbngl0uWTl7 1dbW4mM+BvN5O3bskEx4gaFn49G3rdyFjcRBWo9swkjj/+AaWHPzPG/+0oJO j0elBalabrXoJUv5+jvNBUoi/NErVg6f35EtJ0Yfo4qDWcVHsLam591MoG+R jV9fFi/9HjtYhe5v5uwkLazjuHSzV7/JbZfO+2nWBczlmr24Avb85/kRnPP+ mm0bskUM1+FNC3Rb+eVSq0XI5oHdks2D5JBKSkq4Z15ioUW6lk/OLBN2ljOr VI0d+aR/34YCCwXxBRwX++RkwynYyg9eXviuby5wV/Yi7/Yq17q2uBRGkiaS cxEyXCK5SnKDpIu+6yah46c2POkbcy2Fm+BCof+lZyZAClTMd9B44pJ6TdDo anYuckmDApILXKNiklKSOyRVJDUkhgiZHWrpZBFa6ZJ+upQN8h9cW+uo9a6V vT43oeDTImL6DvrbO5EW/gWO011OkTCSLpMUWalTTcK0aCAxkTSR3CVpIWnl R/bdYHHp762WvVVI5M73J/MChnWmJNnCa9yqT8cpkUODMsVOk3zFebpJUkZS SaInqedKMYXaImXoIOki6SbpiZKhl6SHf9dPJE4S4N/bmG5xVfP06GWbsznf u7zCOeysa8BZUvcoV5fxeN5qWm/zKTVwDptIlVZJVabiIVKN5F40cRgtW4T7 0WzKB6JFBI9I499w5tirvMwIdfwZ5ESfQd4XZ3ArpQT3mwYslZm1yxWXDn60 gMtiE0BIxED7XXQREJWjl4X3fG4QVwQgcuJdTrzLCYicgCjQHKlAa5QCnYcU 6ImWo4/kXowc92PlGI6VYZRkMcbiGJqRWBHgVEcnL19eElTIVJ5FgeIiihTX cVt5A+WJV1B+6AzG2vpsVbHLREDvzouw8wsZHmHFtfk9qB09kb55F44RkDyS swTgIskNAlEakYAKEn1EIhoiE9EUlYjWQ4nojE5ET0wi+mMTMUgyHJeA0fgE PIhXYCJejkmZfBEeyhjCSXp/EC9D576DGDIYf21x2ER5kboO1emNMOY0w3TU CEPmHbScKX6BLxRpkfDkhcOzDjE2rPBtPrcFByKR6uSF7D0HcYLgnCY4XxGU qwSlhKQ8QonqSCXqIlVojFKhJVqFjhgVemJV6I9TYTBehWGSMZkS43IlJuWJ eETyWJFAosAThZxCwhMFwzhF75NyMmSvDYSx4VfcwQoZU2mdcCxQtqEsYwD1 J4fRUjCC1rODqDvVCsOJ6xJcaelwG11mHWWfTSRZAilVDt8R/uY9VOTmE2aa TmdvWnAKms4EFBLWS4S1KEJFNqpGZaQahqgkGA8loTk6CW0xSeiKS0Ifyb34 JAzLkjAmT8KEQo2HJFMJajxJUOFpopIkETOCJJDIMZ0oo99osW7bhdp9Ub+e jZAvIuOLFgL9EPmqAbRefIy2yxOou9gPw4UKS7LGLHNO4rt41jtb8nEGPCUl xTqNsGQEzc3NAhGzsfbHSHF0RwabeGdfHNv8GU28kiZeTROvpolPQnmkBtVR GtRFa9AYo0VLrBadcVr0xmsxINNiSK7FqEKL8QQtHiZoMJWowROlBtPKJMwo 1ZhRMVHBrFKSJJAoYFaSp9q5G3ccvNB+PJ9XH6/gbnknpJdO9QC3ch/gaNoY mq6M4e61YdQW9cJw447Eh7XPldoN1tnVHGbEToTkqURn9j6qcvOQ7uSBLGcf HHUOQK7/NgqlalrRGlrRGpRGalEZpYMhWgdjjA7Nscloi09GtywZ/fJkDCqS MZKQjAeJyZgkmVLq8ESlw1OVFtNqLcxqDUkSzElM1CTERFIifZeA/t3hqHHy RpmDx98J6rxOBHSjpuwpclPaYGifTeFPaDpx+XgvCi89gP4ykVDUierSZvR2 9lmsQyo+mJUvmceGOLow2sIpspi1WX5YPIcwKsKWcVeRtt4dmaT3EWd/HHcO Qr5LCM7tiSPXrkVxpA63o5JRFZ2M2pgUmOJS0BKfgg5ZKnrkqRhQpGIoIRWj iamYUKbioSoFj9UpeEoynZSMGRKzRscsVqNlumqIPw3xpiHeNEq0hG6BwcUH VbRsO0/k/5xr2lLeC335NE6mdkLfYV7MnUDv3TGkHqpHYowJ5y904erFJlwt NqGqtoMnhGJ6wfwhX1y2mBPzCBrPZtL2olU8lb6WFiDzPKyeXMoDTtWJPGRQ AMl28kWOcyBynYNx2nkDvvLfjauRySiJSkF5dCpqYlJRH5eGpvg0tMrS0CVP Q19CGgYTD2NYmYYHqjRMkkyp0/A0KQ3TmlTMaFKJNW0KyyW0xKJOR0IWqCMG dUkYj42BwSMQBjdf6F29UOro9iEHVJBUhOykBpxM64G+yywxExWnR3XdIAxN g+gbmpC6289bdVZszWvQztYECzG45BkGmSVTmFrGI++5/V8iy5HszsmfyAsm 8kJR4LwRF1w241rAXtyKTkNFTBr0cYfREH8YzbJ0tCvS0Z2Qjv7EdNxXpmNE lY5xdToeJqXjMcm05rAdZrT0ZtalMeaSU0lSSIjBZB0m4uJR6x0Kg1cQsedP 7Hmj0sX9rziQs5qbOKIl5jL6UNNllig68dUDCxCpN2CdSs2utv87Y5tLlZSB UQ6/jGe8hx3cke1INuYUSBKCk2RjZ5034aLLFlx3C0OpxzZUHFDBEJ8OoywD dxUZ6EjIQE9iBgaUmRhSZWJUnYmJpEw80mTgiTYDM7oMIimDKZ2cztRMOUyS BnMqk1TKXBQw+m1Cnc8GGLxDYPAkY/PwRY2bB7pO5v2UAyrUluBIshG5mQOo 6jZLnVZD+Sg6xq0LssVz4p3ktN54Lj0v2HRuEu3L+HuGgyeOOJIROQXhqFMo sbMRZ8mILrmG4Yb7VpR6bkel1w4YNh6A6UsNWhKy0JGYhR5lFgZUWRhSZ2Es KQsTmiw80mbhiS4LM8mZxAtJSiYRlJrBKr3UdJjTaMF+cQjNAWEw+m9Gne9G GHy4PXmRPXl4oScvD1JT9pyuFDmpJuSk96Kiy/xtjqLwjvkZg2Ilm5TQSZnN W1/PzjxPxYSNxF7MDUoWVHX8JLIcaLGtD0COYzCOOW1AHllQIVnQZbetKCIL KiOOKr13otZnF0y+u9Gy5SA6PqPQrsrGvaRsDGuOYEybjUldNqZIniZnYyYl m1lQahaLR2lZlAtS/nQwFp1B29EWuE0gyuS/BXVkSQZfsiSfYLKmALImHxi/ PMjLj8U4n3wbRw+bUF4wjP4R83c4UYqEGpsrT3oKIa3Ct+YHwxdnkzExerAr 2F+SqxM5+QviJI848UHOelpVjiE47rSRONmMQrKby+7bUER2wzipkjjxI078 w9ERsAe9gXswQHJ/ewRG/ijHgwNyTBxQ4OEXcjw6yESGoeBwDAbvRn/wLvQE 7yROdqCNeLkbuBUm4qWeDMjgR5z40uryodXl7YM77q7vckoupJbjWIYJd86N on/ULPWbrptmZ/ot/h2zm7ndkq9pnc1x31JewHowNNJSTk81ZXJZ6zg960Nx 3HET8p23ED1bOT07UEbUVHlT+kvmYvILn0tP0F4MkgwF78UIyVjIXjwIYcc9 GCEZCiF6Qogekh6iqJMoaiOK7pLZmAI5Pf60vvxoffnS+vLxxR1Pt+9zrS+l VeB4lgkVX42hf8wsdYJysu5h/Kl1/0kMcWxZMYt587lLSrSVl+d/PSeEsS4w G0nk6bucJ18ccQgSeDpGPOW5cJ48tqOITKjMi3jyseKJOGI89QTuFXkK5jyF fIZR4shOYOsNjIQynvYQT+EiTyGcp2DiKYjxtBX1AZRD+dPy8iee/IgnXz/c 8XKzNKWupFfhxBETKi+NM6Le5aSQO7JAlIiyLjm/CVEv2SSK+R3+6GAZX7lV x4gje+JoHeNoA44KHIWh0E3k6IbnTpSSHVX6kD0ciMPggXhyJ5miZ/me4GWe kLd5RF5nnDzQiCYbg+SRBiiFH9gvx70dX2IwlFEUzinaxSnaLlBUxygKIIoC iCJ/kaJST7e3ObarGQbkHm1C1ZUJ9D8w/4izkZE7MY+h2e4VW3GWp8GiJ35x drHZ5oW9uBmK1voKMtdyTtaJnJwkTs66bcMlzknX/hgWc+yE4PN9IRCZUzKE yMQiFItULGKNU+QaoQg2SJGslyJaJ0W3loRMmBSZaPksnjjZjc4QkZNmxkkQ cRJInAQyTjYInOj9/NB7+pQlWl/PrMfJY3dRdf0h+sbN0qNKQ3kHjENmnsM9 u754kSbk3aLPmdsuXmQjaFkTxOpZscfxU6SvIXbsiR0HkZ0TxE4BsXN3XyRR QRldKmV2Kali2sLSl+TDQjJj1lEmSCnOY0p1HiZl4AHJsCoD95QZ6E0UUyOW Ihkpo2QpU0UsZZdbD6CVVhajx0j01AYRPUFETyDRExCEGj9fdJ3OtzzlvZHd iLwTraguesTo+QkHl395Go8fDvOoyz22Var4+jdYVc+SY125vcNd1Pm9Mche y0wnlKLXJirdtuBeDC2bZCoQkrVCumsnJL90hS5VSIjHoxXo2/MFWkK2U9kV CD3VLDWUU1Y5BuIOufkyh0DUbj2IKor81Z8rUBObhjuUgpccSsWt/YloCiZy gomcYE5OUCj0RE6lnw9GjA2vcFTFR+4iL7cdNSVT6B03/6WU9VwfsaCSuJFy FcbR61aLaV4da8uSRPZesER35nJ4acv7AS+j6ugZZK4JIisSSTLsPkDVFNWe OjWvpLSMJK2OJWB79sPg6os6Vz/Uu/jBSPWwHRqoOnkLdZReGtb7o8bBH5X2 /ri91h8la/xxfZUfLqz0w9WQ/SimOvlKRDKuEXENEknBIkk1AYEo9fOWHp7d zGlDXl4nakqfoHfC/Nc20sKl/E+tnxRbnhGJqIWyQSxwZyuIeaWqaC0f4PDq QGStDaEgtRHmJAUV34lCAS4W40no2Ub5sQsFNxdvNJAYnX3Q6OyLRqpsG6ny MK33RYMDkbPODwZ7P1ST46qg5Vm6yhdFK31xdbkPzn/qg1OfeON04GcoiNDg /OdUbAVTEA/eCH1QCCoDAtBZcBpSx6/kWCex0A397afomTBLj+xztAbce/hY +CRtvLBeQrZKejsrr2Mr1VnCc8f5sZx1TcUnEMtQuCcOGWtCULNtH8wqGcxq hdDXMauVaKaAYXB2R62zB1mEJ0wkTY5eaKb6tXm9N5ootW5cR7TZe6N+rQ9q 1/igZg3Vlqu9cXulN26u8BaT0ZdR8AdPnPjEA9lUqRxnXcmw3dAHb0B1UDBK A/wxZDRaMrNbx3uQl98LfcU0uifMP7eRAv7AKgVkLIk4/98ZYkGc2R5boD/g GWGX3oTUlTSRYfvwNFGGGSWxpJSj0dUVBkcX1Dq6ot7RDSZHdzStdydmPNBM xVnzOmJrnRea7L1gXOuFBpK6NV7Qr/ZE5SpPYshTdALLPXDxUw/h/Mt/9cTB f/ZA3EeuOEMVe3VwKMoDg3B2XwxKT/YhJr0bhqoZdI6bf8ExJaf3PUMLe0zP Xiw0Ce5jsZUjWWLbC89WndYFPVtQbGuFmD+9j8ojhSjbvA8PFTI8TpChfp09 qlevhd7BCbUOzqh3cIHJwZXMwo3AExn2TDzQtNYDjWs8YSSpX+2BWpKaVR6o XOmB2yvcORFutJJchXPd74Oh/TQIClpZu365ApcdAnDsEycYambQNjb99zbS uXc4LunBKm+W22oQLv56JubtaJN2B4lZ0msoi9ZiJF6GKsJe+tuPUGG/HtX2 juQlHFFn70RLwhmmtcQDSdMaNzsC704Jkmm1OxoIeh1BN5BUr3RHBcEvXeGG 4hWuUh898d/DkLZmN5SrwnFo1UZEr9+Cc/9nOYZMJssml2O543g0PSN8+nMb y2H20fViq+g7r0wU85sfkY034gLpduU3/4bi//kRStesJ0fniOo1RDlJ/Rpn 0tsFRhLTalc6MnFDwyo3wuIGw0o31JBUkpSvdMWtleI0Xl7ljPR/9xKn1GEP dP4HkULVQA5Fm3OfrETl3kgLoBMXWix0S4Csc6xnAP2Sp5PpKx1w9h8/wpV/ +h2KPqH5WOmECrpxNYlhpQvqSOpXutihfhUxXEeqfRt6ehcVdhUULl3liuJV otIXCGTOJ27CuWxdGJTOYVC4bcF5quKHcwpgTDmF7nMlkIww/+LTZxS37mPb LkUFCH/HzYl18DOcPJBDKp/+1f/CpX/+BEXLnVG63AV3SKqWu6J6hSv0JAZm J+zkJULgiiqSCoZiFUdBU3ON5OJqbk6vQkceJoFCViRllad9goSnF3oKdZXk y8t3R6CzrAkzAw8wUWPkW49YxnsfnRPWoF4QIrL0UFHqRbxoDeR1HF7vRj7e CznOfpSbBeLUb1fgwscOuE7ruuQPrij7AxnIp26ooLVeyYQM3470d6MYUU6G VEZSQoZVRHJtjRsukhSS5K9xxVFaS3bIWetCkPojIoVIPn4oSkhf9M7eKHf0 wFBdvbheRyg9ut2Lp1UGSAGksHzWWfB9jL/galeeOIlMuvyI0NIO4C3tUJxb 7YsLK7xwmdS+/qk7iklKlrP16k6qlNLqfRu3VrnjJq2dYpJrtMovk1wgKVjr jpNr3XCMJIfkClX0/VHRlHclYSImBrWeVJK5U4bl6oNqF090kQ1IDy36WROx ZwgdlwhOR7uUJFy7ObwQgpoTecimuJzj5Ce0BHOdQ1DgvAEXXTbhhusWFDlt QHHoPlwgW7i8wgNXyfHa4Rr5oLdxlTzSFZJLazzwFUkhOetTJMdJcsiBG3bu Q/+hOMobxX7yZFw8jD4bUOsVLDZI3SlPcKMo98WXllDb3G9G75VK0n4AUqZ3 3bjABCxFuoMbjjj6kOoBJMHIozyh0HkTLrtsRpFbGMrct6LKcxvqdkaj8aAa 5Zv3o3LLflSH/RH6rX9E7bY/oo7J9v2o3UGycz9mdFQYkbB6II1tYZAlonfr XjT7bYbRd+NsS9yTtTApbXF15w9UaP0OPUZXeTNGL97mGyApRcvoxgRvsvyN tfofIMOBbGc9MU8lxVGnEFJ/I845b8ZlYr6YVL/tsQ3VXttR770DTT470ea7 E91749D/WRyG1JkYS8rEhCYTU9pMPNVlCi1qc3IGJg/EYJykN2Abukja/MNw 138LTJYWNc2AF82Apy9q3D0wXF8PqR4Ze2SG8VYnntyfxFSD8QMbIXMeikwH WriU7wutUsdQQrEJ52gCrriG4ab7NpR7bkcNIWjwporRdxfaSXr8dqPffzcG A3ZjKHA3RkhGScbYMWgXhknuB+3EQOAO9AZuR1cgoQjYSihYi1TqJYcQEpoI bz/oPT3RmZdr2al9b9iMh92DMNc3WTYOZxwdmQ9BdFtvo7u2HlmUkuawju/6 EBx33IB8p80477IFV9224qbHdpR77SAYO9Hgw2EQhB6CMBAQjsHAcIIRjpGg cLrRWNBuKu1H6P0+wRggGL1BOwjCdrQTjLtzurysXUeT4eMPPfn8rvyTb/B5 aCdXNNM/hu5rRlrTPT+0ONhGmIas9+1yED+xgDjiEMhBbEQ+WdN5moerNA83 Pa1B7CIQu9Huz0CEW4HYQ4rvIQjhGAsOxyjJcDABCSYgJL0EpiuIAdlOQFhr loCwfhprzfoREN8A6L290XXq5FscSOVdM7qL9IJj6is3SlVK3oUnltn4cJ5B 2fvgyDoC4RBCBjUL4ooAYgeB2EkgdqGBZqHZj4EIRw8BYD3mQZKhIBHEaPAe KxDhBGK3CCKYgZjbX64TGqisu0NG5UcgfLzReeqk5QH6xMg0TOXteFhcyZ8T LML564O2IbyPjLUShFChG8N6wedct86FQHNwb38s7pM8jE8SVu80yWMtrWBN hrC62cOoISoN7+2Lw71tB4UW+YDQIt9laZE3EwQjQagN2Cw2qAIIgn8Aqn29 l/E5uD9JWrb3C/5purlJAlV422wbwKs4TEXZEftAoWMiNNsszezt0G/6HKNx CfxhYSrEB4jfZc8S8VRzGFNJhzGhTseoSnzwyB5AdinS0SpPh0l2GC17YtFG HrgzeAdaGYCgbTAGEoDAzWILKVAEUOHrZalNuu6b0X6mDObmDksn31AxicFJ se/4s7n8Vx87QyV8IM0Bqb9+E8W1LbjF+sMxMv5kWCfGJfa0WJvCHiBjOikV T9SpeKROw7gqDSPKNAwmpKFXkYZOeRpaZGkwxqVCH5uKO9EpqNifgIbNn6OJ 1G8IIvWDSP0gpn4w9FScGmOifsj5r+sz48ngJLpKTDD3D0j/F3PNKrLNA9Bj MFGBTQDsQ2gxb8Q18ibWPQhxcwABSWKiw4w6GU9JplTJmFSmYCwxBUMJKRhQ pKBHnoL2+BQ0x6WgPiYZNdHJuB2lQ3GEDpcjtKjZ8hnqg8PE/gMHUE0Aus6c fo8DmJwyo+Vmo+CRxiqM0sPelLT2+QDElO5FpK1iTZRQsYmilovdAWH3h4oZ DFXLS4XdITMqDaZVWjxWavEwke2l0WFEocOgXIc+mQ5d8Tq0xunQGKNDLZVP VVFalPIdKhciknAmgsL6lnCxexS8AfqgINwJ8IPUZBwhPzrV3oMnFXqbG3+l NNs6wM2B8h4qc84ifTWV1dv2Wcp4YSuPsKWHICmV9L0K04lqPCZ5lMD2RLG9 URoMyTQYiNegJ06D9lgNmmM0MB7SQB+VhDukfomw3UiF8yT5EWzzYyIMIZug pxK+iqAYYqPFRGIJeh6w7O4+xoenaTG3SnWnBOro8VFMPRWd6t9alzo/QvKK YNwJ24cpKr2fkrDNWNNsU1aCgj4nkLDNako8IpmQs41s4oa2e/Fq9Maq0Rmj Rmu0Go2HVMImuCphgxjbKKbEJVL4bEQCciMUyImQ4/KufagKDsGtwEAqPI38 X3ReRkOPGR1fVZDmfRb+a8pNOCY7g7NnTChPuclTbq72C7QGGlGyaR/GqSR/ KJdhisQOj+l9KZ3L8UiuEJ68j8sSMBafgOE4cYthH0lXdCLaDiWiOUrcjlgj 7ONLxE1hX5+C+FbgFKnLtjKyfZoXSe3SoBC0FhTw6Rc7y62lTcgIy0aZqgpH DzSiLrUEvWX1EsNiMfcuSg5p6dYycosyjFOBP0EyyY/sM9u8ORInx1CsuLWz L1qB7kMKtEcpcDdSASOpYyCpIJVuCTsq2c5KcWsz2+J8lKt5jtSsjpP9rZWG tSXNRGITrie2ofnSKExn2tFv6pQ0/AeeKvfn5KI/Wob75AGHSdhG0hF+zrzi IP3GtsqyXbRsN217pLgZ2MR3LVfxDcNFfGdzId8Dygi0E3RbhFJax3MzrGef DubJW1BxYgDNX/Wj4Qap2t4tqfor7mx6snMFFfrEDb12GKCTN6gKErchd/M9 v2zPdDOJ0UrD23yv8BW+dzh/noZXaOg5q3wR7+ycy2rDqSwTblw0obauk1vi r/naaqfLGBntwlCd9P4tdPDPkhqNfBe1nu+qLpunyilRFVuaeIt3+0d+twft nWijn43C3di4rwnTwDY91/EN0AxsOcktvgv/Mt9jnD/3LmxfunQXH/Eu4h7o N9BXXIpmuksV1/cOp6+ET/JVvlvc2gSZ0mzIAHEo6R90RuirDhqunaSV5C7/ VwH2LwP1xaXifyP/1/6j9P8/fJMD/uw/AdPYv54=\ \>"]], "}"}]], "Output", CellChangeTimes->{ 3.5812195530042305`*^9, 3.5815671458842406`*^9, {3.5815671775366964`*^9, 3.5815671954767275`*^9}, 3.5815672360991993`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C-O-H, C-O-C: two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ StyleBox["rlos", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox["Table", "Input"], StyleBox["[", "Input"], StyleBox[ RowBox[{"1.125", ",", RowBox[{"{", "hj", "}"}]}], "Input"], "]"}]}], StyleBox[";", "Input"]}], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 3.574853202997974*^9, {3.575001859979342*^9, 3.575001914766638*^9}, 3.5809173790026107`*^9, {3.580972818144517*^9, 3.5809728537593794`*^9}, { 3.5809729085154753`*^9, 3.5809729086870756`*^9}, {3.5809731251686563`*^9, 3.5809732286436377`*^9}, 3.5809732853653374`*^9, 3.5809739855413675`*^9, { 3.5809754568267517`*^9, 3.5809754672475696`*^9}, {3.5809838741876965`*^9, 3.5809839118305626`*^9}, {3.5809888284304414`*^9, 3.5809888286020412`*^9}, {3.5809920799453526`*^9, 3.5809920922381744`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}, 3.580917396942642*^9, {3.580972863836997*^9, 3.580972883165431*^9}, { 3.5809754738619814`*^9, 3.5809754966692214`*^9}, {3.58099214666667*^9, 3.580992154092283*^9}, {3.581004445357582*^9, 3.581004448245747*^9}, { 3.5810048220751295`*^9, 3.5810048653386035`*^9}, {3.581048100705611*^9, 3.581048142092484*^9}, {3.5810486479545727`*^9, 3.5810486717914143`*^9}, 3.581087818175664*^9, 3.5810882176767654`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}, 3.5809174237590895`*^9, {3.5809729404331317`*^9, 3.5809729530535536`*^9}, 3.580973134684673*^9, {3.580975555777725*^9, 3.580975556635727*^9}, 3.5809836143692403`*^9, {3.580983826046012*^9, 3.580983827668415*^9}}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3232044599293229, 0.4822312636669202, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3232044599293229, 0.4822312636669202, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.6824200372841407`, 0., 0.}, 0.2572]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, {Opacity[0.5], SphereBox[{0.9538042812599788, -2.3212437786667737`, 0.}, 0.2572]}, Text3DBox["1", {-2.6824200372841407`, 0., 0.}, {1, 0}], Text3DBox["7", {0., 0., 0.}, {1, 0}], Text3DBox["3", {0.9538042812599788, -2.3212437786667737`, 0.}, {1, 0}], TubeBox[{{-2.6824200372841407`, 0., 0.}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.6824200372841407`, 0., 0.}, { 0.9538042812599788, -2.3212437786667737`, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {0.9538042812599788, -2.3212437786667737`, 0.}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlWmlQnMl5fgwISat7tfdaG2Xj2KlNUnElVSlXUk6ydpJNVWLnsuX88Q+V 7FjyVnZ1r2qzkSLhlQDJ2kWStQMSOrgREjAzMNyXYBCXuGY4BoZLMMDAAAIG CXQwefv7upueYcAuV8r5ka/qZb6ru59+j+d9uz++s/vw3h//x+7D+/bs3vne wd379+7bc2jn3354kG6FfglADknsTrBzH53yPznw+Xzs4W/2Zz/7CWUI3tVv HNB+tDvaGZO/+s0/0nCFsAdb+Evz8/NwuVza1df1l05oP2u0R8nJydi1axf2 7NmDpqYm8con2s967ZWKigrtFXZYLBa/a6/Xiz/Sm/xADr1Tu7HRr/F7772n NWYN2PXAwACcTqd2zd6h8Xk/u7SfML/Z0bGDg3a73YiKipIIWEfr+FzZZNgg 7OoP9YbflKjoOe+KX9GxLfhYb2gn65ZNgCmIAf7ggw8wMTGxlrdmr3V2dgqF bGS3w5Yw4y8C7MWOkCA23BoczavaSfgyNOpwpBgG7tixYzAajZo1GdCNQUbm oP6SN1MHE6+8GBzIS4pTCDMIuzIzsKfCBML9VJOEScWEBZn9l/9XlPXiKsoi zCF8Cm6XB5a0IkS8fwI1BjPsJM44MwbjzZjIq8bCiIfe0kednp6WLrspCJI3 l3naGj9PE+fb5Qs69pdXDBD2lJlRnNsbHLhFCC0GC6oNRbDFlaD3ZhlG00ox lVkErzGPxIxnHg+PhTDZJ3eFQE9QgH87yCM9hNdKhKqpWc/M2fRZbtJ0qR73 rzagK6UJrqwWTOU141FJI55V1GKxsgLPyy14PumBCB0xQ+4m61eLfXwrgGHW +zEY831mItElMxs7FzDTSHnphiqYDU2ovNqhjdFr7IO7qB+zlX14WtuDxUYH fM2tJPfgbbAucwE27fUSxVs6rHdlLtgRoDXVrgwmu6d3uQWt1U0EqZIg2WC5 0oPqlCEN0sMeLx4NzOGJaw6LfVPwdQ7D5+yHr6cd7rISzLiGuPbW+I0jQv73 FF0FGPX1ILHBDgaNmoYokxVKFMxqv9eGtEt1uBXbD23u4SKiZ+jFkUHYsivh trWE8yFYH6pHc/tycH+2KhG8yrUoKIaxrTAu65edb+bo7FYH0s7XY2xgVsYZ +7XVP0R9QqvovrZwFLb8Wrg72rnywuUUha9w+35tZf29tIL+GCDqLZQ3UTve KHBWOlB6oxG+4UH4pr0S67HIceR0+kK4QQfsczDFD5NjdKPkVh1Gu9rwgpJl MjIyhKG/ujLObUp0rEQv7F51dTXny1C0lrXBXVnN6ZYdL+D9w04MdnnxWcZz 9BaMoSVzBBU3B2A0dBHCRpJiPBwbEQDZUMLTCeQqADcrcRKYSBgwVq8IbTLT 1NfXa1cv8lAezcuHr6mapAVnz4yjpWEM0+W9iDjnxmB+C+4nkrZjbcg01BPI UlQX1fAxQ2UYs6uvKAGsTXrzCpoTiV/lldc4mOF6B56VWRD/n/UoaXoIb2ED POZGxF5pgfueHbWxtSgw3CUCLyAwZo0uBRg2eRG4HMx3V+EQlhOYs+nEswEx +8xojDVjJtOCiVuFcCUVw/RFPdqza1FuyEO2ISdgyDBtKqy/mJgYNjQf9R0Z kTs4NJX5RVZTPZsJu9bffwHH9+fgltWH+WEPvE0O9FM2dRC25I/NKLpsRq2p Gm0Nju1BzPC2juH3g2T+N3n8rET0PEvu5E1tTY/x84xHgpu0e2l3nsL1WI1g f71vlPStY9MN8UvYaXmBwX7JRl8RSOonERE7i8knPp6BCEnsADrJFOxqO8co iJKbI1h9oXs9L2j9H23/FSKdjcDU9TsS2QN8dMYNz7yPc2EoapwPZZ8v83si YelXq6lkFYDbVuByZnrhAl+VwDrx00MOjHqX8o6xZXEZMNYXO9gEN3A1qj4D UdfrXr28nNi6Ao8zgAF5kOFlV7/L7537fBZt7gW/3BhXvBQRL3EiF2ZlcxWO 9gJ/pqIRmLcqIaAw0fIliLAsG4DO3+EYzvz3A5T1+7g7cKzx8wG6W1ZvrQYp VMaF/ha+8UtYm9lS+EDEsTrktvk4N+j3jn/agmeu+0oU+dtynZx8qP9ZgE/p 88MrEt+OIFHAjmCs/QcCzH6jRlc6ker3qpkCF2YUhYVrkSMmqhhz46+C8PUV 6SM4vbO0xxzu6yIgGh/hXLpe2Ij6PbeZKPa5zw8jm5s6V27cwNjghg22mOKA t8owXxPkpcDyR6iFM9+fyDCeIOabIeZblMul9CIfJp+qVeiS6f1r6hB5pqzX l7xI15/2/GUlQoKlBl44/LGE1Ue0N6LRnki/aQkzeDCnw3otIHKZQUTkbllZ Za8FebR1FRszpIzr/5S323ewA6NzalnEoFJJY2/Vrt5U2FisozdJHWxY2dE2 BiE5ZSEcqvRbXFysXQkLnjs/A/vInDKXUFR0LqX+N4JY8I3AoNzEzROsimdP eOb+hiCwE31EYDrZbxNeU7fESK+vYh79GU9wwdUu1u9/zrs+9ZEVuXY1fYXi UvZSrvmyoh6DwcAHF2rn6WVnEBWzg68HxE5GemIH0qvUhB2KyM89cqw3eZyK brhKw4KHL88UbwWoV92HYTri6v2mcKmGOZxN8ShxTHPL7ceip1PBsEakFc2k Qr2hqwJZCt1gTBjqH9OhKzgl37N6VwmACMM0JhcWZdYv7/Zh8ale2r0lnFLf ONSuQlZFuZRbeAUjXhPwdNjr5DNxqO+SUgQzMb8QoyyhduLoaZfGMK/we5k1 PjzidL2DI2QmUlLU6sBDJCUH278M4MgwOR29hb4av3btmmzFbSoWZXsPtMPN 2UdATst+hvEnKuS1soZkGerkyZMy08jxgi7wAiEvEfyalcAHnaSejFhUicNu t8uF5blzU3BNqdmV5hA3iJ4ZdSsrTDIGx6gG8tpfF5N6sEgUrnDmRDfK+hYV 5grF/bZuqR+xmS3KYJFG2fVLCqZgG9drV8EkGJkdfFeHfxlglFcuKU8weKFt PgBTuLYrL0ia2Z3be7sCi2NQEahaC9Skv+3pgVqsCHjpCe1Ir1QZMRQ3KpYS gFjiMepghMdMqWIKUwdQEQUGikTz15IbvYjP0mt6wfsxiQsBI/vvb9D5i7+G 72jjiv1WW70bEV9MEcs9l6vuiMg2Oe7b/J7YnGIaUx12XdAB/MmEH9+SQzpw 9NMH8CwskWj9EA033acMGSZTJqeLZSQa7s/oftP6yYdtklPEGAXkd8+fPfUb Q3z94ZVNuGRh3cX0okvr+e94L2fPTshI/y1+71aZD7OcYMXaW11UhAdhJ/0e /k0E6/FOGazCy9KS5tDe68GUS+xVr8NEswNTJA9bHJgmmSXxtjowR/K41aEu /Vixo1YowcppjuIHIjyPFsnwFMmdHWzvpsxUjevHzbhb5EDvFTMGr5mxMOoJ 4Vw70tSJ3jwr2q+b4LhhgvOmCX0JJjxINMFFMpJkwliyCR6SyRQTvCVWPHWP yzog8BNNcKC7hA/Zn1GgLipWeF3nm19kwWgoQl3cXVTc7cZkthXzBaUYJCSD NXbUxRvReM2IFkJpJ5QdJF2EtIee9xPKQYaWkI4SyjFC6SGZSjXhYaoRc6VW +VFKrMjYIcukoIi/LwN8FvGZ84qB34CtxqY1KYyzozXVibLrPXhU1at9AehK q4T1s2TUEOKGayY0EeJWQttGaDtJuglxL6EdILSDJMOEeDRFRz1BiCcJ8cM0 DfU2xSlEAvWvq4Ii/56M1xFEXJ7UKOK3OTXa73VpTUquuFAR50Re4iymrNPo Ng6hKrYKlTFXUU3Iawn5fULeTMhthLo9wQwHiTPRjL4kMwaSzRgi5MMpHD0h 9xDySUI+RUIeIktjRrrCp5eqOV4t/asE24kjP+vTyOVtDvbyx1ka2OiPepB3 +xEcFV705U+h4HwjKpPqURGfiEoCe4/AVl1KRVlUPPJPXEDWoUhkktw5GInb JLdI0g5EIuXAGVjPxqMjNhVuAjtOQD1p2Xhs74TQNSsUxHJdJNUN/lAv3nwq OUr34S3INVQg4XSzBjcrth9Jl53a+eOKDozkOmBLascv/j0Flz5KQFmCESUX U5B//AJyDkeSTnIOR9GSJ+dwNMwkJpLsQ9E0jWiaQhTBjyL4UUjeH4mED8+g Iy4FboI9J2GHsw/KfrsV3E34uvdfBAdGjUsOFBm7+God0j9vQ+z5QaqMfNoG miBTYi9PRgl6bpSi1lCMqB+dx2cHLyGPgOdpwPOPRNHkC45E01k08pgQeMvh s9pkTIf0iWQejEbGgWik0yRS+CSMn8RggZxE8AirM5m+2XqJo/5n/uj0cTvK ep8rtUe45i53bzoQ8eN85CZPoc3pw5DXp0fAeszcd6DDYEa99t3TTK8UwXI8 BoVHIkmiUHSE7UsXHYkOocuztNwtoL/5BJtBzyUxHzqL7IMCOul/fxSSPiQ3 +tkVjLk4+4XJ7QLuKXxZ/08c+Mkj+ZKVxQ5BJwG/lz6M6A8qkGd6DPug8kWD 9GE9FUO4IlFMCEtInyVHo7XfELrDgBbR34LDHCyBzCExMmchoLcJaDoBzTp9 FTlXslFlrhRbdwHff3jw/aMIPttTpHFWfoUDzSY2vn6iDhc+bkBu0TO0jPhk kHjJ80bJA1vPXyVwUSjV1FlKMDfroAkkA1roB5QcgkBmkSOYPrmIwgupKLpq RB4BNcdlC6BiDckXdRzodyVLTCP+9mPtSqTMPMNdJEW34IvTXbA1+eCeFc9e xnRZlRblYySjFPG28/GoOXlJA82AFpOXFpEUkuQTQAtJ0fFLxCTXUHkxDVZi lrvEMKUEtJCA1pqr5KaN+hGCM+93JMwhnLrsweT8UxmhzGNL4xuRcbEDhgsj sHf4MDLne5UjnSeVMvKcIBknMnWTjBCxukgGiWwHiHTbDOnoJgLuJCJuu2lG KxFzExF0PRF1DeNAQlpOSEsI6YRrnC9owrTYYpzGi3EO9h9U5o1wasy7hevU TveqEp34dB/VFenTaOsT1e12eCmdsgTFEpUnVU9cLAW4kvWE1k/SQwmuixJd x009XbO03UhSRyhZeqkklFPD43IpwehLZLE1/vAuXF+QbLtRBlEXam+7ce5g JSy587C5RG7epmV7lvUnU/UqgNUuI8l6dcBqmr5EvWpwsKzGshvLcgSrgWC1 51JbgqVvBuHvBW1GjkraFJveRuLDG6cacPF4E1prn6NxVJSQm7Xkx8okVi6x ssmdrJdRQyzts/RP0s3KAVYW0PA9VH7NDo/rnwnwN3zU/gYHRkjYlVianP6v JpT1POEVno4kP64KyT+34YuoXthbdQJ/h7/xmFeYrNKc5ZUnq0AnqRKlitTv c7/+fy23iS1LSZpIuuMoyVO16CZfO3kkV+OycMWdy6634vblLly66Ia9ywfX nO+Heo9iKct6TDfkLC1fqOVIegUeZpeiIc6KVOMYZnOoHh3ziK/YbdSxNakf p98vgeWOF/YBH3arvW5B8sVMZBmsqIxr1PoczLJjqsCOB6l1KKdE66uzwldb gI5MC+oyPTh/1Iqc/CdoJQr7kd6VvnDchJGBYaTFFCMntgM1SX1ad6MlLvTe aUdpXAea4wvQfIXSX1wu7t3q1MjlJ2oXG9FaaUPauSrcu+2Eq3lKVmSHTzlg rHqMsa45zPa7MN5ghy0jd69/65ZyGujqPfj6CXdvv9Z6sXcKC0NezPRSvVM1 SbXOEBpMVGrmFgS0djndeNaQD18LzbilSWu9YKXyuYSW4SYnWpP1b9kZhlpU ZJr2qnrcgEf11XhenivXfzOWGozeqUNXYi3qYqspc5YjzZAHh70Le/1dZbai GtO3zZi6lYPRJAt64/PQbLCgzJCruxAtOvbpTb4tshv5wjT58ySJm+QBiYOd 0/2f6q/+H/0/5v/nH3zpfwAHQXhE\ \>"]], "}"}]], "Output", CellChangeTimes->{ 3.581219553035431*^9, 3.581567145977841*^9, {3.5815671776302967`*^9, 3.5815671955703278`*^9}, 3.581567236192799*^9}] }, 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, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "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.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1934627632307397`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.1646244421410528`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.1234393908106837`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "0.8699258527260574`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1233100186420701`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.0368823802306384`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "3", ",", "0.9306824622345446`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "1", ",", "1.169826188715685`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "1.1696283567511592`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "2", ",", "1.1698903016028805`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "2", ",", "1.169802774304518`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "1.1697971279783204`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "1.169764495787681`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "1.1698542799115086`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.581219553051031*^9, 3.5815671459934406`*^9, {3.5815671776458964`*^9, 3.581567195585928*^9}, 3.5815672362083993`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{ 3.581219553051031*^9, 3.5815671459934406`*^9, {3.5815671776458964`*^9, 3.581567195585928*^9}, 3.5815672362083993`*^9}], Cell[BoxData["7"], "Output", CellChangeTimes->{ 3.581219553051031*^9, 3.5815671459934406`*^9, {3.5815671776458964`*^9, 3.581567195585928*^9}, 3.5815672362083993`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"0.86", ",", "1.20", ",", "0.002"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.574935943705309*^9, 3.574935952815725*^9}, 3.574935986464984*^9, {3.5749360234214487`*^9, 3.574936050752697*^9}, { 3.575375124746955*^9, 3.5753751382097783`*^9}, {3.575375905996327*^9, 3.575375926978364*^9}, {3.5753912779750137`*^9, 3.57539131004867*^9}, { 3.575700625296671*^9, 3.575700653704321*^9}, {3.5757278228511343`*^9, 3.5757278405571656`*^9}, {3.5815671265090065`*^9, 3.581567127944209*^9}, { 3.581567166507477*^9, 3.581567190671919*^9}, 3.5815672300463886`*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.651]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.651]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.868, 0}, {0.87, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{14.805738295318065`, 17.821968787514948`}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.9299999999999999, 0}, {0.9319999999999999, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{77.30888355342131, 80.3251140456182}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.036, 0}, {1.038, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{184.16909963985586`, 187.18533013205274`}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1219999999999999`, 0}, {1.124, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{270.8670108043216, 273.8832412965187}, { 42.49511267564932, 98.9761860120801}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.164, 0}, {1.166, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{313.2078511404561, 316.224081632653}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.168, 0}, {1.17, 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.2403121248499, 320.25654261704676`}, {-96.20757066542767, 98.9761860120801}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[7, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.192, 0}, {1.194, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{341.43507803121247`, 344.45130852340935`}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.868, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0.86, 1.2}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.581219553550232*^9, 3.5815671464926414`*^9, {3.5815671777082963`*^9, 3.581567195648328*^9}, 3.581567236270799*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.575562682901544*^9, 3.575562696785568*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", 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", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", 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", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", 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", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9, {3.575602053545355*^9, 3.575602059286165*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 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[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 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[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 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[{"cw", "+", "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpno", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpno", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpnu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpni", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpno", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpnw", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpni", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlno", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnlj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplo", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplu", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}]}], "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}, 3.5753451622470818`*^9, {3.575351337845529*^9, 3.5753513418547363`*^9}, 3.575351450508927*^9, {3.575365082044012*^9, 3.5753650985644407`*^9}, {3.5753651580941453`*^9, 3.575365163008154*^9}, { 3.5757218899846277`*^9, 3.5757219013726473`*^9}, {3.580984033183176*^9, 3.580984058892021*^9}, {3.581090396906993*^9, 3.5810904393234673`*^9}, { 3.581091136005091*^9, 3.5810912070008163`*^9}, {3.5810914837765017`*^9, 3.581091494415721*^9}, {3.5810915970171013`*^9, 3.5810916066111183`*^9}, { 3.5810934140302925`*^9, 3.5810934529835606`*^9}, {3.5810935824949884`*^9, 3.581093584086191*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", 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[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8a1", ",", "Plot8b1", ",", "Plot8a2", ",", "Plot8b2", ",", "Plot8b3", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, 3.575345171575898*^9, 3.575345357543825*^9, {3.5753513717287884`*^9, 3.57535142378608*^9}, {3.5753652394014883`*^9, 3.57536535446729*^9}, 3.580900985097577*^9, {3.5809840711536427`*^9, 3.5809840741332483`*^9}, 3.580988981778711*^9, {3.5810904595411034`*^9, 3.5810904662959146`*^9}, { 3.5810912346440644`*^9, 3.581091244674882*^9}, {3.5810935996550183`*^9, 3.5810936086718345`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9961175737999999`, -0.53698454016, -2.3030090762}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.341078567199999, -0.75112829048, -0.6080193405}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3387763846999998`, 0.09437291644, 0.35972824136000003`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.5241500174, 1.727209564, 1.16242715438}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.091677734399999, 0.24042983898, 2.8820211226}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{6.368376619999999, -0.95555884916, 4.236198774199999}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.27767633844, 1.20587195512, -1.20538062636}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.14118663414, -2.0677381892, 1.11019512774}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.11289743592, -2.3476066098, -2.4766748956}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5431932508, 0.114950142854, -4.1369881591999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.221879855799999, 1.06162916954, -0.44385884288}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7904124108, -1.40126962352, 1.2257140781199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.6453674523999995`, -2.0628249016, -1.4245699451}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.8589664653999995`, 3.4028296082, 2.0779427096}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6054512346, 2.2757970218, -0.45576411667999994`}, 0.12]}, Text3DBox["1", {-2.5961175738, -0.53698454016, -2.3030090762}, {1, 0}], Text3DBox["2", {-4.941078567199999, -0.75112829048, -0.6080193405}, {1, 0}], Text3DBox["3", {0.7387763846999998, 0.09437291644, 0.35972824136000003`}, {1, 0}], Text3DBox["4", {2.9241500173999997`, 1.727209564, 1.16242715438}, {1, 0}], Text3DBox["5", {4.4916777344, 0.24042983898, 2.8820211226}, {1, 0}], Text3DBox["6", {5.76837662, -0.95555884916, 4.236198774199999}, {1, 0}], Text3DBox["7", {-0.8776763384399999, 1.20587195512, -1.20538062636}, {1, 0}], Text3DBox["8", {0.5411866341400001, -2.0677381892, 1.11019512774}, { 1, 0}], Text3DBox["9", {-1.71289743592, -2.3476066098, -2.4766748956}, {1, 0}], Text3DBox["10", {-3.1431932508, 0.114950142854, -4.1369881591999995`}, {1, 0}], Text3DBox["11", {-5.821879855799999, 1.06162916954, -0.44385884288}, {1, 0}], Text3DBox["12", {-4.3904124108, -1.40126962352, 1.2257140781199998`}, {1, 0}], Text3DBox["13", {-6.245367452399999, -2.0628249016, -1.4245699451}, {1, 0}], Text3DBox["14", {2.2589664653999995`, 3.4028296082, 2.0779427096}, { 1, 0}], Text3DBox["15", {4.005451234600001, 2.2757970218, -0.45576411667999994`}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.1685980705, -0.6440564153199999, -1.45551420835}, 1.1934627632307397`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.4314632010499997`, 0.9107912402200002, 0.7610776978700001}, 1.1646244421410528`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.3079138759, 0.9838197014900001, 2.02222413849}, 1.1234393908106837`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.7421404766390785`, -0.36891202741385865`, 3.5719583651821845`}, 0.8699258527260574]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1117201606849254`, 0.359978209650604, -1.73811355249788}, 1.1233100186420701`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5052362344522672, 0.6675286063273163, -0.44733593198569876`}, 1.0368823802306384`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.2366011351533144`, -1.0236721296229765`, 0.7478007055190975}, 0.9306824622345446]}, {Opacity[0.5], SphereBox[{-1.372793170689087, -1.814814236759534, -2.4255721140832915`}, 1.169826188715685]}, {Opacity[0.5], SphereBox[{-2.3821953961957365`, -0.07690646806852236, \ -3.597269962676899}, 1.1696283567511592`]}, {Opacity[0.5], SphereBox[{-4.962704107663741, 0.5282253508000966, -0.49216306352062816`}, 1.1698903016028805`]}, {Opacity[0.5], SphereBox[{-3.95245292193169, -1.2099572781193593`, 0.6861147274444394}, 1.169802774304518]}, {Opacity[0.5], SphereBox[{-5.2615628089829585`, -1.6768404346503676`, \ -1.1842888868263064`}, 1.1697971279783204`]}, {Opacity[0.5], SphereBox[{3.054708880395183, 2.9097477917902568`, 1.8085355283706912`}, 1.169764495787681]}, {Opacity[0.5], SphereBox[{4.287272721478109, 2.114372306037531, 0.02039709019068603}, 1.1698542799115086`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5947050058382488, 0.5525048222165977, 1.4535622964470936`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5029940329137315, -1.6799259207244763`, 2.04950969068466}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.082847763561751, -0.3637589893365982, -0.7341058137270933}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.7793792353662687`, -2.455550457675524, 0.17088056479534042`}, 1.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.343107697600065, 0.7080840048208576, 3.9687328972564795`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.676280485549151, -0.5276769948267563, 5.250062699690268}, 1.3]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.840247771199934, -0.22722432686085736`, 1.7953093479435198`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.060472754450849, -1.383440703493245, 3.222334848709732}, 1.3]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.9680384743582255`, 1.323510391056531, 3.0196015397147438`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.179723784188792, 0.051997415329341434`, 4.3648306250421935`}, 1.3]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.215316994441773, -0.8426507130965308, 2.744440705485256}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.557029455811207, -1.9631151136493423`, 4.1075669233578065`}, 1.3]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.3], SphereBox[{7.143406661505329, -1.6865927663239473`, 5.07377808096455}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{0.11870698594589135`, -2.7671030997551944`, 0.704243097429796}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{2.0129059705876156`, -2.598152641406765, 1.9214527115896218`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.0106008516793026`, 1.9450292397637683`, -0.44172262263583095`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.45161346611770764`, 1.6060178426094318`, -2.1926622629229797`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.341078567199999, -0.75112829048, -0.6080193405}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.5241500174, 1.727209564, 1.16242715438}, {1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.091677734399999, 0.24042983898, 2.8820211226}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.368376619999999, -0.95555884916, 4.236198774199999}, { 5.091677734399999, 0.24042983898, 2.8820211226}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, {-1.9961175737999999`, -0.53698454016, \ -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.14118663414, -2.0677381892, 1.11019512774}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.11289743592, -2.3476066098, -2.4766748956}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5431932508, 0.114950142854, -4.1369881591999995`}, {-1.9961175737999999`, \ -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.221879855799999, 1.06162916954, -0.44385884288}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7904124108, -1.40126962352, 1.2257140781199998`}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6453674523999995`, -2.0628249016, -1.4245699451}, \ {-4.341078567199999, -0.75112829048, -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.8589664653999995`, 3.4028296082, 2.0779427096}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6054512346, 2.2757970218, -0.45576411667999994`}, { 3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5812195536750317`*^9, 3.581567146617442*^9, {3.5815671777550964`*^9, 3.581567195695128*^9}, 3.5815672363175993`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvPdfW/l+5/9az92UTbJ3k92Ux35zk7vJN5vsJnfvVFd6x9h0XHAZe9wA V9zruBvTu0BC9F4EQgV1IUCA6L03Yxv38dSbX/N9nSN5Sjbf/AXXj3npHECg cz7v1/NdRudo+8HzcUdOHjwff+jgLwPPHjwTF3/o3C8DTp/lt977D8B/iBP0 Swj7/wK8e/gX/vcv8cKD8J3f7v92/7f7v93/7f6/t39b3LyHzo5Z2G2z4ldP nT+6Jm7+Mx6tvoK9exb1dd3ISlEhP0UNabIa8odqlDxQo/Q+t3fVKL6lRltJ D0Ytc1hbfLXi/CtXxM2f4PHjV2hosCM7QwVJJp9NVWSoUZOuRkOaGk2pajTz L7fwr7bwrzbfU0NxR43Gm/z5NTWssm68XHy95Pyrl8TNn4l/VdHYhdwsFaTZ PBaqimqgmrPUUPFVtHwVHV/FwFcx8hWMPHYjX8XI49bzuLW31dDc4HMvq9FV YMerhVcLzle56FoBR+8k8rNaUJCjgjxXjUqqgWqhNDn8K5SRr2jhK9r4ih1U Z4Z6Hbr4kr+HLp5aJ1/Yxhe28kVNPC3jdS7WxVbM6abnnS92wfViysZ2SHOa Ic9ToSyPC5TPxaFU3NdRJr5oe64GnTkadGdr0MutI0ezDv25fBjIFV6xnwfk 4MH08NTtwqsn8dV5qpZrrejL75hzvuJ5cfOXUDVaUZSjQEleKyr5SnUSLp5E A41EC0O+DpZ8PTrzDOjOM8IhMWJAYsJQgQkjUiNGqTFBMj2l49dtGCnUYJi/ LxxLH4+il4vfzSPovKXEUGGH02Q4J27+iq9uRnFuI0rzW1ApUaGer9oi0UEr McAoMaNdYkGXxIpeiQ0DhTb05JjRkaaHPUOPnkwdz1PHVxHURmkwXWrGVIkJ k8UGjBfpxKMZ4lkN8Ej6UlXovtOCYWn7jPMozoqbX+LZkxcoyannijejQiKs gQ7NPEdtgQXGAhtskk7YC7pgSDGh7Z4e6psa6O9oYb6rRft9LToeaNGVpIH9 gUY81+4HKtjvK9F5txnDOVrMlFswVWrEuNx5RMOM5GC6Er13m7Binph2Hk2i uPkbrD1+hpKsKlRwXaryVajhWjTxSNQFHTwaO9oLetCWbIXihg6qW3ro7hph vm+ELckEe7IJPTzKvjQT+tMYLWowzUDpMZjahv4ULfpo/x4e3XBuG6YrLJgo MWCsqA2jfK2hjGYeVT2+XH4x9dOjamvUoyKnDlV5StRK9GiQtKOVR6Mv6IUu qxt1N/RovmmC5rYFhvtWWB/a6HtGLK0D/RkdGMzswEhWB8aybRgXlNOOiRwr xrPMGMuknzKEo2QUk7mGPLqBnDZMlJkxwTUbk7RiOL0RU1Vm11GdETf/L55x rcqzKlGd24TavDb6p53u7YGmoB/NyV2ovW6B4qYN6rudMDzoQnuynVx2w5HR Q0/0QBVXhZ5PJZjkek3x92YKujHLs5pltKcZ9al8Gybz2jFK3w1lGdGfrkO3 sH7kakJYO7kW4/nNjGYNvlp9/sfiYf0nzMwNYnZ+CPNUdzfxVcmgbqVaZFic GcKCoKkhw49P5j3o6rXMX3WoJTrrhKYWfw2lZACVd2youtHObNiF1rvd0Cf1 wpriQFd6HwHox2DOANQXTdB9psNTGuFNTiPmiwaxIB/Aoryf6uO+A3NFPEGZ HZPSToxyoYZyzejLJNo0RQ8xnSg3YaJIhbG8esw0GJiOhOP6L5hbGERPH3Ol XgY9ZdYXwUK164pg08rRQdnURehQ8XvKIlibqUY+r06KlYmhth+f5d+hIr0U NdnNPEsj6vK6mN76xXMtvW5Dzc1uNN9xQPugH+aUQebRYfRmj2Awb4xHPIbW K0MEbwZr1bP4Wj2ApbJxrJSNYaV8DI/KR7BcPozFskHMl/ZjpsTB8HQzUXVi kGfryDahO40pM72VxtLzTBUEsQJfrq7hD8Rj+29YWBqEziiDwcSjN/FsqA6T HHajHD0GOXoph16OvjaKZ92n4dcqfl/JnzfzeYoi2Btk6KqR4fH4kMZ55qfF zX/EiH0Q1Rk1qGXirstt59k7GHXh31+h/nYflPeHoEsehTV9gsl9EgN50xgp mMGEdJaGnUZl8iKGW5expu7FatUcHnMVnlTP4EnNNFZrJrFcPY7FqlHMVQxh unwA4yW9GC7qQn9BOwsF45ymQm+qgmevJvDVWOsb/n3x0P4Cb9+uwWCUwmSW wWLhSVNdFp4U1WeWY4CLMEgNGYsxbCjGiI5qo7gII1yEYS7CUCuf18LnK6jG IjhqZeiplOLx6ODviC/zu3j15hnZGMIsNSdoliILc9NDqP7xYv1PjHWPoCZD gTpSV5djF5cp/7IZ8mtd4n7DvRGoHo7DmDaNjqw59OYtsC4tYly2hKniZcyV rUB+jjVHrseXdY14UreCp/VcvPolrDUs4kn9PFbrZ7FcN42F2knMVI9hsnII o2V9GCy2o6+QVYc5qDtFwUAIi9aIOZX298TD+0cMDLTCYpbCapGh3crFonqt cvRTg1y0YWrUXIwxUzHGqQku2qQgPcXFm+TiTVDjXLwxNReRCzjMxRuig4bo oIFqGab1KvHVZhe4QotDULXJoNXJoGsrgoEyaSkNRfZMZM9M9kzNMpgUdHC9 FMuTQ3j78hnKfrqyFcnFqGUjVpdlRV22Q1xNyRUbSm4495seTEKTOgtz5iK6 cpfRV/AII7LHmCx5gtnyp1ioWoPsdCsccgveNqnwutKM501P8VzxhHqMNcUj PFYs41HTIpYa5zFXP42p2nGMVQ1jqNyBfnknHAVG9Ga1cnVrMVHNWlRc8rvi 4f0cQ4OtaLdI0dFOjtqL0E052rmq1DA1yhUet3AFqWmu8AxXd5a2nOX2PXHv LzHLlZ7hSk/r5FxpPp82HeMKjXKFeqvSYZbcQs2NI1DVp9P2XDnKSrZtVCf5 7uLv2fl7dv6enRGyM0J22ruzpQidzG4dtLetnpGvkeLR+GDJTxe4KrkStelt qMvs5GJ3i4taeNmO0s8Hxf3m5Fm0pS/Bkr0Ke/4T9EufYbT4OabKX2Ku6hWW al+h4KQSXfIOvFYa8LahGy9aXuKl8iVeKJ/jmfIZniifYlW5iuXmFcwrFjHd MIPxugkMVw+hv7wHjiIr2zUts2cDBmX1GK2o/B3XAo9wgTusUi6uDN02GXpt Rei30XrUKDXezsW1lmDaUoJZao7789wuUD/DIh//StxfMPP74uLLMcOFm+Ki 6YsuoDUrDsp0KvkYmm8dhakxA13MHd1UL5/r4HP7BPH5/VzkAS5yPxe5nwj0 cZEdxKCXOaSnqQg99TQA80gX88jq6KD8pwm1+mEd6tjd1GV0Q3LVhLyL7a7C +UvUPZhBS8oidJmrsOauwV74AgPyVxgre4PpqreYr/0Sy/Vfof5mJ6xyO16o 2/GVcggvVV/ilfotXqrf4Ln6NZ6qX2JV9RwrKjpf+QgzzYuYaJzBSN0YBqr6 4Sihm9n/OiTN6Mkuw1htLVaHHD9z1c5RLnaXtZDjlVRcbAcXe4Aa5kKP2bjQ Ni50Oxe6vRTz1lIsUIvcX2ovw7KtbB1WbGXsvh7ZSrnn1LJN+HEJFhmXcU02 dNIEtBXGQ5tP5cajLTMObSlxUN85is6mDPSLubv4h9ytd+bvUaafUU2xmL9H 1K4czkI2wELWzzTU30DVydBXJcMUU9FXz9ZkP17/v0dNUiPqUs2ouG9D9lk9 8i91QXZtEGW3J1GXNA9l2gp02U9hlbxAt+w1BkreYqziK8zUfI2F+m+x0vQd zFkz0Ml6saax4yvNJF5pvsVr7Td41fY1XrR9ibW2L/BY+wormudYVDEDta5g snkeIw0skLXDcFTQ7Oz6HUWtnBIqGeMSPBntZypwBWBACTsD0NMupdMZgA4G oINnS411OAMwwxWdoxa41ks2ceGx0lGGR53l67DaxYfHzgfGY7WzjI1RT+0V WEtPwFx8HCb5cRhlCTAWJsCUF8czioMp5Rhddx4jTFCjJlcZMBSvE+vAf/5p FdD+UAVGGYKRVqESFH1fCQbZS/RXSPHN8zXpj5f/PVQ/aEJdskU0vNP2fwPp 9RGU3Z3Bu3+63OewFr5Ct/wtBsq/xlj1t5ip+w6Ljf+MleZ/hjljBq1SB1bb HPi2RUHrf4PX+n/GK/13eKH/Bs/0X+GJ7gustL3CovYZZtUsBMoljCpmMFg/ hr5q9qAVNoaAg6isBvacXDwdH1gnHuIf4yv2FXZzAXrbC2l9qWj/fnH1i52r 3+Fc/Xmu+KKw8h3lWOms4KJXcLkr8MRewVN72l3xHp72VEB4LGfiycNA41X+ oLPyJH6BjvKTaC87AWvJcaJ8HO2EwZYfBxsD0Z5yFL3ltzHJQEwxCNOEYEao Dq6tWCm+rxY/VIwJJqVxtatqMBqjTTKMMOMPVRZiWqNE4U9JqL6nQG2SFZLz OnHZcy/2QXpjTNyvS16BMvOpuG+VfYHukq8wUPENxmoYigaGQvEbrLQIoZjk VNWLxbY+/EavwWtmoNeGf8Zr42/w0vgdnhm/wRPDV3ikf4NF3QvMatcwqXrE w5vHYOME+uoG4KhhNqrkXFxSh25JPr56/gTOWPxXdBnz2aIUoI8k9JOEAZIw JMahhHEoxQwdP08tMgbLjMEjrv+qvRJPuiu57JVY663EM0GOSv7N547KdeLu H2Ok5TqBOI2eGkGn0F19ign7JDoZl05C0smYdDFJdeXFoyvzGGyMyWhLprO4 iEWkhH9wnns/dxYVl+b4/Tmhsht+KDCTjMsE+50JTlMT7HXGGqQYrS7EjFaJ gh/H5M9QdZsz4QMrshLUrpgMoODGhLhfm7KKlqxnzpgUfQF76ZfM5sSj9htM N36LxebvsNL6G4xUPEZVbjdmdP34zmLAq9aX6/Da9Bv8LV6avsUzE0Ni+hqP jG+xqH+N2bbnmNQ8Zp+xiEHFFByNQ3DU2xkWFojyBtil+fh6bU08wNWlfvSa JehjchLCMWhzhmOE4ZhgOKaJwxxDsdjpCgdReCyEQwxFFdee6qvCC2odXvRX rcPL/iqGY6z1Bvrrz4jqqz8NR90Z9uLO8HRXnYK94iTP9yRTwnH0MGf1sGZ0 Myy9hedZ11l+WILew5K1dB3LjPDAr/9Q/O67ij8nwiMnLEWYYhM6pZYxKVBN Urq6EM9GBiQ/jsUmVHzeiNq7VmTHa1yxGGQspsT9mpTHaM5aE/ct8jewl79F f/VXGK3/GtNN32Ch5Vssq77DqvY7lGV2YaytH990WFipX+CV+Tu8snyHlxYG w8JgmL/CionBMLzBLBmZ1D5hUl3CgHIajmZWiybO/nUGOKoa0FGUxyMdFI+w m2z0WQrQTzaE8jzI8jzMyjDG3DTJQMzayslGOZbEQFTiscAEg7DmCsLz/moG 4eVA9Xt4NVjNNmlCfQNDjYkYakrEYFPiOiasRPyRMyZCPGrOsBFlTCpOoafk JHrlJ+BgLBy5cejJOooZdbazClHrhFq0Do+I5s/FsrTi+sGy0CewCVgQGjSz 0AE7OZnhbDCj4fyglGKqqRDjtQX49sUa8n/Kx5h1FmVXtMg+5orJhR9iUp26 CkW2Mybm4tdE+Q1T/VumwK8wpfgac8pvsMRS8Uj7LeTJNgy0DeAruw2vNQ4u AwPxN3hh+Zoh+RpPLK6QGBkSvRCSp2w5ljGgmoFDOcKwkI9GA3pryEeZDM/H RvB4kY2VKR/9lkIMsE0dENtTssGQjPPMpxiKuY4KslGBFYZjtafKGQ5XKF4M VOMl48BYENehavr5DR8XLakYViRyRUeaz7I3GObjkIJqOisGa7A+kR1PIvoY HQej4yg/xUx6Ev1FJzhEJ6Av/xgmGu6xBygX2oLfEdoCBlVoCR51Ci3DD83Z gpWYmAVU5DSiDLMaKVsXKQ1diIlayU9jEc5RcQrSUwpkH1aJa55zfhD51yfF /crUR2jKdtYPY/FLlrvX9M8bDDe8xYTiS8wqv8KC+isss2MqeGDiwDKA1z2d +ELfi+cMwAvr13hu/Qprli/x2PwWK+Y3UKe0Qv2wGaqkJrTcr0PTvUo03CmG XqqAQ6Fnz10HR3U5nk+MYrKvmT2khMEgGxxzBzgfDDEQozzVCXIxzUDMMxBL XZV4RC4ei4GoxrN3gRiqwSvq9XAN3ozU4AtqrZdpm6s/1nKOcm5HKSESgw2M BBkZYs4aquaWkRiqPIX+ytMcbShGZIARGZDFo09yVOgR1rFIVbDEsVEQ+wRx Sz0RVc68KQbMGaVORsjmjJBAzTxnv3kmsjkSM6dkJWkqwJKlBXk//t9Wv4OC hMbvm6qccwPIvTYJ2d15Z9/1AVoL1mCQP4eNM1xP9Sta6TXGFF9gqvUt5jhO LLKVrcnrhUXVz9JpxxtDlxiQZ9YvYU5Xo/68BJI9lyDdcxny2Mso3n0JJbsu onjXech3JqJoxylIoxNQEHEYZUdOo+XqbTybHOUwlcfgFGDAQko4GQ/Qe0PM C6OcHybay1nUGRwGZqm7Co9IyRNHNdbEwNT8EJgRZ2DW4YvRGmGG1t3EuPIc a+w5fm+i9byAioAIAyNomJiMEJNOyUF05lN5B9CZ+ymGGaABBmiQxWWwOIFB OoYlYx7WetgqCN3De9/3D8JW+F4Fm2EhYD8E6V2AWG0EjMxyLDBAC0RongjN KQuIkATfvVrL/XF8wjBmXkLmXiWyj1qQc6YPuVfGUXBnDqXJi6jNYgcmeQxd EWeRsmewV79gZXyJEcUrTChfM9u+xrz2DXTlU9Aq+/G4rwevTHZY01SQ7r0E +b7LKNt7GVVULVXHINXHXqIuom73edTtSkTtzlOoiUlAVRQDFH4Q1ZGHUBG9 A6qUCxgwMY1ZSI6lmEFigKxlDFA5K0sFZjorscAUtszgrDI4T/tr8IzBecHA vBwWglOLN6O1+GKsFm+p531sfBicSQZnSnVeDNJI41kxQJ2yQ7Bk74H+YRQM SVEwCXoQCdN9QREw3w2H8XY4dJ+HshHby5n1IOZU94Vuro/tg9BJvCfsUpWi nB3eH4mBetLLEDFMj+ysPF1Cm+gKkeXHISpkiCRsBPLwk/h44dnCa6TtVCDr MzOyT/Qi5+IoJDenUcw5sTpjCYr8FWhkqzCVPkFH1Rp6656xcD5nVmDJYKWf 0b6EVj6GJkUfjHkFKNl3mHG5hAqqhvFpoBSMTQulZMxaCVMr49Maex7K3YlQ 7jqF5p0JaIo+jJaYY2jmtmnHTlQeiIF05y7G6ZozPuyAhiyc48X4VGKW8CwQ nmVmtdU+Z3yei7Gp/b9i8+VELeYMt3i85zGtFnRBzGrW3D3rYEiJZv028dGS HA0r1S7oYTRsDJctKRI2hqrjfjgsd8Jguh0K8+db4cg+ihV9vtBaMDYvB6rw J2KbJ+yx5xOj9Ix66nBGaJXz0QojtNTF6LCTXGCyFiNkYITapFjQFLAO5eO7 109zfvwGjx/y4xqRsdeIrLhuZJ8bRh5bZem9aVSkzaEhd5FT4jL0JY9grVhF V+1j1uwnGGp+ynZzDROaNaikg0iLuwnZQUJw8DNUMjB1lIJSUmpKy8DoRF2E bs8F6BicttgzaNt9Eq3RR1EVtBOSjYFI/qfNyFm/EXle65HksQl3Nm3BTV8P fB7rj9zrB3g8F9kDMDj2KiwQnGWCs8qs9nRACE6tMzgMzJsxITh1eDtRx75A 5oRGCIzmAnqKD8OQGg1TWjTMaTGwpMYQ+BjYUnegI3UHh8vUmHXoYrx+gS5G qPthJLqSwmG9FwbrnW0w3wiE4x4nmfwLWGX7KPR9r4aqndtBRoh6MSD0IyyH /YxQH/t3RmmFEVrqJj/vIsQ6JKY5g4wRKmQikpCxZvwkPKEYt84hOVqDjM+6 kHl6ENlXyM+dSZQkT6MmaxYKyTw08kUYy5fQXr0Ce/0j9DWtYlC5is7iHuTG nOTvx6P44HE0HDqC+n0X0Eyp911EG6WnjPzaRJn3CjoP096z0O86CSXzWeO2 WEg3+CH3fTdk/3ozStw2oMRnPbJ9N+PhFjc82OyOexvdcXdPIO7HhyD5+DaU 3T2EvtZMZ3gYmqeDDA9D85LcvP5RaL6kHnemi/lMYKZbuk8Miyk9hqHZAWv6 DtjSd6KD6qLsaTvRze93pwuK4X4MehjK3tQoOFIjGK4wgrQdttvB6zD04BjJ GbzPRoFNjNCEvCe2hD93Roh6NsDoMEKPGaFHjNAyOVpkhBaECNlcGc5Efgzk R09+NHn4H2JY/gAz80PiO31zVFePGkqVDK2cTVs5DrVyPp2fGcL8NDU1hKM/ jiiNY55BcaIBKbutSI/rR8b5EeR8PobCBxMoS59CXe4MWqSz0JbMwVi5gPba RdgblmAu7IR012kUxyYiNSoO5QdPQHmYGW3vOagYvTbKIESREbVQVlH8ms/X Rh2DKvwzKEP3o8pzO2QfelDukH7ohlqvj1DHiOb7Ez5fN6S6eSB1iwdSqOT9 QUg9sQ0Zp7Yj+0woah8exog2G0+HXBEdFSJahy/GXRGdrGNRuM3xnON/DsHK YiQZKUu6EM2dYjQ703fBTnVn7EJPxk70ZO5EL7e9mTuoGDgyotGXEYV+qjct nFHdjs57wRhLjqOOYezhMYwmHcVk4QWxfXkj9JfDhG9Y6DkJHrVGAJ8wtI8Y 2mUHw9rDsDI9LnSW/pAaTQTPSPB0+Xg91/cL1zUr84tD4ruear0MWn0RdJSB faLR9c6LWVMEi5pb4Z2XVqqlSHznxdwog6lO5nz35cXaZ86gnxI3gVDU1aLZ pfvXr8L/1+74dPM53IhR4+ZnJtw+wfbl9jhkyeMoz5pEvWQKLUXT0JbNwFg1 C2vtHAp2nIScBijacRzpEXGoOHACmiPxLG1HoNp1hsG/KAZfCLxtP8Wtic/X RB6FJuIINDSAInAHyj72prxQ9pEHytd7odH7Eyh8N6DSfxMKA4i5lwcy3D2R 6eGJDE9PpH8WjKwz25F7NhSSc2EoPB+GcX0Ono8IBqj7wQCTTgMI2bYzOwZd uTucGVYIPgPcTnUw6HaqO3M3B97d6M3axW7Dkb0Lv8/Hneij+rN3YCA7GoPZ UTRCBLpTQmFP2oqp1Dg+d5KPf4rJlGMYTz6K5cYH4mAhGEHoZ1/SBM+pNfL9 hHyv0gQrNMES2V7ocbEt1kcagEPNgplsGyVswRT472Ks/hxfvH0Gx4BafEdY zw5HeKfIxHnOQrW73i3q0MvRqZOjq43SUhpKRYnvFvHniiJ0NFH1MnTUyjBq UuHLF89wwGmL4+ImBIr6WuyJDMU+6lPqIHWIOhwZht1eAQh73wtHN91F4vZq nNvdgPMHG3DrtAbpN6wozx5HXcEEmuUT0JSxIsQ9gGzHCXFcyNq6Dxmhx1D5 6Sm0HWGeiD6Epu2HoGdH9M4eHZQu5ji0kXFoizwGLS2iDI5F1XpfyofyRtUn Xqjb7I8Wnw1o9dsEJXNEUaA7Cv09kO3phVxvL+T5eiEn1Ac5iaHIOxeKAtpD djEMckqZfhQvaY/XtMebCadFHjHj9xTuRVfODthzdzI/7KBFBHvsoj12s0Pd je6sWNEejuxY9OXsRn9OLISLnXbjrzGQuwsDeTsxmLcDQ3nRtEsketJD0Z28 FbPpCZhJi8dMehy3cZhOPUarHOW4JRGHnNfUqxGnRZ6xGDylTR7TJiv9tAhL wIJgk25apIsW6WCesNEm7bSIhelfn4u/EOP2/9Aia+gfUMFoJvRmJgHKwmLe TtlMtIBw8YDw3pfBdQEB7eKgVRyuiwf61M4LCBxK/ox26RHe92p0vu/VQ7t0 V7PbN6jw1fM17HdaJt51Qc79z69iXxTtQh2kDlFHosJwlDpGxdE68VTkrz0R /aEPDmxOxJnQWpyNpX0+a8CV+AbcPN2A3LtW1BSMo/hCMSRRCZDFnEB2yAFk B+9HwdaDqIhhZmHZaAo9hObQw1BHxtM6l2idy7TNiXWsKfH4B9E5rVv3onZj AOo2+KOevULdBl80bvKHwi0QSi8vaPy3QB2wBZWBHigO8kS+nxfljYIAbyYc 7u8LRD5dU0jHFF0KQ/HlcJRS6syjonOmmaHtpfegvnMAmZHeyI3yQX6kDwoi fVFIyai8bb5QsUK1nAqja/bQNXvoF/bfA3mxzC0D+bHUbgxKdmFIshPDkhgM 5rJtyAxDd2oIFjKO02BzGQnMLXM0z1z6MRpIMM8RtivML9QrmucFzfOM5nk6 TOMM0jg0zxLzy6JoHKHICOahcTpoHBsLTDsLjCmPWcVZXZaWBmkW4WIL5wUX VhaidqqTEi+8oIF6TcVwUP1GjiUGSl+MQV0xhtooLaUpZntD9/wRBlzXXrTI 74hSyu4gLykOkgfU3WMoTjsPFdsR8cIjVzuy2+mnY643yprra7A/arvTT9H0 E3Ukml6i4umnBOo4dYI6SV8d9ArEzg98sPNjP+zbvNd5IcsnSDhSgRunGpB8 lb3qtiOQRByHNOokMgL2ISfoAAqDD6Js22HUhR6hpY6gJfQoWsOP0lKXoWWP qo5MYCYSFI8W/52o3xSIBqpxUwAaNwryg9I9mAqCyssbbf5u0Aa4o4WeKgn2 hjTIGxJ/HxQG+aCIXxdt9UJBQgikgqcuh6HkSjjKroYj+2Ag0neGoiThU5Qd YW8b5Y/iKF+UR/uiIsoPlVQNVUe9h3o+/h2qw/3QuH8rbHdYmPL30ESCYjFY EIsh6W6MFO7EaCGzUT4NlRUGOw21mHUCC1nHMZ+VgIXMBMxnOk01m3YU8/KL eDNOQ9FUL2iqZyMuQ7FzeSQYitlo0eEqWEI2sjMbddFQXYxkBw1lyceffX/Z hIoGksFmpdqLKBYfqsvK7EM5ONv2CfOtuVh8N3jY5Ho3mFqHUdrqTzFGY43R WGOaYrRV3EG97CKKsjkzZCeghMdeRpUzs1amUsnxqLwfj/qMC9BWZfyr9keK 5YkhfPFiDTFOlx119ctJzFoH6LIDdNdnosNCRYfFUQnUCeokdYouW4fTfDyC M3z8dJMfYj/yRex6f8Ru9BfNdiK2HgkHa3EqrhbXd9zBA+89LHhHmA5OIT3g ALICDkIafIh2O4La7Udpt2NQhjFNUfodiWilNVVUSwjHG89w2iwITZuDoKCa ablmWk7tEQyNZwjUnluh8faFnlbT0Wpapq/qrd4o2ebD12Dq2eqL4hAflGz3 hmwnv2b6kjN1ZR0IxO0gD9zf6onkEC9UHN6Nil2htFcAami1+hhaKpqiwZpp QWV0AFTR/lBzq47xh0oUfxZB7dmKzrsxGCrcQ7vFYlgWixHZLowW0XIF7JFy 2I9l7cNy9kksZZ/AIrWQ7bSeYLv5DOYyFuJnNonTcmPVTstRj2m7RyyCS7Td Yp+rAPbQcj20XDctZ2eP1EXLtfN3Fx34r65LML5kAbSaC9FB2wlX7HTaihi3 LpbLv0U37ddL9Qn/X5LWG6KGf/SG+JjBeV3UhM75bnhvcxYUJRdRIUmgjqOS 26r846jJO47a3OOo47k0EKUG5ujGtAQ0plBJCWi4Gw9zVeb3/VYnC2jnT/qt NUQ5bRjosqG9ew69VFqyCjnJakgeqlGYpIb0Abf3+PVtFYZtcxjg1O081T/C Q1r3YPR20baHqaNUHCXY9vg721KnKcGyidGChc/y8Zc4GbINe1iE99K+e132 PeB3CHG7ZIg/1Igb7rtx12svknw/RWrgYaT6HkRmwCFmyyMoDTmGim1xzJgs xGHxbOGPc36Lh9JvHxo2b2dfFsztVtp2K5q3bIVyC7MjLaylbXVe29DmtW0d NF4h8IGe7Zo+0BO6IHb7W31Qut0XRdv9IA3xQzH3S8P4vXBv5DFh3vbjMB/s gQdMoKl0bvY2tnh0cW1UMJOiL6cNP7TQma10q4pu1tCxupgA6CnjjgCYdji3 hp3UDn8S5wcFKWndE4yhoj0YkcdiVL4LY3J2+vmR6Mt1uncl5xSWc06K7l3M ERxM92bFOxNnBpNmyQW8Ghfcy4TJpPl01OXeoUosC+5l0lwQkqaDSbOX7u1h Fe6he+1s3zokeL3s+BMxon8qmrfDUohO4VIzm6Ai2Kke2reXctiE/6Eux5CV xqV5R6lxGniC5p0UxMI8ZSzBtKEErWUXUSNNYMRrpceZlev52EA1FRyHgmZu ppFbaGQljdxKI6syqXSKJlbRxEqauJMm7m3+N7rASnaBerELjHD62M91fcXj x6+/v7GiMFPNLK1GpXBjBdWQrkZjqhqKFIr+bqK3G+nt2ttqVN9Qw1DUg+dL r1k7hL/1h/T3FXp7u1j4RX/H0N9UQowzLTu9HY4z1NmY8HU4FxPOvH6ej+d3 hOMCdXr7Nuz9hP0AC7Xw71PPbTjKHjLRMww3N2zFrQ3bcNvzAO55HUC63xFk Bh5DbtAx2jwO8q3xKAuJRxWbBGXQIbSuD4SWvYXufU+0MvM3bRHsHUJ7h6CV +2q3rdB7h8JA6b23Q+e9DVpK5+9Jj3vR42wOmKFLQ/1Qyuwp3e4PeZgfysLp +RBPPPDcgnvBnkhy+TuH/i7YJjQMzOyhvlDQ4630uIYZWPC1jv42UGZ62roj EO07A9GxKwA2QbsD0E5Zd/vDsosNCitCY6A3eh5GY7R4N31Oj0si0UuPP8o9 jZVcepxaohZyT2KBPp8XMjWL7VzmMUxnHKHHa50ep8QMPSJ4vArLgy6P99Pj ffR4Hz3uoMd76fEeeryLHl/p+2PXRULvPG7n9LJOvATtf9PfRd/7W7jyT3y3 u529gLUEY5YSTFCT5hJMmehtasZYikFVNvsBJtsiJl9B8hNoKjqB5qKTUHKr krF3k56ApuAEtBIq/wTa6HUdT0tHr+vodR29rkuKh/ZuHHqqM11XmjmvFn53 tVk/Jx5HmRRPhgfDnV73cdH6RLzdx478LBW7EjXnXnqZUlDKLDU0VBv9r6fv je9u96HvDfS97j5/fofPu8nnX1PDJu3By4XXdL2Tox+8v/1778fT98cF79Pg p6gzVGJMBL0fgXM7Imj6CJqe2hmBi9Q6XOKjO4esUOxf78zx+90CcIDmvLTB Bzff34Kbv9qI+3/3MXJ+7Y7ijT5o3RaOzM2+SPqVGzLfd0feh+7sho+hhKDU btyO1k009IZgmD/xh/l9LwLhT/OzHXELofHDYPQJg8lH2BIC31DofLajzZdJ mBOVnh2wjkm+gWYujaT5IwJQFB6ANPctSNm4CUluVLDT/Fk0voSSs30pCXJD BdVKALRM7noCICRzU0wgLDS+jcbv3BUI++5AdMcGomdPgOAsPv4luvb4o2uv H+EgOCEEiB14X3IUhtmi9EsiMJizkwCcESFYpgQAFkUImOhzBAASMJfFmZ0T 34ryPl6MuwAYdQEw7AJggAAMlK8jBaXsQhb66P8++r+X/rezQ1npgxOAn2F8 qJWdiJSml6G3Q7aOD0VkwNHxzvvM7dRoewnGraWYtJRiipqmZs2CyqCtvIQm OfN4MfN48Qm0lJxES/FJtFJq+Um0UTpyoCcDBulJGAspCUUGTDwzMxkws3Ex kwEze2fTw3gY7sXBQQaGOfkPCRd+NxdhqIkSLjJjzh+skGKmrTXMyYC3qwdR NNggyVZCmqtCWa5avFVEkaeGits2ypijhpU82MhCJ1noShduJbGn/+RONPY5 VtYBA3lou87fvaTCjH72P7kGCSXnwM+itv0EhTgRhXAXChFE4ccYRBKBSCIQ KSCwK3IdLu+KpBcu74rAFepsWKizGGwJxKdugbj+q09w61cb8PDvP0beB26Q bWbT4emHLHq8LuIU2vZfh+nADdg++xytoYdRvjEYZetDULUhlH0Nfc6ex7pp KzrIWPsH3jC7b4PJl/XI7BuOf+RuGAyUjjhoBSQC2PcE+RIF2pk9TllkAMqY z7N9vZC2YRMeum1GivtmpLIOZFH5Qg0gBqUh3sTAHTXs3lu2828w9zeH+UJF aVhDWvgcA7t2E2VmJ9+5yx99+4LQvy+Q2wA49gegZ78/evf7wUAEDfwbGtab rnuh6CUKc7nC/8V8lHcGf47lPKKQfxqLeacwz3owT9PM5xAF1oOZrGOYKzv/ r1Co/qEWOFGgWAsGWAsGyEI/WXBIMd8tcXHwHzE+qESPtZCJX7gMU7gQVib8 H1fC8E9QVCVDWZkCdWUqCu5dhuzuFRTfvoKSW1dhLUlHOzXUXAB91SUanw1M CVV6EipKTWmotpJT0FNGyiQ/BTOhsBAKK4FoL+CWQLTnn4SN52YjEDYCYWMn b2Mnb02JR0fuBfGKS+Ea2NFW57X6o83s4DlQjtZLMVJdiDldK755trbdCYWX 66bJ1iYbpDktKM5TcV5gk0O1Um2UiXC0U52Eo0e4MVK4LZEayFGvYzZS4/cx SF4GqD7y4iApdhcjFvZJBtaK3nw7fs9VJ2YmxglHCMFwwiGOr4Qj4Sd1IkKs EyIcO131gUQQDVzeLUByhY/v4Sofhb2r4veEfxtwIngbjrAu3Pif/wep//AR JB+5oWgLDenlh1Q2Vikf+CPjAzbb+27AQEYsZKTGZwcZ2YrqTSGcBVg3NoVy jI2Azi0c7VtCYd8cgp4NzMuU1YPs+EXA7BcOI6X3C0ObH0HxD+JYK0DihzZC 0hDhDxkNm846kbppM5JZM9I9tiCTA0QuwSjk2FuyzRcV3K/mKFzG75cEeKCC o3EdTd7ImtLMhkpJqbZ7QR3mxXPUhnni76AL94AlxhuOff4Y5HjcfyCA8kPX Ll9YOIAY+DvqQHdYboVgNS+RiFD5Z7BCVJbyXJCIoJzAHGvGXA4hyY7DZObh f7NeLHEwWBwkJIOEZJCQDBKSQUIyQEj6pJjrzsd/EeP7sXi9sgCJw1aIPoLS R0iaqx+irPAW58RLkCRfRtHDyyhNuoLKB1dRff8q6u5eQ8Oda2i6fR2KW9dR fOMAZJ/vQkXSPjQXHoOm/CS0lK6cgJQREMpceppgnUJ78WnY5KfRUXQKnbLT 6JSeRpeU+wWn0EVgugiMnefZxfPs4hjfmZmAjrR49JfdcV4KqxEuUy7COIEZ b+GUoJBhvMF5FeZwWYELFA9Xan/6+DmnhDrIc5tRnt8q3l2skKihpgwSDRHV 8BW16JFoWa3bMJjfhhFuRwvaGL3xQu06TEg1RGa8UI2xAjVG+QcGXTf6dqc5 bzW23lShv7ALv+tCJvnzyzjMenKEyBwVx+YwV2vlrCWniUniDgGXSOIS+RNU BDyuxEbxxa/GRv0M12JZXK7FRmATzr7/AQH5AAUfbUaRmxdkXj5I+tgX9z8Q IAlA5ocBqAg+BO2nn8Nw8CbkbKLKCEgVG6paFpBGt1CovcKh2BLBZioSFo8I 2D1C4eBk0UdQ7JxgzJxeTP7hMFA6gqL14zDtz4kk2B/abf7s8L2QsWEjsjdt QvIWN1YRN2R4uiHH3wsSVhv5Nj+U83nyAE4WvgTEzwOV/J06Nl2NBKeFEKkI mZqVRE1INFRbKKdzYqIP9+RZ68Pd8Tew7vRE36eE5TNWlFg/WAmJmc81bHWH PTbMBQkBISTLlFBJFqg5QjKXd5KV5jhmcxMIyTFMZR35vyBZcUGyMExIhgnJ MCEZIiRDLkj6pZjtzncy8rfoMUvgaBcuWpaipfoB8lPOQ5JyEQWplyBNuYyS lCuoSL6C2qSraHhwDQpKee86Wu9eh5qquHkApbd2ofz2bioWFbdiUfvwU04P 8TBWnIapnGxQNqqTXHTJTqGbbHTLz6Cn6Az3uRUkPcMl6ik8TXp7yEsPeell x9XD07Wzj+zKjMeoIku8rF+4pH9S47xSeaqVapZislG4FLMQi0blth9z8gto miwozm0iI8K9zirn/fBkwFSgh01iQLfEhD6JGYOFZoxKLRiXWTApt2C62IzZ EqrUhLlSI2Xgvh4zxW2YlmsxKSM2RGcoz4lMDytN551WDEo7WaDfVZgxHGKF OSIi48RF/J+jxOUkdVpsvyK/x+XCrihc2h1FXKJEVK6KuFzj43u4ticK1116 j4+R2I8TH36IpH/6EIUfb4LczQMFHj5I3uCLW+/74d77/kj5UIAnEDkfBaFl 301UhxxB0YYQlLOy1LmHQuEZDrV3BLQ+kZw4IqH1ioTaIwoGzyh0ekXA4RmK fvdg9G7wg81jK+FhJSJAGv8wqP2CoQ0kPCH+KNmyGfmEJ4/V5aGbAI8Hsjw9 kOfP6sIqVEJw8n09CY4nivxYYQhRFUfqBk40zQSnlVVKw7ZKQ4C0oZx0CIU+ 3BvGCC+YBEV6sjXzoNzZprnBvNuDY7s32sN9CJAXrASwKzgII6f2ihVmOT+R 4JzBIsGZfwcPW7FZZl8Rnpy4/394ht/BQ3CGSykXPIMyzPcX4tFEy89dN2E8 WR6Aw1IAiyoTVYU3CM15FKZdhCztEopTL6Ms9QqqCFB98lUoHhKcpGtQJ12H 9sF1DrE3UHXzU1Tc3oWqO8L75dV3Y5kfqu8QoDt7UH97D1oeHGC3xoLCrquL 6mYx6S08hT6qnxoUtoSpjyA55InUGXG/T/gei4/wPAdBcuQfJ0gJ6JNfxKyh RLxHRrg3ZpogCdeWz6ioFuf1zFN1BVgytYQ4IXIXN38NTaMRpTn1KM9rJkRq NBfooC0wEiIzOgqs6C60oV/agWGaf1zeiamSLsyUdWGuvAsLlZ1YqurEcnUH ZcNyVTtl5ffMWKwwYr6cUJW0YaJIg5FCVw1KV8F+rwVDUht+9q4zrK/+Se0R QIqPFuaYCNccE4mzBOmcC6SLhOhSbNQ6kSR2aOTmHUM/w429UTiAc6GBSPz4 E07tWyBnUpfTuxIPLyRv9KM4XW8KROamYORu3orcDVtRwM7MsPckzPtOoYoF pt4zDE0sPC1kSO0diTYXR0a/SHZl5MgnCmr3KFi9o2D3Dkev13b0ugexe/OB iVttQDhUAkv+gWjy9Yb04w0oWr8R+Zu2INXdnfIU35EX3gPLZ0eX5umOHG8P SDnulJCtMn+BIy80cTpXbueUHurH4uPLwuMLPUcbI0cbU6QvzFEsMtHesAiK 8eK+B4zRbtBFbUFLiBtagt040rAwbd+K3pBgdAYHsEP7EUcsSPN5To5mRY6O Y4aGmhY5Oorn5GiNDD2hVjnOrIxUYolaGCFHI+RohByNkKNhucjRXH8BXj3p d3K0EQ5zPieWuyw458jOeeoCigSG0i6jPO0KqlOvoj7lKpqTr6FV4IfSkyHj gxtou38eVbd3ovbuLtTd2436+7FooOrv72EjtweN1/dAcSUWLZdi0c4JrIds OKh+8jHIwjNEXoZlgk5jpOg0htnADZYkYkBQMUWmBvj9AZnA3En0F5wgTwks PNmYMznvOZvVC/cFUNoizLIozZKlWQVZqpfg5UT/VidLbq6sMdQzitLsGlTk KZwTDouQ+t2HkxR0svx1Y0Daw6PpxUSxA9NlDsxV9GGhqg9LNX1YqevDar0D jxt6mTWeNPTgD/G43k514lEd+aqxYrGaRavCQA7bMCbTYDhfhYGMVnTfU2DR NP6e643rQ5FCbXLi5HzjLhwJ0RGsTWzliFMicTpLnM7/gBMuU1f2RJOnaFzb G43re6PXESc+fL4vmkydDwvCyX/4J+Qy/9fHBqMqyhf5bKZS6Pl3XKVuCiJz 5IoNWqFbCIrdtqFp214XV2GoY11qYv1Rkim1j8BVFKebKHIVBbN/FCwBZCog WuSrzYv7fE6nTzjsXiHocguAxc0fGu8QKP1DIfngExR9vBHy9Zsh3cimjnUy zd0bOZ7ekPj54SFrlXBBVJ63J6Q+3ij280Z5gDdqAn3IlR9rE/9WaADrkj/r kj8M4X6sSX5kis1btC+sMYLI1Q5ytcMTxhh36MhWo/8WNARuQaPHZh63D9li Hd0WiJHTezn5JJKpRDZ2Z8jUacySqxlyNc36NE2upsjVJOvTc9amtbF3XLE+ jZKrUTI1ysZulFyNkqvRYpGr+SGarr/g565Pv3iy1E93cfpPSURR6jnIyVQx a1MJmaqgqlmbBKYUKWQqmUw95BCadANmbq0POYje2Yn6e7vQeH83mh7EroMi aQ/+AI0CUjf2oPnGXrRe3wfNtb3QXtkjzjT9skQMFiUSoUSMyIU7c0YJ0J9j jCiNl5zBWOkZjJTxOWVnMVSaiCF+b7CYYl84UHSSpj+OobJL4n1r398yaOCZ Ea95LbOGWire1DGrKMB0Qz6+ffkUwT9m63+gJKMclTkNqM5rRV2+AUpJO/Ti x+z0wl7YR+oHMFw8iImyIcxUDGO+agRLtSNYqR/BauMInjSNYE0xjGfNQ9Qg nrcMcNtPOfBU0YPHjXasNHRgsdaKuSoTpsr0GGMzOMrGciC9GV2361y3aP6J 2PwdJmBHBcCiXNdeELDjImCRnJUI2M4onCNcFwjXxdhowhX9b8C1zwXXQVwg XGf/1/sooEkb9m9Dy+lwSJjUkzd4iIClbPQnYIEuwLYib0sIAdsGufs2lHls I2Cn/23AfF2A+UcTsGgCFg1rYDRs4lb4WTS0LGJmnwi0+4TC5rUVVjc/tGzw gvTX6yH/aBOKP9mC4vUeyN7ihXR3H+R4sGC5exEwT2SyiOV5s8CxyJWwmFUG +KI2yJeA+UMlwBUWgDZKHx4AY6Q/4fJnsfJHewwh2yHIl4CxiO1kU0jI1KEe aAxwQ+kn61GzeTMa2YAqmWT6trO4stkU4XIVrVlqmoBN5wmAHSdcTsAmCNgz wuUsXFV4RC2PVWJxjICNEbAxAjb2DrAiEbBHM62u+L6P1188c36aB9XMrK+k VIKEzwdSctvivERHuGL4i1fPxN+qyrmIouQzkKecZYd4njReRCkrXTmJrBKq XCpHrBSOV8k3oE2+CUPyLZgpW8ptNN09iAZWOEVSLJofEsGHe9GSvA+KO3vR dGsvminVrX3Q3twH/ef7YbyxH6Zr++DIO4GR4rMYLTlLBM9ivOwcdZbjf7nw UJHImjTOx+Hys04R0+HS08TzFIbkrHiy4+InGIg3jVqcd/jOG7kmek6TxHKB WM4rCzDXnI9HtpZ3SG4RN59gpGcEFVk1qM5tQX2eHop8GzSSbpgk/egoHEKv bIQvM8ZDGsd05QTmhQ+/qZ/Eo8YpPFFMYa1lCs+Vk3jROomXqgm8Uo/jpXqM GsULFVFtHcRTZT9Wm3ux3GTHQn0HZmo4w7H8jcs1GM1vQX9aA1Y7x8Ujaq2r xpHIbUQyVLy07hiRjCeSJ6KFNjISZ8SaRyx3C1hGs+YRSxHJGCIZQyRjIDAZ w7b4cz5+vj8Gl8KDcYlzmIyWbjy4HYoz4Ug5FIU7WwORvN6F5gbOYy40M1j3 8txcaHpsJ5rb0bx9nwvNiO/RVLG+aYmmjvgJaJoCXGhS69BOQN1gCRR+HolW HyfKBt9wmL1ZT5kSSn71CeS/2oiij9wh/8SDs58XMt19ke3uhxQ3b6Lpxdrn jVxvH8h8fVDq74vKQD/UBfs50QwLhDY8CG3hgdBHBMIYFcDekfU1RnjblNrp fIvUvIt95i7ObdFeaA7yRCXnwOIP16P4o/Wod9uMJrdNULIO9m4PwOCZWM5i Z9hDnmbNO40p1r1J1r1JojmZE4+J7GMYyzwsYinOZWOse8RySUBzXHiXiFyu 5yPbyVEWhmH2W4NSDA2pxCu8NT++wpsysS8zc86xaCkNpaZUlOsqb7OiCM1F SUg/swN5Vw6ghD1oCWtlKckUes9KElmbegONKZ+TtltQJ9+GPvkOqbyL9tR7 MCVfIZWxYnlsSd4LJYlUpuxH8739aLmzH8o7n0JFaSk9Zbr1KSxUO2e/dlI6 yPlMIHKi/Dwte24dJivPsWZOVp2jzoqaqkrEGLejlWcxQlBHygUR0jICWsyV a34gftKF8HEj867PclkQAZW7AC3EvKqAbWk+fvPqKYJ+DOh6lKWXojq7CbW5 bWjMs0KZ3w2dZABWyQjssgn0F0+xbE/zUGYxVzuHpYY5PFLM40nLPOGbJ4Tz eKWZx2vtHN60zeEL3Sze6GbwWjeFV20EVzuONQ1rq3oIj1r7sUhQ5xq7MFXb zuxj4NzXipHcRvSkOD81SiUCuv0HQKMinIASzlOumnmWNfM84RRq5qV3NXOv C1BCSTzXiWT+FQ599DFuvM8SRe81HQ5DY2I4kg9H4eb+aNziKJn8yU/5TOG8 J/CZK/Dp7uLTczvKOe9Vks9a8tnoFcmZz8mnxjda5NMg8hkDM2UJZMUW6uc5 WIKiYKIMgcTTPwLNvkSbiBb9egNKfr0Zpb/egpL/w/HzAw9WM2+Ofr7IcvNF spsPkohomocP8fRl5fRl5fQjnv7E0x+NIQFQcnzVRgSjLSII+sggjnRBMMcE iW/sWncGEk3iusufaPrBQDxV27xRt8UdVWyFS9gSC3iWr9+AJnci6r4RHVt9 0Ls/lGiecaKZcwoTuVTOCSoB48RznHhOlp3/Hk1V1QWoqi+gtfo8lKLOUWeh rDqD5srTUDddQHnpMehN5JEymsgj1W50fUIT1UWj2v/1pzSpnJ/SpKvIRnbi AWTFh1ERyIqLRCZb6KI7Z1gxr6GGXDak3GLVvA0VmWxLvg9j6gNY05LQkf4Q uuREJ5sP96GVXLamfgpl0gG03D2AVlZUFaW59xl0lPHuZ7Dw6/Y7B9HBn3eR V0fKYXJ5AVOV55lyp3iGf4HpmvOYrhV0jvtU7Vluz2KC+2M8/1ERVkJacVqE dFqZJH4YivChKAvtpeI9/gtmAso1EKtoGyHVEFJ1Pla7ml18bhY3OzHSPYjK jGrUZKtRl2uGIs8OVX4/DAUjsEkn0SOfgeJcGzou6zGUM4yFxmWsNK/giXIF z9QreKF5RA5X8Ea/gi8MK3hrXMaXxiVuF/GFkdwa5/DSMIPn+ik8bRvHKlld Ug1ivqUP0+x3J9jrTpS3YVyq4N+vwSP7CA6FhzgZjRT4DEccGU2IjhQZPb0j ysko+XzH6GUWzyuUyOg+F6P7ncXzyMef4PbHdCRd3HQsHHVnw/GQgN76NIaK xk3qoQDpJwKkfq4iGox0QppDSAsIaREhLfUUCmkoKjzCUUNIGwhpM3tWJQuo mpC2EVI9ITUEOAupmXpPQBW/cBIaFAkdKdUERqCW/W3Brzeh6H13kczi9z1J qwfKuC39mERu9sODzT7I4LaEA2edRyBKfQNIqD8qAgNQGxyIRg57zdsDoYnY KlKqiwqGITqYA2Iw+9ggusm8KxAxMJJSfTQHTfbFjW6eqN1IQje4oXwDi+jH G0jpx6hn8VR4bkKTxyfo2u6H6ZzTLJYCmadI5QmMCcpOoOIwknUUTVmHcPdS MO5fCcaDK0F4cJW6Eogk6uEVfzy87Ic7l7xw9ewWnEvYiNNHPXDv+h401ZIa s/NWB+Ejvnq+/5ivYvTpi9Gvo9qKxY/4Em536COlNZweC07tQP7xcOQnREIS Hw1JXAxuHw1H0qlY5FxPQOGtMyi6mYiSz89Cn/IQ5rRkdGSkwJ6Viqb77+hk pUw7AHXaZ2ghjcp7h6C6fwgaqu3+YRgpM9VOdT44BPuDz9Dz4CB1AMOS4yTw ImZqL2C67gLjOlN/YR0fznMUnq0/h5k6Nr7EdUxElI0w09NIJetn2Qksdwqf BcKGv+Nf4WkQ8CSaOikRlWBOk4ffvH7qvOwUHwkb54Xyzgs6fvxPX6tBdYYC tVl61Od0ojnXAU3eCEwFk+iQzSJrnwpVYc0YOKlA/9FCTOX1sTY+xVP1U9bL p3ile4o3hqd4a3qKL81P8ZXlCb62POZ2FW8t5NiyjFfmRTw3zWPNOIvHZHeF 7C6ohzHT4sAk6+tEtQkTpa0YldZiskmHw+FsesnsMYHZyB+YFWdR8pq4K9rJ LHm9SFZFZve+Y3YHru/fQWZ3II6evL/RDWXRW9HIeJcnhuL+IeFN8FsHYhAh 8nrP05e8eiNlPYvqhgCxqAq8ZpNXicArWS2hFKH7Ue4ehmrOo/VseptYVFtY VFWcRTXktY286gOczBoDY2AirWZB5NUozKVktk2orGS2eosvZB9sRuH7Hih4 3wuyD33Irg/K3/dmE+zOn3kj50M/FLIBr/Mgkz5bYfALRlVAIMqDAlHDZr2e zCrIbCsbek0kKyuZ1ZNZww5yu1NQEAysrG2cU5WszIrNXmjYRGY3eaCa3FZs ZDVfz8rKubR8EyurF5n1XA+lz3pMZpHV7FNk9CRGszmTZR+nEpBzNgA3jm3C nfP+Iq9JV4OZGx5eDVqH5KuBwrXKV/xw/cwWnI/biAuCjm2h/HGJunI0AFeP BKA8KxF99OyAqRiDRuEugCEi+78xTGCHCeywlhLuBCh4gPIbZyE5sRUZp7YR 0K24fSoId08yWZwIxt2EENyNC0HauVhkXz6AvEsHILlwAAUXDqLw/EHUfn4E tbd2cUAlrKkHCeshKAmj8v4RtD44AvWDo9AmHYU+6RhMD4/B+vAoOrjt4rY7 +Qh6Uw6hL+Ug9SmZvEQ2L2K24eJ7mG28iD/DLLuF2cbz1Dn2iGyBCfAEsR1n hR2vScRoNdveqpNYsQsfUSJ8nlLZD9gKra+p2Pn5BcL914ZCopuPN/N9LmQ/ dl1GKfwT9pxfCY9uzg8vEj9I00Jie0jsILR5EzBLZ9FZsojPt3eg8fw0hrOo uEKMHUjF+KliLBaP4KX+Jd4YX+Kt+SUJfYmvrS/wTftzfGN7jq9ta/jS9hRf 2B7jdfsjvLAuY82yiMemOawYprFIamfZGU+19GKinh1xFSttSSP6JaVOYiNC vyc2PirSRWzUv0/sPmeVTWSVPvmJcFWUJ8p3bUPjiSgUn44kpzt+JsL6F7jJ xztbt+Lhx4RVuCaFsCYTkLQtwWxDQ5BPWKUsrsWE1bT/FMoIa5VHBOpYXBsJ a7OPUGCjCWw0NIRV9w7YQAHY6PdESt3Euvrun9xrOyQfeSF7fRAVgqz125Cz PhSZn4Qh92PqH/1Q8L+CUffrEGjdtvNPhcK6dRuUQUEoCwhAJWtrbUgQGrcH oTksCK2sr+pI8sx81MbaqqPaQlh3ffyh3OyLls0Cp95o2CLc9uiJ6s0eHFCZ vzayvrL7Lf7kY+adLdRGNHh+hJ5r+zGaeZJ19ASjfRxV16Jw/ehmXI/bjJsn PMjoVtbSYBJKXQsipEFIIai3Ej1xMW4DLsdvXIcr8ZvwB3z0xdV44h0XgJvH AnCLtN4hrZJre2GufijePDFqcN48sQ7jZPXvMS58kCxpLbh2EFnX9iD5nB8e ngvkNhipZ0ltYggb4BBkk97M46HIiA9F7nEG9sohlFJllw+jnJKeDENhQjAK 44NRfW0nGu5yICWdjRw8lRw8tSRW9zAeRsqcHI92qjMlHva0OPSmHYMj/Qj6 Mw5hIOMghvOPEMnLws10TZfew5ziIv4Us4oL3BN0XtRkA1lt4CRbz/Jax/Ja w85Xw86XrC6S1QWBVZurvFpct2ubyamJ5dVQgCd9zfh3QF3nAvXZI+enJ9Wm 61CX2YG67H605I2iTTINS9ECuspWoM9bRcHtZTb6DlgvNmPkYi1mE+WYi8vA 9IVyls+3+LL9C8L5Bb7p+ALfdr7Bd12v8U3nK3zV9QJvO5/jdecaXnQ8wTPb Kp4Q2kfmeSwS2Lm2UUxxjJ1QsMTWGjFR2YIh+f/H2F0HR5aoWWI/0W9mxxte b3hnbK+9G2OPFxwzs48aCsTMzMysRKWYmSmFqRQzM3NVSSWVoFRMkoqZu5pm dv/zuZmq190vNsLuiJMpqFaVUvm75/tSyqsuhNtba7G6OBOry8/16ilgdUec z2esHlqshJoaIGD1hFwYp//+jyg3NkW3nyOGpG5QE2p2sKfQqp5faLR6arRm B7uj6GsTlH5jpt1ZdTgO6/J+Qa111NpEra3UukSto/ZBfxqHh6h1xJRiOQ5P sl5nKHWWUueYBSEUu6gJ32/ro7mNVZ5iNHqJtedJOm2J2jM8KpyxQ8lpJ2R/ 7YKMr1yQy2T+zglF/+CMut+5Y+KUJ7b03XHF0hnrNnaYsLXGsI01R2LG3gZD ZDtKtpOOtpi2tOb+TKo65pjVtcC0njkmmQlW+ZieKckKC6sx+sm2R9cAnTqs 1zOs1zOn0Gd4lkcgId9gOdIRB9ViXGaq5NZIi9RDOltSIJsjN9WSTfuZbHqM KeLDBKpnkCbS+QIZIh38K16aIjOWTEk2jylgCkm3mGxLyLY0zBIXyPam8FQR 4QSgtzkS/xVWB/LRzoG7OsMdyjQHKJMsoUy0Rm2i7cl9+O+gjnP41YDYKvFA Xxq7NC0Sg0yryAbt7OR2kR06YjkgRfGYK3PHQKI3ZjKCsJIXiKWSaKyUirBe Jtb8oOVGpQhbVbG4VB2DXWUU9msicVATxgQTZAqOxlNwyBxNpBDuRDLNHk0k MYk4mkzE8QTNsm9vjdItu/b6EPt1UIa78yV4uEWzdHu8eTIWfz6F0zrNrrFf 1+h2VYWjpbpfm/2LX5lltD8MqYO+0jEMVq5oTu87rDzAZO1NLDQdYr3tAS52 P8XewAtcHXmD8+0PMVy0hZmsRezlzuAwexhP09rxSFqDF/XnSPQ7/LD5HX68 +Ak/bn2L77c+4tPWB3zceof3F9/gzeYrvCTdZ+zbx2T7gD17uHgLt2cPcHNi m58pt9nBGVzt6kOEjQUinAWyTidk2a8evyCr6VePX5D1JFlydbJDzD98jSpz c3QHOmFA7o5aiTMPUQSrmYM9kROijYbuFxq5bsg1sEDx12YoPaX9Nk2Zrg0q 9DkWG3AsNrRHM90u0O2Sv0zTtD1028+m1dp1O7HLtqXdGUuOyMwcM27ng3a3 SKi8pJqbu8lbDJWP1m3NaStUnLZF3ilHpNNs5jeuyBLM/sERib91QOE/uqDu j54cXX0xpe+DBUMvzap8zsIOm2Y22DISfoDODEtce8e/MsEUr2d43Jk9y+hY nLi10LrVN8eYvhnXWFMM6pugn4NHjx7XZl19tJ/VQdvZ05weaNZUhzmFJtdT mMsPRlK4HlIi9DRu0+g2kzWbz4otTNOOw2nRppB66SMxnF5jzxDqWeExeKI9 iyyRPnJFlshnCpgiAi4h3DKmnJ1bQbyVxFsVbslu9NecLHZ/SonZriTNc2DU RT6oz/ZAY4Yjmrgeq1JsoU62Q0uSveb2a09wREe8E9ccRuaEdomL9kx+Mk+M ZURhJIXHWIktY48eTRzRHcPu9TNDo58FBmVuWCuPxnIZ9ZZLsF4h4eorwaZS gm2uATvCd07rYrBfF40r9RFMKG51i0k0lUn5DY6myPdoKpkHqOOpJBxPJ+Lu eCJujwp8ORqPKnBtWI67C2S73YP7pHss0BXOd3x8oQP/gno/n/SAatebNOfc fXe8Y/n/VbY62qm4ZBKD5evUu4OR6quYrLuDxeZjrHc8xsXe59gbeo1rY+80 Z8c7mv2E+Ybb6M5Zw/mSVdwuW8DTkjG8ye3As4Q6vGrewE/bP+LHSz/gh0vf 47tL3+HjpW/xfvsD3lDwy4uv8GzjOR6ff4wH68c4Wr6DOyzcm9O7uDl+gXoX uL4P8osbopEbKZStiwuiKDeGU7GYcqWUK/8s108rN9lfq1by29NQctfrDuG+ SLUlUcJTfbKEms0OEWqWYv+WL3powGYJdevuhAJuksUkW8LhuITDcTmH42qh bg3t0GRkj7kACW5kVKFNn3cR1m2vwNaEQzLrdoRkx5gJC9JlpphuRy5WpNrg LUWjj5RUJSc/NG6GElZ72TdWyP/GHunfODOuyPzKGdnkqvi9HeOA9D84o/IP 7mj92hO9Ot5oPu2GFkMPdBp5Ycqc9WvjiEtW9tgzs8aeoQU2yXfhlBnJWpKs 5c9k9bVkR0l22EBLtk/fGD36hmgXqlaHZHVO8zDEydhMB8MkW+X8FeKCuYSS bDK5ppBrSrQesrm95pFscrQZRF4GkAhcw84inVwzyTVLrMPpWQc5Yn0um6Qq Zq8ypSRbLuIhKtYKlTFWqI62gjLKCjWRVrxNaiOs8Fu0ZXljtCUGYydP21Hl ukOd64WWLGe0cfpuS7VDe6oDOlO1T07pSeKSksixJ8EZg/HO/Eprt49+qSuG 47wxnuyNfpk9+uUOPHbz+E3WHWFW6AmxQB+v28Ns0Cv3wVKFDKuVMpyrkuGC UoaLtVJs10k131HdaxDhcmMsrqiicFUVzp0tkkhJdjqV7KZT8W9xPJPCl5Jx NJPMlyl3lsPyFOVS761xyh2j3BHKXSzFw0uUu021W13a0tUstientRFOO3GB dM+TrnDOkwe7+P9h9/rGDc3bB8vOY7BiD6PKG5hquIfFlodY73qKi/0vsTfy FtcmPuD2zCcczX/PjfRHPF/9CRc6jzFRvoHLtefwqG4Rb6vH8W1xBz4qx/Fp 5gF+2PkJ3+3+gI873+H9zrd4c+k9Xm2/xfOLL/Fk4ykenHuAo9V7uLN4Azfn 9umXw/LEEmeMETSmJCDCiXadf2nXFaI/sxtPt4mM91enEfcHHdRweOwOd0V3 nDsKwj2QGeypsev1l4JdKH/FNotTcjanz4KvzVHEybX4rDVKftG29aQ7HSDG 1fRKLLBt29i2naTbY8wDA9t2gHSHzMjX3BV9Nt5QuUaihmRrSbaOZBt8JZob t8BLgixPbdOWkm36146cip2Q8SWv/+iElN/bQ8rEk2/Kl04ayrlfO6OIrMtP uaKadFV6Hmx+PwyZeuOinSt27Zxx2dYRl61scYXT8T6JnhMmZD3LE7YWGDcg W2aYTTtgQLYGxugW2OrqoU2XbHXPQH36awyZk63ZKWTY/R7iwFNIYMsmkm0S 2abLOAVHmSHa0wCxJCtm4vz0kUGyWSSbLSFXiZZsAckWMSUSTi1iUmWqRNZQ MjWxnHVjrFEXbY36KGs08LpCasxt1RAdpR6YbBdhRBWB1nwPtOf7oDPbBd3p tuhJZ1umOaI31Ul7R012xlCSM0aSXDCa6ILxRG3TjijcMBrHyO0wxDl6WOGI YTZyHw8ZfREWGOYhY4Sbbj/n5o5oHgYjuNXkc6NVyrFRK8fFejm2G2TYVUmx r5LgoEmEK80xuNocyYTSaBp9ppHtrIbtLNnOCUnWZj4JhzNky5n5Fmfmm6R7 fTSOg0QpHu304AHpHgt0L3ZpT0e2eXKqIeGMMZuclTe4354n20d7n9l+/afJ +IufH0XWRX/hLAZLNti2lzGivIWpxiMstj7Ges9zXBx4jb3R97g2+S1n2e9x tPAjHq38hOdr/4zX5/8r3m/8N8yrrmK1cQt3Wi6waZfxXcM4vq/owIe6cbyf v4+Pez/g/d53eLPzES8vvcPzrdd4vPkMDy48wtH6Ee4s38KtBc7Jc1u4ObXC z3IMa31cbTVanbSr7UnTClolglYfYbXVavX+6gwSvtJHLZu2M9INbfyi5VJq RpAnMqhVEJslbLNZQtdqCpcvQcFLgbMQd/5BytUXCpDL1xkrFLJwS/S0cpUG triUVo7L6RUauc0sXEFuh5Ezuoypl6Xbb+qCTitvlHmIUUmx1RSrpNhybwly vbRqMzwljEjzct7XNkj/kmX7B+aP2gKJYdFK/+iAeCpO+ZpqTzkj77QLis9Q 7Vk3KHXcUKfrjkamSc+LRw0vLFh7YdvBDfsOLjhwcMIVW3tctbLGgQkLmPvs HOfjcc7/gtoBqu3lbtt+1oAFq49WPX206enymmrPfI1BCx20m3yFNLvfITbo FOKoVsHE+J5FBLVGeRoihollZBSbHqMVmyPWis2XGKOQWouZUootZ6ok1Cqm VqaO22Y900A1KiExtqiWG6MqwZCbqxFjjJGGEIzUBqOzgJ9fgS/6ctzQn2GL wQyWZroThtKcNbfVaKoLxlKoNdlVO8P8O0wnu2IiifNOIucehQ3G462ImT3L f8aQiDcBDxpjMr5dbo8xOT8sl+FesSdBe3DJ5WJbr8DFhjhsq+I0P8e+r5bi oEWCK62xuNoajWutYVQqgJ3TXKTif6NSil1Iwf3FZE0O55Jwh2V7a5JihZNS jwtiy7Ridz6X7UnhCqfj2RLOjdKmPTeKcHaJDRWeXRk/Aatz0qnXzt9EX/48 Boo32asH3GRvY0p1jIX2J1T6EhcH32Bv7AOuTX3C7bkfuB//hEer/4Rn5/4Z ry78V7zb/K/cVP8bjhff4VzPTVzquIRH3Rv40LmEH5vH8J2yHa8bx/Bi4Qhv 9j7h5c57PL/0Bo8vvsCDjSc4OneMOyt3cHP5Cm4ucJudXcW18TE8u3mAMEdH 9qoTpbpot1l3YZvlTEylMm+tUt8vzyL5lCHqXIVDJe/AMi6CoW5Io9D0E6Vf aJz+BpmkmXUSLdS/1UI9wSpATRfi5oSsL82Re4pLGGu2QNcaxQSrsvXBZko5 wVZgn2DPizLRRLAthkRLsB0E22zphUKPWJR4iVFGqBVMBtGmEGgqk+b5eTI2 Qo6ZF3L/YIm0P2qhpn2prY0YQpUSajyhphBq5hkX5Om4oliXWPXcOKm7od6A n6uBB/9+D6iJt1nHHRM8cCzbumPLwR37jq644uiMq/YOuGJjg30LLr1EOk2k XTpG6NQx1GBt4VTcrEOo+kLOcmQ4i15WrNr4SwR5/wFhfl8hxv8sgp1PIdTD ABEehohioj20WJM4EWfGslpFOhqsBRJTTa0WSQlVyilYao1qiQ2UTC2Xynqx LRpFtrwNmkTCg0lqsR1q4kxQkyg8o6wuyRh6qOdle649JupC0FfojYFCPwzm uGM40w6jmY4YSXfGWLp2Ap5Mc8N4ihMr1k7z+liiLcYSbDESb4/ZNFZ1PA9S 8aackq0wKrXAVJw1JuJsMZHgQMGCaHdMJ7hzavbCEDMs9cRquQgXVQpsN8Vh p1n70/IHbVJcaed41UGx7RG4PSyl03QqFcK6XWAWUxmKXRJCsezZO1xuP58I +/oExa5Q7G6vVqzmNOPCuYz+SnsSLc0ZjU7OB7PF8fiiCkfn6/Arsnq4un4L fbkkW0iypQcYUt7BhOo+yT7FGsluDr3D7vhHXJ3+hFscgQ+XfsDDtR9J9ie8 2vgJ7y7+Ez5u/xM+7fwzvt/9Zzxae4edkZu41r+N54MX8Kl/ET92DONTbSve DG/g5e5HPLv0Fo+3XuLB5lMcnr+P22sku3qVbC/h5vwqrkyO4cmNfUz1DyDc 0UkzCkeSbJT7Sbl6uSHU1gYBX+ki9awJ6jwc0caDo1LijpRAT6QyWrJeJOhF il4aun+pQRuuIZoRrI1ANI1JDXZDKpfZzK8tkH3aCjmkmseJuMMnFmvJ5dgg 1W1S3SXVdVJt1HdEE6nWmXsgxy0G+ezTQi+JpjvjPaRI9JQiiUn2FLjKkOIm QYpDFNLM/JD9eysydUAqJ2CFni/ijIM0dzcpJ18Fp94U9mgGGeaRZ5G+O8rJ s9rQHXVGHmhkmhg139bMdOjw7vq1qeZ0MfPmzrhArjvOrrjs5Ey2jpyWORNY WWDV1Ax9esLiSqa6+mhmn6qFPj17Cu1GvDY5BRWZejv9Fk4m/xneVl8h2N0Q oUw4E+lhRKpGiAsUHjfW9mm+2Ig8LVBMnsXkWcKUS23YpTaoIc86poFRkWUT o5bYoYWpVZigNskI9cnGaEgx/oI7jwn+BzTxsjPLXvMclZHCQIwVBmOcu+sk 99bxZDvtge4vuLKaoT/OFD2cz3tlJto3/x/cUk3QI+WWLjXiKGyIYbkZpuOt MUvLU0n2mEyhzxQPTDGzqR5sYQ+MJHphLJ5ReGK9WoTtZoXmmWLCM1sud9Bo pwRXO2NxrTMKd0Zkgq+FdF4spgmVukSky6m4v0ygKwTKWr3DPfbWnwPdE4D2 4j6RHu/84oRNOx0nJ7Ph/nqJQLdU1FD3K5//iJcPXqE3mz7zBZ9XND7H6XNe 8Nn7ij7fYmf8Pa5Mf6TPTzhc/g4P1r7H0/M/4OXGD3h78Ud82P4R3wor6d5P +H7/J/xw+Sc83XiDlT4Ow2PbeDV+Dt8Nz+HH7gF8qFfj2fA5+nyl9XnhAW6f o8/1axhsnsNw0wTqCrtQWTKD4vRBxPoUczsq/gJidzH+J8Twbh7IhnD/T18i Xd8Mdd5OaBZ5oFzkhsQATySRZjKTQp6pTJqmUdM1OAWiGSEnOXn5CwHpFxqh v6NR+qbTpGBXJLuz4mg1g1YzzlhjJqEMC0llWKXV8ykVuJhaoanWdtsA1NFq qksU0t1jkUanCg8JZO5SxHnIoPCUI8EzjlEgySEWSXZRSLCLZqKQ+XtrpNBo nK4vZEbBkJmGaO5sklNuUJxxQ7IOjyG6Hsg18ESRoSfKjTxRbeKJOlNPNJrS KaNdXkLQZeiGIf5bh04J53W0waSxA1bs3LDh5IotHt+2nRyw6WCDWXMztJ1l jZ5lberooOkMXZ75Bip9xuQbZOv9FtY6/wG2+v8Zga6GCGKC3eiUCXMzQjiT FnkaubEGKBSb0ae5Zs4t0VSoNcqYShpVSulTaocGRsWopfZokTqgldcqhQVr 04gsjaFKNUZTqgnUTHOqKVoYNTfX0WxfjGcGYDIrCOMJHFhZuwK7EZkxRpkh brhDJDmgMNOIHWKGWZ0j8SbcUFmhnKfH48iU/18f/9xoPLf3NNZnuifjhRle z2V4YiHDAxOpXqxlb/L1xlxOILZb47HTFo+9DuHZMnJc6ZLiarcI17qjcWdU Tp8ZTPqJ0DQcMccrqbwz3V9NwV/jziylzlIq19ab05Q6GYcn+31aqazT+7uU KpwYcPfzaac6Tk67Q6k7lLrdhHsXPkvVPTlnU1f6HPpzNzFQwhatvq1ROsvB d6X3BS4MvabSdziYec+G+4B7wi/RWvsWT85/wosNrpxb3+Pdpe/xYfd7fMs1 9NP+D/j+8g/8F39/8AP+b1xdOsZ5Sj2cvog302v4fnQaP/R043V9PR7OH2C8 cwN5mf0oyupHRVYvajK6UJfWht7KGfRXzKAsuha5/sXI9StGDsWmuxUiyTob mdYJ3AIDoSLRghgXxPt7IoH571H9jYD1N4JVAawHF5k0Xmq787NLIqfNhGAX JLg7IJE+a92ieHgtxSR9ziWVY5k+1+jzAn1u0mcRd89El2jIXGMR7SpBrLsM Inc5JB4KyDziEecs+wIK21j+dXK7WMjtGTJNPO0Kua4PZIZBkJKm1DhYW6Fn PRHHJHHtTDfwQo6hNwqNue6aeKPKzBu1TL25F1RWvmi29kML02qp/XZuv74z hs7afMELa/wbDJ62xLChHSbMHTBv54wle0cMGZqi9ZQumk9T5ukz1PkN1Ke/ otSvUXvqD4g+8/ew1vt/4GL5FfycDfn183cxRAACeRnmagZFgAnyY01QKPos 00LTmp9lVlBlNVNLkfUSSqRGNVVqZMp4LWejJhlCRZlqymxOo8p0U15TZoop 2hIYyutLdMBIqie65TYcQg24RhpxUDXGpKBU0MaiHJMz7NGRRDMOvOYYZcaT zTGRbEaNJhx2jShbEGuGXikHfTHV8uPOZnpjNssL89leWMzxxBIzmeGDqQxv yvXGWkUkdtqps1OBy11yHPTIcKWXw25PDG6Pn+hcSqdKCl3h9Sp1rnLYXWPW U3Bn7kTnbCJuTCu4LP53dH4+KdyecCIg6twTTgREnbvUudOED8/+9GDSZ57z 6h30ZW1w0N3HYNVtjDYeY6btMZZ7nuP80Etsj7/G5em3uD7/DneW3/Of8wGP znNY3fiIV1vf4q3wfZidT/jAvfPbfebyJ355Px18wt/hW15+YK6uHWFr5hIe LGzi3dwyLtR1oTqlCcq0FtRk96Axrx8tub3oyO5CT043pqpnMFM1g1kSrQos RlVAMXe8QpQ55qCGRGs9i1HtVYI8j2QkeIUgzs+DRD2QQJ6JgSdEg+gxRbhI FWSmaS888O/5uscJTXckMwLPhBOe8UxckDOkAY5Yre3FoLyYh+VSjJLpVGI5 5sh0iUzHE0tRKC1EWlQOQp3FCHeRchRXcBSPR6yjDGJrESQ2Yt4SYlsJKiCy I2EHMSI8ExDlRcaGgZAaaMdbCZ0Krwv/yXW8kajvgzRDH2Qb+6LA1BclZr6o tPCH0oqVbROEBmt/qKwFp75otdYabbfwxICODQY1sWas+LoVek+ZoYtpP22C 1tNGaD5jSKC6WqSnv0YLx9zus2fQ+s2XEP+Xv4ffP/4n+BqcQpCLFYKZKDd7 zdObhKf15kYbozCWmyfrUwNUoq3OUtZmOXFWEqeSMOsItFHioAVKnK1yR7TL hZPBm3KWFXAao4VAWwm0Nd0MLclEyurrYCV2EmGnzBxtIhN0iEwxIDHBuMyI G6UxxlifIxLhmm8j2AnW5hSRThLmeKoFt1RunmnmnGqFt5twkiXkJAsMxhGq TBiMzTDASp7IcMN8njcWmeV8gs0l0GwfzGrihQ2VGLtdCuz3sEZ7Oe32idFX lITRqhQM1eVgWEhDDkYasjHSmE0x2ZhsymV5Eel8Mm7PJRJpAm7MxOPWQpYW 6T6R7hHovpCTs3VpTkTUoT1b1z6R7glIVQLSPzP68v4H9KRtoD+PRituYrj+ CFOtj7DY/RTrg89xcewF9qZf4dr8a9xeeoPDtbd4eP4dnmy8x4uL7/Hq0ge8 2fmAd3sf8X7/Iz5e/sh75seDj/gPvPyA95f5/v33uHv+MeaHt1CU2YlqOlTl dNJkK3ozmtCfrkZ/dgcG+bbJ4gGsKGewRqfrrNLRpDbUeORA5ZaLdp9CdNJr e2AJ6r1LUO1aggpHWnVMQxyNKv7MaVLQz1bZpSkccFMIVMgXwuUXGqP/OwtU UOpGoa5QaJS6QBbohKM72ifovTp6jJX6PvQpSvhVLuWhu4z3jHLeO1np4iKk SEuRJqtElHcqQu1lCLcSIcJawlCuDcs0wlaGv0IIDym+sSXwSqyBp6ISYh0f iHQDICZW7cz6P0Km54MEAz+kGvkhy8QfeWb+KLYMQrltKKpsQ6C0CUQd5+tG 5vN21mrjTaxe6DZ2Rr+O9Re8sIIX+s5aouu0ueY5PG2naeM0fZ4x4GirjwYa bTh9CmqupZ3C08/1jZDBVTXz6zNI/8ffI+Hv/h7ys7oQW1hqjCYH2KAg2gRF dFMsPilRCUtUIpSo7UmJ2mt+BLCeNlWMWuao9RnniLZ4WzQlG3KUNaZL/nvo sy2DPmmsJYHHEBZeV4I5msUGaI7RQzuNtkYZoyvK6MSoicboKEtxXE6fCqEs TejRBDOpZhxdaTPTEjOZFnzdFNN8+2yKGTdPC43TATrtizPnV9ACPfH8sznu WCz0wXKRN1aLvDCX74O5PB/M59NteSB2uuPRVZSGipQsJIvy+VUuQIqkAKnS AqQz3JGk+VxIM2X5yNIkD5miPKRG5nMQTcNsc7LG6OF6OR7T6EMavc8cX6ZR 4WRhBzR6IJwHqePkVC40uk+juyq8/5NRvZNnzncknuNCuo+Bshs8StzDePN9 zHU9wurAE2yMPsPO1HNcmXuBm0uvcG/1NY7PvcajC2/w9OJbvNh+i1c77/B6 9x3e7r3Du/13vyHKd/i/8PbyW7zee4vlvm3UFAyiumAI1fn9UOf3oC+/C2O5 7ZjJUmM+rR5TimoMJKlQ65OGRt7N1Z6paPVIR79vPgaDCjESXoyhKNIMKkKz Ty7UfiVoZI3WuZSgyqYQKZ7BGp7xASQaKPhLDPT4SwoV1rUkgkyixMRg4Umk gsS/pENXxDFyepSyNZWF6SfnXSnDy+PHuLZ0ER3xxaiPK4IoJg8yOoyPLkRi ZAmSw0oQF5CPMMdE+FvKGDn8rOXwDsiFZ3Qp3OJr4ZFYCzd+Uo6RBQhwkiBG N5AQ2ZZGoUi2ikWCSRjkBv5QGPoj2TgAGeZByLMOQ6FtOEpsQlBuE4xqgqyx C0I902gfoOHYbOeDFlsvtFl5oIdDbc9ZK8YSPTrUeNaCEjk6si2b2JaNgsQz uqinxprTp1F91gRlfHuUiR1E1s5IsLBHqokVsvRMkPONDnJ/+0dk/Md/RJrF 75Dve5oa2ZainyWWSmxQJhE02qGaTVlLhQ1sySZKbKbEtjgnNqETVIkGHF2N 0Jr2s8TWFHO0UmBbggU6GLWYRwtKbAjj2B2ujzZq7IyiOrblbLzQnFTIUXaS zTqVaKppREHibJoZ5tm889kWbDwrzGVbYi7FBHN8+2y60KRW2oeT+Hf0JVqg lzr7kvlnCzywXOqD1RJvrBSzLQt90ZceivzIOMRF5iBeVIBEKkySaCUKCjOY TFkBsuQFyGZyqDBXiDQH2bE5XyA7Jhv/M7KjslAal4aFvlbcFH7D/WViZI6F k5Id/OKkZMJ5la4Q40ELQapxtKfCT9+9+DOMVxYfoSttj7V9AwPKexhtOsJM x30qeojzw4+wPfEEl2ee4trCc9xeecFDwEvcP/8SjzZf4enWKzy/9Bovdl7j 1e5r6nst/Frl11w33+wLr75Cf90M6gsH0Fg0DHXxKNpLRngkGkJfYS/GiXI+ rx0r2WrMRRWihRA7CLLTLw19fqkYCUjDXEQuluXsJ0kxesIK0BmUjzqHKDQ6 x6DJXYEW/xLiJUx7LUpNbwZoYf5GQ5OXVJmoidajO8srnpcKyoxj5HQpYyTs SWVR+snpK/MxuXcV2cpu5FT3I085goKaSRTWzjDzKKpdZJaRxLk7qWkVjvJa OCnq4JJQD2dFDWwjC2EfWQSHKDp2TkK8STQybeXIdlAg1ykBCtNQyA0DkGQe ijSrcGTZRCDPNoIew1DKcqywD0W1fQhqHYJR70CPDlqPantvmvREp4EjOumw kw47dCzQzrTpmGlOD9uoY4jas3qo09FDrY4O6gxMUHpKH4F/1MXp35vC6JQV HC3cEGTjzumbbWjpiGxTGxQamqHK62tUe3yJStc/otTrFIoD9TUOS+mwXGKH KjpUcmKtkzrSohOa5E5oiXNGu4KJt0MzW7GVrdimaUUztHHKbDlx2J5oCZXE CA3ReqgP10VDqA6aIwzQwSbujuGayMlzjvYmOOFOsUWnuU5O0/EsP8Zshjnm Ms2xkG3OldEMC7mWvO9YYT7VhD75dqEpM6wwlsppng5b5GZsbBOuwCZQiozQ nmCJoXR7jOc4ICtcATnvW/FBKYgPTUXCLxymCY1Ig5mCQTahxqA8l/ebPF7+ DXLFOcgV5SAnliHHnOgsgsxDfHgt4mPq0dxYj4WFFqyutTGt2Bd+I4TmBE0n GK/8jNHql6dW+WssqO6gO/ca+iruYrDhEOOtR5jvOcba4H1sjD1kLT7Cwdxj XF96iturz3B47hmOLzzHw83neLz1Ak8vvcCznRd/gRe7L3iv76+dxOf/Pn/f uK90BMPMRMkwRnJ6MZXbg4X0drQE5aEnMA/DwbkYDcnBZEQe5thCC6JcnE+u woS4AoNsloGIfPQEZ0DtFgW1axRa/TI5vRajzacYKifegl7BkPtzEI0jv3+h gaggwXhGESREQOfOd1PfX9KcG6SMJMgVYtqrLsrAvzw5z0zj0nmoVnfQtHYN 6vU7UJ87QvO5h8xTtJ57jrYLL9F+4TU6Nt+gg3NB5/Y7NM4fI61wBBk8zmSV jCG7dBzZqR30JaM9Be0lIMcpEZmcaaWmIYi3DEeydSTSbSPpL5z+wlFkR3/2 YahwCDsZYsVocPSnPx+oHDyhtnBHG9210VurDic8Xd7PBHO6vK/pGaOWU2cN p1Alp9BaczsknNKBySljnP2dAU7/F2NYnbWBv6ML/Bzc4GLpjnBbDvHu9BVk iOpg/r9BBqgLoF2fs1B6nEKFjy7Kg4zpzuFP7hppTk1zrfE0l+CMZm6Lrey/ No07U7TTQ3OC4I7/TpprVZijQaSP2ghd1IXpQkV7LZH66Irltsfpd4hb5Bw3 w5lEc425GU6Zs9wQ52hK6L35HAt6s8BSvgWWCyyxUGBNgxZYpMdp2hxN5t8n MoYygp9DpCGqonkda0h3hqgTGfB1W8g9xEjwDofMK4KDkwgpoQlad9KTKZTW Mmktm8mRC+byKC4P+VSXJ8lBHt3l0V1abBFTCEVsOcSR1RBFKBEbXo0g33rI k5WobK/+Ah3jKt77OkYb0DFcj/WVBqwxxwdqPLkz+St1f4MXR5/QnnoF3cV3 0FtzD8PqQ0x1HmKx/wjrI8e4OHEfuzMPcLDwENeXH+H22mPcO/8ERxtPcP/i UzzceopH20/x+NJTMnvCy/+IK/PX0VjQDXVRv+Yu1Fmq/W3YI7xDjhePcxId 5sg+jNmsQXTHNqI9pAwD4eUYi2LRcepcFJVgVVGG5bhiTIvzsJc/iLk4Jcb4 9hHeACMxRRhmYfaeFGKHfwFThCbnPCR5BEHKEpQJCRAmUzn1/UvI6U9OfzJG ykiC3IjODSLiiw10wezE4Am+Crz48BGq5U00rVyGeu0mc48I76N5/TFa1p8T 4Eu0nX+N9o23xPee+BguzgWNa8jk55ddMkl8U8gtm0ZB+TSyxQ1EFo8sh0Tk OCcjyS0VcU7xkFlGIJ4AU2yIkAWYbccStI9AkUM4Sh3DUe7ELdGRW6JTMGqd uCk6+aHe0RuN1u5Qc/hsIkKVrjka9cyIz5T4eCckwCo9A1To6qHa1ArFBqZw PUOEZ41h8LUhzvzeBDYmXnAx80CIAw887m4Idea1ty2XaxPkhltonooi/ER7 Tbg56kPN0ECAjX76UHnpoMHPAA0hZlBpEDppEHYkukCdKBQfEaZpAbYRkQCw NdEKzQQoQFBG6PFjcgjldVOkHlqi9NBNgH1cPwfllpglvrlU4mPm0jlocgWc 59C5kGuFxXyG+JaLLLFaTIxFwussvARDDMgN0CfnASecn3uILqo54FZH6WsQ 1rBwk/xCoPCORaJvBJL9IpDA63jfSMQTpNg/gcWXjzRJHgfQPGRJf40wX4Ao y0WW8Ge4lChYBfEShtdyUQUkMcovIIlW4l8hOrwGAT6NiI6qhrK1DK39FegZ ElKOnoFS9PSVoLu7CLMLM3j++gfLX54B89/g8uJztGffRFf5XfTVH2Kk9RDT 3YdYGjzE+ugRNqeOsTN7zD93H9dWHuDmmvBtxYe4d+EhDjcf4fjiI+HbM1uP CHBv9gANeW1QF/aguXiAU+eoBuBQ6TRGCqcwljeJKWY2bwKL2RMYj+tAd3gl BmJqMRpbjQn3JGyF52MtsQpL8RVYUJTiesk4rvHj7LAzJ2UVmJCWYVxSijFx CfrYjT2h+Zxc89DJFbLKPREiPw/euAJASYAAUEKGkkBOXEIIUER8sUx0oCui AlxweOcmtL9VoBj7xw+hWtomwCtQr94mwCOG7bf2lABfoI0bcduFt2jffI+O rY/E9y1UHOQziwivZAo5hJdbNoO88jkUVcyhtGIeWb6FyLDnJOpMfG7piPfI 5FYWDZlNNOJto5FEgOkEmE2AecRXyJQ4haPMKQyVziGocg5CtXMAlM6+qLXx QL2hveYsDXVswBoCrCLACn1jlOkboZQAK805MVraw8/SGma6OjDl+0z1TWBh 5ARbM2/YEqGrBW8jD04Bnm5IDeAEGsnNMMIc2cKTrsOtkR9lhzJGGWlLNNZo Due0S5BdgUboJsjOYGN0RAnQrNCSZMgG5NTJzUwA2MpNrIX4WpOs0SDhgUEA EcZm1QDUh5qvt8UYoEdijn7iG1ZYYpxtuUB4s2mER3wLOcSXp4W2WGilQbdS YoXVMkssEaFaSsAxZ9Ej1kUrp9o6fvyqYF1UsWWr2bbVMfrICApAnDfbzy8S Sf6RSA6IQAqTILzMyL2iEeURh4SIDC1AoQV/0YBZbMdE3s8UkkoopBW8P8Xz 8m/4egVkompIRUpteL+VRldCFFqOYC+2YkQZKhpy0d7L++dwGfoGS9HbX4Iu CmwYvIGG/uuYWD4WJJ78gqSTMzp/g2nVEdry76Cz6hA9jaTYToq97MShQ6yN HWJj6hDbc4fYWzzCwfIRrq0e4+b6MW6dP8btC8e4u8FsHqOvZhhNBR1oLupD Cxe/TvbCQOmctgvz5jCZO0+C8zy+zWE9dwEbBQvoi67DqLQBjXZyjJqE4yaH sksJ7MPUWuwW9OBu1SwzjTtVU7hVMYGN7DYu7ZUY45I4xCWxP0boxXx0B+Sg wzcb2Z5RXyDG3/03iAkQhs5o8osOdENkgBsiAlwxPT508nttStA4u0J2u1Cv XGfukh47j33fvP6MnfeKnfeGnfce7RdJbvsTOne+Q0bhJIfNaeSUzpDcHMkt oKBiESWVSyirWkIFI+GSKnVKg8wtA3EeWRyGMiFm/0nZfQrrCCRx8Uuz5xDq EIFcsisguSLnMJQ4h6LMJRjlLoGocPFDtbUHqo3sNSdFqWDKSK6EKdIzQQF5 lVrYocTKEdEBoXB2doG5vh7MjExgbWYFZ3sP2Fp6w87CG/ZmXvCw9CA7d2QF m5MdP0a0BYpj2Jex1siLtkFutD0yw+1RHOUIZYwj1IzwvMm+GBsMRVliJMIU /ZE66JSdRUe8AdrJri31hGKiNZriLXj3N0B5qJ6mj+pIrjHKAM3spHaxIfuK naewwkiCNUZJdDady1wmubHvFnM5YHLIXCqywVKJNZZLrbFSLlxbcrE7y495 CqqoMxxe9UhYD43s0+pQgZwelNH6yA31I6tYKHwikUBqSYGcMZi0oAgkBkZp Xk4NjECEkxjhTFJkFtkJD7oUIieOawwP7XKJEnFSJckpES/jtYyDpUJaza1A KqmhvCrIYwSN8phy/GvIost4d6pGiDdn0qgSVDZko6O3GH1DWnVNPWNoHL6B Rspr7GO6r2Fy4dBMC8/oBN6U+gFaCu+hTUl4qkMMdxxikvDmCW+V8M4T3sXZ Q1xaIL6lQxysHOLK2iGurR/i+vlDXJjaQWNeC9QcPluKhtFWPIXukgX05i9o fxoxfwXTeSuYz1/GesEKNovWsFOyzm27G2OKFijNYjFuGYvbjrG4EZ+L1cwm 3K9fZZZxXL+E47oFHNbO4U7NNG5WT+JcTjtGFdwNZaXo52DaF56LLv9MtHqn I9yXi164n2Au3N8NYUwoU1qYhSma+9cnJ0drnFtH0+I+1Ms3aO4emlntzStP 0LL2Aq3rrLnz71hzH9C+9S1r7jtUDlxHVrHgbY41t4Dc8kXkVyyjsHIFJVUr 9LaKfCZCeY71yvnEJRNS92zI6E7ino5Y53hIbGMh59KXQHPCT9RlOEUi24n2 nMOR7xKGQtcQFLkFodjVH6V0UmLqhGJdCxTqmSOfVZdDb7lGtGLtinxrJ0QF RSIgSgxnN3d6M4KZidkX8PTwgSPsLD3Jzgf2pOdo7oUoV3fkhRqhMMIMRVEn 5EiqJMYOpeRVJnJAhciRDJ1QLnLm+ObCu7wLeuTOGJKToEwXvQo99DH9cdzh 5EZol5lpyNVJTFBOZhXkpuR1Hbk1xRiiRXj8g2NgX5zwWKU1RshtLMUGE6k2 5MYI3PJJrVDgZktmTLkt5thwnYm6HIW/QUXEKVQxPRpyAmXuk9wja/h3lEW7 QM7xMs5HDIUwXgrkeJOkBJNcCKkFk1xwDNKCoxHhIuNtIEeUi5zscpFGagqx EjIJ9zdpPeJk9VDI60lNVod/S3k1nDLrEMeCi2PZxZFdnLiS1xVMGWLDKhHm W41QnwqIuRFV1Weho6cIquZSNI3dgGqUIbsmslMNMD3XoOo4wItX338+qZDx ib29tbdoKrqHFtrrbDrEAEtvvOcQM5w/F0dZfJP0N3OITRbf1iINLh9ih/Z2 zx2iq3oAqrx2uhukO+3jLl2FK+jOWdG6yztHd+tYLTiPjeIN7JRt4nLFRVyr 2sKF/FnUWskxYSvDXTcZjtLKcad2GY+bN5kNPFKfZ9Zxv2kVh41LuFM/j5u1 M7haNYG98hHOK02YT6zFDOeBdt8UpHO49xN+r9TE2BAPVuO8/PzENe2piwug mr2ApgXudkvc7fhpNC9ztFzhaLn6kj33hqMlO27zIzo0Hfc9Chs3kF08S2/z zBLy6K2gchVFVWsorVpHRfU5hDORNRuIrt1ETN4MYl0yIHajPbqLprsY12SI HWSQ2kUjjuYSHXmncObe5xKBTNdwZLuFIsctGHkOvsiz8kKOpSuydMyRoWeJ DAMb5Jg4Ipd7XxLHz/CQGATExDEy+MdIYWZqARdXL3h6+zN+cLJzh60N0VkT HT+WExFmBxEd97kijpbFUda/RherRVctcUKtzBn1cc5QEl2dwhXNCW7c8QzR lWiM3mR2HtN38m3yXoKrIYRSdpyAribSEA3RhmgiuBaOnF0KMwwl22CQOEcJ bpzgJjNsMZVBcHm2HCkJrZgp04JbZMf1pROW6Ayqok6hMuo097jTUMfqoC1W 258N3Bmroq2R6Mfb0UeEON8YKDhGJrDTNOhCo5EeFsPujuHLYqQxcT4Cunh+ DeIR7poCsbiRJaaCTKaCXK5ih/GFf8d2a0CClNi4rsslDYjThK+z7+KEOpQI +CogCq9GeEANwvyIz6cU8Ypc5JRkobp9GOpJHsYnCG6cIb4mDb7raOq7iqau ywI841/+kra/wfNHP6G+6C5UdNdKdz10N0R3E3Q3Q3cLE4dYpru1+UOcY+ed Xz3E3Ngl1GU3set6oSoYR3PhHFoKlk8e5/xbDORscL/bxFLBFs4XX8J22S4u V+7hunIft+ou417DZdTZJ2LSKRH3vBLwMq8Rz9r38bx9j9c7eNp+CU/at/Co bRP3W87jsHkNt1XLuE57B+y+nYpRXOJQu53dio3EBizH1+J/PTkdr2pmA03z B1Avcm9bOkLz0iPievYzrpMBsmP7Ow2uzKJp7mwss9JF5JQvI69yjbjWUVx1 DmVElVJ9HhE1FxBVt4noui1E8fUovi86tAqxHtkQeeUgwiMdkQIw9xTIuLsq 3OMQ5xKDeFfudW6E5s6jMIst3cofqVY+SLH2RCr3sDQTZ6SbuiDFVDg1fRD8 RYlMAhMPP5ECPuIkOLv78Hb19A3CV/DyCWT8YW/LIdKW/WbjDSdrLyT5EFcY Gy3CksDYaFG2KIkmrpgTXOLPuJxQr3CGKt4FzYkuaEt25ctGfNmUL1ugK9UK nRwIu5kWtloVW6w8hMNdmPDopf6fcLXKTNCbxCE0wx79Cdzf4o0xRKDDSUaY EL5bkGODZeIS2myFsFYq7dCbboA2tllF9JkvUBVzhu1SHX0GNXypU6IPFT+0 KtYIBWH+XNc4O/pK6CoW8ZwXE1hcSSGCp1ikh4uRGSFBRpgUaWEy+otHNG/6 aM9MhPiXISSwChKp8MvipLIWzj5yqZoF18B1rRZyDaxGvi9OKvwucoWATVrL 1J9cKzVrXnhgHYFxmPQph69rEaSplYgunuPss4fmaQKb0iJTE5mayNTD16Ae uAp1974ATDtNQjtbfomdi+9Rq7yHBjWBcaDs4UA5yIFylAPlJEttmgPlLHHN E5eqtBt1We2ozx1GA4/iTRwYVVmraMk6j96sCxjLvojZ/B2sFl/GZvkV7FZd xdWa67hZdwN3G2/gWH0TDc5pmHJLw6FfKl4Xt+Jl6xZecdx92X0VL7qv4Fn3 ZTzp3sXDzks4ar+Iu60XcJPArjYuYq+WuCpHcKmwG9tZKqwnVuP90RP8L5rP hb0+vYmmuStQzxPXwhGBcTtbec5p8RVxvSUu7aTY8XlSLJohrgVNa+WUrxDX KgrZWCVEVKY8j3AmsnYDUfVbiBRgMdHVG4ipZovlTCNW0Y1o7xyEe2UimF/l CPdkgiMy31TE+6XwKJyEZA8pUp2ikOQQjjj7IMjsfKEwcYPcxAVhjgHw8I2G R5AIvuIU+EqS4SNJhChfic6Lj+HhFwpPxstfSAgTDFc3X9jb+8LBzodN5g2F lxFyQ8zYXgIuNlckcUVx0+OGVhqjba4qqRNqOCJqcCUIuFw1uJrZXK0aXOZo SbHk+2w4KtqhXmyKSrZVeZgBtyZD1J/c+z+Pij3xZuiMM0IvcQ4Q1hBhjaYY YyLdGHO5FpgrIK5SO6xU2GG6yALdQmuJz6Iyls0ltFfsWSiZWqZJxPYSGVKb K5L9o7mViSiLugLEiA+KQUJILJLYUilhEqRHyKgrDhnhCqSFxyPOLxmRnN5D /cq4QZQjyLMY0VFNbK9WzoVqjShW1BecHxuFn++VNnKCZOQNwhTJ1EERV6u5 Ft4mim5EeLAKgT518Peohq97KXxDOxDDJSKpYQ0tczfRPHsDzTMMkTWzzZrH rqN55BqaBw/Q3LOHl6+/0z5OAgvN1R+wvfMeFQ33UNN2yD3vEG1sru6RQ/Sx ufqniY0TY0VKPZSZfajJnoAyZxG1RKVKXUZ32jqGMi9iIm8XC0UHWC+7jq2q W9ivuc22uYs7qrs4ar6Hh/zYjbwhpr2ycBSYhbflPXjTdYA3A3fxeuA2Xg7c wov+G3jafw2Peg9wv3sP9wjsVvsGrrWs47JqEbu1k9gpH8BOYSsuZimxlt54 AisYqim21ixhzRHW/DHbi7CWTmCd/zWsKg7SWUWzhMXGKltGTsUqcivWCOuc BlaSprE2COsiouu3EVnF9hJAVW8hVrkNESNmJNXbiJF3IDKhC/6OcfDneBjk JEOYsxSRtlGItItgwhBuF8yvViQ8A6Lh5RoJV18x3PzEcPUXMTHwlqbBS5qK jLYZdF16jq7tZ0iv6eGfj4BXoJBwJgxeQSFwcPBhfOFkT1ieRsgMJKwwwgon rAhb4iKsKMKKduD+RViSX8NSJ7miVYBFHK3Cj0onmROXJdTxhEVcVTFGKCaq MqKqijImAGM0ik3QzMbqkJtwJDRljNGXQFQcJYdTTDCebvIFJrNM8FeYKbLH fIk9XdmjL8sQPZkGLKzTqKQhtpZYOB+Pki/X8qU6RiXVR05IOBTenAJ5syj8 ZXQlRXywGAmhUiSFyZFCT2mRCmRGJSCbSYtIgjQgE0G+FQj2rUII96dg73L6 4g4loi1OhzJGIlFrmkwqa4aM13EyNdNESExcE2E1QqEgNEUdoiLV8Pdtg79P E5ePOnj69MDNuwfhubOIrVpC9dgVtPCY3TJ3Cy2zN9Eyw0xdR8vENbSM8n1D l9Hcuyvg0n4/4OQc6r/D5sF7bF97j92b71Heew9VxFU1xHExtwPNwuhXtIjB mm00ZyyhNWWFNb+J4ZxdTBVcwWLJTZyvvINtjpaX649xU3Uf91oe4n77Qzzu egSVdz6mffNxFJqPd1WDeN93E++G7+Pt8DFeE/DL4Xt4NnQHTwZv4gFhHfZe xp3uHVzv2MRByxp2G+ewoxwjqm42Vj2WU4vxeOMah1rh3/7v0ThBVNNENUtU c0Q1T1TLn1G9O0H1SYOqsGGDqOb+hCq3fJV71tpJW51DWPW6ZgwUUEXVbGpA RRNUjPISUe0IPz6t3OXfLKnegaRmB9KaS5DVbCGibAUuaQOwTm6HdUorbFKb YJPWAKukSlgmFsIyJhFOvjI4+wuRwjlAgqDoNGS0TvNjdu++ggJdOy+ZF6ga 24JnUBS8goVEwiuEuHjvc3ElKkd/ODn6ItTdHom+pigMJaowa8IiqgiiihRQ ORKVEyr/1FYuJ6hctKjkbKB4okokKo53zRwDhf+qY4y1qCKNqMGYAkxQLzWF Wm6q+VHLDv4/XcTYn2SKwRRTDKWZYSTdHGNZ5pjINsNkHhurxAETBZbozmTT xeuiMuasRlW1VJejqe7PjUVV5dwJhe+RCd8zi/ejpoA4KALjER8iR0KYAols ppSIRKRFJSIjOhlZTGZUCqKCiuDvrWS91FCVEmHUFeRZgOiIOoipSSRuY9op q40N1kZVjKyNOxgT10pVLYhTUJu8GbGiZgQGtjNtGlk+vh3wCJiAh/8AfKMH Ia5d49d9Ga1L99C6eJe67miFzd5CK2fE1omraBk7QMswZ8b+bcr6pP2WN7S/ 5vTvcW3zMvrKhjB4cp7H7tINNCQtoD31PPoyL2E07wAzxTe5md7Fhepj7NQ9 xBXVY9xqeYrD9md40PUcT3qfo8mvGDOBxTiOKMa72jF87L2CD2NP8W7sMd6M PcKrsQd4PnqMJxT1cPgOjrgO3uk/wI3uS7jScQF7zcvYaZiiJFZTeTPO55Xi zvDS35yMr5MXrrOdDgjpFiH9OaKfm6n90vfIKJg8QbSAbI58ucLIVyGMfGvI ql5DmHKNiDjm1W4iQtNKxMQmiiGgWPIR1+wRzz7D69o9SGt3IavbYbYh5f4l qb8A36JR+JYMM/0wTyyDeUIBLHmn8IvIhDShhlGiqmwUlaXD6Nl/h+79twKk vTf4Dbp2XxPSK8SklfJtXlwpnODFhd07jO0WGAxHJ1/GDyHCU598TNlOFoRk RUi2hGTHdrJHCUe+MjaTgEhJRHVE1HjSTC2/QKT56cdES7aSFlEVERWFGaKU iCpjTFDDEbBeZgpVnPDooSVa+f90JpqhL8UMA6lmRGSBkUwLjGZZYCzHAhMc +wRI3el6vIvookaiw3HvrKaUqvhySdRplLOqhNVKGXsaBTFBiHVnNQkPxPvK iSiBy1QKESUiPiwRCRHJSCaatOhUpEenI5NJispGZFApEdUhyLsWwT5cgnwr EeJXgfCQWsSIOpkuIuqCWNqlWbK6eaCVyrshi+uCTNEFibxL8+eiojsQHtWB wOAephN+QX2cAFZ4AJvlbT1GSD2QNFyAuH4dBf37aF0+IiauSIsERUytcyeQ Jq+gdWwfLSM7mFm7gT9TdH3zKvqFUy9WCKdevIj2nHM8pq2iI/Ui+rL3MVZw HbOld7iCHmOj5iE74ymuNj/H7baXOOp6zWHtDZ4NvIU6qAIzoeU4jinH+/oZ fGLvfJx8hfeTL/F26jleTz7Fi8nHeDpxHw+5uR2P3MbdIW5e/Kdf6d7CXts6 dtTzlDRKSe3YLKlg53VrFf2f2L/zFKrxfTRNUdE0F6e5R1yenqF59RVaThan No2i76ho4mRxoqTSRSoSHvJboaJVJFQtU9GqRpHwcJ+gKJKKogVFrB0RFYkE QbX71LPPL1DdPkdkaT0xNbCZGjn2NRKS6jzEqhWIVAvEOIaI6h6kcjStrpxh ppkpVFVMoKp8FD2XPzDvCUkIQe29ZS+9QXrDMDy5N3iFieAVHstwFIyIhLNH ABxd/BHs7ogEb1Ok+HHECyaiUBsCIKIIexRzvCslogqOd9VEVBvngoZ4FzQR UTMRqaWGaIkjonjzkzNuunL/MkIpR7rKWBMoJcQjN0MT39+b5agZBTuTzdBL OANsnqEMWwxn2WA0xxpjuVYYz7Nk+1hwB9NBa5ouisO/QRnBVBJPacwpflzi iTmt3Z3ExkgOCESsRwREniLIfRSc65K5K6URTzriw7l3RqQhMTIdyZEZSInM IqJsJMbmIzKgBP5e9WygegSwgYL8lQgJqEEQF50oUR9ixIykHyJpP8SyAYjl /ZDGaV+Oih1ARPQAImP6ERnbi8CQIWYAfmHT8I08D+/wNR6yluEZMk1EQwhN n+bXcQPihnNoW32AtpX7RHSMNiJqW7iLNq4SbTPX0DZ5gNbxXbSObuHg1mO9 X/r5B/q5jgHNCRDX2ESXoE5ZRVPieXSk76A/9yrGCm9jruwIq9UPsVn3FLtN L3C19RVud77BUe87PBp4j+dDH6EOVWImohrH4mq8a1zAJzbOx+l3+DDzFu9m XuP19Au8mH6Gp1OP8WjyPo7HD3F35BZuDl3B1b5d7HdewG7bEg1N0FAPtiqV dNqDZ7tX8Ncni97+rSdQ8VAgPLipnjpkHT3koiQgeolmImrdeI+2i6yj7W+R nj+OrMJpZBVzUSqd13yvKq9iEQUEFFI5/ydEEcKyVLXxJ0Sxv0Akph1J3WXq uQxZA0EJadyFVHUJEvUWxGoevtRrEDVRUR0VKXtQQDXVVfPMHENNVZRUOc5D Zc/Bt0hA9+WPGlEaTXvUtPsWHty8vcKZCGqKpKRISoqKgoNrALzcPHgIN2Ud maEgyAqFIVpFRZrvDVNRLGc6KqqSOaMmjjMdFamEn4cSHtoTG3LxMaUkc42h lvifq6gwwoiVYYwKkSmU/DN1Qg2l2qAnx5HHTkt0sIZ6Kak/0xzDFDSaR015 thjLt8dwqTtGS6kukwtWvAGKYwRFZ/nxTrEiv0FpBDUJukSnNY/zyzwDEOUc jmiXGIi84yHxTeY8l0lROVAEM2GZkIXmsWrKEOFbjhi/Uog51YTyZV+vRviy igJ86xDoX49gJtCzChGiIURJhhEtHUaMbBgi+QiFjSI0agxh0WMIjxlFeOwI wkUjCIoYQ0DYGPyiOD5Eb8EvZoOhqAiKCl3gUWwc/rJRSFt4dFRvoHD4KtrW HlHVQ7Qt36eooxNRtyiK75vap6pLnO82/lzTxg0MFM9gsOwcRe2iPm6Rg8Em OjL20Z93A2PFdzFXcR+rNU+w2fgcey2vcK3jLbeaDzju/4jHQ9/ixcgnqDmx zkTX4VhWh3fqFXyaeIRvJ57hw9wHvJt7h9dzb/By9iWezjzDo+nHOKaou2N3 cXPkBq4O7GO/9yJ2u1ax0z5NUX3Yqq3HBWU1XhxcOdmOnNDIyVQ1dh1NE/eg nnkA9cITNK+8QPP6a7ReYCVdfE9JH1BQv4ZMYbArFh4op6ayeVbSAiUtaiVV ryBc+f+2957BkaVZdthR9Qy5y6FWS0WIFEWGdkNLiRGkpFCExOXumO4uj/IO PuFNwnvvvfdAIhPeo1Dw3puC90gD770plG07o5867+Wr6uoWQ7/1Yzri4GUC KHR+955z77nfe/lyRFSSg9SOPpm6nM+URBV55hNKQkUU0OQVsicVTcO9mHWs eAQuBT2Q5zFz7EfZWZxbs/qQld1LUE1Zncikmqo136JaLeAbUVOCoqoW3olq ymxbgLGjFxXkCRNnKsqZanKmzTNlTzK0gLfhNfibUEmWt6kmA6rprl5NVFIy lZTqoZ+OsqmkPCpJGaA3dir2m0LPqzR3N1Dse1M60fEbZHAainfkdOR8Fak0 dFme16EQrjoMu88+cw8VEfdREcqpJ/yGdDnzLdTnWqIx1wINuWZoyHiM0pgb yAu6ihR3Tljse4KaEhyoJsf/zImLKiJi7R5Cfs8Sjnft4XjPGfL77oQXVRUA T1OqRxYNJ9Mk2JhmUDVZcJJlwdUyE55WKbh7owKGhiqYmeVDJlPB0qIA1paF sDTOgYM7q5YH1eLWCnvXNtjIO2DrRDh3wM6lHfZubbB3b4OVvBMWjgNUzQxk rouQuc3Bwm2ax3GYuwq9aZAVrJNKqoNXKb1GyTRCqudQNnJMJR1RSQcoG9xD GZVU1ruOsu4VlHWqqaY5qmkC6o2D3/5CSWMr0u0Cx6imeeR5DzIT0yiPUON5 3Cqak7fRnXmA4bwTTBRcYL7kNbQVb7Fe8wE7dd/gsOE7nDZ/j0JnFTrclNjx UeI1GfaBPeibzgu86/0Gb3rf41XvG5z1XOK45xwHXcfY6djHRts2VppXoWFv Wng+g7kaervKLsyWvMCUUom5knLMFBV9UlLb8DpUDVRS0zrHJP2IVMgRqYgj UvHoJUonqKapN0ivWaS5E/qSpKaULkSndcM7rQM26d2wzxgg8wUlvYRDBpVE P+uUNc2+NKPvSxyJBCW5sw95UEUegooKeSzi82KOTyUzxATcSl7CWdUFuaIJ odntVM8gMYCsnH5ki2rqQSbVVK39nmoi1N/pFbX0jaSmt6iky3OJyoKx3BvG zlSUiweMXd1g5GCPB1SStdEj+BpfR7j5TarJgGq6y1HpHhI4IiVxREpxp7vz FNzdI+T6si9xRFIF0uF5G6BQ2JCjUoq8PirJEOlUUArVlOiiV1Km13XkcXRS Bd9Dcdg95p1KSjJGRY4tqrMsUZtpzqnZXH8tW645mhXmaMx+gtK4G8jwZW/z oFv0pDLd/kCF/haJ8t/S5Qmnn36PSFszONy1pZKcqCI3whPyh76EP5weBsLl SQgsHythY6SCvakCzhYquFsXwsMmF3cNGmBgUA4Ts0KYmRdRUcWwkBXB3KhA VImVvAsW9t2wdOjh4x5YO/fAxoVw7YY1jzLHMSpICwv3NWIFMncdLDyWiHli mpiAmfNLmMp76QeamPsxeJVRUaVTKBs9RdnLE6rqCGWionapqC0qag1lPTqq ahGlXdMoaR/5pZpGV6mabrxIHGeXH0Gu1wgKgmYZVU5PcetoTtlFd9YRhvPP MFH4CvNlb6Gteo/12m+wU/8tDpu+x2kr1eRWiHbPQmz7F+KydBTv2IM+9LzG u/7v8Kb/G7zqe4/zvjc47uVk1XOKna5DbLTvYKVlHZpGLRbqZzFXN4rZGk5K FfWYLFRh5UUr3V+JpCZXnF1+B2WdhoqimqjEgm7B5R2jcOiMo9IFXR7709Ql 0llfwuMa2ZuoqETpKsDUTnintsMmrQt2Gf1U0xCVNCKpaYLQq0kYlVypJreP alIRBYKSiBI+LqHSymbgVjoB15JhyFUdcFQ0IidnBNk5w8jKHeJxkGCPyulF XsUUarQ/okbzAxX1g6QoqknsT+9QybmpkjOTczQV5UJFuXrC2M2dcMUjc0sY GRqxN11HmMlNxMnYm6zuIN6WanIknKkoN6E3PUSG4PJ8hd70WOxNKr/74nmj QnehP92kom6Jikins0ujkgQ1pbhfR6avAfIC70IZchcFcUYozLBFSaY1ylPN UJVuLqqpLlsm/tuGPHM05QtqYm+Ku45EusgkSU0JzlST/HdU+O/1wv0tvG3d YGfoB9sn/jRm0bAyiSeSYG2SQqTB+lEqZA+rILv3AvaPG+BqWs9/Uw5Lwxrc MmjB7XuNePi0DEamZTA2qYDRswo8fcjHpg0ws++HuQPbDluPhRPhLDwegrkT TZwrBeSxCwvPHWKL2CBWaeR0sPRSE/Ow9J6COVuUKf+tiZytLH4AXpVqeJbP IbGFohk9+0xQ+yjj+FTWv4myvlVCQ2GxPXWP4fzt+3/8uaC04k33KKj4cZQE v0Su90uogtjwInWojd9Ec+o+urOPMaQ8x0TxJebK30BT/Q5rdWxPDWxPzd/i pO1bFHhQUH7VWA+qxgUF9aabguo6wLsBCmrgW7waoCHsf4fjvkvs955jp/sI GzRrK20bULfoMN80j7mGMczW9WK2ugFjxUqsNLVjsaZcOrdUi9aBbaherELF kUvFf1tAo1c4yLFphIIaO0fJxAVKp18hLKaegmpCREILIpJaEZ3SBq+UVlin 0BCk9+rbU+YwHNI5MmVQTBlT+vZEMbnk0egpKBolBVVIsCW5U0jupUTZnF5M 5RyxivpFMXnltiIn9yWyc0copmFk51FQuUKLomFuX0eN7o8UFIUkQGxR31JM +vZUKbanS1TMXsDQ2QdGrt4wcqOg3N1gKHfAPWMZHJ8ZIMT4BmJNbyHOQt+e 4u317SnR9fP2REFRTIoACortSeH0FQpcKSb3GxTULRR630a261Wk8XtJPKZQ ZJl+d5AdQpOYbIP8NFuokmUoSjFHWZo5KjPMUcO29DxHak15ZmxNpmjMeoSS +JtIcP8KSZ6EcHT7ioLSfzJXWII7wqMcxMeOlmGQW8XAXhYHB2EMEoydcSLb USIsn2TC7EEFZA+qqbgWuBh1w9NsANYP+3Dt61F8fa0Pt+++wKPHNXj89Dme PKnBo4eVMLIdgrH9EE0aj7bC6DNLCO3nBDKPYyrniMo5JA5g4U1VeW8Tm7Dw WYOlzzKxBEtfmj7vSZi5DMPUuQsOiSPwqtbBq2oRie2bKB+7+ExRhygf2kP5 4DbKB2j4Btie+hepqkmod/bxMzl9gfO9V6iJ7P7szZJfQBk0/4s3UP4NBpVn GOfMNFd+CU3NW6y+eIftxvfYb/mA4/ZvUOpP6idM4H3pS1w+H+ecdIZveg/x dvAbvCZeDVJOA+9w1P8a+30X2O45wXrXPpY7NqFuW8Z8K+XUTDnV92Kmth7D JQqstHZisa5CkpOFeMG+smYFqsZNqDh3qboPUdBPSQ0do+jlKYrHT1EyeY6Q yOeSpNijEpvZn1rgmdwMq2T2p9Ru2KX1wz59kKDbSxe28iY5OwlyYn/Ko6Ty 2aNUlFUR+1QxQV/tRim5lQvgfFUyAqeCXjgo25GbO4qcvFHK6CWy8kb0csob RGZuH0qZFr2c/kg5/aiXk+Y7VIn9iXIS+hPdXsXcK1TMnME5NhNG7l4w8vCA kacrHsgs8MzoGQKf3UCU8S3EmBsglv0pzo6ScrxPCj/41J/SvSgp30fI8WeP Yn9SeN6Bks5O5XIDKrebKPC8jVxKSThNmyrclMfLAClRZkhPtEZWig1yE2XI TzJDIeVUyr5UkWGuT/1tvMg15chEJVFN9dmPUJZ4GwnCbaCpolif+wiLtENQ gv7216EhFgj2sxcfyy0j4GQVC2frJKoqGY4ciZys0uBslQEHs2yYP6qlqpph 86wVctM2OJk04tp/XsQf/n4BX/J442oHDG634s7tdty+1giD6014ZrOGZ7br VME51XDOHkO4n0PmKeCMKjqlUk6oniMq55DK2Sd2YOm3SazByk9HLMHKfxpm wvhEY+iQPA7v2lV41WgRymGifFx4s8OFaPrKXx6jfOQA5cO7VBWVNrRCqKmq WZT2Dn9U00NpT7wqrBt10WPi8nM9RlnY5lESof+whMbUXfE4oDzBWMk5Xdgr qGsv6cLeYKvxLfZaqI7293gezzmo4S1+nHqFb6eXcdZ9ivf9VFL/JZX0HheD 73A6+JZKusSepKQ1KknXuYmlTiqpfQFzrVRSUy+m6l5gtrERKx1dmH9R/t9J e+Ktvbs0ehtQNe9AxbFL1XOAggGOThwYi0aPUTxxgpTKSYREPUd4zAuOTg0U UiPcExphmdgC6+RO2Kb0wF4QUhqFlDZGozfB8YlCypmGk2IGzkoKqYAoophK iNLZK3Atn0U8XMo4XRUOwFHVjbC8Pkk/P9dQFjWUVzWLmuX/mxr6k6ijat2P Ulv6qKEPeg3R44kamj0jjuEUlw5DD0/CDc88nXDH2BSuT24j/NlNRJkYINri DmLZlmLZluKcqCO2pSS2pVS2pQwfQUePRR3lkNy5jleR73QdSuooz/kaNXQd 2S7XkOVDDUZZIjHOGmmJNshMtkJ2vBkU1FABvV1JmhnK003FjNdkm6KOAqpn S2oQWpLSFBXJBoijfwyKsEMAxROYSITr75EZTBEF+tvoRWQVScHEwcmSsErk c0FE6XCxzoSrjSCi57B82soW1QY7kzY8vTmA3/+nSfz+/xrDb//TKK6yLd28 3oFb17tw8+t23PyyFSZOryggwvUSZm6XMPcgPC8h8xbwiuK5gIXvOQVzShwT FJI/hRRAIQVswipgFVaBWlixT5i7j8HUrQ8OqZPwJqW8ny/Ds3oB5RPCm/Re sTWdo3z0hEJiW3rJtjTCtjSyRmhRNjyP0oGxX2hIO7SL2gi9hnLcXyLffw7F 4TpUxm+I32vPOUC/8gijxaeYrjjDYu0Fll+8wkbTJXZaX+Og/Q16yt9j7uUP eL39PQ5mDnFE8/am/4A4xuXQW5wPvsHJ4Gsc9r/Cbt85tnqpoR5qqHsLS13U UCe7UdsYZpq7MV5Xi6WOHix3dWFjtO9fii/zHhQVq1DWb0PZSv3QN6p6qaHB AxSy/xaNHVFDx0xuDUKj2Yxi6xCeUA+3+BewoM+z4tBknUQNJffALoUaShWa ETWUNSFe5iBX0N+p2JAKiCJqqXQWzmVEuXCcgrxwGI6F/fDK72UDGtMLSDGK LIVeQFmKIWRSQKqOLb2Aln8hIC0FpPn25wISfN3cOXFMHCCjYwxPPd0JZ9yV mcH02SMEP7qJcMPbiDQzQJTVXUSzEcWwEcVyUIp3o4jYiFLYiNLYiDL8KCR6 uyz5DeHTdhyu4a+Q72KAmnAr5PHnyaGmSImUITHWCslJFFGsKbLiTZGXaEpf Z4qiVFM2Igol01TfiP4SdXmmeJHPZqQwQVHSE/jEecCP2gmgdvzDbOEfZCnt 9f0ODhb+bEDhRDQ1E0/NJLERUTvUjTN142qbQ00VwOJpC4endlg9q8e1fxwS NfPbvx+npevB1euDxAhuXOvFzaudeGikgYnzG+qGcHsLM4+31M1byLzeUjNv IPN9Awu/18Qr6uWCOKNeTmAZSP0EUj9B29TMBqyCl4kl/lsOSO79cEybhnf9 JrxfrMCrdgkVk29QPnnJRnRB/bAJsSSXj7IJje4QG8QytURLN0xLt7uLf/i5 gM5336I6RC+gbJcRjqyzKAzVoCJuHXWpW+L3e5UHGCk+wlTFCRZqTqF9cY61 pgtstV5gt+MVDrteYa7nHVbH3vH5CfbI8Ff9e3jNLvFq8JICekUBXeCgn5NR /xk2+46x0rsHTe8mFns4HXXNYbZjBFMtnRiqrcLKwBh0PZ0421j+l9KNLk4v foCiehP5jXtQtu1D2U0RUaMFQxTRywOK6ADJZWMIjqhGaFQtQmOfwzWmFuZ0 dhZxzFpCO6wTu2CbJIioT2xEdlkUkXCJQ/4ku4sglGnIi4nSGcgpIHkxf144 AocCCi6/RyAm/ds/0XceQTwKQTzDyKSAcqrnrwjquSLKJ+gz8Xz/k3iWJPEs UDzzFM/8CcFMzTNTc+sILi7BYw8HPDF8BpfH9xH8+BZCjQ0QLruDCHagSHag KA5G0S4PEEcBJXg+RJI3RcQulEYBpXvdo3RuodjtKaoCZCgNsUJauDUSQ8yQ Em6OtGgZXZwp0qKMkRlrjJwEE7o4E3YgUxRnmKIskwJi96lm96nJMUFttgnS cjwQl+dP1XjCj/CNksOHyvENtkRAoH4nIsjfTFSQIxXkaCUpyDqZCqJ9s8kg cuBqlwc3OwXc7XJhY1qNh7fq8Lt/GMGXf6Barrey47Db3OrH9Zscjr4awtdf DuCp5S5MXN5SPe9g6vEeZp7vYe79HjKf9+w4PPq9g4U/1eT/hsq5pGqopCCq KIgqCqaKgvdgFbIFq9BVWJPS5l4T/DscjtNn4N24TRWtwatOjYqpt+LNUcqF DjTODjTODjTODjROGzcuDEy0caO0cS+nod7f/6igR9IHTZb7D4thyPecQK73 9K+kGag7fxef/6euI+kbOce0nGK7/YwiOcNhzzmOetlR2g6w2bGL0/4dXPRt UTBndG1nOBo4xX7/CbbZidbp6pb7d6Hu28BCrwZz3dOY6RzCWEsbptlxVoZG oelpx+G6Bv9KfGlOVM2PUNRuQ9G0j/z2A+QLqumTVEOjWsQ64R9SydZTjeCo avhE18CU85B5dAMsYltgGc9al9AJm+RuzkK9sM3og13OMOypAAflOBxUVEiB oJJR2BeMwJ5qsS8Ygp2yFwk5g8jJHdFvHeQJKtErJUMxiDTFAEoZbUEr1UK7 WWa7WZZajk6/lSCqRi2pZlFSzQKzs8DsLFA1C1TNPEfWOS1Kp2eQXV5EjxUJ 9wcGCHx6G8GmBgixuItQG8LhHsLp3aJcqB53qsfzAeK9HqC5MBgTrVksgPYo 9WAb8ZUhLcgG6eH2SA6RISnMDKkRZsgINUR6yBNkhj1FVowR8uKNoEw0RkGy MYpTTVCWZoLyFGNUpBojOdsDsflBiFcGIyTZS1SNV4AVvKlIPyrF188M/n7m n96E4yCqJgZy6wTxoh4nmzS42LLv2AmqUcDVPh/25vnsO/m4caMJt262UikC 2nHrVidu3+7GzTvD+Ooq8dUg7prswMSVqnF/JyrGzIuq8fkgqkbmR/gLt+q0 CHiHf0PFvKVaXlMp7D8hVE4I/VvoAazC2HvC12EdroW5L1XjRdVkzMKnaQfe DevwqteiYvodyqek3jPB3jNxioqJI2KP2OJz+rYJDcrGZqA5OPylapb69sUA FPgxdR4z+mj8LaoSV8RHHXmb6C/cFh9PVe1j4fkBNA2HWGk+wnrbEbY7j7Hb fYz9HiqjZQ/LbVs4oHLO+tc46+xTOUc4YPvZHaCyBvaxNrAL7cA2FvtXMd+3 hJmeSUx0DmCgsRkro3NYHh7BQk/LvxZf3b8WhZNXu0vhHEAhCUdJ4ajo2QqG D5DdrIF/cBUCwqsRxHZjHFYLk8h6CqcZstg2WCR0wDK5C9apPbCmaGyy+2Gb OwBbkt82fwi2ymGaD1vVMNuJTX4f4nKEUz/D4h5bRp6AoStI5y//K6RSK5nV M3p9rEg6Wf7xJ60IZ4cEi6b+uV7Kl1jNlqiXJfqBJeplcRtlC2som1ejZGYa 5x/eSx/R97doTk2ga/ZFaawfB3Z/lKUEoDwjAJVZgajOCcTSUCU0I1XQjVZh tqsALzKCUeRiggxvS6QE2CIt1B6pYTZIDDRCcrARUoOfIT34qaiX7IhnyIky hCLGEMo4IxQkUDPUTgm1k5Dpgai8oCuIyQ/G3yE03Q8hcW7w9TWHDyXi5WMK b19T+Pqbs9mYw13uDXurcDhYxcLRmuONTSqcbNMplSw42+fweT5sZSpYmSrx +GE5JdJMeVAqBgIolzuUy50u3LgzgKs3+3D9/jxuG23gvmyXjUGSCxuMua8Q GkEs/yNkAWw2gUTQO8qEcglhswllswmlZMLYaMIOYRWxS9CqRepg7qeXi0/L IXyad9loNigXHeXynnIR7kPCRjNFuUxRLlOUy9Q+wTFnap1S4pgzMYfSl4Of q+XjTltVpAYZztPI9ln4tNP2PG0FLTlr6Fbp552xim1M1+5gsX4XmqY9rHDg WOfQvtl5gB2SeI3eSd22g112mqORfVqyfXaYPepkF1uDwoc6bWNZeLv8wAbm B5Yx3TePiZ5xDHf0YbxnCMtUs3Z4EKszY/gfxNf4v+D01R+RW7ODPEEs7GT5 tH9KDjiqAX2nyWzSwjekGv7hNTAMroFRWD1MopphGtMG8/gOyJK6YEGhWKb3 wTKzD1Y5/bDiQGJF/ltRLFb5w+LRJbcfMVn9yMgeRLqAXHaSPAEDokpSFP1U yjTVQVWs/HBFfPAv+JUC0bGhCBCEoqVQNN+IYqlQvyMoFjXFoj4jKBb1PgVD sSyuUixLFMsUgy8s1REfzs8xWl6MibpSTDaVYaqtHFOdFZjqqcBsXyVDVkmx VEE9XIVWVTTq0oPZLPw571gh0dcWqRRLerAtUoJkSKBYkgKfITXoCZsLG0s4 hRJJoUQbQUF7poo3RmGiCWIzPBCeG4SIvGAiBFE5QYhL90ZIpBxBVImPjxnc vU3g6WsGH6HJ8G+7u7rA1iqCaomDg00SHG3TILfLhBNVYmeVB0tzJVEIY8MS 3LjdQHW0UB1tuHmXuNeBW/eolPtduGbQixsPhnHbdIXYgIEZ1WJFtXj9pBSx qVAlMlElRDBtWQiVEsoBJ4zNJZxKCWdziTiiQmjJojb5XAszKsXEa1CvlBYq pXkTXg3LqJgR3vVJpUxTKdOvqJwzgnPm9AF/tsMjlTKtQ9nkPDRHRx8by2Px 8D/r71QWtIgs11lkuOv3pgui1ahM1qI+axlt+avi94bL1zFevYGZuk0sNJDx zdvQtW1jtYMq6NrBZvcOdJ279Fz72OrbwXbfNrb6t9hNNrE2uEGVrEM9uIa5 wRVMD2gw3jeL4e5RDHcNYWVSDd34JBaG+vHh7Wv8W2mKaR46Qy5VkkeV5FEl CqpESZWoqJKMZi28Q6thG1KLpyEv8CyiCUbRrTCJ64BpYifMUrphntYLc7YT GVUgyxmAjC1FRgUIR9+sPqSm6++mkppFRbDlpFBJybkC+pCU14uMaoHKFITw 5Tv8NXVBLQjQUg8aNg8BoibeokLzmmCl0lAXmiPqYg9l6i2ULa2gdH4RXWsr +lvzOuA9ZfGSshijLMYpiwnKYqKDsuiuwAxlMTdQhdEWJaqSAlCYEorA9GhE esmR4Mpx3tsaqf7sIcH2lIQZ4oPYF/yfso88ZV95howIQ2RHGSE32piyMEFk qhuC2JeCs+ivMoMQme6L6DRvxFASkcmc8enhfL3NeDSDN+XhF2ABn0ALeHnb i5Kws46HvU0KHGwzYG+dA5lpPizMVbCQFcDQqBQ3OJncuNNET9VGGXTg5n3K 4UEXQZ9FWVy924NbJnO4Y6GFgWwNBhYbfLyBB9b7MPNhE+FUIngsQQ4yUQ5E CCURykkljJIIZ/OIoCQiKYmoY8qBs370Jn+mFiXhmKODDx2OT+ueXhKNkiRm 3uklMSPsXZ6Le5cVs5TELCUxyzl/hpKYpiSOjyRFPBEPf4fF3lOo/NRIls/p 95rD1SiK16A6TYuGXK1+xC9ZxnDFCsZqVjH9gqxuXMdi8zo0bRvQtW9gpXMD q11EN9FD9K1jhV5reWANmsFVLFIFs4PLmBzUYrR/CUM90+hsG8TsyznoJhew NDaOlYU5NlS94zh9/Sc0jZ0jl+Yqj31JQXOloLnK51SS1qKlM+WMGPQCj0Mb 8SSiBc+i22EY1wmjxG4Yp/TAmL3ChEowIdtNsoQzNH0IZQ9J4pSSlE5kElm9 SMzmJCIgpxfxuT1IrZwUCH9FZL6gAnJfhPAZE9W6b/DfUAsfJC28J2imNIIW 2CM0NLpa6kF7ShyiTLNLPWxQD8soWVjE0skx3ZywPDuo+7sxWleG0cZyjLVW YJximOiuxFRvJTpKU1GeEIiIpHAEpkQjLCGSQ4kc8a42SPKxQ3KgA1JD5Yhj HY8JMEJ8wDMkBhsiJYxDSARHd47vybFW8EkNgG96EIJS/RGW7I3wFAog1RtR 6T4ISfKFP/+Gt5eZKAZfP/aFAEtx0ysw2Ao2dFG2FIK1ZRpkZlkwM1XA3EwF M1khzCyKYHCvCtcN6nHjbgtJ364XwMMu3HzYjVuPe3DtLoVhOgcDKy3uWGtx 12aZjykE6w0+3oCRxwXMOJqbc8wwD3oLGXuCjD3Bgj1BJorgNSwiLmEReQGL KAohmoNHzB6xyd+fh6n/BFwrtn4SQssmkgdOSPQPKJ+lEGaZD2ETX9yDPBH3 ICvmKIQ5CmGOQpj5XAhPxcP/hI78LaQ46ltCWqAauVEaFCdRCJka/WZxgRY9 pVoMVurwsnYZEy9ogBpWMNe8goXWFSy1r0DdQXStcNTmsXcZS/3LWBjQYZaY GtRhjMdhtoN+GqeOjlHMjmugZbdampzD9Mgo3r97+7fiy/m3OHnzJzROniOb nSCH/M8l//PI/xTy/3F4C+4HNeJBaDMeRLbhUUwHHsd14UliD54m9+JpSi9c qIWAhC7EJHYhjsNGXGo34tKIjG7EZhJZ3YjJ7kZ0dhcKRw+vCMz+Ndn/QfCS uvd8KuAdiS9Q/Df8yilby6KvFYj+CmW6M+IEZdoDgoZIs47SJR2K5+elmz9/ yXmqG8Mk+giJ/pJEHyXRx0h0VZQPsuOC4BMXhsDYMATHRyE0MRaRHi6IdWOl 93Gg+XFCcqgzoknKKF9DxApkDzZmBzBBXIAZ3BL94JXkD/9EHwQleCM4yQeh yT4ITvZFQJwP/KJ9EBDrA1/+DW8fS44KrPQB1vDhBO8XbANHJx+YmiTB2CgD JsY5MDXLhymrvAkJfosEv3b7Oa7facD1exwPHrST3CT5I1b5x70cDTpx02wW t61JbJL7jp0O94g7duvExhXctdtgQzcLeAPzQCKIvA7mMUTg92vIyG+ZwO+o V8Q5LKJPYRFzBMvYPT5fh1nwPIx9x+HTcQKf9kN4t5HjreT44LGe43Pk+Bw5 Pk9fKmwVLvD7C4fELp+T4/Pk+Cw5zpojkfzZ56NCgqcaqSEa5MZq8PFz++oV GrQWatFFhvdXajFUo8XLOi3GG7T0sjpMt+ow004mdxLdfNxLRvfpMNFPNQzw 94n+fi26exfR0jmJmfFlqGfXsDCtwfT4DBbnF/DvpLuVzGx9wMzuBzTOXyCb tA6kkp7E9eN2ACeykFYYhLfjWVgbrMPb4E4ER7YiNLoN4XHtiEhoFy+7jEzp ZD3rFD4HNr0Tv0JEZicSysakmvzuC4G/V0QC/4p0fke85bO3ApmviFz+5/wq sVnHMOpYunXnZPQpcUTQzmi3UKpZQ8mSFktn538pvcv7/eUFFkZ6MNhUjiGS epgOPy/SF4GRgfCODIZfTAT846IRmBDPSpuEcA93sYLH+TgjIcgFiWGuiPC3 QqinMUI8zRDmYw63CDe4xpPQ0Z7wjfOGXwLJyyrtm+APT/5tryg/eMf4wTfW H35x/vCN8oKHnw08A+zg5ucABw85LO088PhxMoyMMmFkIrx9WImHT4tZqavw Fcn8tcELXLtfT/K24sYjVmiBzI/o4h/wsdkcbgtV2pawX8Edh2XcdVzGPUdW cIdN3HVg5XZcxwPnHZgFviZDX5PNRNglzMNfkc0XkEWeQ8ZqrWfzMSxiD2ER t8ff0cE0aBYOeStk9DEZfQDv9h14kdGKcYZ/joyeJ6MXyOgFpmKBjn6RVXtR 2JbYIcjoBTJ6bh7qk2OJ0IbS+efJznNE2S8i1psWJlSDbHK6IEWDiiwNnpPT TYUatJVq0FWpQS85PfCCXG3UYoRl9GU70UF08XkPv99LDhM9fVp09FIPPWq8 aJ/GBLm8wN4xN7OKqcklqNXL/0G64aqyVi1elhWVOgj/iDa4+tTCPaAeXiGN 8A1vgn9kCwJiWhAU14rghDYEJRMpRGob0huXuMg3QoVdeoNf01q/EZn5EVXa N8LbHTVvrohU/St+vaTXIFh+Kz4RlmV4maRdZileZinW7aJUJO4qihc1OP/2 299I77zZWdWgj/67pSoPCaE+cA7xh3tECDyjIuATG0uyJSIgMZUVNB2hMfEI d3NGhJcbIn09EOnvhXB/d/i5y1hJrWEf5Q2XCA+4R3vBM9YbbtF+cI3yh2s4 jxH8u1EB8IwJhFdsELzjg+GdEAwPfs/BxxtWTi6wdHWFtYcrHj+LxoOHWXj4 SIE79wvwh2ul+PJmpZ6wd+tw9f4LXH3QzBhde9CK/w3Xn/Sw6qpxy4Yjp90q yUo4ruKOfBV35SSs0zLuE3ecSFjndX5vDUa+JyQsLUfoBcl4DrPwc5hHnsI8 WsAJZCSrLPYIsrgDmEVuwDRkCcaBU/DpJFk7OH52sPy2b5Ow66iYF8hKv71A wgr7aIsf99FO9PtoSyTsEkfQBS3K5udI2E8jqJHU2PfWv0WowyLDqkFcmAbp cRooUuk1sjWozCdrizRoKNMwTRq0P9egs57sbdKgu0WDnjYeO/i9Lv6sm79D NBB1nWo0dS+SpVuYnd3C1MwGxifpP7Qb/1H6jIp5EkZZuwJVwwZUrTtQde4j jTYmWjWF2OJpxJXNIKFiFolVc0isIZ7Ps4m8Eo2U2GiEHfZFYolQX/6KdL0U 2HkpsPMV/mtxGqzQ6llZTlaWS6wsXT4mjoh9lOp2UKLdRIl6BZ0bW9INDGXo q69DTGg4HAL94RgaAueIKLhGx8MjNgkeMenwjM6GV6QCXhEF8POgq3X3RIiP F0ICfBAW4gu3ME/YhbjBMdwD9uHesOH37MP84UCKO4YFwikiCM5RwXCNCYZb bAjk4eGwCYyCbVA07EJj+W9jYeXjD0tPL1h4eeDugyx8dU2F310txu+vl+MP pOSXBtX48m4tvrpXi68fNuLqY5oC81HScZ4mYAm3WTtvk463HTj2kY4Gzmu4 47KKe64rhA53XdZw15VwW8EDN4FmZzALOyUdiQhSlOOeGZ2uOZ2AOWunLO6Q j3dhEqKDcfACXKu3SUm6ASbOu4P1s2MLScPHTIyejmWLb0m91/qt3U+7VaSk eptY48+1nMznP15nZCzdX+Fs7wck+S0j2E+DiAgNEhM0yEzTID9HgyKlBuXF tMDlGtRWk2akYz3p2NDII+n4opV0JSWr21lweaynMRgeXcPMzBYmiNHpLQxP rmGe/vD12/f4XyUDkE+DIV401LQNVbv+ooeCvkMUDh6hkEsqGj1B8ZhwBd4p SqfOUDrDIseptpyGvpymoXyBWCTdiC/ISPGr+oKUvBCPV/j1XKQkf1/LULCr C9AXSYmOK4c8Hoi0LNFtk5YbKKJ/1d/f7x+wwkLvHp0Pj/gqOIUrYBuQSYok w9ovnY+z4RCkgFOICi5hRWzfJfAIyYGPXxj8fOlHQ0JhEx4Kh+hoWIeEccr3 J/xgGeQP6+BA2IYFw46V1zooHJYBkZD5RsPCL4aPY2ERFAuHqEzYx+XAIVEB hyQFTMJKcMupDv/wVSH+kfgtq+Rvb1bgy4dNuGrcj6tGfbhpM4ubVpNs4zOk IilpuwgDOw3puIpbrIK3WQ0NSME7rqsCBa/gnvsyPeoddzLSgwXTWQeT0GOY hhERRzCNJKIPYRrDohhLCMWRbDQOWSE0kCWq4d1FNnaRjZ27BAtkxzryJoXU vBWLYxnZWCbunQr7REyBhozU7BFb/D4ZSWPVvbHxkZEm4uG/x+n+D1DGbiAh ahV+oWqExbNQkpGpZGQWGalggVSWCXfqIkNrCeGuXfXCew34M6K8VYu+4XVM TG1hjBgmBia30Du+gSn1zv8u/m/+CqcX3yO/ak288kbVsqe/ek28cOAQBYPC DYulK9jGj1EycYKSKdaymdMrZOIpTWXZHHk1fybaFeIKV3wmcFF4pD4l+cQV a9kWdMfsyj+RrkTEAUoE4i3voZjkK6bNPP/uB4l8V7EyscR2qYJHXA0841vh mdBHjMIrcRo+SYtwjuyEe0wv2+sAfOKHEZu9j4TcI8RnqOEXWQSr4BhYR8TD MjwO1pHxcIpLZF1MhFVIIkmYAouAdFgGZsAqKJMEzYJ1WA5/pwROCURiCewT CmEe34Jn8TMwTJzFs+R53LIfx3XzKdywnMMN6yXcYM27aU84aHDTkbCeYFue Zluml7RbYC1Usz2TgE4knwvJ50q4sVV7sCZ6slV7aXHXcwV3veg3PbR45LcO k/ADmEQQUcJ96E1j9kkHU3pI05gdsm4VRqyFhgHzeuZ16pnnJTCvcxOe7av6 lrwk7NgLzLvkUHpBnOnzoD0kdmnrN/m9VZF96rMziXxm0mcfttQcIz9zC4XK LSRmriIzfxXxeTqEkXxRJF8M/WQMS2JV8yoqW/l/bFnByChJNraFwfEt9E9s oYfo5OPWkXWs7l7g/5DK3jy9W36NcJnKrnitl7JTutZr4ACFQ9L1XqOHZNwR Sx8xRdZMEzNk0CxL1xxXMc8jcUU41S2Q7gR/qXcfLPdlFFiZ9kiaYIT6pq9x At2uoJhff4Vi0q6YJrGIYejY2v9r6RZB3cNTNG2FNG118IzrIAbgFT8Or4RZ Mk4N/5QVBKduICx9B5GZB2TcERLyTpCsPINT6iisUvphEVnFDFXhiXcKzPzS IPNPZ9lTwSq0kAwrZkksgW0kEV1KlJFlzXBMFd7cMwd57ibZNo9nSQswTF6E USqRRqMnn8F1y3mRbTfs1LhhL7GNk8kV3LSdxn/ELYFx9vMEuzDZaMCf32ap u+1Gxnmw5Hmy5HmTcT5knC8nGh/WOy8N7nnrYBS+B+NIIoqI2YNJjPB8E4as c0YhyzAMXoJz9aZY57y69ogdPds615D4cl/fcQWmsc6JbNPSk2tPRcWX6fR+ XBgky6jw0iWN9BmbMJc+r+j46Ec0NR0jV7WFgrItlFdvofbFFuqbttDcRgp1 bqG9Zwsd/aTUII9DfD6yhRaikXgxtInV/Tf/pzSOtJBNiufbyG/aQ37bAZRd PzHs88s6iseJCRJjigQRME3MHJJlh4xq2dwR/ilZxucLxCKxRKiFXU02TK1A plLdwRWWr4OfaMW/rNsnrbbRsX34L8QX9FCklUdEMQ1cPanVBa+4YWKS1JqH T6IW/smrCE7bQljGHml1iNicEyQozpGkegXLpC7SahDW6eMwiR+FYcwYbOIn 2RUnYJuyxkGzH1YxQ3BM24EjaSnP2IU8k8jeg1POHuR5fKzYgWXmGguYBoY0 2UbpRCYfZ+lIkXlctyGl7LS44aDDDTmPTjySSgKxbtnPEaSVg55Wt+WkljOP NHC3PWnyvFnMfFjAfHW456/GHT/+TdLqluciDEkrI9LKKJqI2oZh6BoptYxn xNPAJThVb5BCQvHaEQuYp0CprnWECm9cWnrFHLBn/jPGW2DTmbQtcSwJe1/P Kt2mOOV1bW5LpLKQOtvR8Y+YXniL9KIt5FaRWHWcBxu3UNGyhSq6xuougqSq 7CXhiJ65Y2h23vy9dH/jlr4jKOp2oWje11/e8Iszth9JJFxVJ5JoUiASMS0S Y4acKJ07YFkqXSBbOMWXcjAqpRMtJXtKyJ4S6qJYADnzBYr0X7mqQlbnju1j 6VYRtzHKqd8jvBSekY0cUnvgFT0Cr5hpEmgRPgk6kmedNWkb4Rn7iGI9is09 RUL+BcLztkmeHpJnBDbpUzBlHXsWNQHr+FnaqRmSZwP2/HcOqbskzz6JcwB5 FpF9yDp0CKc8Ip/PVUTBPswyVmGYvkziLMM4mzUjZwWmqg0YeGpxXSTPMslD cPC84UzY0orZkUT2C7jluEhoWcdIHGctSUcSuWnEf2vgzVrkr8OdAD4P0OKm QB6vRdz31+Bp6DqesuM9CdLhaTARpMVj/0XIq9bh2bEt3LWHpeFXn4jj0bWC 3OljgTjngjth0ytlGSoVdmh1wrfZCn7NrwJ3dvgj/Qx2/t33HyuSjXTpzeH5 j5jUvcX0ylvMrr29gpn1t7+TiNXSd0xm7JEZBz9nRr90wfKwdL2lwA6pxBRP CoWC1PgLlMwy92RGCXlRQl6UkBcl5EUxeVGs5a8V6Q5+hUKdwIcC7T7at0+k Mil8vUl3NgiPUPIhoomcoPuJpCOKnoY3+eCdsAz/pA0Ep+wiPP2AfDhGbN4Z EpQX8M1cIh96yYdR8mFa5MOTsCnyYR4OdDa25IJ92i4c0vdZSMiBzCNy4Zhc OIGTgsg/IReO4VTI7xUdwk61Sz6swShrDcY5RN4qzEsOICvbZ06XcV0oJk4r 5IKAVVx3EnjCHma/yL5Fx0Qu3GSxuSXwwZVHNzVuuy+RE4T3AovKHI/T/HeE 8wT71ywekx+PA7X6I4uNSawGjpUrwifjdGziN/AgDzw6NwiBCyyqA4K/Jgno RUvpREvpgEoFF8oKckU0Br/+NP7op/INdG3tSh9piSrJizcz43l1+z9dvUHL ouwh+n+63KmA9aBQqgdFzHgRa0ERE17MdBcx3cVMdzHTXcR0FzHdRUx3EctA oZDyAqGPFGiFlKs0+2jbOpHMkvD1a06GQ3AL4nQVypSHM+URTHnUDI0vx4/4 FfglbiKIKQ+jhCOFlCuYctUFfISUJ7I/pIzBOm2GaV/C49BpWMUvwjFlkSVg hynfo/U4gKOQ7iymlr1HnnfKdNPSqM4gL+SxmCghBUqPYa3chVH2BoxzCcUG 080hvfwIsspDGOXt4Jpch+sc+K8JKefQf81hkVjCdTmtiwDS4IYLwZTfdKfU PZZEud/2Yo/xmRVTfd1pAlcJA48ZPPRevIKHPosMjSWrjnvbBrEuZnwd/1zM tDtdiDuVr882s6xmljWEljMLM13ykwlk0leEKH+cd4WRQ7oNV/XHu4gLl+pQ 3r+8CCGfyVYy2SomW0V5FzDRhUx0IRNdyEQXSokunCeY7MJFoREUqIXMag6E xAr/Y+XSPs6++6O0HSV8fQxV5xBilZ3wCGZ6Q5neMKY3YpaqVsMnTp/ewJQ9 hArpzTlGTP4p4lXnYnotxPSOM72zYnofhczCIl7N9Gpgl7wBu7QDpvcQjlJq nVgN5GJqz+FUdA55MY+lRBm/V34C54ojmCu2mcotmKh2YCGktuIYsiqi+hAW tft4xApzlem9yiH6qtsyvmZ6r8nVuOaoZuo0uMb0Xmd6rzO9N6jmm0zvTSr6 mssUrjmNM7Wj+NppDLdcJ3GfaX8WtQi7Ui3cWlbhxmnCrW0V7pxj3DuIzhVi GW7CzWoWqVy1AM6QnGNKBHxyYCWiAytZkeZJus3z73+UclsrHv4ac2sfkMuy /fGUep6QVzb0fDZ0JQWspIBVLNkqNnMVc6qaYZ6Z1wLmVLXA/4lq8UDIoZDJ fH7NZ45bN8+ki4mfcHoeRkbNCDwCmMkgZjKYmQynUKMo1NhVfSbZb4VMRuQc IYqZjCs4h2PSECwSBmCVzEymMJNpS3gYMgdZvJb9WQeHlHV9JilSh2wKNJdZ pEEUs1h4QYFeQF76ihnk4woBZ3CuZDarDmGu3IFp4T6zeEKREtUE5zvZc2aT Rc2scg/3Ezdwi332K1cdvuLc8DWN3lVm8mtnHbOsxVVm8pqnGldd5vi9aXwl n8RXzORXzOQf5KO4HT0I14ZluDYuw6WZRwEtRCvRxuy189ipIzTInmadpZMu oZMu+S96oWJRoh9HtM7tQ+mT3VAndeDZjQ/IYQpzmMLcPqaRKcyjLBWUZT5l mU9Z5jOF+UyhkilUMoX5c0xf/jy/KBaEP69gSufPPuD02z+ywuvfu6tsG0ZB 1+xn79O9Cy/WS6/IJVou/VW3AayZIbRa4TmHiFKw1rJGemUuUnQDbK/jFOMs rFPVeBg8D/M4pi51hTaL6WNLtc88hkPOKRxZn+VKpq6AaWPqnJg6eTnTV0FU 8nnVOcetU4LttvoAttXnTN8pRXgKixqm7zlRxxS+OIBZFVNYvcPjJrGKm8GL uBPIdHmo8Xu7Rfye4+AfaL9+Rzv2O/tpXPWdgUHsNO7ETeBRzgielY3gcfEA nF9o4dxANGrh0kS0EK1EG9GhIdTImtr+ZFmKf7IsQuquCLm78il1whi0h46d Y+mTwFAvKXBm8wMap8+RReVlM205VF4ulZdL5eVReXlMWx4rah5Tl8vU5c3o j81r55g7+fBvxD9zHwubhyjomBWv+hX+8/AfgWcwMxW2SLHp3x/qn7KNYE5U YTkUW/4xolUn8MxcgIxDvUUCM5XMTKVQaJxKzOJ3YU9R2mftwY7l0p7l0p5G 2oGl0pGd1JEik5cwS2VExSWzRFQzW9UXcK5h6WRWPJou4d/1Aba151KmmLHn xAtmq/6QWWK2qneJLWaKhql8BeZZHK4ztDBkazNUcDJSruJpoQ7PijmdlXKC KpuDYcUUMYpnFUN4VNwPpzoNnOqJBg2cm4gWopVo0yCgdxnF8z+5DSFLRUIL KtLq54sDcdIQcOWzmaNj51S6WEFMVrOkh+ndD5jZIw4+8NdnDz98gdmjD38j /vSfYGGDhbF9BoUd+ktDPHyGWfim9G/uuIZADqMhORSK4hCR9I0eGRRETD+F MkZTMgOrpCU8jdyAUfIerDhz2NKv2jD0tjQwdvSbDkqGv5C1kQJxLCUoEHkl Q17F0NcQtRQKQy1n6P27v4N/zzfEB/qCN6xvZ1LoT2FWewxTht6UoTdl6E0Z egvOD+71TAfD/iyTyNXhiXIFTwo4mBZr8ax0Cc/K5xjyKTyrHCMGmIpROD6n 33yhgZyhlzP08maC4ffrXhZ7fxFDX7SgN3mFepN3RXB4v5b8/Mc4fxbrVfFw Fwvr+1C1TjOiajGArh6DcPed1Ec2Qn8Fmjcbr3/aNoKy2ULy9hGhPIQbG79Z dB9ksaMM7TRDu0Ask+GbrEfbsKK/s8lkDWG7sWO9sqcK7AsZ2pIzOJSdw4Ht wrHqFRzJZnkNwbA61rKmtb2HXw/D2suw9hH97+E/8Ba2TQxt/QnMnn8M654Y VpPqNdjVbsGdNcm9niME69HTbIZSwdCqlvGkSIsnDOvT8nk8rZjGU4b1KcNq VjkN+1oNHMhqB7LasVED344VpI/uiJaq8HNLtXQgOiphMmLpEQwznTNE/yxO Sweclk4l0/xZdP8pzl6/h6p5EgWtS2IkM8rZjDzH4RYwL1X66/BMWIdP6ib8 MxnhXEY4fx8uKRycI7sZ4WHWjUlGeI6R1fC4AYvkLVhyYLLK3Ic1B2ab/CPY FpzAruiUduYM9uWMLqu5A2uEQ40QVX1knerP4Uuy+jGyfn0fpMi+g//gW/gP vYZH7zmsnx+RqPuM6i7B6JK0tjVbcGN03Rhdt0Y695p1mBYxsipGlqR9zOg+ ZnQfM7pPqsbwmNE14WO7GlpBEteOxI3o2UABS2wBy2uBYG7m9OamgNGlt4GK xFWpBSOlt6sqNe3q93+SNuTFkK5J8lc1TIi3sBT+K2wlMcOEe/DPXpHk7xG/ Bs/kTfimbyEgm5VYwYiq9mAc1sGIDrEUjJOzM7Dg2GqesAYZf1fGkmGRxYjm HcA6nxEtOIZN8QlsSxnR8jPYVTKqVQTlbV97CrkQye4PjOYHRpJ8ZST9pEj6 MZL+Q6/4mL/TdQwfzmyOjJoxpW9USTtSdwCXF/twZTRd+H2Xpi32vA1YVuvw uJCRLKGZZjQfMYKPyNWHlYMw43P3+hUk9e2IVlHJhqVkNJWSz1CRr0pGU8lo KhnNfIGvereoVItPsXD+4eNnZK5JGzwLa8ef3gFX0LLOYG7DP2Iezv6L+koQ swY3GjQvctM3k9HM3UFwPofv4FYYh/czmqPk5zTdxhwjqYM5bb95+jZkrBIW rBKWrBJWhUewLub0VnYCGxpB28pTugqCxdPxxRmj+I5RJHrfMZKMHpXuN/hG jKLf8CX8Ri74sxNG8hA+XfuM5g58OHIHdGwhvu8c8f0Cr3fpHnbYk7bgxEg6 0co7t+ogq13Eg5JZGLJXy+qmYF0/ilzBsQ3pr+VTMJIKRlJB16Zg61cwmgq9 Y6M26dO+kCzbPGN3+p2ejD+L4S2cXX4DVf0cVHQvBU2rKGjeQkHbHqJyVuEU xN4YsQKXOMaRsfFM34RP9hb8OeY4Jk3DiCOXccQITCInYBrDasrp2DSZnoC/ Z5a1A1neHmTKfVgUHMKymCg7glU5Y1nJmFYdwb7uhDF5A59uovcNfPuI/tfw HWDshi718Rtm/PqF39PHz7trB96dW/DmEJs0Ily09hYVi4R42uZSerPFuXTC 8JDYJTaRPbWM2CF6nIbJn1moHMlC5TKOuYxjLuOYO032Cd7pC+TOSg7q9IP0 cQhYlzTdNrTOyAnnDRm1JlaH1h06q0Ok1e7BIUQLeTSzyMromroBj8wNeOdu wjVDjadB3TAMHYRRxBiMo6ZhEjsPkyQtjNM3YJq1DdM8Oh3lHswLOHoUH0BW esBhkqg4YPs85eovGYVLRo3oJfpfMWKv4DPIoxCtEep2kL/H8VsfsV2CEevc hBcHQ33E3vy/Tj2Il+Jz8C9nMyjX7vB7G/zZKkqX1FCf6ZvDzI7+0ruZ/V96 m/ufB+d34g3cVM+Fi5uEm+RsQNWyzQa9zyHhCIWUg3f6OhxiVyBPWoNzOumV sw5PxQYe+XfgSdAAnoa+hGHEBAxJK6OERRilaGGUuQmj3G0Y5+/ApIDNs2gP ZiX0QJWHlM8pPNsvuMALLpboIfouGBxO+yxkPkNn8BkmBk/EwHh37emp1LUN ry4GpnONdNpnYIQrICQaiWf/pB107elnu+cMjlYfnJJFtXTiGRvSO5baBra4 9GVyg/xo3oaKalJ10nX3HKOg71S8K2RkxS7sUlbgkEGV5a6JHfKhfx8eBQ3j SegYnkRN4Smr0tOkRTxN0+Fpzib9wBYMldsw55LlnGE8ms/g0XrGZdNzdBLd RO8Zl83c8//hLXBgiMsdPBJOdF4R1/vf6qkgrLhL2AleFi/K0V/zIVDg89We SOcMDvWXM0qrLlWvQH1+8bNF/zucvvoOSuGDHZ+v6W+K1LLLmf5AzHdBLxdO CYv3Gxs+RTpFElm3C5+yTRh4deOe3yDuB73E/fBJPIiewcP4eTykx7VUrMKi kA2Ghsm1/pit+xjuzVx4K9F+DM/OYy6a4N/36iMGCC7Wq4uL9ercFr5s4S+k /HK1nStIfMlysHQhlghhk5srvSIu9S/06V0+1F8GtywseBulXHCJehnn330n LXhTuty7tXebC14lwbnYph06UCHLB/pLAPqY7QHpblDDJyh+qb8eJapKC8fE CchTZyDn5OuUy1kkX8dpdg1OxetwLluHS9UWXGt34NpAh9p8CPdWov0QHqx/ nt1EL9Gzz8e7zPzmFeZQ+NK5gX/Gr+viiUXPrhWE9K9zoWfipTxlrIVlWv22 Xqnu+Iuf7d/u8Vv6y1eWLi5hql/l1qfb8+whv3YDygautnkPSulqG+E2PcKF DoXCrXqG9Bc7FL885iqP4Zs7x+4wBXnaPORZS5Dn0erTx8qLVuBcwppYtgqX yjW40ve61a4zrXRn7Dru7N4eLZvk9foV5nhd+Lz2tnVmmuhY06NTwKp4tsKj U4uc6X3hfKP6hLarVMPFaY+4GnHP8oq4vF+Lu5biJjUXKu5bUrRmny/y73B6 /r14D5X851v6c+st+1B2fHb287PTE0XCyauXh8ho22D9GudCZ+GYvgDHbDUc FVxoAQt/EVNaqoMzrbJL1TJcamianq/QghINROMK3JuIZqKFaCXaiHZhP96d Fv4vxZ07d3GFJOKStHPHdibu3unE3Tv8fPtOvBxkF8XaTZx//4O0xG3x8Ddc 4g9QVG5AUbcj3uUiv5UuQVhit36Jn87ADH1c4gHSaU3tY6fgkDIHh8wlOOZw ifmcMwq4TE7ZTmVEBR0CZe9SS9QRLzgdNBCNRJOOedXxZbrRy/wGbm183k50 6MRNyfiX6yhd5JLUh+Lpvc+3tKRNEf3ShK0R/Z7WNjq2DvTnvrEj3YVRvA1B 5RYUL3bFWxEouDRFh3RyqUe6JcHHKySG9acfvTJmYR8/A/uUBXFpDnlqTs0c o4q4vBIur5xLqxSWRnDEcuEQ4MJW78Lp1YVjlgsnWFdOsK6tRBvRTnSoEdin Fbd5SqUzUx+XdOW/sNGzr9/o2T6GTL+gXemmKeLbw6uEBXExjVxMy2dny6QF fTyXWiCdMfPKmIddwhzs0xZhTyraU3MOKmlBpQQXJOeCnDjROHFB4k4Ipxpn YSeEC3LmYly4GBcuxplzdNbEtrgTIiym+Od7VtJpts+2QKTTbNIy9sTDvxeX 0cw2lPtCf/onT8qLgpTL75VOAUlvTxROARXQhKXSFNsmzsM2XQ27HA5eVJQd 6WbPZThwGQ6km2MVwWXIuQx5nX5HwYlLcOISnLgEpxY1Mse3xc0ccUfhF6eO CrVCWdDvKgiPO6S5V3/2GwdSQ5tbfodcTjjCprd4MqNTeul9+o1vpbTxrRI2 vscOkMJWY520AJt0DWyyNbDlS7flS7ejUuyoFHtG354v3UGa2B2lid2RVPJl Yyqi3Sya1U/sRdJJkEJpM6RQoz/J9cXHcZ3LWLx4L75SS/3LPpTa0snlH9H0 8gw5JI2w0ZtL0uQy2nn9+rfAKUiYfBJGyZespN1NphtwL9RxFFdzeNTAmiqw LuQSqAJbksaWL9lWGoPt+bK9WavShml0p6QxeFYahfmSC/iSC/Rj8K8/P2kj TcFW+ld6LJWkk9d/Erejs6XtaPFNSv8fw01i3zYshNNyDKwlA2vJwFqRE9bk hDVfpQcra3L/zqeVKaekMxHCaDn38/FSnC2viKPlF5+GS/3bM8TXeCZd3Crs uTZ83HPt/8XAMCYNDJP6oSGwkQ28Yhkyys6lcgVBDRv6N10x4nmMuGJMv56P 2+v5jF4+X5uCr03YUv/Vx1nt7MOnnS5b/cu5lDYOpnekXUXJfdN7Y+bowxXB f0tnuYW3fQnvj8mi8c/qk8YcvoKcl9IrHv/pFedKO8XCjCMchRnn9Ns/Oer/ p3+UTuifvPvT5//Tnxy/i/73xFf658d/fvznx39+/OfH/797jP/q/wGkb4GD \ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", "Plot8a1", ",", "Plot8b1", ",", "Plot8a2", ",", "Plot8b2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8b3", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "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.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}, {3.5753713803366737`*^9, 3.5753713843458815`*^9}, {3.5753717979962077`*^9, 3.575371802036615*^9}, { 3.5753718416450844`*^9, 3.5753718456074915`*^9}, {3.580984089998476*^9, 3.5809840926036806`*^9}, {3.5809890246787863`*^9, 3.5809890822272873`*^9}, {3.581090494095164*^9, 3.581090499898374*^9}, 3.5810912634105153`*^9, 3.581093627267067*^9, {3.581094706695363*^9, 3.581094715961779*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9961175737999999`, -0.53698454016, -2.3030090762}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.341078567199999, -0.75112829048, -0.6080193405}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3387763846999998`, 0.09437291644, 0.35972824136000003`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.5241500174, 1.727209564, 1.16242715438}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.091677734399999, 0.24042983898, 2.8820211226}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{6.368376619999999, -0.95555884916, 4.236198774199999}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.27767633844, 1.20587195512, -1.20538062636}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.14118663414, -2.0677381892, 1.11019512774}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.11289743592, -2.3476066098, -2.4766748956}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5431932508, 0.114950142854, -4.1369881591999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.221879855799999, 1.06162916954, -0.44385884288}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7904124108, -1.40126962352, 1.2257140781199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.6453674523999995`, -2.0628249016, -1.4245699451}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.8589664653999995`, 3.4028296082, 2.0779427096}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6054512346, 2.2757970218, -0.45576411667999994`}, 0.12]}, Text3DBox["1", {-2.5961175738, -0.53698454016, -2.3030090762}, {1, 0}], Text3DBox["2", {-4.941078567199999, -0.75112829048, -0.6080193405}, {1, 0}], Text3DBox["3", {0.7387763846999998, 0.09437291644, 0.35972824136000003`}, {1, 0}], Text3DBox["4", {2.9241500173999997`, 1.727209564, 1.16242715438}, {1, 0}], Text3DBox["5", {4.4916777344, 0.24042983898, 2.8820211226}, {1, 0}], Text3DBox["6", {5.76837662, -0.95555884916, 4.236198774199999}, {1, 0}], Text3DBox["7", {-0.8776763384399999, 1.20587195512, -1.20538062636}, {1, 0}], Text3DBox["8", {0.5411866341400001, -2.0677381892, 1.11019512774}, { 1, 0}], Text3DBox["9", {-1.71289743592, -2.3476066098, -2.4766748956}, {1, 0}], Text3DBox["10", {-3.1431932508, 0.114950142854, -4.1369881591999995`}, {1, 0}], Text3DBox["11", {-5.821879855799999, 1.06162916954, -0.44385884288}, {1, 0}], Text3DBox["12", {-4.3904124108, -1.40126962352, 1.2257140781199998`}, {1, 0}], Text3DBox["13", {-6.245367452399999, -2.0628249016, -1.4245699451}, {1, 0}], Text3DBox["14", {2.2589664653999995`, 3.4028296082, 2.0779427096}, { 1, 0}], Text3DBox["15", {4.005451234600001, 2.2757970218, -0.45576411667999994`}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.341078567199999, -0.75112829048, -0.6080193405}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.5241500174, 1.727209564, 1.16242715438}, {1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.091677734399999, 0.24042983898, 2.8820211226}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.368376619999999, -0.95555884916, 4.236198774199999}, { 5.091677734399999, 0.24042983898, 2.8820211226}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, {-1.9961175737999999`, -0.53698454016, \ -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.14118663414, -2.0677381892, 1.11019512774}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.11289743592, -2.3476066098, -2.4766748956}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5431932508, 0.114950142854, -4.1369881591999995`}, {-1.9961175737999999`, \ -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.221879855799999, 1.06162916954, -0.44385884288}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7904124108, -1.40126962352, 1.2257140781199998`}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6453674523999995`, -2.0628249016, -1.4245699451}, \ {-4.341078567199999, -0.75112829048, -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.8589664653999995`, 3.4028296082, 2.0779427096}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6054512346, 2.2757970218, -0.45576411667999994`}, { 3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 341.27540035544735`}, SphericalRegion->True, ViewPoint->{-2.1380819588360027`, -1.0986528116450902`, 2.3815053089935234`}, ViewVertical->{-0.589696331026836, 1.1774716106138663`, 0.8721433133985264}]], "Output", CellChangeTimes->{ 3.581219553690632*^9, 3.5815671466330423`*^9, {3.581567177786297*^9, 3.581567195726328*^9}, 3.5815672363487997`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9961175737999999`, -0.53698454016, -2.3030090762}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.341078567199999, -0.75112829048, -0.6080193405}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3387763846999998`, 0.09437291644, 0.35972824136000003`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.5241500174, 1.727209564, 1.16242715438}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.091677734399999, 0.24042983898, 2.8820211226}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{6.368376619999999, -0.95555884916, 4.236198774199999}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.27767633844, 1.20587195512, -1.20538062636}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.14118663414, -2.0677381892, 1.11019512774}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.11289743592, -2.3476066098, -2.4766748956}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5431932508, 0.114950142854, -4.1369881591999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.221879855799999, 1.06162916954, -0.44385884288}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7904124108, -1.40126962352, 1.2257140781199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.6453674523999995`, -2.0628249016, -1.4245699451}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.8589664653999995`, 3.4028296082, 2.0779427096}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6054512346, 2.2757970218, -0.45576411667999994`}, 0.12]}, Text3DBox["1", {-2.5961175738, -0.53698454016, -2.3030090762}, {1, 0}], Text3DBox["2", {-4.941078567199999, -0.75112829048, -0.6080193405}, {1, 0}], Text3DBox["3", {0.7387763846999998, 0.09437291644, 0.35972824136000003`}, {1, 0}], Text3DBox["4", {2.9241500173999997`, 1.727209564, 1.16242715438}, {1, 0}], Text3DBox["5", {4.4916777344, 0.24042983898, 2.8820211226}, {1, 0}], Text3DBox["6", {5.76837662, -0.95555884916, 4.236198774199999}, {1, 0}], Text3DBox["7", {-0.8776763384399999, 1.20587195512, -1.20538062636}, {1, 0}], Text3DBox["8", {0.5411866341400001, -2.0677381892, 1.11019512774}, { 1, 0}], Text3DBox["9", {-1.71289743592, -2.3476066098, -2.4766748956}, {1, 0}], Text3DBox["10", {-3.1431932508, 0.114950142854, -4.1369881591999995`}, {1, 0}], Text3DBox["11", {-5.821879855799999, 1.06162916954, -0.44385884288}, {1, 0}], Text3DBox["12", {-4.3904124108, -1.40126962352, 1.2257140781199998`}, {1, 0}], Text3DBox["13", {-6.245367452399999, -2.0628249016, -1.4245699451}, {1, 0}], Text3DBox["14", {2.2589664653999995`, 3.4028296082, 2.0779427096}, { 1, 0}], Text3DBox["15", {4.005451234600001, 2.2757970218, -0.45576411667999994`}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.1685980705, -0.6440564153199999, -1.45551420835}, 1.1934627632307397`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.4314632010499997`, 0.9107912402200002, 0.7610776978700001}, 1.1646244421410528`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.3079138759, 0.9838197014900001, 2.02222413849}, 1.1234393908106837`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.7421404766390785`, -0.36891202741385865`, 3.5719583651821845`}, 0.8699258527260574]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1117201606849254`, 0.359978209650604, -1.73811355249788}, 1.1233100186420701`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5052362344522672, 0.6675286063273163, -0.44733593198569876`}, 1.0368823802306384`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.2366011351533144`, -1.0236721296229765`, 0.7478007055190975}, 0.9306824622345446]}, {Opacity[0.5], SphereBox[{-1.372793170689087, -1.814814236759534, -2.4255721140832915`}, 1.169826188715685]}, {Opacity[0.5], SphereBox[{-2.3821953961957365`, -0.07690646806852236, \ -3.597269962676899}, 1.1696283567511592`]}, {Opacity[0.5], SphereBox[{-4.962704107663741, 0.5282253508000966, -0.49216306352062816`}, 1.1698903016028805`]}, {Opacity[0.5], SphereBox[{-3.95245292193169, -1.2099572781193593`, 0.6861147274444394}, 1.169802774304518]}, {Opacity[0.5], SphereBox[{-5.2615628089829585`, -1.6768404346503676`, \ -1.1842888868263064`}, 1.1697971279783204`]}, {Opacity[0.5], SphereBox[{3.054708880395183, 2.9097477917902568`, 1.8085355283706912`}, 1.169764495787681]}, {Opacity[0.5], SphereBox[{4.287272721478109, 2.114372306037531, 0.02039709019068603}, 1.1698542799115086`]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.341078567199999, -0.75112829048, -0.6080193405}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.5241500174, 1.727209564, 1.16242715438}, {1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.091677734399999, 0.24042983898, 2.8820211226}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.368376619999999, -0.95555884916, 4.236198774199999}, { 5.091677734399999, 0.24042983898, 2.8820211226}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, {-1.9961175737999999`, -0.53698454016, \ -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.14118663414, -2.0677381892, 1.11019512774}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.11289743592, -2.3476066098, -2.4766748956}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5431932508, 0.114950142854, -4.1369881591999995`}, {-1.9961175737999999`, \ -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.221879855799999, 1.06162916954, -0.44385884288}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7904124108, -1.40126962352, 1.2257140781199998`}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6453674523999995`, -2.0628249016, -1.4245699451}, \ {-4.341078567199999, -0.75112829048, -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.8589664653999995`, 3.4028296082, 2.0779427096}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6054512346, 2.2757970218, -0.45576411667999994`}, { 3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-1.96728392813724, -0.5772123972962225, 2.691954641984233}, ViewVertical->{-0.5316698474670354, 1.3382389480124213`, 0.6949661937734665}]], "Output", CellChangeTimes->{ 3.581219553690632*^9, 3.5815671466330423`*^9, {3.581567177786297*^9, 3.581567195726328*^9}, 3.5815672363644*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9961175737999999`, -0.53698454016, -2.3030090762}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.341078567199999, -0.75112829048, -0.6080193405}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3387763846999998`, 0.09437291644, 0.35972824136000003`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.5241500174, 1.727209564, 1.16242715438}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.091677734399999, 0.24042983898, 2.8820211226}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{6.368376619999999, -0.95555884916, 4.236198774199999}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.27767633844, 1.20587195512, -1.20538062636}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.14118663414, -2.0677381892, 1.11019512774}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.11289743592, -2.3476066098, -2.4766748956}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5431932508, 0.114950142854, -4.1369881591999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.221879855799999, 1.06162916954, -0.44385884288}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7904124108, -1.40126962352, 1.2257140781199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.6453674523999995`, -2.0628249016, -1.4245699451}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.8589664653999995`, 3.4028296082, 2.0779427096}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6054512346, 2.2757970218, -0.45576411667999994`}, 0.12]}, Text3DBox["1", {-2.5961175738, -0.53698454016, -2.3030090762}, {1, 0}], Text3DBox["2", {-4.941078567199999, -0.75112829048, -0.6080193405}, {1, 0}], Text3DBox["3", {0.7387763846999998, 0.09437291644, 0.35972824136000003`}, {1, 0}], Text3DBox["4", {2.9241500173999997`, 1.727209564, 1.16242715438}, {1, 0}], Text3DBox["5", {4.4916777344, 0.24042983898, 2.8820211226}, {1, 0}], Text3DBox["6", {5.76837662, -0.95555884916, 4.236198774199999}, {1, 0}], Text3DBox["7", {-0.8776763384399999, 1.20587195512, -1.20538062636}, {1, 0}], Text3DBox["8", {0.5411866341400001, -2.0677381892, 1.11019512774}, { 1, 0}], Text3DBox["9", {-1.71289743592, -2.3476066098, -2.4766748956}, {1, 0}], Text3DBox["10", {-3.1431932508, 0.114950142854, -4.1369881591999995`}, {1, 0}], Text3DBox["11", {-5.821879855799999, 1.06162916954, -0.44385884288}, {1, 0}], Text3DBox["12", {-4.3904124108, -1.40126962352, 1.2257140781199998`}, {1, 0}], Text3DBox["13", {-6.245367452399999, -2.0628249016, -1.4245699451}, {1, 0}], Text3DBox["14", {2.2589664653999995`, 3.4028296082, 2.0779427096}, { 1, 0}], Text3DBox["15", {4.005451234600001, 2.2757970218, -0.45576411667999994`}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5947050058382488, 0.5525048222165977, 1.4535622964470936`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5029940329137315, -1.6799259207244763`, 2.04950969068466}, 1.2]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.082847763561751, -0.3637589893365982, -0.7341058137270933}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.7793792353662687`, -2.455550457675524, 0.17088056479534042`}, 1.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.343107697600065, 0.7080840048208576, 3.9687328972564795`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.676280485549151, -0.5276769948267563, 5.250062699690268}, 1.3]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.840247771199934, -0.22722432686085736`, 1.7953093479435198`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.060472754450849, -1.383440703493245, 3.222334848709732}, 1.3]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.9680384743582255`, 1.323510391056531, 3.0196015397147438`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{7.179723784188792, 0.051997415329341434`, 4.3648306250421935`}, 1.3]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.215316994441773, -0.8426507130965308, 2.744440705485256}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.557029455811207, -1.9631151136493423`, 4.1075669233578065`}, 1.3]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.341078567199999, -0.75112829048, -0.6080193405}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.5241500174, 1.727209564, 1.16242715438}, {1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.091677734399999, 0.24042983898, 2.8820211226}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.368376619999999, -0.95555884916, 4.236198774199999}, { 5.091677734399999, 0.24042983898, 2.8820211226}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, {-1.9961175737999999`, -0.53698454016, \ -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.14118663414, -2.0677381892, 1.11019512774}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.11289743592, -2.3476066098, -2.4766748956}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5431932508, 0.114950142854, -4.1369881591999995`}, {-1.9961175737999999`, \ -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.221879855799999, 1.06162916954, -0.44385884288}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7904124108, -1.40126962352, 1.2257140781199998`}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6453674523999995`, -2.0628249016, -1.4245699451}, \ {-4.341078567199999, -0.75112829048, -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.8589664653999995`, 3.4028296082, 2.0779427096}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6054512346, 2.2757970218, -0.45576411667999994`}, { 3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 344.19589383671547`}, SphericalRegion->True, ViewPoint->{-1.8023874564082942`, 1.1178366896020022`, 2.636634330422343}, ViewVertical->{-0.22086385780483286`, 1.9417866663973398`, 0.31999005427448113`}]], "Output", CellChangeTimes->{ 3.581219553690632*^9, 3.5815671466330423`*^9, {3.581567177786297*^9, 3.581567195726328*^9}, 3.5815672363799996`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9961175737999999`, -0.53698454016, -2.3030090762}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.341078567199999, -0.75112829048, -0.6080193405}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3387763846999998`, 0.09437291644, 0.35972824136000003`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.5241500174, 1.727209564, 1.16242715438}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.091677734399999, 0.24042983898, 2.8820211226}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{6.368376619999999, -0.95555884916, 4.236198774199999}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.27767633844, 1.20587195512, -1.20538062636}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.14118663414, -2.0677381892, 1.11019512774}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.11289743592, -2.3476066098, -2.4766748956}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5431932508, 0.114950142854, -4.1369881591999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.221879855799999, 1.06162916954, -0.44385884288}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7904124108, -1.40126962352, 1.2257140781199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.6453674523999995`, -2.0628249016, -1.4245699451}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.8589664653999995`, 3.4028296082, 2.0779427096}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.6054512346, 2.2757970218, -0.45576411667999994`}, 0.12]}, Text3DBox["1", {-2.5961175738, -0.53698454016, -2.3030090762}, {1, 0}], Text3DBox["2", {-4.941078567199999, -0.75112829048, -0.6080193405}, {1, 0}], Text3DBox["3", {0.7387763846999998, 0.09437291644, 0.35972824136000003`}, {1, 0}], Text3DBox["4", {2.9241500173999997`, 1.727209564, 1.16242715438}, {1, 0}], Text3DBox["5", {4.4916777344, 0.24042983898, 2.8820211226}, {1, 0}], Text3DBox["6", {5.76837662, -0.95555884916, 4.236198774199999}, {1, 0}], Text3DBox["7", {-0.8776763384399999, 1.20587195512, -1.20538062636}, {1, 0}], Text3DBox["8", {0.5411866341400001, -2.0677381892, 1.11019512774}, { 1, 0}], Text3DBox["9", {-1.71289743592, -2.3476066098, -2.4766748956}, {1, 0}], Text3DBox["10", {-3.1431932508, 0.114950142854, -4.1369881591999995`}, {1, 0}], Text3DBox["11", {-5.821879855799999, 1.06162916954, -0.44385884288}, {1, 0}], Text3DBox["12", {-4.3904124108, -1.40126962352, 1.2257140781199998`}, {1, 0}], Text3DBox["13", {-6.245367452399999, -2.0628249016, -1.4245699451}, {1, 0}], Text3DBox["14", {2.2589664653999995`, 3.4028296082, 2.0779427096}, { 1, 0}], Text3DBox["15", {4.005451234600001, 2.2757970218, -0.45576411667999994`}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.3], SphereBox[{7.143406661505329, -1.6865927663239473`, 5.07377808096455}, 1.14]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{0.11870698594589135`, -2.7671030997551944`, 0.704243097429796}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{2.0129059705876156`, -2.598152641406765, 1.9214527115896218`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.0106008516793026`, 1.9450292397637683`, -0.44172262263583095`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.45161346611770764`, 1.6060178426094318`, -2.1926622629229797`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.341078567199999, -0.75112829048, -0.6080193405}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.5241500174, 1.727209564, 1.16242715438}, {1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.091677734399999, 0.24042983898, 2.8820211226}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.368376619999999, -0.95555884916, 4.236198774199999}, { 5.091677734399999, 0.24042983898, 2.8820211226}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, {-1.9961175737999999`, -0.53698454016, \ -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.27767633844, 1.20587195512, -1.20538062636}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.14118663414, -2.0677381892, 1.11019512774}, { 1.3387763846999998`, 0.09437291644, 0.35972824136000003`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.11289743592, -2.3476066098, -2.4766748956}, \ {-1.9961175737999999`, -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5431932508, 0.114950142854, -4.1369881591999995`}, {-1.9961175737999999`, \ -0.53698454016, -2.3030090762}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.221879855799999, 1.06162916954, -0.44385884288}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7904124108, -1.40126962352, 1.2257140781199998`}, {-4.341078567199999, -0.75112829048, \ -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6453674523999995`, -2.0628249016, -1.4245699451}, \ {-4.341078567199999, -0.75112829048, -0.6080193405}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.8589664653999995`, 3.4028296082, 2.0779427096}, {3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6054512346, 2.2757970218, -0.45576411667999994`}, { 3.5241500174, 1.727209564, 1.16242715438}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{-1.96728392813724, -0.5772123972962225, 2.691954641984233}, ViewVertical->{-0.5316698474670354, 1.3382389480124213`, 0.6949661937734665}]], "Output", CellChangeTimes->{ 3.581219553690632*^9, 3.5815671466330423`*^9, {3.581567177786297*^9, 3.581567195726328*^9}, 3.5815672363955994`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "tplo", ",", "tplu", ",", "tpso", ",", "tpsu", ",", "tpno", ",", "tpnu", ",", "tpnv", ",", "tpnw", ",", "tlno"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5753448801985865`*^9, { 3.575371249764445*^9, 3.5753712595300617`*^9}, {3.580901107807392*^9, 3.580901122065817*^9}, {3.580901673167985*^9, 3.5809016810459995`*^9}, { 3.5809841484205785`*^9, 3.580984151290983*^9}, {3.5810941148459234`*^9, 3.581094165561612*^9}}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.581219553753032*^9, 3.581567146711042*^9, {3.5815671778486967`*^9, 3.581567195788728*^9}, 3.5815672364111996`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.581219553784232*^9, 3.5815671467266417`*^9, {3.581567177864297*^9, 3.581567195804328*^9}, 3.5815672364268*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"4", "*", "cnj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv7", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv8", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnlj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6", ",", "tv7", ",", "tv8"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}, 3.5749358536151505`*^9, 3.5753449209770584`*^9, 3.5753511874612646`*^9, {3.575371200889559*^9, 3.575371204695966*^9}, { 3.580973349122649*^9, 3.580973393879128*^9}, {3.5810920573115096`*^9, 3.5810921220828233`*^9}, {3.58109352093728*^9, 3.5810935221852827`*^9}}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.5812195537998323`*^9, 3.581567146742242*^9, {3.581567177879897*^9, 3.581567195819928*^9}, 3.5815672364423995`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"2", "*", "cj"}], "+", RowBox[{"4", "*", "cnj"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnlj"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"2", "*", "cj"}], "+", RowBox[{"4", "*", "cnj"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cnlj"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, { 3.574935858419959*^9, 3.574935862834767*^9}, {3.5753447605151763`*^9, 3.5753447815128136`*^9}, {3.575371294396123*^9, 3.5753713029293385`*^9}, { 3.5753713452678127`*^9, 3.5753713535982275`*^9}, {3.580973411210758*^9, 3.5809734573088393`*^9}, {3.580973489086095*^9, 3.5809735107545333`*^9}, 3.580984182787439*^9, {3.5810917971186523`*^9, 3.5810918075394707`*^9}, 3.58109189822243*^9, {3.581091981230176*^9, 3.58109203469147*^9}, { 3.5810935308744974`*^9, 3.581093541092516*^9}, {3.58109384543345*^9, 3.581093853280264*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5812195538154325`*^9, 3.581567146757842*^9, {3.581567177895497*^9, 3.5815671958355284`*^9}, 3.5815672364579997`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5812195538154325`*^9, 3.581567146757842*^9, {3.581567177895497*^9, 3.5815671958355284`*^9}, 3.5815672364579997`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.5812195538310328`*^9, 3.5815671467734423`*^9, {3.5815671779110966`*^9, 3.5815671958511286`*^9}, 3.5815672364735994`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "60.`"}]], "Output", CellChangeTimes->{ 3.5812195538466325`*^9, 3.581567146789042*^9, {3.581567177926697*^9, 3.5815671958667283`*^9}, 3.5815672364891996`*^9}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.5812195538466325`*^9, 3.581567146789042*^9, {3.581567177926697*^9, 3.5815671958667283`*^9}, 3.5815672364891996`*^9}], Cell[BoxData["60.`"], "Output", CellChangeTimes->{ 3.5812195538466325`*^9, 3.581567146789042*^9, {3.581567177926697*^9, 3.5815671958667283`*^9}, 3.5815672364891996`*^9}], Cell[BoxData["39"], "Output", CellChangeTimes->{ 3.5812195538466325`*^9, 3.581567146789042*^9, {3.581567177926697*^9, 3.5815671958667283`*^9}, 3.5815672364891996`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["432.2654146831594`"], "Output", CellChangeTimes->{ 3.581219553862232*^9, 3.581567146804642*^9, {3.581567177942297*^9, 3.5815671958823285`*^9}, 3.5815672365048*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}]}], ")"}]}]}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "cj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.25", "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"2", "*", "cnj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.25", "/", RowBox[{"(", RowBox[{ RowBox[{"rpno", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"rpni", "[", RowBox[{"[", "i", "]"}], "]"}]}], ")"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, { 3.574851313707855*^9, 3.5748513247994747`*^9}, {3.575602516740883*^9, 3.575602523074494*^9}, {3.575722007593234*^9, 3.575722017748852*^9}, { 3.575722104095004*^9, 3.575722128165846*^9}, {3.575722369123869*^9, 3.575722516668928*^9}, {3.5810948574072275`*^9, 3.5810948688264475`*^9}, { 3.5810949143317275`*^9, 3.58109493857417*^9}, {3.581095189781411*^9, 3.581095190093412*^9}, {3.5810954459806614`*^9, 3.5810954483674655`*^9}}], Cell[BoxData["431.7010831813278`"], "Output", CellChangeTimes->{ 3.5812195538778324`*^9, 3.581567146820242*^9, {3.5815671779578967`*^9, 3.581567195897928*^9}, 3.5815672365204*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.3"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "oj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"2", "*", "3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "hj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"2", "*", "3", "*", RowBox[{"sw", "/", RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "cnlj"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rln"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}, {3.575008591469165*^9, 3.5750085963519735`*^9}, 3.5753455268821225`*^9, {3.5753457669977446`*^9, 3.5753460420262275`*^9}, {3.5753460769078884`*^9, 3.575346080620695*^9}, { 3.5753461127255516`*^9, 3.575346158121631*^9}, {3.575388932760494*^9, 3.5753889451001163`*^9}, {3.5757144777564526`*^9, 3.575714504058099*^9}, { 3.5757750148485985`*^9, 3.5757750729587007`*^9}, {3.5809736691104116`*^9, 3.580973726424912*^9}, {3.580989519886056*^9, 3.5809895258920665`*^9}, { 3.58098957317575*^9, 3.5809895817869644`*^9}, {3.5809896144378223`*^9, 3.5809896583830996`*^9}, {3.5809898290641994`*^9, 3.5809898308894024`*^9}, {3.580989902992729*^9, 3.580989942413998*^9}, { 3.5809899817416673`*^9, 3.5809899877320776`*^9}, {3.580990035202961*^9, 3.5809900367941637`*^9}, {3.5810088368147526`*^9, 3.5810088496067753`*^9}, {3.5810088845508366`*^9, 3.5810088895896454`*^9}, {3.5810089216477013`*^9, 3.5810089363897276`*^9}, {3.581009310608204*^9, 3.581009347252668*^9}, { 3.581009493612125*^9, 3.5810095250305805`*^9}, {3.581094976685037*^9, 3.5810950054358873`*^9}, {3.5810950571967783`*^9, 3.581095072406805*^9}, { 3.581095115572081*^9, 3.5810951193784876`*^9}, {3.581131667604434*^9, 3.581131670428039*^9}, {3.5811317823426356`*^9, 3.5811317851662407`*^9}, { 3.5811323160507727`*^9, 3.5811323734432735`*^9}}], Cell[BoxData["478.8311779545014`"], "Output", CellChangeTimes->{ 3.5812195538934326`*^9, 3.581567146835842*^9, {3.5815671779578967`*^9, 3.581567195897928*^9}, 3.581567236536*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"cnv", ".", RowBox[{"(", RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input", CellChangeTimes->{ 3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 3.570455793127957*^9}}], Cell[BoxData[ RowBox[{"-", "897.7760764317478`"}]], "Output", CellChangeTimes->{ 3.5812195539090323`*^9, 3.581567146835842*^9, {3.581567177973497*^9, 3.5815671959447284`*^9}, 3.5815672365671997`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", "centers"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"3.0066", "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9, { 3.5811329806119404`*^9, 3.5811331061297607`*^9}}], Cell[BoxData[ RowBox[{"-", "1615.6056480570173`"}]], "Output", CellChangeTimes->{ 3.581219553924632*^9, 3.5815671468514423`*^9, {3.581567178020297*^9, 3.581567195960328*^9}, 3.5815672365828*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "protons", " ", "in", " ", "their", " ", "bonding", " ", "cloud"}], ",", " ", RowBox[{"distance", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], " ", "to", " ", "cloud", " ", "center"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"cw", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], ")"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}]}]], "Input", CellChangeTimes->{{3.5692316245917215`*^9, 3.5692316336397376`*^9}}], Cell[BoxData[ RowBox[{"-", "1632.0094007400899`"}]], "Output", CellChangeTimes->{ 3.5812195539402323`*^9, 3.5815671468670425`*^9, {3.581567178020297*^9, 3.581567195960328*^9}, 3.5815672365828*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["353.67501916357935`"], "Output", CellChangeTimes->{ 3.5812195539558325`*^9, 3.5815671468826427`*^9, {3.5815671780358973`*^9, 3.5815671959759283`*^9}, 3.5815672365984*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["7.388045233615778`"], "Output", CellChangeTimes->{ 3.5812195539558325`*^9, 3.5815671468826427`*^9, {3.5815671780514975`*^9, 3.5815671959915285`*^9}, 3.5815672366140003`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"now", " ", "add", " ", "the", " ", "energy", " ", "terms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.0", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"cj", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"1.4", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"1.2", "^", "2"}]}]}], ")"}]}], "+", RowBox[{"2", "*", "cnj", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"1.4", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"1.3", "^", "2"}]}]}], ")"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{"1.2", "*", "2.25", "*", RowBox[{"(", RowBox[{ RowBox[{"oj", "/", RowBox[{"rlo", "^", "2"}]}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rlos", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}], "+", RowBox[{"cnlj", "/", RowBox[{"rln", "^", "2"}]}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}, 3.5749358994636307`*^9, { 3.575344595934888*^9, 3.5753446255749397`*^9}, {3.5753719193332205`*^9, 3.575371943029662*^9}, {3.5757146920540295`*^9, 3.575714718901676*^9}, { 3.5757148376958847`*^9, 3.5757148384134865`*^9}, {3.57571486928594*^9, 3.575714870065942*^9}, {3.5757209777730255`*^9, 3.5757209784438267`*^9}, { 3.5757212754683485`*^9, 3.5757213005219927`*^9}, {3.5757222764909067`*^9, 3.5757222942281375`*^9}, {3.5757232810546713`*^9, 3.5757232920370903`*^9}, {3.5809885403603354`*^9, 3.580988625255685*^9}, { 3.5809886661121564`*^9, 3.5809886950658073`*^9}, {3.580989689692354*^9, 3.580989724060415*^9}, {3.5809897660400887`*^9, 3.58098979553974*^9}, { 3.580989870669472*^9, 3.5809898937887125`*^9}, {3.581009386112336*^9, 3.581009469198082*^9}, {3.581009548867422*^9, 3.581009549663024*^9}, { 3.5810095866974883`*^9, 3.5810097038224945`*^9}, {3.5810942474773564`*^9, 3.5810943040430555`*^9}, {3.581094349719936*^9, 3.5810944814621673`*^9}, 3.581095560968463*^9, {3.581131957406143*^9, 3.581131966703759*^9}, { 3.5811320497427053`*^9, 3.581132050257506*^9}, {3.5811321080400076`*^9, 3.581132144840472*^9}, {3.5811321762745275`*^9, 3.5811322695470915`*^9}, { 3.581132403832127*^9, 3.581132404658929*^9}, {3.581132870974948*^9, 3.581132926901046*^9}}], Cell[BoxData["478.8311779545014`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData["353.67501916357935`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData[ RowBox[{"-", "1632.0094007400899`"}]], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData["7.669099444511533`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData["6.344228993536473`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData[ RowBox[{"-", "799.503203622009`"}]], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData["399.7045619951929`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData["2.000235372924326`"], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}], Cell[BoxData[ RowBox[{"-", "399.7986416268161`"}]], "Output", CellChangeTimes->{ 3.5812195539714327`*^9, 3.5815671468982425`*^9, {3.581567178067097*^9, 3.5815671960071287`*^9}, 3.5815672366296*^9}] }, Open ]] }, WindowSize->{922, 949}, WindowMargins->{{Automatic, 402}, {Automatic, 4}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, 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, 3026, 53, 92, "Input"], Cell[3608, 77, 2565, 47, 233, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6210, 129, 1136, 18, 31, "Input"], Cell[7349, 149, 475, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7861, 162, 955, 14, 31, "Input"], Cell[8819, 178, 171, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9027, 186, 838, 19, 31, "Input"], Cell[9868, 207, 2458, 59, 251, "Output"] }, Open ]], Cell[12341, 269, 1860, 35, 72, "Input"], Cell[CellGroupData[{ Cell[14226, 308, 1662, 30, 31, "Input"], Cell[15891, 340, 475, 8, 31, "Output"] }, Open ]], Cell[16381, 351, 1419, 23, 31, "Input"], Cell[17803, 376, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[19420, 409, 1234, 18, 31, "Input"], Cell[20657, 429, 1204, 35, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21898, 469, 697, 14, 31, "Input"], Cell[22598, 485, 362, 8, 31, "Output"] }, Open ]], Cell[22975, 496, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[23908, 524, 6738, 137, 172, "Input"], Cell[30649, 663, 427, 9, 31, "Output"], Cell[31079, 674, 430, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31546, 688, 519, 12, 31, "Input"], Cell[32068, 702, 478, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32583, 715, 1428, 39, 92, "Input"], Cell[34014, 756, 393, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34444, 769, 827, 23, 92, "Input"], Cell[35274, 794, 172, 3, 31, "Output"], Cell[35449, 799, 172, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35658, 807, 1743, 26, 31, "Input"], Cell[37404, 835, 189, 3, 31, "Output"] }, Open ]], Cell[37608, 841, 1617, 29, 52, "Input"], Cell[CellGroupData[{ Cell[39250, 874, 1807, 25, 31, "Input"], Cell[41060, 901, 10317, 248, 110, "Output"] }, Open ]], Cell[51392, 1152, 1442, 19, 30, "Text"], Cell[52837, 1173, 1997, 39, 52, "Input"], Cell[CellGroupData[{ Cell[54859, 1216, 4977, 90, 92, "Input"], Cell[59839, 1308, 2663, 53, 266, "Output"] }, Open ]], Cell[62517, 1364, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[63569, 1382, 3923, 84, 152, "Input"], Cell[67495, 1468, 445, 9, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[67977, 1482, 2092, 46, 112, "Input"], Cell[70072, 1530, 3136, 59, 251, "Output"] }, Open ]], Cell[73223, 1592, 561, 12, 52, "Input"], Cell[CellGroupData[{ Cell[73809, 1608, 2143, 47, 92, "Input"], Cell[75955, 1657, 3119, 57, 251, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[79111, 1719, 2558, 56, 112, "Input"], Cell[81672, 1777, 3118, 57, 251, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[84827, 1839, 3677, 96, 172, "Input"], Cell[88507, 1937, 187, 3, 31, "Output"], Cell[88697, 1942, 190, 3, 31, "Output"], Cell[88890, 1947, 190, 3, 31, "Output"], Cell[89083, 1952, 190, 3, 31, "Output"], Cell[89276, 1957, 190, 3, 31, "Output"] }, Open ]], Cell[89481, 1963, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[91581, 2002, 4023, 95, 172, "Input"], Cell[95607, 2099, 214, 4, 31, "Output"], Cell[95824, 2105, 604, 12, 21, "Message"], Cell[96431, 2119, 309, 6, 31, "Output"], Cell[96743, 2127, 316, 7, 31, "Output"], Cell[97062, 2136, 245, 5, 31, "Output"], Cell[97310, 2143, 399, 8, 31, "Output"], Cell[97712, 2153, 247, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97996, 2163, 2672, 54, 132, "Input"], Cell[100671, 2219, 174, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[100882, 2227, 739, 22, 92, "Input"], Cell[101624, 2251, 172, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[101833, 2259, 2771, 55, 92, "Input"], Cell[104607, 2316, 245, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104889, 2326, 5598, 137, 252, "Input"], Cell[110490, 2465, 188, 4, 31, "Output"], Cell[110681, 2471, 171, 3, 31, "Output"], Cell[110855, 2476, 1959, 65, 251, "Output"], Cell[112817, 2543, 2333, 69, 251, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115187, 2617, 11929, 199, 232, "Input"], Cell[127119, 2818, 262, 6, 31, "Output"], Cell[127384, 2826, 252, 6, 31, "Output"], Cell[127639, 2834, 173, 3, 31, "Output"], Cell[127815, 2839, 173, 3, 31, "Output"] }, Open ]], Cell[128003, 2845, 9088, 131, 72, "Input"], Cell[137094, 2978, 8269, 113, 49, "Text"], Cell[CellGroupData[{ Cell[145388, 3095, 4712, 96, 132, "Input"], Cell[150103, 3193, 175, 3, 31, "Output"] }, Open ]], Cell[150293, 3199, 452, 6, 31, "Input"], Cell[CellGroupData[{ Cell[150770, 3209, 1738, 42, 152, "Input"], Cell[152511, 3253, 171, 3, 31, "Output"] }, Open ]], Cell[152697, 3259, 1277, 28, 112, "Input"], Cell[CellGroupData[{ Cell[153999, 3291, 3092, 68, 92, "Input"], Cell[157094, 3361, 2458, 59, 251, "Output"] }, Open ]], Cell[159567, 3423, 442, 7, 49, "Text"], Cell[160012, 3432, 2072, 31, 31, "Input"], Cell[162087, 3465, 173, 4, 31, "Input"], Cell[CellGroupData[{ Cell[162285, 3473, 3413, 64, 152, "Input"], Cell[165701, 3539, 12363, 216, 176, "Output"] }, Open ]], Cell[178079, 3758, 2643, 37, 49, "Text"], Cell[180725, 3797, 4034, 67, 72, "Input"], Cell[184762, 3866, 802, 14, 31, "Input"], Cell[CellGroupData[{ Cell[185589, 3884, 536, 7, 31, "Input"], Cell[186128, 3893, 7644, 139, 170, "Output"] }, Open ]], Cell[193787, 4035, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[196885, 4097, 939, 17, 72, "Input"], Cell[197827, 4116, 1422, 34, 72, "Output"], Cell[199252, 4152, 174, 3, 31, "Output"], Cell[199429, 4157, 173, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199639, 4165, 984, 22, 72, "Input"], Cell[200626, 4189, 5329, 163, 247, "Output"] }, Open ]], Cell[205970, 4355, 3143, 85, 152, "Input"], Cell[209116, 4442, 10201, 233, 192, "Input"], Cell[219320, 4677, 6267, 98, 72, "Input"], Cell[225590, 4777, 10215, 234, 192, "Input"], Cell[235808, 5013, 5925, 93, 52, "Input"], Cell[241736, 5108, 15970, 314, 232, "Input"], Cell[CellGroupData[{ Cell[257731, 5426, 13849, 239, 252, "Input"], Cell[271583, 5667, 81896, 1411, 375, 11174, 249, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[353516, 7083, 12409, 193, 252, "Input"], Cell[365928, 7278, 6353, 125, 356, "Output"], Cell[372284, 7405, 8268, 167, 375, "Output"], Cell[380555, 7574, 8549, 185, 391, "Output"], Cell[389107, 7761, 7541, 160, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[396685, 7926, 5201, 108, 152, "Input"], Cell[401889, 8036, 172, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[402098, 8044, 2499, 47, 92, "Input"], Cell[404600, 8093, 168, 3, 31, "Output"] }, Open ]], Cell[404783, 8099, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[406649, 8132, 5964, 136, 232, "Input"], Cell[412616, 8270, 172, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[412825, 8278, 7170, 141, 132, "Input"], Cell[419998, 8421, 1417, 44, 52, "Output"], Cell[421418, 8467, 693, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[422148, 8484, 4670, 80, 92, "Input"], Cell[426821, 8566, 178, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[427036, 8574, 2695, 47, 112, "Input"], Cell[429734, 8623, 193, 4, 31, "Output"], Cell[429930, 8629, 174, 3, 31, "Output"], Cell[430107, 8634, 176, 3, 31, "Output"], Cell[430286, 8639, 174, 3, 31, "Output"] }, Open ]], Cell[430475, 8645, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[432566, 8679, 2963, 56, 112, "Input"], Cell[435532, 8737, 184, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[435753, 8745, 3307, 80, 132, "Input"], Cell[439063, 8827, 186, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[439286, 8835, 5945, 121, 172, "Input"], Cell[445234, 8958, 185, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[445456, 8966, 499, 15, 52, "Input"], Cell[445958, 8983, 207, 4, 31, "Output"] }, Open ]], Cell[446180, 8990, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[447586, 9015, 1768, 33, 52, "Input"], Cell[449357, 9050, 202, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[449596, 9059, 1415, 43, 72, "Input"], Cell[451014, 9104, 204, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[451255, 9113, 2550, 50, 92, "Input"], Cell[453808, 9165, 191, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[454036, 9173, 230, 8, 31, "Input"], Cell[454269, 9183, 194, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[454500, 9191, 5049, 95, 232, "Input"], Cell[459552, 9288, 188, 3, 31, "Output"], Cell[459743, 9293, 189, 3, 31, "Output"], Cell[459935, 9298, 206, 4, 31, "Output"], Cell[460144, 9304, 188, 3, 31, "Output"], Cell[460335, 9309, 188, 3, 31, "Output"], Cell[460526, 9314, 204, 4, 31, "Output"], Cell[460733, 9320, 188, 3, 31, "Output"], Cell[460924, 9325, 188, 3, 31, "Output"], Cell[461115, 9330, 205, 4, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)