(* 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[ 159631, 3156] NotebookOptionsPosition[ 156104, 3042] NotebookOutlinePosition[ 156451, 3057] CellTagsIndexPosition[ 156408, 3054] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input"], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtUm1Ik1EUnl9hlmGiYhGmBjYZw0Ltg1BPaNmI0Fmsptva3rm9tqWbS01E 6EdIpcXQhD7E0lTsx5DQCNmPdWhDJWwKkhYhJFEgWRKWsR9R997Tgcu9nM/n ee7JklxVtmiFQpHNTgw7+dwmavBt62rOwZsa9L76pTTMHUADf/issLfjq3Yy IGHKWPlK289GMPk126OdpTiZwQJKO1bxh0WGhw+YNcr4vb2k0NSpA+HfacPm u+mxunA2jPevj0517QfdDvV4f14uJiwNuYscevg00hfKdOdj1jNPXXeiDsSc UBmI/jPV0FjEMhU1uKZlHtVl+Dyf/SESOAmqG2nvw9P/89trQeC+aAM7ty96 yt9wkf+aBQYXC9aPxCUTT6WW8OaaiO+0DG9mmQ1fQr9za2RgdB8KXYJ6uuea UOBI0uGmkinTYUShS3ERnlppSxlzmUHMOyaTv8cDgce785aHC4HDS9lio/63 ZeC0E0YbQPQttVP9RjMMM/dSUAY2XZ5wRKHIn21FpqZfs1ZKOP/KlL+tFRmL eF/seXw6dfrwreOHUMHNcAWDLM07LiOHkbEs0f/8MAMvK49yUjynBUKZTHC9 Buu6v7WXjOQj/1aVrCa+L60YWlDZdnmKcZHj/X0GxRgwgOC/aqb9eFdPfCok EPM/2kn3xCa435B8HV+rgcP2PpKQ0xvqlaGA9++qw6sVGWmO1DLqFzFjEheq N510WDDS/hgl2pNzbpCSLhx9PgPw5MSLjT8FZhD9Yu2kY4yD7j4L6b/pof8d rIWcs3FDPf4E0ifcgvG+PdW1MZWkj8WKxXxAfQuq+YJ26rDyzr2G5C4tivrU JoobLVQ/b8Z//FB4nw== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.], SphereBox[4, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{25, 21}, 15.], CylinderBox[{28, 14}, 15.], CylinderBox[{29, 15}, 15.], CylinderBox[{30, 16}, 15.], CylinderBox[{31, 17}, 15.], CylinderBox[{32, 18}, 15.], CylinderBox[{33, 19}, 15.], CylinderBox[{34, 20}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{22, 5}, 15.], CylinderBox[{23, 12}, 15.], CylinderBox[{24, 11}, 15.], CylinderBox[{26, 11}, 15.], CylinderBox[{27, 12}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 11}, 15.], CylinderBox[{7, 9}, 15.], CylinderBox[{7, 28}, 15.], CylinderBox[{8, 10}, 15.], CylinderBox[{8, 29}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 30}, 15.], CylinderBox[{10, 31}, 15.], CylinderBox[{12, 13}, 15.], CylinderBox[{13, 32}, 15.], CylinderBox[{13, 33}, 15.], CylinderBox[{13, 34}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 22}, 15.], CylinderBox[{1, 23}, 15.], CylinderBox[{2, 24}, 15.], CylinderBox[{2, 25}, 15.], CylinderBox[{3, 26}, 15.], CylinderBox[{4, 27}, 15.]}}]}, Boxed->False, ImageSize->282.44217559121745`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{ 3.5679501743047748`*^9, 3.5679502174388504`*^9, 3.567950480689313*^9, { 3.5679505131529703`*^9, 3.567950540016217*^9}, 3.5679511429104757`*^9, 3.5679563141382875`*^9, 3.5679563763823967`*^9, 3.567956436380102*^9, 3.5679565069390264`*^9, {3.567956571039539*^9, 3.5679565939715796`*^9}, 3.5679570717848186`*^9, 3.567957335690482*^9, 3.5679574627371054`*^9, 3.567957634696207*^9, 3.567957769199643*^9, 3.5679586106807213`*^9, 3.567958778537016*^9, 3.5679588351495156`*^9, 3.5679589799021697`*^9, 3.5679590843911533`*^9, 3.567959444502186*^9, 3.567959478151445*^9, 3.5679595887088394`*^9, 3.56795964043853*^9, 3.5679596802497997`*^9, 3.567960051468052*^9, 3.567960274766844*^9, 3.5679603605669947`*^9, 3.5679606272650633`*^9, 3.5679607758553247`*^9, 3.567960890109925*^9, 3.5679609842092905`*^9, 3.567961190192052*^9, 3.56796143389568*^9, 3.5679615173558264`*^9, 3.567961619504806*^9, 3.567961905063308*^9, 3.567962043825551*^9, 3.567962164912964*^9, {3.567962273879155*^9, 3.5679622994632006`*^9}, 3.567962345873282*^9, 3.567962656501027*^9, 3.5679626978567*^9, 3.567962844231757*^9, 3.567962981433998*^9, { 3.567963195201174*^9, 3.567963222594822*^9}, 3.5679636226419244`*^9, 3.56796384244631*^9, {3.56796391625004*^9, 3.5679639419744854`*^9}, 3.5679643652500286`*^9, 3.567964462438199*^9, 3.5679646216988792`*^9, 3.567964777855153*^9, {3.5680117488193545`*^9, 3.568011778308041*^9}, 3.568011889734414*^9, 3.5680459095908585`*^9, 3.568045988339797*^9, 3.568046060177923*^9, {3.5680470166000032`*^9, 3.5680470334480324`*^9}, { 3.5680470755213065`*^9, 3.568047090029332*^9}, 3.568047175533082*^9, 3.568047370923425*^9, 3.5680474270835238`*^9, 3.5680474945692425`*^9, 3.568047575205784*^9, 3.5680478462094603`*^9, 3.568048080178671*^9, 3.568048120379942*^9, 3.5680481686308265`*^9, 3.568048236428546*^9, 3.5680482918242426`*^9, 3.5680486487372694`*^9, {3.5680487807915015`*^9, 3.568048804409943*^9}, 3.5680488409920073`*^9, 3.5680490969104567`*^9, 3.568049134132122*^9, 3.568049247466321*^9, 3.568049378880952*^9, 3.568049432420246*^9, 3.5680495719156914`*^9, 3.5680496370770054`*^9, 3.5680497759952497`*^9, 3.5680499415895405`*^9, 3.568050025065287*^9, 3.568050136168682*^9, {3.56805016933434*^9, 3.568050184060766*^9}, 3.5681087384041967`*^9, 3.568109020811493*^9, 3.5681096379173765`*^9, 3.5681097778340225`*^9, 3.5681103337409987`*^9, 3.568110740355713*^9, 3.568110889070774*^9, 3.568111043121045*^9, 3.5681111295451965`*^9, 3.5681111972025156`*^9, 3.5681113898004537`*^9, 3.568111441171344*^9, 3.568111560511554*^9, 3.5681117221590376`*^9, 3.5681120296667776`*^9, 3.5681123454269323`*^9, 3.568112522206443*^9, 3.5681125774773397`*^9, 3.568112740934427*^9, 3.568112774443286*^9, 3.568112849120617*^9, 3.568112901037508*^9, 3.568112974700837*^9, 3.5681132492925196`*^9, 3.5681133107254276`*^9, 3.5681135118565807`*^9, 3.5681136560944343`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, { 3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 3.5679573132576427`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.093816408`"}], ",", RowBox[{"-", "0.96496968464`"}], ",", RowBox[{"-", "0.31766294059999994`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.9740507787999997`", ",", RowBox[{"-", "2.8338331096`"}], ",", "5.428804852799999`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7338939893599999`"}], ",", RowBox[{"-", "3.3497283075999995`"}], ",", "3.5349214555999997`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.544181113`"}], ",", "1.70381475612`", ",", RowBox[{"-", "3.1853221456`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.17769093578`", ",", "0.22247744198`", ",", RowBox[{"-", "0.23797319517999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.9210954515999998`", ",", RowBox[{"-", "0.36732493988`"}], ",", "1.66696509912`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.7848976940999999`", ",", "2.0244634637999996`", ",", RowBox[{"-", "2.0410930526`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "4.2586865136`", ",", "0.8596741519199999`", ",", "1.72195612572`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.0970719413999994`", ",", "3.2310535147999997`", ",", RowBox[{"-", "1.9577561359999998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.8303286286`", ",", "2.6452384548`", ",", RowBox[{"-", "0.08513404602599998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.29688115928`", ",", RowBox[{"-", "2.279954419`"}], ",", "3.5948257697999995`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.8767728889999997`"}], ",", RowBox[{"-", "0.185710932924`"}], ",", RowBox[{"-", "1.947362643`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.291842717`"}], ",", RowBox[{"-", "1.6678721676000001`"}], ",", RowBox[{"-", "2.2315774334`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5526503687`"}], ",", "2.4848007174`", ",", RowBox[{"-", "3.5122447436`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "5.6156987542`", ",", "0.40901229543999995`", ",", "3.1783301593999997`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.560243784`", ",", "4.633986097199999`", ",", RowBox[{"-", "3.3656020059999996`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.6372846298`", ",", "3.5927470712`", ",", RowBox[{"-", "0.041141224745999995`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.498432768`"}], ",", RowBox[{"-", "0.7529802219599999`"}], ",", RowBox[{"-", "3.6278959747999995`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.2703428398`"}], ",", RowBox[{"-", "1.73992741998`"}], ",", RowBox[{"-", "0.42057741855999997`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.853426284999999`"}], ",", RowBox[{"-", "3.5825425508`"}], ",", RowBox[{"-", "2.8517855065999997`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5617125655999997`", ",", RowBox[{"-", "4.082564050399999`"}], ",", "6.6973779166`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.567950174351575*^9, 3.56795021748565*^9, 3.5679504807361126`*^9, { 3.56795051318417*^9, 3.567950540063017*^9}, 3.567951142926076*^9, 3.5679563141850877`*^9, 3.5679563764291973`*^9, 3.5679564364113026`*^9, 3.5679565069858265`*^9, {3.567956571086339*^9, 3.567956594018379*^9}, 3.5679570718316183`*^9, 3.567957335737282*^9, 3.567957462783905*^9, 3.567957634743007*^9, 3.5679577692464437`*^9, 3.5679586107275214`*^9, 3.5679587785838165`*^9, 3.567958835196316*^9, 3.56795897993337*^9, 3.5679590844223537`*^9, 3.567959444533386*^9, 3.567959478182645*^9, 3.567959588755639*^9, 3.56795964048533*^9, 3.567959680281*^9, 3.567960051514852*^9, 3.5679602748136444`*^9, 3.567960360613795*^9, 3.5679606273118634`*^9, 3.5679607759177246`*^9, 3.5679608901411247`*^9, 3.56796098425609*^9, 3.567961190238852*^9, 3.56796143394248*^9, 3.567961517402627*^9, 3.567961619536006*^9, 3.5679619050945077`*^9, 3.5679620438567514`*^9, 3.5679621649441643`*^9, {3.567962273925956*^9, 3.56796229951*^9}, 3.567962345920082*^9, 3.5679626565478277`*^9, 3.5679626979035006`*^9, 3.567962844262957*^9, 3.5679629814651985`*^9, { 3.5679631952323737`*^9, 3.5679632226416216`*^9}, 3.5679636226887245`*^9, 3.5679638424931107`*^9, {3.56796391628124*^9, 3.567963942021285*^9}, 3.5679643652968287`*^9, 3.5679644624693995`*^9, 3.567964621730079*^9, 3.5679647778863535`*^9, {3.568011748864357*^9, 3.5680117783470435`*^9}, 3.568011889783417*^9, 3.568045909653259*^9, 3.568045988402197*^9, 3.568046060209123*^9, {3.568047016646803*^9, 3.568047033479233*^9}, { 3.5680470755681067`*^9, 3.568047090076132*^9}, 3.568047175579882*^9, 3.5680473709702253`*^9, 3.568047427130324*^9, 3.5680474946004424`*^9, 3.5680475752369843`*^9, 3.5680478462406597`*^9, 3.5680480802098713`*^9, 3.5680481204111414`*^9, 3.5680481686620264`*^9, 3.5680482364753456`*^9, 3.5680482918710427`*^9, 3.5680486487840695`*^9, {3.5680487808227015`*^9, 3.5680488044567432`*^9}, 3.5680488410388074`*^9, 3.568049096957257*^9, 3.5680491341789227`*^9, 3.568049247513121*^9, 3.5680493789121523`*^9, 3.5680494324670463`*^9, 3.568049571962491*^9, 3.5680496371394053`*^9, 3.5680497760420494`*^9, 3.56804994163634*^9, 3.568050025096487*^9, 3.5680501361998825`*^9, {3.5680501693499403`*^9, 3.5680501841075664`*^9}, 3.568108738450997*^9, 3.568109020827093*^9, 3.568109637964177*^9, 3.5681097778652225`*^9, 3.5681103337721987`*^9, 3.5681107403869133`*^9, 3.5681108891175747`*^9, 3.5681110431522446`*^9, 3.568111129576397*^9, 3.5681111972493153`*^9, 3.5681113898316536`*^9, 3.568111441218144*^9, 3.5681115605583534`*^9, 3.5681117221902375`*^9, 3.5681120297135773`*^9, 3.568112345473732*^9, 3.568112522222043*^9, 3.56811257750854*^9, 3.5681127409500265`*^9, 3.5681127744588857`*^9, 3.568112849136217*^9, 3.568112901053108*^9, 3.5681129747164373`*^9, 3.56811324932372*^9, 3.568113310741028*^9, 3.568113511872181*^9, 3.5681136561412344`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, 3.567869231084096*^9, 3.5678693210962543`*^9, { 3.567869354027912*^9, 3.5678693684423375`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "2"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>"}], "}"}], ",", "1"}], "}"}], ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"H\"\>"}], "}"}], ",", "1"}], "}"}], ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"O\"\>"}], "}"}], ",", "2"}], "}"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"O\"\>"}], "}"}], ",", "1"}], "}"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"H\"\>", ",", "\<\"O\"\>"}], "}"}], ",", "1"}], "}"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.567950174367175*^9, 3.5679502175168505`*^9, 3.567950480751713*^9, { 3.56795051319977*^9, 3.567950540063017*^9}, 3.567951142941676*^9, 3.5679563142162876`*^9, 3.5679563764447975`*^9, 3.5679564364269023`*^9, 3.5679565070014267`*^9, {3.567956571101939*^9, 3.5679565940339794`*^9}, 3.5679570718472185`*^9, 3.567957335752882*^9, 3.567957462799505*^9, 3.567957634774207*^9, 3.567957769262044*^9, 3.567958610743121*^9, 3.5679587785994167`*^9, 3.5679588352119155`*^9, 3.56795897994897*^9, 3.5679590844535537`*^9, 3.567959444548986*^9, 3.567959478198245*^9, 3.5679595887712393`*^9, 3.56795964050093*^9, 3.5679596802966003`*^9, 3.567960051530452*^9, 3.5679602748136444`*^9, 3.567960360629395*^9, 3.567960627327463*^9, 3.5679607759333243`*^9, 3.567960890156725*^9, 3.5679609842716904`*^9, 3.567961190270052*^9, 3.5679614339580803`*^9, 3.5679615174182267`*^9, 3.567961619551606*^9, 3.5679619051101074`*^9, 3.5679620438723516`*^9, 3.567962164959764*^9, {3.5679622739415555`*^9, 3.5679622995256004`*^9}, 3.5679623459356823`*^9, 3.567962656563428*^9, 3.5679626979191003`*^9, 3.5679628442785573`*^9, 3.5679629814807982`*^9, { 3.5679631952479734`*^9, 3.567963222657222*^9}, 3.5679636227043247`*^9, 3.567963842508711*^9, {3.56796391629684*^9, 3.5679639420368853`*^9}, 3.5679643653124285`*^9, 3.5679644624849997`*^9, 3.567964621745679*^9, 3.5679647779019537`*^9, {3.5680117488803577`*^9, 3.568011778364044*^9}, 3.5680118898024187`*^9, 3.5680459096688585`*^9, 3.568045988417797*^9, 3.568046060224723*^9, {3.568047016662403*^9, 3.5680470335104327`*^9}, { 3.568047075583707*^9, 3.568047090091732*^9}, 3.568047175595482*^9, 3.5680473709858255`*^9, 3.568047427145924*^9, 3.5680474946316423`*^9, 3.5680475752525845`*^9, 3.56804784625626*^9, 3.568048080241071*^9, 3.568048120442342*^9, 3.5680481686932263`*^9, 3.568048236490946*^9, 3.5680482918866425`*^9, 3.5680486487996697`*^9, {3.5680487808383017`*^9, 3.568048804487943*^9}, 3.568048841054407*^9, 3.5680490969728565`*^9, 3.568049134210122*^9, 3.5680492475287213`*^9, 3.568049378943352*^9, 3.568049432498246*^9, 3.5680495719780912`*^9, 3.5680496371706057`*^9, 3.56804977607325*^9, 3.5680499416519403`*^9, 3.5680500251120872`*^9, 3.5680501362154827`*^9, {3.5680501693655405`*^9, 3.5680501841543665`*^9}, 3.5681087384665966`*^9, 3.568109020842693*^9, 3.5681096379953766`*^9, 3.568109777880822*^9, 3.568110333787799*^9, 3.568110740418113*^9, 3.5681108891331744`*^9, 3.568111043183445*^9, 3.5681111295919967`*^9, 3.5681111972649155`*^9, 3.568111389847254*^9, 3.5681114412337437`*^9, 3.5681115605739536`*^9, 3.5681117222058372`*^9, 3.5681120297291775`*^9, 3.568112345489332*^9, 3.568112522237643*^9, 3.56811257752414*^9, 3.5681127409656267`*^9, 3.5681127744744854`*^9, 3.568112849151817*^9, 3.568112901068708*^9, 3.5681129747320375`*^9, 3.5681132493393197`*^9, 3.5681133107566276`*^9, 3.568113511887781*^9, 3.5681136561568346`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, {3.567943087867528*^9, 3.567943093733138*^9}, 3.567943185211699*^9, 3.5679432253505697`*^9, 3.5679433277647495`*^9, { 3.5679434430645523`*^9, 3.5679434440941534`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.567950174382775*^9, 3.5679502175324507`*^9, 3.567950480767313*^9, { 3.56795051321537*^9, 3.567950540078617*^9}, 3.5679511429572763`*^9, 3.567956314231888*^9, 3.5679563764603972`*^9, 3.5679564364425025`*^9, 3.5679565070170264`*^9, {3.567956571117539*^9, 3.567956594049579*^9}, 3.5679570718628187`*^9, 3.567957335768482*^9, 3.5679574628151054`*^9, 3.5679576347898073`*^9, 3.5679577692776437`*^9, 3.5679586107587214`*^9, 3.5679587786150165`*^9, 3.5679588352275157`*^9, 3.56795897996457*^9, 3.5679590844691534`*^9, 3.5679594445645857`*^9, 3.5679594782138453`*^9, 3.5679595887868395`*^9, 3.56795964051653*^9, 3.5679596803122*^9, 3.567960051546052*^9, 3.5679602748292446`*^9, 3.5679603606449947`*^9, 3.5679606273586636`*^9, 3.567960775948924*^9, 3.567960890156725*^9, 3.5679609842872906`*^9, 3.567961190285652*^9, 3.56796143398928*^9, 3.5679615174182267`*^9, 3.5679616195672064`*^9, 3.5679619051257076`*^9, 3.5679620438879514`*^9, 3.5679621649753637`*^9, {3.5679622739415555`*^9, 3.5679622995412006`*^9}, 3.567962345951282*^9, 3.567962656563428*^9, 3.5679626979347*^9, 3.567962844294157*^9, 3.5679629814963984`*^9, { 3.5679631952635736`*^9, 3.567963222672822*^9}, 3.5679636227199244`*^9, 3.567963842508711*^9, {3.56796391631244*^9, 3.5679639420524855`*^9}, 3.5679643653280287`*^9, 3.5679644625006*^9, 3.567964621761279*^9, 3.567964777917554*^9, {3.568011748896359*^9, 3.5680117783800454`*^9}, 3.5680118898194194`*^9, 3.5680459096844587`*^9, 3.5680459884333973`*^9, 3.568046060240323*^9, {3.5680470166780033`*^9, 3.5680470335260324`*^9}, { 3.5680470755993066`*^9, 3.568047090107332*^9}, 3.568047175611082*^9, 3.5680473710014257`*^9, 3.568047427177124*^9, 3.5680474946472425`*^9, 3.568047575283784*^9, 3.56804784627186*^9, 3.568048080241071*^9, 3.568048120457942*^9, 3.568048168708826*^9, 3.5680482365065455`*^9, 3.5680482919022427`*^9, 3.5680486488152695`*^9, {3.568048780853902*^9, 3.568048804503543*^9}, 3.5680488410700073`*^9, 3.5680490969884567`*^9, 3.5680491342257223`*^9, 3.568049247544321*^9, 3.568049378958952*^9, 3.5680494325138464`*^9, 3.5680495719936914`*^9, 3.568049637201806*^9, 3.5680497761044497`*^9, 3.5680499416831408`*^9, 3.5680500251276875`*^9, 3.5680501362310824`*^9, {3.5680501693811407`*^9, 3.5680501841699667`*^9}, 3.5681087384665966`*^9, 3.5681090208582926`*^9, 3.568109638010977*^9, 3.5681097778964224`*^9, 3.568110333818999*^9, 3.568110740433713*^9, 3.568110889148774*^9, 3.568111043183445*^9, 3.568111129607597*^9, 3.5681111972805157`*^9, 3.568111389862854*^9, 3.568111441249344*^9, 3.5681115605739536`*^9, 3.5681117222214375`*^9, 3.5681120297447777`*^9, 3.568112345489332*^9, 3.5681125222532425`*^9, 3.5681125775397396`*^9, 3.568112740981227*^9, 3.5681127744900856`*^9, 3.5681128491674166`*^9, 3.5681129010843077`*^9, 3.5681129747476377`*^9, 3.56811324935492*^9, 3.5681133107722273`*^9, 3.5681135119033813`*^9, 3.5681136561724343`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u1", "=", RowBox[{"{", RowBox[{ "0.18", ",", "0.18", ",", "0.18", ",", "0.18", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.04", ",", "0.04", ",", "0.04", ",", "0.04", ",", "0.04", ",", "0.04", ",", "0.04", ",", "0.04"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "15"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "\"\\""}], ",", RowBox[{ RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.26"}], ",", RowBox[{ RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.18"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u1"}], "*)"}]], "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9}], Cell[BoxData["\<\"(CH3CO2)C6H4CO2H\"\>"], "Output", CellChangeTimes->{ 3.567950174429575*^9, 3.567950217563651*^9, 3.567950480782913*^9, { 3.56795051323097*^9, 3.5679505400942173`*^9}, 3.567951142972876*^9, 3.567956314247488*^9, 3.567956376475997*^9, 3.567956436458102*^9, 3.567956507032626*^9, {3.567956571133139*^9, 3.567956594080779*^9}, 3.567957071878419*^9, 3.567957335784082*^9, 3.567957462830705*^9, 3.5679576348054075`*^9, 3.5679577692932434`*^9, 3.5679586107743216`*^9, 3.5679587786462164`*^9, 3.5679588352587156`*^9, 3.56795897999577*^9, 3.567959084500354*^9, 3.567959444595786*^9, 3.5679594782294455`*^9, 3.567959588802439*^9, 3.5679596405477304`*^9, 3.5679596803434*^9, 3.567960051561652*^9, 3.567960274860444*^9, 3.567960360660595*^9, 3.567960627374264*^9, 3.5679607759645243`*^9, 3.5679608901879253`*^9, 3.5679609843028903`*^9, 3.5679611903480525`*^9, 3.5679614340360804`*^9, 3.5679615174494267`*^9, 3.567961619582806*^9, 3.567961905141308*^9, 3.5679620439035516`*^9, 3.567962164990964*^9, {3.5679622739727554`*^9, 3.5679622995724*^9}, 3.5679623459668818`*^9, 3.5679626565946274`*^9, 3.5679626979503*^9, 3.567962844309757*^9, 3.567962981511998*^9, { 3.567963195279174*^9, 3.567963222688422*^9}, 3.567963622735524*^9, 3.5679638425399103`*^9, {3.56796391632804*^9, 3.5679639420680857`*^9}, 3.567964365343629*^9, 3.5679644625161996`*^9, 3.5679646217924795`*^9, 3.5679647779487534`*^9, {3.56801174891236*^9, 3.5680117784010468`*^9}, 3.5680118898474207`*^9, 3.568045909700059*^9, 3.568045988464597*^9, 3.5680460602715235`*^9, {3.5680470166936035`*^9, 3.5680470335416327`*^9}, { 3.5680470756305065`*^9, 3.5680470901385317`*^9}, 3.5680471756422825`*^9, 3.5680473710326257`*^9, 3.568047427208324*^9, 3.568047494678443*^9, 3.568047575299384*^9, 3.5680478463030605`*^9, 3.568048080272271*^9, 3.5680481204735417`*^9, 3.5680481687244263`*^9, 3.5680482365377455`*^9, 3.568048291933443*^9, 3.56804864884647*^9, {3.568048780885102*^9, 3.5680488045347433`*^9}, 3.5680488411012077`*^9, 3.568049097004057*^9, 3.5680491342569227`*^9, 3.5680492475599213`*^9, 3.568049378974552*^9, 3.5680494325294466`*^9, 3.568049572024891*^9, 3.5680496372330055`*^9, 3.5680497761356497`*^9, 3.5680499417143407`*^9, 3.568050025158887*^9, 3.568050136246682*^9, {3.5680501693967404`*^9, 3.5680501842167664`*^9}, 3.568108738482197*^9, 3.568109020889493*^9, 3.5681096380421767`*^9, 3.568109777927623*^9, 3.568110333834599*^9, 3.568110740449313*^9, 3.5681108891643744`*^9, 3.568111043214645*^9, 3.5681111296231966`*^9, 3.568111197296116*^9, 3.5681113898784537`*^9, 3.568111441264944*^9, 3.568111560589554*^9, 3.568111722252638*^9, 3.568112029760378*^9, 3.5681123455049324`*^9, 3.5681125222688427`*^9, 3.56811257755534*^9, 3.568112740996827*^9, 3.568112774505686*^9, 3.568112849183017*^9, 3.568112901099908*^9, 3.568112974763238*^9, 3.56811324938612*^9, 3.5681133107878275`*^9, 3.568113511918981*^9, 3.568113656188034*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.052646404599999`", ",", RowBox[{"-", "0.11338356`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.9621545526`", ",", "2.72120544`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.689149120599998`", ",", "2.72120544`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.415954716`", ",", RowBox[{"-", "2.9479725599999997`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.689149120599998`", ",", RowBox[{"-", "1.0582465600000002`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.325651836599999`", ",", RowBox[{"-", "0.11338356`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"8.689149120599998`", ",", RowBox[{"-", "2.9479725599999997`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.9621545526`", ",", RowBox[{"-", "1.0582465600000002`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.325651836599999`", ",", RowBox[{"-", "3.89283556`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.9621545526`", ",", RowBox[{"-", "2.9479725599999997`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.325651836599999`", ",", "1.7763424399999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.415954716`", ",", RowBox[{"-", "1.0582465600000002`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.779452`", ",", RowBox[{"-", "0.11338356`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7.674366258599999`", ",", RowBox[{"-", "3.53378762`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12.976937414599998`", ",", RowBox[{"-", "0.4724315`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"10.325651836599999`", ",", RowBox[{"-", "5.06446568`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"12.976937414599998`", ",", RowBox[{"-", "3.53378762`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.36526706`", ",", "0.9012103293999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.7648581106`", ",", "0.4724315`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.1936369399999998`", ",", RowBox[{"-", "1.1279774493999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"11.9621545526`", ",", "3.89283556`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5679501744451747`*^9, 3.567950217579251*^9, 3.567950480798513*^9, { 3.56795051324657*^9, 3.5679505401098175`*^9}, 3.567951142988476*^9, 3.567956314263088*^9, 3.567956376491597*^9, 3.5679564364737024`*^9, 3.5679565070482264`*^9, {3.567956571133139*^9, 3.5679565940963793`*^9}, 3.5679570718940187`*^9, 3.5679573357996817`*^9, 3.567957462846305*^9, 3.5679576348210073`*^9, 3.5679577693088436`*^9, 3.5679586107899218`*^9, 3.5679587786618166`*^9, 3.567958835274316*^9, 3.5679589800113697`*^9, 3.5679590845159535`*^9, 3.5679594446113863`*^9, 3.567959478245045*^9, 3.567959588833639*^9, 3.56795964056333*^9, 3.567959680359*^9, 3.567960051577252*^9, 3.567960274860444*^9, 3.567960360676195*^9, 3.5679606273898635`*^9, 3.5679607759801245`*^9, 3.5679608901879253`*^9, 3.5679609843184905`*^9, 3.567961190363652*^9, 3.5679614340672803`*^9, 3.567961517465027*^9, 3.5679616195984063`*^9, 3.567961905141308*^9, 3.5679620439191513`*^9, 3.567962165006564*^9, {3.5679622739883556`*^9, 3.5679622995880003`*^9}, 3.567962345982482*^9, 3.5679626566102276`*^9, 3.5679626979659004`*^9, 3.5679628443253574`*^9, 3.5679629815275984`*^9, { 3.567963195294774*^9, 3.567963222704022*^9}, 3.5679636227511244`*^9, 3.5679638425555105`*^9, {3.5679639163436403`*^9, 3.5679639420836854`*^9}, 3.567964365359229*^9, 3.5679644625317993`*^9, 3.5679646218080792`*^9, 3.5679647779487534`*^9, {3.568011748923361*^9, 3.568011778416047*^9}, 3.5680118898604217`*^9, 3.568045909715659*^9, 3.568045988480197*^9, 3.568046060287123*^9, {3.5680470167092032`*^9, 3.568047033557233*^9}, { 3.5680470756461067`*^9, 3.568047090154132*^9}, 3.5680471756578827`*^9, 3.5680473710326257`*^9, 3.568047427223924*^9, 3.568047494709643*^9, 3.5680475753149843`*^9, 3.5680478463186607`*^9, 3.5680480802878714`*^9, 3.5680481204891415`*^9, 3.5680481687556267`*^9, 3.5680482365533457`*^9, 3.5680482919490433`*^9, 3.56804864886207*^9, {3.5680487809007015`*^9, 3.5680488045503435`*^9}, 3.568048841116808*^9, 3.568049097019657*^9, 3.5680491342569227`*^9, 3.5680492475911217`*^9, 3.5680493789901524`*^9, 3.568049432560646*^9, 3.568049572040491*^9, 3.568049637264206*^9, 3.56804977615125*^9, 3.568049941729941*^9, 3.568050025174487*^9, 3.5680501362622824`*^9, {3.5680501694123406`*^9, 3.5680501842323666`*^9}, 3.568108738497797*^9, 3.5681090209050927`*^9, 3.5681096380577765`*^9, 3.5681097779432225`*^9, 3.5681103338501987`*^9, 3.5681107404649134`*^9, 3.5681108891799746`*^9, 3.568111043230245*^9, 3.568111129638797*^9, 3.5681111973117156`*^9, 3.5681113898940535`*^9, 3.5681114412805443`*^9, 3.5681115606051536`*^9, 3.5681117222682376`*^9, 3.5681120297759776`*^9, 3.5681123455205326`*^9, 3.568112522284443*^9, 3.56811257757094*^9, 3.5681127410124273`*^9, 3.568112774521286*^9, 3.568112849198617*^9, 3.568112901115508*^9, 3.5681129747788377`*^9, 3.56811324940172*^9, 3.5681133108034277`*^9, 3.568113511934581*^9, 3.5681136562036343`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lp", "=", RowBox[{"ListPlot", "[", RowBox[{"v", ",", " ", RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567946177515355*^9, 3.5679462297286463`*^9}, 3.5679463060439806`*^9, {3.5679467119254932`*^9, 3.5679467232199135`*^9}, { 3.5680116987964935`*^9, 3.568011700100568*^9}}], Cell[BoxData[ GraphicsBox[{{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQbcSZ8eGFqYyDy2Kpqi1se/cvtGpqnf9G3aH41+Ro 9qOsDrPF/NRvJCjC+XyR5RwfVoo6LF9iurhoKvsBmLzd/ScfJ7/7sH+eRsa1 3ctU4ObB5GHqYeajq9exD//RpsIPl4eph8nf3f+E51n2H3uY/TD9QlltIYE2 fHD7/tzsEOzdJOfA4j690MiV54DdE24Vwy+aDhB19+D2fXLs9WJ2EoHLw9Sb s5VM5CgTdCh+UsS9/dob+9u3b7zNlWOD6bffelylbWIPp8OiY39EjHg+wcML 6n4HAOf+me8= "]]}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], AxesLabel->{None, None}, AxesOrigin->{2.7648581106, 0.}, Method->{}, PlotRange->{{2.7648581106, 12.976937414599998`}, {-5.06446568, 3.89283556}}, PlotRangeClipping->True, PlotRangePadding->{{0.20424158607999995`, 0.20424158607999995`}, { 0.1791460248, 0.1791460248}}]], "Output", CellChangeTimes->{ 3.567950174460775*^9, 3.5679502175948505`*^9, 3.567950480829713*^9, { 3.56795051326217*^9, 3.567950540141017*^9}, 3.567951143004076*^9, 3.567956314278688*^9, 3.5679563765071974`*^9, 3.5679564364893026`*^9, 3.5679565070638266`*^9, {3.567956571164339*^9, 3.5679565941119795`*^9}, 3.5679570719096184`*^9, 3.567957335815282*^9, 3.567957462861905*^9, 3.5679576348366075`*^9, 3.567957769324444*^9, 3.5679586108055215`*^9, 3.5679587786774163`*^9, 3.567958835289916*^9, 3.56795898002697*^9, 3.5679590845315533`*^9, 3.567959444626986*^9, 3.567959478260645*^9, 3.5679595888492393`*^9, 3.5679596405789304`*^9, 3.5679596803746*^9, 3.567960051592852*^9, 3.5679602748916445`*^9, 3.5679603606917953`*^9, 3.5679606274210634`*^9, 3.5679607759957247`*^9, 3.5679608902035255`*^9, 3.56796098433409*^9, 3.5679611903948526`*^9, 3.5679614340828805`*^9, 3.567961517480627*^9, 3.5679616196296062`*^9, 3.567961905156908*^9, 3.5679620439347515`*^9, 3.5679621650221643`*^9, {3.567962274003956*^9, 3.5679622996036005`*^9}, 3.567962345998082*^9, 3.567962656625828*^9, 3.5679626979815006`*^9, 3.5679628443409576`*^9, 3.5679629815431986`*^9, { 3.567963195310374*^9, 3.5679632227196217`*^9}, 3.5679636227667246`*^9, 3.5679638425711107`*^9, {3.5679639163592405`*^9, 3.5679639420992856`*^9}, 3.567964365374829*^9, 3.5679644625473995`*^9, 3.567964621823679*^9, 3.567964777979954*^9, {3.568011749017366*^9, 3.568011778435048*^9}, 3.5680118898904233`*^9, 3.5680459097936587`*^9, 3.568045988495797*^9, 3.568046060318323*^9, {3.568047016740403*^9, 3.568047033572833*^9}, { 3.568047075677307*^9, 3.568047090169732*^9}, 3.568047175689082*^9, 3.5680473710638256`*^9, 3.568047427239524*^9, 3.5680474947252426`*^9, 3.5680475753461847`*^9, 3.56804784634986*^9, 3.568048080303471*^9, 3.568048120520342*^9, 3.568048168771227*^9, 3.568048236568946*^9, 3.568048291964643*^9, 3.56804864889327*^9, {3.5680487809163017`*^9, 3.5680488045815434`*^9}, 3.5680488411480074`*^9, 3.5680490970352573`*^9, 3.568049134288122*^9, 3.568049247606722*^9, 3.5680493790213523`*^9, 3.5680494325762463`*^9, 3.5680495720560913`*^9, 3.5680496372954063`*^9, 3.56804977616685*^9, 3.5680499417455406`*^9, 3.5680500252056875`*^9, 3.5680501362778826`*^9, {3.5680501694435406`*^9, 3.568050184263567*^9}, 3.5681087385913973`*^9, 3.568109020920693*^9, 3.568109638088977*^9, 3.5681097779588223`*^9, 3.568110333865799*^9, 3.568110740480513*^9, 3.5681108891955743`*^9, 3.568111043245845*^9, 3.568111129654397*^9, 3.5681111973273153`*^9, 3.5681113899096537`*^9, 3.568111441296144*^9, 3.5681115606207533`*^9, 3.5681117222838373`*^9, 3.568112029791578*^9, 3.5681123455361323`*^9, 3.568112522300043*^9, 3.56811257758654*^9, 3.568112741028027*^9, 3.5681127745368857`*^9, 3.568112849214217*^9, 3.5681129011311083`*^9, 3.5681129747944374`*^9, 3.5681132494173203`*^9, 3.568113310819028*^9, 3.568113511950181*^9, 3.5681136562192345`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"v", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "/", "0.5292"}], ",", RowBox[{ RowBox[{"v", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "/", "0.5292"}]}], "}"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"i", "<", "5"}], ",", "0.18", ",", "0.26"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"v", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "lp", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Axes", " ", "\[Rule]", " ", "False"}], ",", RowBox[{"Frame", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"PlotRange", " ", "\[Rule]", " ", "Automatic"}]}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQB2IQPa3IyDhg6ivHgMxGExDd41ZvAaL/7Oa0BtEmu9nc QPReeW1vEH3tQ10AiD5zwTYYRC/T3hQJorkU5RJBtNjtwlQQLcgWnQOib5gG VYJoYcaaWrA9l9hbQPQlVfM+EL1z2baXINpeeT+YPnuv/gOI/uJ4DEyH7eT7 C6LnzO7/B6Lr+83ZA0HmCi3gBNE7yk39QHTax2mhIPrhca1cEB1x8HEBiGYy ftwAou+sKZ8C5s8IngGiI0WjwHSbc8AGED1Pf+dGEG0nd90nCEi7lBb7gegF /2yDQXTUb1cw/Xm9eBSIFlA2B9MHjP62gujwk/e7QbSykIxVIZD28YgC04GZ p+xA9Lefa+1BNAARpbYc "]], Cell[BoxData[ GraphicsBox[{CircleBox[{7.052646404599999, -0.11338356}, 0.18], CircleBox[{11.9621545526, 2.72120544}, 0.18], CircleBox[{8.689149120599998, 2.72120544}, 0.18], CircleBox[{5.415954716, -2.9479725599999997`}, 0.18], CircleBox[{8.689149120599998, -1.0582465600000002`}, 0.26], CircleBox[{10.325651836599999`, -0.11338356}, 0.26], CircleBox[{8.689149120599998, -2.9479725599999997`}, 0.26], CircleBox[{11.9621545526, -1.0582465600000002`}, 0.26], CircleBox[{10.325651836599999`, -3.89283556}, 0.26], CircleBox[{11.9621545526, -2.9479725599999997`}, 0.26], CircleBox[{10.325651836599999`, 1.7763424399999999`}, 0.26], CircleBox[{5.415954716, -1.0582465600000002`}, 0.26], CircleBox[{3.779452, -0.11338356}, 0.26], CircleBox[{7.674366258599999, -3.53378762}, 0.04], CircleBox[{12.976937414599998`, -0.4724315}, 0.04], CircleBox[{10.325651836599999`, -5.06446568}, 0.04], CircleBox[{12.976937414599998`, -3.53378762}, 0.04], CircleBox[{4.36526706, 0.9012103293999999}, 0.04], CircleBox[{2.7648581106, 0.4724315}, 0.04], CircleBox[{3.1936369399999998`, -1.1279774493999999`}, 0.04], CircleBox[{11.9621545526, 3.89283556}, 0.04], {{}, {RGBColor[0.24720000000000014`, 0.24, 0.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQbcSZ8eGFqYyDy2Kpqi1se/cvtGpqnf9G3aH41+Ro 9qOsDrPF/NRvJCjC+XyR5RwfVoo6LF9iurhoKvsBmLzd/ScfJ7/7sH+eRsa1 3ctU4ObB5GHqYeajq9exD//RpsIPl4eph8nf3f+E51n2H3uY/TD9QlltIYE2 fHD7/tzsEOzdJOfA4j690MiV54DdE24Vwy+aDhB19+D2fXLs9WJ2EoHLw9Sb s5VM5CgTdCh+UsS9/dob+9u3b7zNlWOD6bffelylbWIPp8OiY39EjHg+wcML 6n4HAOf+me8= "]]}, {}}}, AspectRatio->Automatic, Axes->False, Frame->Automatic, PlotRange->Automatic]], "Output", CellChangeTimes->{ 3.567950174476375*^9, 3.5679502176104507`*^9, 3.567950480845313*^9, { 3.56795051327777*^9, 3.567950540156617*^9}, 3.567951143019676*^9, 3.567956314309888*^9, 3.567956376522797*^9, 3.567956436504903*^9, 3.5679565070950265`*^9, {3.5679565711799393`*^9, 3.5679565941275797`*^9}, 3.567957071940819*^9, 3.567957335830882*^9, 3.5679574628775053`*^9, 3.567957634852207*^9, 3.5679577693400435`*^9, 3.5679586108211217`*^9, 3.567958778693016*^9, 3.5679588353055162`*^9, 3.56795898004257*^9, 3.5679590845627537`*^9, 3.5679594446425858`*^9, 3.5679594782918453`*^9, 3.5679595888648396`*^9, 3.5679596406101303`*^9, 3.5679596803902*^9, 3.567960051608452*^9, 3.5679602749072447`*^9, 3.5679603607073956`*^9, 3.5679606274366636`*^9, 3.5679607760113244`*^9, 3.567960890234725*^9, 3.5679609843496904`*^9, 3.5679611904104524`*^9, 3.5679614341140804`*^9, 3.567961517496227*^9, 3.5679616196452065`*^9, 3.567961905172508*^9, 3.5679620439503517`*^9, 3.5679621650377645`*^9, {3.5679622740195556`*^9, 3.5679622996192007`*^9}, 3.567962346013682*^9, 3.5679626566414275`*^9, 3.5679626979971004`*^9, 3.5679628443565574`*^9, 3.5679629815587983`*^9, { 3.5679631953259735`*^9, 3.567963222735222*^9}, 3.567963622782325*^9, 3.567963842586711*^9, {3.5679639163748407`*^9, 3.5679639421148853`*^9}, 3.5679643653904285`*^9, 3.5679644625629997`*^9, 3.567964621839279*^9, 3.5679647779955535`*^9, {3.568011749035367*^9, 3.568011778447049*^9}, 3.5680118899094243`*^9, 3.568045909809259*^9, 3.568045988526997*^9, 3.5680460603339233`*^9, {3.5680470167560034`*^9, 3.568047033588433*^9}, { 3.568047075692907*^9, 3.5680470901853323`*^9}, 3.5680471757046824`*^9, 3.568047371079426*^9, 3.5680474272707243`*^9, 3.568047494756443*^9, 3.5680475753617845`*^9, 3.5680478463654604`*^9, 3.5680480803190713`*^9, 3.568048120535942*^9, 3.568048168786827*^9, 3.568048236600146*^9, 3.568048291995843*^9, 3.5680486489088697`*^9, {3.568048780931902*^9, 3.568048804597143*^9}, 3.5680488411636076`*^9, 3.5680490970664573`*^9, 3.5680491343037224`*^9, 3.5680492476223216`*^9, 3.5680493790369525`*^9, 3.5680494326074467`*^9, 3.5680495720716915`*^9, 3.568049637311006*^9, 3.56804977619805*^9, 3.568049941761141*^9, 3.5680500252212873`*^9, 3.5680501362934823`*^9, {3.568050169459141*^9, 3.5680501842791667`*^9}, 3.5681087386069975`*^9, 3.5681090209362926`*^9, 3.568109638104577*^9, 3.5681097779744225`*^9, 3.5681103338969994`*^9, 3.5681107404961133`*^9, 3.5681108892111745`*^9, 3.568111043261445*^9, 3.5681111296699967`*^9, 3.5681111973429155`*^9, 3.568111389940854*^9, 3.5681114413117437`*^9, 3.5681115606363535`*^9, 3.5681117222994375`*^9, 3.5681120298071775`*^9, 3.568112345551732*^9, 3.568112522315643*^9, 3.56811257760214*^9, 3.568112741043627*^9, 3.568112774552486*^9, 3.568112849229817*^9, 3.5681129011467085`*^9, 3.5681129748100376`*^9, 3.56811324943292*^9, 3.568113310834628*^9, 3.568113511965781*^9, 3.5681136562348347`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {373.21, -6.}], LineBox[{{391.66318322568156`, -16.654262832379658`}, { 416.51, -31.000000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -56.00000000000001}], LineBox[{{416.51, -31.000000000000004`}, { 442.7564020679032, -46.15381181749611}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {373.21, -6.}], LineBox[{{354.7562841069346, -16.65334019920644}, { 329.905, -31.000000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {286.6, -56.00000000000001}], LineBox[{{329.905, -31.000000000000004`}, { 303.6540901992186, -46.15466447337572}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, 144.}], LineBox[{{614.5568167743185, 133.34573716762034`}, {589.71, 119.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, 94.}], LineBox[{{589.71, 119.}, {563.4635979320967, 103.84618818250388`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, 144.}], LineBox[{{633.01, 165.30805687203792`}, {633.01, 175.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, 206.}], LineBox[{{633.01, 175.}, {633.01, 186.30805687203792`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, 144.}], LineBox[{{{480.76318322568153`, 137.67573716762035`}, { 505.60999999999996`, 123.33}}, {{475.76318322568153`, 129.01573716762033`}, {500.60999999999996`, 114.67}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, 94.}], LineBox[{{{505.60999999999996`, 123.33}, {531.8564020679032, 108.17618818250388`}}, {{500.60999999999996`, 114.67}, { 526.8564020679032, 99.51618818250388}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {286.6, -156.}], LineBox[{{{281.6, -134.69194312796208`}, {281.6, -106.}}, {{ 291.6, -134.69194312796208`}, {291.6, -106.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {286.6, -56.00000000000001}], LineBox[{{{281.6, -106.}, {281.6, -75.69194312796209}}, {{ 291.6, -106.}, {291.6, -75.69194312796209}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -56.00000000000001}], LineBox[{{476.8635979320967, -46.15381181749612}, { 503.10999999999996`, -31.000000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -6.}], LineBox[{{503.10999999999996`, -31.000000000000004`}, { 529.3564020679032, -15.846188182503885`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -56.00000000000001}], LineBox[{{{464.80999999999995`, -75.69194312796209}, { 464.80999999999995`, -106.}}, {{ 454.80999999999995`, -75.69194312796209}, { 454.80999999999995`, -106.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -156.}], LineBox[{{{464.80999999999995`, -106.}, { 464.80999999999995`, -136.30805687203792`}}, {{ 454.80999999999995`, -106.}, { 454.80999999999995`, -136.30805687203792`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -6.}], LineBox[{{{565.9635979320967, -11.516188182503875`}, { 592.21, -26.67}}, {{560.9635979320967, -20.17618818250388}, { 587.21, -35.330000000000005`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -56.00000000000001}], LineBox[{{{592.21, -26.67}, {618.4564020679032, -41.82381181749611}}, {{ 587.21, -35.330000000000005`}, { 613.4564020679032, -50.48381181749611}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -6.}], LineBox[{{546.41, 13.691943127962084`}, {546.41, 44.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, 94.}], LineBox[{{546.41, 44.}, {546.41, 74.30805687203792}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -156.}], LineBox[{{476.8635979320967, -165.84618818250388`}, { 503.10999999999996`, -181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -206.}], LineBox[{{503.10999999999996`, -181.}, { 529.3564020679032, -196.15381181749612`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {459.80999999999995`, -156.}], LineBox[{{442.75576690847316`, -165.84508800441955`}, { 432.9599999999999, -171.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {406.10999999999996`, -187.}], LineBox[{{432.9599999999999, -171.5}, { 423.16423309152674`, -177.15491199558042`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -56.00000000000001}], LineBox[{{633.01, -75.69194312796209}, {633.01, -106.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -156.}], LineBox[{{633.01, -106.}, {633.01, -136.30805687203792`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -56.00000000000001}], LineBox[{{650.0642330915267, -46.15491199558042}, { 659.8599999999999, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {686.7099999999999, -25.}], LineBox[{{659.8599999999999, -40.5}, { 669.6557669084731, -34.84508800441955}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -206.}], LineBox[{{{560.9635979320967, -191.8238118174961}, {587.21, -176.67}}, {{ 565.9635979320967, -200.48381181749613`}, {592.21, -185.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -156.}], LineBox[{{{587.21, -176.67}, { 613.4564020679032, -161.51618818250387`}}, {{592.21, -185.33}, { 618.4564020679032, -170.1761881825039}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -206.}], LineBox[{{546.41, -225.69194312796208`}, {546.41, -237.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {546.41, -268.}], LineBox[{{546.41, -237.}, {546.41, -248.30805687203792`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {633.01, -156.}], LineBox[{{650.0642330915267, -165.84508800441958`}, { 659.8599999999999, -171.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {686.7099999999999, -187.}], LineBox[{{659.8599999999999, -171.5}, { 669.6557669084731, -177.15491199558045`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {286.6, -56.00000000000001}], LineBox[{{269.5464020679033, -46.15381181749612}, { 243.3, -31.000000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {200., -6.}], LineBox[{{243.3, -31.000000000000004`}, { 217.05359793209672`, -15.846188182503885`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {200., -6.}], LineBox[{{209.84646325904197`, 11.05343910896655}, {215.5, 20.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {231., 47.69}], LineBox[{{215.5, 20.845}, {221.15353674095803`, 30.636560891033447`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {200., -6.}], LineBox[{{182.94656089103344`, 3.846463259041963}, {173.155, 9.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {146.31, 25.}], LineBox[{{173.155, 9.5}, {163.36343910896656`, 15.153536740958037`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {200., -6.}], LineBox[{{190.15353674095803`, -23.05343910896655}, {184.5, -32.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.05129653480986163], FontWeight->Plain], {169., -59.69}], LineBox[{{184.5, -32.845}, { 178.84646325904197`, -42.63656089103345}}]}}}, {}, {}}, ImageSize->{{0., 194.94494193548383`}, {0., 178.81290322580645`}}, PlotRange->{{130.098, 702.9219999999999}, {-297.38388625592415`, 228.03791469194312`}}]], "Output", CellChangeTimes->{ 3.5679501745387754`*^9, 3.5679502176728506`*^9, 3.567950480907713*^9, { 3.56795051334017*^9, 3.5679505402190175`*^9}, 3.567951143082076*^9, 3.567956314356688*^9, 3.5679563765851974`*^9, 3.5679564365673027`*^9, 3.567956507157427*^9, {3.567956571242339*^9, 3.5679565941899796`*^9}, 3.5679570719876184`*^9, 3.5679573358932824`*^9, 3.567957462939905*^9, 3.5679576349146075`*^9, 3.567957769402444*^9, 3.5679586108991213`*^9, 3.5679587787710166`*^9, 3.567958835367916*^9, 3.56795898010497*^9, 3.5679590846251535`*^9, 3.567959444704986*^9, 3.567959478354245*^9, 3.5679595889272394`*^9, 3.56795964067253*^9, 3.5679596804526005`*^9, 3.5679600516708527`*^9, 3.5679602749696445`*^9, 3.5679603607697954`*^9, 3.5679606274990635`*^9, 3.5679607760737247`*^9, 3.567960890297125*^9, 3.5679609844120903`*^9, 3.5679611904884524`*^9, 3.5679614341764803`*^9, 3.567961517558627*^9, 3.5679616197076063`*^9, 3.5679619052505083`*^9, 3.5679620440127516`*^9, 3.5679621651001644`*^9, {3.567962274081956*^9, 3.5679622996816006`*^9}, 3.567962346076082*^9, 3.567962656703828*^9, 3.5679626980595007`*^9, 3.5679628444189577`*^9, 3.5679629816211987`*^9, { 3.5679631953883743`*^9, 3.5679632227976217`*^9}, 3.5679636228447247`*^9, 3.567963842649111*^9, {3.5679639164372406`*^9, 3.5679639421772857`*^9}, 3.5679643654528294`*^9, 3.5679644626253996`*^9, 3.5679646219016795`*^9, 3.5679647780423536`*^9, {3.5680117491163716`*^9, 3.5680117785100527`*^9}, 3.568011889970428*^9, 3.5680459098872595`*^9, 3.5680459885893974`*^9, 3.5680460604119234`*^9, {3.5680470168496037`*^9, 3.568047033666433*^9}, { 3.5680470757553067`*^9, 3.568047090247732*^9}, 3.5680471757826824`*^9, 3.568047371157426*^9, 3.5680474273487244`*^9, 3.568047494834443*^9, 3.568047575439784*^9, 3.5680478464434605`*^9, 3.568048080412671*^9, 3.568048120613942*^9, 3.568048168880427*^9, 3.568048236678146*^9, 3.5680482920582433`*^9, 3.56804864897127*^9, {3.568048781009902*^9, 3.5680488046751437`*^9}, 3.5680488412260075`*^9, 3.568049097144457*^9, 3.5680491343661222`*^9, 3.5680492477003217`*^9, 3.568049379114952*^9, 3.5680494326854467`*^9, 3.568049572165292*^9, 3.5680496373890057`*^9, 3.56804977626045*^9, 3.568049941839141*^9, 3.568050025299288*^9, 3.5680501363714824`*^9, {3.5680501695215406`*^9, 3.5680501843727665`*^9}, 3.5681087386693974`*^9, 3.5681090209986935`*^9, 3.568109638166977*^9, 3.568109778036823*^9, 3.568110333943799*^9, 3.568110740558513*^9, 3.5681108892735744`*^9, 3.568111043323845*^9, 3.568111129732397*^9, 3.568111197405316*^9, 3.5681113899876537`*^9, 3.5681114413741446`*^9, 3.568111560698754*^9, 3.568111722361838*^9, 3.568112029869578*^9, 3.5681123456141324`*^9, 3.5681125223780427`*^9, 3.5681125776645403`*^9, 3.568112741106027*^9, 3.568112774599286*^9, 3.5681128492922173`*^9, 3.5681129012091084`*^9, 3.5681129748724375`*^9, 3.5681132494953203`*^9, 3.568113310881428*^9, 3.568113512028181*^9, 3.5681136562816343`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}]}], "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.5643959809065504`", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.6487952092451184`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.620514241595812`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.6406216611674673`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.6093973140780804`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.6039565042799775`", "2.6180281740472`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.5462047862305086`", "2.296095033730954`", "0", "0", "2.78647479311946`", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.5381290619802077`", "0", "0", "2.283302071364557`", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.847831147869261`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.0408901257255825`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.04098105233772`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.040778768071901`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.040783657507358`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0597553962610586`", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0597027706602815`", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059813025061571`", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>"}, {"0", "1.827191665582771`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.567951143160076*^9, 3.5679563144502883`*^9, 3.5679563766475973`*^9, 3.5679564366297026`*^9, 3.5679565072198267`*^9, {3.5679565712579393`*^9, 3.5679565942055798`*^9}, 3.567957072018819*^9, 3.567957335908882*^9, 3.5679574629711056`*^9, 3.5679576349302073`*^9, 3.5679577694180436`*^9, 3.5679586109303217`*^9, 3.5679587788022165`*^9, 3.567958835399116*^9, 3.5679589801361704`*^9, 3.567959084656354*^9, 3.5679594447361865`*^9, 3.5679594783698454`*^9, 3.56795958895844*^9, 3.5679596407037306`*^9, 3.5679596804682007`*^9, 3.5679600516864524`*^9, 3.567960275000845*^9, 3.567960360800995*^9, 3.567960627530264*^9, 3.567960776104925*^9, 3.5679608903283253`*^9, 3.5679609844432907`*^9, 3.5679611905196524`*^9, 3.5679614342076807`*^9, 3.567961517589827*^9, 3.5679616197388067`*^9, 3.567961905281708*^9, 3.5679620440595517`*^9, 3.5679621651313643`*^9, { 3.567962274113156*^9, 3.567962299712801*^9}, 3.5679623461072826`*^9, 3.567962656719428*^9, 3.5679626980751004`*^9, 3.5679628444501576`*^9, 3.567962981652398*^9, {3.567963195419574*^9, 3.567963222813222*^9}, 3.567963622875925*^9, 3.567963842664711*^9, {3.5679639164528403`*^9, 3.5679639422084856`*^9}, 3.567964365468429*^9, 3.5679644626566*^9, 3.5679646219172792`*^9, 3.567964778073554*^9, {3.568011749144373*^9, 3.5680117785340543`*^9}, 3.5680118899944296`*^9, 3.568045909918459*^9, 3.5680459886205974`*^9, 3.5680460604587235`*^9, {3.568047016880803*^9, 3.568047033697633*^9}, {3.568047075802107*^9, 3.5680470902789326`*^9}, 3.5680471758294826`*^9, 3.568047371188626*^9, 3.5680474273955245`*^9, 3.568047494865643*^9, 3.5680475754709845`*^9, 3.5680478464746604`*^9, 3.5680480804594717`*^9, 3.568048120645142*^9, 3.568048168927227*^9, 3.568048236709346*^9, 3.568048292089443*^9, 3.56804864900247*^9, { 3.568048781041102*^9, 3.568048804721944*^9}, 3.568048841257208*^9, 3.5680490971756573`*^9, 3.5680491343973227`*^9, 3.5680492477315216`*^9, 3.5680493791461525`*^9, 3.5680494327166467`*^9, 3.5680495721964917`*^9, 3.5680496374358063`*^9, 3.56804977629165*^9, 3.568049941870341*^9, 3.5680500253460875`*^9, 3.5680501364026823`*^9, {3.568050169552741*^9, 3.568050184419567*^9}, 3.5681087387005973`*^9, 3.568109021014293*^9, 3.5681096381981773`*^9, 3.5681097780680227`*^9, 3.5681103339749994`*^9, 3.5681107405741134`*^9, 3.5681108893047743`*^9, 3.568111043339445*^9, 3.568111129747997*^9, 3.568111197436516*^9, 3.568111390018854*^9, 3.5681114413897443`*^9, 3.568111560714354*^9, 3.5681117223774376`*^9, 3.568112029885178*^9, 3.568112345629732*^9, 3.568112522393643*^9, 3.56811257768014*^9, 3.568112741137227*^9, 3.568112774630486*^9, 3.5681128493078175`*^9, 3.5681129012247086`*^9, 3.5681129748880377`*^9, 3.56811324952652*^9, 3.568113310912628*^9, 3.5681135120437813`*^9, 3.5681136563128347`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", " ", RowBox[{"sq", "<", "3.0"}]}], ",", RowBox[{"0.529177", "*", "sq"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Eij", "]"}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.5679574512554846`*^9, 3.5679574566530943`*^9}, { 3.5679575983637433`*^9, 3.5679576252893906`*^9}, {3.5679577071427345`*^9, 3.5679577424611964`*^9}, 3.567958973147358*^9, {3.5679591782097178`*^9, 3.56795917902092*^9}, {3.567959225290601*^9, 3.567959254322252*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"u2", "=", RowBox[{"{", RowBox[{ "0.18", ",", "0.18", ",", "0.18", ",", "0.18", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.26", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.50"}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679585418846006`*^9, 3.5679585738334565`*^9}, { 3.567959075187137*^9, 3.5679590758579383`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Gij", "]"}]}], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.30439598090655`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.388795209245118`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.360514241595812`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.380621661167467`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.3493973140780806`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.3439565042799773`", "2.3580281740471998`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.286204786230509`", "2.0360950337309536`", "0", "0", "2.52647479311946`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.2781290619802075`", "0", "0", "2.023302071364557`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.5878311478692613`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.4808901257255824`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "1.4809810523377198`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.4807787680719011`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1.480783657507358`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.4997553962610586`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.4997027706602815`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.499813025061571`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "1.327191665582771`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.567958610961522*^9, 3.567958778833417*^9, 3.567958835445916*^9, 3.5679589801673703`*^9, 3.567959084671954*^9, 3.567959444751786*^9, 3.5679594784010453`*^9, 3.5679595889740396`*^9, 3.5679596407193303`*^9, 3.5679596804994*^9, 3.5679600517176523`*^9, 3.5679602750164447`*^9, 3.5679603608321953`*^9, 3.567960627545864*^9, 3.5679607761361246`*^9, 3.5679608903439255`*^9, 3.567960984474491*^9, 3.567961190550853*^9, 3.5679614342388806`*^9, 3.567961517621027*^9, 3.567961619770006*^9, 3.567961905312908*^9, 3.5679620440751514`*^9, 3.5679621651625643`*^9, { 3.5679622741287556`*^9, 3.567962299744001*^9}, 3.5679623461228824`*^9, 3.567962656750628*^9, 3.5679626981063004`*^9, 3.5679628444813576`*^9, 3.5679629816679983`*^9, {3.567963195435174*^9, 3.5679632228444223`*^9}, 3.5679636229071245`*^9, 3.5679638426959105`*^9, {3.5679639164840403`*^9, 3.567963942224086*^9}, 3.567964365499629*^9, 3.5679644626721997`*^9, 3.5679646219484797`*^9, 3.567964778089154*^9, {3.568011749166374*^9, 3.5680117785560555`*^9}, 3.56801189001443*^9, 3.568045909934059*^9, 3.5680459886517973`*^9, 3.5680460604899235`*^9, {3.5680470169120035`*^9, 3.568047033728833*^9}, {3.568047075817707*^9, 3.5680470903101325`*^9}, 3.5680471758450823`*^9, 3.5680473712198257`*^9, 3.5680474274267244`*^9, 3.568047494896843*^9, 3.568047575502185*^9, 3.5680478465214605`*^9, 3.5680480804906716`*^9, 3.568048120660742*^9, 3.568048168958427*^9, 3.568048236724946*^9, 3.568048292120643*^9, 3.56804864901807*^9, { 3.568048781072302*^9, 3.5680488047531433`*^9}, 3.568048841288408*^9, 3.568049097206857*^9, 3.568049134428523*^9, 3.568049247762722*^9, 3.568049379177353*^9, 3.568049432732247*^9, 3.568049572243292*^9, 3.5680496374670067`*^9, 3.56804977632285*^9, 3.5680499419015408`*^9, 3.568050025377288*^9, 3.5680501364338827`*^9, {3.5680501695839405`*^9, 3.568050184450767*^9}, 3.568108738716197*^9, 3.568109021029893*^9, 3.5681096382137775`*^9, 3.568109778083623*^9, 3.568110333990599*^9, 3.5681107406053133`*^9, 3.5681108893203745`*^9, 3.5681110433706455`*^9, 3.5681111297791967`*^9, 3.568111197452116*^9, 3.5681113900344543`*^9, 3.5681114414053445`*^9, 3.568111560745554*^9, 3.568111722393038*^9, 3.568112029916378*^9, 3.5681123456609325`*^9, 3.568112522424843*^9, 3.5681125776957397`*^9, 3.5681127411528273`*^9, 3.5681127746460857`*^9, 3.568112849323417*^9, 3.5681129012559085`*^9, 3.568112974919238*^9, 3.56811324955772*^9, 3.568113310928228*^9, 3.568113512074981*^9, 3.568113656328435*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", 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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "2.30439598090655`", "0", "0", "0", "0", "0", "0", "2.2781290619802075`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.286204786230509`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.327191665582771`"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "2.0360950337309536`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "2.023302071364557`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.388795209245118`", "2.360514241595812`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "2.380621661167467`", "0", "0", "2.52647479311946`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "2.3493973140780806`", "0", "0", "0", "0", "1.4808901257255824`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "2.3439565042799773`", "0", "0", "0", "0", "1.4809810523377198`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.3580281740471998`", "0", "0", "0", "0", "0", "1.4807787680719011`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.480783657507358`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.5878311478692613`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "1.4997553962610586`", "1.4997027706602815`", "1.499813025061571`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.567960776151725*^9, 3.5679608903751254`*^9, 3.5679609845056906`*^9, 3.5679611905820527`*^9, 3.5679614342700806`*^9, 3.5679615176522274`*^9, 3.5679616198012066`*^9, 3.567961905344108*^9, 3.5679620440907516`*^9, 3.5679621651781645`*^9, {3.567962274159956*^9, 3.5679622997596006`*^9}, 3.5679623461540823`*^9, 3.567962656781828*^9, 3.5679626981219006`*^9, 3.567962844496958*^9, 3.5679629816835985`*^9, {3.567963195450774*^9, 3.5679632228600225`*^9}, 3.5679636229071245`*^9, 3.5679638427115107`*^9, { 3.5679639164996405`*^9, 3.5679639422396855`*^9}, 3.567964365515229*^9, 3.5679644627033997`*^9, 3.56796462196408*^9, 3.5679647781203537`*^9, { 3.5680117491813755`*^9, 3.568011778575056*^9}, 3.5680118900314317`*^9, 3.5680459099496593`*^9, 3.5680459886673975`*^9, 3.5680460605055237`*^9, { 3.5680470169276037`*^9, 3.5680470337444334`*^9}, {3.568047075848907*^9, 3.5680470903413324`*^9}, 3.5680471758762827`*^9, 3.568047371235426*^9, 3.568047427457925*^9, 3.568047494912443*^9, 3.5680475755177846`*^9, 3.568047846552661*^9, 3.5680480805062714`*^9, 3.568048120676342*^9, 3.5680481689740267`*^9, 3.568048236740546*^9, 3.568048292136243*^9, 3.5680486490336704`*^9, {3.568048781087902*^9, 3.5680488047687435`*^9}, 3.5680488413196077`*^9, 3.568049097238057*^9, 3.568049134444123*^9, 3.5680492477783217`*^9, 3.5680493791929526`*^9, 3.5680494327478466`*^9, 3.5680495722588916`*^9, 3.5680496374826064`*^9, 3.5680497763384504`*^9, 3.568049941932741*^9, 3.5680500254084873`*^9, 3.568050136449483*^9, { 3.5680501695995407`*^9, 3.568050184481967*^9}, 3.568108738731797*^9, 3.568109021045493*^9, 3.5681096382293773`*^9, 3.568109778099223*^9, 3.568110334006199*^9, 3.5681107406209135`*^9, 3.5681108893359747`*^9, 3.5681110433862453`*^9, 3.568111129794797*^9, 3.568111197467716*^9, 3.568111390050054*^9, 3.568111441420944*^9, 3.568111560761154*^9, 3.568111722408638*^9, 3.568112029931978*^9, 3.5681123456609325`*^9, 3.568112522440443*^9, 3.56811257771134*^9, 3.5681127411684275`*^9, 3.568112774661686*^9, 3.568112849339017*^9, 3.5681129012559085`*^9, 3.568112974934838*^9, 3.5681132495733204`*^9, 3.568113310943828*^9, 3.568113512090581*^9, 3.5681136563440347`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 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", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Lij", "]"}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "2.12439598090655`", "0", "0", "0", "0", "0", "0", "2.0981290619802073`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.1062047862305087`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.147191665582771`"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.8560950337309536`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.8433020713645571`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.1287952092451183`", "2.1005142415958122`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "2.1206216611674673`", "0", "0", "2.2664747931194604`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "2.089397314078081`", "0", "0", "0", "0", "1.2208901257255824`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "2.0839565042799775`", "0", "0", "0", "0", "1.2209810523377198`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.0980281740472`", "0", "0", "0", "0", "0", "1.220778768071901`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.220783657507358`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.3278311478692615`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "1.2397553962610586`", "1.2397027706602815`", "1.239813025061571`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5679602750476446`*^9, 3.5679603608633957`*^9, 3.5679606275770636`*^9, 3.5679607761985245`*^9, 3.567960890390725*^9, 3.567960984536891*^9, 3.5679611906132526`*^9, 3.567961434301281*^9, 3.567961517699027*^9, 3.5679616198480067`*^9, 3.567961905375308*^9, 3.567962044121952*^9, 3.5679621652093644`*^9, {3.567962274175556*^9, 3.567962299775201*^9}, 3.5679623461696825`*^9, 3.567962656797428*^9, 3.567962698137501*^9, 3.5679628445125575`*^9, 3.5679629816991987`*^9, {3.5679631954819736`*^9, 3.5679632228756223`*^9}, 3.567963622938325*^9, 3.567963842727111*^9, { 3.5679639165152407`*^9, 3.5679639422552853`*^9}, 3.5679643655308294`*^9, 3.5679644627033997`*^9, 3.5679646219796796`*^9, 3.567964778135954*^9, { 3.5680117492003765`*^9, 3.5680117785930576`*^9}, 3.5680118900484324`*^9, 3.5680459099808593`*^9, 3.568045988698598*^9, 3.5680460605367236`*^9, { 3.5680470169588037`*^9, 3.568047033760033*^9}, {3.5680470758645067`*^9, 3.5680470903725324`*^9}, 3.568047175891883*^9, 3.568047371266626*^9, 3.5680474274891243`*^9, 3.568047494943643*^9, 3.568047575533385*^9, 3.568047846568261*^9, 3.568048080537472*^9, 3.568048120691942*^9, 3.568048168989627*^9, 3.5680482367717457`*^9, 3.568048292151843*^9, 3.56804864906487*^9, {3.5680487811035023`*^9, 3.568048804799944*^9}, 3.568048841335208*^9, 3.5680490972536573`*^9, 3.5680491344753227`*^9, 3.5680492478095217`*^9, 3.5680493792241526`*^9, 3.568049432779047*^9, 3.568049572274492*^9, 3.568049637498206*^9, 3.56804977636965*^9, 3.5680499419483414`*^9, 3.5680500254240875`*^9, 3.568050136480683*^9, { 3.568050169630741*^9, 3.568050184497567*^9}, 3.5681087387473974`*^9, 3.5681090210610933`*^9, 3.568109638244977*^9, 3.568109778114823*^9, 3.568110334021799*^9, 3.5681107406365137`*^9, 3.568110889351575*^9, 3.568111043401845*^9, 3.568111129810397*^9, 3.568111197483316*^9, 3.568111390065654*^9, 3.5681114414365444`*^9, 3.568111560776754*^9, 3.568111722424238*^9, 3.568112029947578*^9, 3.5681123456765327`*^9, 3.5681125224560432`*^9, 3.56811257772694*^9, 3.568112741184027*^9, 3.568112774677286*^9, 3.568112849354617*^9, 3.568112901271508*^9, 3.5681129749504375`*^9, 3.56811324958892*^9, 3.568113310959428*^9, 3.568113512106181*^9, 3.568113656359635*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ 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[{"j", "<", "14"}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Lij", "]"}]}], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "1.062197990453275`", "0", "0", "0", "0", "0", "0", "1.0490645309901037`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0531023931152543`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.147191665582771`"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0.9280475168654768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0.9216510356822786`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.0643976046225592`", "1.0502571207979061`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "1.0603108305837337`", "0", "0", "1.1332373965597302`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "1.0446986570390404`", "0", "0", "0", "0", "1.2208901257255824`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "1.0419782521399887`", "0", "0", "0", "0", "1.2209810523377198`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.0490140870236`", "0", "0", "0", "0", "0", "1.220778768071901`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.220783657507358`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.1639155739346307`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "1.2397553962610586`", "1.2397027706602815`", "1.239813025061571`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5679628445281577`*^9, 3.567962981714799*^9, {3.567963195497574*^9, 3.5679632228912225`*^9}, 3.567963622953925*^9, 3.5679638427583113`*^9, { 3.567963916530841*^9, 3.5679639422864857`*^9}, 3.567964365546429*^9, 3.5679644627346*^9, 3.5679646219952793`*^9, 3.567964778151554*^9, { 3.5680117492163773`*^9, 3.5680117786100583`*^9}, 3.568011890068434*^9, 3.568045909996459*^9, 3.5680459887141976`*^9, 3.5680460605523233`*^9, { 3.5680470169744034`*^9, 3.568047033775633*^9}, {3.568047075880107*^9, 3.5680470903881326`*^9}, 3.568047175907483*^9, 3.568047371282226*^9, 3.5680474275047245`*^9, 3.5680474949592433`*^9, 3.5680475755645847`*^9, 3.5680478465994606`*^9, 3.5680480805530715`*^9, 3.568048120723142*^9, 3.568048169067627*^9, 3.568048236787346*^9, 3.5680482921830435`*^9, 3.56804864908047*^9, {3.568048781134702*^9, 3.568048804815544*^9}, 3.5680488413664083`*^9, 3.5680490972692575`*^9, 3.568049134490923*^9, 3.568049247840722*^9, 3.568049379239753*^9, 3.5680494327946467`*^9, 3.5680495723056917`*^9, 3.5680496375294065`*^9, 3.56804977638525*^9, 3.5680499419795413`*^9, 3.568050025455288*^9, 3.5680501364962826`*^9, { 3.5680501696463413`*^9, 3.568050184528767*^9}, 3.5681087387629976`*^9, 3.5681090210766935`*^9, 3.568109638260577*^9, 3.5681097781304226`*^9, 3.5681103340373993`*^9, 3.568110740652114*^9, 3.568110889367175*^9, 3.568111043417445*^9, 3.5681111298259974`*^9, 3.5681111974989157`*^9, 3.568111390081254*^9, 3.5681114414677444`*^9, 3.568111560792354*^9, 3.568111722439838*^9, 3.5681120299631777`*^9, 3.5681123457077327`*^9, 3.5681125224716434`*^9, 3.5681125777425404`*^9, 3.568112741199627*^9, 3.5681127746928864`*^9, 3.5681128493702173`*^9, 3.5681129012871084`*^9, 3.5681129749660378`*^9, 3.56811324960452*^9, 3.568113310975028*^9, 3.5681135121217813`*^9, 3.5681136563752346`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Nij", "]"}]}], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "0", "0", "0", "1.994213110989907`", "0", "0", "0", "0", "0", "0", "2.0444576118277733`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.028809728637461`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.7096631529970923`"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "2.6124145384275566`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "2.6488019484424847`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.9859794077746722`", "2.0398171957850426`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "2.001318099315137`", "0", "0", "1.7520267097044186`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "2.061581200639007`", "0", "0", "0", "0", "1.5094869249700134`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "2.072360037394012`", "0", "0", "0", "0", "1.5092621099799959`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "2.0446542403233976`", "0", "0", "0", "0", "0", "1.509762323909148`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.509750230250112`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "1.6608849867011402`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "1.4638969417167746`", "1.4640212297203268`", "1.4637608556095079`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.567962981745999*^9, {3.5679631957159743`*^9, 3.567963222906822*^9}, 3.5679636229695253`*^9, 3.567963842773911*^9, {3.567963916749241*^9, 3.567963942302086*^9}, 3.567964365577629*^9, 3.5679644627502003`*^9, 3.5679646220108795`*^9, 3.5679647781671543`*^9, {3.568011749232378*^9, 3.56801177862706*^9}, 3.568011890083434*^9, 3.568045910012059*^9, 3.5680459887297974`*^9, 3.5680460605835238`*^9, {3.5680470169900036`*^9, 3.568047033791233*^9}, {3.568047075895707*^9, 3.5680470904037323`*^9}, 3.5680471759386826`*^9, 3.568047371297826*^9, 3.568047427535925*^9, 3.568047494974843*^9, 3.568047575580185*^9, 3.568047846615061*^9, 3.5680480805842714`*^9, 3.568048120754342*^9, 3.568048169145627*^9, 3.568048236802946*^9, 3.5680482921986437`*^9, 3.5680486491116705`*^9, { 3.568048781150302*^9, 3.5680488048467436`*^9}, 3.568048841382008*^9, 3.5680490972848577`*^9, 3.568049134506523*^9, 3.5680492478563223`*^9, 3.568049379255353*^9, 3.5680494328102465`*^9, 3.568049572336892*^9, 3.5680496375450068`*^9, 3.5680497764008503`*^9, 3.568049941995141*^9, 3.568050025470888*^9, 3.568050136527483*^9, {3.568050169661941*^9, 3.5680501845443673`*^9}, 3.5681087387785974`*^9, 3.5681090210922933`*^9, 3.5681096382761774`*^9, 3.568109778146023*^9, 3.5681103340529995`*^9, 3.5681107406677136`*^9, 3.568110889382775*^9, 3.5681110434330454`*^9, 3.5681111298415976`*^9, 3.568111197514516*^9, 3.5681113901124544`*^9, 3.568111441483344*^9, 3.568111560807954*^9, 3.5681117224554377`*^9, 3.568112029978778*^9, 3.568112345723333*^9, 3.568112522487243*^9, 3.56811257775814*^9, 3.568112741215227*^9, 3.568112774708486*^9, 3.5681128493858175`*^9, 3.5681129013183084`*^9, 3.568112974981638*^9, 3.5681132496357203`*^9, 3.568113311006228*^9, 3.5681135121373816`*^9, 3.568113656390835*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tsigma", "=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}}], Cell[BoxData["616.4209133806443`"], "Output", CellChangeTimes->{ 3.5679643655932293`*^9, 3.5679644627658*^9, 3.5679646220264797`*^9, 3.567964778182754*^9, {3.568011749246379*^9, 3.5680117786420603`*^9}, 3.5680118901014357`*^9, 3.5680459100432596`*^9, 3.568045988760998*^9, 3.568046060599124*^9, {3.5680470170212035`*^9, 3.5680470338068333`*^9}, { 3.5680470759113073`*^9, 3.5680470904349327`*^9}, 3.5680471759542828`*^9, 3.568047371313426*^9, 3.568047427567125*^9, 3.568047494990443*^9, 3.568047575595785*^9, 3.5680478466462607`*^9, 3.568048080615472*^9, 3.5680481208167424`*^9, 3.5680481692548275`*^9, 3.5680482368185463`*^9, 3.5680482922142434`*^9, 3.5680486491272707`*^9, {3.568048781165902*^9, 3.568048804862344*^9}, 3.568048841413208*^9, 3.5680490973160577`*^9, 3.568049134522123*^9, 3.568049247871922*^9, 3.568049379286553*^9, 3.5680494328258467`*^9, 3.5680495723524923`*^9, 3.568049637576206*^9, 3.5680497764320507`*^9, 3.5680499420263414`*^9, 3.5680500255020876`*^9, 3.5680501365430827`*^9, {3.568050169677541*^9, 3.5680501845755672`*^9}, 3.568108738794197*^9, 3.568109021107893*^9, 3.568109638291777*^9, 3.568109778161623*^9, 3.5681103340685997`*^9, 3.5681107406833134`*^9, 3.5681108893983746`*^9, 3.568111043448645*^9, 3.5681111298571973`*^9, 3.568111197530116*^9, 3.5681113901280546`*^9, 3.5681114414989443`*^9, 3.568111560823554*^9, 3.568111722471038*^9, 3.568112029994378*^9, 3.5681123457389326`*^9, 3.568112522502843*^9, 3.5681125777737403`*^9, 3.5681127412308273`*^9, 3.5681127747240863`*^9, 3.5681128494014173`*^9, 3.568112901333908*^9, 3.568112974997238*^9, 3.5681132496513205`*^9, 3.5681133110218277`*^9, 3.5681135121529813`*^9, 3.568113656406435*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Pij", "]"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"O\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"O\"\>", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"O\"\>", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"O\"\>", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.062197990453275`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "1.0643976046225592`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "1.0502571207979061`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "1.0603108305837337`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.0446986570390404`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.0419782521399887`", "1.0490140870236`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.0531023931152543`", "0.9280475168654768`", "0", "0", "1.1332373965597302`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.0490645309901037`", "0", "0", "0.9216510356822786`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1639155739346307`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.2208901257255824`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2209810523377198`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.220778768071901`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.220783657507358`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2397553962610586`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2397027706602815`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.239813025061571`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.147191665582771`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5681087388097973`*^9, 3.568109021123493*^9, 3.568109638307377*^9, 3.568109778177223*^9, 3.5681103340841994`*^9, 3.5681107406989136`*^9, 3.568110889413975*^9, 3.5681110434642453`*^9, 3.568111129872797*^9, 3.5681111975457163`*^9, 3.5681113901436543`*^9, 3.5681114415145445`*^9, 3.5681115608391542`*^9, 3.5681117225022383`*^9, 3.5681120300099783`*^9, 3.568112345754533*^9, 3.568112522518443*^9, 3.5681125777893405`*^9, 3.5681127412464275`*^9, 3.568112774739686*^9, 3.568112849432617*^9, 3.5681129013495083`*^9, 3.568112975012838*^9, 3.5681132496669207`*^9, 3.568113311037428*^9, 3.5681135121685815`*^9, 3.5681136564376345`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pij", ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.56811121130494*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", "23"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\<-\>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.062197990453275`"}], SequenceForm["O", 1, "-", "C", 5, " ", 1.062197990453275], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0643976046225592`"}], SequenceForm["C", 5, "-", "C", 6, " ", 1.0643976046225592`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0502571207979061`"}], SequenceForm["C", 5, "-", "C", 7, " ", 1.0502571207979061`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0603108305837337`"}], SequenceForm["C", 6, "-", "C", 8, " ", 1.0603108305837337`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0446986570390404`"}], SequenceForm["C", 7, "-", "C", 9, " ", 1.0446986570390404`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0419782521399887`"}], SequenceForm["C", 8, "-", "C", 10, " ", 1.0419782521399887`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0490140870236`"}], SequenceForm["C", 9, "-", "C", 10, " ", 1.0490140870236], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0531023931152543`"}], SequenceForm["O", 2, "-", "C", 11, " ", 1.0531023931152543`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.9280475168654768`"}], SequenceForm["O", 3, "-", "C", 11, " ", 0.9280475168654768], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1332373965597302`"}], SequenceForm["C", 6, "-", "C", 11, " ", 1.1332373965597302`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.0490645309901037`"}], SequenceForm["O", 1, "-", "C", 12, " ", 1.0490645309901037`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "0.9216510356822786`"}], SequenceForm["O", 4, "-", "C", 12, " ", 0.9216510356822786], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1639155739346307`"}], SequenceForm["C", 12, "-", "C", 13, " ", 1.1639155739346307`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2208901257255824`"}], SequenceForm["C", 7, "-", "H", 14, " ", 1.2208901257255824`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2209810523377198`"}], SequenceForm["C", 8, "-", "H", 15, " ", 1.2209810523377198`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.220778768071901`"}], SequenceForm["C", 9, "-", "H", 16, " ", 1.220778768071901], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.220783657507358`"}], SequenceForm["C", 10, "-", "H", 17, " ", 1.220783657507358], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2397553962610586`"}], SequenceForm["C", 13, "-", "H", 18, " ", 1.2397553962610586`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.2397027706602815`"}], SequenceForm["C", 13, "-", "H", 19, " ", 1.2397027706602815`], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.239813025061571`"}], SequenceForm["C", 13, "-", "H", 20, " ", 1.239813025061571], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"-\"\>", "\[InvisibleSpace]", "\<\"H\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.147191665582771`"}], SequenceForm["O", 2, "-", "H", 21, " ", 1.147191665582771], Editable->False]], "Print", CellChangeTimes->{3.568112345770133*^9, 3.5681125225652432`*^9, 3.5681125778205404`*^9, 3.5681127412776275`*^9, 3.568112774755286*^9, 3.568112849432617*^9, 3.5681129013651085`*^9, 3.568112975044038*^9, 3.56811324969812*^9, 3.568113311053028*^9, 3.568113512184181*^9, 3.5681136564532347`*^9}] }, Open ]] }, Open ]] }, WindowSize->{1557, 789}, WindowMargins->{{156, Automatic}, {Automatic, 22}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 121, 2, 31, "Input"], Cell[703, 26, 5903, 94, 287, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6643, 125, 357, 8, 31, "Input"], Cell[7003, 135, 6208, 126, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13248, 266, 557, 8, 31, "Input"], Cell[13808, 276, 4233, 86, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18078, 367, 724, 11, 31, "Input"], Cell[18805, 380, 3489, 49, 31, "Output"] }, Open ]], Cell[22309, 432, 540, 11, 31, "Input"], Cell[22852, 445, 827, 22, 52, "Input"], Cell[CellGroupData[{ Cell[23704, 471, 564, 9, 31, "Input"], Cell[24271, 482, 3053, 42, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27361, 529, 572, 10, 31, "Input"], Cell[27936, 541, 5244, 101, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33217, 647, 350, 7, 31, "Input"], Cell[33570, 656, 3821, 59, 237, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37428, 720, 2445, 68, 72, "Input"], Cell[39876, 790, 4772, 75, 336, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44685, 870, 597, 9, 31, "Input"], Cell[45285, 881, 18514, 419, 194, "Output"] }, Open ]], Cell[63814, 1303, 1204, 34, 72, "Input"], Cell[CellGroupData[{ Cell[65043, 1341, 4241, 103, 92, "Input"], Cell[69287, 1446, 8162, 134, 341, "Output"] }, Open ]], Cell[77464, 1583, 1935, 49, 52, "Input"], Cell[79402, 1634, 517, 11, 31, "Input"], Cell[CellGroupData[{ Cell[79944, 1649, 1452, 35, 92, "Input"], Cell[81399, 1686, 7818, 130, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89254, 1821, 398, 7, 52, "Input"], Cell[89655, 1830, 7419, 114, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97111, 1949, 1817, 40, 92, "Input"], Cell[98931, 1991, 7469, 115, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[106437, 2111, 1564, 37, 52, "Input"], Cell[108004, 2150, 7050, 109, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115091, 2264, 1108, 29, 52, "Input"], Cell[116202, 2295, 7014, 109, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123253, 2409, 1027, 27, 31, "Input"], Cell[124283, 2438, 1758, 24, 31, "Output"] }, Open ]], Cell[126056, 2465, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[128052, 2504, 1544, 21, 31, "Input"], Cell[129599, 2527, 6469, 108, 356, "Output"] }, Open ]], Cell[136083, 2638, 1582, 22, 52, "Input"], Cell[137668, 2662, 1655, 24, 31, "Input"], Cell[CellGroupData[{ Cell[139348, 2690, 2597, 52, 72, "Input"], Cell[CellGroupData[{ Cell[141970, 2746, 665, 12, 23, "Print"], Cell[142638, 2760, 668, 12, 23, "Print"], Cell[143309, 2774, 668, 12, 23, "Print"], Cell[143980, 2788, 668, 12, 23, "Print"], Cell[144651, 2802, 668, 12, 23, "Print"], Cell[145322, 2816, 670, 12, 23, "Print"], Cell[145995, 2830, 663, 12, 23, "Print"], Cell[146661, 2844, 670, 12, 23, "Print"], Cell[147334, 2858, 669, 12, 23, "Print"], Cell[148006, 2872, 670, 12, 23, "Print"], Cell[148679, 2886, 670, 12, 23, "Print"], Cell[149352, 2900, 669, 12, 23, "Print"], Cell[150024, 2914, 672, 12, 23, "Print"], Cell[150699, 2928, 670, 12, 23, "Print"], Cell[151372, 2942, 670, 12, 23, "Print"], Cell[152045, 2956, 667, 12, 23, "Print"], Cell[152715, 2970, 669, 12, 23, "Print"], Cell[153387, 2984, 672, 12, 23, "Print"], Cell[154062, 2998, 672, 12, 23, "Print"], Cell[154737, 3012, 669, 12, 23, "Print"], Cell[155409, 3026, 667, 12, 23, "Print"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)