(* 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[ 461242, 9070] NotebookOptionsPosition[ 453288, 8825] NotebookOutlinePosition[ 453785, 8845] CellTagsIndexPosition[ 453742, 8842] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "29", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " ", "\[IndentingNewLine]", 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.5762179550204563`*^9, 3.5762179737092896`*^9}, {3.576218018122567*^9, 3.5762180182629676`*^9}, {3.576236156940048*^9, 3.5762361811200905`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJxTTMoPSmViYGAQB2JmIN4h1/o6MCLxgMg694dVOikHPB5Wiay7Humwy5OH Sbud8wBb41Tn7hyVA8UZE9/WyCs7gOWfxzsYcqyRifri4wDWd0XLYdZMIOCM PLDimLd550ELB5B0yubwA4e/asT0MzlAzHWPOhDTf+irhk+UA5iWyXToSI69 49Ysf+DTJd8kgRXeDmfPAAFPnEOhLdf1xQ5JDr/qsvaUZAc5gLgFU5Mdwvh0 N821D4XYWxN64BvQ+ENvMw7Me7/8mPd2NYckgQjLLTN8DoCtiww9ALImxt75 QDVYQ9qBk2X75ktNDz0Adu/OeIg9D+IOpFjf9+/97uwAVieVcAAcLjPSHDRB Do0Ihbh7RcKBIJCEYBTEXdL+DiBrzW+aO7h05zz//VPN4cXvlR8vXfU84AMK PjFZh58gdf6uB+JBATrb8AAoGO2v+hzI3lMyWWKDjwMDCHSkOByIVnD8yGzp YAN0xnQ9RweQd21/xTnU2ZvG7aqNdAApZznm6lAAcu+RRAfzTseEp3cCHQJB 7lF0OvAI5N+dSQfA+vmMHIChb33/f9ABO5BBhuEH3tQADaqSPuAANM5TK/GA ESiCAsIPLHLd9vnvlyCI+V7RBwSAwft+Ob+DPND7O+xiDxiDwP1EBwCYpf9U "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[6, 24.], SphereBox[7, 24.], SphereBox[8, 24.], SphereBox[9, 24.], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[2, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{17, 6}, 15.], CylinderBox[{18, 7}, 15.], CylinderBox[{19, 8}, 15.], CylinderBox[{20, 9}, 15.], CylinderBox[{21, 10}, 15.], CylinderBox[{22, 11}, 15.], CylinderBox[{23, 12}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{13, 5}, 15.], CylinderBox[{14, 3}, 15.], CylinderBox[{15, 4}, 15.], CylinderBox[{16, 5}, 15.], CylinderBox[{3, 17}, 15.], CylinderBox[{3, 18}, 15.], CylinderBox[{3, 19}, 15.], CylinderBox[{4, 20}, 15.], CylinderBox[{4, 21}, 15.], CylinderBox[{4, 22}, 15.], CylinderBox[{5, 23}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{2, 14}, 15.], CylinderBox[{2, 15}, 15.], CylinderBox[{2, 16}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 13}, 15.]}}]}, Boxed->False, ImageSize->181.3453379689207, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5762564607227125`*^9, 3.5762974428772507`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "t1", "]"}]], "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.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5746613722339497`*^9, 3.574701612088543*^9, 3.574852285217162*^9, 3.5762178183642163`*^9, 3.576218047029418*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "2.6221837975999995`"}], RowBox[{"-", "3.0498287913999995`"}], "1.9534097662`"}, { RowBox[{"-", "0.060301156659999994`"}], RowBox[{"-", "0.19297881911999998`"}], "0.18068615149`"}, {"2.4116683212`", "1.0943214293399999`", "0.25350674289999997`"}, { RowBox[{"-", "1.892560589`"}], "0.46782056856`", RowBox[{"-", "1.79151693978`"}]}, { RowBox[{"-", "0.6050902652`"}], RowBox[{"-", "1.9864799712`"}], "1.9878027794`"}, {"3.7960815888`", RowBox[{"-", "0.14887639373199998`"}], "1.04526414238`"}, {"2.271450652`", "2.7593779052`", "1.39233121954`"}, {"2.9606337241999996`", "1.60615371644`", RowBox[{"-", "1.6241250106999998`"}]}, { RowBox[{"-", "3.7686805618`"}], "0.21463507908`", RowBox[{"-", "1.08079099118`"}]}, { RowBox[{"-", "1.6137315176999998`"}], RowBox[{"-", "0.7274500236999999`"}], RowBox[{"-", "3.3984832384`"}]}, { RowBox[{"-", "1.63198627086`"}], "2.398062294`", RowBox[{"-", "2.3340005826`"}]}, {"0.7546431808399999`", RowBox[{"-", "2.4347229784`"}], "3.4158687175999995`"} }, 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.576256460769512*^9, 3.5762974429240503`*^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.5762179904013186`*^9, 3.5762361912445087`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5762564607851124`*^9, 3.5762974429396505`*^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["12"], "Output", CellChangeTimes->{3.5762564608007126`*^9, 3.5762974429552507`*^9}] }, Open ]], 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}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5762564608163123`*^9, 3.5762974429708505`*^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\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5762564608319125`*^9, 3.57629744298645*^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[{ "3", ",", "4", ",", "5", ",", "2", ",", "1", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12"}], "}"}]], "Output", CellChangeTimes->{3.5762564608475122`*^9, 3.5762974430020504`*^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]", "\"\\""}], ",", "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.22522", ",", 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.576210517816594*^9, 3.576210518612195*^9}, { 3.5762105720890894`*^9, 3.576210577346298*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.5762564608631124`*^9, 3.5762974430176506`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.1786`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5762564608631124`*^9, 3.5762974430176506`*^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\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5762564608787127`*^9, 3.5762974430332503`*^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.`", ",", "7.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5762564608943124`*^9, 3.5762974430488505`*^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["5"], "Output", CellChangeTimes->{3.5762564609099126`*^9, 3.5762974430488505`*^9}], Cell[BoxData["7"], "Output", CellChangeTimes->{3.5762564609099126`*^9, 3.5762974430644503`*^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.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}}], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "*)"}]}]}], "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}}], 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[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^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"}, {"0.`", "0", "0", "2.788024007731985`", "0", "2.022132711379053`", "2.0221264181928817`", "2.022087116307302`", "0", "0", "0", "0"}, {"0", "0.`", "0", "2.7718974532569027`", "0", "0", "0", "0", "2.0221425316816`", "2.0220677843791623`", "2.0218854064043716`", "0"}, {"0", "0", "0.`", "2.603672802439835`", "2.2804736155517378`", "0", "0", "0", "0", "0", "0", "2.0221694196161106`"}, {"2.788024007731985`", "2.7718974532569027`", "2.603672802439835`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.2804736155517378`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"2.022132711379053`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"2.0221264181928817`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"2.022087116307302`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "2.0221425316816`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "2.0220677843791623`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "2.0218854064043716`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "2.0221694196161106`", "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.5762564609411125`*^9, 3.576297443111251*^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.59"}], ",", 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.1786`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`"}], "}"}]], "Output", CellChangeTimes->{3.576256460972313*^9, 3.576297443126851*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ 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}}], 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[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.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}}], 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["19.46511760393882`"], "Output", CellChangeTimes->{3.576256460987913*^9, 3.5762974431580505`*^9}], Cell[BoxData["216.93306247125628`"], "Output", CellChangeTimes->{3.576256460987913*^9, 3.5762974431580505`*^9}], Cell[BoxData["236.39818007519509`"], "Output", CellChangeTimes->{3.576256460987913*^9, 3.5762974431580505`*^9}], Cell[BoxData["11.410064947021825`"], "Output", CellChangeTimes->{3.576256460987913*^9, 3.5762974431580505`*^9}], Cell[BoxData["8.055052656916994`"], "Output", CellChangeTimes->{3.576256460987913*^9, 3.5762974431580505`*^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[{"#", ">", "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}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.5762974431736507`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({}\\)\[NoBreak] should have \ at least two elements. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.5762564610971127`*^9, 3.576297443251651*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.576297443251651*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.788024007731985`", ",", "2.7718974532569027`", ",", "2.603672802439835`"}], "}"}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.576297443267251*^9}], Cell[BoxData[ RowBox[{"2.721198087809574`", "\[PlusMinus]", "0.10209878043217961`"}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.576297443267251*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.022132711379053`", ",", "2.0221264181928817`", ",", "2.022087116307302`", ",", "2.0221425316816`", ",", "2.0220677843791623`", ",", "2.0218854064043716`", ",", "2.0221694196161106`"}], "}"}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.576297443267251*^9}], Cell[BoxData[ RowBox[{"2.0220873411372113`", "\[PlusMinus]", "0.00009533144083836784`"}]], "Output", CellChangeTimes->{3.5762564610191126`*^9, 3.576297443267251*^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["3"], "Output", CellChangeTimes->{3.576256461112713*^9, 3.576297443282851*^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["1"], "Output", CellChangeTimes->{3.576256461128313*^9, 3.576297443298451*^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[{"3", ",", "3", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.5762564611439133`*^9, 3.5762974433140507`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.259"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}, 3.5762117547895665`*^9}], 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[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[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"}]}], "]"}]}], "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}}], Cell[BoxData[ RowBox[{"{", "3", "}"}]], "Output", CellChangeTimes->{3.576256461159513*^9, 3.576297443329651*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.576256461159513*^9, 3.576297443329651*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "4", ",", "6", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "4", ",", "9", ",", "10", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "5", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "3"}], "}"}]} }, 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.576256461159513*^9, 3.576297443329651*^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[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "n", "}"}]}], "]"}]}], ";"}], "\[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.576218525232658*^9, { 3.5762185584763165`*^9, 3.576218562267123*^9}, {3.5762186004871902`*^9, 3.576218603778796*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5762564611751127`*^9, 3.576297443345251*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "1", ",", "2", ",", "3"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.5762564611751127`*^9, 3.576297443345251*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.5762564611751127`*^9, 3.576297443345251*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.5762564611751127`*^9, 3.576297443345251*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rpo", "=", RowBox[{"{", RowBox[{"1.2961", ",", "1.0875", ",", "1.2465"}], "}"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"from", " ", RowBox[{"formamide3d", ".", "nb"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "rpo"}], ";"}]}], "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.576216299607949*^9, 3.57621630027875*^9}, { 3.576229153586551*^9, 3.5762292301670856`*^9}, {3.5762391334566126`*^9, 3.576239134158614*^9}}], Cell[TextData[{ "(*--------------------------------------------------------------------------\ --------*)\n(*", StyleBox[" next: \[Pi]-clouds for C=C and C=O, half occ each above and below \ ", FontColor->RGBColor[1, 0, 0]], "*)" }], "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}, {3.576216354488845*^9, 3.5762163576244507`*^9}}], 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[{"cj", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "=", "3"}], ";"}]}]}]], "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.576218289516244*^9, 3.57621829272985*^9}, { 3.576225966906554*^9, 3.5762259739421663`*^9}, 3.576226275818297*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "3"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.576225827255109*^9, 3.576225849687948*^9}, { 3.5762259365957007`*^9, 3.576225944208514*^9}, {3.576226236599828*^9, 3.5762262387526317`*^9}, {3.576226436482979*^9, 3.576226452504207*^9}, 3.5762367303658557`*^9, {3.576236816103606*^9, 3.5762368374132433`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "3"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.576256461190713*^9, 3.5762974433608513`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.576216252714267*^9, 3.5762162537906685`*^9}, { 3.5762180984003086`*^9, 3.57621809941431*^9}, {3.5762186874261427`*^9, 3.576218688908146*^9}, {3.5762556677889194`*^9, 3.5762556850893497`*^9}, { 3.576255752403468*^9, 3.5762557602034817`*^9}}], Cell[TextData[{ "(*-----------------------------------------------------*)\n(*", StyleBox[" next: O-atoms in C=O, two doubly occ LP", FontColor->RGBColor[1, 0, 0]], " *)" }], "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.5762133802032213`*^9, 3.5762133817632236`*^9}, { 3.5762164003061256`*^9, 3.576216403862932*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";", "\[IndentingNewLine]", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "5", ",", "12"}], "}"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oj", "=", "1"}], ";"}]}]}]], "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.576213395366448*^9, 3.5762133958968487`*^9}, {3.5762260217094507`*^9, 3.5762260793827515`*^9}, 3.5762288134279537`*^9, {3.576228875141662*^9, 3.576228878105667*^9}, { 3.576236620978463*^9, 3.5762366391056952`*^9}}], 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", "}"}]}], "]"}]}], ";"}]}], "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.575367860034491*^9, 3.5753678608300924`*^9}, { 3.5762131230523696`*^9, 3.576213153659623*^9}}], Cell[CellGroupData[{ Cell[BoxData[ 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.575367860034491*^9, 3.5753678608300924`*^9}, { 3.5762131230523696`*^9, 3.5762131383091965`*^9}}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1306037967657563`, -0.648928358710618, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.003319839002909046, 1.3035957727259608`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.226982782578659, 0, 0}, 0.22522]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{1.8490172129073188`, -3.2405612375650374`, 0}, 0.59]}, Text3DBox["4", {4.226982782578659, 0, 0}, {1, 0}], Text3DBox["5", {0, 0, 0}, {1, 0}], Text3DBox["12", {1.8490172129073188`, -3.2405612375650374`, 0}, {1, 0}], TubeBox[{{4.226982782578659, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.226982782578659, 0, 0}, { 1.8490172129073188`, -3.2405612375650374`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.8490172129073188`, -3.2405612375650374`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], "}"}]], "Output", CellChangeTimes->{3.5762564612219133`*^9, 3.576297443392051*^9}] }, Open ]], Cell[TextData[{ "(*----------------------------------------------------------------------*)\n\ (*", StyleBox[" next: O atoms in C-O-H and C-O-C: two doubly occ LP", FontColor->RGBColor[1, 0, 0]], " *)" }], "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.5762108819992332`*^9, { 3.576216429556177*^9, 3.5762164303517785`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "\[IndentingNewLine]", RowBox[{"coch", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hj", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "*)"}]}]}], "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.5762107169353437`*^9, 3.5762107219585524`*^9}, 3.5762110760635743`*^9, {3.57621216663029*^9, 3.5762121727143*^9}, { 3.5762261523128796`*^9, 3.576226156446887*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"{", "}"}]], "Input", CellChangeTimes->{{3.5762261308784423`*^9, 3.576226130909642*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5762564612375135`*^9, 3.576297443423251*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5762109216857033`*^9, 3.5762109764885993`*^9}, { 3.5762111224424553`*^9, 3.576211151864107*^9}, {3.5762112615479*^9, 3.5762113279884167`*^9}, {3.576212254864045*^9, 3.576212259388053*^9}, { 3.576218730560219*^9, 3.576218764318678*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.5762109216857033`*^9, 3.5762109764885993`*^9}, { 3.5762111224424553`*^9, 3.576211151864107*^9}, {3.5762112615479*^9, 3.5762113279884167`*^9}, {3.576212254864045*^9, 3.5762122780924854`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5762564612531133`*^9, 3.5762974434388514`*^9}] }, Open ]], Cell[BoxData[""], "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.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.574742024385396*^9, 3.574742025524198*^9}, {3.574830761168028*^9, 3.574830777984857*^9}, { 3.574830820947333*^9, 3.5748308292933474`*^9}, {3.5748311210138597`*^9, 3.5748311809803653`*^9}, {3.574831455806048*^9, 3.5748314566796494`*^9}, { 3.5748315927430887`*^9, 3.574831592899089*^9}, 3.5748317545777726`*^9, { 3.5748342338445272`*^9, 3.574834240209338*^9}, {3.5748532222016077`*^9, 3.574853232684826*^9}, {3.576211000731042*^9, 3.576211048389126*^9}, 3.576212135555035*^9}], 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[{"4", ",", "1", ",", "1.1528020038659923`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.1447387266284512`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.0606264012199174`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "0.9223368077758689`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.174932711379053`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1749264181928818`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.174887116307302`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "1.1749425316816002`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "2", ",", "1.1748677843791624`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "2", ",", "1.1746854064043717`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "3", ",", "1.1749694196161107`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.576256461284313*^9, 3.576297443454451*^9}], Cell[BoxData["11"], "Output", CellChangeTimes->{3.576256461284313*^9, 3.576297443454451*^9}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.576256461284313*^9, 3.576297443454451*^9}] }, Open ]], 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[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 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}], 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[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", 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.576226904374601*^9, {3.576227120762581*^9, 3.5762271347246056`*^9}, {3.5762293302568617`*^9, 3.5762293382752757`*^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[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", RowBox[{"(*", RowBox[{"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]", 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", ",", "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", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot8f", ",", "Plot8g", ","}], "*)"}], 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.576226589238447*^9, 3.576226637629732*^9, {3.5762271700742674`*^9, 3.57622725699762*^9}, 3.5762278927299366`*^9, {3.5762285845443516`*^9, 3.5762286072735915`*^9}, 3.576297435514037*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4116683212, 1.0943214293399999`, 0.25350674289999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.892560589, 0.46782056856, -1.79151693978}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6050902652, -1.9864799712, 1.9878027794}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7960815888, -0.14887639373199998`, 1.04526414238}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.271450652, 2.7593779052, 1.39233121954}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7686805618, 0.21463507908, -1.08079099118}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.63198627086, 2.398062294, -2.3340005826}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.161506232347129, 0.4432883231429184, 0.2166788032818139}, 1.1528020038659923`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.9658612796840872, 0.1336089796599615, -0.7940385203748846}, 1.1447387266284512`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.3293499841407538, -1.078714922298861, 1.0731463755263269`}, 1.0606264012199174`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.6483981333407214`, -2.5364793504418808`, 1.9700135689820113`}, 0.9223368077758689]}, {Opacity[0.5], SphereBox[{3.3921497284984294`, 0.21385287298969646`, 0.8142521701862353}, 1.174932711379053]}, {Opacity[0.5], SphereBox[{2.3123622508415465`, 2.2735609394954874`, 1.0600540507277434`}, 1.1749264181928818`]}, {Opacity[0.5], SphereBox[{2.800457841985053, 1.4568124506984566`, -1.0762738693272935`}, 1.174887116307302]}, {Opacity[0.5], SphereBox[{-3.2212855257876276`, 0.288506943428245, -1.2881593161641391`}, 1.1749425316816002`]}, {Opacity[0.5], SphereBox[{-1.6950884105489255`, -0.3786933426029214, \ -2.9296017679022643`}, 1.1748677843791624`]}, {Opacity[0.5], SphereBox[{-1.7080236403447533`, 1.834804547343197, -2.175700142698715}, 1.1746854064043717`]}, {Opacity[0.5], SphereBox[{0.3579193824374419, -2.3039409718665387`, 2.9992078308490013`}, 1.1749694196161107`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.1035914010087482`, -1.065547439676029, 2.751514177755581}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.040457404778905, -2.2771167984340748`, 2.594205845670041}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.5339716575748554, 0.6936175763721355, 0.9178057741181196}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.10658912939125162`, -2.9074125027239717`, 1.2240913810444187`}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.203910190421094, -3.822540784365923, 1.3126136867299578`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{ 0.41336934425485516`, -1.0795752146121358`, -0.5564334711381209}, 1.2465]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.8556145054837843`, -3.941033170689589, 2.8757100529569395`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.5277749137603784`, -2.792312962035196, 1.0517649980357544`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.7960815888, -0.14887639373199998`, 1.04526414238}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.271450652, 2.7593779052, 1.39233121954}, {2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7686805618, 0.21463507908, -1.08079099118}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, \ {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.63198627086, 2.398062294, -2.3340005826}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, ImageSize->{459., 459.}, SphericalRegion->True, ViewPoint->{-1.3876606899930075`, 2.4084292347487475`, 1.929732217344078}, ViewVertical->{-0.7859518761980215, 0.6170341733038512, -0.2672245840528062}]], "Output", CellChangeTimes->{3.576256461331113*^9, 3.5762974435168514`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvPdzY4l23/l1P2m3yi6vvXKSs7y7Xtvrqv0PHKWVXSorrIPWz7K8Kz1L b968eRN7Uk9PT3cz55zAAIIACIAEkQiQyAADmMAM5kw22ewcZ3rSe+X9XIDz pkdV+9v+qKr5XoYmce8953O+5xwOL3/zDy6/8kc/+YPLP/rBH/zKv3r7D958 5Uc/eOdXfv2Nt/nU9/6M9Geyhn5Fxvv/Tfrm8N/477/NGwfjM3/6/p++/6fv /+n7f/r+/5/vO/JvflGpsU1NoEk0ld7SNLqk6dSmvqfjg3v5r8rLOP7Nwvda 8m/+kg6P7ml8YlOZyS1VlPpUU+ZXQ1lATai1NKC2koA6DBUHZCoKqPMmuoE+ 8ct0za/h7kktJrZ0tn+/8Pq/XHj9nvybv66j43uayGyqvMKr6kpeuzKglsph taNO1I3MFcOyIGv5sGzIXoZKUcmw+otREbrBx9fRNb7makB9V/yKmCa0FN3U OxdxSHP/42NbxGFLGWIw9VIcTl6KQ1vhErvyb/62JibX5XCOq6rKp7rqgJpr uDzUhcyoD9mquQTkrBqWCw1y2W4uecgQl+zhkj1csodL9nDJnpt8nkt2f4K4 5MGPAhr40C/H+z6tccmv5c/9Sxon7BOT2yoj7JWEvAbVE/Ym1EzYW3mtNm6/ nbB3EHbT9UA+7J1X/Qp1TWqJ0C/ENpoLd2TKv/l7ymTWVV01pNoarxpq/Wqp HZYJ9dQRaGRD/XzsQm40xB16kY87DHB3w4a4wyB3F+TuQtxdkLsLcXdBrijI 3Q1zd8MkJMDd+a/yvVcC8n4Q0NC7Pm1ENvXHLwEwmdlSWYVPFVXcIa9dj5p4 /VYDBM7Ribo4Tw/nMXOeXs5jQX2cy8q5rJzLxrlsF8m3k3zbBz5F28e1HN1Q Q+H22/Nv/r5OTu5qwDWm+lqPGuq4/XqCV8/LIwuyIycaREPISzj8aJhQhNAI oRhFYcIR4VKjXGaMS4xxiTEuMWqIy4xyiRGSE+YSw1ziKMke4RJHCEfwQ17v vYB873i1ObqhP7yA7fjknpyuCVVX+1XDOepQI2pFHQZ0nLMH9XJeK7Jxbjvn dnBuB+d1cl4X53URmgHOPcB5BwjNIOce/LgAmvtD9L5fA5c9Wo9sqK4QngL2 v6wBZxIq3Gqq9xIav9obOC3qbeR0yIkGkYfP+dAwChKmURQmTFEUI0wJlOSS k1xuyhCXm64avqQ01/w/KM1Vp7nqFEpy5QmuPM6Vx7jqGFcd5YojRCoMOCOX ffK/PqR7O/f+ywXDJwRqYGBSdfBbxxnrURNqQybUzdl7UR+y11xUJxp4qTo9 F5Xp5dReTu0jaD5O7+P0PoLm4xL8BM1P0AIEzf8+gl/vOx6NNaVVUwhcS/7N X9UtuBoaSHMZQ2pp8KmtgUIkUD2or4lLQANoCPn43DAKoVEUIYgxlCCISZTm Fsa49PFaAjZhHCZrh7+nTK0ROt7VJPc0UV3QOPczxv2kuJck95HkHhJcf5xr j5Lokbc9mqxP/d5FyRn8Dw6Mw75PjbDfxPmaUSsy6qAb9SKrUQtchxMNGFZQ c2EFnNJHGP2cNsBphwljkFOHLiwgRBgvKQT1f1YjhDJEGEMfF7gf/QjB/giX Fbrs1fAbbm2NrFcVIlnwqb+Zj2RT7QD4DRFFn9ob/eoiar3IhpzNXA3yogAK 8blRFEExoplAqYagxtB4fVATKIOm+HjaUGNQM4aagnj/LMe/oFm+Z8YQWZhG U9y1Ee5JI8Dc7Th3OsYdpgluCptNYrHR97x8d1rfz1/339LM9DrZ9xJNuhiv 0cLrtaEO1NVYKCErn7cjJxogwm7O40E+zhUgusOcL8j5RtAoEQ5z3ggRjhDh SOm3zhItBopokRHkCKGOGiVDzmMYTIxAx+gm0fe9CsPqTGNaD7bvVhSC3HQR 5NmpnFrqBgjwEBfolanJr+5mWicB7UcuNIR8aLg5qBEUaQ4phhJNI0qhscZR TaDJxrCmmsKaRjPNYc22hJU11BrWfOsoOMy3jV7SQtuI/kfeDfFJQ0G+KKg5 TjB7Efmp+kLUM0Rhkruf4K7HmSvGPvEp+aGXF0zr3vZd/e5FzXkHx/K11toY yEe6DQLaUSfqQZamgmk50AByN1wYF+cJEPWg4ee13/XzWCWRjRP27ylB4BO8 l6wwkObIgU/9OSUuHOubckvdNKhANN/kFZ8S73sUfXNAD3fuqrwQ98aLuHtc MVzKpY4GNzH3qqvZr56LuDtauEzkQX5CE2wZ0WjLqKLEMtEcUQqNNUc10RRT Bk21xDXTGtcsyrbFNd8e1wJa7IhryRTnmpdMsUta7owahwjBXzaFtdQxmtdi +wgpCZKI4UISmi7wJzDTBGOKu84waUzc8Cl9lRt627ihO/p3F7ifUqYtdW4C T4k20UT5/g5ex4S6UC+yNheMz4kGkaexYH6Bi64xYnQOzhepDdI1gorXBJWo DipZFaJjhJSuNkQpVwcvaayGwzhf8eeNjzVmdJTKggz/GzNgISnjGND4Db/G r3HdVzxKvjuobGNcZYVEFMaBvyOvK6r2OqdMjW548QC/T+aWgKwtRiKCGkQe OA0AcAiQwy1RxVpiShD0dEtC480JTTYnNYVmWlOaa0sp257WQkdai6a0ljrT Wu5KawWtdqe02pNSrid1iUNSf5ljAsVRTLnumFa7onxpRCudYbJEdjpC+exk L7IzR9RmidQsmZku9ytT5NPEtSHFL7uMrPyfFxPE6a27lLSbkvaBVyCfjE7u qAt1txSSYjNQQwOGj5IUL/Ljh8ONIYUaQhptGFGkfkSxulHaeFhJlELpWvBD 43URTaDJekNhMMs0hI3DKN0pwzdm6kY0WReicyHyZZhohixlDKKYYTPFXP8N ryY+HtLYBwNabEmUFpJTf1Elc5kVddQ51NkwoO6mIZLjJTl+9RnJaR3RIEnx kpRAa1QjrTFFWhOKtSaVJBFjLWlNoEzLmKZbxzXbNq5sx4QWWAgWO1kKuia0 0j2hVfOEcuiS1non9Atat0ygcW3kNXaJQ5odaMOSQkmt9ya0bo5rzUzCekhW N4nqpJRMJKq9UEbzRDQL2tnagGbZZ6ZLvJr8xA2CDpJ0rt/O394v6IwsGQbQ mTeAwKV8en45nyAzsiBby7d+MIT3+vDdAJ4bxGNH8NtIY4SRIap4fUzJuphS dXGN1cc13pDQBJpsTCiDppoS+DJqTrDtNMcv4dAxGt5MUxRFaIaG8G+yN1Uf ovppjNjhDDmbqQhopsyn6WKvpq67NXnFpWX8paSQrMLk+Hd1dnJOsuyMiS6S 5cbOPD9PVj+JGmyNkKwoyYqTrCTJSimOk6daxzRGgiZbJjTVOqmZtozmOjKa N01psWtKS93TWumZ1mrvtHKWaa31TWsdbVintWmb1pZtiuRt2afoBNu2DJq8 0AT/Nq4t65g2rWlt9n2TQcrNHKUaI1RmIXNL7cNaJHML1MB8XUBZ1ryZUo8y 1wcxycRvvZQwU8MgY4hhFP5L6sknrIfvNCMLstPPnHnfCGkI4/bRCIcx7BCB HsWso1hQnIQkGpJK1YMpGm9IYeagiqaa05oG2RlDRGa2Lf09TCV9CWtP6S9y TGoOzOfyhh+jyZJAXn8WIOao2DkmnCy9LMvuMMc6NcddzNx0a+qqSysdseKX c/b31FHbR74cTKcDMjcPqTefryB3MaoBcuXhTAHOGGpLK9w2pjhFlCJHY60Z TbZOaaptWjPtM8qaZrTQNaulnlktm+fI1Ry5mtOadU4btiyzFG55za3Fxpi2 ++e045jTbl6z5G7XMaO/wnEaTaEMmtRO/4S27eTPNoaM/JE7C3ZJ5a32hLHJ ESwyqOW2YS1RcYvMW/Mss7NlQ2DqIm8x/Zv8ff53JO4OJuLKm0jPhcOTsUvq JWV/NZ84GybvzHtKmMRF5COww5j8CAYfbkoq2gSuzFDJxjGlG8Y03jhO0iYw f7BtmcRjDHQnNds+qTmU7Zhk4DFNMkAscDRsxxDzj2mcPC6YxvI9Yr4jRcNO 0jMSmDzNm9POw8xCI22ZXC6w2ixUeTVfPqS5ogFNX3NotTNaVMhj7UXtDQ9E mNjtMje6mI/dsnCPRh5t3IwLSoaoNz85DJG/cNuEYtRYsm2KPM5osm1W0x1z mjXNKduZ1UL3vJbM81rpXdBq3wI5XNC6bVGb9kUNvmaW+3eqlP43N7X6+5Xa vNzJHe25Fi5pf2Bef41jVgdof2AOzaIZ7bumtecksU6S6iCp/STUnqaAk1qz xHFgoxjD3NaIVrDQFYpqibVpocajubJBitCpxwd39Bv5m/3vmTjO1VkPtNyo ucWbh9bSGshn8RLHIOuNlWw6uPnBPMQx5qgE2UxqhI4QpsRizeOKk71UIzCj 8SaAbp5SBqin81BPa7ajAHa2E7gNdc1gSKh7hu4xbcxVWNNf4jil5e5MXkvG z1u6jA4zhhgDGAEWSe8ic9kS17JEapdosEt1fi1xfwsVbs2XDGjmul1PDs51 s5DXmov6nJ9aUnedVWZq1NI0yHjoZTIx8hoB1rjceKiPnAYBL0w+Y1x6knyO tc1poj2rKdO8ZjsXlO1e1ELPkpZ6l7RiWVbOukxOl7XRv6Itxwq7dlDdv9mm 6L/v0forFp2/162HVxt0UGbjNg/dy7jc4dCSjvJaRAt8dh5l0ZwOBgup3hsg zS48mDRv9dNASfMaac5ZCp6bw29zjDQrpGuZiX2xFqrLXJr4xP4bFyiH3AmZ mwYYUTx0QDBuxZL48j6moD6WBlvbqBxtEewplrcnPyEYJquhFtCmhUSbJ5mS M2wm4N00rYnmGbI6i1XNklUw78hqzpTVfBeoo8XuLLZVQJ752JyF4hWOK72G Cla2ap7l7QxvZ/g3ox2R7R4yzfyw3DWGDTHgUcgrbQnoZXpr4hYheJnbW6oc 1EKpU7M3rfkM3/huhjtremWmci1Ubh+3bIzKNgb9fm5tAP/3Uq3DVOtI24yi 3EKCrKbb5zXRsUB2FzXTtUR2l7VgXtGSZVUrfavK2XJa789p07GmLeeadlxr 6vjdXvX+O5/GX4tq73pCD5jcHrd6dK+xl9s+9uYommPvqk7yWkHLfGyIjHvI uIdsD1HcZHufbO8OTGubTG86GZfI9BoOvdZXcOccxZzDmVdJ3XKDV4s1g2QZ 3+qN6F/n7/t/0uL0Km7lxKncOBVU87VW0my9SLGNFPe3xeQipHnKicUwU0II qw23ZEjzNGmeYRmC9hZob80q0zavaWIzY1rQXOeisl2Lms+Tv0h6l7QM/csW owKWtIpyfUvf47DI6IfP/RLHeZTNd66cpZDyFaaOFXMGg5pkOB/HpJjjO5Ja bcO0mke02ujXat2QlqsYYMvtminqvchwdf7N/6JhZ0jmuj5ZqGErlmVjzbOT YTvNxcX8M0Tj8FO3IbIbbsvSYxeUal/UeMeSMqZlMryquZ6cFnpzWupb04p1 XTn7OlHfIPob2nJtamdwU7vuTbX9B58sfzCh8atz2quf00PAfeIY131rUCf+ Dd3yb1zSrcA65XwrsIZyfMoQSfev6Ni3rCPfkg69Czog4XtDtGr3rLZI9gbJ Xqes1+xjlDRLjDFG9RiJHibRPhI9RKJdjE02PTk6//ULvm9j1uaGfvVR0taW IZzLhwL5dmtvIwrkuJ8cO5lu3EwY3tYJJsRJdq0pll6Yb4F58ptqydKt4J7o ZIjONNGZ6VzWXNcyOV4hxyta7C3UwPJFHawatWBdNUZ72yq3vM5x3baidfsK zmQIB7Qv8fFSvsOt24xuNw8SlHzfLLfIxGme4jYnca5xbhUna8fFGBNyTX7l 6t1aqXFqsdKqdevI9ULeqy5+wnx2fKbuGrMs9TZZma9sfIe9eVT95N2BYQ1y l1767zBePcpdRdsW8e5ljbWvaNKU03TnGnlf13zvBnnf0IptU7n+LZKwpU3X NknZJjk72h3a0b5nR44fp9T146wSpQvaMX7YY07piT+rO2y4p8PbOkOXdBbc IhJnwU20kdfp8DoChuGcjgOrOvIv68C/pH3fona989oGgs3BGa3j7eu08DWq PWdLFTy9e7QAABW83Dio+ep+ohn59YsQjLqj6qPIrc2DmJqHsZIQkPj+fOLj KEni0xqghXloYX6SHiQko/h1hIKOk/Bk6wLtbIl2tqxMx4qmTauFkujOaZ6y 8H7Imoqma6bypbFqozzQmlEi+TJZp80hxzqGuE4IsEXjkKN1bzpW0Yo2+41e aJCwCCsGBVmc4BsCMtwn99xJ9juM7IeUow/nWEqXa/u1UNkL8Lf1ycvp/+cK OYPqrbXI2uCUrdErOz2hn53L0ZKi7Ccp+xnuN0vZLypC2uNtq5R9TuOmNU11 bmi2Z1PZ3i0t9G1r2bat1f4dwr+rzYFdbQ3ukfo97Xn2tO/d16FvX+FrXnX8 ToNSP2zXwRWTHpe36VldvR5Y/DoL7en2iKFdnee1g7b5GCxGtvj3TZ2GNnQS WtdxMKfD4VXtB1a0BwY7vgVtebLawAfWwWDNmdGa4wKBXsLRTTF0+Gnp9Dru da7aaoTj1y58/vzWOc5nx/lcOJ4b+ehtwXwLN+q+n7p3kH4X6XczwfiMimid Y0PMgsCCYi2LSrQuKd22ovH2VRDIEZ41EFjPV0e8ekrVv92s3n9Vr8hvVGv2 P7cq+5YLh6RSLqplw7FFwp1bbHBbHLdcW7SuTUOXOGzAwbZrHRndkq7pXOU7 cAmYWIOJNXuBh1yeB8MNuPkuWDBx8wwlOcDONTm1zJy2jdd/h4P/VT3V3epj Lbax6Nvz/wMgIkcz3DOrDLROM8PMccOLML+CBeRo8OtKd2xosnNT0z3bmuvd gYFdLdn2tNK/R/z3tTFwoC33gXaGDrTrOaRUD3XoP9RR4EiR6z51/NsmpX7U qYOr3XpSadKzhiY9sgV1PnqIDnQnfHCJwz5OcCe8p/Pwrm6js9EdtK1bIHE8 sqEjcDgIrmkPHHbBYRscNmkN68wBeRRoCbk8CkSD3p7rIhodXkYgeiE5X3eO /tpFGwi7I5hgPwY4gAF60XB+Pncw5jhwAAdjjpMxZ5BG6KURBozKIP2jpD7a skwLWGHxpDra1jTZsZ6vkJnuTRDYyldJ5w9cqvrVHg39jkuz/3VIe5ddOvzY olxtXBtG1bh2jR8SUDvf0zbH7cFdmqbxuZ3BHeOwrb/McSvfSbcH6aoDdNeB NdoesxRErDkMGha5V/qDFRIskGDm3ru5907aYMcwzuBmJujXUn2vnp6cXSuA UHlhhouZBfUy7VnrqASGw/4mBtkmOh+riKtlSm66nI9bDrYuc9trzPIbSpq2 NN65rUzPjmZ6d5Xt29eibV/L/QfKOQ/x5CNtuo+07TnGq48B4UQHgRNAOKGQ T1hB5tTx71uU+nG3Dj426wkwPm9q1eP+Ud2JnHD7d6PH+pscj9BhXneiBzqP 7us8sqezyK5OIzs6CW/raHRLhyOb2oeKXUxiGyo26RUb9Il1hoU1psKcQYTR H6zGvE9v6GI66nBrucWhbJ1Fj+mJ/zIfj/9Z50wG1norReHEGIcwxgA4EBMG eydzkRNHcOAILhzBDQ5GbIbBYYT4RFpXaQ45+uU6/XKDaXhTmc4tTXdva9a8 AxK7+aKp+M1B1f9mWL4fjCv7fkaHZeM6bRjVFkP/plFEgwdk+8DAwE1J7FJP v8xxn8nH0N6FdvNNdse9rW03/gEmmyCyPkB3AY815wplwDiJURTQIAjmMdAg CJ2jeXfMtbsoCyuvEfoOFvhDZYf6am2y1Q+pvwFjbIrK2cTts8O4GH6GWhbo E8tUQ07h1g3F27eVMu1oontPU+Z9zfYdaN52qKX+I604j5UbOMGrT/DsW9rx nuLhpyBxiqefgcQZHn9GgZ/J9LvtSr3Wq4NP+vS0tleftnTosTOie7FT3Yuf XuJwS3+D4wk61l10J36k89ihbscOdAoht6J7OoaQQ+g4gI49PGMHOraYJDbw i3VGybU8GTOQwQzFNpjrYz8w00G7PKxMLi02W3U6vfQNFJHBUYrDRnG4cEkv Lmns8USEFcDJaOjEMZ1MBwNMBkO4ZiEyK4yKOUVb15WgaFLtm3TRbU127Wiq excg9pS17Gs+XzwHqvztuKr+XViW3zIp+jvlWvsvpbr16g0ddCRw1WMGnmOc 9dj4wRRl9Qt02WPteY/otHld4nCIW+x7D/j0PnVHM/ZgKcxgm0PbWgeRdfBY wz3WXEygTtDoxzVsoNFHFHrTF1sSUeikd3TgGM09F1hUXGBx+/hUvVXdstVS HfV+ORrCYEHbaCII7D4DLfPytCwp0LJKRWxQEVtKdOwq3bWvCfOBpixHmrUe a77/REvOW1odONWa+1QbnjNte29r139b+8O3weJcR8FznYyc69bouc7Cd2T6 jyYlX+/T4Q27nrK5fNrWpScDcd1PnF/icNs4nLEv3k+CSvKW7qI7iRPdThzr DEZuxQ91EtvXEXwcwMc+fOyO4quMGJv0k3WmzHVcY42xIjfIhMUOmbMbPyXA R80B2BjUUrtdsw3d+hcX7nl+coZzWtTfaKdE3MQgABzEpAUHZS90Mjo6aaVO XGIQl/AARYCSCbWs5csmZsSH0kl3UDpdlE73vmaI06yF8rEeasF2pCX7sUx/ nFXRr1Wo9derFPqdKi3/l0qdvFqio/oAGT4l06dknLLynQLIvu/WJYbl/OHE OBwbYPiP+OdD7fowFwDZAhBHPRVdl5arLqUrb9j18ev9uv66XTd/YlfRj20q ebVPpa9YVPpDs0zvWOS9bpXnapfW4/MfvwzGP9DSZFZ91X2y17oBA79owC6b xlCGoMxpoHkRMLj5lnWNtG8p2r5LG9lXuvtQk73HmraeaM5+SwvOUy0PnCnn vo19n9PYz2nwd2j2d2j6d2n+dxkC7gHFPVrAPZ1F78n0/S4l37TpoMjBTGHX Zx09etzTrwfJu3qQuktAHqTuGIdz6LiXuo3OdCd1qnMIOUue6BRCTiDkCEIO IWQfQnbpL9u4xyZ0bOTpWNEaQ2duiHoZMCYMrNRKvVioFzOu0eXQQisz960z xuwCHSvTS7LX98nBsuFswjaaQ5BBYFoITGsmbxkGGS7sYpDe4YWK4ZYNjbRs Ml5sM3zvKNWxp7HOfU12H2jafAgZR5rrO4YM+mj/LS07bmm8eV/FkFH3r2vl /e1aZX+/RkevVuj25SKooKp8tzFcKguBQ+C2flGHgdt58/1Wp/l/u6W/pqEm FgGM/tq7Ll1/b0A3Ucm7AypjfKlAVe84Vf2WQ7Vv9qsWbOp+YlPDa1Y1/LhP DT/qVeMPe9T4R11q/MN29VzxadT4bbf4pm7v3dOH3zUUc3m7rKxn/bU+aByV swEzacRMmmYI17wGm5flbTbCsqnR9h3FYCbZdagx84km+041bTtT1nFbC65z LQ/eIT13tOG9qy3/Pe0M39Ne8L4OQvd1PPqAceEBzDyAmQc0iwcy/V6PktzG QYlLz5oc+qzToifN7Cbp+5f0MH1ff0uPxu7pIXowdlf3x+7o3ti57qbPdZ6+ rdvpM51C0QkEHUPQYQIjhqA9etAO/rLFzLpB71lnKlkL4LZsrTk3vuLCV/rx FRu+0kcTNru0ZOrT2dzCP7/44Yy1ppsqshKJQSKBpTRHgCaVn86dLUSmJYuW 6MQ5BrR1+YjOcMsWA9oO/WYPS9lXqvNA491HypipLgvVZb2lrO0UaM605DjT ius2IJ+r+F9Xq+o36uX6rQZN/ed67b9aozvvlmHFd4HmLhvXXbgYvsu4fGgU YPBOQaE7eYeesW+qoyysmx8OquhDt4pRKe9XfDCoKlTz/qDq3h9Qw3suNcFT 82WnWt52qPWtfrXBTvvrNrX/pE8dr1nU8apZHa90q+OPTep7n8XkakD9V5hJ P/DJ+q5Hq9ENvf9d37FUdMlWPZD/nUBnPR25AUdrxHSbMN2mRfhZla95g/F1 W6OUUqzzUMmeY41bTpWx3dZM/7myzjtaHLyrlaF7ynnua8P/QNuBB4yTDxkr H+pw9JGOw490K/KIAeORbscf6zzxWKbftyjxjksHpW49Y4P4rNuq5+1NAPMI cB5STo/GHzLGPhp/oIfj93Uf3Ru/p7vAdA5Mt4HpDJBuYUfHgHQESAeAtAdE O9jQFhBthGnbDC9rjLU5P4O+Z47mhP04adcO7If9Kdc3pJUeG2NvUP/sgqBz Rlp7bQ811U88sB72fGdzHGE9jPVOxnonS6wTT3ZBkBuCfFhOsGWXOttXrP0A fz6icR9roudEmd5bmqHe5qi3+f7bWnRQb647NHBqjtgNfRRX+b9pUt9vNyn9 e03a/lE9FFXp0M7OPkw9HVCIf1+HlOLRhQwbH2apKv4QZ/nIrbKrQypHFR8N qZqPa1H9FbeaUDNEtUJTOyR1QJLpXac6LzvU9Y5D3ZDUg/33vGGVmfnAzPho frVHva90yf52vwavDcsNSe4r3/5+4eBlj5K48N2du7pcIKr8mxHn6FR9lRbZ qxn+a0egilbeQCtvpO4a54nkstw4kq95C6p2FTYdKE6dJYnQeN+ZMnaKwnFX 2YF7WnTf14rnAY3jIaPnI5aTx9oNPdb+yGPG0yc6iTzRrdgTxpOnjClPdSf5 VB3/t1WJy4PaL/foOavbCzrZp6ZWYJp4YhweG0RNPNLDyUd6MPFQ9yce6O7E fd2ZuKfb43d1Nn5HtyDrZOy2jiDrgCa3zxi0S4PbhqpNGtsGY896iEFweFk5 H7bkYRQexJZc2JKD3cDm1arFoXlT1wVR/1grUwtUWS/xcBEHP3GIFEa/5klU cGsnbu0kNq7mTRrIjvzNexB1oHD7oWIdxzj3idI9p3T8M031UX02qq//jhaI 15KLCiRmucH7Whu6L8/HSZX/VrM6f6dVsf/UqrVXmmlodTptjwPTI1BCI490 hI5HH1LFe2CE8Xw8ROVVfuzRr6jymkc114ZUz+caUTNqBbF20DKhziuD6ga/ ng8GZAarXrCygFXfO/2yvm2XFaxsb/TJ9jo8vGaW/VXc5ocd+d++9H1c+O1h /5VhBT4YLvwG5mWfvG97NM6mBFpvf5es5YmsrJVsEdU+OWsZEpm6nPWMAQ3U YuOiXE2r1OGG/EYdtu8p3HmkOLWXwqvGrefK9N/VjOu+soMPtDj0UCveR1rz P9bm8BOG2KcsOk91EH6mo8gzBt1nOo0/11niOWPOc8ad5+r4f2yKY6P7FT49 a/foRa8Tz+oAqsln+jscn+pR5qkeZp7k9SDzWPczj3QP0O5MPtQ5oJ0B2ikW dgJkR0B2SA/cT93SbpIFBdvaZHLaYK5eH8GyglhWAMvyMTENYVmDWNZAFMCY pa3sWD1s/qe3/mk+Ov9IUecw9dZHRBij2TidTRcTZDNu1Uy/a15Cq2iDaXIb vvbg64A96wi+TnD2W0p2nzEZ3Nak5VxT1juatd/VvIM6dN5nqnyglcGHXMpD JstHTAmPVA5bzf+2XaHvt2v5h206vdykc6aRg5EnuP4THaE514HMVexm1wyu qj/xXFLNJx66YT3HJtSC2gDNxBd0Alg3gPVcdasXwCwA1gdg1g9csgFYP4A5 AMwBYM63bXK+aZXrDYtcr/dq4LVuuX5kUuj6sIIAFgSwEICNANiI8XupQDby nl+hd7wKGL+bSgG/9ScJW5CtklNUMzPU0A3riF89u2kD8WtYlqtxjc19k/10 V6EO6hJ3j5tPlaIWx+13NOW8p1niNO9+pCXPY634nzC6PGU9egZhz7Q3+pzV 6VNWqE8ZmD9jcP5Mt5OfMQ59xlj0mTr+sF/x973arwroWYdfL/oG9bm565Ie Zz6FsMdTn6LnepTXMz2ceqr76N7UE92BtnNoO8s81OkkwxqkHWNnh1C2D2W7 ULbNhLUVP9BGdEfr4U2tEYGcYWF+LMzLZDXETO6OY2NBrfa7tWyx6HQhWyDs 12SvMlF3diJCP2xg1my8WFyNWbPJcK+VvHs5m7YgbJd95YBaPFKo7UThjlPF u86YHc41ZrmjTN89Zs/7mu0nWs6HWhx4yPz5SKvuxyyQT7TufUI/fqryf9uq +n9vkvf7ncoy1hxfbtX9T+qhizqlVkdMi6q+RrP7xKva6+iGV3WoHjWiFtTG 503XPeoCtB5kBjQLoFmRDdDsuF4/oDlwMdf7Lg2859Tguw6aXL/c79jlfsum oTf7NPRGr4Ze79HQa50KfeS+lP/N/z+rMLxF4C1Kn4zCWxTeoh/4FXnXq/Db Q9/8iu4bL6P2j2Qubpe9YkCOKkq1hsGilkDWEcj6BYK7ooHGDVDblr9tTyHT oSLdtxTH9lMY2Xj/PU25HmiWgM0PPdGS7ymoPaMdPWffes7e9an2wp/pIPpC x7EXupX4nD3tc91Ofa476c8ZoD5Xxw+cinGVe9VBPesc1gvbkD63sPhNvdAT 9Hj6BeX6ePozo11Of6qH08/1AN2bfqa7MHcOc7dh7hTmbuFux/B2OHFXB/C2 l2ajZhjbShxqI7an9ci21kbXlQutwBs7oJ926aVdDiVwNdqlk/3PZtXZ0oL+ 6UUp9ld1ERP2PjZ0ZwOtstEYTDH7xsJg6sTsnU0baJshdR/YDhVoPVGo/RTj P2OkOFfSfJeR4h6D6gNN9z/UnIN4uR4zrD7RivuJVoeeas37TOu+Z8D2XF2v eVT9u5z3+93KsH/tv2PS/WvNOhnclaUmAWBDlyDLx2JTf9OnBtSImlHbTa86 UBe89aBemOuDOSu82eGtH9acsObC1AZgbRBTc2NqQ/DmgTcvvHkv2+V7x4as 8r9tkf8ts/xvdmFg/Zfyz0/8OcWKhxVHiZsI+pJwl7wWUPIjvxIfemlPQ4q8 Ufjd5NdfBu4fqLe4E+DcAMdMVk3l1jJ31BHMeoJZn9NA0yZBZOZgcg11HivC nBG33FbKRhAd9zVFhc5SnfOepwD3TKuB57SoT7U58pl2wi+0F/mc5f8LHce/ 0K3klzpLfcmK96XujH3JfPWlOv7IpeiHQe0xEz7rCumF3asvrBYQ+wLQnsx8 ob/N8XM9Rg9nXqDP9ADdm/lUdwHvHPBuA94p4N0CvGOgOwS6A1rpHrPaDga3 lTzSBga3jsGthTeUG8kBHavjMFO/nxbqTQEda+OATyv9dt1eXtQ/uYjP+fEp 0PUQF3bGOoqynv7ZgP834v+N+H8jsxn+72zcArpdoDsgXscKtJ3SC24r0nWH aeMu08Z9po0HzLGPmGMfa875RAsDxGzwGRvSc66BuPk+ZZ79TFvDn8lfMqOq /8i4/Z/MSv2RWdtvdyl3Bdf7oAfWPHnKLqmxyHdJTUU+/Q21cGxHnaibf+xF faBnA7t+sHOAnBMNgN0g2LnBbgjsPGDnxeJ8IOcHuQC9dPjdfmRX8D2bgu9a kUWhy914meN7SlUYyBkP8BhPn6QBMA16Y0XoRuHX9tNXvUp9MMQWN6BsQ1w/ +S5yluIe2RnDHZUMa9UMazXUby2hrCOUdWsgt6Uh1m1/x6FCjLYRM3Xbd0cp +z2NOx+A3CPN4m/z1OiS/1OtEq610Attjr4Auc+1F/1CB/EvdZz4CuS+Zhn8 msXwa90Z/xrkvlb7Hw/ixiHt1oX1rGdELxx+fWG3gthXBnKzXxnIzX6px+jR 7Bd6OPu5HqD7sy90d/Yz3QG92zMMgdNPdQvsjqcYl+mtB/jc3vi5dvC5rdSJ NvG59diu1iJbyo3SU0P01GAW7KbAjqnNG6WxBbTsdGgzHPg5cisTc5Sjhbhg DnXfrEr0gYZZVOgDzsZ1tA1y+yB3KC8eF2g/oyfcoSfcZfy4D3IPNG57xID7 RDPOp5obeKaFwedacn/K+vQZEyRx878Auc+1FfxcmZ4jVX3frI7fsyjyA4vG 3uhS41vNavmgC8b8akaX1Fzsv6SWYj9B6uDYhcz8gwXsrCBnRw680IUGwM5N Bx665mXv8MoLF76PPMz2HgWuDGkYBT90K8QaOoLzjXzo1OiHDmRHVo1+0Iul uTReE9J4taEgF2A8A/Bn809ATZQXHheZLEVcwyTnnOB846y66fcGtNAcf+27 7bWvuFf2MoqhktZRReuopoprmVFqCWndOugxAbfty8+OHqK1RnpvK26levup XtdDTQ0+1ixON0+1LgVAL/hCayOfk74vtB35QnuxL3UAdsdgdyv1U52N/Uzn 4z9ji/yZ7k7+TO2vuBX5aFS79VE9M4f1gun8C4cd1H4Kcoa+NhCc+5r2+nju Kz2c+1IP0P25L0Dvhe6A323wO5t5plvgdzz1WEcZ0Ju8r72JO9rB8bbSt7SJ 463H97UW3VYuTIsdpcWOMM6FGOeGx8EvxnY6zGbo1Iyl/QK9v69VdilHlRX0 mOVqmeXqkoVdqp6O0EBHaMihTbQLfgcaxOk8bbcUwOlCnXfpDvcZRx4w+T5i 8n2ijOMpu9VztvZPteD+TEtDL9ivPuf8n2s98AU71pcM3F9qe+RLVf5er5p+ 36r+H5hV83qLWt5pV/t77TJoC+h/V6vx9GuJX+2oo+SCPNSHbGS/HwKdN/0a uBmQmyboYQDzGhvltcIzfQGGsOGrAQVR6KOARmiOI1d9GoXKMHttBFOMfIw1 fExHuupA7HXX+5WpD6NRZepGNWk85UCnmoTIDDROweIUJE6VBzRV6tdUsU9T uHPmY7cm6OPLbfEf/wkCi/ogkBqpYI+oGisQWENR1zK41G1osGmHiDIhm44V otdG2Lni9NqUg2LG+KYYUGY9zzTve65FesUKxrc2ahBIFKNfQuBXEPi1fK4z BQZuKzh4rpvNiypizytpWdZ//qFTr705pI8ZC8qZRKqKmXCruVMP5/FA+5Dx w+wn2Z8ZBGZ/qkfZryHwKwikX0PhnbkXug2FZxigQeDJNPscBniQgcDJu9oZ v61tDHAzdaz1xIHWYjvKRei5YdbWUdbWEdbWIENegIXCF2R3HNBM3zcE/isI nKc62Sby2zxVWmv8vxR21XoaRD0Nop5eW0+vrd9j7zqEwBPixb12nNMs7tEs HjCfPGIgfgKBT5VxPofAT9nuX2hh6HP2ry+04vsCAr/U+vBX2gh+BYFfMxx/ LfPlUVX9Qa9KX21V3Rsdar1skul9E1OcO//Ye/vFo+8m1I16UR+yw6eDHugq CmqwKKShmyF5b4zIh/zXRxX4ZFTD10ZZPUcVQiMfj2j02ojC10KsCMH8g6/R 6wFo8yPGNQhKXB9ETsU/tmqmKY5ixqPrjVH9+fzzG1MNYU1D5QxEztQG888I zVYGNFvu02ypVzNFQ5rmNTJXnFppj+nVlzH8dVluUmgA6yhnnKkcB0V2jBoK vJYCr9vECHcxQjDsZHbuOVOY5Sxuu3eB4WNlwHAGE8zSfxeHCxgmhh7IaT9R U9eWroHcJy1LutG6rKrmZdW0rqiO9ztAsJO3b//IpZtve9T8MZNKsVfWiiGZ y/vV2raiVr62gaWxitGqsmFJiTyWZ3qQBcMsGGbBMMveAopns5/qFmb4LYYP wPCedibOtT32EobxXeWim6DI6BcBwzAYjkyCIruGP8QINqApa3uBwv+rQGFF P2HxFzb+Wiq1lkqto1fU0Svqab/1tN/6fSg8krvlljzttxWg/Ya670PhQ0aW x0zJT1nLnkHhp5oZeKGs+3Mo/EJL3i9Zzb6kCr6Cwq+1EfqptkZ+CoU/k5dR 6JNXm1X2Wrvq3zRBYac6P4DE63a1l0IgMqEu47n40iAEBmUvCclZMqKB4lG5 i8PyFEXkvRmR/2ZUgRtRBa9HFfokppFrMchDn0RZUKOK3jAUUexmWPGiUSWK RpQsDiEWCHw1VcQkV+RW6oZDc8YDb61JzbUkNduSQHHNNsc02xTVHETOQWS2 fkRZaJyv9itb6VO23Ku5ErdmbxBePHXVFNWP/gSJNyARO3eUQWIFU04lU071 BYn1hR8ZDLUfygeJQSbBMJNg3H5fSefDAolsawUSP1Nf35FqOzd0pXlBV6Hv GqSVQV9D07KaUAv0taEOPt/Ztqyu9mVd/rFLxZc9arnmk4XCsVUNyV7Zrz7T iqx5LcvasaxuvraN76tvWlIly5GlZ0sR9/G3JM59pluzz3Uy81RH0491MPXw gsQ72h4/02b6ROvJQ0jcUy7ORBhjIoyyhERYQsKQGILEYUj0DLKsBP/JxcKb m1iARAcksvBWE6IairWGYq39tmc463fQASQeQ+IpJJ4rQDcOdT9QuPcRE8wT Je3P2NeeK+P6DBI/15z7Cy14vmRn+woSv+LUX2s9+FNtjPxMW1A4PXBHFe92 6+ZrbSp73aT6tzrV9m6Xuj6AxutsngaCfwEIgzKXhtRXOip7KfN8SUQDJVEN FcfkLY7LV5RQ4GZCwZtJhW4kNXI9qVEURpcU4TN/F/iSwJdUojihRElcyZKY UqVRpcvCaFRjZaH8c9hjpT6N0a4W2ic03z6OxlBa823p/PNSWeCcB8x5oJxv imihMayF+pAWawNaqPZqocKj+VK3soyUM9fsOkks65Xv/qTPch0YDTcvJdLl wFhhwLhEpNcuYNwDxiP5um4B422FmQ1j/Q+A8ZHGBp7IZz9XRVtO7zXO6YPm eV1pMWxwUeWNS6rFygx4GlHzBYjtAGVqL4BoAHb5NaeK3/WolS2qjzk1/39L qh2/IFvn8vdkA8W/ztctAfSiKut43Zp5mU3rWojcA75PdTL7TEczF/DRkXfp yNt05E1mwvXUkXJJ4EswE8aBLwZ8UeCLsAGPJrHCkJa9gzpbX7roxt9Xbhz6 yp0UpfGXTohJ9USBPqNV1BRahbN+t0Bf04kGW8/k6bhD27hH24A+i0HfU+h7 rjHHp5p0vdD04BeaG/pSC96vCvQFvoa+n2o99LMCfeGfyV6bUOvNQRW/3q6y Nwz6un5OX88VkzrBoassqJ7SEdALg14kn7MB8HGXJOQtScpfnFKgKA16aYVu jmn0xpjCN8YVuTmuqKGiccVKxkFuTMnSMbbZtFLlKaXLkxqrSKC4xpnSJirC aBQx77GFLHZOaakzw1tDk1rMP+w1roWOwkNei6C42JrQEv641BzVUsOIluoC WmKmXqp0a7FsQPPFDs1cLzwj8sPvIriSXpO9CASpAmcZ4S4HwSoQrFnLt5w8 gh0FBIdZT0YvEByw3MoPeJcbZvReU1YftMzratOCivEqw69qGN/rwKYB/Jrw xhbU1rakDnDqNBDE43rQu687VfIeCLJMWSu86q8x/oed4xdl71pmJuzvXJY9 ryV4XITGRdXz0hX4UXlVlpdYUzZ8DoVPdDD9SHtTL1E4BoVpKExBYRIKk2wm FGEuBoVRLDCcZKMa0bLvZQqZCQ0Ky/DACiisjBMOwlJ90SYMCmu3ChQ2HH6X wq77VOlDKHysmEFhPxQ6P9Mk/jeN/815vmKTg0L/11D4Uyrgp1oLGR74U9lq YoTApXa6X+nrHSp/s1N1UNh62aCwW71XeFs2oh4MylIWkQ36HKUJDZQmITAF gWn5IWu4eFyhogmN3JxUGEVuZiAvo1hxRvGSKcVLM0qUZZQszyhVMal05aTG Kic0XjWuieoxlNJkdZJtI46iylSNKtuc0nLPrFa6jQcql7tnjKf8u6e1ZDxA 25WBzgktQ+QyRK5gkCttSa20RLXSNKqVBra+Oq+Wq91aqnBpodSumZsWSLx9 8Rd6fv5zmpVUTvYbdGa83FlKyMv+JIn7ckOit+s0T+IIJN5onNdbtRm9DYWX m+b0XktW11mwSww86haY5yCxsUBiI8bYjFrbFtUORnkSO5bUbVpSD3rPIPF9 D+M3JFaytNcaPw9xyN69pF9UP8e/of6uJcBEnYt5HK2orYXz5HGcVxkGPuzY u0DxgXZAcWvCQPFU62OgmN4HR1BMgWISFONZcMQQI6AYCoHGgE7XF//JxbCy OsZ+XAKJ5UFohEQy5ay6CEv1WoHEuj3CcyRX8y0Ntt2Wx3RX/m6DxEcML08U sz2DxE9fIvFLSPySjY5uTCdeoROvspGsjXxNtz5T63WH2vFCU/GQGq7YLkjs hsQeSOyFxF6ZbzA+M0BZyxLqL0vKVZqWG0/z4G++kkkozChUPKWRoimFi6YV KZ7G+2YgcAb6ZqBvVklClaqYUZpVYKx6RuM105qomWLfzShTO8n+O6GpujGU 0jT+PF0b1ULruFZ7Fy5xmNcvadWcRXNaMQNnz0z+Se6V7oxWuya1CpSrpjGt thPZ1phWm0e12jis1XqPVmsGtVzp0GK5VRt9o9/h8B9qObkqG6uRowgOuSFn KQGv/JZD10sc9pr29BPK5o26jN6CwXeaZvVBw5yuMVQX1WRVCosV9fOqalhQ De5Y33zBYSscthc4NHUsqsuwNmSGq/fehMMP4dD4EVcVq3sdHNY78wT29yxd kqNnSd/juMiHBV3iHxf110AVLLsXZO1cUFcbp+b05dUFLEuo/qmRkwskz7U5 biB5rNwYSKZBMg2SKZBM4I6xyQKSIyEt+F06XpvXN0yupOcoUUf+D0E5y+Pf DtFGiKpeYrLhWyaHYNLXXXDH0Z8z+Vxp9pQJ9pQp3HGWTdlgcpE9ZXn4S5j8 Cia/UssnNnh0yVQ0qE6YbLxiVwXOWPO2WS2XLep63yoLnFqwjj5YtNNXnaXj GsRCPKWT8JhRoGRaQRgcgb9wyayipXOKlWYVL8sqUZ6Fw3mlKudhERGvMVI3 QQon6+aUqZ9FM5qqn9Z0wxSa1EzDOEprtj6hxY6M1vqWjef8lvSXOLLtWRbQ PMp++4gnfOa6p5SDzVznuHIdKeXaYsq1jCrXFFCuAS5rXRilncnRoltjC/qj P/E7LfvnsrI29LNlOYvYELkTZ/niBZhbRHtPg0yLV6ik14DydaroTa76ncZZ vdcwq2uVc7pRnVUxd1ZWl1VFQ5ald161TfOqp303YmTNbQtq+5NgAqW5CzDf cqjkCmAWA2Y1YDYMsQM4gc+8CJXmxV+Uo3dRf9X4WHbzgmw987J2z6uvK6u6 xizjIyem5EtLp2TixBOBPW1MnGptHGccB8MxMBxjVEyDYRIM48QqmtDKSJB9 y1H4HZb/Q46bdu6d/aQs/u3UXAF9lcSh5v+bvuFeg77HirIlJwz6XNA3+Jmm hl5o1vu5sr4vtBj4QsvBL6DvCwW59/br/TJBXyeLQFexR92sjpVv9aj67T41 X7ap8/1+6HPKdtWJG44xN0zQkydxwyl5S6chb0ZB8jRSMqcwxEVK5xUrW4C6 BRxwEeoWoW4RB0Q1SxqvW9IEk/YkI1QG05giTNOEbprmNoO5zDZNa64pgybY gtOgZTxAn8MBNmyrxp8SMR5BtC1r3bqsNSso9oFiXwHFnPGHE8zTYJi5eOQQ BNtBsBUEm0Gw0Y09OrVca1W2ovsb/CoufnXIctUj+/WInAy3zqKZAnrVBfQ6 6nN6hYbwamVar9VM6HX88M3Gab1L8XxEeq5Vzelm9VwBvfoCetVMjbXNWTWA XlPrvFowrLb2eXV0LKjTtIAfLqjnG/TevkCvBPRqfHI2gV6zk2VkUr0MxRZk M8/IQfU5uG3s0boAiQ5u3Y5sVKO1NysrHaOvBxo5d3ntnMoqZ1TCSFTEsD4W 2NHaBIY4AYnjFySOsbSkCFtiAlNkwB4JaNprK5D4q4wrfXIW+/Gbi+HZGFnK IbGCsFR/l8QBSHRDopcteZgteeQbEtmSU5A4DomZIbZl7wtgf6GFwOdaCn7O HnPMfmZVxw2HOosGoNANhV5147+VUFj9dr+a3nHK9N6ALB8Oqv+qm548yTVN 4YHTeOAMk+GchkuyCkHfaOkCFC4qRvriXGuyclmpqmV8bwUCVzReu6KJ+hVN Nqwo04iaVjTVtKzp5iXN0LpmcYk50jXXOscKPKNsS4YJcdx49rF/wzis6y9z XEM5bdpzWrev5pFcsy3lkTSehy7giCP2fPP8Iyh2gGL7CI7oA8dBurWdRcai s8zCf32ZxF9TGHjt18Jy3MDqb05zqwu0npzaWZ1fKYnoR6xTr1aN6ScY4Bv1 dGZI/IBMX4XETxifbtbMQiLZr5/7OYl1eRKzamrLqqX9gkQTb9tm1Nw8oYaG hOpqw3rvHYeKP4LEMp9sdZDY4pGrzamOlohMrRF1tkVovag9zFvUHlWfeQJN ymGfV789K7stK5sVGvugkUj0UZi1LbMQOauyqimVYGpFrJOD9JG1SZaXiS2I /IbGWWhkDIrFtDjq0+l27p9dhCVmDlOYXFJxNN8BnWTeWUaRlucKNNa+RGP7 tzQGzAUaI/aniudpfA6Nn0Ljp9D4meb8n0HjZ1oMvmAgCeGJNjzRoS5o7L7w RGMzbr7qU9XbLjW8M6gOVjrLh145+ZzzRowJcQZPnMMTs3jiPJ64qNGSJUhc UrRsWfGKFUhchcRVKMxBIapbg8Q1TTauQeGapprXNN2Sg8KcZltXNde2gpaV ZaDP0rfmSd086cq2ZrTl3L5kPJBpHDbxxS3HBio8pbsOnGv9q/lHtb+BsuCR s4VHsrtfegizPUSb9uKRLvYZqxZru/QdGv+RluObsl4dVf8n0HhjivDP6/0b Yb1SNHrhiSn9uHq8QCMDxOXqKX1YNq2rEPkNjSVG5vM0zkHj3IUvGjTO0zkn VVmTYJCLqKomouraiOrqImqoj+r9d50q/tir1gq/bMavc7Z75TK5ChS2o44I PhqhOHtMkV/g3bD+CoYaB7sJ2fvB0D4nq21OfdY5dbLjlTfRnpkZSmomVVwx pqKShFrqx5SbBMGJHBgSq/SMVpNjWo5FlB3x6HhzRd8wuJpaoSw9cAiLxcaM AoO4jbMUBis3Lxg8lPMlR/TQm/3mBwr1sbHYn8Agu7PrmcYGn2ty6DmG+xwG P9V84FMl7QdqvdYrEwx23nSqm325m3mkuySoHkq/+eowDLpV/45X7e/6ZfmA OeEj48+UpujLWdxwgYlwETdcoicva7RsBf5W4S+nBNNrioaWrlnXWO067G3g gqhpA/42NNWyqenWDc2g2fZ1zaGs8fOHjlXNd6xogSVygea10GH8mYdVbQ/s XdLOwK5x2MEUtwe2888Hb7o2teHc0LohR4HFNTsjj43YGn8iwIIx9mKMPcZz fgnMMZJ/ED7XMQSL/VpuMuv2zMIPXn7W7x+q70pI9o+TclzP6P2rQb1yfViv FIf1I2b0H1eBYA0I1k2yLk/pvZJvEJzWJ+xeN2tmCgiCX2VjwRCrmRpLqlO6 WRFRSWUUY4qqoiYKfjHV1sVU1xBTQ2Nc773vUhHrUmv1cP4P2zlNfrm6mNVN MSbHKC0cdUUvydwd1S9zjKgHmbvCvD/K+6hrlC8N835SFtuU+uyz6rPNqrlr RmUMPKUNGS5vXMXcRhGttrWB4pxYzf+4MJdm50umtBgb1XTQXXik6/fUf81N MY7CYQoOaREltIiSVTozDNYYP0E0GDyBwTMNmu5oqMtg8KGCfcyItkeK9T+B wadKDz7VxNAzTXmfadb/TNnAc/nbZ9T+iUWmGzZ1MRt2F+GBxcb/o+NWSuJ0 6hgMelX7TkBtl4Pq/SAk55URuT+J44GLbMlL8pcuK1i6qhHqIlKWU4yJIVG1 rmT1htK1Gxqr24S/LbxvC/ZQ85amWrc13batmfZt+NvSXMemsqZNzZs2NN+5 roXOnBY7V9ASMua+Ne0OHmjXjQb3eYuMp/uR8Yzy1uCONmFyY2BL6zC57lzX moMa719Rzm6waDyYbrDIGG5OF/6WYHfhwducaYDV2qpdb1DfAfEfK2yaku2j hN674tUreNOPbgT1aklYr16AaMyHBohvl2UKIJZP/RzEG0ZnZukqazDmRD6u SOlaaVTXy6MqqoippCqGD8ZVWRtXdX0cCOOqb0qosTmh0vIRFd0cVmttKP+X Xpzdw3KZh9SF3XV3x9XD5Zt7YjKbY+rNK4ov9pojWGIvrdNsqGcUjUDiCN83 KhOl19M7Jot9WuVt0ypj2ClpHFdJXUrFXEdRaRgaw5DIppfOaDmZ1Hw0qNxU +uLpwl+V9SMnRcn13EiAYwYM50Fyhba8QVsu/K8UA0WXgWLHHblB0YcdDl+g GO1/pITrMSg+AcUnynifasb/VHOBp2q92q2OT/rUecMOiqwoxm9jFY+AYhQl wXEcFP2qeSek1svc2/vY8pWIPFcjcmN/XkoiAILBsjWscF2Rig3FqzaVrNlU ikV+rG5b4w3bYLgDgqhlFwx3wXAXDHc1a9rVXOeusp07mu/a1kLXlha6N7XY va6l7hwCx64l7Q4daw99j+MRc/nu0GH+gegd0NwGyy03myBIroPkOjiuuTaU czLxOC5QtBkoGn+jjzm81/jjEBdP+nZ7sEeHVtp69Oz09A9fJvF/02J0W0Xv e/TKR4N6hcX51RshSIy8RCJLskFiUeYlS5zRtepZSMyysczo4/K0PqKoP8J3 rtHNb/C9xZXQVp1QRW1CVXVJ1eBHdU1JOnZSja1JlVaGdbM4SOMMy9qBCXGl LotPXT0JdZsT6kHmXkNx9VriQGiJGX8pzhJFET5CvWFEwszACJDd3SF1Ypsm IG7snlBZ+6RKWydU0pRWMYVQXE2BlAaVDExoOT2hhURcM5FhHW6tFTj8l1pN rKn/Ywz6OmvzDRaEojk4XGZEXGd63mZZ2WevOpar9RQOz+GQ8dB8X4G+Bxqx PVSk/6HizkdKDTzS2NBjTXoea9pHu7btqO3jHpnyHDrh0AOHw3AYRtReSRpN qv59Zpd3RtX8DjX1XkyOD+Py4BOeIqMlr2m4dF2hsg2Fseho5ZYSNdtK1e0o Xb+jsYZdTTTuabJ5jzaM2vY13b6vmY59GNyHwX1lu/Y1370Hf7ta7NnRknkb bWrZvKHlnjXGvl3teU6/p32v8XjkvvdEe97j/BPYu54j7XgOtQWSm0P7WgfH dTfr4CBTz4CBIq7ooEP346pMSzkrU2IfU6LxR6mMB4t72Z57BnDGPu36/PrD 7zri6aMn+qP3bfrhR+7vcPhjWHqN6fAncPhGmcHhlN4tYVcpm9FHlcbWnNXH FbTzIty0KKYPiebV0rg+KUvgjEn6IazVJFWBG1U3pFTblFJdS0oNrSk1tadh NKqbDOYtjRH1MQU6LKNyWQPqooK6LSn19KVk7kuq12ooIQu6xDHOsGKxxhBA WiOy9AFjHzBagLE3pO7eICyH1Mg4eaMhqtIOHLE1DYxxldRHuK6QbrKixnwx ZeMRTYz4Cs/g/wud792R/SOfHNfYUa6zo9xkYy5mYy5lY6682FEa2VFa6M3t gNh5R56ee/Jb7ilova9w/wPFnA+UHHiotPuhJjyPlPE9Ul+5R+15CK1AyJZ8 k3IrwsTZhbqLk2gcCKfU/FEaCKNszID5LtPSBykgTMt3Yw4IN4BwUyPlWwpX biuKOcdrd5Vq2APAPY037Wui+QATPADAAwA81IzpULOdh5rrOlS2+1DzPYda 6DnQonkf+Pa01Lur5d5ttJUHcXvwJP9o9239gg447vvO0KmhS9rz3WJV2fGd aBswN4Fyw3Og9aE9rQ0Bo9uAcV25l5/7t9OebYyKtnThOWYrnmjBE3vsWjGZ vgGxsKr8RZ0+fKKmSEZXMaUfXnHrR9f8BRiLgRGoXqtM6yesKm/Qmt9isX6X 6f2Dslk0rfeLxy7pnRtx/S1YTMBiQh+XJvVJeVI3K41umFZZXZoNJq0qTKm2 Ja261jE1tI+pyTSmUkbG6+VhNTWzD3fH1A9XTjvDkcFUX1o91rTM3EWvLUW3 NZRkDoRJe+IS78T1SxxB0g6SNpC00aytINmHN/YF1cHLlDaP6lptUMWt2HMr KDaBYj0oVvl0vciloDugo92tX71AMdo5rv6rYVC82NtuvjQi1u5erCn4Yfv/ S9d7xjeWnlee58eqlsN4PLbWQfY4rGfX9v5WtmRJljXjMCNLHSowhyoWc845 Z4I555xzjiBBEMwJgWDOrGKuHLtbstc742973guwulr2fjgvQAAkCNzn/J/z XOACT1mGLzDU/Aqjra8x3vEak11vMN37FnP9b7Ew+A7Lw++gHv0c1Ql1qJPK sBsNsiHpm0oa01UsxTlqiWWopkR81LEvM7tELqAxahHdsUssw2XIZTpGw4cY z30EZd4JVAWnmCk6w1zpORbKL7BUfonlykuoq6+gqbmCru6KJfiYJUg1PcYa td58hY2WK2y2XrH8LrHddoGdtnPstJ9it+2EtXKGc/lrXMhfSceKvxLLSxJR HFIuDi4/kz/HqfwZHrEuj1mMR6NXOBxhIQ4bCnFfFOKAKEQ251425x425x42 527jIdFdJGInidjWh73mFvzT82dw//rMPLy2j8qZVVTNrcEnnt05mYUoUyIg g4XIqgri6BlSuMJC1LIQVxGVuYZoxvjw1HlqDuHsYZFpgorzrMQFJOUsIDVv kZt6CZnFS8yOS8grX0JB5RKKqpdRUruMsvplVHCbZ5XOQZZHBFTNoo0dubtz Br09SpKO/apzCc1dS2jpXhLZsHtRtOWeRbT3LKC9lxXZM8dTqocjdM8MxXLs Zrvu5vTSxfjfSTp2KFDYMIHUsnGW4xhSqczqKWSUTyCteJSO6UeCrP3j90R8 g674CXQnzqM3hW05fd3QlnMPP4iHJGINiVj/DINNLzDS+pJt+RWUXa8x1fMa s31vMD/wBotDbzHZdoSaxHqWIafk1F5OyiMsQ6aH9GmWIMstY4XScmpZYylu sgwZXiKWUB+5gq4YNYYSNRhP1WA05wTjeadQFpxhqugcMyUXLMNLLJLOS7TF SvVjqGseQ1P3BLr6J1htfAI9tdb8BOstT1mCT7HZ9gRb7U+w3f6Y5XdFXWK3 g+XYzrjXJz5O6C0uxt8yFl6OvzHh8prP98W4+KCIlzhlUT4ae46HLMUj+RMc GsvwgGW4PyzK8JhlyIzYx8bcx8bcZ/yMoOuDqrvJwk6OzG0deLW14f7hiynf xrB+lxWoQdWsoQpTGmaYE+XwT51EIHttYDb7ct4KQgo0CMtm5aWtIiiJeEya R2gKr0ueQxgrMTJtnlW4gHimnCRmxVRWYDpH7cySZeRwUsirXEEBg1pRzQpK 6lZQ1rCC8kYGt3Kys4BhroYzL/txd/ccevpUEuCaaKTmnhW09CyjtVdUYlvf Ep+Z9n5WYh/Vz2rsZzX2sRL7WMWSONH0ca7uZRX3cJ7moy9tViC1UoGUMjmS S4ZZjcPI4M9ppaPMFv3Ir1ZibHr/uhKn67SsRAazpBX25lUGxOv9Ntd9+ZLh 8DH66wjExucYannBvvwCis6XmOx+iem+V5gbeI2FodfoZxSplaqwHfUpA6xC OTXJSpxlJS4SihpW4Sq1QW2zCtkuIlZQF6FBR7QWQwk6VqEOYznHUOSfQ1l4 ganiK8yUXmGu/DEWOTAtMyOs0BVqAlpb/xS6hmdYbXoGffMzrLU8w3rrM1bg M1bgM2x3CD3FTucT7HayGjsvMUqIjAX3QEPtZy3gvEt8WNOV4h2+hauJd7gU nzqhEJ8+8Qanilc4YVE+HH+BozEW5BgLUn6Fg9EL7I+csiAfYX+ISXGQzXmA zXnA+PEz/UyJ3Ez7vZybe0ZZkN0cimqNxWj4voDvS325cnoFVTM6FqMe1fPr qF7YIhpH2aMn2aPZmzOXEJyrQQhH5TD25YD4Bfgn8PKkBQSyKIOT51mQ84hM X0BM5iKHmSUOM0scZpaJnRVklq0gu0KN3Co1CmrUKKpTo6RBg9JGDScKDTK5 xVI41JTVsQmzIXcRdz397LS0UlOvGs19arT0sSj7V9AqNLCMtgGOxoNLaB9Y 5PlF1unAPH6T6xxaBznbDMygmX+iuY/12KdEKXNjavUEUipYj2XDSCruR1Jh H1LLR6TThoE11Pes4sWrn8HQpX8k4bEjRoXu+CV2ah07NafnLE7PnFR7iojH MuKxioVZe4X+hicY5MYf5UYf63iOia4XUPW+wEz/S8wNvjQUZUID6pI6UZcy SDyOsyg5VPHpbUhbZmFqqTUW5ya1g4qENRSzIGsiVtEerccAfx5LXYOCYVVR cAll0RWmSh5jpuwJ5iqeYLHqKZarn2Kl7hnU9c+hbXgOHXG92vwC+tYXLMgX 2KBhNttfYKtDvPF9u/M5fgU7Xc9YkE/RET6MLq9uLPsN4yR2FG8zBvG6QI4n 0qeIiUPkfxeXE5/jYkJ8pMVbnE28wYniNR4qXuJYFOb4MxyyMA/kl9gfPWdh kpIjpOQwKTnEZj1ESg6SkoOk5OCC4TjuvnGSko26rRFfq0oicm2XFWlAZDUR WTO/iZqFHRQMrxGVKgSw2oLYTYKztQjJ08OPlegXPQf/+HkEJLI62dGCkhcQ KlvkaLPIEXsZ8bnLSCxYRkrRCmQcvTPKNcxtGuRWa5Bfq0VhvRbFjVqUNmlR 3qJFJht4cvECShkhmzuW0UkEdg8K1HGUJuyb+6kBDZ+elkE1fds6uMKKZHUO EZ1DrE6hYVb08ALFMWeIY/fQLJoHidnBKTQOTKKEoTmtToHk6jEkVwwjsXQA 8YXdiMvrRCXvo3F4naWpR123xoBKB0zV6NAZM4/uBA26WRG9RFhvzj56Ch6i p5SorLhgw2ZV1l9hoOkJhlufQt7+lKh8hsme55jqe46ZgeeoiqliRTahNqmH qBxmVU6wKqdZlQusyhVWpY7i3adtsSJ3URG/juJILaoi9WiNXkd/4gbGZBuY yN6FovAxlMVPMFX6BDPlTzFX+QwL1c+xVPuCFfkCGmZYbeNL6JpfYrXlFSvy FdYYIjaozY5X2CLGt7teshqFXqA3Ro46rzEM+y9jPWkNT4s38C9Nevwrk/nL Tq10WP2VdIj9l7hgbZ4rP8eZ8h1OlG/xaOI1jlmVR4rnOBx/ioOxx9iXE5Vy 9u5RonKEqBzhUD1MVIpP6homKoeJSm6a/QH27T727a5WY0FmG9+Yt3Z6ZcSk lgWpR83cBgtym9pDzeIBogpYdMRgUJoawUyLvnwWfViMvtG8PG6R5xc4gxOX yYsISVtiUS4jOnuFG3qFRalmoakhK9UgvUKDrCotcriV8+p0THM6FDfpUNKs Q1nrKjKYKJNKlohP9ukuNTqIwq5hMm9ggYWiQ9OAlgVGDQlp0DKsZvEJsTBH hFicI0sUZ55RzuAj82geYUEPz7DYptEwxKLsUiKNKTK5ZhxJVaNIKBtEbBGL MrcZeaU9aJSzcQ7r0dCvw+bBE3xs/GjYtsgpViajXJIe3bIt9JCVPXmH6Ck+ QQ+H2B4Or30cXPsaWZnNjzHc9pisfIKJ7qeY7H2Kqf5nUlXWxLewgfexMkdZ lUrUpc5Qi6xMDbXK6WaDVblN7aEx7ZCc1KEyah0t0RvoS9ziJLMFpXihpYhV WcK/W/YMMxXPMVf1HAs1L7BU9xIrDS+hbnwFLScrXctrrLa9hp5ab3+Njc7X 2GS83eKktd39mg1/D5Uuxaj26ES9rx7yuIfYLLnCC8bL/3f0Ev86fYS3o3oT 6Xj8b+FS9XPpsx8uVF/ibPILFuU7PFK+wbHyNY4mXuKQhXkw/gT7Y1csSqJS TlTKOdeMEpWjxs9TGeVwPapmoXKmGVKyMEfYwzvwz6+eu31YmN9GpWqJRalG NUlZI5Fyi0W5KxVl7eIR9QjRhVoEMt8H8An0SpqDD8Okb+QS/Dj6eYriTFxE QDJ7vGwZ4ZkriMpRIzZfjYRCDcObBrIyLQuTRKzWIbt2FXn1qyhoWEVR8yqK W/QobdMjnX09oXSZxaphAGSSIgk7R0i+wUU0DOrQOCi+WaBpWGfCetOKbxcZ YXXyIbbIV4xapoha+SKa5AvUPBpHGdlGyKRhFTJbJiFrVCKJuEyoHkVc+SCi ijqRU9yMrLxG5Jd2szLJq6FV1Perr3H58vRztEcsoDOOCTNlA91srt3EZXfh MbpLT9BdcYqemnP01rM4my4xyLF1hPPCGJPaRM9jDDVssihrUBPXxtmmn0Up R23yJAtzjlpiYbIoieF62Sa1w+I8YFEesSj1qIjaQFPMNnoStzHKglVm72C8 +CmUpc+gqmA4qGI4qHmJhdpXWKp/jZXG11A3vYGm5Q10rW9YlG+h73iLNWq9 8y02ut5is/stRhj8y13KUOlag2rPMdQHn2Ak5yXH7zd4Kn+Lf1l4g39dfY7X Mxd4LD5tg7pkbV5Oic93+RnOWJmnqs/xaPItjiff4Ej5CocTL3Aw8Qz7CuJy nE18nLgcIy7HiMsx4wexjBmPIpcO6eWkPSRnI+/G670NY1UavjvnO8TlJaqm llHNHl4j4ZL9e36HlbnPyhRV+ZA6Rd3iOXxZgZ4xM/BOmIcPq9A3epm9fAWe rE7vhGWm0BVidQVhmWpEihdu8jWIL9ISgzqklOuQVimwuIosVmYuKzOPjaKw WY9iVmVpxxr7K29fpkYh+3pDjw7tw6xOPoIWQr9+iBgTKBvhPDCyygId1YkD D+Sk55jGoHEG0PEVNI0vU0toHOMIMcYeOTaPevksalmfGW0qpDapkFg/gfga OWLKB5BR0YHcslbWZxOycxuQV9LJeuZdkcybh4+N1HwAZcU62jkAdyTo0Uly dWXtoYvU7Cp6iK4yFmjVKbprSc+Gc/Q3n2Oo7QKjHZcY67pEe6ESVdEsgrgO 1CQMsEDHWaAqFug8alOWWaBaao1FusUi3aVYnLJj3nYX5dGbaIjdRnfSLgtK vBy4h4miU0yUPYeqkiNVFUeqGo5UdSRgwxssszDVzW+haX0Lbds7rLa/Y3F+ jrWuz7FOzVYcoTm0D6UuVSh3bUKlexeqvRSoi3pK+r+Dupc9euYLfK7/HP+8 +QbP5t/gsfh8jql/kT4O5nLqn3DOAj2b+hlOp77AIxboseotjiZf41D5ksX5 nMX5lCI2FcSmgthUMGEqiE2F+IgD4/HmY0ssUKbLkTEmzV682t/C16rzr8jM BVSzmddw5qmZW6fYyOfZyBcOpcqsWzyhzlC/eImo8mF4REzDK24B3onL8I1V wzdKzYpdgVcCzyerEcimH5KpQUSOFtH5WsQV6cjCVSSX6yGrIhur9cis0yO7 YQ25TWsoaFlDYRsDPqtTxuqMZRItaFmVBpC2YS3ax5aJR06kTLv1I3rUi7KR s0KFxkSVjuuYxxsVWoohUaGmmNgUnCMUS6in6sYXUcsKLeqfRXrbNJKapxBf r0QMyZlZ18vA24W8ynZWaAtyihpYoXWo7pljhepQT3R/Ij1V9pis2EZblBYd SZvoSNtFJ+ePzoJjdJY8QmfFI3RVn6CrjghtPEN/yxmG2s8x2nmOtgIle3It qmM7UR0/yIobZ3VOoYZBvZZDfm2yjqlzndW5Re1ShsqsTtxDWTQvi93hfe5h KH0fEzkHrMwzTJS/wGTlK0yzKudq32C+/i0WG99iqektVlpYYa2fQ9v+BXQd X2C180vou77EgGwJhU6VKHapR6lrO8rd+1HpJUd1iBINiZtoqvwCisEvsb7w JR5p2ayXPseT6f9F/U/pk2OupsWnyPwzzqf/CWfTP2dl8naszodT73CkeoPD yVc4UL7AvpLonCA6J5g0JziUK9nQlYcUZ58J4+Ho3D7740yZcgUTZz9eHWwb CzPTOIyvnV6gSrVowOaswCab+Ryb+Tyb+cKx1MxFYdYtXiC9W8WtOoSYijF4 Rs3DO36Z+NSwsWvhFcNGH6/hz1r4p2k5wHNwz1llSl1lkltFPIszicWZUkU8 1qwho24NWQ3ryGleR17rOgraN1DUuYHUeh3/vhZ5bPJ1fWtMjSxQwUL27ZqR ddSOki1yFukYi3ScRTrOdKZggTZMiAJtmCBxleyPSjXqJ1jPVC2fhBqqmgWa 3jmPtPYZxDdNI4bozGoaREFTH/Lre5Bf04G8ilYGzibkFNYjK4eY62ZAHVFj 8+jK+DE5N3C4v4fB3h5JNzDE9R9QmV6JcDMZIq2zEHUvFx0Ze+jIPUQHkdpR +ggdlVQNC7iewbTpBP2tpyzcM7TmT6Ayso79vhNVcUMsXAWqE1i0DO41iWoW 7irFh520zeLdow7Z74/RnHGCspgtYngXbUn7GEg/xHjOIVQFh1BUvMRklSja N5ite4v5hrdYaHqHpebPsdL6BdRtX0LT/jNoO34GVTk3b/AA8h1rUOjcgmLX XpS5j6DCV/xf06jm1FtXsIiOqnWoBjnMT/4/eCgV6r8yWz2Z+V/iC3Bn/ieu WLiXMyzcGUPhns78HI+mv2TRfs6ifYtD1WscTL40FK2SSXSS/X6S/X6S/X6S /X5SHMG+aTiCndtMOmBzjKPR6ABeH+5c4/S2dPJLWFfNY5PanmJXDE9GU3gK Wqk26gbaw1LwEdpCUxh5WrBH9O5MLuDlyQX+wlj1I6ubqGZYkHA8K3DMoDC3 j9p5BoUFBoUFQ1DI4xyT1DyI5OYRpLbIEV81wUpnSEhkpSfp4B2tI6Z5Srb4 pq0iIFOPkBw9wvP1iC5aQ1zJGhLK15DMpy+1Zh1p9evIaFxHNqs+t3UD+R0b KGTVp3DmiqrQ8TLG6b51NBO/LeMaIliD6lH+f0yZNWMsA3acOgUdoKA7Jpj/ 65SrYtHht1E3qUEtS7+GpV89oUYV+VwwtARZ1wIS22cR0ziF7LZRFLUPobBl gOGkFwX1Xcivbkc+n6e8kkbkFNSioKKdyKeFhhfxt9Lz9csY7OvBEPXAyhwO lCPlRDlTLlbmJnDlGXu4WprjwWd3cOsv/gdufecfcfu7P8Htv/opbn3vY8S4 FaMwQYH2qkdor6UTGh6hu/kR+lpP0JyrQEVEPSqju+iEYTqBLohn9SXQBex4 NYmcNDj819AFtUR0bZJwwUM0ZZyilGm3Kn4PLUkH6E8/kvahqpi0x4ltZfVr TBHbM/XvMNf4ji74HIstX2C59UustP0Mmo6fM6GvIPtBNXIdGeidu1DoOoRi DwVKg6ZQETePqiy2t7IVtptlLPc8xM7gP2Fv8OfSB1mtMx2vNL3gWPecesY0 /RRrnS+xO8AxboAj3cBL7I29oWO+wNH0OxxOvcGBii6YJL5VDBYqBgsV8T1l /ByH9wfQM/VOchZTiiNHOYvJB/H6aNdoAkOj/DU8J7q3pubREJGMFqojMgXd kanoo/qpwYhUDFHD1EhE6g2MhKfSO8Nch8J4NTUQmorekBTMlTfzzhbwf13v on33Oaom5+kRPvkz7Aqzm1JXqJ1jXJlnV1hgXFk4Z1y5QGLjAP0xTH+MQtYy hrQ2BROpCl6MLT70hU+insFaD2/O6D6yNfhlriEoZw2heeuIKFpHdMkG4io2 kFi1geTaTcjqN5HetMnpa5P1uoncji3kd20hqUGPyEpGGvqmqn9DmryaFcwO Y5zF5RyZxjaI+HVUK6gJ+kW5bkJDrJmgZlLP1lCjWkX1pJAWVUotKumV4rEV yHqWkdy5gOiWOeR0KVDcLWcnGqFPBumTfhQ29qCgrhMFVW3IL2+iT+rpk2qU snU0cILcPLrA3xi5JDySmZwAB2t6hHKinCkXygRuXG/AnauHlZAFLxPnPoKn 8BKNc/cvfoy73/kJTGkaE5h+72Mu3/8YP4CbqT9ifIrRYXSN+HyC8vAGVER2 0zXDqIydQFXsNJ3DnBlPACTwgSbQMZwDaxIJtqQjNKTSMemnqEzYR0X8Ppro ot70Y4zmPMRk4UMoy68wUf0Gqtq3mKZjZhs/x3zzF1ho+RJLdIu85ATlAUPI eFCLbMc25Dr3I99VjkLvSRSHz6I0eREV+WzV1SsYad7g74lPc+aM2cwZs/kV NM1i58dLPjBt8wv2DV3zc+oZtE1PoWl6QgddYbnhktH/HAv1p+xTF9D3PsbW KJ0yRcdM8XSagWeajpk2fuTE9AcH+l8fa62cZO8Ywuvjveu+Ydi//uuSXZoi k9FGddIuvbTJADVMjVJjkTIoqAlKSU1SqkjZDagiZOJjB8N5EaWkJsJ4U1po jBYaDeGfoI2WaKM3Jxd/Kt3bD6RsVa1aQs00u8wMK3KW+BJdZo5dZv4RdSq5 qGBIg+SmIaSwy8jYZdJaFEzQE8joYN6qnWGu0sInlQ6KX+d4ugaflHX4pq8j IHsDwXkbCCvaRGTJJnPTFjvUFhJrt5BSvwVZ0xbSm7eQ2baFbLooly5KaFxD eOUaL9tERf8WK3gDTRMMGWOrqODAXTG+iUoF3TQhRKcpqcl18UFBqnV8i+sa KicplR4V9FU5e08ZQ1fGoBopdFJM2wLyeidR0k8n9Y7RTew4HcMcPthxmvtQ 2NCNgtoOFFS2Ir+sAbklNcgqqJAmivGVrR8YM9YRM1ZmSoJkIhM42ZjjG3Dm 6kK5SbKgkSzgYW1hAk+xeFlb3IA3PfUN+HD1sbSA7Q8/hjlbkDndZC68ZPb9 T27A7Acf43uI9y1GXdY4ykIbUC4OKokaRkW0ApUxMzTTIo3EDhpnMFF14g6q GbJqaKI6Gc3HtlOTeoxyGqkh+QhdaccYznkEZeEJJ4bHUNS8xWTdO0w1fI6Z xi8w2/wl5tlymhNXkHKvFmn2Tchw6EaW0zByXSeQ7z+NwpgFFKcvo7JkBe0N y5hsPcAyDbNCqVtoHkrb8hI6arVV7NMWr6joW55zm+hbnmG1+SnN9IRmuqKR LrHceI6lhlOa6QTzdQ+lL0Oard3Hah9bzQwD2AwD2AxNNGP8tIwZcag459lp cXzuAo2k4uRAEz3cM3rox0YPvWBV79BHrZGi5SSjOyoF/VE0ACWnFJQyir6h pqkZajaKHpqPlJlgQVoiuMzTRL+COa6ztNI0paKUtJOCdhoLZtMKSsExW+D/ Id3z91iPM/QTh+hpxoEZdqRZ0ZE4p8yxI82zI82fsRZ3kdQ4iJQmJrZmOf00 jrTWCaS3TyKjcwqZXdPI7p5FSK6WiY1+YqzwTtqAT9om/LI2EZC7heDCLYSX bHMQ30ZM1Ta72TaS6rfp0W3+vR16cweZHTvI7tpBHNNcKNNdFhNdffcqk9sa hxA9O9EaSse2UTZOKbZQPkEpxcGrFZObXFQbJiino34HZVxL6agSRt/0IS2S eoWTFpHXP4WyoUmUDkwY3NQjR3HXiCG/tbIvNfWgkPmtoLqNbmpib6qlmypR yusaxha+Jz1pNyUnZdFJwj2UiWShj+B6bSLKg/K0Ed3Iy0b4x5vG8vlAvkJW tJcfjfUR/GgtO1rL4js/heVf8ZTpzgQW3/8EfwWLH3xCfSzJ88e2yHbLRVlY Ny02jPKoCVpsBhUxi7SZhjbTM7kRMwk7qKK9qmmlWtqrIeMM9bSYsFcNL2uL 2cRw8hZUGduYLjzAOO01QXupGr7AdNMX6C94hHzfISTdq0eKfTvSHAaQ4TSG LA8VckJmkZ+4hKIclk2lGv1NG5htPTdYi1bSUFraSScs1frCRHrl8j9jrfU5 9cyop3SY0GM67IrN6wLqpnPpu0+W6K5FtuT5+mPqgNrFnPguUfGGoTnxcSB0 Fyt0f1Yc/b5hOPp9mu5S0V2KYeGu6xZlOKbkm5K12iKT0BmVjB5aa5AapaXG qQnq2lZz1Dy1QC1Ry1FpWKHUQpFpN6GJTMN/hCaCP1Ir4WlYpteWqAX6bJ6a DZVhil5T0WsTlDwwGW85Jf2JMQVWKeeYmpgApzmVzGyhdnbP0LvmODTOsXfN nyOdPSq5cQipTcb01yp6F73WrkJm5zSyumaR3TOL3N55xHED+KTTb9yYPinb 8OUG9cvdRmDBDkKKdxBWtoOoyh3E1uwins9kYuMuk+UuZG27SOvYRUbXLqcY 9rxSPfKrltDSIV6JUnMSWkfl+AbT3C5KFDsomdhBqVJom87aNkGpassEJapN srJYtYGiSU5dSk5jw3rE92qRNciClLMwR6dRPqxC6SD7F11X3Dcuua6oc9iY Btm/GrtRWNdO17Ugv7IeeeXVyC4uQ4NiES/efvFdo+uE41yM/cpFuM5VamGi dX3oOOE3bxt2Lx+euQlfG4PZ/Awygb+0WHEJkKwXQOs5//dbsGRXs6L1rCTr WdJ634MlrWdJ21n99cdItI5Ckq0MhQFdKIuYQHnkDO23RPtpaD89KuPY5eN3 UZl4gKrkY9TITlCfeYbGnEsURzMteLEj+Uyh2G8SlYFTqA1mtKSVerKOoGz4 Ej35jxBjU4t4uyYk3e9GyoNhyJyYWHy4xSMXkCNbRlGhGg21Kxhv3sciY98y tcKupaHDtJSOWm17Dj21Rq1TJlyfMRqutz3FOn231vqEekzvXdF7F9J3Damb zhgrT7DU+AgLjcfUIbWHhYZtirGzYRX6wS3DB6DM79J/9N2slt5bZGej7yaG 8eor3/2D0Xcvzy7QHpmILsl3yRig70ai6TtKSU1Rs9E0DrVILVNqSkO/aSkd tRqVRoJEpd/EWmQ6W+VaRDr0kngdDaijNJSa5lumFmnA+RAakSacpgEn2fB0 pc1/bNxpvHZyhmpOZTUqLT3I/MgeXcteXTt7TP+x35EwdXMX7E3sd43Mjk3G 7NiqpAdVzI+i383Qf5xs6L+8vgXk9y+icGAJYcXr8MnaZt/bhW/WLvzydxFQ tEtv7SKsYg+R1XuIqd9DXNM+Elv2kdy2j5TOfaR17yOycRNBRVrkVDHsd6jR O7iM1nE1e90mCsb3UKigJvZMUKTcxR/TbrvUDrWNQtU2CiY50E1yuFNw6BtY QxqbXuHoAqoUc7TxHCpoxfIRNr9rK34tSg6hqK0fiRzCAlIKEJCYg4D4DPjH psIvOhFBKdkorW3EcE+P1Pm+fZ0nD/boQzPJhjfgamvOYc2Nq7stzUh5Ul62 khklL5oIL5rAz0a4zp9rgPVXCqRuIFB0xCDJlt6f3YX9jz6BtWTJT2BFQ5rA mob8Du34CRKtIpFkI0OSXR7SnOpoyRmURS7RkhqUR6+hIpZhnHasSDxEpbBj Gjdu5jnKk/mE+00j1UOBHC8lSvxUqKYdG2nHhrBZ1IfNIcm+DZHW9YixbUP8 PT4z9nKkuE5CFjiL9LglZGeuoLRMja6GdUw3n9GKL6TvGxBWFN9poaF0tJ7B imx31Hr7M+HEp2J5wtF5ve0x7fiYVryiFS+lr/vSNZ9zajujHU9ox0dYbDqm Dqk9aofapPRYbNTQkou0JC04TyvO83SWLXB6EnvK4eu34fy90YbT1Y20YJJk wX5qODoFY8KCMbQgNUvNx7CPUSuUhtLShqvRadBT69Hp2IhKN8FmVDo30hbX baNMpPU3sE1vbhm1SW3Qoet0qD7c4FItW6Rw6BK1QGfO05mzQXQn2+O7Rxd/ KP2nlnTnOd25LO1XqJnapDOZRmcOUTf70NAd586RP8DJroHdUXLnGNJbmETb lJIzMzpnkMUkmtMzz+7IqalvCQX9Syikm4qHVtg9tQjnROeTuwffnD34Fe4h sGQfwRUHCKs+QETdAaIbDxDbfID4tgMkdR4guYvXNW7DP5e/z25b165B1+CK 9PJOMVNozvg+chX7yBOa2EO+cg95k0K7yKVZc9g1s6lU+Rai+5hLFSuonVzk 46QmhEXnUTk2K1m0jBYtHaY9BycQnF+PoNwa3PZJxG3vONzxjMEd90jccQ3D HZcg3HHyxR1HT9yyd4G1oxvcLNkS3SwkL5qbIycxAaN07J8Z3TrS102nmkkO vSGtH9Gp5u+dKuRtK1zqY2twqYlk0hsI4Bpoc23RIDETBltbfIRgK9FfXX98 C9bf+ymsv/+xcCctSnN+G4kW4Ui2TkWybR6S7Upo02oUBDJ5R2pRFrUm7Wgv pz3Lac8K2rOK9qyhPRPcR5HsMQYZ7ZnrrUQp7Vkj7Bk6jTI/OUIsahFu1YRI m27E2A0j7sEEEj2mkRy2AFnyMrLz1KisXsEwLTPX9BwLzc9pz+dY5jy3QmmY PrW0o44S1tS3PxUdsp2+3Gh/wja50f4YG21CV/So0CV9eskQK76S74xR9RTq 5hMOkY/o+WPqkNrHUusOTzd5R2s81WKpeYntdBYacVDFAv05R3/OfM2fhj3B v8c2ec6pL4H+TEIf/TkYnYzRmBQoKBW9OSP5M/Vr/tRRemo9Jg0b1CZ9uk2f 7lC7tOQuT/eofZ7fjxa23RcO3hOLuP7XjJblb1IGq/KvGm26zIlxiTZdoE1n aNGzifk/kP5ZC1SNT0u7w2tUelp0m/bcpzjEzzLAzhqaZ2LdAFIahmlRNs+m cVpUKb24ntExTQsKi7J59gh7LrJ5LqNgYAVFtFQxg2fpiAZlo2yEvXpE1O7A t/gAfkUH8C87QGDlIUI4dIc1HCKy+RDRrYeIbT9EQtchght24J2xCFmlBtVt WrQPqNEhX0DBGAfLsUNkjh8gU3GALKGJfWRK2kMGlSzfgWx0A9lyPeqn1aid okVVy6ieXJJsWkWbVrKTVtCmoaWtcE4pw52gdNwNlOGufwru+ibhrnc87nrF wtQjCqZu4VQwTF38cdfJC3ccXGHq5MaN4CVM6kWT3oQnV08aNT8hAfLunv9i 9GkOU66brcGnNyWH/urXuylFh8KX8qP8hUQzFYYNlAwbxJU2FS5lbQcLw4YI w4by5x8ihLblj3D7yW2a9qewYba1+eEniDcLQbJVCpJtcunaErq2mmpAQcAs SiI4eTPDlsbtoizhkE30ISqZb2V+U0bHjiPNkw1VcuwUaoKmEW3bigDzWgRb tiLMug+RtnJEO04izncWCVGLSElbQW6xGi2165hoPMFs4zM69hkd+4wGeopl ZlU1pWFu1bWJrx3jvEiLrlHrkh5LZt1sF1+Gutl+xaa60X5J4wpd0LTnbK5n 0jcT61pO6PxHWGl9iOW2Y+oQy+371A7P07RtekrL+1yigWfZfJWcQ0expZiS TLujHLo27X+TTn4Lr2ja7qgEGjYJA9FJGKJp5THJmKBpRVOdoxapf2tYGTZp 2G1qh9qNkQxqggO69CMccj2K+UDRoskex/AG4ux/km4gbipMvSeMzoy8TQtv STbmfUQYbKwJ430LG9PC87TwekkTh3Dxv3+XLWeWHtbQwwzAUwzA0/uoEx6e OZE8XDa+awjADWyxjRxAmxXIaOUA2sbwS55ligG0e54eXZRarPBwIf1WNKSm hzUopX/L5FqUj+tQoVhF5YQeqV3biGxgy604QkDVEYJqjxDScITw5mNEcpNE dx7Dr34H7mlLSCrn77bqpPfmtowu0pe7SBk9Ygs95JORSjf/EVK4JsrZpkfY apWbKGNkaOBIUj+rQf2Mho+JrZo+rlGtSD6uoo8jKjthGpwIs8AEmPoGw8wn EGbeATD38qOCYO4dSsXyfDTMPSJg7h4CMzfexsVH8q+pg7OJ2GvDxVIYzdfS HL60sY+F2KPqbS46q5eZOca6e6Rn+o+Mns6lp93paeFmE7Ga0NJidvXk+u+Y 2kRy9U0E2Bo6b5BB9LKN8LJYQoWrw2wsb3IRrg6jo4W/Q62Es2/B4e8/hc8/ OiLZMpl9OIeupqNtqujsBk6xLcjynERx1BaKYznf09GldHQBe3KcyzAdzbjr KRw9gRwf3s6fqSR4Fr6mjQiw6GLjH0KYnQIRLnR50Dzi4peRkq1GYfkK+up3 MVX/BNMNTzDb9ISOfkJHP5G+qHOFk6ea0jAA6+jgVTpXT4nvMV0X3wZMD29K usQWJVx9wb7cdk6/rbedMUefsg+fEAe0c/tDqNuPsdJxRB1ihYPUSucOtUHp eZmWWsJK2yzvWMl+PYrlhj6s9Q3gdHXJ6Ob/Kp38tuTmXrq5n24epJuH6eQx Skk3T1OG9psKNaX9d5y8S+1R+7TsodG6km25FR9yfSQUK+kGTmIzTKSffkO6 XFx/bPydQ8nZ/Ft09U6UjK7m/VCrkqtTDa4OScFiUDI2S5t+37hXqXp8nobm RKvaYPMShmZmLR2kRnDLJxufuqfjJ87J+NglFR+7puFTtwx85pGFzzyz8Zl3 LuxjauCX24W42nEamg25f4WZWUNDa1EyokWpXIeysa/MXKlcQ7VKaF2aomX9 u0jv24N//TECGx4iqPkhQshaz5pdOKYsI6ZEh8KmVdT10KBDy8gf0iN26Bgx VNTgIUdYkZW3TdC0oDdB4/wqfh8NczoaWkdDawkmDeqMjTmysg3mQXEw8w+n wmDmR9P6hcDCNwiWNLSltz8saWgrTx9YeXjB0jMIFp6RsPAIg4U7Te7qA3MX D5rZES4P7A27gW5Iu4H8jaL/LOhRP8nQvjS0j6kZxru78Qe/YGgPqUmL9Zf/ /7wsWTnA1pLN2dZSas6WtLFBJvQyrwg12NjyBsKlm4TzKnEuXOrmYv1ryeXC 42HW5oi1dkGqdRKVzY5dZPC1TT3VQm93QuYiR2HMLoriD1Cc+BAZwStGX48h mV06zVOJHN9JdnYVfb3AR9jPhy9H0L1JhHrOIiJsEdHJK5Dl8xmvWsNo3UOo 6h9jquExpsVXxTU9lr48dVF8gWrLY9rrMdSMzFpKR/+uUnpqXajjyvAN1kLC 1x0X9PaFsPY5fbfRfsabnRIBdHb7CVY7HkHb+RCarmOou46oA6i796kdapM/ 6ykNtQR1xywJoCRSRjkx92Glrg0bnYrrRv0j6eQP8JrW7qO1B6ISOfkmYcRo 7UlqhtZeoKWXKdGkV6k1Y6Leph13qD3qICaDts6gTTPwMDaD5s0QLsYpdSYU J5QpTm/inD98k2fTeVU6Tnl6ytMT6mGscHoa/1Qae7hwuYzzMylCh6+J3k2H 6+hwTWgKloP57wUkfev6rbjHp9KbrTLaxhBa1EbnJuCWVwonwzTc8cnEXZ8c fOyUiE9cUvCZqwy3XNNxyz0Ttz2ycdslHbcdeFvHVNxxlnF6TIOpVy6cEpsQ UjjAlq1DyagOpWOrbNmrdLnB4eI1SsnhU+skCskys0E3UnMbdOcmGuY3UTy5 w3g+CXuLIuQH12I8px5rtTXEdRH6eztN0Ly0gT9B8+IGtS6pSdIavU7N62l3 Pf/cKv+sjulDi+weOdxlebAIjIJ1cBRsgyNhFxKJ+yHhuB8chvtBIbAPDMaD gEDc9/OHnY8vbDy9YePhSXnT8GFUMCzd/GDh6glzJyc42dnQqIY9S4F0eKCF QQHs3P5S9/aXzO5nao7i+AQ82tvjYGbY75xHs3tIZpcMbyKczsVOmN6Lq7fd v2d4C+F3EwRJjhZmDzFK8jsvC+M1YUanm4j1I0RIN46ws5TORUjTuFi/x6st JBCE25jzl8yRbpOEzHs5yLxfgvR71ZAxqMvsWiG718lRuwepbgrkxx5wuGCy cuyX7B9P+ycJ+3sxqPsqJfuXhCwxvSjg/2AaQb7zCI1aRnS6GpnFK2jMn8NE zSWUdVeYrL+i/a9o/yvDt9w2X9H+V5x6r2j/K9r/kva/+sD+l1ij5depa/vT 8zT/7xEB5zwndMbrhE55uxOsdT7CatdD6Oh9bfcRND2HFP3fS//30P89G9Qq L9NA071EzUDTOcEkMAJNSx+W69uwHNuLzcrp6x3RhveQfMvAgMh4DJIDggGj MUkY/xoDUhjUv2KAmKq36Pttyf8ZBv/HCv9n0sSZ9H8mjZ0pef48LtMEFzzz ES65XsZnSboS4s83+FMmeXBJKlxISpfYILggmPCId2VggoydX8Y8b2DCRmQq 83yqgQnkwQp5sF3a9LvSI/ovUC5r4cCbfeYegVseMbjtlYg7Xqkw9U6HqU8W o20uPnVKwmfkwW3yQPL/fTLDLBy3zCNw2zISd6yicNc6GndtYmBqx9HVLg6m 9+Nh7pmF0IJe8kBPHuhRMbFGHqyjiumiemqDHV/smduiWbdM6Not/AeiYAsN C1tIbxtn803C3/0PZ5h+4ooHd13hYeEKbytnOFm5ID63lo5qXtrEH5MBGxIX JB6QBY1C84IDq/DILINVcCxsw2JxLzwG98KiqSjcD42EfWgE7MmCB8GhVAge BAXBITAAjgF+cPT3xT0vL9h5uMPW3QVWXiEMAQwEbp6wcHGGyz0bafi9IcZg E2kXFt1JIAQJSSAIlKbzQOIggJ3f/64ZiuISftfY+PNS4t+zQALBDQkEN96D wNdOmNZPiu8fgEBwgHcn+VtAINTGCqG2VrxpmK2VcL8Vbx9hZ0W7WxlO7aw+ QqSd1Q0u/M1IW6YDgYLvMs2HIsM2i/Yvov2rkGnfQLVSXch07EOmyxBaMvbQ W/YYMU79iHUeRpyrnDO6Apmcz/MCJpEfOIWS0BnkhGrgF7iIoPgVxIoEX7CI lswZdKZMYbTsAMraC1r/AqqGC1r/ktYXX5t+yUR/Qetf0vqXRutf0vqXtP7l v7H+RvuFZPzNznM+3C2u3+J52r7zVNJ6F63fTev30Po9tH7vEUXr9x1Qe9QO tUHpKTU0HDo1PTNExASjAq3fytZf1QltSj/U8T24nN51Nbj/h9LJ7+LVqcH9 Q3T/SHSi0f1Jv5AAZAz2aQz26ez+6XR/Brt/Bt2fSWtm4jhWOD+Lzs+idbNo 4Ww6P5uP6DI+mxv1iutjWl7IBE8SsvkonyZk8dyHyuT1lPFUQkJ8Bv+OQEIa cZDGvy8jDmQSDvaiDSjYIgo2iIK18BSshiZDTRRslTT+lvTw/tv7dyNY3ben 3QNxyy0CdzxoZ89EtvlUmHllcKrNxl33NNxySmYcSMUtC2LjTihumYbhDnFw xyISdy2jYGYVA3ObWFjaxsHyXjz/ZgKs7RNh45AIKyG3dEQU9aNC4GByw4AE 4kC8daR2dht1c9v07/Z7HmSQB3971wM/NvPAT37sAutP3eFq5gY/azcE3nOB 1z1XONi6I4APK69/Fs3LW2hZ3pQIIZJD05KBDyYSHb4Fz/Qi2IXH436EUBzu hxv4YB8eDXvy4UFYJB6EhsMhJIwKhWNQMBwDA8kGfzgF+MLZ3xuOvh645+Eq McLaK8AwJLi6wNbG9BvSDP0fpCk6xKhgK3MSgiIXgkiFIFIhkPNASVwCHu7u wbAZPnqPBs/3EhzxkmKCFBEoPzvjDjuCgDPBh2SwwjcQYmugQphRAgvhggER BhBwibpHXEQJOEQxJvyloANlISne2gsZ1hnItCukKkiHelKhhepEpkMvMp0H kek+ipbsQ8Q5DiLGcQjxLmLWn0CWH+eBIBUKQqZQHD6NiuhZVKVqkZu2iOa8 ZfSlTqE3RYWOVBUUNeeYqDuHsv6cZDgnGc4x03RBMlwYyNByQTJcSGTQCDK0 fUAGaa5fJw/+iHS4oM4lMghtkQqbggpdQidYJxXWeh5B3/sQq33H0PWRDP0H 1D60A3sUyTCwyVM9L1NTi9D2kQw9JEPXCO+/F9qyHqxlDmJV1gdNYhd+dv7S 5UM6/B4Wq+tJhniMkg5y0mGMZBBj/79LBjbsLeaAXRJhXyJDFslwTYXs91QQ TJCIQA4IFpiQBdmcRZ5xfZb4lZ4bf36emMVTipR4KinTQAvqioS4JCG+ooSM JPqKELtRqdgmITYjUrBOQuglQiThXDH3Tekh/hDDfd3vX6m1uf+ABAjCHbdI mHpwjPZMgrmXjMqEhVc2zOjwW/fj8NmtIBIiBLfvkhCm4bhLSpiSEOYkhIW1 gRBWdvGwJiFsSAhbhyTYOVIkzD3nFNxj8PCKLkdmt3jL8yYpscXQsP0VJeZ3 SIhtJgYFCeGJ/27miU/MvPHpP7rj3m1PeFp5Iei+J8Ic3eFPuTl4wtXBAyGR yaTEtjhen6z4Bs9vGihBNZIU3pkluB+ZaMIlgQPm/UgDKOwjYvGAoHhAUDiE R8KBoHAkKBwFJBginBginIIC4BzoB+cAH7j4e8LJ1x33PZ1h4+ULaw4YVu6u sHCy5Z2Gi51xYiT/1fc73UKICUlERQhRESyhwgwBDBCPdve+aaTE8cEePGy+ ooSX7XV6+IirxXtS+NLX/nZiMhCcuHlNCgkUISIyhIolTMIGEUFZkxIGRQrd s75JWFjfQPQ964+4WOHbAh6UpYSOa3CkW8mQaZOPLNsyZN2rRdb9ZmTZdxAY PQTGANJdBpF0vwd5TnJCYxiJbmNI9SEwGCMELEojp1ESNYPy2BnUJc6iNWUW XbIZ9KRNoz9dha5UJcZrTjFRe8ZJ4gyTDWeYkoBxjrnm8/fAWJaAcUFgXDBO iI+rWGVwuEFoXBAaFxIyTBgYzvGHXM+kCLHZJURYdBMWPVQvgdH3EPr+Y6z2 H0E3cEgRGIMExuAutUMRGIMExgCBMUBg9M9A16uUgLHc1oOtghFs5g5hI2sA a2k90CZ34Mvzl3A2UOOvjdQ4nJr9gBoJUp6YYJ4w7CyUkRppnCauqZGBbeaH XeqAOiItHsZm4+SaGCTFRXwOnZ5Dx+fQ+Tl4mpjLh/ssMYdPwXOuL4SSxE8v pcteJmXzXDYvF3QR6//2CxQR9MjAVYLIGIIeaSSUIV8cUfsk2150KnZIjy2S YyM8meRI4piRiC8fneM/SY/zf5fChXhJ6vqlY7EL2+6+A+64BMOUCDHz4Lzg kQwLTxmDfwaVjVt2MfjsMwaR28G4Q4TcYcgQ+DCz+BAfsbA24sOW+LCT8CHQ kYz7RMd91xTYu6WawN49Fb+D2PIh49vlBEF2SJAd1C8IguzA2i8Vf2fqjZ+Y +eK2uR9uf+wFe3NfeN/zRYiTDyLcvBDi7gkvVx94unnDw9UTqSV15Me2iRQ4 /lCCSN6gCjZhpEVUMuyjkniaKEACe3LEnhR5EBkHB1LEISIGjuFRFAkSFgEn UsSJFHEODqYC4RzkD5cgX7gEesPV3wNOfq4cSVxh4+1DipAgzrYIs7wt8r7o /CLUc/K3uZ7vLYy78sUoEiodyBD6nihmCGLwONnbw28a90142JgaMSLJRCLJ r5MihmnkK5qI7GEgiiF3WJEmVtc0kUJHqK21AIq12OX4AUxMBEpuGFFyX1xL oEjnYu6La2PuCwTFkCzinOBM9PXpPT48gZv/G8mWEciwyiNoSgmaGoKmiaBp R9aDHqTatiPNtoPQ6UOh6ygq/aeQ5CFHqu8EMoM4q4SpCJgpVMSKg4emUZc0 g+aUGXSkzaArfRo9GVNQ5c9Cnr6E8fIDJpNTziyEDEFzDZl5arHlnJA5l5LJ NWR0lMCMvv2cM8s5gwn58kcSXza6DLrmy4aRL+tGvugHyJhB8mXogNqn9qAb 3qW2qU3+vEqpoRtcJINmGV6U0HSPQt3Yh50SOXaKhg3frpbdh/XMLhy1ThkR Y3i//n/Ga44tgyy6UWJmjJgZjzYgRiW9umh4u46GeFml1jmqbBkRs0+8fA0x xIrAy2WCwEsu8ZJLPOQSFblERi7hIVDzMinXBK+Scm/itTj3WmLNK66vjKQx UOY3jJQx5JP3dIlP/xpdDqSdGanMJinYjkh+T5e9ssZflx7dn0iNUILKB2AR kfk+4WLqHAwzV8LCPR4WhIulZxqVyWk+B59+EoBbnwbhNuFy924oTJlNzMwj YWEZTbDESGCx+gWw3HOinQkWewkqKRJTHlAmcCC2fsg1Db7J9Qa6kCx184Iu u0hvn8DfmvrgH8z88LF5AEytA3H3li8eWAfA1yEAYW7+iPL2QwSt7ePlT/nB 29MH7qRNy8o2miVtoWB0Afcieb98OuyjBV4MiLEnYuy5ZR9QDkSMY2QsRbwQ MU5EjDMR4xwWDufQMLiEhFDBcAkOgGuwH1yDfChmogA3OPg4wdbbk9OMGyxd 7BBi+hNuPNHlb341INhKMgDnphE45tLrCRSdbyXGlVBLM4R8xZlvGHd7aB++ hO7RK0k3oHv4ygS6Y3H26dt/lgYfT1tT8VZ3Uug/wpurAUDm70F0HWm+gpDV 1yBkImHopmH6IXXCDeJ/e89aIhAkBCHqvoE9JmL9SCDolyTu/CVXS0EcSbG2 jki3yEamVTGybKqQZdeANKt6pJpyILJsQe69bhQ4DaDIcwRNEXPICVAixU+B jGAlcsKJnEgqfALFMSpUJUyjPmUaLbJpdKRPoTNDhaXKVYzlajCetQxF5QEH oVMJN9ONZ5htOpNws0AtGZGjbjsncs6JHKr1lMg5hV7aHbJG0vwxqXOGdYkz pxJnNnrJmj6ypv8h1gbIm0GyZuiIOsTq8AG1j9URsmZkh9qiNsgc8maYvBky 8EZL3ix3j2CjRoHdciV2S8ewWzyEnYIBbOf2YCO7AwetSjh9HTpL1XUYiYr7 GnAmmWlm6ehF5hk1YaMjbARwNjkB7RA0AjiHhM3DOAGcHCNwcgmc3PfAeZaY R3LkMcPkETV5pEoeBGXybuBNch63/Fuub5NzryUuzuVs/VoiUI6Ud14kGSal p9STRCN9KIk+8aRP3DV9UkmfFNIn2UCfsCSshiTiSjn3a8bdp4I+gjyGV+UN L+SJKO5DPTASyJwEsnCLh6U7CeSRxuZNAj1IxS0S6PZnjDa3Q3CX0cbMLALm jDYWjDaWNoI+cZyyBH0SSJ/Er+jDWPPAjeTxSJW44+AlM4Gjdxp+H04+aXCk ApKqvgagwOxG/J2ZP4ejQHxqRehZ+MHM1A+OdkHw478Y7hVEAPkj2tMTAQSQ nx/B5OsHLx8fFI3Mv4dQQF4lwZN6g4s4mFsw6AE37gOOu2QgN/VvwZFdxon8 cSJ/nCOiqSi4cEhyIX9cQkOpYLiGBsI1xJ/yhVuwF9yCOJcFOuOejxvjDdnj ymhj9lPR/U0kIzIs2BksGSXNMlF2Iuxc4yiCT3YEGSQ4ZIJwa7GnJJwYCiOE Qi3MEEwIzS9ooTsleU5fo3hi1wQlE3v8s6VcSxUGmaBsfA+/grKxPZTJqdE9 pDTM4mOHeHz8gLofD7t7nrCz8xTv0ni/Q8ab/5LPh0yyex+MDDtkbny1Q8ZO IOoaSLwi0siiKEMiktYYe0MmEqe/hFh7DmCx9lb4cwlQAk8SoqhkixhkWBQi 3bwMsjulSL9TiRzTBuTbtKPIoRcl7kMo85GjPFCBnnQtkv04cgUpIAsaR1bI OHLDxlAYOY6SWCWqklSoS1WhOU0FVcUqFMV6yAt0GMvXQJG7jImSLagaTomm U6ahM6ahM6LpjGnojGg646Na4fpnWGkW75A6ga79BPqOE2mvrJ7xZ41YWiOW 1qT4Y8DS2i9iaZgxSGBpRGBpD6uju9Q2tUltUHoiSqBpiaPXLNREk7p9DHs1 c9irmsJehZLJQI79kkHsFvYxFnVhPacVP7t64Wig0/eNr+UeTs1gmEUqZ7Eq 2Dwnog10miad5kmnZdJJS+lJpw3SaZtk2qMOSKdjkslAp9yv6EQiPUnIk+j0 IZnIJYElE5Io/wbeJedz836eko931OcpeRCX5XEsEbB6IykHr5MNpJIoRQlK PZYolSlR6oyUOmFGeihRKpWUSuEERkpFCkolYZ2U0gQn4IuT81+VHu6ffo1S Hr9AKT/KgaQycwqBuUsUvRcPK/cUWHukw8YzC5YWsbj9aSDu3AqB6R1SijlJ ohRzkiVzkpVtHKzvxUukkijl+CGlUuDAfORISjl6Ud4yCVFOvml86M5+6WwX gSnVqFswTGGBOU3EVAD+/q4/fnLHB6Z3fXDfyh9uD4Lg7x6KUM9gRHoGIMbT FzEeXoj08kaAnx98/P0gq25Ai3oHPjkVsOdmfBBNEeD2kpiX2IAeUA7klSN5 5chh24lyZgk4R8XChbxyIa9cBK/CI+AaFkaFUEFUANxC/ShvuId4kFkucAhw h60PuXXvNsLNfyqZ84aYXzjK3LO8YZxaiIdfM0Ym8/eciiChfO3s4fzAE7fZ GBxiSlGiIoSoMtWeCcon99jJypV7qLiWOGSjgpD6DVQQUhVElENEKT5zisdn jgn4zIF6kIjPGFQ/5YYwtwvFPVsvuNg6vN8DZMCS9FKy+E+DiaIQKlSazURW uolw0khwKVKSDf//+zYSlmwQbW9DINlIeOIVsfY2NwxoirO3Fj9a35Ag9Wfv IRVn64SUzzKR+pMcZH5SjLy71Si0akQxx7VSl16UeQ2h3J9wCh6X9veUJC4h 3mcESQGjBNQoskLlyIuQozBajuK4cZQlKtBZtIq+gnUM5OsxUkBAFa5ivEAL Zd4KlAWrzE6EEwE123TK7CSOpzhjdpIAZcLllFZQt51C28HYZOTRKk/1HMv0 5JKeXNJ/yKWhD7g0wvFMcGnUyCX5DrVFMTLJ16GT2KSBdngJarJpsVeBzWbx 1V1L2K+dw371NPYrJ7BfMYr9sgHsFfdgu7ADD7uV+Bqc/giDTO1yzmvj7KcC TMpow9u3Z6VZLZ3RKYOzmohOmZzVsjirZTM6ZeOIUHoUl8sIk4vzBAGmPAOY EgWY8gmUfIIpH6+IodfUG4pckrD0LqXAhEQq+Aa+SMk3kdj0O7yQESrFQKZX pNJL6nlyNp6RSk+SDFS6JJXOSaVTUukRs9Pxh1RibtqNTMIWqdQclIne4i4R 9H9Zepz/gON9QSXT96+DXu/G9GFn9aP8aR7H+44wJ5ksJDIlwJqTl417Oqzs k2FuHo07nODu3ub0dlfkJ05vFqQS85OVTZy0W0jKTzSG2KN838mwS8jeSCUH z1SJSk5GKjn7Uf7pcBEKoAINp0GpVahf3Jbo9F85tf3dx964dccPNpzinB1C 4OUeBn+fCAT7hiPCPxTRAUGIC/BHvL8PYn09EOrjAVlVAxIbuug0e7aXXyaJ SCc+TfbX4tPlQDo5Uk4xSSZwJqK+CRcCyoUp2iXSAChXwsk1IhKu4eFwCw+l gqlAyh/uYRwYQz0JKFf+646w9XWHO+EUevcfvoHY+4JL9y0lRF0POBbGJHWT qzlcnTxx10u8+TzRhEsCb3rXk4yMK0XFlEhHYr2JSq6VBFXlpCQTVBFPv40q Bqkq8ikkrwu3XOJx21koAbedKMdE3OZGuCV0n7pH2SYy5IZyBPb6+hBHEIVQ X2HpG++xJKHp/nVgIoWiBYWuecT/LfaBDeK+0i9xIZzi7K1MJDj9LZ+LT+D1 ve8i4Ue+yCSY8j4rQ5F5DUptm1Dm0IFyd4LJZxClgaMoDJQjO0COvprHaC46 RFbUNBIDhiELGUFm2AiK41WoSV9Ga/4OqmQ6NGXp0Zm7hv6CNYwU6jFGWCmK tJgsUENVpMNU1YEEpzkJTqdMTqdYIpMWqSVSSc1hTssBbrVb6BQ6UmlVej2b IpVWSaVVUmlVUGn4iEnpENoRavQAWsZVnZyDHKmkk29zqh7bxG/yrICTHpoR LdQE09LADJY7J7HfpDN+/S/hVEc41UwRUAoCagT75X3YLevCdnErnq5swsEA p++9T07TGGE1SnCKSiKcmJyiU6XktEA4rUjJKYPJKZNzXRaTUzaTUzYOCadj znMnhNMZ4XTxHk755Ek+k85XcHqTYgSTEUqM+l9w/TLVoJ+JU/58Qzr3xzyf jy9SKUJLgOsd9ZZ6nWLA1gsjtp4SW4+JrUsGqgui65TYGojJRz+VGFFOVSAx nArj+dAyxIeUISao9IN5YBelw7sYXOYGOnqN1UPxtRXiaflzcuzuv3nR1vsD jgVSTvfIMscQWDpHwcrFyDK3dClhmZlG4A5nQVOyTEpY5iJhcQ605hxoG8+E ZXh1zLAXKsXAMVex90kmzYASx4zJSuQqZ/80iV2ugeKdw65B6ZzMfOnkz8wj 8Pc/8Wa68oe5TTDuOzLleETAxy8S/kFR8AuMQkhwBCJDwxETGoI4TmrxwX7I 4bTW5sk05BtLdqWRWbKbBJgM35Iw5kg5xaZQyXCOSSK9kgzsio6HK/nlyoDl GhlNRcEtMoIKg1tECBUE94gAyhfu4V5kmBv55QRbPwar+7cR/NmPjAmDJr7x FcW+IdHLzcULpj4JMPNNhCll5kNymfkIcpl582LCLKNrltuoclpwakoMfNVc q4mv6kmBtGqleHteNdnlHF2KO4y+ksitu86JuOuUiDtk1x3G2jtk1x1ugDtk 112y664NZclR18pLmvE+5Ja04+k9s2zILBuYvCeWiZSjbkrIEsAy6qYg1keI f8AbxD9gnCK78DdwJ618/s8/RcKf/yXyfvA3yPk4B4V3ylBiVYvS+80od2pH mXs3Snz6kes9jExvRic/OWpkjEp1V6iUraEmYwP1WVtoyt2WaNVeuIvO4n3p fGWqFo2CXHkkV+EaRov0GC9exUSxDpOFakzlLWG6ep8z3wlnvhPMt5yQWCdY ENRqP8MKiaXhfKfrOYOWs56WxNKRWDoSS0di6QaOoeN8p2OOkmjFHKUZPTCB Ri42h3Zsh9qmxMdvaCVqacc2eO0aVkY1WBpaxFyfCpvtmg++NZrkaiS56kmu OpKrZpz0GiK9erFb3o6TgYmvU+sPsVxVK0UqMespowzEmuKAMMtSvo5UOhJr ncTaIq2kSEViHZFWD6lT0ur8/+PrPuPbyu8z0T8fcsaO4yTO3bvJJ+vcbDZ7 7cSJE6d4r5PxeIpn1ChW9N4IsIMkOtEI9t47JVaJEtWpLlKieq+jQlJ1NMXT e9MU5765z/8AlKix9754ziFBEgRxzvme5wdAELV6lVq9zrwRbaFYLaSlhcS0 UKwWktMixJLAElwlEatW0vUpl59JaYmnUnyNHyVJfv0Rvy3u10cVdIt5X7jF vMO8RbveZC5ykBws60RloDcJFWV97AYVgV6mBxV+xsd4exDzdKHc3UXCOlHP SbiXZ+Rezgu9JKyHd3gP22vPFLP9BrRFHVAos5Mkr56RmpcQSzzFExcrC06m mMlky8ky+iHnSV0h1LKwgWUFkZnmRWpiLswQ7StjafuiWDzZK3WLT8hRLHNC rGwhFrXKqXrYvMySWFUUq0ryylrMlFTDmB+DWl0K86ocNGprWBh8WCnn7dG7 obWxCuX7kFPsRwFnN2txAPkuP4pZkzxkxudlGyMxO6rr0VTogd+SiyJdHme3 CHQsqskSYX8JPZcGxphgzMQWZiZj5kAEFjJm8ZMwPwnzsYL5SJjPy7hh85Uy xbB5SZg3D9kezodu1q5SIzROUqZdhZJV/y4EQ0hEJ0pNSCsTqMkQf1wn2+JA Rl4IGfmRZGQURPCHyOQyM5/JCyOLnmXm8ss5IfTNEi6RQzcEZEkYoGbi3dNu YICeDVCzunWHkcqZMpWOpYnwRJNmEqGRtCxVhJal0rJUbp40dRRpyijSFYyM hmaEkKswJhwTbrnVQqtFx0QWJYsPgwgIwLTiW8lYslS+uNQrEErkSbFM5kKO p+FKWwELQfP8+B9Q+08/R9fTT2No1QvoTc1Da2pnHDbtCDqM69Bs3oBa0ybU 2rah1kHc8ogb58OR5jl0V1xAX/UlrKm9jKGGlzDaRNxaiFvbDWzsmMNk5zy/ dgFDdecxsYhb+wXs6ziPAx3nMNNO3JqJ28ANzot3iNsdHBu7Q9zusI7dwUkO iac2MBN3cHojs+k2zmxmtt7CGaJ2ZvtNnCFqZ1jDzhC107vmcHr3HE6xhp2m amf2XuM9cmbvVZ55z+x9ibnCyy/z6xdwnIPi0e1HCeYpzE9cxdzD/4icuo0K 3Y6zmx2mcOxqa/ZwgNxO4TbiWvcoPn/jLV0ct3+RVn+N9++9jF0eVjJvvJJN +zgvikrmr8JR4naSuJ0hbheI26VAvVTJrhO3ec6Kt4jbHdaxe8TtFcL2GvOb qKhkj3B7T8Ktlbi10qhW4tYq0SZgS5JoSyZqrfg8kWRp+UMJuk8TkXyrZKXj +n0a9x4jfNsfaUdNsBc1oX7UhPvj61AfqkWCIr2oKutBFaGrInRVvi5UersI XaeEXL94XKSfyq1CP43rE6FxJbUbsVIXwkoNw+qUoSyFSm5/+No5UccWcSsR wGlLIDP4CBzRMpdLcMkJnEIelsbL9NXuOHDSg17xSqYQlUwTlV6wpBYvVpJG S/Gw/GIlS+CW9zhuVgm3KvacKugdEejT85GfVgiPyoWanBgGIj1I0bqRafVC k+eH0RngfEd43D5onX6YSwPI4SxY5PejxO9BRSyGyeZ+VtUAggVulOUUSU8o msziZYzlEnT6oHiKgB/8OX2rhInOmemcmXXNQucswrkAq1ogCGuAvy7ghy1A 43j1toALNn8xsn1FTD6yvTl0jsa5TLw5FmTTOHf6s08I3MRCerjbpKdfITom ulgmtU1GVhEHvsJ4kiCjcH8BWT5tyxH/1tmLvLp+hEa3o7R3HG7GI9LDdI/D 28l1x7jU6FYZvVhlYPQ+FjQ2Z3MEGcQtnWUtnbilybm5ZEyWKwkZWS7BKbdY hqIcmbIoMjLD0GSWIl9hkGR76JooZj7JNOmhLp1SCjuntAxyGdTHIzgTl4UT vIl1krR8irqtRPa//QsKf/QTlP/9v6DlF09hYNnzGM9agUl9KrbaM9GjrEBr Vj9aVEOoU42jRkPlDJOotWxBjX0HanKnUFMwhRb/UXTFzqGn6gL6ayhd/WUM N1K6ZkrHCjfRfgMbhHRd8xisucCKR+maL1C6C49L13Eah1pP4GDbGRwevY0j Y7dxdPw2jq27jePrb+PExG1OhczkLZzaxGy5hdNbb+IUhTu1YwGnKNwpCneK wp3cLWrzyT3XufVOUrhTD3OVeYm5wq9ewnEqd2TqFI5vPRn/X+433sDchmuY mxD/G/TFhHSn2OWOMbMU7wDF20XttuDGwDrcm9r7mHJ/hVsHZ6UKt98br3Az vniFm/VXJwbPWg6edZJylyXlGnCDwi2EhHJNuBtu5uDZLCn3OnWTKhx1e4ea vce8z3ywKFxFG3VrE7pVtnF7f87lF1JapTyQlBMf/bFkndBPKPeJkI4R0n1A 6WaiHagL96EuMsAMoi7KdbSf11sX6cefctmHWkaIVxOigsEe1FC7mkA3qild lbcTFZSua+MJDPLkPshBZYDYDbDSDeyhfCmGEJYjRR+mGAzVSuFskiIX73Lq kJRbFE4885SpKZaUUxhDCeWiUEjKRX7P4MkKJ5TjdUovy0xUOOn1VOLBs+xH Q6ckXP5S4RjqZswvh0rrgyPDCRcPyxAH34rcIGqKo9jZN4Y8dzXSHKyVhX4o WN3khV6onF5oSxKvqxSVjso5SNHg2p0odFei1F3O4TSEMlY+oZ03txTZ2QGY yIieXxPIGZkkmLj8M5iDpC5I5srIXFmEtIWZEKxlZQypK/PBVhZnLruMzAXI nJ/M+cicl8y5jdCVWuBOfQp++XKEWeGe5MEuHpcSH+tzWEULQ3HeiqJinQxZ EQdROS/5DsdRMpXtQoqlGKuYFDPXRif708A4C1PfOHehMlIXJHVBUhfsGseL GieWqUWKsVxVjGVKhsN6SlY+UlYauZ3EE5DpqQ4OD5lcZq52ICsRWYoD8tRC yNJdyMribUoLwZaVA49knFIYJwTzJ3xbjFAuSSiXJIgTXU0pSBMLAz8NGwRu +c/9Ctk//lv4OYvW/+sv0P3csxhOXY4J9WpstmZgW74MW0vkWJtrQfXqDlSu XoNq2QiqVetRo9uIGtNm1LDK1eRsR1XONtSXHEBn9Cy6Ks+ht/oCBuqIXMMV DDcROVa58bbrWC+Q65zDpu55jDZeZqU7h/VNS5DrPI/pznM42Enk2k9gtvMM Zsdu4TBzdJxZfwvHNtzC8Y23cGLTTZzYzBC3k9sWcGL7Ak5OzeMEcTtB3E5I uB0nbsk4vvc6TojsEzXuJJf/lZ9f5eVXcIzAHdlFWLcdw03OuQtEc37TAuYn idxGIrchgdy6sxxYidzYUWJ3iNlH6DioDrHK9Y88Btz/hSme40WFO+CNV7iD BO6QrwqHCdxxVjgB3DnCdpG5QtyuEbc5Cbgm3A7HgbtP3F4lbBJwxO0tgrYI 3AeE7UOiJnD7pKItbtsT9KudkrVLvj2obHsCD6r4tS+qWvE9fF61aBtNZGbL O9AQ6UUjHesMdKCzrIN3zkBJvVjUwYWB4lr0M+2+NrT5WolfL+pCPaglbHVl 3agNdKHC3Yqwsx4VDeOIrN0OD0/uXp7cve3jPOrr8Wu5E7+WFePXWcVYqfJh hYLh0JemolIKJiuEHJ69S8WrldUy2NRWyPRx1ZSmciiFWPweJb83fXUpMqha JlX7ncFU/2gwFarpbPGXU0hPUuZVPhxK4wOpeGiNg6gpCKM2gAK1j4eMBzF7 GWqcETR4Y2gMVaGvpR2HZ3ZjhcOLZTlerMjxIK3AgyyqpizxQOPyQOtxQ+Ol blXdyK5eC6O7BjmeahR5K+HylMPnom4l7HaFZcjh4GfPZudzlMHALmcKVkmu CdUsLHAWFjirUK2MqgWpWjAoqWYTqgWpWlCoVsJQtQBV81M1nw3ZVE3vMsOd JlRbIZWXiJjRIoTtB3CZDWxorLlFYcj558kJtjwvAAUhU0opRaYpH+l6BwdJ G1Kyi7HaVszBs5j7QyqZ+wFSCV12pB7hgXEpkX6G3EWIXZTY2bgbL9c6sYIn pRWEbqXALs2GZS+oeB3LuUzGsl+rsXKZjtTZxFsppjtYHNMc3DHlaTlQpMaj XM11WinkGTzrZZQI5STkkgRySUI3MZgqk6XuJsmGkEEprb8jdMOz7K+rYP+3 f0UxZ9KKf/w52p56GoMrX8Q6eQomTenYmkvYihWYdMvRV5SFCnMmQkorYiv6 UJk2jCr5OKrY4qoNm1Bt2Ypq+3ZUZG9BNHsS7ZHT6IidRXfVefTWXCRyl7G2 USB39RFyHYvIzWFD+zW2ubNY13Qem1vPYydb3D4CN911FjNdRK6TTa71CA6t vYbD627iyASz4SaOTt7EMSJ0bAuzdR7HtzM75nBsitnJcCw6SuCOckQ6StiO 7b3+BI7tu85z5DG6dnTPFRzefREzO07h6tYF3Nx6DwvCNpbB+c0LmNskbOOo uuEyS9wF2naGOcFwTF3HMXVsN31jeRsaxzuXLkEbx+2fE6+TkmZUdxn2ifbm TbQ36d1Sq3HEX4MT/lrOqHU4z73iUqABL3E+vS6AI243idsd4nYv0oL7hE0A 95vyVrxJ1N5m3o21caZsk3D7SOBGzT5lPmMk3araKRtT1f4kvuQnfyiM48Xx fEbkbvHLE+XdaAt1o9fTgjWlDRgsbUjiB/XJ/KieZ9rB0joqVxs3zlnDVKOZ CFZ4mhDh5cGCCpTlxxDIY0NxlCch1MMzfJjnczPP4E7pLL6cZ/Flcoa+Lcsq wTLur8u47y6jU6vTA0jPCELN6UQ8cixck+u8UBgSrqmjCdeidM2FzDS6kumH TPb4UwRKfbn0FIGYRzWLLxMTL77IpWv5lYmnBuKu6bIj0Gr8yOasXGgtR9QS QDVHswZ3DE20pjlWjcbqGtTUVqNljAfvxBQU3DTP2t1YludGSpEb6SX01eVG ltsFR1Mbxk5fwmqCsZL3k9JdC7O3BrnczMXc3B5ueqcrhtziSuQVRpHHNuiw +mCmow9dk0LXglGGtgVpW4iuhehaiLc15GXcyA6y+QWdtK2AtsVds3mMsBeq eED/EgHFiicQYXH5DtxmI+sYi66Td1Ex7yK7CypTYRLUWgdPgXKlCWkZKt77 Ujg2Zgh9MjQ2pFM1EdYtqvY9pJmcKB8cR/lAPDGqFqNqMapm5767Uufk967S FvNqV6YYsGKZCssZrpO4UPPiFS8SNSkaZKw2syhm5nCXVGSQskRU6QyJU7Pc KQVtqWVwqowCtGSprj2JMr2KoD1KSC/YDBnEDQ9zKWATkQocO2aESyuJc/z4 Jwj+5J/R8L+eQs8Lz2MkYyU26NKwJTsLWwsV2OxSYtwjQ0OOeHY4pJfhZ6yF MoTYJ8tXDqIifRSVyglUaidRadyMSus2REyTiFgn0eg7jLboGXRUnEMXh9be 2ksY4NC6hkPrMIfW0dZF7q5jY+cNbBbctV3FcMMFjDWewyZyN0Xu9nafw4Ge M5jpOYWD3SdwqIPcjVzF7MQCZjfO4/DkAo5snseRLcy2ORzdPsdhk9l5g72M IXOHxXh0mHPSD3GEyyP7luY6Zkneod2XMT11Dte338Ht7a/i5rb7DNnbegfz W29hbkuCvUnB3iXmPHOa/HFmnWCdW886t451bnQCVwcHHhPvr3Fr5hD2eOLz 6rQ3Jml3kHVOiHdUEq+O4tVTvAZcKmukeI24Tu3mKd0t5g6r3D1K9wrzGrWT xCsX4rXh3YpF8drZy9ol8STtquLaJQnrkoR1SfiKn38PX1a346vqNl7Ellcd h+9orAMdoU70e5qxtlS8dn+tqzGZiwakcVnPC+sFgEwd1rDfDVK53sIKtNn9 aLKWoj7bg1BRJcJFFQgXxBDivFdG/SJNA6jgQVGxeFBwnlmpiZ/iV/AULw6K FS+qsPIFNVbxFJ/yPPOCkbFj9SoPVJxfCpU8ZDXUT0/xjEI/HrZZYagW9UtP 6Ccvk+bU+D8fjC6ZUyviL88XL5DNeaSfaHT6nHJojWUwa8qQZ4yimDp6impQ VVqBRj/Vi1L2yhpU1NQjWF2L3LIq2Lj5hk9exAhTv3MWxX2jcA2MwjM4Cu/w xiSMkr3/G807p6EhZCIrSuqRwhOJwtMIg6+BV1EPu6ce2a465JZUI7+4AgXE Nj8ngBwLCxvbliVE/EIsdiECGCJ+YeIX5ggXLmP8BJD4hYlfiPiFiF+Q+JUR P78NZp8FJbkZ8Aj8lCsIQdQgHrrPy3ZAIfQrDgv5kqHWOfhFucqE9Cw1Mpgk afkXyMxU8V5lMuKRpXOttiHDKl7GLOJEbqQBlSSwkvxViXBLV3FLryJ9q3Sc UplVmTasXMGty6Qwq5nUFeokrF6uSUbqcg3Pp2mr9JBlZEMpI3YinFLVWbk8 /+VCQwQ16Q6o0wugSJfwW2xyemlEVS1aF0o498i6HyBsVMKdsQrGH/8dXH/7 j6j62f+D9l89izUpy7FOlYpNlkxsyZNzVlVig0eBbla6iKh0BunpGVbgn0ny iQczQysrEV21FrFMIq/aiAr9JsToXtgwiZB5EtXO/WgJn0Fr+Tm0V15AV/VF uncZ/fVXsIZz7BDdG5Hcu4YJyb3rdO8GtvbcwFDDOQw3nsFk2zns6DqHPT1n sb/3DKb7TmGm7zgO9h7BzBBn28l5HNrE0LzZrXM4RO9mWe1mad4sq90hzq6H djN75pJwaO8czZvdxy/ROin07xAzs/sq9u+8gBtTL+Pu1Bu4M/U6bu14DTe3 v4KF7fcwv+0O5iT35jG3+Trt4xg7yTF2kmPs5EnWvyMMq94Eq966TbgxMvyY eX+Dk72D2OsJSSPszBLzZn01OOarxcmEeRc4vl6meVdp3o1wwryIMK8FLwvz 6Jww743yNo6wbXiH1r1H6z5gPqqMmyc1vKq4edROKnZCOYpXLSre11x+Xd0h RVwivvaAmYx1YYCVbYhH5pCr8UkMuRuTuGhgER4S6CXg63dWojM3gBbOOi22 UrQybbYSNLH6xIpjiDljiBbGCB9rE29LNQ+Jah4Oq/ROpBh4GKjysGqVOCmv WqniPZSyQiUdBjwCkLpMgzSe/tN+rUH681w/b0LKi8QxswwKXZCIRX8PeN4E ePEH5uT8ukIXlb5XtQgeq57OEQdPGmELKlkHA9Cp/LDrwii0xeAqqIaPoJdR pDDv+3CsGaHKZviqm1AYqSXYlXAw9kAFKoY3Er0L4n/qPXUBP8HI6Qt0ToQQ MmIdGd0oaacVCVVCzu29kvftytJmZLJKq3l2MfL+tnkakOOqRX5JFQp53xUW hFGQ46d8XlidrHdhihdh5YtQvAjFi1C8CMWLULwIxQtTvDDFC1G8IMULxMWr 1P8KngxJvCREeeQ/AVOuk1WPd2O+T1iXBI0+hxcrOammy1i6mEyZhgMlP/gD 9mc15CIUUCFC/+S0T0H75DJDEjIJ3x/DSD2rB9ejRmSA6Wf61iNFz9nXUILV 6nxuaW7fldyeTCqTROS0LGupq+Kfp63UIp3J4KW8Xn70fWSyJaoUZC8RjTwX WhlDDrVZDujIoIonu2K1UTzDKuQjf8kSf38er3pGlbSOcO3OSGHN+zfkcpIN //2/ofEXT6N32QsYyUrBBkM6Njtk2OJUYpNbhWG3DNU2ufTgXpj0Cf6ktV6e LPn3UwRXViOSMoxy2XqUq9nyNBsR1DLGSQQtk2gOnkVz5BxaYheo30Xqdwm9 HHD7G65gkK1v7WP6XcPGLqHfdWzpuY7xlosYajrDy89iW/dZ7Oo7g30Dp3Fg 8CQOrDmOmYHDmOZ6evMcZrYwlG+G8s1QvhnKN0P5pinfNOWb3jPHu3mG9P2F 9PEBNsC9Oy/j7I6beHnn27i3603c2fkGbu18HTenXsPCjvuYJ3lzrH5z226S vTmyd43scbrdzJq3mTVvM2veJta8Sda8DdtI3jjevnJRs5S8/4GdrgD2ecLx odZbIXF3kBVvkbxTJO8sK55EHrm7yop3I9SMBYm8FtyNtJK8VrxK7l4nd2/E BHntJK89Tl6lIK+DFa8Dn1Z1kLwOlrcOktdB0jqEdh3JEnLfkchbpG5buA1r vE0YcXGKHXY3UsRhNz/lRyLDS9bDtG/YXc/BluLllSWx37l5Fm3lkNRmL0U7 Aewgfp0cg1odblSVxFDJlPMgrqzpQD0n/kBLT/y9xHV5SEkV6KWsVuEfuOR5 P0WN9FXsGTwIMnkQZK1glmshW8a8oEUWAVyxvBTPp5Rzjg1AZax8CJ94Djbe 9AIPm570jEQCPrW5nDNuLA6fnXMuW57KxJqj8MKiZrsziXZXJbW7AP/EIE86 4UgTQhXNCFQ1oyRWj5xgVZIkXjKXFZJ77qYu8U4xJ8/zspFT5zHMiDU/Oy2W qgC95ZgqvEuSln8FXagKcn81VvLeTHE1Q077dLTPQvsc/NV5tK+wtApOJ0fg giAKc7zIIVA2b5DGRWCL0rwozYtyzI3SvCjNi9C8yFLzrGyS2Qir4ubFwfs+ wSuC0lnGu6OA1jkk7zSGHGQpDAnteDfLeXfLhUlyLr8HBS9XMirSp+ZanaWh N1xnqKFMJ4My4Y3MUkoia9dsQN1iBjcgnzvvamMpUk0upKRQ0rQUrXjRHZdp q0ncap34jMsnOOHqkMnLsuLhNfKb/gQyCqjIskCjonQiylzoqJ+O+ulYBvWZ LH8ZbpRoTI9GXUOcvWRJvD9C7vPPwsRx1v23P0P1v/wHOp57HmvSVmKdJg2T tixsKVBic6kK61jxWgszkwikeD7DKDpxaIl59G5x0g3psxBSZiO0egQR2QSC 8vUoU02gTDeJAM1r9J9FY/A8GiMX0By7iLbKS+isvozuuivoa3gJA41X4+a1 xM1bz7a3kd5tonebe69jQ/dLGGw+jXWdZ7Cl9yymBs5gz5rT2Dd0CvuHjuPA 0FEcGD6BfRuuYP/WeezfzuxgppidzK557NvN7OHHInvncWDvfJL0yV9gL9nb PfUS5nb9Bq/sfg8v734Xd3e/jTu73sKtXW/gJvlbmHoV81P3MbfjLvm7zXDK 3cYpdyt/bivb3la2va1se1sOk8ADJHCK/G3Ae9cuP0bfj7DLxenWk5huBX1e QV8NDvtrcYzsnfLX4xzpu8iD7soifdxzFtj0bgv6yN798gR9sQR9FQn6Khfp 43SbYO/zRfqkRifSSfI68Y20JoVfU6Nk6UtCvxGX+LfmAjketoI+HowjHvGv RUe5fJJLEshIa35Xf1GMX2t3eJPR4fBy/+pweNBJ8DodLnQRw24Hm2BhGard FagsZfMrKUfj6HoUVjQi1ZiXjNXpwrxUHjzpaWpkpmkgY+SpGihSubvzCFBw 51eK8NSvWsEjYpkZz6+I4NcpVTxI/VCklUElX3SPhS8rXvhkS56zUBqXuGeP QWWJ8msB6BUBOLQsedYKuPJY8kriJS/Euz1U3owyljxPZSPywjWw+yvj5j0J Rxn7XlkFHMEYJ8kYhk6ek+w7h+/SvXN071GapvZBUxa37wnJvb+le+x94Sqk eWrwYnET0t3NUInOx5NPtrcRuZ46FLhr4ORwXVwcQXGhH4W5Ltrnhs1P68pp Xjl7XjktFOZFE+aF8yXzbDSvpED20Lxyipdvt9O7ANSWhHe0TqXLRpbSgEy5 ZB2hUWh5TpRzqWCURE9EzS+rZfyyRqZLgi5LR4y0mTpWLB0rdw7kFjec3CHr 106iQWTNJAq4o6aa3UjNtFI1PdJT9chI1XNoTjUkIyPNQIIz0vTc4npkMbJ0 PeRcK3idijQR/n6xB6QboNXk8u7Vcfld6NW50CuJncIBg4x/RqYLpRqjgC7x WN5/QciYKHiMSyp3P0fBj3+KyE//F5qeega9K5ZjRJ6KCVMmNuUqsLlYxZlW hd5iBapY7iImZdy9iFGxiJ8ofKFF/AwJ/P4+jp8qG0Hi50sdhT9rHfwcef26 TahxHkOD/zwaghfRELlE/C6jtfIKOqqvoLv2JfQ2XCV+14jfNQwTv7H26xJ+ GzjqTvbewKaBG5jo5TjceR6jLHuT/Sx9a1j6hgngyGnsHT2JfSPHsHfoMPZM voQ9hG8P4dtD+HYTvt27FrB79wIP5T3k7y8p3bz00a5dN7BjB+Xa/SZe3fsh XtnzAV7e8z7u7XkXd/a8g9u738LN3W9gYdfrmN/5KuY4+85NsfTt4JzL65/b ztK3naVvO0vfdpa+7Uep4QwF5Iw7uQnv3XgJmscf2NvtCmG/O5pgr/IRe2x7 xwV7gQR7QcFeE66x7c1J7LUsYa+N7LUl2GuX2HuX1L3PlvcB8xGZe8hetSCv k62uUxpuO3knfCMG25p44u59Bzto3hjNG2MBGXU3SsqNeprJnbeZ5/AxLsd4 TIrPRMZ4jPYURNDBGbcj158kht0kdOX6uTN35frQLcWLnlwPevMYHrO1/FNr +CeXU8CW8Q1IYz1M4mGh5q9PzeR8w2QyWYyMUWTwQFNmaHmyUHGpSuexx2NB zWNBQw01LAGrVrnxwqoKph7pK0o5fcWfuX30+F5i3NUu6lcOldDPVo5MhZ9N kU1PEYw/jmevgptNz897oSzQiCDv9TKOt74KjrbROth9lUI+MeImCfe4IGRP SvTZQxzpxzdh6MRZ4ndWEHjqLP+sES7FR8HhdWRvsfaJfwEf4s9rw5X4n9Bx qWcyvbVYUdKELN61Wt7FFl8jHBQ4n5cXeapQ7C5HSUkQJUUeFOUWw1FQAltM EOhlSF95CfkrIn+CPgfMATvK7Csk+oLqlfBajWTPT/byH2NPIk8RJy9JEu8H cfMUdI1Ry/UcK/XQyumPzMCCZYBeJIvJZDIMUNMshbEYxTHxEErj0Gb+7U1c FpW3S+/PlJZmpHFMuomTa7opGZkZJg6gmZkmxshtZeQmN0LOKHidSil6qKTo pO2v5u/Tqu3Q6+ieNhcGKmiguQalA0Y5/56sUsm/kEFNk4xq6aE8NYwkz/Kj v4f37/4VNT//JTp+/QLWpKdgXJeBjXY5NhWpMOlSc2dXojFXjqhJxYiHA4mf 1PqSJfiSHzW++AN9BlmShN6PEVTZ4HphAJ7UMXiz1sOrmkTUPo06zwXU+S+i LngJ9ZHLaIpdQUvlS2ivvoqu2qtk7xr6m65jTct1DLVdx2jnDYyTvPW9c9jQ P4eNa+awaWgOa7rOYy373vrBc9g8fA47Rs9i5/gZ7Bo/hd3jJ7B79Ah2br6K qR0LmJpidor/oGJql/gPKnZyuZP0ibW4ZDtn3+mpW7jOYvfqvk/I3sd4Zd+H uL/3A9zb+z7u7n0Xt/e8jZt73sTC7t9gftdrLISvYG4n592dLHxTnHenWPhE UZxi4Zti4Zs6QQ5nyd9eFr9tuLFhOKHezxJP4N6cPoQ9lO+AkM+zKF81U4Mj vjrKV4/TVO8cy95FqneFreNaWMjXEpeP6t1blC8m5GvHm1Tv7SXyfVi1RD46 9wWzKN9XNVLZI3384Lskr5PgtT4Eb4wlbozgCeGSJOu+g3FJvBauW6WIx/g6 84ICuSB+yGUIXXkhdOcF0Z0fRI+UMvRKCTB+9BX40V/gRXtphPtBNao43bet n0S6wYE0DlVpMh3SmSx+LONazijkom1QO9nDpqHlLqbN0rJoMDwQdEQwM7UA y1aX48XV1UhZEUPm8hJkpfoePa378IkN8a6pcfgyVWU89tw8aAOwq8MosFSg NLcanuI6+D0NKOOdX8Z27Y81oThaD4e/ail68cf1RN8LVkr0EUCy9yTxK0fF yHridyaek2ekDniGx8zQqTPIbeqAOijqMfnjgpXvr6EJxx/wEwYuCmhgjJFK yHgeXO1qgoKbwOBvYoljEeR5sZD3odMXQ4knhJJSHyUsYRksRI67mBI+LqAt aEeOS48q07MIKJ5GsS4TyiKfpB9vA7fAd+KlT6F9GNH55AoWO4VCz3OeiksV Z2CNwihFqzBxyjRyyjQRQEJmkJl5LYYsM4xZvIhRK8Wbv/vQPLw1CS3DW/nl NKsfaZpC0mdGRoaZ8FlInvlJtnMLzZVZWNPkvCIFo+Q1i6hFOEGryaxGRn6z 9FCTQZ3WDoM+DwYSaBTR5sCoJn/8tVZFXpLU9/4YpRmrofnRT1D0439C9J/+ Hc2/eg69KSswokzDenMWJvOUmCxRc7RVo9OpQMwqQBPwJUv0RRKRCGTjo4ES gYkkxWtfWALQkMXTs1eRAvszv0DRCxwe2P1cHH7D1mnUlF5AjeciavyXURO8 grrIFTTEXkJz5VW0VV9DR/019DRcR1/zdQy03cDajhsY6Z7DGAFcRwDXD85j YmgeG0fm0U8EB3rPYXTteWwYOY8t4+ewfd1Z7Fh/mjmJHePHsJUgbt1xMwlb p7jYtvMm/gpbueSn2MxOeIoT7Gv7P8er+z9jPsUr+z9hPsb9/R/h3r4PcHff e7hNAG/tfRsLBHB+z2/YDdn7dnHi3cWJdxd7H4fouV3sfbvY+3adY04RxiNE cD8B3IEbm8bwLf1uTc9SvzD1K8eMp2KJfrX///pRvoVoQj/Kdz/2bf06qF9H XD/m46pOfELtluon5JNG3ZqEfj/AjlAL5av7HfnGqd1YQrtxbxvTznRgmIdi V36Y3IlX4ndLy578CHoL4klCX2GYu11fYQh9RUGOwkEMFJUxAcbP1l+HmkAt KvqGkK7lECQeV+KsJWNYOLj8KRRcKpXcy1U6aBitis6JKLnXK7Ucchi5jocc wyNhWVoEy9Mr8GJqHYtfAPIUNzJXu2mfT7JPel8RTZjmBZGe4eMA5YVZFkSO LooiWyVKC2rgLamHnyUrwKrtjzbBVd5AZmpg81Ry9mSW2Cfcs0tz7qJ7yXCE WfzC5aRHvNn22hOnk8jfaYI4fPI0ETwNuS9C+Mql5ifcq5Dcq5AElPxbal8k bp+J0fAXpnHwTedGUdM/E/cLe1k98spqUBTgIMzrLfUE4Cp10cACFOY44HDR vGghbOE8WEM5KMtJQZX5WfaRp2HOL+LMn5dwTzyD+8g9Uft0YtLlHS02RXxD kB4lCVIQOa3CTAJ0Cgu3ASO3cBtYk2GUWfmXmuRWxsJOSLzsZWgZ3c5rbOXy SaRnl3FT5xA7KzKzbMiUSS/D4zKZI3Y2N5NNirgFNvwPymsjvFb+ditUUiy8 FRZolGbGxAiC2T/ZRXViN2CHNRrzYDQQQn0OTDoHTBpGmQ19Onshi5/1Rz+F 7yc/R80vfoWOF5dhMGs1xvSZ2OBQYGORGhNuNQbdClRnK5+UAHzyMQDjkbqf xJ5RjhR+KJ7okIkCKPEn3ubO/uy/I/vZp+B4Xg5nyhDKDHtRVXQBVaWXUOW9 jKrAFVQFX0JN5CrqY1fRWHUNLbXX0U78uppuoLf1Bvo75jDYNYeh3nkM989j lPiNrZ3H+PACJkYXMDp8Hd1957B26ALGRy9g47rz2DxxDlsmzjCnsHndcWwi hpPbb2Jyx01s2hFfb9y2wGH4Hq5xuH1t/wO8duCLOIIHiOABInjgE9w/8DHu 7f8Qd/e/j9tE8Na+d7Cw9y3M730Dc3teZ9gA97AB7mED3LPAXGeuMBcYDr67 jxHCaSK4Eze2rH8cwJ/9LoAcZwSAh/63ADYTwJY4gJHWRwBynHiV+L1eIQDs wNuViwB2sv514uPq3wOghGAXAeyS/PuG61d52VipEHBJ/2PZGJf6Xly+db6O JKzzdnLnH3G3oLugnOhJSeIiJt7LoiCG3sJyuhejeby43xkV/0a8OMpEMFAc 5r49WBzi0TVYXIZWHr31oXq4GzuRrjIhQ8UxSK4WFUKh4XmfUXF80TBaDXdz rSGJc44Ofwu9hnu7iFoHI3E0imNVlo8VGRVYkVmNZatqoSR+CvHvzFKJoCwO oIAvY6UbulQ/bMowp9wYnJxyXYW18LL6+vyN8IYa4Y40Ij9YC0tpBawczq3c RHEAK+L4iSc2iJ89GH+gT/BH/JIk/Z6Q/Ft7/FQ8J04JBU/xQOKHkoCqsvKH Cj4hKfjfKV/Ft+SroHxMlCmPC5nBFpjJW6jlTmHh/eYI1vBWVsBZFkGJn/p5 3HCVFKKkwI58u4W32I48Dxuf5TmUG55BNtuK2l5E8+ySe2qdLUki708k8mQ8 28gk8DgWkxclmVFJ1AhyrBRPxEb1bDCIyLOTOGdm88dNXJoU2TCLUBuj0gY1 p193TS/axqfQvm4KGY4Q1aOzMhE7xbMn8/faxQlPLFR2ngwU6mwoGRWjFtHY uP2t3P4iZJV7h467il5lhJ63Vc9GajSSOGJuMuXCxBHeRAblqzVI/WUmHD99 GtF/fgrNz/4avamrMKxOxzqWuw35KkyUajDCwtdcyBnXLB5ziZrjhU9F41SP Fb6w6VHhI3rikT9pIcPKBHkvkrz/IHm/hO3Zp2F95mn+ZB+iOacQI3sVpZdR 4b2CirKXUBG+isroNdRUXkN99XU01d1AK8nraJlDV/sceklef888Bkne2sEF DK1dwDDJGyV5Y2M3MTRyA23sfb1kb+3YBYytv4D1G85jYsM5bNhwGhvY/SZG jmLd5DWs23oTI5vncHTqDfa7r0idyJfMA7w+TfqmSd/0Z3hl+lPcn/4ELx/4 CHcPfIjbZO/W/nexsO9tzO97E3N72fv2svftfRlz+9j79nHo3TfHXGU49O49 wxwnfQfZ/XbhxvYN+OLdN6Feyt7fkL3D2LvInvv3sEfyTnO2OVfWtIS9xd7X +q3e93vYq+qIs/d7et+XYuKtEU9ECvB+gFf5vUPsFOM87sfJ3jjJG5fIa6Vy 7ZJ063xdTDc/7saoux09BRWkThSe3vxKjs29BZXEjimqlF7g0l9cKT3tO1Ai vmeAevwRlzEMlpZjTWkUazn3ruHf3xWoQkO0Ea7KBmSoLZCxBCpEdNYkKHVW /CNHMSvUegu0jE5vht5ggsFg5IndwBM893q9jid4hiCaSKGZDK7KimBlVjVW ZtZgVUqV9DoH+epSpJLBVS8UQ7HcDWN6GWfdKArMrE051XA56+Ch+F7C4mLv K2AvtboqYC6JweJ6xJ/NWyHxl+1nyiqk5zbsiQf6yB8rIOlLhj0i6l8t1hw7 wXuAS/bA4yd4bK3hUu4LP8RPLT34F0uW/Ps7qQUKA/WMge4J/4ySfTGYYjGY GUusHFpensKtJmf704fqYAtVI5fXUBiMoDgQQKnXBZerkH+WA84cA6pXPI3q rKfgMq6E3JEHjT570T7Sp4lPuYmmJxevkSR8ChW7m8oClYqbQCX6mJaePUlw 7AQnHoOCXYtJonuOJKLnwF9wGzhg4fRpVtuh0xXAU9eP9vW70DGxCxk5EWTK HfyFDqqXw1+aw1/GqERyed4TyZHWCk0Oz34Mp1mV1iG9wFCjI5Ja9tQ/51UT Ye4eeh2rp5bhidKgNvJjM0zWPJgteRKYmSsVUDyXAcNzcphetKFj+QoMytIw SrYmcpSYcGq452vQVaxCZbbqe8K/J5aCZ1oET7EEvBX8nOClx8HLe2E57M89 D+uzv0JNTgU2t59FV/gcwoVnESV6Ue9LiJZdRTR8DbHYdVRVXUdt7Q00NNxA U/McWtvm0N4xj87uefT0LqBvYAH9axYwQPQGh29izehNrB0neutvonXNJbSt vYiesYsYXHcRwxMXMDpxngCeIYynsLt/P46OXWF/+4Y9jpn+mriJEL3pL/H6 jMgDvDrzOV6Z+YzgfYp70x/j7vRHuH3gA9w68B4W9r9D8N4iaux5+19j2PP2 s+cd4KB7gIPuAQ66By7xsrPMCX7fIXa93bgxNflYxfvHhHWRx63z1CSsq49X vDJWPDp3kfPtlfBixWtNWNeWsG6x4nXgzcql1i2teF20rgufMw+o25cP6x1T 24UdvG4x4K6jc+sec66DkYxLwnpfL7la7+sjc1UErjqegmoSxxTVxP+ZRnEN eWNKq8laNfucqxpPcVmFNW6RSqwlF0OeGFOObraoxlgLPNVNyNRmQ6G3QynC DqISMdrZFHhMMjoT92uTFQaTBUazhSd07s8mE2OE2WiA2WCARa+HRafnGFuK lbIqrFTUYmUGyVsZRcoLJch4vhSaFT6YMznaastRYKlCcW6NxJybf73L38C+ VA8bb6+xqBxGZzlMpM7soi/uGKljfDEyxwTIW1nsIXVJ0gN735FKnnAuOxKl dTVo3LEHg8dOJEvo/R9o4KfKsiilY4KPtFNTSk0oseakrGV0jD4SgyEag1FQ J3EnIDVXlLMWWiqjULL6pfpYaFn3jPw4mz+fFwqjqCzAwdeFUncBnEUOjDzz rxj8+T/AkZYVf4SOd+9jzLErLRInJ3EKEqckcSoSp1ZxEzA6EqdTEjQDaXqS yrFOiShZrYiUWSWebbWQqD+FRZMLizYeA7HyNgyic8NedG7ciyyb+J8kciFT ieRBps4jbCL5xC2P57q8JC7yxckuj79Hpc/jyS6XNzkXWlY4rUHIquMf8H/y xEdxDeyUehvDPUNnhlFrktbidQEZL2ZB96IC1lVq5KbrUCTTo1pjxrhNgfWF aqxjzVvDqbYuT6pzZvWTou09IZW9J/m56rHhNiyVPiHfzxCS/JMvCedbRrLv uaeQ/dzTyH1hVcK+Smxu4/zZfpm5ho7wJdT4ryDovoJQ4CpCkeuI0L9Y1Q1U 1s2hpnEOdS3zaGybR3PnPNq6F9Det4BO+te15ia6h26ih/710L/e8VvoXXcL df2XUDt4Ea3Dl9A1dgl9dHDb2BksrDuED4d24OP2MbzWsDOJ8H2ThNdmvsZ/ 4/KrhHssfTNf0L3PcZ/2vTzzCe7OfIzb0x/SvfexcOBdzO9/m7ax7B3gfDvN sjfNsjfN+Xaa8+0M59tpzrfT5/j1k7RvloVvL2fczY/Ptk/jJuHbw6JzwLUI X/W34GvAKY4wcfiafxc+onc3loCvIl7y3lgseQRvEb6PHs62hK/mcfi+Jnqv SDNtrTTTrnM3Er5mYtf2EL31vh5Ju/W+fmaAqjVSvFr0FTAcCPuK6tBHNvqL 66R/jjvA+XiQZXHQXccdivGIR7nWeGrxD1jrrWGqMeSrYiqZGNb6ytFU2QZv bQuyOJMojTybi3BOUZlzoGY0jNbigN7CSsEYrRykrDbGCrPVwphhsZgYIywm 8kcGrSRwlSLK1OCF9Co8+2IV0p8rg35lALasMHJ1MRRayV5eDUp4+0v49zu9 dbC7qLWOU/v3YXgoXznlK5fks1BrqzcGG+WzBYR6FI50JRGc8vhk+yTZiyI7 GoU1Vo3g8AQGjxwTI/3RY6wMa7j0D01AGRAjbjRJwu/7cf5Ci4kTKNjTUVA9 2dNHeVvKmZj4XaYKgZ+pkreL9JkrxYOplqowfgQlf3V6oFKams2hKKffIPLL fChg42tXyzC2+nnUZKUhV6aGY1kajBlaUqd/SJ9M0Ef25GRPQfKU5E7JoVPN aFjctCxiein0TCmSB6Mqn+6xUYnQLosmH1bGIuiy6vLxx9waeTwp5cHXuBZd k/vRtWk/Ms0espdP9vJJXgHkmgJqJ1LIil8AwV4hF/oC/JBnwQKeAQt4BsyH 1iSSxzNhHs+EuUwOz4Yi4pE97h48S5qMHIk5/q5eqYKSMaVo4cg0oIBjcTEb oYtnz1KzHT2FRgyz3bU5lYjaFE8I+pIf0pcsyfcHXCoTXU/5sPOFpNA7k6h8 JhnLTMj0OHv2559/nL22K8x10rfA9W3mHtor5tFVexv+4FWUld9AsGoOkdo5 lDfOo7J5HtVtC6jtWEA96WvsvYnmfmaQIX/NQ7fQPMyM3ELLKOlbewP1LeJ1 LhdwafwC7k+ew3ubT+LDyVl8PL4Hn/ZtwHvdu1ntfkvmhH4Hv2Yhf+0gm99B ynfwAV45+AXuH/wcLx/8NC7fzEfsaB9gYfo9zE+/Q9ko3wzH3Bm2voP3mTsM x9yDN5iXmPP82il+32Hqt4+tb8tj8P0S79+9n4AvRvgqcdC92Pjqfj98ocfh uyXgK18KXwfeIHpvSY2vE+8RvQ+qF+Hr+h34vqqNwzfI3yXa3jjHuvHH0OvG em9vAr0BTPgGOa02ET1CV1BP9OrRX9RA8Bp4OVPaSPAYXs8aArqGzXGtt4ET na8Bf8hlPdb66zDEiXE4UMNUY7isCmt5kDZVd8DX0A65kSd6lTkf35OeZ1Rz MtFwQtHauI/buH9n58KYzX6R7YDJLs75luxscmrJtsFqszBm2KxG2CwG2MwG qNVmPMumtyyVzS+tBmmr62GXRZGnqyR51XDm1sJJ8opIdY6rBrpcmsPBS5sX pXxR6Avj7hnpnonumdnNhXsWL+0j17ZAueSejWbZ6FW2SFgkGm97kYhEX9nQ OgwcPsIR/8gRHkSDXPrXroPMG2Lzi8SbH68m0f6SJPu+T/nE/BqPjurpqZ4h FpfPSPeEeiaqZ5LUM1O9H3IZon9l1DKAzEAYmf4otGVhmDnrFjid6FJkcaZL RQ7vzfxMFQrSFchfnQnH8gzoUlVx9ZSP1FMk1FNROg0jXiysU3Ej6enVH0jg GSmWiTGrC2HWFBI9hnJZhVlWfaF4gNPAT428mG75m4eT0L15mhdnWXyQ0To5 v1uuLWLF0xXhu+z8RbSOMSRiLOKJkDEViWdgzIX4M54EC6BLRM8YuKcYLNw7 pPC2ssimZxqRmaKDbjX3iCwL8tRWOA02lFqy4c62w5OTDVeuDZ48OyqyVWzq i+QlPyQvSRIvGeEl7iUL8ZIEeUkSdH/5GHW2535F6p5BtaMKm1svMKSu9QaJ I3Xtd7h+GVs6XsW2rtcx1fsmdg+8jZ6me+hvewVrOl/DUM/rCNSTv6Y5hFrn ESaRkU62vMH72Dz+Du+BLevfwU9wbMunWNj1W9zc/Z84PfEBumtPYSfb3vn1 l/Dy5vN4b9tpfLz1CD7duB+fD2/Bx2v24bUtr9G2byTtXjskQu8OfYlXDz3A /UNf0LrPcPfgJ7TuY9ya+RALM+/TsHdpGSfcg5xwD9G6Q7Tu0F3MzdK6WVo3 S+sOXeDXad3MEbY9Wrdny2Ov2nsKu0si2C+cc/2uc8cCcefO0rkLwWZcpnFX mRuSc20J59oTk23HEuc68U5VwrmqLjrXJTn3ac0S5+ibePLiVKyV5a5GKnfj bk6znrb4I3YJ4yZY6iYk49ZgzNMb962ggaWukWMsQ/f6S5o4wjbTuCb61kzf mukb42vGkL+ZW2bI30TohgKNGOLfMxxsYOoxEqzDcKgGQ6FqNPH2+Bs7oDAX 8DC3FuKnUNsKoRHJ5u7M6O35MDh4XDFmB4tEDoemnBxYcxyMHTaHjbHCZrfA YOSMlqWEapUC6as9SMkkcspGppnFo47I1aAwh+vCOuQ6a2HIjUFpDUOdHZGg 0+QSu/wIdIVRGJxRQkdOSskKoTMvQudnCJ2tTBQuQd0fSNjZBHISdBEJOnNF LQJUrW+W0PUfPsIjmebBt2YcWQI61jyBnRh1lUHxPI/g7t+gppcaoVz0ceUM Md6kCt4kSbi4ciYaZ6Jw5qoglQtw7efI66GQHkrnR7onCC/7W6VKjQpO/TZ2 oRyOtvlyPQqytCjM0KBgtQr25Spo0kS/y6ZwdgrnoHC57HY810jJp3JURUoh iRMpgknjJHFF5M0Ji85J3Zy0jWvxjlI2k5Pjp81cBCsT4E7Xs2UGPVtn4Knq pm9OyPkjCr1IMYFjDIyRMcXXKq5V5mKe9pzQWMQ7GWitTmKnsxZBbxMphIEx 2goY0RezkZpqgirVAlOWHQ51DgqMuSjm6dKVkwdPPlOYi5JCB3JzrTCZHXCb jMRME8fuCemJDAGdOj7ZmlXSzKsSr1kR4j2M4tvo/SO8qpQl6D0Di0DPTvRa LjIvMUSv9SbRu8vcj6PX/RtM9b1F9N7BvjXvYXr4A8yOfoSj45/g+PpPcWri c5zd+ADnN32JS5u/xOWtX+GlbV/j2o5vcH3qG8zt/C3mCd7NPf+JW3t/izPr 3sWG7uvYNngBZzZcwt1tF/D+1Bl8OnUMn2+dxoP12/FF9yje2PFaktAuSeLu zxLgsdwdSoB3kOXuIME7SPAOErxDHG1nCd4sR9vDrzD3mFvMHEPwDl/k1wje IYI3TfD2bn38dcr/jl3FFK80hmlJvEcj7WEhnn+JeKFvixdvdneo3cvMK99q dg/FSzS7j4V4iWb3xcN2140BX13iRSriBSqt0gtRxr3iuQk2Oi+18w5K2k34 hjBY3EbtKFxhM7VroXYtHGEZVyvbXCula6V0jK+NFU687ehQoBV/wmULK1wL hoJc8+8YDjdhJNyIkUgDU4+hcC2a6nsQaO4mO06ywx07m8eKxu7kKUzrcEKX UwSDSG4hTHlsEHkFsORxbMrLY3Jhy81hHMjmyVqtN0KWroYhXQu73IB8jRkZ impkapuQaWzluFOPAkctcvNqWQ8roDCG2SjDUFjCUNqonoN5KF4EemcEhmIS U8q4OT56ohSP8TF+TqRWWvVd6Z1QbJwgbeFIPKLVRShRhfgf4/sOzfJg6pud RT/jHRxDFhVSCO0CkSRBXpJk3j9BxetQE0w1m6GGQ7GW0ZUzCekMFM4oJQxj lUiI2gVhrg5yTe0qfUTWA3PMBWO0GAU2OWwyGSdYLVngiUNlhYVxsOfkcV2g sKBIZkZRhpHqUcPVJqizhHZ51I7tmrppqZuO0auKpP+NzKB2sswxmmKYteKN Vyy6ErJmJVVWYwmRS8TMWIrZtnk5t2ygtge92w6hd/sheGt6SV0xmSuBwlBC 5hhjKZkrJXHiJesqcylbk8pSylNgiRSNrYQtv4QnwGK2fMZeDAP3FoO9CGrx VldyO7LSbdBncnfgbc9jmyyyOVGa64S7sBhuZ5H0XHZBUS53FZ4o2e8sVp4k ORWHqduTknFcWtTSR1GuhX3i8ycT4oW5XBQvZBLvwmcW4pmFeGYZlnOZRe0e 1TzLM89gc9MZbG6meM0Ur3mO6t1ixUuIxzonxNtB8XYNvot9a9+neB/i0OjH OCKJ9xlObfgCZycpHrW7uOUrXKZ2L22neNTu+k6Kt+sbivcNxfuG4n2D2/u+ wZ3932BD50uYHDyPkxsv4faOi3hv9zl8vucEHuw8iK8278RXPBO/NX4er82y 3s0+YL7AK8z92c9x7xBH2kMcaQ99hJuHqN6hD6jZe1SN6h3mWHuE6h2hekep 3lGqd4TqHbnKUL3Dp/m9VO/gftzY9y31VmCK6u0riXGmrWTXq/od9U5SvTOS ek1UrxlXIy24TvXmEz3vDnvePUm9DrzG/KZSPIvxqOe9z573IbX7eEnPW1Tv 5aoOjIiO52qgei3seBTP00X1eqleP9WjeN61knjDrm705QvxqF1RKwacbRSP KW2jeO0Ur53itbPRcc0MBTrY6dqpHRNkQm3Uro3KtWIk2oLR8maMRqlfeQOG yuvRM74ZZa09FI/7tr2E4jlKONRqc7ib53I3z+PuzRjzeagxlgK2Bini0R5b QT7+J3d/O9KzDNBkmWBVWpGry0YRR5dSu52HvhOZuiZkmVuRbunk7l4FrToA lcKLTKUPcoN4I2WG6qnsVC8nDE1+GNoCyldE+biZDKzkRhdLlScun9mXkC8Q kd7UziLe/ClEvaxh8YJFIZ65vJKTZY14PnvmYDJ6Dx7kF2o2b0Omm9L6xct1 BHx/CkVZouzxOpQhTrhL2SunwDHeDpEK3haSJ+gzkDwDySN7SVwE8WN2vgDj o7RumMopji8b5dkvoNz2a2gzM7FMm4sM8doR8RJeDWXQ5CJHk4cCdS6KlDnU zw5nhhWFq83ITrFBm5XHKbaQ6hVRPSfV42ZgjOoSisdoS2HWlcKiL6V4jNFF QRgzY3Eh2yr0yraV4o9gpVZlzUPo23FYiq9tPe/2UorH8OeUJvEmV24o+bMq i5voWd0c0NVcqrPdPA26oLWLlELnKIWeMXAfMTiKsVqRi9QMVtJM8TRKIRzE N5+/tDjXhdIiN9wlbrhcLhS7iuEo4midWwAbpwSrQ8Bng9GakyTUk56+SJKM S3S8hH5JS9yLWFQPu19Y6n/0T4j3OwD+DYJLALQSQLMAsJEANhHApqtMAsDW ewTwlQSAb2BH/9sSgHsFgCMJANd9+hDAMxKAXz0G4NWprwng17ix+2vM7/ka C3u/xs19X/P23d7/Nb6Puwe+xoHhu1g/cA7HJi/h5s5LeHffeXy+/xS+3DuL r3fswW/XbcCHa3fxZwR9fybhd3/2M9ybFQB+Egdw9kPMHyaAhwngkXcIHgE8 SgCPvcoQwGO3mXmGAB4lgEcJ4OE4gNe/DeBy3D5wFHsFgKWPAzhLAI/663GC w+GZsiacZ126xLy0BMCbSwC8/xDATgnAtxnp2YzqRwB+QvQ+WwLgdg6cI+JV eRxQx4jYIn7jxG/dEvwmfCPoY9XrKxD4ET1nO/HrYN3rIH6dxK+TVa+L8HUS vi7C10X4mGAnRkJMpBPDkQ4MRwkub+9IrA2jHLBHK1r4cRMGqlrQs24rytr6 oLSXiAdtclycGLTcf7V5LujyXdDnc38vKIWpUKQEliIWiSKOU1KKkEXtFHKr 9Mp8hyEXBdZ8FOcUwE0hvc58eEt4mPPn001NSGEytDXQKANQKzwc6XzI0gbj byfPaVeZTQUdnHjzOPFSQK34/yeccQENFNDoFgoyPk6x/kj8/50QvU0Q+B1Y CJglHGbYx6KElnN89/TME+iZmWE16jk4gwxei8wfooEhChiWFBQGKngFCv64 koSqWBvVUd4C+qehfdqKuH+6yriB+irxbu1CwP/GZRlNDMBY4eUgTIj8DkQJ X5TwhUzPsxKpoNZZOefbsFKegyxWOR0HUzOnTDuTx0G1kAOrU1mAElkeSqhJ UUo27Ck5hI/nH7XYKgZ1Kc9JRo2L8Llg1rsInxsWoxtWwmU1u4mehxXPI6FH wrLtbjH8k62yjgn0TR1Fv8jOo1SP4vEHlSaPqHceXq+KP6vmz6ptXqhsXGd7 eCpkHBzYGV2OuF59jhv/lcOBePedXGRlcvBW8DxIgHP5s4W54h+p+OEqZTx+ lHi9yC8pTjwWIiYEfi+nBTEliMdGzHYHCiw2YZgmTl7yQ/QSDFp+d+ANJ+qf UqgnJRiHL66feM0e+QtKyYLt2f9g+3taej7D9MyvsLmBADYQwEYC2Li0AQoA X8e2nscBPCAa4FgcwGMTn7HBfS4BeG7zA1zYyrl325e4suNLAvgVAfyKAH6F uT1fYX7vVwTwK9za/xWV+Qp3pr/C3ZkvcWH7uxjtPYPZTZcwt/sS3j5wAV8c PI2vp4/gt3v24T83b8L7/Rvx8sa7En4vE797s5/g7iwb4CwBJH7zRzj3HiWA RwngsbeY32DuOAE8TgCPE8DjBPA4ATxGAI8RwCOHOfvux3v3bj0O4K9wkwDu KY5hf0klpksJoLuGCAoA63CEDVAAeJoN8FwwDuAVzr3XCOAc596bRFA8nSsB KD2r0YHXK8XsSwCrOh8+nRuffeOP9n22pAX283eMlDZglHPrGCEb8/Q8xG8d 8VvvHSaCIxhx9RG/1iX4dbL5dRG/LqzhjLzG1038uolfD/Fjgj1sfEy4m/gx Uaa8i9h1JlG9DjyLscp2hqWwkvbV86qmDmBk9hiUDhc0udzjRfK514sUeKAv dMPAc7nJySOPsRTzKC8u4ZFSwEpj51HK2ddQgDw2PScbY2lRCTylJfC6ufZy 8PHko6A4m+6FsEpXh1RdPTQaysL2p1Z5eB1+yMT8axEtkALRP1UumyBnXw39 0zrDUgvUlyYMpH9Gb9xAU8JAk3jiICjeFY/rEPGjYoZoNZT+CnTtP4CuAweS 0H3gAP4LuqYP0MQDLIIVTJmEoSxAEImhnFej4NUICBW8CiUhVEV5U8qZGItp RVjCUFsRToKOCn5XslBPCfWVQSbA8dgHfYzNKSrMiFDCHyJCC13yZ6Bw5ECt t0GltSJLrsPKrBysVjqhoGsGHR3TeZDDdQGNc1K8EmUxXLIilKbnwbkqB9mZ HH35vUYNt4bWA5OeI7bBA4vBC4vJy/5r8eIHBNDHeJGdzdgZhwh5JGD1Y7up 4DH07zqGAUZh4kmICCrNpM/iExOv1Yf/Tgq5cbIZO+PwkUIfRwIRL3S5Xm4o F1JY+FZnFUAld8LIm2znz4u3KCwqDKKkNMgNH0KpL4hCnx/ZBSx/UvGzS8XP wiJozS+ELV/QKIi0wWbLTU6Uwcd7oGWxBz7xWA8MW1SSiMkShFxayKFFwbX4 bzZCFsFh0PKIw9wVz5LDX8af3rXFsLn+NEMO68lhAzlsFn3wEYdbe96UONy5 hMOD5PCwxOGn5PAznN70Oc5tERw+wKXtD3B5xwO8tPMBru16gOu7H5DDB+Tw ATlk9j8gh8z0A3L4APeYi9vewo7xaziw6SKu7bmEN2cu4vPZM/iGB+R/cn/9 f6e24Yvxg3h/20W8fPgT3Dv8Me4c/gi3D3+Im6Rw/ihz7F2SRw6Pk8MT5PAE OTxBDk+SwxMciE+Qw+MXmFNxDmf34927C4sc/kvi1S27SOE+UniAFM58i8Lj pFB6gje0+MqWRxQukMFbMfHKlna8TGEkCiviFL5VtTgQd5HC+BMfS/vgcQ6j wyWCQg6lLrrk7mb62AcHHjK4ngxOeMcw6CSbhe3od7L/lXSRwW4y2INB0rmG 3XGtnwn0ksFe9r8+Esh1hIn2kkAm1oORCqayW7y1C2/RLzDGQXy0mkNyVSu6 G/i1w8cxyih5xtfmeekgd/kCH3SFPKqLvNA72XKKvTAV88grEU6K/++sAEp1 Po9GNhrOPgV5bhQ7PZx7vPSPCXjhKnOhyO+Eo9AKR64BdocWGbogVtJCtYrT ppZTJydiGSP6oOz/I+y9o9tKEyvPe6hqx7U9Ph7P2GOPvXtmdm3v7pwZT7c9 3RW6qitIosRMEIxgDiByTgQIgjmIOWdSEkUqUMxiEClSzMo5UFJJqlJJKqWK ffbs7O4fe78HsKTq9jnzx30AEUgQ+O7vu/e9h/eYB6OYB6PTAzxkHpQzD8aq /TyM11GCh2yzSSbKTFlc5CFlc4lzWjjFd7aIw4Q8H2LtXpia2lE7Ocl/vY7L PyMWp1BH1Z+YYij0INTgQATdGml1SDyMtJOJZGEUf0c0M2U0W7WMLJSRhTH5 fh7KycPYAlGm4xgL/05CYnyBkyIMvTYWZzNBaIFRGQYXUehK+xAm+S+RG7ub 04eA4fahWBIREZ0srTsLjtYgVM7nxVmhiLchg8qhNHEW6Hm7UWaAMZJgDMuF Zk8O0iPYhhPMBCGVZCEIqWQrWWglUUiedCrDKoJhppWUSM/izyRZGikWRA6e DkLr2Gn8R2TaqxFNhMlSrYQglcaMnk7xyfIMXmZSfHIsEReXI2RFKOvzJxEq hPMFxcuZSBVWZGU6mPdd0Ojc0JkoqxtqTiyZ4pS8SrXUgVOzc4jjLKQRh2k5 vK7SSGtU0nKZDnPSocja7sUuCYWu30LhH0j3EIH+lYFvXAoMSulQwqE4nH0K 06GDOPx7Pw5TImAnDtVhHxOFbyPll++gMNWDoRLisOQMdZFIJA4riMOquz/C 4TEJh88wThxOdQscviIOv8Yp4vC0hMNvsX74O2we+Q5nj31PHH5PHH6PS6Pf E4ff4+rE97g2+T1uTH3P+PU9blG3p7/H1sz3uDP7fRDuzn2Hf4+jPRcxeugM zk+cw2dzJOKpdfz3U0v4v0jH/2fuJq+fx8P5R7hDEm4tvMStUy9wY1GQ8Bmu L5GGp5+QfqThMmm4TBouk4YrpOEKabh8kfcLGi4zRC5INPzu5bMf0/DnOK7x YEJLGup8mDYUYoY0FJuB563+zcDLv7lRhDS8ShpeFzRk05Q2injfXD0YaMfb qwd/ox2LVYSDrnJ06kQz3sfgV4ceYxNp2EIatjMcdkok3E8S9hg70aSsZigk CUnFVl0DG7EgYRNJ2Ix2awtJ2EISUo4WBkIqr5UkbCEJqfwWArCgmfGlx8c/ UdiI3qJG9PAldBexSBfVoLF1v4DkwjIHnzKvmBC0Ujax76rahp8ShIw6WiuS dHSpXpxgS4MwuQpx8WItuxHZrENqPkbPhGUkUUx2OwwuG7ROM7ItBKU6Axm5 qchQKpCRnUAgxjIgOhAaUwS5XJwNyINoBkMpHCaysqbkIYrhMDqDyiYQGQ7l qgAQtUxlepLHQNoRiIkEYiJhmMRkl0SSJdmFHEh0+r+JFm32wNDQhprxCdRS QaidmCAtayf589QE9I1tCDV6EG62i2+x8tX/ISL4/EgyNZLhMpLtOiqP2qZh gIgxTIZyaQ+XWC7/QSJjrNfJtEhYeAgWtxV6ZTicJKGDJDTK34cx5mMoM1IR o8iQDjsaLo4REaUgDRkRo9OlL1OERediL4NyRKwD8fFOxkQXshJcUPG6Lo7v b6wVZrkJ5mgdjBFqqCL4GTAeJitsSEmx8fOgCLM0wiw9w076CfF6tvg804my HUjl+9g6tozW8RWx2yOXvwN7zQE/DPlcSel2gtAu1hDb8T+ThXb2BSqHIZpx cRcT6x7+aZnMhMQE/vo0J7L5MamYK7QmypoPjT0f2fxYUrVkpUpH5gnuMRoq lYFtaJnkYjrSNLxPrSYXycbcTCjISFVaqrQ92JUSK3j4OxIA35LQKKFwOxE6 U2J+CIN+/RYC7QKBlC05nPj7BZLfewdDhfMYKlrBUDERWEwEllwNINCfCIfq HhKBjyQEHhcI7PQjcOZHCPwGK4PfYO3wt0Tgtyy83+Lc8Le4MPIdLo5+h8tj 3+HKxHdE4He4PvUdbpz4Djenv8Otme9we+ZbbM1+G4Q7c9/ir6UVf0fbzuLY wCY2J8/hwfxZvDx1FV+d/hr/74UX+P+u38cXKw9xZ+EFtoi/W8TfjSXi77TA 31M//la+oD6j7lMCgbf8CFwhApc3+TgGwsUFXJmbjHuTfh8zqi5iTOtlNQ7Q z0j6mUqkjSOnSL/TgY0j0rpB0u+ia3vd4D7/usH8N9YNFrzeOPIvVeNtAtbY S0m/CnTpa0g/1lbmwB5jG6txBwnYzTzYg/2WPt7fhqbcWtIvQD49ycfHtgny WVrQbmtFh72V5Gsj+Ug9Fy/dlKeV+a+N+a+N2Gtl7msh8lqIvmb0Fjehp5j5 r4S1urgWTYPj6D21it7FFTjr25lvVHZSL15tJ/konR2JehvCM0zYLVfTuXok sUFl0FVKtRMaUkjPampkjzSwQ+rcTigdvN+oRqYuB5naLGSq05GhSiYBGQez 40jAGGYhui2KdCMBZSRgSJQd4bFORChIwFQSMJ05jHFQxjgYwzgop2tjNZTu NQHjSb8EMwupxYlEWi2BvTaethOHXY4x5yPS6Ma+UUG96rGJIAmCP0E1AVhD /GmJxRCDmxIYCyf6/gDhNgfCidAI4i+C6ItgEIwk+qKIveh8Ib4gb16QxL+/ Yybk6yL1YvPtJKOdlGQbJPXsaR9RH8JA6umifin5NiaH7ZHUi5KnBDJgikQ9 6atksmxEyZSUCiHRRgSLI7oyJifFe5CR6IGS0nBmMCQ4YU6wwxJvgUVugCla C5VMj7REC6nnQGqGgzHLQeI5BO2yHYyASjt+H57qHuJuFW0TfrVPrqJs/wnI 0vjC+cSYdPEEOZ/+t8x8/IeynZBTsTlOhDBoitOyhEeZmN1tSE5x8UN0I0ft hcpQAI3FB7XDByWnnHSTA8nsA8lqA1LUenKNeBZ5T0Xu5SpZgcm9nAykiPyn 4e0aXqqZA3PTkJueKqqstHbQDzn5Nvb8ufCN3CeYFyNQJ457v827/42ci6Ii JdkCzEt+7xfQh8ZjyDdH7i2Te5vUBXKPzCu76Wde9ac/MO9o8xMMswWPdTzD ZPcLTPe+xMn+r7Bw4CssDnyN5cGvsXr4a6wf/Qabx77B2ePf4PzIN2TeN7g0 /g2Z9w2uTn6Da1Pf4PqJb8i8b4IIvW/4zt6e/QZbc19LGznunPxaWt93buIR Bg+s4fTEDVyd/zWeXfg1/vvd7/F/P3iJB8tPyLvnuM2od4tR7wZZd335yWve rT6iGPtWybzVO9RN6ip1gfe/Zt6Xn97dPvWQ/9zf/4QRfngTWh+m9IWYJvBm CDyxMUQqwATe6vYezoTd6wJcLRVg/1c7/MB7c13gm3v+PSfwXm6XYLHTlamM wNuHTn0dugwsqEZCydhOdRF4Peg39RF4/Whk6W1W1aNZK2DXhFYBO1ML2iyt jHqEna0dHY52dDrbCTvKTXnaCbt2cVxTXzuHRk8hoVdEFbeKXFfSggh0l7Is lzSgvrKdoFtD79I6+iStIVbFrKFhk9OSIDo6T2nDHoURUVHZ0n5lYt1SJvNX LpujhhO73uGF3u2FLt+DXIIhw877TVo/8Qy5yNRnk3zMfBpmPjUzX248vShH clocUiKUP1AvXJy3TcY2GpeHcIUbEYJ6zHxRWcx9pJ6M1Ivh35WTenJSL5bU iyNt40x8raReHKkrt/ogtzHnGUk7vRvJ3gpUjoyjitonNEqNUePUxDjy9h/E Xj5uL/+XvWzBYcReGKEXRuiFMe+FswGHE3oRhF6kR4ivJ5/AE+T7B8jIQFm+ kxHQIW5GvFUNTQ6NRuBZCTw9gach8GyJEX7osQPGxGUgLCKBcY9RL0pEvQwq m/1fSfCpEBWjoXSIjtEjXGZjIfYgNtGLlKQCZCkKoErm253sgSk5DxaFE9ZE K6zxRpj4eJVcbA1h/spy8S12MuCJgp6uFCsE0nOdzFMO5JF9bRNraJsUx+9q 5/Lv0T61hpy8BsRkkHNCmXx7xdb4bIpvvfjq2wcRBuyJFNutbEhIciElw4PM 3AIo9eK0dEXsuUXIdRYh05bPWmBHstZCsZiLvCfWHWv8/EuTsl1uIN9lsReT dzod0rS8XZPDx2QgIUclkc9J0jnFns68siPAPWdyjJTzhKTEF+Tnnl30XXtq NP4Tl6+5J2U9ykr2KUM/ho/JeKhgljpN/m1Q56krrL03MFS59QP7Djd8TvY9 ltg3SvZNdD8n+55jrv8l2feK7HuF04NfYeXwV1g/8hU2jn2FM8ME2MjXuDD6 NS6Of43LE1/jyuTXuDr1Na6d+BrXp7/GzRmhr3BrVuza8hUB+JW0kSNIarR/ ScY+xyFW6NWVX+PTm7/Gq0ff48tbfNypZwTflxL4bhJ8Nwi+6ytvgG+N4Ft7 SH1KbVE3qCvU+R/gd+XUPL579fLH8PtvOF3Xi3GND5O6QpwwFGOa8Jszl/6P +677dd/9l3aH2U58b3be+bwKNBor0aGrIfwamOiamfiYzNhre4zd7Ly9BGA/ +i370ZhbhyZNA1p0TWgxNBN+BJ+5FW3WNiY9gs/eQfB1otPVQfBRnk6Cr4Mp j5c+qqhTAK+4Q5TdEsK1lBAsYyosY1Isa0Lz0BR6T4sjGfdx+XMu15GbX0n4 ia0OLgTHKBEWmgZFWDpy4pUwZGhh50hWmX3QcIbXuQsJPR9UXi8yCYl0iwkZ FgMyzDpkmFh0jSpkGJQSADN0jHyaFAIwkX6MRXJmPAoT34c9LlQ6lGlkNCNf JEEU48XeOC9CFV6EpxFiBGAkARhFF0YTgDLGvhi+NgHAGKa1GJZVmckHGV9T jKUAUYZ8ROjcCKdcXQdQMTyGiuNjhOBYECpHxxjqKsf44/gYqibGEMyH7SH7 9vDXhJjEd9HYw8m+UIczCGEuF1uBwF+4exuBEv6k/BflYR3m9XBPPmItapjJ PAtlVPwKajJPHflLWMXRgunj7LRkxGTmIlqcJigykezbDnvi+PM55F4upWbg 01J6MsYIGWuvPMaMSDn/dryPzClCekoRlKlF0Kb5YEgr4N/0wJrqYrCxk4Nm 1mEDlMmsu3y30tk/03OJ6nSV2GSdpnISexvEnvjA26c2xOEbTmygg3LUD/p3 QMqUdjgPkvY4/1t8wr/+SYSJE5MNsfF5SOLnkZbjQ5aWr4IeUdlKSbxSZLmK oDCLL+DYodAxEUqyUmakCPppDdJWs1QN6ach5dRMfmomP1UmUvWMq3qmQi1b sCYL8WzFjmQ/5+RvSQB86zUK/dgTwIuRmq1MUI+4k85BnsrcJ8i3k0vmvVR/ 5rNSlmRxJvvdGHAfx2D+DIa8i+TfOrl3jrrMvnudffc2hvbdI/se/MC+Y61P MSKx7xlOkH2z/c8xf+AFTg28xNLgSywPvcTqkVdYP/YKm8OvcHbkFc6NvsKF sVe4NPEKlydf4crUK1w98QrXpl/hhtDMK9wUOzLPvSL/XuL2yZfYEpp/QQK+ wMr4Vxg99T1WL3+P2+cE976UuHd76Sm594Tce4wbZN717bC3xpK7Tu6tP6Du UWTf+nXqTfYt4+LCbPyb2HPj+dZ95j4fc18hcx+xZyzBLLE3F8h9ouiu/lB0 K38outcCRfd2fmAbsPfNbcBEn6/2NfoK/dnvZF4lM18V2rW16GBp7dSzpBqY 1Zj3uo096GHe6zPtR7uhg5mvnthrRAvR2GJoQaupDa2WdrQRee1EXodDII9y dxF5lLebyOPv8VGFVHEXcUf8lRKppR1EHv9OeRs6y1vRxLzXfmKJ2DuDvuUz 6Je0ierDY4jOMCN4dxLi9qQhg2FEk6KFWWmCw2iFx2mHOq8EmvxiqAqKkJ3v RZqdzcpqocyUERlWos+yjb5coi8HGfpMoo+5T8vcp45HSk4C7Iqd8BF9tvhQ JEapERLB0ikrxB6ZF3uIvr0MOyEpBQhN9yE0qxDhOVRuISJVFKepKJ0PkQYf oqkoFq4IXT7CtR6EackvquzIGMqOjaFciPgrJ/7KBf7KCb7fRwXRl1vfimDG vmCiL5jo28NyHOogAtlzQ5wiM4WSfb+HULIvTOKf4Byp6uGf8ZDObjddnRIE Y+pH9Kcm5n3kEndCloSIIMnB/wHZ6aReag6JlkrqJZF6YtuvP+1F8A2OiFaR elpKz8cYEC0zkXpmUs+C2FgrZHIHyedFtKIYitRSZGaUQpVZAl1mEUxZPlgz vXClOpCfoIdHroIhzkg62gk8N9LVQnnQc35um9yUkLeJf8sPf5PIC2h6E3Jl IWKy3Gy3nAgS7fh4N2v3rhyk7FVCGauDOt2ODFUxsgylyBGHqXaUI9tVhhR7 IRIZwJP0TsrBxCcac7Lehj/h0oIUPdmnI/t0BindpWo1THgq8k8pNVyJeQZK zyaszUaCWgNlugLSeycAJ47uHMh7fvBtM0/sBWPncpt8tlRxvksBP1tqVJDE vb/zU48yk3yzxwdxwHEEh9wnMORZIP1W2X7PkHyX2HqvYaj8jX0BG9h6mx6R fE9wvONLjHd9iameZ5jpf4aTB55jYeA5Fgef4/QQSXXkBdaOvcDG8AucOf4S Z0df4vzYSya/l6TfS1yeeokrJ16SfC9xfUboBW7MvuC/eHPuBf6KBGSVPUnN Cz0jAYW+xNYCdeopthafMu09wa3Tj3Fz+YvX1Fv7DeptMPFt3KVuU4J8l38g 3xWS78n9ewig779KFz9l4uvDGLE3oSvGFLE3bSrFLLF3kthbDGzvXXe83t67 nfik7b2/8bWP7cT35lc/tlPfHJ/XYKxGm6YO7UxxHXpiSM+kZiCymPS6mfR6 zQfQru9Eo7oRTVqmMn0LWliHW8ztxF4HsddJ7HWiw9mFzrxuYq8bXflUAX+H r0fU3KJuvIvuEv5cSpURgeWdRB7TYQVxR/Q1dB1DfkUXXNpi5EVoUBKpQbWK PUpbgKQ9mUgJz4EyXgtDpglWrQ1OqxNuZh2HLx+5BWXI8hUjNS8fqURemp0O s1uRbiP6bESfTaBPT/Sx8prVxJ+S+MtCuiEd6ToF0jXx7DkyaFND4Ut6n/ol XDHv8W8mIiKuDGFxpQgm+oJjib8Eislvb2oBQtKJwKwChGVTSirXizA12ZPL iqzyEFFqcdyWEI0byspWFJPgJUfHUCo0TNqVEnv/E0pH+CNjX9m4X7sY+Hbr PdhF8u0i+XabSEAb/2Kej/IGcZHPp+1ltA2R5KO8jJc6ZGdFQpP4IdSxHyCH pFMKRfwSJkE8u0JO2wnuKTIySL1cqd+GRSbzkjlP7P0XIF5EtIbSkXoGUs/I rGeGTNofiCkr1o64eAfiE9hBE5kzFYWQp5E2mWXIzi5jty6FIacEhQoLSpIM KIvXoFSejaKIVFijmLTZV9M0HribDpN3Z5CTP850Pg6NV6z01BVM4H8l9c7C UXsQ4Sku7ApTI/TDVCTszEFmpBaaJBPJaoOd6TrbRNLZK5DlrECKswyJpnwk MnGL/ZASDSSfgeQzOqEwkH5G9l2DFSkGks9A8umNUrJLJeXS9Ex8OvZdXbZ0 PdXI2w0a3qdEIjuvMlMcedWf+Yg96Zojxf9TjKi1YpEqTlIeAB12CdJJoLNu S6AuJRym5DDcvXkVl09ex4BrEoN580TeMpG3SeRdxFDRGyv5xHc/6h8Qd5/h aOsXGG5/gtGup5joeYoTfV9i9sCXmD/4DAuHnmFp6BmWjzzH6rHnWB9+jo3j z3Fm9DnOjT3H+fHnuDjxHJcmnxN5z4m857g6Lb6S+xzXZ58Tec9wY+4ZofcM t04KscTOCxFvC0JPGPCIuaXHRN0XAdQ9Iup+E3P3/ajbJOo271C3foS7qysb uLi0iIQ3UZcnpbzjTHnjDO2TLLcniLoZkfKIugWibulHmzP8KW977Z5/T78a /+4t2wW3YBt3/l1cngR2c5nlc+qNNdJG2TZdM5HGgqrvonrQaewj6vajx3IQ dUx3DeomNOla0GRoRTPTXQvTXYu1E23EXLujG+2ubnQQc50ePtdLEXNdhVRR L7pKeFlKlRGB5byvnH+jgs+rYHKs6ibSSmCI1KGMaqPNeoi2g3tS0MnrNZn5 0KYYYc7lEDe54HK6kVeQD1dxPhFHm+UXiV2KKRdSGYXSHMSdw4Z0B3FnJ+rs JuKOKc/KlGfRIN3MlGfKRropg7hLJe4SkaKKhzY9DAWK91FA1Dnl78EY/i7U MTGISChHWGI5drPk7ibugom7YOIuOIVKJfoy8rGHr3FPVj72ZnuwV0kRd3tV FGm3h6Gm8NAYCofGUETeFTHpFTPlFTHlFRN3QSgm7pQoZtAroWK8Fdip82An gfcJgbdTiMD7hNpl91IFCHb5EEz4BbsKsFscxi9DgRz5B8iO/iWywikSLptS RX8Ea5IcVoLORgng2WnV6KwcyFJVCA0Xp1FLoTIQHsWAFyVwp6a0lJ4F34go VtoohjtZjBVyuR3yOAdx50R8ogsJCmIlJQ+xKSzwKWWIz6pAek4FlLkVcKa5 kZ/mRFGqDSXJRpQmEXux2fAxUFpYoQs8h/CznZ14e1cn3qc+2t2JXcGdCKb2 7OmEJb8fu36VgpiPWDhDiBy5EXr+Lkuui+meFZphLstRhXSXOBJ/MeIN+ZQH CUYhIs/o3/08SexyZPTjTmEi8tgMUowCeSYijUHPoJPQlsZQl6bPYQFmqTXx dqMIe7lI1DHkZTE226WMlyy6rXgP7Sk/6C0/8Mg63mfl0krgBRTERVSQBLy3 YOFSJDwTE15TqSsocDDO/bYRHHLOkXynMZTPilsQqLil1wOr90TFZdBrfIij LZ/jWPsXGOl8jPHux5jqe4KZ/U8wd/Ap5g89xamhL7F05EusHP0Sa8NfYv34 l9gcfYYzY89wbvwZzk88w4XJZ7g09QyXTzzDlekvcXXmSw5D8e3ct3B97kuS 7ylunJTE3Df/BH+OmwvMc6eoJcLu9CMC7xGB9zmB95m0Bu/qm7DbuPcG8LZe Q2/jMq4SepdX1vDk4YNt6P00AL2bU6cxoinCOGvtpLHUDz2m9zlrOU4Resuc 19YJvNdr9FhtpT1Ytrfhvq62UsYrqPkh44l6+5jqt1WizlCLFk0DWrUthB4r KoHXru8l8PrRxVzXTeDV5jaiXtOMBgKv0dCGJlM7mpnrWpjrWgm7NieBl9eD dsKuw9uLjgI+v5CSYMdLoTKqnKrgYyr4HGa51soOqBUOxhATCqNsaIyyoCsk F8cjVTgZq8ayIhfjZQSxr4p5zgNXHtuSrwCm4kKkFxRLR51TsPMlO9zSlydS 2ftSnU7KD700B/OdQ0DPSOjpWXG1SLeoqByCLxPpxjQO8iQkaxTQZobBm/wB vISeH3jvwBq7m+0sBpkKHcIVlQReIXbG5mMXobcriZfJ+didRqVTmUxiWUxi hF5wDpUr5Iah+QC8A2MoIPR8hF4Boecj9HyEXiGhVyhBr5DQ2wEfU56p7wA+ 1oojIHysE8ds/ojg+8gQkJGZ8SOjSHfix+AsFVJC30Na2HtIpzKEwt9DJqWO CYY5KQYWP++CJOCFBXDHfpiklA5bEhYh1uZlMuHlEHevk11EtIG4MzHhmYk7 9lgmuxgmOzlRF5fgQnxSHhKSibtUoiXNgyRiX55ehOjMCiQpq6DMLoFZdFu+ KwWZxF4GsZdqRIlCjWq5FR++U4pfvbcPH3zcjo+D+7B7Tz9CQvsRGtKBsI/L INtZBlNYHrIiDUx0ViY6F2x8V5wWL5zEvdLlP9h+rNGHOEMB4oxexPONSTAJ eZj03EiSJPY4Z8IzOfy4M9kogTwzkWb0JzmBNiMTnjEXCvbYVDNvN+n4GBUS 9ESfMv0n4o3b5ppUX20cFjaJbZIE0qJ3+OEmsLaDWS6SioCRcNsROL3E5bmb OGifJt0WMeheY6Y7I2W6wZKrGNyusLXMdI3MdM3MdG2fY7jzEUa7v8Bk7xc4 0f8YMwcf4+TAEywMPsHi4Sc4ffQJVo49xdrxp1gfeUq6PcWZ8ac4N/EU5yef 4sLUU1ykLp14isvTT0m3J0G4OvsEfykdfOD63GNcP0nNM7ItUKcY2xapJdJs mRI7oKySaGsPcGVd6D6u/ijCkWhnhG5LZLu6cY30u4zLa+dwjs010U+1n0kX aTiqKsQoG9y4ocRPNXMZqVaOkyTaoq0CK45KbJBoZ13brbXqje0Uv021BwX+ lXYS2Ui0cmMZ9pnq0CxWvmnYQLUdaNWRNiRaO4nWSaJ1WgdQo2pEnbYZ9Wyz jcZ2NJo70GTpQpOtC80kWqurB21uPiefKuhDh48qooqpEqqsD+0kWjuJ1l7Z i7bKHrRUdqPI04TUSCvMUXkoiXCgJdyMY3IbFpLtWM+y44zKik1XPtaODcLl 8cFR6IOuqBBJecVIdHipfFItHwonqeYKUM1FqrkE1eyUVaJamsPEFmtAmk1H snHsWpWkWhbSzOkcxwoo2Fq1WeHIDxDNTqIZSDQLibYDTg7eP0dGsp7xrRgf k2ifJFAKKpnRin7emU7RuztJtJ0k2s4cN6L5+eTtH4P74Bg8JJqHRPOQaPkk mpdE8x4VJPMOizV0XlLNS6Z5SbRITyU+ZKP7kP79kEz7lZBeEO4DXvsjhCmS EBMdAkXIu0gOeU9CWmoAa1mRH0Ebx1aUKIeJKDNTAmlBUogLg03wLFOFyIRs hIQlk2fp5FkWpSTTVIxx/ugWwegWIfbQllnJMxtkjG4xsQ7yzIVYRrc4hRsJ KVQq2UGaJ5FdSVleKHK8iGVblZFp6VnFfE99sLLN55Hw3mwnakj5tLBqfPJB Pfa+34Lw9zoQuvMwQiJOICT4ICKDuxAf0o6UqCaky+tQz0Zq4axgJ68cdh/s LOiZZFmcuQSxeh9iDeSZkTwzFSDe5PXzzMzWaubrMpNnlsC3Z8wuyoFkM5lm tpJpjHAmMs1EdrHop5rYTk0qjoNspFhMSDHrKTUSDEbEaXLeEm8cUSaOq2yT Vsq9wTIIhMnEgkSzsKb+REKamTJJQIvA9MggGehfETXbuomDtgVCbRWHPJsY LLiAwaIrGCy7gcGqLQzWMK7VE2rN93Gk9SGOdXyGka7PMd77OSb7H2H6wCPM DnyBk4NfYGHoCyweeYzTxx5jZfgxofYY66OPsTn2mFB7jHOTjwm1x4TaY1w8 8RiXph/j8ozQF7gy+wW5Rs1R4pAq89SpzwNfMSPFTlPLJNnqA9LsPq5Ql9c/ xRXms6uk2VXSbAeukmW/w+Vt/nyL913jYy7iwuomHj18+Bswe7b1AMPqIozq SjBOmE2aynCCMJthRJunWZbslVj9AWhVuECYXXJX/bCj8XZMu+P172wsbYUo qJH6qYBamaEcFeZ6NInVaoRZs6aTQCOc9H1oM+5Hu/kgOqyHUK1qQi3jWx1h Vm/sQIO5Ew2EWaO9G00OgsnVi1YP5eXzCLO2QqqoH+0EWVspRZi1lVMVfAxh 1kKYNRJmTm870qI46coLURjuRl98AabTfVgjxM9yoJ6zenGeXXPtSC+GRvqQ lV+IOFshEtjJEhxCBJqLRiLwkl0CaHmU//utqS4HZZOAluokzBxGAk1PsXvY cgk0TsSWDA7iZCj0yVATZh7CLD/5fZij34WeMDMTZuwgqf61K/hraRDnKkiB OBM+jCdtkpiZSLSP6OqPSLSPMygS7cMsOrBnDPa+MTj7x+A6QJFoLhItb5CE I9XySDQ3ieZmTnOTaXlCpJqm+wDeV7kpZrH32Wj/mEs3QuITEbf7HcQHv4uE ve8ikUoi0Lahlh0dDH1CDAyUMTGGQOOrFjSLgEXhr6RCgmUR2ywLF3uZZJNl uZSGPBN7rBnIMRNlCbDMDhk5JotzQs5cJk9yI47/cXwKRY4lZvAjECwjsxTK AiTnUiofollL4zJLkJVdBK2ykEwqgE/Tgg8/7sGujw8zgx1nBhtDXPAYZMHj kO0dR1LkONLiRpGtOIbctP1o5pxYVVAFh7MIZnIsxV6GWF0hOVYocUzKZiZf gGWUmTyjEi18XRbyzBLgmfjmi4UZzUKWWWx+nlnM5BZZZmE+MzOfmVUcCkpW Vw1vFyzT8HeaEKdTMnX5WcaAZpWymZXTm+CYxS+JZHyzBc7MxNlbfpRRRuKs sSzvJ5Kf/yue3n2B/eY50mwZA3kbOJR/HoO+y4xn1zBYcQuHqu9gsI40a/wU Qy2kWTv93/kQoz2fYaLvM0zt/xzTBz/H7KHPcXLoERYOP8LS0Uek2SOsHH+E tZFHpNkX2Bz/AmcmvsDZyS9wbuoRzlMXTjzCxelHJBo18zkuz1Jzn+PKyc9w ZYE69RBXlqjTzGDLD9gaSa/VT5mzPsWl9Xu4tHEXl0iwy5tbO3BFgtgVQuzK mVu86SbvvorzaxewsbSa5IfYPwX+6VM1/RjWFGNUX0qIlWHCXI4pQmzWWoEF 9sMlxzbEql5D7I1vS2xvRhUr2O56t7814QdZia4c5QRYnaYJjWr2RgKsSUsg 6frQajyANgKsnQDbp25GjbYVtfp21BFgdQRYvbUbDXaCyNmDprxeNHv60Ex4 tXDUtRBgrUxirSX9aCmjyvuD0FLRhz9Dc2UfGqr4lCNz8FYNIF1WBFdiOYrl pejPqMSstgqbliqcc1bgnKcUZ8isNbcLB1aW4ek4gASrj/zyId7hE18aZ8H8 SzIsX2KYgoHsB4blkWF59gDDLBQHq4OD1cHBaudgtZFf1gwO1BTEGzKhyg6D O+UDeFLehy7iXeodmGJ3SbOv6BL+9SV//sP6Eg5Z6BJDae507JKr8QFR9gFN /QFR9kGaG5lVB2DuHIO5ewzW3jHYiDEbw5md4cxOlDmIMgdR5hgSocxBmOXC QZzZA9prr8C7WXnYE5OIiNA9kH/yDuQ730EsGRZLhsUFk2V7yDIqI3I3NHEy aONl0JFfEscSAxxjxzRLkv8AsugMNSLTtNgblsKSmYnQiBwCTEVpKT0hZqTM CBcQYxiLZBiLjnVCxjAmNhnIGcbi+L/GpeYTYoQGAZaYVYBEQixJ6YOC80+y mtJwrlEVQ5ZbjoSsIqh0NYiIGcIvd05g5655hO1ZRkzYGhIiN6h1JMVsIF2x gZyMVaiVi9Cqp6HRDqGluUfa7S1OzxCmKyLAKANlpEyc06hYM0EmZCHIWEIT JBFkVoLMyhJs3QaZww8yK0FmtVAMX1aWSAsLpUXNoEaIMZwl87Zki9YPMX2u /72TNiBYxVdirVIos3BpSY2RQCYAJhPoisbvShgz/SABskjomcvu3LxG4wtj /2dmonuk2SIL5zoG3Gcx4L2EQ0VXcaj8Bg7t28KhWtKs4S4Gm0mztk9xtPM+ hrsfYLT3ASb6H2LqwENMDzzE3OBnmB/6DKeOfIalY5/h9PDnpNnnWB39HOtj n2Nj/HNsTnyOM5Of4+zU5zh34jOcpy5Mf4aLM9TsQ1yce4hL89TCA1xapJbu 49Jpapn0Wr2Hi2vU+l1c2LhDbfGfvbi5FYRLZ6TFbSbQSwTZxc0bOM9uubly Ft98/TUCJPtn6SIVi3X7MawtwQhJNvYDySr8JGMUOy1IRor5SbYP50kxQTKx 1uya580to/7jvN/1VpNm1SjWlqPUWI9qfQvqVW1oIMUaNUSMrh/NpFiLZQCt tkFUqVuwT9eKGlKsxtSJWkawOls36hnB6hnBGtgnG/P70ESKNRfyuYxgTSRY UylFijWX87Kin9GrD/WMYdW0dvfKRXgrD7E7lMGeUo2CpGp0qRr4fzVgPa8e ZxkTNwurcDq/FLM2D/avn8d+Vm9laSPiAxiLd/qk03e9PoWNB4o8okwcS5MY S85zEGc2xjJ2CEaxFKeB4nB1qDmn5yDFlsmhm4p4IzGWE4Y8IsyR+EtoiTEN MaYOe5vjVVoFIsO/lgarWVI0x2Y0jJSB41SdGILsmJ2QhQcjRJaIktZOaJpG oG0dg659DIauMRj5L5tIMyODmYk0Mx8Y47gn0v4QZkLNTKiVHR9G18xhdE4P YfVMP6Lf/zlkv/oFZB+9jZiP34bsk7fF1+B3vSMO8U6YpYTvQq48GqpYGdSE mCZegCzmt0AWJPXLn8Ks8IMsKl2NiBRCLDSVaYwQC1cyjakDEDNQRsoi7VkW wRQWyRQWFeeCjCkshilMLk5enpKPuDQv4pnCEgiwhGwfEnN8SMotlCCm0AiI FSFZSxE8cQJstsP46ceT+MXOVXy45yKb5HXIYm4hIe42FIm3kZa6hezs21Bp bkBruAydeQNqyyy8DWPI8bZAzt8VqysmxIrFV9mIsN+VIBZrDshCoFkCILOK 00ElWPPxp1z6QZZk9X/1TmElyATEbExjNjNl5Ehg8rJpkGjMZQvVSrclEnDx ZhOBKY4oZlEQXhZxOGNLgGAcCCn+ASERjLeZuDQFBkeQtPwdCWTGgAwCZikS zH5PsvZ/wUwTh7V5BQecZ3DQcxEHfVcwUHodA5W3MFC9hYF68qzxDg61Mp21 38PRrk9xvOdTjPXdx8T++5g6eB/Thx5gbugB5g8/wMLRh1g89pAse4jlkYdk 2UOsjT3E+vhDbEw+JMuoqQc4e+IBeUbNPMD5ufs4f/I+LixQpz7FhUXq9D1c WKZW7uL86h1GrDs4t76Fc2TYuc0tnBcSELsgJbILRNkFguw8E9k5VsuN1Yv4 7OEjhZ9j/026SCHHDmBYV4oRQxlGTeUYN1dgigybZRrzc6yKiUxwbB/OBDh2 kQy7TF31+FPZjXz/t/qlZEaGjdiqUWKoR6mpFXVkWJ2aCYtJrIEMayTDmsiw FjKsggyr0rVhn6ED1WRYNRlWwyRWS4bVkWF1rJH1ZFhDQT8ayLDGYooMayDD GlghGyqE+Djya1/XKLqWL5BhF9BDjqXKy6FPq0VxTgP/dguOOFoxzxG77GvE Il/zvLsch2o6yC8/w/qpnLLGHxgW76Ly6KI8wTFOveRYEhmmEAeMI8OSGceS 8zhaXRytLiNFhjk51TqUSLZncqRmI86YgdycULgYxQyy9/z8onLDfyGN1R3S GP3Xb4ArGnoRxTgudSlR0HJsqjnRLp+awvraCUxO9mJqug/Ts32YnevD3Dzf jyODaDo2hKbjQ2geGcLiMtPp4ko//i0WV/uxtNaPxXW/Tm30Yf9AGSIJsShC LOrDtxFFiCWG7ERqRCiyZNFkZjSUBFguAaaK24ZYzG9BLAhG5rC/9icyRQyi 0jQISVSSteIgb1kICRer/AmwCF0AYCY/wKJs0sl3I5jAopjAopnAxEnIBcDk afmIZQKLyyQssjiNEF4JrIuJBFiSuogAKwqCgsT5CyjIL1fDYWR7l/CPO9fw j59cxruhd7Ez+nOExz9BbPJTKNKeIlP5FErdE6jNj6CxfYoc200kG84ir2kV NcOnyZEKyMkvOfkVa6BMlLk4CHKL+DNy4iuWGT1OyMZXZSNebflI4OSXYGMO s+VRRJiN+LLZobBzQNiZw+wcEHaBLy0STSokmnW8z8jnWIlC4otIMwt4mQW8 zCnSQsbgYUqRBYjll1HarCnGxk/8tJIkiBWJ+lI3fj+ArCd3XqJHdwr9lg3s d53HAe9lHCi6hgNlN3Gw6jYO1lINWzjYTGy13cVQx11i6x6O997DWP89TBy4 h6mBTzE9+Clmhz7FySP3ia37WBy+j6Xj94mt+1gZvY/VsftYn6Am72Nj6j42 pz7FmelPcXaWmqPm7+HcAnXqLs4tUaeJqOU7OLuyhbOrWzizRhFZZ4isM8TV WSGBrHNE1k+4vM2bbvHuG9hYu4KrV24h2c+rnwdWAA5xIBwjr4bJqxHyaswi eFUp8WreXsUGWYUVZq518mqTvDpHXl0Q2Yu8ukLfX6O2mXWTGrZWo0hfj2Kj YFEHatVdqGXeqierGsiqBvMAmsiqMrKqgqyq1HegiqyqIqv22XpQ7ehFDRtj LVlV6+1DHfNWHRtjHRtjXQlVSpFVdWRVDVm1r3MEHafPk1XnxZ5opNUfoPbw PDLIKreqEQ2GZvTYWjHsbMGkuxFTnlocYtvtmDwVxMB1Dn8voap/9Sxx1eDH FVEVR1SJswLGB84lk+jm5MqmmeTm5EpUKYgqRR5RlWdks+RoJKoUzlyOyiyO bjUHfjpyskNgTXofqsh3oRKYorRsjWJQGlP8g9EgaRtT0URUFDSSIqFKjsTW zWv+7U+ZuL11CVt3LzE3TWN8phcTJNbUfB9OLJBgp/ows0gtUaepZWqFtwut 8jErJB1VUmRA/M5PkLx3LzIiopAZRUVTRFUWUZVNVCmJqh/jipkrIYCrxNeZ SwBL4CoyVY09cUSUXElUCVzlElcaFkcdQqWcZaasCIveRpULkfF5RJUbMoUH McxZMcxZsRl8y4mpOOas+ByWw1xREIuQyBGapClGEkmVRE6pCprRduICWbWK n+2+hH8KeYifRzzDezEvsSv+FSISXkCR+QLZ6hdQGp8j1/YcadbnzD1fIMF4 A66WTXSevIjKI0sBVpVAbuSln1WEVLGEK7mVWcwaAJYEKz+wEuwcEnZPEBLt efhjLsURDuxIctigcJBVDhPFEG7XkVMq9kw97yOn7A7+KjP/VC5MglUmwSpT irSQ7RCjIUgMh7ek8fCWhCa9NHERTWXuP5RGwT+QTF+RTCvos51Fv/sS9vuu Yn/JDeyvuI39DFMH6qhGqpWhqn0Lhzvv4FjPHRzvu4vR/XcxcfAuyXSXZLqL 2cP3SKZ7mD92D6eG72Hx+D2cHrmH5bF7WBm/h9WJe1ibvIf1E3exMU3N3sXm SWqeWriDzUVqaQubp0kfEmmTRNpYEwVwg0x6Cxuk0gaJtCkkqHTmjLh5c/M2 1jduYnX9Gq5cvZPiB9IvpIv3cKr+II5IQCrHcQJplAFqkkCaCQBpkUBaduzD WgBIZ/P8IeqCu5pQqsZlwuhqAExHzPtQqK0nkFoJJEJGw0BEGNUQRnWGA6hj cGogjEpVLSgjjMoZnCoIowqGpkrCqMpJwBBG+zx9qCaMqn0UYVRNGFUTRjVl LHrlvL+iB5UEUeOUODXzOXQun0PXyjni6Bx6V8+j9tg8snPq4TE0MZA1o8PZ hB4WwN7abnRMLcFPop8wOPFDFVo9gz4qr+ewOL4PefSnfiK5OZtLRHJTeZST QcpBOtkYpiyUkeJ4c2mQRBrFO7QccyoO7TSYSaIgKMmiHVCSRMqIt6EmjTjo yKLf5xQo41gTEhSKJoGioSaJVMlRUCokEgWmx5/gBjF0894l3PqUun8Jt6kg 3H5wKQi3HlxiAnvx9VPpodsqd7iRHhqJ9PBIZERGIYPcyYiOfoM7MsakN7gT /yPuBEngiYAhyY+diBQiJzYLe+PV2BuZS+SoKCamcD0rl5HYMVN+5IQJ5MSJ rzDlIYrVLjpZnNzCixgmI3mGD7FETixxE6csQnxuERKImwTWukRtMRKJh9yC FrRMnZeQU9B/lsi5jn8Ke4q3Y77Fe7KX+CD6GcKTX7AavkSm7gVyzc+QbvmK tep7xFte8PIO7M1+5HSevICKobkAcihTCZFT8iPkyG1CxI6d2LHzM7d7pWMI xNuZkfg2JjiYkRz83J0Ofsb83J2ciVj8k1n8kx06ZiEyx6pHAu+PlZhjQoxR CaNgjlEwxyiVOzEDiU/eIJU7g6CPXuzgqpfoI5En1R+ZSZ8/Cpx+9Mmdr9Ft WEev4zz6PFfQV3gd/WW30F+1hf4ailWuv+k1fYa6tnC0ZwvH+++QPncwfvAO Jg/dwYnBO5g5fAdzR+7g5NE7WBi+g1PH72Bp9A5Oj9/B8gQ1eQcrJ+5gdeYO 1ma3sHZyC+vz1ClqkSJ51pcpkmeN5FkjeVbJnVVSZ01oc+strG8K4qxu3MLy +g2cWr6IV199EyDO24GDry2QOIf1ZThK4hwzVWDEUokJEmfaVoU5EucUabNE rZA4665t6lQzClW/pg61wMcUqOvg07WgUN/JykaCaEgH0qaa0aeG0aeWtCkm bUq0bSglbcpImzJGn3J7N8qdPajII0kYfSq9lK8XVYVUMX9PKX8u60FZZR/K 2o+j7dQZtC+dIW3O+mmz7KdNzyqJwzxTtn8MamczbO5m5HmaUd03jH4yRiJN EK+exb8havyY6VvdRO/KBqqGJyF3chYkamIZfmKJGnHClTiiJp7hJ97toGzE joXIMRE9ekpDQBkR69Bz2OYi2pCyA9kR7/JdzyZlskiZ3NidgixBHEwy9mg/ WKKhonIFXKjqUvdfSp/GH0uoSAsjKhhP0iVUREuoyIh5AxVvRBSVhAoOa8GK /wxdoj+lSMBIVmGPnJiIIybkOuwNFZgQq7b12BthQggLVEiUFaHRdoTJnQiP y2N6cCOSBSqKmIgmJmTpBYjJ9EGeXejHRK5Y00NUqIsRz1SSQEzEGytQOnCK mLggYaJt+gJCs67hZ0wlP5d/h/cSv8X78mcISSUOVC+RYXzB5vQcqbZXtOd3 iLW9RIxVzJud8yK/dp48jw6q4sgi5Jz+BCbkAUzEWIslRMTYWN7k9kLCVpAi VpDCwdnBQVI4PKzcJIXTJVEi0WmnrJwVzMyqRtJDR/qoGGpMiHN6JErIxZco lKkwCEoYBCUMEiUEIfQB7SARZDukmPpWAA7+oFpX5v4T6dP73wmIb9Bl3ESP 8yJ6vVfRW3wDveW30UtA9NZSLE19zVvY37aFgQ4/II70bmG4fwsj+7cwdnAL E4e2MDW0hekjW5g5uoW5Y1s4ObyFhZEtnBrbwuLEFpamtnD6BDWzhWXCYYVw WFmgCIcVwmGFcFghHFYIh2XCYZlwOE04LAttbO3AyqYoSCsb0o9YWr+F+eXL ePX1t0j10+GdwMHITtYfwCDpcNhYjqOkw7C5kiWpElOkwyw1b98nEeI06bBC MqwJQpAMZwQhSIXz1EXKk1sHr6YFBbpO+Iw9KDb1o1LbjyrmkH0kwz6RQ7Sd zCttzCsdvJ8EIRlKSIZSkqGUZCjzUF7KRxX2oJxkKCvpQWHVfhR2HEfLwgbJ sIma4ydR3DeCvNr9MPlaYS1qhaO4DU7KXdIGT2kb8qmC0rYgFJS14d/Bx6W4 VtF5GPWHRtE2NR/ggp8NPcvr6D69iqzKNsS4CiHPy4fcLU7KlEdOuMgIB2Wj LGQEBxYVy5IU67JATjZEW5SIyuC4yox4Vyze4TjPIByy5TuhTqaNJQkisIFQ OaRCNmPH+PGhv5I+iX9FPvrJkBYgQzrJkC7IIIUImUSGHFJBSSrkBsigjo+B hmDQihAh2PB/IjUpDaEJGgYI0iDOIB03a49EBQP2hpsYKCzYG2VDSLQDoaRC mDgcBrtKBLtKJLtKFLtKNIODjFSIIRXkOewJucWkAslJKsRpxPrbchQfXEDz 5DkpPLSeYICYPg9v50X8LPwp/jn2a7yb/C3ejXuGPekvEKt5iTTzC2Q5nnMS fwmZ7RvqOQlwRUDhPH6PUDhHKPhVfmQBMczGctaVGD8UggQRxOmyiAS5JLEJ NNZRIKIjoSCMLqAQ72JsdDkpQsFlJb/NUmyMtWj5K1X8LXbEilPQOOy8bkQa oaBTCBToBBV0KdLCD3MuUqWFAIJGyoxRUmasLfX8qfSh/T0eEwidpjPocl1G d8E19BTfRE/FFnr2Uewq3ewqvS1+IBwkEAa7/UA4RiAcP7CFUQJhnECYJBBO EAjThMEMYTBHGJwkDOYJgwXC4BRhcIowWJyjmwmDJcJgiTBYIgyW2E+WCIMl wmCRMDhFGJwiCBbXmRCWNkRC4FUsrN3C+av38fKrb9P8DHg3cA7OKyeWMcBO MkgGHCYDjpIBI1aREqowbRcpYR/myYBFZ4AD1Co5sJ4XYAH9X6utg4czf762 A/mGbnjNfSiwHUSp6SAq6P9KK/1v7INP04oCfTsK2VcKLZStC4XObhTliR0U u1Hspej/4sJu+JgKPJUHULJ/ElVH51DUNQw9Z3uTtwUW5lZ7YStc9L67uBX5 VEFJKwpLW1FEoxdTJVQpVSZUThaUlbcGobS8BX/E+9mJWgZQPTBG49P8S6vo WlxG+bFJpJc1IcpRBJnLGzhGM2cQjziindwjjoUf4xHHbrYjkjNMuIm5XJcJ eXJoEK37rli8w/GcEv4LGl3mN7uC8zqVpYhCJjV+/PDfBOJAGcdiasD0aQHD p8tEHJAh8180fYwwfZDk+v8CLS2fnJiKkHgNgmNyaXpO/XFmBIfS9KE0/xuG 3ytzIETuQmi8MLwH4QrxTRAvItMKJMNHZxZCls2pl4aX0/ByGl5Ow2fzHS86 MI+mibMBw5+j4anpc2ibOQdvz1X8TP4Vfp78DX4e/ww7M14gmoZXsB2kOWl4 FxuE7Wsoyu+iY57tkZIuTzKpCbv/BO1zZ9E2dwY55T0Bw4vTqwjH/xs6vkhy fYxDiEmFno91ev0nBnW5Kaa3PDqeRTFBSm9mksCIGLMWUWYTOeOUTjgVQ8fL bGKP6RRoFTFvQSsMrxXrJjSc/X+XzpZJwe21/O1wcmQIfyZ9XP9Rsnu7iZk0 7wq6Cq6jq+QWumj3Ltq9i3bvot17aPd+YfdOlgTafYh2P8K5f5hWHxmg5Qdp eVp9knP/FK0+TavP0OqztPocrX6SVj9Jq8/T6vO0+gKtvkCrL9DqC7T6PK0+ T6vPr3Ken1/jYoHulq5ibuUWzly5jwy/wd8LHIHl6Z2HmGs8iAFWgEME62Ea fJiT/Kgwuc1v8lka/CSNfYpaormXXf4Jf5Um7zXUwJXbAre6HW5dNzymPuRb D8DrOASfc4iT+CAn8wPIV7fCq2tHvrEDXprba6McXfDmUR7K20Wz9sJV1g9P 81E4OLFrHY3Qu5tg5DCzeBnpaWyXj3+rsAVemttHYxfS2MU0dilVTlWUtbIu tKKK2oEq4ep95a0cLFX0diVVQZWXNaOYt9YeHEHDyCw6Fk6jfX4RJYdHYW7d j1BrCUI40CKchZQX4bRiiIUesdAvJvrIwHitTUec/KMdSA5/h0NEEf42EsN+ gawkdnsqI4nTNDV2/DD+l4CjRw4NISUsCqnC0ZHRSKOj0+jo9ICjs+jo7Ng3 XR0jXB0ENR39t1AkpEqBPliWS0fr6GgzQ76VjjYgmG4Oppv3RNmxh27eG+ui 8/MQSjeH0c3hdHME3RxJN0dlFSKa07eMvV/GUC9jqM8q6kbj2CYaxzfp5jN0 8xm6+SzdTE2fFUfnpJ//CN7eqwi1PMVP477EB5y+w+jm2pI1NNacRmP1JEqP XPe7+OS2m8VzO06exV+j/SSb29wm7byJVsrScphGLoPMytdi81tZJuQQYsRw soDw3Ze78v1nwGTginM7pcAlylgcU320xYBIiw3hFitiWNxixIlEnDb+Pv0O qBWChsLLIme9JdlY9Vo7pCK2A7kpr9fz/HnAzV/QzWOtt9FON3f4bqCj9DY6 KrfQUU3RzR2s+t2s+n2s+vuZ5A+y6g/2beEw3XyUbh6mk0cOM9XTyeN08gSd PEknT9HJJ+jkaTp5hk6eYYKfpZNnWe9n6eRZOnmWCX6Gbp6hm2fo5plVTtaz q8LIM6u3MbV8E6sX7yLTb+T3A5sznt59iNmmARykiQ+xOh2miYdp4lGaeIIm nnJUYYZGnqOJ52neBWqRBj5urYY9uxnO3Ha4NN1wcSbOs+yH2z4Ad94gPJ4j yC84CpuuDXZjOxzmDtg5M9s5M9vdVH43zEX9sJT0w0zZ9h2ExtYAnaMB+rwm mGhga34zHDRwXkEz8n3NKKCBC4taUFzcglIauJyqKPWbdl+ZOFZcdbmwb43w aEBvcdlC2taUs9NzFq6iKkubpNnc13AItcem0HZyHi1zJ9E8NwN9axd0rR0I tnoQbHFhj8WOYEI/2KTDbqMSOzXiIIfxYe+IxducaeLo3riI95GSGIXR4cO4 eeMaB4J/7c/Nq9fo80ik0LmpnItT6dzUgHOl+ZjOzaJrs+naHErJuTiXplUJ cSIOiddiV7SwrRbBcr6IWBsvHQhmBw+OpGhbcajJPZyE98YTNrRtKG0bliKO xVSACNo2IsuHSNo2il08SlcJY/0w6kc20DC6EbDtJm27SdtuBtG3Z/BX9OxZ FB+YhoXvj9Ane9mT5QXISXPBoXbBbbLBbLBApuef0HrhYOpxUrbmg/Tsmd9y bOvcBlpm1lF8aAZZ5V10aymdRppIkVt49l9BJlwr0hFrUkye239Kn0BNkufZ EGm1IsLKnEGeCtfK6FqZy8XnWRElXKsSrmUpeouNSKw1yaVbc1P83Wi7H1WX evxrTf4GZ+ceoyXvMlrp0ray22ijS9tqqPottNOlnXRpD+N1H+fbA5xvB+jQ QTr0MKP1EUbrY3TocTp0hA4dHaVjx+nWSYoOnaRDJ+nQKTp0ig6d4nw7RYdO LW0FYZIW/T1M0qRTK2+IP09Qo4s38OKrX2f5Tfor6eIfadLPMNN8CPvN5Tho qcAQDXrMxkhNg47RoJPUCSdnXZpzlpqjzBmNsCrbYVfRbLo+2M374WB8djoP wek+DJf3CEzWbhjM7TBwVjVwVjW4ujhzdkNPc+oYmzXudqhpSq21Dlo7jels gCmvAVZ3I5z5TXB7m2jyJhTQnEWFzSgpakZZcTMqSppRRe0rbaHpWlBDBaGO RnwL9VzWV7SggZcNFS1BXDSzTjfQn/VUHf0pVFPayI+rkb+mHl62cE+NOAXy HJrmptEwO4X62XHUTY+gdvoY3AOdUDVVIrehBMq6Anirzfws1WirVqN1Xy5a qpSsQ/l4+tnZfwg4s5QTQzJdmUJXpgRcmUZHptORGXRkZuwbzqQrhTOVCcKR euyMVNKVWuyOMVJWvyPpvmC6cHcMRUcGcyIVt+2hI/fSkSF0ZCgdGUZHhrMH R2oqkOphrumeRu3xNTpynY5cpyM36EhqckM4Eoaag4y79UEIyy0QR/ZWcy6m 3tvJ+SvKgVw60kVHeulIm9GCWAOjrPhCDS93SF+teQtygxfO1oOwNA/SietB aJldZ6ponllD0/QqjE2Haa46RDsqEO0spxjcxYHHhcGEGd0efz0RR1BzefhK bOJU1WFWF2VnDrfzoSz5eeLsC1YW+VwokzhJKhVi7hSFJee1dnAh5s5sdpZ9 pR7c5tzpX1vx7/HFvW8w0nMPzYU30EJHtlRtoaV2C80NW2hlAm7nnNnJObOH c2Yfy+5+lt2DdOMhunGI6fcIi+7R43Qm3ThMNx6nG0c4Z45OU3TjKNPvKB05 SjeOcs4cWRQrEEeWxK5Ko1yOnfZLXB9evI2bD17k+G340fZODpwrTzQPoJc2 3E8bDtg4X9KGR+2cMx20IzVOG064qtCgq4Uxqw0mZRfM2l5YjPthZcC1OgZg zRuCLf8wDPY+qIytUFuEzdqhcnbAWLIf9vrDMBb1QG2shdZM69nqoHfUw+Si 9Wg/p7sB7vxGht9G+Gi/Il8TSgqbUE77VRT7rVdd2kwPNaO2zO8r+isIjbzy N2jisqnitZqFxG3lTWii9RrLGtFQ2oA6qpb2qy6pQyEdbKfL9x0bRsPcJOpm x1A7cxw100dQfeIQqib7UTnRhfKRVqyvdeDuxS7cvdCJrXPtuHWmFdfWm/8P 6V38Z9y8dg2lHFTJUVFIpvVSaL2UGFpQ/ob9aLssKjueSpAhKk6JT8JzsDNK g53RBuySWbArxo7dcbRbgge7FT4ESypAcEoh9qQVY28G03hWKUJzyhCiqkSo tgbujilUH1lBzbFV1A6voo7WaxhlDh1bp9UGoXDUISTbi5Ac2lXJSZSui1D5 PRetKcAvQ2w/+M6tcaHALI5LYRF+Yx4wCtMlcJkgfZdN2tuQyz+Qvtcm13tg a+rnJDiNZvquaXoFDSdWUD+1DH3jIEJM1UEIt1fjTxDGvBXmrKQqsJedYq+t GCE2H8VXZRPHPHSya9jYMeg5zpWRLgcinRYk5qbxT2YnybhQcJHlX4iVTZlc ihUFVSWS6f5W+iz+Co8efI/h/Q84Om6hkY2zkRm1kbNfE2e/Fs5+7Zz9OplP uzn79bJp9jOfHmA+HeDsd4iz3xBnvyHm08PMp0fotSOc/Y5y9jtKvx2l347S b0c4Ax5ZEOuMjp4SYfTIqds4df4zfPnqeyj9BtsZoPKF2RVcnFtFt6UcfTTX AWrAXoFBsukwzXWEb4omvQW6nE7oVD3Q6/uhNx3g/HUQBs5rBvcQ564hZBha oOY8ZikfQFHvCXjaRpBrbYRaXwONsQZaSy10NJWJH7fVWQdHXj3yPA3Iz2+A z9uAooIGlPgaUU5TVRYxNBY30QVNqC31T04NpcIlTUGSZX5C8zShpaIJrdvi z0HStb9AS3kj1YDmsgaaq4FPa0BDWT3NVUtz1aCIJnP4GlDY1U9TjaJ2dhjV M4exb3oAlVN9qJjoRNd0K+5e6pZMdYemuk1T3aSp7l0b+U+BzQjCVCUeD5Ki o6CgoRQ0VIqcpqKZ0qh0mimDZsqk5HGpNJAOH0eo8UmUgYYyY6fMhp2cs3Ym uLEz0YudyT7sSi3CrvQS7M4qx+5sKqcCwcoq5JYfQsWh06gaOo19R5ZRc5SG ksy0Ct2+AezN9mFvpofmy0doNtOoZCQWSZU3CFFqL2uvTOPFB6FWeskueSmP XvKxjzlM4tw3CUbvDiTSOTuQxGWSOV9SkLT8d1x66DU3MvgpmZoG6aLTdJHQ EuqmFqVv6yay4+9hlQnmSNpjLaNKsIdlcY+tgHbyUkzLtFEIY6U4bHKE240I 2ihc7JCSloCMRFonI0laRAexkotZa7uY3+Ks9R+kN/4v8PnD73H00APU7ruN OmbHuuYt1LfRRZ2cuThTtXKmaudM1cmZqpszVS9nqn7OVPs5U+3nTHWAM9VB uucg3TNA9wxwthqggw7SQQfntnZg4KQwzcG527j66Us8fflrqPym2RMwzf/P 2HuHV5We5973tQXM2HESx4kTj1tc4sR2Ep8ktk8cewYQHYR67xICJCTUtXvR Vpe2ugTqXSAkQKDeCwgBQ+8dxtOLZxzb48Tfua7zx/fd77vW3tpi8DnfH/fa agit9/499/O8u60rM+dwbXYZN6ibc8to1ZfAnlKF/QnN2J/Yjv0HO2GvXUTe 4TOwNy3B3noOLQtvobBjDrkNw8hrGUWqtQUHsmqRklqO1PRKpMoiqWJhVSNH zwJhkZjNNbBaamFnoRSwSIq4/CUk15Ffh/KCOlQW1pPoetQU1TsLRLYTWR2l SlU0ltVr0FRWL97KlMfmsjqXmlgkjaV1HE9Ka7lfO1Raw99QjdriSu7tqpDL mjHkVcNcyZ42fYI10sca6WWNdKB0pIUdvUnWyOPrbDrXWvDgShPuvN6A3//2 PfUaih64xyIZHBhAJIuEMLFE/gnRLJLYUIoFEi/EAtnKLrPJJwWb/Vgk/lnY wu3WliADtoRZsCVSvHTcji3sMlvZZbYmFGNffje0tadQ3DOP0iMLLI5FOI6d QcXAWVSeOIvUimPYkcDOtMeKXQlWpTj2c6uWaINvkg1+B2zwT7YhMMUmKyOY e6qNvnpZHclqp8nP1sOYrdUgMlOpCxuihWRd8LhOvqHrlxGcZsYezgR5vZyP JxY4Hy+wSc+jcnKOazaLlMZuRDBzdrCn7OAebCcLYqdevKWameIgq82BrzUX Ptx/+bAgAjJS+B/ERbAI4iJFJ4nl0bnXZSF8X67tK3jrzU9x4cLHKK+6j4r6 h6hgDVSxBmpYA3WsgUOsgQbWQCNroJk10MoaaGMNtLEG2tlB2lkH7ZzY2lkH 7ayDdtZBx6Ty8cSlt3H9ySdIVcD3kzffw6Ge2zh87AEa+Ksah5+icewNNE3+ ktvON9E89ybqRu/CemgIqcZGJGXVIJlDwMGDBDytgl2gEunZVcjWVkGnr+au qAYWUw3sFs461hoU2mpRYq9FGQEvJ+CVBLy6kDMRVVfEGOcSHipWYr2hRJJL rsW12gTLHmhx1KGFH4lbjfzor3ms5XdrpJqoBupwaTWnsko24HIUlRJzfqzP dcBcUY2KKbaAiR6UjXWgeIgt4CbxvtGGR0T84bVm3LvchKf3hn6s3pMj6T4+ IBURHIBIkh1FsqPDArE7OBkbdifD0ycNnn6Z2OSfg02BemwKMcuXDgccqMAe YysyywaQ1zqF/PYZFHbOorh7DiW9pProAolehKlpBBH6Q9gea8aOeMsK0ftI M4n2SbTCL8kKfxIdSKKDSHTwQQ4/lCfnJmfeC6ILcvTIEFdAyrS5cI5RkV6L GNL8FcTkWOUF1GOyLfy6WV4tKSDNjrj8BpI9j6opUj09S81Q06iYnuSyjfF2 BMlNjUhuPETVIbmhCtt1Ouy2cCvGnYqXUY+AxAQPbuEH6Ja4z8b5zKsfyeMX sHzpYyxf+QQlTQ9Qxm1HeecjVHAMqjpCqAlyLUGuI8j1pK/+FDf29afFjFNP nk+ffwdXHn2Cyw8/znBH9u9x+eZHOHSU+xvOUI2nnqBx5BkaJ4jsNDVLbBfe RKqhGYmcVQ8ccCD5QBkOpjiQlkZsMyqQmV2JHOayQVcFs6EKNlMV7MzlAiJb ZKtBaW4NHPYaVOTXoqqAUwaxrSWy9UUqrpSYRkTYNpcqwUtENWh11HnwUCs+ qiGwjhpmcLOjGk2OKqZ2JTcJFagvc8BRVo48fmwrLoMutwjZljwUHGtCKYf/ C5c4nxDSRzcI6PUW3L/ajNucU37/u/fUZyv+ECdPDODY8WEkpFYien8RYpLK EJPM31d0DLay47BVnoKtdgi5h0aR2ziOvOZJzkbT7FYzKOqeJY1zpHEeB0p6 OZxwSIkhiS4aLergQRJJo69KY8ABK2m0kkZuZQ9aESLemkNcrYYbdkGjlTTm ZhuRKd4cMdNKErnNjcmykgyBYaxQjviMRw0PFuZsTI6ZHykXto7MNiEojQNE ZjFsxwYljRWCxpkpaoISRA5Tp0jnCZRP9rOwj6D+7Czar99G29UbaL18WX1+ 1RqcufYxzt74BEu3PsG525944NydT/i/v/nRf7sozVa48lfvd67vuoPDfdwz n3yChiEyNfoGGtUoNJadRrquBUnJ5UjmGJfCFU9NKUN6qgPpGeXIyiqHNqcC Rl0lLGQq11iFfHMVCi3VKCFTZWSqnExV5tWgmlzVkqu6wloc4tbwcHEt468W jSVuPJVJnmr5F7fx2EaUhDRo5/HLyufl1Wgtr0IL1VxeiSaqsbwchx1l3JGW IJ+g2XlryiuEjoBlGq1onW7F41uE62YbHhKw+wTsLgF7cm9Yfdj5B+gfugyT tRWW3C5Y83thLSRUpQOwVZyErfo0bHXDyD08BnvzhIy5gvZpFHXOMOZmEMb9 wY6EAmyL5hQsoIoTUJkZb2ZCZSZUFkJlkVD5q1AFEapgQhVCqEIlVIyYMCsS GIs5/FpGhg2ZWQpUgidBk0by9HWJUZy7tOKWUBGoOK1yG6szIUa8vCPHiKB0 E/yyCpHW0KGANUuwZsf58Sg1hHJuHMqnjhOuYygbP4L2G3ddcI3evzfpDsw/ 4N0P/ost+QEODzxGw6lnaBgmMONvwFB4ikNfJ7KMnQydehzYK97DtBTpyQTm YBky0h3IziyHPrscJm0FrNyw2glMAYOoyExgrNVw2Ni7CEyVBKZGAlNPYA4T mIZiAUstA4i9kGqhWtkXBS/t7qTwUF7NQ0UVg6iNx9aKSrRUVJCXCvJSTl5K yUsx8slMXlkxLAVkxWpHjtGME7ZMPLxFTsjKfbJylwPhTXbLTxlETlbe+/BT dv0W7vs6YbX3kJc+WIv7YXOcgK3KGUIjsDeOcURmCLVPIaf6BLYlFMrg2RJp xLYoIwPIRFZM2Kmyspvy3meGL1nxS7SQEwsCqaBkC1mxkBULWSFL5MsrlG1t Ty5SknORSVay5Ht3CVaUlidYsWgEHh6SCQ/Ec0yLkxLv+R2nN+FLiNUbKQPC svQI5L7ILysfMUXVKCcd5bOj1AjKZ06TkJNwcGvpmOxD/bl5SUjb9VtovXIN 7//udyohAer7Ep4iDYe45T98/CkaTr+BvJoF7rU7kKntRLaByuaWYQ/p2F+C 9KRSZDJSMtPKkMNI0TNSTIwUGyMlj5FSQEKKGSmljBQHCanI5eaXhNSQjroC DvqFnISKOBEV15AOTkhUS6kgoZUzEnOER0FHu6Sjo7yG01QHM0TQsaJKclJB TsrJiQPNFWWSkYbyFUbsJQXQW3LRmJKM8egITOsP4P5N8sEsucUseXhvaL2K R3HFMEymDlhs3cTjKKOkH9ayE7BWDMJWcxq59YyShlFGyRiyKgawNS4P2/bk Y3OYnmgYsJVobIshHrECDZOCBmPER6JhZoSYEUAFJpuJhnJ1NHGdIAUNTiih ZkTHEw1unLMyrETDgD0ZBqLBWMhWeo8gw6xBPMlYK6mIlzIhXi9kFD9gMOIv 5DsExlLRej1CMnUI4Ijll2MnJRUKHbPMj5lBOLixckz1o5SENF66jDYS0nrt FkYfPMSUgkegGiD1nfdxqO8JHK3XkHawg1FHNLKJBcMjO6MZWWmHkLqXWCQS CYZHZmoZtOnlMDA8zNlEg+GRx/AoFGiYBBpVKCcalTYFjVqGRz3xOEQ0GohG I9FoKhZoMCxkaNQoWKhoCCgEEh0cnImIjI2OSmJRWUlVEI1yykE8yohGKSOk hGgUocBRSjSKkFucj7KcHMzHRWImJgLjUeG4MuzALUbHowcj6uOl3+cE9x6n rzaYzN1sM0cYG8cYG8dhLRcthrFRJ2JjGBmlR7Elxk4uuFeMsnDKNqhcGMiF gVwYyYURXntM5MJELkzkwgT/RIUL17Wj1KvmhaWSmzjxUJ/gwsbIYFykWyQX SZk6JxcSCY4QIi3iV4jQCCR4IA1/iXiSIIhQ3pSIZJj0CBMPhHOL6afNJRlM oKIylM8xM2ZJxcxxlJKKivkRtN28z8y4g1Z2lfc//XQ1Fd/Cu+//F+q7H+Jg QgvSD5CKVFKRSSJyqPRm6DKbkbm/Eln7SAPnkCzOtlrOtgaGhpmhkcvQyGNo FOpJBckoZWiUkwyFiuoVKhgaDSSjkWQ0k4oWBkZrKZuGQGKtGxQKEJ3EQYPO SgWKSqoC7VXlUm2V5WitdKClklBUFKOOKnCUyKyoz9PjbEIkFvdEYi6OeRET jpGIUFy70ix7yUa1GLq6z8Co7+LscQQWO4EoHIC19CTDgkDUnEJ6YQ82R1qw Rb7nXC48xXtChjMoIvQKENECCG6+4w0EwgDvBCN89hrhJ4HglifJJK+l4wIi xQmEQT72GxVv5e6WQGQoQBwgEG4hoRVExGtNSjZQe/RGBYa1EoY9hCBelXiX F/4Tsw5/ikiDFqHZOfDXceTRWeTjrzHFJXAQirLp4yghFA2XrzAm7qOVo8bo g0eYVoAIUrvI+ZElpMY2I31fGzKSOxgLnC2yupCd2gJ9egtMWa3QJlZBu59D 6IFy6Lg/N3B/bs5kRGSxe4hXR3KzU8wuUmYSMDAiGBPV7CC1BKI+zw0Gqol9 z9k9CITkQcwT1eKycpKGqhUaNAIGjYyHP0Nb1WoOKkXfYM/ILcrDtC4BS3sj cYYsLMRHYDY2HBNRobhaUeep9ot3P/iUba+DI0UPMeiDOX8AlmL2C8cgrBwn Atgmt4SblCwIMxIBHW912Byh49f0RECvIBCnILA7wSAR8N1nhP9+cU077jEO mIiA6blMMMgHHiPjVhDIziYC4q0/VQRiaX2cVgwMahQYxZ2Z4q2yjYrp/JrZ gC9K8+MtOsSpirUSgJxsBGnFUxPN8CM7vuLdEoqKUUIAyufHmAgP0XrjHlqu 3pxxD4O/x0dPnuE0/5TutDykx7UgI5FhkEL/07qQk95Bn1thzmilz20wJlXD kEgGuEkxpFbAlF4JWyZny2xOD1r6r1f9ZyBUWqtQzUCoIQN1edU4xEBoKHDz fyUQ1MmhWgyTTv89ZF9gEFSxO1RVquLgIMQwEINDU3mx0hkYAnOGfbiWEYlz +6KwRADO7InAHAG4eDAbF9NM+M3jZ+oD9T/mzvYaDDndMJqOwpTbD3PhcVhK B+EfX4LNTO4tYVSkGRuDdZRWErApnARE6rCVBOyI0SsEMAi89wgCDPDbZ2AI GBkCCgUKASYSYJJXkxYE7Ag2yjenPcANiYuAbBKQY3K5L0bGOJ1R2h/vfK90 tfr30P54i5AKgHxuapxVXIM+zpYjXxMVpBNf8+No8ZICQg7/jwYu861HBOAB WtgWrr73AVZR8HdYamjGMH90jH/K0YwCpMe3cSggBcnd0KZ2wXCQFKS10e02 5GW3w3ygliRUwJBcCVNqFawZVbBnkYIc7jB01Sg1cIY0cYa0cIdh5QzJ7Wkd BwaRBIfVJGhyawstKgViZ6FuKao1EoG/UhGoYu0raiUKLewPzcSgiUNCqZgb S4qwYNyPW9ooXEmLwrLAYK/oCRG4lpaD65y4L6ebcS7VuEk95aa6SeWpFuZj MNmPIya5Dpv8TdgcZFIoCDdjQ0A2NgTnwDM0hwRoVQJ03E7osDNWTwL02O1O wH4DAhINbANGBFMhye4E6CUBEYIAbkszRRvIcRHAXQRr9mVpftxz5svYl+br GQJWeXVtHsVHcTbxWIxw//MI1Sn++9N9IT/+KnHBXX+9FWWz59DCABh5+HTW fQvxPfzqyVMMcagY5fZ1gvZPcovbl1mEjD3tyErs5lzYTZtp+cF22BgI8lUe 2R2wCQSSqmBKof1ptD+zCvnZ1SjScoOpr0aZsQYVZtpPBKptnBVV+51B4LTf 1Qhc9stmUCE2l5XV+DK9r1Z9p0hEC9XMbtDEQbGW5d9YYMOCKQm3dbG4qY3G hcRol/83MrW4zZ38Le7VrmWacYn78zcn5tQo+GeOQp9y4OUJGvqQnN4KTy+W uq8RmwMIQbAZmzngrw/IwYagHGwMIQRhhCBCyz0lIYhWIYgTEOjhw2bg6w5B koEQGAiBkRAYEUb5xukIgQHh3Fce4H4zM8PMsUuPA+I9BmmAYCBWECBkUCbA 5wiAggBnBZuwX0EgLldLCnJz8DmE6UmBnhQYSIC4yDJ/lZ+es6q5APuqDqP5 6h3MrUZAVP8o/4px/gWTHB+mtFZ2UxtlR2FSI3KIgZ4YmDkb2LiNyCMGhcSg mAOj/UA9zMTAcrCaeFQjL6uaKVCDYl0Nygw1KDfVoJIYVDMFapkC9XYFAVcK FNfK7UIzEWghAq1EoFUi0FZRw01lJTloJQdfoudV9LxS3q9Qy5pvLMzFPUM8 7ujjcIveX06JxfnEGNkCbrGx3tXacIdT8m3u0W9y8L6aacJymlr/P8LTxx9C m9ELn4A8eO6k7d5GbPKj7YFmaf16f9Z+YI5a/1psZgfYGqnazvrfFavDbta/ d4Ievm71L2wPEranGGg7lcp8iNfSdj3CY81IUm3PctquddpukBcCkra75rzV aU+76X6uGPuE87G5QlrEWHMU2w0rtotrbIdYihBkykcAA2BoeNhpu/PupY9Y +cNMnzFZ+cJ2C6a1wvZczNL6BV0eSpKauAfoYQL0wEb77amdKEjvRHFWJ0q1 XfKVnpbkalhTq2FPr0F+Vg0ToIYJUKMmQC0ToBY1tlomQC0ToJajYC2tr+W+ oBZNJcpdTM1ltWhx1Mr7tBX7Wytq8De0nlhQzUL8ShPHwkZHBWpKHTjJ079n 2EMA4nGLupYVi4tJAoRE3GFvva/PxX1ifJc438mxEAQzbmSZcDnDiN9yHtik rsOx3kFs2JiJjdu08NylxyYfEzuBWZKwMdDAANAyALQMAFLAWWArp8HtDICd 0SoFDABvBoAvSXDvAoKC4OQVEnzic7A9SIewWBMSJQUmZHFoS+K2LoY5HUPL xF1EsQbljoA4OfSJcY9bRaveSYAQv8CT/xPpfqSZrV+fjUA9/3sDh00WfJA5 H8Es+CCDHckRYcjw81rt/vfwYHoWI8x9mflcnWmWyjQ3lqLo5+j8oi4f53QF GOGOT5fIeTmlB3YOhgUcB4oyulCa3QUHCSjLbiMRh2BLq2FvqEFBNglg8Zca ajkC1HIEIAG2Oo4AdRwE67gzrMOhwjocLqpDQ3Gd647GJhKgQbN4dKO5vJbW N/HYRBQaHULVOFxWia7CfJwxpeKuYS9tT6Dte3A9Ox6XkohAZiYeG/Px0JCH BzxvYf89ab+FOFiYCSb2ACPenZpTrf82EgK9sGtLMjZ4ZmPjdh3zn0O/j5n2 W7DR34DX/LVYL6znKLgplCMgQ2AbQ2CHGgJezH/veNX6vZy/9+td2R9E64Nd 1ivP3ggV1ieZpfXZwnqtGNeiabwHYgyq9SaR8bG0fR3ne71qvR6xNr10nVW/ BrF2YX+4UbHez2CBr0HJ+GBLIYs+DylR4cgO2I1Mfy9M9R/F7OoHI05naTHG IpkUhS+sz7FJ+2e0eZin9Wdo/TldIS7qinCZ6qHF5uRe2A92ozCdhZ9J63O6 UKHvRpWxG+X6do4Fh5n/NSjU1nIvUItSYy33AnXcC9ShivbX2OtQS/vrC4hA kfpAV7F8bFYjH5z9KhrLSARJaGQWNAipD78eLSzEWXMG7nPOv0vd1u/FTQJw PSMBN9NS8Ig736emQjw2FeAhIZAAUPckBFYJgaj/m1lGXMo0eKq7n+GBo9hL BvYF7cZ2z0Rs2ESvtxvIgYkcWCQHr/mRgQAdI0AnN4RbGAHbGAE7ZAToJQMi Anz2KI3AnxEQ4NYIZAS4MRASY8L+JAsyZPkbkMSRTRAQzdIXDMQYDRrEmAQS sZz2Y4lArFUiQQCISa5eCX67QEccv4AojgCh+hwE67Xw1VsQRAaC1fBPjY6A NtAbOYG7JQ8Z/l6zqx+iFxPgCBvmeLZbEuQwCbR24pCPeeoscVhWcbiiK8Y1 6qa+BMeyGtgTelHMIao0ixhou1Gp70E1d9i15h6i0Y4SXQORqEOxoY5I1MFh qUOFikQ1kaghErVEot7tMVAP+aD9V3GoVDwjq1bqaH4xhmwm+pqIu/r9uGPg wK/fhxvZDIPMg3hmsOFNSzF+aS7CM3MhnrAaHnIFBA8rLNhwT/YDM24x+a5m GfDbJ8+U+4i+C4fN4OJhf5C3ygS3gduN2OhlhqevBRs4H67300kmPJkLm0P0 zAU9c4Hbwig9dsUoM6GSC58dDJw8iMFgK3kIZibskzyYXTyItwpjLpCGdYhm KxA4yPeTIxAxViHuBGLIw5ckDzF2IZ2iXPHqmRyEkAexCwjiigRbS8hCAVJj IqAL9oY2SGi3ZCIrQObDjDsTa/FgagZjXJsJMjElmRBPYZnOseObmCUPC9oC LGkLcV5bhNfJgmDiOnm4ZShlfZbivrEMx7Mb0ZLVhrKsHlTkkAVyUUMu6sjF ISv5sHSwSzSgSF+HElMdyhgV5eSigt2iilxU562wUVvIiKgjIF+Tz+yo5fgw brXivDGTlibhLnVbn8g5cD9b/H48YS9831aKd3ni71BvWYkFF+IZi+IJ0Xik xsR9Yx5HiOdigljcyGafYIPcoD7Y++DOLYULan/Qbo2E41vw2RyBDZv12LDd RDwsjAwr1vsQDX8iE8iWwZlvS6geW4nHdoGHiIs4A9FgHHDfKOdGouGfJPaM assgGiFpRENcEoJRsZdopBONTM6IGTkZiGRMRBnEu6QwJqJNkhCVjGirKlIc nSu+TTa+iGjSEW0XL5HUSioC+BskFRZSwcVIi42CLsSHZPhIOnQkQ9CRTToy A7xWkfF9LB9uYlJwo8A0dSUFuZjOycMcqVgkFeeoCyTjkrYYV3UluOEiowwP SMYjUxltcOANs3ghYiOmDI2cJXpRbehFrakX9ZZeHLb1otHeixpzK6fHVhSz mQhCHCSknIRUMD0qhezithbDJhuW9NkaengAX8FtHm9pk/BAn4E3TEa8x5b4 UW4ZPrSVSTLeoxQySlaTQT0kHS4yDCRDz9Bgg7mjNeEmt+yXsnQb1DoZYQPZ J8EQgaGEhgaJQT6kI9o3HFs2Jap0WLGRg8V6XzYSERyBehkcW8MMbCYGNhMD g8Og0LHqPiU2E5IRSDKCuIEMSTNiC8kIjDEjwUkGB75MbaZ8z64Ig0F5Dx0T 7Y8iF2sRRTKinFRQUTbRWqIkGpEcKYOJRCA3jIFchSBLqbwuUVpsJPShvpQP 9G5oaIMZGjzNLJ7y5MDRaXc0vo2RTJ0SGJy2prNtLiymc/Ixl1OAMzkCjSJc JBaXiMU1vUCjFLeJxT1i8cDkIBoONnKBRjnespTjHUsF3rNW4APqNjcTi+Ym nLE2Y8nWjHO5zVi2N+M8dSGvGWds4im985YaVux9jrFvGy14h+KtBm+bzOIZ cEYTfmevwG9yy/Gf1K/t5fg414FfUR8Sjw+Ih0SDkmhQb3BhnhCPx0402FPu uYLDpgSHjv2EFXqVE7WTjb0Bu5TACFS4SHSyIQ6++Fts35GKDTvMChyis/jp GRt6dhXCEcoICDcwNgycNAlHrPqow17lXgY/guEvwOCEGUgwggjGZoIRECOu UW9BWoZFRkameC9cAhJOMMSbJ0UwMcSba2kQSS6+QAL4uUqFuI3MFeJWVZCh 05IOI9tHmSQjKpNdxxDmh88RDD8FkBAFEL3IDRWQ7CAvHGJvWkXHtzCayc1G lqDDuoqOGdIxTzLO5hRhmWRcZCu5LOkoxU2Gxh2jQsdDUvGYekYyfmlR6bCu 0PGRrRIfU7+m/jO3Er+lfkd9Sv0+t1KD/7JXrsV/2yvxdfEhfk8MPqUEDr+l /pMo/DrXHQcHcXAQhzIFB1sJ3lRxeCpxKMJDjhgPnDgYnWlhpcy4ozPhOjf5 b03PvqYS8VC0kQA1LajEwFVEfJNHPyRREV7BSmzsJhl+VpUMAzaFiCe4kgxS sT2aZMQqd0OLByK8SYVvohF+SUb4JxsRQCoCScUm7l/8os2IJxWppCJDUKHL RiipCCMV4aKRhMt5U3kxPWUVgPDIA5l4GeEW8Sp6LcLMeSShDIGmEqTHx8AY 7g9DuJ+kggcCsW4lM0KIRAjzItgLWUG7VBp85c135IAxmsn9RxbbiCTC2Uby SUTBKiJeJw1XXESUKUSQBEkEaXhmEURUkIgKlYhKOle5QkRuFQu+ikRUkYgq 0kDZq0hBlQeBqGIpCiz+QP13XqUKR+VzcFQoWUH9ipJwMC/eo94lHG9TEg4O Gk+pxxYBRyHhKCAYzrwQd1gxLzih3yUcNzjsvTszq75cf53SSwLUvCAZiYE+ K2x8m1z4SjaEkoP8sd/HCzt3pZMR7lV9xZ3VTI4gMsLk2MKWsi1q9eOVu5kc 3hw2fMiHH/nwJx8Bqdzvkg9f8hFHPg5KPkzIUPkIZfWHGsgJkyNM3h0RRkT+ RL5nlvJSbUXBepEW/Jq5mGyUYX/yQZgiAmCM8Oe/EZSs4dFPhochzFdI4OLD mtCHektUtEQlm6g8uXvL+YC1wsrf4uHULMa4c5/MUvuKYCU7z8XKgsrKeZ3K Cjm5zuS4ZRSsOBjYZIWjxhPBilllhZy8S71PfUhGfkV9kitYqZSsCE4+tYvH IAUpawQrEhWpvCoN/pBXhW/IT/+LzPye+pT6Hbn5bZ6Tlwo3XsrJi0PhhZK8 UG+QGRcv3LU9YKDccwWKygt393c5yd/kAr/n4mUNEvx3uXhhkmgkMN+TtDg5 UeQveUmhUqk9/pHw8s4gM8yWQO5pgg3YHKY88UE+xi0erNxjxK69Ruzeb4Q3 efE5YIRvCrkhLxvJi3eUGTGJVqSkcwTRmskLOwV5Ed0iRIjMhBopk5DgJkTO IsGcy4O04nt5CDZx1sgUD3iaIwPwkuTFRF6MTgleVGY0kpp1EhkBjAINsyXE C9PHj67i5e8kL+OreLErvGQXYJasLJCVJebKea07L2WreHlETiQvZOVN6m3J SyVnx0qFl1zBSxU7jZItv7MrvKi5QihWs6IRH4nOw6MLljwBC7tVnhOWCgnL R3aHCotDhaXsOViKCUsRYSkkLAIYtftIYAiLgcMIYXl/Ru08LymzSMBK15HZ EkhQAsWlIJMC/bixOhBIUAIFKAEEJQBpVHpwAFL8vBEeeICw2OAZ4vYsGfEM GYbLjgTCss8ILzaf3QTFh+Hiw3DZGKiFV6QZ0fstOJDGkYR77jStFoFa8aQn 8QYtn0MQYQliExIKpgK1eoToxJs6FfFrpUg8kMaftUQGeghKNBKStQom4Qoi inxVRNbySETCiEcodzHEo8FuWJ0n31X5MGEyk3xkOfnId/Gx6OKjBJfIxgof Dtw1CT7KVT4q3PioZCNw8lFFPqpcfPzW/hwfko1qEiGeBvWHvGqPVXBUfRYO 6uM8AQfHHALyAfUZOKinBOSx9QVwmAiHiXAYrQocXPX3Z2dfVYNEGUt2Yb8E RA2SH7j4EHQo8lcZCcBBJyPBCiMZwYHIDAlEFhXvH4bdIdnwDDVjs8rJNnKy nZzsICc7yYkXOdlNTsR96zsjzIjcZ0VSqhUHuatM1ergzx2mfw4blFaI426W 4MKGEK2dIVKCA8mpyEqIJ7uWKPGCFxJCBcgoUUDhBx4reRKu9CE/loKAxSDk BIXShnqx+exaDcp3CMqcCgoHlCw2nawVUOYkKMUKKDoVFBJ740WgWFRQCIkE RQZJFbuCGyh2AUo1QakmJNUMESpPQrJGNptv4r/zZZ4omPDjT6kVTNi7KCVD 3DCxC0wceJuovElJTGwKJo8EJmw690TTMeerqBATEzExmrkvW4XJcD/nE38v BZMAFROPVYhoJCSfd0WJOyYCkYwQFZPQQGSHisughYkrTCWFxSAqPJmblxxs irFgK1vQdraf7fsVWl71y8F20hS+x4r9KWw7mWaSooN3KhODw0BApg3+WYVI TjqIxKR0ZO2J599rjQpaI/F4CWYezZGBEg+TlL+LDXIRoXDht8JGuMKGNoxD SchzXHxL4YI7b8lFpuCCzSVLcFGIuWxngJS4cVGGG2wut0yCi3LcJxOPyIPg 4g1L5QoXZEJy4QwQu+CiejUXedWil1TL4OAhv5pk/EEBBf+Vr5KRJ8ggUPlu ZIgAyRNkVPxfyXhoVcmQdJAMs30VGbdIxiVdzqtqdxlxIyMxYHV3EUj4KVys ldGRsio+xPVWBBUeyAx1ciG+JsD4Etc/CLrwIOhVGSKCEB+Xjj3xGdi7Jw1b fhaEgI2xOOifgLzovSjdF4fSA5HYtz8DGfF76H4wFfSSYIH/hZUYWFRpxFHz wrBwQbGORzcgwkVYcOgI9XqOh0d/jIcs5kR2ERa1xSoPpW48OFw8PBA8mFUe rC/g4Y/lRN4KD4wrQYHgQej/UW//O19QUb2SF9SqvFCp+FBSwb0TyXjX7kZF rpOKEknFfWaGpMIiqGBemAUVNp6GRVLxoLnpVfWVnCtUyF1ugAgL956iQLFO CYsgNzBkTwlczUUQssOCVC7+DNpwNy4igslFMK2iIoNpZjDC/3U9Yv95C/I3 7UQ7O1t/1DYMxL0qukWwhhiId360RgdJLMStRhw18tO1AhgXJUJmSYuIjrWu 8DA69TwrESon4eQkzAtTJ45OPreZmXyOlUwnK4UKK66eIlgpk6xcl6yU4675 OVac2UFGJCu5TlaqmR3VK9mRp7CikR3FQ+IiwPiD/Exg8g0VFPfGIuKjSgEl X4BSqYBCfZBX7gaKww2UUjU+ileDYlFBMaugcGvw/tys+jKPdSopsqso+UFW kgK4RUwKUKPjT1coCXJSEigoUVpKqFAQssIUTAQkAhGNgERDQgQzIjsEH05G 9m7Ygeh/2oI8z51o41aqP1ow8hqKInYpuREdTCqCX5aArFGoiHZRoZFYcCqN cnYU8XJlouHB/2AVDRF/nIbvShrG0klDhjsNBatp0JW40eBYoUF2koqVTiKS w/b/j4ZP81zpQedrSIR4zsUf8ms0q3AQuVG9khsCB0rJDTcc7Cs4vOXEwabi YCtRcGB23LO64WCx/99x8FdQSAzwdeHAPUNSgL86iwYoDcWdiBCFCI1kYt1q ItRmohNvuydS408+kxuCiSgykeu5C62Sie0YiF+PmoiNomFEB68TSHgoaWGJ Fm9h5WTC7JKEgSxEyc7ir3ECEUkgIgUQChQ54dy7nlwNxHfwgECMEogJAUSG /cXxoALxuqH0M/GwAkQlnlmfiwfZSqo5H7oBkae0EgWIGnpO5dWskwD8lRsC 1RKB37gjkO+eCErreId66/lEEAjYiml/kYaHAq7FPasggIFgIQFmC26SgPfm XJPmcwBoJAF/Ie13mu8CwBkJNN8dABEHmWEvjoTV9rtHwsbtiPjHLbDR/hZ2 Lmn/ng2oi9yk2L9W2L92xf410n5ztMt+aTtHiajnbPeFntbraLv2BbZ/Ew8m aHsabU+3YSpjdQ7M0vYF2n5WTBCcHl5/rivcoeXC9ofCdqti+y+tVc/lQPWq HPiNvYY5wGr/NE+8dks6r7q/Vlr/ddfU4Kx8Yf2vqU8opforpfXvu6xn9VO/ pP3C+ie0/RH1gNbft7H6bYXSfcV7O+7S+zv0/rrRgN89e/rC4vdXij9RtgHl 4M95c8X4wNXGhyqVH/R85avjgi5ixfpIN+ujFOvDab114y40S+t30PqNqI/a 7Ga9GBtigpXRwTk2iD1otNobouWkIN/MRwBhkgpQo0AyESWZiCITUSoTkYKJ 3W5MuB5OIw/j5GFS8JBBHjLzP8uDzsmDA9fIw03Bg9oXHrrFwC/ZF956AQ8f k4VfCx7y1CggBAIJAYSo+7USia/Lj51Z8DtqFRBqO/hIzYH3OUa+68wCCUQZ ntkEEKWfBcKWrwBhzVWBMPM8DK+5B4GfCwYGgb8vzXMFgVTAZ4Mg5Hke1qzw EB7M9SYHhIHWCRr0ZMAgL1cnaHjZxUPoDzfDTB6aJA87yYMn6qO3SBzE/lKS EOy8lV+QREggPAQHHi7r+WuNPAr/Xe5Hqe5HeH3G/e9gKJXup9H99Fwmwgvc ZxNYpvsXmQiXmQbu7t9T3X/sdN+quP8OnX+P+oDOf2Rfcf8/85wE1CgE5DsJ YEIIAL7pMv/3qxpC9cpM4EyFfAFCpdIQ8solCG+7g0D9URBsThCsuEUQLhv1 zvsvR46pIPipqUAOEv1JAeXhngqBbqkgKQgiBUEvoCBohYI1qyggA6JOg/F5 QrANIYTARAga/dwgiNkqGbAozq9TnY8JUrcVFlUiC8SOQiSCSZUxmnkQLYfF aEkFj8ZoP0mGOxU5Ebvx5N6tVVR8Aw8nFtgnbJhIyyUZ7lQUYp5UnGEmnJNU lJEKJRNuGMtx21QhqXigUvHUnQqbk4oqfKRmwieuXBBz4W9lk3Bmg6BDo7BB EjwkCq98FoZ8Z4twwlChwiCmA9EiyvCUesxW8TC3BPdzOSHkusNgd8FwkzC8 Nz8H5+Oogoa9Kg37VRpENqgN4gurQyE4cFUoCCRWTQdiiyBSYR0rMVgC8QIc QgQOntsQTBwMG3ahgf99f9QuDCRsIg7biEIILQ8hBCEvyURYK3mwOEUOzCoR YkgQ0UASNNL+dQoA0YyF6FUATLmb/03cp/kjqTbGgl2aP5XBASGzQEaCMH9R Nf8Czb/ESLgqzDc5aH65y/xHqvnKZkEZEt6j6TIS1NlwJRZqBAAu//MV74Xf a8RRI01/hbZXuwbDF08HFWozKHezvvQ562l7boGb9WwGtP662YR3uDdQXvL9 l9jrq9ruR9v9fF1BkOj/onawOgjSQ5UwUJwXeZ9N219SWoJqvS5yxXpDlOwJ UaIn7PXciiB6r6f3h+n9sWjV+9htIgo0IgsU49fIWLCsmC9TwOOFnhukFM+1 Ud7IdnnufJ7u0EEbxlLtLPg8DgIs9sxCzNDvuexi5W4lnTIUCr+v0O/r9FrZ C6z4/UT6XeXy+11bNYeAajkEiDag7AdqONTXOD2npzXSdnH7O6lql+Ua6fhX VjYDcgiokp47s/8zQwD1zM7stzP77cx+O7NflPtzvt+l77csFlwxGzeoE6Gw fJ+75X5+Sq0n0u+/cjl+gI4nu9V6mpvjGSu1Lj3PifijjiuGv4QEGh74g83Q rd+FehreJ4t9M+rixNXlWO7SZ40S/fxojWq1fDdyGfYxiowxLHhjjPA9Rvoe o/iuF75HK743FBpX+f5NLNV2sNbtGE+l7+n5mMpcuVNgQau0f9dmwOhw2wy8 YPij96uDvtq1D3SFfZ4cAzTS/LXPWa/Yr9j+Cm3nj0qJfaB7uVcqdyG6kp7l Lq0v+4z19+xu1ufm4S6tv03rb9D6+22t6nOoXkGCD733Vbzfv+K9LHdhfyLN T5LmB0rznWGfJkr+OfOzaPyLzOeWIFLEu4Ehb1SV4LkFgT/chBy6Xyfd98LA 3i10f8daYf5LwnIP4baHNHmNsFm47JTTbYNwO8ZXuq1T3Z4e7HvO7fvjCxg+ mMtKz2Ol57PSCzGlDnufbeufHfZWtXXbitvv5lZ9ptKl43nScY2c/Dyko2L+ +43TZY388BVp869Vm0WFrzT1CldTfydPTXZa/QZtfkqbH1MPafV9p9V2YXO+ tPqOLRe3rFZctZjx22fPVKu/zKbep1jt67TaaffzVot0V61+QZ1nMtmdVmuk 2WsUuyNdta6R0f45WekJmzYhgE5nvbYLtUyao9LpraiL30F7BReyuM2iuE3i QKM9pMsvS4sNUn5S+hjF5JxVJgeoJp9KycXIwTy2b8XgSWeU5yhRfo4lfUGN 8quuue3/HOXOkn6fpn5Afehm8sd50mgPWdvrlJLNc5Piq0Ya+2X+tAjwqpUA F1Wc98cD/KG0drW9d3NZxbT3Ou29yJlNeVr95zFMa/f6eNNeWuvrS/m9yFqN LOMvuJxNpbNpoaq7YWrfVp3NjnAVskba+icyxPWsXYMqUcf+P9iEDDpbQ7CE s/3S2Z1iDosJkTG+TrZrYXCwDG9VK2bzECsP4kkqhli6Het02w86Oq6l49nC cXe7v8GaXmT3zsNoaj638YrdU1lFrOli1nTJSoIbntu+uyX4Y/HAsbp9d1mu buLENt5pubO2NcJ0zYrrPOYr2S5M1kiTv+zq0+5V7B7Yb/yxwLYXSqvviiqm 1Tdp9RVa/fb8vPqK2rUMbNrss2Lzfj8/OZr70yBhcyIrOClodWDLbq36nB4m vBaVK5xe4+4ztJHSa1GT7j4bOHb7/cAT6a/uQrXL5204EvMTYWvIy8JbEdOy M8cGCT+lDLGsZEMsuRO2roU+Vi1hKoemNhQZnaYqL5T/KgZT7AzqfO7BCjEu ajirGNM0dI6GLmpL1ZBWduTK+P3iGn7mFtRvq0HtVsca6aqH4mueUsrSWw9p 4VeUMFYr1lm1H7qNXu89N3q9kcdgzmMw55U8F8yFuGvPp515uEVLr9lsuGCx KK+P+zM4TEYWrg8L13fFUVG0/v4rbj7ffkNYN8LOl1xmZoYrkZwVsVK4GmEn i11GcpQip5u+P9iI1F/sQiVhOhLFjdbe7eiP/3daGPL5FTM9VDMVQ4WJgZoV O9fRTn9pqaxRKpuWTp/qW+Xot3Bv/AxOp+Rz2CrAGMt0PLOYZVqMGTo6T0fP 0lFXmRpXWu9tc8Wq+1meurkqSzVXKVVnC3ZP6A/zlJL9KK96nbTvr/mpc4Cq ZPRWqia61WUejaSJz6gnNPIRjXyQ525iAe7QyFs08jqHqUscpt5aWFCM/CIe 3r6Nvd400sdXNVMpTWHmfrfmmkQjD6wYidRQGcEaaeVaGhn0R4z8E1mYOhqo VyWM9KGRKTSygkb2Oo3c8x/COrZWD9lgleANlp+JijfxaIoNlhabxOX4jPIC q2rBuimA7tJsvat2dVKsXZqdRbNn3N/m5m9wtqYbQ3R5hLU7llGMCbo8lV1C p0s5UpdyK1Wmbp0dsnavm9xGaovqtNXtPnY1lEUNa6TXHkod20Udi699YGd7 /ZD+fpW2V8mPXHL32+W1umcSE5X0e3XhPqDu0/O79PwOPb9Nz2/R8+v0/Aqz +G5HxxZ1m5xAr/cKr6Xfbl77B7jFsOK1LFy3dpsWpsZwuFK5Gmm3GsWRMobV KKbLLyt+S6834MDPd8Lh7Y0ep9cJPxeNlOOySTqs+Kr46yGMlVUrajUukApw k6hdf4301ANauppNVw8XmVa7+go+evRLpnIBnS3ESEYRxjKFsyWYoquzdHWR rp6jqxfo6iWjw5XKt8xKKt9TnX1kVZOZrr5hU93NVerY5a5dcVfIQ3i8lodK 7kHf4/FdeS+Hck/H26qDb7o5+Ih6SAfvCQepO3TxNl28SRev08UrjN8LdPE3 b7yxRX0GxXDfMZeTGunj5+mkv1q1iouJQYqTiotBOBgqq1Yjbfwc0sNXjHRW bXakm5HyPg6d3PKKCPami4n/sRNldLE70hvH9u6gk78Q94PEBK9zs9EoJe7R Um0MkjYGqVYGulkqbIwTRSrM1FLOAn1y/7bTzmB1SF6o6sbgwUIMpRXRzmKM 0crx7FJp55y2DGdo57LegYvCTlmo5S4776h2PmAcO+18anNaqsSysPSt3JV4 fodWviuMfNdeqZEe/qV08W1Vb7my1yGz9yklnHwgnSzBHTp5m7pFN2/QzWt0 8wpH4YvM4DcXFtWrJvwp9uymjd6iIP2kkfto4z41fPcLGwMDaaVakCGKlRoZ vy99piAzI1Qv5eY1R5SiVpaiKEgdS9H7B+ux72c7UbLbG11OE/e9KrYtIeIO CKX4FP8M0kOD8JCOCac4FOniAhTP1ih+UaL8DhWb1dcOh6jVt1jdg0FW3lB6 MYYzSjCaVSrtmqZV88IuWqXYVY7LtOqqSdhVQbsq3OxiBVrVbLWtWPbLXKUK NTSN3rzFT9fSt0r64q4KnsxbPP4FZ9dyDjvlrDjhlUN69cTlVymrrpR+leAW /bohRM+u0bPLrL6LYgDq6MR2NUCV0vNl6flJ7fP1Vz0LkKW331l6wSueqaWH 1DARosGsvWDpmUY6tsblWY4ijSy+l2Tx7f7Ba0igY8V0rFM4tm8n9Zp4PrMY d4ziTiZDbLBSZx6MxiBXrUnL1iiWaaVl0i4qk5axxFZZxk7EwBxILqBtRTjN ChvOpG20bDynTLFN5+DQI2wrl7ZdkrZVsB1W4CYtu0277lKiJT6wCusqaV3l KuveEIYxRTU0sUL4V+FBZyr4t0l/VD2zOzQ0yMEp8BGPD2jVfdWm29RNWnWd Nl2jTVelTQW4wNK63dG1U8Vvj5cPXaJDQm4O7VMd2k+HEulOknQoaCUgw5Q2 l8Z0lAkZsVJVWZFuLsl0VGza/YNXEf/vO1Ho5Y2OCG/07aVF+9ez9wXL+3lE UdEi6ZBSVMKltdInnVSglFZeWFgbJ55OJvzKoYRbWRQLzPk+HaHy5uvsb29i IKUQJ9OKcYoVNpRZiuHsMtUuh7TrDK06R6suGIVdFbii2nXDrFYaA/EedZ82 PaCEZSIgH9tWbHvKwnombHtmo2PPckVZPaNlT1XRKVr2Eh7zKNx6SN2n7tI1 xa1S/sw1erYOV7i7uEzXXqdr53MLcMaah1+/8cud6gPbD27doXO+inM+/tK5 vXRtL13bF+h0LlA6dyBEzcPQ1c6lS+eC/4/OiVD0+uEvEPs/dyKfrrVL13bh WOIG4Y54TF8vCksfKw9BGumTh8ulHFld4qOXpF85LtExSjiWwRqbVxwLkzdf wUeP30T/wSKcoGODGaU4neV0zKE6Vu5y7LyhAq/Tsct0SxaZWRRZJV2rlK7d /axzGjyiXevwOFcx8LGN0Um7nlCP7fTuEd36Io/l3OmVc/NezkYlfHLQJ+5d 6NcNenWVukK3LtOr16kL9Gs5txCLtnzhlZc8mb9AmcHM3uXHfb0/EoRPfgGr vNpHn/arFSa9okfSqzDVK5l/6XIv7/IqUkojzXpJWuX1w58j+qc7kbfLG60R PjhKm/oSNwozxPOtdMImXaw8iF288EnrEtMvR7SuHFlT2Twq7vgjgw5NnDrm dChcjY0PWVPH6NDx9BKcpEODWWUYynZgjA5N0aE5OrRIh87qK7BMhy7SIWdd XTVV0qVKxSU6c5u6Q2fuUvesilP3Zdd6wOMaHhmTuaqEPfdpz59zz8bxk7pD KbZwLKU1V6krtOaSnVtObtQv0JplWrNEa+YVa+CtPkWgzGDBHm/VGyZfgurL XuEL5wlnDSWFCG+CXuCNWkcRKwmYHMTf572bibobwes3Y9cP/x2RNCZ3pzda wp3GeCKc3wtbvwlx27ZrkOjjJZzihk3Yo5Xhp5WNShiUo0oYxNkiW1glTGJD 5DErTrGpvtiyRp7X5/DmW5/g3PlHipYfYZkqLB5BcfEoiotG0dd7gb/swpK4 5s75s/yZM4/kvzypuByh1qG4/PHRg8Xop8vHmZon6fJpujxKlye15Zily/N0 +AwdPkedN6pO0+HL1FU6fI26QYdvWlbcvk2H74jedpcGe/DIfpirSEM/hbu3 ebxNZ29RN+zcSlJXqcv2MrrKzQjdPU93l6klOnyG7l7r6MEndNdHvT9cpGS8 lx8dViovgZUnHE6QDgdib5C7w0E4EKo6HKY6HK44HOflhYit2xG0XjyJLXjD Jq5wCI+hlP9PPBHxkx2w0t1m1d2jSZ5I2foq7YnkT6xBBI8R/LeJvl7cHvoK F4OEgcJeekkDFWnEUSM9fQWZ0lV/1JdY5Om8/fYnuHDxERwVoyivpHhbQVVS 1eWjqHWMoo46VDaKw6VUCUW7D9Puw4VUPr+Xx5/JHcXlxUe4tPAIA4rdkep6 Cbtn646gj3b30+7jtHuQdg/T7gnaPU2752j3AnXWoFzOXlpOq18XltPqK9RV WnyNum4RRXxDBO5NGv0lHpnNuYpuCNHk61IckKgrNPgS9Tp1gSYv0+Rz1Fma vJhbzPItwuWOHn81WaW/TNY9rN49vgHY4/I3EAlOf4OFv0Gr/N3r74vQzdsQ 8JrwM5DOfAFB9Eg4K3wNo8KltxsR9uMdMO/wRmOYD47s9aK3m2Dz+dlaRG/c xOSN4o9FqorY4In9tFgYmyWrNVOxM1B8JKo1g0fhaWpcDHo7BzWorh7VoKZ6 lItfy2NdFT2iGqgmetxCb1vpbRt9bac66G0Hve2kt530tZO+dhRQ9LXdzp+1 8d9YRjHadgFX5h6hT/E3Wp3Ip2uP4Ai97aO3/VkOnKS3p+ntKL2doLfT9HXO oFzJ/Cy1ZKzEMn29QF2kr6/Tz0vUZenrFeHrVZs8iIq9SkOvqLpMMy9RipGc hKklGnpGqhQLuSWYo6FTNPTJwllslX/hXym5tbw6t85TR49eQBFP+MK5RzK1 zlPLzK03f/mJ/Jenj/aTBH/ECxJIwR5SsCeA6y4w+GsVhCAkEoKIHbvg8wtP +NJ8P8qfEgiI4nYCEKpCIArX/6cbEfxv22EkBIfDfNGb4IUjSZth9/v5GsRs 3OQhSVj7GRL2+e4SL72IE/fNZPAovafSEg4ibb8RZcX9HqivHRVv0cTj4ZpR NFLNVBtR6CACnVQ3MeghBr3E4AgROEr1EYM+ItDH8u4TaU4MjhKDo8TgCDHo JQY9Vv5bM3+HYRQ3Zh/h/Se/6lVoiFGrR1S7vCR2pri2vXpJbGqYJIzJa9tX KNe2V4lYZOs+K65vTxKWqfOSggsWAnDRyt3JRZt4f+mLdP+CFEcz6hy1RPfP 5DroOvdG1FxuKWZIwJSNg1NHLz5+403lXtZ/wVtMufMXHqF/4MKqhKuiarkE ddQhLsFhLkGDEKuhkUvRwKVoECnHZajnMtQw5Yz78jgcpyCe0RCvXlSeUGAP mUggETE+vgjw3IbdpMHn1U2riAhwErF+hYZwlYgAEhH4r9uh3+6N+lBBxG70 Jm2B3f8XaxG7USQ+uZBYCEUJRiJJxMtsAp4c1XcinTxI7YlFWlIxMpJLUFlK HhrqRrlhaeSxmWolFx1UF5nooXrJxVEycYzqJxcDXJTjXJATXJATXIyTXIyT XIyTXIyT5OIEF+MEY/84F+Q4F2SAXBxjPBwzkRlycUQ3gqmG5R6FiziVixuT 59DJHW0PB+4+8jDAcW6QPKxcKr0CU0blUumz6qXSFzh0L3I3e5ZasoguviSQ WCISX8BZHs/aOLFTi8RgnpqjZojCNFGYsnHrbOOg1nFEoOCpPnP17bc/xkU2 vCqerSsnX0Ydj4eoRn65mWrhQrRRHVyMznL+WBdX47vo5np0cy26uBZdblHZ zrWozelHhl8JUnyN2O9zUIIRTzC8N2zBzv/whNfPPSUU3oTC5wVQhHwGis0y JvwJhXabN+oIRY8KRV7Aq5BUaCQUHk4kJBEaeXxJchGxfiOit/oifZ8BWeQh K6UE1WX9/JmmQ6P4Fprrea5UG9VBOLqpXuooATlGOAa4Jsepk1yTQa7HKa7H acIxxOUY4mIME45hLsgwF2SYCzLMBRnmggxxQYYYGqcJyCBD4yQBOUlAThCQ 4zr+7uwh3J560KVAskfe/DmuTy2jnbuybu6hjxCSfu6hTxKOU+qlukcJxzgl LtU9JS7XTUBmCMashGOOxz/FnJXtxsqRglzMUjPUtI37B2qCGreVYYxsjFg5 5nUcxYOFJfVB0p8SjIcYPHkBdTzzeiGugojRBqqRauHX2qlOqpur0sNVOUId 5cr0cWWOcWX6hbg6A1ydAa5OP1emnytzjCvTx5U5wpVpJipG/xLoiUv27mK6 FI/tP9uIHcRkJzHx+oVAZZMrP57vJs9nh/9PN8D3X7Yhe6s3akJ80U1MekR2 BLz2YkyiNjoxWYtIYpLgG4e0PfmMjgIYUsrFNfgOCd5beWyjOqluItJL9RGP fuo4F+QEF2KQOs3FGOJCDHMhRqkxLsYYF2KcCzHOhZjgQkwQkwkuxAQXYoIL Mc4MGSciY0RklBkyTESG2VuGjfxdev5OLX931jDOHDrHrftH6FBY2as+BHpt 6hzGG/rQQVa6teJ60uRF7yBh4nrS5ThtJDOmcoxQo2Y2HyFLuQfGLeWctMcs nFCsDmLA3mTlNpM6ZeWW01KC+wv8H994E87MePedj4nEsNJR6xgGIlD/QQZq C9VGdYra4bd7qaM1n62dk1yUQS7KKS7KaS7KaS7KaS7KaS7KaRJyigszyIU5 yUU5oQZraUQt9DsLoNteQGcLEE1KdpCOXb9QCBFB4vuqEiRi6HR2FjFraCQf L0tC/H66Hj6kI3OLN6pCfNC5Zze6FToULtbI/hKzIo0ARSMpeRmRPApSksMz kJGQj8y9ZCTRgbLMTlSZejVoOzyKv0MHj11UL1Hpo/qJynGuyknqFFdliBrm qoxyRca4IuNckQlqkqsyxVWZ5qpMc1VmuCozXJUZrsoMV2SGqMxwVWa4KtNc lSmiMsFEGScu48RlnLiMEZcx4jJCXE6nncavHv+qXaFFuQj5y3jv6Vvy4sit JKVTV4YeknKEpPRR/UaHBsdNDnweJ3g8YXaqDMepAeqYuRTz7X24u7CMD51z xRq8886vcHrwvOShsZ5gNPGkf4xmnr6on3Z+1kX1UEf5I8eoAepErVI1p6gh Lscwl2PkucoZUytnnMsxxuUYIyCjXI5RLscIl6M9pRcNCZ0oC6mFhZBYCImJ kOg25SHoVX8Jye5XlRHE79XVEfJ8p/H9yWvY/T+2Im3zblQE+6Ajfje6krYi N3A9XMnhqcwdMZ4CLn5GPDw9OVsJSOJ2+CEzIRfZe/ORva8AxRnNqMzpQmV2 JyqyOlGe2YHWikH0kI+j1DEuzgB1ggtzihriooxwUUapcS7KBBdliosyzQWZ oWa5KHNclHkuyjwXZYGLssBFWSAjC1yYBS7MAhdmngszT07mGCuzZGWGrEyT lWlyMiVEViY5nkxkDmM0/TSWas60KZykqI/svUtOrs4uy2sCc5M5t8yviesC 35xXpJFHD9yYPyf/hZDzUcHLrz9gJgzLnqoE6E9lgLZTXYeUyjjqrIx6tTLq lMqQZ88zH+OZT/DMJ6kpnvkUz3xarY4Zt+qY5plP88ynREdJ60XH/k607+1E W0IXDkU1o8THgbxtBcglEpZN+UhdnyGR8CYS7pkR6JYZoesVJHx+8ip2/Wgr DhIHR5AP2olDZ+JW2IiDaB7Sfg/aL7eqhCBSVfxOP2QRg5x9+TAfcHARqnVd +CJqtF2oyelEDXGoJQrdRGGAGJzgYgxSp7kYw9QoF2OcCzFJTXMxZrgYs1Us q3muxDoscC0WuRZnuBZnuBZnuRZnS/jtJS7GF7HE5ThLEM4WKDpDLRKIBQIx TyDmCMQcgZhjcMxyFJnRj2A6ZwiTGadwvvZMqwLCrPMVToPnaOSwNLD18KiS cj9FO4+dlJPkfuo4f+Tkc6cxRk3wNKZ4GtPVrlPBHM9knucxz/NY4HksvIDm 4+m93At2oJee9uzrRPe+LnTt7ULHni40RjTDsduBgi0FyKevlg12hL3qp/iq DpVioHT5ul7x1fsnv8D2f96CA567URLog9a43WhP3AZroLjLPVJuJoSpEbRx DeJoZHaCDZYDpSjPbtKgztDFg74LX0YdLa3TdaJe24kGGtpIQ4+VD+IUV2CY GuUKjPPsJ6kprsAMV2CWmucKLHIFFrkCZ7gCZ6klrsI5roIGy2Vc4vOlox44 X8LDMpfiCzjHo3D1DF1dFG7SyUU6uUgXF+jigmkYc7ohzGSdwut1Z1oUB6fV 5/m9x3Buqj1FB4flDCOsE02qo4EWUt1UL3VMWEidpFadRL16EtQMT2ROnAS1 oJ7ImUrlJM7yJJZ4Ektl4kSWSkXxL4m2ntmDgeQOfm3gQCe+hv6kThxL7ELf /i4coaU9tLSblraGN6NqlwPFnvnIp537fhEr7fR5zZN2errK1NnevX7yc2z9 p83Yv3E3igJ80By7G2200kwrw1me4TKhwz09PRC+yVO8W/VOXxSkVqAiu4Hf OGTs9OCBfh4ydOEvcZiuNtHPFvrZlt2Bjsx2uQRj1ES9cvrT1GytevrUGS7B WS7BEpfgHJdgmUtwXvp4wUH3Lpbx8LpDFOVFHvmp1AWKFmOZi+O0donWLrFI z9Las7YRnLEMYdF4GnM5J3G5frFZsXRKfRKCsLSl7hQTdUhaKSpRWNnlZudR qp86QZ3i94eoUZ7LODVJTfOcZng+c9QCz2mR53OWWuI5neM5LfOclnlO53lO F4QcJFP86d/EmTxifrCd6qA6MUidTOnEieQuHD/QhYGkLvTT4WN0+BiDuC+O imHR+tSgYitH/Z+nqjtAUayKu86+7Psfr2HzP25GwgYv5Pv7oDFmN1r2b4Mx cIMGoaI0Qz3FNKYNjkHBnmxWZDMOG9vQYOqgWIZSdLXB1IW/QoOR/y3VTI/b 9J3ooMNd2g5uvzs47/Rgsl5ZiVm3lTgjVkKsArXMlTjPlbjAlbgo9r+vcyle wiUeL1eMuWkUV4Qqhfnisz/HJR7Fz4l/IeyXtgvR9vO0/TwtX6bly/ZhnLOd xlnzKSxoT+DKoXk0KX5Pqk9aFX631Q+ig353Hh6RPmuk019Dj+p3HzVAnaRO U8P0e4yaoNdT1Cw1xzNd4Fmeoc7yTM/xTJep8zzTCzzTi/zzXxcSf7r651/i n36uYBDD6e38P0fSOzjjjqR38nNFQ2ldOJ3aRRC6MJjShZME4ATNP8HSPkHz j9P8gagO9IW2weFVgJJECw74x3Io27TqfqGNP/REzGu7YPP1Rn30bjTu3YbC 8J8jkKV8KNmGQylWjOa24M6hKdw5PIl6QxPdbUWTuYPzplkkSzOPTeYul5qJ QAvNb6c6DWwiBOAIAejLoflZHThp7MVs/RjmuRyLtWJJxjgKjdH4cZyvGueS jHNJxrkk47hUOYHL1BV+fIVf1+Bq1fhaXOOP/gWPY/xUiAhQl7mGl9R1vFiu Vj4r/iJtv1g4ggv5QzifewrnLINY1B/HlcOzaFQsn1AfVn//nY9o+UnuOE9z OzFMs0doNdVIu6kjVB91nBqk3UPUKDVOyyepaWE3tUDLz1BneY7nqGWe5wVa fpGWv05dEn+umC2Irgeu8o9eg1kWxnh2OyZYJBPZnRp+0olXMJbVhVGhzC6M ZHRhmM4P0/khOn+apT9E10/v68YphvlgTAcGwttxMr4bF+tmcal2Dpdr5nCV t9fq5rHle7tQtTML19IM+F9lWvy/TSn43zVeXNa7DfMssLuNc7gnNYujuaxh UyvtbUeLpZP10GIRid1Ci1updtrcRYt7jZ04Sov7afFxpvgJTt6D/HunHUMk foL2TpL4SRI/hQvVU7hYNcXTn+bpT4s73Hlci6vV03RzGtdrqFqhKTH/8rgG N+omcZO6USs0oeE3J8SdNbXjuEZqrnI1r1TL1ZQJ4CyeS6UjuFQ8hNcLTuMC k3PZegJnDf34z6cfokExfVx9FbEwvb3uOKfkU+g+PETDh1nbI9JwjbT8L1dM b1wxfYKaoumz1DxNX6TO0vRz1DJNv0DTL1Kv0/jL6p8pWNXgGo9rcZ2f3yDD N/j9c/n9mNKKWp/WdYhDJ2mc4nGK0+skNcFlncimuLTjmd0Yy+jGaCqVQh3o wUgixcI/HcuuEN6GqayTuFK7SOsXWXkNCPmPTfjHL30T61/5NgK/9V3s+fvv Iun730bKP3wNW//6FYwaGjR40LzIv2ui9DiaTC10ug2tlg600fc1aLN2c/5q tXTLzztIQLe5G72mbvSRgn5DN07oezCo68HpnF4MZfdimCPIUu0M4Z/B+ZpZ wj9L+ElltUoldY0Sls7xdG/UzeFmvaJbQoeEZnFbaoYfU/XTvKXqp/hzk5KO G6TsmhOHGmWNr1SO4Eo55RjG5ZLTuFw0iNfzT+C8bQBnjEfx66cfHHan4Jsk YIAEnORsfYruD+EIKTjSOIKjUhzU3AgYVgmYpKYbVAKoMyRgiVomAecZcRfr xliDbFT8667UjPOvE3/lODkfp+vjuFk7rsGtunEu75Xy09wTdGKWiTkn5t05 MSTxI3yHX+vi91TpujGt7cZUDpXNVspFnkynUnswkUIl9WCMs91IHKeE8Fac L5jEMW0T/uVrr+DfqB9/6RvY9pVvI4IMJH/vu8j84beR849fQyC/F/DVVzBp buI0O4kmYxPLvI1md6Ddyu2dtduDhx4mUhuPgoYOstBt6UWvuRd9pl70m47g hOEIThmOYkjXhxFtH0Zz+phgfZgycO1r5nGxZoH+L7AeFrgiC/RtEdfrFunh Iv2kDi3S30UycfvwIj6HOw2L1IJLd6Xm+bHQHDUrf3YGfya5uMk+daN+gr+T q8yVv1YzwmqjKodxrXwIV0tP4UrxSVwqOI4Lucdwq31G5WBMfWntxOA8uutP oOfQII4cPs2Jblgy0CfF6Y4aoE6JJKDGVnEwhoXD4+RgghxMkIMJXCClYkEv 102xIKdwlbci327w9iZ1i7pNmm+LDkvdPTyFJXsftxfdWDB3a7Bo7sH3+GEP 1Stv54VMQt2YZ9eYN/RgjsU3q+vFDItvhsU3k0Fxaz59sBdTzIdJDgbj8R0Y imjB9u/+CP/29Vfws699FT9jJnh95buI/fb3kP6Dv4Puf3wH5n/9BiK/81Xq FYT97SuM+Uay0IJ2S7tkocPKALD1iOuy2no1/PQI/gZdPPZa+nDUfAz95n6c MPXjlLEfQ4YBjOgHMKY9zhA7jsns45jKHMC50hmScJZJcJYhdZb9aYnOLZEC 6tASbh1ewu2GJTq8JPpT45J4g6CmJfYmqums1H15e0bDwyK+xCPhaBQiHGxj twnHrYYZ3OSS3qQdN1mSN2tHGLrDuFF1GtdZc9fLBnG15DguF/azTxzBb3/5 wSEFiFH1hcbjJ2bRXdeP3kMnCMQggTjNsW9YI4n4uswFwcNJlQelM4yRh3Hy MEEeJnGGf8A50nmeulg/Qx5myMMsz3uWpM7yvGddqXebqXfn8BwpZx+m7vNE bjIrFi1HcMZ6RIOz1qNruFs5ig38vA+L1qPct1Bmfp+ALLISFw0ERX8E81oq h8o8grl0KpWjVzIDJLETzbst0P7PcPyEELz2ta/jtS99G76v/D0Svvd9ZP/o +zD/5O+R++/fQvw/fIP6GhJ//COYIlMJQRsd70CnjeOdrZvqoY5QR4mDUB86 rf3osQ7gqOU4+i0ncMJ8EoOmkxgynsSI4STG9YOY0A2yuQ0SViprEAsGpnXN MtdkGdfrz3NNztO08+TgPI08T0PP427TeZpMNZ8nE/d5XMOedR4PWoSWhdjE Ws6xYT9oWaKISMuZ/4+t9wyPPLuvM8/TlNfer/vseteWbe1j2bI4pCQrUSQl SrREilzSlEwOKQ7DJHJy6JmezjlHNHLOsVCFVAGhUEiFXAFVqIwKqEIGutET eoZBJi2b6n3/BfSoh9KHU93T3TO49/7fe875FTAN/uAU/8ok/zomUjOhWJ4N woTHEq0Y4goOKFpiV6TYpsjtPoVv9WjxhkUL1zo1f6lV+0D07/+/QXe2dtVS 2qn28m6ZKnvVCRSdQGHGKcwwYd53iZ7qQVxiSP1VTogYhohhjVWNkBQjEDEK EWMQMQ4R4/KXTyhQhh+iEIqUu1maG2dz5z0wUT0J+W6Idxsx7Wbjnit9mjln 0ez5vA5o9oLlY7x0HdDM+S59jl/klhl/4KyZztupmdMmTZ+EEvx56phJk0fR 4Q5NHoIWImScRllOOyz+wps68odP6L/86q/p8//nr+vr/+7jeuHjj+no7z+m c5/5uC79ya/r+U/+v+jf6fT3XtG5Jw+q6mipWs4171NhENGeJ6L5nBl1oW61 UsE6zvbJfMaq7jM29Z62yXbKLsdJuwZP2OU8bqf42DV61M4EbtfEYUM26tw0 RHgVrvQpUuXjSvugwcfj9PFYfTxiP/LxuH1YUrreeM00+JA3rwO8ephKMw3z SjfM5ZVqmFWqfkbJehwERBLgYaARp/nGeEYxbm6MFI+V2hUr7lO0sFfh291a vNUp//U2bc5Eyh+l4j+qqbhN7WVmmSq6IaJXZnqEOU+FPf+OgAUauvCEPihw VLnIjRG5gHAMk5rgvk9VTpAZbs0hLwnoJw0DZVMQMcVdmOYuTAPsNDRM593Q 8MJk7Uwe9DTK1BuaBoBuzV0kbdHHwLf3V3jp05/wC32oV/MX0HmjCnVrnks6 dwZEMO2ZUyACGjOgMQ0a06RI37MFqv7aYZV/5ZBKvnhQ3/r13yctfk3f/bV/ r5c+8Zje+t3HdOiTv643P/5rOvyJf6ejX/gLnX/qNV14+g2VvHE9j0QLOLSA Q8t5E7KgHnDo49esajtnl+msA5PoV88ZQtX4DNypQQ2cHNTQiUG5jg/SeAY1 fpSCdYyKjaaOU5fPEaCVC4pWB7jNAR5dgEcY4FEGeKQBHm3gAM85wDXJ8Lrc uK8mfnm5aeGAsk1+iFhu8iFvXpkmj9KNENK4R8cS55moh4w6wzTGIGOEs3eS 0QOKl9kUK+lVtLhb4UIzQdIh7/XmfSIc+R/+k8LeiNpLTTKVW9QJFWaosOxT YWG+sFQZRDjVAw02aBiABCeOPwIJE9z7SRrQdMUUREzLg/wkY6B8FiJmIWKW WJuD1TlomMu7YnLfCdP183nWl1GWHUWYrAwEPJet8jIOea/YuBPeK/Zf4cWh zxo/ZU6yy8uA7LtoQ/zBC/wLj1AyDyFzEDJ3slOzEGJ77rZqv34EOt5SxZff 0MXPfEffg4oX/9N/0Fu/858wjN/U65/4Db31W3ud4vzXv60rT72um08e0rXv HOHpt6IOaOhEVO/zvcjKrzF1n+tXx7lBmc8OYhRcmTNO2U4Pq/8U1+akS8No 5ISLXjxMbBCvJxgzT1K58sLPqxcVq1lUvDbE4wtBRIhHGoKIxpDhDbwuN+0J EpqNX8s2LyrXsqcDvAaZdXItAWVbFvbU7NdyM57S7FUaUpJQsmRQ0gAh9RBS ByE1BiFDENIPIVbFynoULbVQN0wK3m7V1lxIZY8i8htqxTQ6yjrVCSJmELHk ETHwcOTxsGAW3aDRBxoOKu8g9dcFFmOVUxSLaYrmDDEyS4zMyVc+pwVCc7Hc o3CFB5v0cDe82KQXm/Tm7dEwR8Malxt9XAGfcmiFbXnAwmdQcNWB+g8wOuff cLvG/HJt6KM/XmWeQQeoTAP6tBYuM2hfcuTB8V6wymOAc65HXjqA54xZE2+W yPHkG3J+84eyP35MDV97U/X/9aAO/d5ndPAPPqmjn/1tvfqHv6NXf++3dej3 P6Hjf/ppXX7yNd0ClLOf+raOPvY1HX7sr3Xmz55XxSvlas2DYkP9wDKIhThl Ojcsy1kXFjIi65lR2U+PaQANnRqTC42exGPRJD+fPk3ynh7B9gzRyW/N8fQi 3Peokg1RpRqjcBLFD6IQEjUAiRpERPGSldYoijzUAa20hQFlpS3EPwJPXkFl W7EaoMm0+JUCmGQTlaVpVolG7LvhISzUfcpBvNIBMH2oix7SyVjYJv/txoeg 2Pc7R8TwkhLmLP6IGVgslFELvcPCv25h6rDQMi2kSQ/+YQWSfgBxAsgILXq8 claTADJDm5oHDC9Z6kfBCp9ClX4y1c918WOgC+ToAua5kPdOwzGzTQHlmnHN FS7DP1cai/FdHciDsHB9CDm1cMOpwI1hY4a94aKUBq4z5Bi6ZmhYwauG+DNX hvLI+AHGlwfGqqmjVRp85gWNf+uvFEFr3/1vSj37opzfP6aWx99UyVef1Buf +11y5fd18PN/oBc//ft6/bO/q5P/9Wu68vRBXf/GER395Hd17BN/o2OPfRM9 DjDfYqp9Qje+eU1lLzfjJsNqPzeizrNj6kK9ZyZkQ47Tbg2i4dOTGjnFneJH N5o649bMWYL47ATuNw7MY2iUax4HkDiAJLCABIAksIQE9oBaEzz5hAwiEh/T anv8gNbaY8YL8Ky2R2ikK+1h5dpDyrYtKtMWULqV426hwjRTbJtnFX9IRz10 1A5DxyCyox5s3kwlbGdcbtLmfFClj9Lxm2otapaptF1m6LCUd0EHNlJhz39+ 0EKTsdA4u+gYvaSKHSoGIWKY9BiFCDdETFV4sRFsoNwvf8WCAkTrYlVAkeog ZAQhI4iJLmKii9yNxbxzGr6ZazHAD2mVC7CGEqSUgYSBgwFD8OYIGv2YgrfG DvCz8QNazL/cGNNntHh9FI3kQQkAysJVw8YbNfjDg5p44luKfedxbT79uO6/ /Df670e+r787+4zChy6q43tvqeWJN3TqK3+hI1/9I738xU/rWVzjpc9/Shco H9eePa4zXzuiN//wJb31e8/ryG//UEc/8SxwPKXjjz0JIE/qyGNP6/yfHVfB N4uJGbe6z04SM5Oyn5lS/+lpnGNartMzGkXjZ2aYvmYYvDDbc9MUqClGxUkA NjRBFiSVakoq3ZwkH5Jc/SRApAAilQciZRCQhIWOJEmzzuu6aSmvA7wmMJA1 U1yrpphWO2Ja6Ygo2xHWMqik2zn3tgUttdJ2W/YxaZoCFZpq/ShGAiZ19JFa K4bShd13YP0tSvYMPETElv/hMUU8IXUUt6gzjwkjOsOLpcKK+j9ExAIi3SBi BREHeAyBhgs0xkHDXeGnjCxQRgLyVga1ULWoIArXhBQlZ+N1YSw0zO2IcDsi 3Ay20RLhELDMtiiIRI3LoHUUKXY/RINCPYYmtFjA4FPAcBMqmMREFnkNPdSt SUYy40f+yE1D/PEb48w0HRp6/ogmvvt9xb73XW0++13df+1J/ez4s/rFpef0 oOAl/X3Za7pz87RGD55Vx1OHVPbtp/XMlz+rp7/8x3rhK5/V6//t67rwzOu6 /NxJvfqVk3rxc0f16mcP6+AfvaVDf3BIh//zQR35rVcxmJdg53mdfOw5nebH 04+9oMrHK9X6Yi9GMqvBU3NyopHT8xgJt+ost+rcPJPYPG18Tp5LBPTlGcwP XeEJ1sSUbskQERktt2YwhYxyaKU9AxWrHRn9b/CSgYwMjKBOQ2ltdKYP8JLS v9SGGZDQWueSVjsTWumMK2citEw8gQ4aTwfwtANPG/C0MkC3AE8zH7oJeBqp Kg2kTwP+Ut/L0+tUtKZVixV1H+Hm42q53SAT3JhLO2Qpw1rKCZ1yQoe52VLh QmPIrR6uvo2QGYAZJ7yMwMpEeYDgCRI8i5qvXJSvKqxAdVihmogitVHF6qJK NMS4QBxGUwxm4jATx1K4Dm1xeIlzXeLaQJtckUCel/E9Vm4DxG1Go8Jp41MF t2eML4spnEGzeX2MSX5Gf6pIwQzi0tIxnS+ekvv7P1D8qWe0+dyzuv/Gc/r5 qZf0i6uv6UHRG3pQdUgPGg/rQdtR7VZczH9Hsdan31TtE6/or/749/SdP/89 PfX539JrX/1LnX/mNZ177pSe+esL+t4Xz+mZPz+n5//snF7+k7N67TNn9Man TmM+J3Tkd47qxCff0tnHDurCY6/qMrqKrnzidTU+XqfhM16NnPVpHLnPc8cu +DR70af5yz56uZe09WCMcxjkrKLlIYDJAkwWYHKkSQ67yGEdOUBBnTkgQeYc kJiz+lVtWLLatCx/qA0LHFnSWrOktAY8q+Yl5cxxLXfSejojSpmoy4Cz1LGg RJtXcQOc1hngYT5uHkfUliYcp8kGRF3A044FNOrH29sq2SPHuj/+3N3YUXth ozqLW2UpJZiow5Zye/4LkCzlwx+S0w05vZBjh5zBcp+Gyxc0Wh6Um91OlYcJ prA8lRH5q6IKVscUro0rWheH3YSWyOJU8xKnsoTlspW2JFcombdaw2g3TElt dvJruNFiwUSemvDtPDEw8iuKFM4pUjS/L8/HFC3y6PNM+9Tnwnlc3irny+fl fvJFxZ9+QZvPv6j7b76in585qF9cf0sPSo7pQe1JPWg5rQedZ/Wg+6x+1nOG mnNDTc8cVuNTb6jh+6/qzS9+SX/9qcf0+Gc+rlPfe05nn3pFZwHryktFOvnD Kn3jS1f17b+8rie/cEM/+C/X9cKfXtOrf3xVb3z6so784UWd+t1zOv/bp3X5 E8d1/bHDKvjEmyr85Jsq+u1DqvmLG2p/olmTFwOauRTQ3OWAPFcC8l1bkP+6 jzpG07vhUaiIQtq2qmz7qnIdq4CzCjiocxVwVoFmFWaQZfUAqKwCz2bXirY+ VI5/zmqja1nrXRhTV1qrXYScZUnLFtqQOaaUOaJkZ0hLJioDAMXbAaiNet1G s2ml2bQSWa2M0C0MSM09QITr1DfrTjD4UXg+ruj8okzAYy5uBx76bim2U0ZU lRNV5aNoAk2pmznYysDjAJwhwHEBznhZSO6yiKbLo8RVjLiKa6E6rsXahMJ1 S4o1JJVoSinZnMKD01ynNFeJ7aCHfruB326aM9rivqRrA/tWg5UUGcBAR5EX i4kW+/Tnipb4+dmeYshLwR1+5YrcdJH4M69q88XX9P5bb+jn547oFzdO6EHZ GT2ou6AH7Zf0oOuKHvRd1c+sV7RSV6vA1V6KsllDR26r4Zk30auq/N7z+uKn Pq7/D3pOfPc5XX3uuGoOV6qN6artTK/aztpV+Ga3nv9Wtb75pWJ954sleuYv SvTC54v12ucKdeSzBTr1Rzd04fev6ep/vqRbv3NeRb9zSmW/c1wVv3tUlX+A PnVMvU+1y/WWS55rWPV1Iv5GgIimCd7yU+C8NJJ1msmGVkzraANyNvCQDfxk A2o2oKZrQ/9Wm93r2vpQa2hVWz2r2uxZ4fdy2ujOar07o9Vujh2Csl3c3y7u sYUkgKClzkUlTAHFTX7FOzyI3Gont9qxn3bsp51e3EbhabFAEZlVW/1Ren5T o5YBdRY2yVKM7ZRgO6XYThmBVUbJKRtHk9Azox7GZRvk9JctyFkW1AjkTJRH NFkWI7TihFZCvuolBWqSCtWlFGlIA22Gyp5RqmWZ+7TMfVrmLmW5S1nuUTbv u5toC+fd5sJk6kN5szEsJlrsNSg5oFjJAuDESgKKlRoK5uW9PAQ41wHnTcB5 Q1svvqn3Dx/Rz8+f1C9undODcoBpuKoHHTf0oOeWHtgK9DN7gVaaWrVQwCR2 q5/abePKd5MXJjnfLJL5lbMyvXJCp55/XSeeflotb11SGyW77XQH8HQha/7/ q2o7O4xG0YRO/qBL3/hypZ74y2o9+4VqvfLnVXrrzyp18k/KdP4zJbr66UIV /NEtlfzhNVX84SXVfOqc6j99Wg2fPaXGPzkl838rVv/zJkbrkIIFi1q8HeQC LQDPJg1lk6ayRfBsEUJbwLNFVnVt6deAYwtYUM9mXts9G9ruNQRIvYDUC0Ro o3dF6z2ceM+ycj1pZbtTynQvKdXNgNYV1ZIlrIR5UfFOIOr0ITLMhAWZsCAT FmTCgjoYu9uxoFbyq7HulwFqL6iVuZDcKsZ6SmjJpVhPKZlVRmaVudG0usrm 1VvmlQ14BoBnGHhGsZ2J8hgDVUKzlUvyVCflr0kpWJdWqCGjaOMyJT7L3JdT mgRfbl/BjFeAZwV4VvIGbHjvVtcq8Kxqh7uz3EBjLvLmzcbgBmIOKF66qC8p zoeMl4XlveqS85UCTTx1RLFnj2jrpaN6/8hJwDkHOJf1oOI6xaZAD0yFetDL Xh2l+ll/qVZbLfnPxC4UjWuhcEQLt4cUKHDw4Pq4+RYNHy6R83ixnCcLNHqz QUM3a9T61mUAagEg3Oc07nPGjoYAx4XG0aRaz06r9cycit8Y1bkfOPT9LzXo uS816uAXG3TsL+p17s9rdeW/VOnW5ytU/GclqvjTQtV+7qYaPndVLX96QW2f P6cOClX7F86p74lymv6owkVBJqwV4NkGnh3g2QEe1H0HS9nBXnagZhtKtiFm m4jf7gWt7b5N/SteN7TVB0Z9a9roI+xAaLU3q5VeLnBvWpmelFI9S0qC0BII JUAobg4iUsxMipnxIDMeZMaDzHhQJxXI1AdCJsVaGvSjnS0V7yHUl//hsCKz CzIV1IMRCVbEsFWCB5XgQaV4UCnpVTqF5tRV6lVfqV92DGCwNKTh0ojG8B83 /jMNQnNVKXlr0lqoyyjYsAytWcWac8yDK0qR55n2NS7WGo68hiOvkePr3Kd1 zHjPgnd6EDco2xjfS6i86Sx+yE4CZH1Xx+R8tRh+TsDPcW2+dBJ+zurnFy7p FwWwUwk7TWyws4y0qtSD/ir9bLCKgm5VEA8NlM1qgf0slBif2R9ToIiJvnAQ 2RW83aPhY+VM06VynS2Uu6hJzoI6tR4rgaM2tZ3ChE5jQqcxoTOY0Jkx5EYG Q7PIo/YzPnWeWVDX6aCu/NCpo0/06aWvtukQOvXVVl38SrNufKVRRV+uU8WX q1X7l+VqIgVbv1Ag0xeuy/KXl9X95Yvq/spFdX31oiaP9GnFfEerlrsUmbsw dFcbPXdh6A4OcweG7oCMoR3toAPasW7rX/O6pW3rZl5bVs7Zynlb6VB9cNlH Ke8jE8Ap1ZtkBqeeglO8K4I46y7cqAs36saNumnUXbhRF25kYQyz0KY7LYq1 N2sntPARkl5VdC6gzoImSCLNiuhBxZhRCWZUghmVkGSlM2he3aU+SArIwdMd KonIVRrTeGmcIr0ESSnNVaflrV3WQn1Wi405RZpWgHeVAXFNKbJ9mWzPPcz1 vUzHkw0vZtdop3dLd7hOSca4WIkRWQZBESXoWd6r4xp6pVRjT51W5JnT2njp jO4fuQhB1yAIeipxnaZyPTBXQ1CtHgzUQ1A9XWtAocqAFivpGBVeBSoepWlC gZIR5FSAPQeLrRo+WSXXuQqNXizW+I1yDTOeth4tV9sJEyT1INzoNG50Gjc6 jRudmUSz/Hxerad96ji9IDMUdZ8OqQ/Zz4bV/Na8il4e12vfMOvI42adQVe/ YVLB19tV9vUW1fx1oxr/qk5tX6tS538tU/dXC9X31Ruyfe2q7H99RfavX9H4 S43ynndCykbPrv4FFO1CEerbhaK7EHMXeu5ox2ZoB6Bs2/p/tG3b0qZtUxs2 apSNC2yjmFtXlLVSHKyUjL60ksC0BEzx7pjiPfhSD5e3B1/qwZd68aUefKln jN8n1rqJNUu3YqZW3Y0EPgLSoT2QbrXIcptUK7QB0yAwYUfF2FHJNJpDXnWT MlYecH9JWEOlUY0A0XjZErN8SjNVac3XLMtXl1WgYUWLTauKAFG8dU1LQJQm 45cfZryR70T7Rvc2V2vPmnf6tnXHuqO7XKhIPs0MiKLyXJ3QwCsVGnnynELP nNPaSxf07pEr+u8XbgEQG6msACDgMdfrgbURgJr1s6EWivqwItVhhatDClUv 5t+2DFYBU+UeTAvUvIUy41Op4whbKhtUkDroOl0r18VqjV8p1fjlm6o7dBmQ KNUnOrGlPkDqR05EJzqNHZ2eRnNA5EV+QArIfGpR3acMkMKAFNHAhZiclxJy XV5SxUG3rjw3pGPf7dV5dP273Sr+jkWVT3Sq/tvtav2bZpm+Wa/ux6tl/Ua5 HN8o0uDjt+T85nU5/+a6hp64ruBll1K1UazmHgDdg5l7hhXZdvVveL2rO3ZD AGXf0badM7Zz1vZNrdu5xHYiAZqythwkZZWGpmRfSkt9S1CDLfVFEWffhy31 YUtWbKmPktQ3we+TcL0kXHcvadeu3djiR0h6U23XuQq3CLbbBFuhA5IYy4qw o2LsqBg7KvYgv3qKg7IVh9RfHJETikbKEvSjlCahaAaK5muz8kFRoHFVoeY1 RVvX6fYbSkJR2rSlLGG/Yt7GpI2g3w/5fXO+w3W6a4gTiGJ581fG5Xi5SsPf v6jg0xe1+uJlvXP4hv72fKH+Z0GZ/r4Sepqgx9wEQa0Q1K6fD3VgQcZXCUUU rYkqVmu8MxVRqCasxZpFBasDClT7Faj0aKFyTgsV01DlRqPIiWX1y3W+Qa4r tRq/XiH39VuqP3RVrUeq1XbcAkkE20mC7RR2dAo7OoUdncKOTnnUesrHjwuQ FMSSQlhSRH1no7Kfj2ngYlxOKHJdTWrsWkoTN1KaupVWw7FZnXrGpovP2nXz WZtKn+lTzTM9anraoo6nTOr6fqv6vteo/u/UQlCFXE8Ua/Q7BRr/3i2NP3lT I0/dVPj66MdA5p7x5c6OXXQ3rx0Hx+rgiB3b2nBwcR2bWnUw7TnoF3Z6BiCl bctKWtNKWJMAgyXZsCQblmSjKtkY12yMazayzUa2WUeAiVGtl1Gty6Td+Ech Klb7dUr2TZMsBb2AZPzv/y7EdFZEM2LOtlB6LUUL6ilalK2I61XM9SpNaLQ8 qYmKtKaqM5oFIE/9ivwAFASgUMuGom2bSrRvAdGWMgCUpS2udN3RmtEUjZTv vYsvG37MzrlMd+27StSFZX2pWoPfu6KFp64o+8I17R4u0E/Ol+rvblXpFxV1 +vsmwOlsI79M+vsBM/BYKOuYb20SC0oouv/GVKyeH+tjCgHSYi0jUG1QwZoF QPJpoQpLqppVoApLqsKSqlzY1SBW1CzXtQaN87Gmbt1W9auXgKgWiLqxJDLt BJl2cgRNoOk9iE4aEPn5eUCm04uynAmr50xUfefjsl9c0gAADV1J8t9NaexG WhO3Mpq6ndFMYUbzRcsavBpW6aFxXX5pQAWo/CWH6l+0q/WFPpmf71bvDztl /0Gbhp5pAhwAfwrAnyrW1DO3Nf1sgaZ/WCDf8XblmmIQdE93+rGo/l1E3vXT ovp3tNG/rfV+ogCaVhy0UGjK2GmudoYge0YJe0pxO5Zkx5IcNCUHluQg3ByE m4Nwc3C+dsLNRkuy0pJ6OrWbCOmXUOq4RtG+aZblFrNaAal2exSUmNMK8aLC eeQDpaB6i3DqoigoxSnaS6CUkruKY6nJarZuRZ6GVfmb1kBpXeHWTUXBKNGx rVTnjjJglLXc0QplcR2MNh7Gu3U378nGu9n5/z3ju9fkffK60i/c1J23ivTB uXL97Gat/q6iUf+zsU2/6OzU3/dZQKiHBOvRlnkG/DgKZsQ4itSmwCeJlhRr XFK0Ia5QfVSLIBqs28NpocaPvFqoBadaPKkWT6oZlc/woyutct1s1kRhjaYL i9Tw+nm1Hqa+HKMeHXeAEql2gpJ90r2H0sk5RKqdXAClRVAKg1JUPWdjsp5P yH4ppYGraTmvpeW6ntHYzYwmCpY1Vbis2aKs5kvw8NKs/GXLeOKyLBe9qj0x qcKDw6o86FTDwUG1v+5Q12tWWV/p0eDLZrlebNf4802afK5WMz+s0NzzJfK8 UCTPi7c1+/JtJciSbGtU2wOc7wDXdYCrO0AGgNNq/6Zy/RugtK6MY1UpR05J B3O1g/NzYEz9GFM/xjSAMQ2QbgOk28AcAqV+5jcHPclux5zM2l0KfxSl3wYl mvYNCtIt5rUCYq2AWLtNrN2eRThSIXNI4aJ6iw2UYhosTjD6Y9M4kruKY6nN aa5+Vd7GNfnBKAhG4bYtuv22EqYdpZg7MswdOeaO1e5dRtFdbfbdy4d8mLC3 vt4q63duaPb7N5V4rkCbh0r03tkq/fQGjbm8RT9vNOnvTBb9r94e/aLfqv8+ aAOh+QNaqsseUKJ+WU8q3pBRpD4DOmlFm9LMiyDVtKRQQ0yLDVEF68MK1C0y Uy4gXKmOeKvDlepxpbqx/Nevu661y3W7VRPFdZouKVXnMebyNylIR5n5j1GO jjOrHQejE1MINzrhQT61ngiAUQiMImAUU8+5uKwXluS4lNTAFQOjjFw3ljVW kJX7dlZTIDRbktN8aU6+shyFLUfcMqFUZSl0y8yLxOJVn4qPjqgKNR0dlunI kHreGpDjkE3ON3s1etAi92vtmnmlSfMv18r3coX8r5TI/1qRfK8XKnShQ4nS UW0Ncm0H72gdlFYHtpQb2FQWlDL9TED9K0r2Z5UYyIAKrjSIKw2C0RCuNEjl HiTfBsm3QUrSICVpYBiUqNu2Lt1LRj6K0W+p42qzzNe7ZLlJO7rFsHaLYCsg 2AoIttu40e0AGNEd2Z4dNxosWdJweVpjlWy5Oqtp3GiuYU3epnUtEGqLrVsK g1CsY0dLnXfA6K6Wu3aVA6HVnnta73s7/9mRntfa1P3tW5r6XoGiPyzU2htl evtMjX50vUk/KWvX39ab9bOOHv0PYvnvWP7fDvZr0+xVEmwNhnJ6Rkv1OSUa DGUVN95uaFwGn6yiLcsMjGmFcaVQYwKUYgo2RJgDQlpowJUacKUGUGoEpcYp fn1Cc5VO3KhDrqI2TZQ1aLqsTD2nLqntSD0yUKIdHTNQoh0dB6XjuNFxL/Kr 9XhQ7afCMp0BJdyoBzeyXkzKcdlwpIyc15f5b2dBKSd3YU5TxTlQWtF82Yp8 5Su0NQOlnBY5zxAOH67hWtSktNJ7X87yuEzXfapmSGw6PabOUyPqO+nUwAnQ P2bXBGubOmzW/KE2+d5o0sLBGgXfKFfwzRIFDhXLj7NPXbPi0n4lmxZBibY6 AEoD60oNMFQPcn6Dy+CDKw3hSk4CzglKTgLOScA5QclJVRqiKg3RtwdAydGl 3WTkIyR9Qh34uflajyw3GPtvUpFuMa3dYlq7Ra4V+BHj7O0wJMXkwIwGS4l8 gyQukLsmB0mrkLQOSRuQtKXFNiav9h1mxDtagqKUZVfL3feUgyJ/VUzmVzrU +Te3Nf6dQi3+oFjZgxW6c7pe711r0QelJv24rls/be/T3/Y49DP7oH48MMgU 5oOgFeOLsuH2B3C0AkWIbp9oNJTbI6nJePMKmpp5EhhTuCm5R1JjXMHGKNSE oWeRDMaYmsi3pjkFmsi3Jrfmql0aKWJyK+2g/jVppqJCtotF1KQ2tR2GpCOQ dJSefYyKdIxcOzYPRXTsYwtqPbao9pMGSVFZMKQeDMl6MSUHhjRwbVnOG1m5 buU0dhuSilY0BUWzpZBUvipfJZ2gihmlmmmX88yTVLsMSWmt9N3XqvV9rdne Z+p6X2M1SdVcdKsZmS+MU8VGNXhuOP/XQLhP2zV7skfe42b5j7YpcLhBwcPV Gj7RoslTHYqf6dDm5XZtFtp5FillBjeUGmSqHlqBFG6iE2MahqRh8s3F9OaC JBf55qIqDVOVhiHJSeke6ifnurWbin6EpE+q43KbzFcp29cp2zeY+2/SkG7S kG4yrd1aQMyzt7HbwjgkLWmwLCUXiT5WzanwdKfr1zTXCEnNm1po3YakHUU6 7ijWeReSdpXquqf5ipjaXzKp7ZuFcn27SAvPlCr9epU2Tzbo3tU2vVts1v3a Xn3QZtePuwb0U5tT7/cPM4Vxjzhdg6Jk7SocrWJH5OizQLQKQHuKN3EYTbn8 O6DRZiwJmCLAFCbhQs1JLTYlFKSPLjRFSN+Q/C0BoCfhWuYVaJlBFKWWUU1W OzVRa9dUXYfm6xplvVar5kOM5W8x+h8GpCN07aOAdPRRkAKAFAKkCCDFACmh 7gtJWSlIDuxoADtyYkcu7GiscEXu4lVNla5qtmyVY8HKDZCqVylqzCpsM4Tl GiAlsfUcEK1aP9Ca/QNA+oAJ7ANt9n+giHkr/55ey7UpTGBSVuN9tiujGr08 rKmLA5o7b5P3bLdmTlk0eHpQAYDbYIb6ScOI/lenQ/d6ZpQeAiQnIA1zEYcB yYUtuUi4EUAaIeFGKEojgDRCURoBJBcguQDJCUgDeZD0S57Ufqld5it9e3+9 1HW69g0K0g0K0g0K0s0AYp69zShSBEklSUiiO1buk4QfTeNHc/iRt3lrjyT8 KGK6C0m7HFlMTS+Y1PT1Yg1+q0TzT5Up/mqNVo83aedyh3aLuvR2jVXvtvTr vmVIH1hdesc+oly7XwkKw5JBUc1DitYMT4Lbz4HRGgihpj3Fm8Gp2XgLdIVk yynSkkXLCpNweZSal0AlDjpR+VtBqZWEayPh2ki4NhKujbLUNqZA65B8TXb8 tZtRtAVPqlbLGx1qPdQLThSlw3jSEVA6AkpHQekYyfZPoUSy9V1Oy44fDeBH TvzIdXtFY/iRu8RAaU2z5WuarwSlKspl9dqHKC2S26G6rJbyKH2gVdseSgcY 4z/QrzOGgdPAB/ToD7Q9+L6m2WN/VVDm29OyFkxqiHYyeoNrcd2p4UvjGrkQ UrQkoXvtSf3dQEIP3EH93D2t9PCGksPrWnJxHUfw9FFQGgWlUcrSGCiNgdJY EIHSKJ17dBKkQGl4QLHBHt1J/aOi1H6xXZ2XQekqY9s1ULoOStcpSYSz5QYo 3Qjvo5QApZQGy+mP9MMxHrGbx7uH0qa8Lds8lh1GumWZz3lU+1ynav+6RLbH SzX9/XKF6YWZo83auGjS9u1u3amyabd5QG93Duvd3lHdtY3pzsCS7g1zEzvp 6pSGpTxGK4YZKcXHStazdT4ePbvR+Au64pSzBB0/3ryWfyd9D6UVRVqJiNZl hVoyWmxJKdgCSq2g1AZKbWH524PydxBx7URcByi1g1I7KLU5mRfsjJ9d8jc0 a6q8W00HcSU6buuhfnByoQnGuWk0r9aj+ygdN1CKglJc5vNLeyhd2UfpZk5D BSt7KOFIE2A0VbZGfGLmoOQBI1/NGmMkzlS3j1J9FjN/WzkwWkGroLQGSOtg tDGwh9LmIDgNGohtD72vf6N475Zm29Myl86or2SauWhSPazDVbSpeNuu3hl6 W/9rflcPIhv6eTihtGtTyRHObxSURkFpDJTGKEvjoDQOSuOgNA5K46A0Dkpj oDQKSi5QGuop+ehb223noegSw/+VIUhiYrtK1b42v0fR9WCeop6CGBQxiZTu U1RlULQqd71B0QYUbclZmtHF7/er9Jvdav+GSfZvtWr8uxVaeKFOS4dblDvf qbVbvdqscGi7cUh3TCPa7R7XVt+EtvpTuuv8QLvDH0ARp2beVhyKElC0tG9G BkFJPpZBkcFQ4kOCUMu6Yq3Gm6CrEGRQlNujqBWKWqGoLQklcciBog4oMkGR CYpMGJJpFkGRCYo6nPw5KGqBosZmbQ2/o0bGgpY3eiDJAUnDaBySHlLE1HYs +I8pItf6GPzt5Fr/PkXDhasa3adosnyfIszIA0G+WkzpIUX1hrJaJtdylKMV ytEqWuunKKGNAYQRbaKtIUP3DZKc9/WrvL6n7eH3NN+Z0jDV2nJtXQP17ysM gXfnPtD/SLyvv199T/chKT0KRaMbSoxh6uN0g3HybQKKJihKE1TuCSiagKIJ KJqAonEoGoOikUFFhnr0EYz+g1rOtMt00SbzZTC6AkZXwOiqgZF/H6MIGDHQ 5jFKa5B25Koi7msNjNY13bipgeK0zn5vUNf/qlemv3Fo7DmHFhhUo0fNSp01 K3ujVytlDq3VObXZNqpty4TWeibx65R2uFB3QGgfowO65/pAX1HsQ4ogqG79 HyhqZOeGmjcgCDEoxlofoahtVeE2KGqDorYMBKUhI4nnJCAHikxQ1EndNi8g vMgMRZ1Q1AlFJijqsONJFnkbm7Tpuqf6V1rU/HoPJEHRG1D0JhS9OQVJDyna 86K2U1B0Nq5OanY3w1ovFNmY+fuJtCF8aLgIikrWNF62rskKjq1y/UOKvAZF +G0AgoIMojHTNhTdV9Z2Xzn7fa04qNz997U2cJ85/j4UoaH3tDn03gFtgc7H 8gBtDb+b14E8/v+3Er1vy9H6I82M/ljZxR/r3dwHeifLf25mR6mxLS2Nc4wT QDQBRG4gcgPRJBBNAtEkc9skEE0CkRuIJoBofBQ7GlTON/1RiA4qyr9iopeZ LwLRJSC6DERXgOiaAdFiHqJuIOorTspeZkBEZ6w2IFr7EKK281Ed+atxlT/h lePVIB0vqNgtn5bKppQu6ddyzbBWWsa01unWctckoZ/Ku/I2AO1wn/IQDe95 0S4M3RvBjyx3FMfvEnycBBQt1Rk+ZFC0qSUS9CFFsX2KjE/GRNrWPqQo1Jal qEFRBxSZoKgzIZ85hsIIiix+BEUWKLJMQhMUdQ7xZ20kn5nRoUEbrl25S+fV 9Fq3Wl6HooNOSBpDUHRojmHOp5aj9N08RRF17FPUZVB0LfMhRYP062F8aKTU oAgvwoemIWiWNJtnj15S24cPLUDQQv2yEl13lbG9q2WUdbyrHFrtfxeK0OC7 Wh989wAYvWt8LyEn5DjfyXNjaBMd4PVtKNpwva2l/ne0iD0tTb+rjOcdLY/t KDO+rdQEFE1AkZtu6YaiSSiagqIpKJqCoikomoKiKSiahCI3FE0YFA3pbjb1 UYp+TxHcq+Ocld07ZbkIRZeg6DIUXf0lioqgqHSPomHG1D2KNqBoS63nl3X8 8YRqXlmT88KWAmVbdBYmAXNS6fZZLbe7lTRDVG+KfL//oTMbbmyk+g5d6A66 63pfuyPvQxG/53hbMbwonqdoj6TEPkUJKIozHO4RtGEQdCCP0B8D0KpC7YRC exaAMkCRBqAktgNEFiCyAFEXEHVhRV0e+buBCLAXukaBCYg6gajdrFjPrNZd dzRePKOGV7rU/JodkIDo9VFgmsSOZtVy2KsWpv6W44tqPQ1E52K4eoLjS6rn WlpWIHIUZDVQmJOzeAWIODYmfXcFLZsjnGHSn2OLHqqQjxDz55VWqu8dIOKJ 299RFuUgYQWtDrwDRGjoHa0PGbRsON/+WB6Zf83rPW0Yct3L078+squ1kbta Gb2jHOgsg04adJJubuEk+EyCzxTnOwU+0+AzTR+aBp9p8JkGn2nwmQKfySnw GVNsbEg/evfeR+j5ku6s7Kr9jE2mc878GxGWi9BzCXquQM+1fXpuP/QgZleD HrY9atDD05yiC7WeW9Oxp3dUffp9DZT+iDv8I8XI86UhBrVeVtKVxJXfI9vf 4y69R7a/hxvjxGiLJN9Bd1z3oQeN3Nfu6H3dQymj53A/47h8HILidKE4XSje 9NB/9r2ndS0Pj4FOuN3AJ6fFDvAxgU9nGnSSIAM+XTF5u8CnOyhfDx7UDT7M vf5utxa6R8BnEC+yygc+0R7jb5NYc+0Q9nUvmtX4ik3NrzrV8tooGLlJthm1 vOXBg/xqOWHgE1b7I/h0X6MT3cjInscnq6FihrTSHFNHThOVOU1SBqbx8llm +3kGMi/e42vIKNRBYlvvKW27p4z9npa5RVmU639bKwP3tDp4j2UN8bLuND4z u+E0qNmFnt08NRuuu2CPIGdt5I5Wx+5oBXqy0JOBnjT0JKFnaYoznOJMpznf aQiagaAZCJqBoBm60AzPbQaCpiFoahoTGlNkdLD00S9/fFOtp6w4r1Od58Zp gtPQ80+TY/slcib2yZlt2dGZV9/T7as/Vk/DTzXd91OFRn4iP8GcJIjTVi4R FylnNy7QngvjwHkD3sJ+twnuHde70PMu5KDRd6GH3+vfVZSTjeHsMeiJMdLH GOljtOgYDTraYlCzvk/NGsTsm05HTsHOrALmDDSkMBjI6Y7L2x2VtyeMIKfX j+bl74WcHjeCnO4B/rxVnvZO5ZxbWnFtaRWNF3vU8JJVTa8MqfmVUQiCnNen IWceckiwE8F9cqLqgBzzFRIMcnpv0oMKSLDCZeYjzq00CzlZjTPPuplGjE9D ztQua64uIw+G42lIKdG3qyWUsu0qbd9VxrGrZc4hi3IDu1oZ3NXqEJ5iyGno LhAN38V6DGg28Mr1kT2tjewAzo5WgCY3sa2se0uZyU2lACcJOIlpLuEM8MwA zyzj2CzwzALPLOPYLPDMAs8s8MzMA9C0YsBzdyX7EXj+gyLjabWfdlIAgefc NAABz+VH4CG0egktG6NWP/A4PwLPJvBsa6BqV5VF76u24Sfq7f2JRvreVwBw lvq4QlyjjI3rY+fqcH1WB97Ou+8Gzru5n9vbrne0M/KO7oy8cwB63tGXtTv2 jiI1mTw/UfiJ0i+jjauKkodR40tPWnCb1tW9oGozgmqfG1MObpbhIAM3KbhZ gpe4PD1ReXpD8vYFkE++vnk0DT8TyIX79NOG+jTT3qGsc0O54Q342SD8Yqp9 oU+NLw3CzwiaIMRgh/bTfNSr5uO0n9OLajsXUftF2s+VBOwQXDdTsJORo4iZ vmRZzrJljRhvzlYua6Iqo0n2Nl2b0WxdWnP1KXo+7tp3RwnrHSVtd5Sy31Xa QQvqv6vlgbvKotwgLjKEmwzdOaBV5x3jO/ENw8nwDmaTF6Y0sq1/CTbbYLMF NgivWQabNMikQGZpmhYww0ebNQQ6c6AzBzpzoDMHOnOgM2eg4/8QnYh7VD9+ 751f8p3w2JJaT4LO6XF1npnOv49juQQ6V/dGr659dKz76AzhtiOgM05rngSd mZZNzbdty9exQ0LcUYjGG6H5xXru7t0hK/eHe7TMHcr138s779rgPUL7Xt5x jazeouJtj7ytndG3dcfQ2D3dRcannyPG2/64eoRWGWlYyX8FZbgZtSAm9j1u YCafUvgNnrNgWYabNNyk4GYJZmKa743I07fPjtWL5uSzTsHPOOwM59nxws5i 36wyznUtD68p61pTbmRNXSdHVPfCAPyMkF4Tanp1Wk1vwM4RD+wsqPlUUC3n wmq7iPdcYZK/llD3zSX1FZD0RWn1l6Q1hG+7KjIarcxovCotd01aU7UpTdcl 0ZIivTuK9e0obt1RwrajpJ0hybGjdD9Vl3NYRtnBHeWGMBNDTkPbH9PqsPFV jWtY5NooVslctTK+CTTIvaEsPrM8ta400CRnHkJjAGMop/g84MynUAIBzjzg zC/yewv8OY9igLMcCpQ9+n8ovk7LG1L7yXGgmQYaD2MXwFwBmOthdd2KqWcf GMc+MC5mdQMYN3VjD5hNgNnmYe1o0bKjcBeb7+HicHmSXJ40FyfDxclycXJc mtXBPbNdx2zzEU08b1HqttHOKBrbBZpd3R3fVcJ4C4dLGaZBhhtQI2NUM2qh yvB7i4xVQRpxoMOABZMxG7BkgCUNLElgSWi+D2D6wvJYF9GCvDaAsc0CzSTQ jBFaw9Sefs2ZexWxh5Vyrio9vKoMWh5Zkb89qprnHNQdlxpeHlfjq1NqPDir psMeNR33A0xAzedCar0YUdsVqs61uLpuctEKlmQtTO696VqakrM8pZHKlMaq UpqoTspdm9RkXUIexsJwz5aifVvUQwYMG3OQnULr2FKqn2qCMgNbWh5EQ1vK ogP5OP1VoIGQ4U2MEY1sQgwmySSeY47KudchBvipMxksJgUtS9CSmH1IS3aP GE8GQY0HajxQ46Eoe0IfUhOZmtKP77+nj2DzG4qMZfOfdO44NS3TKY86zy+Q 00GZH2JTyJ3hrtjL8VuwGQabMfqGgc00880c2Hg7NhlithS0bCnUtU273MZz d7TEvUlyb9KOO2T1HbwWnx3M+yz5TBhjskY4b9LmtkbvatvQ2F3QwYfvjN/R F7VYk1KIGhCiQC42oqZlBVtQK2pbhhho6aTOUGn8lvQ+MSmISUJLXHPWqOat Yc3bgvLY/MgDNTNoEnLGsJ5hzWMznu7h/Oeqk0PImVPKlVMaZUZy6jwxqprn h1X30rjqX5lSA9Q0UI4bj/nUeGpBTWexmgthtV7GaqDGfCNOuifUV5iQvXhJ /aVLGipParhySSNVSxqrXtJ4bUKTjUkFuzcU6tlQuHdTUSsjI4rbGIEcFFmU 6idgBtDgpjJoeWjD+GtaCNJ/pRwxmhtZV24UjaMJrJGpO8votDwF/ZTfNB0m NZvTEqQk5h6Ssk+L1xDEeAkoL8XYE/2QmCgBtRwJq/xRWs7qTvZdmt2Y2k9A y0loObugzkuLuGtElpsxdbPlXi6KrZxkIpGdNcwE9auaoJ1O0UpnaaWejg35 OjdoE5ta7NpUhEsT690iobkwtm0clkmwfxt3pZ4N7jnrKs76MI43qG+baGsU UeO2DY3vaAetDdAscPAgrTHIvBFoQs2oFUTaETOTn5nJR/v10WI83ZgLBjPX t6RZaxxFNWcLgUtA83afPPZ5NAM27jwuHnCZ7XbISzuODy4rMYScy1pyLSs5 gkaX5TGFVfWDQdW8MKa6lydV99qs6g95VH/Mr/qTATWeDajpwqKaL0fUei0q 042YLAXGTYvLWhyXvSShgbKEhioSGq6Ky1Ud10h1FLzXtNC1rmDPukK96wr3 0fStNH4bddW+roSDOOlHxpdeDBIvhobWlUHL++m5THIuj4LI2KqyE8iNOU6u KMOknZ4G+xk0mwWXrBKgkpg3/j98YDmQp+VfKO6j0HiTCJfx7vESg5fQzJx+ /P798kf/Qo5/L2eV8fm9aXLJQy4tyMS2O69E8jek6/aSeotTshLCDgJ4qGZZ rrqcxhtX5G5e1Qxj73z7mrymdUZctt21d1MivRv5W5LgliTtm3lvfeirOTzV 8NLV4a18+q6jjZGtA9okhp+Ali1tje9pG0Vb0gqQ9Qv0xIVG1Mw03Qod7dBh oqeYkQVC6LrzdJY5Ymi2z6AkpllbRLP2Rc3ZF5AXWuaRQcok8TQGUcOasNgU 7s8oMkDfHsooZnzpgiujxAgaQ+MZteO9Vc+NqvqlSdW8OqvaNzyqPeJX3YmA 6s8E1XB+UY2XQmq+Speh+3XeinJ0UfpfTNaSmOxlMfWXxzRYGSXWI5puX2bN q8TnqgLdqwr20uP76PPWVUVs9Hw7g42D0tG/pqWBNWhZVXJwVakhDGNoLzLT LmJzFCrG0DhyY4STaApTZJpOzWSVZDBamtsjJJGPnj1GPgYixt/aEPdhLL49 SGJAEp7zKx2JVjwKyH/ET96jsU2p9bhH7Vip6dyiTNho5/U4d2JJ3UUp9QGI HUAGAGSY1jlKeZigbU7RNGdp9x7TqnzmNQW61rTYzcTL3YhyN+I2Rjk7I52D fp7/kiRq19Am5kkNI2xX0RqBu0bgro9uasPQ2KbxJiev39AmAbyFIq1MyvVL 8mPXvpakvG2oAyo6abFmyOhKaK4H9UIGJWUGOmZsUc1QQmbtQQQhDh8yCJnF WyaJpTFN9zo10zurRQgJDVKOICQyjKAjOoqgIzbBNNMZUtkzw6p8wa2ql2dV fdCjmrf8qmFCqj0dVB1nVn8xpIYrYbWQ2u03w+osYEoojHDBIpS+KOkdofhF NNoAxUxy8+acvF05GjZTXQ/lq4/WjsI22rydiRDF+ikYAxSNwRWiET0SjSli MTWGxqFhArnR1DJzEB44k4GODHRAxXzmwC+h8c8V96fzeMTAIwYeYbptgIby wf37D/+OScf+ED1UwZ6MLxY4saD2syF1XIrmi5n5FtMgpaynNC0rDb6/GgOh YI40MAk2ZeWmWE5TKudMK/J2Uv4sK/nbsNjDTehjyrVyC7gJCW6C4ZkpPDOD Xy7jlVm8Mje8ThlDxOsqWiNi10fXD2h9jJcNwvYb2iBuF9thoZEpuMUogLDQ QVHtpHZYYKEL9cACk850X1RTVm4nrjENFzOORc06FpDBhQfN4iiTmuob1Wj3 gPwOsgouAnCxiGuEcI0QXBjf7jEMF2E3nExmZCvyqPQH46p4aVqVr3lUeciv qqNBVZ1cVPXZRdVcCKnucliN1zjHG7BxCzYKaXbFYXWXhNVbFpID15ikeM8w qc0yqc1bsvJ2Z+XvYWrrZYLry2rRmlXIRsG1M/U5sor2ZxUbpE4MZfNflGV8 Pc0S+bdE/i2Nowk4cPPjJJqCBZhYgonEHhOKGcI1Yg+p+BeK+flHyNhTSlHo CNNhg3MBba1vVj4KxkntLN9X46FZtRhfRXIqpPYLdK+rCZkY8cy3k+qisvZQ QuxVhnFk5KxnzKMMTNAdJ2nqM2x4vpNLwEXwdxmXgAvQywWwAj+XIO5YxSJX 8/aYGtyzxoxzbW8ERTnG0BXCdNXQ6CqNfVVrhsYRwbpGsKYpBoFOjKElRk0m MjpQJ0BYMIfuqKZ7gIIReLIP2cKaMgQc08Ax4wggP/JgJLP83qTGe0fk7qWQ AIePSPEDhx84FoAjgGEEgSOIYQSBYxE4FqczaiJ9S56bUtkr8yp/w6fyI0FV nAip8kxIVedDqr4UVh3G0YhxtGAc7bfDMhWGZC4OqZfLN0ZxmqA4TZqWNcNk NstkNt9FxHQvM23RvfvYYx8f0wqgNuRYVnhgWRHKkRF5UQwtxvpiwBtnfXHg TbC+OOuLA0acNcaBIz67B0UURQAj6jWKRxQy/vc8GdEPlUYpRVCIzhqYD2kp lnr4d9nv/S2kv67F4Q01HvbtvXd9Lqq2ywm1X1+SienfTOnoIlP6yBQ7vjHI eOFqBA964gTbnSJBZ9nuvJl7wF3wcxeCvQypfQyxthzemFPMQZ3uz+V9MYlS TvoTygyvaNm1oizKkaAro8YXg66Qo99ioMtphSRdIUlXSdIVktSPT8y04Qkd oNAZ0ZQFFLoRWLgZdt2MLm6wmLTvoTHlCKEg8vPPHrlBY9w6oZGeSTIng59k NAca8xy9h6P3cfQ+0PBz7P6Jve8MvcCxL3DsCxx7w8k5Fb84q5LXvCo9tKDS Y2QN16kcr61gpKnCO2rxjga8oxnvaL0NGqVhOblKIy0ZjbVxZh0GHkZO8fEt fHwGd08PH7eXjwcWCyjA2hZZ2+LAftY5/3HWRVlflPVFWV+U9UVZXxQsInhG BCzCYBECi7AhwAj7DUQifsIlDBX/jNeUFn1JBZh+PbMBvf/+Bw+52PtLrI+p 9vV5rgTj2mm694WE2q4mycskyKfYV1rdZIkVJvrJkiHmBxf7HGOfbvY5zT5n 2eO8ZQ//BfB/6I1hvDGKL8bwxfgAXog3JvHGFN6YxhszhlxZ+jdi4s4aIjuz ZGcWj8yRnVmyMzuDaFYe7MHdwbM3h2mRqBv1hjUOE+MwMQETE/DgNgQTbphw w8QETIzZpjXUO6YRgyE7PJMj05z7DEzMcuZzMDHPmc9z5h7O3MNV9HDmnum9 b8Ds7Iqq4NlJFb7sUdFBv4oPL6r4eFilp8MqO8dIeDGsSiyjBi7q4cJUGpcD ex3kDjm5Qy7u0Fj7Phec1zSj+YzBRTf/fZjwYhc+ePCztgWYCLC2IGtbHP6H nAs9knNh1hdmfWHWF2Z9IZgIwUQIJhZhIeiFgEUfQRLyG81zERgWQSEACn7G lPm5MCj8qPpREo4QIB8wlfnVeAKyz8XVcjmptusptRekZCpOy4xD9OAQNsJj gN052Z2reY94N7ubhvhZdjYP7V525mdnAcxw0YYB2jFAjDDaz6CNGRpfAL/E DpNOQ7QkpsU0SZkeW6ZfZ5ThKWTYaYadZthphp1m2GWGXabZ5QxPcqwTM4aE MUgY7UGQMAoJo5AwZjcU0jgkjEHCqN0vl21OQ32T6u/2aoQbOMppj0PCBKft Zi2TnPYUJz0NCTOsYYY1zPDxZ/j4M3z8GU56mjX0d8d087kZFbzi0+03Ayo8 GlbRybCKz6DzUEGAlF8hgEtpY5yVFTd1cHMGuDnOlj0aRjmvcc7LzXlNQcIM ZzaLQ8xBggcSvKzN178XaAusLcDaAiP/RKhN7YVakLUFWVuQ8wlwPgtGwVwA hY/x0Pkl/54O5F//Ga/p/LcF9HopaPNRvf/Bjx9+j6O973bwqwowNNYfYdI6 FWM2TzJtpdV6M622wrQ6SjOy4Au9+IIdXxhgd4b/ufb9z93xD96Xp6FnnwZO PWhEIrsLO/amwNhgfp5mj/+XEtCwBO9JdppklymeQopdpngKKXaaYqcpdppi pyl2mmSnS3jgojupYUtIw5DghAQnJDghYRgSDsgFB5+XiwrhokI47T4NWGdl 65lVP+sa5MSdrMnFekZYzygrGeO0x1nDBKc9wRrcnLabdbhZwwRrmGAN46xh nDVY6bLXXpjXzdf8unVoUQXHwio4hc6GVcLc1kAnN3FWFmpXD2dl5ebYuTkD 3JwhSHBxXqOc1xjnNcF5TXJe06xrhnXNsq451jXPujyck9e5l19+1ubnfBZY 2wJrW5j8aIb5WZuftfk5Hx/n4zP8wO/L/Ir8PP5fkc+Xlseb0sx8nEf/k9pH v9/JYTnKUqo7FlHDmQRzdlrN19NqKeDJF2dkwgO68IBeuLazk4F9hxvZdzg3 TE896m5G6rGTBdt+4vHkQ3AdZkcRowyxoxinHTfK0Oj+ewDsaInTXmJXS9N7 TTmx35SN2frhG3U05XwdGnVEeZJhDfDUB3jqgzZDIQ3aF1FQA0ybdqtHPd0e 9XK6VtZkZ00O1jPA6Q6xFidrcbKOYU7XxTpGWMcI6xhhHS7W4eJ0h1nLMGsZ Zi0u1tLdE9eVlzy69npA198K6TpPvvRiQvWFGTWWZNTKWXVwVubqvSffxy2x c0v6OatBnvowT93FUx/lrMY5qwluyCQ3ZJozmmFds6xrlnXNcUbzrMvDujys y8tT97IuL+vysi4v6/KyJi9r8nA+84Y4I4/XuOoen/HE53md86Y1Nb+k+x/8 pO7Rb271BTkql1V7Mqb680lm5rSabvDUb3Pf2YWJkaELdntr95/4QxdjB2Ps wN25/8S79p74vJFn7MLP6S6wk2D/fscZ2u84rn88z8fYSYydxNhJjBOOsZvo 3F71jbKTyH7HIdIURPPTSTkHorLxxO08cRtP22ZblM0aUJ/VJ3P3tNo6o+rk ZC2sqZs19bKmPtZjYz127pKDtfSzln7WMsCpDrCWAdYyMMld6Wcxv6l+ljNg aGZPJsbXCy96dPtYVDWXMsR9RrW3Mqor4oFjiS1c83aOqpOj6uKoerkcVi6H g6Ma4KiGOKphljTCkkZZ0jhLmmBJbpY0yRFNc0QzQDjDsmY5nlmWNceS5njY cxzRHKuaYx1zHM/sHMucmTcMfpYTmuV05nyGkxqv/0yzvM7wa9P8nnsuyTP/ qeof/SZ2v0nRz6nmdEJ1F9Oqv0rxZSdN7KSVneQNC2x7iS472PY37ZnVMFd8 jCs+zgOfZCfTD2Or9x9iKz+os5sAuwlyyItGgRndKzChRwpM5JECE2ZH4YcF xrNfYIzg+tdawLH8+5qZSWpgMKruvpC6+oKy9C6oo3tOde0xNXDAzSyrlSV1 sJxODtfMcrpYTjfL6WE5vRxuL8vpZTl9LKeX5fRywH1uqlIfa/oN9fLabZjP 2rvafe9vZW1YVSXxV3Ulo+ob6DbPnWvRwLVo5nK3YYSdPGsLz7qHZ93Hs7ax lH6e9QAnNMSzHmY5rv3CMWYUDvCbYDluljPJciZZzhTLmTLe2uJjT7GGKU5n ipOZ4mSmjGc9OW8MflMczpTxXPdl/HySX5uYT2tkdknvvf9TNTz6zSl/U7ba FVWdXcoTWwex9QXQipW3YE8mdmCp2XvONnbQzw4G95/zCDsYYwduDnSSZzz9 MJDYhYddeDlUH7vwD//DvB14pJoE2UXQqCe/XE326glFlH/fx868POd/Ky/P 1/iZZ19z5FO/KyIT97moMa5iECzncKs43Fqecz3LauRgWzjYVpbUxpLaWVIH S+pgSSaWZOJum1iWiWV1Ghrf+/lYcEvRlXfxxb035X3ueyq7mFQFx1PBNajk GlRxPHVcg0auQQvH08HxdHI8XRxPD2vo43jsHI+DBzzAOgZZh5N1DLMO1+Be jxhlHWOsY5w1jPNxJziaCY5mnKMZ52jG93vE2Fy+SxzgMQLihMe41eMc08hc Wr7o+sNvMT+y//enWutWVIlVV8NkDUzWwmQDTLaU7/mPmeX2wKSVI7Nj1QMc m/OXwsb9aNiw5NnBfxiRvSzZy5J9HJdvf0T2s2Q/t9X/SL3wsUQv8rDgecOA vEbUzOUDZ3bffCbnUwrGVg7kl/5/aCb4ruZC7+oGS7sNZMWYSRlLqmRJ1QBW A2C1LKmOJdXxNOtZVgPLasBInP4thf//9s7lt40qjOIflhDd8NggYIWE1A0b /kVYobQ4cfyKXbt+xh7b49fYjmO78dsTCm0KVUuTtmra2AJEGBUWzZ7fnTtV QwS7LrO4mYkjzTnfOed+340jxU8dOXjiXPH++f3y+JWYuRPZRIUgKgRRIYxp MVRI0IVT9K4cpm1jWhG4MgqYwNWAa6BAEwVawLVb/30M6GFa73+OAb0556n+ QhWrTgO7rM7sSJy/ztLaroH3jm018UxCXx9KhHRFSdcW6Ups/rt9lElXFasa WGVhVQeiXYj2LoyKMUQnnTejYg7RBUQXWGVD1IaoPVYTkgVJG6tsmC2waW67 lvjcxvGeHg/eUi1ktK+CeCg/3D+WK97H08/uY9cDR+yHjuz/4sj3jxy5rdah I6vTsw+9T8jbn56KnzPDBiefAJUFqSxCZTEqS+J0GvmzyL+N20X2bvn8TMbx Bj26ifwWVbVwuk1V7QtzuUNV7YkeyB21ZmyVnbnaKmo2W7x09MKR7PmPy/5C VgQk8M2hhL4lGAQkQkDibJNkVO/qAgEpEZAKDGvo3kT3Frp3YNj12nbfa9t7 F9r2BN2nsJt6bXsKwykMp1P9eyJtW8askU1QlLrvultbbewBG7vLMHv84g9I Kqqfcmxz5DoCfkfjWYdekPxGoBeDXpJYpKCXgV6exlegHxtsl1JDDzgTelXo VRGvBr0a4tWgV0fAOvTqI2xvjOHRmCjF6mq63Fu6yDmt2NC9fC4VtlNgDXio hKASxcsbeJnCyxxeFlCqhJcmXtZQqoFSFkq1UWoHpbpe/+uf63+3LvS/IUoN Vf+b6h54y+uBPoSB6MBWWqmtpTZWlx/u/3wipy9fyVWX5CcceRwp1payhk5+ bAywfcJsnyjE4hBLELIUxDIQy0EsD7FtdCoQsiLEDHQyIGagkwG5EuTKWFke KhKVodJI3auB8fDYkYLWaORePpPlyZlUjJWss5M3SFMYGjFoJKGRhkYeuwrQ KEGjAo0adtWxq4ldLWi0odGBxo7qatDYhcauajV7ut2oVuOTXdeqLhrtzPTy KTF8XupbvNAYH8mj53/Kl691+RGu7ZWskRs/uQlAJASRKERi5CaOHgn0uIke KYikIJLGrAxEMpiVhUwWMrm+vg7u6EH5OychQ2sw8d4fWCwcuabiSv0BZmSY +mPkI0E+UtiQJarb5MOg9jKwFWCrwNbIRwPIJpBNIC1gLCywqL9F/S3y0aJ+ i9VEActVoTlVX1V41QFNHc6+cnm8L89/PZPZT7QoWpUxWMk1yvVT7ga6b4Ib AjeM7hGwI5QctZSOzBCed/ex4z5FrbIub+ZePtYJq/M4Slsn+iFK20LNG+zC JKWlUTNLaXlsLfB4g8eWULNMaRVKM1HSpDST0kxKq+wpWHOIfeZIzQx1yFQR Gx4s5cEzRxMR2718JPM7wGPkdRK1QaJCwEaAjaNoAtibwKaAzQCbRdEcsDkS lUfRfA+QfJ/2mB8o1TLqjw2Y+BsmvtQwt93LBzI5cGSOeMUemcE0PxABKgsC EQYiCsQWwm0BEwMmRoXxNo+/99TV78kb/f7WT3a/uXt5f3l/eX95/3bv5Z1/ ABN1uM4=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4116683212, 1.0943214293399999`, 0.25350674289999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.892560589, 0.46782056856, -1.79151693978}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6050902652, -1.9864799712, 1.9878027794}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7960815888, -0.14887639373199998`, 1.04526414238}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.271450652, 2.7593779052, 1.39233121954}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7686805618, 0.21463507908, -1.08079099118}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.63198627086, 2.398062294, -2.3340005826}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, 0.12]}, Text3DBox["1", {1.8116683212, 1.0943214293399999`, 0.25350674289999997`}, {1, 0}], Text3DBox["2", {-2.492560589, 0.46782056856, -1.79151693978}, {1, 0}], Text3DBox["3", {-1.2050902652, -1.9864799712, 1.9878027794}, {1, 0}], Text3DBox["4", {-0.66030115666, -0.19297881911999998`, 0.18068615149}, {1, 0}], Text3DBox["5", {-3.2221837975999996`, -3.0498287913999995`, 1.9534097662}, {1, 0}], Text3DBox["6", {3.1960815888, -0.14887639373199998`, 1.04526414238}, {1, 0}], Text3DBox["7", {1.6714506519999999`, 2.7593779052, 1.39233121954}, { 1, 0}], Text3DBox["8", {2.3606337241999995`, 1.60615371644, -1.6241250106999998`}, {1, 0}], Text3DBox["9", {-4.3686805618, 0.21463507908, -1.08079099118}, {1, 0}], Text3DBox["10", {-2.2137315177, -0.7274500236999999, -3.3984832384}, {1, 0}], Text3DBox["11", {-2.23198627086, 2.398062294, -2.3340005826}, {1, 0}], Text3DBox["12", {0.15464318083999995`, -2.4347229784, 3.4158687175999995`}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.7960815888, -0.14887639373199998`, 1.04526414238}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.271450652, 2.7593779052, 1.39233121954}, {2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7686805618, 0.21463507908, -1.08079099118}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, \ {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.63198627086, 2.398062294, -2.3340005826}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{459., 459.}, SphericalRegion->True, ViewPoint->{-1.3876606899930075`, 2.4084292347487475`, 1.929732217344078}, ViewVertical->{-0.7859518761980215, 0.6170341733038512, -0.2672245840528062}]], "Output", CellChangeTimes->{3.576256461331113*^9, 3.5762974435324516`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4116683212, 1.0943214293399999`, 0.25350674289999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.892560589, 0.46782056856, -1.79151693978}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6050902652, -1.9864799712, 1.9878027794}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7960815888, -0.14887639373199998`, 1.04526414238}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.271450652, 2.7593779052, 1.39233121954}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7686805618, 0.21463507908, -1.08079099118}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.63198627086, 2.398062294, -2.3340005826}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, 0.12]}, Text3DBox["1", {1.8116683212, 1.0943214293399999`, 0.25350674289999997`}, {1, 0}], Text3DBox["2", {-2.492560589, 0.46782056856, -1.79151693978}, {1, 0}], Text3DBox["3", {-1.2050902652, -1.9864799712, 1.9878027794}, {1, 0}], Text3DBox["4", {-0.66030115666, -0.19297881911999998`, 0.18068615149}, {1, 0}], Text3DBox["5", {-3.2221837975999996`, -3.0498287913999995`, 1.9534097662}, {1, 0}], Text3DBox["6", {3.1960815888, -0.14887639373199998`, 1.04526414238}, {1, 0}], Text3DBox["7", {1.6714506519999999`, 2.7593779052, 1.39233121954}, { 1, 0}], Text3DBox["8", {2.3606337241999995`, 1.60615371644, -1.6241250106999998`}, {1, 0}], Text3DBox["9", {-4.3686805618, 0.21463507908, -1.08079099118}, {1, 0}], Text3DBox["10", {-2.2137315177, -0.7274500236999999, -3.3984832384}, {1, 0}], Text3DBox["11", {-2.23198627086, 2.398062294, -2.3340005826}, {1, 0}], Text3DBox["12", {0.15464318083999995`, -2.4347229784, 3.4158687175999995`}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.161506232347129, 0.4432883231429184, 0.2166788032818139}, 1.1528020038659923`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.9658612796840872, 0.1336089796599615, -0.7940385203748846}, 1.1447387266284512`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.3293499841407538, -1.078714922298861, 1.0731463755263269`}, 1.0606264012199174`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.6483981333407214`, -2.5364793504418808`, 1.9700135689820113`}, 0.9223368077758689]}, {Opacity[0.5], SphereBox[{3.3921497284984294`, 0.21385287298969646`, 0.8142521701862353}, 1.174932711379053]}, {Opacity[0.5], SphereBox[{2.3123622508415465`, 2.2735609394954874`, 1.0600540507277434`}, 1.1749264181928818`]}, {Opacity[0.5], SphereBox[{2.800457841985053, 1.4568124506984566`, -1.0762738693272935`}, 1.174887116307302]}, {Opacity[0.5], SphereBox[{-3.2212855257876276`, 0.288506943428245, -1.2881593161641391`}, 1.1749425316816002`]}, {Opacity[0.5], SphereBox[{-1.6950884105489255`, -0.3786933426029214, \ -2.9296017679022643`}, 1.1748677843791624`]}, {Opacity[0.5], SphereBox[{-1.7080236403447533`, 1.834804547343197, -2.175700142698715}, 1.1746854064043717`]}, {Opacity[0.5], SphereBox[{0.3579193824374419, -2.3039409718665387`, 2.9992078308490013`}, 1.1749694196161107`]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.7960815888, -0.14887639373199998`, 1.04526414238}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.271450652, 2.7593779052, 1.39233121954}, {2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7686805618, 0.21463507908, -1.08079099118}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, \ {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.63198627086, 2.398062294, -2.3340005826}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{459., 459.}, SphericalRegion->True, ViewPoint->{-1.3876606899930075`, 2.4084292347487475`, 1.929732217344078}, ViewVertical->{-0.7859518761980215, 0.6170341733038512, -0.2672245840528062}]], "Output", CellChangeTimes->{3.576256461331113*^9, 3.5762974435480514`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4116683212, 1.0943214293399999`, 0.25350674289999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.892560589, 0.46782056856, -1.79151693978}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6050902652, -1.9864799712, 1.9878027794}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7960815888, -0.14887639373199998`, 1.04526414238}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.271450652, 2.7593779052, 1.39233121954}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7686805618, 0.21463507908, -1.08079099118}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.63198627086, 2.398062294, -2.3340005826}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, 0.12]}, Text3DBox["1", {1.8116683212, 1.0943214293399999`, 0.25350674289999997`}, {1, 0}], Text3DBox["2", {-2.492560589, 0.46782056856, -1.79151693978}, {1, 0}], Text3DBox["3", {-1.2050902652, -1.9864799712, 1.9878027794}, {1, 0}], Text3DBox["4", {-0.66030115666, -0.19297881911999998`, 0.18068615149}, {1, 0}], Text3DBox["5", {-3.2221837975999996`, -3.0498287913999995`, 1.9534097662}, {1, 0}], Text3DBox["6", {3.1960815888, -0.14887639373199998`, 1.04526414238}, {1, 0}], Text3DBox["7", {1.6714506519999999`, 2.7593779052, 1.39233121954}, { 1, 0}], Text3DBox["8", {2.3606337241999995`, 1.60615371644, -1.6241250106999998`}, {1, 0}], Text3DBox["9", {-4.3686805618, 0.21463507908, -1.08079099118}, {1, 0}], Text3DBox["10", {-2.2137315177, -0.7274500236999999, -3.3984832384}, {1, 0}], Text3DBox["11", {-2.23198627086, 2.398062294, -2.3340005826}, {1, 0}], Text3DBox["12", {0.15464318083999995`, -2.4347229784, 3.4158687175999995`}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.1035914010087482`, -1.065547439676029, 2.751514177755581}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.040457404778905, -2.2771167984340748`, 2.594205845670041}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.5339716575748554, 0.6936175763721355, 0.9178057741181196}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.10658912939125162`, -2.9074125027239717`, 1.2240913810444187`}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.203910190421094, -3.822540784365923, 1.3126136867299578`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{ 0.41336934425485516`, -1.0795752146121358`, -0.5564334711381209}, 1.2465]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.7960815888, -0.14887639373199998`, 1.04526414238}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.271450652, 2.7593779052, 1.39233121954}, {2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7686805618, 0.21463507908, -1.08079099118}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, \ {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.63198627086, 2.398062294, -2.3340005826}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{459., 459.}, SphericalRegion->True, ViewPoint->{-1.3876606899930075`, 2.4084292347487475`, 1.929732217344078}, ViewVertical->{-0.7859518761980215, 0.6170341733038512, -0.2672245840528062}]], "Output", CellChangeTimes->{3.576256461331113*^9, 3.5762974435636516`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4116683212, 1.0943214293399999`, 0.25350674289999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.892560589, 0.46782056856, -1.79151693978}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6050902652, -1.9864799712, 1.9878027794}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7960815888, -0.14887639373199998`, 1.04526414238}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.271450652, 2.7593779052, 1.39233121954}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7686805618, 0.21463507908, -1.08079099118}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.63198627086, 2.398062294, -2.3340005826}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, 0.12]}, Text3DBox["1", {1.8116683212, 1.0943214293399999`, 0.25350674289999997`}, {1, 0}], Text3DBox["2", {-2.492560589, 0.46782056856, -1.79151693978}, {1, 0}], Text3DBox["3", {-1.2050902652, -1.9864799712, 1.9878027794}, {1, 0}], Text3DBox["4", {-0.66030115666, -0.19297881911999998`, 0.18068615149}, {1, 0}], Text3DBox["5", {-3.2221837975999996`, -3.0498287913999995`, 1.9534097662}, {1, 0}], Text3DBox["6", {3.1960815888, -0.14887639373199998`, 1.04526414238}, {1, 0}], Text3DBox["7", {1.6714506519999999`, 2.7593779052, 1.39233121954}, { 1, 0}], Text3DBox["8", {2.3606337241999995`, 1.60615371644, -1.6241250106999998`}, {1, 0}], Text3DBox["9", {-4.3686805618, 0.21463507908, -1.08079099118}, {1, 0}], Text3DBox["10", {-2.2137315177, -0.7274500236999999, -3.3984832384}, {1, 0}], Text3DBox["11", {-2.23198627086, 2.398062294, -2.3340005826}, {1, 0}], Text3DBox["12", {0.15464318083999995`, -2.4347229784, 3.4158687175999995`}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.8556145054837843`, -3.941033170689589, 2.8757100529569395`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-3.5277749137603784`, -2.792312962035196, 1.0517649980357544`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.060301156659999994`, -0.19297881911999998`, 0.18068615149}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6221837975999995`, -3.0498287913999995`, 1.9534097662}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.7960815888, -0.14887639373199998`, 1.04526414238}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.271450652, 2.7593779052, 1.39233121954}, {2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.9606337241999996`, 1.60615371644, -1.6241250106999998`}, { 2.4116683212, 1.0943214293399999`, 0.25350674289999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7686805618, 0.21463507908, -1.08079099118}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6137315176999998`, -0.7274500236999999, -3.3984832384}, \ {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.63198627086, 2.398062294, -2.3340005826}, {-1.892560589, 0.46782056856, -1.79151693978}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7546431808399999, -2.4347229784, 3.4158687175999995`}, {-0.6050902652, -1.9864799712, 1.9878027794}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{459., 459.}, SphericalRegion->True, ViewPoint->{-1.8128294466323243`, 1.6106406899340224`, 2.359975839993197}, ViewVertical->{-0.7918512747732095, 0.6365480502704107, -0.1787194249114881}]], "Output", CellChangeTimes->{3.576256461331113*^9, 3.5762974435636516`*^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"}], RowBox[{"(*", RowBox[{",", "tpso", ",", "tpsu"}], "*)"}], "]"}]}], ";"}], "\[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.5762275417293205`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.576256461549514*^9, 3.5762974435948515`*^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["24"], "Output", CellChangeTimes->{3.576256461549514*^9, 3.5762974436104517`*^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", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[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.576209958150011*^9, 3.5762099586180115`*^9}, { 3.5762101485639453`*^9, 3.576210163649172*^9}, {3.576226659610171*^9, 3.5762266730261946`*^9}, 3.576226861505726*^9, {3.5762269707371173`*^9, 3.576226988021948*^9}}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5762564615651135`*^9, 3.576297443626052*^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[{"2", "*", RowBox[{"(", RowBox[{"cj", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[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[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "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.576209970614433*^9, 3.5762099709888334`*^9}, {3.576210193741625*^9, 3.5762102347228966`*^9}, {3.576226683556213*^9, 3.5762267025570464`*^9}, { 3.5762267596219463`*^9, 3.5762268221936564`*^9}, {3.5762270064299803`*^9, 3.5762270584560714`*^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[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5762564615807133`*^9, 3.5762974436416516`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5762564615807133`*^9, 3.5762974436416516`*^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["24"], "Output", CellChangeTimes->{3.5762564615963135`*^9, 3.5762974436572514`*^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[{"-", "40.`"}]], "Output", CellChangeTimes->{3.5762564615963135`*^9, 3.5762974436728516`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5762564615963135`*^9, 3.5762974436728516`*^9}], Cell[BoxData["40.`"], "Output", CellChangeTimes->{3.5762564615963135`*^9, 3.5762974436728516`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5762564615963135`*^9, 3.5762974436728516`*^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["233.73513630891378`"], "Output", CellChangeTimes->{3.5762564616119137`*^9, 3.576297443688452*^9}] }, Open ]], 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", "<", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}], ";"}]}]], "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.5762276233486633`*^9, 3.576227661880731*^9}, {3.5762294303778377`*^9, 3.5762294535282784`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3873"}], ";"}], " ", 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.3873"}], ";"}], " ", 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]", RowBox[{"2", "*", "oj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[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.576210295516203*^9, 3.576210301147813*^9}, {3.5762118345993066`*^9, 3.576211849762533*^9}, { 3.57621233194378*^9, 3.5762123624418335`*^9}, {3.5762276920667844`*^9, 3.576227693595587*^9}, {3.5762301348282747`*^9, 3.5762302415012617`*^9}, { 3.5762302822641335`*^9, 3.576230344321043*^9}, {3.5762303945219307`*^9, 3.57623068426124*^9}, {3.5762307627917776`*^9, 3.5762307941010327`*^9}, { 3.576240623292457*^9, 3.5762406639237814`*^9}, {3.576240829683262*^9, 3.5762408352735815`*^9}, {3.576241080224592*^9, 3.576241266526248*^9}, { 3.576241388023197*^9, 3.576241425221325*^9}, {3.57624146551863*^9, 3.576241540115896*^9}, {3.576241577542037*^9, 3.576241579909172*^9}}], Cell[BoxData["271.89573250789175`"], "Output", CellChangeTimes->{3.576256461627514*^9, 3.5762974437040515`*^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[{"-", "492.34845820867594`"}]], "Output", CellChangeTimes->{3.576256461627514*^9, 3.5762974437196517`*^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", "*", 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}], Cell[BoxData[ RowBox[{"-", "929.9224645683519`"}]], "Output", CellChangeTimes->{3.576256461643114*^9, 3.576297443735252*^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[{"-", "946.2940225802109`"}]], "Output", CellChangeTimes->{3.5762564616587143`*^9, 3.5762974437508516`*^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["181.84353804256472`"], "Output", CellChangeTimes->{3.5762564616587143`*^9, 3.576297443766452*^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.06", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"0.5", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], " ", "+", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], ")"}]}]}], RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{"2", "*", "oj", "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "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.576210395465579*^9, 3.576210398741585*^9}, {3.5762104504556756`*^9, 3.576210460392893*^9}, { 3.5762279275023975`*^9, 3.576227953679244*^9}, {3.5762281316443567`*^9, 3.5762281341871605`*^9}, {3.5762295186895924`*^9, 3.5762296484194202`*^9}, {3.576229777696848*^9, 3.576229781394054*^9}, { 3.576229931606718*^9, 3.5762299342119226`*^9}, {3.5762299690311832`*^9, 3.576229971963989*^9}, {3.576230011962459*^9, 3.5762300689337587`*^9}, { 3.5762301056874237`*^9, 3.5762301062646246`*^9}, {3.5762307095800843`*^9, 3.5762307371297326`*^9}, {3.576240695446584*^9, 3.576240719283948*^9}, { 3.576240878988082*^9, 3.576240921130492*^9}, {3.576240967467143*^9, 3.576241022330281*^9}, {3.5762413279677625`*^9, 3.5762413515831127`*^9}}], Cell[BoxData["271.89573250789175`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData["181.84353804256472`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData[ RowBox[{"-", "946.2940225802109`"}]], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData["6.322220568889951`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData["3.5555555555555554`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData[ RowBox[{"-", "492.5547520297545`"}]], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData["246.27595619964058`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData["2.000011530278949`"], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}], Cell[BoxData[ RowBox[{"-", "246.27879583011395`"}]], "Output", CellChangeTimes->{3.576256461674314*^9, 3.576297443782052*^9}] }, Open ]] }, WindowSize->{866, 936}, WindowMargins->{{4, Automatic}, {2, Automatic}}, 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, 2503, 45, 92, "Input"], Cell[3085, 69, 2251, 41, 205, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5373, 115, 634, 10, 31, "Input"], Cell[6010, 127, 1798, 46, 206, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7845, 178, 767, 13, 31, "Input"], Cell[8615, 193, 348, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9000, 204, 955, 14, 31, "Input"], Cell[9958, 220, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10092, 226, 1560, 29, 31, "Input"], Cell[11655, 257, 348, 6, 31, "Output"] }, Open ]], Cell[12018, 266, 1419, 23, 31, "Input"], Cell[13440, 291, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[15057, 324, 1234, 18, 31, "Input"], Cell[16294, 344, 925, 27, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17256, 376, 697, 14, 31, "Input"], Cell[17956, 392, 251, 5, 31, "Output"] }, Open ]], Cell[18222, 400, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[19155, 428, 6392, 132, 172, "Input"], Cell[25550, 562, 304, 6, 31, "Output"], Cell[25857, 570, 304, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26198, 581, 519, 12, 31, "Input"], Cell[26720, 595, 348, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27105, 606, 1428, 39, 92, "Input"], Cell[28536, 647, 275, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28848, 658, 827, 23, 92, "Input"], Cell[29678, 683, 96, 1, 31, "Output"], Cell[29777, 686, 96, 1, 31, "Output"] }, Open ]], Cell[29888, 690, 1824, 35, 72, "Input"], Cell[31715, 727, 5113, 126, 212, "Input"], Cell[36831, 855, 1442, 19, 30, "Text"], Cell[38276, 876, 1997, 39, 52, "Input"], Cell[40276, 917, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[41632, 957, 4977, 90, 92, "Input"], Cell[46612, 1049, 1981, 41, 221, "Output"] }, Open ]], Cell[48608, 1093, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[49660, 1111, 3846, 83, 152, "Input"], Cell[53509, 1196, 307, 6, 31, "Output"] }, Open ]], Cell[53831, 1205, 2072, 49, 112, "Input"], Cell[55906, 1256, 561, 12, 52, "Input"], Cell[56470, 1270, 2148, 49, 92, "Input"], Cell[58621, 1321, 2452, 56, 112, "Input"], Cell[CellGroupData[{ Cell[61098, 1381, 3677, 96, 172, "Input"], Cell[64778, 1479, 111, 1, 31, "Output"], Cell[64892, 1482, 112, 1, 31, "Output"], Cell[65007, 1485, 112, 1, 31, "Output"], Cell[65122, 1488, 112, 1, 31, "Output"], Cell[65237, 1491, 111, 1, 31, "Output"] }, Open ]], Cell[65363, 1495, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[67463, 1534, 3969, 94, 172, "Input"], Cell[71435, 1630, 113, 2, 31, "Output"], Cell[71551, 1634, 504, 10, 21, "Message"], Cell[72058, 1646, 240, 6, 31, "Output"], Cell[72301, 1654, 208, 5, 31, "Output"], Cell[72512, 1661, 166, 3, 31, "Output"], Cell[72681, 1666, 321, 6, 31, "Output"], Cell[73005, 1674, 170, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73212, 1682, 2672, 54, 132, "Input"], Cell[75887, 1738, 92, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76016, 1744, 739, 22, 92, "Input"], Cell[76758, 1768, 92, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[76887, 1774, 2771, 55, 92, "Input"], Cell[79661, 1831, 151, 3, 31, "Output"] }, Open ]], Cell[79827, 1837, 4989, 137, 232, "Input"], Cell[CellGroupData[{ Cell[84841, 1978, 5267, 128, 252, "Input"], Cell[90111, 2108, 114, 2, 31, "Output"], Cell[90228, 2112, 92, 1, 31, "Output"], Cell[90323, 2115, 1634, 54, 206, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[91994, 2174, 12168, 205, 252, "Input"], Cell[104165, 2381, 111, 2, 31, "Output"], Cell[104279, 2385, 183, 4, 31, "Output"], Cell[104465, 2391, 94, 1, 31, "Output"], Cell[104562, 2394, 94, 1, 31, "Output"] }, Open ]], Cell[104671, 2398, 9033, 132, 72, "Input"], Cell[113707, 2532, 8389, 117, 49, "Text"], Cell[122099, 2651, 3276, 73, 132, "Input"], Cell[CellGroupData[{ Cell[125400, 2728, 587, 13, 31, "Input"], Cell[125990, 2743, 328, 9, 31, "Output"] }, Open ]], Cell[126333, 2755, 357, 5, 31, "Input"], Cell[126693, 2762, 536, 10, 49, "Text"], Cell[127232, 2774, 2314, 46, 92, "Input"], Cell[129549, 2822, 1924, 35, 72, "Input"], Cell[CellGroupData[{ Cell[131498, 2861, 1490, 20, 31, "Input"], Cell[132991, 2883, 1459, 36, 176, "Output"] }, Open ]], Cell[134465, 2922, 2729, 40, 49, "Text"], Cell[137197, 2964, 3819, 64, 112, "Input"], Cell[CellGroupData[{ Cell[141041, 3032, 112, 2, 31, "Input"], Cell[141156, 3036, 111, 2, 31, "Output"] }, Open ]], Cell[141282, 3041, 440, 10, 31, "Input"], Cell[CellGroupData[{ Cell[141747, 3055, 305, 4, 31, "Input"], Cell[142055, 3061, 113, 2, 31, "Output"] }, Open ]], Cell[142183, 3066, 3390, 46, 31, "Input"], Cell[145576, 3114, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[148674, 3176, 939, 17, 72, "Input"], Cell[149616, 3195, 1078, 26, 72, "Output"], Cell[150697, 3223, 93, 1, 31, "Output"], Cell[150793, 3226, 92, 1, 31, "Output"] }, Open ]], Cell[150900, 3230, 10201, 233, 192, "Input"], Cell[161104, 3465, 6427, 103, 72, "Input"], Cell[167534, 3570, 10215, 234, 192, "Input"], Cell[177752, 3806, 5925, 93, 52, "Input"], Cell[183680, 3901, 12927, 232, 172, "Input"], Cell[CellGroupData[{ Cell[196632, 4137, 16450, 313, 452, "Input"], Cell[213085, 4452, 160293, 2673, 474, 6988, 158, "CachedBoxData", "BoxData", \ "Output"], Cell[373381, 7127, 5080, 101, 474, "Output"], Cell[378464, 7230, 6586, 134, 474, "Output"], Cell[385053, 7366, 6211, 132, 474, "Output"], Cell[391267, 7500, 5562, 115, 506, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[396866, 7620, 4922, 106, 152, "Input"], Cell[401791, 7728, 95, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[401923, 7734, 2499, 47, 92, "Input"], Cell[404425, 7783, 95, 1, 31, "Output"] }, Open ]], Cell[404535, 7787, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[406401, 7820, 5226, 113, 192, "Input"], Cell[411630, 7935, 95, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[411762, 7941, 6307, 119, 112, "Input"], Cell[418072, 8062, 869, 27, 52, "Output"], Cell[418944, 8091, 427, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[419408, 8104, 4670, 80, 112, "Input"], Cell[424081, 8186, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[424215, 8192, 2695, 47, 112, "Input"], Cell[426913, 8241, 116, 2, 31, "Output"], Cell[427032, 8245, 97, 1, 31, "Output"], Cell[427132, 8248, 99, 1, 31, "Output"], Cell[427234, 8251, 97, 1, 31, "Output"] }, Open ]], Cell[427346, 8255, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[429437, 8289, 2963, 56, 112, "Input"], Cell[432403, 8347, 112, 1, 31, "Output"] }, Open ]], Cell[432530, 8351, 1987, 47, 72, "Input"], Cell[CellGroupData[{ Cell[434542, 8402, 4637, 91, 132, "Input"], Cell[439182, 8495, 112, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[439331, 8501, 499, 15, 52, "Input"], Cell[439833, 8518, 129, 2, 31, "Output"] }, Open ]], Cell[439977, 8523, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[441383, 8548, 1709, 32, 52, "Input"], Cell[443095, 8582, 126, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[443258, 8589, 1415, 43, 72, "Input"], Cell[444676, 8634, 130, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[444843, 8641, 2550, 50, 92, "Input"], Cell[447396, 8693, 112, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[447545, 8699, 4663, 93, 292, "Input"], Cell[452211, 8794, 110, 1, 31, "Output"], Cell[452324, 8797, 110, 1, 31, "Output"], Cell[452437, 8800, 126, 2, 31, "Output"], Cell[452566, 8804, 109, 1, 31, "Output"], Cell[452678, 8807, 110, 1, 31, "Output"], Cell[452791, 8810, 126, 2, 31, "Output"], Cell[452920, 8814, 110, 1, 31, "Output"], Cell[453033, 8817, 109, 1, 31, "Output"], Cell[453145, 8820, 127, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)