(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 85811, 1931] NotebookOptionsPosition[ 83304, 1842] NotebookOutlinePosition[ 83647, 1857] CellTagsIndexPosition[ 83604, 1854] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Excel/Mathematica Baseball model", "Title", CellChangeTimes->{{3.4453457250715*^9, 3.445345737180875*^9}}], Cell[CellGroupData[{ Cell["Get transition matrix - import entire first sheet", "Section", CellChangeTimes->{{3.445344942868375*^9, 3.445344947384*^9}, { 3.445345203009*^9, 3.445345210712125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AA", "=", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "1"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445344859555875*^9, 3.4453449204465*^9}}], Cell["Trim off first 3 rows and first 5 columns.", "Text", CellChangeTimes->{{3.4453449651965*^9, 3.445344990774625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AA0", "=", RowBox[{"Drop", "[", RowBox[{"AA", ",", "3"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445344997134*^9, 3.44534500622775*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"AA1", "=", RowBox[{"Transpose", "[", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Transpose", "[", "AA0", "]"}], ",", "5"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445345009243375*^9, 3.445345030368375*^9}}], Cell["Resize to a 25 x25 array", "Text", CellChangeTimes->{{3.44534505647775*^9, 3.445345067024625*^9}, { 3.44534510835275*^9, 3.445345110399625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MNormal", "=", RowBox[{"Take", "[", RowBox[{"AA1", ",", "25"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445345131462125*^9, 3.44534515885275*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Next get scoring matrix - import entire second sheet", "Section", CellChangeTimes->{{3.445345213618375*^9, 3.445345225930875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"BB", "=", RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "2"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44534524179025*^9, 3.44534526410275*^9}}], Cell["Resize it, too", "Text", CellChangeTimes->{{3.445345270962125*^9, 3.445345273337125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"BB0", "=", RowBox[{"Drop", "[", RowBox[{"BB", ",", "3"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44534528266525*^9, 3.445345287524625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Score", "=", RowBox[{"Transpose", "[", RowBox[{"Drop", "[", RowBox[{ RowBox[{"Transpose", "[", "BB0", "]"}], ",", "3"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445345288899625*^9, 3.445345327509*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Next, build loopback matrix", "Section", CellChangeTimes->{{3.4453453788215*^9, 3.445345383774625*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MLoopback", "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{"Transpose", "[", "MNormal", "]"}], ",", "24"}], "]"}], "]"}], ",", "24"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445345394009*^9, 3.4453454473215*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MLoopback", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{"MLoopback", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Take", "[", RowBox[{ RowBox[{"MNormal", "[", RowBox[{"[", "25", "]"}], "]"}], ",", "24"}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.44534544929025*^9, 3.445345475274625*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Make sure both matrices are valid Markov matrices", "Section", CellChangeTimes->{{3.445345489055875*^9, 3.44534550204025*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ".", "MNormal"}]], "Input", CellChangeTimes->{{3.445345511884*^9, 3.44534552997775*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.44534553135275*^9, 3.44534607479025*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ".", "MLoopback"}]], "Input", CellChangeTimes->{{3.445345511884*^9, 3.445345545634*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.4453455464465*^9, 3.44534607579025*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Now, begin to work with the matrices", "Section", CellChangeTimes->{{3.445345786680875*^9, 3.445345798259*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Stable", "=", RowBox[{ RowBox[{"Eigenvectors", "[", "MLoopback", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.44534555529025*^9, 3.4453456106965*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Stable", "=", RowBox[{"Stable", "/", RowBox[{"Total", "[", "Stable", "]"}]}]}]], "Input", CellChangeTimes->{{3.44534559604025*^9, 3.44534560791525*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2344661019524049`", ",", "0.061596681175255984`", ",", "0.009987235939454775`", ",", "0.0019064867347620366`", ",", "0.02076123089310509`", ",", "0.0009500371105410996`", ",", "0.002764151692972015`", ",", "0.002490590808321042`", ",", "0.166449028302688`", ",", "0.08515399837771766`", ",", "0.01537011147194387`", ",", "0.003325677794330275`", ",", "0.045833237354582425`", ",", "0.003079698192847613`", ",", "0.005808883323989141`", ",", "0.007322754183093164`", ",", "0.12180565800614448`", ",", "0.09198782558538283`", ",", "0.017615882321874856`", ",", "0.00435892185447291`", ",", "0.068979496250653`", ",", "0.005966678953566427`", ",", "0.008382027481235994`", ",", "0.013637604238660578`"}], "}"}]], "Output", CellChangeTimes->{3.445345612962125*^9, 3.445346078930875*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"SolveVV", "[", RowBox[{"A_", ",", "a_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"eval", ",", "evec"}], "}"}], ",", RowBox[{ RowBox[{"eval", "=", RowBox[{"Eigenvalues", "[", "A", "]"}]}], ";", RowBox[{"evec", "=", RowBox[{"Eigenvectors", "[", "A", "]"}]}], ";", RowBox[{ RowBox[{"Transpose", "[", "evec", "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"eval", "^", "n"}], ")"}], "*", RowBox[{"(", RowBox[{ RowBox[{"PseudoInverse", "[", RowBox[{"Transpose", "[", "evec", "]"}], "]"}], ".", "a"}], ")"}]}], ")"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.445166457118375*^9, 3.445166478212125*^9}, { 3.445166511837125*^9, 3.445166581712125*^9}, {3.445346557509*^9, 3.445346558555875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SolveVV", "[", RowBox[{"MNormal", ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", RowBox[{"[", "25", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.445346028899625*^9, 3.445346049587125*^9}, { 3.445346088680875*^9, 3.44534609041525*^9}, {3.4453461273215*^9, 3.44534613135275*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "52.435287707036025`"}], "-", RowBox[{"459.09397776122586`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.033879683723916074`"}], "-", RowBox[{"0.09982612945736032`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"52.4468857246824`", "\[InvisibleSpace]", "-", RowBox[{"459.10304676467285`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.033879683723916074`"}], "+", RowBox[{"0.09982612945736032`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"371.36961684893924`", "\[InvisibleSpace]", "-", RowBox[{"274.9591822306902`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.03387906554105869`"}], "-", RowBox[{"0.09982785806711593`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"371.3716717856386`", "\[InvisibleSpace]", "+", RowBox[{"274.973760961808`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.03387906554105869`"}], "+", RowBox[{"0.09982785806711593`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"423.8063072768884`", "\[InvisibleSpace]", "+", RowBox[{"184.1378284110043`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.033877877603773414`"}], "-", RowBox[{"0.09982645838242653`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"423.8199603401592`", "\[InvisibleSpace]", "-", RowBox[{"184.13231872248875`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.033877877603773414`"}], "+", RowBox[{"0.09982645838242653`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"130.88753618132642`", "\[InvisibleSpace]", "+", RowBox[{"0.020990718435544262`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "0.00004258129063727243`"}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"50.99446912896491`", "\[InvisibleSpace]", "+", RowBox[{"127.63376746795156`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.000024467921473407714`"}], "-", RowBox[{"0.00003724906095796542`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"50.99905149183343`", "\[InvisibleSpace]", "-", RowBox[{"127.59326728431535`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "0.000024467921473407714`"}], "+", RowBox[{"0.00003724906095796542`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"9.06473749893313`", "\[InvisibleSpace]", "-", RowBox[{"0.846099731452785`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4.88771385082151`*^-6"}], "-", RowBox[{"4.925013982189341`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"9.072887076390135`", "\[InvisibleSpace]", "+", RowBox[{"0.8380613921527897`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "4.88771385082151`*^-6"}], "+", RowBox[{"4.925013982189341`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"0.054708213244141476`", "\[InvisibleSpace]", "+", RowBox[{"0.000056031825842805856`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5.254071098911382`*^-13"}], "-", RowBox[{"1.1780966792798077`*^-8", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"0.05470822810875885`", "\[InvisibleSpace]", "-", RowBox[{"0.0000412375050801502`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "5.254071098911382`*^-13"}], "+", RowBox[{"1.1780966792798077`*^-8", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"6.405037945938126`", "\[InvisibleSpace]", "-", RowBox[{"0.8856745962129662`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4.887882556542122`*^-6", "-", RowBox[{"4.853696252144548`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"6.413188282895981`", "\[InvisibleSpace]", "+", RowBox[{"0.8939517825532284`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"4.887882556542122`*^-6", "+", RowBox[{"4.853696252144548`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"93.53915108665`", "\[InvisibleSpace]", "-", RowBox[{"139.9184065613648`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.000021816278611990154`", "\[InvisibleSpace]", "-", RowBox[{"0.000041714948118288924`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"93.5323563330785`", "\[InvisibleSpace]", "+", RowBox[{"139.88429433292072`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.000021816278611990154`", "\[InvisibleSpace]", "+", RowBox[{"0.000041714948118288924`", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"189.2613064848426`", "\[InvisibleSpace]", "-", RowBox[{"0.014348719735389516`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["0.00004788423999941957`", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"517.1589652412838`", "\[InvisibleSpace]", "-", RowBox[{"895.7288961647573`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.06775679824393131`", "\[InvisibleSpace]", "-", RowBox[{"1.6506410957230015`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"517.1355279935323`", "\[InvisibleSpace]", "+", RowBox[{"895.7424275028857`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.06775679824393131`", "\[InvisibleSpace]", "+", RowBox[{"1.6506410957230015`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1034.3123767024615`", "\[InvisibleSpace]", "+", RowBox[{"0.01353158218790141`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["0.06775965724963315`", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"2.3180804372410694`*^10", "-", RowBox[{"9125.021234539687`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["0.3230061615523541`", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.1590394283453682`*^10", "-", RowBox[{"2.007513901598195`*^10", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.3230088125988302`", "\[InvisibleSpace]", "-", RowBox[{"1.5305932589034433`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.1590410088458233`*^10", "+", RowBox[{"2.007512989096072`*^10", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"0.3230088125988302`", "\[InvisibleSpace]", "+", RowBox[{"1.5305932589034433`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{"0.4966310157756072`", "\[InvisibleSpace]", "-", RowBox[{"6.80300173595046`*^-6", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["1.`", "n"]}]}]], "Output", CellChangeTimes->{3.44534609197775*^9, 3.4453461324465*^9, 3.44534656354025*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Out", "[", "16", "]"}], "/.", RowBox[{"n", "\[Rule]", "3"}]}]], "Input", CellChangeTimes->{{3.445346146024625*^9, 3.445346167805875*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", "8.197122233515637`"}], "-", RowBox[{"23.58389362734094`", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{{3.44534615097775*^9, 3.44534616822775*^9}, 3.445346565009*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Eigenvalues", "[", "MNormal", "]"}]], "Input", CellChangeTimes->{{3.445346181259*^9, 3.44534619822775*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1.`", ",", RowBox[{"0.3230088125988302`", "\[InvisibleSpace]", "+", RowBox[{"1.5305932589034433`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"0.3230088125988302`", "\[InvisibleSpace]", "-", RowBox[{"1.5305932589034433`*^-6", " ", "\[ImaginaryI]"}]}], ",", "0.3230061615523541`", ",", RowBox[{ RowBox[{"-", "0.03387906554105869`"}], "+", RowBox[{"0.09982785806711593`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.03387906554105869`"}], "-", RowBox[{"0.09982785806711593`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.033879683723916074`"}], "+", RowBox[{"0.09982612945736032`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.033879683723916074`"}], "-", RowBox[{"0.09982612945736032`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.033877877603773414`"}], "+", RowBox[{"0.09982645838242653`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.033877877603773414`"}], "-", RowBox[{"0.09982645838242653`", " ", "\[ImaginaryI]"}]}], ",", "0.06775965724963315`", ",", RowBox[{"0.06775679824393131`", "\[InvisibleSpace]", "+", RowBox[{"1.6506410957230015`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"0.06775679824393131`", "\[InvisibleSpace]", "-", RowBox[{"1.6506410957230015`*^-6", " ", "\[ImaginaryI]"}]}], ",", "0.00004788423999941957`", ",", RowBox[{"0.000021816278611990154`", "\[InvisibleSpace]", "+", RowBox[{"0.000041714948118288924`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"0.000021816278611990154`", "\[InvisibleSpace]", "-", RowBox[{"0.000041714948118288924`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.000024467921473407714`"}], "+", RowBox[{"0.00003724906095796542`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "0.000024467921473407714`"}], "-", RowBox[{"0.00003724906095796542`", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"-", "0.00004258129063727243`"}], ",", RowBox[{ RowBox[{"-", "4.88771385082151`*^-6"}], "+", RowBox[{"4.925013982189341`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "4.88771385082151`*^-6"}], "-", RowBox[{"4.925013982189341`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"4.887882556542122`*^-6", "+", RowBox[{"4.853696252144548`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{"4.887882556542122`*^-6", "-", RowBox[{"4.853696252144548`*^-6", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "5.254071098911382`*^-13"}], "+", RowBox[{"1.1780966792798077`*^-8", " ", "\[ImaginaryI]"}]}], ",", RowBox[{ RowBox[{"-", "5.254071098911382`*^-13"}], "-", RowBox[{"1.1780966792798077`*^-8", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.44534618835275*^9, 3.445346198962125*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"MNormalHigh", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{"MNormal", " ", RowBox[{"10", "^", "20"}]}], "]"}], "/", RowBox[{"10", "^", "20"}]}], ",", "200"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445346399587125*^9, 3.44534640904025*^9}, { 3.445347021868375*^9, 3.4453470258215*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"MLoopbackHigh", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"Floor", "[", RowBox[{"MLoopback", " ", RowBox[{"10", "^", "20"}]}], "]"}], "/", RowBox[{"10", "^", "20"}]}], ",", "200"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445346411884*^9, 3.445346433118375*^9}, { 3.44534703060275*^9, 3.445347034212125*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"ProbLengthN", "=", RowBox[{"FullSimplify", "[", RowBox[{ RowBox[{"SolveVV", "[", RowBox[{"MNormalHigh", ",", RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}], "[", RowBox[{"[", "25", "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445346028899625*^9, 3.445346049587125*^9}, { 3.445346088680875*^9, 3.44534609041525*^9}, {3.4453461273215*^9, 3.44534613135275*^9}, {3.445346456462125*^9, 3.445346457009*^9}, { 3.445346702212125*^9, 3.445346715524625*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ProbLengthN", "/.", RowBox[{"n", "\[Rule]", "3"}]}]], "Input", CellChangeTimes->{{3.4453464743215*^9, 3.44534647797775*^9}, { 3.445346515149625*^9, 3.445346515462125*^9}, {3.445346623384*^9, 3.445346642743375*^9}, {3.445346724680875*^9, 3.44534672697775*^9}}], Cell[BoxData[ RowBox[{"0.\ 314868237297137304916108015824074909715287333064236158342368262035259344943578\ 94790454922862187`61.68667335792871", "-", RowBox[{ "2.442558500491446802923587857741324594`2.6388588474364645*^-60", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{ 3.445346478430875*^9, 3.445346516149625*^9, 3.44534657991525*^9, { 3.44534662485275*^9, 3.4453466431965*^9}, 3.445346728134*^9, 3.445347042618375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["ProbLengthN"], "Input", CellChangeTimes->{{3.445346774868375*^9, 3.44534677779025*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "-", "3.29869177789189532249490363602435210355999525674515644367136115567\ 292945333726259938087083519917542089304608836274257760447452565730355616090090\ 912422517938295105832426585761086619215588820185700518655326386765049238815`\ 199.1832202795242*^123"}], "-", RowBox[{ "3.9184624977982795638278905777906737711029637662688935018671713658438099\ 640505224706034994673996433074670285103359675536346678235054295588284515884872\ 69093848398184938659330533638701761262043711739992688561965662923449422`199.\ 35106075850553*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431508429462059776188532524994180222628982534642433153008103630888200595892761\ 444007201846540065523392270688014770190540770733555004390564165676679112306519\ 99578198712`200."}], "-", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 130281685756297639678281672906258564048519828568227449399734700239476976427143\ 040401896169580694135114391518468358186560237372156185389527483677437150832795\ 25068`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "3.29869177789189532249490363602435210355999525674515644367137752844182317\ 969653334143669456773260377281353661210203470960043774308120850351490325784662\ 6450631869841611537455343450002547410514007544580382182955168432768861`199.\ 1832202795242*^123", "-", RowBox[{ "3.9184624977982795638278905777906737711029637662688935018671771419560662\ 373004887598998309125836727171234232456366390205137912319648000434567569357732\ 29397040300799033690648240319168355945377139932514368054395732698463678`199.\ 35106075850553*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431508429462059776188532524994180222628982534642433153008103630888200595892761\ 444007201846540065523392270688014770190540770733555004390564165676679112306519\ 99578198712`200."}], "+", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 130281685756297639678281672906258564048519828568227449399734700239476976427143\ 040401896169580694135114391518468358186560237372156185389527483677437150832795\ 25068`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.74414217792398742989054234773248839956016008636704517572240209746277659\ 908116474932018439439473622894150197977508730169359649563909781743067258088108\ 3348482305660290554433753893846816072891109220863795902024946600740774`199.\ 32620183804454*^123", "-", RowBox[{ "4.8159821278083762333515476208293658946927436311318169988083531940239327\ 003963137985436949552428355474114396640248851791131450210656594263060341682762\ 11156236951601222886916615571413801882490479471225182899116243277990293`199.\ 33947439750006*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431508162466100850340054955514334062914028192907208879566737054509735588022390\ 169650247179640534575195230961870449947802163865681936380201749992510081406610\ 62098971326`200."}], "-", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 095711695981703177911675046033184450536048713565485184907551120332410387050634\ 069145405626096759807189251596664868630422739069912612765226490861977399984325\ 068212`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.74414217792398742989054234773248839956016008636704517572239891333827877\ 918779142006051911578912006089782816091028171226348812098567746099931903685352\ 7250757828137999064070438284200069136459621367683804222703114889227885`199.\ 32620183804454*^123", "+", RowBox[{ "4.8159821278083762333515476208293658946927436311318169988083702613138530\ 956884308802529988464831008884813823789239957169972449895036872879319131273250\ 69886073216311989840546932239471415820104110592833582287381701659589273`199.\ 33947439750006*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431508162466100850340054955514334062914028192907208879566737054509735588022390\ 169650247179640534575195230961870449947802163865681936380201749992510081406610\ 62098971326`200."}], "+", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 095711695981703177911675046033184450536048713565485184907551120332410387050634\ 069145405626096759807189251596664868630422739069912612765226490861977399984325\ 068212`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.04283395581588275238544598375684050312015534311220161939376325313570605\ 241842734870105522959391164983454806813782987929807103433088200345761087016769\ 3328403764807841542340273014175342869065011211757446059053778971871144`199.\ 35689367839277*^123", "-", RowBox[{ "8.9751963001009666952365704303869212358977986486292349694118182818012273\ 634579132794019548784319223994441115368891762547847715374331994448401079719114\ 2375532415574086010544385363446871638209959573860122988495559790765546`198.\ 76337722559956*^122", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431507996579186779593454636132027432069771655652861183174033765891339968087848\ 883820905381483794178768098468517178438212120999141879309768162765273718898436\ 83624145592`200."}], "-", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 136119219182757541156500403344289407261253842902749858523999584958688990751779\ 035581050231759556781596515019461961145974572515588839886942665739968008830853\ 240805`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.04283395581588275238544598375684050312015534311220161939377644178010195\ 888432476149721368352172383371136477301231642186392587710136659438025967486253\ 8501928206068837323574689988338987551285240799676035806179261354020081`199.\ 35689367839277*^123", "+", RowBox[{ "8.9751963001009666952365704303869212358977986486292349694119311935778685\ 838794212035316793389942817135795913328735669648345371372197732148158440895404\ 0802176777670757932856995351037890785449483978234849547469936071818356`198.\ 76337722559956*^122", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.0338788756229159713772346371354983553551243763143966837831445877\ 431507996579186779593454636132027432069771655652861183174033765891339968087848\ 883820905381483794178768098468517178438212120999141879309768162765273718898436\ 83624145592`200."}], "+", RowBox[{ "0.099826815302300750551275462320824345443498849022360157166875476413672\ 136119219182757541156500403344289407261253842902749858523999584958688990751779\ 035581050231759556781596515019461961145974572515588839886942665739968008830853\ 240805`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.96359845532752781355428039609406090072459772431782930426536239519281858\ 470756892950866039768199818531004199786177625295885999257621273155622170134441\ 5599351203782433368401786633218916098870996846706940241272057389606415`199.\ 39794000867195*^142", "-", RowBox[{ "2.2704327927132165630578925200180666135534769255303385953103112717572727\ 322149591563727191298377889350663331709218882022365034000692208396105036335620\ 666967890313998396028572856106972340200818252778387447096732163556971856935669\ 4254302544`199.32048247528726*^82", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "1.64304128845860292327909442320209892625949301623923252107410486364\ 907261924041534297993469131086790463897751140526294399454680064261241956217630\ 558394045766105808746869343285418148457165042192519304059979692591044351458252\ `200.*^-10"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.98179922766376390677714019804703045036229886215891465213267923134393321\ 745971953233164975722080858377379039625131057272896806869375441199695123835411\ 8890140936979487217545686591019892549776888861490993091934659972462925`199.\ 39794000867195*^142", "-", RowBox[{ "5.1646277602832768738664102683942708696140363334080140950032486144159470\ 000436938681348116913978035220942440338019443176638746081030524017904962042865\ 87984553094559406386005523327005075331240752352222511235196501193621053`199.\ 39794000867195*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "1.6430412884586029232790944232020989262594930162392325210741033320\ 323185624235439448605394914373991665343925453893155142572776580115235597561709\ 102589825881066635349698391139785978775769080687950679083578960660576165886820\ 6`200.*^-10"}], "-", RowBox[{ "8.842793452500440599084874400841172040692695106233334055408497404201783\ 219021222064118787778237366708995256102213494074679573758754355364628896933220\ 880205574305792631776834152092235422486146200160257975469882380748052707865992\ 328937088096`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.98179922766376390677714019804703045036229886215891465213268316384888536\ 724784939717701064046118960153625160161046568021562288111410705247261446291460\ 7549356757562793935286483426963905681727118485759007738433330864815633`199.\ 39794000867195*^142", "+", RowBox[{ "5.1646277602832768738664102683942708696140363334080140950032463439831542\ 868271308102422916733311899686173185034633490073526028508303201868313398315674\ 58146764159493073215083635124774004366936518319058070127459108076521563`199.\ 39794000867195*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "1.6430412884586029232790944232020989262594930162392325210741033320\ 323185624235439448605394914373991665343925453893155142572776580115235597561709\ 102589825881066635349698391139785978775769080687950679083578960660576165886820\ 6`200.*^-10"}], "+", RowBox[{ "8.842793452500440599084874400841172040692695106233334055408497404201783\ 219021222064118787778237366708995256102213494074679573758754355364628896933220\ 880205574305792631776834152092235422486146200160257975469882380748052707865992\ 328937088096`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.85166326090227596201326379319211997404281655271517840991118539059244920\ 018586639904467579185933752907095124683448484391259808572654934141727836358703\ 294000268906533323557031815951939425424749642467894212188276880124966338836982\ 65`199.39794000867195*^56", "+", RowBox[{ "0.0066674933237385596951895818739828369597890338588032303306213359499302\ 156933824886236179282004092877264524537016579106673992706942529643170976620857\ 155229750907645790415043631460174919169942280726490231358667515182857417941321\ 63286`199.2622768853475", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "2.02454404280351335092106426300275370574522780387467834286569072079\ 986149744916744207415359741149401497396983112472271332430898716525042859270744\ 121579267698264811904634797726785819490209726488721638335126557526683293803564\ 2613151827`200.*^-58"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.31459372873026148570393344355199220144054269258489506933004944579803935\ 562350026811226135843501024726642003551024979983537829735830407611196003284831\ 76847312518844221410200855341332365958306451283841852228470508858977985823835`\ 198.82281759629885*^15", "-", RowBox[{ "6.5186275606512777857821003024361522030940364025762577336946807124304128\ 818220402178576721895625918508922216424179791782334327655383745611785347219606\ 551162694092072529633820622340989227095641995825914812410659325746814160585982\ `199.27800658106315*^-44", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "1.41222481147326061702451025657800726326424685381628238206147834698\ 996347761479181438457241958185795603669484654901073766443080888819579700412921\ 036094375348653144312487951224456648386336266572365978639694764156343870204159\ `200.*^-106"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.31459372873026148570393344355199220144054269258489506933004944579803935\ 562350026811224201443599775747016627788664468552316586583408747737667796431195\ 044712999667023249352870927866302697936110395777191600953097973174151249769818\ `198.82281759629885*^15", "-", RowBox[{ "6.5186275606512777857821003024361522030940364025762577336946807124304128\ 818220402178575762691863263887365557254548539418435932943372513755307939807884\ 03174736296115673921319591207775987802273799904654947050635554984203373549683`\ 199.27800658106315*^-44", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "1.41222481147326061702451025657800726326424685381628238206147834698996347\ 761479181438455181595190306716977106010715740069305912937069619897190754270043\ 220702856604457890486995092541698261118873973838716849501922261296348137`200.*^\ -106", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "6.00369287721973826906963861284701468722551848146852892763066669098922814\ 765236915012839197023778953923238667382872998341283315823447659450104991063818\ 340584540560964759683502756583590618328003178407716049063289544966872285949217\ `199.31266417570808*^15", "-", RowBox[{ "2.8516632609022759620132637931921199740427565157864062125285613691395581\ 156359460362611958588070531272445037231746408443291219451572045212266406628710\ 160383848085029251394693473059709682721554272822653619323403548948260946467455\ 411`199.39794000867195*^56", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "4.1186364753577279360431815096453335599366432457044428415906555361590661\ 732303273192384885890139194812946200441362508743006069739845787375019496808908\ 902727119875325235486600621607368750515494780822240420431123386492567211231847\ 9`200.*^-100", "-", RowBox[{ "2.024544042803513350921064263002753705745223685238202985137754677618351\ 852115607505423906437405305557321357562709638311625263450344951692063631437024\ 521003077328837198268907913614667309471655849161888375289020059965029466939693\ 37238`200.*^-58", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "6.00369287721973825573465196536989529684635473350285500805271878997208968\ 325488170356397266484361863358110904476091629383407837059070961673923468580096\ 304466147728395471122341853214521495108039833752153301105204363715819484056335\ `199.31266417570808*^15", "+", RowBox[{ "2.8516632609022759620132637931921199740427565157864062125285613691395581\ 156359460362611958588070531284426696163966092961736549052780182292899384825864\ 279119606882518487505492316761431881149568711976597457533400888175698825560636\ 9`199.39794000867195*^56", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "4.1186364753577279360431815096453335599366432457044428415906555361590661\ 732303273192384885890139194812946200441362508743006069739845787375019496808908\ 902727119875325235486600621607368750515494780822240420431123386492567211231847\ 9`200.*^-100", "+", RowBox[{ "2.024544042803513350921064263002753705745223685238202985137754677618351\ 852115607505423906437405305557321357562709638311625263450344951692063631437024\ 521003077328837198268907913614667309471655849161888375289020059965029466939693\ 37238`200.*^-58", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.85166326090227596201326379319211997404269647885763401514593734768666703\ 108602568031252607801998069521614163367845876742692907456954802604176598785544\ 729333862065946213013539239538146848105942890476846405710523306070116928053354\ 63`199.39794000867195*^56", "+", RowBox[{ "0.0066674933237385596951895818739828369597889140422139081337761514966342\ 036120116822938359566592219301384775613406020222553929977852470348699020317308\ 834423854933716653381459548563533538101222835760501243044163248699742147954548\ 28769`199.2622768853475", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "2.02454404280351335092106426300275370574521956660172762740981863443684220\ 678204756878766218852581083366289751299237625266967051018807248504578108203038\ 153595825115712483774719198984378759096460844004868612420629139281935232634814\ 2369`200.*^-58", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.98176200314388217396795144725378294775938018982918700377833039900160196\ 917033720482967530997885027052457356432520823205614577215155383949432659775729\ 1533587548072113716608105940805621778071399770946595572383814269429768`199.\ 39794000837688*^142", "+", RowBox[{ "5.1645632855235543548255733367900381279236750650106434740460796147682870\ 438897213356916093348317094589831910666243008752217787442720998534187944667192\ 82664320680856337648195532122187525878815382126875559871362648725880822`199.\ 39794000837693*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "1.6430412916710666690539412878565467358884829004480672918236966346545022\ 238240550020047835933131745895673292141300456736925188581269739825971242677808\ 5767565554644881535028643333541715813708311911365534246208250779903754921`200.\ *^-10", "-", RowBox[{ "8.842861374304936956765913707327066865610023360377239654252748999457223\ 150414636148278762598161768882359505964390347199424980979388237126089014328224\ 979503023420199090508758844389298951539105800759502051435371703635379320588232\ 705236135977`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.98176200314388217396795144725378294775938018982918700377832646654610244\ 345115060393293380154173540283135654201233836980249412393883490777916577070493\ 0546514749139342135129617814191105264063815108676500151352053989132049`199.\ 39794000837688*^142", "-", RowBox[{ "5.1645632855235543548255733367900381279236750650106434740460818851725282\ 712879466339515990563408106608653707572237802608678890519537321085855993335693\ 45265985845721581584988486195857608147155430174362455641196783063316987`199.\ 39794000837693*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "1.6430412916710666690539412878565467358884829004480672918236966346545022\ 238240550020047835933131745895673292141300456736925188581269739825971242677808\ 5767565554644881535028643333541715813708311911365534246208250779903754921`200.\ *^-10", "+", RowBox[{ "8.842861374304936956765913707327066865610023360377239654252748999457223\ 150414636148278762598161768882359505964390347199424980979388237126089014328224\ 979503023420199090508758844389298951539105800759502051435371703635379320588232\ 705236135977`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "5.96352400628776434793590289450756589551876037965837400755665686554770441\ 262148780876260911152058567335593010633754660187290893619434411772620077623036\ 8684601556444286820529477332461271484921018886293700478553739700638537`199.\ 39794000837688*^142", "-", RowBox[{ "2.2704042412273982252982599897215091012018821796905994793856461103076816\ 322551668048668500626016651648652439367929540736755147150310975970697717431884\ 223613435268120613814419225693667358811904724630104051058819400419384304918341\ 7636525859`199.32048239019537*^82", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "1.64304129167106666905394128785654673588848290044806729182369816628302068\ 227387157235599556227203779628934695727712320342396186235498591613554133934300\ 049302785942120077358502906445245588131190045558599403478958654435833095`200.*^\ -10", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.00262211802504478012637562909532976256492918499334880822483419040655780\ 382762902421179446763544700523054944177995604221726827947938988522402209852380\ 979801357620356943283999054840491163838312266967171784867502276521125183314964\ 25399297`199.31530360903224*^120", "-", RowBox[{ "8.6598816460728472724897383006554553701672952244326324351544736030113809\ 218007086056850495395323239137440964259987083663842102942767070714165822810404\ 062672527446833988180443649935843197827727884365832905271331829783140970766090\ 053179`199.02011440827798*^59", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "0.06775775124583194607934847158178057153622925725934352327418562534640234\ 171967546193229831965585093716393406004219764333672580931606768421216021600364\ 390864775135070397658629252741673401824651174356059996858769264044956602229291\ 1911`200.", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.01311059012522390063187814547664881282464592496674404112416345235528975\ 345137902629474626794676668814615057802638178415927330628837076501689251955876\ 835361401431295537374927686250357691906383997207042821778027690686422844855936\ 7296797`199.31530360903224*^119", "-", RowBox[{ "8.6829622460584850728093490957347510029798580641636985389684451569821376\ 622408893965116397977321342394048544046335580748163557516133128403652694887172\ 215690177644280579106611434557941414523148730256113796314545775563653453213189\ 32499053`199.3153036090323*^119", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.0677577512458319460793484715817805715362292572593435232741856253464066\ 427222630137570644934869228374584780239784793524725487429771118340503441497597\ 802172524368734892371587757987303035223359118858549938013099601695689698084366\ 60917`200.", "-", RowBox[{ "2.483185001708322984011665353389802552005300029602444848688226203134431\ 944576895787284521293948305865311565633589909240479598735842461808402213861575\ 3970781931246194450501811558316123486322279969009388726294956352626001544`200.\ *^-69", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.01311059012522390063187814547664881282464592496674404112417845171028828\ 482491121582319840840770336415934383977317863801541292771069047125178110265028\ 740529125263703821357802267748833706050110297104538611454779634739547341496194\ 3057243`199.31530360903224*^119", "+", RowBox[{ "8.6829622460584850728093490957347510029798580641636985389684364971004915\ 893936169067733391422767640721096299720011229203427527402323910396566638036676\ 820366938506839614846624350894070465495127393646166330237510932635947398797535\ 62145072`199.3153036090323*^119", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.0677577512458319460793484715817805715362292572593435232741856253464066\ 427222630137570644934869228374584780239784793524725487429771118340503441497597\ 802172524368734892371587757987303035223359118858549938013099601695689698084366\ 60917`200.", "+", RowBox[{ "2.483185001708322984011665353389802552005300029602444848688226203134431\ 944576895787284521293948305865311565633589909240479598735842461808402213861575\ 3970781931246194450501811558316123486322279969009388726294956352626001544`200.\ *^-69", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.19378314302282937275112374024434548657838930049507334556442192721135041\ 604243188712488643798924554840047744808859951936136155699563135471496539827707\ 125337115616661334573452806123572699563241467885705713813829023994378504787055\ 4094218`199.29660560651308*^138", "+", RowBox[{ "5.9093079097195292974774439383355931405720320223610733602910302756159913\ 814070413641773725848942650127488095517485863556078809795651291535356474372565\ 801183238479270940200946450921304118994321714409654710653983134214741501085988\ 930558`199.39794000867113*^78", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "0.32300792891667077009387442811173145270857471440655085587122007306493675\ 044811783893226281890394593317931315147030338638464401650026880271730965724179\ 002186513485590012085895995867811967982879960321725675806040387372491011315855\ 9835`200.", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.96891571511414686375561870122172743289194650247536672782216081216443809\ 453692772325888962925630589950847931097534684060201681660024264034418255301606\ 332575345036330873237736486277327684835600507347589265357756973949562699636810\ 064859`199.29660560651308*^137", "-", RowBox[{ "1.0338465284674020789792016232786985747877153510171765792521923006099240\ 278845575696458992213229947815663676993272453783411147246245656879191246372130\ 667701149135333968604162720216985245907374211447855082730268798517777972017535\ 76172888`199.29660560651303*^138", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.3230079289166707700938744281117314527085747144065508558712200730649372\ 746506593071311352317140054453955405716997083150739877603286526645880572462525\ 746708174189404210457723670429550709162839148038978863172169593115646304969372\ 35185`200.", "-", RowBox[{ "3.026484784265505816165785445150619172548655439126804980697416055459132\ 714913046941942553889113735957500331138782453559564419096594931764260482290736\ 511838050297919521074050594228428517705498679045110492320207982573845343`200.*^\ -70", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.96891571511414686375561870122172743289194650247536672782205845994906606\ 588739114798997475063614958449629516991064835301159875335607090679418671116178\ 945414817310749381204851290824772797383891378547784466176113532457772145091583\ 523785`199.29660560651308*^137", "+", RowBox[{ "1.0338465284674020789792016232786985747877153510171765792521982099178337\ 474138550470898375569161353535983900604006056693713903406159470949604888145856\ 516643799262822064121648583773064055703025502983207278444562385707600615795952\ 54184701`199.29660560651303*^138", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.3230079289166707700938744281117314527085747144065508558712200730649372\ 746506593071311352317140054453955405716997083150739877603286526645880572462525\ 746708174189404210457723670429550709162839148038978863172169593115646304969372\ 35185`200.", "+", RowBox[{ "3.026484784265505816165785445150619172548655439126804980697416055459132\ 714913046941942553889113735957500331138782453559564419096594931764260482290736\ 511838050297919521074050594228428517705498679045110492320207982573845343`200.*^\ -70", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "1.00000000000000020768604343043091922745948137653136745939604083045824105\ 618666300423973642403908724395629984397603602392503756169684614296520975569704\ 635931353704494765577468737759154161981561688414354588440996770206895512201526\ 3865`199.29660560651308", "+", RowBox[{ "1.0013357998220317840578187007807928833023481286816155153167219957972693\ 044227420561802012083053657963937622701353956548489593610056907510330137709757\ 878364909718886815712547799626088336974719272041934495307052332895246392817723\ 109`199.39794000866772*^-60", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["1.`200.", "n"]}]}]], "Output", CellChangeTimes->{3.445346782930875*^9, 3.44534705547775*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PLN", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "-", "3.2986917778918953224949036360243521035599952567451564436713611556\ 729294533372625993808708351991754208930460883627425776044745256573035561609009\ 0912422517938295105832426585761086619215588820185700518655326386765049238815`\ 199.1832202795242*^123"}], "-", RowBox[{ "3.918462497798279563827890577790673771102963766268893501867171365843809\ 964050522470603499467399643307467028510335967553634667823505429558828451588487\ 269093848398184938659330533638701761262043711739992688561965662923449422`199.\ 35106075850553*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150842946205977618853252499418022262898253464243315300810363088820059589276\ 144400720184654006552339227068801477019054077073355500439056416567667911230651\ 999578198712`200."}], "-", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 213028168575629763967828167290625856404851982856822744939973470023947697642714\ 304040189616958069413511439151846835818656023737215618538952748367743715083279\ 525068`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "3.2986917778918953224949036360243521035599952567451564436713775284418231\ 796965333414366945677326037728135366121020347096004377430812085035149032578466\ 26450631869841611537455343450002547410514007544580382182955168432768861`199.\ 1832202795242*^123", "-", RowBox[{ "3.918462497798279563827890577790673771102963766268893501867177141956066\ 237300488759899830912583672717123423245636639020513791231964800043456756935773\ 229397040300799033690648240319168355945377139932514368054395732698463678`199.\ 35106075850553*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150842946205977618853252499418022262898253464243315300810363088820059589276\ 144400720184654006552339227068801477019054077073355500439056416567667911230651\ 999578198712`200."}], "+", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 213028168575629763967828167290625856404851982856822744939973470023947697642714\ 304040189616958069413511439151846835818656023737215618538952748367743715083279\ 525068`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.7441421779239874298905423477324883995601600863670451757224020974627765\ 990811647493201843943947362289415019797750873016935964956390978174306725808810\ 83348482305660290554433753893846816072891109220863795902024946600740774`199.\ 32620183804454*^123", "-", RowBox[{ "4.815982127808376233351547620829365894692743631131816998808353194023932\ 700396313798543694955242835547411439664024885179113145021065659426306034168276\ 211156236951601222886916615571413801882490479471225182899116243277990293`199.\ 33947439750006*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150816246610085034005495551433406291402819290720887956673705450973558802239\ 016965024717964053457519523096187044994780216386568193638020174999251008140661\ 062098971326`200."}], "-", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 209571169598170317791167504603318445053604871356548518490755112033241038705063\ 406914540562609675980718925159666486863042273906991261276522649086197739998432\ 5068212`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.7441421779239874298905423477324883995601600863670451757223989133382787\ 791877914200605191157891200608978281609102817122634881209856774609993190368535\ 27250757828137999064070438284200069136459621367683804222703114889227885`199.\ 32620183804454*^123", "+", RowBox[{ "4.815982127808376233351547620829365894692743631131816998808370261313853\ 095688430880252998846483100888481382378923995716997244989503687287931913127325\ 069886073216311989840546932239471415820104110592833582287381701659589273`199.\ 33947439750006*^123", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150816246610085034005495551433406291402819290720887956673705450973558802239\ 016965024717964053457519523096187044994780216386568193638020174999251008140661\ 062098971326`200."}], "+", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 209571169598170317791167504603318445053604871356548518490755112033241038705063\ 406914540562609675980718925159666486863042273906991261276522649086197739998432\ 5068212`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.0428339558158827523854459837568405031201553431122016193937632531357060\ 524184273487010552295939116498345480681378298792980710343308820034576108701676\ 93328403764807841542340273014175342869065011211757446059053778971871144`199.\ 35689367839277*^123", "-", RowBox[{ "8.975196300100966695236570430386921235897798648629234969411818281801227\ 363457913279401954878431922399444111536889176254784771537433199444840107971911\ 42375532415574086010544385363446871638209959573860122988495559790765546`198.\ 76337722559956*^122", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150799657918677959345463613202743206977165565286118317403376589133996808784\ 888382090538148379417876809846851717843821212099914187930976816276527371889843\ 683624145592`200."}], "-", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 213611921918275754115650040334428940726125384290274985852399958495868899075177\ 903558105023175955678159651501946196114597457251558883988694266573996800883085\ 3240805`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.0428339558158827523854459837568405031201553431122016193937764417801019\ 588843247614972136835217238337113647730123164218639258771013665943802596748625\ 38501928206068837323574689988338987551285240799676035806179261354020081`199.\ 35689367839277*^123", "+", RowBox[{ "8.975196300100966695236570430386921235897798648629234969411931193577868\ 583879421203531679338994281713579591332873566964834537137219773214815844089540\ 40802176777670757932856995351037890785449483978234849547469936071818356`198.\ 76337722559956*^122", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "0.033878875622915971377234637135498355355124376314396683783144587\ 743150799657918677959345463613202743206977165565286118317403376589133996808784\ 888382090538148379417876809846851717843821212099914187930976816276527371889843\ 683624145592`200."}], "+", RowBox[{ "0.09982681530230075055127546232082434544349884902236015716687547641367\ 213611921918275754115650040334428940726125384290274985852399958495868899075177\ 903558105023175955678159651501946196114597457251558883988694266573996800883085\ 3240805`200.", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.9635984553275278135542803960940609007245977243178293042653623951928185\ 847075689295086603976819981853100419978617762529588599925762127315562217013444\ 15599351203782433368401786633218916098870996846706940241272057389606415`199.\ 39794000867195*^142", "-", RowBox[{ "2.270432792713216563057892520018066613553476925530338595310311271757272\ 732214959156372719129837788935066333170921888202236503400069220839610503633562\ 066696789031399839602857285610697234020081825277838744709673216355697185693566\ 94254302544`199.32048247528726*^82", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "1.6430412884586029232790944232020989262594930162392325210741048636\ 490726192404153429799346913108679046389775114052629439945468006426124195621763\ 055839404576610580874686934328541814845716504219251930405997969259104435145825\ 2`200.*^-10"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.9817992276637639067771401980470304503622988621589146521326792313439332\ 174597195323316497572208085837737903962513105727289680686937544119969512383541\ 18890140936979487217545686591019892549776888861490993091934659972462925`199.\ 39794000867195*^142", "-", RowBox[{ "5.164627760283276873866410268394270869614036333408014095003248614415947\ 000043693868134811691397803522094244033801944317663874608103052401790496204286\ 587984553094559406386005523327005075331240752352222511235196501193621053`199.\ 39794000867195*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "1.643041288458602923279094423202098926259493016239232521074103332\ 032318562423543944860539491437399166534392545389315514257277658011523559756170\ 910258982588106663534969839113978597877576908068795067908357896066057616588682\ 06`200.*^-10"}], "-", RowBox[{ "8.84279345250044059908487440084117204069269510623333405540849740420178\ 321902122206411878777823736670899525610221349407467957375875435536462889693322\ 088020557430579263177683415209223542248614620016025797546988238074805270786599\ 2328937088096`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.9817992276637639067771401980470304503622988621589146521326831638488853\ 672478493971770106404611896015362516016104656802156228811141070524726144629146\ 07549356757562793935286483426963905681727118485759007738433330864815633`199.\ 39794000867195*^142", "+", RowBox[{ "5.164627760283276873866410268394270869614036333408014095003246343983154\ 286827130810242291673331189968617318503463349007352602850830320186831339831567\ 458146764159493073215083635124774004366936518319058070127459108076521563`199.\ 39794000867195*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ "-", "1.643041288458602923279094423202098926259493016239232521074103332\ 032318562423543944860539491437399166534392545389315514257277658011523559756170\ 910258982588106663534969839113978597877576908068795067908357896066057616588682\ 06`200.*^-10"}], "+", RowBox[{ "8.84279345250044059908487440084117204069269510623333405540849740420178\ 321902122206411878777823736670899525610221349407467957375875435536462889693322\ 088020557430579263177683415209223542248614620016025797546988238074805270786599\ 2328937088096`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "2.8516632609022759620132637931921199740428165527151784099111853905924492\ 001858663990446757918593375290709512468344848439125980857265493414172783635870\ 329400026890653332355703181595193942542474964246789421218827688012496633883698\ 265`199.39794000867195*^56", "+", RowBox[{ "0.006667493323738559695189581873982836959789033858803230330621335949930\ 215693382488623617928200409287726452453701657910667399270694252964317097662085\ 715522975090764579041504363146017491916994228072649023135866751518285741794132\ 163286`199.2622768853475", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "2.0245440428035133509210642630027537057452278038746783428656907207\ 998614974491674420741535974114940149739698311247227133243089871652504285927074\ 412157926769826481190463479772678581949020972648872163833512655752668329380356\ 42613151827`200.*^-58"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.3145937287302614857039334435519922014405426925848950693300494457980393\ 556235002681122613584350102472664200355102497998353782973583040761119600328483\ 176847312518844221410200855341332365958306451283841852228470508858977985823835\ `198.82281759629885*^15", "-", RowBox[{ "6.518627560651277785782100302436152203094036402576257733694680712430412\ 881822040217857672189562591850892221642417979178233432765538374561178534721960\ 655116269409207252963382062234098922709564199582591481241065932574681416058598\ 2`199.27800658106315*^-44", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "-", "1.4122248114732606170245102565780072632642468538162823820614783469\ 899634776147918143845724195818579560366948465490107376644308088881957970041292\ 103609437534865314431248795122445664838633626657236597863969476415634387020415\ 9`200.*^-106"}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.3145937287302614857039334435519922014405426925848950693300494457980393\ 556235002681122420144359977574701662778866446855231658658340874773766779643119\ 504471299966702324935287092786630269793611039577719160095309797317415124976981\ 8`198.82281759629885*^15", "-", RowBox[{ "6.518627560651277785782100302436152203094036402576257733694680712430412\ 881822040217857576269186326388736555725454853941843593294337251375530793980788\ 403174736296115673921319591207775987802273799904654947050635554984203373549683\ `199.27800658106315*^-44", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "1.4122248114732606170245102565780072632642468538162823820614783469899634\ 776147918143845518159519030671697710601071574006930591293706961989719075427004\ 3220702856604457890486995092541698261118873973838716849501922261296348137`200.\ *^-106", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "6.0036928772197382690696386128470146872255184814685289276306666909892281\ 476523691501283919702377895392323866738287299834128331582344765945010499106381\ 834058454056096475968350275658359061832800317840771604906328954496687228594921\ 7`199.31266417570808*^15", "-", RowBox[{ "2.851663260902275962013263793192119974042756515786406212528561369139558\ 115635946036261195858807053127244503723174640844329121945157204521226640662871\ 016038384808502925139469347305970968272155427282265361932340354894826094646745\ 5411`199.39794000867195*^56", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "4.118636475357727936043181509645333559936643245704442841590655536159066\ 173230327319238488589013919481294620044136250874300606973984578737501949680890\ 890272711987532523548660062160736875051549478082224042043112338649256721123184\ 79`200.*^-100", "-", RowBox[{ "2.02454404280351335092106426300275370574522368523820298513775467761835\ 185211560750542390643740530555732135756270963831162526345034495169206363143702\ 452100307732883719826890791361466730947165584916188837528902005996502946693969\ 337238`200.*^-58", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "6.0036928772197382557346519653698952968463547335028550080527187899720896\ 832548817035639726648436186335811090447609162938340783705907096167392346858009\ 630446614772839547112234185321452149510803983375215330110520436371581948405633\ 5`199.31266417570808*^15", "+", RowBox[{ "2.851663260902275962013263793192119974042756515786406212528561369139558\ 115635946036261195858807053128442669616396609296173654905278018229289938482586\ 427911960688251848750549231676143188114956871197659745753340088817569882556063\ 69`199.39794000867195*^56", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "4.118636475357727936043181509645333559936643245704442841590655536159066\ 173230327319238488589013919481294620044136250874300606973984578737501949680890\ 890272711987532523548660062160736875051549478082224042043112338649256721123184\ 79`200.*^-100", "+", RowBox[{ "2.02454404280351335092106426300275370574522368523820298513775467761835\ 185211560750542390643740530555732135756270963831162526345034495169206363143702\ 452100307732883719826890791361466730947165584916188837528902005996502946693969\ 337238`200.*^-58", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.8516632609022759620132637931921199740426964788576340151459373476866670\ 310860256803125260780199806952161416336784587674269290745695480260417659878554\ 472933386206594621301353923953814684810594289047684640571052330607011692805335\ 463`199.39794000867195*^56", "+", RowBox[{ "0.006667493323738559695189581873982836959788914042213908133776151496634\ 203612011682293835956659221930138477561340602022255392997785247034869902031730\ 883442385493371665338145954856353353810122283576050124304416324869974214795454\ 828769`199.2622768853475", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "2.0245440428035133509210642630027537057452195666017276274098186344368422\ 067820475687876621885258108336628975129923762526696705101880724850457810820303\ 815359582511571248377471919898437875909646084400486861242062913928193523263481\ 42369`200.*^-58", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.9817620031438821739679514472537829477593801898291870037783303990016019\ 691703372048296753099788502705245735643252082320561457721515538394943265977572\ 91533587548072113716608105940805621778071399770946595572383814269429768`199.\ 39794000837688*^142", "+", RowBox[{ "5.164563285523554354825573336790038127923675065010643474046079614768287\ 043889721335691609334831709458983191066624300875221778744272099853418794466719\ 282664320680856337648195532122187525878815382126875559871362648725880822`199.\ 39794000837693*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "1.643041291671066669053941287856546735888482900448067291823696634654502\ 223824055002004783593313174589567329214130045673692518858126973982597124267780\ 85767565554644881535028643333541715813708311911365534246208250779903754921`\ 200.*^-10", "-", RowBox[{ "8.84286137430493695676591370732706686561002336037723965425274899945722\ 315041463614827876259816176888235950596439034719942498097938823712608901432822\ 497950302342019909050875884438929895153910580075950205143537170363537932058823\ 2705236135977`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "2.9817620031438821739679514472537829477593801898291870037783264665461024\ 434511506039329338015417354028313565420123383698024941239388349077791657707049\ 30546514749139342135129617814191105264063815108676500151352053989132049`199.\ 39794000837688*^142", "-", RowBox[{ "5.164563285523554354825573336790038127923675065010643474046081885172528\ 271287946633951599056340810660865370757223780260867889051953732108585599333569\ 345265985845721581584988486195857608147155430174362455641196783063316987`199.\ 39794000837693*^142", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "1.643041291671066669053941287856546735888482900448067291823696634654502\ 223824055002004783593313174589567329214130045673692518858126973982597124267780\ 85767565554644881535028643333541715813708311911365534246208250779903754921`\ 200.*^-10", "+", RowBox[{ "8.84286137430493695676591370732706686561002336037723965425274899945722\ 315041463614827876259816176888235950596439034719942498097938823712608901432822\ 497950302342019909050875884438929895153910580075950205143537170363537932058823\ 2705236135977`200.*^-71", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "5.9635240062877643479359028945075658955187603796583740075566568655477044\ 126214878087626091115205856733559301063375466018729089361943441177262007762303\ 68684601556444286820529477332461271484921018886293700478553739700638537`199.\ 39794000837688*^142", "-", RowBox[{ "2.270404241227398225298259989721509101201882179690599479385646110307681\ 632255166804866850062601665164865243936792954073675514715031097597069771743188\ 422361343526812061381441922569366735881190472463010405105881940041938430491834\ 17636525859`199.32048239019537*^82", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "1.6430412916710666690539412878565467358884829004480672918236981662830206\ 822738715723559955622720377962893469572771232034239618623549859161355413393430\ 0049302785942120077358502906445245588131190045558599403478958654435833095`200.\ *^-10", "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.0026221180250447801263756290953297625649291849933488082248341904065578\ 038276290242117944676354470052305494417799560422172682794793898852240220985238\ 097980135762035694328399905484049116383831226696717178486750227652112518331496\ 425399297`199.31530360903224*^120", "-", RowBox[{ "8.659881646072847272489738300655455370167295224432632435154473603011380\ 921800708605685049539532323913744096425998708366384210294276707071416582281040\ 406267252744683398818044364993584319782772788436583290527133182978314097076609\ 0053179`199.02011440827798*^59", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "0.0677577512458319460793484715817805715362292572593435232741856253464023\ 417196754619322983196558509371639340600421976433367258093160676842121602160036\ 439086477513507039765862925274167340182465117435605999685876926404495660222929\ 11911`200.", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.0131105901252239006318781454766488128246459249667440411241634523552897\ 534513790262947462679467666881461505780263817841592733062883707650168925195587\ 683536140143129553737492768625035769190638399720704282177802769068642284485593\ 67296797`199.31530360903224*^119", "-", RowBox[{ "8.682962246058485072809349095734751002979858064163698538968445156982137\ 662240889396511639797732134239404854404633558074816355751613312840365269488717\ 221569017764428057910661143455794141452314873025611379631454577556365345321318\ 932499053`199.3153036090323*^119", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.067757751245831946079348471581780571536229257259343523274185625346406\ 642722263013757064493486922837458478023978479352472548742977111834050344149759\ 780217252436873489237158775798730303522335911885854993801309960169568969808436\ 660917`200.", "-", RowBox[{ "2.48318500170832298401166535338980255200530002960244484868822620313443\ 194457689578728452129394830586531156563358990924047959873584246180840221386157\ 53970781931246194450501811558316123486322279969009388726294956352626001544`\ 200.*^-69", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.0131105901252239006318781454766488128246459249667440411241784517102882\ 848249112158231984084077033641593438397731786380154129277106904712517811026502\ 874052912526370382135780226774883370605011029710453861145477963473954734149619\ 43057243`199.31530360903224*^119", "+", RowBox[{ "8.682962246058485072809349095734751002979858064163698538968436497100491\ 589393616906773339142276764072109629972001122920342752740232391039656663803667\ 682036693850683961484662435089407046549512739364616633023751093263594739879753\ 562145072`199.3153036090323*^119", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.067757751245831946079348471581780571536229257259343523274185625346406\ 642722263013757064493486922837458478023978479352472548742977111834050344149759\ 780217252436873489237158775798730303522335911885854993801309960169568969808436\ 660917`200.", "+", RowBox[{ "2.48318500170832298401166535338980255200530002960244484868822620313443\ 194457689578728452129394830586531156563358990924047959873584246180840221386157\ 53970781931246194450501811558316123486322279969009388726294956352626001544`\ 200.*^-69", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ "1.1937831430228293727511237402443454865783893004950733455644219272113504\ 160424318871248864379892455484004774480885995193613615569956313547149653982770\ 712533711561666133457345280612357269956324146788570571381382902399437850478705\ 54094218`199.29660560651308*^138", "+", RowBox[{ "5.909307909719529297477443938335593140572032022361073360291030275615991\ 381407041364177372584894265012748809551748586355607880979565129153535647437256\ 580118323847927094020094645092130411899432171440965471065398313421474150108598\ 8930558`199.39794000867113*^78", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ "0.3230079289166707700938744281117314527085747144065508558712200730649367\ 504481178389322628189039459331793131514703033863846440165002688027173096572417\ 900218651348559001208589599586781196798287996032172567580604038737249101131585\ 59835`200.", "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.9689157151141468637556187012217274328919465024753667278221608121644380\ 945369277232588896292563058995084793109753468406020168166002426403441825530160\ 633257534503633087323773648627732768483560050734758926535775697394956269963681\ 0064859`199.29660560651308*^137", "-", RowBox[{ "1.033846528467402078979201623278698574787715351017176579252192300609924\ 027884557569645899221322994781566367699327245378341114724624565687919124637213\ 066770114913533396860416272021698524590737421144785508273026879851777797201753\ 576172888`199.29660560651303*^138", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.323007928916670770093874428111731452708574714406550855871220073064937\ 274650659307131135231714005445395540571699708315073987760328652664588057246252\ 574670817418940421045772367042955070916283914803897886317216959311564630496937\ 235185`200.", "-", RowBox[{ "3.02648478426550581616578544515061917254865543912680498069741605545913\ 271491304694194255388911373595750033113878245355956441909659493176426048229073\ 6511838050297919521074050594228428517705498679045110492320207982573845343`200.\ *^-70", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "5.9689157151141468637556187012217274328919465024753667278220584599490660\ 658873911479899747506361495844962951699106483530115987533560709067941867111617\ 894541481731074938120485129082477279738389137854778446617611353245777214509158\ 3523785`199.29660560651308*^137", "+", RowBox[{ "1.033846528467402078979201623278698574787715351017176579252198209917833\ 747413855047089837556916135353598390060400605669371390340615947094960488814585\ 651664379926282206412164858377306405570302550298320727844456238570760061579595\ 254184701`199.29660560651303*^138", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ "0.323007928916670770093874428111731452708574714406550855871220073064937\ 274650659307131135231714005445395540571699708315073987760328652664588057246252\ 574670817418940421045772367042955070916283914803897886317216959311564630496937\ 235185`200.", "+", RowBox[{ "3.02648478426550581616578544515061917254865543912680498069741605545913\ 271491304694194255388911373595750033113878245355956441909659493176426048229073\ 6511838050297919521074050594228428517705498679045110492320207982573845343`200.\ *^-70", " ", "\[ImaginaryI]"}]}], ")"}], "n"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ "1.0000000000000002076860434304309192274594813765313674593960408304582410\ 561866630042397364240390872439562998439760360239250375616968461429652097556970\ 463593135370449476557746873775915416198156168841435458844099677020689551220152\ 63865`199.29660560651308", "+", RowBox[{ "1.001335799822031784057818700780792883302348128681615515316721995797269\ 304422742056180201208305365796393762270135395654848959361005690751033013770975\ 787836490971888681571254779962608833697471927204193449530705233289524639281772\ 3109`199.39794000866772*^-60", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["1.`200.", "n"]}]}]}]], "Input", CellChangeTimes->{{3.44534669354025*^9, 3.445346694087125*^9}, { 3.4453467326965*^9, 3.445346762509*^9}, 3.44534680016525*^9, 3.445347086384*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"FullSimplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"k", " ", RowBox[{"(", RowBox[{ RowBox[{"PLN", "[", "k", "]"}], "-", RowBox[{"PLN", "[", RowBox[{"k", "-", "1"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"n", "\[Rule]", "Infinity"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.445346809930875*^9, 3.44534685160275*^9}}], Cell[BoxData[ RowBox[{"4.\ 41034001104197806632282560278124854082858394603149012144416958471845117427382`\ 56.21142491652296", "+", RowBox[{"0``55.57402343601652", " ", "\[ImaginaryI]"}]}]], "Output", CellChangeTimes->{3.445346854587125*^9, 3.445347103805875*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"LL", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"MatrixPower", "[", RowBox[{"MNormal", ",", "i"}], "]"}], ")"}], "[", RowBox[{"[", RowBox[{"25", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", "40"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.445347309680875*^9, 3.445347355399625*^9}, { 3.44534741079025*^9, 3.445347411055875*^9}, {3.445347516743375*^9, 3.445347542055875*^9}, {3.44534760941525*^9, 3.445347610305875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"i", RowBox[{"(", RowBox[{ RowBox[{"LL", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "-", RowBox[{"LL", "[", RowBox[{"[", RowBox[{"i", "-", "2"}], "]"}], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "3", ",", "40"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.44534736691525*^9, 3.44534748454025*^9}, { 3.4453475459465*^9, 3.445347546993375*^9}}], Cell[BoxData["4.410340011041981`"], "Output", CellChangeTimes->{{3.4453474513215*^9, 3.445347485149625*^9}, { 3.445347521430875*^9, 3.44534754779025*^9}, 3.445347612993375*^9}] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{866, 750}, WindowMargins->{{Automatic, 186}, {Automatic, 30}}, FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (April 20, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[590, 23, 113, 1, 83, "Title"], Cell[CellGroupData[{ Cell[728, 28, 177, 2, 71, "Section"], Cell[908, 32, 279, 7, 31, "Input"], Cell[1190, 41, 122, 1, 29, "Text"], Cell[1315, 44, 189, 5, 31, "Input"], Cell[1507, 51, 276, 8, 31, "Input"], Cell[1786, 61, 153, 2, 29, "Text"], Cell[1942, 65, 198, 5, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2177, 75, 137, 1, 71, "Section"], Cell[2317, 78, 279, 7, 31, "Input"], Cell[2599, 87, 96, 1, 29, "Text"], Cell[2698, 90, 192, 5, 31, "Input"], Cell[2893, 97, 275, 8, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[3205, 110, 110, 1, 71, "Section"], Cell[3318, 113, 351, 10, 31, "Input"], Cell[3672, 125, 412, 13, 31, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[4121, 143, 133, 1, 71, "Section"], Cell[CellGroupData[{ Cell[4279, 148, 413, 8, 31, "Input"], Cell[4695, 158, 434, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[5166, 171, 403, 8, 31, "Input"], Cell[5572, 181, 420, 8, 30, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[6041, 195, 118, 1, 71, "Section"], Cell[6162, 198, 238, 6, 31, "Input"], Cell[CellGroupData[{ Cell[6425, 208, 184, 4, 31, "Input"], Cell[6612, 214, 872, 15, 69, "Output"] }, Open ]], Cell[7499, 232, 913, 26, 52, "Input"], Cell[CellGroupData[{ Cell[8437, 262, 658, 14, 31, "Input"], Cell[9098, 278, 8349, 224, 322, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17484, 507, 176, 4, 31, "Input"], Cell[17663, 513, 224, 5, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17924, 523, 132, 2, 31, "Input"], Cell[18059, 527, 2901, 60, 149, "Output"] }, Open ]], Cell[20975, 590, 401, 11, 31, "Input"], Cell[21379, 603, 404, 11, 31, "Input"], Cell[21786, 616, 826, 17, 72, "Input"], Cell[CellGroupData[{ Cell[22637, 637, 292, 5, 31, "Input"], Cell[22932, 644, 451, 10, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23420, 659, 102, 1, 31, "Input"], Cell[23525, 662, 28555, 550, 5377, "Output"] }, Open ]], Cell[52095, 1215, 28978, 554, 5432, "Input"], Cell[CellGroupData[{ Cell[81098, 1773, 536, 15, 31, "Input"], Cell[81637, 1790, 268, 5, 30, "Output"] }, Open ]], Cell[81920, 1798, 590, 15, 31, "Input"], Cell[CellGroupData[{ Cell[82535, 1817, 546, 16, 31, "Input"], Cell[83084, 1835, 180, 2, 30, "Output"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)