(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1080693, 22724] NotebookOptionsPosition[ 1068044, 22499] NotebookOutlinePosition[ 1068468, 22516] CellTagsIndexPosition[ 1068425, 22513] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Ecological Stage program - loop", "Title", CellChangeTimes->{{3.734329249401856*^9, 3.734329278749035*^9}, { 3.8503881080382977`*^9, 3.850388121836241*^9}},ExpressionUUID->"7884a72b-4a9d-4230-b804-\ 474864bae6f4"], Cell[CellGroupData[{ Cell["\<\ Code for: Boughman, J.W. and M.R. Servedio. The ecological stage maintains \ preference differentiation and promotes speciation. Ecology Letters. \ \>", "Chapter", CellChangeTimes->{{3.850388211829999*^9, 3.850388247195511*^9}},ExpressionUUID->"b3c8e10e-bb68-48b8-b793-\ 6ac768e84634"], Cell["Code generated by Maria Servedio", "Subtitle", CellChangeTimes->{{3.850389604404271*^9, 3.850389618306541*^9}},ExpressionUUID->"f532d945-ce0e-4c3c-87dc-\ 9fedc6e9a854"], Cell[CellGroupData[{ Cell["Code", "Section", CellChangeTimes->{{3.8503882684554873`*^9, 3.850388270042934*^9}},ExpressionUUID->"3d889c03-020d-4a30-aefb-\ e6c53f2f9229"], Cell[BoxData[ RowBox[{ RowBox[{"CondDepLoopTestSets", ":=", " ", RowBox[{"(", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Run", " ", "time", " ", "parameters"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"genlimit", " ", "=", " ", "10000"}], ";", "\[IndentingNewLine]", RowBox[{"Pprecision", " ", "=", " ", "0.000001"}], ";", " ", RowBox[{"(*", " ", RowBox[{"usually", " ", "want", " ", "at", " ", "0.000001"}], " ", "*)"}], StyleBox["\[IndentingNewLine]", Background->RGBColor[1, 0.5, 0]], RowBox[{"counttest", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "Tables", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tabPR12", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPR22", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPL12", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPL22", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabEM11", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabEM21", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabEN12", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabEN22", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabM11", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabM21", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabN12", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabN22", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PREM", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PRM", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PLEN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PLN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PREN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1EMEN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PRN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1MN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PRPL", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1EMM", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1ENN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PREMM", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PLENN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabD1PRENN", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridization1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridization2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridimeasure2pop1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridimeasure2pop2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridimeasure3pop1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabhybridimeasure3pop2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabdiffR", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabdiffL", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabgendiffPR1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabgendiffPR2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabasymR", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", RowBox[{"tabasymL", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPR12lesspt5", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPL22lesspt5", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPR22greaterpt5", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabPL12greaterpt5", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabgens", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabvary", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"tabvarx", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "dimensiony"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "dimensionx"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"countx", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"county", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "Initializing", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"gen", " ", "=", " ", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Nloci", " ", "=", " ", "6"}], ";", "\[IndentingNewLine]", RowBox[{"PR22t1", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{ "this", " ", "and", " ", "the", " ", "next", " ", "line", " ", "are", " ", "just", " ", "to", " ", "get", " ", "it", " ", "running"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PR22t1prevgen", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"PR12t1", " ", "=", " ", "1"}], ";", " ", RowBox[{"(*", " ", RowBox[{ "this", " ", "and", " ", "the", " ", "next", " ", "line", " ", "are", " ", "just", " ", "to", " ", "get", " ", "it", " ", "running"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PR12t1prevgen", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Geno", " ", "=", " ", RowBox[{"2", "^", "Nloci"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ns1f", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ns1m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ns2f", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ns2m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1mut", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2mut", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xns1f", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xns1m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xns2f", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"xns2m", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x1t1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2t1", " ", "=", " ", RowBox[{"Table", " ", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z1", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"0", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatTable1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"MatTable2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"FecTable1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}]}], ";", RowBox[{"FecTable2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{"1", ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Setting", " ", "starting", " ", "conditions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PR12", " ", "=", " ", "PR12start"}], ";", "\[IndentingNewLine]", RowBox[{"PL12", " ", "=", " ", "PL12start"}], ";", "\[IndentingNewLine]", RowBox[{"EM12", " ", "=", " ", "EM12start"}], ";", "\[IndentingNewLine]", RowBox[{"M12", " ", "=", " ", "M12start"}], ";", "\[IndentingNewLine]", RowBox[{"EN12", " ", "=", " ", "EN12start"}], ";", "\[IndentingNewLine]", RowBox[{"N12", " ", "=", " ", "N12start"}], ";", "\[IndentingNewLine]", RowBox[{"PR22", " ", "=", " ", "PR22start"}], ";", "\[IndentingNewLine]", RowBox[{"PL22", " ", "=", " ", "PL22start"}], ";", "\[IndentingNewLine]", RowBox[{"EM22", " ", "=", " ", "EM22start"}], ";", "\[IndentingNewLine]", RowBox[{"M22", "=", " ", "M22start"}], ";", "\[IndentingNewLine]", RowBox[{"EN22", " ", "=", " ", "EN22start"}], ";", "\[IndentingNewLine]", RowBox[{"N22", " ", "=", " ", "N22start"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PR11", " ", "=", " ", RowBox[{"1.0", "-", "PR12"}]}], ";", "\[IndentingNewLine]", RowBox[{"PL11", " ", "=", " ", RowBox[{"1.0", "-", "PL12"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM11", " ", "=", " ", RowBox[{"1.0", "-", "EM12"}]}], ";", "\[IndentingNewLine]", RowBox[{"M11", " ", "=", " ", RowBox[{"1.0", "-", "M12"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN11", " ", "=", " ", RowBox[{"1.0", "-", "EN12"}]}], ";", "\[IndentingNewLine]", RowBox[{"N11", " ", "=", " ", RowBox[{"1.0", "-", "N12"}]}], ";", "\[IndentingNewLine]", RowBox[{"PR21", " ", "=", " ", RowBox[{"1.0", "-", "PR22"}]}], ";", "\[IndentingNewLine]", RowBox[{"PL21", " ", "=", " ", RowBox[{"1.0", "-", "PL22"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM21", " ", "=", " ", RowBox[{"1.0", "-", "EM22"}]}], ";", "\[IndentingNewLine]", RowBox[{"M21", " ", "=", " ", RowBox[{"1.0", "-", "M22"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN21", " ", "=", " ", RowBox[{"1.0", "-", "EN22"}]}], ";", "\[IndentingNewLine]", RowBox[{"N21", " ", "=", " ", RowBox[{"1.0", "-", "N22"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"index", " ", "is", " ", "pop"}], ",", " ", "allele"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}], "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}], "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR11", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM11", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL11", " ", "EM12", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM11", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M11", " ", "EN12", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN11", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN11", " ", "N12"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN12", " ", "N11"}]}], ";", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR12", " ", "PL12", " ", "EM12", " ", "M12", " ", "EN12", " ", "N12"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}], "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}], "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR21", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM21", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL21", " ", "EM22", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM21", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M21", " ", "EN22", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN21", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN21", " ", "N22"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN22", " ", "N21"}]}], ";", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ "PR22", " ", "PL22", " ", "EM22", " ", "M22", " ", "EN22", " ", "N22"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"male", " ", "selection", " ", "vectors"}], " ", "*)"}], "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "1", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "2", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", "tH1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEM"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", "tL1"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1m", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "1", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "2", "]"}], "]"}], "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", "tL2"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{"tH2", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2m", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "+", "sEN"}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", "sL"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Mating", " ", "matrices"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", "<", "i", "<", "33"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "2"}], "]"}], " ", "\[Equal]", " ", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]envt", " ", "\[Alpha]L"}]}], ")"}], RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"32", "<", "i", "<", "49"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "3"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"32", "<", "i", "<", "49"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "2"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "4"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]T", " ", "\[Alpha]R"}]}], ")"}], RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"32", "<", "i", "<", "49"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "9"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "10"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "11"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], " ", "\[Equal]", " ", "12"}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]low", " ", "\[Alpha]R"}]}], ")"}], RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", " ", RowBox[{ RowBox[{ RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", "<", "i", "<", "33"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "4"}], "]"}], " ", "\[Equal]", " ", "2"}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]low", " ", "\[Alpha]L"}]}], ")"}], RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", "<", "i", "<", "33"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"16", "<", "i", "<", "33"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "4"}], ")"}]}], ",", RowBox[{ RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]T", " ", "\[Alpha]L"}]}], ")"}], RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"32", "<", "i", "<", "49"}], ")"}], "||", " ", RowBox[{"(", RowBox[{"48", "<", "i", "<", "65"}], ")"}]}], ")"}], "&&", " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "2"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "3"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "8"}], "]"}], " ", "\[Equal]", " ", "4"}], ")"}]}], ")"}]}], ",", " ", RowBox[{ RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Sigma]envt", " ", "\[Alpha]R"}]}], ")"}], RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Fecundity", " ", "Matrices"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "2"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "3"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "4"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "5"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "6"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "7"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", " ", "8"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"FecTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "ffM"}], ")"}], RowBox[{"FecTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "2"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "3"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "4"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "5"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "6"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "7"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", " ", "8"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"FecTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "fmM"}], ")"}], RowBox[{"FecTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "\[Equal]", "3"}], ")"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "4"}], "]"}], "\[Equal]", "0"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"FecTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "ffN"}], ")"}], RowBox[{"FecTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "4"}], "]"}], "\[Equal]", "3"}], ")"}], " ", "||", " ", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "4"}], "]"}], "\[Equal]", "0"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"FecTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "fmN"}], ")"}], RowBox[{"FecTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Recombination", " ", "Table"}], " ", "-", " ", RowBox[{ "From", " ", "routine", " ", "by", " ", "Servedio", " ", "and", " ", "Kirkpatrick", " ", "1997", " ", "translated", " ", "from", " ", "C", " ", "by", " ", "Sumit", " ", "Dhole"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"masklim", "=", RowBox[{"2", "^", RowBox[{"(", RowBox[{"Nloci", "-", "1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"recrate", "[", "1", "]"}], "=", "0.5"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"recrate", "[", "2", "]"}], "=", "0.5"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"recrate", "[", "3", "]"}], "=", "0.5"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"recrate", "[", "4", "]"}], "=", "0.5"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"recrate", "[", "5", "]"}], "=", "0.5"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"MaskProb", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"mask", ",", "Nloci"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"prob", "=", "1.0"}], ";", RowBox[{"z", "=", "1"}]}], ",", " ", RowBox[{"z", "<", "Nloci"}], ",", RowBox[{"z", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{"mask", ",", RowBox[{"(", RowBox[{"Nloci", "-", "z"}], ")"}]}], "]"}], "==", RowBox[{"BitGet", "[", RowBox[{"mask", ",", RowBox[{"(", RowBox[{"Nloci", "-", "z", "-", "1"}], ")"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"prob", "*=", RowBox[{"(", RowBox[{"1.0", "-", RowBox[{"recrate", "[", "z", "]"}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"prob", "*=", RowBox[{"recrate", "[", "z", "]"}]}]}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ZygoteGenotypes", "=", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", "j", ",", "mask"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{ RowBox[{"zyg1", "=", "0"}], ";", RowBox[{"zyg2", "=", "0"}], ";", RowBox[{"k", "=", "0"}]}], ",", RowBox[{"k", "<", "Nloci"}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"BitGet", "[", RowBox[{"mask", ",", "k"}], "]"}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zyg1", "=", RowBox[{"BitOr", "[", RowBox[{"zyg1", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"i", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}], ";", RowBox[{"zyg2", "=", RowBox[{"BitOr", "[", RowBox[{"zyg2", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"j", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"zyg1", "=", RowBox[{"BitOr", "[", RowBox[{"zyg1", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"j", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}], ";", RowBox[{"zyg2", "=", RowBox[{"BitOr", "[", RowBox[{"zyg2", ",", RowBox[{"(", RowBox[{"BitAnd", "[", RowBox[{"i", ",", RowBox[{"(", RowBox[{"2", "^", "k"}], ")"}]}], "]"}], ")"}]}], "]"}]}]}]}], "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RecTable", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "Geno"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "0"}], ",", RowBox[{"i", "<", "Geno"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "0"}], ",", RowBox[{"j", "<", "Geno"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"mask", "=", "0"}], ",", RowBox[{"mask", "<", "masklim"}], ",", RowBox[{"mask", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"MaskProb", "[", RowBox[{"mask", ",", "Nloci"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"zygoteProb", " ", "=", RowBox[{"0.5", "*", "prob"}]}], ";", "\[IndentingNewLine]", RowBox[{"ZygoteGenotypes", "[", RowBox[{"i", ",", "j", ",", "mask"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"zyg1", "+", "1"}], ")"}]}], "]"}], "]"}], "+=", "zygoteProb"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{ RowBox[{"(", RowBox[{"i", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"j", "+", "1"}], ")"}], ",", RowBox[{"(", RowBox[{"zyg2", "+", "1"}], ")"}]}], "]"}], "]"}], "+=", "zygoteProb"}], ";"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Main", " ", "Loop"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"While", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"PR22t1", "-", "PR22t1prevgen"}], " ", "]"}], ">", " ", "Pprecision"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"PR12t1", "-", "PR12t1prevgen"}], " ", "]"}], ">", " ", "Pprecision"}], ")"}]}], ")"}], "&&", RowBox[{"(", RowBox[{"gen", " ", "<", " ", "genlimit"}], ")"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"PR12t1prevgen", " ", "=", " ", "PR12t1"}], ";", "\[IndentingNewLine]", RowBox[{"PR22t1prevgen", " ", "=", " ", "PR22t1"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"hybridization1", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"hybridization2", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm2pop1", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm2pop2", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm3pop1", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm3pop2", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"gen", " ", ">", " ", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "cc", "]"}], "]"}], "=", " ", RowBox[{"x1t1", "[", RowBox[{"[", "cc", "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"cc", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "cc", "]"}], "]"}], "=", " ", RowBox[{"x2t1", "[", RowBox[{"[", "cc", "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"cc", ",", " ", "64"}], "}"}]}], "]"}]}]}], "]"}], ";", " ", RowBox[{"(*", " ", "recursions", " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "mutation", " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "5", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "9", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x1", "[", RowBox[{"[", "5", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "9", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "14", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "15", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "14", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "15", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "21", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "21", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "25", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "17", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x1", "[", RowBox[{"[", "21", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "25", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "30", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "31", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "30", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "31", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "37", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "37", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "41", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "33", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x1", "[", RowBox[{"[", "37", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "41", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "46", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "47", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "46", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "47", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "53", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "53", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "57", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x1", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "49", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x1", "[", RowBox[{"[", "53", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x1", "[", RowBox[{"[", "57", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "62", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x1", "[", RowBox[{"[", "63", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "62", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "63", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x1", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x1mut", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x1", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x1", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\n", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "2", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "5", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "9", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x2", "[", RowBox[{"[", "5", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "9", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "14", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "15", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "2", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "6", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "10", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "14", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "3", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "7", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "11", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "15", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "4", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "8", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "12", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "16", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "21", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "21", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "17", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "25", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "17", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x2", "[", RowBox[{"[", "21", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "25", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "30", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "31", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "18", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "22", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "26", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "30", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "19", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "23", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "27", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "31", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "20", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "24", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "28", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "32", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "37", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "37", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "33", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "41", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "33", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x2", "[", RowBox[{"[", "37", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "41", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "46", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "47", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "34", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "38", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "42", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "46", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "35", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "39", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "43", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "47", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "36", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "40", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "44", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "48", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "53", "]"}], "]"}], "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "53", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], " ", "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], "\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EM"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "49", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "57", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], "\[Mu]EN", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]M"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"x2", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "49", "]"}], "]"}]}], "+", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{ "\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"x2", "[", RowBox[{"[", "53", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"x2", "[", RowBox[{"[", "57", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "62", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"x2", "[", RowBox[{"[", "63", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "50", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "54", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "58", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", " ", "\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "62", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EN", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "51", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "55", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "59", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "63", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], "\[Mu]N", " ", RowBox[{"x2", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"x2mut", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"\[Mu]EM", " ", "\[Mu]M", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "52", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]EM", " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "56", "]"}], "]"}]}], " ", "+", " ", RowBox[{"\[Mu]M", RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], " ", RowBox[{"x2", "[", RowBox[{"[", "60", "]"}], "]"}]}], " ", "+", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]EN"}], ")"}], RowBox[{"(", RowBox[{"1.0", "-", "\[Mu]N"}], ")"}], RowBox[{"x2", "[", RowBox[{"[", "64", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "migration", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x1m", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m1"}], ")"}], RowBox[{"x1mut", "[", RowBox[{"[", "i", "]"}], "]"}]}], "+", RowBox[{"m1", " ", RowBox[{"x2mut", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}], ";", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"x2m", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "m2"}], ")"}], RowBox[{"x2mut", "[", RowBox[{"[", "i", "]"}], "]"}]}], "+", RowBox[{"m2", " ", RowBox[{"x1mut", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"selection", " ", "in", " ", "males"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ns1mbar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{"x1m", " ", "ns1m"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"ns2mbar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{"x2m", " ", "ns2m"}], "]"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"xns1m", " ", "=", " ", RowBox[{"x1m", " ", RowBox[{"ns1m", "/", "ns1mbar"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"xns2m", " ", "=", " ", RowBox[{"x2m", " ", RowBox[{"ns2m", "/", "ns2mbar"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"selection", " ", "in", " ", "females"}], " ", "-", " ", RowBox[{ "starting", " ", "by", " ", "setting", " ", "the", " ", "sCstars"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"zRpop1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "7", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "9", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "11", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "12", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "13", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "14", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "15", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "16", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "17", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "18", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "19", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "20", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "21", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "22", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "23", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "24", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "25", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "26", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "27", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "28", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "29", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "30", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "31", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "32", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "33", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "34", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "35", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "36", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "37", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "38", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "39", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "40", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "41", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "42", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "43", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "44", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "45", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "46", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "47", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "48", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "49", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "50", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "51", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "52", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "53", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "54", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "55", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "56", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "57", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "58", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "59", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "60", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "61", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "62", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "63", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "64", "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"zRpop2", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "7", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "9", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "11", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "12", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "13", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "14", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "15", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "16", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "17", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "18", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "19", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "20", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "21", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "22", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "23", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "24", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "25", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "26", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "27", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "28", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "29", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "30", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "31", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "32", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "33", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "34", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "35", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "36", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "37", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "38", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "39", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "40", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "41", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "42", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "43", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "44", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "45", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "46", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "47", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "48", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "49", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "50", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "51", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "52", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "53", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "54", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "55", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "56", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "57", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "58", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "59", "\[RightDoubleBracket]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]R", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "60", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "61", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "62", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "63", "\[RightDoubleBracket]"}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "64", "\[RightDoubleBracket]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"zLpop1", " ", "=", " ", RowBox[{ RowBox[{ "xns1m", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "7", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "9", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "11", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "12", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "13", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "14", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "15", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "16", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "17", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "18", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "19", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "20", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "21", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "22", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "23", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "24", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "25", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "26", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "27", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "28", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "29", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "30", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "31", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "32", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "33", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "34", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "35", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "36", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "37", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "38", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "39", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "40", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "41", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "42", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "43", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "44", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "45", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "46", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "47", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "48", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "49", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "50", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "51", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "52", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "53", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "54", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "55", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "56", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "57", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "58", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "59", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "60", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "61", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "62", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "63", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]envt"}]}], ")"}], " ", RowBox[{ "xns1m", "\[LeftDoubleBracket]", "64", "\[RightDoubleBracket]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"zLpop2", " ", "=", " ", RowBox[{ RowBox[{ "xns2m", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "3", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "4", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "5", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "6", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "7", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "8", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "9", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "10", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "11", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "12", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "13", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "14", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "15", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "16", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "17", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "18", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "19", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "20", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "21", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "22", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "23", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "24", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "25", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "26", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "27", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "28", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "29", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "30", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "31", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "32", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "33", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "34", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "35", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "36", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "37", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "38", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "39", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "40", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "41", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "42", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "43", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "44", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "45", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "46", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "47", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "48", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "49", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "50", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "51", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "52", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "53", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "54", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "55", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "56", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "57", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "58", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "59", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]T"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "60", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "61", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", RowBox[{"\[Alpha]L", " ", "\[Sigma]low"}]}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "62", "\[RightDoubleBracket]"}]}], "+", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "63", "\[RightDoubleBracket]"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}], " ", RowBox[{ "xns2m", "\[LeftDoubleBracket]", "64", "\[RightDoubleBracket]"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"sCRstar1", " ", "=", RowBox[{"sCR", " ", RowBox[{"(", RowBox[{"1.0", "-", RowBox[{"zRpop1", "/", RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sCRstar2", " ", "=", RowBox[{"sCR", " ", RowBox[{"(", RowBox[{"1.0", "-", RowBox[{"zRpop2", "/", RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]R"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sCLstar1", " ", "=", RowBox[{"sCL", RowBox[{"(", RowBox[{"1.0", "-", RowBox[{"zLpop1", "/", RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sCLstar2", " ", "=", RowBox[{"sCL", RowBox[{"(", RowBox[{"1.0", "-", RowBox[{"zLpop2", "/", RowBox[{"(", RowBox[{"1.0", "+", "\[Alpha]L"}], ")"}]}]}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"female", " ", "selection", " ", "vectors"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "1", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "2", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "5", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEM"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns1f", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar1"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar1"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "3", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "4", "]"}], "]"}], "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "5", "]"}], "]"}], "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "6", "]"}], "]"}], " ", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "9", "]"}], "]"}], " ", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "10", "]"}], "]"}], " ", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "11", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "12", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "13", "]"}], "]"}], " ", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "14", "]"}], "]"}], " ", "=", "1.0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "15", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "16", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "17", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "18", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "19", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "20", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "22", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "23", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "24", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "25", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "26", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "27", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "28", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "29", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "30", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "31", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "32", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "33", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "34", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "35", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "36", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "37", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "38", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "39", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "40", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "41", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "42", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "43", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "44", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "45", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "46", "]"}], "]"}], " ", "=", " ", RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "47", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "48", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "49", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "50", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "51", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "52", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "53", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "54", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "55", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "56", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "57", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "58", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "59", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "60", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "61", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "62", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "63", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ns2f", "[", RowBox[{"[", "64", "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1.0", "-", "sCRstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "-", "sCLstar2"}], ")"}], " ", RowBox[{"(", RowBox[{"1.0", "+", "sEN"}], ")"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"ns1fbar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{"x1m", " ", "ns1f"}], "]"}]}], " ", ";", "\[IndentingNewLine]", RowBox[{"ns2fbar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{"x2m", " ", "ns2f"}], "]"}]}], " ", ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"xns1f", " ", "=", " ", RowBox[{"x1m", " ", RowBox[{"ns1f", "/", "ns1fbar"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"xns2f", " ", "=", " ", RowBox[{"x2m", " ", RowBox[{"ns2f", "/", "ns2fbar"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "Mating", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"z1", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"xns1m", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"MatTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "[", RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"xns2m", "[", RowBox[{"[", "j", "]"}], "]"}], RowBox[{"MatTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"M1base", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"xns1f", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"xns1m", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"z1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"M2base", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"xns2f", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{ RowBox[{"xns2m", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"z2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"M1", " ", "=", " ", RowBox[{"M1base", " ", "MatTable1"}]}], ";", "\[IndentingNewLine]", RowBox[{"M2", " ", "=", " ", RowBox[{"M2base", " ", "MatTable2"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "calculate", " ", "proportion", " ", "of", " ", "matings", " ", "that", " ", "are", " ", "hybrids", " ", "between", " ", "opposite", " ", "purebreds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"h1num", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"h1den", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"h2num", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"h2den", " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", "1"}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", "0"}], ")"}]}], "||", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", "1"}], ")"}]}]}], ",", RowBox[{ RowBox[{"h1num", " ", "=", " ", RowBox[{"h1num", " ", "+", " ", RowBox[{"M1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ";", RowBox[{"h2num", " ", "=", " ", RowBox[{"h2num", " ", "+", " ", RowBox[{"M2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}], "]"}], " ", ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", "1"}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", "0"}], ")"}]}], "||", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], "\[Equal]", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"j", ",", "16"}], "]"}], "\[Equal]", "1"}], ")"}]}]}], ",", RowBox[{ RowBox[{"h1den", " ", "=", " ", RowBox[{"h1den", " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{"xns1f", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"xns1m", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]}], ";", RowBox[{"h2den", " ", "=", " ", RowBox[{"h2den", " ", "+", " ", RowBox[{"(", RowBox[{ RowBox[{"xns1f", "[", RowBox[{"[", "i", "]"}], "]"}], " ", RowBox[{"xns1m", "[", RowBox[{"[", "j", "]"}], "]"}]}], ")"}]}]}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"hybridization1", " ", "=", " ", RowBox[{"h1num", "/", "h1den"}]}], ";", "\[IndentingNewLine]", RowBox[{"hybridization2", " ", "=", " ", RowBox[{"h2num", "/", "h2den"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Fecundity", " ", "selection"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"F1bar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{ RowBox[{"M1", " ", "FecTable1"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"F2bar", " ", "=", " ", RowBox[{"Total", "[", RowBox[{ RowBox[{"M2", " ", "FecTable2"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"F1", " ", "=", " ", RowBox[{"M1", " ", RowBox[{"FecTable1", "/", "F1bar"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"F2", " ", "=", " ", RowBox[{"M2", " ", RowBox[{"FecTable2", "/", "F2bar"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", "Recombination", " ", "*)"}], "\[IndentingNewLine]", RowBox[{"ProgenyTable1", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "Geno"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ProgenyTable2", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "Geno"}], "}"}], ",", RowBox[{"{", RowBox[{"k", ",", "Geno"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"(", RowBox[{"Geno", "+", "1"}], ")"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"(", RowBox[{"Geno", "+", "1"}], ")"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"k", "=", "1"}], ",", RowBox[{"k", "<", RowBox[{"(", RowBox[{"Geno", "+", "1"}], ")"}]}], ",", RowBox[{"k", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ProgenyTable1", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "*", RowBox[{"F1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}], ";", RowBox[{ RowBox[{"ProgenyTable2", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"RecTable", "[", RowBox[{"[", RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], "*", RowBox[{"F2", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}], "]"}]}], "]"}]}], "]"}], ";", StyleBox["\[IndentingNewLine]", Background->RGBColor[1, 0.5, 0]], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Genotypic", " ", "recursions"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"x1temp", "=", RowBox[{"Total", "[", RowBox[{"ProgenyTable1", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2temp", "=", RowBox[{"Total", "[", RowBox[{"ProgenyTable2", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"x1temptot", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1temp", "[", RowBox[{"[", "counter", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"counter", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2temptot", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2temp", "[", RowBox[{"[", "counter", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"counter", ",", " ", "64"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Normalizing", " ", "to", " ", "eliminate", " ", "numerical", " ", "error"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"x1t1", "=", RowBox[{"x1temp", "/", "x1temptot"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2t1", "=", RowBox[{"x2temp", "/", "x2temptot"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{ "Allele", " ", "frequencies", " ", "and", " ", "disequilibria"}], " ", "-", " ", RowBox[{ "this", " ", "one", " ", "is", " ", "used", " ", "as", " ", "a", " ", "stopping", " ", "criterion"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PR21t1", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "32"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PR22t1", " ", "=", " ", RowBox[{"1.0", "-", "PR21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"PR11t1", " ", "=", " ", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "32"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"PR12t1", " ", "=", " ", RowBox[{"1.0", "-", "PR11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"PL11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "16"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "33", ",", " ", "48"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"PL12t1", " ", "=", " ", RowBox[{"1.0", "-", "PL11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"PL21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "16"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "33", ",", " ", "48"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"PL22t1", " ", "=", " ", RowBox[{"1.0", "-", "PL21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"M11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "9", ",", "12"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "20"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "25", ",", "28"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "36"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "41", ",", "44"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "52"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "57", ",", "60"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M12t1", " ", "=", " ", RowBox[{"1.0", "-", "M11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"M21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "9", ",", "12"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "20"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "25", ",", "28"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "36"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "41", ",", "44"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "52"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "57", ",", "60"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M22t1", "=", RowBox[{"1.0", "-", "M21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"N11t1", " ", "=", " ", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N12t1", " ", "=", " ", RowBox[{"1.0", "-", "N11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"N21t1", " ", "=", " ", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N22t1", " ", "=", " ", RowBox[{"1.0", "-", "N21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "8"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "24"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "40"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "56"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM12t1", " ", "=", " ", RowBox[{"1.0", "-", "EM11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "8"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "24"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "40"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "56"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM22t1", " ", "=", " ", RowBox[{"1.0", "-", "EM21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN11t1", " ", "=", " ", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EN12t1", " ", "=", RowBox[{"1.0", "-", "EN11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN21t1", " ", "=", " ", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EN22t1", " ", "=", RowBox[{"1.0", "-", "EN21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"D1PRMt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"D1PREMt1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"PR12t1", " ", "-", " ", "PL22t1"}], " ", "]"}], ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}], " ", "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"PR22t1", " ", "-", " ", "PL12t1"}], "]"}], " ", ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"N12t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "M22t1"}], ")"}]}], "]"}], " ", ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"N22t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "M12t1"}], ")"}]}], "]"}], " ", ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"EN12t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "EM22t1"}], ")"}]}], "]"}], " ", ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", RowBox[{"EN22t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "EM12t1"}], ")"}]}], "]"}], " ", ">", " ", RowBox[{"$MachineEpsilon", "*", "100000"}]}], ")"}]}], ")"}], "&&", " ", RowBox[{"counttest", "<", "5"}]}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{ "\"\\"", ",", " ", "\"\< Y = \>\"", ",", " ", "vary", ",", " ", "\"\<, X = \>\"", ",", " ", "varx", ",", " ", "\"\<, gen = \>\"", ",", " ", "gen", ",", " ", "\"\<, PR12t1 - PL22t1 =\>\"", ",", " ", RowBox[{"PR12t1", " ", "-", " ", "PL22t1"}], " ", ",", " ", "\"\<, PR22t1 - PL12t1 =\>\"", ",", " ", RowBox[{"PR22t1", " ", "-", " ", "PL12t1"}], ",", " ", "\"\<, N12t1 - (1-M22t1) = \>\"", ",", " ", RowBox[{"N12t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "M22t1"}], ")"}]}], ",", " ", "\"\<, N22t1 - (1-M12t1) = \>\"", ",", " ", RowBox[{"N22t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "M12t1"}], ")"}]}], ",", " ", "\"\<, EN12t1 - (1-EM22t1) = \>\"", ",", " ", RowBox[{"EN12t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "EM22t1"}], ")"}]}], ",", " ", "\"\<, EN22t1 - (1-EM12t1) = \>\"", ",", " ", RowBox[{"EN22t1", " ", "-", " ", RowBox[{"(", RowBox[{"1", "-", "EM12t1"}], ")"}]}]}], "]"}], ";", " ", RowBox[{"counttest", "++"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"hybridization", " ", "measures", " ", "2", " ", RowBox[{"(", RowBox[{ RowBox[{ "at", " ", "Es", " ", "and", " ", "traits", " ", "1111"}], ",", "1122", ",", RowBox[{ RowBox[{"2211", " ", "&"}], " ", "2222", " ", "purerbred"}]}], ")"}], " ", "and", " ", "3", " ", RowBox[{"(", RowBox[{"1111", "+", RowBox[{"2222", " ", "purebred"}]}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "4"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "13"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"purebredsm2pop1", " ", "=", " ", RowBox[{"purebredsm2pop1", " ", "+", " ", RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm2pop2", " ", "=", " ", RowBox[{"purebredsm2pop2", " ", "+", " ", RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "1"}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{"Mod", "[", RowBox[{"i", ",", "16"}], "]"}], " ", "\[Equal]", " ", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"purebredsm3pop1", " ", "=", " ", RowBox[{"purebredsm3pop1", " ", "+", " ", RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"purebredsm3pop2", " ", "=", " ", RowBox[{"purebredsm3pop2", " ", "+", " ", RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "64"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"gen", "++"}], ";"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "Allele", " ", "frequencies", " ", "and", " ", "disequilibria"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"PL11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "16"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "33", ",", " ", "48"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"PL12t1", " ", "=", " ", RowBox[{"1.0", "-", "PL11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"PL21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "16"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "33", ",", " ", "48"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"PL22t1", " ", "=", " ", RowBox[{"1.0", "-", "PL21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "8"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "24"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "40"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "56"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM12t1", " ", "=", " ", RowBox[{"1.0", "-", "EM11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EM21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "8"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "24"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "40"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "56"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EM22t1", " ", "=", " ", RowBox[{"1.0", "-", "EM21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"M11t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "9", ",", "12"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "20"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "25", ",", "28"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "36"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "41", ",", "44"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "52"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "57", ",", "60"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M12t1", " ", "=", " ", RowBox[{"1.0", "-", "M11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"M21t1", " ", "=", " ", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "4"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "9", ",", "12"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "17", ",", "20"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "25", ",", "28"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "33", ",", "36"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "41", ",", "44"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "49", ",", "52"}], "}"}]}], "]"}], "+", RowBox[{"Sum", "[", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "57", ",", "60"}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"M22t1", "=", RowBox[{"1.0", "-", "M21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN11t1", " ", "=", " ", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EN12t1", " ", "=", RowBox[{"1.0", "-", "EN11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"EN21t1", " ", "=", " ", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"EN22t1", " ", "=", RowBox[{"1.0", "-", "EN21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"N11t1", " ", "=", " ", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N12t1", " ", "=", " ", RowBox[{"1.0", "-", "N11t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"N21t1", " ", "=", " ", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"N22t1", " ", "=", " ", RowBox[{"1.0", "-", "N21t1"}]}], ";", "\[IndentingNewLine]", RowBox[{"D1PREMt1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PREMt1corr", " ", "=", " ", RowBox[{"D1PREMt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR11t1", " ", "PR12t1", " ", "EM11t1", " ", "EM12t1"}], "]"}]}]}], ",", RowBox[{"D1PREMt1corr", "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PRMt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PRMt1corr", " ", "=", " ", RowBox[{"D1PRMt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PR11t1", " ", "PR12t1", " ", "M11t1", " ", "M12t1"}], "]"}]}]}], ",", RowBox[{"D1PRMt1corr", "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PLENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PLENt1corr", " ", "=", " ", RowBox[{"D1PLENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PL11t1", " ", "PL12t1", " ", "EN11t1", " ", "EN12t1"}], "]"}]}]}], ",", RowBox[{"D1PLENt1corr", "=", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D1PLNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PLNt1corr", " ", "=", " ", RowBox[{"D1PLNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PL11t1", " ", "PL12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1PLNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PRENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PRENt1corr", " ", "=", " ", RowBox[{"D1PRENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR11t1", " ", "PR12t1", " ", "EN11t1", " ", "EN12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1PRENt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1EMENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EM11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EM12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1EMENt1corr", " ", "=", " ", RowBox[{"D1EMENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "EM11t1", " ", "EM12t1", " ", "EN11t1", " ", "EN12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1EMENt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PRNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PRNt1corr", " ", "=", " ", RowBox[{"D1PRNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PR11t1", " ", "PR12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1PRNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1MNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"M11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"M12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1MNt1corr", " ", "=", " ", RowBox[{"D1MNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"M11t1", " ", "M12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", RowBox[{"D1MNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PRPLt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"PL11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"PL12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PRPLt1corr", " ", "=", " ", RowBox[{"D1PRPLt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR11t1", " ", "PR12t1", " ", "PL11t1", " ", "PL12t1"}], "]"}]}]}], ",", RowBox[{"D1PRPLt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1EMMt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EM11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EM12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1EMMt1corr", " ", "=", " ", RowBox[{"D1EMMt1", "/", RowBox[{"Sqrt", "[", RowBox[{"EM11t1", " ", "EM12t1", " ", "M11t1", " ", "M12t1"}], "]"}]}]}], ",", RowBox[{"D1EMMt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D1ENNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1ENNt1corr", " ", "=", " ", RowBox[{"D1ENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"EN11t1", " ", "EN12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1ENNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PREMMt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], "-", RowBox[{"PR12t1", " ", "D1EMMt1"}], " ", "-", " ", RowBox[{"EM12t1", " ", "D1PRMt1"}], " ", "-", " ", RowBox[{"M12t1", " ", "D1PREMt1"}], " ", "-", " ", RowBox[{"PR12t1", " ", "EM12t1", " ", "M12t1"}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PREMMt1corr", " ", "=", " ", RowBox[{"D1PREMMt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR11t1", " ", "PR12t1", " ", "EM11t1", " ", "EM12t1", " ", "M11t1", " ", "M12t1"}], "]"}]}]}], ",", RowBox[{"D1PREMMt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D1PLENNt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], " ", "-", " ", RowBox[{"PL12t1", " ", "D1ENNt1"}], "-", " ", RowBox[{"EN12t1", " ", "D1PLNt1"}], " ", "-", " ", RowBox[{"N12t1", " ", "D1PLENt1"}], " ", "-", " ", RowBox[{"PL12t1", " ", "EN12t1", " ", "N12t1"}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PLENNt1corr", " ", "=", " ", RowBox[{"D1PLENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PL11t1", " ", "PL21t1", " ", "EN11t1", " ", "EN12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1PLENNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D1PRENNt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x1t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x1t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"PR12t1", " ", "D1ENNt1"}], " ", "-", " ", RowBox[{"EN12t1", " ", "D1PRNt1"}], " ", "-", " ", RowBox[{"N12t1", " ", "D1PRENt1"}], " ", "-", " ", RowBox[{"PR12t1", " ", "EN12t1", " ", "N12t1"}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR11t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN12t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N11t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N12t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D1PRENNt1corr", " ", "=", " ", RowBox[{"D1PRENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR11t1", " ", "PR12t1", " ", "EN11t1", " ", "EN12t1", " ", "N11t1", " ", "N12t1"}], "]"}]}]}], ",", " ", RowBox[{"D1PRENNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2PREMt1", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PREMt1corr", " ", "=", " ", RowBox[{"D2PREMt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR21t1", " ", "PR22t1", " ", "EM21t1", " ", "EM22t1"}], "]"}]}]}], ",", RowBox[{"D2PREMt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2PRMt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PRMt1corr", " ", "=", " ", RowBox[{"D2PRMt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PR21t1", " ", "PR22t1", " ", "M21t1", " ", "M22t1"}], "]"}]}]}], ",", RowBox[{"D2PRMt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2PLENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PLENt1corr", " ", "=", " ", RowBox[{"D2PLENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PL21t1", " ", "PL22t1", " ", "EN21t1", " ", "EN22t1"}], "]"}]}]}], ",", RowBox[{"D2PLENt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2PLNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PLNt1corr", " ", "=", " ", RowBox[{"D2PLNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PL21t1", " ", "PL22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2PLNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2PRENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PRENt1corr", " ", "=", " ", RowBox[{"D2PRENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR21t1", " ", "PR22t1", " ", "EN21t1", " ", "EN22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2PRENt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2EMENt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EM21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EM22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2EMENt1corr", " ", "=", " ", RowBox[{"D2EMENt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "EM21t1", " ", "EM22t1", " ", "EN21t1", " ", "EN22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2EMENt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2PRNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PRNt1corr", " ", "=", " ", RowBox[{"D2PRNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"PR21t1", " ", "PR22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", RowBox[{"D2PRNt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2MNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"M21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"M22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2MNt1corr", " ", "=", " ", RowBox[{"D2MNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"M21t1", " ", "M22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", RowBox[{"D2MNt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2PRPLt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"PL21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"PL22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PRPLt1corr", " ", "=", " ", RowBox[{"D2PRPLt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR21t1", " ", "PR22t1", " ", "PL21t1", " ", "PL22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2PRPLt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2EMMt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EM21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EM22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2EMMt1corr", " ", "=", " ", RowBox[{"D2EMMt1", "/", RowBox[{"Sqrt", "[", RowBox[{"EM21t1", " ", "EM22t1", " ", "M21t1", " ", "M22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2EMMt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2ENNt1", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "5", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "9", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "13", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "17", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "21", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "25", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "29", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "33", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "37", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "41", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "49", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "53", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "57", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "8", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "12", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "16", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}]}], " ", "-", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "6", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "10", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "14", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "18", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "22", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "26", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "30", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "34", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "38", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "42", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "50", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "54", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "58", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "7", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "11", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "15", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "19", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "23", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "27", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "31", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "35", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "39", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "43", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "51", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "55", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "59", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}]}], ")"}]}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2ENNt1corr", " ", "=", " ", RowBox[{"D2ENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{"EN21t1", " ", "EN22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", RowBox[{"D2ENNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2PREMMt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "45", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "46", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "47", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "61", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "62", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "63", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], "-", RowBox[{"PR22t1", " ", "D2EMMt1"}], " ", "-", " ", RowBox[{"EM22t1", " ", "D2PRMt1"}], " ", "-", " ", RowBox[{"M22t1", " ", "D2PREMt1"}], " ", "-", " ", RowBox[{"PR22t1", " ", "EM22t1", " ", "M22t1"}]}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EM22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"M22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PREMMt1corr", " ", "=", " ", RowBox[{"D2PREMMt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR21t1", " ", "PR22t1", " ", "EM21t1", " ", "EM22t1", " ", "M21t1", " ", "M22t1"}], "]"}]}]}], ",", " ", RowBox[{"D2PREMMt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"D2PLENNt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "20", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "24", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "28", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "32", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], " ", "-", " ", RowBox[{"PL22t1", " ", "D2ENNt1"}], "-", " ", RowBox[{"EN22t1", " ", "D2PLNt1"}], " ", "-", " ", RowBox[{"N22t1", " ", "D2PLENt1"}], " ", "-", " ", RowBox[{"PL22t1", " ", "EN22t1", " ", "N22t1"}]}]}], ";", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PLENNt1corr", " ", "=", " ", RowBox[{"D2PLENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PL21t1", " ", "PL22t1", " ", "EN21t1", " ", "EN22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", RowBox[{"D2PLENNt1corr", " ", "=", " ", "0"}]}], "]"}], " ", ";", "\[IndentingNewLine]", RowBox[{"D2PRENNt1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x2t1", "[", RowBox[{"[", "36", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "40", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "44", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "48", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "52", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "56", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "60", "]"}], "]"}], "+", RowBox[{"x2t1", "[", RowBox[{"[", "64", "]"}], "]"}]}], ")"}], "-", " ", RowBox[{"PR22t1", " ", "D2ENNt1"}], " ", "-", " ", RowBox[{"EN22t1", " ", "D2PRNt1"}], " ", "-", " ", RowBox[{"N22t1", " ", "D2PRENt1"}], " ", "-", " ", RowBox[{"PR22t1", " ", "EN22t1", " ", "N22t1"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR21t1", ">", "$MachineEpsilon"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"EN22t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N21t1", ">", "$MachineEpsilon"}], ")"}], "&&", RowBox[{"(", RowBox[{"N22t1", ">", "$MachineEpsilon"}], ")"}]}], ",", RowBox[{"D2PRENNt1corr", " ", "=", " ", RowBox[{"D2PRENNt1", "/", RowBox[{"Sqrt", "[", RowBox[{ "PR21t1", " ", "PR22t1", " ", "EN21t1", " ", "EN22t1", " ", "N21t1", " ", "N22t1"}], "]"}]}]}], ",", RowBox[{"D2PRENNt1corr", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"flags", " ", "and", " ", "measures"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR22t1", ">", "0.01"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PR12t1", ">", "0.01"}], ")"}]}], ",", RowBox[{"asymR", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PR12t1", "-", "PR22t1"}], ")"}], "/", "2"}], "-", RowBox[{"Abs", "[", RowBox[{"(", RowBox[{"PR12t1", "-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"PR12t1", "-", "PR22t1"}], ")"}]}]}], ",", " ", RowBox[{"asymR", " ", "=", " ", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL22t1", ">", "0.01"}], ")"}], " ", "&&", " ", RowBox[{"(", RowBox[{"PL12t1", ">", "0.01"}], ")"}]}], ",", RowBox[{"asymL", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"PL22t1", "-", "PL12t1"}], ")"}], "/", "2"}], "-", RowBox[{"Abs", "[", RowBox[{"(", RowBox[{"PL22t1", "-", RowBox[{"(", RowBox[{"1", "/", "2"}], ")"}]}], ")"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{"PL22t1", "-", "PL12t1"}], ")"}]}]}], ",", " ", RowBox[{"asymL", " ", "=", " ", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"PR12t1", "<", "0.5"}], ",", " ", RowBox[{"PR12lesspt5", " ", "=", " ", "1"}], ",", RowBox[{"PR12lesspt5", " ", "=", "0"}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"PL22t1", " ", "<", "0.5"}], ",", " ", RowBox[{"PL22lesspt5", " ", "=", " ", "1"}], ",", RowBox[{"PL22lesspt5", " ", "=", "0"}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"PR22t1", ">", "0.5"}], ",", " ", RowBox[{"PR22greaterpt5", " ", "=", " ", "1"}], ",", RowBox[{"PR22greaterpt5", " ", "=", "0"}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"PL12t1", ">", "0.5"}], ",", " ", RowBox[{"PL12greaterpt5", " ", "=", " ", "1"}], ",", RowBox[{"PL12greaterpt5", " ", "=", "0"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"gen", " ", "\[Equal]", " ", "genlimit"}], ",", " ", RowBox[{"rungenlimit", " ", "=", " ", "1"}], ",", " ", RowBox[{"rungenlimit", " ", "=", " ", "0"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"plots", "/", "storage"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPR12", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PR12t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPR22", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PR22t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPL12", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PL12t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPL22", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PL22t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabEM11", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "EM11t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabEM21", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "EM21t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabEN12", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "EN12t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabEN22", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "EN22t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabM11", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "M11t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabM21", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "M21t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabN12", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "N12t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabN22", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "N22t1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PREM", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PREMt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PRM", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PRMt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PLEN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PLENt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PLN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PLNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PREN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PRENt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1EMEN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1EMENt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PRN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PRNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1MN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1MNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PRPL", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PRPLt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1EMM", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1EMMt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1ENN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1ENNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PREMM", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PREMMt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PLENN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PLENNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabD1PRENN", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "D1PRENNt1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridization1", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "hybridization1"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridization2", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "hybridization2"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridimeasure2pop1", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", RowBox[{"1", "-", "purebredsm2pop1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridimeasure2pop2", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", RowBox[{"1", "-", "purebredsm2pop2"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridimeasure3pop1", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", RowBox[{"1", "-", "purebredsm3pop1"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabhybridimeasure3pop2", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", RowBox[{"1", "-", "purebredsm3pop2"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabdiffR", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", RowBox[{"PR12t1", "-", "PR22t1"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabdiffL", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", RowBox[{"PL22t1", "-", "PL12t1"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabgendiffPR1", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Abs", "[", RowBox[{"PR12t1", "-", " ", "PR12t1prevgen"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabgendiffPR2", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", RowBox[{"Abs", "[", RowBox[{"PR22t1", "-", " ", "PR22t1prevgen"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabasymR", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "asymR"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabasymL", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "asymL"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPR12lesspt5", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PR12lesspt5"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPL22lesspt5", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PL22lesspt5"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPR22greaterpt5", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PR22greaterpt5"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabPL12greaterpt5", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "PL12greaterpt5"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabgens", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "gen"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabvary", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "vary"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tabvarx", "[", RowBox[{"[", RowBox[{"county", ",", " ", "countx"}], "]"}], "]"}], " ", "=", " ", "varx"}], ";", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{ RowBox[{"DateList", "[", "]"}], ",", "\"\< Y = \>\"", ",", " ", "vary", ",", " ", "\"\< X = \>\"", ",", " ", "varx", ",", " ", "\"\< gen = \>\"", ",", " ", "gen"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"county", "++"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"vary", ",", RowBox[{"{", RowBox[{"0", ",", "0.5", ",", "1", ",", "2"}], " ", "}"}]}], "}"}]}], "]"}], ";", RowBox[{"countx", "++"}]}], ",", " ", RowBox[{"{", RowBox[{ "varx", ",", " ", "0", ",", " ", "maxx", ",", " ", "intervalx"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", ")"}]}], ";"}]], "Input", CellChangeTimes->{{3.7343293156661177`*^9, 3.734329325984527*^9}, { 3.734329370896274*^9, 3.734329414434697*^9}, {3.7343294486828337`*^9, 3.734329702714533*^9}, {3.734329746449401*^9, 3.734329806579729*^9}, { 3.734329837285596*^9, 3.734329910416068*^9}, {3.7343299545180798`*^9, 3.734330674850862*^9}, {3.734330750361555*^9, 3.7343309536373997`*^9}, { 3.734330989389289*^9, 3.734330996605687*^9}, {3.7343312133523912`*^9, 3.734331276081481*^9}, {3.734331314074646*^9, 3.734331400274495*^9}, { 3.734331443941165*^9, 3.734331637325169*^9}, {3.734332180524612*^9, 3.734332198707611*^9}, {3.7343355458965282`*^9, 3.73433554681219*^9}, { 3.7343356366487617`*^9, 3.7343356473532*^9}, {3.734335919869977*^9, 3.734335928210429*^9}, {3.734417869668584*^9, 3.734418251992209*^9}, { 3.734427466568157*^9, 3.7344275175873213`*^9}, {3.734427650642991*^9, 3.7344276730041122`*^9}, {3.734427836983294*^9, 3.7344278421493273`*^9}, { 3.734427919489571*^9, 3.734427970584511*^9}, {3.734428179963334*^9, 3.734428186186344*^9}, {3.734429357106173*^9, 3.734429426414259*^9}, { 3.734429808331019*^9, 3.734429809764412*^9}, {3.734430039515123*^9, 3.734430052011133*^9}, {3.734430678798098*^9, 3.734430711026011*^9}, { 3.734432242008589*^9, 3.734432253699277*^9}, {3.734433856418395*^9, 3.734433864823189*^9}, {3.7344345657333307`*^9, 3.7344345705865917`*^9}, { 3.734434660138836*^9, 3.73443466297921*^9}, {3.734434703585161*^9, 3.734434714754181*^9}, {3.734437004867751*^9, 3.734437353636878*^9}, { 3.734437393558901*^9, 3.734437396418808*^9}, {3.734437429410616*^9, 3.734437452283368*^9}, {3.734437503912869*^9, 3.734437752410836*^9}, 3.734437790688387*^9, {3.734438272288485*^9, 3.7344383199657993`*^9}, { 3.734438960074877*^9, 3.734438991224901*^9}, {3.734439293055114*^9, 3.734439328841003*^9}, {3.7344394236950703`*^9, 3.7344394817175903`*^9}, 3.7344886036950207`*^9, 3.7346614674276247`*^9, 3.734699955246413*^9, { 3.734699990887372*^9, 3.734700039776229*^9}, {3.734762326338924*^9, 3.734762363480373*^9}, {3.734772502153414*^9, 3.734772847637105*^9}, { 3.734773234217238*^9, 3.7347732451180067`*^9}, {3.734773841887287*^9, 3.734773850565338*^9}, {3.734773885972539*^9, 3.734774040803176*^9}, { 3.734774086464508*^9, 3.7347740955444937`*^9}, 3.734800339357326*^9, 3.734844743889546*^9, 3.734845713114296*^9, {3.735292646651209*^9, 3.7352927413493853`*^9}, {3.735292774298932*^9, 3.735293033583438*^9}, { 3.735293084347327*^9, 3.7352931541144*^9}, {3.735293190272482*^9, 3.73529346632882*^9}, {3.735295664905675*^9, 3.735295764562451*^9}, { 3.735295800803104*^9, 3.7352958023539667`*^9}, {3.73529583485526*^9, 3.735295856191525*^9}, {3.7352958964857483`*^9, 3.735296116820236*^9}, { 3.735296234164817*^9, 3.735296267430212*^9}, {3.73529639111106*^9, 3.7352964792870417`*^9}, {3.7352965491386547`*^9, 3.735296550484776*^9}, 3.735300092671241*^9, {3.735310657558589*^9, 3.7353106674516277`*^9}, { 3.7353181467562323`*^9, 3.735318148255669*^9}, {3.735377035319614*^9, 3.735377056074973*^9}, {3.7353797132452173`*^9, 3.7353797843917637`*^9}, { 3.735460254916534*^9, 3.7354604376613617`*^9}, {3.735622207506075*^9, 3.73562229858565*^9}, {3.735623034837904*^9, 3.735623874828867*^9}, { 3.7356309785304413`*^9, 3.735631080655452*^9}, {3.735631140042282*^9, 3.735631179665905*^9}, {3.735631214278775*^9, 3.735631305922263*^9}, { 3.73563148470432*^9, 3.735631497009396*^9}, {3.735631642911269*^9, 3.7356318168942223`*^9}, {3.735632737264789*^9, 3.735633389330924*^9}, { 3.735638464485409*^9, 3.735638470714862*^9}, {3.735638520990906*^9, 3.735638681694357*^9}, {3.7356387378606377`*^9, 3.735638759321641*^9}, { 3.7356404140452747`*^9, 3.735640417639954*^9}, {3.735640776943712*^9, 3.735640874144638*^9}, {3.735786598684142*^9, 3.735786614010221*^9}, 3.73578746814607*^9, {3.7357875164830914`*^9, 3.73578758000382*^9}, { 3.735904507259304*^9, 3.735904582192925*^9}, {3.7359046361682053`*^9, 3.735904722773962*^9}, {3.73590475371383*^9, 3.73590490078395*^9}, { 3.735905096366808*^9, 3.735905106810989*^9}, 3.735905141206416*^9, { 3.735905547920938*^9, 3.735905576372488*^9}, {3.7359664814521103`*^9, 3.735966523683257*^9}, {3.735966628052291*^9, 3.735966802873766*^9}, { 3.73596683913651*^9, 3.7359668538640537`*^9}, {3.7359669350178757`*^9, 3.735966956812111*^9}, {3.735966992084765*^9, 3.735967009934903*^9}, { 3.735967103786224*^9, 3.7359671088517227`*^9}, {3.735967154658914*^9, 3.7359671683001013`*^9}, {3.735967202377994*^9, 3.73596732943076*^9}, { 3.73596842868646*^9, 3.735968710006775*^9}, {3.735968745562098*^9, 3.73596895821233*^9}, {3.7359771783697367`*^9, 3.735977333177465*^9}, { 3.735977882798937*^9, 3.7359778913803253`*^9}, {3.7359779255153503`*^9, 3.735977942324142*^9}, {3.7359779786367702`*^9, 3.73597798247265*^9}, { 3.735978030585803*^9, 3.7359780994189177`*^9}, {3.735978136857032*^9, 3.735978308742435*^9}, {3.735978432484584*^9, 3.735978516026286*^9}, { 3.735978873153667*^9, 3.7359788943402443`*^9}, {3.7359789283873997`*^9, 3.735978928975974*^9}, {3.7359797387381697`*^9, 3.735979740194787*^9}, { 3.7359798813533697`*^9, 3.7359799188640213`*^9}, {3.73598001651632*^9, 3.735980016729166*^9}, {3.735980488500061*^9, 3.735980509876079*^9}, { 3.735980807246035*^9, 3.7359808193739767`*^9}, {3.735981008651366*^9, 3.735981010400631*^9}, {3.73598105006732*^9, 3.7359810723346786`*^9}, { 3.735981197339735*^9, 3.735981207759191*^9}, {3.735981249344819*^9, 3.735981277309947*^9}, 3.735981423794491*^9, {3.735982009823861*^9, 3.7359820126404257`*^9}, {3.735982196824685*^9, 3.735982201369101*^9}, { 3.7359823451583*^9, 3.735982346121951*^9}, {3.73598266850459*^9, 3.735982678315989*^9}, {3.735982966956642*^9, 3.73598301121178*^9}, { 3.7359831427279873`*^9, 3.735983165127392*^9}, {3.7359832458245792`*^9, 3.7359832497985973`*^9}, {3.735983464448176*^9, 3.735983465535824*^9}, { 3.735987704468998*^9, 3.735987705144627*^9}, {3.7602819927362537`*^9, 3.760281993440712*^9}, {3.7602828789645853`*^9, 3.760282907979228*^9}, { 3.760359919829487*^9, 3.760359951294217*^9}, {3.760359983130714*^9, 3.760359989867981*^9}, {3.7603600274530783`*^9, 3.760360126912212*^9}, 3.7603602057716913`*^9, {3.760803337979126*^9, 3.760803352156416*^9}, { 3.762610877139615*^9, 3.76261100075369*^9}, {3.773760520045268*^9, 3.773760980941579*^9}, {3.774880606793438*^9, 3.77488072396027*^9}, { 3.7800586661528597`*^9, 3.780058697013483*^9}, {3.7800588568088703`*^9, 3.780058922637978*^9}, {3.780058960779582*^9, 3.780058987931497*^9}, { 3.7800595486282454`*^9, 3.7800595721347218`*^9}, {3.780312858426167*^9, 3.7803128679857187`*^9}, 3.780659562938879*^9, 3.783440818049988*^9, 3.801832020682199*^9, 3.801861029030466*^9, 3.8018611096693907`*^9, 3.8018612164285297`*^9, {3.833449478970319*^9, 3.83344948607446*^9}, { 3.8334503480386877`*^9, 3.8334503490535917`*^9}, {3.833648414031008*^9, 3.833648443411031*^9}, 3.8336487039418087`*^9, 3.834153188142672*^9, { 3.834232905638914*^9, 3.834232918115789*^9}, {3.834859765859189*^9, 3.834859778115787*^9}, {3.834860398417403*^9, 3.8348604040028067`*^9}, 3.8364131288325443`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"ba664371-515d-4456-bb26-12b24804b88c"] }, Closed]], Cell[CellGroupData[{ Cell["Sample run - generates Figure 4a", "Section", CellChangeTimes->{ 3.73484575304665*^9, {3.734858156024932*^9, 3.734858156423751*^9}, { 3.734873870545463*^9, 3.7348738718745832`*^9}, 3.734927223333109*^9, { 3.734937192145731*^9, 3.73493719406096*^9}, {3.73495013616162*^9, 3.734950136317984*^9}, {3.7351887186194077`*^9, 3.735188718855474*^9}, { 3.7351968611857967`*^9, 3.735196861671919*^9}, {3.735197200363213*^9, 3.735197202392436*^9}, {3.735197254345447*^9, 3.7351972552276773`*^9}, { 3.735197292630924*^9, 3.735197293009906*^9}, {3.735362628197177*^9, 3.73536262887938*^9}, {3.73563345865665*^9, 3.735633465711008*^9}, { 3.7356409052576447`*^9, 3.735640916649166*^9}, {3.735978333681499*^9, 3.73597833888752*^9}, 3.7626115836298122`*^9, {3.850388883040567*^9, 3.850388889289096*^9}},ExpressionUUID->"7593e588-ac9f-4bb7-afe9-\ f33ed5414217"], Cell[BoxData[{ RowBox[{ RowBox[{"PR12start", " ", "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PL12start", " ", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EM12start", " ", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M12start", " ", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EN12start", " ", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N12start", " ", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PR22start", "=", " ", ".0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PL22start", "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EM22start", " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"M22start", " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"EN22start", " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"N22start", " ", "=", " ", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sTH", " ", "=", " ", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sTL", " ", "=", " ", ".9"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]EM", " ", "=", " ", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]EN", " ", "=", " ", "\[Mu]EM"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]M", " ", "=", " ", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Mu]N", " ", "=", " ", "\[Mu]M"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m1", " ", "=", " ", "0.01"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m2", " ", "=", " ", "m1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]low", " ", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]envt", " ", "=", " ", "varx"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]T", " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sCR", " ", "=", " ", ".015"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sCL", " ", "=", " ", "sCR"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sEM", " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sEN", " ", "=", " ", "sEM"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sR", " ", "=", " ", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sL", " ", "=", " ", "sR"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]low", " ", "=", " ", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]envt", " ", "=", " ", "vary"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]R", " ", "=", " ", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]L", " ", "=", " ", "\[Alpha]R"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tH1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "sR"}], ")"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", "sTH"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tL1", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sL"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", "sTL"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tH2", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", " ", "sL"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "sTH"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tL2", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]envt", " ", "sR"}]}], ")"}], " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Gamma]low", " ", "sL"}]}], ")"}], RowBox[{"(", RowBox[{"1", "-", "sTL"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ffM", " ", "=", " ", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ffN", " ", "=", " ", "ffM"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fmM", " ", "=", " ", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fmN", " ", "=", " ", "fmM"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxx", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"intervalx", " ", "=", ".02"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"maxy", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dimensionx", " ", "=", "51"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dimensiony", " ", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"time1", " ", "=", " ", RowBox[{"DateList", "[", "]"}]}], ";"}], "\[IndentingNewLine]", "CondDepLoopTestSets", "\[IndentingNewLine]", \ RowBox[{ RowBox[{"time2", " ", "=", " ", RowBox[{"DateList", "[", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"time2", "-", "time1time2", "-", "time1"}]}], "Input", CellChangeTimes->{{3.734329692971891*^9, 3.734329695732212*^9}, { 3.734329775600223*^9, 3.7343297767950974`*^9}, {3.7343316504114447`*^9, 3.734331664806739*^9}, {3.734331709594996*^9, 3.734332129397252*^9}, { 3.734334609606846*^9, 3.734334610233263*^9}, {3.7343357178507633`*^9, 3.734335720297608*^9}, {3.734335758132185*^9, 3.7343357749532223`*^9}, { 3.7343359733894243`*^9, 3.734335974464622*^9}, {3.7343363161594543`*^9, 3.734336345792425*^9}, {3.734426428235821*^9, 3.734426433526161*^9}, { 3.7344316290518293`*^9, 3.734431654974291*^9}, {3.7344334500963984`*^9, 3.734433450313013*^9}, {3.734434145839015*^9, 3.734434154368854*^9}, { 3.734434369954463*^9, 3.734434370730956*^9}, {3.734434736577757*^9, 3.734434737278268*^9}, {3.734434905706882*^9, 3.734434906475257*^9}, { 3.7344353438158712`*^9, 3.734435347837957*^9}, {3.734435435738407*^9, 3.734435454397089*^9}, 3.7344358362462263`*^9, {3.7344387452587214`*^9, 3.734438746074952*^9}, {3.7344397374010487`*^9, 3.73443974007446*^9}, { 3.734454675412076*^9, 3.734454676442746*^9}, {3.734454841314237*^9, 3.73445485686996*^9}, 3.73445562877378*^9, {3.734455673559969*^9, 3.734455673843649*^9}, {3.73445800557486*^9, 3.734458007965602*^9}, { 3.734521782049613*^9, 3.734521793480088*^9}, {3.7345740202988167`*^9, 3.7345740516765223`*^9}, {3.734700063525173*^9, 3.734700080964466*^9}, { 3.73470011833088*^9, 3.734700155471463*^9}, {3.734700204458312*^9, 3.7347002274665194`*^9}, {3.734764298736038*^9, 3.734764329852682*^9}, { 3.734774148428088*^9, 3.734774200917151*^9}, 3.734774260833832*^9, { 3.734800265745138*^9, 3.734800309539337*^9}, 3.734858485978994*^9, 3.734858573578267*^9, {3.73487387558954*^9, 3.7348738782987347`*^9}, 3.734927186660369*^9, 3.734927306448987*^9, {3.734937227233336*^9, 3.7349372273688917`*^9}, {3.73495024310711*^9, 3.734950253941484*^9}, { 3.735188746094337*^9, 3.7351887508075237`*^9}, {3.735188796304935*^9, 3.735188796598453*^9}, {3.735196878207364*^9, 3.7351968810134*^9}, { 3.7351972211867867`*^9, 3.735197244957267*^9}, {3.735289006959074*^9, 3.735289013420727*^9}, {3.735317498467214*^9, 3.7353175312606697`*^9}, { 3.735317600421084*^9, 3.735317616765283*^9}, {3.735317723004695*^9, 3.735317736785061*^9}, 3.735317824209297*^9, {3.735641072146676*^9, 3.735641073041253*^9}, {3.73596657531*^9, 3.7359666161639023`*^9}, { 3.73596690133149*^9, 3.735966930915029*^9}, {3.735978543443069*^9, 3.735978567073588*^9}, {3.7359787710299587`*^9, 3.735978784165065*^9}, 3.735978814201803*^9, 3.735978856435903*^9, 3.7359789096356993`*^9, { 3.735980110127986*^9, 3.735980110984665*^9}, {3.735980302013534*^9, 3.735980336810329*^9}, {3.7359804451145687`*^9, 3.735980464700459*^9}, { 3.735980823565248*^9, 3.735980839668194*^9}, {3.7359809847257853`*^9, 3.735981017013788*^9}, {3.735981143838768*^9, 3.73598118479468*^9}, { 3.735982171500329*^9, 3.735982184362112*^9}, {3.7359825676452*^9, 3.7359825741028233`*^9}, {3.735982621473805*^9, 3.73598262629795*^9}, { 3.7359827208980227`*^9, 3.735982727173493*^9}, {3.735987685663073*^9, 3.735987697187628*^9}, 3.7610616901717653`*^9, {3.761061753144734*^9, 3.7610617673845453`*^9}, 3.76261158363122*^9, 3.762612202774681*^9, { 3.762612240575808*^9, 3.7626122466101027`*^9}, {3.773761025605419*^9, 3.7737610746278048`*^9}, {3.7748811688464193`*^9, 3.774881169132391*^9}, { 3.780059843454863*^9, 3.780059856057887*^9}, 3.783440798962727*^9, { 3.83344924155005*^9, 3.833449243380828*^9}, {3.833449390655141*^9, 3.833449391962234*^9}, {3.8334494481054163`*^9, 3.8334494711721163`*^9}, { 3.833450186151463*^9, 3.8334502070495243`*^9}, {3.833450244268265*^9, 3.833450245493066*^9}, 3.8334503074383993`*^9, {3.8334503611221313`*^9, 3.833450362052327*^9}, {3.833648381479094*^9, 3.833648408928564*^9}, 3.833648465443759*^9, {3.833648596352202*^9, 3.8336486026443233`*^9}, { 3.8336486819222307`*^9, 3.833648683483841*^9}, {3.8336487897225523`*^9, 3.833648791241695*^9}, {3.8336488482348413`*^9, 3.833648849682239*^9}, { 3.834153192312559*^9, 3.8341532004373627`*^9}, 3.834232900680825*^9, { 3.8348597138013163`*^9, 3.834859813546389*^9}, {3.834859860226062*^9, 3.83485986053613*^9}, {3.8348604815267763`*^9, 3.8348604862080727`*^9}, { 3.8364131386348333`*^9, 3.836413204074643*^9}},ExpressionUUID->"78b1c3b8-acf3-4394-914c-\ 057d3598dad1"], Cell[BoxData[ RowBox[{"<<", "PlotLegends`"}]], "Input", CellChangeTimes->{{3.760715186407374*^9, 3.760715202196734*^9}, 3.7607152950119*^9, 3.762611583642626*^9, {3.779704866868393*^9, 3.7797048773849287`*^9}},ExpressionUUID->"459bec97-95a7-4de5-b288-\ a397b3647ac8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TableForm", "[", RowBox[{"Reverse", "[", "tabdiffR", "]"}], "]"}]], "Input", CellChangeTimes->{{3.736223384202359*^9, 3.7362233885279293`*^9}, { 3.736527969783951*^9, 3.736527973638937*^9}, 3.762611583642866*^9},ExpressionUUID->"d7a0f51c-6f84-4549-9c99-\ 17622b30bf40"], Cell[BoxData[ TagBox[GridBox[{ {"0.5219265950627294`", "0.5220407428656868`", "0.5221225904345519`", "0.5221719269306209`", "0.5221885251210449`", "0.5221721443337122`", "0.5221225344011181`", "0.5220392761933247`", "0.5219223336762651`", "0.5217711733715584`", "0.5215860756634482`", "0.5213673912994325`", "0.5211142927926028`", "0.520825860244306`", "0.5205018722179338`", "0.5201418282973593`", "0.5197462155238445`", "0.5193148582385365`", "0.5188471593535637`", "0.5183450127389737`", "0.5178072078830358`", "0.5172356054372718`", "0.5165819344303468`", "0.5158059557879728`", "0.5149889244860317`", "0.5141278226953002`", "0.5132174146736759`", "0.512252417015673`", "0.5112289727414977`", "0.5101439103791788`", "0.5089916876478701`", "0.5077686752438713`", "0.5064694174537624`", "0.5050891225459005`", "0.5036210415588187`", "0.502058655950828`", "0.5003926761111217`", "0.49861402885728134`", "0.4967108173647403`", "0.49467031812813267`", "0.4924749438867698`", "0.49010462085870055`", "0.4875331368252749`", "0.4847277732768618`", "0.48164482653859597`", "0.47822453838476287`", "0.47438286735408763`", "0.46999341240841375`", "0.4648534464737232`", "0.45860920556758766`", "0.4504927780438168`"}, {"0.5078284175248096`", "0.5077477653754624`", "0.5076150657787942`", "0.5074298326532669`", "0.5071898723091463`", "0.5068938866824717`", "0.5065401505404163`", "0.506126756275017`", "0.5056513798144416`", "0.5051117465027832`", "0.5045050347736623`", "0.5038290346542704`", "0.5030806202235681`", "0.5022577808695056`", "0.5013561348720168`", "0.5003700549498561`", "0.49929460273148574`", "0.4981247489534206`", "0.4968541601551961`", "0.4954759419627297`", "0.49398232192249636`", "0.49236452545655407`", "0.4904709893795217`", "0.48838228741209866`", "0.48610311698431297`", "0.48359696057567914`", "0.4808221850441905`", "0.4777269104913765`", "0.47423914009286994`", "0.4702633530756205`", "0.46565798469279773`", "0.4602051334191649`", "0.45353488510907947`", "0.4449324092933419`", "0.43263036362699114`", "0.40427829409541505`", RowBox[{"-", "0.00031478473002932716`"}], RowBox[{"-", "0.00030858156695567907`"}], RowBox[{"-", "0.0003027448034178537`"}], RowBox[{"-", "0.00029786701274148175`"}], RowBox[{"-", "0.00029347088506892494`"}], RowBox[{"-", "0.00028935263954510404`"}], RowBox[{"-", "0.00028530811123972377`"}], RowBox[{"-", "0.0002817790881542992`"}], RowBox[{"-", "0.00027870338964075536`"}], RowBox[{"-", "0.0002758212173147312`"}], RowBox[{"-", "0.0002728388082200439`"}], RowBox[{"-", "0.00027064208620919405`"}], RowBox[{"-", "0.00026806202154439074`"}], RowBox[{"-", "0.00026588012045403175`"}], RowBox[{"-", "0.00026408350869178143`"}]}, {"0.5004985780945043`", "0.5002819963929301`", "0.4999987196290334`", "0.4996468081182174`", "0.4992234550482765`", "0.49872495671372774`", "0.4981480030305453`", "0.4974885319735043`", "0.49674168159299636`", "0.4959022173478609`", "0.49496396069561444`", "0.49391998893061106`", "0.4927626282560341`", "0.49148354134735894`", "0.490073448933377`", "0.4885171419744877`", "0.48679861675684555`", "0.4848983979934166`", "0.48279408695610293`", "0.48045533445377975`", "0.4778427224120404`", "0.47485933285571114`", "0.4713318219482381`", "0.46729237258489154`", "0.46257415807540114`", "0.4569276721029195`", "0.4499330747242225`", "0.4407808448371716`", "0.4274740248000909`", "0.39885033441697737`", RowBox[{"-", "0.001004296382790315`"}], RowBox[{"-", "0.0003660839398511584`"}], RowBox[{"-", "0.00035266334967787305`"}], RowBox[{"-", "0.0003413113425629888`"}], RowBox[{"-", "0.00033129231223993916`"}], RowBox[{"-", "0.00032295307358898295`"}], RowBox[{"-", "0.00031535639997248843`"}], RowBox[{"-", "0.0003086217247159073`"}], RowBox[{"-", "0.00030270556390343817`"}], RowBox[{"-", "0.0002974778157432967`"}], RowBox[{"-", "0.0002927322305839031`"}], RowBox[{"-", "0.00028835253337688993`"}], RowBox[{"-", "0.00028458195456382285`"}], RowBox[{"-", "0.00028072693006175875`"}], RowBox[{"-", "0.0002775105946638545`"}], RowBox[{"-", "0.00027460004583779174`"}], RowBox[{"-", "0.0002717722418349444`"}], RowBox[{"-", "0.00026933531282424816`"}], RowBox[{"-", "0.00026681535836781123`"}], RowBox[{"-", "0.0002646839776018206`"}], RowBox[{"-", "0.00026258637726328526`"}]}, {"0.49296680179501384`", "0.49258095104632815`", "0.49210903062569755`", "0.4915460793852827`", "0.4908869755178109`", "0.4901248990098005`", "0.4892528409667928`", "0.48826226123206384`", "0.4871428258624091`", "0.4858825946804941`", "0.4844670428299126`", "0.48287877119844014`", "0.4810968010304786`", "0.479095505578082`", "0.47684469028499943`", "0.4742991452331531`", "0.4714010389348765`", "0.46807267263903607`", "0.46420337685984026`", "0.4596261472420847`", "0.45407577658713016`", "0.4469333378315461`", "0.43748320660361517`", "0.42362093227147124`", "0.3958458025250007`", RowBox[{"-", "0.03509232694708253`"}], RowBox[{"-", "0.019915429575152133`"}], RowBox[{"-", "0.007283626601205073`"}], RowBox[{"-", "0.0029495085639720253`"}], RowBox[{"-", "0.0013116461422562065`"}], RowBox[{"-", "0.0006240345019177251`"}], RowBox[{"-", "0.00037165530801208657`"}], RowBox[{"-", "0.0003565707333995638`"}], RowBox[{"-", "0.00034390287136876196`"}], RowBox[{"-", "0.0003332570622381903`"}], RowBox[{"-", "0.0003239361007317809`"}], RowBox[{"-", "0.000315993707617368`"}], RowBox[{"-", "0.00030889295521663307`"}], RowBox[{"-", "0.00030272178175105857`"}], RowBox[{"-", "0.0002972366515794356`"}], RowBox[{"-", "0.0002919812013506551`"}], RowBox[{"-", "0.0002876312529446201`"}], RowBox[{"-", "0.00028369597908839417`"}], RowBox[{"-", "0.0002798910678122324`"}], RowBox[{"-", "0.00027650778703403045`"}], RowBox[{"-", "0.00027360890220951006`"}], RowBox[{"-", "0.0002705583093922659`"}], RowBox[{"-", "0.00026804486222753443`"}], RowBox[{"-", "0.0002656042050277474`"}], RowBox[{"-", "0.00026368245740238105`"}], RowBox[{"-", "0.00026148808325621165`"}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.783980116137267*^9, 3.8024696886044807`*^9, 3.833634918228551*^9, 3.834093252445475*^9, 3.834215852147944*^9, 3.834308354512454*^9, 3.834995333111723*^9, 3.837858911655324*^9},ExpressionUUID->"53a2b844-ec3b-41a8-a7f9-\ c7f55393ebcb"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"RtabdiffR", " ", "=", " ", RowBox[{"Reverse", "[", "tabdiffR", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.834860035529413*^9, 3.834860072071762*^9}},ExpressionUUID->"b3aaf681-9e05-4390-a36d-\ f91daedf6ad6"], Cell[BoxData[{ RowBox[{ RowBox[{"y2", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RtabdiffR", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"Joined", " ", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}], ",", " ", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", " ", RowBox[{"DataRange", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RtabdiffR", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"Joined", " ", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", " ", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", " ", RowBox[{"DataRange", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ypt5", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RtabdiffR", "[", RowBox[{"[", "3", "]"}], "]"}], ",", " ", RowBox[{"Joined", " ", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", " ", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", " ", RowBox[{"DataRange", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y0", " ", "=", " ", RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"RtabdiffR", "[", RowBox[{"[", "4", "]"}], "]"}], ",", " ", RowBox[{"Joined", " ", "\[Rule]", " ", "True"}], ",", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"0", ",", "1", ",", "0"}], "]"}], ",", " ", RowBox[{"AbsoluteThickness", "[", "2", "]"}]}], "}"}]}], ",", " ", RowBox[{"DataRange", "\[Rule]", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", " ", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7451561864881277`*^9, 3.745156296558591*^9}, { 3.745156340848783*^9, 3.745156390790297*^9}, {3.7451568176501083`*^9, 3.745156818431364*^9}, {3.7451569635359983`*^9, 3.745156967239819*^9}, { 3.74515701120817*^9, 3.7451570744612837`*^9}, {3.745157297996758*^9, 3.745157307809249*^9}, {3.7650292104965677`*^9, 3.7650292176575613`*^9}, { 3.782229929501938*^9, 3.78222997174854*^9}, {3.782230031727324*^9, 3.7822300431817007`*^9}, {3.7822301148797607`*^9, 3.782230124471339*^9}, { 3.782230304124161*^9, 3.782230412467718*^9}, {3.7856737621961823`*^9, 3.785673818866725*^9}, {3.785673886954166*^9, 3.785673893412136*^9}, { 3.785674278749474*^9, 3.785674280342873*^9}, {3.796048127096518*^9, 3.7960481301603413`*^9}, {3.834229419558476*^9, 3.8342294234974737`*^9}, 3.834229515937438*^9, {3.834229547828059*^9, 3.834229567224379*^9}, { 3.834416204028863*^9, 3.834416292754071*^9}, {3.834416327495584*^9, 3.834416335590613*^9}, {3.8348600974788027`*^9, 3.834860344151115*^9}, 3.8348603786945972`*^9, 3.834860410921866*^9, {3.8350105685262947`*^9, 3.835010664649734*^9}, {3.835095684781246*^9, 3.835095685236887*^9}, { 3.838127131388673*^9, 3.838127166854518*^9}},ExpressionUUID->"d581f502-d49a-41b2-b112-\ 261affee5001"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"y2", ",", "y1", ",", "ypt5", ",", "y0"}], "]"}]], "Input", CellChangeTimes->{{3.785673829797248*^9, 3.785673846307591*^9}, { 3.834229570118391*^9, 3.834229572080431*^9}, {3.834416256419074*^9, 3.834416269527561*^9}, {3.834416314816818*^9, 3.8344163213280973`*^9}, { 3.834860177141831*^9, 3.8348601775279293`*^9}, {3.834860320095759*^9, 3.8348603307174273`*^9}, 3.838127189014887*^9},ExpressionUUID->"f49146f7-091c-441a-8af4-\ 8f4f11658079"], Cell[BoxData[ GraphicsBox[{{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[ 2], LineBox[CompressedData[" 1:eJw9UXlIk1EAH0VEdhCxTsyjvyZBYZsopv4gzCujXPSHbiGO1FBBpUs3pBIl sFSEEltgW5vkZk5L5xEiXiHajHnNHNu+N02d56RYRUS1b37PHzwe7/pdL1iW L87cwePxhN7BzhQRqiPZr9oIFHxDvFP+DHWi7pGqdrrWwj/ncn6kkaAroHw1 pcsA6Zh6UW2k5+2I7u40DnnXyhcsulF/J1Xyevt+L9ajIlLY92sp7E4/ipOu dDzZ5h9CTHDc/Vqvvt+MpiDabxiyve13U99TvhEU9gUlTLcShEirBzwCE1z1 Vr1fC+X/DEWnyvnzLYHW+3pGY0Zz8PO/Sj3VG0fR7HTF9zcEQh8m0Sj8UMxr oPpTCFf3mAfUBIMegVdhGh2DVaGR9dTPDJKL1ZJMJYHYJ/gFOXFd8Qm11N8s VtrcuaSGwClnCa2I7Q9rCa2kfm3YbLhgsTwmKGTtFdihD1wsUTyi/h34trt6 /6icYOs3CEr4B0J7btM83n1J0XpcHkHClgB+n0o+k36T5nMiTGCx/ZEQsGrS 6jl8UuWIj1+jeecRfvGpuzGRYCvOPPQZg0e1oPm/IiR3X9o/EUEgaydgAWqT TdcaQvtYgFI8x+hOEmRnsVjERMGDq/aDtJ8lnBjKeBi+k4Bl4xuWcEs0bk5a Zri+XDDp9pz2H2Xwg6XzuBAl079rbmS4/pZR4SlXGcsYxPgIV+CKqPzI3GC4 PlcwlV53tlfIwGevfBWiX7ma4V0M1+8azNdrJmInHRgzsViD5V7QsfMvHVzf 6yiVxXoSpQ4c9hncAO+SC+l8B9f/BqxZpU2CPjt8dFI3kpvm86ypdu4/NlF2 6JyOmbLhP+gJnvA= "]]}}, {}, {}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0, 0, 1], PointSize[0.011000000000000001`], AbsoluteThickness[ 2], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBQBWIQDQOLPi9PVHR4YF8tss79YdUUe9vPd2wr7GH8Jfbs Tv6fE+0e2O+Qa30duGOdvU8YR+1dG5j8FnvDI76Oz6we2M+aCQI77UP+WbVX WsDU77P/c2nqhsmmD+zfBIJEDtqfnGu118AIpv+I/cK4/LPeeg/sua4vLrDl Om6/7SCjzANNmHkn7VcuVdj3XOWBvWZM/6GvGmfsH20IFoyTh5l/zj59UnK7 jeQD+yVA3dcXX7Dfff/+izohmH0X7ddNjmWV4X5gbwwGl+15OffyczDD7L9i 7+NSHFn45b794a8aQBuu2scEtS5we3gf6p7r9hIP9VNKz9y3DwJbeMM+59Lq nQ+23oe676b9nJRY9oy59+0fVoEMvGVv8HNR/bOm+1D33rEPSj2Y9yD5vn0h yHkFd+0jYiROLHe8D3X/PXujWdX2ATL37SGx8cD+Smv7KofP96D+eWAvYPA3 89TRe/YeEAvsyzbaPRGefA/qv4f2bcu85d9H3rMH2RbT/8j+0pPastMS96D+ fWwvIHdDNfzsXXuIdx7bf1KJt2YouQv1/xN7nvsn9Laz3bWXBzlH7qn9Palt J45W3oGGx1P7OtNDzuYbbtunp4HAM/s1154LbLp/09711oJzMlzP7WHpCABm 6h3K "]]}}, {}, {}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[ 2], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQB2IQDQOJHcIzRFke2FeLrHN/WDXFfoLCymR/Jhh/iT2D v9nCX//v2++Qa30duGOdvdlJqdlmv+5D5bfYb2M1fe/2+b79rJkgsNP+jskm EZnXMPX77BfFpWqueHjf/k0gSOSgvUrrXuVb12D6j9gbKDjMn3vqvj3X9cUF tlzH7b+UJy6/swdm3kl7jp0/AmvX3rfXjOk/9FXjjP05nstTk+bAzD9nb2bn 7JzTed9+CVD39cUX7Jf9UUsqL4HZd9Hea9FnttjY+/bGYHDZ3stMJP2uM8z+ K/Za0WuTtqrftz/8VQNow1X7a28DvCZzwNxz3f5BXre25LN79kFgC2/Ys+3R 2n18/z2o+27aJ3FHLvk55Z79wyqQgbfs9xibpEmk3IO69479DWvTTz5a9+wL Qc4ruGv/iL3aRe7FXaj779mbqVktuTDrrj0kNh7YPyoUmeBrdxfqnwf2M4RC JbacvmPvAbHAvutm4J0Dpneg/nto/++nJPOe6Nv2INti+h/Zs5RM6T3cdtM+ 72PrrZNGj+1h8QwAaxbvAw== "]]}}, {}, {}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[ 2], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCQAmIQDQNtXu8WHOm5b18tss79YdUU+wbJGw5FbTD+Evt3 C9UebKu7b79DrvV14I519uu+3F5fWwqT32LPk1FhsjHrvv2smSCw057vC89l kziY+n32k6Jvq772v2//JhAkctD+ltn3qA32MP1H7A1uJEtF6t6357q+uMCW 67i9j3eZ/2YJmHkn7ZvybfiaGO/ba8b0H/qqccb+xPa+mJrn96Dmn7N32bbC xuvUPfslQN3XF1+wXzaF3ahh5T2ofRfte541TZ/fcs/eGAwu25ewBJ99FXUP av8V+6ilic752vfsD3/VANpw1f7MZg/R51/uQt1z3f7WxMkiTVvv2geBLbxh P23xppPNWXeh7rtp/8B22o3J/HftH1aBDLxl37MwzrNv1h2oe+/Yv4m0mrDz /237QpDzCu7abyhq+DFL5jbU/ffsHyxmW9QZetO+1a7mS8DT+/aweAEAHbzP Ww== "]]}}, {}, {}, {{}, {}}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 1.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7960474824602737`*^9, 3.7960481321994963`*^9, 3.802469689159575*^9, 3.833634918444848*^9, 3.8340932526895027`*^9, 3.834215852498707*^9, 3.834229396858014*^9, 3.834229572922283*^9, 3.8343083547119083`*^9, { 3.834416270155406*^9, 3.834416338396768*^9}, {3.8348601599953823`*^9, 3.8348602384213257`*^9}, 3.834860275646099*^9, 3.834860346752604*^9, 3.834995333335135*^9, 3.835010793000248*^9, 3.8350956881267643`*^9, 3.837858912112204*^9, 3.838127189644733*^9},ExpressionUUID->"700a1633-dc88-4f32-a39d-\ 032c3824336e"] }, Open ]], Cell[CellGroupData[{ Cell["Additional numerical output to aid interpretation", "Subsection", CellChangeTimes->{{3.85038897787822*^9, 3.850388985544127*^9}},ExpressionUUID->"b4d9544b-6567-4d6f-b5d5-\ d2607bd982be"], Cell["\<\ Each table reports on the frequencies of the alleles or measures after \ \[OpenCurlyDoubleQuote]tab\[CloseCurlyDoubleQuote], where the first index is \ the population and the second is the allele. For example, tabPR12 records \ the frequencies of allele PR2 in population 1. \[OpenCurlyDoubleQuote]D\[CloseCurlyDoubleQuote] denotes the linkage \ disequilibrium between the subsequent loci (the \[OpenCurlyDoubleQuote]1\ \[CloseCurlyDoubleQuote] after \[OpenCurlyDoubleQuote]D\ \[CloseCurlyDoubleQuote] stands for population 1). Additional measures and flags are defined in the program above.\ \>", "Text", CellChangeTimes->{{3.8503890466581182`*^9, 3.850389180358951*^9}, { 3.8503893578841753`*^9, 3.8503893688112097`*^9}},ExpressionUUID->"cf900313-5476-49fd-a7aa-\ d059d8cb11a2"], Cell[CellGroupData[{ Cell[BoxData["tabPR12"], "Input", CellChangeTimes->{ 3.762611583657486*^9},ExpressionUUID->"d0cedb0e-fb53-4c86-86ba-\ 8257f2fbe48a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.793512080913108`", ",", "0.7911823552066222`", ",", "0.7887871326209022`", ",", "0.7863227572431402`", ",", "0.7837872650707811`", ",", "0.7811753481565928`", ",", "0.778484264975475`", ",", "0.7757097740428224`", ",", "0.772846025353813`", ",", "0.7698874219219084`", ",", "0.7668264569815579`", ",", "0.7636545042677501`", ",", "0.760361579530086`", ",", "0.7569331401656728`", ",", "0.7533677177777949`", ",", "0.7496625655357696`", ",", "0.745775438336179`", ",", "0.7416766366382853`", ",", "0.7373220572635261`", ",", "0.732643185703972`", ",", "0.7275264320801645`", ",", "0.7216745694117729`", ",", "0.714783328624212`", ",", "0.7059887083234446`", ",", "0.6913591131395689`", ",", "0.6733397964066464`", ",", "0.9041893097840644`", ",", "0.9694469612381789`", ",", "0.9884357150776418`", ",", "0.9951049427681884`", ",", "0.9977664245765094`", ",", "0.998718448844704`", ",", "0.998811656869281`", ",", "0.9988898908858176`", ",", "0.9989560761027801`", ",", "0.9990136183920773`", ",", "0.9990632528890269`", ",", "0.9991072934265711`", ",", "0.9991460239509562`", ",", "0.9991805863244693`", ",", "0.9992125716350885`", ",", "0.9992404280027483`", ",", "0.9992657359117726`", ",", "0.9992894153996539`", ",", "0.9993108742295762`", ",", "0.9993301151522069`", ",", "0.9993488163074615`", ",", "0.9993654015505647`", ",", "0.9993810797308771`", ",", "0.9993948907145181`", ",", "0.9994087275228434`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7932887093793028`", ",", "0.7912025605973767`", ",", "0.7890648110488496`", ",", "0.7868760906937956`", ",", "0.7846349244657725`", ",", "0.7823377168027195`", ",", "0.7799837184701072`", ",", "0.7775710250770802`", ",", "0.7750965580131861`", ",", "0.7725580384048729`", ",", "0.7699519806655543`", ",", "0.7672746857631432`", ",", "0.7645222765861072`", ",", "0.7616898429385278`", ",", "0.7587901943993853`", ",", "0.7558169813222079`", ",", "0.7527560126469148`", ",", "0.7496017897380172`", ",", "0.7463460481714755`", ",", "0.7429806996750118`", ",", "0.7394931915300105`", ",", "0.7358418204747463`", ",", "0.7319173097534577`", ",", "0.7277443151645787`", ",", "0.7232666282805171`", ",", "0.7183953332675217`", ",", "0.7129770475017192`", ",", "0.7067162137048586`", ",", "0.6988866565584585`", ",", "0.6855456439979336`", ",", "0.9966449673160691`", ",", "0.9988199215739831`", ",", "0.9988983787649811`", ",", "0.9989647536425427`", ",", "0.999022543135637`", ",", "0.9990716656940036`", ",", "0.9991155820497369`", ",", "0.9991544781550307`", ",", "0.99918892498006`", ",", "0.9992196436555174`", ",", "0.9992474701296572`", ",", "0.9992729312953552`", ",", "0.9992956117174592`", ",", "0.9993173937817555`", ",", "0.9993366342893795`", ",", "0.9993542765957701`", ",", "0.9993709427625502`", ",", "0.9993860008066654`", ",", "0.9994006096101167`", ",", "0.9994137637190702`", ",", "0.9994263165555666`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7930153393720252`", ",", "0.7911474285721566`", ",", "0.7892398109271506`", ",", "0.7872948288054875`", ",", "0.7853088104007063`", ",", "0.7832820311281059`", ",", "0.7812137336813826`", ",", "0.7791031252625685`", ",", "0.7769483855046911`", ",", "0.7747486702974431`", ",", "0.7725011441701727`", ",", "0.7702070007937791`", ",", "0.7678615887063661`", ",", "0.7654665637399619`", ",", "0.7630416907054396`", ",", "0.7605675898931372`", ",", "0.7580433839622176`", ",", "0.7554677807491332`", ",", "0.7528409700043672`", ",", "0.7501625385153453`", ",", "0.7474323351233132`", ",", "0.7446505749213357`", ",", "0.7417326092680002`", ",", "0.7386975292071698`", ",", "0.7355580470412527`", ",", "0.7323052117176025`", ",", "0.728927559064769`", ",", "0.7254100930384434`", ",", "0.7217276263146846`", ",", "0.7178498502498952`", ",", "0.7137291106453492`", ",", "0.7092941725017168`", ",", "0.7044239817059388`", ",", "0.6988883271724964`", ",", "0.6921219042553401`", ",", "0.680372435966496`", ",", "0.9991641320783949`", ",", "0.9991981008412106`", ",", "0.9992292345616559`", ",", "0.9992563135429018`", ",", "0.9992808121026286`", ",", "0.9993034217795133`", ",", "0.999324775165303`", ",", "0.9993439497021758`", ",", "0.9993612292088684`", ",", "0.9993773189102902`", ",", "0.9993929524671885`", ",", "0.9994062292828417`", ",", "0.9994197978157804`", ",", "0.9994319950837183`", ",", "0.9994429172663708`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7923575152142883`", ",", "0.7908684824417422`", ",", "0.7893568127240499`", ",", "0.7878224812645729`", ",", "0.7862654732976246`", ",", "0.7846857896361907`", ",", "0.7830834535382886`", ",", "0.7814575229316988`", ",", "0.7798090993553461`", ",", "0.7781353726626816`", ",", "0.7764376384998732`", ",", "0.7747183806105111`", ",", "0.7729905597341189`", ",", "0.7712413191794278`", ",", "0.7694711585165284`", ",", "0.7676813731217194`", ",", "0.7658713499934039`", ",", "0.7640428938458187`", ",", "0.762197498370282`", ",", "0.7603362788031588`", ",", "0.7584613533706608`", ",", "0.7565750593232801`", ",", "0.7546536287861967`", ",", "0.7526580306641057`", ",", "0.7506269983883544`", ",", "0.7485635323719191`", ",", "0.7464683314026164`", ",", "0.7443407847638761`", ",", "0.7421809788301325`", ",", "0.7399897235013736`", ",", "0.737764588902318`", ",", "0.7355058904680993`", ",", "0.7332117096326874`", ",", "0.7308818651278015`", ",", "0.728513910657935`", ",", "0.7261070800425431`", ",", "0.7236572580022393`", ",", "0.7211628883548173`", ",", "0.7186198978134481`", ",", "0.7160265507502728`", ",", "0.7133762982031905`", ",", "0.7106645048534803`", ",", "0.7078831105709507`", ",", "0.705024089837931`", ",", "0.7020756474615677`", ",", "0.6990209051859401`", ",", "0.6958386492458255`", ",", "0.6924952189459774`", ",", "0.6889332733293325`", ",", "0.6850341191437088`", ",", "0.6806915453728032`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274142992494*^9, 3.781649899961934*^9, 3.783980116308428*^9, 3.802469690117586*^9, 3.833634919363673*^9, 3.834093253644888*^9, 3.834215853619302*^9, 3.834308355595435*^9, 3.834995334182334*^9, 3.837858913120409*^9},ExpressionUUID->"540ca2cc-e52e-4d21-914b-\ 2adfd1e100b8"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPR22"], "Input", CellChangeTimes->{3.762611583657651*^9}, CellLabel->"In[85]:=",ExpressionUUID->"4d8e8607-f137-4ca7-b158-0a105156ec6e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.30054527911809414`", ",", "0.298601404160294`", ",", "0.2966781019952046`", ",", "0.29477667785785744`", ",", "0.2929002895529702`", ",", "0.29105044914679234`", ",", "0.2892314240086822`", ",", "0.28744751281075853`", ",", "0.2857031994914039`", ",", "0.2840048272414143`", ",", "0.28235941415164534`", ",", "0.2807757330693099`", ",", "0.2792647784996074`", ",", "0.2778376345875908`", ",", "0.27652302749279545`", ",", "0.2753634203026165`", ",", "0.2743743994013025`", ",", "0.27360396399924924`", ",", "0.2731186804036858`", ",", "0.2730170384618873`", ",", "0.2734506554930344`", ",", "0.2747412315802268`", ",", "0.27730012202059684`", ",", "0.2823677760519734`", ",", "0.2955133106145682`", ",", "0.708432123353729`", ",", "0.9241047393592166`", ",", "0.9767305878393839`", ",", "0.9913852236416139`", ",", "0.9964165889104446`", ",", "0.9983904590784272`", ",", "0.999090104152716`", ",", "0.9991682276026805`", ",", "0.9992337937571864`", ",", "0.9992893331650183`", ",", "0.999337554492809`", ",", "0.9993792465966442`", ",", "0.9994161863817878`", ",", "0.9994487457327073`", ",", "0.9994778229760487`", ",", "0.9995045528364391`", ",", "0.9995280592556929`", ",", "0.999549431890861`", ",", "0.9995693064674661`", ",", "0.9995873820166102`", ",", "0.9996037240544164`", ",", "0.9996193746168538`", ",", "0.9996334464127923`", ",", "0.9996466839359048`", ",", "0.9996585731719205`", ",", "0.9996702156060996`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2927901312847986`", ",", "0.29092056420444656`", ",", "0.2890660914198162`", ",", "0.2872292825755782`", ",", "0.28541146941749607`", ",", "0.2836127600889917`", ",", "0.2818357154395619`", ",", "0.2800824931035759`", ",", "0.27835487642018975`", ",", "0.27665582105701203`", ",", "0.2749880199699398`", ",", "0.2733546968325321`", ",", "0.27175964833007304`", ",", "0.2702063015911689`", ",", "0.2687167454660083`", ",", "0.26729983934772017`", ",", "0.2659573958900693`", ",", "0.26470339174460056`", ",", "0.2635519612153726`", ",", "0.26252536522123204`", ",", "0.2616504691179701`", ",", "0.2609824876190352`", ",", "0.2605854878052196`", ",", "0.2604519425796872`", ",", "0.260692470205116`", ",", "0.2614676611646022`", ",", "0.2630439727774967`", ",", "0.265935368867687`", ",", "0.2714126317583676`", ",", "0.28669530958095624`", ",", "0.9976492636988594`", ",", "0.9991860055138343`", ",", "0.999251042114659`", ",", "0.9993060649851057`", ",", "0.9993538354478769`", ",", "0.9993946187675926`", ",", "0.9994309384497094`", ",", "0.9994630998797466`", ",", "0.9994916305439634`", ",", "0.9995171214712607`", ",", "0.9995402023602411`", ",", "0.9995612838287321`", ",", "0.999580193672023`", ",", "0.9995981207118173`", ",", "0.9996141448840433`", ",", "0.9996288766416079`", ",", "0.9996427150043852`", ",", "0.9996553361194896`", ",", "0.9996674249684845`", ",", "0.999678447696672`", ",", "0.9996889029328299`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2851869218472156`", ",", "0.2833996631966942`", ",", "0.28162474514835634`", ",", "0.2798649961522206`", ",", "0.2781189380915601`", ",", "0.2763881444456342`", ",", "0.27467358314096624`", ",", "0.2729763689875515`", ",", "0.2712970056902495`", ",", "0.26963692379465987`", ",", "0.2679961093965104`", ",", "0.2663779661395087`", ",", "0.264780968482798`", ",", "0.26320878287045635`", ",", "0.2616855558334228`", ",", "0.26019753494328113`", ",", "0.25874878123073186`", ",", "0.2573430317957126`", ",", "0.2559868098491711`", ",", "0.2546865965526156`", ",", "0.25345001320081684`", ",", "0.2522860494647816`", ",", "0.2512616198884785`", ",", "0.25031524179507114`", ",", "0.24945493005693975`", ",", "0.2487082511419234`", ",", "0.24810537402057853`", ",", "0.2476831825470669`", ",", "0.24748848622181463`", ",", "0.24758649717427472`", ",", "0.24807112595255143`", ",", "0.24908903908255187`", ",", "0.2508890965968593`", ",", "0.2539559178791545`", ",", "0.259491540628349`", ",", "0.27609414187108094`", ",", "0.9994789168084243`", ",", "0.9995066824081663`", ",", "0.9995319793650738`", ",", "0.9995541805556433`", ",", "0.9995742829876976`", ",", "0.9995927744190584`", ",", "0.9996100832765428`", ",", "0.9996257287903301`", ",", "0.9996399325985091`", ",", "0.999653140127605`", ",", "0.9996657912754086`", ",", "0.9996768713690509`", ",", "0.9996878598373248`", ",", "0.9996978752041723`", ",", "0.9997070007750626`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2704309201515589`", ",", "0.26882773957605544`", ",", "0.267234222289498`", ",", "0.265650554333952`", ",", "0.2640769481765798`", ",", "0.26251364530247856`", ",", "0.26096091913717046`", ",", "0.2594182467383741`", ",", "0.2578867656790811`", ",", "0.2563641992911232`", ",", "0.25485156283642507`", ",", "0.2533509893110786`", ",", "0.2518762669415161`", ",", "0.25041545893512185`", ",", "0.2489692862985946`", ",", "0.24753954482436002`", ",", "0.24612513446955941`", ",", "0.24472803560728218`", ",", "0.2433503390167182`", ",", "0.24199126606418508`", ",", "0.24065414548762498`", ",", "0.2393394538860083`", ",", "0.23807169435584985`", ",", "0.2368520748761329`", ",", "0.23563807390232272`", ",", "0.23443570967661886`", ",", "0.2332509167289405`", ",", "0.23208836774820307`", ",", "0.23095200608863475`", ",", "0.22984581312219476`", ",", "0.22877290125444794`", ",", "0.22773721522422807`", ",", "0.22674229217892505`", ",", "0.22579274258190096`", ",", "0.22489286909911632`", ",", "0.2240484240917151`", ",", "0.22326458189111764`", ",", "0.222548859497536`", ",", "0.22190908044870783`", ",", "0.2213562326221401`", ",", "0.22090135431642066`", ",", "0.22055988399477977`", ",", "0.22034997374567578`", ",", "0.22029631656106918`", ",", "0.22043082092297173`", ",", "0.2207963668011772`", ",", "0.22145578189173787`", ",", "0.22250180653756368`", ",", "0.22407982685560934`", ",", "0.22642491357612116`", ",", "0.23019876732898636`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741430864277`*^9, 3.781649900041869*^9, 3.783980116418727*^9, 3.8024696902073593`*^9, 3.833634919400331*^9, 3.834093253684928*^9, 3.834215853669894*^9, 3.834308355622888*^9, 3.83499533420816*^9, 3.837858913148985*^9}, CellLabel->"Out[85]=",ExpressionUUID->"bd025886-66eb-44d6-a973-6df9dfca1030"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPL12"], "Input", CellChangeTimes->{3.7626115836578617`*^9}, CellLabel->"In[86]:=",ExpressionUUID->"154c2a2d-046a-48ec-8f31-c6695e3f26e5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.3005452791180946`", ",", "0.29860140416029335`", ",", "0.29667810199520517`", ",", "0.29477667785785777`", ",", "0.29290028955296954`", ",", "0.291050449146794`", ",", "0.2892314240086825`", ",", "0.2874475128107583`", ",", "0.2857031994914053`", ",", "0.2840048272414144`", ",", "0.28235941415164567`", ",", "0.28077573306931014`", ",", "0.2792647784996085`", ",", "0.2778376345875908`", ",", "0.2765230274927951`", ",", "0.2753634203026164`", ",", "0.27437439940130215`", ",", "0.27360396399925047`", ",", "0.27311868040368603`", ",", "0.27301703846188796`", ",", "0.27345065549303427`", ",", "0.2747412315802269`", ",", "0.2773001220205974`", ",", "0.2823677760519734`", ",", "0.29551331061464003`", ",", "0.708433362845777`", ",", "0.924104739362649`", ",", "0.9767305878393814`", ",", "0.9913852236416137`", ",", "0.9964165889104445`", ",", "0.998390459078427`", ",", "0.999090104152716`", ",", "0.9991682276026805`", ",", "0.9992337937571864`", ",", "0.9992893331650183`", ",", "0.999337554492809`", ",", "0.9993792465966442`", ",", "0.9994161863817879`", ",", "0.9994487457327073`", ",", "0.9994778229760487`", ",", "0.9995045528364391`", ",", "0.9995280592556929`", ",", "0.999549431890861`", ",", "0.9995693064674661`", ",", "0.9995873820166102`", ",", "0.9996037240544166`", ",", "0.9996193746168538`", ",", "0.9996334464127923`", ",", "0.9996466839359048`", ",", "0.9996585731719205`", ",", "0.9996702156060996`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.29279013128479825`", ",", "0.2909205642044469`", ",", "0.2890660914198173`", ",", "0.2872292825755782`", ",", "0.28541146941749573`", ",", "0.28361276008899117`", ",", "0.2818357154395619`", ",", "0.28008249310357536`", ",", "0.27835487642019086`", ",", "0.2766558210570118`", ",", "0.27498801996994016`", ",", "0.2733546968325331`", ",", "0.2717596483300738`", ",", "0.27020630159116876`", ",", "0.26871674546600766`", ",", "0.26729983934772017`", ",", "0.26595739589007017`", ",", "0.264703391744601`", ",", "0.2635519612153736`", ",", "0.2625253652212314`", ",", "0.2616504691179695`", ",", "0.2609824876190361`", ",", "0.2605854878052196`", ",", "0.26045194257968696`", ",", "0.2606924702051152`", ",", "0.26146766116460374`", ",", "0.263043972777498`", ",", "0.26593536886768665`", ",", "0.2714126317583666`", ",", "0.28669530958006106`", ",", "0.9976492636988573`", ",", "0.9991860055138352`", ",", "0.9992510421146593`", ",", "0.9993060649851057`", ",", "0.9993538354478769`", ",", "0.9993946187675926`", ",", "0.9994309384497094`", ",", "0.9994630998797466`", ",", "0.9994916305439634`", ",", "0.9995171214712607`", ",", "0.9995402023602411`", ",", "0.9995612838287321`", ",", "0.999580193672023`", ",", "0.9995981207118173`", ",", "0.9996141448840433`", ",", "0.9996288766416079`", ",", "0.9996427150043852`", ",", "0.9996553361194896`", ",", "0.9996674249684845`", ",", "0.999678447696672`", ",", "0.9996889029328299`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.28518692184721495`", ",", "0.28339966319669374`", ",", "0.2816247451483569`", ",", "0.27986499615222016`", ",", "0.2781189380915602`", ",", "0.276388144445635`", ",", "0.2746735831409659`", ",", "0.2729763689875526`", ",", "0.27129700569025017`", ",", "0.26963692379465953`", ",", "0.26799610939651053`", ",", "0.2663779661395087`", ",", "0.264780968482799`", ",", "0.2632087828704581`", ",", "0.26168555583342235`", ",", "0.26019753494328024`", ",", "0.2587487812307321`", ",", "0.2573430317957125`", ",", "0.2559868098491702`", ",", "0.25468659655261594`", ",", "0.2534500132008164`", ",", "0.25228604946478184`", ",", "0.25126161988847817`", ",", "0.25031524179507114`", ",", "0.24945493005694042`", ",", "0.24870825114192419`", ",", "0.24810537402057853`", ",", "0.247683182547066`", ",", "0.24748848622181463`", ",", "0.2475864971742734`", ",", "0.24807112595255176`", ",", "0.2490890390825533`", ",", "0.25088909659685776`", ",", "0.2539559178791547`", ",", "0.2594915406283367`", ",", "0.27609414187389403`", ",", "0.999478916808418`", ",", "0.9995066824081654`", ",", "0.9995319793650738`", ",", "0.9995541805556433`", ",", "0.9995742829876976`", ",", "0.9995927744190584`", ",", "0.9996100832765428`", ",", "0.9996257287903301`", ",", "0.9996399325985091`", ",", "0.999653140127605`", ",", "0.9996657912754086`", ",", "0.9996768713690509`", ",", "0.9996878598373248`", ",", "0.9996978752041723`", ",", "0.9997070007750626`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.27043092015155956`", ",", "0.26882773957605577`", ",", "0.267234222289499`", ",", "0.265650554333952`", ",", "0.2640769481765797`", ",", "0.26251364530247956`", ",", "0.26096091913717046`", ",", "0.259418246738374`", ",", "0.25788676567908064`", ",", "0.2563641992911232`", ",", "0.25485156283642585`", ",", "0.25335098931107825`", ",", "0.25187626694151644`", ",", "0.2504154589351216`", ",", "0.24896928629859505`", ",", "0.24753954482435958`", ",", "0.24612513446955975`", ",", "0.24472803560728196`", ",", "0.24335033901671843`", ",", "0.24199126606418475`", ",", "0.2406541454876252`", ",", "0.23933945388600797`", ",", "0.2380716943558503`", ",", "0.23685207487613336`", ",", "0.23563807390232272`", ",", "0.23443570967661842`", ",", "0.2332509167289395`", ",", "0.2320883677482033`", ",", "0.23095200608863475`", ",", "0.2298458131221952`", ",", "0.2287729012544475`", ",", "0.22773721522422796`", ",", "0.22674229217892472`", ",", "0.22579274258190107`", ",", "0.22489286909911654`", ",", "0.22404842409171455`", ",", "0.22326458189111809`", ",", "0.22254885949753667`", ",", "0.2219090804487076`", ",", "0.221356232622141`", ",", "0.22090135431642088`", ",", "0.22055988399477933`", ",", "0.22034997374567578`", ",", "0.22029631656106796`", ",", "0.22043082092297128`", ",", "0.2207963668011763`", ",", "0.22145578189173754`", ",", "0.22250180653756302`", ",", "0.22407982685560945`", ",", "0.22642491357612426`", ",", "0.23019876732898648`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274143189118*^9, 3.7816499001298103`*^9, 3.7839801166820297`*^9, 3.8024696902982616`*^9, 3.833634919412249*^9, 3.834093253699419*^9, 3.8342158536833897`*^9, 3.8343083556369658`*^9, 3.834995334222036*^9, 3.837858913164537*^9}, CellLabel->"Out[86]=",ExpressionUUID->"38a709aa-516e-4764-8a64-46758d476dbf"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPL22"], "Input", CellChangeTimes->{3.7626115836580477`*^9}, CellLabel->"In[87]:=",ExpressionUUID->"f64d906d-5a2d-404a-8df6-dbe3710abe3d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7935120809131082`", ",", "0.791182355206622`", ",", "0.7887871326209033`", ",", "0.7863227572431403`", ",", "0.7837872650707809`", ",", "0.7811753481565933`", ",", "0.7784842649754754`", ",", "0.7757097740428218`", ",", "0.7728460253538141`", ",", "0.7698874219219081`", ",", "0.7668264569815577`", ",", "0.7636545042677503`", ",", "0.7603615795300864`", ",", "0.7569331401656728`", ",", "0.7533677177777949`", ",", "0.7496625655357696`", ",", "0.7457754383361785`", ",", "0.7416766366382869`", ",", "0.7373220572635263`", ",", "0.7326431857039719`", ",", "0.7275264320801647`", ",", "0.7216745694117737`", ",", "0.7147833286242118`", ",", "0.7059887083234448`", ",", "0.691359113139626`", ",", "0.6733410160499134`", ",", "0.9041893097882897`", ",", "0.9694469612381756`", ",", "0.9884357150776417`", ",", "0.9951049427681884`", ",", "0.9977664245765094`", ",", "0.998718448844704`", ",", "0.998811656869281`", ",", "0.9988898908858176`", ",", "0.9989560761027801`", ",", "0.9990136183920773`", ",", "0.9990632528890269`", ",", "0.9991072934265711`", ",", "0.9991460239509562`", ",", "0.9991805863244693`", ",", "0.9992125716350885`", ",", "0.9992404280027483`", ",", "0.9992657359117726`", ",", "0.9992894153996539`", ",", "0.9993108742295762`", ",", "0.9993301151522069`", ",", "0.9993488163074615`", ",", "0.9993654015505647`", ",", "0.9993810797308771`", ",", "0.999394890714518`", ",", "0.9994087275228434`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7932887093793033`", ",", "0.7912025605973761`", ",", "0.7890648110488505`", ",", "0.7868760906937953`", ",", "0.7846349244657727`", ",", "0.7823377168027188`", ",", "0.7799837184701077`", ",", "0.7775710250770796`", ",", "0.775096558013187`", ",", "0.7725580384048729`", ",", "0.769951980665554`", ",", "0.7672746857631438`", ",", "0.7645222765861074`", ",", "0.7616898429385276`", ",", "0.7587901943993852`", ",", "0.7558169813222082`", ",", "0.7527560126469158`", ",", "0.7496017897380176`", ",", "0.7463460481714763`", ",", "0.7429806996750112`", ",", "0.7394931915300103`", ",", "0.735841820474747`", ",", "0.7319173097534574`", ",", "0.7277443151645784`", ",", "0.7232666282805165`", ",", "0.718395333267523`", ",", "0.7129770475017206`", ",", "0.706716213704858`", ",", "0.6988866565584582`", ",", "0.6855456439972378`", ",", "0.9966449673160662`", ",", "0.9988199215739844`", ",", "0.9988983787649817`", ",", "0.9989647536425427`", ",", "0.999022543135637`", ",", "0.9990716656940036`", ",", "0.9991155820497369`", ",", "0.9991544781550306`", ",", "0.99918892498006`", ",", "0.9992196436555174`", ",", "0.9992474701296572`", ",", "0.9992729312953552`", ",", "0.9992956117174592`", ",", "0.9993173937817555`", ",", "0.9993366342893795`", ",", "0.9993542765957701`", ",", "0.9993709427625502`", ",", "0.9993860008066653`", ",", "0.9994006096101167`", ",", "0.9994137637190702`", ",", "0.9994263165555666`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7930153393720243`", ",", "0.7911474285721565`", ",", "0.7892398109271512`", ",", "0.7872948288054868`", ",", "0.785308810400706`", ",", "0.7832820311281068`", ",", "0.7812137336813822`", ",", "0.7791031252625696`", ",", "0.7769483855046918`", ",", "0.7747486702974431`", ",", "0.772501144170173`", ",", "0.7702070007937797`", ",", "0.7678615887063668`", ",", "0.7654665637399628`", ",", "0.763041690705439`", ",", "0.7605675898931369`", ",", "0.7580433839622178`", ",", "0.7554677807491329`", ",", "0.7528409700043663`", ",", "0.7501625385153466`", ",", "0.7474323351233123`", ",", "0.7446505749213362`", ",", "0.7417326092680001`", ",", "0.7386975292071699`", ",", "0.7355580470412542`", ",", "0.7323052117176031`", ",", "0.7289275590647688`", ",", "0.7254100930384421`", ",", "0.7217276263146848`", ",", "0.7178498502498936`", ",", "0.7137291106453502`", ",", "0.7092941725017189`", ",", "0.7044239817059373`", ",", "0.6988883271724968`", ",", "0.6921219042553302`", ",", "0.6803724359686345`", ",", "0.9991641320783851`", ",", "0.9991981008412092`", ",", "0.9992292345616559`", ",", "0.9992563135429018`", ",", "0.9992808121026288`", ",", "0.9993034217795133`", ",", "0.999324775165303`", ",", "0.9993439497021758`", ",", "0.9993612292088683`", ",", "0.9993773189102902`", ",", "0.9993929524671885`", ",", "0.9994062292828417`", ",", "0.9994197978157804`", ",", "0.9994319950837182`", ",", "0.9994429172663708`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7923575152142888`", ",", "0.790868482441742`", ",", "0.7893568127240504`", ",", "0.787822481264573`", ",", "0.7862654732976248`", ",", "0.7846857896361912`", ",", "0.7830834535382881`", ",", "0.7814575229316992`", ",", "0.7798090993553464`", ",", "0.7781353726626817`", ",", "0.7764376384998742`", ",", "0.7747183806105107`", ",", "0.7729905597341196`", ",", "0.7712413191794284`", ",", "0.7694711585165288`", ",", "0.7676813731217196`", ",", "0.7658713499934043`", ",", "0.7640428938458184`", ",", "0.7621974983702821`", ",", "0.7603362788031596`", ",", "0.7584613533706606`", ",", "0.7565750593232794`", ",", "0.7546536287861967`", ",", "0.7526580306641057`", ",", "0.7506269983883547`", ",", "0.7485635323719189`", ",", "0.7464683314026153`", ",", "0.7443407847638761`", ",", "0.7421809788301322`", ",", "0.7399897235013742`", ",", "0.737764588902318`", ",", "0.7355058904680997`", ",", "0.7332117096326874`", ",", "0.7308818651278013`", ",", "0.7285139106579355`", ",", "0.7261070800425428`", ",", "0.7236572580022396`", ",", "0.7211628883548176`", ",", "0.7186198978134477`", ",", "0.7160265507502731`", ",", "0.7133762982031906`", ",", "0.7106645048534799`", ",", "0.7078831105709505`", ",", "0.7050240898379305`", ",", "0.7020756474615664`", ",", "0.6990209051859395`", ",", "0.6958386492458254`", ",", "0.6924952189459762`", ",", "0.688933273329333`", ",", "0.6850341191437112`", ",", "0.680691545372804`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274143282537*^9, 3.7816499002166033`*^9, 3.7839801167796993`*^9, 3.802469690383215*^9, 3.833634919448522*^9, 3.834093253739236*^9, 3.834215853733642*^9, 3.834308355663332*^9, 3.834995334247613*^9, 3.837858913192522*^9}, CellLabel->"Out[87]=",ExpressionUUID->"12fd134f-00bf-4993-adb0-d3e20ca9df75"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabEM11"], "Input", CellChangeTimes->{3.762611583658238*^9}, CellLabel->"In[88]:=",ExpressionUUID->"0bae2b08-ca7a-41c4-89a9-a312709a9c3f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.9827501636992655`", ",", "0.98270335348873`", ",", "0.9826571703731819`", ",", "0.9826116629498588`", ",", "0.9825669072886879`", ",", "0.9825229664420438`", ",", "0.9824799440667299`", ",", "0.9824379537982446`", ",", "0.9823971236959881`", ",", "0.9823576187950602`", ",", "0.9823196317883469`", ",", "0.9822834015766444`", ",", "0.9822492271950789`", ",", "0.9822174608339383`", ",", "0.9821886968456763`", ",", "0.9821637207390868`", ",", "0.982143207199986`", ",", "0.9821283271945966`", ",", "0.9821207141412737`", ",", "0.9821227628024`", ",", "0.9821381875176655`", ",", "0.9821736325357582`", ",", "0.982241231195921`", ",", "0.9823715627156107`", ",", "0.9827017034825881`", ",", "0.9901256101787086`", ",", "0.9908380861716499`", ",", "0.9909474788081949`", ",", "0.9909816177083917`", ",", "0.9909987118637072`", ",", "0.9910101021076704`", ",", "0.9910187795147077`", ",", "0.9910258634317752`", ",", "0.99103232578897`", ",", "0.9910382467543843`", ",", "0.9910436941444861`", ",", "0.9910487230313935`", ",", "0.9910533816882454`", ",", "0.9910577097992765`", ",", "0.991061742281347`", ",", "0.991065509811506`", ",", "0.9910690365488537`", ",", "0.9910723461067404`", ",", "0.9910754587752064`", ",", "0.9910783912824095`", ",", "0.9910811588796822`", ",", "0.9910837764369177`", ",", "0.9910862547700126`", ",", "0.991088605620136`", ",", "0.9910908379309653`", ",", "0.9910929618596646`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9828003111689331`", ",", "0.9827559378325995`", ",", "0.982712020568733`", ",", "0.9826686070052149`", ",", "0.9826257322192032`", ",", "0.9825834196902854`", ",", "0.9825417249611434`", ",", "0.9825007024863619`", ",", "0.9824604070515102`", ",", "0.9824209124902731`", ",", "0.9823822967426383`", ",", "0.9823446529789075`", ",", "0.9823080929882244`", ",", "0.9822727428341693`", ",", "0.9822389202888596`", ",", "0.9822068198342655`", ",", "0.9821766096258857`", ",", "0.9821486035263846`", ",", "0.9821231700446135`", ",", "0.9821008013740684`", ",", "0.9820821100950308`", ",", "0.982067881180831`", ",", "0.9820589608133948`", ",", "0.9820568235240119`", ",", "0.9820637584127738`", ",", "0.9820832836042365`", ",", "0.9821213442910137`", ",", "0.9821894772364285`", ",", "0.9823161955247894`", ",", "0.9826595049099778`", ",", "0.9909895860368069`", ",", "0.9910011263299008`", ",", "0.9910094406861479`", ",", "0.9910169864578147`", ",", "0.9910238686644329`", ",", "0.9910301711496954`", ",", "0.9910359673860601`", ",", "0.9910413164806131`", ",", "0.9910462689671445`", ",", "0.9910508681950635`", ",", "0.9910551515771967`", ",", "0.991059151240204`", ",", "0.991062894326837`", ",", "0.991066406459335`", ",", "0.9910697072823368`", ",", "0.9910728161413661`", ",", "0.9910757499382495`", ",", "0.9910785227046234`", ",", "0.9910811483333881`", ",", "0.991083637601391`", ",", "0.9910860015702255`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.982853536680554`", ",", "0.9828117964099957`", ",", "0.9827704122698466`", ",", "0.9827294264664095`", ",", "0.9826888317173221`", ",", "0.9826486577355775`", ",", "0.9826089284726869`", ",", "0.982569671136317`", ",", "0.9825309080882574`", ",", "0.9824926745884814`", ",", "0.982454993663943`", ",", "0.982417928828741`", ",", "0.982381498609438`", ",", "0.9823457829132578`", ",", "0.9823110393776892`", ",", "0.9822771836991393`", ",", "0.9822443088561937`", ",", "0.9822125173242187`", ",", "0.9821819441929656`", ",", "0.9821527394031803`", ",", "0.9821250804355512`", ",", "0.982099178639629`", ",", "0.9820750211972814`", ",", "0.9820527970070707`", ",", "0.9820329321226926`", ",", "0.9820158865725493`", ",", "0.9820022325896932`", ",", "0.9819927097754838`", ",", "0.9819882764160051`", ",", "0.9819902913976768`", ",", "0.9820007131069359`", ",", "0.9820225954822572`", ",", "0.9820611073868339`", ",", "0.9821262925735428`", ",", "0.9822430181228414`", ",", "0.9825825419488342`", ",", "0.9910203144759636`", ",", "0.9910265734235016`", ",", "0.9910323441053803`", ",", "0.9910376809089708`", ",", "0.9910426326185611`", ",", "0.9910472404608941`", ",", "0.9910515399954632`", ",", "0.9910555607310122`", ",", "0.9910593293871667`", ",", "0.9910628697436223`", ",", "0.9910662027818957`", ",", "0.9910693448743095`", ",", "0.9910723141881731`", ",", "0.9910751235131503`", ",", "0.9910777856028402`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.982968038804493`", ",", "0.9829318597151236`", ",", "0.982895929548353`", ",", "0.9828602531557168`", ",", "0.9828248359989192`", ",", "0.9827896842203359`", ",", "0.9827548047259572`", ",", "0.9827201966466798`", ",", "0.9826858774001649`", ",", "0.9826518309623822`", ",", "0.9826180773444368`", ",", "0.9825846476045675`", ",", "0.9825516681739874`", ",", "0.982519037521983`", ",", "0.9824867725209512`", ",", "0.9824548985227854`", ",", "0.9824234233026453`", ",", "0.9823923782270574`", ",", "0.9823617938819498`", ",", "0.9823316940708887`", ",", "0.9823021185996453`", ",", "0.9822731046808866`", ",", "0.9822445659031687`", ",", "0.9822162777057333`", ",", "0.9821884423562206`", ",", "0.9821611221613951`", ",", "0.9821343680451373`", ",", "0.9821082239225993`", ",", "0.9820827412475857`", ",", "0.9820579813365293`", ",", "0.9820339881182952`", ",", "0.9820108319305199`", ",", "0.981988575261922`", ",", "0.9819673035165988`", ",", "0.9819470973124278`", ",", "0.9819280647054273`", ",", "0.9819103059407843`", ",", "0.9818939631359`", ",", "0.9818791864545563`", ",", "0.9818661803498495`", ",", "0.9818551560711553`", ",", "0.9818464008868821`", ",", "0.9818402548664021`", ",", "0.9818371724684767`", ",", "0.981837739471203`", ",", "0.9818427407130992`", ",", "0.9818533120407327`", ",", "0.9818711274226346`", ",", "0.9818988172775711`", ",", "0.9819407058624718`", ",", "0.9820084018068145`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274144045865*^9, 3.781649900301198*^9, 3.783980116880869*^9, 3.802469690468871*^9, 3.833634919460779*^9, 3.8340932537534533`*^9, 3.8342158537470913`*^9, 3.834308355677102*^9, 3.834995334260702*^9, 3.837858913207995*^9}, CellLabel->"Out[88]=",ExpressionUUID->"4934389b-0d89-4f73-b700-a7703c069196"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabEM21"], "Input", CellChangeTimes->{3.762611583658396*^9}, CellLabel->"In[89]:=",ExpressionUUID->"0263fe06-d307-44f6-9abc-6e4cece4e4a4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.20114717935901988`", ",", "0.2039213735410261`", ",", "0.20672191187728062`", ",", "0.20955011062527484`", ",", "0.2124067552526395`", ",", "0.21529373453291062`", ",", "0.21821215506056663`", ",", "0.22116366791112924`", ",", "0.2241504940360325`", ",", "0.22717488029944755`", ",", "0.23023976411422553`", ",", "0.23334854058041807`", ",", "0.23650512635081514`", ",", "0.23971448824965355`", ",", "0.24297956568914947`", ",", "0.2463077949522779`", ",", "0.24971319644625947`", ",", "0.2532107346207681`", ",", "0.2568225790627289`", ",", "0.26058384155399167`", ",", "0.26455180363002434`", ",", "0.26890479950602647`", ",", "0.2737391090557383`", ",", "0.27947073251692356`", ",", "0.28795976886265495`", ",", "0.31639981046987087`", ",", "0.31144872447892563`", ",", "0.3107520782198973`", ",", "0.3105839400486198`", ",", "0.310524217359179`", ",", "0.31049348096469287`", ",", "0.31047227982248576`", ",", "0.3104542415938265`", ",", "0.3104334048924058`", ",", "0.3104104459647624`", ",", "0.31038589245318887`", ",", "0.3103601789123103`", ",", "0.3103336396976484`", ",", "0.31030655364781196`", ",", "0.3102791378421532`", ",", "0.3102515623260921`", ",", "0.3102239816666486`", ",", "0.3101965013068913`", ",", "0.31016920812847915`", ",", "0.31014217905678965`", ",", "0.3101154717211563`", ",", "0.310089122221048`", ",", "0.3100631739489097`", ",", "0.31003764701213427`", ",", "0.3100125655566715`", ",", "0.30998793448260603`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.19637470493578912`", ",", "0.19885953062376865`", ",", "0.20136273565988583`", ",", "0.2038841427224859`", ",", "0.20642424228431105`", ",", "0.2089841643159781`", ",", "0.211564184718738`", ",", "0.21416494907207587`", ",", "0.21678745321054524`", ",", "0.2194324799486494`", ",", "0.22210114944375065`", ",", "0.22479460318693617`", ",", "0.22751393127618963`", ",", "0.2302601529366458`", ",", "0.23303179303626562`", ",", "0.2358322580958688`", ",", "0.2386652739422742`", ",", "0.24153387095894405`", ",", "0.24444119559470395`", ",", "0.2473921740824634`", ",", "0.250393770372238`", ",", "0.2534805442182359`", ",", "0.2567238317307429`", ",", "0.2600677082614211`", ",", "0.26354869932642017`", ",", "0.2672185625436738`", ",", "0.27116284782985156`", ",", "0.27554326971873455`", ",", "0.2807530018406297`", ",", "0.28899286944528263`", ",", "0.3105133493603859`", ",", "0.31049423805859433`", ",", "0.31048662520338355`", ",", "0.31047437243890724`", ",", "0.3104584892388362`", ",", "0.3104397964479086`", ",", "0.3104189200161691`", ",", "0.31039638059377994`", ",", "0.3103725929547673`", ",", "0.31034788947396164`", ",", "0.3103225371278387`", ",", "0.3102967533030814`", ",", "0.3102707196458643`", ",", "0.31024456939198064`", ",", "0.31021843037801267`", ",", "0.310192391785003`", ",", "0.3101665268023999`", ",", "0.3101409005822456`", ",", "0.31011555610510544`", ",", "0.3100905375938924`", ",", "0.31006587117386686`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1917068041346967`", ",", "0.19392844340509616`", ",", "0.19616217984315326`", ",", "0.1984072990572447`", ",", "0.20066483438581512`", ",", "0.2029346654761761`", ",", "0.20521697056609714`", ",", "0.20751193725333705`", ",", "0.20982001474366543`", ",", "0.21214137277755235`", ",", "0.214476615681087`", ",", "0.21682533919910213`", ",", "0.21918825945709303`", ",", "0.22156449927839472`", ",", "0.22395183180909273`", ",", "0.2263536665045522`", ",", "0.22877029434315796`", ",", "0.23120179612682135`", ",", "0.23364836988181192`", ",", "0.23611014061128582`", ",", "0.2385871186226885`", ",", "0.24107912961000347`", ",", "0.2436667001834985`", ",", "0.24629912108859708`", ",", "0.24896372809847284`", ",", "0.25166930872699106`", ",", "0.25442478166934723`", ",", "0.25724070006580446`", ",", "0.260132827373327`", ",", "0.2631204245603991`", ",", "0.266232906185234`", ",", "0.26951469440849324`", ",", "0.2730409548259971`", ",", "0.27695470244289755`", ",", "0.28160494068650554`", ",", "0.28948513498113815`", ",", "0.3104661892570175`", ",", "0.3104500847503055`", ",", "0.3104316652283633`", ",", "0.3104114507186295`", ",", "0.31038984435355843`", ",", "0.3103671781290192`", ",", "0.3103437226922554`", ",", "0.3103197088508458`", ",", "0.310295318392639`", ",", "0.3102706975190818`", ",", "0.31024596558126205`", ",", "0.3102212348490167`", ",", "0.3101965730763749`", ",", "0.31017205722964764`", ",", "0.31014774148727714`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.18266047154907852`", ",", "0.18442235966857887`", ",", "0.18618822547052521`", ",", "0.18795800743505636`", ",", "0.18973163329966541`", ",", "0.19150901787353458`", ",", "0.1932900602157711`", ",", "0.19507485849124095`", ",", "0.19686302314364074`", ",", "0.1986549353309529`", ",", "0.20045000115723544`", ",", "0.20224741418343808`", ",", "0.20404539715143077`", ",", "0.20584588226581826`", ",", "0.20764854758058512`", ",", "0.2094530704471296`", ",", "0.21125892137725097`", ",", "0.21306552004041696`", ",", "0.21487250209294817`", ",", "0.21667839498833782`", ",", "0.21848298219758902`", ",", "0.22028458849393093`", ",", "0.22210786158444862`", ",", "0.22397560766490204`", ",", "0.2258444860173201`", ",", "0.22771448634413602`", ",", "0.22958698528333615`", ",", "0.2314635142728273`", ",", "0.23334482316329136`", ",", "0.23523122694328363`", ",", "0.23712430541031537`", ",", "0.2390244159283184`", ",", "0.2409327830466484`", ",", "0.24285005107303456`", ",", "0.24477770602690346`", ",", "0.24671680487120273`", ",", "0.24866954613143666`", ",", "0.25063756090017775`", ",", "0.25262344054088814`", ",", "0.2546295362453462`", ",", "0.25665986548044084`", ",", "0.25871859654254337`", ",", "0.2608115336821214`", ",", "0.26294571498480246`", ",", "0.26513076797279045`", ",", "0.26737998494152865`", ",", "0.2697118478288228`", ",", "0.27215427437242745`", ",", "0.2747519205938959`", ",", "0.27758304618856705`", ",", "0.2808027619645582`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741441429863`*^9, 3.781649900388091*^9, 3.783980116979196*^9, 3.8024696905605307`*^9, 3.8336349194991426`*^9, 3.834093253793068*^9, 3.834215853797146*^9, 3.834308355703771*^9, 3.834995334286845*^9, 3.83785891323597*^9}, CellLabel->"Out[89]=",ExpressionUUID->"958e2962-4202-4a88-91b5-a51c84556cef"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabEN12"], "Input", CellChangeTimes->{3.762611583658555*^9}, CellLabel->"In[90]:=",ExpressionUUID->"bdbf3eb8-b676-4022-98ee-18f577076a97"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.2011471793590196`", ",", "0.20392137354102613`", ",", "0.20672191187728095`", ",", "0.20955011062527462`", ",", "0.2124067552526394`", ",", "0.21529373453291112`", ",", "0.21821215506056657`", ",", "0.22116366791112907`", ",", "0.2241504940360326`", ",", "0.22717488029944766`", ",", "0.23023976411422542`", ",", "0.23334854058041754`", ",", "0.23650512635081555`", ",", "0.23971448824965358`", ",", "0.24297956568914936`", ",", "0.24630779495227761`", ",", "0.24971319644625922`", ",", "0.2532107346207684`", ",", "0.256822579062729`", ",", "0.2605838415539914`", ",", "0.2645518036300246`", ",", "0.2689047995060265`", ",", "0.2737391090557384`", ",", "0.27947073251692345`", ",", "0.2879597688626667`", ",", "0.31639980174067883`", ",", "0.31144872447890015`", ",", "0.31075207821989725`", ",", "0.31058394004861944`", ",", "0.3105242173591788`", ",", "0.31049348096469287`", ",", "0.3104722798224866`", ",", "0.31045424159382584`", ",", "0.31043340489240534`", ",", "0.3104104459647624`", ",", "0.31038589245318904`", ",", "0.31036017891231027`", ",", "0.31033363969764816`", ",", "0.3103065536478117`", ",", "0.3102791378421522`", ",", "0.3102515623260923`", ",", "0.31022398166664844`", ",", "0.310196501306891`", ",", "0.31016920812847926`", ",", "0.3101421790567892`", ",", "0.3101154717211565`", ",", "0.3100891222210477`", ",", "0.3100631739489095`", ",", "0.3100376470121341`", ",", "0.31001256555667145`", ",", "0.3099879344826062`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1963747049357899`", ",", "0.1988595306237685`", ",", "0.2013627356598865`", ",", "0.20388414272248578`", ",", "0.20642424228431078`", ",", "0.20898416431597788`", ",", "0.2115641847187385`", ",", "0.2141649490720754`", ",", "0.21678745321054538`", ",", "0.21943247994864967`", ",", "0.22210114944375103`", ",", "0.22479460318693623`", ",", "0.22751393127618935`", ",", "0.2302601529366458`", ",", "0.23303179303626542`", ",", "0.23583225809586894`", ",", "0.23866527394227433`", ",", "0.2415338709589443`", ",", "0.244441195594704`", ",", "0.24739217408246317`", ",", "0.2503937703722381`", ",", "0.2534805442182363`", ",", "0.25672383173074254`", ",", "0.260067708261421`", ",", "0.26354869932642033`", ",", "0.2672185625436744`", ",", "0.2711628478298522`", ",", "0.27554326971873455`", ",", "0.28075300184062946`", ",", "0.28899286944514`", ",", "0.31051334936038566`", ",", "0.31049423805859455`", ",", "0.31048662520338377`", ",", "0.3104743724389074`", ",", "0.3104584892388359`", ",", "0.31043979644790853`", ",", "0.3104189200161691`", ",", "0.3103963805937795`", ",", "0.31037259295476716`", ",", "0.31034788947396186`", ",", "0.31032253712783875`", ",", "0.3102967533030808`", ",", "0.3102707196458643`", ",", "0.31024456939198075`", ",", "0.3102184303780131`", ",", "0.3101923917850026`", ",", "0.3101665268024`", ",", "0.3101409005822453`", ",", "0.3101155561051059`", ",", "0.31009053759389227`", ",", "0.3100658711738673`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.19170680413469687`", ",", "0.19392844340509607`", ",", "0.1961621798431531`", ",", "0.19840729905724486`", ",", "0.20066483438581506`", ",", "0.202934665476176`", ",", "0.20521697056609722`", ",", "0.20751193725333694`", ",", "0.20982001474366574`", ",", "0.2121413727775523`", ",", "0.2144766156810871`", ",", "0.21682533919910219`", ",", "0.21918825945709386`", ",", "0.22156449927839517`", ",", "0.22395183180909273`", ",", "0.2263536665045518`", ",", "0.2287702943431582`", ",", "0.23120179612682146`", ",", "0.2336483698818116`", ",", "0.236110140611286`", ",", "0.23858711862268833`", ",", "0.24107912961000344`", ",", "0.24366670018349823`", ",", "0.24629912108859686`", ",", "0.24896372809847334`", ",", "0.2516693087269918`", ",", "0.25442478166934723`", ",", "0.25724070006580413`", ",", "0.2601328273733271`", ",", "0.2631204245603985`", ",", "0.2662329061852342`", ",", "0.2695146944084936`", ",", "0.27304095482599666`", ",", "0.27695470244289744`", ",", "0.2816049406865029`", ",", "0.2894851349815888`", ",", "0.31046618925701797`", ",", "0.310450084750305`", ",", "0.3104316652283633`", ",", "0.3104114507186293`", ",", "0.31038984435355876`", ",", "0.3103671781290198`", ",", "0.31034372269225574`", ",", "0.3103197088508458`", ",", "0.31029531839263935`", ",", "0.31027069751908176`", ",", "0.31024596558126216`", ",", "0.31022123484901665`", ",", "0.3101965730763747`", ",", "0.31017205722964736`", ",", "0.3101477414872771`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1826604715490786`", ",", "0.18442235966857878`", ",", "0.18618822547052516`", ",", "0.18795800743505642`", ",", "0.18973163329966503`", ",", "0.19150901787353458`", ",", "0.19329006021577133`", ",", "0.19507485849124107`", ",", "0.19686302314364035`", ",", "0.19865493533095302`", ",", "0.2004500011572351`", ",", "0.20224741418343828`", ",", "0.20404539715143133`", ",", "0.20584588226581857`", ",", "0.20764854758058526`", ",", "0.20945307044712935`", ",", "0.21125892137725122`", ",", "0.21306552004041712`", ",", "0.21487250209294806`", ",", "0.21667839498833785`", ",", "0.21848298219758877`", ",", "0.22028458849393062`", ",", "0.22210786158444928`", ",", "0.22397560766490243`", ",", "0.2258444860173201`", ",", "0.2277144863441357`", ",", "0.22958698528333588`", ",", "0.2314635142728274`", ",", "0.23334482316329153`", ",", "0.2352312269432837`", ",", "0.23712430541031537`", ",", "0.23902441592831813`", ",", "0.24093278304664856`", ",", "0.24285005107303448`", ",", "0.24477770602690363`", ",", "0.2467168048712025`", ",", "0.24866954613143677`", ",", "0.2506375609001783`", ",", "0.2526234405408876`", ",", "0.25462953624534623`", ",", "0.25665986548044084`", ",", "0.2587185965425429`", ",", "0.26081153368212173`", ",", "0.2629457149848027`", ",", "0.2651307679727902`", ",", "0.26737998494152837`", ",", "0.26971184782882274`", ",", "0.27215427437242723`", ",", "0.2747519205938962`", ",", "0.27758304618856844`", ",", "0.28080276196455833`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274144238407*^9, 3.781649900656192*^9, 3.7839801170793257`*^9, 3.802469690652742*^9, 3.8336349195111523`*^9, 3.834093253807067*^9, 3.834215853810895*^9, 3.834308355717493*^9, 3.834995334300441*^9, 3.8378589132510557`*^9}, CellLabel->"Out[90]=",ExpressionUUID->"2bb4387b-8d59-4908-b39e-acf639352c45"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabEN22"], "Input", CellChangeTimes->{3.7626115836587133`*^9}, CellLabel->"In[91]:=",ExpressionUUID->"70447e45-98c9-46ae-a7f8-34ab1678cef9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.982750163699265`", ",", "0.98270335348873`", ",", "0.9826571703731821`", ",", "0.9826116629498586`", ",", "0.982566907288688`", ",", "0.982522966442044`", ",", "0.9824799440667297`", ",", "0.9824379537982444`", ",", "0.9823971236959881`", ",", "0.9823576187950603`", ",", "0.9823196317883467`", ",", "0.9822834015766441`", ",", "0.9822492271950791`", ",", "0.9822174608339382`", ",", "0.9821886968456763`", ",", "0.9821637207390869`", ",", "0.982143207199986`", ",", "0.9821283271945968`", ",", "0.9821207141412738`", ",", "0.9821227628023996`", ",", "0.9821381875176655`", ",", "0.9821736325357577`", ",", "0.9822412311959211`", ",", "0.9823715627156105`", ",", "0.9827017034825881`", ",", "0.9901256091234146`", ",", "0.9908380861716494`", ",", "0.990947478808195`", ",", "0.9909816177083915`", ",", "0.9909987118637071`", ",", "0.9910101021076703`", ",", "0.9910187795147076`", ",", "0.991025863431775`", ",", "0.9910323257889702`", ",", "0.9910382467543842`", ",", "0.9910436941444862`", ",", "0.9910487230313936`", ",", "0.9910533816882456`", ",", "0.9910577097992768`", ",", "0.9910617422813469`", ",", "0.9910655098115059`", ",", "0.9910690365488536`", ",", "0.9910723461067406`", ",", "0.9910754587752064`", ",", "0.9910783912824095`", ",", "0.9910811588796822`", ",", "0.9910837764369179`", ",", "0.9910862547700126`", ",", "0.9910886056201359`", ",", "0.9910908379309652`", ",", "0.9910929618596643`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9828003111689335`", ",", "0.9827559378325994`", ",", "0.9827120205687332`", ",", "0.9826686070052151`", ",", "0.982625732219203`", ",", "0.9825834196902852`", ",", "0.9825417249611437`", ",", "0.9825007024863618`", ",", "0.9824604070515102`", ",", "0.9824209124902734`", ",", "0.9823822967426385`", ",", "0.9823446529789074`", ",", "0.9823080929882241`", ",", "0.9822727428341694`", ",", "0.9822389202888595`", ",", "0.9822068198342653`", ",", "0.9821766096258858`", ",", "0.9821486035263846`", ",", "0.9821231700446132`", ",", "0.9821008013740683`", ",", "0.9820821100950308`", ",", "0.9820678811808311`", ",", "0.982058960813395`", ",", "0.9820568235240115`", ",", "0.9820637584127738`", ",", "0.9820832836042367`", ",", "0.9821213442910136`", ",", "0.9821894772364285`", ",", "0.9823161955247895`", ",", "0.9826595049099786`", ",", "0.9909895860368069`", ",", "0.9910011263299007`", ",", "0.9910094406861477`", ",", "0.9910169864578147`", ",", "0.9910238686644328`", ",", "0.9910301711496954`", ",", "0.9910359673860603`", ",", "0.9910413164806129`", ",", "0.9910462689671445`", ",", "0.9910508681950635`", ",", "0.9910551515771967`", ",", "0.9910591512402038`", ",", "0.9910628943268371`", ",", "0.9910664064593351`", ",", "0.9910697072823369`", ",", "0.9910728161413659`", ",", "0.9910757499382495`", ",", "0.9910785227046233`", ",", "0.991081148333388`", ",", "0.991083637601391`", ",", "0.9910860015702253`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9828535366805542`", ",", "0.9828117964099957`", ",", "0.9827704122698466`", ",", "0.9827294264664096`", ",", "0.9826888317173221`", ",", "0.9826486577355773`", ",", "0.9826089284726869`", ",", "0.9825696711363165`", ",", "0.9825309080882575`", ",", "0.9824926745884814`", ",", "0.9824549936639431`", ",", "0.982417928828741`", ",", "0.9823814986094382`", ",", "0.9823457829132579`", ",", "0.9823110393776893`", ",", "0.9822771836991391`", ",", "0.9822443088561938`", ",", "0.9822125173242189`", ",", "0.9821819441929655`", ",", "0.9821527394031799`", ",", "0.9821250804355512`", ",", "0.9820991786396289`", ",", "0.9820750211972813`", ",", "0.9820527970070704`", ",", "0.9820329321226926`", ",", "0.9820158865725497`", ",", "0.9820022325896931`", ",", "0.9819927097754838`", ",", "0.981988276416005`", ",", "0.9819902913976764`", ",", "0.9820007131069357`", ",", "0.982022595482257`", ",", "0.9820611073868339`", ",", "0.9821262925735428`", ",", "0.9822430181228415`", ",", "0.982582541948831`", ",", "0.9910203144759634`", ",", "0.9910265734235018`", ",", "0.9910323441053802`", ",", "0.991037680908971`", ",", "0.9910426326185612`", ",", "0.9910472404608942`", ",", "0.9910515399954632`", ",", "0.9910555607310122`", ",", "0.9910593293871666`", ",", "0.9910628697436223`", ",", "0.9910662027818957`", ",", "0.9910693448743094`", ",", "0.991072314188173`", ",", "0.9910751235131502`", ",", "0.9910777856028401`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.982968038804493`", ",", "0.9829318597151235`", ",", "0.9828959295483529`", ",", "0.9828602531557167`", ",", "0.9828248359989188`", ",", "0.9827896842203357`", ",", "0.9827548047259576`", ",", "0.9827201966466796`", ",", "0.9826858774001646`", ",", "0.9826518309623824`", ",", "0.9826180773444365`", ",", "0.9825846476045675`", ",", "0.9825516681739878`", ",", "0.982519037521983`", ",", "0.9824867725209511`", ",", "0.9824548985227852`", ",", "0.9824234233026454`", ",", "0.9823923782270576`", ",", "0.9823617938819497`", ",", "0.9823316940708888`", ",", "0.9823021185996454`", ",", "0.9822731046808864`", ",", "0.9822445659031691`", ",", "0.9822162777057334`", ",", "0.9821884423562206`", ",", "0.9821611221613951`", ",", "0.9821343680451373`", ",", "0.9821082239225992`", ",", "0.9820827412475858`", ",", "0.9820579813365293`", ",", "0.9820339881182953`", ",", "0.9820108319305195`", ",", "0.9819885752619222`", ",", "0.9819673035165987`", ",", "0.9819470973124279`", ",", "0.9819280647054273`", ",", "0.9819103059407844`", ",", "0.9818939631359003`", ",", "0.981879186454556`", ",", "0.9818661803498495`", ",", "0.9818551560711555`", ",", "0.9818464008868821`", ",", "0.981840254866402`", ",", "0.9818371724684765`", ",", "0.9818377394712031`", ",", "0.9818427407130993`", ",", "0.9818533120407327`", ",", "0.9818711274226345`", ",", "0.9818988172775716`", ",", "0.981940705862472`", ",", "0.9820084018068145`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741443313503`*^9, 3.781649900740988*^9, 3.783980117181539*^9, 3.802469691063527*^9, 3.833634919547329*^9, 3.83409325384661*^9, 3.8342158538610353`*^9, 3.834308355743784*^9, 3.8349953343262978`*^9, 3.837858913278715*^9}, CellLabel->"Out[91]=",ExpressionUUID->"fdbf1715-010a-4d99-b2c2-da8d6be8e236"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabM11"], "Input", CellChangeTimes->{3.7626115836588707`*^9}, CellLabel->"In[92]:=",ExpressionUUID->"261ca73e-a832-48ee-8fec-be3b0b9482cd"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.9629747805571138`", ",", "0.9626332722471965`", ",", "0.9622831858139764`", ",", "0.9619239964453039`", ",", "0.9615552949123363`", ",", "0.9611763762120697`", ",", "0.9607867166223789`", ",", "0.9603856383617664`", ",", "0.9599722903933974`", ",", "0.9595457965632845`", ",", "0.9591050629506312`", ",", "0.9586488312962156`", ",", "0.9581756438260803`", ",", "0.9576835478079602`", ",", "0.957171612218391`", ",", "0.95663857744864`", ",", "0.95607949347514`", ",", "0.9554901075906079`", ",", "0.9548642961402101`", ",", "0.9541927401199131`", ",", "0.9534602829392371`", ",", "0.9526281771229955`", ",", "0.9516558696521897`", ",", "0.9504273588596326`", ",", "0.9484161108597624`", ",", "0.9484148377178726`", ",", "0.9706765079055023`", ",", "0.9743932620589846`", ",", "0.9753552255728123`", ",", "0.9756858811051338`", ",", "0.975820007132673`", ",", "0.9758715532268742`", ",", "0.9758817138050909`", ",", "0.9758906622639293`", ",", "0.9758986012060145`", ",", "0.9759057454064612`", ",", "0.9759121747153812`", ",", "0.975918036894881`", ",", "0.9759233780714545`", ",", "0.9759282803848212`", ",", "0.9759328433869231`", ",", "0.9759370148675015`", ",", "0.9759408880343424`", ",", "0.9759445225858927`", ",", "0.9759479048394438`", ",", "0.9759510475925187`", ",", "0.9759540413539611`", ",", "0.975956821704175`", ",", "0.9759594546974447`", ",", "0.9759619030414842`", ",", "0.9759642633457455`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9632893217003502`", ",", "0.9629843423461971`", ",", "0.9626727746038161`", ",", "0.9623545146074863`", ",", "0.9620292856808677`", ",", "0.9616966293560687`", ",", "0.9613563011538079`", ",", "0.9610079508347068`", ",", "0.9606511157178625`", ",", "0.9602853795578989`", ",", "0.9599102053143956`", ",", "0.9595250138082124`", ",", "0.9591291854722691`", ",", "0.9587219902540475`", ",", "0.9583041515884189`", ",", "0.957874721704887`", ",", "0.9574320488272225`", ",", "0.9569751309478118`", ",", "0.9565026668234022`", ",", "0.9560132236842062`", ",", "0.9555048118590276`", ",", "0.9549717477720969`", ",", "0.954400561671872`", ",", "0.953793693174919`", ",", "0.9531426496343087`", ",", "0.9524344132245535`", ",", "0.9516469525964493`", ",", "0.9507382191655223`", ",", "0.9496056843363363`", ",", "0.9476929050717309`", ",", "0.9757506182928002`", ",", "0.9758617448912082`", ",", "0.9758722376194551`", ",", "0.9758815325020513`", ",", "0.975889878827001`", ",", "0.975897341859372`", ",", "0.9759041433986305`", ",", "0.9759103409166607`", ",", "0.9759160027853254`", ",", "0.9759211984639959`", ",", "0.9759259978718999`", ",", "0.9759304521762915`", ",", "0.975934564540963`", ",", "0.9759384438954749`", ",", "0.9759420300198725`", ",", "0.9759453829137209`", ",", "0.9759485455899601`", ",", "0.975951500270519`", ",", "0.9759543124782212`", ",", "0.9759569443346473`", ",", "0.9759594447845314`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.963594045412652`", ",", "0.9633219495345978`", ",", "0.9630448884731775`", ",", "0.9627629433658021`", ",", "0.9624757266947824`", ",", "0.9621831505314431`", ",", "0.9618850417945717`", ",", "0.9615812186990271`", ",", "0.9612714106025133`", ",", "0.9609554170170647`", ",", "0.9606328691735369`", ",", "0.9603037163740052`", ",", "0.9599674291731694`", ",", "0.9596239877340541`", ",", "0.9592748124420611`", ",", "0.958918148738743`", ",", "0.9585537260930908`", ",", "0.9581812345291207`", ",", "0.9578004641311447`", ",", "0.9574111462522208`", ",", "0.957013022163482`", ",", "0.9566058538317693`", ",", "0.9561794401171178`", ",", "0.9557365038826879`", ",", "0.9552779982969181`", ",", "0.9548022325224963`", ",", "0.9543071641311666`", ",", "0.9537902130298549`", ",", "0.9532474568339386`", ",", "0.952674024485082`", ",", "0.9520625380453795`", ",", "0.951401972154399`", ",", "0.9506738217733662`", ",", "0.9498431292037777`", ",", "0.9488249295399067`", ",", "0.9470535499498403`", ",", "0.9758935363658541`", ",", "0.9759002604300528`", ",", "0.9759064484364317`", ",", "0.9759120884258132`", ",", "0.9759172893539405`", ",", "0.9759221175142635`", ",", "0.9759266317998235`", ",", "0.9759308136814145`", ",", "0.975934698524866`", ",", "0.9759383389014082`", ",", "0.9759417863983413`", ",", "0.9759449660747956`", ",", "0.975948016390618`", ",", "0.9759508705041363`", ",", "0.9759535434903444`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9641778349108101`", ",", "0.9639626666787551`", ",", "0.9637447950765803`", ",", "0.9635241773674408`", ",", "0.963300770958203`", ",", "0.9630745338345862`", ",", "0.9628454251225633`", ",", "0.9626133301872085`", ",", "0.9623782887783232`", ",", "0.9621400433618654`", ",", "0.9618986497112108`", ",", "0.9616542568834279`", ",", "0.9614078048753698`", ",", "0.9611582716896641`", ",", "0.9609056520997331`", ",", "0.9606499997859221`", ",", "0.9603912341141513`", ",", "0.9601294552246395`", ",", "0.9598647363491848`", ",", "0.959597158000787`", ",", "0.9593268417127896`", ",", "0.9590539750507923`", ",", "0.9587758880762637`", ",", "0.958488679824159`", ",", "0.9581966028208965`", ",", "0.9578997977681318`", ",", "0.9575981774673856`", ",", "0.9572915387911098`", ",", "0.9569797530511409`", ",", "0.9566627594612105`", ",", "0.9563401811372589`", ",", "0.9560118972610081`", ",", "0.9556775610517809`", ",", "0.9553369777400004`", ",", "0.9549897165874645`", ",", "0.9546354860845695`", ",", "0.9542736427320555`", ",", "0.9539037558992711`", ",", "0.9535251071801354`", ",", "0.9531371535883892`", ",", "0.9527388111415802`", ",", "0.9523290942710545`", ",", "0.9519065598416366`", ",", "0.9514696060687586`", ",", "0.9510160273308699`", ",", "0.9505427736444252`", ",", "0.9500458418793236`", ",", "0.9495191272869086`", ",", "0.9489526274582762`", ",", "0.9483271643359279`", ",", "0.9476171898445478`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741444524403`*^9, 3.7816499008280888`*^9, 3.783980117280867*^9, 3.802469691154957*^9, 3.833634919559023*^9, 3.83409325386067*^9, 3.834215853874591*^9, 3.834308355757756*^9, 3.834995334340282*^9, 3.837858913294189*^9}, CellLabel->"Out[92]=",ExpressionUUID->"18a544de-08f0-4e56-8c32-f9e1de398451"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabM21"], "Input", CellChangeTimes->{3.762611583659029*^9}, CellLabel->"In[93]:=",ExpressionUUID->"e1e02a85-d181-4b91-83ae-4d12ee31bc62"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0174241957549999`", ",", "0.01820937605754768`", ",", "0.019051956823190542`", ",", "0.019958392126995277`", ",", "0.020936055678284028`", ",", "0.02199361924630036`", ",", "0.023141091752048728`", ",", "0.024390285886410523`", ",", "0.025755238714696684`", ",", "0.027252680224082733`", ",", "0.028902827033062878`", ",", "0.03073030327957836`", ",", "0.032765439133054776`", ",", "0.03504607731253885`", ",", "0.03761994081421173`", ",", "0.0405502276737165`", ",", "0.04392021648789106`", ",", "0.04784351579221314`", ",", "0.052480971343592524`", ",", "0.058071640566104615`", ",", "0.06499270721050612`", ",", "0.07397345257618643`", ",", "0.08623029081684348`", ",", "0.10487639559811823`", ",", "0.1440266946330955`", ",", "0.9006932450013099`", ",", "0.9510741029043506`", ",", "0.9595977330241151`", ",", "0.9627970598543686`", ",", "0.9647286822159342`", ",", "0.9661929358350604`", ",", "0.9674078598605206`", ",", "0.9684594788737303`", ",", "0.9694171654385704`", ",", "0.9702930270254676`", ",", "0.9710972243016495`", ",", "0.9718381956303888`", ",", "0.9725231849655722`", ",", "0.9731582919094319`", ",", "0.97374880078274`", ",", "0.9742993010669386`", ",", "0.9748136505116963`", ",", "0.9752953453856459`", ",", "0.975747427086659`", ",", "0.9761725169830213`", ",", "0.9765729553788687`", ",", "0.9769508804599604`", ",", "0.9773080818054244`", ",", "0.9776462543930367`", ",", "0.9779668447149011`", ",", "0.9782712467743035`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.016090512815652443`", ",", "0.016715362374541968`", ",", "0.01737795257494369`", ",", "0.01808165131793438`", ",", "0.018830302512780173`", ",", "0.01962829862813021`", ",", "0.020480513623938344`", ",", "0.021392518951609193`", ",", "0.02237070410624161`", ",", "0.02342236317557211`", ",", "0.024555932903413014`", ",", "0.02578118055939709`", ",", "0.02710946851238943`", ",", "0.028554075521695338`", ",", "0.030130624015804682`", ",", "0.03185845061151109`", ",", "0.0337606615506557`", ",", "0.0358655391228197`", ",", "0.03820788178344393`", ",", "0.04083193972913898`", ",", "0.04379468908570275`", ",", "0.04718210730301746`", ",", "0.05112635355826777`", ",", "0.05574292307646147`", ",", "0.06125197135776993`", ",", "0.06799691811627677`", ",", "0.07656436665445526`", ",", "0.08809916328276016`", ",", "0.1054481120946015`", ",", "0.1444796095965541`", ",", "0.96321126564486`", ",", "0.9647464511181112`", ",", "0.9659902787166714`", ",", "0.9671170045987186`", ",", "0.9681425449547014`", ",", "0.9690798825724047`", ",", "0.9699400640029071`", ",", "0.9707322195723929`", ",", "0.971464114188729`", ",", "0.9721423853323898`", ",", "0.9727727401888684`", ",", "0.9733600946771399`", ",", "0.9739086756299102`", ",", "0.9744222697904568`", ",", "0.9749040493408146`", ",", "0.975356910839621`", ",", "0.9757834013478061`", ",", "0.9761857320782056`", ",", "0.9765659377846503`", ",", "0.9769257571087114`", ",", "0.9772668131661898`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.014927460622768729`", ",", "0.015428740943358547`", ",", "0.01595502926241158`", ",", "0.01650809663160729`", ",", "0.01709003910114657`", ",", "0.01770305920419578`", ",", "0.01834961299129524`", ",", "0.019032416605008887`", ",", "0.019754505219669545`", ",", "0.02051922532885829`", ",", "0.021330347262188347`", ",", "0.02219198927834109`", ",", "0.02310886784348645`", ",", "0.024086127136914576`", ",", "0.02512968009942307`", ",", "0.026246589235924014`", ",", "0.027444676410788817`", ",", "0.028732878491015756`", ",", "0.030121596392445542`", ",", "0.03162290858685905`", ",", "0.03325095798856986`", ",", "0.03502242028680094`", ",", "0.036979237847851676`", ",", "0.03913399483292717`", ",", "0.04151408382239334`", ",", "0.04416064861858951`", ",", "0.04712588856965753`", ",", "0.05047802512287951`", ",", "0.054309588087856846`", ",", "0.05874931624532042`", ",", "0.06398624799420347`", ",", "0.07031497334293277`", ",", "0.07823735303532105`", ",", "0.08873153444950366`", ",", "0.10423240885153902`", ",", "0.14157080660223836`", ",", "0.9675979100135601`", ",", "0.9685314501006792`", ",", "0.9693902872135474`", ",", "0.9701829610586642`", ",", "0.9709168896902243`", ",", "0.9715983927463947`", ",", "0.9722329163142208`", ",", "0.9728251077205252`", ",", "0.9733790705968752`", ",", "0.9738984149037822`", ",", "0.9743863147962327`", ",", "0.9748454615728479`", ",", "0.975278423695519`", ",", "0.9756873146842978`", ",", "0.9760740872780237`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.012994257436845458`", ",", "0.0133224392620753`", ",", "0.013661720451230559`", ",", "0.014012635077039098`", ",", "0.014375749110854876`", ",", "0.014751662707777693`", ",", "0.015141012659604668`", ",", "0.015544490554778976`", ",", "0.015962797011215377`", ",", "0.016396733713351135`", ",", "0.01684708159713785`", ",", "0.017314659664063602`", ",", "0.017800302925313576`", ",", "0.018305151098124105`", ",", "0.01883026179420944`", ",", "0.01937677717382754`", ",", "0.019945888231392872`", ",", "0.020538890061830895`", ",", "0.021157206271026394`", ",", "0.021802230426178383`", ",", "0.022475646133452105`", ",", "0.02317908428608774`", ",", "0.023917830024874482`", ",", "0.024697324534466908`", ",", "0.025514286478553444`", ",", "0.026371365768042603`", ",", "0.027271699037963858`", ",", "0.028218769610006578`", ",", "0.02921632345353751`", ",", "0.030268477542019428`", ",", "0.03137998275415934`", ",", "0.03255601442472847`", ",", "0.03380250881572333`", ",", "0.03512614671742927`", ",", "0.03653463353927973`", ",", "0.038036811856892935`", ",", "0.03964298141107707`", ",", "0.04136518730940668`", ",", "0.04321768375007651`", ",", "0.04521762834339372`", ",", "0.047385726705468666`", ",", "0.04974763012077005`", ",", "0.05233540824133672`", ",", "0.055190422014812855`", ",", "0.05836712099405267`", ",", "0.0619394445621983`", ",", "0.06601293932254633`", ",", "0.07074537927464142`", ",", "0.07638852400854532`", ",", "0.08337255437794475`", ",", "0.09273073226204656`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274144542162*^9, 3.7816499009130783`*^9, 3.783980117380584*^9, 3.802469691246457*^9, 3.83363491959472*^9, 3.834093253901857*^9, 3.834215853924618*^9, 3.8343083557843447`*^9, 3.834995334365727*^9, 3.83785891332381*^9}, CellLabel->"Out[93]=",ExpressionUUID->"85ff96ab-1aaa-46c2-bbbb-dd18179c8cf5"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabN12"], "Input", CellChangeTimes->{3.7626115836591873`*^9}, CellLabel->"In[94]:=",ExpressionUUID->"226ddb41-60e0-4e62-99d0-83530bc47732"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.01742419575499965`", ",", "0.018209376057547577`", ",", "0.019051956823190608`", ",", "0.019958392126995128`", ",", "0.020936055678283938`", ",", "0.02199361924630061`", ",", "0.02314109175204848`", ",", "0.024390285886410457`", ",", "0.02575523871469687`", ",", "0.027252680224083115`", ",", "0.028902827033062684`", ",", "0.03073030327957793`", ",", "0.032765439133055074`", ",", "0.03504607731253895`", ",", "0.037619940814211716`", ",", "0.04055022767371619`", ",", "0.043920216487890906`", ",", "0.047843515792213576`", ",", "0.052480971343592975`", ",", "0.05807164056610448`", ",", "0.0649927072105061`", ",", "0.07397345257618682`", ",", "0.08623029081684375`", ",", "0.10487639559811812`", ",", "0.14402669463323603`", ",", "0.9006941321614155`", ",", "0.9510741029052197`", ",", "0.9595977330241147`", ",", "0.9627970598543683`", ",", "0.9647286822159341`", ",", "0.9661929358350605`", ",", "0.9674078598605205`", ",", "0.96845947887373`", ",", "0.9694171654385705`", ",", "0.9702930270254674`", ",", "0.9710972243016495`", ",", "0.9718381956303886`", ",", "0.9725231849655723`", ",", "0.9731582919094317`", ",", "0.9737488007827397`", ",", "0.9742993010669387`", ",", "0.9748136505116963`", ",", "0.9752953453856458`", ",", "0.975747427086659`", ",", "0.9761725169830214`", ",", "0.9765729553788686`", ",", "0.9769508804599603`", ",", "0.9773080818054245`", ",", "0.9776462543930365`", ",", "0.977966844714901`", ",", "0.9782712467743034`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.01609051281565299`", ",", "0.016715362374541742`", ",", "0.017377952574944122`", ",", "0.01808165131793449`", ",", "0.01883030251277984`", ",", "0.019628298628130203`", ",", "0.020480513623938768`", ",", "0.021392518951609096`", ",", "0.022370704106241757`", ",", "0.023422363175572336`", ",", "0.02455593290341329`", ",", "0.025781180559396932`", ",", "0.027109468512389157`", ",", "0.02855407552169531`", ",", "0.030130624015804353`", ",", "0.03185845061151116`", ",", "0.033760661550655935`", ",", "0.03586553912281998`", ",", "0.03820788178344392`", ",", "0.04083193972913879`", ",", "0.04379468908570272`", ",", "0.047182107303018084`", ",", "0.05112635355826789`", ",", "0.055742923076461115`", ",", "0.0612519713577695`", ",", "0.06799691811627817`", ",", "0.07656436665445665`", ",", "0.08809916328275968`", ",", "0.10544811209460025`", ",", "0.14447960959480977`", ",", "0.9632112656448596`", ",", "0.9647464511181113`", ",", "0.9659902787166715`", ",", "0.9671170045987185`", ",", "0.9681425449547012`", ",", "0.9690798825724047`", ",", "0.9699400640029071`", ",", "0.9707322195723926`", ",", "0.9714641141887288`", ",", "0.9721423853323897`", ",", "0.9727727401888685`", ",", "0.9733600946771398`", ",", "0.9739086756299101`", ",", "0.9744222697904568`", ",", "0.9749040493408146`", ",", "0.975356910839621`", ",", "0.9757834013478061`", ",", "0.9761857320782057`", ",", "0.9765659377846504`", ",", "0.9769257571087113`", ",", "0.9772668131661898`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.014927460622769062`", ",", "0.015428740943358665`", ",", "0.015955029262411657`", ",", "0.01650809663160757`", ",", "0.01709003910114648`", ",", "0.01770305920419557`", ",", "0.01834961299129534`", ",", "0.01903241660500865`", ",", "0.019754505219669594`", ",", "0.020519225328858193`", ",", "0.021330347262188187`", ",", "0.022191989278341095`", ",", "0.023108867843486758`", ",", "0.024086127136914826`", ",", "0.02512968009942318`", ",", "0.026246589235923934`", ",", "0.02744467641078896`", ",", "0.028732878491015912`", ",", "0.03012159639244527`", ",", "0.03162290858685868`", ",", "0.03325095798856981`", ",", "0.03502242028680069`", ",", "0.0369792378478514`", ",", "0.03913399483292701`", ",", "0.04151408382239363`", ",", "0.04416064861859015`", ",", "0.04712588856965727`", ",", "0.05047802512287902`", ",", "0.05430958808785702`", ",", "0.058749316245319205`", ",", "0.06398624799420372`", ",", "0.07031497334293413`", ",", "0.07823735303531887`", ",", "0.08873153444950366`", ",", "0.10423240885152185`", ",", "0.1415708066075544`", ",", "0.967597910013559`", ",", "0.968531450100679`", ",", "0.9693902872135474`", ",", "0.9701829610586643`", ",", "0.9709168896902243`", ",", "0.9715983927463946`", ",", "0.9722329163142206`", ",", "0.9728251077205252`", ",", "0.9733790705968752`", ",", "0.9738984149037824`", ",", "0.974386314796233`", ",", "0.9748454615728478`", ",", "0.975278423695519`", ",", "0.9756873146842976`", ",", "0.9760740872780235`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.012994257436845347`", ",", "0.013322439262075214`", ",", "0.013661720451230375`", ",", "0.014012635077039093`", ",", "0.014375749110854485`", ",", "0.014751662707777724`", ",", "0.015141012659605213`", ",", "0.015544490554779022`", ",", "0.015962797011214946`", ",", "0.016396733713351486`", ",", "0.016847081597137548`", ",", "0.017314659664063536`", ",", "0.017800302925313982`", ",", "0.01830515109812425`", ",", "0.018830261794209213`", ",", "0.019376777173827353`", ",", "0.019945888231392872`", ",", "0.020538890061831183`", ",", "0.02115720627102624`", ",", "0.02180223042617846`", ",", "0.02247564613345221`", ",", "0.023179084286087392`", ",", "0.02391783002487502`", ",", "0.02469732453446727`", ",", "0.02551428647855336`", ",", "0.026371365768042443`", ",", "0.02727169903796378`", ",", "0.028218769610006467`", ",", "0.02921632345353764`", ",", "0.030268477542019445`", ",", "0.03137998275415943`", ",", "0.03255601442472811`", ",", "0.03380250881572344`", ",", "0.035126146717429085`", ",", "0.03653463353927977`", ",", "0.038036811856892894`", ",", "0.03964298141107703`", ",", "0.04136518730940719`", ",", "0.043217683750076064`", ",", "0.04521762834339371`", ",", "0.0473857267054687`", ",", "0.04974763012076988`", ",", "0.052335408241336534`", ",", "0.05519042201481228`", ",", "0.05836712099405239`", ",", "0.06193944456219813`", ",", "0.06601293932254637`", ",", "0.07074537927464064`", ",", "0.07638852400854579`", ",", "0.08337255437794855`", ",", "0.09273073226204676`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.78027414463818*^9, 3.78164990099644*^9, 3.783980117478253*^9, 3.802469691331751*^9, 3.833634919606935*^9, 3.834093253917622*^9, 3.834215853937931*^9, 3.834308355798091*^9, 3.83499533437925*^9, 3.83785891333978*^9}, CellLabel->"Out[94]=",ExpressionUUID->"a52896e7-ba0d-4f46-ad5c-05959221d8d0"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabN22"], "Input", CellChangeTimes->{3.762611583659348*^9}, CellLabel->"In[95]:=",ExpressionUUID->"d6c60807-16d7-4485-91cb-814024781917"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.9629747805571136`", ",", "0.9626332722471964`", ",", "0.9622831858139766`", ",", "0.9619239964453038`", ",", "0.9615552949123363`", ",", "0.96117637621207`", ",", "0.9607867166223787`", ",", "0.9603856383617662`", ",", "0.9599722903933975`", ",", "0.9595457965632849`", ",", "0.959105062950631`", ",", "0.9586488312962153`", ",", "0.9581756438260807`", ",", "0.9576835478079602`", ",", "0.957171612218391`", ",", "0.95663857744864`", ",", "0.9560794934751399`", ",", "0.955490107590608`", ",", "0.9548642961402103`", ",", "0.9541927401199128`", ",", "0.9534602829392372`", ",", "0.9526281771229953`", ",", "0.95165586965219`", ",", "0.9504273588596325`", ",", "0.9484161108597764`", ",", "0.9484150665545518`", ",", "0.9706765079057913`", ",", "0.9743932620589845`", ",", "0.9753552255728121`", ",", "0.9756858811051337`", ",", "0.9758200071326729`", ",", "0.9758715532268741`", ",", "0.9758817138050908`", ",", "0.9758906622639295`", ",", "0.9758986012060143`", ",", "0.9759057454064612`", ",", "0.9759121747153812`", ",", "0.9759180368948812`", ",", "0.9759233780714546`", ",", "0.975928280384821`", ",", "0.9759328433869231`", ",", "0.9759370148675013`", ",", "0.9759408880343425`", ",", "0.9759445225858928`", ",", "0.9759479048394438`", ",", "0.9759510475925186`", ",", "0.9759540413539611`", ",", "0.9759568217041749`", ",", "0.9759594546974447`", ",", "0.9759619030414843`", ",", "0.9759642633457454`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9632893217003508`", ",", "0.9629843423461969`", ",", "0.9626727746038164`", ",", "0.9623545146074863`", ",", "0.9620292856808672`", ",", "0.9616966293560686`", ",", "0.9613563011538082`", ",", "0.9610079508347067`", ",", "0.9606511157178627`", ",", "0.9602853795578994`", ",", "0.9599102053143957`", ",", "0.9595250138082123`", ",", "0.9591291854722688`", ",", "0.9587219902540475`", ",", "0.9583041515884185`", ",", "0.957874721704887`", ",", "0.9574320488272228`", ",", "0.9569751309478118`", ",", "0.9565026668234021`", ",", "0.9560132236842059`", ",", "0.9555048118590275`", ",", "0.9549717477720971`", ",", "0.9544005616718721`", ",", "0.9537936931749187`", ",", "0.9531426496343087`", ",", "0.9524344132245538`", ",", "0.9516469525964495`", ",", "0.9507382191655221`", ",", "0.9496056843363362`", ",", "0.9476929050715566`", ",", "0.9757506182928`", ",", "0.975861744891208`", ",", "0.9758722376194547`", ",", "0.9758815325020513`", ",", "0.9758898788270007`", ",", "0.975897341859372`", ",", "0.9759041433986306`", ",", "0.9759103409166603`", ",", "0.9759160027853255`", ",", "0.9759211984639957`", ",", "0.9759259978719`", ",", "0.9759304521762914`", ",", "0.975934564540963`", ",", "0.975938443895475`", ",", "0.9759420300198725`", ",", "0.9759453829137206`", ",", "0.9759485455899602`", ",", "0.9759515002705188`", ",", "0.9759543124782212`", ",", "0.9759569443346473`", ",", "0.9759594447845312`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9635940454126523`", ",", "0.9633219495345977`", ",", "0.9630448884731775`", ",", "0.9627629433658024`", ",", "0.9624757266947823`", ",", "0.9621831505314429`", ",", "0.9618850417945715`", ",", "0.961581218699027`", ",", "0.9612714106025135`", ",", "0.9609554170170647`", ",", "0.9606328691735369`", ",", "0.9603037163740052`", ",", "0.9599674291731697`", ",", "0.9596239877340543`", ",", "0.9592748124420614`", ",", "0.958918148738743`", ",", "0.958553726093091`", ",", "0.9581812345291209`", ",", "0.9578004641311446`", ",", "0.9574111462522206`", ",", "0.9570130221634822`", ",", "0.9566058538317691`", ",", "0.9561794401171175`", ",", "0.9557365038826876`", ",", "0.9552779982969181`", ",", "0.954802232522497`", ",", "0.9543071641311663`", ",", "0.9537902130298547`", ",", "0.9532474568339387`", ",", "0.9526740244850813`", ",", "0.9520625380453795`", ",", "0.951401972154399`", ",", "0.9506738217733659`", ",", "0.9498431292037777`", ",", "0.9488249295399048`", ",", "0.9470535499503826`", ",", "0.9758935363658535`", ",", "0.9759002604300527`", ",", "0.9759064484364317`", ",", "0.9759120884258133`", ",", "0.9759172893539407`", ",", "0.9759221175142637`", ",", "0.9759266317998234`", ",", "0.9759308136814145`", ",", "0.9759346985248658`", ",", "0.9759383389014084`", ",", "0.9759417863983414`", ",", "0.9759449660747955`", ",", "0.9759480163906179`", ",", "0.9759508705041361`", ",", "0.9759535434903442`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9641778349108101`", ",", "0.9639626666787549`", ",", "0.9637447950765801`", ",", "0.9635241773674408`", ",", "0.9633007709582025`", ",", "0.9630745338345863`", ",", "0.9628454251225637`", ",", "0.9626133301872085`", ",", "0.9623782887783227`", ",", "0.9621400433618656`", ",", "0.9618986497112104`", ",", "0.9616542568834279`", ",", "0.9614078048753701`", ",", "0.9611582716896643`", ",", "0.9609056520997331`", ",", "0.960649999785922`", ",", "0.9603912341141515`", ",", "0.9601294552246398`", ",", "0.9598647363491848`", ",", "0.9595971580007872`", ",", "0.9593268417127896`", ",", "0.9590539750507919`", ",", "0.9587758880762641`", ",", "0.9584886798241592`", ",", "0.9581966028208964`", ",", "0.9578997977681316`", ",", "0.9575981774673855`", ",", "0.9572915387911096`", ",", "0.9569797530511411`", ",", "0.9566627594612105`", ",", "0.956340181137259`", ",", "0.9560118972610079`", ",", "0.9556775610517811`", ",", "0.9553369777400004`", ",", "0.9549897165874645`", ",", "0.9546354860845696`", ",", "0.9542736427320556`", ",", "0.9539037558992713`", ",", "0.9535251071801352`", ",", "0.9531371535883892`", ",", "0.9527388111415804`", ",", "0.9523290942710546`", ",", "0.9519065598416365`", ",", "0.9514696060687584`", ",", "0.95101602733087`", ",", "0.9505427736444252`", ",", "0.9500458418793237`", ",", "0.9495191272869082`", ",", "0.9489526274582766`", ",", "0.9483271643359285`", ",", "0.9476171898445479`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274144728674*^9, 3.781649901078289*^9, 3.7839801176049423`*^9, 3.802469691418323*^9, 3.833634919644742*^9, 3.8340932539578543`*^9, 3.834215853988077*^9, 3.834308355825158*^9, 3.834995334404875*^9, 3.837858913367741*^9}, CellLabel->"Out[95]=",ExpressionUUID->"b5fdf510-926a-4d78-98f1-f75a2d7822a3"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PREM"], "Input", CellChangeTimes->{3.762611583659506*^9}, CellLabel->"In[96]:=",ExpressionUUID->"a712d65b-7120-4c62-8e50-495bbb00aab9"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0017005544157356026`"}], ",", RowBox[{"-", "0.0017165993146614007`"}], ",", RowBox[{"-", "0.0017323319648838405`"}], ",", RowBox[{"-", "0.0017477285845655258`"}], ",", RowBox[{"-", "0.0017627577588591107`"}], ",", RowBox[{"-", "0.0017773893048498076`"}], ",", RowBox[{"-", "0.0017915820011241159`"}], ",", RowBox[{"-", "0.0018052900875058205`"}], ",", RowBox[{"-", "0.0018184617378116537`"}], ",", RowBox[{"-", "0.0018310335542436164`"}], ",", RowBox[{"-", "0.0018429318261571656`"}], ",", RowBox[{"-", "0.0018540675822595488`"}], ",", RowBox[{"-", "0.0018643324756349678`"}], ",", RowBox[{"-", "0.001873599780803622`"}], ",", RowBox[{"-", "0.00188167747631283`"}], ",", RowBox[{"-", "0.0018883055059031304`"}], ",", RowBox[{"-", "0.0018932401847525692`"}], ",", RowBox[{"-", "0.0018960908025611885`"}], ",", RowBox[{"-", "0.0018963143996189634`"}], ",", RowBox[{"-", "0.0018931136965943266`"}], ",", RowBox[{"-", "0.0018852521523511096`"}], ",", RowBox[{"-", "0.0018702403846795998`"}], ",", RowBox[{"-", "0.0018444246869045687`"}], ",", RowBox[{"-", "0.0017980676847606683`"}], ",", RowBox[{"-", "0.001688086216300118`"}], ",", RowBox[{"-", "0.00003332724957650973`"}], ",", "0.0000109381778673536`", ",", "5.24618124410044`*^-6", ",", "2.3226140812630217`*^-6", ",", "1.0889820504973803`*^-6", ",", "5.387349593625757`*^-7", ",", "3.3107396182815`*^-7", ",", "3.260799620187534`*^-7", ",", "3.2176950255990037`*^-7", ",", "3.181471140014137`*^-7", ",", "3.148213162794122`*^-7", ",", "3.120446173222843`*^-7", ",", "3.094457013780389`*^-7", ",", "3.0723067042060763`*^-7", ",", "3.052506104845855`*^-7", ",", "3.031091311150346`*^-7", ",", "3.0156599651061825`*^-7", ",", "3.001656085537307`*^-7", ",", "2.986462530090776`*^-7", ",", "2.973499164999357`*^-7", ",", "2.96376549502713`*^-7", ",", "2.95061982089231`*^-7", ",", "2.941746619397178`*^-7", ",", "2.9322666365061263`*^-7", ",", "2.9272639292825217`*^-7", ",", "2.918102627350125`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0016975890921405888`"}], ",", RowBox[{"-", "0.0017129898322284362`"}], ",", RowBox[{"-", "0.0017281506286538836`"}], ",", RowBox[{"-", "0.0017430524534633282`"}], ",", RowBox[{"-", "0.0017576785113000513`"}], ",", RowBox[{"-", "0.0017720138060428221`"}], ",", RowBox[{"-", "0.0017860352637807143`"}], ",", RowBox[{"-", "0.0017997190910480567`"}], ",", RowBox[{"-", "0.0018130402880542473`"}], ",", RowBox[{"-", "0.0018259683636629074`"}], ",", RowBox[{"-", "0.0018384705164294305`"}], ",", RowBox[{"-", "0.0018505091004967513`"}], ",", RowBox[{"-", "0.001862040934231059`"}], ",", RowBox[{"-", "0.0018730189257069804`"}], ",", RowBox[{"-", "0.0018833453846539986`"}], ",", RowBox[{"-", "0.0018929462466292218`"}], ",", RowBox[{"-", "0.0019017549583615553`"}], ",", RowBox[{"-", "0.0019096633629003099`"}], ",", RowBox[{"-", "0.0019165479646771912`"}], ",", RowBox[{"-", "0.0019222438844124475`"}], ",", RowBox[{"-", "0.0019265458006470296`"}], ",", RowBox[{"-", "0.0019290980268119803`"}], ",", RowBox[{"-", "0.0019293838502572077`"}], ",", RowBox[{"-", "0.0019271835603960133`"}], ",", RowBox[{"-", "0.0019217117208364491`"}], ",", RowBox[{"-", "0.0019117904492811952`"}], ",", RowBox[{"-", "0.0018954545925367523`"}], ",", RowBox[{"-", "0.001868941034446458`"}], ",", RowBox[{"-", "0.0018230599544198397`"}], ",", RowBox[{"-", "0.0017074027050391766`"}], ",", "8.923160154798747`*^-7", ",", "3.350982303537685`*^-7", ",", "3.3059143823406943`*^-7", ",", "3.2666075063533984`*^-7", ",", "3.2292072276026915`*^-7", ",", "3.199437004763703`*^-7", ",", "3.1698835075923796`*^-7", ",", "3.143028924166517`*^-7", ",", "3.119515407048514`*^-7", ",", "3.0988834888304526`*^-7", ",", "3.0796775880784623`*^-7", ",", "3.0612097705345`*^-7", ",", "3.046518503719951`*^-7", ",", "3.0285585186462173`*^-7", ",", "3.015400094688812`*^-7", ",", "3.003747154786003`*^-7", ",", "2.991378410229179`*^-7", ",", "2.981866330176226`*^-7", ",", "2.970135346552969`*^-7", ",", "2.961555965178786`*^-7", ",", "2.952300717403632`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0016931875438367695`"}], ",", RowBox[{"-", "0.0017078570964566787`"}], ",", RowBox[{"-", "0.0017223353228049717`"}], ",", RowBox[{"-", "0.0017366073294072422`"}], ",", RowBox[{"-", "0.0017506691826473498`"}], ",", RowBox[{"-", "0.0017645081686716566`"}], ",", RowBox[{"-", "0.0017781125162429205`"}], ",", RowBox[{"-", "0.0017914693132845042`"}], ",", RowBox[{"-", "0.0018045663205272754`"}], ",", RowBox[{"-", "0.0018173879598643965`"}], ",", RowBox[{"-", "0.0018299211281996778`"}], ",", RowBox[{"-", "0.0018421430815424343`"}], ",", RowBox[{"-", "0.0018540418356050577`"}], ",", RowBox[{"-", "0.001865591371374595`"}], ",", RowBox[{"-", "0.0018767144137507323`"}], ",", RowBox[{"-", "0.00188742329899971`"}], ",", RowBox[{"-", "0.0018976847765423874`"}], ",", RowBox[{"-", "0.0019074638173926478`"}], ",", RowBox[{"-", "0.0019167153739157923`"}], ",", RowBox[{"-", "0.0019253908454809781`"}], ",", RowBox[{"-", "0.0019334345098191408`"}], ",", RowBox[{"-", "0.001940782144799489`"}], ",", RowBox[{"-", "0.0019471249407607342`"}], ",", RowBox[{"-", "0.0019525921321890032`"}], ",", RowBox[{"-", "0.001957100594902975`"}], ",", RowBox[{"-", "0.0019604774233726464`"}], ",", RowBox[{"-", "0.001962518557175226`"}], ",", RowBox[{"-", "0.001962967619924791`"}], ",", RowBox[{"-", "0.0019614864873956773`"}], ",", RowBox[{"-", "0.0019576135477676455`"}], ",", RowBox[{"-", "0.0019506818140371533`"}], ",", RowBox[{"-", "0.0019396660726376923`"}], ",", RowBox[{"-", "0.0019228439662005341`"}], ",", RowBox[{"-", "0.001896906656034948`"}], ",", RowBox[{"-", "0.001853744912374718`"}], ",", RowBox[{"-", "0.0017378037340581615`"}], ",", "3.2124389397212306`*^-7", ",", "3.187650071612785`*^-7", ",", "3.161941965696222`*^-7", ",", "3.142276719162478`*^-7", ",", "3.1243425517574835`*^-7", ",", "3.1064721920390234`*^-7", ",", "3.0868479838356386`*^-7", ",", "3.070569331957353`*^-7", ",", "3.057297032475269`*^-7", ",", "3.0444487161073006`*^-7", ",", "3.0289621188384755`*^-7", ",", "3.020844471045942`*^-7", ",", "3.0072401033420955`*^-7", ",", "2.996996044917489`*^-7", ",", "2.990120032409754`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.001680334961978031`"}], ",", RowBox[{"-", "0.001693371205026886`"}], ",", RowBox[{"-", "0.0017062772932536006`"}], ",", RowBox[{"-", "0.0017190499687248719`"}], ",", RowBox[{"-", "0.0017316857799702435`"}], ",", RowBox[{"-", "0.0017441810717432299`"}], ",", RowBox[{"-", "0.0017565319741721474`"}], ",", RowBox[{"-", "0.0017687364666400035`"}], ",", RowBox[{"-", "0.00178078820908103`"}], ",", RowBox[{"-", "0.0017926891691641814`"}], ",", RowBox[{"-", "0.0018044329636391345`"}], ",", RowBox[{"-", "0.0018160104440852177`"}], ",", RowBox[{"-", "0.0018273843169301527`"}], ",", RowBox[{"-", "0.0018385794557461126`"}], ",", RowBox[{"-", "0.0018495897202940093`"}], ",", RowBox[{"-", "0.001860406231296153`"}], ",", RowBox[{"-", "0.0018710269662628762`"}], ",", RowBox[{"-", "0.0018814423768746288`"}], ",", RowBox[{"-", "0.001891642454636903`"}], ",", RowBox[{"-", "0.0019016243655082415`"}], ",", RowBox[{"-", "0.0019113748664766703`"}], ",", RowBox[{"-", "0.001920888112685319`"}], ",", RowBox[{"-", "0.0019300840701017667`"}], ",", RowBox[{"-", "0.0019389323051313316`"}], ",", RowBox[{"-", "0.0019475509511446085`"}], ",", RowBox[{"-", "0.0019559169541375964`"}], ",", RowBox[{"-", "0.0019640057410847222`"}], ",", RowBox[{"-", "0.0019717945619316755`"}], ",", RowBox[{"-", "0.0019792620999500776`"}], ",", RowBox[{"-", "0.001986386474010435`"}], ",", RowBox[{"-", "0.0019931450178560213`"}], ",", RowBox[{"-", "0.001999513293390771`"}], ",", RowBox[{"-", "0.0020054650172525758`"}], ",", RowBox[{"-", "0.002010970512699725`"}], ",", RowBox[{"-", "0.002015997275496558`"}], ",", RowBox[{"-", "0.0020205077090613`"}], ",", RowBox[{"-", "0.002024460225780534`"}], ",", RowBox[{"-", "0.0020278052925812996`"}], ",", RowBox[{"-", "0.0020304860574528174`"}], ",", RowBox[{"-", "0.00203243346171974`"}], ",", RowBox[{"-", "0.0020335670614625104`"}], ",", RowBox[{"-", "0.002033786709439272`"}], ",", RowBox[{"-", "0.002032969377816499`"}], ",", RowBox[{"-", "0.0020309569907602807`"}], ",", RowBox[{"-", "0.002027543895809377`"}], ",", RowBox[{"-", "0.002022453625506001`"}], ",", RowBox[{"-", "0.00201529416037001`"}], ",", RowBox[{"-", "0.0020054855657554256`"}], ",", RowBox[{"-", "0.001992112049173515`"}], ",", RowBox[{"-", "0.0019736269145631`"}], ",", RowBox[{"-", "0.0019463311203945753`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741448221397`*^9, 3.781649901168501*^9, 3.7839801176971684`*^9, 3.802469691505321*^9, 3.833634919657236*^9, 3.8340932539733877`*^9, 3.834215854060614*^9, 3.834308355839983*^9, 3.8349953344187193`*^9, 3.837858913383625*^9}, CellLabel->"Out[96]=",ExpressionUUID->"4da0cbf3-cf61-4123-a345-ad78fd95ced5"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PRM"], "Input", CellChangeTimes->{3.762611583659779*^9}, CellLabel->"In[97]:=",ExpressionUUID->"613d82ae-b4f2-4e38-b8c5-c0e70e2ac5cb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.004560203847996438`"}], ",", RowBox[{"-", "0.004636847220534725`"}], ",", RowBox[{"-", "0.004714905252984187`"}], ",", RowBox[{"-", "0.004794438121510554`"}], ",", RowBox[{"-", "0.0048754754145002785`"}], ",", RowBox[{"-", "0.0049580996766319186`"}], ",", RowBox[{"-", "0.005042346783802724`"}], ",", RowBox[{"-", "0.005128273076757384`"}], ",", RowBox[{"-", "0.005215956569191436`"}], ",", RowBox[{"-", "0.005305463757922471`"}], ",", RowBox[{"-", "0.005396884720564637`"}], ",", RowBox[{"-", "0.005490317085016718`"}], ",", RowBox[{"-", "0.0055858665021754385`"}], ",", RowBox[{"-", "0.0056836984623141115`"}], ",", RowBox[{"-", "0.005783716007557053`"}], ",", RowBox[{"-", "0.0058857926617390584`"}], ",", RowBox[{"-", "0.005990453181392878`"}], ",", RowBox[{"-", "0.006097907791674763`"}], ",", RowBox[{"-", "0.006208484211154513`"}], ",", RowBox[{"-", "0.006322716301559172`"}], ",", RowBox[{"-", "0.006441540479134853`"}], ",", RowBox[{"-", "0.006568228482943018`"}], ",", RowBox[{"-", "0.0067046272323512505`"}], ",", RowBox[{"-", "0.006856996164689088`"}], ",", RowBox[{"-", "0.007053934100858517`"}], ",", RowBox[{"-", "0.004794113441501421`"}], ",", RowBox[{"-", "0.0011164183586987362`"}], ",", RowBox[{"-", "0.000338494544360952`"}], ",", RowBox[{"-", "0.0001262881960704727`"}], ",", RowBox[{"-", "0.00005316575838985849`"}], ",", RowBox[{"-", "0.000024196924540907804`"}], ",", RowBox[{"-", "0.000013865189306402074`"}], ",", RowBox[{"-", "0.000012848290373011063`"}], ",", RowBox[{"-", "0.000011995311358399857`"}], ",", RowBox[{"-", "0.000011274096379768889`"}], ",", RowBox[{"-", "0.000010647457466240207`"}], ",", RowBox[{"-", "0.00001010717756960176`"}], ",", RowBox[{"-", "9.628060677254423`*^-6"}], ",", RowBox[{"-", "9.206882527590564`*^-6"}], ",", RowBox[{"-", "8.831195588519231`*^-6"}], ",", RowBox[{"-", "8.483745639246446`*^-6"}], ",", RowBox[{"-", "8.181183779344236`*^-6"}], ",", RowBox[{"-", "7.906405471203907`*^-6"}], ",", RowBox[{"-", "7.649448036866028`*^-6"}], ",", RowBox[{"-", "7.416648870173732`*^-6"}], ",", RowBox[{"-", "7.20793900364179`*^-6"}], ",", RowBox[{"-", "7.005222911111515`*^-6"}], ",", RowBox[{"-", "6.825440796026182`*^-6"}], ",", RowBox[{"-", "6.6555605438987155`*^-6"}], ",", RowBox[{"-", "6.505892276651045`*^-6"}], ",", RowBox[{"-", "6.356057570574303`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004514016029247997`"}], ",", RowBox[{"-", "0.004583396521392155`"}], ",", RowBox[{"-", "0.004653885547693268`"}], ",", RowBox[{"-", "0.004725475090415118`"}], ",", RowBox[{"-", "0.004798189948705987`"}], ",", RowBox[{"-", "0.00487208868189381`"}], ",", RowBox[{"-", "0.0049471815942295095`"}], ",", RowBox[{"-", "0.005023496121019842`"}], ",", RowBox[{"-", "0.005101077265720057`"}], ",", RowBox[{"-", "0.005179954264863224`"}], ",", RowBox[{"-", "0.00526017377557025`"}], ",", RowBox[{"-", "0.005341782756195327`"}], ",", RowBox[{"-", "0.005424827140254761`"}], ",", RowBox[{"-", "0.005509365850001216`"}], ",", RowBox[{"-", "0.005595141407312531`"}], ",", RowBox[{"-", "0.005682215948377604`"}], ",", RowBox[{"-", "0.005770780456555536`"}], ",", RowBox[{"-", "0.005860859354727438`"}], ",", RowBox[{"-", "0.005952507037637315`"}], ",", RowBox[{"-", "0.006045746568006826`"}], ",", RowBox[{"-", "0.00614064275551535`"}], ",", RowBox[{"-", "0.006237703216080423`"}], ",", RowBox[{"-", "0.006338544579936503`"}], ",", RowBox[{"-", "0.006442397214128869`"}], ",", RowBox[{"-", "0.006549647132171252`"}], ",", RowBox[{"-", "0.006660912224370218`"}], ",", RowBox[{"-", "0.006777261304927376`"}], ",", RowBox[{"-", "0.006900681682408042`"}], ",", RowBox[{"-", "0.007035884488833712`"}], ",", RowBox[{"-", "0.007207032374560803`"}], ",", RowBox[{"-", "0.000036427793889142693`"}], ",", RowBox[{"-", "0.000012783679752654283`"}], ",", RowBox[{"-", "0.000011924760229808511`"}], ",", RowBox[{"-", "0.000011198688430760732`"}], ",", RowBox[{"-", "0.000010567096160797236`"}], ",", RowBox[{"-", "0.000010030489995426453`"}], ",", RowBox[{"-", "9.551161218128468`*^-6"}], ",", RowBox[{"-", "9.12689526082392`*^-6"}], ",", RowBox[{"-", "8.751356941731006`*^-6"}], ",", RowBox[{"-", "8.41662676824626`*^-6"}], ",", RowBox[{"-", "8.113578655721218`*^-6"}], ",", RowBox[{"-", "7.836447214783652`*^-6"}], ",", RowBox[{"-", "7.58964410425045`*^-6"}], ",", RowBox[{"-", "7.352821506695454`*^-6"}], ",", RowBox[{"-", "7.143645814093686`*^-6"}], ",", RowBox[{"-", "6.95191003130991`*^-6"}], ",", RowBox[{"-", "6.770882577438861`*^-6"}], ",", RowBox[{"-", "6.60734253448439`*^-6"}], ",", RowBox[{"-", "6.4487902818084605`*^-6"}], ",", RowBox[{"-", "6.3060299116527024`*^-6"}], ",", RowBox[{"-", "6.169859210211981`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004467904615204198`"}], ",", RowBox[{"-", "0.004530594762589223`"}], ",", RowBox[{"-", "0.004594129267990874`"}], ",", RowBox[{"-", "0.004658473018026045`"}], ",", RowBox[{"-", "0.0047236865857408295`"}], ",", RowBox[{"-", "0.0047897667188811855`"}], ",", RowBox[{"-", "0.004856725981844579`"}], ",", RowBox[{"-", "0.004924576708602289`"}], ",", RowBox[{"-", "0.00499334725951458`"}], ",", RowBox[{"-", "0.005063049122412372`"}], ",", RowBox[{"-", "0.00513372581630175`"}], ",", RowBox[{"-", "0.005205352769154733`"}], ",", RowBox[{"-", "0.005278001801034403`"}], ",", RowBox[{"-", "0.005351637757181703`"}], ",", RowBox[{"-", "0.0054259116340392615`"}], ",", RowBox[{"-", "0.00550113737312757`"}], ",", RowBox[{"-", "0.0055773131995751814`"}], ",", RowBox[{"-", "0.005654441264797879`"}], ",", RowBox[{"-", "0.005732493443053489`"}], ",", RowBox[{"-", "0.0058114467449625114`"}], ",", RowBox[{"-", "0.005891267045907705`"}], ",", RowBox[{"-", "0.005971905572300407`"}], ",", RowBox[{"-", "0.006054728066193636`"}], ",", RowBox[{"-", "0.0061393937465179845`"}], ",", RowBox[{"-", "0.006225611457846036`"}], ",", RowBox[{"-", "0.006313432231297904`"}], ",", RowBox[{"-", "0.006402923423786284`"}], ",", RowBox[{"-", "0.0064941725674886475`"}], ",", RowBox[{"-", "0.006587383080824226`"}], ",", RowBox[{"-", "0.006682751717983827`"}], ",", RowBox[{"-", "0.006780619877943781`"}], ",", RowBox[{"-", "0.006881459084213115`"}], ",", RowBox[{"-", "0.006986054368604198`"}], ",", RowBox[{"-", "0.0070958021652888035`"}], ",", RowBox[{"-", "0.007213953513424423`"}], ",", RowBox[{"-", "0.007360102135891411`"}], ",", RowBox[{"-", "9.03676828707701`*^-6"}], ",", RowBox[{"-", "8.664917814547911`*^-6"}], ",", RowBox[{"-", "8.32445198935777`*^-6"}], ",", RowBox[{"-", "8.028412625839447`*^-6"}], ",", RowBox[{"-", "7.760753854259948`*^-6"}], ",", RowBox[{"-", "7.513921863221756`*^-6"}], ",", RowBox[{"-", "7.281022640881222`*^-6"}], ",", RowBox[{"-", "7.071952365379242`*^-6"}], ",", RowBox[{"-", "6.8835957439117115`*^-6"}], ",", RowBox[{"-", "6.708306463396309`*^-6"}], ",", RowBox[{"-", "6.538145927539171`*^-6"}], ",", RowBox[{"-", "6.393564131454742`*^-6"}], ",", RowBox[{"-", "6.2460031705914436`*^-6"}], ",", RowBox[{"-", "6.113356497058745`*^-6"}], ",", RowBox[{"-", "5.9945666642606815`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004375627608328219`"}], ",", RowBox[{"-", "0.004426379445298119`"}], ",", RowBox[{"-", "0.004477592097473971`"}], ",", RowBox[{"-", "0.0045292672146530245`"}], ",", RowBox[{"-", "0.004581406084283311`"}], ",", RowBox[{"-", "0.004634009537194456`"}], ",", RowBox[{"-", "0.00468707783089244`"}], ",", RowBox[{"-", "0.004740626281081033`"}], ",", RowBox[{"-", "0.004794637764965204`"}], ",", RowBox[{"-", "0.0048491572173213334`"}], ",", RowBox[{"-", "0.004904164389518175`"}], ",", RowBox[{"-", "0.004959619248502135`"}], ",", RowBox[{"-", "0.005015309095464731`"}], ",", RowBox[{"-", "0.005071440074897424`"}], ",", RowBox[{"-", "0.005128002480210441`"}], ",", RowBox[{"-", "0.005184972873760091`"}], ",", RowBox[{"-", "0.005242359531505607`"}], ",", RowBox[{"-", "0.005300129924639772`"}], ",", RowBox[{"-", "0.005358255602765311`"}], ",", RowBox[{"-", "0.0054167156505127885`"}], ",", RowBox[{"-", "0.00547546923662244`"}], ",", RowBox[{"-", "0.005534473250687117`"}], ",", RowBox[{"-", "0.005594086902141049`"}], ",", RowBox[{"-", "0.005654939982438051`"}], ",", RowBox[{"-", "0.0057164361297187705`"}], ",", RowBox[{"-", "0.005778516447047736`"}], ",", RowBox[{"-", "0.005841159498994229`"}], ",", RowBox[{"-", "0.005904365733000863`"}], ",", RowBox[{"-", "0.005968124301280808`"}], ",", RowBox[{"-", "0.0060324119075714335`"}], ",", RowBox[{"-", "0.006097257551028133`"}], ",", RowBox[{"-", "0.006162644199553788`"}], ",", RowBox[{"-", "0.006228590247759679`"}], ",", RowBox[{"-", "0.006295083884338878`"}], ",", RowBox[{"-", "0.0063621488132212444`"}], ",", RowBox[{"-", "0.0064297786645886226`"}], ",", RowBox[{"-", "0.006498019859106018`"}], ",", RowBox[{"-", "0.006566872955285898`"}], ",", RowBox[{"-", "0.006636376087435767`"}], ",", RowBox[{"-", "0.0067065228635883505`"}], ",", RowBox[{"-", "0.0067773801422001045`"}], ",", RowBox[{"-", "0.006848973297371177`"}], ",", RowBox[{"-", "0.006921372195509942`"}], ",", RowBox[{"-", "0.006994627793111467`"}], ",", RowBox[{"-", "0.007068827821342138`"}], ",", RowBox[{"-", "0.0071441055267655726`"}], ",", RowBox[{"-", "0.0072206019854074415`"}], ",", RowBox[{"-", "0.0072985574449087685`"}], ",", RowBox[{"-", "0.0073784082307906205`"}], ",", RowBox[{"-", "0.0074612321907263825`"}], ",", RowBox[{"-", "0.007546536097235903`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274144912785*^9, 3.781649901258848*^9, 3.783980117802898*^9, 3.802469691595961*^9, 3.833634919693576*^9, 3.834093254014461*^9, 3.834215854074396*^9, 3.8343083558677473`*^9, 3.8349953344451723`*^9, 3.8378589134153233`*^9}, CellLabel->"Out[97]=",ExpressionUUID->"3b1e16ee-33c1-4973-a3c4-94bcaf02f82b"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PLEN"], "Input", CellChangeTimes->{3.762611583659986*^9}, CellLabel->"In[98]:=",ExpressionUUID->"95ffed02-ddca-406a-b119-4cc2416212b8"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.001506362528419708`", ",", "0.0015419240580513555`", ",", "0.0015774640720406588`", ",", "0.0016129658468274702`", ",", "0.001648410168006896`", ",", "0.0016837748107505351`", ",", "0.0017190340993701245`", ",", "0.0017541581288564728`", ",", "0.0017891118290772404`", ",", "0.0018238538661987935`", ",", "0.0018583350444706312`", ",", "0.0018924963682559887`", ",", "0.0019262664622366893`", ",", "0.001959559085445123`", ",", "0.0019922631418053255`", ",", "0.002024222679164085`", ",", "0.002055252454180194`", ",", "0.0020850888633429238`", ",", "0.002113355532017157`", ",", "0.002139482303545895`", ",", "0.0021625530314930835`", ",", "0.002180565096793069`", ",", "0.002190685938540292`", ",", "0.002184942627879702`", ",", "0.002126032983086737`", ",", RowBox[{"-", "0.00011567797656322071`"}], ",", RowBox[{"-", "0.00006859848063956245`"}], ",", RowBox[{"-", "0.00002506056016635897`"}], ",", RowBox[{"-", "0.000010153800433059402`"}], ",", RowBox[{"-", "4.519151212270273`*^-6"}], ",", RowBox[{"-", "2.1516054068067042`*^-6"}], ",", RowBox[{"-", "1.2821307390842914`*^-6"}], ",", RowBox[{"-", "1.2305577813763577`*^-6"}], ",", RowBox[{"-", "1.187055501210765`*^-6"}], ",", RowBox[{"-", "1.150339226147634`*^-6"}], ",", RowBox[{"-", "1.118055791256284`*^-6"}], ",", RowBox[{"-", "1.0904284949024069`*^-6"}], ",", RowBox[{"-", "1.0656312916971307`*^-6"}], ",", RowBox[{"-", "1.0439873745697159`*^-6"}], ",", RowBox[{"-", "1.0246709043908354`*^-6"}], ",", RowBox[{"-", "1.0061196293909984`*^-6"}], ",", RowBox[{"-", "9.906708463129372`*^-7"}], ",", RowBox[{"-", "9.76638467124275`*^-7"}], ",", RowBox[{"-", "9.63048464616405`*^-7"}], ",", RowBox[{"-", "9.509070284254674`*^-7"}], ",", RowBox[{"-", "9.404317001015979`*^-7"}], ",", RowBox[{"-", "9.294377120797477`*^-7"}], ",", RowBox[{"-", "9.202937976149778`*^-7"}], ",", RowBox[{"-", "9.114054830348765`*^-7"}], ",", RowBox[{"-", "9.043041146492519`*^-7"}], ",", RowBox[{"-", "8.962748310148384`*^-7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0015065362252919198`", ",", "0.0015400223125617701`", ",", "0.001573493028912909`", ",", "0.0016069383028744777`", ",", "0.0016403469606703774`", ",", "0.0016737065406842305`", ",", "0.0017070031139316683`", ",", "0.0017402211088302505`", ",", "0.0017733430741735806`", ",", "0.0018063494048463982`", ",", "0.0018392180624397028`", ",", "0.0018719242949954973`", ",", "0.0019044404252158212`", ",", "0.001936736227481528`", ",", "0.001968769714936952`", ",", "0.0020004928811852285`", ",", "0.002031856167697847`", ",", "0.0020627946736327604`", ",", "0.002093233232638804`", ",", "0.002123072289620026`", ",", "0.002152184150329556`", ",", "0.002180304820527078`", ",", "0.0022069838429266755`", ",", "0.0022321645461724215`", ",", "0.002255302379656675`", ",", "0.0022755593324331955`", ",", "0.0022914900815294154`", ",", "0.0023002268839810713`", ",", "0.0022944699238195906`", ",", "0.0022323420779300843`", ",", RowBox[{"-", "3.446711676935205`*^-6"}], ",", RowBox[{"-", "1.25768255502848`*^-6"}], ",", RowBox[{"-", "1.212632703099278`*^-6"}], ",", RowBox[{"-", "1.1743089180032377`*^-6"}], ",", RowBox[{"-", "1.1402846402190886`*^-6"}], ",", RowBox[{"-", "1.1118276330969131`*^-6"}], ",", RowBox[{"-", "1.0857648607709989`*^-6"}], ",", RowBox[{"-", "1.062546530090062`*^-6"}], ",", RowBox[{"-", "1.0420520508484349`*^-6"}], ",", RowBox[{"-", "1.0238552575039578`*^-6"}], ",", RowBox[{"-", "1.0072627051482022`*^-6"}], ",", RowBox[{"-", "9.918870984036097`*^-7"}], ",", RowBox[{"-", "9.785748813447476`*^-7"}], ",", RowBox[{"-", "9.649485420204008`*^-7"}], ",", RowBox[{"-", "9.535004826404544`*^-7"}], ",", RowBox[{"-", "9.430903892474997`*^-7"}], ",", RowBox[{"-", "9.32955884860249`*^-7"}], ",", RowBox[{"-", "9.241578005874095`*^-7"}], ",", RowBox[{"-", "9.150720139432169`*^-7"}], ",", RowBox[{"-", "9.073182639759612`*^-7"}], ",", RowBox[{"-", "8.996810613979444`*^-7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0015053322976317958`", ",", "0.0015367102963933787`", ",", "0.001568071168054165`", ",", "0.0015994084777449027`", ",", "0.0016307154493144238`", ",", "0.001661984597187166`", ",", "0.001693207847103008`", ",", "0.0017243764538002193`", ",", "0.001755481012261459`", ",", "0.0017865113341223732`", ",", "0.0018174567108489234`", ",", "0.0018483053000412294`", ",", "0.0018790458018695597`", ",", "0.0019096658105527686`", ",", "0.001940139498387304`", ",", "0.001970456046433748`", ",", "0.0020005967666009775`", ",", "0.0020305423638644557`", ",", "0.0020602695366991816`", ",", "0.0020897533069201835`", ",", "0.002118965836770119`", ",", "0.0021478759147189677`", ",", "0.0021761658341741263`", ",", "0.002203978956968458`", ",", "0.0022312961255362973`", ",", "0.002258011184756138`", ",", "0.00228400022158555`", ",", "0.0023091069319794433`", ",", "0.0023331147959559095`", ",", "0.002355729428802758`", ",", "0.0023765096314049827`", ",", "0.0023947619399712072`", ",", "0.0024092824219812056`", ",", "0.0024176787310982925`", ",", "0.002413842262016422`", ",", "0.0023545697471419255`", ",", RowBox[{"-", "1.080869893373273`*^-6"}], ",", RowBox[{"-", "1.0598474591007426`*^-6"}], ",", RowBox[{"-", "1.039941328866961`*^-6"}], ",", RowBox[{"-", "1.0232177293087512`*^-6"}], ",", RowBox[{"-", "1.0080604879610225`*^-6"}], ",", RowBox[{"-", "9.937877578863972`*^-7"}], ",", RowBox[{"-", "9.797128245294024`*^-7"}], ",", RowBox[{"-", "9.673643985473265`*^-7"}], ",", RowBox[{"-", "9.565374852165673`*^-7"}], ",", RowBox[{"-", "9.463471878396493`*^-7"}], ",", RowBox[{"-", "9.357917082399318`*^-7"}], ",", RowBox[{"-", "9.279144456347333`*^-7"}], ",", RowBox[{"-", "9.187099786349314`*^-7"}], ",", RowBox[{"-", "9.108610317087309`*^-7"}], ",", RowBox[{"-", "9.043249074293472`*^-7"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0014990333187105964`", ",", "0.0015261825483175173`", ",", "0.001553303941110036`", ",", "0.0015803946587498174`", ",", "0.0016074517456118771`", ",", "0.0016344721346537756`", ",", "0.0016614526554071252`", ",", "0.0016883902368883402`", ",", "0.0017152814275262149`", ",", "0.001742123749938939`", ",", "0.0017689141758328482`", ",", "0.0017956492301883092`", ",", "0.001822317871909021`", ",", "0.00184892186209697`", ",", "0.0018754575379896533`", ",", "0.001901920318187627`", ",", "0.0019283085553008332`", ",", "0.001954618197063409`", ",", "0.0019808445770700955`", ",", "0.0020069884394514`", ",", "0.0020330438725468213`", ",", "0.002059011413768009`", ",", "0.0020847975283689833`", ",", "0.00211032813540335`", ",", "0.002135751514386587`", ",", "0.0021610560172570688`", ",", "0.0021862267802123594`", ",", "0.0022112493637904893`", ",", "0.0022361122892082114`", ",", "0.002260805712549562`", ",", "0.0022853150488144`", ",", "0.002309629715750435`", ",", "0.0023337352954879813`", ",", "0.00235761907051292`", ",", "0.0023812639285748782`", ",", "0.0024046537369542056`", ",", "0.002427765511937907`", ",", "0.0024505775878329306`", ",", "0.002473061325788957`", ",", "0.0024951876619488805`", ",", "0.002516914502064496`", ",", "0.0025381954560330516`", ",", "0.00255896840492284`", ",", "0.002579157023504107`", ",", "0.0025986576819245974`", ",", "0.0026173259298115092`", ",", "0.0026349583137586854`", ",", "0.0026512406983977554`", ",", "0.0026656504021637523`", ",", "0.0026772105463993418`", ",", "0.0026839851014250488`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145008637*^9, 3.7816499013487673`*^9, 3.7839801179045753`*^9, 3.802469691683855*^9, 3.833634919706456*^9, 3.834093254030198*^9, 3.8342158541251574`*^9, 3.8343083558819532`*^9, 3.834995334458851*^9, 3.837858913432515*^9}, CellLabel->"Out[98]=",ExpressionUUID->"58d987dd-cc97-4ff0-877f-447708aa4b23"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PLN"], "Input", CellChangeTimes->{3.762611583660145*^9}, CellLabel->"In[99]:=",ExpressionUUID->"05994630-7457-4abe-bcb4-38525cf495aa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.001716258302820605`", ",", "0.0018248146739164432`", ",", "0.001940851918820386`", ",", "0.0020651978052781002`", ",", "0.0021988020209421`", ",", "0.0023427654496017657`", ",", "0.0024983644509412404`", ",", "0.002667093486833582`", ",", "0.002850714735110587`", ",", "0.0030513193587336958`", ",", "0.0032714133903955205`", ",", "0.0035140269587650014`", ",", "0.0037828626950865375`", ",", "0.0040824933032536275`", ",", "0.004418671233058412`", ",", "0.004798886631568754`", ",", "0.005232797843500394`", ",", "0.005733435760098459`", ",", "0.006318903638404651`", ",", "0.007015515301354547`", ",", "0.007863729148159863`", ",", "0.00893878455093448`", ",", "0.010362765902919248`", ",", "0.012432957747290568`", ",", "0.01640097657440915`", ",", "0.009758905727891636`", ",", "0.0019689573196347713`", ",", "0.0005596844289447989`", ",", "0.0001994473515732556`", ",", "0.00008070098529255205`", ",", "0.00003541491829642141`", ",", "0.00001961155360062354`", ",", "0.000017594461521220178`", ",", "0.000015926132499945087`", ",", "0.000014531533275179736`", ",", "0.000013338792606237655`", ",", "0.000012319861269254386`", ",", "0.000011429954475381986`", ",", "0.000010654609841628876`", ",", "9.970624229710546`*^-6", ",", "9.351895217254385`*^-6", ",", "8.81138923512378`*^-6", ",", "8.3254728310656`*^-6", ",", "7.880021583480575`*^-6", ",", "7.478612095065726`*^-6", ",", "7.11824854581328`*^-6", ",", "6.778775258221553`*^-6", ",", "6.474897085175387`*^-6", ",", "6.1923225354983325`*^-6", ",", "5.93917041209605`*^-6", ",", "5.695476983451519`*^-6"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0016972228230151842`", ",", "0.0017922025933588327`", ",", "0.0018926064707516844`", ",", "0.0019989230047233113`", ",", "0.0021117008198441455`", ",", "0.0022315583941837497`", ",", "0.0023591904445853405`", ",", "0.0024953846171669436`", ",", "0.0026410376178137183`", ",", "0.002797172708962883`", ",", "0.0029649653646763212`", ",", "0.0031457712463362226`", ",", "0.0033411615612128423`", ",", "0.0035529646438737256`", ",", "0.003783355216321115`", ",", "0.004034940908160514`", ",", "0.004310813350961548`", ",", "0.004614745414153274`", ",", "0.004951341926301775`", ",", "0.005326388711963408`", ",", "0.005747240654626862`", ",", "0.006224549779033625`", ",", "0.00677414069514326`", ",", "0.007410881287549711`", ",", "0.0081611992435018`", ",", "0.009065450927576794`", ",", "0.010190806889093813`", ",", "0.011664338766406013`", ",", "0.013789766235933186`", ",", "0.01816488385281928`", ",", "0.000058217909483941814`", ",", "0.000019670019837532936`", ",", "0.000017713706113419737`", ",", "0.00001608715040491106`", ",", "0.000014702284731284485`", ",", "0.000013535320848046006`", ",", "0.0000125159332684185`", ",", "0.000011627475353230276`", ",", "0.000010850382107495169`", ",", "0.00001016551714397108`", ",", "9.554480167716652`*^-6", ",", "9.004698978191915`*^-6", ",", "8.51634029175281`*^-6", ",", "8.062506705266021`*^-6", ",", "7.65954006207197`*^-6", ",", "7.293182955180905`*^-6", ",", "6.954005234926504`*^-6", ",", "6.646985251280635`*^-6", ",", "6.357725807888753`*^-6", ",", "6.095512223892177`*^-6", ",", "5.84996866508037`*^-6"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0016771260263073761`", ",", "0.0017603778899475202`", ",", "0.0018475737425940478`", ",", "0.0019390028178052176`", ",", "0.0020349865233880203`", ",", "0.002135874825851669`", ",", "0.002242053749950016`", ",", "0.002353949277745795`", ",", "0.0024720334466068012`", ",", "0.002596828879506141`", ",", "0.0027289178057437143`", ",", "0.0028689465504950916`", ",", "0.003017639022833686`", ",", "0.0031758017516682036`", ",", "0.0033443755698407615`", ",", "0.0035244041743092832`", ",", "0.003717080128796813`", ",", "0.0039237624868761435`", ",", "0.004146024116543321`", ",", "0.004385682821886789`", ",", "0.004644856478201158`", ",", "0.0049260290916093765`", ",", "0.005234363454602431`", ",", "0.005572249866616964`", ",", "0.005943780716783947`", ",", "0.006354722550353644`", ",", "0.006812333925682923`", ",", "0.0073259977152839465`", ",", "0.007908244402963149`", ",", "0.008576280724909102`", ",", "0.009354933620207433`", ",", "0.010282186167073059`", ",", "0.011421365338818289`", ",", "0.01289284721179947`", ",", "0.014987092192031235`", ",", "0.019628826164638714`", ",", "0.000012836313677792434`", ",", "0.000011939720603792205`", ",", "0.000011140888156901523`", ",", "0.00001044754146028803`", ",", "9.830000425233617`*^-6", ",", "9.272366039838323`*^-6", ",", "8.761285350697332`*^-6", ",", "8.304539824328046`*^-6", ",", "7.894351755268848`*^-6", ",", "7.518658259683947`*^-6", ",", "7.166210196313192`*^-6", ",", "6.857227837137256`*^-6", ",", "6.5588048753728595`*^-6", ",", "6.2885535387422`*^-6", ",", "6.0435945609290145`*^-6"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0016342005656714642`", ",", "0.0016982541106039068`", ",", "0.001764389305788745`", ",", "0.0018327079547912051`", ",", "0.0019033179402502408`", ",", "0.001976333669941957`", ",", "0.002051876560497573`", ",", "0.0021300761418893656`", ",", "0.002211068787135227`", ",", "0.002295001548301482`", ",", "0.0023820280402858814`", ",", "0.0024723113467154546`", ",", "0.0025660272467566978`", ",", "0.0026633693632619132`", ",", "0.00276453969904465`", ",", "0.0028697557784464964`", ",", "0.0029792468449117418`", ",", "0.0030932616500123347`", ",", "0.0032120700980856703`", ",", "0.0033359499655166514`", ",", "0.003465217223240412`", ",", "0.003600195850162324`", ",", "0.003741556564804567`", ",", "0.003890008691185232`", ",", "0.004045475464363346`", ",", "0.004208439019567894`", ",", "0.004379451951089857`", ",", "0.004559125432252409`", ",", "0.0047481253120990495`", ",", "0.004947187306973004`", ",", "0.005157140174607432`", ",", "0.005378900767885498`", ",", "0.0056135043656742045`", ",", "0.005862120777551172`", ",", "0.006126081091586443`", ",", "0.0064069143394094126`", ",", "0.006706375235572016`", ",", "0.007026518560559792`", ",", "0.007369748779567175`", ",", "0.007738955603481862`", ",", "0.008137578125581475`", ",", "0.008569861619082901`", ",", "0.009041058110453437`", ",", "0.009557896792787863`", ",", "0.01012914978778036`", ",", "0.010766609100660223`", ",", "0.011486958465725223`", ",", "0.012314851821424113`", ",", "0.013289115229483039`", ",", "0.014474876083710645`", ",", "0.016028671525893608`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741450988417`*^9, 3.7816499014386063`*^9, 3.783980118007002*^9, 3.802469691795741*^9, 3.833634919742858*^9, 3.834093254070733*^9, 3.8342158541386003`*^9, 3.834308355909306*^9, 3.8349953344849358`*^9, 3.8378589135890102`*^9}, CellLabel->"Out[99]=",ExpressionUUID->"e922a9ed-7cad-4b37-bf9c-fa2a7a070c5a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PREN"], "Input", CellChangeTimes->{3.762611583660303*^9}, CellLabel-> "In[100]:=",ExpressionUUID->"180bd7cf-5865-4591-aaae-22351539feb3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0020063565807200145`"}], ",", RowBox[{"-", "0.0020346511080085`"}], ",", RowBox[{"-", "0.00206281216315448`"}], ",", RowBox[{"-", "0.002090820162849564`"}], ",", RowBox[{"-", "0.002118648143346353`"}], ",", RowBox[{"-", "0.0021462711060541706`"}], ",", RowBox[{"-", "0.002173653368353831`"}], ",", RowBox[{"-", "0.002200755535866551`"}], ",", RowBox[{"-", "0.0022275332040937283`"}], ",", RowBox[{"-", "0.0022539314763183466`"}], ",", RowBox[{"-", "0.0022798867521939235`"}], ",", RowBox[{"-", "0.002305322062238019`"}], ",", RowBox[{"-", "0.0023301434512076336`"}], ",", RowBox[{"-", "0.0023542419678089857`"}], ",", RowBox[{"-", "0.002377445440952454`"}], ",", RowBox[{"-", "0.002399519334450005`"}], ",", RowBox[{"-", "0.002420256752861588`"}], ",", RowBox[{"-", "0.0024393115378197536`"}], ",", RowBox[{"-", "0.002456200012596277`"}], ",", RowBox[{"-", "0.002470206113160338`"}], ",", RowBox[{"-", "0.0024802079860092585`"}], ",", RowBox[{"-", "0.002483924301404504`"}], ",", RowBox[{"-", "0.0024779199396346013`"}], ",", RowBox[{"-", "0.0024528618270083374`"}], ",", RowBox[{"-", "0.002366205335492602`"}], ",", "0.0000630414836839191`", ",", "0.0000586630844016979`", ",", "0.000022296185723892636`", ",", "9.168587570536867`*^-6", ",", "4.118168133972026`*^-6", ",", "1.9743772646272717`*^-6", ",", "1.1832845807957558`*^-6", ",", "1.1412833516581309`*^-6", ",", "1.1057830255491012`*^-6", ",", "1.0758293118126757`*^-6", ",", "1.0493989790500303`*^-6", ",", "1.0268310029897551`*^-6", ",", "1.006508579301323`*^-6", ",", "9.888129996623815`*^-7", ",", "9.730255803939286`*^-7", ",", "9.577091869972926`*^-7", ",", "9.451259314534419`*^-7", ",", "9.337058866145406`*^-7", ",", "9.225428816289627`*^-7", ",", "9.126206224670133`*^-7", ",", "9.041691628925189`*^-7", ",", "8.951040740699161`*^-7", ",", "8.877173116591608`*^-7", ",", "8.804853296067491`*^-7", ",", "8.748979047510047`*^-7", ",", "8.683385299118726`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0019854625568804483`"}], ",", RowBox[{"-", "0.0020118798781173196`"}], ",", RowBox[{"-", "0.00203819105926642`"}], ",", RowBox[{"-", "0.0020643790161814467`"}], ",", RowBox[{"-", "0.0020904289620156495`"}], ",", RowBox[{"-", "0.0021163280990325814`"}], ",", RowBox[{"-", "0.0021420557139072774`"}], ",", RowBox[{"-", "0.0021675906087585857`"}], ",", RowBox[{"-", "0.0021929107060380364`"}], ",", RowBox[{"-", "0.0022179887697554267`"}], ",", RowBox[{"-", "0.002242795736585791`"}], ",", RowBox[{"-", "0.002267298246784264`"}], ",", RowBox[{"-", "0.0022914580619430233`"}], ",", RowBox[{"-", "0.002315233857561161`"}], ",", RowBox[{"-", "0.002338533877480113`"}], ",", RowBox[{"-", "0.002361292395574005`"}], ",", RowBox[{"-", "0.002383453113793524`"}], ",", RowBox[{"-", "0.002404919842904002`"}], ",", RowBox[{"-", "0.0024255836256896826`"}], ",", RowBox[{"-", "0.0024452977416801955`"}], ",", RowBox[{"-", "0.0024638797553971706`"}], ",", RowBox[{"-", "0.002481010941270817`"}], ",", RowBox[{"-", "0.0024962320019338013`"}], ",", RowBox[{"-", "0.0025093484051296674`"}], ",", RowBox[{"-", "0.0025196432110418526`"}], ",", RowBox[{"-", "0.0025260338405736008`"}], ",", RowBox[{"-", "0.002526694268241765`"}], ",", RowBox[{"-", "0.0025180777380824845`"}], ",", RowBox[{"-", "0.0024913677402114767`"}], ",", RowBox[{"-", "0.002397144880959698`"}], ",", "3.1668172723041703`*^-6", ",", "1.1623710416005205`*^-6", ",", "1.1261052372440788`*^-6", ",", "1.095174905386021`*^-6", ",", "1.0675305555977955`*^-6", ",", "1.0445157720087464`*^-6", ",", "1.0232750508075493`*^-6", ",", "1.004317867666168`*^-6", ",", "9.87602670833983`*^-7", ",", "9.727845078934792`*^-7", ",", "9.592508050017962`*^-7", ",", "9.466682921375992`*^-7", ",", "9.358752729430491`*^-7", ",", "9.246233293541087`*^-7", ",", "9.153182095918827`*^-7", ",", "9.06887322969503`*^-7", ",", "8.986121247093635`*^-7", ",", "8.915263971334718`*^-7", ",", "8.840749348850254`*^-7", ",", "8.778304315620693`*^-7", ",", "8.716267689169851`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.001963314211083221`"}], ",", RowBox[{"-", "0.0019878679634925053`"}], ",", RowBox[{"-", "0.002012329628177`"}], ",", RowBox[{"-", "0.0020366852677804748`"}], ",", RowBox[{"-", "0.0020609314700391276`"}], ",", RowBox[{"-", "0.0020850563624389105`"}], ",", RowBox[{"-", "0.0021090489764707607`"}], ",", RowBox[{"-", "0.002132897254131568`"}], ",", RowBox[{"-", "0.0021565898455620063`"}], ",", RowBox[{"-", "0.0021801122011045476`"}], ",", RowBox[{"-", "0.0022034523062615247`"}], ",", RowBox[{"-", "0.002226588765221839`"}], ",", RowBox[{"-", "0.0022495109641873547`"}], ",", RowBox[{"-", "0.002272194603484306`"}], ",", RowBox[{"-", "0.002294564745258118`"}], ",", RowBox[{"-", "0.0023166357217815313`"}], ",", RowBox[{"-", "0.002338377046097531`"}], ",", RowBox[{"-", "0.002359756915400718`"}], ",", RowBox[{"-", "0.002380734204827595`"}], ",", RowBox[{"-", "0.002401264959306426`"}], ",", RowBox[{"-", "0.0024212990071208057`"}], ",", RowBox[{"-", "0.0024407787580415924`"}], ",", RowBox[{"-", "0.0024594189825385693`"}], ",", RowBox[{"-", "0.0024773479989888617`"}], ",", RowBox[{"-", "0.002494491019340704`"}], ",", RowBox[{"-", "0.002510690987604876`"}], ",", RowBox[{"-", "0.0025257636400532746`"}], ",", RowBox[{"-", "0.0025394777836511076`"}], ",", RowBox[{"-", "0.0025515275700096138`"}], ",", RowBox[{"-", "0.002561493997025238`"}], ",", RowBox[{"-", "0.0025687676682065452`"}], ",", RowBox[{"-", "0.0025724048896654667`"}], ",", RowBox[{"-", "0.002570804938019873`"}], ",", RowBox[{"-", "0.002560856972978108`"}], ",", RowBox[{"-", "0.0025348259804535214`"}], ",", RowBox[{"-", "0.0024390586295295266`"}], ",", "1.0191272428309347`*^-6", ",", "1.0021775248849577`*^-6", ",", "9.85959617778745`*^-7", ",", "9.72485362860597`*^-7", ",", "9.602690462864882`*^-7", ",", "9.486955410007629`*^-7", ",", "9.371345468273009`*^-7", ",", "9.270699541103617`*^-7", ",", "9.183290814647764`*^-7", ",", "9.10081082068756`*^-7", ",", "9.013746207584157`*^-7", ",", "8.951529584953679`*^-7", ",", "8.875660382097461`*^-7", ",", "8.812103444906934`*^-7", ",", "8.76055837160277`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.001915490205027303`"}], ",", RowBox[{"-", "0.0019364098902255565`"}], ",", RowBox[{"-", "0.0019572518348858446`"}], ",", RowBox[{"-", "0.001978012612845581`"}], ",", RowBox[{"-", "0.001998688580141645`"}], ",", RowBox[{"-", "0.0020192758672520315`"}], ",", RowBox[{"-", "0.002039770371088309`"}], ",", RowBox[{"-", "0.002060169657032679`"}], ",", RowBox[{"-", "0.002080467303771885`"}], ",", RowBox[{"-", "0.002100664560596155`"}], ",", RowBox[{"-", "0.002120754994928035`"}], ",", RowBox[{"-", "0.002140729533690565`"}], ",", RowBox[{"-", "0.0021605522217888473`"}], ",", RowBox[{"-", "0.00218024581388742`"}], ",", RowBox[{"-", "0.0021998039309547787`"}], ",", RowBox[{"-", "0.0022192175611903883`"}], ",", RowBox[{"-", "0.002238484334288391`"}], ",", RowBox[{"-", "0.0022575946698955296`"}], ",", RowBox[{"-", "0.002276538516512213`"}], ",", RowBox[{"-", "0.0022953129772697346`"}], ",", RowBox[{"-", "0.0023139049178160787`"}], ",", RowBox[{"-", "0.0023323086478889248`"}], ",", RowBox[{"-", "0.0023504425845370693`"}], ",", RowBox[{"-", "0.002368273619171496`"}], ",", RowBox[{"-", "0.002385921937516758`"}], ",", RowBox[{"-", "0.002403364534982591`"}], ",", RowBox[{"-", "0.0024205771634684126`"}], ",", RowBox[{"-", "0.0024375375172126512`"}], ",", RowBox[{"-", "0.0024542250522729403`"}], ",", RowBox[{"-", "0.0024706191018275606`"}], ",", RowBox[{"-", "0.002486697848977891`"}], ",", RowBox[{"-", "0.002502438576391236`"}], ",", RowBox[{"-", "0.002517816578941977`"}], ",", RowBox[{"-", "0.0025328046629447126`"}], ",", RowBox[{"-", "0.0025473727010537073`"}], ",", RowBox[{"-", "0.0025614866394966865`"}], ",", RowBox[{"-", "0.002575108040078121`"}], ",", RowBox[{"-", "0.0025881923449802002`"}], ",", RowBox[{"-", "0.002600687874025051`"}], ",", RowBox[{"-", "0.0026125332883474572`"}], ",", RowBox[{"-", "0.0026236555916529514`"}], ",", RowBox[{"-", "0.002633965471534598`"}], ",", RowBox[{"-", "0.002643352282365931`"}], ",", RowBox[{"-", "0.0026516750296748173`"}], ",", RowBox[{"-", "0.0026587495881207`"}], ",", RowBox[{"-", "0.0026643274232126535`"}], ",", RowBox[{"-", "0.002668056997255093`"}], ",", RowBox[{"-", "0.002669415047200384`"}], ",", RowBox[{"-", "0.0026675674692557758`"}], ",", RowBox[{"-", "0.002661074906277268`"}], ",", RowBox[{"-", "0.0026466228612258696`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145196643*^9, 3.7816499015474443`*^9, 3.78398011811097*^9, 3.80246969188762*^9, 3.833634919759354*^9, 3.834093254087006*^9, 3.834215854188992*^9, 3.834308355924128*^9, 3.834995334498942*^9, 3.837858913607354*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"991170a4-dbbb-41d2-997e-f3f2cc436cff"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1EMEN"], "Input", CellChangeTimes->{3.762611583660462*^9}, CellLabel-> "In[101]:=",ExpressionUUID->"254843d9-8ecf-4f9c-af10-db97436fce66"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0017015005147530378`", ",", "0.0017054525155140348`", ",", "0.0017091006245369268`", ",", "0.0017124370824143417`", ",", "0.0017154533294493116`", ",", "0.0017181385466100941`", ",", "0.0017204808493131944`", ",", "0.0017224659134500993`", ",", "0.0017240764943135646`", ",", "0.0017252923147174945`", ",", "0.0017260888142839755`", ",", "0.001726436450761159`", ",", "0.001726299523066513`", ",", "0.0017256351146247829`", ",", "0.001724389050048722`", ",", "0.0017224795649359997`", ",", "0.0017198124395855657`", ",", "0.0017162548218649224`", ",", "0.0017116186687941826`", ",", "0.0017056218472182505`", ",", "0.001697820780343219`", ",", "0.0016871783692468945`", ",", "0.0016725721535101028`", ",", "0.0016506400016230846`", ",", "0.0016065328314069922`", ",", "0.0010198717072820265`", ",", "0.000976353595701449`", ",", "0.0009692095009214952`", ",", "0.0009668661991243833`", ",", "0.0009656380943052665`", ",", "0.0009647933962190181`", ",", "0.0009641364500969747`", ",", "0.0009635928670544741`", ",", "0.0009630992967207695`", ",", "0.0009626490292420097`", ",", "0.0009622364418224861`", ",", "0.0009618569539961372`", ",", "0.0009615066072960676`", ",", "0.0009611821353437305`", ",", "0.0009608806970167639`", ",", "0.000960599819733189`", ",", "0.0009603375188489724`", ",", "0.0009600919168024787`", ",", "0.000959861400555914`", ",", "0.0009596446257238733`", ",", "0.0009594403811108705`", ",", "0.0009592475152065108`", ",", "0.0009590651545300448`", ",", "0.0009588923954267584`", ",", "0.0009587285273551954`", ",", "0.0009585727847716762`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0016969340057762612`", ",", "0.0017011503727816283`", ",", "0.0017051216135091788`", ",", "0.0017088445406089068`", ",", "0.0017123150548642575`", ",", "0.0017155280169518748`", ",", "0.0017184781172289725`", ",", "0.0017211590029119531`", ",", "0.0017235631629900724`", ",", "0.0017256821505380097`", ",", "0.001727506100927197`", ",", "0.0017290238229165544`", ",", "0.0017302227970813861`", ",", "0.0017310896009174034`", ",", "0.0017316045583014128`", ",", "0.0017317420079727397`", ",", "0.001731476953272706`", ",", "0.0017307758370763223`", ",", "0.001729600812473623`", ",", "0.0017278994798436763`", ",", "0.001725604297104411`", ",", "0.0017225442869591256`", ",", "0.001718419756145572`", ",", "0.00171330963159529`", ",", "0.0017069328437391367`", ",", "0.0016988757280573244`", ",", "0.0016884521132562581`", ",", "0.0016743578782614393`", ",", "0.0016534250786644409`", ",", "0.0016082790590329597`", ",", "0.0009663774208389247`", ",", "0.0009655081968040597`", ",", "0.0009648618843850557`", ",", "0.0009642785016833904`", ",", "0.0009637491197154431`", ",", "0.00096326658782455`", ",", "0.0009628247558772466`", ",", "0.0009624186495124805`", ",", "0.0009620440501367661`", ",", "0.0009616973645955012`", ",", "0.0009613755132916433`", ",", "0.000961075862631843`", ",", "0.0009607961845240602`", ",", "0.0009605344257746734`", ",", "0.0009602889686652568`", ",", "0.0009600582701844852`", ",", "0.0009598409849798295`", ",", "0.0009596359841136011`", ",", "0.0009594421809018992`", ",", "0.0009592587091175769`", ",", "0.000959084709437945`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0016913296707588735`", ",", "0.0016957063130497237`", ",", "0.001699883913066661`", ",", "0.0017038614717920517`", ",", "0.0017076369497747474`", ",", "0.0017112085568267862`", ",", "0.00171457406816638`", ",", "0.0017177309244674438`", ",", "0.0017206761023759814`", ",", "0.0017234063403041159`", ",", "0.0017259179328303052`", ",", "0.0017282071013532186`", ",", "0.0017302700104309854`", ",", "0.0017321030830988646`", ",", "0.0017336940697499645`", ",", "0.001735038408476584`", ",", "0.0017361279590973177`", ",", "0.0017369545409524254`", ",", "0.001737507270804987`", ",", "0.0017377744636209499`", ",", "0.0017377428870695524`", ",", "0.001737397579131811`", ",", "0.0017364731535969638`", ",", "0.0017351179132446236`", ",", "0.0017333413859338571`", ",", "0.0017310802533940274`", ",", "0.0017282627820602889`", ",", "0.0017248001554247684`", ",", "0.0017205707414943905`", ",", "0.0017154140655692408`", ",", "0.0017090949607912196`", ",", "0.0017012549112217787`", ",", "0.0016912924456789057`", ",", "0.0016780596687277984`", ",", "0.0016587573162820707`", ",", "0.0016141030705273843`", ",", "0.000964024819692342`", ",", "0.0009635441118803043`", ",", "0.0009631028484264441`", ",", "0.0009626964037619382`", ",", "0.0009623207068045017`", ",", "0.0009619723245507937`", ",", "0.0009616483125550546`", ",", "0.0009613462139618672`", ",", "0.0009610638368241385`", ",", "0.0009607992480093076`", ",", "0.0009605507516658011`", ",", "0.0009603169914364034`", ",", "0.0009600965440472327`", ",", "0.0009598883582481281`", ",", "0.0009596914171531904`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.001677171749693737`", ",", "0.0016816205613124284`", ",", "0.0016859364334039259`", ",", "0.0016901197060152744`", ",", "0.0016941706757744894`", ",", "0.0016980895989839747`", ",", "0.0017018766959570786`", ",", "0.0017055321763862511`", ",", "0.0017090562460114053`", ",", "0.0017124493587011812`", ",", "0.0017157120768317657`", ",", "0.0017188448281863574`", ",", "0.001721844093288542`", ",", "0.0017247119975603597`", ",", "0.0017274485865273002`", ",", "0.0017300533142296116`", ",", "0.0017325275214384412`", ",", "0.0017348710589623387`", ",", "0.001737083211776012`", ",", "0.0017391672019635126`", ",", "0.0017411213218129192`", ",", "0.001742948652194647`", ",", "0.0017445773412486042`", ",", "0.0017459483903923385`", ",", "0.0017471841284967538`", ",", "0.001748280090841926`", ",", "0.0017492281429494242`", ",", "0.0017500199926377617`", ",", "0.0017506492987143796`", ",", "0.001751110475898458`", ",", "0.0017513947008644141`", ",", "0.0017514954632974703`", ",", "0.0017514036859936537`", ",", "0.001751110740504757`", ",", "0.001750605230449342`", ",", "0.001749875434650024`", ",", "0.001748905843325716`", ",", "0.0017476802399789852`", ",", "0.0017461782127643401`", ",", "0.0017443767981967142`", ",", "0.0017422461291991807`", ",", "0.0017397509827016392`", ",", "0.00173684644816506`", ",", "0.001733475868396864`", ",", "0.0017295645199543789`", ",", "0.001725011336924897`", ",", "0.0017196742730786947`", ",", "0.0017133424974252066`", ",", "0.001705682896178222`", ",", "0.001696128300177183`", ",", "0.001683400537986586`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145290655*^9, 3.781649901635262*^9, 3.783980118214086*^9, 3.802469691975515*^9, 3.833634919798023*^9, 3.8340932541283503`*^9, 3.8342158542024117`*^9, 3.834308355951336*^9, 3.834995334525078*^9, 3.837858913637987*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"e322da74-9542-4932-ba9c-4450227992d3"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PRN"], "Input", CellChangeTimes->{3.7626115836606197`*^9}, CellLabel-> "In[102]:=",ExpressionUUID->"4db55cb7-b68d-4eb9-b53a-f7573dc80270"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.002532125796444716`"}], ",", RowBox[{"-", "0.002609847229432261`"}], ",", RowBox[{"-", "0.00269102268733798`"}], ",", RowBox[{"-", "0.002775997050446414`"}], ",", RowBox[{"-", "0.002865154945382637`"}], ",", RowBox[{"-", "0.0029589562882875553`"}], ",", RowBox[{"-", "0.00305791735665925`"}], ",", RowBox[{"-", "0.0031626470372987173`"}], ",", RowBox[{"-", "0.0032738674073558`"}], ",", RowBox[{"-", "0.00339242820089645`"}], ",", RowBox[{"-", "0.0035193518753297093`"}], ",", RowBox[{"-", "0.003655872404670031`"}], ",", RowBox[{"-", "0.003803494489765886`"}], ",", RowBox[{"-", "0.003964089385407256`"}], ",", RowBox[{"-", "0.004139907806233654`"}], ",", RowBox[{"-", "0.004333877426937365`"}], ",", RowBox[{"-", "0.0045500118860035445`"}], ",", RowBox[{"-", "0.004793560075889195`"}], ",", RowBox[{"-", "0.005071831739810274`"}], ",", RowBox[{"-", "0.005395489094656739`"}], ",", RowBox[{"-", "0.0057810067633890325`"}], ",", RowBox[{"-", "0.006260069499338855`"}], ",", RowBox[{"-", "0.006882174523923524`"}], ",", RowBox[{"-", "0.007769434730549876`"}], ",", RowBox[{"-", "0.00944056737225582`"}], ",", RowBox[{"-", "0.0039040644626325977`"}], ",", RowBox[{"-", "0.0005920737405034253`"}], ",", RowBox[{"-", "0.0001514477933562302`"}], ",", RowBox[{"-", "0.00005146326992782013`"}], ",", RowBox[{"-", "0.00002019888260826856`"}], ",", RowBox[{"-", "8.653313281077891`*^-6"}], ",", RowBox[{"-", "4.693386016966517`*^-6"}], ",", RowBox[{"-", "4.132777159768302`*^-6"}], ",", RowBox[{"-", "3.6749092894812776`*^-6"}], ",", RowBox[{"-", "3.2966541329756`*^-6"}], ",", RowBox[{"-", "2.9774015405791534`*^-6"}], ",", RowBox[{"-", "2.7076962053107578`*^-6"}], ",", RowBox[{"-", "2.4751834684356165`*^-6"}], ",", RowBox[{"-", "2.2748276935197803`*^-6"}], ",", RowBox[{"-", "2.1001239648704057`*^-6"}], ",", RowBox[{"-", "1.9443855783472966`*^-6"}], ",", RowBox[{"-", "1.8093553130210632`*^-6"}], ",", RowBox[{"-", "1.68930636682647`*^-6"}], ",", RowBox[{"-", "1.5807321160299723`*^-6"}], ",", RowBox[{"-", "1.4838305270994378`*^-6"}], ",", RowBox[{"-", "1.3975261945515003`*^-6"}], ",", RowBox[{"-", "1.3174743000428506`*^-6"}], ",", RowBox[{"-", "1.2462374119010375`*^-6"}], ",", RowBox[{"-", "1.1807618098912697`*^-6"}], ",", RowBox[{"-", "1.1223596893356269`*^-6"}], ",", RowBox[{"-", "1.0670432855037113`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.002434059878489565`"}], ",", RowBox[{"-", "0.0025004778340103383`"}], ",", RowBox[{"-", "0.0025692492302256636`"}], ",", RowBox[{"-", "0.002640550409910917`"}], ",", RowBox[{"-", "0.0027145876448581925`"}], ",", RowBox[{"-", "0.0027916014432981017`"}], ",", RowBox[{"-", "0.0028718476185404913`"}], ",", RowBox[{"-", "0.0029556201885740747`"}], ",", RowBox[{"-", "0.0030432576451192212`"}], ",", RowBox[{"-", "0.0031351404083150157`"}], ",", RowBox[{"-", "0.0032317091548477324`"}], ",", RowBox[{"-", "0.0033334703980361924`"}], ",", RowBox[{"-", "0.00344100884057332`"}], ",", RowBox[{"-", "0.0035550062105027987`"}], ",", RowBox[{"-", "0.003676177135174697`"}], ",", RowBox[{"-", "0.0038054844801305625`"}], ",", RowBox[{"-", "0.003944104436464388`"}], ",", RowBox[{"-", "0.004093410700730841`"}], ",", RowBox[{"-", "0.004255084130177333`"}], ",", RowBox[{"-", "0.004431221346176956`"}], ",", RowBox[{"-", "0.004624495243971584`"}], ",", RowBox[{"-", "0.004838965440372237`"}], ",", RowBox[{"-", "0.005081046845210227`"}], ",", RowBox[{"-", "0.005355730269800643`"}], ",", RowBox[{"-", "0.005672728597640869`"}], ",", RowBox[{"-", "0.006046865127797479`"}], ",", RowBox[{"-", "0.006502813201865784`"}], ",", RowBox[{"-", "0.007087223754449085`"}], ",", RowBox[{"-", "0.007911639590281107`"}], ",", RowBox[{"-", "0.009564761342823025`"}], ",", RowBox[{"-", "0.000014759857453390285`"}], ",", RowBox[{"-", "4.876606146863651`*^-6"}], ",", RowBox[{"-", "4.309879640745669`*^-6"}], ",", RowBox[{"-", "3.844551167441151`*^-6"}], ",", RowBox[{"-", "3.453888367796161`*^-6"}], ",", RowBox[{"-", "3.128069897284915`*^-6"}], ",", RowBox[{"-", "2.8474981139417275`*^-6"}], ",", RowBox[{"-", "2.6059689845976176`*^-6"}], ",", RowBox[{"-", "2.3971101048408544`*^-6"}], ",", RowBox[{"-", "2.215094241995462`*^-6"}], ",", RowBox[{"-", "2.054642112307059`*^-6"}], ",", RowBox[{"-", "1.912045967233283`*^-6"}], ",", RowBox[{"-", "1.7865046655797213`*^-6"}], ",", RowBox[{"-", "1.6716793124191567`*^-6"}], ",", RowBox[{"-", "1.5704265085635779`*^-6"}], ",", RowBox[{"-", "1.4792923751836312`*^-6"}], ",", RowBox[{"-", "1.3959641314499806`*^-6"}], ",", RowBox[{"-", "1.3211082922842091`*^-6"}], ",", RowBox[{"-", "1.251564408348114`*^-6"}], ",", RowBox[{"-", "1.1889280780236688`*^-6"}], ",", RowBox[{"-", "1.1309447447236644`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0023432553388095753`"}], ",", RowBox[{"-", "0.0024003385303742845`"}], ",", RowBox[{"-", "0.0024590307697115827`"}], ",", RowBox[{"-", "0.0025194216169611094`"}], ",", RowBox[{"-", "0.002581633274611789`"}], ",", RowBox[{"-", "0.0026457828549213084`"}], ",", RowBox[{"-", "0.002712003132794208`"}], ",", RowBox[{"-", "0.0027804401782291666`"}], ",", RowBox[{"-", "0.002851259345061562`"}], ",", RowBox[{"-", "0.0029246389114033`"}], ",", RowBox[{"-", "0.0030007849996583624`"}], ",", RowBox[{"-", "0.0030799084010973555`"}], ",", RowBox[{"-", "0.003162269727164649`"}], ",", RowBox[{"-", "0.0032481302745342947`"}], ",", RowBox[{"-", "0.0033377153026047063`"}], ",", RowBox[{"-", "0.003431452608652291`"}], ",", RowBox[{"-", "0.0035297395186555426`"}], ",", RowBox[{"-", "0.003633029025215051`"}], ",", RowBox[{"-", "0.0037418365329696234`"}], ",", RowBox[{"-", "0.003856758553175854`"}], ",", RowBox[{"-", "0.0039784859589825075`"}], ",", RowBox[{"-", "0.00410782363457579`"}], ",", RowBox[{"-", "0.0042469718721829565`"}], ",", RowBox[{"-", "0.004396580581512143`"}], ",", RowBox[{"-", "0.004557909068822515`"}], ",", RowBox[{"-", "0.004732893572595436`"}], ",", RowBox[{"-", "0.0049239657237343405`"}], ",", RowBox[{"-", "0.005134261505062554`"}], ",", RowBox[{"-", "0.005367991312229734`"}], ",", RowBox[{"-", "0.0056308961576803755`"}], ",", RowBox[{"-", "0.00593126554415032`"}], ",", RowBox[{"-", "0.006281740320412581`"}], ",", RowBox[{"-", "0.006703359942043307`"}], ",", RowBox[{"-", "0.00723601403945455`"}], ",", RowBox[{"-", "0.007975771975365094`"}], ",", RowBox[{"-", "0.009560110593276334`"}], ",", RowBox[{"-", "3.0334856430119935`*^-6"}], ",", RowBox[{"-", "2.7790020942375353`*^-6"}], ",", RowBox[{"-", "2.555509388389117`*^-6"}], ",", RowBox[{"-", "2.363152152057071`*^-6"}], ",", RowBox[{"-", "2.193786415484329`*^-6"}], ",", RowBox[{"-", "2.0427979890964952`*^-6"}], ",", RowBox[{"-", "1.9064077306880745`*^-6"}], ",", RowBox[{"-", "1.7856055254642604`*^-6"}], ",", RowBox[{"-", "1.678058225797537`*^-6"}], ",", RowBox[{"-", "1.5806663333015223`*^-6"}], ",", RowBox[{"-", "1.4906580028302124`*^-6"}], ",", RowBox[{"-", "1.4118796814637305`*^-6"}], ",", RowBox[{"-", "1.3372017358028514`*^-6"}], ",", RowBox[{"-", "1.269995214914103`*^-6"}], ",", RowBox[{"-", "1.2094129440550607`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0021784329399219893`"}], ",", RowBox[{"-", "0.002221021952411303`"}], ",", RowBox[{"-", "0.002264360577395131`"}], ",", RowBox[{"-", "0.0023084785845646954`"}], ",", RowBox[{"-", "0.00235340737709565`"}], ",", RowBox[{"-", "0.002399180102823186`"}], ",", RowBox[{"-", "0.0024458317712126847`"}], ",", RowBox[{"-", "0.002493402635735013`"}], ",", RowBox[{"-", "0.002541928566794554`"}], ",", RowBox[{"-", "0.002591460747759858`"}], ",", RowBox[{"-", "0.0026420394466739`"}], ",", RowBox[{"-", "0.00269370348099619`"}], ",", RowBox[{"-", "0.002746459331381128`"}], ",", RowBox[{"-", "0.002800404054287293`"}], ",", RowBox[{"-", "0.0028555933763427343`"}], ",", RowBox[{"-", "0.0029120844825098685`"}], ",", RowBox[{"-", "0.002969944535051781`"}], ",", RowBox[{"-", "0.0030292375348926065`"}], ",", RowBox[{"-", "0.0030900341227653645`"}], ",", RowBox[{"-", "0.0031524087110977334`"}], ",", RowBox[{"-", "0.003216441820493434`"}], ",", RowBox[{"-", "0.003282215455229985`"}], ",", RowBox[{"-", "0.0033499988028667512`"}], ",", RowBox[{"-", "0.003420137448535992`"}], ",", RowBox[{"-", "0.0034924789926232052`"}], ",", RowBox[{"-", "0.0035671471210937736`"}], ",", RowBox[{"-", "0.0036442944951005883`"}], ",", RowBox[{"-", "0.0037240955781545912`"}], ",", RowBox[{"-", "0.003806737868330577`"}], ",", RowBox[{"-", "0.003892425842836918`"}], ",", RowBox[{"-", "0.003981401943496`"}], ",", RowBox[{"-", "0.0040739230457325975`"}], ",", RowBox[{"-", "0.004170287226640439`"}], ",", RowBox[{"-", "0.0042708234620855105`"}], ",", RowBox[{"-", "0.004375913826350685`"}], ",", RowBox[{"-", "0.004485988873665332`"}], ",", RowBox[{"-", "0.0046015539926678095`"}], ",", RowBox[{"-", "0.004723187703775682`"}], ",", RowBox[{"-", "0.004851574177876889`"}], ",", RowBox[{"-", "0.004987522040959167`"}], ",", RowBox[{"-", "0.0051320087033225785`"}], ",", RowBox[{"-", "0.005286225103387866`"}], ",", RowBox[{"-", "0.005451650360812046`"}], ",", RowBox[{"-", "0.0056301668162055795`"}], ",", RowBox[{"-", "0.005824228158866218`"}], ",", RowBox[{"-", "0.0060371297499627035`"}], ",", RowBox[{"-", "0.006273514037908913`"}], ",", RowBox[{"-", "0.006540234974540321`"}], ",", RowBox[{"-", "0.006848077134106137`"}], ",", RowBox[{"-", "0.00721517256304211`"}], ",", RowBox[{"-", "0.007684236610484355`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145382276*^9, 3.781649901724791*^9, 3.783980118318054*^9, 3.802469692066921*^9, 3.833634919814577*^9, 3.8340932541429996`*^9, 3.834215854253049*^9, 3.834308355965362*^9, 3.834995334539847*^9, 3.837858913655547*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"0869e5ce-1dad-4068-a115-32bb2a7536ad"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1MN"], "Input", CellChangeTimes->{3.762611583660777*^9}, CellLabel-> "In[103]:=",ExpressionUUID->"ee61c11b-3a4d-4e79-89f9-523105c7ac1b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0032982077566212076`", ",", "0.0033491759827139794`", ",", "0.003400953438560895`", ",", "0.0034535922009063724`", ",", "0.0035071425175878124`", ",", "0.003561671677643103`", ",", "0.003617243594187342`", ",", "0.0036739345982492256`", ",", "0.0037318352996250598`", ",", "0.0037910454737319337`", ",", "0.003851684070015791`", ",", "0.003913888834153237`", ",", "0.0039778201758396406`", ",", "0.004043674981952151`", ",", "0.004111634109631751`", ",", "0.004181938083488234`", ",", "0.004254995307541368`", ",", "0.004331245033522658`", ",", "0.0044112711399518605`", ",", "0.004495885396309818`", ",", "0.004586266955345083`", ",", "0.004685130852109084`", ",", "0.00479456406041576`", ",", "0.004919855591722543`", ",", "0.005076604511247101`", ",", "0.0006695971468616202`", ",", "0.00013201238503815211`", ",", "0.00007975754632865925`", ",", "0.00006579921457968492`", ",", "0.00005931333961514836`", ",", "0.00005516220282437143`", ",", "0.00005206783199750446`", ",", "0.00004956928669029451`", ",", "0.000047301821574643305`", ",", "0.00004523458912517714`", ",", "0.00004334169457287634`", ",", "0.00004160214009631461`", ",", "0.000039997686626363246`", ",", "0.00003851333054287172`", ",", "0.00003713597099481178`", ",", "0.000035854188106164094`", ",", "0.00003465884593714793`", ",", "0.000033541236578436416`", ",", "0.000032493886303614676`", ",", "0.000031510559987054125`", ",", "0.0000305856235647521`", ",", "0.000029713730857524462`", ",", "0.000028890793725124203`", ",", "0.000028112608973707403`", ",", "0.000027375835480367074`", ",", "0.000026676933203929822`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.003218948972410051`", ",", "0.003264767504785499`", ",", "0.0033111883950073077`", ",", "0.003358234957746012`", ",", "0.0034059395824234287`", ",", "0.0034543442621215387`", ",", "0.003503484421349105`", ",", "0.0035534026627542263`", ",", "0.003604149371182863`", ",", "0.00365577671625219`", ",", "0.0037083459856868126`", ",", "0.003761924916031172`", ",", "0.0038165881447430198`", ",", "0.0038724197812777415`", ",", "0.003929464358223207`", ",", "0.0039878422995087235`", ",", "0.004047705141550106`", ",", "0.004109200269572981`", ",", "0.004172500514326315`", ",", "0.004237814094609389`", ",", "0.004305401730745245`", ",", "0.004375826698621334`", ",", "0.004450149991194165`", ",", "0.004528267240686191`", ",", "0.004611011603434148`", ",", "0.004699532510257088`", ",", "0.004795556572335342`", ",", "0.004901937832663692`", ",", "0.005024392854960543`", ",", "0.005186191911389744`", ",", "0.00006256466678114774`", ",", "0.0000583399621280835`", ",", "0.00005537542211445047`", ",", "0.000052699078375091375`", ",", "0.000050270327877831485`", ",", "0.00004805685585908216`", ",", "0.00004603057566087375`", ",", "0.00004416892475141046`", ",", "0.00004245269615286594`", ",", "0.00004086548600104947`", ",", "0.00003939320317414524`", ",", "0.00003802378483483469`", ",", "0.000036747023080170214`", ",", "0.00003555344947316346`", ",", "0.00003443564066758309`", ",", "0.00003338646219964655`", ",", "0.000032399693878881124`", ",", "0.00003147010711115916`", ",", "0.00003059266688111887`", ",", "0.000029763340059133555`", ",", "0.000028978136994263514`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0031410313375339156`", ",", "0.0031821381235892583`", ",", "0.0032236837867271905`", ",", "0.003265677423196904`", ",", "0.0033081475289480824`", ",", "0.0033511118089394154`", ",", "0.003394592492576667`", ",", "0.0034386134723148874`", ",", "0.003483203478755521`", ",", "0.003528390174650685`", ",", "0.0035742091206318535`", ",", "0.003620686189720015`", ",", "0.0036678659375341304`", ",", "0.0037157765649010717`", ",", "0.003764411088551631`", ",", "0.0038138649441856074`", ",", "0.0038641896076986137`", ",", "0.003915441315580208`", ",", "0.003967680684526803`", ",", "0.00402097593229194`", ",", "0.004075402192333166`", ",", "0.004131042035735754`", ",", "0.004188709060316428`", ",", "0.004248151804991794`", ",", "0.00430939683463696`", ",", "0.004372684641392856`", ",", "0.00443829415731337`", ",", "0.00450656417471427`", ",", "0.004577945923295395`", ",", "0.004653000853721875`", ",", "0.004732505610116883`", ",", "0.004817553918794896`", ",", "0.0049098235741699995`", ",", "0.005012169112317121`", ",", "0.005130593465566227`", ",", "0.005299366125018388`", ",", "0.000051521542627849565`", ",", "0.00004931870008211339`", ",", "0.000047296589398415005`", ",", "0.00004543442526286823`", ",", "0.00004371370419328313`", ",", "0.00004211883601240574`", ",", "0.00004063642565566288`", ",", "0.000039255319338449106`", ",", "0.000037965494777932106`", ",", "0.00003675808796937442`", ",", "0.00003562531515918007`", ",", "0.000034560963995690884`", ",", "0.00003355845875885398`", ",", "0.00003261295884929196`", ",", "0.000031719757533046206`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.002989077649152019`", ",", "0.0030219065374445784`", ",", "0.0030549529669528378`", ",", "0.0030882232643354417`", ",", "0.0031217239483353407`", ",", "0.003155461731961252`", ",", "0.0031894435206018465`", ",", "0.003223678844247502`", ",", "0.0032581723998739956`", ",", "0.0032929384302209613`", ",", "0.0033279811039840833`", ",", "0.0033633021981162485`", ",", "0.0033988845778534526`", ",", "0.0034347659719836865`", ",", "0.003470954899908334`", ",", "0.0035074594101547622`", ",", "0.0035442895062001846`", ",", "0.0035814523412742794`", ",", "0.003618957446846216`", ",", "0.0036568089910214993`", ",", "0.0036950180294775484`", ",", "0.0037335873074271736`", ",", "0.0037727200997786773`", ",", "0.0038126378182118514`", ",", "0.0038530409335957557`", ",", "0.003893947653664259`", ",", "0.003935390511215576`", ",", "0.0039774073851281825`", ",", "0.004020032828223629`", ",", "0.004063300431362838`", ",", "0.004107259544728587`", ",", "0.004151951422604231`", ",", "0.004197430013280576`", ",", "0.004243747805309201`", ",", "0.004290971176392335`", ",", "0.004339167797892977`", ",", "0.004388424542833548`", ",", "0.004438830131020615`", ",", "0.004490493396597095`", ",", "0.004543532040764709`", ",", "0.00459809666113883`", ",", "0.004654357555624973`", ",", "0.004712526444326073`", ",", "0.00477285969754844`", ",", "0.004835684727868271`", ",", "0.004901429333300044`", ",", "0.004970669470246535`", ",", "0.005044227649905125`", ",", "0.0051233492293340874`", ",", "0.005210060740099441`", ",", "0.005308532094643758`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145505177*^9, 3.781649901815542*^9, 3.78398011841887*^9, 3.80246969215622*^9, 3.833634919853734*^9, 3.8340932541835537`*^9, 3.8342158542671537`*^9, 3.8343083559933243`*^9, 3.834995334565506*^9, 3.837858913685042*^9}, CellLabel-> "Out[103]=",ExpressionUUID->"5002bf85-44d6-44a5-a3df-5d68016fa170"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PRPL"], "Input", CellChangeTimes->{3.762611583660933*^9}, CellLabel-> "In[104]:=",ExpressionUUID->"56e9ba11-7e58-424c-ae04-3ef734500986"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0012899964099842703`"}], ",", RowBox[{"-", "0.0013310932458768798`"}], ",", RowBox[{"-", "0.0013732640114791847`"}], ",", RowBox[{"-", "0.0014165845892308015`"}], ",", RowBox[{"-", "0.0014611392385722871`"}], ",", RowBox[{"-", "0.0015070287460921747`"}], ",", RowBox[{"-", "0.001554365838498585`"}], ",", RowBox[{"-", "0.0016032833995723514`"}], ",", RowBox[{"-", "0.0016539389837605598`"}], ",", RowBox[{"-", "0.001706517843972001`"}], ",", RowBox[{"-", "0.0017612430413146696`"}], ",", RowBox[{"-", "0.001818384059564776`"}], ",", RowBox[{"-", "0.0018782701969909596`"}], ",", RowBox[{"-", "0.0019413143962886958`"}], ",", RowBox[{"-", "0.0020080056900624865`"}], ",", RowBox[{"-", "0.0020789601951260034`"}], ",", RowBox[{"-", "0.002155061937288469`"}], ",", RowBox[{"-", "0.002237441792591943`"}], ",", RowBox[{"-", "0.0023276646883579957`"}], ",", RowBox[{"-", "0.0024279879683286112`"}], ",", RowBox[{"-", "0.002541861199219189`"}], ",", RowBox[{"-", "0.002675449410449865`"}], ",", RowBox[{"-", "0.0028392868464631182`"}], ",", RowBox[{"-", "0.003057874951869148`"}], ",", RowBox[{"-", "0.0034319213280640665`"}], ",", RowBox[{"-", "0.0008221207678134682`"}], ",", RowBox[{"-", "0.000045088752022004984`"}], ",", RowBox[{"-", "3.839092473007389`*^-6"}], ",", RowBox[{"-", "4.993922323989411`*^-7"}], ",", RowBox[{"-", "8.334181179107272`*^-8"}], ",", RowBox[{"-", "1.634053114727099`*^-8"}], ",", RowBox[{"-", "5.100120418804824`*^-9"}], ",", RowBox[{"-", "4.178415814371194`*^-9"}], ",", RowBox[{"-", "3.486030866121561`*^-9"}], ",", RowBox[{"-", "2.956511434458251`*^-9"}], ",", RowBox[{"-", "2.539033696509271`*^-9"}], ",", RowBox[{"-", "2.2089559066212244`*^-9"}], ",", RowBox[{"-", "1.9403800875572447`*^-9"}], ",", RowBox[{"-", "1.7218381534613416`*^-9"}], ",", RowBox[{"-", "1.5409459746440056`*^-9"}], ",", RowBox[{"-", "1.3863656963761043`*^-9"}], ",", RowBox[{"-", "1.2595441564655535`*^-9"}], ",", RowBox[{"-", "1.1515832501603867`*^-9"}], ",", RowBox[{"-", "1.0572691968807157`*^-9"}], ",", RowBox[{"-", "9.766011809042193`*^-10"}], ",", RowBox[{"-", "9.079167740436784`*^-10"}], ",", RowBox[{"-", "8.454620539437303`*^-10"}], ",", RowBox[{"-", "7.925055536453548`*^-10"}], ",", RowBox[{"-", "7.451206755502102`*^-10"}], ",", RowBox[{"-", "7.049784607303946`*^-10"}], ",", RowBox[{"-", "6.671063503163919`*^-10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.001287533308664511`"}], ",", RowBox[{"-", "0.0013254825564921677`"}], ",", RowBox[{"-", "0.0013642584634618662`"}], ",", RowBox[{"-", "0.0014039032130342827`"}], ",", RowBox[{"-", "0.0014444663050983478`"}], ",", RowBox[{"-", "0.0014860056114659945`"}], ",", RowBox[{"-", "0.0015285824885014065`"}], ",", RowBox[{"-", "0.0015722676054461954`"}], ",", RowBox[{"-", "0.0016171425560222163`"}], ",", RowBox[{"-", "0.001663299152705175`"}], ",", RowBox[{"-", "0.0017108442564462076`"}], ",", RowBox[{"-", "0.001759901396120818`"}], ",", RowBox[{"-", "0.0018106144038956273`"}], ",", RowBox[{"-", "0.001863153916172311`"}], ",", RowBox[{"-", "0.0019176861427381842`"}], ",", RowBox[{"-", "0.0019744418556873894`"}], ",", RowBox[{"-", "0.0020337164714924194`"}], ",", RowBox[{"-", "0.0020958461168576192`"}], ",", RowBox[{"-", "0.002161249323527986`"}], ",", RowBox[{"-", "0.002230439275315438`"}], ",", RowBox[{"-", "0.0023040697483206612`"}], ",", RowBox[{"-", "0.0023830006991574434`"}], ",", RowBox[{"-", "0.0024685155149111113`"}], ",", RowBox[{"-", "0.002562207923999013`"}], ",", RowBox[{"-", "0.0026663504443114744`"}], ",", RowBox[{"-", "0.0027844244123717554`"}], ",", RowBox[{"-", "0.002922190344918682`"}], ",", RowBox[{"-", "0.0030904346805007837`"}], ",", RowBox[{"-", "0.0033145675394834623`"}], ",", RowBox[{"-", "0.003725036920015398`"}], ",", RowBox[{"-", "4.348633259401961`*^-8"}], ",", RowBox[{"-", "5.072002395124817`*^-9"}], ",", RowBox[{"-", "4.1981436565464985`*^-9"}], ",", RowBox[{"-", "3.5338086105327478`*^-9"}], ",", RowBox[{"-", "3.012600039752507`*^-9"}], ",", RowBox[{"-", "2.6066746849394815`*^-9"}], ",", RowBox[{"-", "2.2760688188944815`*^-9"}], ",", RowBox[{"-", "2.006788071538283`*^-9"}], ",", RowBox[{"-", "1.785989721541284`*^-9"}], ",", RowBox[{"-", "1.6029139062945949`*^-9"}], ",", RowBox[{"-", "1.4485852911556166`*^-9"}], ",", RowBox[{"-", "1.3169550486675817`*^-9"}], ",", RowBox[{"-", "1.2063366817673883`*^-9"}], ",", RowBox[{"-", "1.107797726692373`*^-9"}], ",", RowBox[{"-", "1.0249632175443146`*^-9"}], ",", RowBox[{"-", "9.531024871217606`*^-10"}], ",", RowBox[{"-", "8.891823266990202`*^-10"}], ",", RowBox[{"-", "8.340454775687931`*^-10"}], ",", RowBox[{"-", "7.837142109220404`*^-10"}], ",", RowBox[{"-", "7.402381771468378`*^-10"}], ",", RowBox[{"-", "7.0085242405023`*^-10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.001283543681913503`"}], ",", RowBox[{"-", "0.0013184942274694841`"}], ",", RowBox[{"-", "0.0013540776246765557`"}], ",", RowBox[{"-", "0.0013903166011538237`"}], ",", RowBox[{"-", "0.0014272428808133689`"}], ",", RowBox[{"-", "0.001464886587663708`"}], ",", RowBox[{"-", "0.0015032820706634767`"}], ",", RowBox[{"-", "0.0015424672411405438`"}], ",", RowBox[{"-", "0.001582485359858124`"}], ",", RowBox[{"-", "0.0016233832110838786`"}], ",", RowBox[{"-", "0.0016652158305152168`"}], ",", RowBox[{"-", "0.0017080391501325745`"}], ",", RowBox[{"-", "0.00175192561891159`"}], ",", RowBox[{"-", "0.0017969478102597414`"}], ",", RowBox[{"-", "0.0018431482161755663`"}], ",", RowBox[{"-", "0.0018906536199298635`"}], ",", RowBox[{"-", "0.001939572272896685`"}], ",", RowBox[{"-", "0.001990030569677767`"}], ",", RowBox[{"-", "0.0020421701052140556`"}], ",", RowBox[{"-", "0.0020961576421361164`"}], ",", RowBox[{"-", "0.0021521880570830737`"}], ",", RowBox[{"-", "0.002210490540233319`"}], ",", RowBox[{"-", "0.002271262381049903`"}], ",", RowBox[{"-", "0.0023349900959494935`"}], ",", RowBox[{"-", "0.002402092137931751`"}], ",", RowBox[{"-", "0.002473067260817044`"}], ",", RowBox[{"-", "0.0025485586255363096`"}], ",", RowBox[{"-", "0.0026294037948375176`"}], ",", RowBox[{"-", "0.002716720040058407`"}], ",", RowBox[{"-", "0.002812040135096179`"}], ",", RowBox[{"-", "0.0029175624696903615`"}], ",", RowBox[{"-", "0.003036627030618355`"}], ",", RowBox[{"-", "0.0031747531914115557`"}], ",", RowBox[{"-", "0.0033423220486835034`"}], ",", RowBox[{"-", "0.003564056267850689`"}], ",", RowBox[{"-", "0.004000377517415908`"}], ",", RowBox[{"-", "2.3700963897306768`*^-9"}], ",", RowBox[{"-", "2.097872994462323`*^-9"}], ",", RowBox[{"-", "1.8689523145233574`*^-9"}], ",", RowBox[{"-", "1.6820721573039689`*^-9"}], ",", RowBox[{"-", "1.5243808204489072`*^-9"}], ",", RowBox[{"-", "1.3888844325430021`*^-9"}], ",", RowBox[{"-", "1.2701632584473478`*^-9"}], ",", RowBox[{"-", "1.1693425281634224`*^-9"}], ",", RowBox[{"-", "1.0831345239955918`*^-9"}], ",", RowBox[{"-", "1.0074482938159177`*^-9"}], ",", RowBox[{"-", "9.387864495818188`*^-10"}], ",", RowBox[{"-", "8.82023466356275`*^-10"}], ",", RowBox[{"-", "8.282727502010604`*^-10"}], ",", RowBox[{"-", "7.818182229992523`*^-10"}], ",", RowBox[{"-", "7.416646142764921`*^-10"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.00127124225110882`"}], ",", RowBox[{"-", "0.0013005998680770264`"}], ",", RowBox[{"-", "0.0013303198476010483`"}], ",", RowBox[{"-", "0.0013604102677436808`"}], ",", RowBox[{"-", "0.0013908797250946764`"}], ",", RowBox[{"-", "0.001421737382182743`"}], ",", RowBox[{"-", "0.001452993020534768`"}], ",", RowBox[{"-", "0.0014846583868917546`"}], ",", RowBox[{"-", "0.0015167435479273017`"}], ",", RowBox[{"-", "0.0015492649791325128`"}], ",", RowBox[{"-", "0.0015822352232887985`"}], ",", RowBox[{"-", "0.0016156658926123127`"}], ",", RowBox[{"-", "0.0016495470539831802`"}], ",", RowBox[{"-", "0.0016839167835248706`"}], ",", RowBox[{"-", "0.001718792379717192`"}], ",", RowBox[{"-", "0.0017541904182249435`"}], ",", RowBox[{"-", "0.0017901354822407595`"}], ",", RowBox[{"-", "0.0018266476762628103`"}], ",", RowBox[{"-", "0.0018637485251085176`"}], ",", RowBox[{"-", "0.001901469517257337`"}], ",", RowBox[{"-", "0.0019398339884734647`"}], ",", RowBox[{"-", "0.001978876156088362`"}], ",", RowBox[{"-", "0.002018544917383354`"}], ",", RowBox[{"-", "0.0020588473723253675`"}], ",", RowBox[{"-", "0.0020999761936097497`"}], ",", RowBox[{"-", "0.0021419639115459466`"}], ",", RowBox[{"-", "0.00218484777206758`"}], ",", RowBox[{"-", "0.002228673669867849`"}], ",", RowBox[{"-", "0.002273497209845751`"}], ",", RowBox[{"-", "0.002319382940320719`"}], ",", RowBox[{"-", "0.0023664027003378954`"}], ",", RowBox[{"-", "0.0024146401269435624`"}], ",", RowBox[{"-", "0.0024641890307396178`"}], ",", RowBox[{"-", "0.0025151576054690053`"}], ",", RowBox[{"-", "0.002567668289752467`"}], ",", RowBox[{"-", "0.0026218635192708784`"}], ",", RowBox[{"-", "0.0026779054029049815`"}], ",", RowBox[{"-", "0.0027359859147344026`"}], ",", RowBox[{"-", "0.0027963286294806905`"}], ",", RowBox[{"-", "0.0028592040495891285`"}], ",", RowBox[{"-", "0.0029249313560271648`"}], ",", RowBox[{"-", "0.0029939060078934612`"}], ",", RowBox[{"-", "0.0030666148820978414`"}], ",", RowBox[{"-", "0.003143681604003294`"}], ",", RowBox[{"-", "0.0032259156945876263`"}], ",", RowBox[{"-", "0.0033144004204529384`"}], ",", RowBox[{"-", "0.0034106635217074563`"}], ",", RowBox[{"-", "0.0035169492855730844`"}], ",", RowBox[{"-", "0.0036367672749089072`"}], ",", RowBox[{"-", "0.0037759423403152803`"}], ",", RowBox[{"-", "0.003948532177535047`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145597418*^9, 3.781649901902989*^9, 3.783980118520485*^9, 3.802469692249196*^9, 3.833634919865981*^9, 3.8340932541995077`*^9, 3.8342158543179398`*^9, 3.8343083560078*^9, 3.83499533457941*^9, 3.8378589137015657`*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"d2d5c5e4-4202-40be-b2f0-211d99b7bd72"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1EMM"], "Input", CellChangeTimes->{3.76261158366109*^9}, CellLabel-> "In[105]:=",ExpressionUUID->"db9f5fe7-1646-4a79-b715-87356d633c03"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.002144051992371254`", ",", "0.0021570559603664935`", ",", "0.0021697778635049766`", ",", "0.002182201966492605`", ",", "0.0021943083143910174`", ",", "0.0022060758980553`", ",", "0.002217477610686265`", ",", "0.0022284823414165248`", ",", "0.002239053855652765`", ",", "0.002249147989905386`", ",", "0.002258712219439408`", ",", "0.0022676825302311364`", ",", "0.002275980161282531`", ",", "0.002283509757170703`", ",", "0.0022901374436130684`", ",", "0.0022956836934865284`", ",", "0.00229995084754295`", ",", "0.0023026452069578843`", ",", "0.002303354463043878`", ",", "0.0023014695157086732`", ",", "0.002296037880868872`", ",", "0.002285210342879716`", ",", "0.0022660203449417263`", ",", "0.0022307673772604866`", ",", "0.00214488352425343`", ",", "0.0002875110532652168`", ",", "0.00012188743103492297`", ",", "0.00009526214200839201`", ",", "0.00008668712252036395`", ",", "0.00008225508254944012`", ",", "0.00007923104734773896`", ",", "0.00007688878108668757`", ",", "0.00007495419740708513`", ",", "0.00007319383387289572`", ",", "0.00007158501087960954`", ",", "0.00007010860655329461`", ",", "0.00006874900313819123`", ",", "0.0000674926086643998`", ",", "0.00006632817925488957`", ",", "0.0000652458770966395`", ",", "0.00006423709791112796`", ",", "0.00006329493388596179`", ",", "0.00006241279460098012`", ",", "0.00006158500251788807`", ",", "0.00006080681634776082`", ",", "0.00006007394534690284`", ",", "0.00005938229305382575`", ",", "0.000058728748335048846`", ",", "0.00005811007915980425`", ",", "0.0000575237365739275`", ",", "0.00005696697240818548`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.002125739025908695`", ",", "0.0021382255787246703`", ",", "0.0021504931457231448`", ",", "0.0021625314055161984`", ",", "0.0021743303649115085`", ",", "0.0021858800835411417`", ",", "0.0021971667538345854`", ",", "0.0022081754278423914`", ",", "0.0022188896692420454`", ",", "0.002229289716884595`", ",", "0.002239353473191184`", ",", "0.0022490552375298047`", ",", "0.0022583650731389498`", ",", "0.0022672489693984998`", ",", "0.002275650238661483`", ",", "0.0022835170920628817`", ",", "0.0022907955435755795`", ",", "0.002297408896993103`", ",", "0.0023032659265094274`", ",", "0.0023082475543365483`", ",", "0.0023122028748541463`", ",", "0.0023148936327911924`", ",", "0.002315972736592233`", ",", "0.0023151895062630892`", ",", "0.002311967218434412`", ",", "0.0023054221985626014`", ",", "0.002294061664993169`", ",", "0.0022749969074376815`", ",", "0.002241100518353146`", ",", "0.002152946348745303`", ",", "0.00008483222315601303`", ",", "0.00008174230820388599`", ",", "0.00007945697146741405`", ",", "0.00007738811847615845`", ",", "0.00007550597986406694`", ",", "0.00007378665065634648`", ",", "0.00007220938654799473`", ",", "0.00007075737423837381`", ",", "0.00006941627324231255`", ",", "0.00006817380514234606`", ",", "0.00006701939425832765`", ",", "0.00006594395825041907`", ",", "0.00006493978705685881`", ",", "0.0000639997279063923`", ",", "0.00006311814404179564`", ",", "0.00006228962211193034`", ",", "0.00006150942777479257`", ",", "0.0000607735770290349`", ",", "0.00006007822029017117`", ",", "0.00005942027923401137`", ",", "0.00005879669265655376`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.002106423258521926`", ",", "0.0021183120301526276`", ",", "0.0021300256883139282`", ",", "0.0021415573030758987`", ",", "0.002152903963593872`", ",", "0.0021640590626191033`", ",", "0.002175016049610083`", ",", "0.0021857675803933817`", ",", "0.0021963061603901945`", ",", "0.0022066225527815923`", ",", "0.002216707919609426`", ",", "0.0022265491537715476`", ",", "0.0022361364708598304`", ",", "0.002245453954039287`", ",", "0.002254465842674471`", ",", "0.002263168437683031`", ",", "0.0022715397051338085`", ",", "0.002279555304117366`", ",", "0.00228718522259913`", ",", "0.0022943957349637048`", ",", "0.0023011475526833313`", ",", "0.002307394632443241`", ",", "0.002312991281802848`", ",", "0.002317952861154642`", ",", "0.0023222085205789706`", ",", "0.002325641937717862`", ",", "0.0023281101284274106`", ",", "0.002329429435868045`", ",", "0.002329354854373857`", ",", "0.0023275477748605873`", ",", "0.002323515688454769`", ",", "0.002316496135322781`", ",", "0.0023051996788430117`", ",", "0.002287130210006488`", ",", "0.0022561176128997095`", ",", "0.0021697819629292745`", ",", "0.00007648287269869578`", ",", "0.00007477239076288046`", ",", "0.00007319915989629345`", ",", "0.00007174762503164012`", ",", "0.00007040398596043845`", ",", "0.00006915655949369119`", ",", "0.00006799527919951361`", ",", "0.00006691172070923582`", ",", "0.0000658983237765941`", ",", "0.00006494839096992132`", ",", "0.00006405602490656937`", ",", "0.00006321649680736085`", ",", "0.00006242481769765928`", ",", "0.00006167729283768975`", ",", "0.000060970334451413213`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0020651186314326747`", ",", "0.0020756634275926264`", ",", "0.002086089756672414`", ",", "0.0020963965024224833`", ",", "0.0021065824119939867`", ",", "0.0021166460884748566`", ",", "0.0021265859826402516`", ",", "0.0021364011480717775`", ",", "0.002146088947147771`", ",", "0.0021556496670013647`", ",", "0.002165080395041073`", ",", "0.0021743771549141903`", ",", "0.0021835263322720266`", ",", "0.0021925358217144875`", ",", "0.002201402443182694`", ",", "0.0022101219754995134`", ",", "0.002218692256368988`", ",", "0.002227108471222737`", ",", "0.002235365534317364`", ",", "0.0022434602791595003`", ",", "0.0022513862057886094`", ",", "0.002259138713004992`", ",", "0.002266693517684751`", ",", "0.002274040914946686`", ",", "0.0022812081974025464`", ",", "0.002288184333964543`", ",", "0.002294957401078498`", ",", "0.0023015154942970227`", ",", "0.0023078464007405554`", ",", "0.002313936905046707`", ",", "0.00231977305494752`", ",", "0.0023253390959526122`", ",", "0.0023306178402951977`", ",", "0.0023355895160178178`", ",", "0.0023402322007368224`", ",", "0.0023445202694756923`", ",", "0.002348425088078775`", ",", "0.0023519123457000335`", ",", "0.0023549423805126427`", ",", "0.002357466783371677`", ",", "0.0023594288392466186`", ",", "0.002360757683131016`", ",", "0.0023613659287944006`", ",", "0.0023611409251632944`", ",", "0.00235993568139254`", ",", "0.0023575520842071995`", ",", "0.002353708432645395`", ",", "0.0023479868553939708`", ",", "0.0023397254866690392`", ",", "0.0023278036526200654`", ",", "0.0023095129187794662`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741456883717`*^9, 3.781649901987351*^9, 3.7839801186481237`*^9, 3.802469692339094*^9, 3.833634919902416*^9, 3.834093254240415*^9, 3.834215854331629*^9, 3.834308356034381*^9, 3.834995334605494*^9, 3.8378589137317*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"21d9607b-a978-4bcf-a19c-81a737cd67c8"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1ENN"], "Input", CellChangeTimes->{3.762611583661248*^9}, CellLabel-> "In[106]:=",ExpressionUUID->"befce27c-d07b-4bbc-842f-84ec8521d526"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0026638752873014973`", ",", "0.002696062753523038`", ",", "0.002728422304305197`", ",", "0.0027609626741470147`", ",", "0.0027936904185561443`", ",", "0.0028266165677148063`", ",", "0.00285974883142676`", ",", "0.0028930968903978066`", ",", "0.0029266722675719043`", ",", "0.0029604858016076714`", ",", "0.002994549859922438`", ",", "0.0030288766919072266`", ",", "0.0030634776518599673`", ",", "0.003098364533109731`", ",", "0.003133530406055295`", ",", "0.0031689638466421933`", ",", "0.003204669698885639`", ",", "0.0032406103655979387`", ",", "0.0032767055520611012`", ",", "0.003312791319137507`", ",", "0.00334852790882959`", ",", "0.003383242637615828`", ",", "0.0034149489997670236`", ",", "0.003437979691666187`", ",", "0.0034209732593197054`", ",", "0.00009306448237007478`", ",", "0.000028857815291310346`", ",", "0.0000215841234720935`", ",", "0.000017499836527491187`", ",", "0.000014172007500394199`", ",", "0.000011270965703677471`", ",", "8.69102984330395`*^-6", ",", "6.373557778167026`*^-6", ",", "4.307023646983078`*^-6", ",", "2.455998949501409`*^-6", ",", "7.912843181367285`*^-7", ",", RowBox[{"-", "7.115871966233839`*^-7"}], ",", RowBox[{"-", "2.0730125464309135`*^-6"}], ",", RowBox[{"-", "3.3103520724712954`*^-6"}], ",", RowBox[{"-", "4.4382815873903955`*^-6"}], ",", RowBox[{"-", "5.469274165563649`*^-6"}], ",", RowBox[{"-", "6.414330994168431`*^-6"}], ",", RowBox[{"-", "7.282662134460924`*^-6"}], ",", RowBox[{"-", "8.082287980530449`*^-6"}], ",", RowBox[{"-", "8.820341503031244`*^-6"}], ",", RowBox[{"-", "9.503006729848565`*^-6"}], ",", RowBox[{"-", "0.000010135515093390342`"}], ",", RowBox[{"-", "0.00001072282432912526`"}], ",", RowBox[{"-", "0.000011269012202948236`"}], ",", RowBox[{"-", "0.000011777934851507979`"}], ",", RowBox[{"-", "0.000012252683200732889`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0026118364072763994`", ",", "0.002641262236406204`", ",", "0.0026708173273017263`", ",", "0.002700504841881449`", ",", "0.0027303309836071462`", ",", "0.0027603048555651733`", ",", "0.002790432364220528`", ",", "0.002820721283931298`", ",", "0.002851181204068604`", ",", "0.002881821255996712`", ",", "0.002912652433346277`", ",", "0.0029436864014410124`", ",", "0.002974935390285487`", ",", "0.003006412751599555`", ",", "0.003038117160569288`", ",", "0.0030700674443016798`", ",", "0.003102287532967858`", ",", "0.003134793639595417`", ",", "0.003167601884611638`", ",", "0.003200726516586533`", ",", "0.003234179510293855`", ",", "0.0032680065263066965`", ",", "0.0033022974489504437`", ",", "0.0033368776071204392`", ",", "0.0033716346281693396`", ",", "0.0034063094024338048`", ",", "0.0034403117725152928`", ",", "0.003472172810184278`", ",", "0.0034973739190877658`", ",", "0.003485496516793477`", ",", "0.0000180326460577189`", ",", "0.000014816323252840255`", ",", "0.00001193526076578074`", ",", "9.378823467747106`*^-6", ",", "7.099342348492431`*^-6", ",", "5.057582567981854`*^-6", ",", "3.2213477552788666`*^-6", ",", "1.5636419394031084`*^-6", ",", "6.183613752725609`*^-8", ",", RowBox[{"-", "1.3031610593336462`*^-6"}], ",", RowBox[{"-", "2.5475460635349806`*^-6"}], ",", RowBox[{"-", "3.685170888892246`*^-6"}], ",", RowBox[{"-", "4.728023581364142`*^-6"}], ",", RowBox[{"-", "5.6862118335242184`*^-6"}], ",", RowBox[{"-", "6.568851309342663`*^-6"}], ",", RowBox[{"-", "7.383622198123448`*^-6"}], ",", RowBox[{"-", "8.1372535303487`*^-6"}], ",", RowBox[{"-", "8.835788244340899`*^-6"}], ",", RowBox[{"-", "9.484340206900553`*^-6"}], ",", RowBox[{"-", "0.000010087675038371324`"}], ",", RowBox[{"-", "0.000010649800019513905`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.002559995839560073`", ",", "0.0025868011635351677`", ",", "0.002613696493079986`", ",", "0.002640682288226079`", ",", "0.0026677664876762998`", ",", "0.002694952512650189`", ",", "0.002722245321870441`", ",", "0.0027496502511693485`", ",", "0.002777174116671593`", ",", "0.0028048230406686357`", ",", "0.0028326055984287655`", ",", "0.0028605267250567568`", ",", "0.0028885974727535877`", ",", "0.002916823182485005`", ",", "0.002945196990653435`", ",", "0.00297374574221022`", ",", "0.0030024808462142004`", ",", "0.003031414723737736`", ",", "0.0030605602560810664`", ",", "0.003089931836470195`", ",", "0.0031195448464566775`", ",", "0.0031494155004340085`", ",", "0.003179709362622768`", ",", "0.0032103609883417546`", ",", "0.0032413604413674265`", ",", "0.0032727355524537136`", ",", "0.003304511087510881`", ",", "0.003336706848897251`", ",", "0.003369336105290697`", ",", "0.0034023876761796364`", ",", "0.0034358086959770957`", ",", "0.0034694508429005642`", ",", "0.0035029461364439393`", ",", "0.0035353326591971938`", ",", "0.003563549128980884`", ",", "0.003562445640051485`", ",", "8.326808007633364`*^-6", ",", "6.2670702639490775`*^-6", ",", "4.4084482655037255`*^-6", ",", "2.7251875283603247`*^-6", ",", "1.1957717179758229`*^-6", ",", RowBox[{"-", "1.980984406253078`*^-7"}], ",", RowBox[{"-", "1.4720324597230355`*^-6"}], ",", RowBox[{"-", "2.639583327058992`*^-6"}], ",", RowBox[{"-", "3.7123304878648386`*^-6"}], ",", RowBox[{"-", "4.7002491174192446`*^-6"}], ",", RowBox[{"-", "5.6119963602581716`*^-6"}], ",", RowBox[{"-", "6.455445692032588`*^-6"}], ",", RowBox[{"-", "7.236970850603777`*^-6"}], ",", RowBox[{"-", "7.96267591281468`*^-6"}], ",", RowBox[{"-", "8.637759048862534`*^-6"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0024571231846330956`", ",", "0.0024791199395157093`", ",", "0.0025011484923644425`", ",", "0.0025232105868060574`", ",", "0.0025453080276144416`", ",", "0.0025674426857655087`", ",", "0.0025896165028986787`", ",", "0.0026118324391218484`", ",", "0.0026340915733769656`", ",", "0.0026563986734850628`", ",", "0.0026787546898663175`", ",", "0.0027011598212426102`", ",", "0.0027236071996195577`", ",", "0.0027461106207790965`", ",", "0.0027686729207918996`", ",", "0.0027912968115278666`", ",", "0.0028139860401943913`", ",", "0.002836743364652131`", ",", "0.0028595724618012165`", ",", "0.0028824760245579097`", ",", "0.002905458615267436`", ",", "0.002928523127926566`", ",", "0.002951723020303598`", ",", "0.0029751141724605854`", ",", "0.0029986217341433723`", ",", "0.0030222515377901892`", ",", "0.0030460133411243347`", ",", "0.0030699183529402704`", ",", "0.0030939771955034714`", ",", "0.003118200611265622`", ",", "0.003142602766619959`", ",", "0.0031671964270554584`", ",", "0.0031919970043531387`", ",", "0.0032170200293363182`", ",", "0.0032422836418068103`", ",", "0.0032678067092691164`", ",", "0.003293611032907139`", ",", "0.0033197193683724927`", ",", "0.0033461573170409003`", ",", "0.003372952815946427`", ",", "0.0034001371718371436`", ",", "0.0034277450469951468`", ",", "0.0034558148987299947`", ",", "0.0034843903736563025`", ",", "0.0035135205563272213`", ",", "0.0035432600993475314`", ",", "0.003573672134701906`", ",", "0.0036048246601617113`", ",", "0.0036367779013828667`", ",", "0.0036695166728907234`", ",", "0.0037030752969391886`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741457799463`*^9, 3.781649902069147*^9, 3.783980118748314*^9, 3.8024696924285383`*^9, 3.833634919914167*^9, 3.8340932543039827`*^9, 3.834215854382237*^9, 3.834308356049028*^9, 3.834995334619399*^9, 3.837858913747417*^9}, CellLabel-> "Out[106]=",ExpressionUUID->"0a197919-ddec-4afa-87c8-65704b0da904"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PREMM"], "Input", CellChangeTimes->{3.762611583661406*^9}, CellLabel-> "In[107]:=",ExpressionUUID->"cca02f2f-6f5d-4068-839d-d062b516c527"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005866673074509853`"}], ",", RowBox[{"-", "0.000592527211275254`"}], ",", RowBox[{"-", "0.0005982176411577227`"}], ",", RowBox[{"-", "0.0006037272090192202`"}], ",", RowBox[{"-", "0.0006090426831724267`"}], ",", RowBox[{"-", "0.0006141494105029548`"}], ",", RowBox[{"-", "0.0006190301598656489`"}], ",", RowBox[{"-", "0.0006236652277054719`"}], ",", RowBox[{"-", "0.0006280318377434884`"}], ",", RowBox[{"-", "0.00063210320164215`"}], ",", RowBox[{"-", "0.0006358478083175969`"}], ",", RowBox[{"-", "0.0006392281255058538`"}], ",", RowBox[{"-", "0.0006421990638745485`"}], ",", RowBox[{"-", "0.0006447068141332221`"}], ",", RowBox[{"-", "0.0006466811754776544`"}], ",", RowBox[{"-", "0.000648026018692264`"}], ",", RowBox[{"-", "0.0006486320485482168`"}], ",", RowBox[{"-", "0.0006483441694516541`"}], ",", RowBox[{"-", "0.0006469464259590256`"}], ",", RowBox[{"-", "0.0006441210663563041`"}], ",", RowBox[{"-", "0.0006393743676970842`"}], ",", RowBox[{"-", "0.000631663708782722`"}], ",", RowBox[{"-", "0.0006196027900929995`"}], ",", RowBox[{"-", "0.000599431392280749`"}], ",", RowBox[{"-", "0.0005546692204798111`"}], ",", RowBox[{"-", "0.00003666114420537394`"}], ",", RowBox[{"-", "7.606429504584982`*^-6"}], ",", RowBox[{"-", "2.2013040628200762`*^-6"}], ",", RowBox[{"-", "7.974663404115173`*^-7"}], ",", RowBox[{"-", "3.2784174101445395`*^-7"}], ",", RowBox[{"-", "1.461145254348661`*^-7"}], ",", RowBox[{"-", "8.214529256548512`*^-8"}], ",", RowBox[{"-", "7.479362018080241`*^-8"}], ",", RowBox[{"-", "6.868804641651312`*^-8"}], ",", RowBox[{"-", "6.356761099936986`*^-8"}], ",", RowBox[{"-", "5.916606158121434`*^-8"}], ",", RowBox[{"-", "5.539596893179566`*^-8"}], ",", RowBox[{"-", "5.208631600057663`*^-8"}], ",", RowBox[{"-", "4.9194867499915886`*^-8"}], ",", RowBox[{"-", "4.6634717724633457`*^-8"}], ",", RowBox[{"-", "4.429941927449146`*^-8"}], ",", RowBox[{"-", "4.226350284287439`*^-8"}], ",", RowBox[{"-", "4.0426703623965606`*^-8"}], ",", RowBox[{"-", "3.872975738020471`*^-8"}], ",", RowBox[{"-", "3.7198008810424834`*^-8"}], ",", RowBox[{"-", "3.582448785836639`*^-8"}], ",", RowBox[{"-", "3.451407752435784`*^-8"}], ",", RowBox[{"-", "3.3346415412121005`*^-8"}], ",", RowBox[{"-", "3.2253505892861556`*^-8"}], ",", RowBox[{"-", "3.128201036113566`*^-8"}], ",", RowBox[{"-", "3.0330898974221306`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005852578523786575`"}], ",", RowBox[{"-", "0.0005909867191184983`"}], ",", RowBox[{"-", "0.0005965836194273589`"}], ",", RowBox[{"-", "0.0006020414507243803`"}], ",", RowBox[{"-", "0.0006073527471854182`"}], ",", RowBox[{"-", "0.0006125095070081165`"}], ",", RowBox[{"-", "0.0006175023699558291`"}], ",", RowBox[{"-", "0.0006223210695213137`"}], ",", RowBox[{"-", "0.0006269542504137227`"}], ",", RowBox[{"-", "0.0006313890176378519`"}], ",", RowBox[{"-", "0.0006356109921567446`"}], ",", RowBox[{"-", "0.0006396039683821784`"}], ",", RowBox[{"-", "0.0006433497256279905`"}], ",", RowBox[{"-", "0.0006468282543511835`"}], ",", RowBox[{"-", "0.0006500104319244816`"}], ",", RowBox[{"-", "0.0006528652705751477`"}], ",", RowBox[{"-", "0.0006553609303060815`"}], ",", RowBox[{"-", "0.0006574550542432442`"}], ",", RowBox[{"-", "0.000659098785706097`"}], ",", RowBox[{"-", "0.0006602282849633516`"}], ",", RowBox[{"-", "0.0006607630572515768`"}], ",", RowBox[{"-", "0.0006605464322721819`"}], ",", RowBox[{"-", "0.0006593222108410228`"}], ",", RowBox[{"-", "0.0006570501948315909`"}], ",", RowBox[{"-", "0.0006534221039183545`"}], ",", RowBox[{"-", "0.0006479780022933441`"}], ",", RowBox[{"-", "0.0006399537084762388`"}], ",", RowBox[{"-", "0.0006278958744498406`"}], ",", RowBox[{"-", "0.0006082807127904633`"}], ",", RowBox[{"-", "0.0005619463722444326`"}], ",", RowBox[{"-", "2.2496653233041114`*^-7"}], ",", RowBox[{"-", "7.726590354038983`*^-8"}], ",", RowBox[{"-", "7.069103136016284`*^-8"}], ",", RowBox[{"-", "6.51998892095074`*^-8"}], ",", RowBox[{"-", "6.049427127917503`*^-8"}], ",", RowBox[{"-", "5.652181520488398`*^-8"}], ",", RowBox[{"-", "5.302648855895335`*^-8"}], ",", RowBox[{"-", "4.996526623381788`*^-8"}], ",", RowBox[{"-", "4.727796619900305`*^-8"}], ",", RowBox[{"-", "4.490124820783273`*^-8"}], ",", RowBox[{"-", "4.277021027840615`*^-8"}], ",", RowBox[{"-", "4.0841784146084014`*^-8"}], ",", RowBox[{"-", "3.9128275313403404`*^-8"}], ",", RowBox[{"-", "3.751594418062161`*^-8"}], ",", RowBox[{"-", "3.608834610497897`*^-8"}], ",", RowBox[{"-", "3.478680325830837`*^-8"}], ",", RowBox[{"-", "3.3572532953885176`*^-8"}], ",", RowBox[{"-", "3.247489042677615`*^-8"}], ",", RowBox[{"-", "3.142854398485804`*^-8"}], ",", RowBox[{"-", "3.048322606038741`*^-8"}], ",", RowBox[{"-", "2.9591312439872187`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005832060506872143`"}], ",", RowBox[{"-", "0.0005887515361118834`"}], ",", RowBox[{"-", "0.0005941922616881703`"}], ",", RowBox[{"-", "0.0005995237163614216`"}], ",", RowBox[{"-", "0.0006047420391151274`"}], ",", RowBox[{"-", "0.0006098423556736326`"}], ",", RowBox[{"-", "0.0006148195585869091`"}], ",", RowBox[{"-", "0.0006196681030289694`"}], ",", RowBox[{"-", "0.0006243821205212505`"}], ",", RowBox[{"-", "0.0006289550756586043`"}], ",", RowBox[{"-", "0.0006333802578308925`"}], ",", RowBox[{"-", "0.0006376496897455419`"}], ",", RowBox[{"-", "0.0006417562003396877`"}], ",", RowBox[{"-", "0.0006456910497511687`"}], ",", RowBox[{"-", "0.000649435896916094`"}], ",", RowBox[{"-", "0.0006529846550749323`"}], ",", RowBox[{"-", "0.0006563244735673385`"}], ",", RowBox[{"-", "0.000659441793973591`"}], ",", RowBox[{"-", "0.0006623201510368994`"}], ",", RowBox[{"-", "0.0006649416251062235`"}], ",", RowBox[{"-", "0.0006672859905837995`"}], ",", RowBox[{"-", "0.0006693303166445926`"}], ",", RowBox[{"-", "0.0006708939609982572`"}], ",", RowBox[{"-", "0.0006720518014800591`"}], ",", RowBox[{"-", "0.0006727853256030634`"}], ",", RowBox[{"-", "0.0006730261742303521`"}], ",", RowBox[{"-", "0.0006726943679765428`"}], ",", RowBox[{"-", "0.000671690004044431`"}], ",", RowBox[{"-", "0.0006698788049021589`"}], ",", RowBox[{"-", "0.0006670811972324219`"}], ",", RowBox[{"-", "0.0006630366127603133`"}], ",", RowBox[{"-", "0.0006573477749990897`"}], ",", RowBox[{"-", "0.0006493497772996456`"}], ",", RowBox[{"-", "0.0006377735363387035`"}], ",", RowBox[{"-", "0.0006195267034754762`"}], ",", RowBox[{"-", "0.0005735518570609119`"}], ",", RowBox[{"-", "5.098611750484726`*^-8"}], ",", RowBox[{"-", "4.814560993439865`*^-8"}], ",", RowBox[{"-", "4.5592201224070724`*^-8"}], ",", RowBox[{"-", "4.337681207560069`*^-8"}], ",", RowBox[{"-", "4.1394386694033284`*^-8"}], ",", RowBox[{"-", "3.959141984196421`*^-8"}], ",", RowBox[{"-", "3.792148424341577`*^-8"}], ",", RowBox[{"-", "3.64275696330713`*^-8"}], ",", RowBox[{"-", "3.508518497339621`*^-8"}], ",", RowBox[{"-", "3.3848617841231686`*^-8"}], ",", RowBox[{"-", "3.267298338569609`*^-8"}], ",", RowBox[{"-", "3.165600924879479`*^-8"}], ",", RowBox[{"-", "3.065169516258139`*^-8"}], ",", RowBox[{"-", "2.9745438986033363`*^-8"}], ",", RowBox[{"-", "2.892850410276702`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005772976613416135`"}], ",", RowBox[{"-", "0.0005823651177314952`"}], ",", RowBox[{"-", "0.0005873639962852485`"}], ",", RowBox[{"-", "0.0005922929001468953`"}], ",", RowBox[{"-", "0.0005971503670534912`"}], ",", RowBox[{"-", "0.0006019348694432322`"}], ",", RowBox[{"-", "0.0006066448152773727`"}], ",", RowBox[{"-", "0.0006112787639287432`"}], ",", RowBox[{"-", "0.0006158348235490663`"}], ",", RowBox[{"-", "0.0006203120287217254`"}], ",", RowBox[{"-", "0.0006247086369833275`"}], ",", RowBox[{"-", "0.000629022542463083`"}], ",", RowBox[{"-", "0.0006332466533662832`"}], ",", RowBox[{"-", "0.0006373830997680556`"}], ",", RowBox[{"-", "0.0006414297744436111`"}], ",", RowBox[{"-", "0.000645383952016065`"}], ",", RowBox[{"-", "0.0006492445972739083`"}], ",", RowBox[{"-", "0.0006530090971307518`"}], ",", RowBox[{"-", "0.0006566744522909674`"}], ",", RowBox[{"-", "0.0006602405482666352`"}], ",", RowBox[{"-", "0.0006637034704429373`"}], ",", RowBox[{"-", "0.0006670626968916626`"}], ",", RowBox[{"-", "0.0006702677532803986`"}], ",", RowBox[{"-", "0.000673279497317211`"}], ",", RowBox[{"-", "0.0006761763085788679`"}], ",", RowBox[{"-", "0.0006789509559782045`"}], ",", RowBox[{"-", "0.0006815940670382897`"}], ",", RowBox[{"-", "0.000684096272984998`"}], ",", RowBox[{"-", "0.0006864494126057209`"}], ",", RowBox[{"-", "0.0006886456950234376`"}], ",", RowBox[{"-", "0.0006906749605619238`"}], ",", RowBox[{"-", "0.0006925283063551652`"}], ",", RowBox[{"-", "0.000694194740476322`"}], ",", RowBox[{"-", "0.0006956632115276289`"}], ",", RowBox[{"-", "0.0006969202288629821`"}], ",", RowBox[{"-", "0.0006979515757909421`"}], ",", RowBox[{"-", "0.0006987395256452835`"}], ",", RowBox[{"-", "0.0006992651567189017`"}], ",", RowBox[{"-", "0.0006995053973819687`"}], ",", RowBox[{"-", "0.0006994343045619519`"}], ",", RowBox[{"-", "0.0006990189636427728`"}], ",", RowBox[{"-", "0.0006982206873133521`"}], ",", RowBox[{"-", "0.0006969906540738281`"}], ",", RowBox[{"-", "0.0006952677167776827`"}], ",", RowBox[{"-", "0.00069297172415862`"}], ",", RowBox[{"-", "0.0006899946265079292`"}], ",", RowBox[{"-", "0.0006861851956035354`"}], ",", RowBox[{"-", "0.0006813189961086203`"}], ",", RowBox[{"-", "0.0006750404071692953`"}], ",", RowBox[{"-", "0.0006667395135504732`"}], ",", RowBox[{"-", "0.0006550567564497818`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274145870229*^9, 3.781649902160737*^9, 3.783980118853273*^9, 3.802469692521557*^9, 3.833634919950296*^9, 3.83409325432024*^9, 3.834215854396158*^9, 3.8343083560766563`*^9, 3.8349953346457567`*^9, 3.837858913778105*^9}, CellLabel-> "Out[107]=",ExpressionUUID->"821c81e1-5a90-4287-a91c-f3d216be293a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PLENN"], "Input", CellChangeTimes->{3.762611583661565*^9}, CellLabel-> "In[108]:=",ExpressionUUID->"8eb4ed09-f6c6-4359-a023-84dce9d8831e"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.0005289059233324566`", ",", "0.000541939603245462`", ",", "0.0005549338512912017`", ",", "0.0005678791214731272`", ",", "0.0005807645786703828`", ",", "0.0005935772654948864`", ",", "0.0006063023620393581`", ",", "0.0006189222578846893`", ",", "0.0006314158939860525`", ",", "0.0006437581322108962`", ",", "0.0006559183981663618`", ",", "0.0006678592818985928`", ",", "0.0006795344977511006`", ",", "0.0006908862893573215`", ",", "0.0007018404168570688`", ",", "0.0007122926273174729`", ",", "0.0007221091080828316`", ",", "0.0007311005897847841`", ",", "0.0007389922077758017`", ",", "0.0007453629161977646`", ",", "0.0007495294864814841`", ",", "0.0007500615010597221`", ",", "0.0007447366498032227`", ",", "0.0007275404997542055`", ",", "0.000670867142467866`", ",", RowBox[{"-", "6.459703365546687`*^-6"}], ",", "4.327413103411004`*^-7", ",", "2.9237973919737925`*^-7", ",", "1.4394114677962477`*^-7", ",", "7.217575825890776`*^-8", ",", "3.742001869477818`*^-8", ",", "2.3787741387781836`*^-8", ",", "2.4018397160041616`*^-8", ",", "2.4120126285165355`*^-8", ",", "2.4141878773864534`*^-8", ",", "2.4087926542293303`*^-8", ",", "2.4001815424057327`*^-8", ",", "2.3872776144795438`*^-8", ",", "2.3729861797772145`*^-8", ",", "2.3571487928197854`*^-8", ",", "2.3374584268154308`*^-8", ",", "2.3203688970241387`*^-8", ",", "2.3028079221276698`*^-8", ",", "2.283124900248623`*^-8", ",", "2.2642280383955438`*^-8", ",", "2.247087621531918`*^-8", ",", "2.226838408114773`*^-8", ",", "2.2094458984600607`*^-8", ",", "2.1913342862500684`*^-8", ",", "2.176393437691715`*^-8", ",", "2.1582577336420883`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0005294238531122468`", ",", "0.0005418257579203132`", ",", "0.0005542052870490303`", ",", "0.0005665575924496322`", ",", "0.0005788770305525989`", ",", "0.0005911570515212958`", ",", "0.0006033905683331831`", ",", "0.0006155694364743114`", ",", "0.0006276842881554664`", ",", "0.0006397245184063109`", ",", "0.0006516778661312607`", ",", "0.0006635302478583134`", ",", "0.0006752654855446604`", ",", "0.0006868651641527385`", ",", "0.00069830573097592`", ",", "0.000709557373331593`", ",", "0.000720586558972983`", ",", "0.0007313502681490763`", ",", "0.0007417961364389069`", ",", "0.000751854327301453`", ",", "0.0007614327339182671`", ",", "0.0007703586986381708`", ",", "0.0007783429574924651`", ",", "0.0007852685655337353`", ",", "0.0007907248312142802`", ",", "0.0007940628917192851`", ",", "0.0007941494435859892`", ",", "0.0007887227822742241`", ",", "0.0007720418247796467`", ",", "0.0007117366190457133`", ",", "5.465304941942861`*^-8", ",", "2.1757969315139292`*^-8", ",", "2.242676971908608`*^-8", ",", "2.2887356454504015`*^-8", ",", "2.3175947605480474`*^-8", ",", "2.3378637803439517`*^-8", ",", "2.3474652777188965`*^-8", ",", "2.3506091073599578`*^-8", ",", "2.349613231755754`*^-8", ",", "2.345538646641998`*^-8", ",", "2.3383596170489795`*^-8", ",", "2.328386899952406`*^-8", ",", "2.31859396127021`*^-8", ",", "2.304137891595559`*^-8", ",", "2.2915866926265238`*^-8", ",", "2.2787639497590106`*^-8", ",", "2.2642559771579585`*^-8", ",", "2.2509937414039172`*^-8", ",", "2.2353213835479835`*^-8", ",", "2.2214420525301648`*^-8", ",", "2.206595822729085`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0005293347128650174`", ",", "0.0005410618469125798`", ",", "0.0005527754539788851`", ",", "0.0005644730541460934`", ",", "0.0005761514191868127`", ",", "0.0005878073762858426`", ",", "0.0005994373635370986`", ",", "0.0006110374778768787`", ",", "0.0006226033690700328`", ",", "0.0006341303569333823`", ",", "0.0006456132398901795`", ",", "0.0006570465565467879`", ",", "0.0006684243576586622`", ",", "0.0006797405568019488`", ",", "0.0006909844948575882`", ",", "0.0007021481054405993`", ",", "0.0007132210759667598`", ",", "0.0007241921440262903`", ",", "0.000735047555803542`", ",", "0.0007457716729037623`", ",", "0.0007563461991626731`", ",", "0.0007667495329928783`", ",", "0.0007768196068252964`", ",", "0.0007866101246588463`", ",", "0.0007960963866987802`", ",", "0.0008052054394679939`", ",", "0.0008138466566649499`", ",", "0.0008219007287771311`", ",", "0.0008291998062803932`", ",", "0.0008355076558556971`", ",", "0.0008404661072288844`", ",", "0.0008435035834801043`", ",", "0.0008436207124064184`", ",", "0.0008388245235207694`", ",", "0.000824046074728621`", ",", "0.0007639456919035087`", ",", "2.296078505104049`*^-8", ",", "2.3181991604115382`*^-8", ",", "2.3305311236399007`*^-8", ",", "2.3400291648822957`*^-8", ",", "2.3449643893336258`*^-8", ",", "2.3451861008716435`*^-8", ",", "2.340179089399541`*^-8", ",", "2.334509924262207`*^-8", ",", "2.328504439264023`*^-8", ",", "2.320657810361837`*^-8", ",", "2.3090070300213483`*^-8", ",", "2.3014961048062332`*^-8", ",", "2.2885732808841652`*^-8", ",", "2.2771966035062263`*^-8", ",", "2.2675375854763757`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0005274767503697482`", ",", "0.0005377809707717287`", ",", "0.0005480773351394818`", ",", "0.000558364998174365`", ",", "0.0005686430837028387`", ",", "0.0005789106872882305`", ",", "0.0005891668797008052`", ",", "0.0005994106947430713`", ",", "0.0006096412206236485`", ",", "0.0006198575837128062`", ",", "0.0006300590907432771`", ",", "0.000640244989897706`", ",", "0.000650412422212199`", ",", "0.0006605613152681159`", ",", "0.0006706906583798507`", ",", "0.0006807991300491177`", ",", "0.000690886444824414`", ",", "0.0007009515319461813`", ",", "0.0007109930083609682`", ",", "0.0007210117046882261`", ",", "0.0007310057068359525`", ",", "0.0007409757942970386`", ",", "0.0007508802853040402`", ",", "0.0007606841085537911`", ",", "0.0007704542434932525`", ",", "0.0007801862623080405`", ",", "0.000789873885416649`", ",", "0.0007995106667753062`", ",", "0.0008090912122885442`", ",", "0.0008186105398459197`", ",", "0.0008280611110742088`", ",", "0.000837436782839832`", ",", "0.000846729133476628`", ",", "0.0008559298232650864`", ",", "0.0008650277290267773`", ",", "0.0008740110736996601`", ",", "0.0008828638045895384`", ",", "0.0008915686659794592`", ",", "0.0009001032199056347`", ",", "0.0009084417560952214`", ",", "0.0009165493129647132`", ",", "0.0009243836542765864`", ",", "0.000931888775011866`", ",", "0.00093899213062533`", ",", "0.0009455946527654395`", ",", "0.0009515574297188508`", ",", "0.0009566796494953648`", ",", "0.0009606520897806675`", ",", "0.0009629653225077606`", ",", "0.0009627018165477433`", ",", "0.0009578195747057183`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741459650908`*^9, 3.7816499022501173`*^9, 3.7839801189551783`*^9, 3.802469692610632*^9, 3.833634919962901*^9, 3.8340932543623743`*^9, 3.834215854446784*^9, 3.8343083560908957`*^9, 3.834995334659889*^9, 3.837858913796225*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"ea24e842-f209-4dd7-b924-c768958ec09d"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabD1PRENN"], "Input", CellChangeTimes->{3.762611583661724*^9}, CellLabel-> "In[109]:=",ExpressionUUID->"51eb1836-bd5c-422d-acfa-f4f3384ae0c2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.0006650656569353272`"}], ",", RowBox[{"-", "0.0006747864699086928`"}], ",", RowBox[{"-", "0.0006844138468147043`"}], ",", RowBox[{"-", "0.0006939365044693374`"}], ",", RowBox[{"-", "0.0007033407399653431`"}], ",", RowBox[{"-", "0.000712611679666944`"}], ",", RowBox[{"-", "0.0007217309708993144`"}], ",", RowBox[{"-", "0.0007306774875583139`"}], ",", RowBox[{"-", "0.0007394265641148387`"}], ",", RowBox[{"-", "0.000747948495810149`"}], ",", RowBox[{"-", "0.0007562078582049256`"}], ",", RowBox[{"-", "0.0007641615941962072`"}], ",", RowBox[{"-", "0.0007717568361897704`"}], ",", RowBox[{"-", "0.000778929163973212`"}], ",", RowBox[{"-", "0.0007855912854719191`"}], ",", RowBox[{"-", "0.0007916239136165478`"}], ",", RowBox[{"-", "0.0007968884736800014`"}], ",", RowBox[{"-", "0.0008011825646141446`"}], ",", RowBox[{"-", "0.000804217752196237`"}], ",", RowBox[{"-", "0.0008055600553511667`"}], ",", RowBox[{"-", "0.0008045174887367883`"}], ",", RowBox[{"-", "0.000799663237889929`"}], ",", RowBox[{"-", "0.0007888174854977122`"}], ",", RowBox[{"-", "0.0007661505569861587`"}], ",", RowBox[{"-", "0.0007052810998320301`"}], ",", "7.1711986172895426`*^-6", ",", "1.2950478759377049`*^-6", ",", "3.5784244251102493`*^-7", ",", "1.2360293760727004`*^-7", ",", "4.8307972178029956`*^-8", ",", "2.0429583913461613`*^-8", ",", "1.0881191669920298`*^-8", ",", "9.3720013416565`*^-9", ",", "8.134905693513161`*^-9", ",", "7.108897970287131`*^-9", ",", "6.241352989988513`*^-9", ",", "5.5056819658894085`*^-9", ",", "4.870859715566667`*^-9", ",", "4.322115720878372`*^-9", ",", "3.842728413250285`*^-9", ",", "3.4169881923951095`*^-9", ",", "3.044876906166394`*^-9", ",", "2.713593016956395`*^-9", ",", "2.4152038702318634`*^-9", ",", "2.1480222045511255`*^-9", ",", "1.9084003266556238`*^-9", ",", "1.688732986782071`*^-9", ",", "1.4909739554092027`*^-9", ",", "1.3099156759288633`*^-9", ",", "1.145751937770001`*^-9", ",", "9.93244653191283`*^-10"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0006585099923134892`"}], ",", RowBox[{"-", "0.0006677334209788492`"}], ",", RowBox[{"-", "0.0006768897761343234`"}], ",", RowBox[{"-", "0.0006859718429021401`"}], ",", RowBox[{"-", "0.0006949722982913281`"}], ",", RowBox[{"-", "0.0007038835187617495`"}], ",", RowBox[{"-", "0.00071269591962621`"}], ",", RowBox[{"-", "0.0007213990312422889`"}], ",", RowBox[{"-", "0.0007299812693901076`"}], ",", RowBox[{"-", "0.0007384291145063181`"}], ",", RowBox[{"-", "0.0007467274057644949`"}], ",", RowBox[{"-", "0.0007548587365470427`"}], ",", RowBox[{"-", "0.0007628031217103435`"}], ",", RowBox[{"-", "0.0007705381302433876`"}], ",", RowBox[{"-", "0.0007780292710356665`"}], ",", RowBox[{"-", "0.0007852417048936008`"}], ",", RowBox[{"-", "0.0007921387131156945`"}], ",", RowBox[{"-", "0.0007986698695108055`"}], ",", RowBox[{"-", "0.0008047753123143738`"}], ",", RowBox[{"-", "0.0008103760351555874`"}], ",", RowBox[{"-", "0.0008153705272420922`"}], ",", RowBox[{"-", "0.0008195763289922404`"}], ",", RowBox[{"-", "0.0008226994613211806`"}], ",", RowBox[{"-", "0.0008246139368990376`"}], ",", RowBox[{"-", "0.0008248987325910843`"}], ",", RowBox[{"-", "0.000822903317953037`"}], ",", RowBox[{"-", "0.0008175146605093296`"}], ",", RowBox[{"-", "0.000806554015124427`"}], ",", RowBox[{"-", "0.0007845908032978431`"}], ",", RowBox[{"-", "0.0007214772917423194`"}], ",", "3.9051036959669716`*^-8", ",", "1.2733462728675704`*^-8", ",", "1.1037692093651685`*^-8", ",", "9.639773812519792`*^-9", ",", "8.463991285623251`*^-9", ",", "7.47868433847998`*^-9", ",", "6.630154425479873`*^-9", ",", "5.898626753708669`*^-9", ",", "5.264696290030457`*^-9", ",", "4.7111550216527576`*^-9", ",", "4.223015548365794`*^-9", ",", "3.789508706830702`*^-9", ",", "3.4061664044848783`*^-9", ",", "3.0584149102175218`*^-9", ",", "2.749475480623431`*^-9", ",", "2.4710071766520514`*^-9", ",", "2.2174377889427888`*^-9", ",", "1.9883091839645317`*^-9", ",", "1.7774355876021275`*^-9", ",", "1.585937492443179`*^-9", ",", "1.4095469791364224`*^-9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0006513485617315855`"}], ",", RowBox[{"-", "0.0006600413213132942`"}], ",", RowBox[{"-", "0.0006686833684702586`"}], ",", RowBox[{"-", "0.0006772699817236341`"}], ",", RowBox[{"-", "0.0006857979535272174`"}], ",", RowBox[{"-", "0.0006942624429613692`"}], ",", RowBox[{"-", "0.0007026584890011262`"}], ",", RowBox[{"-", "0.0007109806506557922`"}], ",", RowBox[{"-", "0.0007192232503564406`"}], ",", RowBox[{"-", "0.0007273797273576275`"}], ",", RowBox[{"-", "0.0007354435193398282`"}], ",", RowBox[{"-", "0.0007434061328256804`"}], ",", RowBox[{"-", "0.0007512604727138816`"}], ",", RowBox[{"-", "0.0007589968500253141`"}], ",", RowBox[{"-", "0.0007665941529335068`"}], ",", RowBox[{"-", "0.000774047569516411`"}], ",", RowBox[{"-", "0.0007813430685666613`"}], ",", RowBox[{"-", "0.0007884655116856551`"}], ",", RowBox[{"-", "0.0007953963057955394`"}], ",", RowBox[{"-", "0.0008021148204907574`"}], ",", RowBox[{"-", "0.0008085972912937793`"}], ",", RowBox[{"-", "0.0008148161634731355`"}], ",", RowBox[{"-", "0.0008206056277120354`"}], ",", RowBox[{"-", "0.0008260183780559047`"}], ",", RowBox[{"-", "0.0008310200991250927`"}], ",", RowBox[{"-", "0.000835527979727445`"}], ",", RowBox[{"-", "0.0008394414075640587`"}], ",", RowBox[{"-", "0.0008426310033537582`"}], ",", RowBox[{"-", "0.0008449198089505103`"}], ",", RowBox[{"-", "0.0008460636488495949`"}], ",", RowBox[{"-", "0.0008457009431519138`"}], ",", RowBox[{"-", "0.0008432667976886309`"}], ",", RowBox[{"-", "0.000837794227914003`"}], ",", RowBox[{"-", "0.000827393879450744`"}], ",", RowBox[{"-", "0.0008073546687932497`"}], ",", RowBox[{"-", "0.0007453153709369338`"}], ",", "8.055150380048559`*^-9", ",", "7.200620266711866`*^-9", ",", "6.451287393183236`*^-9", ",", "5.803220959332833`*^-9", ",", "5.232151656375805`*^-9", ",", "4.723801128037053`*^-9", ",", "4.266764996874173`*^-9", ",", "3.860787245457686`*^-9", ",", "3.4981940122413846`*^-9", ",", "3.170319784473463`*^-9", ",", "2.869967929974848`*^-9", ",", "2.6028788013832127`*^-9", ",", "2.3541899540902023`*^-9", ",", "2.1288532603414012`*^-9", ",", "1.9239413950877804`*^-9"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0006353824012322411`"}], ",", RowBox[{"-", "0.0006429644663113795`"}], ",", RowBox[{"-", "0.0006505136736628927`"}], ",", RowBox[{"-", "0.0006580287140711279`"}], ",", RowBox[{"-", "0.0006655082084176735`"}], ",", RowBox[{"-", "0.0006729507068078014`"}], ",", RowBox[{"-", "0.0006803546881652646`"}], ",", RowBox[{"-", "0.0006877188853689196`"}], ",", RowBox[{"-", "0.000695041341711981`"}], ",", RowBox[{"-", "0.0007023214388638416`"}], ",", RowBox[{"-", "0.0007095573033164952`"}], ",", RowBox[{"-", "0.0007167465728710235`"}], ",", RowBox[{"-", "0.0007238810538398891`"}], ",", RowBox[{"-", "0.0007309641880316503`"}], ",", RowBox[{"-", "0.0007379938445714997`"}], ",", RowBox[{"-", "0.0007449672297293423`"}], ",", RowBox[{"-", "0.0007518832883422308`"}], ",", RowBox[{"-", "0.0007587392423053516`"}], ",", RowBox[{"-", "0.0007655320020585757`"}], ",", RowBox[{"-", "0.00077226109533639`"}], ",", RowBox[{"-", "0.0007789225276092402`"}], ",", RowBox[{"-", "0.0007855153118308429`"}], ",", RowBox[{"-", "0.0007919965521672357`"}], ",", RowBox[{"-", "0.0007983345949541224`"}], ",", RowBox[{"-", "0.0008045943519559718`"}], ",", RowBox[{"-", "0.0008107681113709033`"}], ",", RowBox[{"-", "0.0008168464662584715`"}], ",", RowBox[{"-", "0.000822820019338269`"}], ",", RowBox[{"-", "0.0008286802534672776`"}], ",", RowBox[{"-", "0.0008344187849551174`"}], ",", RowBox[{"-", "0.0008400250303580766`"}], ",", RowBox[{"-", "0.0008454891206048868`"}], ",", RowBox[{"-", "0.0008507990352269361`"}], ",", RowBox[{"-", "0.0008559422402507648`"}], ",", RowBox[{"-", "0.0008609034991799843`"}], ",", RowBox[{"-", "0.0008656662682650952`"}], ",", RowBox[{"-", "0.0008702099401791986`"}], ",", RowBox[{"-", "0.0008745118236866125`"}], ",", RowBox[{"-", "0.0008785440389604271`"}], ",", RowBox[{"-", "0.0008822745197212536`"}], ",", RowBox[{"-", "0.0008856622897508949`"}], ",", RowBox[{"-", "0.000888658202355435`"}], ",", RowBox[{"-", "0.0008911994120367681`"}], ",", RowBox[{"-", "0.0008932059982143786`"}], ",", RowBox[{"-", "0.0008945717985434365`"}], ",", RowBox[{"-", "0.0008951516585804491`"}], ",", RowBox[{"-", "0.000894739899538758`"}], ",", RowBox[{"-", "0.0008930271412322631`"}], ",", RowBox[{"-", "0.0008895153538519013`"}], ",", RowBox[{"-", "0.0008833305432693755`"}], ",", RowBox[{"-", "0.0008725378872352953`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274146058002*^9, 3.7816499023422127`*^9, 3.783980119056877*^9, 3.802469692703987*^9, 3.833634920004181*^9, 3.8340932543791637`*^9, 3.8342158544609222`*^9, 3.834308356118064*^9, 3.834995334686638*^9, 3.837858913828403*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"7733f401-c701-4344-83eb-b7e894cc296e"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridization1"], "Input", CellChangeTimes->{3.7626115836618834`*^9}, CellLabel-> "In[110]:=",ExpressionUUID->"1902eac6-3259-4951-8d93-ec53510f59f1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.6757397938976841`", ",", "0.6806473385073247`", ",", "0.6855125572770556`", ",", "0.6903333810050146`", ",", "0.6951064586507235`", ",", "0.6998290666462157`", ",", "0.7044966295167759`", ",", "0.7091041844288528`", ",", "0.7136462029648113`", ",", "0.7181156155294114`", ",", "0.7225042979214582`", ",", "0.7268023116563254`", ",", "0.7309973807457313`", ",", "0.7350750582216495`", ",", "0.7390120318788235`", ",", "0.7427808450622342`", ",", "0.7463571991315411`", ",", "0.7497013294471873`", ",", "0.7527608483147602`", ",", "0.7554645656057617`", ",", "0.7577104844974402`", ",", "0.7593821730629448`", ",", "0.7601403704597629`", ",", "0.759329330695275`", ",", "0.7544397413766619`", ",", "0.6538292644693839`", ",", "0.5159886674246713`", ",", "0.4687628307583434`", ",", "0.44998852415476454`", ",", "0.43935541201259903`", ",", "0.43162092493766785`", ",", "0.4252954437424808`", ",", "0.41980984158297613`", ",", "0.41457514731094597`", ",", "0.4095736526991943`", ",", "0.4047886229653019`", ",", "0.400206384440166`", ",", "0.39581321794840907`", ",", "0.39159781151801326`", ",", "0.38754911368458006`", ",", "0.38365652747856627`", ",", "0.37991245318259576`", ",", "0.37630766565085627`", ",", "0.37283399940241374`", ",", "0.36948493658421294`", ",", "0.3662540155270543`", ",", "0.3631339750790556`", ",", "0.36012037872908487`", ",", "0.3572070937314099`", ",", "0.35438995001049617`", ",", "0.35166295380418605`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.683643761683341`", ",", "0.6882447201360968`", ",", "0.6928047929735531`", ",", "0.6973214980319734`", ",", "0.7017928644209104`", ",", "0.7062173662009996`", ",", "0.7105919596667264`", ",", "0.7149135762233063`", ",", "0.7191790363189823`", ",", "0.7233842228327955`", ",", "0.7275247074899289`", ",", "0.7315952289210447`", ",", "0.7355894827975995`", ",", "0.7395000941075889`", ",", "0.7433130370903429`", ",", "0.7470191284939421`", ",", "0.7506087073401869`", ",", "0.7540669340740807`", ",", "0.7573759083967219`", ",", "0.7605137098070371`", ",", "0.763453879158537`", ",", "0.7661795987541499`", ",", "0.7686899389027909`", ",", "0.770880177629312`", ",", "0.7726743522255171`", ",", "0.7739584041739187`", ",", "0.7745495179954196`", ",", "0.7741144301858829`", ",", "0.771890781429171`", ",", "0.7641215239135545`", ",", "0.43580191722838896`", ",", "0.42844166508815146`", ",", "0.42276481435207175`", ",", "0.4173490445407322`", ",", "0.4121749764176691`", ",", "0.4072272373688234`", ",", "0.4024893254233398`", ",", "0.39794822838242866`", ",", "0.39359174159381255`", ",", "0.38940851220793166`", ",", "0.3853879615454175`", ",", "0.3815205048392394`", ",", "0.37779794369978364`", ",", "0.37421103374146836`", ",", "0.3707536843395227`", ",", "0.3674184334158863`", ",", "0.36419852392275515`", ",", "0.3610885615988099`", ",", "0.3580822180267136`", ",", "0.35517513954841196`", ",", "0.3523619189166861`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6920449113505335`", ",", "0.6963532859235801`", ",", "0.7006221307187762`", ",", "0.7048491628912438`", ",", "0.709034204711026`", ",", "0.7131753827402569`", ",", "0.7172710005920406`", ",", "0.7213191380567442`", ",", "0.7253179738053431`", ",", "0.7292650284011917`", ",", "0.7331581492868227`", ",", "0.7369934100098089`", ",", "0.740768300365766`", ",", "0.7444776423186658`", ",", "0.7481112797582646`", ",", "0.7516695779773208`", ",", "0.7551466251306749`", ",", "0.758535621476904`", ",", "0.7618285223786165`", ",", "0.7650161675759206`", ",", "0.7680878450855408`", ",", "0.7710309319597303`", ",", "0.773889176694038`", ",", "0.7766138421202735`", ",", "0.7791744892219578`", ",", "0.7815514164650775`", ",", "0.783719134256134`", ",", "0.7856449523724921`", ",", "0.7872883539766142`", ",", "0.7885929691811829`", ",", "0.7894814570081916`", ",", "0.7898382000484115`", ",", "0.7894769100999688`", ",", "0.7880529677503852`", ",", "0.7847592581740152`", ",", "0.7745223469206438`", ",", "0.40509431553851266`", ",", "0.40038463011186204`", ",", "0.3958675687810149`", ",", "0.39153234025537836`", ",", "0.387367202569571`", ",", "0.383361827856651`", ",", "0.3795066996229041`", ",", "0.37579413045284515`", ",", "0.37221618775449306`", ",", "0.36876519367139965`", ",", "0.36543395757678304`", ",", "0.362217706249895`", ",", "0.3591087241544874`", ",", "0.3561028814158877`", ",", "0.3531951018992447`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7104595697296475`", ",", "0.7142153256814558`", ",", "0.7179352674160561`", ",", "0.7216189003307514`", ",", "0.7252656678485075`", ",", "0.7288749467626532`", ",", "0.7324460417240992`", ",", "0.7359785033782694`", ",", "0.7394711257668338`", ",", "0.7429238522985293`", ",", "0.7463351720755644`", ",", "0.7497031525468163`", ",", "0.7530232616205156`", ",", "0.7562979693428066`", ",", "0.7595257662893652`", ",", "0.7627049048472935`", ",", "0.7658337509509954`", ",", "0.768910095259904`", ",", "0.7719318058163228`", ",", "0.7748960027339196`", ",", "0.7778002788545145`", ",", "0.7806411374632001`", ",", "0.7834357390560868`", ",", "0.7862022781435617`", ",", "0.7889044036699101`", ",", "0.7915386769540307`", ",", "0.7941026632175654`", ",", "0.7965939536327834`", ",", "0.7990092164700753`", ",", "0.8013443671345462`", ",", "0.8035962169793376`", ",", "0.8057598926002343`", ",", "0.8078308723912463`", ",", "0.8098033447951234`", ",", "0.8116716405555766`", ",", "0.8134286427727209`", ",", "0.8150674450908275`", ",", "0.8165790427099634`", ",", "0.8179538692802143`", ",", "0.8191797427052993`", ",", "0.8202438644221398`", ",", "0.8211297997233009`", ",", "0.8218183736085147`", ",", "0.822284978846967`", ",", "0.8224986659935211`", ",", "0.8224190178936872`", ",", "0.8219893763149534`", ",", "0.8211281752124692`", ",", "0.8197100446025604`", ",", "0.8175333006771538`", ",", "0.8140701584126095`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741461537323`*^9, 3.7816499024287243`*^9, 3.783980119166306*^9, 3.8024696928262587`*^9, 3.8336349200198603`*^9, 3.8340932544215527`*^9, 3.8342158545121307`*^9, 3.8343083561324387`*^9, 3.8349953347008038`*^9, 3.837858913847136*^9}, CellLabel-> "Out[110]=",ExpressionUUID->"1ec79979-27cf-4538-8760-b9e5fea7702d"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridization2"], "Input", CellChangeTimes->{3.7626115836620407`*^9}, CellLabel-> "In[112]:=",ExpressionUUID->"c754aee7-9f2a-437c-b047-da64ea52d4f0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.6757397938976826`", ",", "0.680647338507325`", ",", "0.6855125572770548`", ",", "0.6903333810050148`", ",", "0.6951064586507233`", ",", "0.6998290666462149`", ",", "0.7044966295167763`", ",", "0.7091041844288533`", ",", "0.7136462029648104`", ",", "0.7181156155294116`", ",", "0.7225042979214586`", ",", "0.7268023116563248`", ",", "0.7309973807457304`", ",", "0.7350750582216494`", ",", "0.7390120318788236`", ",", "0.7427808450622344`", ",", "0.7463571991315413`", ",", "0.7497013294471861`", ",", "0.7527608483147604`", ",", "0.7554645656057608`", ",", "0.7577104844974402`", ",", "0.759382173062945`", ",", "0.7601403704597628`", ",", "0.7593293306952755`", ",", "0.7544397413766475`", ",", "0.6538301339747953`", ",", "0.5159886674266526`", ",", "0.4687628307583418`", ",", "0.44998852415476415`", ",", "0.43935541201259937`", ",", "0.4316209249376679`", ",", "0.4252954437424804`", ",", "0.41980984158297613`", ",", "0.41457514731094597`", ",", "0.4095736526991943`", ",", "0.40478862296530194`", ",", "0.4002063844401663`", ",", "0.3958132179484092`", ",", "0.3915978115180132`", ",", "0.38754911368458034`", ",", "0.38365652747856627`", ",", "0.37991245318259553`", ",", "0.37630766565085627`", ",", "0.372833999402414`", ",", "0.3694849365842131`", ",", "0.3662540155270539`", ",", "0.3631339750790557`", ",", "0.3601203787290851`", ",", "0.3572070937314102`", ",", "0.35438995001049617`", ",", "0.351662953804186`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6836437616833406`", ",", "0.6882447201360972`", ",", "0.6928047929735527`", ",", "0.6973214980319734`", ",", "0.7017928644209105`", ",", "0.7062173662009998`", ",", "0.710591959666727`", ",", "0.7149135762233068`", ",", "0.7191790363189818`", ",", "0.7233842228327959`", ",", "0.7275247074899295`", ",", "0.7315952289210443`", ",", "0.7355894827975998`", ",", "0.7395000941075887`", ",", "0.7433130370903431`", ",", "0.7470191284939411`", ",", "0.7506087073401864`", ",", "0.7540669340740805`", ",", "0.7573759083967206`", ",", "0.7605137098070368`", ",", "0.7634538791585377`", ",", "0.7661795987541492`", ",", "0.7686899389027914`", ",", "0.7708801776293122`", ",", "0.7726743522255173`", ",", "0.7739584041739177`", ",", "0.7745495179954185`", ",", "0.7741144301858828`", ",", "0.7718907814291712`", ",", "0.7641215239136884`", ",", "0.43580191722838796`", ",", "0.4284416650881521`", ",", "0.4227648143520715`", ",", "0.41734904454073174`", ",", "0.4121749764176692`", ",", "0.40722723736882344`", ",", "0.40248932542333987`", ",", "0.39794822838242844`", ",", "0.39359174159381255`", ",", "0.3894085122079315`", ",", "0.3853879615454178`", ",", "0.38152050483923927`", ",", "0.37779794369978364`", ",", "0.37421103374146836`", ",", "0.37075368433952277`", ",", "0.36741843341588626`", ",", "0.36419852392275537`", ",", "0.3610885615988099`", ",", "0.3580822180267136`", ",", "0.35517513954841207`", ",", "0.35236191891668583`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6920449113505343`", ",", "0.6963532859235796`", ",", "0.7006221307187767`", ",", "0.7048491628912441`", ",", "0.7090342047110261`", ",", "0.713175382740256`", ",", "0.717271000592041`", ",", "0.7213191380567433`", ",", "0.7253179738053431`", ",", "0.7292650284011917`", ",", "0.7331581492868214`", ",", "0.7369934100098088`", ",", "0.7407683003657652`", ",", "0.7444776423186649`", ",", "0.7481112797582646`", ",", "0.7516695779773214`", ",", "0.7551466251306745`", ",", "0.7585356214769052`", ",", "0.7618285223786181`", ",", "0.7650161675759202`", ",", "0.7680878450855422`", ",", "0.7710309319597295`", ",", "0.7738891766940389`", ",", "0.7766138421202735`", ",", "0.7791744892219569`", ",", "0.7815514164650774`", ",", "0.7837191342561344`", ",", "0.7856449523724928`", ",", "0.787288353976614`", ",", "0.7885929691811845`", ",", "0.7894814570081911`", ",", "0.7898382000484112`", ",", "0.7894769100999695`", ",", "0.7880529677503855`", ",", "0.7847592581740196`", ",", "0.7745223469203638`", ",", "0.40509431553850855`", ",", "0.4003846301118615`", ",", "0.39586756878101487`", ",", "0.3915323402553784`", ",", "0.38736720256957086`", ",", "0.3833618278566508`", ",", "0.37950669962290423`", ",", "0.37579413045284515`", ",", "0.37221618775449294`", ",", "0.3687651936713996`", ",", "0.36543395757678315`", ",", "0.3622177062498948`", ",", "0.3591087241544873`", ",", "0.3561028814158875`", ",", "0.3531951018992447`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7104595697296477`", ",", "0.7142153256814571`", ",", "0.7179352674160561`", ",", "0.7216189003307518`", ",", "0.7252656678485075`", ",", "0.7288749467626526`", ",", "0.7324460417240994`", ",", "0.7359785033782695`", ",", "0.7394711257668334`", ",", "0.742923852298529`", ",", "0.7463351720755635`", ",", "0.7497031525468166`", ",", "0.7530232616205151`", ",", "0.7562979693428058`", ",", "0.7595257662893647`", ",", "0.7627049048472929`", ",", "0.7658337509509946`", ",", "0.7689100952599044`", ",", "0.771931805816323`", ",", "0.7748960027339191`", ",", "0.7778002788545146`", ",", "0.7806411374632007`", ",", "0.7834357390560878`", ",", "0.7862022781435613`", ",", "0.7889044036699102`", ",", "0.7915386769540312`", ",", "0.7941026632175663`", ",", "0.7965939536327835`", ",", "0.7990092164700751`", ",", "0.8013443671345467`", ",", "0.8035962169793376`", ",", "0.8057598926002347`", ",", "0.8078308723912461`", ",", "0.8098033447951234`", ",", "0.811671640555576`", ",", "0.8134286427727213`", ",", "0.8150674450908276`", ",", "0.8165790427099634`", ",", "0.8179538692802151`", ",", "0.8191797427052988`", ",", "0.8202438644221405`", ",", "0.8211297997233014`", ",", "0.8218183736085146`", ",", "0.8222849788469675`", ",", "0.8224986659935217`", ",", "0.822419017893688`", ",", "0.8219893763149537`", ",", "0.8211281752124696`", ",", "0.8197100446025603`", ",", "0.8175333006771541`", ",", "0.8140701584126097`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274146272232*^9, 3.781649902558805*^9, 3.783980119293263*^9, 3.802469692946128*^9, 3.833634920127932*^9, 3.834093254479863*^9, 3.834215854580269*^9, 3.83430835618596*^9, 3.834995334778029*^9, 3.8378589139001207`*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"41186a53-e900-4844-b674-9c8116d7dc21"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridimeasure2pop1"], "Input", CellLabel-> "In[113]:=",ExpressionUUID->"02f3d5af-b8ac-477d-83c0-df0979caa87f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.2422500401619191`", ",", "0.24544200014960926`", ",", "0.2486864172528248`", ",", "0.2519872910261324`", ",", "0.25534836953658946`", ",", "0.2587751330171104`", ",", "0.26227267838618873`", ",", "0.2658473878547264`", ",", "0.26950711502613833`", ",", "0.2732607378077603`", ",", "0.27711920721861794`", ",", "0.2810956240757335`", ",", "0.28520579652970324`", ",", "0.28946958801342526`", ",", "0.2939079345963007`", ",", "0.29855190202774395`", ",", "0.3034483835265289`", ",", "0.30865574376060534`", ",", "0.31425741201754065`", ",", "0.32037915011645335`", ",", "0.32722063497427556`", ",", "0.3352320711062988`", ",", "0.3449649587749052`", ",", "0.3579846798608062`", ",", "0.3813073961009523`", ",", "0.6687289972684016`", ",", "0.6833215147302352`", ",", "0.6858593564323863`", ",", "0.6868806258270558`", ",", "0.6875424725437955`", ",", "0.6880691492730664`", ",", "0.6885216332284241`", ",", "0.6889241217565119`", ",", "0.6892947413219013`", ",", "0.6896373170266956`", ",", "0.6899550763146822`", ",", "0.6902507314197515`", ",", "0.6905266179323599`", ",", "0.6907847282515307`", ",", "0.6910267958554491`", ",", "0.6912543331051424`", ",", "0.69146864316325`", ",", "0.6916708932458056`", ",", "0.6918621095115483`", ",", "0.6920431948728082`", ",", "0.6922149572711895`", ",", "0.6923781247991362`", ",", "0.6925333390598107`", ",", "0.6926811865417967`", ",", "0.6928221909147896`", ",", "0.692956831657868`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23696275419548607`", ",", "0.23978983599640724`", ",", "0.24265288176886923`", ",", "0.24555300908964006`", ",", "0.24849227186956302`", ",", "0.2514736601643801`", ",", "0.25449936897327796`", ",", "0.2575722730630997`", ",", "0.2606959534947043`", ",", "0.26387408131283574`", ",", "0.2671111434481658`", ",", "0.2704121551313846`", ",", "0.2737826874432514`", ",", "0.27722901720166315`", ",", "0.28075494434271187`", ",", "0.2843713631158651`", ",", "0.2880913063084959`", ",", "0.29192858868667515`", ",", "0.295899719196862`", ",", "0.30002639886427607`", ",", "0.3043372289575741`", ",", "0.3088989380695304`", ",", "0.31383287974735985`", ",", "0.3191280541506537`", ",", "0.324902886616634`", ",", "0.33133684027054966`", ",", "0.33873302526891236`", ",", "0.34767610220534917`", ",", "0.35960568263647674`", ",", "0.38251389623063337`", ",", "0.6869691705070853`", ",", "0.6875191424359528`", ",", "0.6879834194947262`", ",", "0.6884088246577678`", ",", "0.6888003037018684`", ",", "0.6891619307472828`", ",", "0.6894971782632245`", ",", "0.6898089501610716`", ",", "0.6900997320462383`", ",", "0.6903716628766806`", ",", "0.690626593887798`", ",", "0.6908661326651336`", ",", "0.6910916782696553`", ",", "0.6913044762500897`", ",", "0.6915056029797597`", ",", "0.691696029234943`", ",", "0.6918766161925867`", ",", "0.6920481272476166`", ",", "0.692211254115518`", ",", "0.6923666106387787`", ",", "0.692514756819866`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2318534808855207`", ",", "0.23435799106076383`", ",", "0.23688653139842342`", ",", "0.239438981311894`", ",", "0.2420173522759984`", ",", "0.244622369064194`", ",", "0.24725519451052425`", ",", "0.24991709892053848`", ",", "0.2526097787319702`", ",", "0.25533472347047403`", ",", "0.2580941067105659`", ",", "0.2608890409218856`", ",", "0.2637222592361377`", ",", "0.26659477922470487`", ",", "0.2695055984407364`", ",", "0.27246171968726296`", ",", "0.27546641152997253`", ",", "0.2785231823049429`", ",", "0.28163611477370964`", ",", "0.28480988521178385`", ",", "0.28804982254442923`", ",", "0.291362016248337`", ",", "0.29484255025164596`", ",", "0.29844706855860836`", ",", "0.3021730459061227`", ",", "0.3060444163132159`", ",", "0.31008941271776824`", ",", "0.3143438575687665`", ",", "0.3188578716542647`", ",", "0.32369836397395346`", ",", "0.32896466022413084`", ",", "0.3348098673112462`", ",", "0.3414939267681387`", ",", "0.3495191039238912`", ",", "0.3601260733394256`", ",", "0.3819461958606555`", ",", "0.6885904774768374`", ",", "0.6889486039052195`", ",", "0.6892813266091203`", ",", "0.6895913556892568`", ",", "0.6898810475165882`", ",", "0.6901524262621481`", ",", "0.6904072480199346`", ",", "0.6906470322014446`", ",", "0.6908731227553111`", ",", "0.6910867067446816`", ",", "0.6912888339758233`", ",", "0.6914804218826174`", ",", "0.6916623144660042`", ",", "0.6918352442758434`", ",", "0.691999878805249`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.22209245568014024`", ",", "0.2240511053944394`", ",", "0.22601929792917852`", ",", "0.2279971842917412`", ",", "0.22998491601626014`", ",", "0.23198264357623521`", ",", "0.2339905141763733`", ",", "0.23600894011476836`", ",", "0.23803775380067482`", ",", "0.2400777840691961`", ",", "0.24212868556391143`", ",", "0.24418985583518849`", ",", "0.2462591731992133`", ",", "0.24833964427084976`", ",", "0.25043132934842827`", ",", "0.25253427348737967`", ",", "0.25464845108976564`", ",", "0.2567736886165506`", ",", "0.25891008391477777`", ",", "0.2610566898751605`", ",", "0.2632138076617887`", ",", "0.2653803190502697`", ",", "0.26758298188664775`", ",", "0.26984766783905334`", ",", "0.2721297014401137`", ",", "0.27442986849206386`", ",", "0.2767505798210189`", ",", "0.27909458921382535`", ",", "0.28146396068179835`", ",", "0.28386043826498564`", ",", "0.28628737297773965`", ",", "0.28874695516039317`", ",", "0.29124259329002644`", ",", "0.29377731872258583`", ",", "0.29635545089860305`", ",", "0.2989812225416343`", ",", "0.3016606470424612`", ",", "0.30439969505842357`", ",", "0.30720617159144814`", ",", "0.31008858733304834`", ",", "0.31305854924314724`", ",", "0.3161295022847499`", ",", "0.3193189248541405`", ",", "0.3226488313150083`", ",", "0.32614860915809507`", ",", "0.3298584131637291`", ",", "0.333834997390291`", ",", "0.33816357324334334`", ",", "0.34298032528525446`", ",", "0.34852016003328146`", ",", "0.3553120346436055`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.78027414636417*^9, 3.781649902647272*^9, 3.783980119386355*^9, 3.802469693030973*^9, 3.8336349201431627`*^9, 3.834093254520382*^9, 3.83421585463209*^9, 3.8343083562138166`*^9, 3.8349953349031487`*^9, 3.837858913929541*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"de152b81-64f6-47d8-94bc-9c2f7e6a967d"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridimeasure2pop2"], "Input", CellLabel-> "In[120]:=",ExpressionUUID->"ae46cd2c-35ef-4a7c-9bc0-dc58c72480ab"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.24225004016191876`", ",", "0.24544200014960937`", ",", "0.24868641725282414`", ",", "0.2519872910261326`", ",", "0.2553483695365897`", ",", "0.25877513301710997`", ",", "0.2622726783861886`", ",", "0.2658473878547266`", ",", "0.269507115026138`", ",", "0.27326073780775995`", ",", "0.2771192072186177`", ",", "0.28109562407573385`", ",", "0.285205796529703`", ",", "0.28946958801342526`", ",", "0.2939079345963008`", ",", "0.2985519020277442`", ",", "0.30344838352652914`", ",", "0.3086557437606048`", ",", "0.31425741201754065`", ",", "0.320379150116453`", ",", "0.32722063497427545`", ",", "0.3352320711062988`", ",", "0.34496495877490496`", ",", "0.35798467986080573`", ",", "0.3813073961008805`", ",", "0.6687286007454769`", ",", "0.6833215147298015`", ",", "0.6858593564323865`", ",", "0.6868806258270557`", ",", "0.6875424725437953`", ",", "0.6880691492730664`", ",", "0.688521633228425`", ",", "0.6889241217565114`", ",", "0.6892947413219006`", ",", "0.6896373170266958`", ",", "0.6899550763146822`", ",", "0.6902507314197514`", ",", "0.6905266179323595`", ",", "0.6907847282515304`", ",", "0.6910267958554481`", ",", "0.6912543331051426`", ",", "0.6914686431632499`", ",", "0.6916708932458054`", ",", "0.6918621095115481`", ",", "0.6920431948728079`", ",", "0.69221495727119`", ",", "0.692378124799136`", ",", "0.6925333390598107`", ",", "0.6926811865417963`", ",", "0.6928221909147894`", ",", "0.6929568316578683`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23696275419548596`", ",", "0.23978983599640724`", ",", "0.24265288176886868`", ",", "0.24555300908964028`", ",", "0.2484922718695629`", ",", "0.25147366016438033`", ",", "0.2544993689732774`", ",", "0.2575722730630998`", ",", "0.260695953494704`", ",", "0.26387408131283574`", ",", "0.2671111434481652`", ",", "0.2704121551313845`", ",", "0.2737826874432514`", ",", "0.27722901720166315`", ",", "0.280754944342712`", ",", "0.2843713631158654`", ",", "0.28809130630849555`", ",", "0.29192858868667493`", ",", "0.29589971919686153`", ",", "0.3000263988642766`", ",", "0.3043372289575744`", ",", "0.30889893806952995`", ",", "0.31383287974735996`", ",", "0.31912805415065404`", ",", "0.32490288661663425`", ",", "0.33133684027054866`", ",", "0.3387330252689109`", ",", "0.3476761022053494`", ",", "0.3596056826364773`", ",", "0.38251389623151677`", ",", "0.6869691705070855`", ",", "0.687519142435953`", ",", "0.6879834194947267`", ",", "0.688408824657768`", ",", "0.6888003037018683`", ",", "0.6891619307472827`", ",", "0.6894971782632244`", ",", "0.6898089501610716`", ",", "0.6900997320462383`", ",", "0.690371662876681`", ",", "0.6906265938877979`", ",", "0.6908661326651331`", ",", "0.6910916782696552`", ",", "0.6913044762500897`", ",", "0.69150560297976`", ",", "0.691696029234943`", ",", "0.6918766161925867`", ",", "0.6920481272476166`", ",", "0.6922112541155183`", ",", "0.6923666106387787`", ",", "0.6925147568198664`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23185348088552082`", ",", "0.23435799106076427`", ",", "0.2368865313984233`", ",", "0.23943898131189367`", ",", "0.2420173522759983`", ",", "0.24462236906419377`", ",", "0.24725519451052413`", ",", "0.24991709892053815`", ",", "0.2526097787319702`", ",", "0.2553347234704738`", ",", "0.258094106710566`", ",", "0.26088904092188536`", ",", "0.26372225923613746`", ",", "0.2665947792247043`", ",", "0.2695055984407366`", ",", "0.2724617196872634`", ",", "0.2754664115299723`", ",", "0.278523182304943`", ",", "0.2816361147737101`", ",", "0.2848098852117835`", ",", "0.28804982254442946`", ",", "0.291362016248337`", ",", "0.2948425502516461`", ",", "0.2984470685586087`", ",", "0.3021730459061224`", ",", "0.30604441631321533`", ",", "0.310089412717768`", ",", "0.31434385756876715`", ",", "0.3188578716542647`", ",", "0.3236983639739546`", ",", "0.3289646602241306`", ",", "0.33480986731124496`", ",", "0.3414939267681397`", ",", "0.34951910392389085`", ",", "0.36012607333943614`", ",", "0.38194619585795264`", ",", "0.6885904774768384`", ",", "0.6889486039052193`", ",", "0.6892813266091204`", ",", "0.6895913556892563`", ",", "0.6898810475165884`", ",", "0.6901524262621486`", ",", "0.690407248019935`", ",", "0.6906470322014445`", ",", "0.6908731227553117`", ",", "0.6910867067446816`", ",", "0.6912888339758234`", ",", "0.6914804218826176`", ",", "0.6916623144660042`", ",", "0.6918352442758433`", ",", "0.6919998788052492`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.22209245568014013`", ",", "0.2240511053944395`", ",", "0.22601929792917852`", ",", "0.2279971842917412`", ",", "0.22998491601626014`", ",", "0.231982643576235`", ",", "0.23399051417637318`", ",", "0.23600894011476825`", ",", "0.23803775380067504`", ",", "0.2400777840691961`", ",", "0.24212868556391154`", ",", "0.24418985583518837`", ",", "0.24625917319921264`", ",", "0.2483396442708493`", ",", "0.25043132934842793`", ",", "0.2525342734873802`", ",", "0.2546484510897654`", ",", "0.2567736886165508`", ",", "0.2589100839147779`", ",", "0.2610566898751605`", ",", "0.2632138076617888`", ",", "0.2653803190502697`", ",", "0.2675829818866472`", ",", "0.2698476678390529`", ",", "0.2721297014401135`", ",", "0.27442986849206386`", ",", "0.27675057982101947`", ",", "0.279094589213825`", ",", "0.28146396068179835`", ",", "0.28386043826498564`", ",", "0.2862873729777399`", ",", "0.2887469551603934`", ",", "0.29124259329002666`", ",", "0.2937773187225856`", ",", "0.29635545089860327`", ",", "0.2989812225416346`", ",", "0.30166064704246087`", ",", "0.3043996950584229`", ",", "0.30720617159144825`", ",", "0.31008858733304767`", ",", "0.31305854924314713`", ",", "0.31612950228475034`", ",", "0.31931892485414026`", ",", "0.32264883131500877`", ",", "0.32614860915809574`", ",", "0.32985841316372966`", ",", "0.3338349973902911`", ",", "0.3381635732433439`", ",", "0.34298032528525413`", ",", "0.34852016003327835`", ",", "0.35531203464360517`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741464578867`*^9, 3.781649902735553*^9, 3.7839801195468616`*^9, 3.80246969325382*^9, 3.833634920383854*^9, 3.8340932547544823`*^9, 3.834215854883494*^9, 3.834308356551117*^9, 3.834995335088669*^9, 3.837858914114634*^9}, CellLabel-> "Out[120]=",ExpressionUUID->"c6b35464-4fd9-41a5-95ba-abad67be5135"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridimeasure3pop1"], "Input", CellLabel-> "In[121]:=",ExpressionUUID->"7a11886a-a4a6-43d3-bbae-1edd9b0d32bc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.24679187023519977`", ",", "0.25017728510725634`", ",", "0.2536302052070841`", ",", "0.2571563885284296`", ",", "0.2607615910628823`", ",", "0.26445366802273096`", ",", "0.2682404542333592`", ",", "0.27213157270921706`", ",", "0.2761387392775815`", ",", "0.28027544029935736`", ",", "0.28455821019330985`", ",", "0.28900696287089656`", ",", "0.29364591238158133`", ",", "0.29850543816411124`", ",", "0.3036196812902887`", ",", "0.3090372427660957`", ",", "0.31482834531297055`", ",", "0.32108313406604827`", ",", "0.3279301702309001`", ",", "0.3355625478259777`", ",", "0.34428664603998305`", ",", "0.3547618377944126`", ",", "0.3678856688058756`", ",", "0.3861165454398169`", ",", "0.4205489148690331`", ",", "0.935373776752309`", ",", "0.9673128874424113`", ",", "0.9728928210331089`", ",", "0.9750120252933319`", ",", "0.9763003061701536`", ",", "0.9772802834405214`", ",", "0.978094881956173`", ",", "0.9788007036457449`", ",", "0.9794433489659977`", ",", "0.9800309778656142`", ",", "0.9805704342786874`", ",", "0.9810674023711586`", ",", "0.98152675808341`", ",", "0.9819526075835112`", ",", "0.9823485061450264`", ",", "0.9827175401364718`", ",", "0.983062305968017`", ",", "0.9833851532781628`", ",", "0.9836881260431933`", ",", "0.9839729868212376`", ",", "0.9842413083662818`", ",", "0.9844945259471337`", ",", "0.9847338430923092`", ",", "0.9849603973039552`", ",", "0.9851751607543565`", ",", "0.9853790680369569`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.241184247053166`", ",", "0.24416440386594296`", ",", "0.2471903966066571`", ",", "0.2502642574334517`", ",", "0.2533890904528102`", ",", "0.2565690930395762`", ",", "0.25980779482834016`", ",", "0.2631096013488128`", ",", "0.2664798549624646`", ",", "0.26992423755960493`", ",", "0.27344956837802936`", ",", "0.27706356610822447`", ",", "0.28077494947202264`", ",", "0.28459367778795397`", ",", "0.28852782408816813`", ",", "0.2925936580337113`", ",", "0.29681066317087423`", ",", "0.30120052119775764`", ",", "0.3057894283864879`", ",", "0.3106114189677466`", ",", "0.31571100768425064`", ",", "0.3211794230676148`", ",", "0.3271764573972088`", ",", "0.3337226476152959`", ",", "0.34099885202230806`", ",", "0.3492821066385474`", ",", "0.3590426253219192`", ",", "0.37119211966849275`", ",", "0.3879863086413553`", ",", "0.42198636728436534`", ",", "0.9752789674595392`", ",", "0.9763074670101911`", ",", "0.9771428202954837`", ",", "0.9778993323007856`", ",", "0.9785877442184227`", ",", "0.9792168170836025`", ",", "0.9797939970086189`", ",", "0.9803254392768183`", ",", "0.9808163759581863`", ",", "0.9812712775016229`", ",", "0.9816939862492253`", ",", "0.9820878110132476`", ",", "0.9824555968424881`", ",", "0.982799889608709`", ",", "0.9831228246410143`", ",", "0.9834263488771731`", ",", "0.9837121742039466`", ",", "0.98398178752839`", ",", "0.9842365553087269`", ",", "0.9844776466496314`", ",", "0.984706151272338`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23579727364875658`", ",", "0.23842392073319185`", ",", "0.24108112243847235`", ",", "0.2437692372706265`", ",", "0.2464908570330161`", ",", "0.24924730949232754`", ",", "0.25204043299261736`", ",", "0.2548722459519204`", ",", "0.25774528432962895`", ",", "0.2606619619747681`", ",", "0.2636254999914859`", ",", "0.26663814515396933`", ",", "0.2697039459365911`", ",", "0.2728253361092077`", ",", "0.27600289815806056`", ",", "0.27924564122042084`", ",", "0.28255900299011627`", ",", "0.2859489693889259`", ",", "0.2894225033910147`", ",", "0.2929876253005146`", ",", "0.29665357533908276`", ",", "0.3004310478779061`", ",", "0.30442890947583445`", ",", "0.3086058537973039`", ",", "0.3129668547882424`", ",", "0.31754748696323354`", ",", "0.322390747342986`", ",", "0.32755176251787876`", ",", "0.33310692126322805`", ",", "0.3391596665371993`", ",", "0.34586308882690076`", ",", "0.35345417004652047`", ",", "0.36233598422479263`", ",", "0.37329021813907026`", ",", "0.3882546431630327`", ",", "0.42068948154575825`", ",", "0.978221977542989`", ",", "0.9788485998394229`", ",", "0.9794249651047047`", ",", "0.9799568342144419`", ",", "0.9804492059890996`", ",", "0.9809063382129601`", ",", "0.9813318988271857`", ",", "0.9817290183990771`", ",", "0.9821004591401898`", ",", "0.9824486498288834`", ",", "0.9827757254124839`", ",", "0.983083498079449`", ",", "0.9833736926056461`", ",", "0.9836477316134197`", ",", "0.9839069276735496`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.22557841483131602`", ",", "0.22761622446142848`", ",", "0.22966645559396326`", ",", "0.2317294068834277`", ",", "0.23380538652767058`", ",", "0.23589471131052042`", ",", "0.23799770506341567`", ",", "0.24011497376616298`", ",", "0.24224654272591672`", ",", "0.24439346867831935`", ",", "0.24655562118950314`", ",", "0.24873262078700376`", ",", "0.2509225552865706`", ",", "0.2531287711760868`", ",", "0.25535162208195716`", ",", "0.25759146864120264`", ",", "0.2598486160663054`", ",", "0.26212324637043183`", ",", "0.26441584943500596`", ",", "0.26672585587882636`", ",", "0.2690540285256625`", ",", "0.27139968603228304`", ",", "0.2737912508817092`", ",", "0.2762563631068631`", ",", "0.27874911788086953`", ",", "0.28127104284051485`", ",", "0.28382544109250163`", ",", "0.2864160621965832`", ",", "0.2890460340766019`", ",", "0.2917182638551167`", ",", "0.2944374652751973`", ",", "0.29720729358694653`", ",", "0.30003285254787926`", ",", "0.30291906762360565`", ",", "0.3058724590151156`", ",", "0.30889976992420864`", ",", "0.31200996427921945`", ",", "0.31521243792799336`", ",", "0.31851906911956296`", ",", "0.32194324243536465`", ",", "0.3255024901536101`", ",", "0.32921756501908894`", ",", "0.33311510737036965`", ",", "0.3372289224207695`", ",", "0.34160393470685047`", ",", "0.34630141322122077`", ",", "0.3514082147157941`", ",", "0.35705458261727496`", ",", "0.3634486524832333`", ",", "0.37094883574810755`", ",", "0.38037688777784096`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274146568749*^9, 3.781649902824767*^9, 3.783980119670336*^9, 3.802469693337463*^9, 3.833634920423154*^9, 3.8340932547953157`*^9, 3.8342158549356823`*^9, 3.834308356578342*^9, 3.834995335115295*^9, 3.837858914143079*^9}, CellLabel-> "Out[121]=",ExpressionUUID->"e453f7f0-a747-4724-95eb-3023a9e90a6a"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabhybridimeasure3pop2"], "Input", CellLabel-> "In[124]:=",ExpressionUUID->"dda6af91-c7cd-4ea4-bb44-943caefaa5fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.24679187023519955`", ",", "0.25017728510725645`", ",", "0.25363020520708346`", ",", "0.2571563885284299`", ",", "0.26076159106288255`", ",", "0.2644536680227303`", ",", "0.26824045423335907`", ",", "0.2721315727092172`", ",", "0.27613873927758137`", ",", "0.280275440299357`", ",", "0.28455821019330974`", ",", "0.289006962870897`", ",", "0.293645912381581`", ",", "0.29850543816411124`", ",", "0.3036196812902888`", ",", "0.309037242766096`", ",", "0.31482834531297077`", ",", "0.3210831340660475`", ",", "0.3279301702309`", ",", "0.3355625478259773`", ",", "0.34428664603998294`", ",", "0.35476183779441217`", ",", "0.36788566880587537`", ",", "0.38611654543981677`", ",", "0.42054891486892376`", ",", "0.9353731914062718`", ",", "0.967312887441828`", ",", "0.9728928210331093`", ",", "0.9750120252933319`", ",", "0.9763003061701536`", ",", "0.9772802834405214`", ",", "0.978094881956173`", ",", "0.9788007036457449`", ",", "0.9794433489659978`", ",", "0.9800309778656142`", ",", "0.9805704342786873`", ",", "0.9810674023711587`", ",", "0.98152675808341`", ",", "0.9819526075835112`", ",", "0.9823485061450264`", ",", "0.9827175401364718`", ",", "0.983062305968017`", ",", "0.9833851532781628`", ",", "0.9836881260431933`", ",", "0.9839729868212376`", ",", "0.9842413083662818`", ",", "0.9844945259471337`", ",", "0.9847338430923092`", ",", "0.9849603973039552`", ",", "0.9851751607543565`", ",", "0.9853790680369569`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.241184247053166`", ",", "0.24416440386594296`", ",", "0.24719039660665643`", ",", "0.25026425743345193`", ",", "0.2533890904528101`", ",", "0.25656909303957653`", ",", "0.2598077948283397`", ",", "0.263109601348813`", ",", "0.2664798549624644`", ",", "0.26992423755960493`", ",", "0.2734495683780287`", ",", "0.27706356610822436`", ",", "0.28077494947202253`", ",", "0.28459367778795397`", ",", "0.28852782408816824`", ",", "0.2925936580337115`", ",", "0.2968106631708738`", ",", "0.30120052119775753`", ",", "0.3057894283864875`", ",", "0.31061141896774724`", ",", "0.315711007684251`", ",", "0.32117942306761416`", ",", "0.3271764573972089`", ",", "0.333722647615296`", ",", "0.3409988520223085`", ",", "0.349282106638546`", ",", "0.35904262532191744`", ",", "0.3711921196684931`", ",", "0.3879863086413563`", ",", "0.42198636728571703`", ",", "0.9752789674595395`", ",", "0.976307467010191`", ",", "0.9771428202954836`", ",", "0.9778993323007855`", ",", "0.9785877442184227`", ",", "0.9792168170836025`", ",", "0.9797939970086189`", ",", "0.9803254392768183`", ",", "0.9808163759581863`", ",", "0.9812712775016229`", ",", "0.9816939862492253`", ",", "0.9820878110132477`", ",", "0.9824555968424881`", ",", "0.982799889608709`", ",", "0.9831228246410143`", ",", "0.9834263488771731`", ",", "0.9837121742039465`", ",", "0.98398178752839`", ",", "0.9842365553087269`", ",", "0.9844776466496314`", ",", "0.984706151272338`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.23579727364875658`", ",", "0.23842392073319219`", ",", "0.24108112243847213`", ",", "0.24376923727062605`", ",", "0.2464908570330161`", ",", "0.24924730949232698`", ",", "0.25204043299261736`", ",", "0.25487224595192015`", ",", "0.25774528432962884`", ",", "0.260661961974768`", ",", "0.263625499991486`", ",", "0.2666381451539689`", ",", "0.26970394593659064`", ",", "0.2728253361092069`", ",", "0.27600289815806067`", ",", "0.2792456412204213`", ",", "0.28255900299011594`", ",", "0.2859489693889259`", ",", "0.28942250339101516`", ",", "0.29298762530051425`", ",", "0.2966535753390829`", ",", "0.300431047877906`", ",", "0.30442890947583456`", ",", "0.3086058537973042`", ",", "0.3129668547882418`", ",", "0.31754748696323276`", ",", "0.3223907473429859`", ",", "0.32755176251787943`", ",", "0.33310692126322805`", ",", "0.33915966653720064`", ",", "0.3458630888269002`", ",", "0.3534541700465188`", ",", "0.3623359842247942`", ",", "0.37329021813907004`", ",", "0.3882546431630478`", ",", "0.4206894815416249`", ",", "0.9782219775429897`", ",", "0.978848599839423`", ",", "0.9794249651047047`", ",", "0.9799568342144419`", ",", "0.9804492059890995`", ",", "0.9809063382129601`", ",", "0.9813318988271857`", ",", "0.9817290183990771`", ",", "0.9821004591401898`", ",", "0.9824486498288834`", ",", "0.982775725412484`", ",", "0.983083498079449`", ",", "0.9833736926056461`", ",", "0.9836477316134197`", ",", "0.9839069276735496`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.2255784148313158`", ",", "0.2276162244614286`", ",", "0.22966645559396326`", ",", "0.23172940688342758`", ",", "0.2338053865276707`", ",", "0.2358947113105201`", ",", "0.23799770506341544`", ",", "0.24011497376616275`", ",", "0.24224654272591706`", ",", "0.24439346867831935`", ",", "0.24655562118950358`", ",", "0.24873262078700376`", ",", "0.2509225552865699`", ",", "0.25312877117608634`", ",", "0.25535162208195683`", ",", "0.2575914686412031`", ",", "0.25984861606630516`", ",", "0.26212324637043205`", ",", "0.2644158494350062`", ",", "0.26672585587882636`", ",", "0.2690540285256625`", ",", "0.2713996860322829`", ",", "0.27379125088170864`", ",", "0.27625636310686286`", ",", "0.2787491178808694`", ",", "0.28127104284051496`", ",", "0.2838254410925023`", ",", "0.2864160621965828`", ",", "0.2890460340766018`", ",", "0.29171826385511657`", ",", "0.29443746527519765`", ",", "0.29720729358694675`", ",", "0.3000328525478795`", ",", "0.30291906762360554`", ",", "0.30587245901511584`", ",", "0.3088997699242091`", ",", "0.3120099642792191`", ",", "0.3152124379279927`", ",", "0.3185190691195632`", ",", "0.3219432424353641`", ",", "0.3255024901536099`", ",", "0.3292175650190893`", ",", "0.33311510737036965`", ",", "0.33722892242076996`", ",", "0.34160393470685124`", ",", "0.3463014132212212`", ",", "0.3514082147157942`", ",", "0.3570545826172755`", ",", "0.3634486524832329`", ",", "0.37094883574810344`", ",", "0.38037688777784073`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274146658935*^9, 3.781649902906027*^9, 3.783980119829892*^9, 3.802469693490067*^9, 3.833634920585862*^9, 3.8340932549224586`*^9, 3.83421585510713*^9, 3.834308356686811*^9, 3.834995335220531*^9, 3.8378589142478437`*^9}, CellLabel-> "Out[124]=",ExpressionUUID->"e66f96c8-454a-418c-94cf-68235cbea3b7"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabdiffR"], "Input", CellChangeTimes->{3.762611583662198*^9}, CellLabel-> "In[125]:=",ExpressionUUID->"0d6a3211-dc9c-414e-a053-09af6fae4862"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.49296680179501384`", ",", "0.49258095104632815`", ",", "0.49210903062569755`", ",", "0.4915460793852827`", ",", "0.4908869755178109`", ",", "0.4901248990098005`", ",", "0.4892528409667928`", ",", "0.48826226123206384`", ",", "0.4871428258624091`", ",", "0.4858825946804941`", ",", "0.4844670428299126`", ",", "0.48287877119844014`", ",", "0.4810968010304786`", ",", "0.479095505578082`", ",", "0.47684469028499943`", ",", "0.4742991452331531`", ",", "0.4714010389348765`", ",", "0.46807267263903607`", ",", "0.46420337685984026`", ",", "0.4596261472420847`", ",", "0.45407577658713016`", ",", "0.4469333378315461`", ",", "0.43748320660361517`", ",", "0.42362093227147124`", ",", "0.3958458025250007`", ",", RowBox[{"-", "0.03509232694708253`"}], ",", RowBox[{"-", "0.019915429575152133`"}], ",", RowBox[{"-", "0.007283626601205073`"}], ",", RowBox[{"-", "0.0029495085639720253`"}], ",", RowBox[{"-", "0.0013116461422562065`"}], ",", RowBox[{"-", "0.0006240345019177251`"}], ",", RowBox[{"-", "0.00037165530801208657`"}], ",", RowBox[{"-", "0.0003565707333995638`"}], ",", RowBox[{"-", "0.00034390287136876196`"}], ",", RowBox[{"-", "0.0003332570622381903`"}], ",", RowBox[{"-", "0.0003239361007317809`"}], ",", RowBox[{"-", "0.000315993707617368`"}], ",", RowBox[{"-", "0.00030889295521663307`"}], ",", RowBox[{"-", "0.00030272178175105857`"}], ",", RowBox[{"-", "0.0002972366515794356`"}], ",", RowBox[{"-", "0.0002919812013506551`"}], ",", RowBox[{"-", "0.0002876312529446201`"}], ",", RowBox[{"-", "0.00028369597908839417`"}], ",", RowBox[{"-", "0.0002798910678122324`"}], ",", RowBox[{"-", "0.00027650778703403045`"}], ",", RowBox[{"-", "0.00027360890220951006`"}], ",", RowBox[{"-", "0.0002705583093922659`"}], ",", RowBox[{"-", "0.00026804486222753443`"}], ",", RowBox[{"-", "0.0002656042050277474`"}], ",", RowBox[{"-", "0.00026368245740238105`"}], ",", RowBox[{"-", "0.00026148808325621165`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5004985780945043`", ",", "0.5002819963929301`", ",", "0.4999987196290334`", ",", "0.4996468081182174`", ",", "0.4992234550482765`", ",", "0.49872495671372774`", ",", "0.4981480030305453`", ",", "0.4974885319735043`", ",", "0.49674168159299636`", ",", "0.4959022173478609`", ",", "0.49496396069561444`", ",", "0.49391998893061106`", ",", "0.4927626282560341`", ",", "0.49148354134735894`", ",", "0.490073448933377`", ",", "0.4885171419744877`", ",", "0.48679861675684555`", ",", "0.4848983979934166`", ",", "0.48279408695610293`", ",", "0.48045533445377975`", ",", "0.4778427224120404`", ",", "0.47485933285571114`", ",", "0.4713318219482381`", ",", "0.46729237258489154`", ",", "0.46257415807540114`", ",", "0.4569276721029195`", ",", "0.4499330747242225`", ",", "0.4407808448371716`", ",", "0.4274740248000909`", ",", "0.39885033441697737`", ",", RowBox[{"-", "0.001004296382790315`"}], ",", RowBox[{"-", "0.0003660839398511584`"}], ",", RowBox[{"-", "0.00035266334967787305`"}], ",", RowBox[{"-", "0.0003413113425629888`"}], ",", RowBox[{"-", "0.00033129231223993916`"}], ",", RowBox[{"-", "0.00032295307358898295`"}], ",", RowBox[{"-", "0.00031535639997248843`"}], ",", RowBox[{"-", "0.0003086217247159073`"}], ",", RowBox[{"-", "0.00030270556390343817`"}], ",", RowBox[{"-", "0.0002974778157432967`"}], ",", RowBox[{"-", "0.0002927322305839031`"}], ",", RowBox[{"-", "0.00028835253337688993`"}], ",", RowBox[{"-", "0.00028458195456382285`"}], ",", RowBox[{"-", "0.00028072693006175875`"}], ",", RowBox[{"-", "0.0002775105946638545`"}], ",", RowBox[{"-", "0.00027460004583779174`"}], ",", RowBox[{"-", "0.0002717722418349444`"}], ",", RowBox[{"-", "0.00026933531282424816`"}], ",", RowBox[{"-", "0.00026681535836781123`"}], ",", RowBox[{"-", "0.0002646839776018206`"}], ",", RowBox[{"-", "0.00026258637726328526`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5078284175248096`", ",", "0.5077477653754624`", ",", "0.5076150657787942`", ",", "0.5074298326532669`", ",", "0.5071898723091463`", ",", "0.5068938866824717`", ",", "0.5065401505404163`", ",", "0.506126756275017`", ",", "0.5056513798144416`", ",", "0.5051117465027832`", ",", "0.5045050347736623`", ",", "0.5038290346542704`", ",", "0.5030806202235681`", ",", "0.5022577808695056`", ",", "0.5013561348720168`", ",", "0.5003700549498561`", ",", "0.49929460273148574`", ",", "0.4981247489534206`", ",", "0.4968541601551961`", ",", "0.4954759419627297`", ",", "0.49398232192249636`", ",", "0.49236452545655407`", ",", "0.4904709893795217`", ",", "0.48838228741209866`", ",", "0.48610311698431297`", ",", "0.48359696057567914`", ",", "0.4808221850441905`", ",", "0.4777269104913765`", ",", "0.47423914009286994`", ",", "0.4702633530756205`", ",", "0.46565798469279773`", ",", "0.4602051334191649`", ",", "0.45353488510907947`", ",", "0.4449324092933419`", ",", "0.43263036362699114`", ",", "0.40427829409541505`", ",", RowBox[{"-", "0.00031478473002932716`"}], ",", RowBox[{"-", "0.00030858156695567907`"}], ",", RowBox[{"-", "0.0003027448034178537`"}], ",", RowBox[{"-", "0.00029786701274148175`"}], ",", RowBox[{"-", "0.00029347088506892494`"}], ",", RowBox[{"-", "0.00028935263954510404`"}], ",", RowBox[{"-", "0.00028530811123972377`"}], ",", RowBox[{"-", "0.0002817790881542992`"}], ",", RowBox[{"-", "0.00027870338964075536`"}], ",", RowBox[{"-", "0.0002758212173147312`"}], ",", RowBox[{"-", "0.0002728388082200439`"}], ",", RowBox[{"-", "0.00027064208620919405`"}], ",", RowBox[{"-", "0.00026806202154439074`"}], ",", RowBox[{"-", "0.00026588012045403175`"}], ",", RowBox[{"-", "0.00026408350869178143`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5219265950627294`", ",", "0.5220407428656868`", ",", "0.5221225904345519`", ",", "0.5221719269306209`", ",", "0.5221885251210449`", ",", "0.5221721443337122`", ",", "0.5221225344011181`", ",", "0.5220392761933247`", ",", "0.5219223336762651`", ",", "0.5217711733715584`", ",", "0.5215860756634482`", ",", "0.5213673912994325`", ",", "0.5211142927926028`", ",", "0.520825860244306`", ",", "0.5205018722179338`", ",", "0.5201418282973593`", ",", "0.5197462155238445`", ",", "0.5193148582385365`", ",", "0.5188471593535637`", ",", "0.5183450127389737`", ",", "0.5178072078830358`", ",", "0.5172356054372718`", ",", "0.5165819344303468`", ",", "0.5158059557879728`", ",", "0.5149889244860317`", ",", "0.5141278226953002`", ",", "0.5132174146736759`", ",", "0.512252417015673`", ",", "0.5112289727414977`", ",", "0.5101439103791788`", ",", "0.5089916876478701`", ",", "0.5077686752438713`", ",", "0.5064694174537624`", ",", "0.5050891225459005`", ",", "0.5036210415588187`", ",", "0.502058655950828`", ",", "0.5003926761111217`", ",", "0.49861402885728134`", ",", "0.4967108173647403`", ",", "0.49467031812813267`", ",", "0.4924749438867698`", ",", "0.49010462085870055`", ",", "0.4875331368252749`", ",", "0.4847277732768618`", ",", "0.48164482653859597`", ",", "0.47822453838476287`", ",", "0.47438286735408763`", ",", "0.46999341240841375`", ",", "0.4648534464737232`", ",", "0.45860920556758766`", ",", "0.4504927780438168`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274146767201*^9, 3.781649902984956*^9, 3.783980119925502*^9, 3.802469693573619*^9, 3.833634920624408*^9, 3.834093254962092*^9, 3.834215855158399*^9, 3.8343083567137403`*^9, 3.834995335247037*^9, 3.8378589142762136`*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"1bda2f37-af80-4300-88af-8980a7e8cc37"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabdiffL"], "Input", CellChangeTimes->{3.762611583662355*^9}, CellLabel-> "In[126]:=",ExpressionUUID->"c2d341c9-2fca-480b-92cb-0ed531dd2e1d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.4929668017950136`", ",", "0.4925809510463286`", ",", "0.4921090306256981`", ",", "0.4915460793852825`", ",", "0.49088697551781135`", ",", "0.4901248990097993`", ",", "0.4892528409667929`", ",", "0.4882622612320635`", ",", "0.48714282586240876`", ",", "0.48588259468049366`", ",", "0.48446704282991204`", ",", "0.48287877119844014`", ",", "0.4810968010304779`", ",", "0.479095505578082`", ",", "0.47684469028499976`", ",", "0.4742991452331532`", ",", "0.4714010389348764`", ",", "0.4680726726390364`", ",", "0.46420337685984026`", ",", "0.45962614724208395`", ",", "0.4540757765871304`", ",", "0.44693333783154676`", ",", "0.4374832066036144`", ",", "0.42362093227147146`", ",", "0.3958458025249859`", ",", RowBox[{"-", "0.035092346795863594`"}], ",", RowBox[{"-", "0.019915429574359322`"}], ",", RowBox[{"-", "0.007283626601205739`"}], ",", RowBox[{"-", "0.0029495085639720253`"}], ",", RowBox[{"-", "0.0013116461422560954`"}], ",", RowBox[{"-", "0.0006240345019176141`"}], ",", RowBox[{"-", "0.00037165530801208657`"}], ",", RowBox[{"-", "0.0003565707333995638`"}], ",", RowBox[{"-", "0.00034390287136876196`"}], ",", RowBox[{"-", "0.0003332570622381903`"}], ",", RowBox[{"-", "0.0003239361007317809`"}], ",", RowBox[{"-", "0.000315993707617368`"}], ",", RowBox[{"-", "0.0003088929552167441`"}], ",", RowBox[{"-", "0.00030272178175105857`"}], ",", RowBox[{"-", "0.0002972366515794356`"}], ",", RowBox[{"-", "0.0002919812013506551`"}], ",", RowBox[{"-", "0.0002876312529446201`"}], ",", RowBox[{"-", "0.00028369597908839417`"}], ",", RowBox[{"-", "0.0002798910678122324`"}], ",", RowBox[{"-", "0.00027650778703403045`"}], ",", RowBox[{"-", "0.0002736089022096211`"}], ",", RowBox[{"-", "0.0002705583093922659`"}], ",", RowBox[{"-", "0.00026804486222753443`"}], ",", RowBox[{"-", "0.0002656042050277474`"}], ",", RowBox[{"-", "0.0002636824574024921`"}], ",", RowBox[{"-", "0.00026148808325621165`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.500498578094505`", ",", "0.5002819963929293`", ",", "0.4999987196290332`", ",", "0.49964680811821705`", ",", "0.4992234550482769`", ",", "0.49872495671372763`", ",", "0.49814800303054585`", ",", "0.4974885319735043`", ",", "0.49674168159299614`", ",", "0.4959022173478611`", ",", "0.4949639606956139`", ",", "0.49391998893061073`", ",", "0.49276262825603356`", ",", "0.49148354134735883`", ",", "0.49007344893337756`", ",", "0.48851714197448803`", ",", "0.48679861675684566`", ",", "0.4848983979934166`", ",", "0.4827940869561027`", ",", "0.48045533445377986`", ",", "0.47784272241204073`", ",", "0.4748593328557109`", ",", "0.47133182194823775`", ",", "0.4672923725848914`", ",", "0.46257415807540125`", ",", "0.4569276721029193`", ",", "0.4499330747242226`", ",", "0.4407808448371714`", ",", "0.42747402480009156`", ",", "0.39885033441717677`", ",", RowBox[{"-", "0.0010042963827910922`"}], ",", RowBox[{"-", "0.0003660839398508253`"}], ",", RowBox[{"-", "0.000352663349677651`"}], ",", RowBox[{"-", "0.0003413113425629888`"}], ",", RowBox[{"-", "0.00033129231223993916`"}], ",", RowBox[{"-", "0.00032295307358898295`"}], ",", RowBox[{"-", "0.00031535639997248843`"}], ",", RowBox[{"-", "0.00030862172471601834`"}], ",", RowBox[{"-", "0.00030270556390343817`"}], ",", RowBox[{"-", "0.0002974778157432967`"}], ",", RowBox[{"-", "0.0002927322305839031`"}], ",", RowBox[{"-", "0.00028835253337688993`"}], ",", RowBox[{"-", "0.00028458195456382285`"}], ",", RowBox[{"-", "0.00028072693006175875`"}], ",", RowBox[{"-", "0.0002775105946638545`"}], ",", RowBox[{"-", "0.00027460004583779174`"}], ",", RowBox[{"-", "0.0002717722418349444`"}], ",", RowBox[{"-", "0.0002693353128243592`"}], ",", RowBox[{"-", "0.00026681535836781123`"}], ",", RowBox[{"-", "0.0002646839776018206`"}], ",", RowBox[{"-", "0.00026258637726328526`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5078284175248093`", ",", "0.5077477653754627`", ",", "0.5076150657787943`", ",", "0.5074298326532667`", ",", "0.5071898723091458`", ",", "0.5068938866824718`", ",", "0.5065401505404163`", ",", "0.506126756275017`", ",", "0.5056513798144416`", ",", "0.5051117465027836`", ",", "0.5045050347736625`", ",", "0.503829034654271`", ",", "0.5030806202235678`", ",", "0.5022577808695047`", ",", "0.5013561348720167`", ",", "0.5003700549498566`", ",", "0.49929460273148574`", ",", "0.4981247489534204`", ",", "0.4968541601551961`", ",", "0.4954759419627307`", ",", "0.4939823219224959`", ",", "0.4923645254565544`", ",", "0.49047098937952194`", ",", "0.48838228741209877`", ",", "0.48610311698431374`", ",", "0.4835969605756789`", ",", "0.4808221850441903`", ",", "0.47772691049137606`", ",", "0.47423914009287016`", ",", "0.47026335307562017`", ",", "0.4656579846927984`", ",", "0.4602051334191656`", ",", "0.4535348851090796`", ",", "0.4449324092933421`", ",", "0.4326303636269935`", ",", "0.4042782940947405`", ",", RowBox[{"-", "0.0003147847300329909`"}], ",", RowBox[{"-", "0.0003085815669562342`"}], ",", RowBox[{"-", "0.0003027448034178537`"}], ",", RowBox[{"-", "0.00029786701274148175`"}], ",", RowBox[{"-", "0.0002934708850688139`"}], ",", RowBox[{"-", "0.00028935263954510404`"}], ",", RowBox[{"-", "0.00028530811123972377`"}], ",", RowBox[{"-", "0.0002817790881542992`"}], ",", RowBox[{"-", "0.0002787033896408664`"}], ",", RowBox[{"-", "0.0002758212173147312`"}], ",", RowBox[{"-", "0.0002728388082200439`"}], ",", RowBox[{"-", "0.00027064208620919405`"}], ",", RowBox[{"-", "0.00026806202154439074`"}], ",", RowBox[{"-", "0.0002658801204541428`"}], ",", RowBox[{"-", "0.00026408350869178143`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5219265950627292`", ",", "0.5220407428656862`", ",", "0.5221225904345514`", ",", "0.522171926930621`", ",", "0.5221885251210451`", ",", "0.5221721443337116`", ",", "0.5221225344011177`", ",", "0.5220392761933252`", ",", "0.5219223336762657`", ",", "0.5217711733715585`", ",", "0.5215860756634484`", ",", "0.5213673912994324`", ",", "0.5211142927926031`", ",", "0.5208258602443068`", ",", "0.5205018722179338`", ",", "0.52014182829736`", ",", "0.5197462155238446`", ",", "0.5193148582385364`", ",", "0.5188471593535636`", ",", "0.5183450127389748`", ",", "0.5178072078830354`", ",", "0.5172356054372714`", ",", "0.5165819344303464`", ",", "0.5158059557879724`", ",", "0.514988924486032`", ",", "0.5141278226953004`", ",", "0.5132174146736758`", ",", "0.5122524170156728`", ",", "0.5112289727414975`", ",", "0.5101439103791789`", ",", "0.5089916876478705`", ",", "0.5077686752438717`", ",", "0.5064694174537627`", ",", "0.5050891225459002`", ",", "0.5036210415588189`", ",", "0.5020586559508282`", ",", "0.5003926761111215`", ",", "0.4986140288572809`", ",", "0.4967108173647401`", ",", "0.4946703181281321`", ",", "0.4924749438867697`", ",", "0.49010462085870055`", ",", "0.48753313682527477`", ",", "0.48472777327686256`", ",", "0.4816448265385951`", ",", "0.4782245383847632`", ",", "0.47438286735408786`", ",", "0.4699934124084132`", ",", "0.4648534464737235`", ",", "0.4586092055675869`", ",", "0.4504927780438175`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741468609877`*^9, 3.781649903068515*^9, 3.783980120025566*^9, 3.802469693664857*^9, 3.833634920639783*^9, 3.834093254977427*^9, 3.834215855172332*^9, 3.8343083567275248`*^9, 3.834995335260921*^9, 3.837858914292297*^9}, CellLabel-> "Out[126]=",ExpressionUUID->"4b54e44a-3aa2-45d0-9b21-e6ba6c2d3329"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabgendiffPR1"], "Input", CellChangeTimes->{3.762611583662516*^9}, CellLabel-> "In[127]:=",ExpressionUUID->"97aa463a-689a-4ed8-82d9-0b5328b295d7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "9.981518890311847`*^-7", ",", "9.994546970037987`*^-7", ",", "9.986942756112782`*^-7", ",", "9.992270699754613`*^-7", ",", "9.96855880286418`*^-7", ",", "9.98408584362842`*^-7", ",", "9.994230081300515`*^-7", ",", "9.989627142159563`*^-7", ",", "9.994232484933363`*^-7", ",", "9.99097996445819`*^-7", ",", "9.991542124776487`*^-7", ",", "9.995025651576839`*^-7", ",", "9.979148050121012`*^-7", ",", "9.97620176579339`*^-7", ",", "9.485539922415853`*^-7", ",", "8.019157167193924`*^-7", ",", "6.05729039260261`*^-7", ",", "3.4155380357336895`*^-7", ",", "6.007196517998636`*^-9", ",", "4.412311466195362`*^-7", ",", "9.451004742144775`*^-7", ",", "9.986605936651571`*^-7", ",", "9.96764400906791`*^-7", ",", "9.972539047886642`*^-7", ",", "8.55702220858845`*^-7", ",", "0.00003467421996594666`", ",", "0.00003458325236938009`", ",", "0.000014923600514027413`", ",", "6.6486067412663274`*^-6", ",", "3.174083943235928`*^-6", ",", "1.599451643019556`*^-6", ",", "9.996514100940601`*^-7", ",", "9.995265286555366`*^-7", ",", "9.99386927658108`*^-7", ",", "9.996585322857854`*^-7", ",", "9.994249740019612`*^-7", ",", "9.997249071913572`*^-7", ",", "9.995660711359378`*^-7", ",", "9.997643075632112`*^-7", ",", "9.999663694859606`*^-7", ",", "9.989701291734931`*^-7", ",", "9.993612934966478`*^-7", ",", "9.997180174803333`*^-7", ",", "9.992256629898222`*^-7", ",", "9.990754464839213`*^-7", ",", "9.99654601319122`*^-7", ",", "9.98761811921156`*^-7", ",", "9.990263080128514`*^-7", ",", "9.98826746867465`*^-7", ",", "9.999219696688044`*^-7", ",", "9.993870706548336`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.986424576169384`*^-7", ",", "9.963546561131409`*^-7", ",", "9.992864665742118`*^-7", ",", "9.996150859281627`*^-7", ",", "9.969110453811325`*^-7", ",", "9.979843195173643`*^-7", ",", "9.98443215438627`*^-7", ",", "9.974213960317613`*^-7", ",", "9.973959700371182`*^-7", ",", "9.968269354398984`*^-7", ",", "9.97124376511671`*^-7", ",", "9.98625193093794`*^-7", ",", "9.998701877567129`*^-7", ",", "9.992825854565623`*^-7", ",", "9.375901945940512`*^-7", ",", "8.185507037739015`*^-7", ",", "6.621806589723889`*^-7", ",", "4.5707863405297644`*^-7", ",", "1.9110388693732716`*^-7", ",", "1.5352757676279083`*^-7", ",", "5.915728611416426`*^-7", ",", "9.975581625187857`*^-7", ",", "9.955937998462616`*^-7", ",", "9.984576723187644`*^-7", ",", "9.991447120771824`*^-7", ",", "9.989756151185247`*^-7", ",", "9.970060677044756`*^-7", ",", "9.9748360660179`*^-7", ",", "9.993580950551362`*^-7", ",", "5.513385378241864`*^-7", ",", "2.624547260965393`*^-6", ",", "9.993415164277764`*^-7", ",", "9.994343764807567`*^-7", ",", "9.997016646723367`*^-7", ",", "9.991981889667656`*^-7", ",", "9.998882899431294`*^-7", ",", "9.996318517391245`*^-7", ",", "9.993306343547559`*^-7", ",", "9.993057369372949`*^-7", ",", "9.995132765894255`*^-7", ",", "9.995687212382975`*^-7", ",", "9.993161830257336`*^-7", ",", "9.998098834396174`*^-7", ",", "9.98790793960147`*^-7", ",", "9.989584696112885`*^-7", ",", "9.992729618213403`*^-7", ",", "9.990295972706065`*^-7", ",", "9.994511217525925`*^-7", ",", "9.988650712111635`*^-7", ",", "9.990983569352352`*^-7", ",", "9.988853009179621`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.98256122097807`*^-7", ",", "9.965091861685593`*^-7", ",", "9.99784541377835`*^-7", ",", "9.966771601366275`*^-7", ",", "9.97749973863371`*^-7", ",", "9.987763287533369`*^-7", ",", "9.990777634083514`*^-7", ",", "9.978141600752721`*^-7", ",", "9.974610413188145`*^-7", ",", "9.965242493414905`*^-7", ",", "9.998558018198267`*^-7", ",", "9.97550844927808`*^-7", ",", "9.984501171400595`*^-7", ",", "9.883846773250937`*^-7", ",", "9.005477357160174`*^-7", ",", "7.893218937349289`*^-7", ",", "6.484403951567685`*^-7", ",", "4.7057724661403455`*^-7", ",", "2.432624797155114`*^-7", ",", "4.668633868387673`*^-8", ",", "4.159925757196703`*^-7", ",", "8.859643624292701`*^-7", ",", "9.95725527697111`*^-7", ",", "9.963947424918018`*^-7", ",", "9.990659189940132`*^-7", ",", "9.98522944883895`*^-7", ",", "9.96646838058446`*^-7", ",", "9.999418225659085`*^-7", ",", "9.98499697368871`*^-7", ",", "9.99628984810208`*^-7", ",", "9.99195093331906`*^-7", ",", "9.9952771259737`*^-7", ",", "9.982042008527259`*^-7", ",", "9.983421740411558`*^-7", ",", "9.983277677871882`*^-7", ",", "4.12632581436867`*^-7", ",", "9.994219829501105`*^-7", ",", "9.995432171949759`*^-7", ",", "9.98741637836531`*^-7", ",", "9.992715799267415`*^-7", ",", "9.998334330463265`*^-7", ",", "9.999396289872564`*^-7", ",", "9.990384960412158`*^-7", ",", "9.988142736228056`*^-7", ",", "9.992033046524185`*^-7", ",", "9.993990855994284`*^-7", ",", "9.984190697531758`*^-7", ",", "9.99588134154017`*^-7", ",", "9.98684667297134`*^-7", ",", "9.986569853293048`*^-7", ",", "9.995363590142858`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "9.97053357432165`*^-7", ",", "9.96618036652741`*^-7", ",", "9.971401487840481`*^-7", ",", "9.982126688568016`*^-7", ",", "9.99344415331116`*^-7", ",", "9.999345733646692`*^-7", ",", "9.992409074621733`*^-7", ",", "9.997640627590343`*^-7", ",", "9.967908445318585`*^-7", ",", "9.986513416215814`*^-7", ",", "9.992113090273591`*^-7", ",", "9.884378047164688`*^-7", ",", "9.259582514076214`*^-7", ",", "8.515902513162033`*^-7", ",", "7.621891087161714`*^-7", ",", "6.525251410316457`*^-7", ",", "5.213175656715308`*^-7", ",", "3.6088577270998456`*^-7", ",", "1.6511340417135756`*^-7", ",", "7.55758700066167`*^-8", ",", "3.684372892331922`*^-7", ",", "7.270251699553754`*^-7", ",", "9.981199946551556`*^-7", ",", "9.992432371541682`*^-7", ",", "9.954298751946311`*^-7", ",", "9.953451833855098`*^-7", ",", "9.976473349659898`*^-7", ",", "9.977726536103404`*^-7", ",", "9.96576559053608`*^-7", ",", "9.99219131103679`*^-7", ",", "9.979954264105473`*^-7", ",", "9.980460171643557`*^-7", ",", "9.960047656631943`*^-7", ",", "9.96634537897556`*^-7", ",", "9.964543326024256`*^-7", ",", "9.999699375207172`*^-7", ",", "9.996437366766031`*^-7", ",", "9.998497143559604`*^-7", ",", "9.969656520336656`*^-7", ",", "9.991020210042834`*^-7", ",", "9.986091648039874`*^-7", ",", "9.995474361534917`*^-7", ",", "9.980983360913243`*^-7", ",", "9.981874908859822`*^-7", ",", "9.99788895450493`*^-7", ",", "9.989408070731898`*^-7", ",", "9.996463500305808`*^-7", ",", "9.986721998256343`*^-7", ",", "9.747632495615832`*^-7", ",", "8.119620491520152`*^-7", ",", "8.785460032800785`*^-7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741469477*^9, 3.781649903156468*^9, 3.7839801201231623`*^9, 3.802469693755446*^9, 3.8336349206787653`*^9, 3.8340932550185843`*^9, 3.8342158552230263`*^9, 3.834308356754981*^9, 3.834995335287036*^9, 3.837858914320055*^9}, CellLabel-> "Out[127]=",ExpressionUUID->"a750c5cf-bb26-467a-99d9-902d7f5acfea"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabgendiffPR2"], "Input", CellChangeTimes->{3.762611583662675*^9}, CellLabel-> "In[128]:=",ExpressionUUID->"c734a306-4481-4422-8743-8feb97948c19"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "7.187283818099743`*^-7", ",", "7.185762131989293`*^-7", ",", "7.173958188610996`*^-7", ",", "7.179279073454836`*^-7", ",", "7.171122058391433`*^-7", ",", "7.205461113324318`*^-7", ",", "7.251473910230288`*^-7", ",", "7.30694359241113`*^-7", ",", "7.399255430584617`*^-7", ",", "7.52700977990628`*^-7", ",", "7.72064044363141`*^-7", ",", "8.016111039399476`*^-7", ",", "8.46054510006411`*^-7", ",", "9.23941369079806`*^-7", ",", "9.986281239715566`*^-7", ",", "9.967277878608627`*^-7", ",", "9.982020520160617`*^-7", ",", "9.991399413378232`*^-7", ",", "9.995251355476853`*^-7", ",", "9.96669826447416`*^-7", ",", "9.960615544590823`*^-7", ",", "6.434015834555495`*^-7", ",", "4.838429238374076`*^-7", ",", "5.760803640786349`*^-7", ",", "9.982353303961133`*^-7", ",", "0.00003666003577151855`", ",", "0.000028364274477166163`", ",", "0.00001148712472209823`", ",", "4.972753487431092`*^-6", ",", "2.327560150838792`*^-6", ",", "1.153496138939225`*^-6", ",", "7.100751433508634`*^-7", ",", "6.999148667308219`*^-7", ",", "6.900685306510113`*^-7", ",", "6.807996756341694`*^-7", ",", "6.714580379485469`*^-7", ",", "6.627272349790658`*^-7", ",", "6.539270741567904`*^-7", ",", "6.455823767792523`*^-7", ",", "6.374463813463294`*^-7", ",", "6.287510356806081`*^-7", ",", "6.211231668995509`*^-7", ",", "6.136481145446737`*^-7", ",", "6.058248038787184`*^-7", ",", "5.983789552743701`*^-7", ",", "5.91525704529694`*^-7", ",", "5.839557823961172`*^-7", ",", "5.77214442021301`*^-7", ",", "5.703463893391714`*^-7", ",", "5.643494567220131`*^-7", ",", "5.575612178621014`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.251676238384519`*^-7", ",", "7.234834313862848`*^-7", ",", "7.265678798606956`*^-7", ",", "7.284369709648075`*^-7", ",", "7.289181083169893`*^-7", ",", "7.337605971713401`*^-7", ",", "7.398565271543589`*^-7", ",", "7.47018394253729`*^-7", ",", "7.581321810334885`*^-7", ",", "7.731377489328395`*^-7", ",", "7.953099526725182`*^-7", ",", "8.285615886727271`*^-7", ",", "8.780274007857969`*^-7", ",", "9.552570914284075`*^-7", ",", "9.962776704730558`*^-7", ",", "9.983112722045107`*^-7", ",", "9.99333831130933`*^-7", ",", "9.9521764285182`*^-7", ",", "9.970575359785627`*^-7", ",", "9.984977786814397`*^-7", ",", "9.995023535491754`*^-7", ",", "8.75001649802698`*^-7", ",", "4.6709332357508515`*^-7", ",", "2.2006485755898808`*^-7", ",", "7.24502097204649`*^-8", ",", "3.98851252025878`*^-9", ",", "1.3167249957035665`*^-8", ",", "8.382948257779077`*^-8", ",", "4.5324465824947424`*^-7", ",", "9.999307922781142`*^-7", ",", "1.841357817999878`*^-6", ",", "6.896493628394396`*^-7", ",", "6.797842160288781`*^-7", ",", "6.703894290804868`*^-7", ",", "6.608002747210406`*^-7", ",", "6.522918055695826`*^-7", ",", "6.434300362512246`*^-7", ",", "6.347926273519988`*^-7", ",", "6.265647464198665`*^-7", ",", "6.186975047839383`*^-7", ",", "6.10937325395966`*^-7", ",", "6.031823013286086`*^-7", ",", "5.960581787034513`*^-7", ",", "5.882084256336739`*^-7", ",", "5.812291025142358`*^-7", ",", "5.744895570369835`*^-7", ",", "5.675797308812847`*^-7", ",", "5.611918326708931`*^-7", ",", "5.543785424055869`*^-7", ",", "5.481570739540587`*^-7", ",", "5.418202644325021`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.325330809715425`*^-7", ",", "7.325838782268335`*^-7", ",", "7.374852949437738`*^-7", ",", "7.381743442058664`*^-7", ",", "7.435095679131365`*^-7", ",", "7.503942897058025`*^-7", ",", "7.58708158854482`*^-7", ",", "7.683149239046116`*^-7", ",", "7.822956094027944`*^-7", ",", "8.007192064951596`*^-7", ",", "8.306958045878332`*^-7", ",", "8.661744084204059`*^-7", ",", "9.23551199405459`*^-7", ",", "9.991758613825397`*^-7", ",", "9.992549110382498`*^-7", ",", "9.982479635128882`*^-7", ",", "9.95820269134029`*^-7", ",", "9.96616430382069`*^-7", ",", "9.962290458132017`*^-7", ",", "9.953349665581257`*^-7", ",", "9.95500515355019`*^-7", ",", "9.997747498768916`*^-7", ",", "6.292648629946385`*^-7", ",", "3.053023041044156`*^-7", ",", "8.967612941113146`*^-8", ",", "5.760702892487757`*^-8", ",", "1.598743637476474`*^-7", ",", "2.326834351862317`*^-7", ",", "2.855911845900394`*^-7", ",", "3.2420827156265375`*^-7", ",", "3.497146348063751`*^-7", ",", "3.583528546124981`*^-7", ",", "3.3149761269335443`*^-7", ",", "2.0373729736622437`*^-7", ",", "2.835705724679727`*^-7", ",", "9.999558370221706`*^-7", ",", "6.232772915559792`*^-7", ",", "6.151279433597168`*^-7", ",", "6.066630748868818`*^-7", ",", "5.992384860542543`*^-7", ",", "5.920374778201065`*^-7", ",", "5.847605619724305`*^-7", ",", "5.770869438981308`*^-7", ",", "5.699889336074904`*^-7", ",", "5.634069281112986`*^-7", ",", "5.568705578884448`*^-7", ",", "5.498348749632953`*^-7", ",", "5.441265620298452`*^-7", ",", "5.374258813528598`*^-7", ",", "5.313350801561256`*^-7", ",", "5.25849456534111`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{ "7.562005190919763`*^-7", ",", "7.6079073141333`*^-7", ",", "7.674594216799946`*^-7", ",", "7.761872912182`*^-7", ",", "7.869643430247208`*^-7", ",", "7.997889280852988`*^-7", ",", "8.14667187043483`*^-7", ",", "8.351268989681415`*^-7", ",", "8.579150121423851`*^-7", ",", "8.945738050325502`*^-7", ",", "9.430914208463648`*^-7", ",", "9.967940064470326`*^-7", ",", "9.965549679913366`*^-7", ",", "9.971578662781866`*^-7", ",", "9.984024044173978`*^-7", ",", "9.953614268365385`*^-7", ",", "9.97239746780565`*^-7", ",", "9.993270692065792`*^-7", ",", "9.964181919563941`*^-7", ",", "9.989566636114944`*^-7", ",", "9.966364556968088`*^-7", ",", "9.954407642620566`*^-7", ",", "8.448935142624237`*^-7", ",", "5.05711834186684`*^-7", ",", "2.5670533232435844`*^-7", ",", "7.743180352459689`*^-8", ",", "5.3688235635007686`*^-8", ",", "1.5170442835277242`*^-7", ",", "2.2579952918544421`*^-7", ",", "2.8322988232520885`*^-7", ",", "3.2811606975879926`*^-7", ",", "3.644148134362979`*^-7", ",", "3.9382682459621066`*^-7", ",", "4.1941655681831946`*^-7", ",", "4.416233039261641`*^-7", ",", "4.6310000056948297`*^-7", ",", "4.820528699545079`*^-7", ",", "5.007983215898903`*^-7", ",", "5.18556743100973`*^-7", ",", "5.395642288519298`*^-7", ",", "5.613767217749199`*^-7", ",", "5.868394873376204`*^-7", ",", "6.153723326463023`*^-7", ",", "6.505788197053164`*^-7", ",", "6.947931743273017`*^-7", ",", "7.488446958081596`*^-7", ",", "8.188141903398005`*^-7", ",", "9.066304287319582`*^-7", ",", "9.980756221494858`*^-7", ",", "9.989116902531237`*^-7", ",", "9.991657480279414`*^-7"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147044497*^9, 3.7816499032541037`*^9, 3.783980120245132*^9, 3.8024696941849403`*^9, 3.833634920699192*^9, 3.834093255034289*^9, 3.8342158552379417`*^9, 3.8343083567712717`*^9, 3.8349953353017073`*^9, 3.837858914343882*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"3b4b6a8f-c274-4f61-b1bb-b9f19853e05f"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabasymR"], "Input", CellChangeTimes->{3.762611583662834*^9}, CellLabel-> "In[129]:=",ExpressionUUID->"1d522d09-e698-4540-a33a-3afcbbe44704"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.09539928417970141`"}], ",", RowBox[{"-", "0.0911360449243924`"}], ",", RowBox[{"-", "0.08683566983869513`"}], ",", RowBox[{"-", "0.08249423452061591`"}], ",", RowBox[{"-", "0.07811121342428942`"}], ",", RowBox[{"-", "0.07368101217598105`"}], ",", RowBox[{"-", "0.06920316379803426`"}], ",", RowBox[{"-", "0.06467557690636588`"}], ",", RowBox[{"-", "0.06009451616326766`"}], ",", RowBox[{"-", "0.05545809806045952`"}], ",", RowBox[{"-", "0.05076286597938048`"}], ",", RowBox[{"-", "0.04600558151147347`"}], ",", RowBox[{"-", "0.0411833522326653`"}], ",", RowBox[{"-", "0.03628793669365445`"}], ",", RowBox[{"-", "0.031342223033589085`"}], ",", RowBox[{"-", "0.026382069301520657`"}], ",", RowBox[{"-", "0.021372288214520828`"}], ",", RowBox[{"-", "0.016322893356902412`"}], ",", RowBox[{"-", "0.011245865699900229`"}], ",", RowBox[{"-", "0.006157421852327824`"}], ",", RowBox[{"-", "0.0010759080571780206`"}], ",", "0.00400976913625456`", ",", "0.009047832277552995`", ",", "0.013742847363737465`", ",", "0.016581679232324068`", ",", "5.439535547700617`", ",", "20.795284530962814`", ",", "64.95236513916144`", ",", "166.09901572887057`", ",", "377.96837871725205`", ",", "798.1584997252871`", ",", "1342.3843699885626`", ",", "1399.4136239914724`", ",", "1451.1709086207813`", ",", "1497.7108100327641`", ",", "1540.9693001638016`", ",", "1579.8455403021349`", ",", "1616.293707812264`", ",", "1649.3606173751512`", ",", "1679.904554155613`", ",", "1710.2421660223895`", ",", "1736.1960444728547`", ",", "1760.3618687373466`", ",", "1784.3704868374257`", ",", "1806.2750907685102`", ",", "1825.4775907139738`", ",", "1846.1236566125433`", ",", "1863.4918790484778`", ",", "1880.6700811879364`", ",", "1894.4253510992523`", ",", "1910.371843121478`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08599309212008191`"}], ",", RowBox[{"-", "0.08207683405952744`"}], ",", RowBox[{"-", "0.0781311025422564`"}], ",", RowBox[{"-", "0.07415775710493518`"}], ",", RowBox[{"-", "0.07015535145128038`"}], ",", RowBox[{"-", "0.06611908628583761`"}], ",", RowBox[{"-", "0.062049264007466486`"}], ",", RowBox[{"-", "0.057944570050638564`"}], ",", RowBox[{"-", "0.05380204280619551`"}], ",", RowBox[{"-", "0.049620527737389473`"}], ",", RowBox[{"-", "0.04539724525835792`"}], ",", RowBox[{"-", "0.04112951845059175`"}], ",", RowBox[{"-", "0.03681480984524714`"}], ",", RowBox[{"-", "0.03244884298898007`"}], ",", RowBox[{"-", "0.02806409929497434`"}], ",", RowBox[{"-", "0.02366019396626955`"}], ",", RowBox[{"-", "0.019220893294291552`"}], ",", RowBox[{"-", "0.014750699880443762`"}], ",", RowBox[{"-", "0.010250756641669585`"}], ",", RowBox[{"-", "0.005730048665713715`"}], ",", RowBox[{"-", "0.0011966914994620116`"}], ",", "0.0033438238300177022`", ",", "0.007953210553801764`", ",", "0.012629932509319696`", ",", "0.017338735026949083`", ",", "0.02203522219960932`", ",", "0.026647273858986194`", ",", "0.031022692736973598`", ",", "0.034739785296970374`", ",", "0.03479882555656768`", ",", "495.0203187292198`", ",", "1363.0834604402264`", ",", "1415.1589919839441`", ",", "1462.40498650205`", ",", "1506.7907429443121`", ",", "1545.8380274347965`", ",", "1583.203195791427`", ",", "1617.8666277528346`", ",", "1649.590682519794`", ",", "1678.6743620381776`", ",", "1705.974894697537`", ",", "1731.967122720863`", ",", "1754.9879557901932`", ",", "1779.1586903932152`", ",", "1799.8425976915237`", ",", "1818.978489587516`", ",", "1837.9611748091384`", ",", "1854.642316394042`", ",", "1872.208632760492`", ",", "1887.3303561251719`", ",", "1902.4505953075814`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07699673602395467`"}], ",", RowBox[{"-", "0.07340957149631737`"}], ",", RowBox[{"-", "0.0698014704969256`"}], ",", RowBox[{"-", "0.06617646483903052`"}], ",", RowBox[{"-", "0.06252860314766442`"}], ",", RowBox[{"-", "0.058858645903455804`"}], ",", RowBox[{"-", "0.05516573243278335`"}], ",", RowBox[{"-", "0.051449062516881944`"}], ",", RowBox[{"-", "0.047706179712834175`"}], ",", RowBox[{"-", "0.04393641050659905`"}], ",", RowBox[{"-", "0.040135628760227846`"}], ",", RowBox[{"-", "0.03630692597777001`"}], ",", RowBox[{"-", "0.03244267009794354`"}], ",", RowBox[{"-", "0.02854644338289362`"}], ",", RowBox[{"-", "0.02466036098787801`"}], ",", RowBox[{"-", "0.020749767727906196`"}], ",", RowBox[{"-", "0.01681588895722559`"}], ",", RowBox[{"-", "0.012859040402792525`"}], ",", RowBox[{"-", "0.00888367307901871`"}], ",", RowBox[{"-", "0.004893411220686148`"}], ",", RowBox[{"-", "0.0008930970653930303`"}], ",", "0.0031108817304030287`", ",", "0.0071418809626070225`", ",", "0.011248594882483929`", ",", "0.015415477064603125`", ",", "0.019630538121943802`", ",", "0.023883118987679024`", ",", "0.02816119819042035`", ",", "0.03245608055196837`", ",", "0.036749251615904734`", ",", "0.04101697453690225`", ",", "0.045215476092729585`", ",", "0.04926514273147287`", ",", "0.052992043244549925`", ",", "0.055921358259113284`", ",", "0.05384090958906218`", ",", "1586.231722221373`", ",", "1618.2184715408143`", ",", "1649.5100867977937`", ",", "1676.6047453623387`", ",", "1701.7958951119358`", ",", "1726.0879281574075`", ",", "1750.624709022929`", ",", "1772.6114543061492`", ",", "1792.2300175377766`", ",", "1811.0108946004905`", ",", "1830.858942428854`", ",", "1845.7644829851902`", ",", "1863.5755484811452`", ",", "1878.9104438905033`", ",", "1891.7309963636667`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.060150638001403994`"}], ",", RowBox[{"-", "0.05717582663194223`"}], ",", RowBox[{"-", "0.05419324508296829`"}], ",", RowBox[{"-", "0.05120251859655189`"}], ",", RowBox[{"-", "0.048203301156928814`"}], ",", RowBox[{"-", "0.04519528229420915`"}], ",", RowBox[{"-", "0.0421781955130308`"}], ",", RowBox[{"-", "0.03915009036114702`"}], ",", RowBox[{"-", "0.03611252345622845`"}], ",", RowBox[{"-", "0.033060059384727`"}], ",", RowBox[{"-", "0.02999428358636588`"}], ",", RowBox[{"-", "0.026918992624021684`"}], ",", RowBox[{"-", "0.023859282905460143`"}], ",", RowBox[{"-", "0.020790805303322547`"}], ",", RowBox[{"-", "0.01771410037061497`"}], ",", RowBox[{"-", "0.014631507329360322`"}], ",", RowBox[{"-", "0.011540713625853178`"}], ",", RowBox[{"-", "0.008444712599646175`"}], ",", RowBox[{"-", "0.005346311805881576`"}], ",", RowBox[{"-", "0.0022451695397289126`"}], ",", "0.0008540834583303327`", ",", "0.003949347983553605`", ",", "0.007041164598579613`", ",", "0.010168450307767786`", ",", "0.013335168055342683`", ",", "0.016533590676279755`", ",", "0.01975844085623872`", ",", "0.023007063222114224`", ",", "0.026276890115554997`", ",", "0.02956466083659712`", ",", "0.03287137163071321`", ",", "0.03619452725201981`", ",", "0.03953446823079249`", ",", "0.042888858971973094`", ",", "0.04625821440932284`", ",", "0.04964011204163325`", ",", "0.05303650776740785`", ",", "0.056444713636164136`", ",", "0.0598648344859518`", ",", "0.06329186766707075`", ",", "0.06672659015064508`", ",", "0.07016421415415326`", ",", "0.07360209005556666`", ",", "0.07703250950131255`", ",", "0.08044676008707294`", ",", "0.08383376591643076`", ",", "0.08717174939699471`", ",", "0.09042996377425094`", ",", "0.09356378927049136`", ",", "0.09653204319196912`", ",", "0.09890245930817483`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147147893*^9, 3.781649903350874*^9, 3.783980120363199*^9, 3.802469694293055*^9, 3.8336349207413282`*^9, 3.8340932550756807`*^9, 3.834215855289626*^9, 3.8343083568003063`*^9, 3.8349953353290358`*^9, 3.837858914380006*^9}, CellLabel-> "Out[129]=",ExpressionUUID->"7ac1a823-296a-42d6-a146-37f69a8567e4"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabasymL"], "Input", CellChangeTimes->{3.762611583662993*^9}, CellLabel-> "In[130]:=",ExpressionUUID->"a9688451-eece-41e9-9451-b39700e909bc"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.09539928417970213`"}], ",", RowBox[{"-", "0.0911360449243914`"}], ",", RowBox[{"-", "0.08683566983869674`"}], ",", RowBox[{"-", "0.0824942345206164`"}], ",", RowBox[{"-", "0.07811121342428844`"}], ",", RowBox[{"-", "0.07368101217598338`"}], ",", RowBox[{"-", "0.06920316379803505`"}], ",", RowBox[{"-", "0.06467557690636513`"}], ",", RowBox[{"-", "0.06009451616327032`"}], ",", RowBox[{"-", "0.055458098060459336`"}], ",", RowBox[{"-", "0.05076286597938066`"}], ",", RowBox[{"-", "0.046005581511473936`"}], ",", RowBox[{"-", "0.04118335223266697`"}], ",", RowBox[{"-", "0.03628793669365445`"}], ",", RowBox[{"-", "0.03134222303358871`"}], ",", RowBox[{"-", "0.026382069301520532`"}], ",", RowBox[{"-", "0.02137228821452001`"}], ",", RowBox[{"-", "0.016322893356905364`"}], ",", RowBox[{"-", "0.011245865699900708`"}], ",", RowBox[{"-", "0.0061574218523284385`"}], ",", RowBox[{"-", "0.0010759080571780201`"}], ",", "0.004009769136253561`", ",", "0.009047832277552629`", ",", "0.013742847363737194`", ",", "0.01658167923216187`", ",", "5.4395675090713915`", ",", "20.795284531982908`", ",", "64.9523651391551`", ",", "166.09901572887054`", ",", "377.968378717284`", ",", "798.158499725429`", ",", "1342.3843699885626`", ",", "1399.4136239914724`", ",", "1451.1709086207813`", ",", "1497.7108100327641`", ",", "1540.9693001638016`", ",", "1579.8455403021349`", ",", "1616.2937078116831`", ",", "1649.3606173751512`", ",", "1679.904554155613`", ",", "1710.2421660223895`", ",", "1736.1960444728547`", ",", "1760.3618687373466`", ",", "1784.3704868374257`", ",", "1806.2750907685102`", ",", "1825.4775907132332`", ",", "1846.1236566125433`", ",", "1863.4918790484778`", ",", "1880.6700811879364`", ",", "1894.4253510984543`", ",", "1910.371843121478`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08599309212008188`"}], ",", RowBox[{"-", "0.08207683405952737`"}], ",", RowBox[{"-", "0.07813110254225843`"}], ",", RowBox[{"-", "0.07415775710493488`"}], ",", RowBox[{"-", "0.07015535145128009`"}], ",", RowBox[{"-", "0.06611908628583639`"}], ",", RowBox[{"-", "0.06204926400746697`"}], ",", RowBox[{"-", "0.057944570050637446`"}], ",", RowBox[{"-", "0.05380204280619754`"}], ",", RowBox[{"-", "0.049620527737389224`"}], ",", RowBox[{"-", "0.045397245258358095`"}], ",", RowBox[{"-", "0.04112951845059346`"}], ",", RowBox[{"-", "0.0368148098452482`"}], ",", RowBox[{"-", "0.03244884298897974`"}], ",", RowBox[{"-", "0.028064099294973513`"}], ",", RowBox[{"-", "0.023660193966269876`"}], ",", RowBox[{"-", "0.019220893294293488`"}], ",", RowBox[{"-", "0.014750699880444678`"}], ",", RowBox[{"-", "0.01025075664167143`"}], ",", RowBox[{"-", "0.005730048665712442`"}], ",", RowBox[{"-", "0.0011966914994611976`"}], ",", "0.003343823830016067`", ",", "0.007953210553802123`", ",", "0.012629932509320293`", ",", "0.017338735026950637`", ",", "0.022035222199606175`", ",", "0.026647273858983102`", ",", "0.031022692736974618`", ",", "0.03473978529697188`", ",", "0.0347988255585447`", ",", "495.02031872883424`", ",", "1363.0834604414697`", ",", "1415.1589919848363`", ",", "1462.40498650205`", ",", "1506.7907429443121`", ",", "1545.8380274347965`", ",", "1583.203195791427`", ",", "1617.8666277522525`", ",", "1649.590682519794`", ",", "1678.6743620381776`", ",", "1705.974894697537`", ",", "1731.967122720863`", ",", "1754.9879557901932`", ",", "1779.1586903932152`", ",", "1799.8425976915237`", ",", "1818.978489587516`", ",", "1837.9611748091384`", ",", "1854.6423163932773`", ",", "1872.208632760492`", ",", "1887.3303561251719`", ",", "1902.4505953075814`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07699673602395316`"}], ",", RowBox[{"-", "0.07340957149631679`"}], ",", RowBox[{"-", "0.06980147049692678`"}], ",", RowBox[{"-", "0.06617646483902945`"}], ",", RowBox[{"-", "0.06252860314766426`"}], ",", RowBox[{"-", "0.058858645903457435`"}], ",", RowBox[{"-", "0.0551657324327827`"}], ",", RowBox[{"-", "0.051449062516884136`"}], ",", RowBox[{"-", "0.04770617971283549`"}], ",", RowBox[{"-", "0.043936410506598696`"}], ",", RowBox[{"-", "0.04013562876022827`"}], ",", RowBox[{"-", "0.036306925977770514`"}], ",", RowBox[{"-", "0.03244267009794522`"}], ",", RowBox[{"-", "0.028546443382896323`"}], ",", RowBox[{"-", "0.024660360987877022`"}], ",", RowBox[{"-", "0.020749767727904954`"}], ",", RowBox[{"-", "0.016815888957226036`"}], ",", RowBox[{"-", "0.012859040402792085`"}], ",", RowBox[{"-", "0.008883673079016921`"}], ",", RowBox[{"-", "0.004893411220687817`"}], ",", RowBox[{"-", "0.0008930970653916826`"}], ",", "0.0031108817304022368`", ",", "0.007141880962607473`", ",", "0.011248594882483812`", ",", "0.015415477064600933`", ",", "0.01963053812194243`", ",", "0.023883118987679267`", ",", "0.0281611981904227`", ",", "0.03245608055196813`", ",", "0.036749251615907946`", ",", "0.04101697453690076`", ",", "0.04521547609272565`", ",", "0.049265142731476155`", ",", "0.05299204324454915`", ",", "0.05592135825913878`", ",", "0.05384090958302803`", ",", "1586.2317222028857`", ",", "1618.2184715378996`", ",", "1649.5100867977937`", ",", "1676.6047453623387`", ",", "1701.7958951125795`", ",", "1726.0879281574075`", ",", "1750.624709022929`", ",", "1772.6114543061492`", ",", "1792.2300175370624`", ",", "1811.0108946004905`", ",", "1830.858942428854`", ",", "1845.7644829851902`", ",", "1863.5755484811452`", ",", "1878.9104438897186`", ",", "1891.7309963636667`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.060150638001405084`"}], ",", RowBox[{"-", "0.05717582663194239`"}], ",", RowBox[{"-", "0.054193245082969826`"}], ",", RowBox[{"-", "0.051202518596551984`"}], ",", RowBox[{"-", "0.04820330115692879`"}], ",", RowBox[{"-", "0.04519528229421058`"}], ",", RowBox[{"-", "0.04217819551303041`"}], ",", RowBox[{"-", "0.03915009036114729`"}], ",", RowBox[{"-", "0.036112523456228195`"}], ",", RowBox[{"-", "0.0330600593847271`"}], ",", RowBox[{"-", "0.02999428358636757`"}], ",", RowBox[{"-", "0.026918992624020945`"}], ",", RowBox[{"-", "0.023859282905461087`"}], ",", RowBox[{"-", "0.020790805303322838`"}], ",", RowBox[{"-", "0.017714100370615823`"}], ",", RowBox[{"-", "0.01463150732936009`"}], ",", RowBox[{"-", "0.011540713625853922`"}], ",", RowBox[{"-", "0.008444712599645642`"}], ",", RowBox[{"-", "0.005346311805881898`"}], ",", RowBox[{"-", "0.0022451695397293363`"}], ",", "0.0008540834583303334`", ",", "0.0039493479835545735`", ",", "0.00704116459857919`", ",", "0.010168450307767364`", ",", "0.013335168055342461`", ",", "0.016533590676280397`", ",", "0.019758440856240782`", ",", "0.02300706322211402`", ",", "0.026276890115555226`", ",", "0.029564660836596132`", ",", "0.03287137163071362`", ",", "0.03619452725201956`", ",", "0.03953446823079279`", ",", "0.04288885897197323`", ",", "0.04625821440932216`", ",", "0.04964011204163411`", ",", "0.05303650776740721`", ",", "0.056444713636163296`", ",", "0.05986483448595249`", ",", "0.06329186766706958`", ",", "0.06672659015064476`", ",", "0.07016421415415416`", ",", "0.07360209005556678`", ",", "0.07703250950131413`", ",", "0.08044676008707492`", ",", "0.08383376591643221`", ",", "0.08717174939699514`", ",", "0.09042996377425307`", ",", "0.0935637892704907`", ",", "0.09653204319196335`", ",", "0.09890245930817368`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.78027414724699*^9, 3.781649903437283*^9, 3.783980120463243*^9, 3.802469694382926*^9, 3.833634920757681*^9, 3.8340932550913343`*^9, 3.834215855303288*^9, 3.834308356814579*^9, 3.83499533534307*^9, 3.837858914396138*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"8cca1ca8-795e-4de0-ac1f-41f5542bd6e0"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPR12lesspt5"], "Input", CellChangeTimes->{3.7626115836631517`*^9}, CellLabel-> "In[131]:=",ExpressionUUID->"f0ac1d47-a7c2-4db1-a8aa-8813ee29b752"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147340334*^9, 3.781649903523882*^9, 3.783980120554331*^9, 3.8024696944641857`*^9, 3.833634920795218*^9, 3.834093255131583*^9, 3.834215855353318*^9, 3.834308356841864*^9, 3.8349953353689203`*^9, 3.837858914423835*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"26241a20-4d14-4303-8a48-da8d8de8a16b"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPL22lesspt5"], "Input", CellChangeTimes->{3.76261158366331*^9}, CellLabel-> "In[132]:=",ExpressionUUID->"709d70a0-3761-4f30-b5a7-a2915d23f932"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147427032*^9, 3.781649903604617*^9, 3.7839801206737337`*^9, 3.802469694541615*^9, 3.833634920808963*^9, 3.834093255145875*^9, 3.8342158553665667`*^9, 3.8343083568553543`*^9, 3.834995335382367*^9, 3.837858914437759*^9}, CellLabel-> "Out[132]=",ExpressionUUID->"714af988-c5f3-461b-bf60-3641adbcdff6"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPR22greaterpt5"], "Input", CellChangeTimes->{3.7626115836634703`*^9}, CellLabel-> "In[133]:=",ExpressionUUID->"ce5f6f36-cedb-4a5c-8375-c7d5f3989fa2"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "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", ",", "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", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "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", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "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", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147521269*^9, 3.781649903699333*^9, 3.783980120764921*^9, 3.802469694619362*^9, 3.833634920846897*^9, 3.83409325518542*^9, 3.834215855416658*^9, 3.834308356881935*^9, 3.8349953354080753`*^9, 3.837858914464517*^9}, CellLabel-> "Out[133]=",ExpressionUUID->"7a564e40-5365-4258-a120-15df9f1802c7"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabPL12greaterpt5"], "Input", CellChangeTimes->{3.76261158366363*^9}, CellLabel-> "In[134]:=",ExpressionUUID->"56a292e1-615d-4dfd-8ed6-1c2a9e6062c0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "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", ",", "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", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "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", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "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", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7802741476277*^9, 3.781649903785627*^9, 3.783980120860057*^9, 3.8024696946955557`*^9, 3.833634920860512*^9, 3.8340932551994553`*^9, 3.834215855429985*^9, 3.834308356895402*^9, 3.834995335421822*^9, 3.837858914508594*^9}, CellLabel-> "Out[134]=",ExpressionUUID->"3630cbbf-6d3c-4bfe-8499-3c5460a60129"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabgens"], "Input", CellChangeTimes->{3.762611583663788*^9}, CellLabel-> "In[135]:=",ExpressionUUID->"e15f2db9-0ea4-451a-be7c-085701edb0b1"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1674", ",", "1664", ",", "1654", ",", "1643", ",", "1632", ",", "1619", ",", "1605", ",", "1590", ",", "1573", ",", "1554", ",", "1532", ",", "1506", ",", "1475", ",", "1435", ",", "1397", ",", "1377", ",", "1356", ",", "1336", ",", "1319", ",", "1309", ",", "1311", ",", "1414", ",", "1545", ",", "1739", ",", "2470", ",", "10000", ",", "10000", ",", "10000", ",", "10000", ",", "10000", ",", "10000", ",", "9776", ",", "9064", ",", "8475", ",", "7978", ",", "7553", ",", "7184", ",", "6861", ",", "6575", ",", "6320", ",", "6092", ",", "5885", ",", "5697", ",", "5526", ",", "5369", ",", "5224", ",", "5091", ",", "4967", ",", "4852", ",", "4744", ",", "4644"}], "}"}], ",", RowBox[{"{", RowBox[{ "1655", ",", "1645", ",", "1633", ",", "1621", ",", "1609", ",", "1595", ",", "1580", ",", "1564", ",", "1546", ",", "1526", ",", "1503", ",", "1476", ",", "1444", ",", "1405", ",", "1375", ",", "1353", ",", "1330", ",", "1307", ",", "1282", ",", "1257", ",", "1233", ",", "1233", ",", "1305", ",", "1373", ",", "1439", ",", "1505", ",", "1576", ",", "1663", ",", "1812", ",", "3007", ",", "10000", ",", "9857", ",", "9012", ",", "8377", ",", "7866", ",", "7438", ",", "7073", ",", "6756", ",", "6477", ",", "6229", ",", "6007", ",", "5807", ",", "5625", ",", "5460", ",", "5308", ",", "5168", ",", "5039", ",", "4919", ",", "4808", ",", "4704", ",", "4607"}], "}"}], ",", RowBox[{"{", RowBox[{ "1635", ",", "1624", ",", "1611", ",", "1599", ",", "1585", ",", "1570", ",", "1554", ",", "1537", ",", "1518", ",", "1497", ",", "1472", ",", "1445", ",", "1412", ",", "1375", ",", "1355", ",", "1334", ",", "1312", ",", "1288", ",", "1263", ",", "1237", ",", "1210", ",", "1182", ",", "1223", ",", "1279", ",", "1331", ",", "1380", ",", "1426", ",", "1468", ",", "1509", ",", "1548", ",", "1587", ",", "1627", ",", "1672", ",", "1731", ",", "1846", ",", "3696", ",", "8203", ",", "7302", ",", "6805", ",", "6445", ",", "6157", ",", "5915", ",", "5706", ",", "5521", ",", "5355", ",", "5205", ",", "5069", ",", "4943", ",", "4828", ",", "4721", ",", "4621"}], "}"}], ",", RowBox[{"{", RowBox[{ "1589", ",", "1576", ",", "1562", ",", "1547", ",", "1531", ",", "1514", ",", "1496", ",", "1476", ",", "1455", ",", "1430", ",", "1402", ",", "1373", ",", "1356", ",", "1338", ",", "1319", ",", "1300", ",", "1279", ",", "1257", ",", "1235", ",", "1211", ",", "1187", ",", "1162", ",", "1161", ",", "1203", ",", "1244", ",", "1282", ",", "1317", ",", "1350", ",", "1381", ",", "1409", ",", "1436", ",", "1461", ",", "1485", ",", "1507", ",", "1528", ",", "1547", ",", "1566", ",", "1584", ",", "1602", ",", "1618", ",", "1634", ",", "1649", ",", "1664", ",", "1678", ",", "1691", ",", "1704", ",", "1716", ",", "1728", ",", "1746", ",", "1804", ",", "1816"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147725594*^9, 3.781649903884276*^9, 3.7839801209510098`*^9, 3.802469694772244*^9, 3.833634920897889*^9, 3.834093255238985*^9, 3.834215855479577*^9, 3.8343083569217577`*^9, 3.83499533544788*^9, 3.837858914522854*^9}, CellLabel-> "Out[135]=",ExpressionUUID->"e1bd93ee-e1dc-4626-8eae-5edce491cbb6"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabvary"], "Input", CellChangeTimes->{3.762611583663947*^9}, CellLabel-> "In[136]:=",ExpressionUUID->"6ecfdb91-3211-4ab8-a6d6-71707dbf3bd0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", 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", ",", "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", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147838512*^9, 3.781649903961931*^9, 3.7839801210453377`*^9, 3.8024696948503447`*^9, 3.833634920911809*^9, 3.834093255253149*^9, 3.834215855493162*^9, 3.834308356935231*^9, 3.834995335461916*^9, 3.837858914549884*^9}, CellLabel-> "Out[136]=",ExpressionUUID->"e5777aff-8164-43a5-b061-a38e2733b185"] }, Closed]], Cell[CellGroupData[{ Cell[BoxData["tabvarx"], "Input", CellChangeTimes->{3.762611583664106*^9}, CellLabel-> "In[137]:=",ExpressionUUID->"980b644f-79c9-45d3-8e77-cf87cbf14d6b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.`", ",", "0.02`", ",", "0.04`", ",", "0.06`", ",", "0.08`", ",", "0.1`", ",", "0.12`", ",", "0.14`", ",", "0.16`", ",", "0.18`", ",", "0.2`", ",", "0.22`", ",", "0.24`", ",", "0.26`", ",", "0.28`", ",", "0.3`", ",", "0.32`", ",", "0.34`", ",", "0.36`", ",", "0.38`", ",", "0.4`", ",", "0.42`", ",", "0.44`", ",", "0.46`", ",", "0.48`", ",", "0.5`", ",", "0.52`", ",", "0.54`", ",", "0.56`", ",", "0.58`", ",", "0.6`", ",", "0.62`", ",", "0.64`", ",", "0.66`", ",", "0.68`", ",", "0.7000000000000001`", ",", "0.72`", ",", "0.74`", ",", "0.76`", ",", "0.78`", ",", "0.8`", ",", "0.8200000000000001`", ",", "0.84`", ",", "0.86`", ",", "0.88`", ",", "0.9`", ",", "0.92`", ",", "0.9400000000000001`", ",", "0.96`", ",", "0.98`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.02`", ",", "0.04`", ",", "0.06`", ",", "0.08`", ",", "0.1`", ",", "0.12`", ",", "0.14`", ",", "0.16`", ",", "0.18`", ",", "0.2`", ",", "0.22`", ",", "0.24`", ",", "0.26`", ",", "0.28`", ",", "0.3`", ",", "0.32`", ",", "0.34`", ",", "0.36`", ",", "0.38`", ",", "0.4`", ",", "0.42`", ",", "0.44`", ",", "0.46`", ",", "0.48`", ",", "0.5`", ",", "0.52`", ",", "0.54`", ",", "0.56`", ",", "0.58`", ",", "0.6`", ",", "0.62`", ",", "0.64`", ",", "0.66`", ",", "0.68`", ",", "0.7000000000000001`", ",", "0.72`", ",", "0.74`", ",", "0.76`", ",", "0.78`", ",", "0.8`", ",", "0.8200000000000001`", ",", "0.84`", ",", "0.86`", ",", "0.88`", ",", "0.9`", ",", "0.92`", ",", "0.9400000000000001`", ",", "0.96`", ",", "0.98`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.02`", ",", "0.04`", ",", "0.06`", ",", "0.08`", ",", "0.1`", ",", "0.12`", ",", "0.14`", ",", "0.16`", ",", "0.18`", ",", "0.2`", ",", "0.22`", ",", "0.24`", ",", "0.26`", ",", "0.28`", ",", "0.3`", ",", "0.32`", ",", "0.34`", ",", "0.36`", ",", "0.38`", ",", "0.4`", ",", "0.42`", ",", "0.44`", ",", "0.46`", ",", "0.48`", ",", "0.5`", ",", "0.52`", ",", "0.54`", ",", "0.56`", ",", "0.58`", ",", "0.6`", ",", "0.62`", ",", "0.64`", ",", "0.66`", ",", "0.68`", ",", "0.7000000000000001`", ",", "0.72`", ",", "0.74`", ",", "0.76`", ",", "0.78`", ",", "0.8`", ",", "0.8200000000000001`", ",", "0.84`", ",", "0.86`", ",", "0.88`", ",", "0.9`", ",", "0.92`", ",", "0.9400000000000001`", ",", "0.96`", ",", "0.98`", ",", "1.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.`", ",", "0.02`", ",", "0.04`", ",", "0.06`", ",", "0.08`", ",", "0.1`", ",", "0.12`", ",", "0.14`", ",", "0.16`", ",", "0.18`", ",", "0.2`", ",", "0.22`", ",", "0.24`", ",", "0.26`", ",", "0.28`", ",", "0.3`", ",", "0.32`", ",", "0.34`", ",", "0.36`", ",", "0.38`", ",", "0.4`", ",", "0.42`", ",", "0.44`", ",", "0.46`", ",", "0.48`", ",", "0.5`", ",", "0.52`", ",", "0.54`", ",", "0.56`", ",", "0.58`", ",", "0.6`", ",", "0.62`", ",", "0.64`", ",", "0.66`", ",", "0.68`", ",", "0.7000000000000001`", ",", "0.72`", ",", "0.74`", ",", "0.76`", ",", "0.78`", ",", "0.8`", ",", "0.8200000000000001`", ",", "0.84`", ",", "0.86`", ",", "0.88`", ",", "0.9`", ",", "0.92`", ",", "0.9400000000000001`", ",", "0.96`", ",", "0.98`", ",", "1.`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.780274147936586*^9, 3.7816499040436573`*^9, 3.783980121139806*^9, 3.80246969495535*^9, 3.833634920949526*^9, 3.8340932552931004`*^9, 3.834215855542899*^9, 3.834308356962016*^9, 3.83499533548814*^9, 3.8378589145642*^9}, CellLabel-> "Out[137]=",ExpressionUUID->"7819029b-ee3c-4fa0-bb9a-1e770d1793d0"] }, Closed]], Cell[BoxData[ RowBox[{"NotebookSave", "[", "]"}]], "Input", CellChangeTimes->{{3.735980027143701*^9, 3.735980033258848*^9}, 3.762611583664629*^9}, CellLabel-> "In[138]:=",ExpressionUUID->"f3745fbc-99c8-459e-9cbb-5822e55414cd"] }, Closed]] }, Closed]] }, Open ]] }, Open ]] }, WindowSize->{1007, 715}, WindowMargins->{{37, Automatic}, {Automatic, 0}}, Magnification:>1.25 Inherited, FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) (June 19, 2020)", StyleDefinitions->"Default.nb", ExpressionUUID->"cce1e7f5-14bf-417a-8798-488af6693d0e" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 225, 4, 123, "Title",ExpressionUUID->"7884a72b-4a9d-4230-b804-474864bae6f4"], Cell[CellGroupData[{ Cell[830, 30, 302, 6, 263, "Chapter",ExpressionUUID->"b3c8e10e-bb68-48b8-b793-6ac768e84634"], Cell[1135, 38, 178, 3, 67, "Subtitle",ExpressionUUID->"f532d945-ce0e-4c3c-87dc-9fedc6e9a854"], Cell[CellGroupData[{ Cell[1338, 45, 151, 3, 84, "Section",ExpressionUUID->"3d889c03-020d-4a30-aefb-e6c53f2f9229"], Cell[1492, 50, 705144, 15696, 44966, "Input",ExpressionUUID->"ba664371-515d-4456-bb26-12b24804b88c"] }, Closed]], Cell[CellGroupData[{ Cell[706673, 15751, 887, 13, 65, "Section",ExpressionUUID->"7593e588-ac9f-4bb7-afe9-f33ed5414217"], Cell[707563, 15766, 9666, 200, 1312, "Input",ExpressionUUID->"78b1c3b8-acf3-4394-914c-057d3598dad1"], Cell[717232, 15968, 277, 5, 37, "Input",ExpressionUUID->"459bec97-95a7-4de5-b288-a397b3647ac8"], Cell[CellGroupData[{ Cell[717534, 15977, 304, 6, 37, "Input",ExpressionUUID->"d7a0f51c-6f84-4549-9c99-17622b30bf40"], Cell[717841, 15985, 7196, 127, 105, "Output",ExpressionUUID->"53a2b844-ec3b-41a8-a7f9-c7f55393ebcb"] }, Open ]], Cell[725052, 16115, 253, 6, 37, "Input",ExpressionUUID->"b3aaf681-9e05-4390-a36d-f91daedf6ad6"], Cell[725308, 16123, 4327, 98, 324, "Input",ExpressionUUID->"d581f502-d49a-41b2-b112-261affee5001"], Cell[CellGroupData[{ Cell[729660, 16225, 507, 9, 37, "Input",ExpressionUUID->"f49146f7-091c-441a-8af4-8f4f11658079"], Cell[730170, 16236, 4935, 96, 318, "Output",ExpressionUUID->"700a1633-dc88-4f32-a39d-032c3824336e"] }, Open ]], Cell[CellGroupData[{ Cell[735142, 16337, 196, 3, 67, "Subsection",ExpressionUUID->"b4d9544b-6567-4d6f-b5d5-d2607bd982be"], Cell[735341, 16342, 799, 14, 188, "Text",ExpressionUUID->"cf900313-5476-49fd-a7aa-d059d8cb11a2"], Cell[CellGroupData[{ Cell[736165, 16360, 135, 3, 37, "Input",ExpressionUUID->"d0cedb0e-fb53-4c86-86ba-8257f2fbe48a"], Cell[736303, 16365, 6831, 120, 745, "Output",ExpressionUUID->"540ca2cc-e52e-4d21-914b-2adfd1e100b8"] }, Closed]], Cell[CellGroupData[{ Cell[743171, 16490, 154, 2, 31, "Input",ExpressionUUID->"4d8e8607-f137-4ca7-b158-0a105156ec6e"], Cell[743328, 16494, 6921, 119, 719, "Output",ExpressionUUID->"bd025886-66eb-44d6-a973-6df9dfca1030"] }, Closed]], Cell[CellGroupData[{ Cell[750286, 16618, 156, 2, 31, "Input",ExpressionUUID->"154c2a2d-046a-48ec-8f31-c6695e3f26e5"], Cell[750445, 16622, 6940, 119, 719, "Output",ExpressionUUID->"38a709aa-516e-4764-8a64-46758d476dbf"] }, Closed]], Cell[CellGroupData[{ Cell[757422, 16746, 156, 2, 31, "Input",ExpressionUUID->"f64d906d-5a2d-404a-8df6-dbe3710abe3d"], Cell[757581, 16750, 6851, 119, 745, "Output",ExpressionUUID->"12fd134f-00bf-4993-adb0-d3e20ca9df75"] }, Closed]], Cell[CellGroupData[{ Cell[764469, 16874, 154, 2, 31, "Input",ExpressionUUID->"0bae2b08-ca7a-41c4-89a9-a312709a9c3f"], Cell[764626, 16878, 6841, 119, 745, "Output",ExpressionUUID->"4934389b-0d89-4f73-b700-a7703c069196"] }, Closed]], Cell[CellGroupData[{ Cell[771504, 17002, 154, 2, 31, "Input",ExpressionUUID->"0263fe06-d307-44f6-9abc-6e4cece4e4a4"], Cell[771661, 17006, 6986, 119, 719, "Output",ExpressionUUID->"958e2962-4202-4a88-91b5-a51c84556cef"] }, Closed]], Cell[CellGroupData[{ Cell[778684, 17130, 154, 2, 31, "Input",ExpressionUUID->"bdbf3eb8-b676-4022-98ee-18f577076a97"], Cell[778841, 17134, 6983, 119, 719, "Output",ExpressionUUID->"2bb4387b-8d59-4908-b39e-acf639352c45"] }, Closed]], Cell[CellGroupData[{ Cell[785861, 17258, 156, 2, 31, "Input",ExpressionUUID->"70447e45-98c9-46ae-a7f8-34ab1678cef9"], Cell[786020, 17262, 6851, 119, 745, "Output",ExpressionUUID->"fdbf1715-010a-4d99-b2c2-da8d6be8e236"] }, Closed]], Cell[CellGroupData[{ Cell[792908, 17386, 155, 2, 31, "Input",ExpressionUUID->"261ca73e-a832-48ee-8fec-be3b0b9482cd"], Cell[793066, 17390, 6841, 118, 719, "Output",ExpressionUUID->"18a544de-08f0-4e56-8c32-f9e1de398451"] }, Closed]], Cell[CellGroupData[{ Cell[799944, 17513, 153, 2, 31, "Input",ExpressionUUID->"e1e02a85-d181-4b91-83ae-4d12ee31bc62"], Cell[800100, 17517, 7054, 119, 745, "Output",ExpressionUUID->"85ff96ab-1aaa-46c2-bbbb-dd18179c8cf5"] }, Closed]], Cell[CellGroupData[{ Cell[807191, 17641, 155, 2, 31, "Input",ExpressionUUID->"226ddb41-60e0-4e62-99d0-83530bc47732"], Cell[807349, 17645, 7055, 119, 745, "Output",ExpressionUUID->"a52896e7-ba0d-4f46-ad5c-05959221d8d0"] }, Closed]], Cell[CellGroupData[{ Cell[814441, 17769, 153, 2, 31, "Input",ExpressionUUID->"d6c60807-16d7-4485-91cb-814024781917"], Cell[814597, 17773, 6843, 119, 719, "Output",ExpressionUUID->"b5fdf510-926a-4d78-98f1-f75a2d7822a3"] }, Closed]], Cell[CellGroupData[{ Cell[821477, 17897, 156, 2, 31, "Input",ExpressionUUID->"a712d65b-7120-4c62-8e50-495bbb00aab9"], Cell[821636, 17901, 10019, 187, 973, "Output",ExpressionUUID->"4da0cbf3-cf61-4123-a345-ad78fd95ced5"] }, Closed]], Cell[CellGroupData[{ Cell[831692, 18093, 155, 2, 31, "Input",ExpressionUUID->"613d82ae-b4f2-4e38-b8c5-c0e70e2ac5cb"], Cell[831850, 18097, 11052, 219, 1025, "Output",ExpressionUUID->"3b1e16ee-33c1-4973-a3c4-94bcaf02f82b"] }, Closed]], Cell[CellGroupData[{ Cell[842939, 18321, 156, 2, 31, "Input",ExpressionUUID->"95ffed02-ddca-406a-b119-4cc2416212b8"], Cell[843098, 18325, 8558, 149, 947, "Output",ExpressionUUID->"58d987dd-cc97-4ff0-877f-447708aa4b23"] }, Closed]], Cell[CellGroupData[{ Cell[851693, 18479, 155, 2, 31, "Input",ExpressionUUID->"05994630-7457-4abe-bcb4-38525cf495aa"], Cell[851851, 18483, 7423, 119, 869, "Output",ExpressionUUID->"e922a9ed-7cad-4b37-bf9c-fa2a7a070c5a"] }, Closed]], Cell[CellGroupData[{ Cell[859311, 18607, 160, 3, 31, "Input",ExpressionUUID->"180bd7cf-5865-4591-aaae-22351539feb3"], Cell[859474, 18612, 9962, 188, 973, "Output",ExpressionUUID->"991170a4-dbbb-41d2-997e-f3f2cc436cff"] }, Closed]], Cell[CellGroupData[{ Cell[869473, 18805, 160, 3, 31, "Input",ExpressionUUID->"254843d9-8ecf-4f9c-af10-db97436fce66"], Cell[869636, 18810, 7447, 120, 849, "Output",ExpressionUUID->"e322da74-9542-4932-ba9c-4450227992d3"] }, Closed]], Cell[CellGroupData[{ Cell[877120, 18935, 161, 3, 31, "Input",ExpressionUUID->"4db55cb7-b68d-4eb9-b53a-f7573dc80270"], Cell[877284, 18940, 11079, 220, 1025, "Output",ExpressionUUID->"0869e5ce-1dad-4068-a115-32bb2a7536ad"] }, Closed]], Cell[CellGroupData[{ Cell[888400, 19165, 158, 3, 31, "Input",ExpressionUUID->"ee61c11b-3a4d-4e79-89f9-523105c7ac1b"], Cell[888561, 19170, 7472, 120, 849, "Output",ExpressionUUID->"5002bf85-44d6-44a5-a3df-5d68016fa170"] }, Closed]], Cell[CellGroupData[{ Cell[896070, 19295, 160, 3, 31, "Input",ExpressionUUID->"56e9ba11-7e58-424c-ae04-3ef734500986"], Cell[896233, 19300, 11146, 220, 1025, "Output",ExpressionUUID->"d2d5c5e4-4202-40be-b2f0-211d99b7bd72"] }, Closed]], Cell[CellGroupData[{ Cell[907416, 19525, 158, 3, 31, "Input",ExpressionUUID->"db9f5fe7-1646-4a79-b715-87356d633c03"], Cell[907577, 19530, 7476, 120, 849, "Output",ExpressionUUID->"21d9607b-a978-4bcf-a19c-81a737cd67c8"] }, Closed]], Cell[CellGroupData[{ Cell[915090, 19655, 159, 3, 31, "Input",ExpressionUUID->"befce27c-d07b-4bbc-842f-84ec8521d526"], Cell[915252, 19660, 8134, 138, 921, "Output",ExpressionUUID->"0a197919-ddec-4afa-87c8-65704b0da904"] }, Closed]], Cell[CellGroupData[{ Cell[923423, 19803, 161, 3, 31, "Input",ExpressionUUID->"cca02f2f-6f5d-4068-839d-d062b516c527"], Cell[923587, 19808, 11152, 220, 1025, "Output",ExpressionUUID->"821c81e1-5a90-4287-a91c-f3d216be293a"] }, Closed]], Cell[CellGroupData[{ Cell[934776, 20033, 161, 3, 31, "Input",ExpressionUUID->"8eb4ed09-f6c6-4359-a023-84dce9d8831e"], Cell[934940, 20038, 7531, 120, 973, "Output",ExpressionUUID->"ea24e842-f209-4dd7-b924-c768958ec09d"] }, Closed]], Cell[CellGroupData[{ Cell[942508, 20163, 161, 3, 31, "Input",ExpressionUUID->"51eb1836-bd5c-422d-acfa-f4f3384ae0c2"], Cell[942672, 20168, 10045, 189, 973, "Output",ExpressionUUID->"7733f401-c701-4344-83eb-b7e894cc296e"] }, Closed]], Cell[CellGroupData[{ Cell[952754, 20362, 170, 3, 31, "Input",ExpressionUUID->"1902eac6-3259-4951-8d93-ec53510f59f1"], Cell[952927, 20367, 6906, 120, 745, "Output",ExpressionUUID->"1ec79979-27cf-4538-8760-b9e5fea7702d"] }, Closed]], Cell[CellGroupData[{ Cell[959870, 20492, 170, 3, 31, "Input",ExpressionUUID->"c754aee7-9f2a-437c-b047-da64ea52d4f0"], Cell[960043, 20497, 6893, 120, 745, "Output",ExpressionUUID->"41186a53-e900-4844-b674-9c8116d7dc21"] }, Closed]], Cell[CellGroupData[{ Cell[966973, 20622, 131, 2, 31, "Input",ExpressionUUID->"02f3d5af-b8ac-477d-83c0-df0979caa87f"], Cell[967107, 20626, 6940, 120, 719, "Output",ExpressionUUID->"de152b81-64f6-47d8-94bc-9c2f7e6a967d"] }, Closed]], Cell[CellGroupData[{ Cell[974084, 20751, 131, 2, 31, "Input",ExpressionUUID->"ae46cd2c-35ef-4a7c-9bc0-dc58c72480ab"], Cell[974218, 20755, 6927, 120, 719, "Output",ExpressionUUID->"c6b35464-4fd9-41a5-95ba-abad67be5135"] }, Closed]], Cell[CellGroupData[{ Cell[981182, 20880, 131, 2, 31, "Input",ExpressionUUID->"7a11886a-a4a6-43d3-bbae-1edd9b0d32bc"], Cell[981316, 20884, 6945, 120, 745, "Output",ExpressionUUID->"e453f7f0-a747-4724-95eb-3023a9e90a6a"] }, Closed]], Cell[CellGroupData[{ Cell[988298, 21009, 131, 2, 31, "Input",ExpressionUUID->"dda6af91-c7cd-4ea4-bb44-943caefaa5fa"], Cell[988432, 21013, 6921, 120, 745, "Output",ExpressionUUID->"e66f96c8-454a-418c-94cf-68235cbea3b7"] }, Closed]], Cell[CellGroupData[{ Cell[995390, 21138, 159, 3, 31, "Input",ExpressionUUID->"0d6a3211-dc9c-414e-a053-09af6fae4862"], Cell[995552, 21143, 8236, 150, 797, "Output",ExpressionUUID->"1bda2f37-af80-4300-88af-8980a7e8cc37"] }, Closed]], Cell[CellGroupData[{ Cell[1003825, 21298, 159, 3, 31, "Input",ExpressionUUID->"c2d341c9-2fca-480b-92cb-0ed531dd2e1d"], Cell[1003987, 21303, 8221, 150, 797, "Output",ExpressionUUID->"4b54e44a-3aa2-45d0-9b21-e6ba6c2d3329"] }, Closed]], Cell[CellGroupData[{ Cell[1012245, 21458, 164, 3, 31, "Input",ExpressionUUID->"97aa463a-689a-4ed8-82d9-0b5328b295d7"], Cell[1012412, 21463, 7462, 120, 977, "Output",ExpressionUUID->"a750c5cf-bb26-467a-99d9-902d7f5acfea"] }, Closed]], Cell[CellGroupData[{ Cell[1019911, 21588, 164, 3, 31, "Input",ExpressionUUID->"c734a306-4481-4422-8743-8feb97948c19"], Cell[1020078, 21593, 7484, 120, 977, "Output",ExpressionUUID->"3b4b6a8f-c274-4f61-b1bb-b9f19853e05f"] }, Closed]], Cell[CellGroupData[{ Cell[1027599, 21718, 159, 3, 31, "Input",ExpressionUUID->"1d522d09-e698-4540-a33a-3afcbbe44704"], Cell[1027761, 21723, 8553, 160, 771, "Output",ExpressionUUID->"7ac1a823-296a-42d6-a146-37f69a8567e4"] }, Closed]], Cell[CellGroupData[{ Cell[1036351, 21888, 159, 3, 31, "Input",ExpressionUUID->"a9688451-eece-41e9-9451-b39700e909bc"], Cell[1036513, 21893, 8549, 160, 771, "Output",ExpressionUUID->"8cca1ca8-795e-4de0-ac1f-41f5542bd6e0"] }, Closed]], Cell[CellGroupData[{ Cell[1045099, 22058, 167, 3, 31, "Input",ExpressionUUID->"f0ac1d47-a7c2-4db1-a8aa-8813ee29b752"], Cell[1045269, 22063, 2773, 48, 225, "Output",ExpressionUUID->"26241a20-4d14-4303-8a48-da8d8de8a16b"] }, Closed]], Cell[CellGroupData[{ Cell[1048079, 22116, 164, 3, 31, "Input",ExpressionUUID->"709d70a0-3761-4f30-b5a7-a2915d23f932"], Cell[1048246, 22121, 2775, 48, 225, "Output",ExpressionUUID->"714af988-c5f3-461b-bf60-3641adbcdff6"] }, Closed]], Cell[CellGroupData[{ Cell[1051058, 22174, 170, 3, 31, "Input",ExpressionUUID->"ce5f6f36-cedb-4a5c-8375-c7d5f3989fa2"], Cell[1051231, 22179, 2770, 48, 225, "Output",ExpressionUUID->"7a564e40-5365-4258-a120-15df9f1802c7"] }, Closed]], Cell[CellGroupData[{ Cell[1054038, 22232, 167, 3, 31, "Input",ExpressionUUID->"56a292e1-615d-4dfd-8ed6-1c2a9e6062c0"], Cell[1054208, 22237, 2771, 48, 225, "Output",ExpressionUUID->"3630cbbf-6d3c-4bfe-8499-3c5460a60129"] }, Closed]], Cell[CellGroupData[{ Cell[1057016, 22290, 158, 3, 31, "Input",ExpressionUUID->"e15f2db9-0ea4-451a-be7c-085701edb0b1"], Cell[1057177, 22295, 3439, 56, 433, "Output",ExpressionUUID->"e1bd93ee-e1dc-4626-8eae-5edce491cbb6"] }, Closed]], Cell[CellGroupData[{ Cell[1060653, 22356, 158, 3, 31, "Input",ExpressionUUID->"6ecfdb91-3211-4ab8-a6d6-71707dbf3bd0"], Cell[1060814, 22361, 2938, 50, 251, "Output",ExpressionUUID->"e5777aff-8164-43a5-b061-a38e2733b185"] }, Closed]], Cell[CellGroupData[{ Cell[1063789, 22416, 158, 3, 31, "Input",ExpressionUUID->"980b644f-79c9-45d3-8e77-cf87cbf14d6b"], Cell[1063950, 22421, 3792, 64, 433, "Output",ExpressionUUID->"7819029b-ee3c-4fa0-bb9a-1e770d1793d0"] }, Closed]], Cell[1067757, 22488, 235, 5, 31, "Input",ExpressionUUID->"f3745fbc-99c8-459e-9cbb-5822e55414cd"] }, Closed]] }, Closed]] }, Open ]] }, Open ]] } ] *)