(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 11.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1064, 20] NotebookDataLength[ 975716, 20430] NotebookOptionsPosition[ 960628, 19949] NotebookOutlinePosition[ 961048, 19967] CellTagsIndexPosition[ 961005, 19964] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Mathematica Supplement: Host-parasite genome wide association studies and \ Coevolutionary simulations. \ \>", "Title", CellChangeTimes->{{3.708791232946456*^9, 3.708791245845277*^9}, { 3.7087912945347443`*^9, 3.708791321086467*^9}, {3.708791380889209*^9, 3.7087914193921347`*^9}}], Cell[TextData[StyleBox["Keeping pace with the Red Queen: identifying the \ genetic basis of susceptibility to infectious disease. Ailene MacPherson, \ Sarah P. Otto, and Scott L. Nuismer. Genetics.", FontSize->18, FontSlant->"Italic"]], "Text", CellChangeTimes->{{3.7087913299106283`*^9, 3.70879135047863*^9}, { 3.708791427151944*^9, 3.7087914940063457`*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.708791541898834*^9, 3.708791541901705*^9}}], Cell[TextData[{ "We are interested in determining the genetic basis of susceptibility ", Cell[BoxData[ FormBox[ RowBox[{"(", "S", ")"}], TraditionalForm]]], " of a host ", Cell[BoxData[ FormBox[ RowBox[{"(", "H", ")"}], TraditionalForm]]], " to a parasite (P). We begin by deriving defining three different \ functions for the susceptibility as a function of host and pathogen genes. \ These functional forms include the phentoypic-difference model, the \ phenotypic matching-model, the 2-locus matching-alleles model" }], "Text", CellChangeTimes->{{3.708791811774124*^9, 3.708791875063307*^9}, { 3.708959479680794*^9, 3.708959612698099*^9}, {3.708959654989463*^9, 3.708959658571308*^9}}], Cell[CellGroupData[{ Cell[TextData[{ "Defining Interactions: Deriving expressions for ", Cell[BoxData[ FormBox[ RowBox[{"S", "(", RowBox[{ SubscriptBox["X", "H"], ",", SubscriptBox["X", "P"]}], ")"}], TraditionalForm]], FormatType->"TraditionalForm"] }], "Chapter", CellChangeTimes->{{3.708791537701034*^9, 3.70879160613083*^9}}], Cell[CellGroupData[{ Cell["Phenotypic-Difference model", "Section", CellChangeTimes->{{3.7089598620735693`*^9, 3.7089598671443443`*^9}}], Cell[TextData[{ "We begin by considering a host-parasite interaction which is determined by \ a phenotype ", Cell[BoxData[ FormBox[ SubscriptBox["z", "H"], TraditionalForm]]], " in the host and a phenotype ", Cell[BoxData[ FormBox[ SubscriptBox["z", "P"], TraditionalForm]]], " in the pathogen. We begin by considering the phenotypes ", Cell[BoxData[ FormBox[ SubscriptBox["z", "H"], TraditionalForm]]], " and ", Cell[BoxData[ FormBox[ SubscriptBox["z", "P"], TraditionalForm]]], " have the simplest possible genetic basis for a \ \[OpenCurlyDoubleQuote]complex trait\[CloseCurlyDoubleQuote]. In particular, \ suppose they are each determined by two additive loci each with two alleles. \ If we let ", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["X", "S"], "[", "i", "]"}], TraditionalForm]]], " be an indicator variable that takes on a value of 0 or 1 depending on the \ allele present at locus ", StyleBox["i", FontSlant->"Italic"], " in species ", StyleBox["S, ", FontSlant->"Italic"], "and let ", StyleBox["bSi", FontSlant->"Italic"], " be the additive effect size of a \[OpenCurlyDoubleQuote]1\ \[CloseCurlyDoubleQuote] allele at locus ", StyleBox["i ", FontSlant->"Italic"], "in species ", StyleBox["S, ", FontSlant->"Italic"], "we can express the phenotypes of the two species as follows." }], "Text", CellChangeTimes->{3.708959897816008*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1_", ",", "XH2_"}], "]"}], ":=", RowBox[{"bH0", "+", RowBox[{"bH1", " ", "XH1"}], "+", RowBox[{"bH2", " ", "XH2"}], "+", "eH"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zP", "[", RowBox[{"XP1_", ",", "XP2_"}], "]"}], ":=", RowBox[{"bP0", "+", RowBox[{"bP1", " ", "XP1"}], "+", RowBox[{"bP2", " ", "XP2"}], "+", "eP"}]}], ";"}]}], "Input", CellChangeTimes->{{3.694885976399129*^9, 3.694886037225608*^9}, { 3.6948879007871976`*^9, 3.694887933491068*^9}, {3.694892133092272*^9, 3.694892149859231*^9}, {3.694892231155881*^9, 3.6948922511880264`*^9}, { 3.694892507125665*^9, 3.694892577755705*^9}, {3.694959741715787*^9, 3.694959783288165*^9}, {3.698582430392784*^9, 3.698582435616076*^9}}], Cell["\<\ Here bH0 and bP0 is the phenotype of an individual with both \ \[OpenCurlyDoubleQuote]0\[CloseCurlyDoubleQuote] alleles present.\ \>", "Text", CellChangeTimes->{{3.6948860411188307`*^9, 3.6948861097507563`*^9}, { 3.6948862828956594`*^9, 3.69488636071111*^9}, {3.694886491447588*^9, 3.6948864926956596`*^9}, {3.69495978757041*^9, 3.6949597938327675`*^9}, { 3.696254257923309*^9, 3.696254259498399*^9}, {3.708960238574746*^9, 3.708960239661623*^9}}], Cell[TextData[{ "In the difference phenotype model, host susceptibility (probability of \ infection) is given by the following function of ", Cell[BoxData[ FormBox[ SubscriptBox["z", "H"], TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["z", "P"], TraditionalForm]], FormatType->"TraditionalForm"], ":" }], "Text", CellChangeTimes->{{3.694886383542416*^9, 3.6948864139271545`*^9}, { 3.696254271441082*^9, 3.6962542722731295`*^9}, {3.708960249937907*^9, 3.708960325936047*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Pdiff", "[", RowBox[{"zH_", ",", "zP_"}], "]"}], ":=", FractionBox["1", RowBox[{"1", "+", RowBox[{"Exp", "[", RowBox[{"\[Alpha]", " ", RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}]}], "]"}]}]]}]], "Input", CellChangeTimes->{{3.6948864157592587`*^9, 3.694886443633853*^9}, { 3.694886857083501*^9, 3.694886859699651*^9}, {3.6948869242833447`*^9, 3.6948869245873623`*^9}, {3.694886966927784*^9, 3.6948869745712214`*^9}, { 3.6948870081001387`*^9, 3.6948870252431192`*^9}, {3.6948871549715395`*^9, 3.694887158978769*^9}, {3.694959872403262*^9, 3.694959874018354*^9}, 3.698761657201035*^9}], Cell[TextData[{ "Assuming that the difference between the host and pathogens phenotypes is \ small, ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}], "\[TildeTilde]", "0"}], TraditionalForm]]], ", in this case susceptibility can be approximated by the first few terms \ (2nd order) Taylor series expansion" }], "Text", CellChangeTimes->{{3.6948865404303894`*^9, 3.6948866796073503`*^9}, 3.696254277481427*^9, {3.70896033550828*^9, 3.708960405069736*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PdiffA", "[", RowBox[{"zH_", ",", "zP_"}], "]"}], ":=", RowBox[{ RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Pdiff", "[", RowBox[{"zh", ",", "zp"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"zh", "-", "zp"}], ")"}], "\[Rule]", "x"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.6948867838013096`*^9, 3.6948868180982714`*^9}, { 3.694887229826821*^9, 3.694887247906855*^9}, 3.7089607334975023`*^9}], Cell["\<\ Substituting in zH and zP we have an expression for susceptibility becomes.\ \>", "Text", CellChangeTimes->{{3.694887944798715*^9, 3.694887976646537*^9}, 3.6962542794975424`*^9, {3.708960436834494*^9, 3.708960444610928*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PdiffA", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.694887499521247*^9, 3.6948875026174235`*^9}, { 3.6948879389053783`*^9, 3.694887939504412*^9}, {3.6948879797127123`*^9, 3.69488799296947*^9}, {3.6948921950498157`*^9, 3.694892210968726*^9}, 3.694892581257905*^9, {3.6949598685770426`*^9, 3.694959888561186*^9}, 3.7089607317389507`*^9}], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"bH0", "-", "bP0", "+", "eH", "-", "eP", "+", RowBox[{"bH1", " ", "XH1"}], "+", RowBox[{"bH2", " ", "XH2"}], "-", RowBox[{"bP1", " ", "XP1"}], "-", RowBox[{"bP2", " ", "XP2"}]}], ")"}], " ", "\[Alpha]"}]}]], "Output", CellChangeTimes->{ 3.6948875030674496`*^9, 3.694887993700512*^9, {3.6948921814630384`*^9, 3.694892211419752*^9}, {3.694892255356265*^9, 3.6948922690580482`*^9}, 3.6948925859761753`*^9, 3.694959582796697*^9, {3.6949598803237147`*^9, 3.694959889040213*^9}, 3.694963510844369*^9, 3.69496356419742*^9, 3.695041825951617*^9, 3.6950454440858345`*^9, 3.695045936274783*^9, 3.695047102969515*^9, 3.695062902145754*^9, 3.6950662359144344`*^9, 3.69512493262323*^9, 3.6953961713125567`*^9, 3.695396705545845*^9, 3.6953985373375454`*^9, 3.6954844047175937`*^9, 3.695563012428217*^9, 3.6961795311701746`*^9, 3.696185958758428*^9, 3.696189108170455*^9, 3.6962514614693604`*^9, 3.696251508641059*^9, 3.6962611796812105`*^9, 3.6962712985291243`*^9, 3.6962763536077375`*^9, 3.6962829518001328`*^9, 3.696284320824436*^9, 3.697204517209695*^9, 3.698063378915883*^9, 3.6980637511636353`*^9, 3.69849280729394*^9, 3.698500649700466*^9, 3.698582444035026*^9, 3.698587851694447*^9, 3.698588473456785*^9, 3.698589765349636*^9, 3.698619937042831*^9, 3.698663004261467*^9, 3.6986630348699303`*^9, 3.698664518023821*^9, 3.698670274798321*^9, 3.6986716434289637`*^9, 3.698671706218457*^9, 3.698673158317212*^9, 3.698674496863536*^9, 3.6987614822106037`*^9, 3.698761860411005*^9, 3.6989522945304403`*^9, 3.698954297450397*^9, 3.699015298852428*^9, 3.6990208436229486`*^9, 3.6990362695664473`*^9, 3.700838195725622*^9, 3.700909528107991*^9, 3.700913514333349*^9, 3.701006537518929*^9, 3.701704155485429*^9, 3.70689673354044*^9, 3.706958343414138*^9, 3.7086902829864492`*^9, 3.708960037395035*^9, 3.708960739456492*^9, 3.708965383069539*^9, 3.7092935695284853`*^9, 3.7177600673888483`*^9}] }, Open ]], Cell["\<\ Finally by letting variable XH be a vector of the host alleles and XP a \ vector or the pathogen alleles\ \>", "Text", CellChangeTimes->{{3.708960004220871*^9, 3.708960031952566*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PdiffX", "[", RowBox[{"XH_", ",", "XP_"}], "]"}], ":=", RowBox[{"PdiffA", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{ RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"zP", "[", RowBox[{ RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.708959928790621*^9, 3.708959964727228*^9}, 3.7089600418452177`*^9, 3.708960741481689*^9}] }, Open ]], Cell[CellGroupData[{ Cell["The Phenotypic-Matching model", "Section", CellChangeTimes->{{3.70896006550143*^9, 3.708960080009801*^9}}], Cell[TextData[{ "As with the phenotypic-difference model we begin by defining a simple \ genetic architecture to two traits ", Cell[BoxData[ FormBox[ SubscriptBox["z", "H"], TraditionalForm]], FormatType->"TraditionalForm"], " and ", Cell[BoxData[ FormBox[ SubscriptBox["z", "P"], TraditionalForm]], FormatType->"TraditionalForm"], " as a additive function of two loci in the host and two loci in the \ pathogen respectively." }], "Text", CellChangeTimes->{{3.7089601405070744`*^9, 3.708960220237348*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1_", ",", "XH2_"}], "]"}], ":=", RowBox[{"bH0", "+", RowBox[{"bH1", " ", "XH1"}], "+", RowBox[{"bH2", " ", "XH2"}], "+", "eH"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"zP", "[", RowBox[{"XP1_", ",", "XP2_"}], "]"}], ":=", RowBox[{"bP0", "+", RowBox[{"bP1", " ", "XP1"}], "+", RowBox[{"bP2", " ", "XP2"}], "+", "eP"}]}], ";"}]}], "Input", CellChangeTimes->{{3.694885976399129*^9, 3.694886037225608*^9}, { 3.6948879007871976`*^9, 3.694887933491068*^9}, {3.694892133092272*^9, 3.694892149859231*^9}, {3.694892231155881*^9, 3.6948922511880264`*^9}, { 3.694892507125665*^9, 3.694892577755705*^9}, {3.694959741715787*^9, 3.694959783288165*^9}, {3.698582430392784*^9, 3.698582435616076*^9}}], Cell["However now susceptibility has a gaussian form: ", "Text", CellChangeTimes->{{3.7089604788917227`*^9, 3.7089605155283623`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Pmatch", "[", RowBox[{"zH_", ",", "zP_"}], "]"}], ":=", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Alpha]"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}], "2"]}], "]"}]}]], "Input", CellChangeTimes->{{3.6948864157592587`*^9, 3.694886443633853*^9}, { 3.694886857083501*^9, 3.694886859699651*^9}, {3.6948869242833447`*^9, 3.6948869245873623`*^9}, {3.694886966927784*^9, 3.6948869745712214`*^9}, { 3.6948870081001387`*^9, 3.6948870252431192`*^9}, {3.6948871549715395`*^9, 3.694887158978769*^9}, {3.694959872403262*^9, 3.694959874018354*^9}, 3.698761657201035*^9, {3.708960520926195*^9, 3.7089605309821568`*^9}, { 3.70896065968542*^9, 3.708960664443902*^9}}], Cell[TextData[{ "When we approximate this function with the first 2 terms of the Taylor \ series about ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}], "\[TildeTilde]", "0"}], TraditionalForm]]], " we have" }], "Text", CellChangeTimes->{{3.708960574442575*^9, 3.708960604082502*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PmatchA", "[", RowBox[{"zH_", ",", "zP_"}], "]"}], ":=", RowBox[{ RowBox[{"Normal", "[", RowBox[{"Series", "[", RowBox[{ RowBox[{ RowBox[{"Pmatch", "[", RowBox[{"zh", ",", "zp"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"zh", "-", "zp"}], ")"}], "\[Rule]", "x"}], "}"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], "]"}], "]"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"(", RowBox[{"zH", "-", "zP"}], ")"}]}]}]}]], "Input", CellChangeTimes->{{3.708960612888688*^9, 3.708960618047213*^9}, 3.708960706638773*^9}], Cell["\<\ Substituting in zH and zP we have an expression for susceptibility becomes.\ \>", "Text", CellChangeTimes->{{3.694887944798715*^9, 3.694887976646537*^9}, 3.6962542794975424`*^9, {3.708960436834494*^9, 3.708960444610928*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PmatchA", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.694887499521247*^9, 3.6948875026174235`*^9}, { 3.6948879389053783`*^9, 3.694887939504412*^9}, {3.6948879797127123`*^9, 3.69488799296947*^9}, {3.6948921950498157`*^9, 3.694892210968726*^9}, 3.694892581257905*^9, {3.6949598685770426`*^9, 3.694959888561186*^9}, { 3.708960633143455*^9, 3.7089606357393723`*^9}, {3.708960709117908*^9, 3.708960709405094*^9}}], Cell[BoxData[ RowBox[{"1", "-", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"bH0", "-", "bP0", "+", "eH", "-", "eP", "+", RowBox[{"bH1", " ", "XH1"}], "+", RowBox[{"bH2", " ", "XH2"}], "-", RowBox[{"bP1", " ", "XP1"}], "-", RowBox[{"bP2", " ", "XP2"}]}], ")"}], "2"], " ", "\[Alpha]"}]}]], "Output", CellChangeTimes->{ 3.6948875030674496`*^9, 3.694887993700512*^9, {3.6948921814630384`*^9, 3.694892211419752*^9}, {3.694892255356265*^9, 3.6948922690580482`*^9}, 3.6948925859761753`*^9, 3.694959582796697*^9, {3.6949598803237147`*^9, 3.694959889040213*^9}, 3.694963510844369*^9, 3.69496356419742*^9, 3.695041825951617*^9, 3.6950454440858345`*^9, 3.695045936274783*^9, 3.695047102969515*^9, 3.695062902145754*^9, 3.6950662359144344`*^9, 3.69512493262323*^9, 3.6953961713125567`*^9, 3.695396705545845*^9, 3.6953985373375454`*^9, 3.6954844047175937`*^9, 3.695563012428217*^9, 3.6961795311701746`*^9, 3.696185958758428*^9, 3.696189108170455*^9, 3.6962514614693604`*^9, 3.696251508641059*^9, 3.6962611796812105`*^9, 3.6962712985291243`*^9, 3.6962763536077375`*^9, 3.6962829518001328`*^9, 3.696284320824436*^9, 3.697204517209695*^9, 3.698063378915883*^9, 3.6980637511636353`*^9, 3.69849280729394*^9, 3.698500649700466*^9, 3.698582444035026*^9, 3.698587851694447*^9, 3.698588473456785*^9, 3.698589765349636*^9, 3.698619937042831*^9, 3.698663004261467*^9, 3.6986630348699303`*^9, 3.698664518023821*^9, 3.698670274798321*^9, 3.6986716434289637`*^9, 3.698671706218457*^9, 3.698673158317212*^9, 3.698674496863536*^9, 3.6987614822106037`*^9, 3.698761860411005*^9, 3.6989522945304403`*^9, 3.698954297450397*^9, 3.699015298852428*^9, 3.6990208436229486`*^9, 3.6990362695664473`*^9, 3.700838195725622*^9, 3.700909528107991*^9, 3.700913514333349*^9, 3.701006537518929*^9, 3.701704155485429*^9, 3.70689673354044*^9, 3.706958343414138*^9, 3.7086902829864492`*^9, 3.708960037395035*^9, 3.708960636284688*^9, 3.708960667868215*^9, 3.708960713554543*^9, 3.7089653831899137`*^9, 3.70929356963118*^9, 3.717760067522794*^9}] }, Open ]], Cell["\<\ Finally by letting variable XH be a vector of the host alleles and XP a \ vector or the pathogen alleles\ \>", "Text", CellChangeTimes->{{3.708960004220871*^9, 3.708960031952566*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PmatchX", "[", RowBox[{"XH_", ",", "XP_"}], "]"}], ":=", RowBox[{"PmatchA", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{ RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", RowBox[{"zP", "[", RowBox[{ RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.708959928790621*^9, 3.708959964727228*^9}, 3.7089600418452177`*^9, {3.708960699982643*^9, 3.7089607041968317`*^9}, 3.708960752876133*^9}] }, Open ]], Cell[CellGroupData[{ Cell["2-locus Matching-alleles model", "Section", CellChangeTimes->{{3.708959786350444*^9, 3.7089597932144003`*^9}, 3.708961286452135*^9}], Cell["\<\ For the final model of susceptibility we use an interaction which is \ explicitly defined to depend on the combination of host and parasite loci \ present. In particular for a haploid 2-locus host and parasite each of the \ four host genotypes can be infected by the corresponding genotype in the \ pathogen. We define IM as a infection matrix which gives the probability of \ host genotype i being infected by pathogen genotype j, in this case it is \ simply the 4x4 identify matrix.\ \>", "Text", CellChangeTimes->{{3.70896068334538*^9, 3.708960687728376*^9}, { 3.708961272423478*^9, 3.708961432525704*^9}, {3.708961554768507*^9, 3.7089615628166857`*^9}, {3.70896162504209*^9, 3.708961625562291*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"IM", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.7061954519842653`*^9, 3.7061955762234507`*^9}, { 3.7089598091960697`*^9, 3.708959819339436*^9}, 3.7089614353021603`*^9}], Cell["\<\ The resulting susceptibility of the host genotype given by the vector XH by \ the pathogen genotype XP is given by:\ \>", "Text", CellChangeTimes->{{3.708961541105443*^9, 3.708961598837339*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PmamX", "[", RowBox[{"XH_", ",", "XP_"}], "]"}], ":=", RowBox[{"IM", "[", RowBox[{"[", RowBox[{ RowBox[{"1", "+", RowBox[{"2", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"1", "+", RowBox[{"2", RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{ 3.7089598259000072`*^9, {3.708960054166523*^9, 3.7089600554615726`*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Inferring genetic effects: Deriving analytical expressions for \[Beta]s\ \>", "Chapter", CellChangeTimes->{{3.708791613739039*^9, 3.7087916401353407`*^9}}], Cell["\<\ Here we use two different genetic association study designs to infer the \ genetic basis of susceptibility. In the first design, single-species GWAS, \ we infer the additive effects and epistatic interaction between the loci of a \ single species. We arbitrarily chose to focus on the host in this design. \ The second design, the two-species CoGWAS, infers the additive effects and \ epistatic interactions between the loci of both species including the \ interactions between host and pathogen loci. The results attained here are \ derived analytically and represent the expectations given an infinite sample \ size. We conclude this section by considering the effect of finite sample \ sizes.\ \>", "Text", CellChangeTimes->{{3.6948881349585915`*^9, 3.694888417950778*^9}, { 3.696254370698759*^9, 3.6962543815153775`*^9}, {3.7089616580089827`*^9, 3.708961727500607*^9}, 3.7089646810660887`*^9}], Cell[CellGroupData[{ Cell["Single-species (Host-Only) GWAS", "Subchapter", CellChangeTimes->{{3.708961761174247*^9, 3.708961785205339*^9}, 3.708964668975893*^9}], Cell[CellGroupData[{ Cell["The Linear Regression Model", "Section", CellChangeTimes->{{3.709303082898612*^9, 3.709303087629668*^9}}], Cell["\<\ In the host-only method we fit susceptibility with a the following linear \ regression.\ \>", "Text", CellChangeTimes->{{3.694889855695012*^9, 3.694889962887143*^9}, { 3.708961806183783*^9, 3.708961807894182*^9}, 3.709292802234622*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Pfit1", "[", "XH_", "]"}], ":=", RowBox[{"\[Beta]0", "+", RowBox[{"\[Beta]H1", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H2", " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H12", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6948899766349297`*^9, 3.6948900274588366`*^9}, { 3.6948921557865696`*^9, 3.6948921640990453`*^9}, {3.6948931534516325`*^9, 3.6948931604590335`*^9}, {3.6949599247622566`*^9, 3.6949599525218444`*^9}, { 3.6949604990181017`*^9, 3.694960499609136*^9}, {3.7092929784729853`*^9, 3.709292997560007*^9}}], Cell["\<\ Here \[Beta]H1 and \[Beta]H2 are the inferred additive effects of the \ \[OpenCurlyDoubleQuote]1\[CloseCurlyDoubleQuote] allele at host locus 1 and 2 \ whereas \[Beta]H[1,2] is the inferred epistatic interaction between the host \ loci. Finally, \[Beta][0] is the intercept which approximates the phenotype \ of a host individual with all \ \[OpenCurlyDoubleQuote]0\[CloseCurlyDoubleQuote] alleles.\ \>", "Text", CellChangeTimes->{{3.694890038870489*^9, 3.6948902072791214`*^9}, { 3.6949615677772317`*^9, 3.694961569530332*^9}, {3.696254384459546*^9, 3.696254395612184*^9}}], Cell[TextData[{ "Using least squares regression to fit susceptibility of the form, PinfX, we \ first calculate the mean squared error. This requires information on the \ genetic makeup of the host and pathogen populations. In particular, suppose \ that the frequency of the \[OpenCurlyDoubleQuote]1\[CloseCurlyDoubleQuote] \ allele at locus i in species S is given by pS[i] and the linkage \ disequilibrium between the loci in species S is given by LDS. Assuming \ Hardy-Weinberg proportions in the host and pathogen the resulting frequency \ of genotype ", StyleBox["xh1,xh2", FontSlant->"Italic"], " in each species is given by:" }], "Text", CellChangeTimes->{{3.694890234854699*^9, 3.6948905290405254`*^9}, { 3.6948909561719556`*^9, 3.6948909628643384`*^9}, 3.6948911231605067`*^9, { 3.694891927794529*^9, 3.6948919284555674`*^9}, {3.696254398699361*^9, 3.6962544115640965`*^9}, {3.708961863081258*^9, 3.7089618711517553`*^9}, { 3.709293054809677*^9, 3.70929309366955*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"FreqH", "[", RowBox[{"XH1_", ",", "XH2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["pH1", "XH1"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pH1"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XH1"}], ")"}]], SuperscriptBox["pH2", "XH2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pH2"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XH2"}], ")"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"Abs", "[", RowBox[{"XH1", "-", "XH2"}], "]"}]], "LDH"}]}], "//", "Simplify"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FreqP", "[", RowBox[{"XP1_", ",", "XP2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["pP1", "XP1"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP1"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XP1"}], ")"}]], SuperscriptBox["pP2", "XP2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP2"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XP2"}], ")"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"Abs", "[", RowBox[{"XP1", "-", "XP2"}], "]"}]], "LDP"}]}], "//", "Simplify"}]}]}], "Input", CellChangeTimes->{{3.694890495290595*^9, 3.694890732894185*^9}, { 3.694890799887017*^9, 3.6948908874940276`*^9}, {3.694890917855764*^9, 3.694891025989949*^9}, {3.694891114030985*^9, 3.6948911342911434`*^9}, { 3.694891205444213*^9, 3.6948912086123943`*^9}, {3.694891251876869*^9, 3.694891270563938*^9}, {3.694891587963092*^9, 3.6948916369418936`*^9}, { 3.694892302356953*^9, 3.6948923327366905`*^9}, {3.6948931450001497`*^9, 3.6948931717666807`*^9}, {3.6949599571501093`*^9, 3.694960019181657*^9}}], Cell["\<\ Given these genotype frequencies, if we assume hosts and pathogens come into \ contact with one another at random and that the probability of infection is \ given by the function PinfX we can write the mean squared error as:\ \>", "Text", CellChangeTimes->{{3.6948918151830883`*^9, 3.694891856839471*^9}, { 3.694891909912506*^9, 3.6948919328718195`*^9}, 3.696254412713162*^9, { 3.7089619275460367`*^9, 3.7089619790245647`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MSE", "[", "PinfX_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FreqH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], RowBox[{"FreqP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"PinfX", "[", RowBox[{ RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "XP2"}], "}"}]}], "]"}], "-", RowBox[{"Pfit1", "[", RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], "]"}]}], ")"}], "2"]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.6948902971782637`*^9, 3.6948902990163684`*^9}, { 3.6948919357689857`*^9, 3.694891936793044*^9}, {3.694892019231759*^9, 3.6948920805862684`*^9}, {3.694892339528079*^9, 3.694892385043682*^9}, { 3.6948924187396097`*^9, 3.694892466246327*^9}, {3.6948926160858974`*^9, 3.69489263134077*^9}, {3.6948930822855625`*^9, 3.694893107724017*^9}, 3.6949595764703355`*^9, {3.6949603868846884`*^9, 3.694960422603731*^9}, { 3.6949604924847283`*^9, 3.694960494308833*^9}, {3.7089619626934433`*^9, 3.7089620114115477`*^9}, {3.709292959371591*^9, 3.709292962339472*^9}}], Cell["\<\ We can then solve for \[Beta]0, \[Beta]H1, \[Beta]H2, and \[Beta]H12 by \ minimizing this error. In other words by solving the following equations for \ \[Beta]0,\[Beta]H1, \[Beta]H2, and \[Beta]H12\ \>", "Text", CellChangeTimes->{{3.7089620532359047`*^9, 3.708962112679607*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Equs", "[", "PinfX_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE", "[", "PinfX", "]"}], ",", "\[Beta]0"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE", "[", "PinfX", "]"}], ",", "\[Beta]H1"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE", "[", "PinfX", "]"}], ",", "\[Beta]H2"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE", "[", "PinfX", "]"}], ",", "\[Beta]H12"}], "]"}], "\[Equal]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vars", "=", RowBox[{"{", RowBox[{ "\[Beta]0", ",", "\[Beta]H1", ",", "\[Beta]H2", ",", "\[Beta]H12"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.696250532999918*^9, 3.6962505599416056`*^9}, { 3.708962121077528*^9, 3.7089621410664787`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-Difference Model", "Section", CellChangeTimes->{{3.708962159354445*^9, 3.7089621681046467`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Beta]HOdiff", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Equs", "[", "PdiffX", "]"}], "]"}], ",", "Vars"}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.7089621786632853`*^9, 3.7089622555344973`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"bH0", " ", "\[Alpha]"}], "+", RowBox[{"bP0", " ", "\[Alpha]"}], "-", RowBox[{"eH", " ", "\[Alpha]"}], "+", RowBox[{"eP", " ", "\[Alpha]"}], "+", RowBox[{"bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"bP2", " ", "pP2", " ", "\[Alpha]"}]}], ")"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH1", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH2", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{{3.7089622218352127`*^9, 3.708962256901661*^9}, 3.708962508378923*^9, 3.708965386566169*^9, 3.709299992342705*^9, 3.71776007369145*^9}] }, Open ]], Cell["\<\ Plotting these coefficients as a function of pathogen allele frequency pP1=pP2\ \>", "Text", CellChangeTimes->{{3.708962344716824*^9, 3.708962373622974*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.8"}], ",", " ", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5"}], ",", RowBox[{"bH2", "\[Rule]", "0.2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.35"}], ",", RowBox[{"bP2", "\[Rule]", "0.5"}], ",", RowBox[{"eH", "\[Rule]", "0.0"}], ",", RowBox[{"eP", "\[Rule]", "0.0"}], ",", RowBox[{"pP1", "\[Rule]", "pP"}], ",", RowBox[{"pP2", "\[Rule]", "pP"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.708962436781644*^9, 3.708962484800558*^9}, { 3.70896251546064*^9, 3.708962521859193*^9}, {3.708965704052682*^9, 3.708965706245079*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HOdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HOdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HOdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HOdiff"}], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{"Pink", ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706963513438545*^9, 3.706963515405864*^9}, {3.708962382962473*^9, 3.708962393409053*^9}, 3.7089624241508913`*^9, {3.708962531092802*^9, 3.708962552945405*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVzHs0VAkAx/GZoditSG06I+oQW6TlWITZ7bdbnVV55THFprKimFUYzqkc lRGxMdhyrLwqj7xOTcX0Qtpi2q28R9SKe+/cK++rB1PtMXb2j9/5ns8/P/PQ aL9wHofD8dLu/+4MH+l6OCrcLFAOcDkcArpbTWKG+I4I9soMOqL1t5fyi+r4 23BSIbj5SmuPtr5bxfwAPLhbECLnEtgTpm46zw/DluLAZpEOgdd2aVul/Hjs OKRM7F1I4PIKn7Pn+CnY/fGZumYJAYl+3brf+LkQmzZMClcRCAy6Ipt+W46w UruEjy4EFs1Lgt1Xy1Br6OpeHkDAyndq5HFGPYwlyWtaowkca3dF/od7cLMP zXeQElhZbzTI5TZDrnjhW11F4Da19XnHd48wVkDWRikIPBIVrwqaaMGWOFuj ChWBma+/N7x25AmmHRbfGdYQ4H2qXbrK6ikC7ZPn4k1JOM+H3Pa//hzGK6Qp i11IPE9xbFfYdEA912fM9yexJmf8U/VUJ85b3tshjiExrh4a7LXvxhkHuyZl BonysYanBlk9sDsl6DpTTcLArJKlaSXm2tKmKxUkMiPlhy5bvoDFgshdvSSJ 2R9q6YjTfeAkELt85knEO7TUGz/uh9OLid+7TSgMXW/J6DJ/BauY7LhSFwr/ ipSF1gn/YJOBOOSNkMKGH/U0hxoGUHJhVOoUS8G91PzwzZWD+HO3em9nFoVj ZgcsyOAhuHELRPE1FGwnhIv6vAgoZYkp0lYKyw2n9Vs+E7Apmtn8nqKg21wo W1tEojdaxy1UQ+FXx4aXX3hQEEgqe81MVajdEXr5wSyFlryMRG9XFWbGTZYO 56lQekE3LD1ABbm/u07uNhqC9uUTBmIVTm9PvVQ/TMNm+k59iVQF89c7+8tS GQiMi9LLqlRw25SSy3cYhl6C8dyHVhWCV3d84vYMw7rV6pYPqf1/KqViJG+w 0PuZnlqjQr7u/ng/yxG4PFhQUmlCY/mgvJTXMoIshyS0OdFYcFIS4Bo7imI6 RwJ/Gpzq/TJq2Rh4p5x1G47SEBfIpMsejWGtULzuTCaNpg3p+kZHxxFuPyV8 WE3DaKfYNtlgApp3mpaFrTQGNnb2nGicgO/7CuVFisaNEljS+yfx+RVp6ayh sU/mbGSmmYRCsS/Jnc8gKfWKZKBmCp7T0YkVzgyujZgVGniyWM9deW+xH4P0 4tSQQW8Wf/2ctiJN6zC/Savrviwi6tWxXH8Gpo2NN7z2sKg63G8zq/W57L2K zFAWNu0Xi4aEDCKcL7798gQL20LTpFtBDCxSvtqud5WFnZOFe+AvDDQuiUv6 qlh0ZJ0v69b65aSq+2oti+gRHscrlEHOnrp9P91kcaNQdffHgwzmbfziUhtZ 2PMqbDaEMxjoyi7R6WHh0LHOQBPB4O5Z9cGeXhbd6/NFxyMZ5AoOWJf1s4hL 1n/yTmuPim/qtwyyqHMaPf1GxOD+8ba/JaMsHItq3nZGMcjb6JTtO8FCOWPi 7XGEQSxVFGDOsoj3yahp1Xq9Z9TQww8s5Lyog/ePMtDlKstz1CyEwQPNjtEM CLlAFPKZxazc01SmdaOozM5+jkWeYdNx6xgGf6xZNDM/z8I5cmNvmdb/Aebr dbg= "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2s2aCwM79C0T927okW+xh/EaOzeqd klPg/IjIhes/fFwC53P/b4xxl1sP56sGvntxuHsLnF9+ztJ+xpedcL74FsF7 jIz74fxtj5zPnLc5BOcfyporHfnmCJz/Vc2Wf23ucTif6edqAWnVU3C+2f+E bcHrzsD5Z1pMzh3TOg/ny094/XPluwtw/uvv9+9dNbgE5y95tfsUX99lOJ9P dvn7J0+uwPk9mVvTFqhcg/O/Oax+klF/Hc4vMTqyRezwDTj//roj3RcVb8H5 v7OuzNasug3nazuy/0vbfQfOd1+kmL5R/B4ivGTjlR7G3Ifzdd6Ecl/3fQDn C/N/4DjyC8Fn2T97vfKch3B+tsnum5zej+D81Z5JC/Z9Q/C/vpYSeDbtMZy/ NdideYrLEzi/3qN1/pZnCL7iXa8bi1ufwvlW5i1TJI2ewfkxcud/Ml5G8L+e 6n1U0Pgczp/BElcSpPIC4f57WxcxHUHwWWsbQywLX8L5DCvj1j8SegXnF81a 3yt0CMHfq93BIZj3Gs4X9CrSaeJ7A+ff0b1wuXIPgr9hnr3Kk7i3cH7sejNB 2X8IfkPrwsY7q97B+WtfyM7m83kP5yu1iHiwL0Pwp8tzf/3/H8EHAN6Z2wc= "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2NSLr3B9WLdm/QNS/rUuyxR7Gb+TY rN4pOQXOj4hcuP7DxyVwPvf/xhh3ufVwvmrguxeHu7fA+eXnLO1nfNkJ54tv EbzHyLgfzt/2yPnMeZtDcP6hrLnSkW+OwPlf1Wz51+Yeh/OZfq4WkFY9Beeb /U/YFrzuDJx/psXk3DGt83C+/ITXP1e+uwDnv/5+/95Vg0tw/pJXu0/x9V2G 8/lkl79/8uQKnN+TuTVtgco1OP+bw+onGfXX4fwSoyNbxA7fgPPvrzvSfVHx Fpz/O+vKbM2q23C+tiP7v7Tdd+B890WK6RvF7yHCSzZe6WHMfThf500o93Xf B3C+MP8HjiO/EHyW/bPXK895COdnm+y+yen9CM5f7Zm0YN83BP/raymBZ9Me w/lbg92Zp7g8gfPrPVrnb3mG4Cve9bqxuPUpnG9l3jJF0ugZnB8jd/4n42UE /+up3kcFjc/h/BkscSVBKi8Q7r+3dRHTEQSftbYxxLLwJZzPsDJu/SOhV3B+ 0az1vUKHEPy92h0cgnmv4XxBryKdJr43cP4d3QuXK/cg+Bvm2as8iXsL58eu NxOU/YfgN7QubLyz6h2cv/aF7Gw+n/dwvlKLiAf7MgR/ujz31///EXwAx7Sx lw== "]]}, {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0H0s1AEYB/A7rlHW6fRiPzp2ovIWk5RUKhZ5qXmbLG8T0vWGbKXVdM1J XmLtJuX9JaUbR+6scmLctMz7EYo7ziXceducGy1XbfU8z/bdd5//vnsYUTf9 Y7RIJJLvn/xtr5iZ/tbZoBOkf0dxM4qXEo6u/32wJL+wgXAHe3cPvy0iAsHB 0ermp0Q0eNzukVs2kQQu3Xk+LYNIBbN0G/Y9JjjgCyFlvKXlSrCehhXqYcID W/gtzLRn8sG3e5xd81fegw35NAmZ3AJulLl19R5rA7cxi4xDlCKwau9x/Zrr n8Baa9xtxhadYCdNZGNAbRe4K9Wxp8OqF2yaq1irXugDK9RSyZD9ALhyrqmT +kQMptJfLcrlg+CsK4LYUvMv4NWTXHlcyjA4yUHE39U+ApbWijL7GV/BP5mD BZZ3v4GtT+lsxDaNgT3KGZfrDSX4L3qE2WSoFGyjDNIb9p0Ab9df0hWtoykt Bbw9hZPgq45No5u9ZWDu2ajSj6tolcJo23TeFFgQ4KHNcZeDUzzZJfxpNGPc a6SC/R189HAqh3CYBoea9K6RxWhVZ7YsnvUDnE8JT/I3n8H9EkG5lgi96T4r 0DlhFkyqDufJDObAiS942QZt6GbrdF3aDQWY5pVo85CqBI/Z9omThei6Yldz efg8OIznRKNvoB+wy1hjbxbANTP0AqrPIji9iB0pOYeO9p+3qPVD7xYK63yD 0Rk5FzuyotBxTs+XtySjzVJ3eOpUoTeO3Ns6/Bo9Oj81UMVF5wY3hJ2pR2us /G+xheix/pxibTH6XZr6kngIzXGJsKwYQXu/PMA/LUF/uNP9mTWLzrM9lOOn RCfICgMZi+j9PtekrStoCnmwMleNnhC4MCPX0UJmhZ39L/QzUz2VRoP+DRRC Ph8= "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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, 0.6699999965306123}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, {3.7068021079272137`*^9, 3.706802130055572*^9}, {3.7069634921043673`*^9, 3.7069635162975082`*^9}, { 3.7089625368195667`*^9, 3.708962553988029*^9}, 3.708965386794776*^9, 3.708965708533701*^9, 3.7092999957719803`*^9, 3.7177600737940483`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-Matching Model", "Section", CellChangeTimes->{{3.708962159354445*^9, 3.7089621681046467`*^9}, { 3.708962263343769*^9, 3.70896226430223*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Beta]HOmatch", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Equs", "[", "PmatchX", "]"}], "]"}], ",", "Vars"}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.7089621786632853`*^9, 3.708962282538597*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"1", "-", RowBox[{ SuperscriptBox["bH0", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP0", "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH0", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP0", " ", "eH", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eH", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "eP", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "eH", " ", "eP", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eP", "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP1", " ", "bP2", " ", "LDP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP1", "2"], " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP1", " ", "eH", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP1", " ", "eP", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP2", "2"], " ", "pP2", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP2", " ", "eH", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP2", " ", "eP", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{ "2", " ", "bP1", " ", "bP2", " ", "pP1", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0", " ", "bH1", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bH1", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH1", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0", " ", "bH2", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bH2", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH2", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "bH1", " ", "bH2", " ", "\[Alpha]"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.7089622218352127`*^9, 3.708962256901661*^9}, 3.70896228776597*^9, 3.7089653917337523`*^9, 3.708965713385931*^9, 3.709301679350457*^9, 3.7177600785969563`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HOmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HOmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HOmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HOmatch"}], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{"Pink", ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706963513438545*^9, 3.706963515405864*^9}, {3.708962382962473*^9, 3.708962393409053*^9}, 3.7089624241508913`*^9, {3.708962531092802*^9, 3.708962598730589*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlHs01HkYxpEuKLeixq0zxeYaB2sr6iFt5NJFYtsdEqWadFMd1dbWbMhU SlbSukQkUqYybEWxUs4WIST9ZgZjjJkxM98u5FKZnf54z3s+5/nnfd5znoce vS9ku5aGhkawer7vgO2StjrpphXpNjVfVSoCbV+z/T00d5SWtq70VrPbtayc CtoqKE7nxp2aJAhs7rqfSwvFxLKo3RrfCMK3jT5Op22DYwXbRDVOwHc+45tK O4QPL+MsRj8R5JusSz5LS8R43sHhtkEC1oyKRWxaBjRfnm52bSH4ZXMB5/2H IpTbiTMDswj0VCyGnxUHYt14zqIYApsNSsnTc1zgtj87yIkg4dVSZA0/RIOA K5e8V2Iu10igqVmLNlXHp4oqJaqEvk0tXvVYs1tam31YiXpmrvlmeQPsfMoL St2UGPlhucGdPY1I71hhHDqsgNZ4maG5zQss2hsfceuOAh6qqKqN5U1wsPrd q3OXAk2J7q+e27cgVrbaM9NGgflpQ+OlylbcFvmNZHTLMTTaI+h0eY3xy8sD 2tPkKJJVv9C/0I5LhkfeDEMOfcubRCTqQOyUS4StHML5XZWx+dZv8O5uoE9T /hA+e5eJdp7swjq3S86sgCEccm3gmj59C92ryW7mYzL0lDeca6O/QyODOdiU I8MXZke23TEKc0rKrln4yODgM30ytpqHT5tSU2qlUvhdp++4N1eAvmPUVB22 FAmWWxb0MXqgO4vdxneUwlG+Sa8ruBdGXsb8ulYJZhu8n9Ew0YvQHbsceUwJ tGuzOQtz+sBdP09TqSPBbvfqbp1AIUIKSvfw8wZRtiY6/8lnIcLj5AkP3AYx MmRmKM7sB6N0ZudosxiVG/2mZKwSIb/KerIwQoyT/knXuGIRgg0F++QfB0Dn B7wtTBqA+9VWZlrKAJb9lJhBcxXjeGOFi9vsATCsWsY128UoaXxmyy8UYeRF qnA/axDuj1JPOdiJkKUdeSjEWoKZnuPeD7n9mC2ovK7VIMGTGFVxk3c/pp5g hS49IEXwVrnM5F8hNEojOUJjGcKUwZM6/kLE/81JNa5X//Esx7y7vg+PHVJm GO0dQvJiLye9FX0wCoh3/FNfjppn2Xphdb3gObW2H62Rg+fa+1nXoxd382At ilQgB8Jj9NgeRHA8jCwnFRgO97Zv3yrAqaQCFu+WEtNYYxeO+/JxR2KZrR9E sMrElJ/rzkNKblKUYC1BTsqStTxnHraFKGzKNxCUJCYfMXPgwaKm5m5wOIHE 9MbYZToPZy/+9vx8NMFYobyYrc/DTo+rH3SPEoRE3aiOkVBYkDjHf3qxOrfR j58JsylMLjk+q6uEwEW+njHvCoVuRf/r4jICY5XB7eB0CmnhFRGr7xFMPDFM +CeFgso+5GBSDcGvNy2qzxymwGu7mDelnSDMLPKL2ToKD5JHY9o7CWTOt6yD AihkeG6xK3xL4PGKPv3EzxQCbyzmrhQQfCz6a5TvSeHRkeb/WFL1vY9YyTm2 FDKdfry4Qa72b2p/9OVCCgeEOaF0ouaJb9YTVhRsg+J66oYJmAzbkjATCtqa HUVpowRp7/44mWhIobfSkxk1odb7NAzv61GoYRY6u6h75+v+8s090yhcma83 8r23VrPPMGZqUfgfQyWCvg== "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVx3k4lAkAx/EhSSwRHZOkiVJolWS3y09R5EjEdpgiuiihekJZmpYcZbVR EePIrJJjlCOLvJaJxpFr5Jp5h2lCrlfPhqUn1v7xfb7Ph+Hh63RWlkaj2c/3 /23ODrZUfnYxG3VpuJmYyCfkLFb5iekmEFcLaLwHfGJbakJyAd0SrVtF4WN3 +YRtY8crNt0ZxcpjsRYhfOLomak3D+hnEPp2CWfUg0+IjCIsYujXoLr9SMNe Qz6RtszhTjQ9DCYa3auHKt4RLIUCvSh6PG60DrzZKa0ljh1P545/4cD9auqk mmINoTTHYlqt4UKSorDBxYFHrHccG6y+WwjzSP90K3YVEfB+BxK+/oXJh9fV /WoqiRWFaqSMDIGHzBP/KqypIIolFg1Nu6sw1D5XzD5bSlR5szWPj/AwU8dR /qOimJjYsGdJrk8tLNtzHJm/FBCy09mqmuvrEHi4e6HeQS5hOudefCSvAb1r GRb7PZ8TDWEm72v0m1AyeC5/bVo6oX1/eDprrBnNv+0cfxYXTwxPicn2La24 ZfheUBJ1k+AMldWp/N4GcwO+ha8gFCpazyipVIDerasCDCIe4Z5X0bk03Q+g SboLRlWeYtI8W3ohtAMl9JIWH58sXDPmFS6v7kRw3HlFbb18iPN4d1sY3bjQ Umqm2VeAb96CpE03esCJU+kpiXoNg72LZs+VCZFsPhcV8k8prJ4yzr9cQWKE 89q2M7MCAVpu6/qYYswGyavmKv8NwxEXpQ77Xrzw3JpnRlRBfcm4Am+mF7Kb Kl2ePORBjkji6iT3odSTLR9tV4OLJmVdi20lWHmDrLTY+A7ZBz3SKiYlSGnV Njr0jY+J4VWq/Y8+4k4aN3Mkrx5FR6wWxFtKoWGToecS0YhQ6/DUwn4p5L0+ vXQ0bwJDZNOZEf4JKp/UAx0Cm7Hzp7B4unE/fBYMaPZ4tIC5pmlapq0fvzJP 8/L3tGKiLkbixxqAZ0aM/7B+GxLkTl1z0h3EtO5pHT8FAdTJoqeyvEGk1poY sfsEWPgry3mH/2doHiuFUWM7aFmnuJKlQ7DSGXBWyvqAK0+4MUurhnBQ+Pay 3eMOvDGIVFC7PIyTxRzJdlYn1GyuGN5WGQGjXt/Vy7ULws3NbUHlIyhr9OiU se5Gfgp0padGsVBp3wmpbg9Ock3VtGZH4ebFMPX93oNb4eks4YsxxBa9Wu42 KETuoFaSih0F393D3xKqRYhkh7uThyhcXXxZfLFWhDNOo+vzHOf9YbzKrF6E 1eXl+fZHKQT4TUZJW0WIjnWtuedBIZQjs3KLRIQLpolfFIMoxP6w0qSWRmJd mIb1okwKWULLSxN7SMz+HKzc8ZxCdlatw7u9JLpGP7ZmZlPIvW6zLWk/iftH C04eeEmBq3p4xtyexJy+09XwcgqvLV0j7zFJCFtiUxa0UajO8efo3CRRcmfK s62dQm3Q14jJEBLxu9w2ZXRSqD8QcJF/m4Ttnz8W7iPn3Rts7BtNojSwkc/6 TKFNI7KyNJHEo83bYx1HKHT0KXJi2CT8JcnODGreeTER7ukkNtpdEld+pdBj HXdIPouEnIyAc3+KgmjZcuOuHBK9Rbu83WcoiCUJy3LySZR7Zxht+U6hj6s5 HVJI4rG20sTcHIWPwSlCxxIS/wEquIH9 "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVz3k41AkAxnFKGwkpHVNJrixq0zHUdry5VhlqyRErPCqLcnUstans4z52 rFTEZByVYzVpjCWjn8Y4wvwkhMidI8evnjBLGWv/eJ/v8/nzVffwtz23REpK ynpx/9fy3EhTxaj94RNtJlnWHmxCxnRjQA9tL95sVQ12dWQTe9KT07g0Mzj4 iK38rdgEQ9T2jEWzw+n5/JkEQzbheFZcnkg7i/Oaay1bVrCJ9zsjTeNpl6HU Q/bxPNMJ9toTETG0MNxS2hDyWvYBESrL1YmmJcEjII+7zDqVOOWUwfn0ORsr j+h6F7vdIeQXQl0stnAw880pdbiASWjbTI5UxhZh84XZEHFzGBFE7kfyVCm0 JlP6dVQvEuuLlLulpQlUfOfceqbzOIr7TRsaDwpwal9U8XDe7xD4sDY5jQuR 9PC+W1p4NKa3HVIq8K3B85wvAnvDRCyZzV+1SbsOtZ8IhXtqyTBccC8++aQB ipaRuYxsFhrC9pLVeo1Yb2/cdT8iA2oJY7O5k69hJPmLGL+SjTFxT3erwRt8 2enO+Hf3Y2R/LKtT/LMZ5c7S3F69PCiqPqYGB1vwJepgy4BKAeK8eZ5srbeo wTSL3bD480j+oNfNNrQEVaiz3ApxebewaF1lO1RUqmqriWfoeSKMbVJ/h3fb ue9dDxXhq09Lqu61Tpyy8DshU8SDvvFyiWdZFzS2ed2JUP4HFpnqvxau78Zv oYxjQXElCFJ10+hz6cG6DN8ms8lSbB+3l2+z7sUFgUux2rEyrFH6JCuc64Wl O13O+yUfMkQqRzOtD8ECKwPm1hc4v7esQ47RD70M6ypNFoH8Yx7sFzP9qK+I 7/SIrsD02MZVQ3cHoLMm6XCm0UvwTlosTTIbRI0msz156iVuHg1PLxoaBPNu btd8tgDq7y3bs8I/YFeMHnPUphI/GoUl0XYPYd1BdnCcghAuWxpnpZuHoPkz vYHFF2K6Lr4/IHQYlzQIB89rVUiWcb1sqzWCMQcvBku/Gmu6eZlLhCM4tDJ4 0rmjGstCQu32B46i9eb12sY7NZDKdeX0r/6IRHv2Sq55LS7e58SvFnzE7dGS SGuZVyjXj5JV9huDv8So0I94BWXLi9v/UBzHpStvzSS+deja8br5Kn8cz/O8 lcz16/H0AbQGXSega7LZbK6zHqc5hsqqkgkEOtN1DKMbcCs8I7QrbxLzBqbG uuYiFIyopipaUSj0DqiKmRIhihXu3n2cAlehoy9FLMJZ2wntJzYUeIXGkpw5 ETbz+U+tHSmUzq42qpEiEcP8pTrOg0J5NC9nqQIJL8OUzyuuUqjPnYu9rk1C I0zl6PJHFPpGw2z9HEhI9l1XaMtZdPyEX4gTiY6JgTeP8ikM7HKIjXMhkeDI Pf1TIYUPV3WEeR4kFvRsL4XzKYzJ1dGH/Uh0NTEfLG2mMK2rRHOPJFESIT7T 3EphVhRE948hkXTATTerfdGBvTY34kkwHv5QZNJN4WtpYUzabRLPg0WvQkcp SFvafWtPJ3F3B51pM05h2SR/w0gmicD+NDt1atGJ2nTxQxLfW13oqZiisPzd jO/av0nISLdkJ4gpyN1wi9HikOjlHfBxn6Mgr1H7aM8zEnyfrJ0G8xQUqg0q TXgk7qnJTy8sLNonpcemhMR/pfF1Xg== "]]}, {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQ7ZX64uKBl6F2NSLr3B9WHdm/QNS/rUuyxR7Gb+TY rN4pOQXOj4hcuP7DxyVwPvf/xhh3ufVwvmrguxeHu7fA+eXnLO1nfNkJ54tv EbzHyLgfzt/2yPnMeZtDcP6hrLnSkW+OwPlf1Wz51+Yeh/OZfq4WkFY9Beeb /U/YFrzuDJx/psXk3DGt83C+/ITXP1e+uwDnv/5+/95Vg0tw/pJXu0/x9V2G 8/lkl79/8uQKnN+TuTVtgco1OP+bw+onGfXX4fwSoyNbxA7fgPPvrzvSfVHx Fpz/O+vKbM2q23C+tiP7v7Tdd+B890WK6RvF7yHCSzZe6WHMfThf500o93Xf B3C+MP8HjiO/EHyW/bPXK895COdnm+y+yen9CM5f7Zm0YN83BP/raymBZ9Me w/lbg92Zp7g8gfPrPVrnb3mG4Cve9bqxuPUpnG9l3jJF0ugZnB8jd/4n42UE /+up3kcFjc/h/BkscSVBKi8Q7r+3dRHTEQSftbYxxLLwJZzPsDJu/SOhV3B+ 0az1vUKHEPy92h0cgnmv4XxBryKdJr43cP4d3QuXK/cg+Bvm2as8iXsL58eu NxOU/YfgN7QubLyz6h2cv/aF7Gw+n/dwvlKLiAf7MgR/ujz31///EXwAMVm4 Fw== "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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.19999998612244899`, 0.9999999939183672}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, {3.7068021079272137`*^9, 3.706802130055572*^9}, {3.7069634921043673`*^9, 3.7069635162975082`*^9}, { 3.7089625368195667`*^9, 3.708962553988029*^9}, 3.708962600612043*^9, 3.708965391844829*^9, 3.7089657134972887`*^9, 3.71776007871247*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matching-Alleles Model", "Section", CellChangeTimes->{{3.708962159354445*^9, 3.7089621681046467`*^9}, { 3.708962263343769*^9, 3.70896226430223*^9}, {3.708962316024707*^9, 3.7089623231514997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[Beta]HOmam", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Equs", "[", "PmamX", "]"}], "]"}], ",", "Vars"}], "]"}], "//", "Flatten"}]}]], "Input", CellChangeTimes->{{3.7089621786632853`*^9, 3.708962282538597*^9}, { 3.708962326859152*^9, 3.708962331509129*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"1", "+", "LDP", "-", "pP1", "-", "pP2", "+", RowBox[{"pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "LDP"}], "+", RowBox[{"2", " ", "pP1"}], "+", "pP2", "-", RowBox[{"2", " ", "pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "LDP"}], "+", "pP1", "+", RowBox[{"2", " ", "pP2"}], "-", RowBox[{"2", " ", "pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{"1", "+", RowBox[{"4", " ", "LDP"}], "-", RowBox[{"2", " ", "pP1"}], "-", RowBox[{"2", " ", "pP2"}], "+", RowBox[{"4", " ", "pP1", " ", "pP2"}]}]}]}], "}"}]], "Output", CellChangeTimes->{{3.7089622218352127`*^9, 3.708962256901661*^9}, 3.70896228776597*^9, 3.708962333548499*^9, 3.70896539225403*^9, 3.708965713741993*^9, 3.709302547561677*^9, {3.717760054736133*^9, 3.71776007911804*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HOmam"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HOmam"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HOmam"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HOmam"}], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{"Pink", ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706963513438545*^9, 3.706963515405864*^9}, {3.708962382962473*^9, 3.708962393409053*^9}, 3.7089624241508913`*^9, {3.708962531092802*^9, 3.708962611922804*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwd1nk01ekfB/BLBqXoIrpJslQUJVlb7lvD2ClilBQJSYslTVnKEiUJv8aU km0iLUJcFMoaWZoIXbJ2u+FmufySVGKe73zPec73vM7n8/6c53u+zx+PopuP nYcgjUZLIYt6W3gMt1byHJhakPk0P8+HkNEK336GNqwfZJV++87HlrSk24UM Y+gI60x8/sKH5St2QQrDHv4Je2J4I3w4un99do3hjhvj8UFdbD56N10yusoI wOXWXyyb8/hIX7brYgwjEgytwYc/XfgIFy1cd5mRCO6BwBPxVePYuy8jb2Iy EzvrFELO+IxBbD7c2XRVHhK99nUHbh3FGtvx4ZorLGzPkzvcRh/BmX8MkDT1 FGxZiT4JNg+yLHqfgEAFlKSXOQ6VDKOYY9T8ens1ghcZ8T9eGkK1d4rcvtFa aMbFRZS4D+LL2h0Sj07Uo2dQ7ULy/o8Q/PZwqdyaRgzb1g0ZGHGhO+9avCe3 Gauqi7KVjD+gOVL7n7r1r7FydQPTZjcHCgkj3+6Pt6DaJybqmc17jHzt7+vQ fAPxS8m8GfcBZH4qaxSPa4NCU1zkH719EJfP5nO57ah91Nl5RrQXsUeLPNNV 3qLilJ6PoGs3pg0fcr1C2WgWnkVFRhcCtGpZMjWdeOnka/WHeCf6c2uvtCq+ g/79ZlHekbf44d2erBbUDbMr8ZL32e3YsFNkzrOsB2XipQO7fdpg+rfikcey fehUemfaM92KM/IuSu+d+9GSP5z6PLMF6qMOYmzrAeQIs7VvNv0DKYkJ0drv A3BdpmWZuaUZQhXJecq33+N4LzvlEKcBx7TLuhZacpDjkndQPqQeD83d0p9P c3CPN7ZBgfkCX0ZWLB28/gEDCT1JBYY1KNpjuiDRmIvKrdId8dpVCDWLSmMN cmHl5HHxedNzKPZadN6J+ojKHxa1x/zLsFUvMpGcDRgei7/5WeQJnFe9/ibQ NoilO7w2+S0uwpfGqxzf8CGcPSpaPbCwAElCBwPsVIbhG8ASpA3kQqqv6G/B 2mEk1A2NT61/gF/Ohdsb+PHQIrcx6mxYFmj3D+ZxJD8hrCJQ3y0+A/638q5K Vn/CgHJ38M6gZDzbEC1KPzmCdP81u+5xEkG38FePEB9FZfG0bgQjHulVEmJb 6cQrTdrzx+OgafCINylFHFAxP1sTBxvV4buHGKMwnN0kMH4yDjHCBxV3qhAf Ec3VqrsKoRpzGRo5x4Y51/NMgmIxvU2Rdt6D5KdU7W7OXEaPRktbYPkoaOdU lvGso5A2Qj+3oIL0L9+W1K4eBbf7e9ZerRpFmCatr0ssCjwV9tn0OmL2X483 N0ZiWq5Pvr6F5AX4Z2XMIkFfNHpE+iNx1d5oltkFmAyKzOYuGYPhl4UPfj0Q joWZ5ln6S8cQtnEiwhPhaD50xaZacgyV3MhVmYrh2NMrntEhS1z/NOX4YBhc 25eZzCqS/FHbci2/MARXKyeY646BtsV3aq1sKPJTocI9SObtr5u0zg7G56DP IocOkXqG2xT9VDB0HbNHeg8Tew0EiSAYZRIShWwv4pAwqUvsINSF9e1s8if5 ErtTnYuC0O12zqXgInE4xmqCzkJ4XdmtsFzig1sbn4WehvkCn/M/84nfCZsX 2J5GbL+SW1AhmdfFsuxUPg16UoxawBNip6KeJy8DsHKh05Mj1aTfz0yjWToA WiMzHTZvif9fHL2t2B8H8nTp8nPEO4pUd6zyRbHTjHgLbRw065KjCwZ9IC5c uvjCAuK9b6QEEnxQ6bxDlCdKLHNK3unjSSgtMp5nSREbuAhf+OsEBt1tx6zU iJdzNuaLHcPJFccbQuyJ9a69O7PLE3UvNOo3ORIz7qr/KeIJBT9+LWcf8Zbo pcqVHmip9680cyGWLLmaruUBrdOBJdLexH9UHJCUd8fX1xezckKJO4LsW0Xc EBaVEd7zgHhYzyDwqDOWnBGxOPSI+Pb13DNz+3HL64TkYB6xKF1lZ+J+FFoa 3OGziBfvk9CpdsIgvbVWsIK4XGcofd0+WKbSRNXaiGsVb0cv/x2d8Z4tjzqI hbZL6ZU6wD28OUmrk3jOLybf2QHn3ZPUtvcSr9wcKJRpj/z1mpa7hogFZx01 t++BTIlL3Okf1P5rVyRd24079178/v0nsfGtP6cNd0Pz1gaFUBoftERZhuHA Lpif+5oX/QuxaOTP7AwbhBjFtyZLEBtOvwzVswLn9XPpamVimqH3rjxT+FSp 9JqsJX7i5nJ8jSlmC2KymlSJB8rtFVJMsOz677odGsTRsoam//sNZs7jjsN6 xOqejLRYIzwalk8WtyIOa83pTQWiU6Jc+2yIzXzKB+4w4W43tibXltjLNJud swMry8vzrR2JW+6KZzRuQ0z8/rpYN2JVJZW/dfThaVxzxdmDeObaEmMnPfz6 bb2tuhfxauabrghdfHP73t10gjjdaGygXxteujcnFwVSeTHvAw2bYTxCK3kX TOVtNFKXbIZCulfIg/PEmq+a3jho4u1CfRGLSOKESe1NXA381vt25eV44onl P1exVLH6GpOz9xpxvoleX/A6zJrczVb9i8rz1kVZrgUr/7TWy1vU98aqxwiq QClS2kzkLuWki+9TFTCnH7KEfY/ar6Fbd448usY+vLn7kNi19UFmoxwSHAsP mDymnB+RpbMcxxfLKcuwqP45em+EDMyqIoY/FlN1HXFuvzTm19udiiqn5rta uzbQ8a7/qb5DBVW3T+hwWIriRMU5lWqqfjhMm7sEJ+cmomvrqf9r90qZJQqL wr02iY3ElVGlly2FscarUsr9FeXY8DhBIfS0xqcuaKP6123lpc4zn1z8erit 4z9/eNj4g5m4zUXtTic1/xVydGaYvhN14/7dlBm7P/VPMS2zNrJ+7aP6F0t7 Nkwy1zpdD5R8T9lMFtwxpqDEHJPzgfKLExqsYWZfjYdQwSDluA03BLnM0rOv GsJ5//VnzKT2M69r6MTbjlJeVPpUp5Ppx7ltr8in7Jnh19DKtLohtGJyknJ+ riHrJVPV6nh/5RTlBB/ZtAqmkEB7ZsJXyqvLoxseMweKtnm7fqfsutghLY1Z 7n1nk+ZPymEmLWmhzBsKYl+oexvtv6dy+79sqJt+ "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVmHk4FFwXwEcRqRTZKaQFSdpEyhGSLGUriuSTEAlFpAVlUCGJVCihLFmG 7MZcSWlBg2wl6+yWQdllvvv+Nc/vOfs599y5M0ouPtYXlhEIBFE+AuG/T9ML rJZa9km9JielPh6Pi/gNZX37ZPbCgJ1O0bVZLtrz8mnKOxkjeLzbymJsnIvM mjqLU2VsoTE6dKhvgIvsXGdq4mVc4dGP35GNH7jo985IwxgZf7hSFE/6FslF aRInIu7LhENUGj3sf+u4KEzo3bZ7MgmwylZz87DyGLI//apwfCITpNN1loto jKBVvDDHoxsLQWYiWL3LjYO2WI2xPjwogVSVk4YKpSwU2KwDT/9Wwq2LAvXF IwwkVSLay8eH4JPTCHvsBB2VDRo2fj9YB5lrklp4L4ZQnWeq3OmRelgXyG9O 5B9EU1sPrc33boBrUsqm6fH9aNnc23VyW76CvJHPtgCFXqTFcy6zKWgEySjB 4BL3X6gxfG/zJ7Xv0Fmn55LS0YUU4obncsaooHZCYl2aagcanunrbddshS3i x4mV9W0ok1P9VSS2DQZDu9sWTFqQyIYsLo32A7ZPkAxyhptQ9MVSt7TNHSCe bnLf9MsXNK3/luYR0gnyqcZfmokfkf/u+hLJD10gRD2WvKL2PeorqH/QovQT TASCAmI/VaMFzx/JqsG/YO+K5uXc1yVo+2HBJbfqHpCe+rlwhJqHjqYruRdJ 9QIVCstObE9DgRvObRpw7APFobUrGr+FI/WRk6s6LfohVCHzoaTUXVi/dlyo fr4f0hp6NA54pwI/Si5UThkA581EqQq1LPDaW9290mwQxqtbLgdeLoS3x1zS KNODILRayyLW6h1MDcuuYzwZgi7HMjkB4zJISGU2pDwbgqhI4fA5qzLYc6Ik xCZlCHwzJR4yzpaBX7EFt/bVEPSXWMbkBpTBaFBoc3LeEFhqnlH7mVkGdAFG tFUd1n9UxejkK4d2haKVNaNDULtI8rAoK4dSm6PLE4xoYB/o/0hxZSVEmVUQ 5Y/SQPr43rxHYpXgaKgq9PoYDUIjFBwX5Sph2Z5Va8qO00BTPugGRaMSjot9 l+yyx/xrV8WUTSWwqKfU5L1pQMpqUNVMrQTZ425WmYk0CAq+OfpDrQpCTIgv Sxg08BVcNfN7dzW0Onk4arJpUCE9xYo+UA2bA8xk8oZx/Dh50j6Davj6SvRx xjgNCEXKFH+rahBfSI2In6dBWrVYd7ZPNWTnl3n7itBB6O9VYXZuNVDFWLrq WnSImzBw+CJPhk2q32aztOkwW9/9t1iZDAFQUKqsS4egpfzzT9TIIHvJf6ec Ph2eZoi8N9Umg+tHgrKwKR1IZaTgizZkmA2UEWadxf4JQezbUWRQ+m3alUHE 9grrS1eOkeF+nW7hySg6+KYaBb/7S4bJLPUIwQd00Pd8uHhygQx1V0T2esXR wXncV5soVAOuQq0PdyfTIbvgfEz0phrI3nP66HsS1v8jmKd3sgY07ruX9f7C +aeYkTVLa+CJj31MXC8dtKfebJ6sqgGe7TFXgwE61KbImebV1gBVYbvYGwa2 77JsFG6sAb/SMW/vCTqY8A3n+w7WQEl/wJbFFQxwluul962hwIH94QkyuxlA 8kEq5uco0OEio5W6lwGWHK5563kKXI0t6FTcz4A0s+GN1h4UyKN3yaocZIB2 nUGjnh8FNibseKVljP2F+Js33qHAsomOfJszDIjTGRosz6TAt1zVhpg7DPDN H3VvGaKARwfFQ5SI/f8LPhLDpAD/MlvhxEgG9O9poxoMU0Dv9G2LlGgGzNrS xp9PUoAk2NaW+4QB0u73TvEICBJcb/Y35DJA/1tv+VN5BI4bv8/xtTGA8Lis dc0JBCIyV0qr23G+s7JBetYI3q+X8AvowvlKUQvdTyLYutKBxfqN8wlR78hw QMD9w+j4zmJA10L+Up07gjtflt6lLuH8M9soKbcR7K1/5WPHxwTF54b3ToUh YFKMtovyM6HChJ8hFI7AvOR+evhKJlCpgafs7iGQeCn5yEucCdIx29YnP0aQ 7a9xWUeNCb6lOQs1bxCc8WlR/aPOBILulmFCDoI1nv70vJ1MiLo+cengWwRX zlU5Ku5jQprSzW2phQh0TY3NBPWZkL3hTJBABYIxI/aK9wZM0PRymF9dhSAN ouuCjzCB5JcvsoaMgH9fq86YKRNqcwzHphGCZgUnlfaTmD9q3/NrQBAqy0eL tWeC/i+UeugLgj0SmS9NHHA9OUlGy74heCrMkSQ7Y30/nWMBzQhcpgIEMrxw PvlHNJa1I5j6GjPoG8YEj/ZQ9/J+BD2r2j0W72I5qjWYHkBQZy7PjYzA9QX0 ZGgMIYhrzl148YAJloezZh7QEai1Nog3JWK58336LBvBuvVrk+2fYvuMbO7y YQQzNqeUaM+x/+L0EKERBPXttB0LL5kQuktt19IoAqduvqOquUzoL434mTyB wEj2WFNJHhPGre+uvzqJYLtDnI1+Ie5/tUOr4R8Esz0bne1KmLBu9OVAy18E vRvcGINleF5lq3Y/nELw0Sn/0uVKXL+ZjZDxNIL4ft3rRArW7wwwTptBEKR0 l7fuPY7fZFlgOIvgnMtXYsoHJqg8FEzpx6xOs49/9xnHvyq0UnAegdiWNGn4 hu2TrKPiMM9dYL742oTrIQbFrF/A36PMgLcDrbjeD3aqKxYR5KnU7PJux+dj vWhtAObHF/krZjuZEKTxpqcXc3CumV74TzxfcamQw/8QOA/H16/9jc/jp/NZ qZiN1X+aJvdhuUH0yT+Yd3grtWwdxPHux90zWEIgXuBhV0zD/U/1NXyAeX6s 8PchJo53Q/1uE+b+nTPnv7Cx/eZ6k5U8BA2+ehzbEVzfs/0JepgLioi+/WO4 X10RF7wxJ0w2TntNMCFuqIiciPnGHvFbM3+Y8LSy4lk5Zhd/h+V3p/H5OZO8 2IrZpDT9nsgc7kfDaToT885p9trnC1h/6Y/NNGbJ/buebFnC55HP02QJ82Jg kHwRgQWK36vreJiHKlD6weUsUPFg181j/jq3QvWzAAucGydNuJhJB44X2gix oHah0/Y35qQbifv6hFlgP/2UUY/5Nrmn2nMN9kfet/Qas+s/ZYPptSwgWBQk h2I21fP6HCaG5TnLkC3mXSHFx9dIsMCDuttjE2bp2rkfT6VY0F+nl8TG/Voi HHbYLMuC0NCt5rmYaYejBgrlWWC5khPhivnbne/uugosMDl776g05qf8Tv7W m1lAdXM4cwnPZ+m81L6WrSyIy0lPEcHs+oE6dUKVBfpo8+tcPG/NO4aBFhrY //luISo+L08GFvc3arJg3eQq19OYF/XLZk33YHub68QefL4+81SCTbRxPx7y y1HnEGicGzzQcIAFpIubHupjTqAkLxw5xIJxyRtfcvF5db4lcsvQAOfL6Ym7 hM/3zPyfED1zXK+/i+drvB+OZ/L1a45jOePUOhren7pKN76DVrg/2yNuymOO Deq+o3OKBWk7ErOC8f5tnaYQ9zpj/xIBJiN4P6NPBhm/c2GBr4K+4hze38mS XYK7L+D6F45QeHi/KVczo3Z6YvmOZRbzeP9PTdx7oOaP5+F/sDQT3w9kS0Pz nGuYJXopITQEm0iLq1WuY/9RVbG2+D4Zu+wTu+U2ro+tHDaM7x/iiO0jxSgW BMVWkJp/IeCYiVi/vI/71aA5EvgTgeXbBrGNMbhfrUOjst0I5D0PJMjF4/gu 84bHOxCUMBWSJFMwX2Af8KQikD3abZf4Auvv084ewPdf6Jt4afFXuN6u97+s m/B9f0HguegbzEnExE1f8fwHOSmrSTi/2WabwA8I1veWpi+rZ0GXycWFqRLc r9W3bpV/wv2b0mjrK0YgrGtkf+kLtlf6aFdHQrDsaeuajmY8/wUXd7883C8r blBON66/yDUtMAMB9aPKCUsunsfW0Oub43D8v1xVgUkcr91i47MYPP9N5fxV f/H5FxjxWfEAAQo5UqU8z4JZ+jOZb0S8vzouW2b42TCeXR2xGIznk5+8kCrL BpK21GfeeQRCPS4d1hvYkDY8osNzRhAurFYkqIjlGx/bz5zF++1e4ea3hQ1R AlYpLXYIPJXaW4w0sbw9/pCGGd7vRJHs4SPYf4gGM1ITgcCtMFsdPzYILX7s IE9RoGRiZA5dxfLtrQQJ/H3u6mb/0vgajicZ+MVtjAL1J3ZybG6wwVf+gdYM gwLhm36HXCZiOftXyLdO/D74rP024xkbCPcVvx+uwO+L9eN8InVYf2if8wV/ ChRHOmQl1LOBeun02QkfCrgsfjKXa8DxSBJz17woUEdPTVJpZEPcRfvVPi4U uFNhtsOwA9unrEgXs6QAn1OWfRCHDSZCK+5vU6MAIcepcFCMA6GzceZR3TXw aaTz8ksJDozz4h0722ogWtNKw1GaA4TT3mMbm2tAqsIwv30DB2Z5uUlJdfi9 1qDy9rMKB3yVTAk739aAI33yTYEeBzSLpdSmg2ugUinyRbAnB6RXjffRxWvg 9gWC035vrG+8qHZEpAaMcq5v+OuDua1/JkUQv+c0L6V4B2D7wd1SWvNkYIHV c+dQDui3zXuJ9JFB0knuifETLF8ue9kuiwxXnhfGiNXh/J8n/jDdTYbyxeeR dfUcqAgQKf+N37eLThFhVxo4EMfLcr6I37+RymcDWhs5YK9waKWXOBlS8oTP xndygBrLLZSaroaPlAvqYqMc6NoRYCNZUQ3SQ3LfRKWHgXBp+Z9srWqo2R4l JHp5GD6zticob6wCrR9STfG+w1DbyNgbKVEFpJtZj8SvDoNzXUM0bXUVpDd9 kpUOGgbS4ML/ohfw7wsfgR0Kd4ZBcUY9Pa6rEqzf3bHa8QT79y2+7vWoEpgH bj0/RhkGk1emRM+lChA1vaJ+R2QEPvORRGI/lkPPDmrbdfII9Pvtky//XAKk F7CZ5jQK6+CrwtTjIjhbqCW6YWkUqFXu6S8l8yCU+CqsJ3cMQlVtrdMeZEA+ a0OyiDkXnJ16CvaFJUJUKtG59zgXan94sMV3JoKr9eiWAisu6AfJEX/0JIA8 mUyysOMCwfhP39/9CXD/ocOnaBcuhP67pFw1Eg8eWs8mhK9j++6ogVOWcbAp XNxE8A2WJ9b7F/OIsKR9c01nNrav9dhzz4YI3aNDrW/eYv9Gp0sUs8Ihzu7d WeMirH9G4d8ji7vAU7O+SiRjOQVybyWFQk/LwxfL27B9fTp9Uu8aVETMnG9r x3zqWl5Frz8k6J5TzejCnDw4w7t1Fcxea5QY9GJ/BkT59dW+UBXU9CWMjeVL dJ0kJzd4smPfQ6sRzM7SorpPzoPfYIqtEhez6s2JgUZnUDG/1Ff7FzOrMNnv 8ing5/uRGTfzH7983NJuid9hup7O85g96Lo+14yB7JmxU/MfZstXnNhgLUhS WDXF42EmEOr++x/k//y913Y= "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVmHc8FO4fwE8RqYRsSqJCkgaR8hGSjLKKIvlJkRGKSAPlkKxEKpRQRsaR 7dwjKZWRkVUybxtHZYvf8/3rXu/XZ38+z+e5507Oycvy0ioCgSDERSD892l8 idlWyzqt0+wgN7CywkHc+lLeA5IHYNhGq+jGHAftf/k05Z2kATzeZ2E2MclB Js3dxamS1tAYFTwyMMRBNs6zNfGSzvDo+6/wpg8c9GtPuH60pC/4FMWTGsM5 KE30VFikZCg8SKOF/E+Qg0L43u18IJkA66zVFEblJ5Dt2VeFk1OZIJGutVpA dQytWwmxP76lECSmAlV6LrPRdosJ5oeHJZCieFpftpSJ/Fu04OnfSrh7hae+ eIyOxEuE+rm4EDQ4jLEmTtFQ2bB+07fDdZC5Ialt5cUIqnNLlT47Vg+C/tym RO5hNL3jyMZ8zwbwE5c3To8fRKvm3wpKb/8KWwy8dvrJ9iONFccyq4ImEI3g DSxx+YmaQg+0fFL+Bt11Ok4pXT1INm50PmeiFZROiQqmKXWh0dmB/k61dlAQ OUmsrO9AmezqrwIxHTAc3NuxaNSGBDZncajU76AyRdLLGW1GUVdKL6cpdIFI ulGk8ZcvaEb3LdU1qBtkUg2/tBA/It999SViH3qAr/VE8pra92igoP5hm9wP MOAJ8Iv5VI0W3b4nKwX+BLU1Las5r0vQrqO8y5er+0Bw+sfisdY8dDxdzqVI vB8+Q2HZqV1pyH/zhW1D9gNAGNm4pqkxFKmMnV7XbTYIwbKZsWLi92HTxkm+ +oVBSGvoUz3kmQrcKLlQPmUIHBWI4hXKWeB+oLp3rckwTFa3XfW/WghvTzil UWaGgW+9hlmMxTuYHpUSpD8ZgR77MmkewzJISGU0pDwbgYhw/tB5izLYf6ok yCplBLwzRWPp58vAp9iMU/tqBAZLzKNz/cpgPCC4JTlvBMzVzin/yCwDGg89 yqIO6z+qondzlUOnbNHamvERqF0iuZqVlUOp1fHVCQZUsPX3fbR1bSVEmFQQ ZY5TQeLkgbxHwpVgr6/E9/oEFYLDZO2XpCth1f51G8pOUkFNJuAWRbUSTgp/ E+uxxfxzb8W0VSUwW88oy3hSgZTVoKSWWglSJy9bZCZSISDw9vh35SoIMiK+ LKFTwZt33eyvfdXQ7uBqr8aiQoXENDPqUDUo+JlI5o3i+HEyJHW9avj6Suhx xiQVCEXyFF+LahBZTA2LX6BCWrVwb7ZXNWTnl3l6C9CA7+91flZuNbQKM7VV NGgQN6Vn90WGDNuUGueyNGkwV9/7t1ieDH5QUCqvTYOA5fyLT5TJIOXhu0da lwZPMwTeG2uSwfkjQZ7fmAakMlLgFSsyzPlL8jPPY/+EANbdCDLI/TLuySBi e9lNpWsnyBBZp114OoIG3qkGge/+kuF3lkoY70Ma6LrFLp1eJEPdNYED7nE0 cJz01iTy1YAzX3vsvmQaZBdcjI7aVgPZ+88ef0/C+n9483RO14BqpEtZ/0+c f4oJWa20Bp542UbH9dNAc/qNwu+qGlixPuGsN0SD2hRp47zaGmiV3SX8ho7t e8yb+JtqwKd0wtNzigZGXKP53sM1UDLot31pDR0cpftpAxsocOhgaILkPjqQ vJCi6QUKdDlJaqQeoIM5m2PafpEC12MKurcepEOayegWS1cK5NF6pBQP00Gz Tq9Jx4cCWxJ2v9IwxP6CfE2b7lFg1VRXvtU5OsRpjQyXZ1KgMVepIfoeHbzz x13aRijg2kVxFSJi//8Cj0UzKMC9ypo/MZwOg/s7WvVGKaBz9q5ZShQd5qyp k89/U4DE29GR+4QOEi4PzqwQECQ43x5syKWDbmN/+VMZBPZbvs1zddCB8Lis fcMpBAKS10qrO3G+c1IBOpYI3m8S9fHrwfmKtxa6nEawY60dk/kL5xOk0pVh h4Dzh971jUmHnsX85ToXBPe+LL9LXcb5Z3ZQUu4iOFD/ysuGiwFbn+s/OBOC gEEx2CXEzYAKI246XygC05LI9NC1DGht9T9j8wCB6EuxR+4iDJCI3rkp+TGC bF/Vq1rKDPAuzVmseYPgnFeb0h8VBhC0t48SchBscPOl5e1hQMTNKY/DbxFc u1Blv1WdAWlyt3emFiLQNjY04dVlQPbmcwE8FQgmDFhr3usxQM3dbmF9FYI0 iKoLPMYAkk++wAYyAm71dq0JYwbU5uhPzCAELbIOip2nMX/UfODTgCBYiosa Y8sA3Z8o9cgXBPtFM18a2eF6cpIMVjUieMrPFiM7Yn0frRN+LQicpv14Mtxx PvnHVFd1Ipj+Gj3sHcIA185gl/JBBH3rOl2X7mM5qtWbGUJQZyrDCQ/D9fn1 ZaiOIIhryV188ZAB5kezZh/SECi3N4g0J2K5YyRtjoVAcNPGZNun2D4jm7N6 FMGs1Rk56nPsvzg9iG8MQX0ndffiSwYE71XeuzyOwKGX67hSLgMGS8N+JE8h MJA60VySx4BJy/ubrv9GsMsuzkq3EPe/2q5d/w+Cub4tjjYlDBAcfznU9hdB /+bL9OEyPK+ydftipxF8dMj3uFqJ6zex4jOcQRA/qH2TSMH63X6GabMIAuTu rwi+x/GbzQv05xBccPpKTPnAAMVY3pRBzCpU2/h3n3H863xreRcQCG9Pk4BG bJ9kGRGHef4S48XXZlwPMSB60yKCTwy/t0PtuN4PNkprlhDkKdbs9ezE52OT UK0f5sdXuCvmuhkQoPqmrx9zYK6JTugPPF8R8aCj/xA4jsbXb/yFz+Oni1mp mA1VfhgnD2C5XtTpP5h3e8q17RjG8SLjHugtIxApcLUppuL+p3rrP8S8MFH4 6wgDx7ulcr8Z8+Ce2YtfWNheod5o7Qr+nvfWYVuP4fqeHUzQwVxQRPQenMD9 6gm75Ik54XfTjPsUA+JGisiJmG/tF7kz+4cBTysrnpVjdvK1W31/Bp+fc8lL 7ZiNStMfCMzjfjScpTEw75lhbXy+iPWX/1jNYBY7uPfJ9mV8HrncjJYxL/kH yBQRmLD1W3XdCuaRCpR+eDUTFF1ZdQuYv86vUfrMwwTHpt9GHMykQycLrfiY ULvYbf0Lc9KtRPUBfibYzjyl12O+S+6rdtuA/ZHVl19jdv4nrzezkQkEs4Lk YMzGOu6fQ4SxPGcVssa8N6j45AZRJri27nPdhlmidv77U3EmDNbpJLFwv5YJ R+0UpJgQHLzDNBcz9WjEUKEME8zXssOcMTfe++aiLcsEo/MPjktgfsrt4Gup wITWy3bnPPB8li+Kq7ftYEJcTnqKAGbnD63Tp5SYoIsUXufieavd0/c3U8X+ L/byteLz8mRo6WCTGhMEf69zPot5Sbdszng/tre6SezD5+vzimKgkSbuRyy3 dOs8AtULw4caDjGBdGVbrC7mBEry4rEjTJgUu/UlF59XxzsCd/T1cL7svjgP fL5nF/4E6Zjien2d3F7j/bA/l69bcxLL6WcEqXh/6iovcx22wP3ZFXZbBnNM QO89rTNMSNudmBWI92/HDIV4wBH7F/UzGsP7GXU6wPCdExO8ZXW3zuP9/V2y l3ffJVz/4jHKCt5vyvXMiD1uWL57ldkC3v8zUw8eKvviefgeLs3E9wPZXN80 5wZm0X5KEBXBNtLSesWb2H9EVYw1vk8mrnrFbL+L62PJh4zi+4c4Zv1oawQT AmIqSC0/EbBNBCxfRuJ+NaiN+f9AYP62QXhLNO5X+8i4VC8CGbdDCdLxOL7T gv7JLgQlDNkksRTMl1iH3FoRSB3vtUl8gfXVNbOH8P0X/CZeQuQVrrfn/U/L ZnzfX+J5LvQGcxIxcdtXPP9hdsp6Es5vrsXK/wOCTf2l6avqmdBjdGVxugT3 a/2dO+WfcP+mVTsGihHwaxvYenzB9nIfbepICFY9bd/Q1YLnv+jk4pOH+2XB CcjpxfUXOaf5ZyBo/ah4ypyD57Ej+KZCHI7/l6PE8xvH6zTb8iwaz39bOXfV X3z+eca81jxEgIKOVckvMGGO9kyykYj3V8tp+yw3Cyazq8OWAvF88pMXU6VY QNIU/7xyEQFfn1OX5WYWpI2Oaa04IgjlVy7i3YrlWx7bzp7H++1ScdlnOwsi eCxS2mwQuMl1thmoYXln/BFVE7zfiQLZo8ew/yBVRrgaAp47IdZaPizgW/rY RZ6mQMnU2Dy6juW72gmi+Pvc+bLtS8MbOJ6Y/5fLExSoP7WHbXWLBd4yDzVm 6RQI3fYr6CoRy1k/gxq78fvgs+bbjGcsIERu/Xa0Ar8vNk1yCdRh/RF1x0u+ FCgOt8tKqGdBq8fZ81NeFHBa+mQq3YDjkUTnb7hToI6WmqTYxIK4K7brvZwo cK/CZLd+F7ZPWZMubE4BLocs2wA2C4z41kTuVKYAIcehcFiYDcFzcaYRvTXw aaz76ktRNkyuxNt3d9RAlJqFqr0EGwhnPSe2tNSAeIV+fudmNsyt5CYl1eH3 WoPi28+KbPCWMybseVsD9rTfbwp02KBWLK48E1gDlXLhLwLd2CCxbnKAJlID dy8RHA56Yn3DJeVjAjVgkHNz818vzB2Dsym8+D2n5pHi6Yfth/eJayyQgQkW zx2D2aDbseAuMEAGMQfpJ4ZPsHy11FWbLDJce14YLVyH83+e+N14HxnKl56H 19WzocJPoPwXft8uOYSFXGtgQ9xKluMV/P4Nlz/v197EBlvZI2vdRciQksd/ Pr6bDa0xnELxmWr4SLmkIjzOhp7dflZiFdUgMSLdKCQxCgSP1X+yNaqhZlcE n9DVUfjM3JUgv6UKNL6LN8d7j0JtE/1AuGgVkG5nPRK5PgqOdQ1R1PVVkN78 SUoiYBRIw4v/i1rEvy+8eHbL3huFrbMq6XE9lWD57p7F7ifYv3fxTfdHlcA4 dOf5CcooGL0yJrotV4CQ8TWVewJj8JmLJBDzsRz6drd23CSPwaCPukz55xIg vQAFqsM4CMJX2enHRXC+UENo8/I4tFa5pL8Uy4Ng4quQvtwJCFaytkx7mAH5 zM3JAqYccHToK1APSYSIVKJj/0kO1H53ZYnsSQRny/HtBRYc0A2QJn7vSwAZ MplkZsMBguGfgb8HEyAy1u5TlBMHgv95yFeNxYOrxrMp/pvYvjdi6Ix5HGwL FTHifYPlifW+xStEWNa8vaE7G9vXuu5/YEWE3vGR9jdvsX+DsyVbs0Ihzubd ecMirH9O9t8js/uwomx5nUjGcgrk3kkKhr622BerO7B9fTrtt84NqAibvdjR ifnMjbyKfl9I0L6glNGDOXl4duXOdTB5rVqi14/96RFlNlV7Q1VA85cQFpYv 07SSHC7Dk93qsRZjmB0lhLSfXASf4RRrOQ5mpdtTQ02OoGjqMVD7FzOzMNnn 6hng5vqeGTf7H7983NZpjt9h2m6OC5hdadpeNwyB7JaxR+0fZvNX7JhADUiS XTe9soKZQKj773+Q/wOYaNc9 "]]}, {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwt2GlYje3XBvBdoohmUkKzVEgiQ/bZoyRNpJkmKQpPmtAgDSqVJkpKoVGa B0VRbElIE81zmlW7XZ5IlN5r/4/30z5+xzqvtdZ13F/ufYvZXDphx0qhUPhY KBTmr5bd2GfaNyPqhevyzUtLDLCpCTv1CSnB8Jle538/GNj1KC7xqZA6Lhc6 uX2bYEC7rq3ogZAhbGee2na0MWBiO1dxR8gW4/eUd9fmM9Cz46ZauJAbUn12 xS5aMZC09lhQqFAAXpUtmkS+mYIfx9MtIUIxeNje1ekYQoepWXL+9EwaTl06 J3Ly9zg4l/zMj2zKB794kLpH4Rik9KfG3t4qhv/wsO+O8BFcrd+HuNkyxGt0 3LtlPATBYt5eFpbXiJa10N5kPYBnA2q1DSqVSF19POSceT8qzz/YYDZZBdYj +dqOf7vxQ/ogd+6/71ET8FF5T2kHWOezeTZI1eCAX6jVcttW7FmyfmaQVwsb bqescu8m1AYo1VfLNsBzVdGdpbZGbI6amM+caoSk9zIZmdO1mJjr621R+AJV hdKog63vkTb+soYrognr84w8Zc3fgmtjBmNoqBkiuQs3a1teIcyh5GySZCsK musst2mV4qdq9pC9TxtEr7lp+fMVoTxtIuFqQBsUpoMecywWwp9D3iAopA2a 9PjahNFCcDXmvEmNbkOS/5srY+WFkLbKe9ib0QYeYUG1DfaFMPYuNDVsbEPp n66XI7QClJQ9r4VYO6wF4k/J/sqDm2JV8bq37fDNuC2dtDMLZ5VEk25/aAfP uD+dbVUWTPdcu7W6vh2N01nlNwcycWC/kg1rRztoWo9cR6MzwXoojXtqipxX EFLn/vUEkfoB598Jd8D6rf4lSnUGspzURd1cOhC1onXK3j0diS5JnIyrHeCp f1QeYZiOcLeFnw7eHaCZJd35opAOJ/fiOqtgkq84bFL8LQ3KvpJe2g87MP1M TK3fPA1VkWyt4jUdEHXelN6hmYq+vKpbn8U6wbNM7s4J5WQ00tkmFbd0QvTp 6Kt6wWTQ5A/rxMh3Iuq3U++5X0lIynq32kS5E9bHvv2YLkuCzePq8G4dcp7X OciSmoSRBx8iR692on+s7JRe/EPQw2qjF+s6oXpFR75n8T56P62etWzqBC17 Yi9f9X3Ur9I1pLWTPLeknF/EfeQF1wncGCR5W2vaatH7cAqov8sx3wnKQfa8 zsPxmPVqvMcv2QXVvDWx+on38Od8c8JWzy5Qbi/GZbvFwHCPxe3tPl1ImuSK tDgSgxyWkaBdAV2gbfEd+0c4BpZxc84HI7ogquL/LpkWjTfvhDX1U8j5XjaZ V9zRuCl6eta9pgvWK9giHZ7fBn8rXeeDcDdUm5o+rjWLwMXkK4fqNneDcnYq nI8zAlUXl5S/SHbD9/mH9W4V4biyjFeiezvJ3yv3t5MIR4eC0jzjEMkfTc5g mb2FR7c80wUvkPxly92bn4RA7h/2v2dfEv+XYc04FYiCrOwt7bRu0NT1HNjX BkJJ4Lj+0WrSzzF87G59AFRG49LkPpP60VatdWoB0AuX1Z4eIRa/8zBt5w24 dOjGefD1QNW8yH9O0g8/D31/My5IrDAye2XYF145sROnNhJ3F/VcfOyLAJ8+ KlWmB5SKdfzlW30RK+U8zErtga8qr3Djhesoc45RDHMg9Z6tXpMfPEHt2mu+ 6EgcmqP4wtQTleo9gY5uJD9q3eb2zQM1gtIdx32In1qOFazxQHfFc5+1d0k+ Mk9G/fRVUFZ11T6kERs9Em9TcsORFLFzhYK9oPwTOmex4V8oxXFJV4sQP674 JOx3EaIRf4Y6xYhPyRW5jV3Ab48WGzZ54uclJUsvzyNXP8TSRJV4V9A9lyv2 4GeZMVq0J6auq/601xaUuR4BPkfizKkKs9IzmJysaZJ2JbZj+RCw7wyq29P0 j3sT17XwFanawKPAVDf1NvGZ/TccbKzRZ0VTP/qCWHX4wb0RM9Qa5S6zfE0s 3t9sJGSGUu37lS5VzH2PKegdM8UdZTfVxHriqDBDepUxDnPLqDAGiKe8Twy3 GkBx+do/y8aIWzfmukkYYNMflhfr6cTWivJU1xP4NdKlfGiO2Ljsno+IPrJf Re66y9kHSpy3prucLuKKr33P5CF2Zz+875c2ArIcCl+tZdY9Qx0/acEyVm3H 2GbiRJHp3YGa4HWckz2gRFx+THqvhjr+nhn6dmwf8ROJ8wkaahg3+/zElkrc 3P/TRfcQqg5nS0doEk+vm7juqIqrG63Ev5oT+w5dE1jYB5vjCsbdp4l5uNNZ L+6F3g2W0LazxLTPXaZjeyD9LXWmzok4avPlgyuUwCdyWerjZeLSrLZPGYpY 1NMwq/Ik5qjXrDTaiebiMdqLAGKFF7n1udtAGy2bLQkhLrg9Kmcoh2zhWzKF Ecz58VQz/q3w990WlRHHnL9fXbJbEo5P/75NeUDc+OX7m2FxmI00zD1IIe5P eLWDQwwKOi5WMTnM/bxPzW3fABEftejIQuKknSlPOdaDvUjgfegzYlUNCR6B tfg+NPw78CWx9cve1fp86BV8vt2PxqyLZxr4cKNGK9jm2jtiSuTK+terUOJt Fnu1humK3uAzK5BUIFvj0sB0jkzAeVaEDf5Z/LeZ6bJ6n8xFqvu6up0OHcz7 JO52V5+jnjn60M62l1lnDZpJn6HqXbsUbzXIdLNPW8I36v581bqTY0xnVde5 f6VKD/CyGNOZ5nhz610LlXftoJL+d6bDdi+dfU9dOFJsrzPHtML5bnoRdcwz MPHIAtM0Ts28W9RxYzn7ZEo/MWXvamczqvU0P+vmZf/zTIJXKrU1ZCEhcTnT CqYj3q+p2hLDu4U5mOYwvOHQSKWV1zXcW/U/l0at6abuMX7msHYN06u+NtoN U3MYD5dFczO9bl+X/hRVPOTmAx4+pvmLXO1mqXHiTsoRAkxvLPS0/03lKjf9 zCnIdIsOSzwFAUb/XAgRIvbtLll+mg3zU1uXs4swnR6tFcYBx2C+RwGbmN4x 0iC8BkNif/ayijFd0aq1gheNhrUXF6WYltWdCVsHjaniFV4yzP7f+4rvC6H8 5oOkX7JMC+eu7xRBxgvH5v92MK3h1f9TDCKGJo7OikxfKGP9KoE7dHAwlIhV aQI/BqVwXZRXZXwfMe2PuJaSLGbL5lvOqRD3f23J8ZPHeYOBS8NUYutf6X2j 22EU9DS1X41Yoav+5NJOyE8acbbpMvMvLvNmK6PUUOd16HFm3b+S1WQf1CoO uVINiKf15sN5D+BkxI6udFPixl+SLkVUhCiszHY7Q8xz5EWpvhoE4pcsZc4S R9E4hGzUkcTyk6/bnviDik61x2GUfhnwVHMktj9YxP76CEbcyrX4PJi2+i2V rAOXnqK/77yY95mapk/oYvFwZpHHdeY8325W6jEICMYKf71BHGb8ceXCcaiV XRrPjyBWiT449tUASYviobppxJJ6m7rNT0L+rBCVJYM4LftNhsopPK/n/l6c SRwQ2ickao76RwtmIvnEprWhMzMWWPyndetEGbFiwbHn/dY4GRTyMbiBmNWu v4HdDiNTPt4qX4jzNgV9i7GDs8mVndPNxBxCDq0SZxEscybepJO4pmFk65Fz eFaj4iA9zHz+h988T3UAP/c0R9Vv4hz9747FjvhSEXrz6CKzf6e1rsEl3Lko taJhibh3R0nlf5fAV3NyWSfbV1D4UtjLEp3AF/hukcFF7HyzambCGTx/7n/f IEEcG/sxuMANjZm7nZOliIc0duSvvowo00aGtAzxjx72ZIfL4H62nL5zG7E5 jXdU6gq4nJ1GjygTHzYOXsi4itWjh7tdtYm9qym6XzxRe7f/5Lwu8dRAjOwB L4Spe3VcP04sNpLQlOYFzpSC1hAj4rok1mDPa1hlseHzIytijCp67rgOjqbp d59cmf3NuSv7fMH2OiFfIpHY6hmvYHkAOlXUNfseEvv13HjOGoj8F5P995OJ W4pdG44G4uSzg3x8GV/hK+BWa9cRiMLcPjdKEal/V7KR/xsEy0SJ/T3viSVp m8QsQ1DqkV0V+x/J2y50PbkagYg5A4sTP4lbtrLtq4vAmcsLP9bMk7wHe5aq RCS5v+6WwL+kbtLk+KwxEnb2jBDXlQNQLTOeehAXBT6TXceObx4ALbJE0oTt Di4ovexYqT0AilzQ0ziOu6A1tuSU6g7AV1biEH3fXaz9d9rn3HGSz1c963Xh Ll6nS0m/MyLWWnRUb7gLfsEoF1/yP4b29pp/SHwsXs7bcs5dJvMqYwr79saB 8zXXwaEkYoaMQnlKArKP2iS9+km83Lnt/u1kKMmLUTE/AOtSlk0n8pPxiqu/ 6/WfAYh2jjiJ15H35SYLwTeUQVAc8g5wrUzBrIVZxNtVg6AVK9rx+aeA6nL8 2odNg0hi4+Goc09F432q6ReNQVgHbgzn9EjHjwlhnpHYQahyBsTkVmUi5sHo +8R4Uo/5OFk0kYldx4p9DBLJecNdL1r4suBcpMugJRN7uha7ns4C3d23PiGH 5M0fS/NSsjG8fCRMv3IQ/VdaWb4cykHL5sKVFXSSZ7eOvtCbhxKDI8ti1IeQ pBPGu7SnCD6agY+KR4bA40FdFbG8FGI9Wu2pgcMQjb4pLHv9FfYrB8QIKY5A VMvGy3fnW5hvaphnaRpBv1XlH5aj7/GjJnzAyW8Uqv70nAbZWsSxWbqdkBzD L0uttOg7jeDvLUlhrRpDf5N4eOTuJiz39jPc5/wNPD9TRlZotZL3Msv8Ab5x 8n6ueK/asgMu9/PD+SrHEZzoWivJ6EaFXDAHr+MENC2Wy8cb9oNXy0Xen2sS BdF7W5LkBtC9rbHJo3wSqkt3+t9pDKHgISSHLOlIzA2jfDIdgUX+Ht6Nf+mw Pie6/azHGHwDk/26s6bQGPjrl/rQOHLHNiZw6TDgxqnXtVKVjuAHgda9egxU 5bq5fNKiw/YEXSpPnwF1evCySCM6RMrLC3RNGGhX8+QXuUBHaOSp6jAbBlSO +Y7rxtJhvyd+ZpUHA0p9Qpd56HSIBwhosj9mIG7Qf4EncQp/915b0/aEgQU5 i8+8GVPooA9+eZzNQBSvVJJA0RSiTJ5aaBQyoFPsLSf6YQpLsidcA8sZWG16 Yl5vdgrdnyMfLmti4Mn6EGdOXQZKg+bONLUwsF7p4LCcKQMxB6y2prYzUD7Z e0LvDAPa6duLD/UyELZ7YkM82euFe91Hv28MuEttsdMge8Vu2x2pP8nARVnN J1fIXOeBREMxBtmn1nj4CZkro3OxjzbLgP2Yii4/mcvG0pwWNceAqI2Auzbp 219y4Lz1b7KfR0diIOlbfj51h8IiA5Lbwl6+Iefubeb8wfwOcvH/v4f8H6kT KvE= "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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.9999999387755111, 0.9999999591836739}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, {3.7068021079272137`*^9, 3.706802130055572*^9}, {3.7069634921043673`*^9, 3.7069635162975082`*^9}, { 3.7089625368195667`*^9, 3.708962553988029*^9}, {3.708962600612043*^9, 3.708962613202146*^9}, 3.7089653923444233`*^9, 3.708965713841412*^9, 3.709302547716579*^9, {3.71776005509179*^9, 3.717760079200603*^9}}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Two-species (Host-Pathogen) Co-GWAS", "Subchapter", CellChangeTimes->{{3.708964659348502*^9, 3.708964676111953*^9}}], Cell[CellGroupData[{ Cell["The Linear Regression Model", "Section", CellChangeTimes->{{3.709303094137603*^9, 3.70930309864956*^9}}], Cell["\<\ In the two-species Co-GWAS method we fit susceptibility with a linear \ regression containing the additive effects from both species, pair-wise \ epistatic interactions within each species, and pair-wise GxG interactions \ between the species. \ \>", "Text", CellChangeTimes->{{3.7092928135852413`*^9, 3.7092929117852383`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Pfit2", "[", RowBox[{"XH_", ",", "XP_"}], "]"}], ":=", RowBox[{"\[Beta]0", "+", RowBox[{"\[Beta]H1", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H2", " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H12", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]P1", " ", RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Beta]P2", " ", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]P12", " ", RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H1P1", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H1P2", " ", RowBox[{"XH", "[", RowBox[{"[", "1", "]"}], "]"}], " ", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H2P1", " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"XP", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Beta]H2P2", " ", RowBox[{"XH", "[", RowBox[{"[", "2", "]"}], "]"}], " ", RowBox[{"XP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6948899766349297`*^9, 3.6948900274588366`*^9}, { 3.6948921557865696`*^9, 3.6948921640990453`*^9}, {3.6948931534516325`*^9, 3.6948931604590335`*^9}, {3.6949599247622566`*^9, 3.6949599525218444`*^9}, { 3.6949604990181017`*^9, 3.694960499609136*^9}, {3.709292913575861*^9, 3.7092929369344797`*^9}, {3.7092933238160143`*^9, 3.709293404304923*^9}}], Cell["\<\ Once again we can use linear least-squares regression to fit susceptibility \ of the form PinfX. \ \>", "Text", CellChangeTimes->{{3.709293450584961*^9, 3.70929350357793*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"FreqH", "[", RowBox[{"XH1_", ",", "XH2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["pH1", "XH1"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pH1"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XH1"}], ")"}]], SuperscriptBox["pH2", "XH2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pH2"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XH2"}], ")"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"Abs", "[", RowBox[{"XH1", "-", "XH2"}], "]"}]], "LDH"}]}], "//", "Simplify"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FreqP", "[", RowBox[{"XP1_", ",", "XP2_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["pP1", "XP1"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP1"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XP1"}], ")"}]], SuperscriptBox["pP2", "XP2"], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP2"}], ")"}], RowBox[{"(", RowBox[{"1", "-", "XP2"}], ")"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"Abs", "[", RowBox[{"XP1", "-", "XP2"}], "]"}]], "LDP"}]}], "//", "Simplify"}]}]}], "Input", CellChangeTimes->{{3.694890495290595*^9, 3.694890732894185*^9}, { 3.694890799887017*^9, 3.6948908874940276`*^9}, {3.694890917855764*^9, 3.694891025989949*^9}, {3.694891114030985*^9, 3.6948911342911434`*^9}, { 3.694891205444213*^9, 3.6948912086123943`*^9}, {3.694891251876869*^9, 3.694891270563938*^9}, {3.694891587963092*^9, 3.6948916369418936`*^9}, { 3.694892302356953*^9, 3.6948923327366905`*^9}, {3.6948931450001497`*^9, 3.6948931717666807`*^9}, {3.6949599571501093`*^9, 3.694960019181657*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"MSE2", "[", "PinfX_", "]"}], ":=", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FreqH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], RowBox[{"FreqP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"PinfX", "[", RowBox[{ RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "XP2"}], "}"}]}], "]"}], "-", RowBox[{"Pfit2", "[", RowBox[{ RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "XP2"}], "}"}]}], "]"}]}], ")"}], "2"]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", "Simplify"}]}], ";"}]], "Input", CellChangeTimes->{{3.6948902971782637`*^9, 3.6948902990163684`*^9}, { 3.6948919357689857`*^9, 3.694891936793044*^9}, {3.694892019231759*^9, 3.6948920805862684`*^9}, {3.694892339528079*^9, 3.694892385043682*^9}, { 3.6948924187396097`*^9, 3.694892466246327*^9}, {3.6948926160858974`*^9, 3.69489263134077*^9}, {3.6948930822855625`*^9, 3.694893107724017*^9}, 3.6949595764703355`*^9, {3.6949603868846884`*^9, 3.694960422603731*^9}, { 3.6949604924847283`*^9, 3.694960494308833*^9}, {3.7089619626934433`*^9, 3.7089620114115477`*^9}, {3.709292959371591*^9, 3.709292962339472*^9}, { 3.709293526752865*^9, 3.709293548215228*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Equs2", "[", "PinfX_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]0"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H12"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P1"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P2"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P12"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1P1"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1P2"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2P1"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2P2"}], "]"}], "\[Equal]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vars2", "=", RowBox[{"{", RowBox[{ "\[Beta]0", ",", "\[Beta]H1", ",", "\[Beta]H2", ",", "\[Beta]H12", ",", "\[Beta]P1", ",", "\[Beta]P2", ",", "\[Beta]P12", ",", "\[Beta]H1P1", ",", "\[Beta]H1P2", ",", "\[Beta]H2P1", ",", "\[Beta]H2P2"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.696250532999918*^9, 3.6962505599416056`*^9}, { 3.708962121077528*^9, 3.7089621410664787`*^9}, {3.70929355122327*^9, 3.70929355574727*^9}, {3.709293587169117*^9, 3.709293667553088*^9}, { 3.709293731699332*^9, 3.70929373310647*^9}}], Cell["\<\ Since the equations can not be solved directly by Mathematica we use the \ following list of expressions to solve for the \[Beta]s step by step.\ \>", "Text", CellChangeTimes->{{3.709293805555306*^9, 3.709293849739759*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"EquList", "[", "PinfX_", "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]0"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H12"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P1"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P2"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]P12"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1P1"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H1P2"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2P1"}], "]"}], ",", RowBox[{"D", "[", RowBox[{ RowBox[{"MSE2", "[", "PinfX", "]"}], ",", "\[Beta]H2P2"}], "]"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.709293851282008*^9, 3.7092938941089287`*^9}, 3.709300663430414*^9, 3.7093007023680773`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-Difference Model", "Section", CellChangeTimes->{{3.7092937172985163`*^9, 3.709293720921616*^9}, 3.709294154667965*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pars", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.8"}], ",", " ", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5"}], ",", RowBox[{"bH2", "\[Rule]", "0.2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.35"}], ",", RowBox[{"bP2", "\[Rule]", "0.5"}], ",", RowBox[{"eH", "\[Rule]", "0.0"}], ",", RowBox[{"eP", "\[Rule]", "0.0"}], ",", RowBox[{"pP1", "\[Rule]", "pP"}], ",", RowBox[{"pP2", "\[Rule]", "pP"}]}], "}"}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]0sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]0"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949620280945606`*^9, 3.6949621112813187`*^9}, 3.698063872247196*^9, {3.709293936614212*^9, 3.7092939456814413`*^9}, 3.709294047670568*^9, 3.709300670930353*^9, 3.709300703894068*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", "\[Beta]0sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949621327205443`*^9, 3.694962180401272*^9}, 3.698063900291527*^9, {3.709293954387121*^9, 3.709293956322295*^9}, 3.709294045046896*^9, 3.7093006718113527`*^9, 3.709300704701614*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962187152658*^9, 3.694962257073657*^9}, 3.698063909902083*^9, {3.7092939598732653`*^9, 3.7092939631070967`*^9}, { 3.7092940398548727`*^9, 3.709294041622713*^9}, 3.7093006731387243`*^9, 3.709300705565999*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H12sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H12"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949622658241577`*^9, 3.694962297457967*^9}, 3.698063929750332*^9, {3.7092939658210993`*^9, 3.709293967766816*^9}, 3.709294037902776*^9, 3.709300674659028*^9, 3.7093007065187607`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949623121058044`*^9, 3.694962369923112*^9}, 3.698063925934202*^9, {3.709293972501696*^9, 3.70929397575176*^9}, 3.709294035392109*^9, 3.709300676159259*^9, 3.709300707430307*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "7", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.69496237950566*^9, 3.6949624114744883`*^9}, 3.698063940116835*^9, {3.709293978549962*^9, 3.709293980119032*^9}, 3.7092940277067957`*^9, 3.7093006772471533`*^9, 3.709300708354775*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P12sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "6", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P12"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949624264413443`*^9, 3.6949624672986813`*^9}, 3.69806394234905*^9, {3.709293982896781*^9, 3.7092939859110737`*^9}, 3.709294025390381*^9, 3.70930067860717*^9, 3.709300709194306*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "8", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949624584891777`*^9, 3.694962548507326*^9}, 3.698063947533003*^9, {3.70929398914581*^9, 3.709293991138603*^9}, 3.7092940234078617`*^9, {3.709300680143684*^9, 3.709300710114779*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "9", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962543138019*^9, 3.694962617906296*^9}, 3.6980639503251123`*^9, {3.709293994077836*^9, 3.709294020090157*^9}, { 3.7093006811833572`*^9, 3.709300710954705*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "10", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962626617794*^9, 3.6949626670521064`*^9}, 3.698063954554027*^9, {3.709293998815938*^9, 3.7092940162357807`*^9}, { 3.7093006821521273`*^9, 3.709300711770379*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PdiffX", "]"}], "[", RowBox[{"[", "11", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]H2P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949626768256655`*^9, 3.6949627001159973`*^9}, 3.698063957225103*^9, {3.709294005298695*^9, 3.7092940115629387`*^9}, { 3.7093006840631037`*^9, 3.7093007128906507`*^9}}], Cell["This gives the following solution:", "Text", CellChangeTimes->{{3.694962967199274*^9, 3.6949629769268303`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Vars2", "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H2P2sub"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]HPdiff", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", " ", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "6", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "7", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "8", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "10", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6949627130847397`*^9, 3.6949627807456093`*^9}, { 3.6949749769791937`*^9, 3.6949749799393635`*^9}, {3.698063992022869*^9, 3.6980639961346607`*^9}, {3.709294071571376*^9, 3.709294094259453*^9}, { 3.7092952454430723`*^9, 3.709295253870924*^9}, {3.709300570195427*^9, 3.70930057388457*^9}, 3.709300695113269*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P1", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P2", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P12", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1P1", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1P2", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2P1", "/.", "\[Beta]HPdiff"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2P2", "/.", "\[Beta]HPdiff"}], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "0.99"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "]"}], ",", "Blue", ",", "Blue", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706622147567236*^9, 3.706622282465704*^9}, {3.7069634458125887`*^9, 3.7069634476617317`*^9}, {3.709295286108101*^9, 3.709295351036523*^9}, { 3.709300581475321*^9, 3.709300594346799*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2s2aCwM79y+JrPog+a7aH8VkfJU4V eTYZzg+d3CwXtGcJnJ/NJ7Bh7rl1cP6meM2XWuFb4Hw7g0Wiapt2wvnab78r LN64D84XnXhpsTzfITifZ2fY7RPbjsD5JuGeTJsNj8P5KRufb9N5dBLOP9r4 Jep5yhk4f/59PeW/t87B+QdqumwCD1+A808dMYl3YboE5994tcXjf/RlOH/R de8j6euvwPmt/2du//D6Kpyfw7qv0NH5OsL/bjMXb2q+AefnpXrNeX3vJpyv 5y2kfsn4NpzPljNR82bhHTj/UdazT8tP3YXzry35ZDyd5z6cf/hSF7OUygM4 X9apPcDnPILP4h9/ky//IZz/1muRq6nMI0T4rfpQZXQMwWdfLvVmf8pjOP/O pPUOGwWewPm2MgoXjTYi+H845mh1+z2F8/c+aUp3/4ngc8e5Ppg84xmcH32s yMbF9Tmcb36m+krLMwS/0HSC6ZyWF3D+2l7+KnGDl3B+aXPWL6ULCL59hkHc pNpXcH76BsbuG+qv4XyZaes+rzuG4F/OOmb/sugNnC92d+fxzcJv4fztm3ZI hG5E8KPKlXyjYt7B+Z030/e+/43gL1XbIcYU+h7OP1jMUSCyDsEHAJEH2rE= "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2NSLr3B9WLdm/LL7mg+izZnsYn/VR 4lSRZ5Ph/NDJzXJBe5bA+dl8AhvmnlsH52+K13ypFb4FzrczWCSqtmknnK/9 9rvC4o374HzRiZcWy/MdgvN5dobdPrHtCJxvEu7JtNnwOJyfsvH5Np1HJ+H8 o41fop6nnIHz59/XU/576xycf6Cmyybw8AU4/9QRk3gXpktw/o1XWzz+R1+G 8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vI/zvNnPxpuYbcH5eqtec1/du wvl63kLql4xvw/lsORM1bxbegfMfZT37tPzUXTj/2pJPxtN57sP5hy91MUup PIDzZZ3aA3zOI/gs/vE3+fIfwvlvvRa5mso8QoTfqg9VRscQfPblUm/2pzyG 8+9MWu+wUeAJnG8ro3DRaCOC/4djjla331M4f++TpnT3nwg+d5zrg8kznsH5 0ceKbFxcn8P55meqr7Q8Q/ALTSeYzml5Aeev7eWvEjd4CeeXNmf9UrqA4Ntn GMRNqn0F56dvYOy+of4azpeZtu7zumMI/uWsY/Yvi97A+WJ3dx7fLPwWzt++ aYdE6EYEP6pcyTcq5h2c33kzfe/73wj+UrUdYkyh7+H8g8UcBSLrEHwAeiKx QQ== "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], AbsoluteThickness[1.6], Opacity[ 1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2rwN3yLW+3mi/LL7mg+izZnsYn/VR 4lSRZ5Ph/NDJzXJBe5bA+dl8AhvmnlsH52+K13ypFb4FzrczWCSqtmknnK/9 9rvC4o374HzRiZcWy/MdgvN5dobdPrHtCJxvEu7JtNnwOJyfsvH5Np1HJ+H8 o41fop6nnIHz59/XU/576xycf6Cmyybw8AU4/9QRk3gXpktw/o1XWzz+R1+G 8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vI/zvNnPxpuYbcH5eqtec1/du wvl63kLql4xvw/lsORM1bxbegfMfZT37tPzUXTj/2pJPxtN57sP5hy91MUup PIDzZZ3aA3zOI/gs/vE3+fIfwvlvvRa5mso8QoTfqg9VRscQfPblUm/2pzyG 8+9MWu+wUeAJnG8ro3DRaCOC/4djjla331M4f++TpnT3nwg+d5zrg8kznsH5 0ceKbFxcn8P55meqr7Q8Q/ALTSeYzml5Aeev7eWvEjd4CeeXNmf9UrqA4Ntn GMRNqn0F56dvYOy+of4azpeZtu7zumMI/uWsY/Yvi97A+WJ3dx7fLPwWzt++ aYdE6EYEP6pcyTcq5h2c33kzfe/73wj+UrUdYkyh7+H8g8UcBSLrEHwAhT66 zQ== "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2s2aCwE77ZfE1H0SfNdvD+KyPEqeK PJsM54dObpYL2rMEzs/mE9gw99w6OH9TvOZLrfAtcL6dwSJRtU074Xztt98V Fm/cB+eLTry0WJ7vEJzPszPs9oltR+B8k3BPps2Gx+H8lI3Pt+k8OgnnH238 EvU85QycP/++nvLfW+fg/AM1XTaBhy/A+aeOmMS7MF2C82+82uLxP/oynL/o uveR9PVX4PzW/zO3f3h9Fc7PYd1X6Oh8HeF/t5mLNzXfgPPzUr3mvL53E87X 8xZSv2R8G85ny5moebPwDpz/KOvZp+Wn7sL515Z8Mp7Ocx/OP3ypi1lK5QGc L+vUHuBzHsFn8Y+/yZf/EM5/67XI1VTmESL8Vn2oMjqG4LMvl3qzP+UxnH9n 0nqHjQJP4HxbGYWLRhsR/D8cc7S6/Z7C+XufNKW7/0TwueNcH0ye8QzOjz5W ZOPi+hzONz9TfaXlGYJfaDrBdE7LCzh/bS9/lbjBSzi/tDnrl9IFBN8+wyBu Uu0rOD99A2P3DfXXcL7MtHWf1x1D8C9nHbN/WfQGzhe7u/P4ZuG3cP72TTsk Qjci+FHlSr5RMe/g/M6b6Xvf/0bwl6rtEGMKfQ/nHyzmKBBZh+ADAASgwLE= "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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, 0.99}, {-0.1, 0.31000000000000005`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, 3.706622229129335*^9, { 3.70662227208261*^9, 3.706622283153955*^9}, 3.70696365179469*^9, 3.709295351743487*^9, 3.709300606386211*^9, 3.709300716776752*^9, 3.717760092235908*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-Matching Model", "Section", CellChangeTimes->{{3.7092937172985163`*^9, 3.709293720921616*^9}, { 3.709294148213127*^9, 3.709294152191774*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]0sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]0"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949620280945606`*^9, 3.6949621112813187`*^9}, 3.698063872247196*^9, {3.709293936614212*^9, 3.7092939456814413`*^9}, 3.709294047670568*^9, {3.7092941590538054`*^9, 3.709294162860333*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", "\[Beta]0sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949621327205443`*^9, 3.694962180401272*^9}, 3.698063900291527*^9, {3.709293954387121*^9, 3.709293956322295*^9}, 3.709294045046896*^9, 3.709294166162224*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962187152658*^9, 3.694962257073657*^9}, 3.698063909902083*^9, {3.7092939598732653`*^9, 3.7092939631070967`*^9}, { 3.7092940398548727`*^9, 3.709294041622713*^9}, 3.7092941668908663`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H12sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H12"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949622658241577`*^9, 3.694962297457967*^9}, 3.698063929750332*^9, {3.7092939658210993`*^9, 3.709293967766816*^9}, 3.709294037902776*^9, 3.709294167658334*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949623121058044`*^9, 3.694962369923112*^9}, 3.698063925934202*^9, {3.709293972501696*^9, 3.70929397575176*^9}, 3.709294035392109*^9, 3.709294168521419*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "7", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.69496237950566*^9, 3.6949624114744883`*^9}, 3.698063940116835*^9, {3.709293978549962*^9, 3.709293980119032*^9}, 3.7092940277067957`*^9, 3.7092941695224733`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P12sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "6", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]P12"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949624264413443`*^9, 3.6949624672986813`*^9}, 3.69806394234905*^9, {3.709293982896781*^9, 3.7092939859110737`*^9}, 3.709294025390381*^9, 3.7092941703221197`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "8", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949624584891777`*^9, 3.694962548507326*^9}, 3.698063947533003*^9, {3.70929398914581*^9, 3.709293991138603*^9}, 3.7092940234078617`*^9, 3.709294171122328*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "9", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H1P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962543138019*^9, 3.694962617906296*^9}, 3.6980639503251123`*^9, {3.709293994077836*^9, 3.709294020090157*^9}, 3.709294171858164*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P1sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "10", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2P1"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.694962626617794*^9, 3.6949626670521064`*^9}, 3.698063954554027*^9, {3.709293998815938*^9, 3.7092940162357807`*^9}, 3.709294172882065*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P2sub", "=", RowBox[{ RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmatchX", "]"}], "[", RowBox[{"[", "11", "]"}], "]"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]H2P1sub"}], "//", "Simplify"}], "//", "Factor"}], ")"}], "\[Equal]", "0"}], ",", "\[Beta]H2P2"}], "]"}], "//", "Simplify"}], "//", "Flatten"}]}], ";"}]], "Input", CellChangeTimes->{{3.6949626768256655`*^9, 3.6949627001159973`*^9}, 3.698063957225103*^9, {3.709294005298695*^9, 3.7092940115629387`*^9}, 3.709294174482616*^9}], Cell["This gives the following solution:", "Text", CellChangeTimes->{{3.694962967199274*^9, 3.6949629769268303`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"sol", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Vars2", "/.", "\[Beta]0sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H2sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H2P2sub"}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]HPmatch", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", " ", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "6", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "7", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "8", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "10", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6949627130847397`*^9, 3.6949627807456093`*^9}, { 3.6949749769791937`*^9, 3.6949749799393635`*^9}, {3.698063992022869*^9, 3.6980639961346607`*^9}, {3.709294071571376*^9, 3.709294094259453*^9}, { 3.7092953701630507`*^9, 3.709295375989171*^9}, {3.709301741381608*^9, 3.709301744920444*^9}, 3.709301775154806*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P1", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P2", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]P12", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1P1", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H1P2", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2P1", "/.", "\[Beta]HPmatch"}], "/.", "pars"}], ",", RowBox[{ RowBox[{"\[Beta]H2P2", "/.", "\[Beta]HPmatch"}], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "0.99"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "]"}], ",", "Blue", ",", "Blue", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706622147567236*^9, 3.706622282465704*^9}, {3.7069634458125887`*^9, 3.7069634476617317`*^9}, {3.709295286108101*^9, 3.709295351036523*^9}, { 3.70929538865825*^9, 3.7092954220624447`*^9}, {3.709301756612947*^9, 3.7093017660495358`*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2DGDwwX5ZfM0H0WfN9jA+66PEqSLP JsP5oZOb5YL2LIHzs/kENsw9tw7O3xSv+VIrfAucb2ewSFRt0044X/vtd4XF G/fB+aITLy2W5zsE5/PsDLt9YtsRON8k3JNps+FxOD9l4/NtOo9OwvlHG79E PU85A+fPv6+n/PfWOTj/QE2XTeDhC3D+qSMm8S5Ml+D8G6+2ePyPvgznL7ru fSR9/RU4v/X/zO0fXl+F83NY9xU6Ol9H+N9t5uJNzTfg/LxUrzmv792E8/W8 hdQvGd+G89lyJmreLLwD5z/KevZp+am7cP61JZ+Mp/Pch/MPX+pillJ5AOfL OrUH+JxH8Fn842/y5T+E8996LXI1lXmECL9VH6qMjiH47Mul3uxPeQzn35m0 3mGjwBM431ZG4aLRRgT/D8ccrW6/p3D+3idN6e4/EXzuONcHk2c8g/OjjxXZ uLg+h/PNz1RfaXmG4BeaTjCd0/ICzl/by18lbvASzi9tzvqldAHBt88wiJtU +wrOT9/A2H1D/TWcLzNt3ed1xxD8y1nH7F8WvYHzxe7uPL5Z+C2cv33TDonQ jQh+VLmSb1TMOzi/82b63ve/EfylajvEmELfw/kHizkKRNYh+ABTIBEx "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2s2aCwMn9y+JrPog+a7aH8VkfJU4V eTYZzg+d3CwXtGcJnJ/NJ7Bh7rl1cP6meM2XWuFb4Hw7g0Wiapt2wvnab78r LN64D84XnXhpsTzfITifZ2fY7RPbjsD5JuGeTJsNj8P5KRufb9N5dBLOP9r4 Jep5yhk4f/59PeW/t87B+QdqumwCD1+A808dMYl3YboE5994tcXjf/RlOH/R de8j6euvwPmt/2du//D6Kpyfw7qv0NH5OsL/bjMXb2q+AefnpXrNeX3vJpyv 5y2kfsn4NpzPljNR82bhHTj/UdazT8tP3YXzry35ZDyd5z6cf/hSF7OUygM4 X9apPcDnPILP4h9/ky//IZz/1muRq6nMI0T4rfpQZXQMwWdfLvVmf8pjOP/O pPUOGwWewPm2MgoXjTYi+H845mh1+z2F8/c+aUp3/4ngc8e5Ppg84xmcH32s yMbF9Tmcb36m+krLMwS/0HSC6ZyWF3D+2l7+KnGDl3B+aXPWL6ULCL59hkHc pNpXcH76BsbuG+qv4XyZaes+rzuG4F/OOmb/sugNnC92d+fxzcJv4fztm3ZI hG5E8KPKlXyjYt7B+Z030/e+/43gL1XbIcYU+h7OP1jMUSCyDsEHAMXS3fE= "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2f1d+vOSbtGD/sviaD6LPmu1hfNZH iVNFnk2G80MnN8sF7VkC52fzCWyYe24dnL8pXvOlVvgWON/OYJGo2qadcL72 2+8Kizfug/NFJ15aLM93CM7n2Rl2+8S2I3C+Sbgn02bD43B+ysbn23QenYTz jzZ+iXqecgbOn39fT/nvrXNw/oGaLpvAwxfg/FNHTOJdmC7B+TdebfH4H30Z zl903ftI+vorcH7r/5nbP7y+CufnsO4rdHS+jvC/28zFm5pvwPl5qV5zXt+7 CefreQupXzK+Deez5UzUvFl4B85/lPXs0/JTd+H8a0s+GU/nuQ/nH77UxSyl 8gDOl3VqD/A5j+Cz+Mff5Mt/COe/9VrkairzCBF+qz5UGR1D8NmXS73Zn/IY zr8zab3DRoEncL6tjMJFo40I/h+OOVrdfk/h/L1PmtLdfyL43HGuDybPeAbn Rx8rsnFxfQ7nm5+pvtLyDMEvNJ1gOqflBZy/tpe/StzgJZxf2pz1S+kCgm+f YRA3qfYVnJ++gbH7hvprOF9m2rrP644h+Jezjtm/LHoD54vd3Xl8s/BbOH/7 ph0SoRsR/KhyJd+omHdwfufN9L3vfyP4S9V2iDGFvofzDxZzFIisQ/ABMWzv 0Q== "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], AbsoluteThickness[1.6], Opacity[ 1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2NSLr3B9WHdm/LL7mg+izZnsYn/VR 4lSRZ5Ph/NDJzXJBe5bA+dl8AhvmnlsH52+K13ypFb4FzrczWCSqtmknnK/9 9rvC4o374HzRiZcWy/MdgvN5dobdPrHtCJxvEu7JtNnwOJyfsvH5Np1HJ+H8 o41fop6nnIHz59/XU/576xycf6Cmyybw8AU4/9QRk3gXpktw/o1XWzz+R1+G 8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vI/zvNnPxpuYbcH5eqtec1/du wvl63kLql4xvw/lsORM1bxbegfMfZT37tPzUXTj/2pJPxtN57sP5hy91MUup PIDzZZ3aA3zOI/gs/vE3+fIfwvlvvRa5mso8QoTfqg9VRscQfPblUm/2pzyG 8+9MWu+wUeAJnG8ro3DRaCOC/4djjla331M4f++TpnT3nwg+d5zrg8kznsH5 0ceKbFxcn8P55meqr7Q8Q/ALTSeYzml5Aeev7eWvEjd4CeeXNmf9UrqA4Ntn GMRNqn0F56dvYOy+of4azpeZtu7zumMI/uWsY/Yvi97A+WJ3dx7fLPwWzt++ aYdE6EYEP6pcyTcq5h2c33kzfe/73wj+UrUdYkyh7+H8g8UcBSLrEHwA47i3 wQ== "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2njxM2u1iO/cvi6/5IPqs2R7GZ32U OFXk2WQ4P3Rys1zQniVwfjafwIa559bB+ZviNV9qhW+B8+0MFomqbdoJ52u/ /a6weOM+OF904qXF8nyH4HyenWG3T2w7AuebhHsybTY8DuenbHy+TefRSTj/ aOOXqOcpZ+D8+ff1lP/eOgfnH6jpsgk8fAHOP3XEJN6F6RKcf+PVFo//0Zfh /EXXvY+kr78C57f+n7n9w+urcH4O675CR+frCP+7zVy8qfkGnJ+X6jXn9b2b cL6et5D6JePbcD5bzkTNm4V34PxHWc8+LT91F86/tuST8XSe+3D+4UtdzFIq D+B8Waf2AJ/zCD6Lf/xNvvyHcP5br0WupjKPEOG36kOV0TEEn3251Jv9KY/h /DuT1jtsFHgC59vKKFw02ojg/+GYo9Xt9xTO3/ukKd39J4LPHef6YPKMZ3B+ 9LEiGxfX53C++ZnqKy3PEPxC0wmmc1pewPlre/mrxA1ewvmlzVm/lC4g+PYZ BnGTal/B+ekbGLtvqL+G82Wmrfu87hiCfznrmP3Lojdwvtjdncc3C7+F87dv 2iERuhHBjypX8o2KeQfnd95M3/v+N4K/VG2HGFPoezj/YDFHgcg6BB8AGZZa UQ== "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2s2aCwMn9y+JrPog+a7aH8VkfJU4V eTYZzg+d3CwXtGcJnJ/NJ7Bh7rl1cP6meM2XWuFb4Hw7g0Wiapt2wvnab78r LN64D84XnXhpsTzfITifZ2fY7RPbjsD5JuGeTJsNj8P5KRufb9N5dBLOP9r4 Jep5yhk4f/59PeW/t87B+QdqumwCD1+A808dMYl3YboE5994tcXjf/RlOH/R de8j6euvwPmt/2du//D6Kpyfw7qv0NH5OsL/bjMXb2q+AefnpXrNeX3vJpyv 5y2kfsn4NpzPljNR82bhHTj/UdazT8tP3YXzry35ZDyd5z6cf/hSF7OUygM4 X9apPcDnPILP4h9/ky//IZz/1muRq6nMI0T4rfpQZXQMwWdfLvVmf8pjOP/O pPUOGwWewPm2MgoXjTYi+H845mh1+z2F8/c+aUp3/4ngc8e5Ppg84xmcH32s yMbF9Tmcb36m+krLMwS/0HSC6ZyWF3D+2l7+KnGDl3B+aXPWL6ULCL59hkHc pNpXcH76BsbuG+qv4XyZaes+rzuG4F/OOmb/sugNnC92d+fxzcJv4fztm3ZI hG5E8KPKlXyjYt7B+Z030/e+/43gL1XbIcYU+h7OP1jMUSCyDsEHAMXS3fE= "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2rwN3yLW+vrh/WXzNB9FnzfYwPuuj xKkizybD+aGTm+WC9iyB87P5BDbMPbcOzt8Ur/lSK3wLnG9nsEhUbdNOOF/7 7XeFxRv3wfmiEy8tluc7BOfz7Ay7fWLbETjfJNyTabPhcTg/ZePzbTqPTsL5 Rxu/RD1POQPnz7+vp/z31jk4/0BNl03g4Qtw/qkjJvEuTJfg/Buvtnj8j74M 5y+67n0kff0VOL/1/8ztH15fhfNzWPcVOjpfR/jfbebiTc034Py8VK85r+/d hPP1vIXULxnfhvPZciZq3iy8A+c/ynr2afmpu3D+tSWfjKfz3IfzD1/qYpZS eQDnyzq1B/icR/BZ/ONv8uU/hPPfei1yNZV5hAi/VR+qjI4h+OzLpd7sT3kM 59+ZtN5ho8ATON9WRuGi0UYE/w/HHK1uv6dw/t4nTenuPxF87jjXB5NnPIPz o48V2bi4Pofzzc9UX2l5huAXmk4wndPyAs5f28tfJW7wEs4vbc76pXQBwbfP MIibVPsKzk/fwNh9Q/01nC8zbd3ndccQ/MtZx+xfFr2B88Xu7jy+WfgtnL99 0w6J0I0IflS5km9UzDs4v/Nm+t73vxH8pWo7xJhC38P5B4s5CkTWIfgAe0rb TQ== "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2rwN3yLW+vmi/LL7mg+izZnsYn/VR 4lSRZ5Ph/NDJzXJBe5bA+dl8AhvmnlsH52+K13ypFb4FzrczWCSqtmknnK/9 9rvC4o374HzRiZcWy/MdgvN5dobdPrHtCJxvEu7JtNnwOJyfsvH5Np1HJ+H8 o41fop6nnIHz59/XU/576xycf6Cmyybw8AU4/9QRk3gXpktw/o1XWzz+R1+G 8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vI/zvNnPxpuYbcH5eqtec1/du wvl63kLql4xvw/lsORM1bxbegfMfZT37tPzUXTj/2pJPxtN57sP5hy91MUup PIDzZZ3aA3zOI/gs/vE3+fIfwvlvvRa5mso8QoTfqg9VRscQfPblUm/2pzyG 8+9MWu+wUeAJnG8ro3DRaCOC/4djjla331M4f++TpnT3nwg+d5zrg8kznsH5 0ceKbFxcn8P55meqr7Q8Q/ALTSeYzml5Aeev7eWvEjd4CeeXNmf9UrqA4Ntn GMRNqn0F56dvYOy+of4azpeZtu7zumMI/uWsY/Yvi97A+WJ3dx7fLPwWzt++ aYdE6EYEP6pcyTcq5h2c33kzfe/73wj+UrUdYkyh7+H8g8UcBSLrEHwA7tTB TQ== "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2s2aCwE37ZfE1H0SfNdvD+KyPEqeK PJsM54dObpYL2rMEzs/mE9gw99w6OH9TvOZLrfAtcL6dwSJRtU074Xztt98V Fm/cB+eLTry0WJ7vEJzPszPs9oltR+B8k3BPps2Gx+H8lI3Pt+k8OgnnH238 EvU85QycP/++nvLfW+fg/AM1XTaBhy/A+aeOmMS7MF2C82+82uLxP/oynL/o uveR9PVX4PzW/zO3f3h9Fc7PYd1X6Oh8HeF/t5mLNzXfgPPzUr3mvL53E87X 8xZSv2R8G85ny5moebPwDpz/KOvZp+Wn7sL515Z8Mp7Ocx/OP3ypi1lK5QGc L+vUHuBzHsFn8Y+/yZf/EM5/67XI1VTmESL8Vn2oMjqG4LMvl3qzP+UxnH9n 0nqHjQJP4HxbGYWLRhsR/D8cc7S6/Z7C+XufNKW7/0TwueNcH0ye8QzOjz5W ZOPi+hzONz9TfaXlGYJfaDrBdE7LCzh/bS9/lbjBSzi/tDnrl9IFBN8+wyBu Uu0rOD99A2P3DfXXcL7MtHWf1x1D8C9nHbN/WfQGzhe7u/P4ZuG3cP72TTsk Qjci+FHlSr5RMe/g/M6b6Xvf/0bwl6rtEGMKfQ/nHyzmKBBZh+ADAG42xzE= "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2FS/VDDnW7LFfFl/zQfRZsz2Mz/oo carIs8lwfujkZrmgPUvg/Gw+gQ1zz62D8zfFa77UCt8C59sZLBJV27QTztd+ +11h8cZ9cL7oxEuL5fkOwfk8O8Nun9h2BM43Cfdk2mx4HM5P2fh8m86jk3D+ 0cYvUc9TzsD58+/rKf+9dQ7OP1DTZRN4+AKcf+qISbwL0yU4/8arLR7/oy/D +Yuuex9JX38Fzm/9P3P7h9dX4fwc1n2Fjs7XEf53m7l4U/MNOD8v1WvO63s3 4Xw9byH1S8a34Xy2nImaNwvvwPmPsp59Wn7qLpx/bckn4+k89+H8w5e6mKVU HsD5sk7tAT7nEXwW//ibfPkP4fy3XotcTWUeIcJv1Ycqo2MIPvtyqTf7Ux7D +XcmrXfYKPAEzreVUbhotBHB/8MxR6vb7ymcv/dJU7r7TwSfO871weQZz+D8 6GNFNi6uz+F88zPVV1qeIfiFphNM57S8gPPX9vJXiRu8hPNLm7N+KV1A8O0z DOIm1b6C89M3MHbfUH8N58tMW/d53TEE/3LWMfuXRW/gfLG7O49vFn4L52/f tEMidCOCH1Wu5BsV8w7O77yZvvf9bwR/qdoOMabQ93D+wWKOApF1CD4AB6WE kQ== "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQfaiC59byjaF2NSLr3B9WHbFfFl/zQfRZsz2Mz/oo carIs8lwfujkZrmgPUvg/Gw+gQ1zz62D8zfFa77UCt8C59sZLBJV27QTztd+ +11h8cZ9cL7oxEuL5fkOwfk8O8Nun9h2BM43Cfdk2mx4HM5P2fh8m86jk3D+ 0cYvUc9TzsD58+/rKf+9dQ7OP1DTZRN4+AKcf+qISbwL0yU4/8arLR7/oy/D +Yuuex9JX38Fzm/9P3P7h9dX4fwc1n2Fjs7XEf53m7l4U/MNOD8v1WvO63s3 4Xw9byH1S8a34Xy2nImaNwvvwPmPsp59Wn7qLpx/bckn4+k89+H8w5e6mKVU HsD5sk7tAT7nEXwW//ibfPkP4fy3XotcTWUeIcJv1Ycqo2MIPvtyqTf7Ux7D +XcmrXfYKPAEzreVUbhotBHB/8MxR6vb7ymcv/dJU7r7TwSfO871weQZz+D8 6GNFNi6uz+F88zPVV1qeIfiFphNM57S8gPPX9vJXiRu8hPNLm7N+KV1A8O0z DOIm1b6C89M3MHbfUH8N58tMW/d53TEE/3LWMfuXRW/gfLG7O49vFn4L52/f tEMidCOCH1Wu5BsV8w7O77yZvvf9bwR/qdoOMabQ93D+wWKOApF1CD4AV1Gd wQ== "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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, 0.99}, {-0.27999999999999997`, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, 3.706622229129335*^9, { 3.70662227208261*^9, 3.706622283153955*^9}, 3.70696365179469*^9, 3.709295351743487*^9, {3.709295406122242*^9, 3.7092954237187557`*^9}, 3.709301777613057*^9, 3.717760101268846*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matching-Alleles Model", "Section", CellChangeTimes->{{3.709294446352007*^9, 3.7092944521117983`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P2sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "11", "]"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H2P2"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706619230625145*^9, 3.706619329977632*^9}, { 3.706619613233756*^9, 3.7066196139313593`*^9}, {3.7092945125591307`*^9, 3.70929455139808*^9}, 3.709295447682313*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2P1sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H2P1"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706619307969562*^9, 3.706619399431243*^9}, { 3.706619518364073*^9, 3.706619608066916*^9}, {3.706619732099801*^9, 3.7066197447082*^9}, {3.709294580003631*^9, 3.7092946132713537`*^9}, 3.709295453657061*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H1"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7066196351069*^9, 3.706619643093315*^9}, { 3.706619682442004*^9, 3.706619762528652*^9}, {3.706619804645939*^9, 3.7066198857042933`*^9}, {3.709294629607905*^9, 3.709294648316972*^9}, 3.7092954570650063`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H12sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H12"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7066198936618547`*^9, 3.70662001667992*^9}, { 3.709294663877186*^9, 3.709294684553336*^9}, 3.709295458865047*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P2sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]P2"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7066200578083067`*^9, 3.706620256642494*^9}, { 3.709294695153234*^9, 3.709294714101762*^9}, 3.709295460672949*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P1sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "6", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]P1"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706620137979308*^9, 3.706620146925427*^9}, { 3.7066201797651367`*^9, 3.706620180365019*^9}, {3.706620224068151*^9, 3.7066202246585608`*^9}, {3.706620261224371*^9, 3.706620314292984*^9}, { 3.706620453094655*^9, 3.7066205223057003`*^9}, {3.70929472457365*^9, 3.7092947435701523`*^9}, 3.7092954625530863`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P2sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "7", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H1P2"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706620373163031*^9, 3.706620374058247*^9}, { 3.706620436371553*^9, 3.7066204485214157`*^9}, {3.706620482752696*^9, 3.706620484740327*^9}, {3.706620528687271*^9, 3.706620545174066*^9}, { 3.706620581371059*^9, 3.706620582669853*^9}, {3.706620623590515*^9, 3.706620635260358*^9}, {3.706620713156391*^9, 3.7066207952395782`*^9}, { 3.7092947566661053`*^9, 3.709294798357171*^9}, 3.709295464807672*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]P12sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]H1P2sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]P12"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706620642050988*^9, 3.7066206906629667`*^9}, { 3.7066207258097973`*^9, 3.706620868291669*^9}, {3.7092948118827343`*^9, 3.709294856653665*^9}, 3.70929546763172*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H1P1sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "9", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]P12sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H1P1"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.70662087582129*^9, 3.7066208794161863`*^9}, { 3.7066209521350107`*^9, 3.7066210125564632`*^9}, {3.7066210530143433`*^9, 3.7066210537356853`*^9}, {3.706621092207973*^9, 3.706621111454197*^9}, { 3.709294872515345*^9, 3.709294903080702*^9}, 3.7092954698093357`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]0sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "8", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]0"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706621025648016*^9, 3.706621033320586*^9}, { 3.706621073761795*^9, 3.706621155767417*^9}, {3.706621231592639*^9, 3.706621232611096*^9}, {3.706621275507875*^9, 3.706621277140648*^9}, { 3.709294915607566*^9, 3.70929494788396*^9}, 3.709295472352058*^9}], Cell[BoxData[ RowBox[{ RowBox[{"\[Beta]H2sub", "=", RowBox[{"FullSimplify", "[", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"Factor", "[", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"EquList", "[", "PmamX", "]"}], "[", RowBox[{"[", "10", "]"}], "]"}], "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "]"}], "/.", "\[Beta]0sub"}], "]"}], "\[Equal]", "0"}], ",", "\[Beta]H2"}], "]"}], "]"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.706621173402528*^9, 3.7066213005482607`*^9}, { 3.709294976728303*^9, 3.70929500030125*^9}, 3.7092954751597853`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"sol", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Vars2", "/.", "\[Beta]H2P2sub"}], "/.", "\[Beta]H2P1sub"}], "/.", "\[Beta]H1sub"}], "/.", "\[Beta]H12sub"}], "/.", "\[Beta]P2sub"}], "/.", "\[Beta]P1sub"}], "/.", "\[Beta]H1P2sub"}], "/.", "\[Beta]P12sub"}], "/.", "\[Beta]H1P1sub"}], "/.", "\[Beta]0sub"}], "/.", "\[Beta]H2sub"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]HPmam", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "5", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "6", "]"}], "]"}]}], ",", RowBox[{"\[Beta]P12", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "7", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "8", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H1P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "9", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P1", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "10", "]"}], "]"}]}], ",", RowBox[{"\[Beta]H2P2", "\[Rule]", RowBox[{"sol", "[", RowBox[{"[", "11", "]"}], "]"}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.706621320950679*^9, 3.706621379519773*^9}, { 3.7066214226392107`*^9, 3.706621433732711*^9}, {3.709295019668335*^9, 3.709295040687421*^9}, 3.709295142826527*^9, {3.709295488278378*^9, 3.709295488757288*^9}, {3.7093026649602222`*^9, 3.709302667070931*^9}}], Cell["\<\ Unlike the phenotypic-matching and phenotypic-difference model the \[Beta] \ coefficients here depend on the host allele frequencies and linkage \ disequilibrium.\ \>", "Text", CellChangeTimes->{{3.70929566077127*^9, 3.7092957103714027`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"parsH", "=", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", "0.5"}], ",", RowBox[{"pH2", "\[Rule]", "0.5"}], ",", RowBox[{"LDH", "\[Rule]", "0"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709295594013546*^9, 3.709295610854321*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\[Beta]0", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H1", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H2", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H12", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]P1", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]P2", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]P12", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H1P1", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H1P2", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H2P1", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}], ",", RowBox[{ RowBox[{ RowBox[{"\[Beta]H2P2", "/.", "\[Beta]HPmam"}], "/.", "pars"}], "/.", "parsH"}]}], "}"}], ",", RowBox[{"{", RowBox[{"pP", ",", "0", ",", "0.99"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Black", ",", "Red", ",", "Red", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "]"}], ",", "Blue", ",", "Blue", ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"Purple", ",", "Dashed"}], "]"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.706621792323214*^9, 3.7066219222964087`*^9}, { 3.706622147567236*^9, 3.706622282465704*^9}, {3.7069634458125887`*^9, 3.7069634476617317`*^9}, {3.709295286108101*^9, 3.709295351036523*^9}, { 3.70929538865825*^9, 3.7092954220624447`*^9}, {3.709295510279175*^9, 3.709295528691681*^9}, {3.709295587744639*^9, 3.709295591219046*^9}, { 3.709295626601121*^9, 3.709295651837246*^9}, {3.709302673552918*^9, 3.709302685860693*^9}}], Cell[BoxData[ GraphicsBox[{{{}, {}, {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k8lNsfB3AkS5akCFkqEikRbggfsoYWyZKEbkQoa4voxqUS/bQopagu srTYEhEqShtCi3VmnpkRj62npEWpfsdf5/V+zTxzznPOme+y6O+wzQFCAgIC swQFBKbHhoOSPQVlbhbzly/98ucPg4zmAYHgAQP8trP0T/zF4LDChWyLAWsY vHD/S/QngwgLZkRrwBUp4nEzZL4yCHFZMFd1YCdehRRYaY4yoL3K8hUGotBR n7A+oItBvm/cR7mBRNy/YpO7oozBTN6O8/MG0qFjN8N+cCcDt/RE1c21eUjO m5F549EHhEjLlGa3FkNqR01Dvd4HlPtqDy3zqMCWLt2VHYVjsNDLkdMsr0Ze YOQyG+Ux6Ix9W5hbVg+RqiqnU1dHIXemI1dNugF/5q6v2K82Cslq995nlY9x 9nXg/XeFIzD0WCd0R/8pVtjnLT1lOQL/ssHK5bznMJ13TTHs3TCeJEx4Dfo3 Y7Dk11Z+zDCucnTVf/W0Ip7vJ+GwZBgP41LMXBrbEB9wvsatbQgvHhv62gh1 YNZElFzC8SF0DVc4/Nn2Gv5PDGzOYgg5nU6PA0veQCJ/7ZCkwBCO/sms+jjy FvI7FZKXvKQROrM+wsq6Ewpt1xcXX6QRYpeZW57YhQbhFcvnhNOgZ8UdVzvR BS+HjIm9YTT8X/mEnEzrwu2Q2lUte2l4e2oY7MrsQrgLZFL30HAOLmlQLOnC mUy1TZIhNJanPeHG93TBStmRr7GLxujbT2ob9bthPGLnUexNY2+AY9YIuxsX Sjj7FjvRmHl031/o70a7r/f8a440svKutZ0d6sZ8b/dlqsQv+F+FTSe6wTJu yFuwjobm37l7ksV7sCgxZmSBPQ22z5TFEsMelHnteqhvTWODZzHX50QPPsuZ JJevofH+QHdseVoP9B18t1oQx10Qlhc514PDTUJZL0xp3Hjn5Xj7Sg/WFTza 129CQ8RN9M7POz3ImVSNVTGmUe/il3SR3QMfrkdLniENXSfZpR0GvZiobTgl pkuj3F7Z+oVxL5TUpvyLVtAwstH0bTDvRWfvjyxHYjNz0wvl9r1QC3AwSltO Y93Kv0XTt/WCqlQXVdIh+zu3fNA1kTzv0bvSRovGpV6XwrcdvfgnZcN53mIa ql3bHrd09qIZBo2niP97E0A96etF2UaWqzlxYUuMQuVAL5yOJGRnLqJx98F/ yRk/epGvMqvDfSGNttxPQR6L+6DuofyQr0LeL/SMdndEHwTqbErtFWkIPaz0 NzvQh2R3ZeefCjR+ze27ejWuD4ris71LiCfua8rvOt4Hu2rbLgVinkSt0Oes Pvy2/W71SZ5G3c2BXslnfeiQieypmkfj3h+J+eEtfWg2/VkVSVzhqr/5dUcf Wg9fFdclvvEz9lkmqw9DG0zE8+fSuOg0567m5z5EqZTHXJalET2yJs1SlYWB kHtqWTI0wrHjea46C26any18iEPSjwmLarPQOunQsZD47zXth1oMiEds3Qpm 09iUuivQax0Ly6aSmqulaejonLGMjmYBrfPjJyTJ+oMHxgtesMBaffrnQ3Fy vy4Pl5S8YmG/GlN/jri8+UNo1RsW7I4kDQYRJ+h+G2hisxBYsDlIlnjhuGjv +3EW+JlxWsFiNHxjtBvVF7BxQVQ0d7koDbsbK+J1FrKhHtlSLUKs26tvbrCE jZ4tL4y4IjR+m5lWrV3JRue/gdsvEF8RcLq5w5oN4YSVIWLEfcdD06+GsKEi 8jX+lzCNx/fCNxWEs3H+s/oIi/jWULRUyT42jLcm19QTxzodPl5/hI15/5tI TiBWmp0Wy0pnYzTDq1+CWMjyrPH7i2z02ZodZGbQGA7P+DKazcaX0C0Rr4lr Oq6ETRWwUa2ulZ5FvDWjZOeCWjaiDLafNyC2fHpnofojNt7mjm9WItb6XsVa 1sRG8Mn6fYLE37c+9DBtY0OuaXK4TYicp0q709Z+Ngp7f6VHE7/LGze4IMnB qVNmVKsgjW49FBydw8Ge33s31hL31aYqRctzYGZFq90g5r7REHRZyEHq2pL+ Y8Sjwh6tsww50DE89cuGmDmdazVpzIHv2u/7jYjHlT9WDJpzEKtR6KJJ/M3w xOXH9hzs8+9bJk4sFHA/6J9tHOx6nRH6WoDEm0+ifaF+HDDxf31sIhY7vGXj tgAOfIRU3tYQS50fMzIO4+BPfH1DLrHMItMizWgO9P+JeXmRWPb2MWW5GA42 bIw1SiNWeKI2Y/xfDmz2uK44RLzAJXQ/dZyDxTXa98OJVVn3hlpPctDfY3cj kFj9i0vbzQwOVl50u+VOrJlwxfrSZQ7uGdo/2ECsJTVSmXyNgyXXjxjYE+su ScoOuMFBg+ATmBDrl7XJbCnhYGKsvXMVsaG5StLaCg6kipe0Lyf+6/nub3rV HMitfaizlNjErTJYrZ6D30X/DS4iNuMKsaUaOeh9/1xYhdhiz0aXqacc5Hwx TlQgtpq8/Hi4mYP13R/+nkdsc5Re3d3OwfvTI7kyxPZzjG4+fcdBkPJKOyli x+wE1cpeDjpjq9fNInbWbj2TR3GgV5JSLEq88a7SzPT3HByozImeSbzZKvBg wjCZ74xg1gziLS13RsIYDuotCzSEiD22Cvj6THDwsDFdWpDY671zh/MkB7eU nm4VIN4ekWm75jcHSbZWItMu/R3Zd06Qgq2N0Lxpl9koyksKUxiXn5U47fKU BxsTRSik1nm6Tv9eRVvAiR9iFGYbf0ianu+uvGRjhASFQ8dezBcmrvQun6Kl KLwuHJMQIb6X4/mXnwyFuVc9dogR19C/wzplKVjuFlOQIL6ve71ogxyFLaIC etLEtdFO/CfzKbjHWBTNIa6v+aRsrkTW96AxUY74gcBF9wplCordpx4oEj+0 szito0ahrynHW5W4sSNlhpIGBWXV7Bot4vjH9c1NmhSGNk5O6U6fV+X4+Sht CpH17WVG0+vL9NJq0aVQ6fIt0oZ4f2rapxh9ClH7bY44ExscbqjRNKQw0Cn1 ewtxsd+y9fEmFERc5Fyn72PoZh/5FWYUSoJctSOItW3OcrotKMypk4qMJc5b +iPCwIaCpPI3rzPElz48zxjYQOFZeVZKA7En9cs33YWCc2ntxCtiuQ59bcst FNKGPdtZxKfvZt7P3EphjZwI7wfx0bjdlLM/hUBrgx2m5P+5dm920eQuCo2a Rr5OxAJ+7ZH5uylQdndeeRMfsjaZKRBGwdpcQyyBOHyW+LI7MRR6hLrfTccT 3Smzz75xFGSba4P4xCNj4bWSRyjM6lDe8514V3vXhl1JFLTOubSok3i07WJh lOIpCss+/W/kCLFCSp9Z0xkKVtdc51ycjlexMiJR58h5nzxfVEq8yffgxeZM CoOKafp8YjtNh7ojeRQ8pTdfXU/in7BC3LHlBRQccic9dxM/Ei/d2F1EgYlW OXqU2GxsPm9VCYXY1m7DB8SrKgZFBqopbPVaMr6axGeVtcc3Ob+iYPhWtN9i Jpkv54bXy3YK5lnee3yJk4Ra/R3fUJif7e8VTzzaMC/GoZt87pzm20hcY53z nw2f7I+fg/wGkj/cbevGzb5RcPX1MNpP8k/KdWrq/iQFv0bOZBZx3Uxh0TVT FMx2LFj8mFijyXGBiSAXPo63sueSfPbZrsvaSIKLvR2GVlXEpx0+n1uhxkVy NWUyZxbJR4XyV28t4uJsTZaJBfE3MdMiHQ3y/S8S2SHEPs/j67S1uchQED71 lHiFo/TAEgMuCuZtU0uSIPnWSXu1qj0Xz/m5n2ZLkf3b6NstHcaFMvuadyTJ 5xNeMlGNEVxo7VldWErM3/VI8mA0F84fh4MY4oZ/1C25MVy86ihct3cOyc/F g/l3krj4JBafHEHqh99S4dGel7iIMcn6+T9Sb3xvjp+d84SLwpupVaqk3qG7 9Ivcn3Fxpu5hfghxZz9vrcRLLk42ykpUE1dO2eyPbiPruyll4KZEY99ycZZd LxeeYz4C6QtIvkk9c2PkIxc1hmGnNVRpjDnm2Bop85Dzxu7YVXUawUkHTFmq POQLyIdOEtN1ziuPLuIh9sCTBlcNUn/ofVN4q8nDVdsnDeJLyH2Tdx6N1ueh d6eDVKwmiRe8L2cr7HgQLfRujtQm+39oHWUQwcPmjXXjlStJvL/x8dCqJh5S FH2pM+Y0lm6+W3rrGQ8G0dvEBCxI/v8RM6D5koeqipSze4kFHWdsXtDGg+lg QoszaLQOyWkL9/BgK/uaJWVFY7f2ms63YzyExwsE5diQeqTwqEGMHB8z6o4v lnOmIVqgNPrAnw/9Knu9RaR+r/wRWhYWyIfzgbZ1d4h3bXiwXy2Yj/6Et+9s t5P78WWn4JEwPi7t3+IU6kPjX5vb8haH+JhgLblS70djigur2lN8nMiTHzkY MJ2/AzLu1fChM0dvsQ3pN/rOlliWyfTDL2jtTKMkGubKC9tXlfVj8YqGD4tK yfNiWctSN7wH666KnTOX3Of+fwPtJ99Dc5GBXpzKECR8bKn0iwPgfbzwWdp7 CNuaIs1sbAehHOjwnJ8/hNXNsW+SBgYR8jO1wv3zECKMThtlkXmkU+Pyo2yG cft/sw/N1xvCzaVasW65w9iXGPxjMem7fNOqo7YLjQBBej5nDw+j88JPs6Dw EQSWCqZ2LR1B2BaVwxn8EShnFH8ubhqBuKIztdttFK+DmzAUOQpxX99zLztH Ic+qfnpn7hj6VlcaSHuOoar8noJbGXHn1p6R3jF4HVi83sv7A3rj76V2R3zA ie7AOubnB3y3vmGrL8xgfNuqTfd+f8DzFseuZhEGXuwpXrwgGf14A0HiDJbz z4jJijJ4Xvz1QI40g7bR+66GsgxsJu7sXqDIYL6AzPBBLQZvxBJSNXQZXNe8 Jy/kxsA4NuBZuicD6aJ/i154MOCUD3ZbbGOwX2e9WboX6bsn/QKHtzNw0OPt 0PBjUFhq/HUt6adHTSRv24WQPrw1jj+5h4HBej/r1AQGD1I9pv5JZJD1atk7 1yQGmyocW/SPMRDe/CVI+TgD3zeGSu+TGbxzT0m7fZLBOssPS9enMTjkV9H9 6gIDqvSLrHomAz7vn9CLlxiYm//X2H2ZgXPAuj9+2QyGeqw/nr7CQDWYrTGe Q6y2t04gj8Hx0cKqmusMFjZ+2V6dz+Dj3ijHxEIGX/OjD0UWMfD8ZM5yusmg K3hYdvktBo+ixMLnFTMINvNYOkDG/wPBRRo6 "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k0Vd0bB/BrVgkpw4tQMpeICuFRRIZMKaLQgEiZK6IoopRXKSGqHyK8 5iFD2SWpJFNlutO+F9fsFpUG1W/311mfddY6Z+9n7/N891lzOMjZh5dCoSzl oVD+XlvOiAwVVu411Xazn/zzh4vSOziUAI4e/L4W+0rwJxfFyNzOMeWYg//N 0kDRr1wUYsqdUufsAYmV3wSVprnouJPcSgXOEcjut79oN8BF4+6VBTKcMMiL 4bvTXsFFBV7RHyU5FyHS5LKlx2EuEmAfurWKkwaOVwVTOl/Oor1pFxWcH+eD hLXQpr0XZ9BxUfGKnM4ykG8JT4g5NI2qvDQmNF1roLTioGe+0xQy1cmVVK1q AJuuEZckg0mkNbOglFfZDGIng24rwASSvN6bpyjaAotqWcdmTMeRSMM+6qu6 VlAt7DpV6jSG9F2teat1X4Jbyi4HhTgOOlo5Vree/RpOqJvpMf4bRS/iPruP He2At14/q9vmR9A9prbyr6FO+NP2TCrVZgQ9jb5i7PS8GyhvNCNK7g+j9lZ9 LwveXpAYH9PkFRtGA5M1u/54vIPXV/yS1p1no9x+21a/8vewyi6h9x8KGyX8 yXz0ceoDaLTpiNums1CgQHPIdvN+0Lxvu/OALgsdt8zMq7o4APFL3N3WYozG l0YnKl4egOrU9RN0BkZHuzyPX00ZAJf+Mz5ZdIwOuK3T880cAHruOSUpKkZ2 AeUt/5QPgLIe3Jfpw2h9ygtW7NAAxBncbLPuwGj6wydFB91BCOm7VnagAaOT PjbZU4xB2OiFpizSMRJIiNgCI4NwH9Vrm93CKDv/fveNiUHQrf/PxfgmRu3D X/mNPg9CXUi89dYbGKkezjuRtGQItgvO921NwYjhuWiqoj8Eh2s7Yo9cwsje rYzleXkIxrRCxX1OYzR6evBsVQq5n9pcFX0Ko+jb/FKCN4fg11UBg1sRGBX3 uduU3h2Cm/YXp16FYSS4V6j6Z/UQWM2bfDUKxqjZyTs+gzEET1rKs6z9MdK2 lVDr1aPCRGSC4ooDGFVZyZu3G1BB3/Tba2cPjDZbqHq1mFCh4tEXw1vuGBmb GN2usqICtKcGyO/HyHrjYaE0DyqgE1ai+vtIfVdWje25SIXNZXVeSY4YZVGd Hn7opcKvVTmaL3ZipDDg0fq2nwrp530vKRL/770PfkGjwuF7jYVRFhg9fBsp U8ehQtpv3m165hjVov8lpf+ggsO2VfmlZhh153065rqWBjvKDGJfbiPzC7yu MRhCA96oy97/bsKI92ndUePTNBArNcj4qovRr5W0e/eiabBeQqHek/hzk6qU byINroUmV+jqYMRe9ph3PpsGPFc/XmRvwOhJCYcq8ooG+WtGaoI0MKr/s0w6 +C0NMiO+Bo2qY1SzR9f5XS8Nsn+arjxAXPzz7KtMOg16c0Il7NQwyrBdUas6 T4Mxo6PzW1QwCp/almKmQIfO/mAwWINRMBx6nadMhxI7TsxjJYyOp13iF9Kg Q+b89fztxIe39US91aNDTn9ysb0iRo7Jvn7u1nTY921JZthqjLS0rpuFh9Mh NnsjZeIfMv4AzlxhOx0ag5QW4laS/XVnsry8iw6fTBkxGsRVHbOBj97TIfm3 cFePBEZx2gucNgYdeuwfdK8jVpoToo7O0aFV77vje3GMvCI1nivLMUBXTNRy vyhGlsUbYrWUGGAxkhW2nFibqmuip8KA2qKbx1uWY/Tb2OjRjo0MKBfoatQm vkuxLTlkzgAhXq8+cRGMaImBafeOM8BUZJrn5xKMWuuDHQuDGaA1ZtXXRPzf RPjy8ggGRFSJR8QQn7WNSWw+zwBl2YkVfMSyYiln6WkMoG+ofSUtTNbX7IbB aAYDGpLPfGQIYTQZnP5lOocBM4MP2QXEjb13gxYLyfOsHFUNifenlx+Re8wA jm+jpp8gRmYvq5WUnzGgxGr0gT6x+rdHdM02BnTLxEzxEn/b/9TVqJsBG67O f/ifAFnP1T22+0cY4PDop9oEP0Z9+XN6t0WYsEYx8mkOH0aDOlCYsIIJ9EX6 3TPEtMfJsuFSTAi70A0uxKz363iclJiwMsHz9XLiaX7XzqX6TNh7TOHnZV6M uKl5278bMKEp/uNMAPGc/MeaMRMmfNnlmGdHvKB/+U6rFRMmXtXvlSDm9Wk6 ds6DCW8LNgwW8JB+80mIFujNBCrPCXyNWDjGxcHDhwmP+Y2KI4iX35rZbBDE BF7emAQrYvE1RkWq4Uw4sjiXrkssUXpJXjKSCXfufg2QJ5Z5ocg3d4EJSUMF 7p8pGMk5BZ7CiUyA8D2nWMQK9PqJzqtMaK+95tJFrPzFqbsknQneOiVupcSq cXfNs+4wIdA/5VwOsfryqbqk+0ywsfnjm0KsrRKf41PMhES+K+dDiXUru8Vd ypkwTs0r9yHWN1kdv6OGCfIHbHP3E2957b+g08AEtfhYV3tiw711AYrNTOBx Me8yJzZm8TKWP2dC3Zu0JUbEpiccnBZfkvFOhQjqEm//fqd1soMJ2VX0F+rE FgnjWwd7SP3W9FutIbZasbnkZR8TPhh4XpUltsmJU6ijMqFyITRtFbGdRuf1 fMyEw56SB8WIHWplBdJGmTAZuHNiKbHzdr8zcZNMsFTmMxAidnlbPRXEZUJk nL01P7HrfoqX52cmxCSqreYldh+167X7zgTXzSnVFOKDIZk7t/1mgnDyBZG/ rvgdSrvJg+FqEr/6X1da/CMlwo+Bs2GVIA9x1RXkcFEQg9TZyoK/z6vp9rn8 QxiDfDBtiQBxrZTI85BlGOZFbm0UJq47ULU4vhxDnhNVWoS4Ptdti7c4BhXT 8hZx4sbx30H9EhjO94rrSBE3aT8ospfEUCJK8ZYnfhxuO/xCGkPZXLSzMnFz 4yd5E1kMSecShbSIESVjX408Bv0qxfN6xE8tTVO1FDHUXdvZYEz8vPcKn+w6 DIbGRhFOxLGtzR1tqhje3Zv7fvDvetXN3QrTwDAanXfk+N/xZbqrv9XGEJg3 O5pEfCo55VOkLgb2dNLvDGK9mJZGVX0Mb8vlFouIy7w1d8caYliWq1nQSRzo 7Cm1wRjDgZ4CZzaxhsUN5qApBuUouZGvxPlqP0L0LDBIG8zWriX7PWv2dTrH HsN1H0PJBGI3/MsrzQlDpnfkxD1iyV5dDTMXDDIfKnObiFNrM5sy92M4rSnS +oU4Idof2x3F8OaSb0s4+T53nMwp+u6LIXF3QHM6McW7J7TAH0PzNd97DcRR 5oYClCAMl6N2ifOSfhC8dIlmdSSpl0BV6d9+or1oPO8VjUEzI7KnjXhqJvix yHkMkvmGQx+JfXsG7H3jMTiq52VZkX7kkfEw7J9/Mexjy/X/IZa5QjNuu44h zqxwrQ7pX31nxQXDbpL5y2jtOUTs6HUmoyMTQ7ue/JE2YkvVXU/O52Mols83 vUP6H79M9KX1hRiSLecre4mfLalwGCzCwJowWrqM9FPjGWn2pnIMX7Or/c8R b6oZE+Q0YKissRkJIv159Y5ER7suDP7FYq9ilpL35Ra7v+nBEG3QMNRMHM/b edTmPQYdo9c1lGWkH7asitw1iOFMhjy6RNxonvs/i2EMl56mrs8m+bFv55M5 4wUyvuaygGmSP1ce4MWm7xieXkLzhmIkrwX4hbYtkvVo2WKRRLyuzUbOkIcF 6KbbNjWSZ/OWA+abl7FgKN//wskVZP12zd/coMgCsbBnYWtXkTx6KHXvvzUs UIkwDIsmXhA2KtJaxwL6pLRRP7Hn69gnGhos2KArrPCvJEYbbEQ5Knos2K1R ZyosTfLWVmOrghUL0l5aDSvKkvo5eA2KBrHA8PH2hhGS55/dxcOeh7DAfuik 4yGS/8O+z0TOhLPgBv7QwyBuOadsxopkQc4DpzTaWpLPZWMF1fEsYKygrBhe R/J1eXC4WxYLZkMNFuTIeeRbR6xY7gsWuLhKB5mQ8874gG7RvlcsUDobt7uf uH+EvWPZGxbIJqpIheqR73/R4lR4Nxmfq5xvsT5GEeuX0C2pLCgfekJR3Ury Jvl68dRHFoT7M5SsjTGascnduVmeDeZF10TACqOA+NNGdAU27OJZPzBHPP7E bmPCGjbMzV5JKNxFzh86CzIfVNlgknwlYaUN2W9SdtPhumyofpkq+9WO9Av2 lxs1lmxY4diQMepM6h9ljfVC2JB/N2r0hBfp98Ufoza1sWGlXvNT5bMYqTnX Vvz3ig3HxuvEKdEk/39EclTfsOGEv6QKnZjHhs9ZrpsNYZ18dzLPYdQ5IanB P8SG5HUFTXIXMPLX2Nb/YYYNdApPt8Vlch55mKAXKTkMfFFiOzUzMBIqlJ1G R4fh8Ml/vXfUk/r8CKwM8huG27P303zJed7XHp1SDBiGdr6S0uRGsj++HOE5 HzQMujMP0wceY3TBolTKNGoYOE22xjHPMFpkwfbH/w6DqPWGvk/tf/PbJ72+ cRhc13pbJJH/DdqNcrNK8RF40R2/NECYhUzklXo2VY6ApXs83dybhRaFszWT 7UfhyfFtVzNaWOjJyAU/q++jYLfD1/ubERst89yJ0zI40MbaOLa6no082kKN LXaOgX5n6o2Xu4fR1o6z7+M5Y0D/Ku1fyhlGIZtTN2fHj4OU1He7saQRVHpN LEpaZwJsHBy/FluOooiLAT/Wdk/AW/mwsUZ+DoJjOp43Yibh2caFyG7MQX4V PMkDalPQ/NDox/qXY0g+vWy+rG0K+DdlPH1XPI7eBbTBROg0yDY3q98un0BS 9IaX1StnICgo0E++YhI9qqqX2Vs5A2Xl1TX9j6aQ++m1u90PzII+b4h09fA0 ujzo94T7cxaiL7skHxaeRXMemxzrf8/Cs9u3KjKXzyJ3xiI7locLKs2tb3sk ZtH64evCEkJcUDg4w7VYPYu6p5v26EtwYRnH792WTbNImiI+eUadC9dW8kpb H5hFD1TrpXj3kvuf21PVKmeRaNGFonZXLiz4dVXH1M2iU1q7jdPcuSD07Vnn +6ZZtEuHfWidNxcmAkKmE9pm0bShSKnlcS543P/eNk+dRXq7vc2T47jQoVT+ 7ZcgF2V3afbtiedCmdutrCMiXMTv/OWYfCIXzHP89dtXcFHfvisppVe5YBFF c8iS56Io75rBrttceB0+pWK5iYuG2ecCM7K4IBi3I7F6KxfZ+Vj/8c7hAn9J Il5jwkUKAYx1c7lcMDOmRfHs4qLE6YePGh9w4fn9qabQ3Vz08WSYzcWHXHDZ MfF5xJmL3D6Z0G1LyHxY71Xc3LjoWZhw8KoyLqy4U2bfcZCL/g+gNrD+ "]]}, {RGBColor[1, 0, 0], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwV13k0Vd0bB/BrVgkpw4tQMpeICuFRRIZMKaLQgEiZK6IoopRXKSGqHyK8 5iFD2SWpJFNlutO+F9fsFpUG1W/311mfddY6Z+9n7/N891lzOMjZh5dCoSzl oVD+XlvOiAwVVu411Xazn/zzh4vSOziUAI4e/L4W+0rwJxfFyNzOMeWYg//N 0kDRr1wUYsqdUufsAYmV3wSVprnouJPcSgXOEcjut79oN8BF4+6VBTKcMMiL 4bvTXsFFBV7RHyU5FyHS5LKlx2EuEmAfurWKkwaOVwVTOl/Oor1pFxWcH+eD hLXQpr0XZ9BxUfGKnM4ykG8JT4g5NI2qvDQmNF1roLTioGe+0xQy1cmVVK1q AJuuEZckg0mkNbOglFfZDGIng24rwASSvN6bpyjaAotqWcdmTMeRSMM+6qu6 VlAt7DpV6jSG9F2teat1X4Jbyi4HhTgOOlo5Vree/RpOqJvpMf4bRS/iPruP He2At14/q9vmR9A9prbyr6FO+NP2TCrVZgQ9jb5i7PS8GyhvNCNK7g+j9lZ9 LwveXpAYH9PkFRtGA5M1u/54vIPXV/yS1p1no9x+21a/8vewyi6h9x8KGyX8 yXz0ceoDaLTpiNums1CgQHPIdvN+0Lxvu/OALgsdt8zMq7o4APFL3N3WYozG l0YnKl4egOrU9RN0BkZHuzyPX00ZAJf+Mz5ZdIwOuK3T880cAHruOSUpKkZ2 AeUt/5QPgLIe3Jfpw2h9ygtW7NAAxBncbLPuwGj6wydFB91BCOm7VnagAaOT PjbZU4xB2OiFpizSMRJIiNgCI4NwH9Vrm93CKDv/fveNiUHQrf/PxfgmRu3D X/mNPg9CXUi89dYbGKkezjuRtGQItgvO921NwYjhuWiqoj8Eh2s7Yo9cwsje rYzleXkIxrRCxX1OYzR6evBsVQq5n9pcFX0Ko+jb/FKCN4fg11UBg1sRGBX3 uduU3h2Cm/YXp16FYSS4V6j6Z/UQWM2bfDUKxqjZyTs+gzEET1rKs6z9MdK2 lVDr1aPCRGSC4ooDGFVZyZu3G1BB3/Tba2cPjDZbqHq1mFCh4tEXw1vuGBmb GN2usqICtKcGyO/HyHrjYaE0DyqgE1ai+vtIfVdWje25SIXNZXVeSY4YZVGd Hn7opcKvVTmaL3ZipDDg0fq2nwrp530vKRL/770PfkGjwuF7jYVRFhg9fBsp U8ehQtpv3m165hjVov8lpf+ggsO2VfmlZhh153065rqWBjvKDGJfbiPzC7yu MRhCA96oy97/bsKI92ndUePTNBArNcj4qovRr5W0e/eiabBeQqHek/hzk6qU byINroUmV+jqYMRe9ph3PpsGPFc/XmRvwOhJCYcq8ooG+WtGaoI0MKr/s0w6 +C0NMiO+Bo2qY1SzR9f5XS8Nsn+arjxAXPzz7KtMOg16c0Il7NQwyrBdUas6 T4Mxo6PzW1QwCp/almKmQIfO/mAwWINRMBx6nadMhxI7TsxjJYyOp13iF9Kg Q+b89fztxIe39US91aNDTn9ysb0iRo7Jvn7u1nTY921JZthqjLS0rpuFh9Mh NnsjZeIfMv4AzlxhOx0ag5QW4laS/XVnsry8iw6fTBkxGsRVHbOBj97TIfm3 cFePBEZx2gucNgYdeuwfdK8jVpoToo7O0aFV77vje3GMvCI1nivLMUBXTNRy vyhGlsUbYrWUGGAxkhW2nFibqmuip8KA2qKbx1uWY/Tb2OjRjo0MKBfoatQm vkuxLTlkzgAhXq8+cRGMaImBafeOM8BUZJrn5xKMWuuDHQuDGaA1ZtXXRPzf RPjy8ggGRFSJR8QQn7WNSWw+zwBl2YkVfMSyYiln6WkMoG+ofSUtTNbX7IbB aAYDGpLPfGQIYTQZnP5lOocBM4MP2QXEjb13gxYLyfOsHFUNifenlx+Re8wA jm+jpp8gRmYvq5WUnzGgxGr0gT6x+rdHdM02BnTLxEzxEn/b/9TVqJsBG67O f/ifAFnP1T22+0cY4PDop9oEP0Z9+XN6t0WYsEYx8mkOH0aDOlCYsIIJ9EX6 3TPEtMfJsuFSTAi70A0uxKz363iclJiwMsHz9XLiaX7XzqX6TNh7TOHnZV6M uKl5278bMKEp/uNMAPGc/MeaMRMmfNnlmGdHvKB/+U6rFRMmXtXvlSDm9Wk6 ds6DCW8LNgwW8JB+80mIFujNBCrPCXyNWDjGxcHDhwmP+Y2KI4iX35rZbBDE BF7emAQrYvE1RkWq4Uw4sjiXrkssUXpJXjKSCXfufg2QJ5Z5ocg3d4EJSUMF 7p8pGMk5BZ7CiUyA8D2nWMQK9PqJzqtMaK+95tJFrPzFqbsknQneOiVupcSq cXfNs+4wIdA/5VwOsfryqbqk+0ywsfnjm0KsrRKf41PMhES+K+dDiXUru8Vd ypkwTs0r9yHWN1kdv6OGCfIHbHP3E2957b+g08AEtfhYV3tiw711AYrNTOBx Me8yJzZm8TKWP2dC3Zu0JUbEpiccnBZfkvFOhQjqEm//fqd1soMJ2VX0F+rE FgnjWwd7SP3W9FutIbZasbnkZR8TPhh4XpUltsmJU6ijMqFyITRtFbGdRuf1 fMyEw56SB8WIHWplBdJGmTAZuHNiKbHzdr8zcZNMsFTmMxAidnlbPRXEZUJk nL01P7HrfoqX52cmxCSqreYldh+167X7zgTXzSnVFOKDIZk7t/1mgnDyBZG/ rvgdSrvJg+FqEr/6X1da/CMlwo+Bs2GVIA9x1RXkcFEQg9TZyoK/z6vp9rn8 QxiDfDBtiQBxrZTI85BlGOZFbm0UJq47ULU4vhxDnhNVWoS4Ptdti7c4BhXT 8hZx4sbx30H9EhjO94rrSBE3aT8ospfEUCJK8ZYnfhxuO/xCGkPZXLSzMnFz 4yd5E1kMSecShbSIESVjX408Bv0qxfN6xE8tTVO1FDHUXdvZYEz8vPcKn+w6 DIbGRhFOxLGtzR1tqhje3Zv7fvDvetXN3QrTwDAanXfk+N/xZbqrv9XGEJg3 O5pEfCo55VOkLgb2dNLvDGK9mJZGVX0Mb8vlFouIy7w1d8caYliWq1nQSRzo 7Cm1wRjDgZ4CZzaxhsUN5qApBuUouZGvxPlqP0L0LDBIG8zWriX7PWv2dTrH HsN1H0PJBGI3/MsrzQlDpnfkxD1iyV5dDTMXDDIfKnObiFNrM5sy92M4rSnS +oU4Idof2x3F8OaSb0s4+T53nMwp+u6LIXF3QHM6McW7J7TAH0PzNd97DcRR 5oYClCAMl6N2ifOSfhC8dIlmdSSpl0BV6d9+or1oPO8VjUEzI7KnjXhqJvix yHkMkvmGQx+JfXsG7H3jMTiq52VZkX7kkfEw7J9/Mexjy/X/IZa5QjNuu44h zqxwrQ7pX31nxQXDbpL5y2jtOUTs6HUmoyMTQ7ue/JE2YkvVXU/O52Mols83 vUP6H79M9KX1hRiSLecre4mfLalwGCzCwJowWrqM9FPjGWn2pnIMX7Or/c8R b6oZE+Q0YKissRkJIv159Y5ER7suDP7FYq9ilpL35Ra7v+nBEG3QMNRMHM/b edTmPQYdo9c1lGWkH7asitw1iOFMhjy6RNxonvs/i2EMl56mrs8m+bFv55M5 4wUyvuaygGmSP1ce4MWm7xieXkLzhmIkrwX4hbYtkvVo2WKRRLyuzUbOkIcF 6KbbNjWSZ/OWA+abl7FgKN//wskVZP12zd/coMgCsbBnYWtXkTx6KHXvvzUs UIkwDIsmXhA2KtJaxwL6pLRRP7Hn69gnGhos2KArrPCvJEYbbEQ5Knos2K1R ZyosTfLWVmOrghUL0l5aDSvKkvo5eA2KBrHA8PH2hhGS55/dxcOeh7DAfuik 4yGS/8O+z0TOhLPgBv7QwyBuOadsxopkQc4DpzTaWpLPZWMF1fEsYKygrBhe R/J1eXC4WxYLZkMNFuTIeeRbR6xY7gsWuLhKB5mQ8874gG7RvlcsUDobt7uf uH+EvWPZGxbIJqpIheqR73/R4lR4Nxmfq5xvsT5GEeuX0C2pLCgfekJR3Ury Jvl68dRHFoT7M5SsjTGascnduVmeDeZF10TACqOA+NNGdAU27OJZPzBHPP7E bmPCGjbMzV5JKNxFzh86CzIfVNlgknwlYaUN2W9SdtPhumyofpkq+9WO9Av2 lxs1lmxY4diQMepM6h9ljfVC2JB/N2r0hBfp98Ufoza1sWGlXvNT5bMYqTnX Vvz3ig3HxuvEKdEk/39EclTfsOGEv6QKnZjHhs9ZrpsNYZ18dzLPYdQ5IanB P8SG5HUFTXIXMPLX2Nb/YYYNdApPt8Vlch55mKAXKTkMfFFiOzUzMBIqlJ1G R4fh8Ml/vXfUk/r8CKwM8huG27P303zJed7XHp1SDBiGdr6S0uRGsj++HOE5 HzQMujMP0wceY3TBolTKNGoYOE22xjHPMFpkwfbH/w6DqPWGvk/tf/PbJ72+ cRhc13pbJJH/DdqNcrNK8RF40R2/NECYhUzklXo2VY6ApXs83dybhRaFszWT 7UfhyfFtVzNaWOjJyAU/q++jYLfD1/ubERst89yJ0zI40MbaOLa6no082kKN LXaOgX5n6o2Xu4fR1o6z7+M5Y0D/Ku1fyhlGIZtTN2fHj4OU1He7saQRVHpN LEpaZwJsHBy/FluOooiLAT/Wdk/AW/mwsUZ+DoJjOp43Yibh2caFyG7MQX4V PMkDalPQ/NDox/qXY0g+vWy+rG0K+DdlPH1XPI7eBbTBROg0yDY3q98un0BS 9IaX1StnICgo0E++YhI9qqqX2Vs5A2Xl1TX9j6aQ++m1u90PzII+b4h09fA0 ujzo94T7cxaiL7skHxaeRXMemxzrf8/Cs9u3KjKXzyJ3xiI7locLKs2tb3sk ZtH64evCEkJcUDg4w7VYPYu6p5v26EtwYRnH792WTbNImiI+eUadC9dW8kpb H5hFD1TrpXj3kvuf21PVKmeRaNGFonZXLiz4dVXH1M2iU1q7jdPcuSD07Vnn +6ZZtEuHfWidNxcmAkKmE9pm0bShSKnlcS543P/eNk+dRXq7vc2T47jQoVT+ 7ZcgF2V3afbtiedCmdutrCMiXMTv/OWYfCIXzHP89dtXcFHfvisppVe5YBFF c8iS56Io75rBrttceB0+pWK5iYuG2ecCM7K4IBi3I7F6KxfZ+Vj/8c7hAn9J Il5jwkUKAYx1c7lcMDOmRfHs4qLE6YePGh9w4fn9qabQ3Vz08WSYzcWHXHDZ MfF5xJmL3D6Z0G1LyHxY71Xc3LjoWZhw8KoyLqy4U2bfcZCL/g+gNrD+ "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], AbsoluteThickness[1.6], Opacity[ 1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwVVnk41I33HULKklcvSYhEWbKEQswhWyFFWUK2LFnKWlIUUUKLpZQihbJV thKKlCX1tWcZhpnPjOzMFErKWz+/v+4/97n33HOe+5wj4xFo48VJIpHWcpBI /1/fn+UfzC+zJTuVZvb8/ctGeusYyW9MA382caQI/GAjSuxOFnnMCH3bnQYk ZtgIJrOnt48dxlb5rwIGFDb8rTetlxo7jt0lWTwZpWxMOJY9ERsLhclvnl23 3dl44hr5VWQsFgvnhK9XNrLAzXS//e9YGjLEBCSybs7CNi1WyuZNHuRSBT2L eKbhLyhUmtX+HHviJtf+fj+BcleFSUX7F3B2f/1mX+4YyGo5IvLl1Uh78LFQ KPgLlGYXpXPL6iA9RFPRv8CESEp37mbB9/h+ULNrMIoAf7UdtaWyEfcyydSX psPQtN/PWaH+Acd0tuhHcA3Cs2y8Upn5EU8fkdrOVvShKWbBcdyzFaoXZzvE Oz4jm64i+99gOxY3rXYyUOxCfWSinnVDJ0gOdoVO3G341KjpaszZjesGsP/n bAsoUy/2/XX6DCM7PaOtSw3I6bdo9CnpwWM3xVvtpHpc/pvx6ut0L+I9+FeV eVYjgLsu2NCoH6mcNUcaRSrgb5qRWx5LQaKaIZ8F11NMrI2M35xAwRnRVLla ajE8O1z8r92gwGxKvMSyohjODls1vDMouOLUs67RoxiWfiXvN5ZQEOo5tvrf hiIo32hiRA9SsFoovls7oRAzvd82H1QfgGR7TddtpXyc8jLPnKYNYGF0Ojyr JQfcl0/vwpcB8C9s6OcuyEFm3sPO1MkBqPLcuZ0Yn4NPIz+4dBcGkLrrhtqk aQ7kPXJPXl0ziL4PbrRfzY9Ac1kmy2kOwvxp+sag1oewcnjOcEkYBGUpUcJ4 IAuj4QPny28M4r5YXolydhYi73CJ8twaRCiOc1h5ZaGoz9H82YNBuD/+TOjO ZYLHdnXF74pB7OyOvFkrmIk6a7e4u7RBlJd8Lfa2uQcVC+Ft3RpUbDnnwjDj uoNyMwmjT9pU5F5bd6G8Jx1axvKu7/WpaJ0+GWX1OB16+rp3ys2omLu5M0/c LB37VT1WpzlRURtITVl1/TY815ePH46lQuJ68eyGLbdwj2pd0NtNxXaY5JsH p0CK4tTY1k9F0mh2BsMsBY96vIimISrSKfmsQqkUFLRFiFWOURGT97a+vTUZ L98+upr+i4qez4LcvkrJ6Mz9dsJ+yxCuSdtL1I9cB09AisJA8BBmSbXGpWYJ 4Kyv9NQLH8KZeDsJy99X8d/6oezsyCHYiKxZ51xyFQuv5UW944fQYlptQhG7 CibfG875zCGMkEx/Gn67gtriMSp/yxAmuoRCBl/Foeov34agtiG8bdX9/Sok Di8Oq9t87h5Ce3tU9hqVOBT9Pt+SMTyErgkrnTVPYnHX4p+X8vMreEIlyyPu X0LY9J4bBlLDGB/zr9qcGY0guH/MlR3GvK38PNklGv5pV7hWKwzDqnVpX7d0 NDz2dJ1r0xhGQlZ/UpHVRRxK8vZx3D+MJtufazJCo6CklGIQFjaMnouZqqTJ CDD9xubyPw2DWR0ovRgTik/3p0pKOobhPk+mRSmEoryVFfCqZxjhiX94O7pC EKOyONZMG8b5LqvHnVtDID23mjo6t7LvvcbSoZ4guEYoNMhuomHaXUriWnkA TIt2RCtJ0zAf36I1Lh4AFaq6voYcDXy+hxX64/zxR0/31V5VGlqc+R6cPuaH BySLYncjGsLWctU9lTmBofiAtGx/GhoviFFW/TiOxqqgQ/lBNNyzb7/5NPw4 nk6GCZScpuHBtKfM1C8PnLeIiq+7SIOliWa3LI8HxNfdOD+cRkNdnZNfiqob OA1StUfv0rCeqcJ8d94VU0Hp32eyaOCt9clNvO+Cmu4Hgcv5NKztkzTM+OKM o+klxze9oeH+rfuTRZlHYfChQlr2HQ1mT6Vu3+l2wPafr4YVm2nYpnt84Rmf A34erbfX7aSBo1qt3T7eDncluyyOfqFBzGiYlZ13GH15cxp3+OmQFV5qWcWy xIAa8i//Q8fIjzH2j0YLDL1JEg8TpUMrbn3cn0fmYPRs5bCWpuPj3e0L5qf2 YYbLvn2tJh3XC/bOUw4ag52ca7ikTQe9Sy4u0N4IcxJfX4zr09GQa3ZJ3Gsv FjUT7jea0RFsaNb8LNUAnF6vT1xwomOyOWAw9aQuuL+tHgpwo6MsR7KTh6YN 3qgjB5286MjqsHiY67gbArdntbQD6VCRlO60P6sJIRndQvkwOuL1m1UDN2pA +NkVCZEIOvaXTPqWNKtDrGnzqrlLdHjwWVOPJKlgk3XAGSKeDp3e+FOfVJQh NVw12X6NDkfD6sqUKQXIfrfuLE6nY5TE7y1SLAf5mAdG9+7TQRze0dZVIovt AtOVVx/ScXn//kl6qwxU5OKyvIroaNFiRjOzJaBe1il0pIQOHtbSjwn/jdDU l4zb+4KOgSme/tQTotj10XdRrZqOduU1MsTt9dCxrfTbXEdHfTmpt3NeCHoM TppAAx03fg2OfuQSAPnkQevlD3Tkbcz+rh3LC8Ol+41TrXSw6w8MsDy4YHx5 YvdAFx3Hv40lT+eSYPaPVvGHPjo47Xq1Xa79IptnxUhVUum4SS1bDElbIFsq tKfkEfSV/25+o1jDIh98Kc6dNrpyr17PQGL3KNnG0OdszBQd2v4brvMTQ+Qj bRXTgeyVeQWD3LpyXWT7oyRXlwU6mu2+7NGbrCc7jlp2Wy7RcaKeXdQc/IR8 LDjDZM8fOu785Vknyu1LLv0TMnSLg4BG/gFTY844cpnxRlF+LgKjNgG0ve6l 5PLEtwdjeQgk8ZZSkrSayC86vRJ+8RJwNvCtD97WQ34pyt8QzEfggdv4RkVX glzpXL48IUBAxMQ4t1J1glyV47DLTYhAb4EcueT9V3LNxJ/AfmEC7wwvdAup /SC/VnlcaCVCIG+qWJDktkx+E2Yx0rSBQJONfQS5kAN1Nd8k9MUJDOsavW2I 5cZb0l27FxIEzhdtHLj5dg3qTcnJSpsJiOcONuc4C6KhO3GV+FYCHWKCN62O /YvoxrrWZnkCWjUL+ZEXNoBcOXc7VIGAmJAOfYIijqoMx+1tKgQu+Z7sqZWQ wZmkG98i1An4yGRKdm2WhUbU+xp5TQKK5UunYyGH526KB6J1CLi4Gx5p6lFA gI2L6A49AmMXlQaPmCtDwTiVPkAmIB1uHBg7pIK8bb+CNYwJvIqIGXFR2ol7 rI/pY1YEKOuOph+21oYD8Z9rmjWB2str0u/80YFIt7qCwRECXT7Wkko1e5D8 MuN1xlECwqH57w2cgcuRvoSlJwEr612a658YYe+prMIlb2LF7wJs5l8ag+TW FfLEl0D3yEnN360mOGekw00KXNHvYI/RJaF9CFq7RrEigkDVix3JJ2ctobKs N+8aSWCf3bvWpF1WmJ4NesN/kUDjM+m2risH4d1FsfKOI6Bj8Oian5Q1nO4W hG68uaLv0YRA57+HIZY4pNecQmDPKs6sxPoj6DsvxBN6iwDtqttTy8u2OOR6 9m5rBgFluY6gaxvtYSq/r/Zi3gq+vJDkXwGO4BKLvKKcT2Biu3jbB3MnvFtT enCgkAA9Pn96u7Iz9GY3MHeWrPDTH9r+ZOkYdr4Y5xmrJvDTxfd2C90Nknvj D1l2rPR3Hdmc/NsTh3KKHP/XRWDdz6CQl1FeiONs9zTvIVDpEpbqy+GNmff/ RuwbINA6o6ZzQcAHNUY5j4xHCBTzxcgc1faFnUntnN4iAapt1LFeykkkPiaW Xy8R8I8WuDgeegq13Fyr9ywT+DsVd/KqUCC2Nptv0uFgIL3+lsOebUGYN6UY afExEErJ8710KhjJ++Zv7djMwH7B0HehW8LQWCCa/VSGgXy50zqhkWFY5NUt VNrKAOfw1Abd/jC4fIyuVVBgwEBZnVfq5mnsMBcck9NgINhSoZLMG45PFgq7 pcwYmEz9YDay+Ry4DroOCAYy4CNBe+gcEo0FR6HQhmAGnsmf3F1QGo0R73f8 Z8MYeGX2deoEOxrvL8gaMCIYCGrvLth/KgYxz8efVMQxoMHijb4afAl/BILC HO4xcPWMTubv63H42Rq9LqeJgdai4qRXUgmYoKgX2rUwcDS5tv6JfwL6vzD3 8v2PsZLfGoT5qhNQuWx8JqyTgS8fiwU0bBNxWnnNsCmVgdd2sy6ktCTMJaUU TX9lYGe1ZmDy1huYNc8x0ZJggn3IT7ahIwV+ceG6w1JM3LEm8VUup2Ci1lL1 sgwTe9+89mAopIKptijWK8+EWUeOByMuFX2iljNh6kxkzqjnXdFPQx3ze+oL UyaCuY6oeFffQvK5/YRGMBPTBfkuEdQ70Cz6em5nMxO3G6+pfm15gG02L0uf tjDhJV6zg4uUDfFfEWPy/2OC38nRZP/ubHCYr7LZ1MnE98z5eu8n2WifFFHg GmTCM6UxLNzoIXwV9vT3zjIRuEmadG/7IzwouKwRITICZQP2o33cuVidLz7z 1nMEzq2z/1jy5qPyV0BZoM8IFrslw7qV8+Ft9fbMZr8RnI5we3naOh+N349z XAwcQcdjyV7h+/m4ZPxMlHxuBDcjwxPyVQuwzIDhm5sjKJIpbNJ1KVzxb6/0 qpoREOZc13i7ijGUWmJQJvQFx/gPFDy8Ugp9CemunWVfYJtnQtHnqsQyb6Zi ktUoqK8rG64qvEHtl0s+ZkujOCG8c1VD/zvwuZgQaXfHoCh4UYdd3wSn5hA9 Y5NxpAVfuaV36hN2t57viRsbx5/Kt/v8tToQrJWslRk3gf0OXzSyZLvx7Pq6 cxvUJiGsbzhQLN6L07F+v7Z0TsI0tDVrWpgCnFBzSY2agvzboXHDldzuU8qR RNk2jdc5UxMVEnRIpD+ff948jf+Oq8Xk2zLw2a8ZkyEzMIiMslZxHYHocPWH ivWzyKBR2rXdRvGqvErMtmwWDq4+viWB43AM33LA0ZmFES6miveHSSQM+NSy f7MQ+m+haJPQDOacdh6q+sNCu5KSu8amGTjSlpnRHGy0RSTcz5WbgfJICq/w ajZaqwfpCboz6Jx5fVhTmI1nHzuenPScwQaS0NTZ7WwsbudSSa2awWP5KlFO WzZqR2/LHPSYhWDhpcJP9mxIdz/w+R0wizNKB/TSHNnY9j02qzB8FvvUmO5b 3djYRWdS+K7PYkaH/5mpPxvaRvPXx1/NQuOAm1FSDBsN5i7ffguwkNmh2Hc4 jo2iR4paH8RY4LL5fkIing0t1c8nbsmy0GeXeOPZNTYOsKqyNXVYOOf2YqDj Dhsuy30W1zxXeGBeCLh7j4143suCPoEsWHrt/+uWxcZRi3XvjM6xIOVH2zqX w8ZCWNV3zmQW4mcKXtU8ZqPOqT989B4LX0+FmscWsKEe0T358TELDt/0hy2K 2TBrK7QoLWXhXShv0L/P2VjrcCzr7msW/g/mhSzz "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBwAGIQfaiC59byjaF2DGDwYP+y+JoPos+a7f/+B4H7+1kf JU4VeTbZnhEqHzq5WS5ozxL7f1D5bD6BDXPPrbP/D+Vvitd8qRW+BS5vZ7BI VG3TTnuY+dpvvyss3rgPzhedeGmxPN8huPk8O8Nun9h2BG6eSbgn02bD43D1 KRufb9N5dNKeCco/2vgl6nnKGbj++ff1lP/eOgdXf6Cmyybw8AU4/9QRk3gX pktw/o1XWzz+R1+G8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vw+3Ldpu5 eFPzDbh781K95ry+dxPO1/MWUr9kfBuuny1noubNwjtw+UdZzz4tP3UXLn9t ySfj6Tz34fKHL3UxS6k8gMvLOrUH+Jx/AJdn8Y+/yZf/EM5/67XI1VTmEVy9 yaoPVUbHEHz25VJv9qc8hsfPnUnrHTYKPIHHt62MwkWjjU/g6v9wzNHq9nsK N3/vk6Z0959P4fLcca4PJs94BudHHyuycXF9Dg8fT8/yjidTn8Pjy/xM9ZWW Z8/t/0DNu8LA1jrB9IX9byi/0HSC6ZyWF3D1/Q/PX4+89cL+G1R+bS9/lbjB S3sWqPxEDlsr2YaX9j+g8qXNWb+ULry0/wnl3yr1XXNL7ZU9K1S9fYZB3KTa V/bfofLBPDNLtl56Bbc/fQNj9w311/acUPVOyhH7nctfw9XLTFv3ed2x13D7 Kxp2SZ6ReWPPB+Vfzjpm/7LoDdx/X5QPNPsdfmPPD5UXu7vz+Gbht/YiUP4z d8uClqS39rJQ/vZNOyRCN761Z4byOaa+3XSd7Z39Xah5UeVKvlEx7+z3QflF Gq6sqmve2SdC1XfeTN/7/vc7e2Oo/FK1HWJMoe/t50DlDxZzFIise2+/7R1E HgCmYAuf "]]}, {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBwAGIQfaiC59byjaF2DGDwYP+y+JoPos+a7f/+B4H7+1kf JU4VeTbZnhEqHzq5WS5ozxL7f1D5bD6BDXPPrbP/D+Vvitd8qRW+BS5vZ7BI VG3TTnuY+dpvvyss3rgPzhedeGmxPN8huPk8O8Nun9h2BG6eSbgn02bD43D1 KRufb9N5dNKeCco/2vgl6nnKGbj++ff1lP/eOgdXf6Cmyybw8AU4/9QRk3gX pktw/o1XWzz+R1+G8xdd9z6Svv4KnN/6f+b2D6+vwvk5rPsKHZ2vw+3Ldpu5 eFPzDbh781K95ry+dxPO1/MWUr9kfBuuny1noubNwjtw+UdZzz4tP3UXLn9t ySfj6Tz34fKHL3UxS6k8gMvLOrUH+Jx/AJdn8Y+/yZf/EM5/67XI1VTmEVy9 yaoPVUbHEHz25VJv9qc8hsfPnUnrHTYKPIHHt62MwkWjjU/g6v9wzNHq9nsK N3/vk6Z0959P4fLcca4PJs94BudHHyuycXF9Dg8fT8/yjidTn8Pjy/xM9ZWW Z8/t/0DNu8LA1jrB9IX9byi/0HSC6ZyWF3D1/Q/PX4+89cL+G1R+bS9/lbjB S3sWqPxEDlsr2YaX9j+g8qXNWb+ULry0/wnl3yr1XXNL7ZU9K1S9fYZB3KTa V/bfofLBPDNLtl56Bbc/fQNj9w311/acUPVOyhH7nctfw9XLTFv3ed2x13D7 Kxp2SZ6ReWPPB+Vfzjpm/7LoDdx/X5QPNPsdfmPPD5UXu7vz+Gbht/YiUP4z d8uClqS39rJQ/vZNOyRCN761Z4byOaa+3XSd7Z39Xah5UeVKvlEx7+z3QflF Gq6sqmve2SdC1XfeTN/7/vc7e2Oo/FK1HWJMoe/t50DlDxZzFIise2+/7R1E HgCmYAuf "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxFkg0slHEcx8956SrDhGJEroiaeV2r4V9ekvfSRJiLMYXlJcakTd1ZoZbX ol21eckq4Y68tLzkPRk6dO68v9059yZZErpS/36e7dmzzz7f//f3/J//cyg0 xiecSCAQ3P/c28+2ZGVuOcPXnvD3WkYvKKnLmjwq2pJtX1KkOBtSoMHLQ3LY +9OsrwVVPQP2zaMe9HlfimQ4Pz3oyk/qfAk+SkWt+ml/JfqFPZNiIjD1qwW2 Ny/WNGI2ov/zj4nXDEoYzdA34mj8JLmmFfo0c1gl+iptwGpl+SghtB3WKzde Guup64D1BqRBid1qJ+St/VyJNRbdkPegFY5LM3ogH8bg1x2f/YiI2OdrS0iZ 5E+wvvP2agA/rA/4+ZQZeYvbD32tqZm2F9oHgXs7rClORBbw6FLtOVngEHAx 270jomoYOF1WVL8sHIH+aMXmuDOObGBR2es9KXNsOJ+os0UlTOoovL9o5Ku+ twUH+q6Hu9GFkxzwZu7qxiyrMfBK0TkmnLhx8LORvJXy3gnwX0pXrB4rT4Fv Z2XK6xyeBq/ncPe8x8A0eAVvCkclZgZY7FbsbKM7C3nrV8spll07vKtcR9QS Ngf/w3hu1WmG2jzs7z6bT1q5Mg95O12Dz5aMHaarT25NynZ4k0Q3zfJagPlN 83ciXNYXwO8Ndp7OK+QBB3bF2zo58+H7urom3Zsv4MP5n+i7OUzj8dEm7hsm KKVn2yyiDcxxNtk2dNoi5B/ODLAvcxfRd+zfPFBN2W8uQArY55DsTumlCdAP 7BOpkT8NBwVoHTM30bOCa7SEFHEeXTUPzr21hNawv6hclPCWtQTzI6rlskaN hWg3zjuQ/Vsck4SQ131U+a2ySwjzk9PeaffpipAK5qHILiSIF8H+VsmtVK92 EVLFXmuisbtmnxhpYOa5nIylhYqRHuZ6ZsMBX4YYyWMmFYiZbCUJmsB9AUmG ngFBEtSMOf6os+KRCgkKwfkMTkSTdEOCrLAvM2rQIvpKER37DzdIsRqVUlQn +ed/A/tjPhA= "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxF0HlI0wEUB/BpmkJjiTe2zEy8keWUCHRWHnmtPJjGDDdLmUzRplRiGukM SSvSUWpMgnkXTjfFo9JKbZaI2jR13k37eWzmWkVUlhXUew8eXz7/PPi+g+cy Y1IMSSQS88/+zb4c8kyDjMUg/Zt7wwSJT9AD/jvftqKaQQSCBYwtjSsRC06L 3mdhT5wHr7Fl9bZENriek6ezIoRgY3XSXUtCBGaJhPYxT2vxHsWstXpECpZz 3Nbd49vBDJrEylneDfbY/OpQI+sFW5Upaw5Q+sDk7rjZVx0DYJ/4MMO2w4Pg ZNlqh6f6NfhlwWf2avIw+MGi16GfMyPg53klftH9Y+ChAR9OkKESPL3RHrqT MA6WTEUM8FomwNd3qjp1mrfgdONewfHAKewfUlUjF06DM1LCxZoFFdgrwtxF SZ8F704vc1MJ5sBqPqFvGJoHT9bq6RXkRXC/smSXndMSeP+J4qjIUbTRaY6K kvkOvBkuCfalqvF/D3W53gq0SYOd9lnyMniuvOWYzGwF7E91eOMtQ2+bit1L T70H96wU8k5+Q+9JDF4SVRLgBEWWX1DwKvjI8JWJIgIt8L3jKy5aAzff2ptr Q1sHXxTyvzuOoQNSaYnl+RtgXqtB6bSLBky9J/0kVaDH+YqA9Swt2Hq+e7DN YhPcKe+yZcnQ7MuOTPbZD+AbKl7P1g+0PsE7qusXmr2wrb5msAX2XC4zNTdB j2mfxPqYo21IZhs5rug65y5rQxaa0lTYNBSPvuTB9BOx0aE0dZITF609Sm4O SUPTmdzA0gK0eNR9MrYIbRTzJZVajJ6MK7ndfBOdy21XjVagl9VX0yvvoyNT wna41Wh7/oKTXoIu1jZ2Pq5D6zKyw4WN6DMf/ecjHqFfZJtesJSifwP9XDks "]]}, {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxFkg0slHEcx8956SrDhGJEroiaeV2r4V9ekvfSRJiLMYXlJcakTd1ZoZbX ol21eckq4Y68tLzkPRk6dO68v9059yZZErpS/36e7dmzzz7f//f3/J//cyg0 xiecSCAQ3P/c28+2ZGVuOcPXnvD3WkYvKKnLmjwq2pJtX1KkOBtSoMHLQ3LY +9OsrwVVPQP2zaMe9HlfimQ4Pz3oyk/qfAk+SkWt+ml/JfqFPZNiIjD1qwW2 Ny/WNGI2ov/zj4nXDEoYzdA34mj8JLmmFfo0c1gl+iptwGpl+SghtB3WKzde Guup64D1BqRBid1qJ+St/VyJNRbdkPegFY5LM3ogH8bg1x2f/YiI2OdrS0iZ 5E+wvvP2agA/rA/4+ZQZeYvbD32tqZm2F9oHgXs7rClORBbw6FLtOVngEHAx 270jomoYOF1WVL8sHIH+aMXmuDOObGBR2es9KXNsOJ+os0UlTOoovL9o5Ku+ twUH+q6Hu9GFkxzwZu7qxiyrMfBK0TkmnLhx8LORvJXy3gnwX0pXrB4rT4Fv Z2XK6xyeBq/ncPe8x8A0eAVvCkclZgZY7FbsbKM7C3nrV8spll07vKtcR9QS Ngf/w3hu1WmG2jzs7z6bT1q5Mg95O12Dz5aMHaarT25NynZ4k0Q3zfJagPlN 83ciXNYXwO8Ndp7OK+QBB3bF2zo58+H7urom3Zsv4MP5n+i7OUzj8dEm7hsm KKVn2yyiDcxxNtk2dNoi5B/ODLAvcxfRd+zfPFBN2W8uQArY55DsTumlCdAP 7BOpkT8NBwVoHTM30bOCa7SEFHEeXTUPzr21hNawv6hclPCWtQTzI6rlskaN hWg3zjuQ/Vsck4SQ131U+a2ySwjzk9PeaffpipAK5qHILiSIF8H+VsmtVK92 EVLFXmuisbtmnxhpYOa5nIylhYqRHuZ6ZsMBX4YYyWMmFYiZbCUJmsB9AUmG ngFBEtSMOf6os+KRCgkKwfkMTkSTdEOCrLAvM2rQIvpKER37DzdIsRqVUlQn +ed/A/tjPhA= "]]}}, {}, {}}, 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->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "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, 0.99}, {-0.9999999595918376, 1.0000000000000346`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706621825241982*^9, 3.706621837727253*^9}, { 3.706621874194006*^9, 3.706621922741033*^9}, 3.706622229129335*^9, { 3.70662227208261*^9, 3.706622283153955*^9}, 3.70696365179469*^9, 3.709295351743487*^9, {3.709295406122242*^9, 3.7092954237187557`*^9}, 3.7092955340887814`*^9, 3.7092956544094973`*^9, 3.7093026988521833`*^9, 3.7177601332119904`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Variance explained: Simulating ", Cell[BoxData[ FormBox[ SuperscriptBox["R", "2"], TraditionalForm]]], " across pathogen allele frequencies" }], "Chapter", CellChangeTimes->{{3.708791663947763*^9, 3.7087916991045637`*^9}}], Cell["\<\ We begin by constructing a function that simulates a sample of interacting \ hosts and pathogens given an arbitrary susceptibility function. We then use \ this function to simulate samples for each susceptibility function, fit the \ data with the host only or the two-species model, and calculate the variation \ explained.\ \>", "Text", CellChangeTimes->{{3.7089632205745897`*^9, 3.708963332549714*^9}}], Cell[CellGroupData[{ Cell["Simulating a sample", "Subchapter", CellChangeTimes->{{3.708963209778501*^9, 3.708963217501671*^9}}], Cell["\<\ For a host a pathogen populations with a particular genetic composition (as \ specified by the vectors of haplotype frequencies hH and hP) we can simulate \ a sample of size n. Given a particular infection model PinfX the following \ function generates such a sample where column 1: 1 if host is infected 0 if \ not infected, column 2: allele present at first host locus (XH1), column 3: \ allele present at second host locus (XH2), column 4: allele present at first \ parasite locus (XP1), and column 5: allele present at second parasite locus \ (XP2).\ \>", "Text", CellChangeTimes->{{3.708962647358062*^9, 3.708962859847198*^9}, { 3.708962938028556*^9, 3.708963026229945*^9}, 3.7092944402932796`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"pars2", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "2"}], ",", " ", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5"}], ",", RowBox[{"bH2", "\[Rule]", "0.2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.5"}], ",", RowBox[{"bP2", "\[Rule]", "0.35"}], ",", RowBox[{"eH", "\[Rule]", "0.0"}], ",", RowBox[{"eP", "\[Rule]", "0.0"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.708962436781644*^9, 3.708962484800558*^9}, { 3.70896251546064*^9, 3.708962521859193*^9}, {3.7089631597258873`*^9, 3.7089631669570637`*^9}, {3.708965689452486*^9, 3.708965691012558*^9}, { 3.709296632967692*^9, 3.7092966585405197`*^9}, {3.709296688600161*^9, 3.70929669126658*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"sim", "[", RowBox[{"hH_", ",", "hP_", ",", "n_", ",", "PinfX_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"rand", ",", "rand2", ",", "s", ",", "out", ",", "pinf"}], "}"}], ",", RowBox[{ RowBox[{"out", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"s", "=", "1"}], ",", RowBox[{"s", "\[LessEqual]", "n"}], ",", RowBox[{"s", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"rand", "=", RowBox[{"RandomReal", "[", "]"}]}], ";", RowBox[{"rand2", "=", RowBox[{"RandomReal", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Host", " ", "and", " ", "Pathogen", " ", "Genotypes"}], "*)"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand", "<", RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"(*", RowBox[{"host", " ", "is", " ", "00"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "00"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "01"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "10"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "11"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand", "<", RowBox[{ RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hH", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], " ", ",", RowBox[{"(*", RowBox[{"host", " ", "is", " ", "01"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "00"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "01"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "10"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "11"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand", "<", RowBox[{ RowBox[{"hH", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hH", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"hH", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"host", " ", "is", " ", "10"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "00"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "01"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "10"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "11"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"host", " ", "is", " ", "11"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "00"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "01"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"rand2", "<", RowBox[{ RowBox[{"hP", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"hP", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "10"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"path", " ", "is", " ", "11"}], "*)"}], RowBox[{"AppendTo", "[", RowBox[{"out", ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Host", " ", "infection", " ", "Status"}], "*)"}], "\[IndentingNewLine]", RowBox[{"rand", "=", RowBox[{"RandomReal", "[", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pinf", "=", RowBox[{ RowBox[{ RowBox[{"PinfX", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"out", "[", RowBox[{"[", RowBox[{"s", ",", "1"}], "]"}], "]"}], ",", RowBox[{"out", "[", RowBox[{"[", RowBox[{"s", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"out", "[", RowBox[{"[", RowBox[{"s", ",", "3"}], "]"}], "]"}], ",", RowBox[{"out", "[", RowBox[{"[", RowBox[{"s", ",", "4"}], "]"}], "]"}]}], "}"}]}], "]"}], "/.", "pars2"}], "//", "N"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{ RowBox[{"out", "[", RowBox[{"[", "s", "]"}], "]"}], ",", "pinf"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "out"}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.706880427529161*^9, 3.706880489091117*^9}, { 3.7068805471929703`*^9, 3.706880730247594*^9}, {3.706880811940364*^9, 3.70688130512917*^9}, {3.706881365930585*^9, 3.7068813667612267`*^9}, { 3.7089628676717863`*^9, 3.708962890644497*^9}, 3.708963045648048*^9, { 3.708963100583989*^9, 3.708963144108502*^9}, {3.709296447315493*^9, 3.709296529841798*^9}, {3.7092965781085873`*^9, 3.709296585173854*^9}, { 3.7092974834839697`*^9, 3.709297484131583*^9}, {3.709297765445278*^9, 3.709297765763373*^9}, {3.7092987067006207`*^9, 3.709298711142507*^9}}], Cell[TextData[{ "Next we construct a function that simulates the data and then fits the data \ with linear models ranging from a model with only additive host effects \ through the complete 2 species Co-GWAS. This function outputs a vector of ", Cell[BoxData[ FormBox[ SuperscriptBox["R", "2"], TraditionalForm]]], " values for each linear model. The variable x is an arbitrary variable \ which can be used to used to easily plot the variance explained as quantity \ \[OpenCurlyDoubleQuote]x\[CloseCurlyDoubleQuote] changes. In particular we \ will use \[OpenCurlyDoubleQuote]x\[CloseCurlyDoubleQuote]=pathogen allele \ frequency (x=hP[[3]]+hP[[4]]), and \[OpenCurlyDoubleQuote]x\ \[CloseCurlyDoubleQuote]=time (x=t)." }], "Text", CellChangeTimes->{{3.708963448727017*^9, 3.7089634968948317`*^9}, { 3.7089635460438023`*^9, 3.708963572023843*^9}, {3.708963606324541*^9, 3.708963652401557*^9}, {3.708963841421232*^9, 3.708963931882543*^9}, 3.709295871489547*^9}], Cell[BoxData[ RowBox[{ RowBox[{"SimR2", "[", RowBox[{"hH_", ",", "hP_", ",", "n_", ",", "PinfX_", ",", "x_"}], "]"}], ":=", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{ "simDat", ",", "simDat2", ",", "out", ",", "lm1", ",", "lm2", ",", "lm3", ",", "lm4", ",", "lm5", ",", "pP"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"simDat", "=", RowBox[{"sim", "[", RowBox[{"hH", ",", "hP", ",", "n", ",", "PinfX"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Fitting", " ", "additive", " ", "effects", " ", "only"}], "*)"}], "\[IndentingNewLine]", RowBox[{"lm1", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2"}], "}"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Fitting", " ", "additive", " ", "and", " ", "epistatic", " ", "effects"}], "*)"}], "\[IndentingNewLine]", RowBox[{"lm2", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2", ",", "xh12"}], "}"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2", ",", "xh12"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Fitting", " ", "host"}], "-", "additive"}], ",", " ", RowBox[{"host", "-", "epistatic"}], ",", " ", RowBox[{ RowBox[{"and", " ", "parasite"}], "-", RowBox[{"additive", " ", "effects"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"lm3", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"3", ";;", "4"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2"}], "}"}], ",", RowBox[{"{", RowBox[{"xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Fitting", " ", "host"}], "-", "additive"}], ",", " ", RowBox[{"host", "-", "epistatic"}], ",", " ", RowBox[{"parasite", "-", "additive"}], ",", " ", RowBox[{ RowBox[{"and", " ", "parasite"}], "-", RowBox[{"epistatic", " ", "effects"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"lm4", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"3", ";;", "4"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ "xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2", ",", "xp12"}], "}"}], ",", RowBox[{"{", RowBox[{ "xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2", ",", "xp12"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Fitting", " ", "host"}], "-", "additive"}], ",", " ", RowBox[{"host", "-", "epistatic"}], ",", " ", RowBox[{"parasite", "-", "additive"}], ",", " ", RowBox[{ RowBox[{"and", " ", "parasite"}], "-", RowBox[{"epistatic", " ", "effects"}]}], ",", " ", RowBox[{"GxG", " ", "interactions"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"lm5", "=", RowBox[{"LinearModelFit", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"Join", "[", RowBox[{ RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"1", ";;", "2"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Transpose", "[", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", RowBox[{"3", ";;", "4"}]}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], "*", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"simDat", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ "xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2", ",", "xp12", ",", "xh1p1", ",", "xh1p2", ",", "xh2p1", ",", "xh2p2"}], "}"}], ",", RowBox[{"{", RowBox[{ "xh1", ",", "xh2", ",", "xh12", ",", "xp1", ",", "xp2", ",", "xp12", ",", "xh1p1", ",", "xh1p2", ",", "xh2p1", ",", "xh2p2"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", RowBox[{"lm1", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"lm2", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"lm3", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"lm4", "[", "\"\\"", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"lm5", "[", "\"\\"", "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7089635786971188`*^9, 3.708963598740878*^9}, { 3.708963655561705*^9, 3.708963837712411*^9}, {3.7089639802415257`*^9, 3.708964108854521*^9}, {3.708964149494298*^9, 3.708964217826747*^9}, { 3.7089643386393337`*^9, 3.7089646108500023`*^9}, 3.709296221871746*^9, { 3.709296706345173*^9, 3.709296717618105*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Fitting different interaction Models", "Subchapter", CellChangeTimes->{{3.708964863147653*^9, 3.70896488942353*^9}}], Cell[CellGroupData[{ Cell["Phenotypic-Difference Model", "Section", CellChangeTimes->{{3.708963343289239*^9, 3.708963354484091*^9}}], Cell["\<\ For host haplotype frequencies {0.25,0.25,0.25,0.25} and a sample size of \ 5000 the parameters given in pars we can simulate model fits as pathogen \ allele frequency pP1=pP2=pP.\ \>", "Text", CellChangeTimes->{{3.708964932381001*^9, 3.708965051950156*^9}, { 3.708965083118479*^9, 3.708965084774477*^9}, {3.708965203801753*^9, 3.708965228712872*^9}}], Cell[CellGroupData[{ Cell[BoxData["pars"], "Input", CellChangeTimes->{{3.708965005954096*^9, 3.708965006729492*^9}, 3.7089650810646553`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.8`"}], ",", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5`"}], ",", RowBox[{"bH2", "\[Rule]", "0.2`"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.35`"}], ",", RowBox[{"bP2", "\[Rule]", "0.5`"}], ",", RowBox[{"eH", "\[Rule]", "0.`"}], ",", RowBox[{"eP", "\[Rule]", "0.`"}], ",", RowBox[{"pP1", "\[Rule]", "pP"}], ",", RowBox[{"pP2", "\[Rule]", "pP"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7089650070353518`*^9, 3.7089650874270477`*^9, {3.708965371977804*^9, 3.7089653966022243`*^9}, 3.70896572618952*^9, 3.709298760170035*^9, { 3.717760149204344*^9, 3.7177601770575657`*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"VarExp", "[", "pP_", "]"}], ":=", RowBox[{"SimR2", "[", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "0.25", ",", "0.25", ",", "0.25"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "2"], "+", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", "pP", ")"}], "2"], "+", "LDP"}], "/.", "pars"}]}], "}"}], ",", "5000", ",", "PdiffX", ",", "pP"}], "]"}]}]], "Input", CellChangeTimes->{{3.708963951144795*^9, 3.708963959287409*^9}, { 3.708964131920004*^9, 3.708964137582734*^9}, {3.7089642374101973`*^9, 3.7089642397650433`*^9}, 3.7089643868534317`*^9, {3.708965064226684*^9, 3.708965238711177*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"VarExp", "[", "in", "]"}], ",", RowBox[{"{", RowBox[{"in", ",", "0.01", ",", "0.99", ",", "0.02"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.708965187527913*^9, 3.708965357859296*^9}, { 3.7089655540268803`*^9, 3.7089655979194603`*^9}, {3.708965730545463*^9, 3.708965742809538*^9}, {3.709299078126217*^9, 3.709299083580072*^9}}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"6\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"7\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 109,6,18904668761259254355,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.717760222090954*^9}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"10\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"11\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 109,7,18904668761259254355,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.717760222201329*^9}] }, Open ]], Cell["Plotting the variance explained by the host-only model", "Text", CellChangeTimes->{{3.708965426211585*^9, 3.708965441735289*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJyF03tMU1cYAPA6FlRgdTwcM4yXmRECMkYHIo59Q0XqY3GgwhYNamulm2TI Bg6BKjBKhxsMRQWNaQZ1CeiAwWJ5FYQizPEKYFml7ydQy0MEjIlI1nt3m3P+ 25c0N8137znfOd/382elJXDeoNFoXNuPeOZ41MfpswshLpcZ2XF5Dlp8+Nb4 FiF0FPBvvLpqhVs3iaiFYsdgX6XYArak7Y1GOFiiGIofmwInuehctFMzFIc8 r3TqnoTA479IlwMksDKi3f8sygx3bFm5qAvkownVsQITfMQgogc071bxhOuM 0LMcYPuiF6SOriXffG+ABLKARxC9kvepZEEPhmyiwH6AON2OvD16SCeWOzcE 3hJm7cAhHdDIGIFQWZlbzK86YOqJD0ahIjjkdkCiDsqkxAZjYIh8a5E1qgay XPljOOE9KDrK0oAvcVyfcegP1I34sTWQcoaIf2DCizk+4KkG4nY86uXQ2BDB b/ZTwwui3OUn8JfzzeA/u1XwCXkBChBsFYHffRWQy/GV4Hpll7vDayUMDRKh gtRjacMvbPmN5IIaeHl+zfJPeiWQ13VcC7yvh0fvFyqp8+vAaNnWOX9WSe2n A3F/3d+sK0qqH3qICv/wIj3Tvr8BOq+9+vFlsArI4+sNYK14byJaYq/HCMY/ qo+ZBCqqPybYEHaR9UWbmqrPBAt3T+fICtTU/ZrBqYx3JCpLTdU7CRX06Q3l Ag20kvMxCbV0hpXno6Xqn4KDq+O86o/t/ZiG3qqTj1f9dVT/p4E9e/5Ejcne Hwuw1xax0/P1MEPOkwVCEz6rzdpkoPr1FD7IT635tsYA5LgwrACJa1U9DUaq f1YYzz7g4rnXBP/N7ww8517qtribqX7OQo/gZ4Ps8CQ1X7PwpXtRVUvlFNXf OahjbCkQDVio+Z2HzP7wyrY5K9XveQjKo+mck+bA7qNc0Ro7gvloLozd41aO fOz057xpxXwkNbF8szAf0jNdt9dIkY+g7bMpwp3IR4xFvLe0GPmQ9fGYh9cj H0HZObf4F5CPHb/DplHMxyFwzfaIRT4WG/MDvD9HPjZmfvV2BuZj4KxVewrz ca80d+k05mOXQ2g9C/Oxm8GpE3KRD+H6lCSON/KRMRSVlrcZ+Wjicb2apMjH ka2ZjvmtyMfga/lYJ+bD1Ss0vbIN+aiIeadLhfmo1DokPyxCPi4l73vwIBX5 OMleGIu4inwML33XZMR89L7votgXhnxEXmfpHTqQD+ejzxjLmA8ed2JVJkE+ UpOMIXLMR/vuxYh4zIfbNsUUvRT5WJfo+YMA82GuaAjXYj7oaYXJ2zcjH/f6 TjUumZGPmDvMkirMx/UbGeIuzEdxrpfHb5gPly0PhY8wHwntfSIm5sMgai55 ivm4Kwwz4z4uiFcOPMF8zBQ0r+oxH92BlxfaMR/5HBMrCPNBo8Ket///v/y/ MUw9Ag== "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 103, 104, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 101, 102, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 0.954445015128686}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.709299000292557*^9, 3.7092991285069857`*^9, 3.717760149315008*^9, 3.717760222381686*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"LightBlue", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt12tQlFUYB/AlHFQgjIuRQ9ycHGFAIghEjJ5Q0TVtDFSo0UFdRCiZkBJD ZBWIS1iQSgo6zk6wNgMaEDRyB7kIGbcBhFbYBfYKrMtVwHFGpNjlffacZabP feF82fnPed9znvc85/dh7TmRAaGvsVisVXoslvr3gkXhHklsEuyJY3vVXJ6A cptklX85D2oSk2+8vKaCWzfVIx/SDJxthaVKWJxcfKIY9qf3t/t3j4ChgH/G x7AM0lyeZRvWD4Pj0Z8a5hyqYb5z6OMpbwXcWZwV8OtA0BWQ65cqh/fd1aMR Bt/K4fLWyKBxzmHxjSZoMDBN/+pbKQRoCngEPvPxH1VPS0Aaqy6wBWCPeFv8 LglEqZc70w7W1ez81gNiYGlGJ7j2XDHz/UUMbIn6hS7Icna57RAohisN6g26 Qer1+gynawA05QoewzHrNv5hziDYqj/XphdaHMWddiGDEHZKPf6GPit2b6vl AKhPx6JQAMVFnslldgPwXF3u3BP40+im8x/1IvhQcwD9kLqZD3b3RaBZLlkI pld3mOu/EkJ7m3qIIOJIZMfzxfn1mgUH4cU5vbkfJELQHNfRIeB+2dF1P0nI fL8YZMottZOnhcx+YihtKfiLc1XI9EMC3h7vXTSJxv2lUPvzy+9fOItA8/kS Kaiy3u7zqcZ6ZCD7PfeIPFXE9EcO69wucj6rHGDqk8P03ZMXehIHmPNVgOEV 7iHvmAGm3mHIMhldl5k6CBWa+zEM+SbuKq7NEFP/COxf6OXmfoD9GIWmnOOP F+zFTP9HIWT83LE8OfZHCSGrU0KiEiQwprlPSnAN+CQ/ZoOU6ddTeDchIu/r PClorou7CiBwtaixSMb0TwW9sfuMLXfLYen+jsGz8Ev1SnMF089xaEz9Udpz cJi5X+PwuXlKTnn2CNPfCShw35TIb1Uy93cSols8sisnVEy/J8EpniU2CpoA 9JHZX+HXSfkoS/LbZZZJfGy3D12lonwElXBsYygfDafqbus1EB9OW8fDeNuJ D19l6e6MNOKjp5nLPriW+HCKvXAr+Tzxse032NBF+TgAprEWfsTHTHGCg/Wn xMf66C/eOEv5aD2tGjpB+biXETd7kvKxQ9+1kEP52OkeWsALJz54a8OCQq2J j7Pt3pHxG4mPEm64VUkD8XFoc7RBQgXx0fZK0F1L+TC1co3KriQ+snzfrBNR PrKH9IMfphAfl4L3PngQQXwcD5nu9rxGfHTMflMio3w0vWPcv9eN+PC6zpHo 1xAfRoen3OcoH9zwvoWeauIjIkjmIqB8VO2c8fSnfJht6R8xySA+1gRafpdK +VBkFXkMUT5MIpOCt24kPu41nyieVRAfvnfY6TmUj+s3zpbWUT7S4qwsfqV8 GG96yHtE+QioauazKR9Sfln6U8rHXZ6bgvZxvnR+3xPKx1hi2YKE8lHveHm6 ivKRECrnOFE+lr5rSusDM/rAjD4wow/M6AMz+sCMPjCjj380Y1LrA+fRB2b0 gc+jD5xHH5jRB2b0ge+jD5xHH5jRB2b0gRl94HroAzP6wOfRB2b0gRl96O4n XtYPybL9pdqMPjCjD93+yLUZfeier2JZvcPajD506x/R5qXf0WX9H13WH6U2 ow/dfj3VZvSh2z+S0Qdm9IEZfej2d0LbH/Sh2+/JZeuv+NA9vxUfuvWu+MC8 4mPFx4qP//LBYunOk//v/9f8v3bOw34= "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 259, 260, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 257, 258, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 255, 256, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{151, 253, 254, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{201, 251, 252, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, 212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.011111111111111112`], Thickness[ Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150}]}, {RGBColor[0.87, 0.94, 1], PointSize[0.011111111111111112`], Thickness[ Large], Dashing[{Small, Small}], LineBox[{151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[0.5, 0, 0.5], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[{201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.709299000292557*^9, 3.7092990699989767`*^9, 3.7092991286505613`*^9, 3.717760149387142*^9, 3.7177602224744463`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-Matching Model", "Section", CellChangeTimes->{{3.708963343289239*^9, 3.708963354484091*^9}, { 3.709297438597395*^9, 3.709297439691382*^9}}], Cell["\<\ For host haplotype frequencies {0.25,0.25,0.25,0.25} and a sample size of \ 5000 the parameters given in pars we can simulate model fits as pathogen \ allele frequency pP1=pP2=pP.\ \>", "Text", CellChangeTimes->{{3.708964932381001*^9, 3.708965051950156*^9}, { 3.708965083118479*^9, 3.708965084774477*^9}, {3.708965203801753*^9, 3.708965228712872*^9}}], Cell[CellGroupData[{ Cell[BoxData["pars"], "Input", CellChangeTimes->{{3.708965005954096*^9, 3.708965006729492*^9}, 3.7089650810646553`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.8`"}], ",", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5`"}], ",", RowBox[{"bH2", "\[Rule]", "0.2`"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.35`"}], ",", RowBox[{"bP2", "\[Rule]", "0.5`"}], ",", RowBox[{"eH", "\[Rule]", "0.`"}], ",", RowBox[{"eP", "\[Rule]", "0.`"}], ",", RowBox[{"pP1", "\[Rule]", "pP"}], ",", RowBox[{"pP2", "\[Rule]", "pP"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7089650070353518`*^9, 3.7089650874270477`*^9, {3.708965371977804*^9, 3.7089653966022243`*^9}, 3.70896572618952*^9, 3.717760149442052*^9, 3.717760222554079*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"VarExp", "[", "pP_", "]"}], ":=", RowBox[{"SimR2", "[", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "0.25", ",", "0.25", ",", "0.25"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "2"], "+", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", "pP", ")"}], "2"], "+", "LDP"}], "/.", "pars"}]}], "}"}], ",", "5000", ",", "PmatchX", ",", "pP"}], "]"}]}]], "Input", CellChangeTimes->{{3.708963951144795*^9, 3.708963959287409*^9}, { 3.708964131920004*^9, 3.708964137582734*^9}, {3.7089642374101973`*^9, 3.7089642397650433`*^9}, 3.7089643868534317`*^9, {3.708965064226684*^9, 3.708965238711177*^9}, {3.7092967435132236`*^9, 3.709296745023715*^9}, { 3.7092974184934893`*^9, 3.709297424355814*^9}, 3.709297731581538*^9, 3.709297888829795*^9, 3.709297944682845*^9, {3.7092980566491737`*^9, 3.70929805843165*^9}, {3.7092991835303926`*^9, 3.709299184258081*^9}, 3.7092992527307663`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"VarExp", "[", "in", "]"}], ",", RowBox[{"{", RowBox[{"in", ",", "0.01", ",", "0.99", ",", "0.02"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.708965187527913*^9, 3.708965357859296*^9}, { 3.7089655540268803`*^9, 3.7089655979194603`*^9}, {3.708965730545463*^9, 3.708965742809538*^9}, {3.709297448396503*^9, 3.709297449500021*^9}, { 3.70929778233386*^9, 3.7092977867161083`*^9}, {3.7092978754629793`*^9, 3.709297886433784*^9}}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"6\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"7\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 114,8,18904668761259254355,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.717760223509946*^9}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"10\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"11\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 114,9,18904668761259254355,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.71776022352011*^9}] }, Open ]], Cell["Plotting the variance explained by the host-only model", "Text", CellChangeTimes->{{3.708965426211585*^9, 3.708965441735289*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709298248979945*^9, 3.7092982507705593`*^9}, {3.7092993085559263`*^9, 3.709299313842669*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJyF03lM03cUAPDCpBMy0s1xZILI7A5ADllROYZv6kCc0TkmCMIEJpcLDtxc QI4NFCgwoQyNcgQNAx0M6QajKQyUQtdJC0XGVY6GXlAKvRCELUsGa7sf79+9 pGl++f5+3+/7vvc+r3+aGppgTiKRkg0/43+WDfOYLDMfitO/YV3t10CHU4H6 o467UG4esP3GV0tQXWWMJlDkrR7+YGMBDIuGN1ohpv3FYn2SEqxE9WmBVmwg lx3uzlpQgGs0o2/NpRuqzq91Tcul0GBYFdVz4K8Ilve3HlLwoRmDC5V6njC/ ahq4ay6GL3hAdZ2O9NsvglBTAv1AOuzsW50xBvJMY4ICOEs+o97Z9BQuG7dL E8LmqbsjdbOG90wxDCcu2HvtseZBiMz4wR9whPekmvJmD5T3GQ8YgXQKuUEc zwJTuqJRoHYNyu6fboHdxus6jYPukyyasrgBkhKNMQFfpoyK1fTvwFgdG6YI BgY8ZUFmhbBuTHdtEur6Y6ZP5ibDIVMBpiH3ndzAShmAabuCGdB1Pi/wPp0I wkFjiMGO7Fu571Ee2Jo2nIVL5s2lLlfLwVSuaAnEpWZQ3Lh1xP2lUPhe6Qo/ oIU4Two/kTQ2jbfbiH7IIPBixC5KHZs4Xw6kU+8nB8CvYLq+TA62yoq0e7e5 RD4K2PZFvx+fyyf6MweQtvl5UK2AyG8OMn/3oQY3CIn6zoO15+rbd8qGiXyV 4J8qcy/OG4VO03wo4dWLQ9m0t8aI/BdAsj7fnSGZIPqhAoeSmkHejimi/yoI j/DawbAXE/1ZhK7YtjitRgwa0zwtwsRKKK0gUkr0awlWVekPxS/IwTQuNDW0 W16IkIcriP6pgV5DPvDj6Bz8N78aKDSr/cedPU/0UwslHDU5KWaBmC8thF3S PLOpUBH91YF3j0NVa+ciMb96sHR5qbvNQUP0Ww+td1peWdjUwpYPm6hbyx6r OvThvi+1N6dRgz6WoxKOWR9cQh/tkeaZ35ep0IezXZ0K7JToQ3BDTra4okAf TreCzAa/lqOPnOXI5VK6BH0Uqc57XvaYQR8d+QX9gY5T6OPDOMsiHWMMfYy/ e5Od/XwYfbB5Q2xO0RD6yNgthl17+OijOUTgc62Giz72akv5qSm96GMpXurx mdVj9EH5oeKelMpGH8lRsYms+lb0sSFSrI1I29DHgyalxSPqz+jjXE2vf61r K/p4raTr3NDmL+jD50TUmcmPWeiDkUf1j7dgo4/recLmsqMc9MF4mM30esxB HwLOzkaKoA99rJKO9+9/+Tf0kaByCjz0bAB9xKSRew+mDKMPN77+gHn8MPoo pLN6jxrqtOVj41r+Ju2NUfRxnWnPuB8+gT78JC3jk30T6MPW37HMMnYKfUT3 6Y4cl82gj45arzDewCz6mPeWKaOcJejjyU26oihBhj5CBiNWGHsV6IMuzHKP yZxDH96isOA53Tz6oJAe9PRwlOijNvYk07dYhT5GtlFzspmL6GPoSud6FWcJ fcyejdz+d7AWffxJsXB76qhHHyQitta3nv9v/V/NZC05 "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 103, 104, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 101, 102, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.7092977559405107`*^9, { 3.709297882893982*^9, 3.709297898859074*^9}, 3.7092979797164593`*^9, 3.709298251387702*^9, 3.709298754152445*^9, 3.709299173099079*^9, 3.7092992174724693`*^9, 3.709299303972693*^9, 3.709299419542973*^9, 3.709302174354067*^9, 3.717760149545957*^9, 3.717760270632848*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}, {3.709299231083899*^9, 3.709299236209456*^9}, {3.70929932637269*^9, 3.709299328684326*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzF12lQk0kaB/DASFRqFRXU9RwVRxGRQ1DwgGfA8RgVRxnlEBUR8CpYM+oo ArqgnA6HIl6w6qIoMAoOKAMMKOFSbiFAAuHISRIgBx6oO5SwJJN+UqRqP29/ Sf2r8779dD/9q1QWHjrh4qdLoVDG6VAoys9go+zNvKBwiDn7z7xzVVIomB/R v6vgLlzRXTch9uc+SL6tHJkgCHvvuHVYDKOTo9/IAa/n42MUR0Sgz3pAs9fP B2q8Y3GwWADL9iWUDZoUw+0Dg0VsPhfSRmdZD+jw2T3P6pcVXLCxVo5yuKWo rA+/zYbyQZPRJyrBeBnbY80qFrioCqgCiuMCu+TAFuAHKQusATfq7v7ZmW/g J+XraPUwsuMuI7V79Huq0QjbfGZaLJpUCVt4ygeawKnydbLBNyVwpUy5AAPO GlDTOn3zQFUuqxmMi+p4D3dmwdfK7c5vBfn+YGtRTBocOawcTDjl39zZH3UV lKdjlM2C2lpz3kadSPioLHewDVKrvNjOoUfBQXUAbAhdGWp/iwegel1EB8gL P0RY7TwM9XXK0QkzqHa3LF+EwXTVC7shQPdxnMm5K6A6rn0c8D4RaGBanqre Pxciv417V70uS70eF55SpEYZN3LV/eCB/TH3eQap+er1+UDZ8d3RdfAHqLbP 48N0USLt3o1ydT0CGHeyak11ebW6P0IA2sg/Nt6pUdcnhKBXNsab0urV59sD k8zfL70Z36iuVwRrT/DMYsKaoVB1P0RgeKwhxHpJi7p+MXA+9hQHcpjqfkhg zuWUuspp7er+S8DV3WJawsxOdX96oehgrrdM2glS1X3qBeY7F+sID666X33w XnL2SedXfFBdF+t+eD7Rx53vKlD3rx+iUqirf20Wwl/3VwqROne+mOX3qPsp g8v0fuoRL7H6fslgT4D0rVGiRN1fOViVzLmdU9irvr8KmGjyt+LcOVJ1vxWQ czNrqnhEBsSHkWfSwIr3cvRhZnmi9HyGFH0MePptnmTbhz6ee+gG3Y+XoI8F M1IlMEOEPmpi+VS90wL0MT9po07dBT76OD/gMRAXxUEf0ZID5j+t6EAfBeER VfZz29HHD94To+UJLeijdf21/JAPjegjv7Ihnx7dgD4Cv+6EeYuq0cfjLTU2 F1PK0cdyWVz1Cf9S9NHny11xXP8l+jBIT7zHNc5HH0c9Dx7Oe5CDPoZZgkEG Nxd9PMoU6b0w/g197E0pXXtnWQ76mHW5aG/DyDP0YbPNc3fbj3noIyHMeK2v Xj76uBRW/zh+Ax19JDwJybZ4SUcfNfTZGQY1ZejjPeX7qlVTKtCHn2S+vcPb WvThRaOW2vo3og/TasVqXd9G9BEZlVe6YfSciI/hi+Ej1oub0cel7JkJD12Z 6GMNJ6u1rYyJPqavnRs/8WA7+thXJnf6nteBPgruWOyprO1GHz1WPJHnAg76 eH0tShDtx0MfW+rc3yUsF6CPqPpgM68gIfqwYu3ZJJT3oA8DyqOSEroIfdw5 6JxtFyNBH4xxxudDsnvRR8Ppwo+36X3oo9vNY8Kfm2To45OBnumbuQr0Ybfq 8tx5hgr0sePR7KX+5jL0Udt0tMRhUj/6iEw6Zln7cy/6aGL5ZraAGH1sHee/ pN9HiD62Z/T4ffggQB+23JUV1j5c9FH0d+Myt1Vd6GMO9WHl3Qo2+oh/OitO uJeJPiakXmtguzWhj9C0qZ/jrN+gj38tbpxif07jI9pLbGo0pPHxruzJ9J31 Gh/CZayCL+c1PvYuHw66P6Tx8ct1X4/s6lz0UTFyNM7u19/Rh9OspGy/hbno I/irp4Z/vs5DH+Gn5PmtAcXoYx2752KkIx19HGt09qDdL0UfL7684gzUv0If W5nj9Uq5r9EH9fSrWO69OvRRsugPsy0rG9DHJ9bi9bNG90l8VDCcQvPiWOjj Gz59JdO7DX3E1LfmDXe1o49PAZDo69KBPg79UBjykMJBH3mxV22q07vRB/We fudlcx76mHFIVvaolo8+LF29IidPEaKPXTB5X9wLIfqQe5uxL9BEmt8Ps/SF hW1i9DHFgP3W+rgEfay+zsp6ye9FHytvSR2qHvShj5MXYvMH+f3ow/XUbEF7 rBR9pIzcnJm8W4Y+Fg/ZVQ8kydHHJD3/4UX3/7cP2/pQR8Z+jY9sBnXo5T6N j7LGu8edLfvQh+5euzU3qjQ+htz1+uNbe9CHYVaXW2CSEH2Iwza0LZ4mQB/z 0oe6Mxhc9CGSrmJ1WHDQhz5/+b9jTDvQh7v7hGmbHdnowxkO7OB3t6GP2i3b FIwUJvpwodEsTL40ow/P8S0/smc1o4+Nzpn79XsZ6ON6S7NV+dYm9HGFs31r k00T+tiwPdl1oiUDfaQYfWe41LkRfWREVidXLmpCH4ZXo8tl9Gb0oRM8YFqu 24I+PHImO0R/bkEftg36FY9TWOhjfFnnM086E304vCqe4bimHX007Ja7bw5v Rx9z+PNjA+K70cfJS48LOvo46OOK+6UlgTQu+nChCv4zVcZFHyHXu046HeKh jy4dt/VvfuOjj0wTzvIDSXz0YdHCuUXlC9DHa4cm+a5eIfpIP2NecW2qCH3w 9NZzaV4i9DF1R0zi5zox+vAe8UptT5egj3UVg7+fiehFHy/fpl9NPteHPsoo OrVFB/vRh/hZDNPWSIo+7vvwrud0aHwkdvJCKBc1Pq76BJ07dE/jg3ema1lA msbHX/saQB8kEx8kEx8kEx8jqqFAH2Se+CCZ+CCZ+CAZ/3+oM/FBMvFBMvFB MvFBMvFBMvFBMvFBMvFBMvFBMvFBMvFB9k98kHnig2Tig2TigzxPfIxdj6vV D57W+nzMxAfJxAfJxMfY+oRa59ujVa8IM/Extn6xVj8kWv2XaPWnFzPxMbZf fXgexMfY/mky8TG2nzKt+yXT6q9c6/4qtPqt0Ho/8UGhjJ3X/H//f83/F/8j iZI= "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 259, 260, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 257, 258, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 255, 256, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{151, 253, 254, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{201, 251, 252, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, 212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.011111111111111112`], Thickness[ Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150}]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.011111111111111112`], Thickness[Large], Dashing[{Small, Small}], LineBox[{151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[0.5, 0, 0.5], PointSize[0.011111111111111112`], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[{201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.709299173228026*^9, {3.709299217591552*^9, 3.709299240418005*^9}, 3.709299304355733*^9, 3.709299419637433*^9, 3.709302174462837*^9, 3.717760149614613*^9, 3.7177602707074633`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matching-alleles model", "Section", CellChangeTimes->{{3.708963343289239*^9, 3.708963354484091*^9}, { 3.709297438597395*^9, 3.709297439691382*^9}, {3.709299162205879*^9, 3.709299167219852*^9}}], Cell["\<\ For host haplotype frequencies {0.25,0.25,0.25,0.25} and a sample size of \ 5000 the parameters given in pars we can simulate model fits as pathogen \ allele frequency pP1=pP2=pP.\ \>", "Text", CellChangeTimes->{{3.708964932381001*^9, 3.708965051950156*^9}, { 3.708965083118479*^9, 3.708965084774477*^9}, {3.708965203801753*^9, 3.708965228712872*^9}}], Cell[CellGroupData[{ Cell[BoxData["pars"], "Input", CellChangeTimes->{{3.708965005954096*^9, 3.708965006729492*^9}, 3.7089650810646553`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Alpha]", "\[Rule]", "0.8`"}], ",", RowBox[{"LDP", "\[Rule]", "0"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "0.5`"}], ",", RowBox[{"bH2", "\[Rule]", "0.2`"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "0.35`"}], ",", RowBox[{"bP2", "\[Rule]", "0.5`"}], ",", RowBox[{"eH", "\[Rule]", "0.`"}], ",", RowBox[{"eP", "\[Rule]", "0.`"}], ",", RowBox[{"pP1", "\[Rule]", "pP"}], ",", RowBox[{"pP2", "\[Rule]", "pP"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7089650070353518`*^9, 3.7089650874270477`*^9, {3.708965371977804*^9, 3.7089653966022243`*^9}, 3.70896572618952*^9, {3.717760143493413*^9, 3.717760149653042*^9}, 3.7177602707518682`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"VarExp", "[", "pP_", "]"}], ":=", RowBox[{"SimR2", "[", RowBox[{ RowBox[{"{", RowBox[{"0.25", ",", "0.25", ",", "0.25", ",", "0.25"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "2"], "+", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "pP"}], ")"}], "pP"}], "-", "LDP"}], "/.", "pars"}], ",", RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", "pP", ")"}], "2"], "+", "LDP"}], "/.", "pars"}]}], "}"}], ",", "5000", ",", "PmamX", ",", "pP"}], "]"}]}]], "Input", CellChangeTimes->{{3.708963951144795*^9, 3.708963959287409*^9}, { 3.708964131920004*^9, 3.708964137582734*^9}, {3.7089642374101973`*^9, 3.7089642397650433`*^9}, 3.7089643868534317`*^9, {3.708965064226684*^9, 3.708965238711177*^9}, {3.7092967435132236`*^9, 3.709296745023715*^9}, { 3.7092974184934893`*^9, 3.709297424355814*^9}, 3.709297731581538*^9, 3.709297888829795*^9, 3.709297944682845*^9, {3.7092980566491737`*^9, 3.70929805843165*^9}, {3.7092991956584673`*^9, 3.709299195912484*^9}, 3.709299290376461*^9}], Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"VarExp", "[", "in", "]"}], ",", RowBox[{"{", RowBox[{"in", ",", "0.01", ",", "0.99", ",", "0.02"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.708965187527913*^9, 3.708965357859296*^9}, { 3.7089655540268803`*^9, 3.7089655979194603`*^9}, {3.708965730545463*^9, 3.708965742809538*^9}, {3.709297448396503*^9, 3.709297449500021*^9}, { 3.70929778233386*^9, 3.7092977867161083`*^9}, {3.7092978754629793`*^9, 3.709297886433784*^9}}], Cell["Plotting the variance explained by the host-only model", "Text", CellChangeTimes->{{3.708965426211585*^9, 3.708965441735289*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709298248979945*^9, 3.7092982507705593`*^9}, {3.709299372257209*^9, 3.709299372651189*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJyF03tM01cUB3A2iIIwHkIhiJYhImVDYTyGRPQgEoowmZQJmyAy5E14iDK0 QswaW3DLHGw4HMoYglPQdTCUZyldUWGVIqUtBSRASymVtqAigmC28as/bvef J2ma5vZ37/nd7/k4xGdREt/V09NLWf1g32etmGQp9TzkPqdLL1+QQwuRrgpv +QVq2IUWU20yKP8Zq1owVbBMzMKksLq4+o8GiPZ39PUSj8MGSXX2ng3NcK7H a/dr8ii4xHzPXSCx4OOcd94L/XEEalZXJdUciFHaAc16CLw8seqCL3NDT0dn iaBrgbT6xH040GCcs8wSAEXbQA9Ym2WoDGgCkFGxBnlw8nhsyh/xfXAC2y6b D9VhdwX73Hmgp61+aEkPWu5X34NgKfaAAGDXkasb5Wwo5mIHDADLSlgzoWKD tl2JEIyplXW9pDawx16XKIZui80KguOfkJyE1SAUb/tnp6bsFmC3Y8WUgGuV JD5j+Ra8xNpdGAJKQrtTVFQ17NVewAgMHBuWE5bKQbsd/THUKe3I5zO/AX4v VqMwOGN445NvaUDQbjgGJQqzZ35FX4H2umLGwYSq/L1rSbX3zftPAEefkHem IhQ/bwI+ilKX7Tj8GZ6HFE6JhlXLpLP4+TKwpj3snK0uBO3rS2VgZtvuT2wt wfuZhPHALeq0w5V4PnKgGAkZNyjX8f7kIFEytxiZN+D3OwXrGL8uR47cxftV gI9HRs+9rU3Qqp0PBZTdPxjgmM3C+5+GD2s3mgcXc/A8lOBjv5Rm3/4Az18J l9hCg60rPDyfJzBnSTZmHOKDWjtPT6CUvKjPGH+E5zUDXwRKKUXuA6AdF08V aBJs7N3MxXh+KijcFODLTx+EN/OrhsTG48S8jFE8Tw10/Oa23u/9UXy+NHCH eCVzemgMz3cWFEe/y298OYHP7xz8ZONXwKLL8Lzn4ES+G/VmiBzWfJxr9agX uc4iH49JcZdF+irk41OD+Z2v9iiRD3qse5F36hTyIec+crkpliEfF08z7xwM lCIfljlMmdHRMeTD+ci1gkO8IeTD9N9Nov59YuQjMrWvyKpDhHxQbMTpzg4D yEfeQFDlelYf8uE9JkkLJ3QjH/6p86fcyzjIh8OZSyGWJRzkY3z3OiOP6Hbk I4H+wvaH3kbko7HCh/Es4jbyYWrUWrG/7jbyUf/CqobO0vlwneuKcPifjxdO FcHq8IvIhz9xksnr1vkg/5UQ12JPRT5kpCRig9QZ1nw8HTNcyO3S+ch1TQ5g 2H6OfCRpVryFXJ2PA4akHT3JRcjH3JW+0BWRzgcttm3auEDnQ3LtYfPrHp0P xweLT2s7dT4+sLzusj+/CfnI+jqiOyehGfkIWfKPzqpjIx+Ebr6dRRoX+aji R7puL/0b+ajjcgqGFvuQj2OZouFQTwHy4XQBOsW+QuSjg60sL1SKkY+TmwVV Nc4jyIdjPS2L/3wU+WATVDFBKTLkw8QkODuxQYZ8XN21sjhvOYV8bPOkxHlX TSMfK9vD8uTyGeTjVZOGN1k6i3zo4bW2vvb7bev/AUGQJds= "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 103, 104, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 101, 102, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.7092977559405107`*^9, { 3.709297882893982*^9, 3.709297898859074*^9}, 3.7092979797164593`*^9, 3.709298251387702*^9, 3.709298754152445*^9, 3.7092992402556553`*^9, 3.7092993379513483`*^9, 3.7092993836409273`*^9, {3.7177601436885357`*^9, 3.717760149737213*^9}, 3.717760293372551*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Purple", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.03", ",", RowBox[{"0.07", "-", "0.03"}]}], "}"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.1", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}, {3.709299332478499*^9, 3.709299353556685*^9}, {3.717760317308353*^9, 3.71776045752211*^9}, { 3.717760612986177*^9, 3.717760650483901*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt12tczGkbB/BKqRSig4SJLYslUaGQKwplSAcKU1odbKdZabXRAVuJrIjW sdqNSUT11EN02jaVJIXOTVJmzH+a5lDLhmStp5ln5rq9fN49b1xv5jOfe/7/ +7rv3/V9MbN897gFqCgpKakqKylJP6P18tdzohLg9UO7P/60GYRi2hGRa/Gv MF0n59D76xK4dFFaObB8Mi9gR5oYRhdHf1EIu/4OuKK6WQTjOlhhtuPugo1t avhzcyHM8zpV9WZuOWRfCc2YyeyHrNHVDlYlqOtmHAj+XQBWltKqhgKt2Eat pD6ofjN39In7oGbvvme7Sx+4yRqoA8Onm5LOGPYBN0raYD2MvJqSkZnJh73S 14U1gtlBFyNnNgVKsnoKH2PYeo2vKHDkSB9oAruE/s63PApSqqQbNMMvZSpz umIpkLXb0QI/bLh3P6mCAmPpcWlt8O6wt3btVQq+2y2tdlDz0zZbZ0SB9Hb0 8jvgafpJd90iCt5K233TCfEL9ms9D6ZglewCukAwVe3NblMKZK878gzSY2wN Po7u19ggrW5YQg/2qrWnQF/2wh7w8AmqX+VCgey6vHphZ3tJt284JT//C3At ii9dc0qx3wuopOUmOTIoeR4cqMua5PycqdifC+pLPcznb6ZAdnwOFwSHAt/T jiv6eQkFVepjGXspeT48GOp8kqEfruiPB9WODLXUOEp+vxSc/aR3YThA0S8f 2KuHVvutpaBENh98uGrKuLo8RdF/H0QGZrCNHiryEMDrj06r6sSUPH8BqPt8 G8EI4svz6QdnD6dnse18EMvmqR/SD4wcutzFl+clBL+LdHZaYB/IxsVSBCEW D7h3xgnk+YkgMC+//rCzAP47v2Iwd7DvvXmpX56nBAx8XzZYawvl8yWB23c7 bYo/CeX5DkDVZI28+0vF8vkdhOwltg0z0iXyvAchMrbqp+v+g6Dw8d7dq0Bt 2QD6ENU5FITridCH5bwYa3NHAfrIoNUX3wil0Ie6y3LhNjYXfew/nuwQuYWD Pm7NFKpQzB708U3RyhW6nE70Me/IYesUehv6UPFqn6ff0Io+Uh9Mv+e1sBl9 LI1ewzkjeYw+xhrl6cR98wB92Mxm+4Rcq0QfO5j9UyLzK9HHieSh7AX7y9DH WJZVLePPW+jjWAKLG5yViz5KaxqdAgZz0Ud4MqMlQS0LfRwaF5gQzUpHH1VZ rQ7RKqfQx+Ofbobajo9HH04nODWD22PQR8JG1+Hkt3bo41qRa8q7SFf0UaKa kxvqHYA+SobUHt9ZG4M+ThrrxXvQf0Yfk5xLLSM0z6CPhRaMzg+0TPTRalGR wNPORh9D11k0Q34h+vi1wXvCxIy76CPGw3OsOPEu+tBnpV1Ik1SgjzEVxsk9 yVXoY8y7nR6v6h6iD8vG8Rf95jxBH4sObBefsG5CH2d5yh+W2regD9ew3MsB g23ow7a+YXYcvQt93LS/sCXir270MaPPP+bcPi764N0+H2h0m4s+Xv5oarvD gEIfhibtJy3y+tCHcEJEvqNQiD4c37ITcwoG0MfyM2sshs2Jj7aB6yZHdYiP gynlplZriY8gvv3ea5/5aCsI2BffTnzoOn7UXuVMfGyhwlYv2E18TNhw71Pj Y+JDg5X85v5a4sO3oMR/cz3xcSrWY3GhKfHBV8l0ahISH8/02W5t+sTHyBl2 K/sK8fHc206Tlkp8fH02Y/x+JvEhDDNerDlIfNCSrly+vYX4OOn1Hf32I+Ij cWNvfsQrFvpYV5Fm1dKRhj5qr14aWOR5En0EhO/pMVMmPpap+0yfqh6NPgpr 67gLnC3QR9luGi9I4II+eDmc/Fnu/uij2WxbyN1JxMdDzsx/WoyJD5+Rb6O+ 1iA+/pq6IdCu5Df0kacxnVEtuoo+JImS+U96iI9trnruL5WJD5XUY0z3GOJj hcYM6zg28WG8STfZPJT4eJS/YfHWO8THB9XDNZnTiI9lnlyT1UuIDyNm9hwv O+Ljg3021SkmPoa9NgrC1xEfc251Had/5mNI9WNQUQjxQbc2TNX/zEfrxdBz u/SIj1kRRemnc4mPlIPakuF+4oMDKsXDrC8+vvj44uN/8RHx+gjnQhIPfWRV HJ1ElXLRxwR+ufbE0XlX+GDYmdhYtfWij0N1Viv+Xt+NPpaGK4+np3ahDy/B NIgz6EQfuyLo+xl7WtGHU6FW+Eh5E/owmMgUqcY1oY8f/HYG/sv3MfpgORc1 rV5Ujz6KQ9aNPBXXoA+w3pE+mVeBPsr1WrJeiCrQh1bUbzca5paijweTpvP1 Tf6NPlJM/1koOX8TfSy43OHLHLmJPtz8y2Z7ehIfzT5snv7wJfRxQzBtfcL3 x9FHu1Dj2saf49DHaf7EVyuP/Yg+tKMEedXDolUKH5Vj9CMPZNDRx2JP8Xmz rVvQx75WtmhkbjT6MIh79McA6yj6mDi1zI5Wchp99DrMEAdvJT7cNFsSr7kR Hx2C/BmaOsTH2MTMEY+uIvSxzIJZV/PVHfRx/v6mNSZh5ehjfs5kHceUSvSx zHg42LisFn2crWhR/epDPfoY1F2vlejSiD5+Wf9uTGLvE/Sx3YHjdmxRM/qQ +E8xNtdpQx9HjdbYNIa0o4+AW360SGY3+vg921x95cxu8v+DlvZ9X2cP+uB7 J8fcevsCfZybsjK2/AgXfeyNMY+6voGHPpTkpVhXfP9/r/8Hc7Xb1A== "], {{{}, {GrayLevel[0.5], Opacity[0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 259, 260, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{51, 257, 258, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52}}]]}, {}, {GrayLevel[0.5], Opacity[0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 255, 256, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {GrayLevel[0.5], Opacity[0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{151, 253, 254, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152}}]]}, {}, {GrayLevel[0.5], Opacity[0.1], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{201, 251, 252, 250, 249, 248, 247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, 212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202}}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[0.5, 0, 0.5], PointSize[0.011111111111111112`], Thickness[ Large], Dashing[{Small, Small}], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50}]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.011111111111111112`], Thickness[Large], Dashing[{Small, Small}], LineBox[{51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[0, 0, 1], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.011111111111111112`], Thickness[ Large], Dashing[{0.03, 0.04000000000000001}], LineBox[{151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[1, 0, 0], PointSize[0.011111111111111112`], Thickness[Large], LineBox[{201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250}]}}}], {}, {}, {{}, {}}}, 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, 0.99}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.709299240320251*^9, {3.7092993414166*^9, 3.7092993837366333`*^9}, { 3.717760143769238*^9, 3.717760149812265*^9}, 3.7177602935317802`*^9, { 3.717760330563726*^9, 3.7177604581158*^9}, {3.717760613657528*^9, 3.717760620772079*^9}, 3.717760650951899*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Coevolution: Simulating Coevolution", "Chapter", CellChangeTimes->{{3.708791643903363*^9, 3.7087916576836033`*^9}}], Cell[CellGroupData[{ Cell["Phenotypic-difference Model", "Subchapter", CellChangeTimes->{{3.708964726393654*^9, 3.708964738264943*^9}, 3.708964791177658*^9}], Cell[CellGroupData[{ Cell["Allele Frequencies over time", "Section", CellChangeTimes->{{3.708964751433283*^9, 3.708964754881453*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"pars3", "=", RowBox[{"{", RowBox[{ RowBox[{"tmax", "\[Rule]", "1000"}], ",", RowBox[{"r", "\[Rule]", "0.5"}], ",", RowBox[{"\[Alpha]", "\[Rule]", "0.2"}], ",", RowBox[{"\[Xi]H", "\[Rule]", "0.5"}], ",", RowBox[{"\[Xi]P", "\[Rule]", "0.5"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "3"}], ",", RowBox[{"bH2", "\[Rule]", "2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "4"}], ",", RowBox[{"bP2", "\[Rule]", "1"}], ",", RowBox[{"eH", "\[Rule]", "0.0"}], ",", RowBox[{"eP", "\[Rule]", "0.0"}], ",", RowBox[{"\[Mu]", "\[Rule]", "0.001"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.695396698552619*^9, 3.6953968661476016`*^9, {3.695397553854968*^9, 3.69539755472857*^9}, {3.695398482720422*^9, 3.6953984853355713`*^9}, 3.6953985393976636`*^9, 3.695398653292178*^9, 3.695399097145565*^9, { 3.6954844197704544`*^9, 3.6954844220955877`*^9}, {3.6954849511058455`*^9, 3.6954849514888673`*^9}, {3.695484993897293*^9, 3.695485047976386*^9}, { 3.6954851906565466`*^9, 3.695485236848189*^9}, {3.6954852786245785`*^9, 3.6954852930484033`*^9}, 3.6954853629123993`*^9, {3.6961859740553026`*^9, 3.6961859929303827`*^9}, 3.69618602872143*^9, 3.696186076183144*^9, { 3.6961890385134706`*^9, 3.6961890423606906`*^9}, {3.6961891517899494`*^9, 3.69618915214997*^9}, {3.69618919376035*^9, 3.6961892279613066`*^9}, 3.6961892683526163`*^9, 3.698761976717126*^9, {3.6987620415405293`*^9, 3.6987620657241507`*^9}, {3.69876211204031*^9, 3.698762165603705*^9}, { 3.699036474872394*^9, 3.699036476004361*^9}, {3.6990365199923763`*^9, 3.6990365203464737`*^9}, {3.706958524527844*^9, 3.706958524671399*^9}, { 3.706959764770626*^9, 3.706959778240305*^9}, {3.709300074106213*^9, 3.709300074401566*^9}}], Cell[TextData[{ "Here we let the susceptiblity determine the probability of infection of a \ host with phenotype ", Cell[BoxData[ FormBox[ SubscriptBox["z", "H"], TraditionalForm]]], " by a pathogen with phenotype ", Cell[BoxData[ FormBox[ SubscriptBox["z", "P"], TraditionalForm]]], ". If infected hosts suffer a fitness cost \[Xi]H and pathogens a fitness \ increase \[Xi]P. Let\[CloseCurlyQuote]s denote the frequency of the host \ genotype {XH1,XH2} and pathogen genotype {XP1,XP2} in generation t by \ fH[XH1,XH2,t] and fP[XP1,XP2,t] respectively. The fitness of the host \ genotype {XH1,XH2} and pathogen genotype {XP1,XP2} in generation t then is \ given by:" }], "Text", CellChangeTimes->{{3.70929953060084*^9, 3.7092995374305363`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Xi]H", " ", RowBox[{"Pdiff", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.709299694004904*^9, 3.7092997025213213`*^9}}], Cell["The average host fitness at time t is given by:", "Text", CellChangeTimes->{{3.6950645165490923`*^9, 3.6950645417165318`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WHavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.695064525272591*^9, 3.695064567246992*^9}, { 3.6950648988719597`*^9, 3.6950649064803953`*^9}, {3.7092997249254017`*^9, 3.709299729345314*^9}}], Cell["\<\ Hence the relative fitness of host genotype {XH1,XH2} is given by:\ \>", "Text", CellChangeTimes->{{3.6950646155887566`*^9, 3.6950646294685507`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950646306516185`*^9, 3.6950646630334706`*^9}}], Cell["\<\ Similarly we can calculate the recursion equation for the change in parasite \ genotype frequencies. The absolute fitness of genotype {XP1,XP2} is given by\ \ \>", "Text", CellChangeTimes->{{3.695064787924614*^9, 3.6950648278838997`*^9}, 3.69625461128152*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Xi]P", RowBox[{"(", RowBox[{"Pdiff", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.69506483804148*^9, 3.695064871553397*^9}, 3.695066292192653*^9, 3.6950663504499855`*^9, { 3.69506638129875*^9, 3.6950663905692797`*^9}, {3.695066472089943*^9, 3.6950665903607073`*^9}, {3.696179555115855*^9, 3.696179570419482*^9}, { 3.709299739015209*^9, 3.709299744845755*^9}}], Cell["The average pathogen fitness is:", "Text", CellChangeTimes->{{3.695064877228722*^9, 3.6950648825000234`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WPavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.69506488664026*^9, 3.69506492336036*^9}}], Cell["The relative fitness", "Text", CellChangeTimes->{{3.695064931452823*^9, 3.695064933699952*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950649384402227`*^9, 3.695064952057002*^9}}], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Htmp", ",", "Ptmp", ",", "t"}], "}"}], ",", RowBox[{ RowBox[{"ListH", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"ListP", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "Inializing", "*)"}], "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{"{", RowBox[{"0.24", ",", "0.25", ",", "0.27", ",", "0.24"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{"{", RowBox[{"0.23", ",", "0.25", ",", "0.27", ",", "0.25"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{ RowBox[{"t", "\[LessEqual]", " ", "tmax"}], "/.", "pars3"}], ",", RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Htmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Htmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ListHDiff", "=", RowBox[{"Transpose", "[", "ListH", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListPDiff", "=", RowBox[{"Transpose", "[", "ListP", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"pHlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListHDiff", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListHDiff", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListHDiff", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListHDiff", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"pPlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListPDiff", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListPDiff", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListPDiff", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListPDiff", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListPDiff", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListPDiff", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListPDiff", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListPDiff", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.6961887771515217`*^9, 3.696188985512439*^9}, { 3.6961890207774563`*^9, 3.6961890989219255`*^9}, 3.696254064274233*^9, { 3.696283802471788*^9, 3.6962838310684233`*^9}, {3.6987620764520473`*^9, 3.698762127076189*^9}, {3.7093000805939007`*^9, 3.709300089588066*^9}, { 3.709300137258499*^9, 3.7093001446010923`*^9}}], Cell["Plotting the expected values of zH and zP over time.", "Text", CellChangeTimes->{{3.709299854743474*^9, 3.709299876334786*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"zHList", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "XH2"}], "+", "XH1", "+", "1"}], "]"}], "]"}], RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", "pars3"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zPList", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"ListPDiff", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "XP2"}], "+", "XP1", "+", "1"}], "]"}], "]"}], RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", "pars3"}]}], "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6954844452649126`*^9, 3.6954844805669317`*^9}, { 3.6954846394950223`*^9, 3.6954846410541115`*^9}, {3.6954848621427565`*^9, 3.6954848994718924`*^9}, {3.696185825600812*^9, 3.6961858259198303`*^9}, { 3.696283834312609*^9, 3.6962838369577603`*^9}, {3.709300155102354*^9, 3.70930015995128*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ZPlot", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"zHList", ",", "zPList"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6954848731993895`*^9, 3.6954849400292115`*^9}, { 3.6961861256399727`*^9, 3.696186154133603*^9}, {3.696189127455558*^9, 3.69618914060631*^9}, {3.699036464725513*^9, 3.699036467205024*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[Large], LineBox[CompressedData[" 1:eJxN1nl0zGf7BvCxB0HsKcGoLbXGvrVctoo9sSUIRhJZLZN9T2YmM5NZIyjC iw5VjdhCLUEwKjRqi61Siogt6EtUo7H/5nfefJ/77j89n/PknmuuXOe06ei/ fPrimjKZ7Gktmez//y3985d3fnvd81r4nypGbrzofO3PA7WrLcNM3xmHuqrr VNsJ92v6vv9jSt1qu2Btw2NVs76oV+0WWPs5+150mWRXPBrx5ceZOU7VdsM0 +YDr34TVr7Ycf4VdHLu6W4Nqf4mWiN12+Z7kztj8b3BH9aqG1e6KiF5N1nqO dK62O45e2FBa8khyd/wcu3TKG12javdE/uk7ZTEdGle7N4JuBKR8vV+yB6Y7 3z/2zYgm1e6L/b/sO514WnI/dDt9OUrW0aXa/eGvvtb+Hz/JA2Ccldx6xxrJ AzH8fJe6A85LHoQd6pibuz5KHoxRDSytevdqWu0hWPBkwozrcyQPhXbnqLXH 0yUPQ3H+kAdOOyUPR9WjlN9uXJb8NZI87juN/VvyN2gXnj8wqlmzao/AyJet UzUekkfip4AhS7ImSwbqfHhy5GhQtVXAoLhbPdunSe+j0KnjrqTf10jvo+DW NnbYp1zpfTR2q8ou7jkhvY9G+NLTAbIr0vsYzN/xbUX9Mul9DCKi/+19/5X0 Pha1NTe3b5A1r34fi6FVL/ImNK62bBym7StSydpK7+Nw91RA7+Ku0vu3SBw2 8FRRX+n9W6j7Phr+drj0Ph4Fi1Q5y8dJ7+MR2u1h56FTpXdPnE0d+HLRbOnd E+0+fx1ZOV96n4BlRUbvT4HS+wRcbj82Rh8uvU9Etnxzy3UR0vtEHDpz48yQ OOl9Etw8T6ZGJUvvk7DC+2rOVLX0PhkRLw51uaKT3ifjh0DvOTVM0vsUjD4x pd8jq/Q+BSE9evXTrJTep2JWQEn0ne+k96mIfXX08Pt10vs07Hgarri/QXqf hn9LyzWrNknvXvhufMiTZrZqwwuqRUVNgrZKP++Fb7vavl6xrdp2LzwY/2/E yu3SvTfumnKTludI9974HKd+1SNXuvfGtW/fDTu3U7r3xta84lUTdkv30zHc fWyDvXuk++mIL+hoeb9Xup8O64E19zz2SffT8W9BUa7Xful+Bq6NnRzj97N0 PwOF0XNyZx2Q7mfA+PrRhm8OSvcz0CdhZVrLQ9L9TOhlyxPvSsZMTBq8K3v9 Yel+Jrbavrg+Pl+6n4lr+9e0eCZZNgs1m87vqz4i3c/C0duj/m50VLqfBfeX 511WSrbPwsbCMUMbHpPuZ0Nh3dEwRTJmY+nn9W5PJKtmI6nvl28mFEj3s1F8 Lt11u2SZD87ufPbuvWT4YPXQls6Tj0v3PhjVo2L/Wsl2H9wp7zrtT8kyXxSO 2TG03Qnp3heZc7udmSNZ5YuGgdoRqyTbfaFoMuq/ZyXL5qBTm7vNq8T9HCj2 Da7oclK6n4Np3W4d85Jsn4NtyV674iXL5mJ6/6WvN0nGXMy9aT1pF/dzga1/ DL8v7ueixtqkrM/ifh7CFpeUtbVL9/MwPsE+a5Bk1Tw8m7e5/jTJ9nkourTF LUiyzA9tzz3JTRL3fli9/vtLK8S9H35W9LJtFfd+ONxy4qAD4n4+bozpuL1Q 3M+HLndJrevifj5ePbEqysT9fEyYvv3SS3G/AMEdd8//IO4XYICT1s3plHS/ AKq5Db5oLtm+ADNv9Va0kyxbiB7jZJ+6SsZCBOYXfOwj7heiokZp6BBxvxBd XnlMhrhXYM+Ri7vHS5Yr8Dhh8Lqp4vMUaOX4n90syQoFnI3b5PPE5yvwu7ry kkKyTYGbB+wdg0SeAk1XOXUIl1yqQI8tIReWi/xFCEty6xMt8hfhzMS6k+NF /iIc+f1At2SRvwgXuoaeTRP5izD+l7Y900X+IrxZrfbTi/xFmB7vMs8o8heh TXKtHhaR748bxQsuZ4p8f/gmv564UuT7o32Rv221yPfHk+iOV9eIfH8cOpRY tk7k++Pth1XX1ot8f8SYwn76j8j3x+zSews3ifwA+Hze92mzyA/AG7VGZxP5 AZi66mblFpEfgBEn2nn/IPIDULJzR/Y2kR+AvLwjF38U+QFInRL3arvID4Al q6p2jsgPxGDFqPo7RH4guuwd+1kYgei58dGTXJEfiJWpVad3ivxAfFc65rtd Ij8QA0PVc3aL/ED0O7SgxR6RH4g93VLPCMsWw3Vz3NK9In8xjD3+cM4T+YvR 50i3bcKKxbi85V7/fSJ/Mf4ZFVMgbFsMS+qsEftF/mJkjX58RLh0MSb+o+/z s8gPwouyrO+F5UE4ssunwQGRH4QNm79SCiuC0K2R1xVhVRAa5DTpfVDkByHz 1xy9sD0IMw/63BYuDULHipk9D4n8YLiE30gQlgfjYlGDQmEEo3BVp4aHRX4w 9i+ZNE1YFYySsTuzhG3B+FsVelnYHoyp7rkN80V+MOo1XDFOWBaCfY8HpwjL Q/CT4Zf9wghB/RcTHwsrQrB10fPWR0R+CB6uKxgvbAtBzXM3YoTtIfA+N3mr cGkIXOWDLgrLQvHQ7cc3wvJQBD3f2f6oyA9Fm+3zxgkrQrE5uDBMWBWKOvMq M4VtoXj524d9wvZQ3OlTfk24NBQzvyn8R1gWhqAXG1scE/lh8FiZ0l8YYThx RektrAjDyELVMmFVGAJfHDIJ28Iw3sttu7A9DOeXHLELl4ZhoPfaW8KycGRt PPqa8sMRoO/lXCDyw9HwUWUnYUU49vdvM1xYFY4r62zewrZwRD7ODBa2h6Mi 51mycGk4dnY8slJYtgSdvD7/KCxfgkaVp45Q/hI4ra1zkfKXwFl96R7lL8HF y/K/KX8JcsNktY+L/CWwNYxoKVy6BC8R21VYthQ/LW8+WFi+FK9vTBovjKVY bP3SR1ixFC8tG4KEVUvxKPdQjLBtKc5sTtBS/lK8qvl4FeUvxZjZn2yUvwym j4V7KH8Zao77uoDyl2HFoqBzlL8M9SLH/U75yzBfdbuM8pdhn6b7S8pfhjl+ A95T/jLcvPuu7gmRvxynfktrJixfju+LC9sJYzlyV553F1Ysd/w9uqa/sGo5 AjWdRwjblmPfngRPYbvj87PWThcuXY7bGcl+lK/Eoyc9g4RdlLj3Nmc5fR8l Yj+8ihf2UCKwc30NfT8l3mx8aRL2UmKeYftq+r5KdJX12SisVGJtS9M2+v5K vLqSv0s4S4kngwoOUB8lro5YUyCcp0S9O2MLqZ8SHT+dPy9crMRQQ49r1FeJ gfMCbwlXKFHpFXef+kcg+5vF5dQ/Ankve7+k/hGI9LhRSf0j8OS07wfqH4EO oUdrnhT9I+B3652TsCICwy62aSKsjMDVv9u0FFZFoPLf922EsyLQT3dCLmyL QKORAV2F8yLQ8+yzHsL2CEw6PKuvcHEE9Du3DRIujUDQkJLhwhURePuyAsKy SDxTvBwn7BKJnFbXJwrLIxGz/vtpwh6RSFw2faYwIvGw9X99qX8k3rZQzqf+ kfiy7PYi6h+JFm89gqh/JK4ULw+j/pE4did7GfWPxL6VuyKpfyRa+e2Mpf6R KNuxJpH6R+LIo/BU6h+J13G9NdQ/EnvO3tFR/yjcGZhopP5RmNqttpX6R+GX d0lZ1D8KVY3KVlP/KOwtGLSO+kfBrkjcQP2j4DZ99ybqH4Wnjy/bqH8UYqPK fqD+UZgz8dF26h8FZUHJDuofhb9cj++i/lEI3b1qL/WPwu9n5uyn/lHI3tXs IPWPwrrc44epfzQG1Jt3lPpHY6HT8wLqH401fy89Sf2j8drp4SnqH43+1imF 1D8ap07mnqX+0dh/730R9Y/Gte6jzlP/aBTcSbxI/R3uv+My9Y9GZdCFK9Q/ GovyHl6j/o7PG//3Derv+H4BlTepfzTmDnvxB/WPhunzn7epfwz+fnzqDvWP QY1Om+5R/xi0ebTsPvWPwY/zBz+g/jFoXfDmIfWPQXnv3Y+pv+PnH8wtp/4x eF1X9oz6x2Bl4cbn1D8GivF9/0v9Y7DgyPEX1D8GJ8aMrqD+MbjS+OQr6h8D 99EDXlP/GKTW3voP9Xf8fJLTG+ofC5+Lwf9S/1gY2tmrqH8sumQ1fUf9YzHI 0+899Y9FkxDbB+ofC9+mdz9S/1jUX9zyM/WPRXT6tzK76B8LT0tEDeGsWJg3 r60pbIvFnpKDtYTzYpHme7m2sD0Ww4Y/qCNcHAv1pld1hUtjEfKfd/WEK2Kx zOuTk7AsDqabH+oLu8Sh+6Q3DYTlcRh45llDYY84NFh4y1kYcbD0PdNI2CsO 7WbtbCysiMPm+5Ymwso4JL8IdaH+cdi9anRT6h+HvQ9bNaP+js9/95icF4ey p/ubU3+Hf01sQf3j4LljREvqH4fwrZ/IFXEY/evRVtQ/Hl49olpT/3jY73dz pf7xmPGxhOwRj5gs/RfUPx5f7fZoQ/3j0W7xTbIiHlvOJbal/vHY+7yNG/WP x7Pbh8lZ8fg+17sd9Y/HheBycl48WnVKbk/94/HHc+cO1D8e7a9sIJfGI+d+ Fzn1j8ejHnvIsgTUONG/I/VPwP0fD5HlCfji1aAvqX8Cau8+QEYC9j7u04n6 J+Bpbg5ZkYBxdTt0pv4JaFBnNVmVgEk/1+5C/RNwxS2abEvA0Cn3yXkJuDNt clfqn4BbfQ6SixPQrKptN+qfgJE/q8gVCbga/oAsS0TznmPdqX8inD9tJcsT sen5Z7JHIiI/zf2K+ifi88gDZK9EGI407E79E9E7ehFZmYjr8QfJqkSMKK7X g/on4p3Gl2xLROD6n8h5ibC3rSTbE+HWbFRP6p+IuVozuTQRwxOvkysSMf19 217UPwmuTfzJLkm4ULCdLE9CdsNnZI8kpNbs2Zv6J2FOzhKyVxLu1dpFViRh d9tnZGUSBrzp2of6J+H8en9yVhK2OW8i25Jwc+bv5Lwk+MY39qD+SfiYPI5c nARVSBK51GHkkSuSENfgIVmWjAvnW/Wl/sk4a/Qky5OxakIC2SMZY112kJGM q2U3yV7JaHO2Tj/qn4zyE/3IymQ8vLKArEpGbi0TOSsZP/seINuSEXzjDjkv Ge1S6/an/slo4NObXJwMn8BZ5NJkNM9NIlckY2jPLWRZCva9OEN2SYFX5VOy PAXXxzQaQP1TUH6nDxkp+OpXb7JXCtrWiiIrUjB4zWqyMgUPVD+TVSkIOXeV nJWCFpGvyLYUNE5tMpD6pyCpoifZnoLgCxPIxSm43SKIXJqCwgtqckUKav67 kSxLRfjaw2SXVBTtvkKWp+LSyOdkj1R0mlZ7EPVPReBdN7KX471iAFmRivv6 yWRlKhr9GEBWpaLFlERyViqmqbPINsf72O3kvFRsXHeMbE9F79RicnEqnrx9 SC5Nxd/Ob8kVqQg54jyY+qdhag052SUNOY/7keVpiAwfR/ZIw9qVPmSk4d+5 oWQvx8+fSyQr0nDtrpmsTMPDjRvJqjQE1dlNzkqDc5vjZFsaVH9eIOelIWTq n2R7GhZGPCcXp+H9t+/IpWk4W+w0hPqnYYxLa7JMhb/qdiE7qTDoUD+yiwqr OoDsqsLCsVPIchU+d5lLdlfh4pkgsocKLl2iyENUaD0ujez4r5N7NzPZU4Xk C2vJXipMHLSV7KuCffFuskKFxn755BAVvNucJitV2LflIjlehW9e3ySrVHB2 KSMbVOjx9jk5S4UteyvJ2SrEDfhMtqnwg8FpqHCOCh13NyXnqfBgaxtyvgq3 wzqR7SpU1OlJLnL0iRlALlah/pGvySUqnLs6llyqQofTk8nljjzTTHKFw939 yFWOvX8IIMvUsL8JIzup0alzJNlFjVs9E8iuatiaqshyNbpe05Pd1egSaSV7 qDHl5WryEDUmTNpAhhqFehvZU43grdvJXmpc3ryL7KvG1uT9ZIUa0V/nk0PU eHj3OFmphjnwNDlejcqLRWSVGofbXiIb1Fgw9Ro5Sw1lUAk5W43UwDtkmxq1 J5Sx/dUwtHjC9nfk//qc7a9Ghn8F21+ND4/+Yfs78qe/Zfs7fp85H9n+apx+ UmMY7a9GTtO65HI1PLs2IFeo0aBrY3KVGvOaNiPLNNhe3pLspMHUXV+QXTQ4 6teO7KqB5zs5Wa7BPF1nsrsG0z91I3toYF7cgzxEA8Wx3mRo0FnWj+ypwaAB A8leGjzzGUL21SArfDhZoUHq8hHkEA1qBI4iKzUInjCWHK9BTfl4skoDt/IJ ZIMGH7ZMJmdp8GLKNHK2BkP+8ibbNJCnzCTnaFAu8yHnaVASN4ecr0Hvsnlk u8NYQC7SoPkqBbnY8f1K/MklGuiaLWb7O36/o4LZ/hqELg5l+2swMzWc7a+B 0bKU7Z+Ob7KWs/3T8aMxgu2fjtfxUWz/dCgWxLD909FmWBzbPx2znBPY/unA jUS2fzoarklm+6fj6aRUtn86ZO/S2P7pSP9ezfZPx8av09n+6Yi8omX7p2Pg Aj3bPx2NHmSw/dPRQWFk+6cj+4aJ7Z+ODWMsbP90TMq1sv3TcaP+CrZ/Ohb4 Z7H901HjwEq2fzrKP61i+6ej35jv2P7pqK1ew/ZPR0r+WrZ/Ok48Xcf2T8fj FuvZ/uloPWwD2z8dYXP+w/ZPR92ojWz/dHzUb2L7axG9ZjPbXwvd5u/Z/lp4 brWx/bW4a9vC9tdiwYatbH8tyjJ/YPtrkZG6je2vRUDoj2x/LUzTtrP9tWjb 9ye2vxY9Guew/bW49phZoUWXYzvY/loMN+ey/bVw99nJ9teiToddbH8tHpQx G7S4tXU321+Ltwv2sP21mNl6L9tfi7oXmHO0cEvJY/trsb37Pra/FkevM9u1 CE3az/bXorD9z2x/Lf44wVyixel5B9j+jr0qmcu1GGw5yPbX4mGHQ2x/LX7I Y5bpkDjiMNtfh7RzzC46HPXOZ/vrMPoms1yHtnOPsP11mHOL2UOHer5H2f46 9LnGDB2eTDrG9tdh0C/MXjp0GlTA9tfh7E/MCh3krY+z/XUYpWVW6jDwJXO8 Dk6+J9j+Opw8wWzQIbzTSba/Dq31zNk6/PaY2aaDZZyd7a9z/P3CnKfDso/M +TrYZp9i++vQcA9zkQ75tX5h++uwx4e5RIeqHcylOmx8x1yuww8TTrP9dXBd x1ylQ40HzDI9gnsVsv318IpldtHjl+PMrnoU1TrD9nfcezK767HDzOyhx+qL zEP06NX4LNtfj8QpzJ566MzMXnrMKmL21eNFrV/Z/nrMGMEcoseKOGalHtv3 Msfr8f1jZpUeKrcitr8ek7yZs/RooGPO1uPUYWabHlFPmXP0cG9zju2vx8MJ zPl65MYz2x19tzMX6RF9jblYj+TPzCV6bO3+G9tfj5czmcv18E9lrtBD9hNz lR7Fl5hlGbhRyeyUgRZu59n+GY6/L5hdMzAuiFmegTEmZvcMGHYze2TAtZh5 SAbevmJGBjyaX2D7Z+Bwf2avDGycweybgT8jmRUZUK1kDsmAei+zMgN/XWCO z4D9KbMqA7XqXmT7Z+BAR+asDNz6mjk7A8t9mG2OvAjmnAw4m5nzMtBqG3N+ Br4vYLZnYMd15qIMx9+XzMUZ8K51ie2fgddfMJdm4EsP5vIMlI5jrshAr3nM VRloomSWGaDVMjsZkJXN7GLAsF3MrgYknWSWG+B3ldndgD8fMnsY8PEN8xAD TjtdZvsb0KMNs6cBw3swexnwZjizrwG+k5kVBizxYw4xwH0Js9KA7CTmeAMO mphVBujXMxsMaJTDnGWA5yHmbMf3K2S2GVB+hTnHgIn3mPMMWPYXc77j/S2z 3YAndYrZ/gaMasZcbMDC9swlBozozlxqQOlA5nIDvh3FXGFA5GTmKgOCfJhl RnT0Z3YyYvsSZhcjKmOZXY1opGaWG/GPidndiJzvmD2M6LmZeYgRyT8xw4jN ecyeRqw8wuxlxOxfmH2NqPiNWWHE/GvMIY7Pu82sNOLgA+Z4I7Y9Z1YZEfaa 2WBE3ffMWY7vW/MK29+Iy/WZbUa8c2HOMaKmK3OeEffbM+cbsbULs92IkT2Z i4w41o+52IhWQ5lLjJg6krnUiJBxzOVGBExirjBihDdzlRGfZzPLTLD5MTuZ 0Nmf2cUEUzCzqwm/L2GWm1A/ktndhHZxzB4mtE9mHmLCRxUzTDinY/Y0IcnE 7GVC8xXMviZ8t5pZYYIsmznEBJ+NzEoT1tqY4004vo1ZZcKVHGaDCcW7mLNM OJrH9zch8wDf34Tp+Xx/E2oU8P1N2HyS72/CV6f5/iZsOsv3N6HOb3x/E+Ze 5Ps7Pq+Y7+/4/tf4/iZU/s73N6HeLb6/CQ3v8P3N+HyP729GWRnf34z8R3x/ M1LK+f5mDH3O9zfj4X/5/mZoKvj+Zri85vubsbqS729Gwyq+vxmx7/j+ZhR/ 4Pub0ekz39+M0BpX2f5mbKvFHO+4r8OsMuOfeswGM5wbMGeZ4erMnG1G+8bM NjNauTDnmFGrGXOeGU+bM+ebUdiS2W7GutbMRWbM/4K52JHXlrnEjBtuzKVm pLdnLjejs5y5woxfOjJXmTG7E7PMgoedmZ0sCO3K7GLBo27MrhbM+YpZbkFR d2Z3Czx6MntYYO3FPMTxeb2ZYcEAD2ZPC1R9mb0sONOP2deCWgOYFRYMHsgc 4vj+g/j+FqwZzPe34OgQvr8FJUP5/ha8Hsb3t6DO13x/C1p+w/e3oN0Ivr8F X47k+1vQHnx/C1qP4vtb0HA039+Cd9zFFjwZw/e34MJYvr8FO8fx/S0wf8v3 tyBwPN/f8fv25PtbUXsC39+KK9wuVmycyPe3YsEkvr8VbpP5/lbc4vawYsUU vr8VY6fy/a2o5Pa04odpfH8rJnvx/a34h1thxRpvvr8Vg6fz/a24zh1vxdIZ fH9H/5l8fyvWcWdZ0W0W39+Kg9w2KzCb729FEXeeFVN8+P5WXOa2W+Hly/e3 4iJ3sRWec/j+VpzmLrVi6Fy+vxU7uSusaDeP72+FhVuWibfcTpkI9uP7Z+IS t2sm+s/n+2diPbd7Jj5we2Ri3gK+fyaOcSMTrRfy/TMRye2ViQvcvpnopOD7 ZyKeO8Tx89zKTLRfxPfPxFJuVSaOcxsy0dCf758JX+7sTGzmtmXiGXdOJvoF 8P0zEcudn4kCbnsmPnIXZWJ0IN8/Eyrukkyc4i7NxCfu8kwMW8z3d+RzV2Vi H7dsBZ5yO61AxyC+/wr4cruuQCa3fAUKud1XoIrbYwXcg/n+K+DHjRWOvy// 5/8DOBz59w== "]]}, {RGBColor[1, 0, 0], PointSize[0.008333333333333333], Thickness[Large], LineBox[CompressedData[" 1:eJxN13lYDOrfBvCxpazJlhzJHpKUJdnudEhoEYdEmlYtqmnfa5ZmbabGlmQb jiUUIWQfe7Zkzx5ZKkn2sp239/r1PM+cf1yf6+meb/fcf5yrAb4R7gGtORxO TRsO5///Jf8NX5p97qt5W/xPDdPSBp+2WX2NmAOb/CNrBke0a7E+lrxI7pJs pNdiQ3j5rg64VEzcA/ONfOcF/dO+xcb41NS089ln4r/w6d/e70uy9VtshksV u9etNjdo8UCkhYxv3es08WCc0bQ/8NG1Q4uHYvfBr31fPiU2x4I2RdsLlnds 8QjMtv1PYfae2AIZ8pSrvcI7tdgStZcmPoqsJbZCo8M2536+nVs8BvUfAhZ3 vkdsjS+1reynOnRpsQ2cu008eKiAeCysqj53T+jWtcXjoDa5eGNDJPF4PAp/ rBx7g3gC2t+bNcPSyLDFtnh+1qgudxLxRDha2T6s9SW2Q+q42g/jZMST4JzZ 1Em1l3gyOtuYnGtzg3gKyr3v9d5XRzwVxr6TFmo6dGvxNJQVTr5bP5QYGJYe caPQvsV8IGdh/ZSPnuTdHqFZNeevR5F3e7jlJ0nmy8n7dNTk2A/I3Uzep+P6 ZPc1BQfJuwNiDjdN2HaRvDvg+Yc3h+QPyPvfwA/Hpqhq8v43HvFjpoU1kvcZ uPb5Ymtpe6OW9xnYPGBmu7KeLebMhKXstZvrIPI+E9/rPtn1tiLvjphbtjZo zGTy7giDmz3u5juS91lwnFNyW+pO3meh+7n+fSuWkncnPMp/c21bIHl3Quyq pKiGCPI+G4EeBkZXEsj7bPSxihoxVkDe52Cnm/kZWzl5n4PPXZu8nqrJ+1z0 GrtniHkueZ+L47uWXzfdQt6dYf6wacelHeTdGf3vndk9uIC8u+BnUXDClIPk 3QWNfSN9epaQd1eIfrsEFZ0i765IehXmZHSevLvhlfZh2tTSFsMNBp8L/7a9 QX7eDa8tHTa1vt1irRsedOz/j+Y+yc/D0aW79Ho8Jvl5SNq0oR/3OcnPw/DX Cx9Jqkh+HiZXPlmgeEvy7oj3KU5f8Y7k3TG0z6oRoz+QvDsEv++1vfuJ5N1x v+rplqXfSH4+up8YHXm1ieTn4+TF1Lumv0l+Psr7Sjsv4XRvyc9Hn133nfht WsxZgImHfLdl67UYC/DIqGs/hUGL+Qtw9Gz3fbxOJL8A8bedJv7dleT/wQMv 7up2RiT/DyZ3+yk83IPkm99fnDi7oDfJ/4NZ8yf+rupD8gvhuuflA7+/SH4h sl3u1Nw1JfmF8FTknJ0wgOQX4r/zT14pB5H8InhNHHTr7hCSX4Qd41x/dTUn +UVonz/l3tQRJL8IdZ8cL/hYkLwH4k+eHploSfIeGJ+8JEhsRfIesAvbfUti TfIemLUh8HjqWJJfjOK0p7yQ8SS/GHfuTZjmbEvyi1Fkfi10qB3JL8bnOO+J 3yaRvCfy0nhvT04heU/EtQk5mDSN5D1xO/75ndH2JO+JFd5nhE+mk/wSbDoj /Mz/m+SXwLrGw6PfTJJfApcq1xcHHEl+CUpKEk9OdSL5pXj3qkuvC7NJfim+ GmcZT59L8ksRpXxYV+JM8kvRqaP7cXNXkvfCi9oPO1e6kbwX4nt6Pvg8j+S9 YO70M9x1Psl7IftIT/X2BSS/DOEm95Z8/ofkl8EvyvvTpEUkvwyjg15FpXmQ /DLEq/b+PL6Y5L2xM33Ano+eJO+Njwav8gYuJXlvfF18o8bZi+S9wV3850D0 MpLnwmVqdec13i024+Ktzz+993PJ53GxbEXk2ws+LeZysbeqPOeeL/l8LrYP T5jywq/FGi7ef3nx6a0/uceFzLVdWU1Aiyu5uDh4yes3geS+DwqXV7k8X07u +2DQo+Fmd4LIfR/sSJkdfi6Y3PfBusKvzoUh5L4P8v5E31kdSu77oPel3UZx K8h9HwRHmfRfEEbu+0D777uOluHkvi9iulW/axNB7vui7zThrXvE8MXUdg/K /uWR+75I/7j/a1gkue+LGQLxorFR5L4v3O0E7b4Ta31R+W+64ZFoct8XDwYa ySNjyH0/FJzgpw+PJff9UHPiWptnxPCDxLlwSHYcue+H4q95XybHk/t++KvV 5fS3xBo/lDwbcD8rgdz3w38hS/RsEsl9P+RavDK9S8zxx1ZR/aioJHLfHy+v R9h3Tib3/ZGTOGD5DmKuPwz7CQvsUsh9f2zi3Te9Qazxx2eXEdeWppL7/nDY Ne90DXGlPwyCa9rGpJH7AXgS5LH3J7FZANpNKz/FTyf3A9DZzGVWGz65H4CG /RsWioj5AZhW7vqFIyD3AxAXfNMihVgbAD0rl45fiSsDMCPgZl6okNwPxIo1 Q988JzYLRP+5jd/nicj9QPDvHn90lpjb/P7ySO7oDHI/EA9m6E/eQKwJxOv1 m8vaisn9QFjXTfFcQVwZiOGB6dW3iDnL0fTxlnCchNxfDvXTJOt1xFiOack5 nO/E3OVw0Rp/WyAl95djzosbfQ8Qa5Yjqs4zqaOM3F+Orr5TTfyJK5fj69Xy NieIOUHo5DxjmqGc3A9Cl6l77voRIwjS4pprh4m5QWjqddVCT0HuB8Fjd/2f BcSaIFw3rnDaRqwNQkm71z3qiSuDMFnpvtw2k9wPRu3VybMExGbBeLd8y+lS YgRjV4+Ft7ooyf1gbOzaTzqfmB+MR9tXvskh1gSjrMD6WwWxNhipBj4n+6jI /WDMGsidtpiYEwLTZQvF64jNQjBko/Oau8QIweM9NlGGWeR+CM6dejR4DjE/ BPwXTQcyiDUhyAof1f8UsTYE7knfI78QV4agfqZ2/4hscj8U3gfuP/UmNgvF jM28VmuIEYqZAXv7XybmhuKpnXJKEzE/FFdyOdwRanI/FL13PMv0JNaG4sS6 1xflxJWhOGJ62qiEmLMCz7Q/4l4Tm63A3GnG37utJPdXwPlr6ropxNwV6D8h bWkQMX8Feu9fOHsVsWYFdh2zCjhBrF2BqjMDDlQRV67AOfVI646ryP0wdD02 uW4MsVkYOjyyqlpEjDDs/1NukkrMDcOFD3dythLzw7BR8szzIrEmDKo/opBq Ym0YJsyYeaXDanI/DClOOUkWxJxwzHK6K3AmNgvHX6ZuL8OIEY4VMqctKmJu OC4lNpwoIOaH46ZXwKRrxJpwdPQ9ZlZDrA3HupP14XpryP1wbPvYaD6ImBOB R71PzZtGbBaBkr5GdZ7EiMDGVmd/xBJzI6A3TMxXE/MjkCLsxN9DrIlA7svv P88TayNQM/Lxtyf0fgSur50S/ZXe58HnzfrozmtbbMjDtMJlPwYTm/EgTq03 mExsxUPqUM12d2LwUPzu9PUgYjcenpxQZKQRc3koC7QtW03M40Fz++PefGI+ D/dG3+9/iljNw2qLHyNvEWt46DUs6PYr4iIe+nub9Wwk1vKwaWifbx1yWlzO Q3i3afH9iCt58BgcmzeauIEH0zZrfeyJOZEo6xdR5k5sGAmHp1df+hGbReJO WaAmhtgqEtNvNuqLiRGJt2MtTdcSu0WiV9PeF9uJuZE4X9nln2JiXiSSt79L PE/Mj4S69815t4nVkdC4TH1WSayJhM/FI2YfiIsicVK0z+Q3sTYSjtPX3Oiw jvSPRPusm3bGxJWRWPtO6zeEuKHZTWedrIk5UVi1akj9VGLDKDjUT3CfQ2wW BZNzU+MXEVtFwdMncZkfMaKQ+sTMIILYLQptzIISkoi5USg3SikUE/OiUHFI tFtNzI+C/QRN2AZidRQ6D3r/YwexJgo2oXz3IuKiKFioQmKPE2uj8G3PEf8L tH8UDuwIGVBG+0dBM0Fa8ID2j8KZzvrtX9D+0bheWTWmlvaPxidVJ8vPtH80 HllG/PpJ+0cjasyXTW1zSf9o9I1I796Z2C0aMQ4NXj2JudEo2zYgrR8xLxpt rGpjhhDzo9HN/S+HUcTqaFg7SWrGEmuikePwKWgycVE0iiOHnnMg1kbD3uT1 19nE5dE4VFjX1p24Mhqih98/eBA3RKMu79RRb2JODKLmfVwaSGwYgzfl0ytX EJvFwCF62fRoYqsYdBnxXpRI+8fAP3vNjnTaPwZXvn3bJab9Y7Ay9VBmJu0f gx8mgfNW0v4x6Fy0qymH9o9Bu95dxBtp/xist7b4spX2j8GLXysdd9H+Mahd ez29gPaPwSD3wE0HaP8YeJa+0Ryh/WOQ9fy24gTtH4v4JwVLtLR/LG6Hf+l+ kfaPhdvpocVXaP9Y+MefnlxG+8fi0gObfbdp/1gUHv+l/4D2j8Wr7Urnx7R/ LCTlC1Ke0/6xWGN7YW0V7R+Lhdsd897S/rEIPeikeEf7x2J/lXXgB9o/Fv/t CLb8TPvHIm+Ze9U32j8WiTGu4h+0fyy8PM/2+EP7x2F/rt6qVutJ/ziMfZD8 uy2xWRwy3iQv0ie2ioP/FW9NR2LE4fGptIouxG5xGDPTkmNEzI3D4THnevck 5sVh+g5lf2NifhzuDHrWuy+xOg7/5rRrZUqsiUPAP26PzYiL4jDYssOuQcTa OJiEpfoPJS6Pw+xXn7oPJ66MQ9vPBw6PJG6Ig52KM9uSmBOPkumDblnR/vEw nek1x4b2j8eH6IaScbR/PCYs7mdiS/vHY7rdoAg72r853wclk2n/ePw8UfR1 Ku0fj4RDRcPsaf94HOUmuTjQ/vGI+TkzZAbtH49H61ySHWn/eCyyKBU40f7x cFxXkzqH9o+HaPvbCGfaPx6XjL4tcqX949F/veP4ebR/AgzrOnecT/sn4Pq5 xPsLaP8EDH1yPHch7Z8AZRuOuwftn4BXPeNbe9L+CRiv57xnCe2fAL+XhU5e tH8Ctjy4ULmM9k+A3oSTEVzaPwHPEk9986H9E/B+xsdYP9o/AXsj09/70/4J CNbP9gqk/RMw32XmpeW0f/P9C1eHBdP+CZhjYS8Mof0TYau8cS+U9k9EnvXq gWG0fyK0x4qDwmn/RMR0XJAfQfsnItF/1Qse7Z+IX4vUPaJo/0T8uR1mH037 J2JN/9lBMbR/IiyqHeSxtH8ijtslbo+j/RNRntn+eDztn4iTxzpeTaD9ExHR ddvdRNo/EUmObx4m0f6JqM36/DCZ9k9ED9mruym0fxICnO9cTaX9k9Al5uGJ NNo/Cbu6GOan0/5JKN+fnc2n/ZNwZAUvSkD7N//88ytuQto/CV4jDo0Q0f5J WNs4nZNB+ydhvDD7FrU6CfdU+zaLaf8kXI46vFxC+ychru8xCyntn4Sk9mXv qcubfz9n/b0y2j8Jjzcn+8tp/yQkzpxkoqD9k9E0yvM6tWEyBj+rTcqk/ZNh KvhviJL2T8aMV7tvUCMZRkk/I1W0fzJql7TrnkX7J+PRnIoial4ylh3JmJNN +zfni02qqNXJ8O24J15N+zf/PtbTDVbS/smA66d11NpkWE++MmgV7Z+M/ZJ7 BdSVyWgfNcRmNe2fjGONl45Qc1Lw9MblCWto/5Tm/3+MO0JtloKkO39Zr6X9 U1DeLXMvNVJgcko5MIf2T8FMW8t11NwUfNyZbLCO9k/BpXp+IjU/BTtKnN5S q1NQEfnCPZf2T8F85/knqYtScPvvPYPW0/4paGXyUUZdnoJ1i6zrqCtTEOWe 4JxH+zffG3GjgJqTirXX7TpsoP1TUfXxagC1WSrWDJSeobZKRd3hhN4baf9U CO/kh1G7pWJQjNk5am4qzvtW99hE+6cicopBIDU/FaPjMg9Tq1PxZH58m820 fyoMP991pS5KxfuZBXnU2lT87NPuFXV5Kj50eTtyC+2fitSti6OoG1LRf5j/ UWpOGu7d7PyT2jANr3Z6TdHQ/mnYsNozjdoqDZ8WdzxNjTT4bYj7Re2WhpQH 2yZupf3TsGZFTiw1Lw2S3EVF1Pw02CbW1VCr07Co85KB22j/5ntjdy+mLkpD +4NPsqm1abAa/vMCdXkabAZ2aKKuTMNq/a4W/9L+aehl0XUZNScdkWe7ZlMb pqPwZc8z1GbpuJI9tJ7aKh1T9s/8azvtn46QLslO1G7pGO1bGkvNTccyR5ut 1Lx0WDtor1Hz03H3fPRXanU6zpu5m+6g/dPhssF7JnVROtp7a8KotekYJzRe Q13e/Pl6149RV6aj9sHpZ9QN6Rhb/qX1Ttqfj+nNf1BQ6/Pxe9xEJ2pDPsK/ uIRSG/PxV8oRJbUZH5GO0YXU5ny0OyO7QW3Fh5HdjzpqWz4O/LnacRf9/vhw mf5nOPUsPt4MX+dI7caH39Vcf2oPPhrN9QTUXD68J73cSB3Ex8Tq0SXUPD7c 23+6TZ3AR7XPyPfUfD70Dj3TyyeW8VGyq4sZtZqPkOenbKlzm/vU1btRa/hQ uW8Pos7n476iMp26iI+5nJ051CV8vO32vYBay8dKo/vnqEub93CaUUFdzgf3 48z31BV8PLF72mo33ZePlNkdelFX89HDrnw4dQMfJ43HTKFu5IPzztKNmiPA wL3XfKn1BXB0MoilNhSgYG+NhNpYgMf7wnOpzQS4PSRvN7W5AA6Pwo5TWwlw VvnuKrWtANVfejymhgCis+9qqWcJUJ4b+YPaTYAc43yDPXR/Abj31cbUXAG2 eI8aRh3UnJ+YPo6aJ8C+l1IH6gQB3MpnzaPmC+ATeX4ZtUyAoaOaQqnVApT5 vUugzhUgPHyDmFojgP2WDquo8wXQ2tttpi5q7p83cg91iQDbq58fptYKEOzn cZa6VIBHk3OuU5cL8K8m7wF1hQC84sCX1JUC9M39WUddLcDRAM/v1A2C5r+/ MlrtpfsL0L5jUkdqjhAjf07uSa0vhLdemSm1oRC7R1qaUxsL8c1/2RhqMyHG 7vK2ozYXIvGltQO1lRC/Wz2cQ20rhEed+wJqCJEs2rqUepYQ97df9Kd2a/68 4doV1B5CdHmzMoaaK0T7vZNSqIOEOPD3aRE1T4gpySaZ1AlCVBrNW0XNF+Lt Nd/11DIhLvu6aajVQoxWm+yizhXC1OBcIbVGiB9pjsXU+UKs3bL3OHWREJ49 P2ipS4SYKDW6TK0V4lFurxvUpUJoan/epi4XoqjP+QrqCiF6aFc8o64U4mxM UxV1tRAF14JrqBuEuP3P6Xq2vxAzt37/zPYXwW1irya2vwgBO03+sP1FmB3e rk0B3V+E7j0etKc2E8HGWN2J2lyENY1W3aitRNhgdbwnta0IYyZamFBDhAqZ 1JR6lghHV18fSO0mQt61n0OpPUToo+k5kporQlqayWjqIBEabnWwoeaJsKLN 2/HUCSK8TNxvR80XYVCe/1RqmQj6l/WmU6tFiPXJmUGdK8Lc0u5O1BoRNnmk z6XOFyEn7KErdZEIau7A+dQlzb+/3HMhtVaETlOEi6lLRUgvX7+UulyEN2u3 elNXiKD3bL0vdaUI7RuFAdTVImSO8QqibhBh1X3zUOpGEfaOeRNGzclAReZa HrV+Bg5aTIimNsyAp+e1WLZ/BtYudk9g+2fgTNj1JLZ/BiorJqay/TNQ9Dgv ne2fgdzDHwRs/wyc226bwfbPQO83sRK2fwZmHd4lY/tn4OHcMgXbPwMmb2qU bP8MTD32I4vtn4Flvzkr2f4ZWF79axXbPwMz9tevYftnoEx8P4ftn4Grm4tz 2f4ZaG8hz2P7Z8Bl2YKNbP8MRAf02sz2z4A77+YWtn8G7hekb2X7Z6DdrGH/ sv0z0Bh2aTvbPwMfnLx2sv0z4KRXt4vtnwHh9ajdbP8MLL74cQ/bPwM7jIML 2P4ZEL+vKGT7izElxH4/218Mr+JtRWx/MQ40/DrA9hcDDm6H2P5iBN3cWMz2 F+Py0ZeH2f5izDEdeJTtL4bt4CUlbH8xhtWqjrH9xeioPn6c7S+GzbgXJ9j+ Yrg2tjrF9hcj/Ptfp9n+YnRysz7D9hejXf/pWra/GEX8uWfZ/mJo1fPOsf3F CAmZd57tL4a7+dwLbH8x1r+yv8j2F+NWifUltr8YXU6bXmb7i1HVSa+U7d/8 +aeqmbViTHt76QrbX4z0rZqrbH8xHreOu8b2F0MxwPE621+M+d173GD7i5H9 /glzgxiDL24tY/uLkbPP9ybbX4Jfp/qXs/0laN3+IbOhBI0bs26x/SW4sAq3 2f4SfPpRz2wuwY636++w/SUoCrG/y/aXgL/2NTMksEqU3GP7SyAYOvg+21+C 54WnmT0kWNp/4QO2vwSXFLXMQRJk/5dcwfaX4Imyw0O2vwRp9jnMfAk6W/R/ xPZv/jzPHcxqCbY9Nn/M9pdg/sndzBoJHDqYP2H7S5B3+1/mIgmmDuz3lO0v wc12a5i1EhyQ6z9j+zd//8eTmMslKNhWy1whgaurx3O2vwRLrp1nrpag1cBR lWx/CSYvW8PcKEGpoomZI4XFwaUv2P5SnH92itlQinyTfi/Z/lJcjEhiNpOi 7O09ZnMp5ilHV7H9pdAESpltpahMf8oMKTq/GPOK7S9F7aoMZjcp+m6+x+wh hX7HIa/Z/lK0fhnFHCRF75FnmHlSTKk3eMP2l8LBZj4zX4pLrTYwy6SY6vOC WS1Fm8VD37L9pbBvCGbWNL9bFjDnSzGqz3vmIimkJRbVbH8pCo1CmbVSmFjm M5dKYd3tFXO5FGPOmdaw/aUY7ejBXCnFyJ1q5urm7+P1ZeYGKeIN/jA3SmHT x6aW7S/D/j7LmfVl8DfMYzaUYW3r68zGMqR+/cVsJoNNvcU7tr8Mhz4uYbaS 4U1bBbOtDDkWR5khQ2JYFfMsGYZc71LH9pdhmPNEZg8Zar74MnNlOHk5kzlI hldXDjHzZFj13yPmBBnKVrR6z/aXYWvPYcwyGX78nsOslmHvcB5zrgwJG1cz a2To6XmEOV8G08AK5iIZBl1oYi5p/j7jTerZ/jK8FNkxl8oQULeYuVyGRcUJ zBUyfH+Ww1zZvFdEMXO1DMVBt5gbZHh34z1zowycbQYf2P5yPHg7mFlfDmyb xmwoR7e7i5mN5fiZHs1sJkdhvpLZXI7LbjuYreR4nHSK2VaOkOH3mCHH+2V1 zLPkKOvXpoHtL0doUB9mDzl6249m5srRZ8/fzEFy7NmxmJknx3/jwpkT5Bjn JWTmyxHYL4dZJsfOhN3Majm+8U4y58oxV/8ms0aOTXjBnC/Hjb6fmYvkOLyh 7Ue2vxyjzvVk1srxSz2UuVSOKoMJzOVyrLZ0ZK6Q4wJnEXOlHEbCQOZqOQYU xzI3yCHKzWBulOOq1WpmjgJRaVuZ9RVoJ9rPbKhA/bRTzMYKbDxyldlMgaTq B8zmCry+/4rZSgE70UdmWwUu1/9mhgIVJh0+sf0VKNLvxeymwMpjA5g9FNhn OYqZ2/z5wbbMQQosD3Fg5ingbOPCnKBAz4sezPzm+2Z+zDIFdjqGMasVWGMX z5yrwI4ffGaNAi9lCuZ8BWa8Wc1cpMCV7puYSxTwN9rJrFVAr2ofc6kCmyVH mcsVMPhzhrlCgZGzS5krFagOLWeubu7nX8HcoIDAppK5sfne47fMnEyELPnA rJ+J2MPfmA0zUVvzm9k4E9lNbT+z/TPR93VHZvNMOBUaMVtl4pp7H2bbTCy4 358ZmVDbDmWelYlRSRbMbpko32DN7NF8b7MtMzcT+wRTmYMyYe74NzMvE0M+ ODEnZGJskiszPxP11QuYZZl4PcmTWZ2JXdHezLmZOKb2Z9ZkonB1MHN+Jlql hjMXZWKiczRzSSYetk1g1mZi8fYU5tJM2FkImMsz8XGjmLkiE9+/yZkrM6G1 y2Kubv79glYxN2TCU5DD3JgJPXEeM0eJUTGbmfWVmOi6jdlQiVW9djIbK7Hx 6m6d/ZU4Elqos78SDj+KdPZXYktcsc7+Sox4cVRn/+aftzuhs78Sk4WndfZX gnfsrM7+SoyvvKCzvxLPvl3W2V+JU7+v6uyvxKCvN3T2V8LnabnO/kpcOHJH Z38l1gru6+yvhOnUhzr7K1FY91hnfyXEqmc6+yvRYPZCZ//m73dXlc7+SkjN 3ujs3/x9q6p19ldC/r5WZ38liuzf6+yvxBf5B539lVBc+qizvxIHv3/W2V+J Hf2+6eyvhMa2UWd/FR7M+qGzvwoCl186+6twz+mPzv4qtJ/E+cL2V8FlYGtm cxUe/teG2UqFJ3faMduqINrcnhkq6HENmGepkGXckdlNhTmlnZg9VAiK6MLM VaFHF0PmIBXitndj5qlw0ro7c4IKXY/1YOarsGZCL2aZCsn7ejOrVXjZrw9z rgpfxCbMGhXuvOnLnK/CbvRjLlJh7WpT5hIVTj/vz6xVwWnIAOZSFZz9BzKX q5r//h7EXKGC/83BzJUq7Ps5hLlahV8DhjE3qBAy3Zy5UYXuXsOZOVkwjRrB rJ+F9YKRzIZZ2JdpwWychTD1KJ39s/Ar21Jn/yyEK0br7J+FqnQrnf2zEMEb o7N/FiyXWuvsn4WJDjY6+2dh55CxOvtnIavNOJ39s9DhqY6DsjDi4Hid/bNg IJqgs38Wzrja6uyfBa7xRJ39m/s80bE6C7s32ensnwWh5ySd/bOwqvtknf2z 8LlUx0VZOJw0RWf/LNSYT9XZPwv/3tFxaXM+aZrO/lloMIXO/s0/f0bHlVkw 87LX2T8Lid913NDcN2u6zv5Z+D3QQWf/bMws1rF+NvZM/1tn/2yML9OxcTa+ Lpyhs382/jzRsXk2PLgzdfbPhtELHdtmw87bUWf/bFQ++p//D6I9pJs= "]]}}, {}, {}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 2.3675395069555254`}, 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, 1000.}, {2.49, 4.9392098608895}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6961893369525404`*^9, 3.6962764137211757`*^9, 3.6962837727030854`*^9, 3.696284386173174*^9, {3.698762135718943*^9, 3.6987621752359257`*^9}, 3.699036540980123*^9, 3.69904290109009*^9, 3.700912508447586*^9, 3.701705232643724*^9, 3.706897245527033*^9, 3.706897329078245*^9, 3.7069583796422453`*^9, 3.7092999138798847`*^9, 3.70930016343519*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Effect Sizes over time", "Section", CellChangeTimes->{{3.7089647424887733`*^9, 3.70896476122825*^9}}], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709299938216723*^9, 3.709299941303628*^9}}], Cell[CellGroupData[{ Cell[BoxData["\[Beta]HOdiff"], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"bH0", " ", "\[Alpha]"}], "+", RowBox[{"bP0", " ", "\[Alpha]"}], "-", RowBox[{"eH", " ", "\[Alpha]"}], "+", RowBox[{"eP", " ", "\[Alpha]"}], "+", RowBox[{"bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"bP2", " ", "pP2", " ", "\[Alpha]"}]}], ")"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH1", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH2", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.709300010861479*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PlotHOdiff", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HOdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HOdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HOdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HOdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHOdiff", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxN13dUk/fbBvC4cePGHa1V3KiouC83IlVERdwRAZkSdtjZO4G6qlZtqtY9 qHXgqEYc4Cyuljpq6h5VqdZRXG/e8+vz3Hf/4XzOlztXLq7T09MOYQnBEVUl EsmjahLJ///83z8VI/73895/PyW4PMpffvbR3f/sgbW3S6bZLgn2RA/fCV0W HRLcFGeqP9qZsEGwF4L1zSoOWQW3wd5r49bMShMsxdkugzfPkwnuiG+yTeZr AYI7YVwn35Dz/QV3xqnrs3dP6iDYG65nyWci6wvuBt3uxbK2lXf+cw80f/Bm f8ZDwb2w5+XDVaprgn1w/asB0YNOCu6DX5s9+3LjT4L74pPvKu2JDYL7wbVi WrWVywT74k3J8qod9IL74339J7fnKAQPwM4F5xtNiBU8EOta3h59Z55gP8y+ cD+p01TBg5B8402tuv6CB+P4zLSXBcMED0H0CZ2zsJ/gofgnb/u+8G6ChyGv 2Hx7UwfBw5HrWuGd2FLwCDx7eyTq50aCgaZL66bo6vxnJXCqcUyXE9WE95Fo ODojWf7xz//eR6L13cMRhrf/WTIKoyO7+lR9KbyPwm8tJ/e+8ZfwPhoLUjq9 qPdIeB+N4w/291pyV3gfg7ipZXcibgvvY7DUfHCg5obwPhavJH5L7v8mvI9F ZMHdfONV4X0cJlie14y6JLyPQ9Yf6TWUF4X38TiXlV12/pzwPh6Lb2beCTgj vPtj1he/P35zWnj3x/txbUounBTeJ+D13g/m88XC+wTktlqYUuEU3gNwUBby fMAx4T0Ai7Pv2Nb+LLxPxNCYTw07HhHeJ+JWQdqM4kPCeyC+L7kdk31QeA/E 2fAVSZOKhPev8Lry3P4BB4T3r/D07A9r++0X3ifhekT81tH7hPdJGGK4mhax V3ifjPjzgYe/+Ul4nwzLuuTRv+8R3oMQKlvyt7dgBCH9cN8juh+F3w/CkCOn dzwv/M/OINzwD/8jTLBkCr6LWJr9527hfgoUG3oVRwtWToG21vR3lbuE+ymo XxiXukywJBifUvqv6S8Ywah37Mn1WzuF+2DUKEveZhXsDIaq6HvbSMGSqVgw ONPzww7hfip63bSXHBasnApJ+vzJSsHOqfjDXjJxgmDJNHx/PnVRc/F+GgLe xk19uF24n4ZNl22nDwt2TgOCuuYsFSyZjjzDar/FgjEdLf5+eHSieD8dYdGx 17uL99MRpVXObCDeh6DFKb8Gr7YJ9yHoGdTs4u+ClSEIOXgqsViwMwSZ+U+v 7hAsmYHfgu9cWynez0BjnWW6XryfgRJju4Gp4v0MPK/zYX6EeB+KLvu0B0LE +1Dk//Wy8wTxPhTLwgeuGirehyJuSnmlj3g/ExG1rwzqLN7PhOlh3tg24v1M 5I1VNGgi3s+ELCJXX0e8n4UuXRY5qor3s3B2UY2g91uF+1koedLc/I9g5yyc L+w75rlgyWzsdBSlPBKM2YiLLm58V7yfjR76Zs3/EO9no2BS8/Tfxfs5mP/5 cK9r4v0c9NuqG3BJvJ+D8lcJxgvi/RwYNz1td1a8n4uwB1f/OS3ez0VE29ga J8X7uQjPmRB4XLyfi0FNZKeOivfzoJj/LO6IeD8PphjFiEPi/Tx8DDg3qEi8 nwd9s+eh+8X7+Vjaq+PqveL9fIS+uVW5R7yfjymlpYofxfv56OB/oFGheC/D tdebT+wSLJVhcnWndaf4eTIUxfnH7hAsk8E+ePvc7eLny1BeNzFsm2CHDMXH hyu2inkyXJx7Ze0WwS4Z4j1qXt4s5i/ArmEnm4iWLsDUtp5hm8T8Bci88enw D2L+AuRNPiAVrVyA4nXy/I1i/gL0q5JYS7RzAUrX1jNuEPMX4GH2Rk/RkjBM zP/BsV7MD8OOEsNA0QjDnbEXrn4v5oeh5ZIqCtHKMDx8UCQV7QhDb1P+RYeY H4ZdPbqqRLvCEBru4ydashC2tiGvvhPzF2Lql1P2iMZCPNl/K0W0bCEeN/55 sGjlQnzVbl810Y6FuOdR8Ms6MX8h0itbrxPtWoihp7sliJaEo9XGr0eJlobD 74W3l2iEw/743Iu1Yn44qmtDz4hWhqO02+6Noh3hWLJ8j0q0MxzKb8fLRLvC MbHOdIiWRGCl8kQH0dIINJ2YU100IoAxix+tEfMjsGu/5oJoZQRSRu74SbQj AgeP/rZatDMCfXq8VYt2RUC2/EOsaEkkcj5fny5aGok/Q/QQjUhcnvuqO+VH YvOaFl6UH4k2Ux9Xp/xIFMXMf/mtmB8J/5hEl2hXJIbFtPhFtGQRKmsHHBUt XYQHEVV3icYiDG8weJ1o2SKs+fTELlq5CJ1WNFSKdizCsIL1iZS/CK6P6xZS /iJEjJCEUH4Uznw67k/5UZjZzTWE8qNw+UVIb8qPwpUDHb+g/Cjs6oAWlB+F 3M/b61J+FFYFL5RQfhT8/Be+Xi3mRyN8wNYnoqXRaLOqr0s0ovFTw4/XRMvc vz+r5nnRymjUDg0sFu2IRp3qF4pEO6MRl6LfLdoVjSrlaZsoPwZnUtaspfwY zN/0ehnlx2DpTaWV8mPQZPVQLeXHwC+5Szblx+BWPaRQfgxCWuviKD8GaQte h1N+LLbuzp9L+bHwuhscQvmxeHhv2GTKj0Xm1sn+lB+LC70NIyk/FmeVdwdT fixO7FroS/mxuHW1Zi/Kj8OK5ue7UH4cAr/b04Hy43Dp+4OtKT8OlTNczSg/ DlOqdvak/DhseWiqQ/lxuDatbg3Kj8OsNVs/rxLz49GpeXilaGk8RrUf/Fo0 4rGlZfcK0bJ4vI4d8FS0Mh6DVLMfiHbE43Tpqj9FO+NRua/ipmhXPJo555dT /mJ4hj24QvmLIW+l/YXyF8M71u8c5S9Gwu9VSyh/MdY/u1NM+YvRuV/5Ucpf jAC/O4cofzG62iUHKD8BS0v7/kT5CXiVo9hN+QkYOv7SdspPQMmxoVsoPwFT dIc2Un4Crg4M+J7yE6DJeLqW8hNQ+HztasqX49iwBd+I9pSjccP+y+j7yFGl fsuvRfvIcfJuPTt9PzkiR3paRAfJcfRaRyN9XznmB4/RiZbLoYtJUdP3l6Pp lT15ogvksIz6nE195KiQz8wUXSjH5RbH06mfHH4v+6eKLpNj5ZEDSdTX/fu+ 4+SiK+To1OrPeOqfiPY9jbHUPxGbew+Jpv6J+PPev5HUPxG+jU6GU/9EDM1c FUb9E1H6IENG/RNxvl3EPOqfiLCns+ZQ/0QcbT57FvVPRPe4iFDqn4iqRRkh 1D8R20q+mUb9E2GIPhZM/RMhia8Iov6JSFvfbTL1T8SwG/FfUf8kLHt8cCL1 T8JmR4MA6p8E/dVYf+qfhA6zLo2j/kkYXWvEWOqfBPuevaOpfxLS+vUdRf2T MDTsAKh/Ep63GDOC+idhbq/yYdQ/Ca2VyUOpfxKyHjUbQv2TYBx9bBD1T0LV xQl+1D8J88Z2Hkj9k3B0893+1D8ZFcmbfal/MmJNif2ofzImlo7sS/2TMaGR Vx/qn4zisf/0pv7J2Db+117UPxn5//7ck/onY9nw7T2ofzLiKtd2p/7JmN1o RTfqnwyfqKVdqX8yxt5b7k39k6GIXduF+rt//97WztQ/GUH9D39J/ZMxbNyl TtQ/BeWfnn5B/VOQNb4uWZqCSo/eHal/Ctb0mNGB+qeg9RqNlPqnYP3Ive2p fwrO13rcjvqn4LvfO5CVKTCun9eW+qdg4aTv2lD/FMSdudua+qdgnKQH2ZmC f26nt6L+Kbg5vaQl9U+Bc3IrckUKjh2We1H/VEwxnm1B/VMRsLELWZqKK58M zal/KmIMT5tR/1T82TOYHJSKuXcON6X+qQhe7k2Wp0I7cGUT6p+KaofqkAtS 0b2BsjH1T8X6L981ov6pmP0yiexMhSmywpP6p2JripzsSkVOw1cNqX8q6nRT kCVpWH7gcwPqn4ZN201kaRqqVjYj+6Rh14qN9al/Gp6m9icHpaG/tbQe9U/D 2ItzyfI01Onzui71T8POrXZyQRpsPbuRHWkYuaekDvVPw5Kei8jONKiWe5DL 0jDMtb029U9Dj+pTyBVpuP32rQf1T0frPQ6yZzqudp1Ilqaja8jbWtQ/HTG9 fiAjHY23TSMHpeOkswZZlo6gmKKa1D8de9bFkZXpqBfSkVyQji3G32tQ/3T8 22sJuTAdy0cGkp3pGHqwFrksHWX2k9WpfzpmHlaTK9Ih8RtFlijQ9FNVsqcC 1Wudqkb9FVgQaCT7KHCzJJAMBcYnNyYHKbDU//eq1F+ByyO/J8sV6DMzhqxU 4IPRl1ygwLfnPleh/gosa32eXKiANXkV2anAkIuLyGUKZHYeSHYpMDS9FrnC fX+4XEL9M1DwfBvZMwOaurlkaQaO1g8m+2RgR0VnMjJwdfeHzyvF/hm4NO4K WZaB6T9uI8sz0PWpmqx0u2I2uSADAUf6kx0ZWDLRk1yYgbarn34S7cxw//97 CbksAxciNpJdGbDcUJEr3H2qyMiSTNy+OpzsmYmcKe3I0kwMSPn0UbRPJooG 3SYjEyXrnOSgTPR1rCfLMnFjsI4sz8RPsVFkZSZ+7h1ILshETa0P2ZGJHyOa kQsz8fhS5Qfqn4lnp1zkskxUH1FCdmXCNHgXuSITd/YtJ0uyoN6VQ/bMwsMO kWRpFhz1J5N9sjAuwY+MLOSO6UgOykKluR5ZluX+N+Tte+qfheNhd8jKLGx5 cYFckIUG9w+SHVm4iU3kwix4VFlKdmah4Aslucz9fTbFk11ZeGCYTa5w+9QE siQbG+b5kT2zMSmoC1majY6rmpN9shE2sCYZ2ZjR9U0l9Xc7/gFZlg1nld/I 8my8vldCVmYjvNlBckE2NF9vIzuy8cuMNeTCbFyMtJOd2aj7s5Jclo3WM5PJ rmysHBRJrshGl7kzyZIcJBQHkj1z0CEKZGkO/gn0JfvkYGOCNxk5eHuxDeuf g/3RjVj/HOwZXpP1z8HxwPf/Uv8cOJdUkAtykN/wAdmRg5bFN8iFOZiw9RLZ mYOmJ0vIZTmQNzpKduVgbsFeckUObo7YTpbk4k279WTPXBzosYoszUWfqAKy Ty4yywxk5GJneB45KBdPvkgny3IxrX4CWZ6LZtJFrH8uQmfPZ/1zMeXoDNY/ F339g1j/XPi+82f9c/HNhZGsfy5Wlwxm/XOhvd+P9Xe/d+7J+uehm7kz658H bUMp65+H9/tasv55eJjdhPXPg2NhfdY/D/roWqx/Ht7aqrD+eZhZ9v4d9c9D I5835II8mHdUkB156Df2KbkwDxn/3ic783Cp1EUuy8PuPTfIrjzY9v9KrsjD /SuXyBIl+te5QPZQ4mNoKdlTiePHTpC9lKg5/BhZqsS0K4fI3u7Py9tP9nF7 5B6ynxL3vHaRocSVGtvI/kqsqLWJHOTOb7ueHKrE0/HryDIl9uhWk6OU2Pnr CrJciezBS8kKJZyF+ezvr4TXICvZqES3K0a2hxKrc3XklUo0HKJm+yjRzyOP vEWJwvtZbC8lfK8oyEVKxJSlsv2UqHEriVyqxL53CWxPJXp8EU8uV0I6J4bt q8S4DYvIj5QIeRfO9lbCY3YY+Z2777n5bH8V4D+X7a/C8Muz2P4qlEWFsv1V 2Fc3hO2vQuGhqWx/FdSpU9j+KjwfMpntr8LB+l+x/VXY9iSA7a+C/rI/218F r1Pj2P4qdC4ew/ZXIefMKLa/Cg+vg+2vQp83w9n+KnRtPYztr8LaCUPY/irM UQ1i+6swsHgg21+Fz3UHsP1VMM7zZfursPFgX7a/Cl3a9mH7q/DA2Jvtr0LR h55sfxWSFD3Y/io8e9+N7a9CFUNXtr8KhpbebH8VZv3Ume2vwtRpX7L9VZj0 4Qu2vxre2zuy/dU4IuvA9lfjSRsp21+N/Nvt2P5qmLe0ZfurcTi9Ddtfjapf tWb7qzHCuxXbX43ptVuy/dXoXNGC7a/G0pvN2f5qqC82Y/urce1UU7a/GvLi Jmx/NQafbMz2V6P5uUZsfzWe/erJ9ldjw8OGbH812n9swPZXI7AFs0ONhgPq s/3VmDKzHttfjffKumx/Nd7uqMP2V6PXrdpsfzWsjZjL3PcTPNj+akTqa7H9 1Sg6XZPtr8YfdZgr1DgZXIPtr8aMddXZ/hronlVj+2swGMyeGkSuqMr21+D1 iypsfw1+DWT21qByh4Ttr8FkT2Y/DU6mfX5L+2sQ4PpE9tfgciBzkAaBRz6S QzXY3ItZpkH5hg/kKA3Ot2aWa5C54j1ZocEvTZiVGhQvrSQbNRjdnLlAg7Hf /kteqcGRjswODVbveEfeosE1P+ZCDWQlb8lFGvQOZXZq0P/pG3KpBtFK5jIN jrZgLteg+4+vyS4NNgYyP9Kg/ZN/yBUafG1ifqfB392YJVr4XnxF9tAiOJnZ Uwu0YvbS4nXxS7JUi+h4Zm8tlrRk9tEiquRvsp8WrjRmuD+vC7O/FuuuV7D9 tbhkZw7VwjiGWabFkfcv2P5ahO1llmuRtphZocWLrsxKLU4/eM72d3+fjcwF WiSHM6/UYtiXzA4t/B8+Y/trUbCNuVCLhgnMRVoc82V2arHy/V9sfy2WnWAu 06LQylyuxb0QZpcW3TsyP9JC+fwp21+Lm4eZ32kx1Mws0WH1TGYPnfvvw+yp g9/7J2x/HRIvMEt1WOJg9nZ/Xgqzjw7qCcx+Ooxvzwwd7r5+zPbXYeoF5iD3 5//AHKrD2lxmmQ6LQ5mjdKjWj1muw4wGzAodIp88Yvvr0KuE2ajDlo3MBTpc VTOv1GHHAmaHDr1HMm9x53VgLtShQ1XmIh2sdx+y/XVYeoq5VId+W5jLdIiy MJfr0DeB2eX+vKnMj3RI8mOucP992zK/0+FmNWaJHrOfPGD7u32J2VOP60XM XnqUO5ilegSZmL31GJnE7KPHltnMfnqoxjJDj/O9mf310LdiDtJjRw3mUD2G /32f7a+H3y3mKD2+OcMs12PufmaFHpoNzEo96nzNbNTjRS5zgR594plX6nFx NrNDj5MBzFv08BzMXKjHnq7MRe6/R0tmpx4VtZlL9TBW3mP767H4KXO5Hhtu Mrv06HiR+ZEefx1jrtDj84/M7/QI3cgsMeDtCmYPA26YmD0NqJLD7GVAjJxZ akCTcGZvA97PYPYxQBrI7Gdw/xefGe73/sz+BrzryhxkgEd75lADgpsyywy4 VJs5ygD957tsfwPkr5kVBtieMisNuPUns9GAeeXMBQZ4/sK80oCXp5gdBlT9 mXmLAdjLXGjAtu3MRQaM3MDsNKDat8ylBjxfwlzmfrcwl7s/X8PsMuCHLOZH BvRJYa4w4E4c8zsDDkUwS4zYP4/Zw4hfZzB7GtFyCrOXEbkBzFIjqo9h9jZi 5zBmHyPSBjL7GTGvDzOMiOzO7G+E9UvmICN+ac8cakSfVswyI3Y3ZY4yIqAh 39+Iz7X5/kaUVef7G3H48x22vxHOSuYCI26/Zl5pRPO/mR3u7/8X8xYjLj5k LjRi0l3mIiPu/8HsNGLJdeZSI6b9ylxmRK/LzOVGtLnI7DKi/VnmR0YMOM1c YcSCYuZ3RjiOMktMeHmI2cOE0APMniZc/InZy4QZhcxSE17tYPY24butzD4m zNnE7GdC9w3MMKG2g9nfhLdrmINMeLOKOdSEat8wy0yQLmOOMiHga2a5CVo7 s8KE8xZmpQkdTXx/E3R6vr87X8P3NyFFxfc34XMu39+EFdl8fxMGZfL9TXiS zvc34YdUvr8Jccl8fxNGJPL9TWiTwPc3oUY839/994vh+5vwOorvb8LHSL6/ GQ0i+P5mdF/I9zcjaAHf34y8+Xx/M4rm8v3N+Hc239+M0bP4/masCOX7m/Ey hO9vRsh0vr8ZxVP5/mYMDOb7m7EniO/vfp/M93fff8X3N2NaIN/fjBcBfH8z vp7A9zdjkD/f34zH4/j+Zqwby/c3Y9YYvr8Z7Ubz/c14MJLvb8Z+8P3NsI7g +5sRNZzvb0bAML6/GT5D+f5mtB3C9zej4WC+vxm1BvH9Lajmx/e3oOZAvr8F 9Qfw/S1o2Z/vb0E3X76/BejH97dgVl++vwWZffj+Fqz14ftbcKo339+Cil58 fws6csssCOnJ97cgvwff34Jz3fn+FtTjVloQ1I3vb8HKrnx/C+558/0t8OV2 WKDvwve34FZnvr8FA7iLLFj2Jd/fgn868f0tmMFdZsHRL/j+FnThdrk/ryPf 34Lq3BUWpHfg+1vwl5Tvb0U4t4cVf7Tn+1sxh9vLilvt+P5WyLi9rbjflu9v RRy3nxVv2vD9rVBz+1vRiDvIivWt+f5W+HLLrDjbiu9vRRi33Ir3Lfn+Vqzg Vro/j9toxVUvvr8VqdwrrWjJ7bDiaAu+vxUR3IVWNOAusqKoOd/f/ffnLrWi CXeZFSea8f2tSOF2WdGZ+5EVN5ry/a0o4H5nhT+3xAYJt4cNh5vw/W1I4/ay oR+31Ia/G/P9bSjk9rEhkdvPBl9u2PC2Ed/fhiPcQTaouENt8OeW2eDJHWXD dU++vw0buBU2JHArbRjCbbShNneBDeUN+f42bOZ22KDg3uL+ftyFNrTiLrLh eQO+vw3F3KU2fMNdZkM8d7kNo7ldNrTmfmTDq/p8fxsucL+zYRO3xA4Vt4cd c7g97fDj9rKjGbfUjpf1+P52lHH72LGb28+OAm7YkcDtb0cQd5AdfblD7WjK LbPjTV2+vx3XueV2/MytsGM9t9IOA7fRjnjuAjuCuVe6/x7cDjuk3FvsqMVd aMeLOnx/O8q5nXY4uUvt2MZdZscy7nI78rhddkRzP7JjOneFHeB+Z0cPbkk+ WnJ75KMGt2c+Xtbm++fDxS3NxwVu73wc4fbJxzZuv3ys5kY+zP/5/wBqE8pA "]]}, {RGBColor[1, 0, 0], PointSize[0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULhIsSCELISiDQlgrmQ4AuZewmXuIRAwZ5bb3AMJ YO4tXW7pckt3jETjckuXW7rc0iWKiIT+Z5rVs59efXr1vfa5F559/lUhhNur Q3j5+783P/3kEy+///z7lR/xoR/BC/wavMSP4gq/Dr8evwGv8Bvxm/BjuMaP 4zfjJ/CT+C34rfhteI3fjt+B34nfhd+Nn8JP4/jQGYf3MMfhvcxxeB9zHN7P HIdnmOPwAeY4fJA5DhvmOHyIOQ4fZo7DR5jj8FHmOHyMOQ4fZ47DJ5jj0Dx0 xBkXHD5JHmdccHiWPM644PAp8jjjgsOnyeOMCw6fIY8zLjh8ljzOuODwOfI4 44LDljzOuODwefI444LDF8jjjAsOXySPMy44fIk8zrjg8GXyOOOCw1fI44wL Dl8ljzMuOKSHrnDECWfc44InHL7Gfhxxwhn3uOAJh+fYjyNOOOMeFzzh8HX2 44gTzrjHBU84fIP9OOKEM+5xwRMOz7MfR5xwxj0ueMLhm+zHESeccY8LnnD4 FvtxxAln3OOCJxx27McRJ5xxjwuecPg2+3HECWfc44InHL7Dfhxxwhn3uOAJ h++yH0eccMY9LnjC4XvsxxEnnHGPC55w+D77ccQJZ9zjgiccfsB+HHHCGfe4 4AmHF9iPI0444x4XPOHQPvQCV7jGETc44RZn3OEeD7jgEU94xuGH9McVrnHE DU64xRl3uMcDLnjEE55x+BH9cYVrHHGDE25xxh3u8YALHvGEZxx+TH9c4RpH 3OCEW5xxh3s84IJHPOEZh5/QH1e4xhE3OOEWZ9zhHg+44BFPeMbhp/THFa5x xA1OuMUZd7jHAy54xBOecfgZ/XGFaxxxgxNuccYd7vGACx7xhGccfk5/XOEa R9zghFuccYd7POCCRzzhGYc9/XGFaxxxgxNuccYd7vGACx7xhGccfkF/XOEa R9zghFuccYd7POCCRzzhGYdf0h9XuMYRNzjhFmfc4R4PuOART3jG4Vf0xxWu ccQNTrjFGXe4xwMueMQTnnH4Nf1xhWsccYMTbnHGHe7xgAse8YRnHH5Df1zh Gkfc4IRbnHGHezzggkc84RmH39IfV7jGETc44RZn3OEeD7jgEU94xuF39McV rnHEDU64xRl3uMcDLnjEE55xyA/9CF7gJa7wCtd4jSPe4AZvccI73OI9zviA O3zEPT7hAZ9xwRc84iue8A3P+I7D77k/XuAlrvAK13iNI97gBm9xwjvc4j3O +IA7fMQ9PuEBn3HBFzziK57wDc/4jsMfuD9e4CWu8ArXeI0j3uAGb3HCO9zi Pc74gDt8xD0+4QGfccEXPOIrnvANz/iOw4vcHy/wEld4hWu8xhFvcIO3OOEd bvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhJe6PF3iJK7zCNV7jiDe4wVuc 8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+4/BH7o8XeIkrvMI1XuOIN7jB W5zwDrd4jzM+4A4fcY9PeMBnXPAFj/iKJ3zDM77j8Cfujxd4iSu8wjVe44g3 uMFbnPAOt3iPMz7gDh9xj094wGdc8AWP+IonfMMzvuPwZ+6PF3iJK7zCNV7j iDe4wVuc8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+43Dg/niBl7jCK1zj NY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+H+eIGXuMIr XOM1jniDG7zFCe9wi/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw5/5f54gZe4 witc4zWOeIMbvMUJ73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7Dn/j/niB l7jCK1zjNY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+f+ eIGXuMIrXOM1jniDG7zFCe9wi/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw7/ 4P54gZe4witc4zWOeIMbvMUJ73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7 Dv/k/niBl7jCK1zjNY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc8 4zsO/+L+eIGXuMIrXOM1jv/3fwHfLRxY "]]}, {RGBColor[1, 0, 0], PointSize[0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0tDtaXLLU3FlC63dLmlyy1dRhFI6H+mWT376dWnV9+rnnnh6WdfFkK4vTyE l77/ffPj//rnS+/f//nfj/jQj+AFfgVe4lfiCr8avwa/Fq/w6/Dr8aO4xm/A b8Rvwm/Gb8FvxW/Da/x2/A78Tvwu/G78GH4cx4fOODzBHIf3MMfhSeY4vJc5 Dk8xx+F9zHF4P3McNsxx+ABzHD7IHIcPMcfhw8xx+AhzHD7KHIePMceheeiI My44fJw8zrjg8DR5nHHB4RPkccYFh0+SxxkXHD5FHmdccPg0eZxxweEz5HHG BYcteZxxweGz5HHGBYfPkccZFxw+Tx5nXHD4AnmcccHhi+RxxgWHL5HHGRcc vkweZ1xwSA9d4YgTzrjHBU84fIX9OOKEM+5xwRMOz7AfR5xwxj0ueMLhq+zH ESeccY8LnnD4GvtxxAln3OOCJxyeZT+OOOGMe1zwhMPX2Y8jTjjjHhc84fAN 9uOIE864xwVPOOzYjyNOOOMeFzzh8Bz7ccQJZ9zjgiccvsl+HHHCGfe44AmH b7EfR5xwxj0ueMLh2+zHESeccY8LnnB4nv044oQz7nHBEw7fYT+OOOGMe1zw hMML7McRJ5xxjwuecGgfeoErXOOIG5xwizPucI8HXPCIJzzj8F364wrXOOIG J9zijDvc4wEXPOIJzzh8j/64wjWOuMEJtzjjDvd4wAWPeMIzDt+nP65wjSNu cMItzrjDPR5wwSOe8IzDD+iPK1zjiBuccIsz7nCPB1zwiCc84/BD+uMK1zji Bifc4ow73OMBFzziCc84/Ij+uMI1jrjBCbc44w73eMAFj3jCMw4/pj+ucI0j bnDCLc64wz0ecMEjnvCMw57+uMI1jrjBCbc44w73eMAFj3jCMw4/oT+ucI0j bnDCLc64wz0ecMEjnvCMw0/pjytc44gbnHCLM+5wjwdc8IgnPOPwM/rjCtc4 4gYn3OKMO9zjARc84gnPOPyc/rjCNY64wQm3OOMO93jABY94wjMOv6A/rnCN I25wwi3OuMM9HnDBI57wjMMv6Y8rXOOIG5xwizPucI8HXPCIJzzj8Cv64wrX OOIGJ9zijDvc4wEXPOIJzzjkh34EL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAd PuIen/CAz7jgCx7xFU/4hmd8x+HX3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8 wB0+4h6f8IDPuOALHvEVT/iGZ3zH4TfcHy/wEld4hWu8xhFvcIO3OOEdbvEe Z3zAHT7iHp/wgM+44Ase8RVP+IZnfMfht9wfL/ASV3iFa7zGEW9wg7c44R1u 8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+F33B8v8BJXeIVrvMYRb3CDtzjh HW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4ffcHy/wEld4hWu8xhFvcIO3 OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhD9wfL/ASV3iFa7zGEW9w g7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+GP3B8v8BJXeIVrvMYR b3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4cD98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xP3xAi9xhVe4 xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7M/fECL3GF V7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sL98QIv cYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+yv3x Ai9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7G /fECL3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc /s798QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jG dxz+wf3xAi9xhVe4xmsc/+8XAZaETG8= "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.006944444444444445], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-0.15000000000000002`, 0.625}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-Pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.7093003912386627`*^9, 3.709300396573881*^9}, { 3.709300539132701*^9, 3.709300548387629*^9}}], Cell[CellGroupData[{ Cell[BoxData["\[Beta]HPdiff"], "Input", CellChangeTimes->{{3.709300723307468*^9, 3.7093007254341793`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"(", RowBox[{"2", "-", RowBox[{"bH0", " ", "\[Alpha]"}], "+", RowBox[{"bP0", " ", "\[Alpha]"}], "-", RowBox[{"eH", " ", "\[Alpha]"}], "+", RowBox[{"eP", " ", "\[Alpha]"}]}], ")"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH1", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{"-", FractionBox[ RowBox[{"bH2", " ", "\[Alpha]"}], "4"]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", "0"}], ",", RowBox[{"\[Beta]P1", "\[Rule]", FractionBox[ RowBox[{"bP1", " ", "\[Alpha]"}], "4"]}], ",", RowBox[{"\[Beta]P2", "\[Rule]", FractionBox[ RowBox[{"bP2", " ", "\[Alpha]"}], "4"]}], ",", RowBox[{"\[Beta]P12", "\[Rule]", "0"}], ",", RowBox[{"\[Beta]H1P1", "\[Rule]", "0"}], ",", RowBox[{"\[Beta]H1P2", "\[Rule]", "0"}], ",", RowBox[{"\[Beta]H2P1", "\[Rule]", "0"}], ",", RowBox[{"\[Beta]H2P2", "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.709300725887599*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PlotHPdiff", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HOdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P1"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P2"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P12"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P1"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P2"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P1"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P2"}], "}"}], "/.", "\[Beta]HPdiff"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}, {3.709300737008205*^9, 3.709300786356876*^9}, {3.709300875075034*^9, 3.70930088404445*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHPdiff", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}, {3.709300791805314*^9, 3.709300835046307*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxN13dUk/fbBvC4cePGHa1V3KiouC83IlVERdwRAZkSdtjZO4G6qlZtqtY9 qHXgqEYc4Cyuljpq6h5VqdZRXG/e8+vz3Hf/4XzOlztXLq7T09MOYQnBEVUl EsmjahLJ///83z8VI/73895/PyW4PMpffvbR3f/sgbW3S6bZLgn2RA/fCV0W HRLcFGeqP9qZsEGwF4L1zSoOWQW3wd5r49bMShMsxdkugzfPkwnuiG+yTeZr AYI7YVwn35Dz/QV3xqnrs3dP6iDYG65nyWci6wvuBt3uxbK2lXf+cw80f/Bm f8ZDwb2w5+XDVaprgn1w/asB0YNOCu6DX5s9+3LjT4L74pPvKu2JDYL7wbVi WrWVywT74k3J8qod9IL74339J7fnKAQPwM4F5xtNiBU8EOta3h59Z55gP8y+ cD+p01TBg5B8402tuv6CB+P4zLSXBcMED0H0CZ2zsJ/gofgnb/u+8G6ChyGv 2Hx7UwfBw5HrWuGd2FLwCDx7eyTq50aCgaZL66bo6vxnJXCqcUyXE9WE95Fo ODojWf7xz//eR6L13cMRhrf/WTIKoyO7+lR9KbyPwm8tJ/e+8ZfwPhoLUjq9 qPdIeB+N4w/291pyV3gfg7ipZXcibgvvY7DUfHCg5obwPhavJH5L7v8mvI9F ZMHdfONV4X0cJlie14y6JLyPQ9Yf6TWUF4X38TiXlV12/pzwPh6Lb2beCTgj vPtj1he/P35zWnj3x/txbUounBTeJ+D13g/m88XC+wTktlqYUuEU3gNwUBby fMAx4T0Ai7Pv2Nb+LLxPxNCYTw07HhHeJ+JWQdqM4kPCeyC+L7kdk31QeA/E 2fAVSZOKhPev8Lry3P4BB4T3r/D07A9r++0X3ifhekT81tH7hPdJGGK4mhax V3ifjPjzgYe/+Ul4nwzLuuTRv+8R3oMQKlvyt7dgBCH9cN8juh+F3w/CkCOn dzwv/M/OINzwD/8jTLBkCr6LWJr9527hfgoUG3oVRwtWToG21vR3lbuE+ymo XxiXukywJBifUvqv6S8Ywah37Mn1WzuF+2DUKEveZhXsDIaq6HvbSMGSqVgw ONPzww7hfip63bSXHBasnApJ+vzJSsHOqfjDXjJxgmDJNHx/PnVRc/F+GgLe xk19uF24n4ZNl22nDwt2TgOCuuYsFSyZjjzDar/FgjEdLf5+eHSieD8dYdGx 17uL99MRpVXObCDeh6DFKb8Gr7YJ9yHoGdTs4u+ClSEIOXgqsViwMwSZ+U+v 7hAsmYHfgu9cWynez0BjnWW6XryfgRJju4Gp4v0MPK/zYX6EeB+KLvu0B0LE +1Dk//Wy8wTxPhTLwgeuGirehyJuSnmlj3g/ExG1rwzqLN7PhOlh3tg24v1M 5I1VNGgi3s+ELCJXX0e8n4UuXRY5qor3s3B2UY2g91uF+1koedLc/I9g5yyc L+w75rlgyWzsdBSlPBKM2YiLLm58V7yfjR76Zs3/EO9no2BS8/Tfxfs5mP/5 cK9r4v0c9NuqG3BJvJ+D8lcJxgvi/RwYNz1td1a8n4uwB1f/OS3ez0VE29ga J8X7uQjPmRB4XLyfi0FNZKeOivfzoJj/LO6IeD8PphjFiEPi/Tx8DDg3qEi8 nwd9s+eh+8X7+Vjaq+PqveL9fIS+uVW5R7yfjymlpYofxfv56OB/oFGheC/D tdebT+wSLJVhcnWndaf4eTIUxfnH7hAsk8E+ePvc7eLny1BeNzFsm2CHDMXH hyu2inkyXJx7Ze0WwS4Z4j1qXt4s5i/ArmEnm4iWLsDUtp5hm8T8Bci88enw D2L+AuRNPiAVrVyA4nXy/I1i/gL0q5JYS7RzAUrX1jNuEPMX4GH2Rk/RkjBM zP/BsV7MD8OOEsNA0QjDnbEXrn4v5oeh5ZIqCtHKMDx8UCQV7QhDb1P+RYeY H4ZdPbqqRLvCEBru4ydashC2tiGvvhPzF2Lql1P2iMZCPNl/K0W0bCEeN/55 sGjlQnzVbl810Y6FuOdR8Ms6MX8h0itbrxPtWoihp7sliJaEo9XGr0eJlobD 74W3l2iEw/743Iu1Yn44qmtDz4hWhqO02+6Noh3hWLJ8j0q0MxzKb8fLRLvC MbHOdIiWRGCl8kQH0dIINJ2YU100IoAxix+tEfMjsGu/5oJoZQRSRu74SbQj AgeP/rZatDMCfXq8VYt2RUC2/EOsaEkkcj5fny5aGok/Q/QQjUhcnvuqO+VH YvOaFl6UH4k2Ux9Xp/xIFMXMf/mtmB8J/5hEl2hXJIbFtPhFtGQRKmsHHBUt XYQHEVV3icYiDG8weJ1o2SKs+fTELlq5CJ1WNFSKdizCsIL1iZS/CK6P6xZS /iJEjJCEUH4Uznw67k/5UZjZzTWE8qNw+UVIb8qPwpUDHb+g/Cjs6oAWlB+F 3M/b61J+FFYFL5RQfhT8/Be+Xi3mRyN8wNYnoqXRaLOqr0s0ovFTw4/XRMvc vz+r5nnRymjUDg0sFu2IRp3qF4pEO6MRl6LfLdoVjSrlaZsoPwZnUtaspfwY zN/0ehnlx2DpTaWV8mPQZPVQLeXHwC+5Szblx+BWPaRQfgxCWuviKD8GaQte h1N+LLbuzp9L+bHwuhscQvmxeHhv2GTKj0Xm1sn+lB+LC70NIyk/FmeVdwdT fixO7FroS/mxuHW1Zi/Kj8OK5ue7UH4cAr/b04Hy43Dp+4OtKT8OlTNczSg/ DlOqdvak/DhseWiqQ/lxuDatbg3Kj8OsNVs/rxLz49GpeXilaGk8RrUf/Fo0 4rGlZfcK0bJ4vI4d8FS0Mh6DVLMfiHbE43Tpqj9FO+NRua/ipmhXPJo555dT /mJ4hj24QvmLIW+l/YXyF8M71u8c5S9Gwu9VSyh/MdY/u1NM+YvRuV/5Ucpf jAC/O4cofzG62iUHKD8BS0v7/kT5CXiVo9hN+QkYOv7SdspPQMmxoVsoPwFT dIc2Un4Crg4M+J7yE6DJeLqW8hNQ+HztasqX49iwBd+I9pSjccP+y+j7yFGl fsuvRfvIcfJuPTt9PzkiR3paRAfJcfRaRyN9XznmB4/RiZbLoYtJUdP3l6Pp lT15ogvksIz6nE195KiQz8wUXSjH5RbH06mfHH4v+6eKLpNj5ZEDSdTX/fu+ 4+SiK+To1OrPeOqfiPY9jbHUPxGbew+Jpv6J+PPev5HUPxG+jU6GU/9EDM1c FUb9E1H6IENG/RNxvl3EPOqfiLCns+ZQ/0QcbT57FvVPRPe4iFDqn4iqRRkh 1D8R20q+mUb9E2GIPhZM/RMhia8Iov6JSFvfbTL1T8SwG/FfUf8kLHt8cCL1 T8JmR4MA6p8E/dVYf+qfhA6zLo2j/kkYXWvEWOqfBPuevaOpfxLS+vUdRf2T MDTsAKh/Ep63GDOC+idhbq/yYdQ/Ca2VyUOpfxKyHjUbQv2TYBx9bBD1T0LV xQl+1D8J88Z2Hkj9k3B0893+1D8ZFcmbfal/MmJNif2ofzImlo7sS/2TMaGR Vx/qn4zisf/0pv7J2Db+117UPxn5//7ck/onY9nw7T2ofzLiKtd2p/7JmN1o RTfqnwyfqKVdqX8yxt5b7k39k6GIXduF+rt//97WztQ/GUH9D39J/ZMxbNyl TtQ/BeWfnn5B/VOQNb4uWZqCSo/eHal/Ctb0mNGB+qeg9RqNlPqnYP3Ive2p fwrO13rcjvqn4LvfO5CVKTCun9eW+qdg4aTv2lD/FMSdudua+qdgnKQH2ZmC f26nt6L+Kbg5vaQl9U+Bc3IrckUKjh2We1H/VEwxnm1B/VMRsLELWZqKK58M zal/KmIMT5tR/1T82TOYHJSKuXcON6X+qQhe7k2Wp0I7cGUT6p+KaofqkAtS 0b2BsjH1T8X6L981ov6pmP0yiexMhSmywpP6p2JripzsSkVOw1cNqX8q6nRT kCVpWH7gcwPqn4ZN201kaRqqVjYj+6Rh14qN9al/Gp6m9icHpaG/tbQe9U/D 2ItzyfI01Onzui71T8POrXZyQRpsPbuRHWkYuaekDvVPw5Kei8jONKiWe5DL 0jDMtb029U9Dj+pTyBVpuP32rQf1T0frPQ6yZzqudp1Ilqaja8jbWtQ/HTG9 fiAjHY23TSMHpeOkswZZlo6gmKKa1D8de9bFkZXpqBfSkVyQji3G32tQ/3T8 22sJuTAdy0cGkp3pGHqwFrksHWX2k9WpfzpmHlaTK9Ih8RtFlijQ9FNVsqcC 1Wudqkb9FVgQaCT7KHCzJJAMBcYnNyYHKbDU//eq1F+ByyO/J8sV6DMzhqxU 4IPRl1ygwLfnPleh/gosa32eXKiANXkV2anAkIuLyGUKZHYeSHYpMDS9FrnC fX+4XEL9M1DwfBvZMwOaurlkaQaO1g8m+2RgR0VnMjJwdfeHzyvF/hm4NO4K WZaB6T9uI8sz0PWpmqx0u2I2uSADAUf6kx0ZWDLRk1yYgbarn34S7cxw//97 CbksAxciNpJdGbDcUJEr3H2qyMiSTNy+OpzsmYmcKe3I0kwMSPn0UbRPJooG 3SYjEyXrnOSgTPR1rCfLMnFjsI4sz8RPsVFkZSZ+7h1ILshETa0P2ZGJHyOa kQsz8fhS5Qfqn4lnp1zkskxUH1FCdmXCNHgXuSITd/YtJ0uyoN6VQ/bMwsMO kWRpFhz1J5N9sjAuwY+MLOSO6UgOykKluR5ZluX+N+Tte+qfheNhd8jKLGx5 cYFckIUG9w+SHVm4iU3kwix4VFlKdmah4Aslucz9fTbFk11ZeGCYTa5w+9QE siQbG+b5kT2zMSmoC1majY6rmpN9shE2sCYZ2ZjR9U0l9Xc7/gFZlg1nld/I 8my8vldCVmYjvNlBckE2NF9vIzuy8cuMNeTCbFyMtJOd2aj7s5Jclo3WM5PJ rmysHBRJrshGl7kzyZIcJBQHkj1z0CEKZGkO/gn0JfvkYGOCNxk5eHuxDeuf g/3RjVj/HOwZXpP1z8HxwPf/Uv8cOJdUkAtykN/wAdmRg5bFN8iFOZiw9RLZ mYOmJ0vIZTmQNzpKduVgbsFeckUObo7YTpbk4k279WTPXBzosYoszUWfqAKy Ty4yywxk5GJneB45KBdPvkgny3IxrX4CWZ6LZtJFrH8uQmfPZ/1zMeXoDNY/ F339g1j/XPi+82f9c/HNhZGsfy5Wlwxm/XOhvd+P9Xe/d+7J+uehm7kz658H bUMp65+H9/tasv55eJjdhPXPg2NhfdY/D/roWqx/Ht7aqrD+eZhZ9v4d9c9D I5835II8mHdUkB156Df2KbkwDxn/3ic783Cp1EUuy8PuPTfIrjzY9v9KrsjD /SuXyBIl+te5QPZQ4mNoKdlTiePHTpC9lKg5/BhZqsS0K4fI3u7Py9tP9nF7 5B6ynxL3vHaRocSVGtvI/kqsqLWJHOTOb7ueHKrE0/HryDIl9uhWk6OU2Pnr CrJciezBS8kKJZyF+ezvr4TXICvZqES3K0a2hxKrc3XklUo0HKJm+yjRzyOP vEWJwvtZbC8lfK8oyEVKxJSlsv2UqHEriVyqxL53CWxPJXp8EU8uV0I6J4bt q8S4DYvIj5QIeRfO9lbCY3YY+Z2777n5bH8V4D+X7a/C8Muz2P4qlEWFsv1V 2Fc3hO2vQuGhqWx/FdSpU9j+KjwfMpntr8LB+l+x/VXY9iSA7a+C/rI/218F r1Pj2P4qdC4ew/ZXIefMKLa/Cg+vg+2vQp83w9n+KnRtPYztr8LaCUPY/irM UQ1i+6swsHgg21+Fz3UHsP1VMM7zZfursPFgX7a/Cl3a9mH7q/DA2Jvtr0LR h55sfxWSFD3Y/io8e9+N7a9CFUNXtr8KhpbebH8VZv3Ume2vwtRpX7L9VZj0 4Qu2vxre2zuy/dU4IuvA9lfjSRsp21+N/Nvt2P5qmLe0ZfurcTi9Ddtfjapf tWb7qzHCuxXbX43ptVuy/dXoXNGC7a/G0pvN2f5qqC82Y/urce1UU7a/GvLi Jmx/NQafbMz2V6P5uUZsfzWe/erJ9ldjw8OGbH812n9swPZXI7AFs0ONhgPq s/3VmDKzHttfjffKumx/Nd7uqMP2V6PXrdpsfzWsjZjL3PcTPNj+akTqa7H9 1Sg6XZPtr8YfdZgr1DgZXIPtr8aMddXZ/hronlVj+2swGMyeGkSuqMr21+D1 iypsfw1+DWT21qByh4Ttr8FkT2Y/DU6mfX5L+2sQ4PpE9tfgciBzkAaBRz6S QzXY3ItZpkH5hg/kKA3Ot2aWa5C54j1ZocEvTZiVGhQvrSQbNRjdnLlAg7Hf /kteqcGRjswODVbveEfeosE1P+ZCDWQlb8lFGvQOZXZq0P/pG3KpBtFK5jIN jrZgLteg+4+vyS4NNgYyP9Kg/ZN/yBUafG1ifqfB392YJVr4XnxF9tAiOJnZ Uwu0YvbS4nXxS7JUi+h4Zm8tlrRk9tEiquRvsp8WrjRmuD+vC7O/FuuuV7D9 tbhkZw7VwjiGWabFkfcv2P5ahO1llmuRtphZocWLrsxKLU4/eM72d3+fjcwF WiSHM6/UYtiXzA4t/B8+Y/trUbCNuVCLhgnMRVoc82V2arHy/V9sfy2WnWAu 06LQylyuxb0QZpcW3TsyP9JC+fwp21+Lm4eZ32kx1Mws0WH1TGYPnfvvw+yp g9/7J2x/HRIvMEt1WOJg9nZ/Xgqzjw7qCcx+Ooxvzwwd7r5+zPbXYeoF5iD3 5//AHKrD2lxmmQ6LQ5mjdKjWj1muw4wGzAodIp88Yvvr0KuE2ajDlo3MBTpc VTOv1GHHAmaHDr1HMm9x53VgLtShQ1XmIh2sdx+y/XVYeoq5VId+W5jLdIiy MJfr0DeB2eX+vKnMj3RI8mOucP992zK/0+FmNWaJHrOfPGD7u32J2VOP60XM XnqUO5ilegSZmL31GJnE7KPHltnMfnqoxjJDj/O9mf310LdiDtJjRw3mUD2G /32f7a+H3y3mKD2+OcMs12PufmaFHpoNzEo96nzNbNTjRS5zgR594plX6nFx NrNDj5MBzFv08BzMXKjHnq7MRe6/R0tmpx4VtZlL9TBW3mP767H4KXO5Hhtu Mrv06HiR+ZEefx1jrtDj84/M7/QI3cgsMeDtCmYPA26YmD0NqJLD7GVAjJxZ akCTcGZvA97PYPYxQBrI7Gdw/xefGe73/sz+BrzryhxkgEd75lADgpsyywy4 VJs5ygD957tsfwPkr5kVBtieMisNuPUns9GAeeXMBQZ4/sK80oCXp5gdBlT9 mXmLAdjLXGjAtu3MRQaM3MDsNKDat8ylBjxfwlzmfrcwl7s/X8PsMuCHLOZH BvRJYa4w4E4c8zsDDkUwS4zYP4/Zw4hfZzB7GtFyCrOXEbkBzFIjqo9h9jZi 5zBmHyPSBjL7GTGvDzOMiOzO7G+E9UvmICN+ac8cakSfVswyI3Y3ZY4yIqAh 39+Iz7X5/kaUVef7G3H48x22vxHOSuYCI26/Zl5pRPO/mR3u7/8X8xYjLj5k LjRi0l3mIiPu/8HsNGLJdeZSI6b9ylxmRK/LzOVGtLnI7DKi/VnmR0YMOM1c YcSCYuZ3RjiOMktMeHmI2cOE0APMniZc/InZy4QZhcxSE17tYPY24butzD4m zNnE7GdC9w3MMKG2g9nfhLdrmINMeLOKOdSEat8wy0yQLmOOMiHga2a5CVo7 s8KE8xZmpQkdTXx/E3R6vr87X8P3NyFFxfc34XMu39+EFdl8fxMGZfL9TXiS zvc34YdUvr8Jccl8fxNGJPL9TWiTwPc3oUY839/994vh+5vwOorvb8LHSL6/ GQ0i+P5mdF/I9zcjaAHf34y8+Xx/M4rm8v3N+Hc239+M0bP4/masCOX7m/Ey hO9vRsh0vr8ZxVP5/mYMDOb7m7EniO/vfp/M93fff8X3N2NaIN/fjBcBfH8z vp7A9zdjkD/f34zH4/j+Zqwby/c3Y9YYvr8Z7Ubz/c14MJLvb8Z+8P3NsI7g +5sRNZzvb0bAML6/GT5D+f5mtB3C9zej4WC+vxm1BvH9Lajmx/e3oOZAvr8F 9Qfw/S1o2Z/vb0E3X76/BejH97dgVl++vwWZffj+Fqz14ftbcKo339+Cil58 fws6csssCOnJ97cgvwff34Jz3fn+FtTjVloQ1I3vb8HKrnx/C+558/0t8OV2 WKDvwve34FZnvr8FA7iLLFj2Jd/fgn868f0tmMFdZsHRL/j+FnThdrk/ryPf 34Lq3BUWpHfg+1vwl5Tvb0U4t4cVf7Tn+1sxh9vLilvt+P5WyLi9rbjflu9v RRy3nxVv2vD9rVBz+1vRiDvIivWt+f5W+HLLrDjbiu9vRRi33Ir3Lfn+Vqzg Vro/j9toxVUvvr8VqdwrrWjJ7bDiaAu+vxUR3IVWNOAusqKoOd/f/ffnLrWi CXeZFSea8f2tSOF2WdGZ+5EVN5ry/a0o4H5nhT+3xAYJt4cNh5vw/W1I4/ay oR+31Ia/G/P9bSjk9rEhkdvPBl9u2PC2Ed/fhiPcQTaouENt8OeW2eDJHWXD dU++vw0buBU2JHArbRjCbbShNneBDeUN+f42bOZ22KDg3uL+ftyFNrTiLrLh eQO+vw3F3KU2fMNdZkM8d7kNo7ldNrTmfmTDq/p8fxsucL+zYRO3xA4Vt4cd c7g97fDj9rKjGbfUjpf1+P52lHH72LGb28+OAm7YkcDtb0cQd5AdfblD7WjK LbPjTV2+vx3XueV2/MytsGM9t9IOA7fRjnjuAjuCuVe6/x7cDjuk3FvsqMVd aMeLOnx/O8q5nXY4uUvt2MZdZscy7nI78rhddkRzP7JjOneFHeB+Z0cPbkk+ WnJ75KMGt2c+Xtbm++fDxS3NxwVu73wc4fbJxzZuv3ys5kY+zP/5/wBqE8pA "]]}, {RGBColor[1, 0, 0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULhIsSCELISiDQlgrmQ4AuZewmXuIRAwZ5bb3AMJ YO4tXW7pckt3jETjckuXW7rc0iWKiIT+Z5rVs59efXr1vfa5F559/lUhhNur Q3j5+783P/3kEy+///z7lR/xoR/BC/wavMSP4gq/Dr8evwGv8Bvxm/BjuMaP 4zfjJ/CT+C34rfhteI3fjt+B34nfhd+Nn8JP4/jQGYf3MMfhvcxxeB9zHN7P HIdnmOPwAeY4fJA5DhvmOHyIOQ4fZo7DR5jj8FHmOHyMOQ4fZ47DJ5jj0Dx0 xBkXHD5JHmdccHiWPM644PAp8jjjgsOnyeOMCw6fIY8zLjh8ljzOuODwOfI4 44LDljzOuODwefI444LDF8jjjAsOXySPMy44fIk8zrjg8GXyOOOCw1fI44wL Dl8ljzMuOKSHrnDECWfc44InHL7Gfhxxwhn3uOAJh+fYjyNOOOMeFzzh8HX2 44gTzrjHBU84fIP9OOKEM+5xwRMOz7MfR5xwxj0ueMLhm+zHESeccY8LnnD4 FvtxxAln3OOCJxx27McRJ5xxjwuecPg2+3HECWfc44InHL7Dfhxxwhn3uOAJ h++yH0eccMY9LnjC4XvsxxEnnHGPC55w+D77ccQJZ9zjgiccfsB+HHHCGfe4 4AmHF9iPI0444x4XPOHQPvQCV7jGETc44RZn3OEeD7jgEU94xuGH9McVrnHE DU64xRl3uMcDLnjEE55x+BH9cYVrHHGDE25xxh3u8YALHvGEZxx+TH9c4RpH 3OCEW5xxh3s84IJHPOEZh5/QH1e4xhE3OOEWZ9zhHg+44BFPeMbhp/THFa5x xA1OuMUZd7jHAy54xBOecfgZ/XGFaxxxgxNuccYd7vGACx7xhGccfk5/XOEa R9zghFuccYd7POCCRzzhGYc9/XGFaxxxgxNuccYd7vGACx7xhGccfkF/XOEa R9zghFuccYd7POCCRzzhGYdf0h9XuMYRNzjhFmfc4R4PuOART3jG4Vf0xxWu ccQNTrjFGXe4xwMueMQTnnH4Nf1xhWsccYMTbnHGHe7xgAse8YRnHH5Df1zh Gkfc4IRbnHGHezzggkc84RmH39IfV7jGETc44RZn3OEeD7jgEU94xuF39McV rnHEDU64xRl3uMcDLnjEE55xyA/9CF7gJa7wCtd4jSPe4AZvccI73OI9zviA O3zEPT7hAZ9xwRc84iue8A3P+I7D77k/XuAlrvAK13iNI97gBm9xwjvc4j3O +IA7fMQ9PuEBn3HBFzziK57wDc/4jsMfuD9e4CWu8ArXeI0j3uAGb3HCO9zi Pc74gDt8xD0+4QGfccEXPOIrnvANz/iOw4vcHy/wEld4hWu8xhFvcIO3OOEd bvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhJe6PF3iJK7zCNV7jiDe4wVuc 8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+4/BH7o8XeIkrvMI1XuOIN7jB W5zwDrd4jzM+4A4fcY9PeMBnXPAFj/iKJ3zDM77j8Cfujxd4iSu8wjVe44g3 uMFbnPAOt3iPMz7gDh9xj094wGdc8AWP+IonfMMzvuPwZ+6PF3iJK7zCNV7j iDe4wVuc8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+43Dg/niBl7jCK1zj NY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+H+eIGXuMIr XOM1jniDG7zFCe9wi/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw5/5f54gZe4 witc4zWOeIMbvMUJ73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7Dn/j/niB l7jCK1zjNY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+f+ eIGXuMIrXOM1jniDG7zFCe9wi/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw7/ 4P54gZe4witc4zWOeIMbvMUJ73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7 Dv/k/niBl7jCK1zjNY54gxu8xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc8 4zsO/+L+eIGXuMIrXOM1jv/3fwHfLRxY "]]}, {RGBColor[1, 0, 0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0tDtaXLLU3FlC63dLmlyy1dRhFI6H+mWT376dWnV9+rnnnh6WdfFkK4vTyE l77/ffPj//rnS+/f//nfj/jQj+AFfgVe4lfiCr8avwa/Fq/w6/Dr8aO4xm/A b8Rvwm/Gb8FvxW/Da/x2/A78Tvwu/G78GH4cx4fOODzBHIf3MMfhSeY4vJc5 Dk8xx+F9zHF4P3McNsxx+ABzHD7IHIcPMcfhw8xx+AhzHD7KHIePMceheeiI My44fJw8zrjg8DR5nHHB4RPkccYFh0+SxxkXHD5FHmdccPg0eZxxweEz5HHG BYcteZxxweGz5HHGBYfPkccZFxw+Tx5nXHD4AnmcccHhi+RxxgWHL5HHGRcc vkweZ1xwSA9d4YgTzrjHBU84fIX9OOKEM+5xwRMOz7AfR5xwxj0ueMLhq+zH ESeccY8LnnD4GvtxxAln3OOCJxyeZT+OOOGMe1zwhMPX2Y8jTjjjHhc84fAN 9uOIE864xwVPOOzYjyNOOOMeFzzh8Bz7ccQJZ9zjgiccvsl+HHHCGfe44AmH b7EfR5xwxj0ueMLh2+zHESeccY8LnnB4nv044oQz7nHBEw7fYT+OOOGMe1zw hMML7McRJ5xxjwuecGgfeoErXOOIG5xwizPucI8HXPCIJzzj8F364wrXOOIG J9zijDvc4wEXPOIJzzh8j/64wjWOuMEJtzjjDvd4wAWPeMIzDt+nP65wjSNu cMItzrjDPR5wwSOe8IzDD+iPK1zjiBuccIsz7nCPB1zwiCc84/BD+uMK1zji Bifc4ow73OMBFzziCc84/Ij+uMI1jrjBCbc44w73eMAFj3jCMw4/pj+ucI0j bnDCLc64wz0ecMEjnvCMw57+uMI1jrjBCbc44w73eMAFj3jCMw4/oT+ucI0j bnDCLc64wz0ecMEjnvCMw0/pjytc44gbnHCLM+5wjwdc8IgnPOPwM/rjCtc4 4gYn3OKMO9zjARc84gnPOPyc/rjCNY64wQm3OOMO93jABY94wjMOv6A/rnCN I25wwi3OuMM9HnDBI57wjMMv6Y8rXOOIG5xwizPucI8HXPCIJzzj8Cv64wrX OOIGJ9zijDvc4wEXPOIJzzjkh34EL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAd PuIen/CAz7jgCx7xFU/4hmd8x+HX3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8 wB0+4h6f8IDPuOALHvEVT/iGZ3zH4TfcHy/wEld4hWu8xhFvcIO3OOEdbvEe Z3zAHT7iHp/wgM+44Ase8RVP+IZnfMfht9wfL/ASV3iFa7zGEW9wg7c44R1u 8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+F33B8v8BJXeIVrvMYRb3CDtzjh HW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4ffcHy/wEld4hWu8xhFvcIO3 OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhD9wfL/ASV3iFa7zGEW9w g7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+GP3B8v8BJXeIVrvMYR b3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4cD98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xP3xAi9xhVe4 xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7M/fECL3GF V7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sL98QIv cYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+yv3x Ai9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7G /fECL3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc /s798QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jG dxz+wf3xAi9xhVe4xmsc/+8XAZaETG8= "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}, {RGBColor[0, 0, 1], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TfsO0kZBuARNFe6oHBxxYIQstAJLdnE/5BNXo5k0jEXMfGWbPKQTd7S UG3pckuXU5puS5dbutzSJTqBhH7PNKtnP7369Op75TMvPvn8y0IIt5eH8NL3 v29+9K9/vvT+/eh/P+JDP4YX+BV4iR/HFX4VfjV+DV7h1+In8OtwjV+P34Df iN+E34zfgt+K1/ht+O34Hfid+F343fgRjg+dcXgPcxzeyxyH9zHH4f3McfgA cxw+yByHDzHHYcMchw8zx+EjzHH4KHMcPsYch48zx+ETzHH4JHMcmoeOOOOC w6fI44wLDk+SxxkXHD5NHmdccPgMeZxxweGz5HHGBYfPkccZFxw+Tx5nXHDY kscZFxy+QB5nXHD4InmcccHhS+RxxgWHL5PHGRccvkIeZ1xweIo8zrjg8FXy OOOCQ3roCkeccMY9LnjC4Wn244gTzrjHBU84PMN+HHHCGfe44AmHZ9mPI044 4x4XPOHwHPtxxAln3OOCJxyeZz+OOOGMe1zwhMML7McRJ5xxjwuecPga+3HE CWfc44InHHbsxxEnnHGPC55w+Dr7ccQJZ9zjgiccvsF+HHHCGfe44AmHb7If R5xwxj0ueMLhW+zHESeccY8LnnD4NvtxxAln3OOCJxy+w34cccIZ97jgCYcX 2Y8jTjjjHhc84dA+9AJXuMYRNzjhFmfc4R4PuOART3jG4bv0xxWuccQNTrjF GXe4xwMueMQTnnH4Hv1xhWsccYMTbnHGHe7xgAse8YRnHL5Pf1zhGkfc4IRb nHGHezzggkc84RmHH9AfV7jGETc44RZn3OEeD7jgEU94xuGH9McVrnHEDU64 xRl3uMcDLnjEE55x+BH9cYVrHHGDE25xxh3u8YALHvGEZxx+TH9c4RpH3OCE W5xxh3s84IJHPOEZhz39cYVrHHGDE25xxh3u8YALHvGEZxx+Qn9c4RpH3OCE W5xxh3s84IJHPOEZh5/SH1e4xhE3OOEWZ9zhHg+44BFPeMbhZ/THFa5xxA1O uMUZd7jHAy54xBOecfg5/XGFaxxxgxNuccYd7vGACx7xhGccfkF/XOEaR9zg hFuccYd7POCCRzzhGYdf0h9XuMYRNzjhFmfc4R4PuOART3jG4Vf0xxWuccQN TrjFGXe4xwMueMQTnnHID/0YXuAlrvAK13iNI97gBm9xwjvc4j3O+IA7fMQ9 PuEBn3HBFzziK57wDc/4jsOvuT9e4CWu8ArXeI0j3uAGb3HCO9ziPc74gDt8 xD0+4QGfccEXPOIrnvANz/iOw2+4P17gJa7wCtd4jSPe4AZvccI73OI9zviA O3zEPT7hAZ9xwRc84iue8A3P+I7Db7k/XuAlrvAK13iNI97gBm9xwjvc4j3O +IA7fMQ9PuEBn3HBFzziK57wDc/4jsPvuD9e4CWu8ArXeI0j3uAGb3HCO9zi Pc74gDt8xD0+4QGfccEXPOIrnvANz/iOw++5P17gJa7wCtd4jSPe4AZvccI7 3OI9zviAO3zEPT7hAZ9xwRc84iue8A3P+I7DH7g/XuAlrvAK13iNI97gBm9x wjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4jsMfuT9e4CWu8ArXeI0j3uAG b3HCO9ziPc74gDt8xD0+4QGfccEXPOIrnvANz/iOw4H74wVe4gqvcI3XOOIN bvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8ifvjBV7iCq9wjdc4 4g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyZ++MFXuIKr3CN 1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/IX74wVe4gqv cI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8lfvjBV7i Cq9wjdc44g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyN++MF XuIKr3CN1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/J37 4wVe4gqvcI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8 g/vjBV7iCq9wjdc4/t//AcrzltE= "]]}, {RGBColor[0, 0, 1], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TfsO0kZBuARNFe6oHBxxYIQstAJLdnE/5BNXo5k0jEXMfGWbPKQTd7S UG1pui1dTulyS5dbutzSJTqBhH7PNKtnP7369Op75TMvPvn8y0IIt5eH8NL3 v29+9K9/vvT+/eh/P+JDP4YX+BV4iR/HFX4VfjV+DV7h1+In8OtwjV+P34Df iN+E34zfgt+K1/ht+O34Hfid+F343fgRjg+dcXgPcxzeyxyH9zHH4f3McfgA cxw+yByHDzHHYcMchw8zx+EjzHH4KHMcPsYch48zx+ETzHH4JHMcmoeOOOOC w6fI44wLDk+SxxkXHD5NHmdccPgMeZxxweGz5HHGBYfPkccZFxw+Tx5nXHDY kscZFxy+QB5nXHD4InmcccHhS+RxxgWHL5PHGRccvkIeZ1xweIo8zrjg8FXy OOOCQ3roCkeccMY9LnjC4Wn244gTzrjHBU84PMN+HHHCGfe44AmHZ9mPI044 4x4XPOHwHPtxxAln3OOCJxyeZz+OOOGMe1zwhMML7McRJ5xxjwuecPga+3HE CWfc44InHHbsxxEnnHGPC55w+Dr7ccQJZ9zjgiccvsF+HHHCGfe44AmHb7If R5xwxj0ueMLhW+zHESeccY8LnnD4NvtxxAln3OOCJxy+w34cccIZ97jgCYcX 2Y8jTjjjHhc84dA+9AJXuMYRNzjhFmfc4R4PuOART3jG4bv0xxWuccQNTrjF GXe4xwMueMQTnnH4Hv1xhWsccYMTbnHGHe7xgAse8YRnHL5Pf1zhGkfc4IRb nHGHezzggkc84RmHH9AfV7jGETc44RZn3OEeD7jgEU94xuGH9McVrnHEDU64 xRl3uMcDLnjEE55x+BH9cYVrHHGDE25xxh3u8YALHvGEZxx+TH9c4RpH3OCE W5xxh3s84IJHPOEZhz39cYVrHHGDE25xxh3u8YALHvGEZxx+Qn9c4RpH3OCE W5xxh3s84IJHPOEZh5/SH1e4xhE3OOEWZ9zhHg+44BFPeMbhZ/THFa5xxA1O uMUZd7jHAy54xBOecfg5/XGFaxxxgxNuccYd7vGACx7xhGccfkF/XOEaR9zg hFuccYd7POCCRzzhGYdf0h9XuMYRNzjhFmfc4R4PuOART3jG4Vf0xxWuccQN TrjFGXe4xwMueMQTnnHID/0YXuAlrvAK13iNI97gBm9xwjvc4j3O+IA7fMQ9 PuEBn3HBFzziK57wDc/4jsOvuT9e4CWu8ArXeI0j3uAGb3HCO9ziPc74gDt8 xD0+4QGfccEXPOIrnvANz/iOw2+4P17gJa7wCtd4jSPe4AZvccI73OI9zviA O3zEPT7hAZ9xwRc84iue8A3P+I7Db7k/XuAlrvAK13iNI97gBm9xwjvc4j3O +IA7fMQ9PuEBn3HBFzziK57wDc/4jsPvuD9e4CWu8ArXeI0j3uAGb3HCO9zi Pc74gDt8xD0+4QGfccEXPOIrnvANz/iOw++5P17gJa7wCtd4jSPe4AZvccI7 3OI9zviAO3zEPT7hAZ9xwRc84iue8A3P+I7DH7g/XuAlrvAK13iNI97gBm9x wjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4jsMfuT9e4CWu8ArXeI0j3uAG b3HCO9ziPc74gDt8xD0+4QGfccEXPOIrnvANz/iOw4H74wVe4gqvcI3XOOIN bvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8ifvjBV7iCq9wjdc4 4g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyZ++MFXuIKr3CN 1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/IX74wVe4gqv cI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8lfvjBV7i Cq9wjdc44g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyN++MF XuIKr3CN1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/J37 4wVe4gqvcI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8 g/vjBV7iCq9wjdc4/t//AZQzGdE= "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zNh eXHJFS7wS/AavxSX+OX4FfiVeINfhV+NX4Mr/Fr8Ovx6/Ab8Rvwm/Ga8xW/B b8Vvw2/H78DvxM/guHTC4V3kOLybHIf3kOPwXnIc3keOw/vJcfgAOQ47chw+ SI7Dh8hx+DA5Dh8hx+Gj5Dh8jByHj5PjUC8dccIZh0/QxwlnHJ6ljxPOOHyS Pk444/Ap+jjhjMOn6eOEMw6foY8Tzjh8lj5OOOOwp48Tzjh8jj5OOOPwefo4 4YzDF+jjhDMOX6SPE844fIk+Tjjj8GX6OOGMw1fo44QzDs3SJY64wQn3OOMJ h6+yjyNucMI9znjC4Tn2ccQNTrjHGU84fI19HHGDE+5xxhMOX2cfR9zghHuc 8YTD8+zjiBuccI8znnD4Bvs44gYn3OOMJxy+yT6OuMEJ9zjjCYcD+zjiBifc 44wnHL7FPo64wQn3OOMJh2+zjyNucMI9znjC4Tvs44gbnHCPM55w+C77OOIG J9zjjCccvsc+jrjBCfc44wmH77OPI25wwj3OeMLhBfZxxA1OuMcZTzi0Sxe4 xBWOuMYNbnHCHe7xgDMe8YRnHH6wdIFLXOGIa9zgFifc4R4POOMRT3jG4YdL F7jEFY64xg1uccId7vGAMx7xhGccfrR0gUtc4Yhr3OAWJ9zhHg844xFPeMbh x0sXuMQVjrjGDW5xwh3u8YAzHvGEZxx+snSBS1zhiGvc4BYn3OEeDzjjEU94 xuGnSxe4xBWOuMYNbnHCHe7xgDMe8YRnHH62dIFLXOGIa9zgFifc4R4POOMR T3jG4bh0gUtc4Yhr3OAWJ9zhHg844xFPeMbh50sXuMQVjrjGDW5xwh3u8YAz HvGEZxx+sXSBS1zhiGvc4BYn3OEeDzjjEU94xuGXSxe4xBWOuMYNbnHCHe7x gDMe8YRnHH61dIFLXOGIa9zgFifc4R4POOMRT3jG4ddLF7jEFY64xg1uccId 7vGAMx7xhGccfrN0gUtc4Yhr3OAWJ9zhHg844xFPeMbht0sXuMQVjrjGDW5x wh3u8YAzHvGEZxzS0itc4DUu8QZXeIsj3uEa73GDD7jFR5zwCXf4jHt8wQO+ 4oxveMR3POEHnvETDr9beoULvMYl3uAKb3HEO1zjPW7wAbf4iBM+4Q6fcY8v eMBXnPENj/iOJ/zAM37C4fdLr3CB17jEG1zhLY54h2u8xw0+4BYfccIn3OEz 7vEFD/iKM77hEd/xhB94xk84/GHpFS7wGpd4gyu8xRHvcI33uMEH3OIjTviE O3zGPb7gAV9xxjc84jue8APP+AmHPy69wgVe4xJvcIW3OOIdrvEeN/iAW3zE CZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwp6VXuMBrXOINrvAWR7zDNd7jBh9w i4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+vPQKF3iNS7zBFd7iiHe4xnvc 4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8hMNfll7hAq9xiTe4wlsc8Q7X eI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/8IyfcDgtvcIFXuMSb3CFtzji Ha7xHjf4gFt8xAmfcIfPuMcXPOArzviGR3zHE37gGT/h8NelV7jAa1ziDa7w Fke8wzXe4wYfcIuPOOET7vAZ9/iCB3zFGd/wiO94wg884ycc/rb0Chd4jUu8 wRXe4oh3uMZ73OADbvERJ3zCHT7jHl/wgK844xse8R1P+IFn/ITD35de4QKv cYk3uMJbHPEO13iPG3zALT7ihE+4w2fc4wse8BVnfMMjvuMJP/CMn3D4x9Ir XOA1LvEGV3iLI97hGu9xgw+4xUec8Al3+Ix7fMEDvuKMb3jEdzzhB57xEw7/ XHqFC7zGJd7gCm9xxDtc4z1u8AG3+IgTPuEOn3GPL3jAV5zxDY/4jif8wDN+ wuFfS69wgde4xBtc4S2OeIdrvMcNPuAWH3HCJ9zhM+7xBQ/4ijO+4RHf8YQf eMZPOPx76RUu8BqXeIMrvMXx//4Pt4GIqw== "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-0.15000000000000002`, 0.625}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9, 3.709300836384947*^9, 3.709300901288766*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Variance Explained over time", "Section", CellChangeTimes->{{3.7089647648530283`*^9, 3.708964768917425*^9}}], Cell["We can use the sim and SimR2 functions from above.", "Text", CellChangeTimes->{{3.7093010131066713`*^9, 3.709301028065892*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"SimR2", "[", RowBox[{ RowBox[{"ListHDiff", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", RowBox[{"ListPDiff", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", "1000", ",", "PdiffX", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}], ",", FractionBox[ RowBox[{"tmax", "/.", "pars3"}], "100"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.709301029721364*^9, 3.7093011031272717`*^9}, { 3.7093011607654533`*^9, 3.709301167800538*^9}, {3.709301201686686*^9, 3.709301261479371*^9}}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"3\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"4\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 455,125,18849179266209293879,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.709301242767576*^9, 3.709301262848137*^9}, 3.709302204108008*^9}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"5\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"6\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 455,126,18849179266209293879,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.709301242767576*^9, 3.709301262848137*^9}, 3.7093022041947737`*^9}], Cell[BoxData[ TemplateBox[{ "LinearModelFit","rank", "\"The rank of the design matrix \\!\\(\\*RowBox[{\\\"6\\\"}]\\) is less \ than the number of terms \\!\\(\\*RowBox[{\\\"7\\\"}]\\) in the model. The \ model and results based upon it may contain significant numerical error.\"",2, 455,127,18849179266209293879,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.709301242767576*^9, 3.709301262848137*^9}, 3.709302204275854*^9}], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"LinearModelFit\\\", \ \\\"::\\\", \\\"rank\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,455,128,18849179266209293879,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.709301242767576*^9, 3.709301262848137*^9}, 3.709302204350923*^9}] }, Open ]], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709302195406102*^9, 3.709302200561606*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.7093012154627953`*^9, 3.709301220493404*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJyV1Q0w1HkYB3C9yfWquFK5vFRUN0Rk9OoZq/RCUU6KkAop2iRsrSKLtdjR nbcMJXk99HZ5u5FIWLKlUohYp46maJ285apzs0+zeWbuTDuzY77z/H9vz/9n P2pOx3YeGi8jI1Mz8v33r+QjNlKeGlNxU7bVSJI1INCb4fFSvRnzKnBY0+2T plKP2Qh8OemxRr2PJNnfBJxLs5ucXO9j3gL3DjxdqbdEgHk7dCkW951IvyfJ JZYwaWJXYhujRpLBCkreitYcu1iGdWtI02YWTV5xB+t7wPSl4rt8k2Ks20Jr 4l+f6u2/1O3BZ8jyqNvJ25Ls6AiPs9wd1CfmSXLSfjDdqh/dYFElySInuNg9 VVThVyrJqgfBRdbu57XmuH/HQ7Coxdoq5VkljneG7+sCkiduw/OIXCB0W5oW 3/Ihjj8MK2165r+7Wo7j3WCmV/8O60t43qQjoOdyKuaDHc4vOgr5HLb4eF0t jveAX7n6LfOLHuP4Y3D+Wuzlrnhc34IJeUobP26JqpZkMRPyN1l2P6/G/kce B42eW8/7LuD6Op6QIPdU+Jv4iSTXekJ5o7n2aQVcn3kCxmX0Ju2Tw/XlvaDa Xc6sRIjv4/pI9mizUzZ5gOufhBuRHZs+qOHz4pNwNtP9dYUQc6Q3jBO/jZlr 9gzX94EpHU2DbiXYr1of+J2bEDa3FM/D9IUWs8memUy8T/IsON+qXMJvx/1d Z8GBWfN15VWEuP4p6Di0MOaCBvZbfArcn1xjcTdifyNPw8MyP7fqz09xfTYU r8sZ+MEC+1XLhvRd/oWndb6c3w8UGKnRA154H+TPwJVsFns9E/P1M+C03fRG nT3OZ3EWhnvT2psYuB/xWVCxVmoXtWC/NvvDT8lHvGp52K84f5iQuDh/9+Fc Se70B8dNrFj9YKwbBoDCYj2VggF839wACBK463TUYG4IgHu2KobMA/j80nNQ vaTZPMW4QpJ9z0FPy6W1purYf8E5uHXTo+vqMtyvUiCED6XYrqjC+VwDYdsO K01Fd6wXBIKq7PB2iwg8rxwHup+1zDCQxf7YcGC2br9lfCnerwwOJA03MMy3 YH2QAzl7DJzKhZg3B4Gsrii5uRWfjwuCsv2FGwpv4/46g8Dfe8cLYx72zzAY UvYPBK0W4v3kBsMrPTW/5c1fzh8MP65a2PIiAd/30hBIy1vwZ1EyzucbAsIq 7dAX3fi8IAQqDMaL2U9wfSUumGeX5015j78nrlzQEDQWCD/h/SzgQpKD72or F8xyocBv3NBbGI/z24SCsrBtt6kW3t+MULj/fI6t51asD4bCkO+RK7pN+Huz mQc+rM6hjCK8b3E8iP9gwnqtiPvp5EHqg8oYL088r2EYmCzoONi2tw7PHwYh WvUBqa+w3hAGemaqj97a4v6WhoP2HP5HURQ+7xsOd1JtI+MA9ycIB+VW437w wvuiFAHr4xbodDrhfXGNAJ9mdmxjAI4viIChjbam85Swf3J80NQ3WfdwL/5/ 2vBBtV3h1uxFeL8z+LBseqt1og3ON8gHZ+fLmW9q8P2P+LG78zt2/zSpH7l6 GUcZmlI/KkvDy4eWSP2oL86tVHsv9WN6pmd6aILUjxrix2fix/CE0X48In6U Ej+0iR8dxI+tY/hhTPzIIX5Misma3Gsv9UN7DD+iiB8riB/KxA9V4kcu8SOL +MEhfhQSP7KJHzOJH9HEDwHxYzD92/zIIX5wiR9970b7MYv4kUf8EBE/eGP4 0U388B7DjxMuez9a7ZP6EU38UCd+XCV+2N1RLNvnIPXjM/FDifhh1ZDHPxwu 9WMa8cOO+DGD+MEmftQQP9zelOXbMKR+9BE/8ogf54kfu4gfmsSPV8SPecSP HOJHEvFjLcPPeZ5I6kcF8YNF/NiZNUfd/Cs//iB+rCJ+JBM/qogfd4kfa4gf WsSPi8QPHvFjEvHjLvFDhTXaDwfiRxTxI/EX1797vvKDw+I2Ddj9tx/LiR8G xI/8MfxYTfw4TvzoH8MPzW/0Q+brz0h9VP6f+j8m8jgd "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 203, 204, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 201, 202, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152, 151, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.709299000292557*^9, 3.7092991285069857`*^9, 3.709301177613864*^9, {3.709301208684267*^9, 3.709301220954483*^9}, {3.709301255369512*^9, 3.7093012772713747`*^9}, 3.7093022267943296`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-Pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.709302215968506*^9, 3.709302221097808*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}, {3.709299231083899*^9, 3.709299236209456*^9}, {3.70929932637269*^9, 3.709299328684326*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzt1XtQzWkYwPHc0rpfWkKrhMJOuYRx7xlFLkXRJkoRKlGS6ByKonS6OJNd XTQioY6tiNVtJ5SUIx1yj1LHYjsGOTa6sNh39zwc7zOz0/hrZ3bO+af5znve 3/N7f+fHZ4j7hkVr2mtpaX1op6X191/VR2mh3zW+7LR2nYWqjWHXFkvfx0Y1 2BPAbUpDYJrBXWwLEISlJ1g0Xld1iBV4FGdWu3tdwZ4LF1fdHmc+XIq9AF7o nnuzKf2iqovsoVPHF8kPLStUDQ5Q9Fw+ZcPBElx3hDQzv8LOo8/j+lKwfqz7 Ms/qHK47Q13yHx/uun5ad4XAVvv13pvPqnrFCriR4eNm1DFX1SkrwXre+Lgq u8uqlrvDwYau8rLgYlUbrgZPbZcfp9ri/a9YA0NrHR2O3rmE+z3g21uhqR3n 43nknhA5P81UbH8N96+FcU6vBr48UYr7vaFnQNNCx0N43pR1YO65Nf6tC15f vh7ywoKUG29V4n5f+Fk0vnZg4Q3cvwH2nkw4/CIJ59v5Qa7erPdz95WrWukH ebPtG+6X4/OP3QjGr87cf7Mf54/xhwM6t2W/KG+qutIfSu/Zmm3ri/P9NkE7 SWPKch2c3ysAyn10bIpk+Htks/Z96KJvdRXnb4ZTsfWz3w7B7ys3w47jPk/L ZNixW6Cd8nl8f5s7OD8QutRXt3gX4fOqDIRfRQei+xfjefwEUGvT2f+4H75P vYSwt06/SPwI7y9bCKt6Dxzby0CG87dC/ZrB8fuN8Xkrt4LPzZNC0Sx8vrHb 4FpJsHf5x9s4PwjOTctq/s4On1dlEKQvDinYNubT+YOhr+WxuOYAfB96bYcj mcKg6X7Y2dvBfYH1qVuueD27HfCuMe1RtSXej3IHGDjqPZLX4vOaEwI/pK4L qIzC55UYAh2Sh+UtWZujakUIrJgtTBi/G9cnhULfYeYG+c34e4tCIVzqM6a+ ArsqFC46G0zyW4XfH7ETyofX2B6dWaZqwU54VXtoqrURPn/pTjhz2vfFiZF4 v3q7IKb1qPPoy3g9r10wf6GDia4PrufvAkPtdwvs9uB5dcKg4U5tj4na+Hyc wqDP2Cb7pGJ8vyRhkPKuytJ2Lq63hEHW0onupTLsOeGgPVaeWlOH308Mh5KV BTMKzuL9KcIhZMvCBzOj8PlN2g1HVzaHT5bh+ynaDU/MhwSPqvl0/t3w/YTB tQ8O4O89IgLScgf9XpiK1xNEgOyyWeSDBvy+NALKJrZXBt3E+XoisM0sze3y Gv8/8RKBsfRevuwDvp/5IkhxE0x28MTWiQTxvRmNBUl4fadI0Jc9XGJtiu+v JBKu3O/n7D8P11sioVWw7sjYavz/Zk4UBAoVrZJCfN8SoyDprZXwqS7ejyIK jl29FB/gj+edFA1Wg+pXP1x2C88fDRGmd0OPPcH1qmgwtzG8/twZ729EDJj1 E7+X78PvC2Lg/DHn2ETA+5PGgH7dzCYIwPdFbw9MTxw0RuGO74vXHgisCUq4 F4r78/dA6yxn6wF6+Px0xGAy3mratWX479NJDIaP+p7pMxTfb4kYRnavc0x2 wuu1iMHD4/DxZxX4+zM/lii+CWrqpvYjx1yy3tJE7cel4pjS1uFqP+6ey7k0 5LXaj+7H/dMjD6j9qCB+fCR+vOvA+3Gd+FFM/DAjftQTP+a14cdM4kcW8aNT fEbnRle1H2Zt+LGP+DGa+KFP/DAkfuQQPzKIH2HEjwLiRybxoyfxI474ISV+ tKR/nR9ZxA8R8ePNS96P3sSPXOKHnPgR1YYfDcSPLW34sclz2XuH5Wo/4ogf RsSPE8QPl/O6Jcvd1H58JH7oET8cqnLFa2PUfnQjfrgQP3oQP4KIHxXED+9n JXlOlmo/3hA/cokfe4kfi4kfJsSPJ8SPAcSPLOJHCvFjqmWwxwC52o8y4oeQ +LEoo5+R7Rd+/Eb8mED8SCV+XCZ+XCB+TCF+mBI/DhI/oogfnYgfF4gfBkLe Dzfixz7iR/JPXn+++sKPMKGoutnl3/0YRfyYSPzIa8OPycSPjcSPpjb8MPlK P/i/xsD3BNIWfDM/+J5LegHfzA+umR/8uiNZXwof//m8/OwHv+7KrzM/uHXm B7fO/ODWmR9cMz/4/R58Mz/4/WvJfG+yfx3Zv57s9yXzN/DN/OCuz/zg1pkf XDM/uGZ+cPuZH9w684PrbNLMD66VpJkf/PxAMp8084O7H+YHP58084OfT5r5 wV2P+cE184OfH0zOv53MJ8384OeTZn5wzfzg5ivIOvODaxHpKtLMD64FpKWk mR9ce5HOJ8384NqJtIR0C2nmB39+0grSzA+uRaSrSDM/uBaQlpJmfvDnJ51P mvnBn5+0hDTzg/t9mR/8+UkrSDM/+POTriLN/ODPT5r5wd0P84M/P+l80swP /vykJaRbSGv84FvjB5mv8YOfr/GDP7/GD/78Gj/41vjBtcYPMl/jB9caP/jW +EHO/3/1Az+f1z99/rv1vwC3UeRb "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UczgwEABNBPjy6iExEkQvTeI3p00TthHPn/hxjPjMPb3fvGC9/5r9Ig CEr4/O+i+OHDfqfAG6+88MwTjzxwzx233HDNFZdckOecM0454ZgjDjkgxz57 7LLDNltskmWDDOusscoKyyyxyALzzDHLDNNMMckE44wxSpoRhkkxRJIEgwzQ T5w+YvQSpYduuuikg3baaKWFCM2EaaKRBuqpo5YaqglRRSUVlFPG3z+/8YEX 0w== "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UVWggEAhdFfd+KWXILnKCZgN6KCgd2BIgZid3fjnnTgHTi453xv/ErK IqXh4iAIiqignB/jl29d4ItPPnjnjVdeeOaJRx64545bbrjmiksuOOeMU044 5ohDDthnj112yLNNji022WCdLGtkWGWFNMssscgC88wxywzTTDHJBOOMMcoI KYYZYpABkiTop49e4vQQo5suOumgnTZaaaGZJhppoJ4oEcLUUUsN1VRRSej/ lz/Cyj7f "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwlz8VWQgEARdH3MBAsVOxA7PoaPsGBQ/1Ou1tBRcXuxNwuB3vddYcnPT6V mYwEQRAywTTvTpExRhlhmCEGGaCfPnrpIU03KbropIN22milhWaaaCRJA/XU kaCWGqqpopI4MSqIUk4ZpZQQIQz/I37MN1988kHxr4k3XnnhmSceeeCeO265 4ZorLrngnDMKnHLCMXmOOOSAHFn22WOXHbbZYpMN1lljlRWWWWKRBeaZY5YZ fgGi4DkY "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxtc6ggEAANCfN/EARrbslRRFsndIQsnee8/elkvn4nzfqcoUU4XKIAgq yFItv/xR5odvvvjkg3feeOWFZ5545IF77rjlhmuuuOSCc8445YRjjjjkgH1K 7FGkwC47bJNnixybZNlgnTUyrLLCMkssssA8c8wywzRTTJJmghTjjJEkwSgj xIkxTJQhIgwyQD999NJDN1100kE7YdpopYVmmmikgXpC1FFLDf+/Rylb "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxkVWQgEAAMCvN/FKHsGFSzmLLXYhgoKB3Y3YYnd3i7p2FvPeFBSFCkvy gyDIo5hS+eWPH3J888UnH7zzxisvPPPEIw/cc8ctN1xzxSUXnHPGKSccc8Qh B+yzxy47ZNlmi002WGeNVVbIsEyaJRZZYJ45ZplhmikmmWCcMUYZYZghBhkg RT999NJDkgTddBEnRidROojQThuttNBME400UE8dtYSpoZoqKqmgnDL+AZCQ UGc= "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.008333333333333333], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.008333333333333333], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[Large], LineBox[CompressedData[" 1:eJwNz9c6ggEAANA/OyuRGepHKJ7GI/hc85xZ2ZS9Ze+9zsV5gBNOzkxMR4Ig mCLPLHPMs8AiBZZYZoVV1lhng022KFJimx122WOfAw454pgTTjnjnAvKXHLF NTfccsc9DzzyxDMvvPLGOx988sU3P/zyRyAZoYJKqqimhlrqiFJPA4000UyM FuK00kaCdjropItuekjSSx/9pEgTMsAgQ2QYZoRRsuQYY5x/YMU3Hw== "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.008333333333333333], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV0Nc6ggEAgOHfpbgAZCd7V7LKDFGyJXtkZWZzyb0O3uf5jr/aXDF5UBME QZ46UU8DIRppopkWWmmjnTAdROiki2566KWPfgYYZIhhRhglSow4YyQYZ4JJ ppgmSYoZZpljngUWSbPEMitkWGWNLDnWybPBJltss8Mue+xT4H9GkUOOOOaE U84454JLrihxzQ233HFPmQceeeKZF16p8MY7H3zyxTc//PJHFbQKJ2Y= "]]}, {RGBColor[0.5, 0, 0.5], PointSize[0.008333333333333333], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwNxlVSQgEAAMDnUbySR3D81rOYiF0IiI2FjV3Yid2iYnIA9mNntrS8qqyy JAiCCqqlhlrqqKeBEI2EaaKZFlppo50OOumimx4i9BIlRpw+EvQzwCBDDDPC KEnGGGeCSaZIMc0Ms8wxzwKLpFlimRVWWWOdDTbZYpsdMuyyxz4HHHLEMSec csY5F2S55IprbrjljnseeOSJZ1545Y0c73zwSZ4vvvnhlz/+KVAEiHtOdg== "]]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.709299173228026*^9, {3.709299217591552*^9, 3.709299240418005*^9}, 3.709299304355733*^9, 3.709299419637433*^9, 3.709302174462837*^9, 3.709302228574006*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Phenotypic-matching Model", "Subchapter", CellChangeTimes->{{3.708964726393654*^9, 3.708964738264943*^9}, { 3.708964775250985*^9, 3.708964789713831*^9}}], Cell[CellGroupData[{ Cell["Allele Frequencies over time", "Section", CellChangeTimes->{{3.708964751433283*^9, 3.708964754881453*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Pars3", "=", RowBox[{"{", RowBox[{ RowBox[{"tmax", "\[Rule]", "1000"}], ",", RowBox[{"r", "\[Rule]", "0.5"}], ",", RowBox[{"\[Alpha]", "\[Rule]", "0.2"}], ",", RowBox[{"\[Xi]H", "\[Rule]", "0.5"}], ",", RowBox[{"\[Xi]P", "\[Rule]", "0.5"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "3"}], ",", RowBox[{"bH2", "\[Rule]", "2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "4"}], ",", RowBox[{"bP2", "\[Rule]", "1"}], ",", RowBox[{"eH", "\[Rule]", "0"}], ",", RowBox[{"eP", "\[Rule]", "0"}], ",", RowBox[{"\[Mu]", "\[Rule]", "0.001"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.695396698552619*^9, 3.6953968661476016`*^9, {3.695397553854968*^9, 3.69539755472857*^9}, {3.695398482720422*^9, 3.6953984853355713`*^9}, 3.6953985393976636`*^9, 3.695398653292178*^9, 3.695399097145565*^9, { 3.6954844197704544`*^9, 3.6954844220955877`*^9}, {3.6954849511058455`*^9, 3.6954849514888673`*^9}, {3.695484993897293*^9, 3.695485047976386*^9}, { 3.6954851906565466`*^9, 3.695485236848189*^9}, {3.6954852786245785`*^9, 3.6954852930484033`*^9}, 3.6954853629123993`*^9, {3.6961859740553026`*^9, 3.6961859929303827`*^9}, 3.69618602872143*^9, 3.696186076183144*^9, { 3.6961890385134706`*^9, 3.6961890423606906`*^9}, {3.6961891517899494`*^9, 3.69618915214997*^9}, {3.69618919376035*^9, 3.6961892279613066`*^9}, 3.6961892683526163`*^9, 3.696283011866568*^9, {3.698953020941763*^9, 3.698953021142603*^9}, {3.698953418584484*^9, 3.698953422895097*^9}, { 3.6989534721482363`*^9, 3.698953472291698*^9}, {3.699024833343495*^9, 3.699024833493294*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Xi]H", " ", RowBox[{"Pmatch", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.6954850984242716`*^9, 3.6954851023044934`*^9}, 3.6989523134846363`*^9}], Cell["The average host fitness at time t is given by:", "Text", CellChangeTimes->{{3.6950645165490923`*^9, 3.6950645417165318`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WHavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.695064525272591*^9, 3.695064567246992*^9}, { 3.6950648988719597`*^9, 3.6950649064803953`*^9}}], Cell["\<\ Hence the relative fitness of host genotype {XH1,XH2} is given by:\ \>", "Text", CellChangeTimes->{{3.6950646155887566`*^9, 3.6950646294685507`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950646306516185`*^9, 3.6950646630334706`*^9}}], Cell["\<\ Similarly we can calculate the recursion equation for the change in parasite \ genotype frequencies. The absolute fitness of genotype {XP1,XP2} is given by\ \ \>", "Text", CellChangeTimes->{{3.695064787924614*^9, 3.6950648278838997`*^9}, 3.69625464922569*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Xi]P", RowBox[{"(", RowBox[{"Pmatch", "[", RowBox[{ RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}], ",", RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], "]"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.69506483804148*^9, 3.695064871553397*^9}, 3.695066292192653*^9, 3.6950663504499855`*^9, { 3.69506638129875*^9, 3.6950663905692797`*^9}, {3.695066472089943*^9, 3.6950665903607073`*^9}, {3.6954851114880185`*^9, 3.695485112696088*^9}, { 3.6961860331756845`*^9, 3.696186042450215*^9}}], Cell["The average pathogen fitness is:", "Text", CellChangeTimes->{{3.695064877228722*^9, 3.6950648825000234`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WPavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.69506488664026*^9, 3.69506492336036*^9}}], Cell["The relative fitness", "Text", CellChangeTimes->{{3.695064931452823*^9, 3.695064933699952*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950649384402227`*^9, 3.695064952057002*^9}}], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Htmp", ",", "Ptmp", ",", "t"}], "}"}], ",", RowBox[{ RowBox[{"ListH", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"ListP", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "Inializing", "*)"}], "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{"{", RowBox[{"0.24", ",", "0.25", ",", "0.27", ",", "0.24"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{"{", RowBox[{"0.23", ",", "0.25", ",", "0.27", ",", "0.25"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{ RowBox[{"t", "\[LessEqual]", " ", "tmax"}], "/.", "pars3"}], ",", RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Htmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Htmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ListHMatch", "=", RowBox[{"Transpose", "[", "ListH", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListPMatch", "=", RowBox[{"Transpose", "[", "ListP", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.6961887771515217`*^9, 3.696188985512439*^9}, { 3.6961890207774563`*^9, 3.6961890989219255`*^9}, {3.696248833890818*^9, 3.6962488668537035`*^9}, 3.696254075209858*^9, {3.698953030270234*^9, 3.698953047734573*^9}, {3.698953438828637*^9, 3.698953439096142*^9}, { 3.709301517256439*^9, 3.70930152993349*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"pHlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListHMatch", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListHMatch", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListHMatch", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListHMatch", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pPlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListPMatch", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListPMatch", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListPMatch", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListPMatch", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListPMatch", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListPMatch", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListPMatch", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListPMatch", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";"}]}], "Input"], Cell["Plotting the expected values of zH and zP over time.", "Text", CellChangeTimes->{{3.709299854743474*^9, 3.709299876334786*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"zHList", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "XH2"}], "+", "XH1", "+", "1"}], "]"}], "]"}], RowBox[{"zH", "[", RowBox[{"XH1", ",", "XH2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", "pars3"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"zPList", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{"t", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"ListPMatch", "[", RowBox[{"[", RowBox[{ RowBox[{"2", "XP2"}], "+", "XP1", "+", "1"}], "]"}], "]"}], RowBox[{"zP", "[", RowBox[{"XP1", ",", "XP2"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}], "/.", "pars3"}]}], "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.6954844452649126`*^9, 3.6954844805669317`*^9}, { 3.6954846394950223`*^9, 3.6954846410541115`*^9}, {3.6954848621427565`*^9, 3.6954848994718924`*^9}, {3.696185825600812*^9, 3.6961858259198303`*^9}, { 3.696283834312609*^9, 3.6962838369577603`*^9}, {3.709300155102354*^9, 3.70930015995128*^9}, {3.709301412745586*^9, 3.7093014349078074`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ZPlot", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"zHList", ",", "zPList"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6954848731993895`*^9, 3.6954849400292115`*^9}, { 3.6961861256399727`*^9, 3.696186154133603*^9}, {3.696189127455558*^9, 3.69618914060631*^9}, {3.699036464725513*^9, 3.699036467205024*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0, 0, 1], PointSize[0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJw9W3k8ldv3liQNSm5FI1GSiEaK9DQrKlMlCiGR6ZiP+TicAcchmm+DSlKp 1KUUlYqiCY2KdKJBSheVpOnn+7tr1z99ns9+17v3XutZz1p7v8c4twDbTfJy cnLvesvJ/e9/9u+DTdFYwfve+A+1zfvxNG1EVDPDcni9svGByVuGlfBLJg54 /geroO68+qXAFoaHwlGtUaX1I8PqkO7lrjf+wvBojE+77KT3k2FNrH3JP5Ch qEBYC4aZdyqNhjA8Hsar0kcUj2ZYB6PzzJa/0GVYF9I63yuLZjKsh2cNrz9K 5zOsD4872766rGB4CnKbFtk6OTBshH/4BSJdN4anYpSGx5PQLQxPg31j/cVu DsPTMb1Ud1pkKMMzMLzk7M2ycIZnYq/SMdOLf/AsKAwzqFz+53ljJIwZ0h3+ 530mUNbPlFvtzfBsuIrDtiq6MjwHzX7DzK7ZM2yKjhPi+XeXMmwGzqvKfyNn MzwXq0uPJunpMWyOuekOFYtGMjwPir1N+s7uzzAwKyzJILKb4sEDoiTnfKP+ 8GE+qsIWvs97zsbn431/Xii3ho0vQNDZWivzm2x8AWy1ThvYXmHjCyHg/zjY dYGNL8QVmxcFHufZ+CL4d91SP8cwbxGOCgKrvl5k44sR7n3eReMqG1+MvPaf hwbeYuNLgF3nDJMfsfElGP7CxX1lExtfCh3Ts/1+drDxpaipfbt7kgLbvwXE eY9+rhtOmGeB3IPLavpNYuPLILkwvfcpUza+DEZ32y8V/eHTcjw5rhixz5mN L8fHLY+GPvJj45bwsi2RvYxk45bQXC3vZydg41Z47j914C0JG7fCeiOblm/p bHwFSmUHD5/cysZXoMr4zNIKKRtfCU5sWdESMRtfifyMPEfEsvFVsNJw7PuW 8Y23CjMemC0U/uGXNdQy35yOZ/uBNTqCL5XamrDnrdFXo6BYMI5wqTWara4N P9eP2dvAdkj+suR28i9sMOn9X9NOP2X+tsHU0TH6D64RLrVBbY5mv4MnWXxs oWJW0Lt4D7O3hYck+HVhMrO3hc78D6FDY5m9LQb5H3VaGMrs7aDUfTlpO4fZ 28HzZKDdfIZ5dsjIMjJ1DmH2djCZEprWFM3s7VGwN+fV0SRmbw8z6YfwjWw9 PHuMzHfjHz3F7O3hfGx27OdyZr8aCSPPrj32gtmvxpD7lyKHfGf2qzGnaWT2 ZjXmv57xfp9t66Yz/61B0rmTp3esYv5fg+OnD58rY3rAWwOdU11BO+OZ/Rr8 VeMzfOUOZr8Wb3wUrsw5yuzXYm+x09Wb/zD7tciM1VgdXczs12L352ciucvM 3gGOrTNdNNk4HGBTvEjt3llm7wB/3xAf7SPM3gE73r5+ujGD2a+De2zd/XbG b6xDaVN0pasLs18H/bzD45zB7NdhSY2C3PmxzN4RS27FDLJh/oIjtrU62o9/ wvznCCW55dYz/mH+d8SEKqtUcTrzvxPurNn9afyf+DvBbW2Vurwds3eCut6U 6j5zmL0T5liEzvgxgdmvx6qMfU5b1Zj9ekypqHhmOZjZr8dn4R4TsTKzXw/D GZ88Q1WZ/QY8LvviqDqW2W/ALruQZ/pGzH4Dnj0K37HRgtlvgPVu42NjPJm9 Mz42QnxQzOydcdJ7NafPaWbvjE0V0nnzapm9M275jtw3qTfznws+rl9lLJnC /O+Cvz3O3Rm/jvnfBYkr0nLy//Cn5/kdf+l05jB7Vwz/Maj/vZuENV3Rlq2j od/E3ucK/FygMbGLsKsrYk807fzdpw+93xXZVfFXJgwknNVjn2Gvb96fcKkr rixdu3GCHGGZK6y0u8Z1tLL5N+JaWldw5wM2/0aMN75vcIXxDxsRFtLr/ZAU Nv9GHBj1bcG7DWx/G/GDf8ogQJ9w1kZs2bNz95evzF8bEdJRvraV1Q9Zz3w2 03LqUpj/3TB0XfaVlWsJa7physDk1hrGD7ih+P30/S+75Gl+N+ScN+96UUOY 54aV12as6H+WcJYbnMuCTgfsIVzqhlq3tJrmFMIyN2xP6DNviIiwnDtOF2d/ mi8hrOkO35uPHFP/Jgx3lDvn3yspYPO7g69te33VEza/O3j/FNRHy9N6s9yh W/B8+syZbP/ueGPaqaDnz/bvjqAvz188PMH274GJ+lUL+B/Y/j0wKPbecuc/ fPKAuFn5Az+A+d8DZjundCueYv73wO3C48bKzcz/Hjjs/jn//igWfw/sSaur Kl7K4u8BnknpHZcthOU24dqEqS4ZfMKamzBm3s1SnzTC2IRRZhyjVemEXTch JGnv+LZExr9N8NBTnb/Gj/FvE9LEj7peLGPzb8K7BTe2LmTrkW2CvObXodJG xj9P7HnTeUjjIOOfJxIWGpzJZv0hPKE2XPPdgAFs/54Ydkl4jsv6E54n9i7z 6pzmzfzviRml/fZsG8H87wnPZeftO+9SvGSeeFi4P36vmLDcZoT55VofsSSs uRnDhw791aVOGJsxtmpsiFlHL5p/My5P7rC5UUuYtxl8aazSjruEszajoiN+ v1UN4dLN0Kw9dEXnFWHZZuQHvvr2tQ+b3wszJgV4TZzF5vcC79mQLaeC2fxe 8Hq41mLkJcKuXtCe9urGVhW2/57nl4lcX/iw/XuhY/2MON4dtn8vWJ7Usblg SP6TeeGtzUKdvD/1wxv+l73ygjqY/7174nl1hLEVi783KkrMAyz3sfh7406a eujcJhZ/b0hS3W++GaVI83uDe3ZX/4jFhEu9MWpz+G+hM2GZN/L654sGeBKW 24LZ93XzA5wIa27Br0dHEtPNCWMLDizlPy8bTNh1Cxw83h9srGLzb8GtFNnS BTzGvy0YcjS4/rIW498WNLpkXMq/wPa/BdVPA8Uv//TvPnio4ruDW83yzwfi YcYZsjVMf3wwsuxB+9EG5n8f3PPZOsbFhzDPB20TR4aGyxHO8sGlH21DdQ6y +PvgSZ7nCitrFn8frB9+zNdThbCcL25eNtfnNcnR/L64cLvhL4PbhOGLd4Oa TvMrCLv6osFs72HVesI8X2jKOtY19WH88wXnJ3/O5sVsfl/cm6u6L3g3m98X vdde+jibrVfODx7CRUuWhBPW9EOR6apTwu+E4Qe9gQ0JG1h/5uoH2533Iq+w 8yDPD5GrSpKdzjD98UNH+fAnFQuY//0QW+mxtPAOy38/7Dl/njPYksXfH0Yv 9c9OvMji74/H76K23xjel+b3x/K5I7pMnAm7+iNOxyfdXkqY548fpkf3cI8Q zvLHFLVN+dJDhEv9obtOZ9hgAWGZP76Unbfov4KwXACehRj/Y/ydzR8Ah8BD fftuZfwLQK+jdz6cVmH8C4BeZx+NOTGMfwEYU+GizX3G9h8AeZPbc9tYPSzt eV6ufN/ZCKb/AUi3DG/TuMH8z8GYccKwo2qEVTgor9j1QxBM8dLkoIFztFLa QPE24mCOQ1eNwgbGDw6UontHDXz9e97/Y2sOpPHS9sGLCLtyMKrCeuv5ul// YQ4Hk+9F7Q8+TZjHQb2P9tzUq4TTOViusF9t3F9kn8WBxHvBuN7ZhPM5WPDs 7pols2n+Ug4eqr8qPHWJcDUHWsqTvNLWM75x4CBx0zZUpf21ceC0Zptf5VO2 /0B4x7xMPsXOIyqBaD+x+ma8iOlRIFrqf+5OcyV/GwWicZ5w1ZRpLD6BcLB7 XqreSdg6EF53P/gU5DC+BCJdwW7VnHlK/2FOIBo2uN26WkyYF4hhkzuuTR/R 7z+cHoidfbtzjVYTzgpE4D1M/+JHOD8Q39c4R1i4ES4NxJ2n8eZRUwlX9+DC Vb7RdfR+WSA0q64ry28k3BYIt6YH20qvM/4F4eKXtSuzFQmrBOGx9wuFHwaM j0FobKtcyZ/H9h+EJ5IfMF7A6mMQhomFrYrm5D/rINRNvn5yqSn51zUIJTA0 1V1A8eAEwc2y1XCyI9OPIJwf82/vDBbv9CDckN1elJz3k+IfhAbZyCAv0Q+K fxAOcc0GWh3//h8uDYL8jfT+pSMIVwchZ1rdcP2n3f9hWRDuGMaM0H5PuC0I eR6vyyNs6Hm5YFi4Lt4/QpnerxKMxnjXk2ljaH7NYATd/VriziN+GgVjyIuX 7/XUGf+DkcJNfOugSvuzDkZ9t0QhUpftPxg197/1j7Il/3CCsaJg2+MGIdOv YCyqvffWt5j8mx4Mq7WdGQpvWD0LxsXZXws9flJ88nvm39OiWPKN4lkajOG/ D1x895DFPxjVp99yApL7U/yD8TDtlf4ktQEU/2DIbds69B2XsFwINHTdr/51 irBKCLInyM7YFRLWDMGVGZtcg1MJG4XA+6JjyeaZhBGCc5cnHEzLo/msQ+A/ ddm3CZ9oPa4hUIge2F7bnzAnBHOu8//2+sr0MwTPVqycoHGF9pseArXTx7tb WX+YFQLDWQOm92P3g/khkM9rMJTbR/4tDUGD+clGvhn5vzoEQ3OaAi1lxCdZ CO78k3nmA5/i2RYCrkflM60AFv9QaOuHhYac+kbxD8W70yNvHVjSRfEPxTH1 jw/r53yl+Iei46610tjUzv8wQjHrcm+TofMIW4ei7/PdXx/aEnYNxeoAzeOq twlzQvGrr8yt7ji9jxeKB26PDz7+TPOlh+KxlHOu93Hia1YoNukJNYZWMP6H osFy2qRjS2l/paH4fbfGK1yZ7T8Ut7zqB2/fQf6RhWJSwPXy2qnkv7ZQ3Emc d8OgmvXfYfhUOXqbvxvL/zDwXqQd/ovph2YYflc9K/UypPgahcGc/0NR0YHF PwzKj9XnZFgPpPiHIWqNn0s/NWWKfxhmDFV5VXOcMCcM90t3bK0fMIjiH4Zx k7s+dcwmnB4GpbNRjQtnEM4KQ/9963fO+Eb2+WHIjVA4Ey0kXBqGh1kRLTue 0vzVYZgm/2lBWhutTxaGyEKFf3Rv0/rbwiBL0Qmf5kt8lAuHQ97u+wXP2P7D 8fLIU0OuFtO/cEyyHT0z3I78ZxSOX2ez54/nkX8RDuPF7nc/XiQ9sA7Ht/ax e49NJL1wDYcV9+pZoQHxjROOTk/jcuygePPCMTLcf9lZL+JHejg+HZAGD8z5 TPEPh8L8nSs8rD5R/MMhGdYe/d6hg+IfjiUF07W3V7aT/oVjh/rv21r7CcvC MfWn6NbxWsJtPfYVah2HYshejovrGiNSPDPp/SpccF6lXxk57gvxn4v5Sn55 1fqM/1yUpTqefllE+QIumoeollSVEj+tudhROGjmjFGsX+TCMPp4P1058heH i9Av682T2P0/j4sGm6chKb+Y/nGRVDB6pcVH1k9x8fJ3tO7li6z+cXF228V7 tWsovqVcdP4WX1UsZvHnYmmBR3jCK+KHjIt5S2RDXj8gPrX17M/FWychZTDF PwLam2I/D+irQvGPAOplI2RTCGtGIKnm264TcwkbRaDQVS5i0HTCiAD/SrPz PWXC1hH44m1W/2Qnvd81AulhT9fcfkTzcyJQYr7ALKia1seLwKVnD4ucEmn9 6RGYdl6xs6Sd+JoVgXVLTd+ljmX7j0DXgptdL9RYfxmBvEWz84XtxM/qCOyW H9x9/Dr5W9bzPvkKuYYcikdbBJ6PstKd4kp6KBcJ/9Xim6Prmf5F4vIi2wmz aoiPmpFwfhprLVhIfDSK7DnvKF9bZEj8QSRGO6WX3ZW0UfwjYT0lonfk0Y/E /0jIPzqgrtX9gfgfieHZs0IfKxHmRULvWoUgoOY98T8ShfWxoW8daDwrEg+P L9ZdcaKV+B+JPO6bWz+e/Uv8j4Tt6meWjnGM/5GYKusn69xBfJZFQm32wguR c2k/bZGYFtFp6BNK+5WLwkcXv4NGs8gfKlGoujXusHUBOw9F4Vm0hdaCT+RP oyjUNz2Qn8X6IUTh3IO+xy/EUDyso/BLq6xq/E5W/6KQc3rx12GRxFdOFLqn /yi8N5rFPwqPJAPaw6KZ/kXB+aDD4rF/E3+yopA5Zm7nRXPiV34Uuk7VvAze Rrg0CoUtZwXjaghXR+HeofLv4Z2EZVFwDGldiz5DKP5RMNk9vNXsJ43LReMO VutoPGf8j8aR6XtGph9i/I9GwzaXgeuWM/5H48DWqwLRQVofomGU/WrvPg9a v3U0Kl7cu5HE9Ng1GgbmVs6ze7H9R0PL1/sq/xXrf6NhMfTfEyu2s/ofjcyR Lq7TDNh5JhqPwzbk+VdSfcuPxsDJ7v/2HsDqXzQGHTBu0GylelkdDcfm/Up2 tqRXsmic6hVjvIHxty0aSt9jjF6WEF/kYvDG3+G7kTfxSSUGc54kxx8xJf5p xmA2f7u11tN3xP8YJC/74H1iSjPxPwbL3i9JGWb0lvgfg1GcKEFN7RvifwzM r+TFztOncU4MRi9f3V02k+x5MZAbxuOmKbUQ/2OgoNVzYL7M+B+DVn70Yn1T yq/8GPxwS5N8zmH6HwPrcW9cy06SXlfHoCvI+VGGDfFbFoO8tpkHLghY/xOD W4bZhmeGsfN/LLIHbGmezs7XKrEQ74P0y292HxeL/JzGlfz1FC+jWISdnatd LCR9Qixs55fWjQ1g9T8W3D0y2dTBxAfXWJhJIvm5m4kvnFjMy90z9T7jMy8W WhO7R6jkEU6PhcEMwXCl34SzYlF5Jrkwaw7xNz8WGRMbTZtcCZfGYvSssnvP gghXxyLoXqaakENYFguZTV5BlQPjfyy2jVa+LplEWC4O2pMG3Et5wfgfh4SI Yycqwxj/43Bu3t8Gjx/R+o3icDnvS+10Du0PcQhK5sbtK2L7j0O9mcnPU2fI P65xMPIW3TDezM5/cRjebNv56CM7v8chzOJ25c5N5P/0OBSdmGzd0kL6kxWH WQe9fK1mUvzy4zDZ4UO3/hCKb2kctJ5YNtyLYfGPQ7O+cHtOLPFDFgeXMq8r BwYQf9riYO+p3XLcgPglx8PKly80dLSI30o8WBp4JHk+Jf6q8OD07XfqcvPX /2F1HgaFOVXrL3xF+cFDerGw27mx6T+sy4Pu4/HG68fSuBEPRbZdv9p6kb0J D1Fqs9ZbZNH7wcMViwhp3FCa34KH0Toe4wbwaH3WPDx7c+1xaAKt34EH3q2Q r3YepO+uPLjdNgl50kL67sVDyM8RE6yGsH6LB274nOfFl0kvuDzMXXe9ps5N nvzfs96NE07d+kx6I+bh1PITJy+FkJ6n8+DlonQz+Qbp+S4eOkeXPKp7THqW xcOdgmcveHtJz3N5yBlh8kY2nPiSz4NCxbTZcROIT0U8ZKjaVJllMf3mIXbL rwHHGN8reHg4OOrE4qWMzzzUHK0cXRpBuJYHlSN9Sqp2MX7zsGhU+4PJRwg3 89Ch0+etaD/jOw+aofruaQmEu3g4GLHcucmG8T8ep3/Y2ukoElaKh41Px8nJ e1k+xGNJ31g/78GE1ePhOc3afvt54r9mPIxr7kvqfxL/deOxWuW1tf0ndl6I x6Frv90uHyL+m8TjQdPkRw2a7P4kHg+tqrJF7HuvRTyMIg8OrPzN+ul4nNI7 +q7YlPjvEI9brRqVgey85BqPzr8z86pA/PeKR0afm161E4j/nHgUf5p6LtKY 9J3bMy7cdfHOROo3ePFQcYy9X/Sd9FkcD3X3wovftxFf0+NRUNZ11aeO+L0r HrIT7yShlxtJn+MxbY7xzn0zCefGQ9DxatNpEM6PR9dZVct/3xIuikf9iDsR a8woP0rjMdx8SFzmWsqHih5/Fe8aZ+RE+VAdD7OOceJ6P+p/anv89W7RrmpH 1t/HQ+pX/FLhKNW35nhI6pRfee8j/7TFw3CFcvx8A/JfVzy0+hpp3FNj+s+H UFVReVgh+V+JDxNto+c7rSg+KnxkrDNdc+gyxU+dj6xDj9wTWXw1+QjUnLl3 ZgOLPx9ufc0TxVHEDyM+VKZ6/bKoonww4aO7V8EYLof1z3ws7xW4Mq6esAUf S50vuOQYEh+t+dg/afBsNT/CDnz0HT1eedBOwq58RM84uazqFGEvPhJmtQ3P LSDM4UNtxPNXrUcJc/kIwZzz3ULCPD5qb/58N3kVYTEfW458sm3/weoRHw72 nFW9JYR38eGzstLh4r+sP+OjeW6ipWEE7TeXD+x9Z2eXT/7I5+PdUkvj8p3k ryI+uvSzSmxM2f0NH4OkYW1H8qkeVPT4x/Jbl/Ywikc1H87yTQYdYsqHWj4m zn/RddeGzlsyPl5lT1X3/Yvi3dyz33F1kYN9Wb/TY/+z/msfF+JLV8/zP6PU FtwgPsklIGpg+N8Ha5j+J+BQzGs5xctM/xNQvSepX5wv8VU9AWUZ3bytZcRn zQT4q3WLMgtfkv4n4EbFbtEYY8JGCVjc1H+28TLCJgkIiayan/mZMBKQlBzu 1LCc8ssiASYP789/4kn5Z50ASeIaCH2oX3JIAK9COyw+nuqDawIe3q7wD2qm +uCVgFEz58fGmNL+OQm4cyD8gpoZ+Yfbs76hr4W/asl/vATo/C3r1/qZ/CtO wCWvqztMd7N63LN/ruOi87MoH3Yl4LlrnZzpSYpfVgLWHC3IHv2a4pvbsx+j iPSTNSz+Cfhw8y7XhPULRT3+PTL0RGcZ8ac0AdMfvXtY68P0PwFFrW620lrW zydg0K8ZX3boM/1PwLJxo2bp+DD9T8BTR1/H+B1M/xOw2US29Ntppv8J0Isf 0v/jeab/CTB/0Tum+iTT/0QIXt5fr5HO9D8Rgbc6HT3WE1ZJhPcnndlzBxNW T8S22+m/E7NZf5SIY5Hej4rUCOsmov3GpCk+lSz/E+GRFHz/whCqjyaJMJpU f0e5H7s/SsT91JWWV4vInxaJWMNRFEyewe7TE7Ge0zBxyU6Kh0MixhfUnbOW Z99DE/Fperq+z0TSN6/E/32vHmJQTvHmJKLoQFn6iC7iAzcRET73Zk+6SfnA S4ReqmW51xo6r4oTEev4fo5Ij/XjiTjl+aDm7lvKh12JUDzifkzsR/mQlYjU um99lA8y/U+Eue6PE5sDiN/5iahYWKnx/q6M9D8Rm1r28jdcJFyaCFWTOl8D U3q+IhF5+Y+jyl3ofdWJuLW0dkQFaL7aRJSXN3se+k3rkSXCa+zSJ5FltN7m RCx45zxy4gWqd22J+Px6n+m331QPuxIxSNVKNvoB9UtyAvTLHrr74XLql5QE WLVvbMw2LcoHFQF4i+VlpuXyFH8B3tbYtmj5sPOBAA0Fq/Zv7aB+SVeAWalj D70Bq/8CmE2+Hm2whPLBRAB9of2/ij+JDxDg09gxor5elA8WAuj+yIjRWcru UwTIfhARY1FC2EGA8mmmvf9WY/ovgNMZC+39jK9eAnRnmuq3pDL9FyB1qP1X LcZ3rgCjSx3+6b7I9F+Axf6qc2ey/BALMPfBAL+cLMLpAuTPT15gEEp4lwAD NNI6C6YSzhLA9YW2/Ir7tL5cAYqfKlQE2rLzugCTlC0KlzvR/op69l9p87mp lN1fCpCTMWPaoQeUDxU9/nbYaei+m93nC/A869CkwVrk31oBfviXWaxm36dk ArQe7lKa8o7yoVmAoS0te69V0f1jmwC2jXbzC03pfNwlQFbweLcUYxZ/Ibo9 3wcpVxM/lIS4r7oxurAX6amKELc7dL/OiKV+SV2I8vsbms+1Ur+kKcT7o5+E ewxJr3WFsLh/SFisQ3puJMT18xferb3E9F+Ij1XPPlS9Jv5DiEUPKi8+3EPY Qoi5b3frJb0gbC3Ec+NYvfIrZO8gxJuQ2eEbren9rkLY825Fap6m+b2EaPvm k+7di+oZR4jcWW7cPA7VO64QuuW7V2duZfkvxL1r6mtmq1P/KBZi3/2iD0eX 0fkqXQgP+awbewaRP3cJIbdS2TBnL/veLcQn5dhM68UUj1whHh+dc+ZtA+lX vhCSXp5vVS0pnkU983335RwKYfeXQkwZ12eGqQ3xoUIInuP+N09fkH5WC9HX 8YPdU1XiU60QN/zlNkVvZ/c7Qqjy+1bOYv1KsxB6r1TDO5Yz/RfCdWF7+Y1E pv9C5GmO0qs9wfRfhOpeRRfsrjL9F8FzuWdVYDnTfxFygi7EhbL8UBehI6n8 Y852wpoipB6JVF65gbCuCJdKvKOL+xM2EiH5rWG/8N20PhMRMv367ihQYP2f COqd43t7pNN+LUQYdPYId8R1dp4WYeag4JbKw6QnDiJoVB88s92c6oWrCAcK B+9efZz0yEuE1WO2WWspsu9tIuR2D3z4TzDpGVeET3vC1lmOY/VfBN3x+t8b Gum+SCxC3sqk8LR5VC/SRbD6dKzfehPiyy4R3DcWFa5IJD5lidAy/lTRkl3E t1wR6uRq39slkT7ni2B/UJJhakL6XSTCyabY64clpO+lImztvNc2JIzpvwj+ 9ul9x34g/lf34KZKw4iPhGtFONt1+PAQAT0vE2HPeJ3J9qX0vmYRKs8tzF18 geZrE8GXUzRUlk752iXCwuboGRV+lM9yYoi8dp/4m90vKYlRo55RqObJvgeI 8Wp3/tP9puQfdTEuDdlhUJBP9UJTDP2vVwTutuRfXTFiFaJWZrTLU/zFcP6V eWrZdoqPiRhd3f07Ho2m+EEMK++GQ9v9KL4WYvAe6I28HMbiL0athtqq21OJ Hw5inJvVZu6Uxe7XxYgOWLY/zoP45CVG/0zXnzrPCHPESB4uXuE1k+m/GDfi 1Ra/Y+dpnhj5LR6uPseZ/ovhGZW5obCC6b8Y1lcPtqY9Yvovxod7nOdl1Uz/ e95XINwz4gLhXDHOD366bImE3VeJ4WvkafppCeEiMZ5frmusfsXO/2I8jJ1g 1+LK+j8xVjZKHxf40v6qxfg9tmKT4nXSh1oxBH+NTAy+zr5viaH+YWr4z1DS l2YxflQmLPm3lfSnTQw3a73x+yxIn7rE2FH0T1BgLjv/JWH4ZGWLSifSN6Uk fJwswsVG9j0gCcmcI0dy5KheqCfBHoeGjiyheqGZBMXrb6dpKhN/dJOQrSaX Pb2C+GWUhIEWX4dGO1P/bpKE90r7KqeUkF4jCZ3t2wZk3mD9fxIifyuKorYQ n62TUCVb0ZC8l+l/Eko+Bw/RXkfYNQmPj4w1ds8m7JWEZ4PNVVckkz0nCe+W yQ9rZfdR3CToZ5TZaMRSfvKSYPTL86/Ftyh/xUmQ+P64/UuX+sH0JOwctnlP ZAPL/yTEblz1ctxKqhdZSdiUY+W+0I38lZsEx4iG9Dd9yZ/5Sbi8eNv2tynk 76IkDKj54Fjy5/c5Pfuf4uvxu5ziVZGE0Z94JyfOZvU/CTIHn3Xf/CnetUkQ H4+abebIvm8lobxQdsbuK+VHcxJOt+nxn48nPrUlYWuM08lAdr/alYT9ib6i suFM/5NR967ux+fNTP+TkbvS7s6mw0z/k3EZ/mai20z/kzGyMeNF+Uum/8lw 0dQyFL5h+p+MgvHHOBpPmf4nozUi9kENqx8myZC5eN8siSOMZBydGqz0mp1v LJLxZsOSUs+LrP9LxvWzNyp+aLH+r+f9nHkLVcrY/XIyvM119li2kF54JWNv ptOE8SWkJ5xk3Jpur7zcgvSGm4wVKkO8XuSy+9dk9AmdMejSb/n/sDgZYV0l e/cHkJ6lJ0OvZWXTGD2qF7uSkXbqCWeUAp0vsnret2Scz4Qoqhe5ydgnK170 OYX4kp+Mh6snLRpsS3wqSkb+8e93b8RTv16ajIS96u8PJ5I+VyRj+avp5f5z KT+qk7G0dFbksB2UH7XJmHI1O0OHR/yWJeN+Cif9AjtPN/c8f+l3yzKG25Ix vI/v5gtCer6rB+vz2jnF9D65FBTdbLrjcozmU0pBfaGHwNmf8lUlBeNmBQ4w Z/fF6inwmrz/W3Ui5btmCt686XgdlE71QrfHfn7znT5g34tT4LHIUawtoXph koIr2z3GhBmw38+kgJv1vXbbFfK/RQq01LcWpjlTfKxTIK5ouW7fQv2vQwqc vCP25Sxh9+spWL+wfctlFxb/FPD+XVP+eTL73poCC52B+xOOk55yU6Bp/szW nt0/8VIQGdfVtvw9YXEKXo7eqShi/VN6z3q6f9Z3bGX6n4Lg95M/Hyhj+p+C E4LKzAOvmP6nQMXsWEZnB9P/FNx6rVq981+m/ylo7LUl2InlR2kKHOIqCjrY +aQiBcm9IiY1erP73xQsy5eo7lZi5/8UZK+IzryVyPq/FHyuyh4QcJb215yC f3M6hqgrsO/dKbCbv0Qn7CfpR1cKvPWn1hw/yn7/IIGN9wK3Z+x7spIEP70/ Vy5gf7+kIsGYv70bQ2+TfqlL4KNZ+9elI6RvmhJ0/JzedHgmnS90JTg1r0l1 vzPVCyMJHjxRvrp/PPHDRILFcjFaA2OJP5BAyVlv1JxC4peFBPaxh+v1bUiP rSWYH74m58Np0msHCdqOnC3+eJ703FWCFY51LePWEp+9JFhrm/LjO5/pvwQe yXqWi00IcyVwvFm59nskYZ4EDj62/7qsIXuxBF7i0NlDn9P70yXIOvtqVosu 5ecuCYaLdarq11H+ZknQ/Jrb5JFJ+Z0rwemd9Vuyv7P8l2BNgfTcUVYviiQY YTll9vhF7PuNBCGbzh/2uEv3FxUS3A+eFDTAg/2eR4LQcaM33/5N/WytBCjo Up20h/2eWYJJhgp2FX+x+i/p6agP7N9qx37vJYEkpd9co+VUL7p63pc/5KJ1 B/FDLhVoLbgzbSLxSSkVFe3OgZfOsvv/VPAHW13X12T6n4qhIsXIsmCm/6nI mzVtptoZpv+pOL9as7DsGdP/VKzqbn7txvLBJBVprTmdYV1M/1PxYtGrvgEf mP6n4tCE86t23mH3v6lwHDvDZzC733JIhW2vwltVi9j5PxURiy3P1T9g/V8q XNt3udew32twUjE2tD33+XfaLzcVi4qvJ4Vqs+/vqZho21xZ/YX0RJwK7Sl1 ZofjqV6kp+Lwof23h74kPdqVil3tb8d+Z39fkZWKD9vq21QPk57lpmKKtpVl /2T2e61UKKzcYqe7nupFUSrMBHYWI29TvShNRdS9CyeMHhJfKlIhLGsN3/GQ +FSdilcTi/01uohvtakIEfmrhrYRH2WpKE80qB2QRfrdnIrLp+N3b2ojPrel YubPJ9P33mf6nwoj7WuDVswjLCfFjZam8IBZhJWksKq+NMz2CmEVKS7yn665 0kzvU5diys4r/6hW0nyaUpjyebgbQ/VCVwqvS38f+zSJ8tlICqXhhlvGRVC+ m0jhudc8b3wU6QGkwFuLwAHaVC8spKhWVXH5uIXqhbUUJvt1XJ6OJv86SHEn u9fy+/nyFH8ppoV5bT9py85/UrwNONC44iXpGUeKsGNZeqfnUXy5UjxWN19/ ax3VC54U+o7+ygY6xA+xFFlbl9ZEZZOepkux6vWmg/p+7P5fCo8d0fajm9n3 aSlmWV4tj2Lf63KlKNp8rM/MNKb/Utw8M/GK7TWm/1IolnwIbmhk+i9F3pwY xdp2pv9SSO4+zJjG6kW1FCcynfh3Wb2olSJ6m8R+C7vflUlxTfG6+TFfdv8r xYsp0sFayuz83/P+1kv9i1NY/yfF5EnvhXdvsN8/paEBgfPvaNL+ldLgIL9u 2Gdt8o9KGgL0hV56taQv6ml4tTHzg9ia/KuZhucLHtv0P071QjcNiVXy4y8o UnyM0nBP70evl8r0/dUkDaXuhjeeCqleIA37S17yLmzrnPd/5TmB7A== "]]}, {RGBColor[1, 0, 0], PointSize[0.006944444444444445], Thickness[Large], LineBox[CompressedData[" 1:eJw9e3lczdv3/lFSGZI5Q8pw0yV0SwrFUyqZM6UJTZJQp9M8n+p0Op1zOmWq TAkhERluQgghmUKXzJkTkrlryLff77PW9Y/X89rv9d57r/WsZ62936dBPsFz l6oJBILX6gLB//uf//3pmXn2i3F7/A81T1o58b3pKAPGAqiHDkia0IuxFh73 8xwyqxNjXbQ/e+HAznaMe2LA4sGb01rUCeth0Lb9F8Y1Mx6A2Xd9a1sbGBvC yXBMdI9njAcjfZiDw75HjIcitfKPmk/3GRuh+LeJpfZ/2BhStX7Nrf/h4fh7 mc2Xu//ZmyBwrNqc1f+9fxQ2/JXURaeRsSkqLp+Tj/jI+C+0e1Y/oewHYzN4 XnKviujA+zPHkNOWSoPujMeg28OZQT4DGVtAecmp3evhjMfCy970iaslY0sY q9Vau0xmbAXFlB1R0lmMx2G8h82dNa6Mx+NGirTHCG/GE3B32pQ6zQDG1hBf tFd7t5KxDe78M2nT3mDGE/Fs7cSEIULGk/Ah5nqOfRBjYMzihKNdAwmLgTKr wMZsXx63xfHqardf7jxui7Pb7PZGOPO4HSbf6f/cwZ7H7VDnp1F7YiyPT8Yw ubyrBfNLPBmegebSPn153B4fO94/d12bx+1RWNmj+ep39r8DSk6bb0t+S1js AL/4/I0ej3ncER7n1TMrbvG4I758GPm7azWPT4Hl+HUzN5/l8SlQczg6YM9J HndCuVDcefkJHndCpaag4QdjwVRYDOo7d9VpHp+Kfqv2/Tx8nsenYeWaU6KD 13h8GurX3Y0xu8fj02FsvqxH8ysenw5TwZMOq7/x+Aycmre02z4t3v8MvMhe q6zux/6ZCcsXR1avGMnjM7FPMyxeEzw+CzGTBpf3mMvjszBp9qCzHf6L32xU +9zr5ini8dkYGvhodG4ijzvjnnKF/ww5YTjjealoQr81/Lwz3hVoJ5ZmE65w Ru+OG+6/yWH7OfitXVK7eT3bz0HQuC9Dz2ey/Rw4xvQNjpGy/RzUXdUZ9zaa 7eci22KmiS/zD3MxduSbDZOY/+K5EDu2OnzjfKmYi/l/W6Z0H8X289Bs9LLY uA/bz8ODRf0GPPjN/p6HS2O6b/2H9aZiHoYHbT56+ib7fz5mNY7fYXuKMObj 72cvln/fy/bz8TrRoWfcZrafj5+DDEynZLH9Arypaq28kMb2C1B7JfT2jBS2 XwBR3HhlV8YVC6C4+qnHMH5e4AJr/bfTlZls74K6rNd2ejyf2AXr+x9bL9nH 9i7Y2LrvwMoKtl8I552Pm2bfYfuF+PnZbfc61lvxQmwf2PFfBet1xUIkh2n6 RQxj/7nCaM2WXzL2L1xxbIaG4afF7H9XBNnsW/Y8iu1dIXorurImi+3d4Lnn 5w7sZHs39D5q4GlXyvZu+Ok+7oz6ObZ3g3vR7qLOl9neHVWnypvaX2N7d2R4 /0w9yuNid1gtVFX3rGR7d3i1s6s0P8r2Hjh3sih07n/ze8D76h7df1Rs74FL Nv7m9mFs74HeGuHPprqwvSf0JNuzii3Y3hP7ddepz+7B9p6QTNvlbcj+rPBE t0GKVQZX2f+LEKcxbsIs5gsW4dvinTl7Fez/RTiif3/5iGC2X4TdySFzD7iw /WIkSOKqftux/WKcDO7/+vwYtl8MF61Hg6UmbL8Y4y0K7m0azvZLYFHsPnDs aLZfAqm2adiC8Wy/BKYXN92sns72S3BEWH7V0pftvVCVb66pKyZs6IWyJb5v N23j97WN99t76ecFwl5euHz12Ciz9/x+L0x+4pxlyHqe74Xgj5GCDf/lqxd2 fftxxnsV4XovGN4oDJzEeiHwxgXRfOvWY4QNvTGtx1232HscD29sC+meUvyF sJc3CtIjdYs7atD83hD3/dByXI9wvje0R/Q77WhAuMIbZTHWZp/0Cdd7QxJp 3rKhJ2GBD57E3Lw9U52woQ9O7o3c79HI8/vgqKhn12nVPL8PCo6FTb2zg/nh g7eC7AdfInn/Poj5ZW10cQrv3wcBiQnO63ry/n1wVrZ3zfn/6pcvTP8x+H2n iP3vCyeXfePnRrL/fXGoZX92mSP73xfXvSf2TurH/veFd+GeF5qf1Wh+Xww/ /edxSS3hCl+M/dRF1O4k4XpfpN05NnzufsICP6x7s+CJzh7Chn7ortFhs6qY MPzQy6Wn7vMThL38sNjE69T9W4TFfnjQd0bmj//m98PXcWqdJQOZb35YYN/Z L3Q24Xo/rI9sCJVLef9LIV+S82Ue12fDpfCsmPBiJPeTWIrabPUv823Z/0vx XVhz5IOY/b8Uzz8+e2R0iv2/FGMu9uhj+I39vxTjd/y92HA4x38pWtPeZmYu 4Pj74+foSo8OURx/f4intMa7ZhGGPxzVV3XfsoWwlz8Cja8NtdjK/PPH9wU6 e2vWMf/8sXjjx16iBOafPwa72KYJPXl+fzTlvFRFjeb5l8G5dIWBooX5vwzd A7Qdvpfx/pchQmlv6Mv122sZJtrYnC4w4v0vQ6aG/sFbrP/5y/BmaZZyuIz9 vwyf/aQdW8ax/5dh5izFQcV7ipcgAPYHXtkP3kvYMAAJBSNH3QoijAD8duvy MtGasFcA7MpMO1zoRVgcgDWaBvj8ox3NH4DcrbFd1ZoJVwRg44sfR9M/Eq4P QOeG4VqV6jz/coieNYSlDuH5lyNdOs7feg7PvxxjtIwbmxU8/3I0NHsvcrzJ 8y/HdqOMO4mDef/L0dGszFwWw/tfjqbpnV1a2T/1y5G3Y9VdByvWn0B03V65 f1Mu+z8Qm/ucyBr5lf0fiAqn9/vMZnH8A5Gws3qveh7HPxAr53v5mT7j+AfC RK1UbU3/DjR/IA4L2vd2cyBcH4j2ubF/91lCWLACR4Z+TqxaRthwBao8xylu LSaMFQhwOzmnuz1hrxXw0ls871YfwuIVWKrllvLwHs+/AoaeC56LVMy/FdCO uKI5Zwzzrw3P8Sgr5norWImXej7dRnnx/leiwG7tmdtvWH9WYsbC4D+/hLH+ rIT0fvBktd/s/5WIGCiJTcognL8SSzMWRjzieFasxIn8q2ozz3P8VyI3LPhT cRhhwSqUJy1VxIwhbLgKm0c/u1bagTBWQatg3MnXbwU0/yrsl7xZ3beBsHgV Xr5Q3rjUQjh/FbJfug7/dyDzbxXau6/5oe/O86/CzB8miYP28PxBOL1aes+9 I63XMAjeIodYZSxhBEFleurKy38JewXheGbQ+B7JrL9tuGfPmKm6rD9BKFqT tCA4n/UnCA4HhOq2o9j/QfBf2GCU8DfnfzDKZxT69jbj+AdjtdIqyTmf4x8M n3NT3Bp+cvyDMXbw+oZBDpo0fzCujXg6+mYE4fxgqJmMkXllEa4IxjSlYGwl 4/pgZNfNskiOJCwQIqVcFrnfnrCuEKbSLY4fW3g9Qnxy9IzKWU/YVAhVu8rn 6wfw+oSo/7lrYx7rpbMQuzx+DzL4r14Lce61kYMln2+FQgRGjN63JZ/912b/ qrRB9IH8myXE2Btvt3VwJJwvhNVyrWHZOyheJW34xgVll64cXyHsPpx/c0tJ 8a8RwnzzMEmhIeF6IaQHP/8zdNPvSf8fNwvR/CI4uWIEYUEIuluWn/H72vo/ rBsCHWnVZ91fhA3bxq99KMwBPW8agpchtl+2VRBGCJ73Uk29ZkPzOYcgf2GH fk5Hma8hyC7d/DJiGq1XGIJ+Fje6jf5MWByChyfr2s8v4f2HIGKe7tj6aNaz ELR3rVZoTSf/lYTg1BUcieV+piIE26M73SttJFwTAlHV+88++1hvQlDz9LDZ Xk+Kb3MI/s2xLUv4yvEXYfBE801/h2tR/EWI0L8/W+8OYUMRWoxMVs3W06b4 i6Dp0vDqvCVhiNC6M9IpfQxhZxFsrw1yNdMh7CXCxp41vR5V0vuEIjjHnWgd 70ZYLEKNh4te0RVaT5YI89Oa764axHwWoWCo0c777rSfEhHMkhRW4njevwjD zYf4GfF5s6btfU9a+x/OZr0XoalftcOtTeTfZhFKC0wnSnZx/ofCTXtXieIU xUs3FFnXVdYf/6H4GoZCcvl98Gpf4oNpKOYuKPYOHP2L4h8KxyM323b583/Y ORT3DticX7Hpx/+wVyis2o2VeUwmLAzFYIfKH2rjCYtDkVl88raNmHBWKEpW pDSa9Kb35YfC4YJHmsEPwiWh8Cu0eWo1ktZTEYrkjjbnHhTSemtCIU6dePr3 YeZ/KCxG9e5wroT22xyKv/Urb0dUkj8EYVj/59eplnw/oRuG5AQt33tduR8K wxU1p8SsMZz/YTBZHuK4dzrFB2Go26S5ZckMiqdzGL4aJCx3Hc3xD4NebuO/ v5sIC8NgvGzilri0jhT/MEzr+/Gw8CvhrDBEFez9kju+E8U/rK0/XLDZbx7h kjBMWeQ5Ng+EK8Ig2BI1zUKNcE3b+sw+9TXPpffVt40PerD1sRrh5jAknL16 ptdkWo8gHN1Gdd9X7s78D4dx7yvDnGfS/gzD4R4/8P18Q95/OIbrlOar7nN/ EA7/O/p5N7nfcg7HoXd7hweak3+9whGle/l+31cUD2E4lFkREzovpniJw1Hn H14R/ifxKSsc3Qvr9wycRHzID4fow8tL3wv/pfiHo+dIC8GZlS0U/3AE3dZ/ 8l75jeIfjuce/Ws0OhKuD8f37XrKXc++kv6Fo2DriICEvjQuiIBr2YO883sJ 60YAlSOjnTfR+w0j0OryeLDBa5rfNAKxfwp2LV9P60ME9H8emzcuj9bv3Pb8 kQ6ulb9of14RmH3Pf2rEfNa/CFQ/6RpidpH8I46A2ZFzU+JZ37Ii0P/PU2V5 t7ificDEou2L/5hD8SiJQOdn2QskpRSvighsOa8XE9lC8ayJwKMz807U6hAf 6iOg43LJfN9nws0RuPjeY0rt7s4U/0gIHhb2MzTuQvGPRF7KCQNxBGHDSJwI /+U1fh1h00ic8VM+mJtMGJGIPjdCc5QtYedIfI65ukFUQ+/3ikTuXfd009GE hZHouDl9zTxPWo84El2fZ07xWcj8j8Rc/z1HYwbRfvIjUZke9NXnFO8/EtXa 6u/9LLi/jMTPHz6zN61m/YtE4MD25suekH/rI+G7qLBYw4LzPxJx7X+1/jmO 618Ufjj7vrKYQfqiGwU7YfJf1mUUb8Mo3OgXZDhZTvwwjcKjZTctPl38QvGP gqwg8ODikM8U/yhccU00GZPyieIfhTL7xik3Wz6S/kVBOuyXxuerhMVRCDg6 aXX9b8JZUTD8dK+ngYrs86OgjN7qui+G3l8Shc5T9Gduu0TzV0Th6R8xJqPE zP8opCR1q7y5ndZfHwUzj1b/R2a0v+YoPH8fvEX2X/2PxpEut8YXTSL/6EZj chKmL+nE59FoNJ27vGNtA/nXNBq167QPD6nk/icaI3UtxxyTs/5Fo33026kp IyieXtHQ0tlw4s+NFG9hNNa7Xrwjvk58EEdDT/2POJ1LxJ+s6Lbz9Em3G2k6 FP9oFMTWHb2m05XiHw1RfFnYeW/CFdGYYax6OVpCuKZtfWvthuREEa6Pxufz l+KHg3Bz23rOn+6y+h69XxCDxMlS3W8OhHVjkJ9Q9c0vkfkfg8NuqYdCU2i9 pjH47jhk64rZtB/E4ILRmjHnnnL9j8EffQ/qVYL84RUDy3OV256GkL+EMdht sEgxUsLn1xhUTp22zE2uRvuPgcWhoj2+G7ifj0Hq6GHS+3LSl5IYRL09vPWQ zXeKfwxW3G691teb4x+DLY+aYlf8Jr7Ut62n871nUX2JT81tz0cGGu/a84Hi H4umtQfs+u1uJv7HolixVOGhRdgwFtXFV6a7yN8T/2NhtvtBp4gDhBEL48jL 21fZ0PPOsXjz5d5J62+EvWLx7GGa8pw28z8Wa+eY5lTF0XrEsVi4ek2Ojjvx OSsWJg/W7TVjPc6PhZWgn0lSBO23JBaVhx7u1DhB/qiIhSJwVcHCUu5/YxFr 6dj5Vxn5sz4Wdks3HZp/k/zdHIsFh4Trhr7h82cc5jjMNDrzhutfHN5MOPzw xWnir2EcutvUrljqxvGPg1AxbN3PEta/OCwv2jMq/DzxxzkOm3vZPb+9gfjm FYfMmIg5R/vqUvzjsFFj3YTeMwiL4/DM0T+swp9wVhxWXrh7rnYF4fw4nBke rlngSbgkDqGPn/deO45wRdt43Pm4LmqEa+KwYNTdin7Lmf9xKN7oUifbQutr bnt//FqLN5to/YJ4mPk8LNNfQvvTjcefnSLdujzn/cfD6HSo+7UR3P/GQ/A6 pznDhvufeEzc+9N37TA+/8Rj6pKNcmkr+d8rHnnbd286cY/rfzycA9TMfAop fuJ43Pd70DTtF+lVVjzMn7vWWl+jep0fjzCTH69eGLH+xcM3ZOvw7x2ITxXx 2NhkYmDhT3yricft6MHdLgqbiP9t48bL9Ac+eUv8j4dOdMutkR0ICxJwN915 452rb4j/Cdh+/XKW3ITGDROQMN0qzHjgO+J/AjQmC/dt2EXvRwJenhh7oSWA +Z+AUb9t9J/cpfzySkDojGt56YeI78IEFE2teDZSQPsTJ8B5mMPZ1KvUb2Ql 4FH4m+UBA7n/TQCuBE7o9Ib0uiQB5QeDLMfqkH8rEhA9dfjHrw5c/xLwapCp 7ukUPv8k4Ir11sX1+4jfzQnQ3f3t3ck9FF9BItovm7hm6XKOfyIU6X5aH5+y /iVi9b8lTWd6Ep9ME3E2MKThr3bENyRiZ/eAm/puhJ0ToXrXxfHiesJeibB9 7z069zjzPxG3ft3+taSa+Z+IyJqFXwwuMv8T8dZser+mg8z/RJzRGJT+RM78 T8Q7YUljhznM/0SsWuJjtPQ//idC1HvOa1sr5n8iGq7W7i+wYP4n4nXG4sxJ X7n/EaNx7IJf88JJz7XEODugY3nwIeK7rhiPUosF5w4T3/XEkPceZKRI4/OB GDOcdXZkTaZ6aSxG+Mb+cFSjemoqhmiIyGtFOfHdSoxi+5rmE/eI7xBjTWBX Df844oOTGHNrfaN+FxNfnMV4bDRGQxZEfHIVo779+VEDA0h/vcRoOqN5YV89 8TVADH3f2GPlxsRnoRhBz4t9Hf5o/B+OEuNt4+01mypeE//EGPEo/vaON4Rl Ythl6UxPy6Pns8TIjlkwZMpdel+uGMeH98gzKaB8yBfDw75U9UKT+F8ohtHD FTmdN9J6S8QY+alovyCH9lMmRozJ9c2Lu9B+K8RY/bjvBTst8keVGEu2+V6I khP/a8SoFKpGnrAn/agTY0jTN4ffYWoUXzE23l2gMaeC+N8ghrO3gdGuTnze F+Nv7WkJ7hMoni1tz/8o+WBsRfEWJOGjyaxa2Ufig1YSqs4NTJH4cj+QhGVe 2gt8FcQnvSQUPT3glGdJfDNMwhCx7X4oCBsnoSxF85qikrBpEnp8LA7s+Yqw VRKw/+FfFV84f5JgJXZ8mPeRsFMSPDf+s6j2EedTEvp8PHhfyvnjmoTbKdXp 1yWcX0lw0pweXzqBcEAS6u9MbM4so/UKkzC4l4tmMdenqCSYyo7cFeRQfouT oHnpp6i3Ee1flgTdzZuqhwq5H0/CdgsbVUkU6UduEp4+d9NYN530JT8J75tL ztn/Iv4XJuF59f00WSHfV7U1k1vvDbh2i87rZUkQBejH/HOE+5ck6F0ofOfd h+p9VRL0F5tO1ehCel+ThJlOMybsyyE+1SVh1OAdE055Ev/rk9CYXh31TEL8 b0jCup+N89zSiL/NSdjStEn/uwPxuyUJT1YeP1m5u4H0Pxl3LPJjjTYS1kpG VNj4FTnd6HndZDw+kHC1V0d6n14yXvc/lVKQRvlgmIz5d7+HbcmmfDBOxuWe nluO/UH5YJoMk/0HH+6tp/VbJaPn73GVqk60PyRDO/XK+1tHOP+TYV+te+3a C8oH52RY79ths24L6YdrMv79vXNdr5d8v5aMCeXXAvoak/8DknG9851WZRzp kzAZ2XqFQ8depHyISsbz6bvud31H+SBOhsWFcRG/6ygfZMlwFqX/tTyB+/Fk jLoyrGT4XeJPbjKE1nqlh98Qv/KTEdf7uN/YxcS/wrb97I6u3b+H9ToZhtaR 82wfEC5LhnLV6d6B/7J+JyNQarfjpXq3/+GqZHga1bZu+MV6noyO9wvbxXL+ 1CVjc3lyTPIZwvXJuJGtDNvI9aEhGTJp/NhcEG5uW9+JclV+Ba23JRnvUx5n HLzM/X8KnA/CcuhG2q9WCrZ111jb8w+uhykY4V6mK1pO+aCXArsED8uzgXw/ mIJhV8Jn2vJ51DgF9wrt1g/l31+ZpiBv0M+aIUmUD1YpmH57a0enSMoHpKDD zDcXgmZRPjilQLrXeoTRXuKDcwp+xl5dFJpH+umagq+m5vOd/+T+IgVnh94/ KkmhfiSgzX6ka0tSCet/CtYdrHR8dZT4HJUCo6K87OMxxHdxCr7MHJcT9vgV 6X8KXGxfbzW6RTgrBTZbvw76PpWez03BnLlldzdMovflp6CqnepG4VHKj8IU HJb1aelzivKxpG19RfO7tvhTvpalIKed+5Bt/rT+ihQURg8WtaTR/qpS4K5l 1sXTiPZfk4KFefZNv6dTPtS1xSvvataSf6k+1KfghMvev4yyKB8aUhAVeNtm Q40axb8N616q9jaifGhJQZZqjL1/ON//SpCduafAbDvlg5YEa4qnC29nUz7o SjDTJlD7rAPxQ08Cj2PBm9SLiD+GEoSXRtimnCd+GUvwy2ei29jZrP8SZEZq H/fJY/2XQP52/EaXWtZ/CU6anRUVfWb9l6B7tz+WT1SjfHCWQHPyldP6v1n/ JahoLdEJesv6L4Gsx6jyRdxPBUgQ0c15cLdc7rckiInP3p09j3CUBFaLr2nV f6L1iiW47zuhJY3P1zIJXp1e+S2/ifNfAo0ua/cvV1I+5Eqw6kxNkNUzyod8 CVyOvRVN/0z5UChB4dzvLlMv8X21BC9vFY63CKf6XNbmH5kxTnWn+FRIMG1t fWBpIvW3VRLYr320cpwp3a/VSBCas8jpwRKqD3US7A41X3J7KJ9vJfg6wlDr awrxqUGClW/GxZQ3Uj40S9CiHp/tVkv50NLmj7kvlIHbib+CVAR8LujuOIb1 PxXdTSd3nRVE/NdNxeQFN6N9JhDWS8UTu7cmogzChqkYPXRGy71FZG+cit1P Y6zvFdP7TVOxKcYi56OU5rdKhf24TxM+fKd6gVQMiXqxRLma6oVTKlTNr70b VXS+cU5FYzf7JYM06HzsmoqpN/b/myyg84JXKrI3LimelUr+CkjF48wL4xPl 5E9hKmonLcnT5u/TUamov+gyPou/R4lTEXX0QoWygOIla8NTl7worKd4ZqVC L6Rx6oFGinduKpT9H+qZHyI+5KdCu2bG7q2jKR8KU1GNu+JvPnxfk4pr/zzP 3G/M+p+Kr7fU39omsf6n4tQPFyu304SrUvHizKT1Z16y/qfCRThtxdbvrP+p MA5KXD2N60N9KopuvNKwaWb9T8WHzXd7qXN+NaeiR22lu3Eh4ZZUhBoN7z6M z9cCKcJiLvTw70dYS4rOWofciv1o/bpS9B6mOXX1ItqfnhRX6o707t+Hz0dS fLnhefZfOemFsRRXQ/VG5R7l83Ib/vba+Pl20hsrKSbOrfrWnX8PASlMdgg7 GvxQ+x92kuKJTfsg/y38PU2KuJEhVtEVpHeuUtiHdHnzvZTjL4W1yme/jzXx I0AKpzWvz4705PsWKVzMXhc0did+RUkx/+APtR27SZ/FUuT/WHGz9wDSb5kU L2XBhtrexOcsKYb2vRE/25X4niuFR3ls9J3XL0n/pdhRqBsd057GC6VoXZx1 Z2ke4RIpjmW2Dpb+Te8rk2JAhsT+52yar0KK3OjjbzziaD1VUtS9fqGaMofq RY0UtTLz8Hfh3P9J8daupqhvKdWLeikie60deiSS6kWDFP026HdffI7qRbMU z3p1y0vJpv6pRYpwF3vV3PfkX0Ea7m3TmnpyAtVrrTSk5+Qat2ZTfHTTsO/4 Gjs85/NfGnpv61J+RIvvR9JwQLS9waiZ45+GB1+qtSwz+b687fnBG3O/PCX+ WKUh5sHhS6eaiF9IQ7PTwPkX+X7HKQ2ymKTcuzu5/0/Dsr/UtbfcZv1Pw1if 8gIZnxe80tAj1ld9zk/W/zQk1+usv8XnC2EaxrzSfKlVz/qfhnWadtc/8XlC nIa3zyqNM1MJy9Jw9JveoXM2fB5Pw+Bulxc0cv+U2/b+ddqbw27x/Wwa6jwi hQeKaL+FaRj+euQF40mkDyVt48uOWtcpyV9laVBLvjvj3Xr+ftG2HgPTfiZL SX+q2ta7+eLZXB2+z0iDfvuLvYKLSb/q0iAvtY/UPE39U30arl0fOWVCIvVP DW3+7X7B8/sZ/t6Tho4/1rztv4n40pKGisGDxqm68P2nDFt75BetNqR6oSXD yvX7L58ZxvdBMhglb/9jiA7puZ4MOjd627ocZv2XYV+vxvsTflI+GMvQWnN0 plMtYVMZEjS2xHYbRc9byVCevkbnuDrlA2T4HLQ+NHghvd+pbX692XV15jS/ swyvy85YDdxH9cK1zT6qYIBkFd+vynAorejUVCHle4AMLTP/3bS5ieqjUAb7 9pu7jf5C9TNKBuWEKyt7y/j7qww7Mxy3+m+heiGTwbimeMTJzmoUfxke7Wr0 KlpG8ciVwXFh0w/rc3z+a1v/9SsuqWqkd4UyjD3/I3VcF/5eKUO7i6LcmbeI D2Uy5N9o3/HaTOJPhQxXctRd/OKJX1UyjEzL/nrfnPVfhvG9an4u4/6+ToYv D7smKS+w/ssQd+mljx73Qw0ynPJ09B/WyvovA0RLv6hz/9Qig3WLZ2lfrheC dGyXLTJruMH6n44CV8cHH3YQ1k1H3LCzNcV+hPXScb9U+kjWjc//6UhemLe/ yyzu/9IRk9/kZm5H+zNNR7q+5V/Kb7R/q3RsrhbrTwvg7wfp+H6q606/teQ/ p3SsSPD1t0kkvXFOx7fHvTPHTSA9ck1Hnm21rsFjio9XOjx3/px6OI30LCAd YX8Vlr7eTvVCmA5r/cfb6nZRvYhKx9tIhamWFdULcTpOP8twneVN/JGlw35E YqeeBsSvrHR02dTneOQl0ufcdEgmV+xeNZn0O79tvZMH2QbIic+F6ZitaF24 Qcz6n47OeV0c9HUIl6XjRuueb3cHEa5Ix/TBgce+HSRclY4tWkZ5S8rpfTXp GKglW+I0hearS0eJ5o5ua71pPfXpmPXDrkU+mOpFQzpCwgwmj59P+d3c5o9v epJcOed/OjTbza7pb0/6IJDjw/cf96rkVC+05Cha9tdFn0VUL3TlmPqlQWT8 D/lXT45Ey64ri434+5gcPWyab05Mp/gYy7HLz3R//8cUP1M5HEum+C3uTPpn JYfUKe/M4x8cfzma48OW79xG+ukkR9iuwB2p3/l7ghyjTtn4fWnP+i/HjeAr o5O5f/GSIzZy0uuRf7P+y3Hs4PYUPe6fhHIMNFqRX92OzhNRcmwYOqBOvRNh sRxDW8/HFPL5WybHxBVxh0o5n7LkcPE6tMWK8y1XDgOn/SMsMvl+Vo4Buf8k 7HHg878cUX5mx82ucv8nx5hstytrHtB+yuQw99zePfQg7bdCjqZF54Mb7Ck/ quT40vJyyvK15K8aORb9KvQI30r1ok6OdjM8A6pC+X5bDlGPBwffDuH7PzmG 15zNta3m771yfN1pWTpSk/StRY5b0y8PLbhF9UKgQENUVpK7AemjlgI/l8zc 2/CL+KKrwIwjuoY5IuKTngJH9nYxEvD5wlCB8X/VLSl/S3ptrEBg09yVdy9z /69AX88/I9csIz5bKXA6WL5JfSfxHQrYDd+/NjOYsJMCAwf9OJl4jLCzAqUD Lb8kxpG9qwKqyRF/mB2n93spYPDB5uWpOJo/QIGNHsumd7lD9UKogH3RjK+6 Iu7/FHgZ9Ox9vA9/f1bggs7Wq92vUb2Qte13tfcvo3Pkj6y2+duFdGmdQvUi VwHP5Rtudl5A/sxX4PfapvVzGsjfhQrk12pWTePff5coIBxwwKymiOJVpoC1 2atfN/i8WNG2PkNFREonyocqBSKN9rzwf0h8qFGgZMeMSXE+xJ86BXrGVQ6r 38j3+wrkRVuZdnZk/VdgusOBTKOtrP8K/Oo3z6PnQ9Z/BT7Kr6qfZ74LlPhp +Mhf2JuwlhIFdWk9I/sQ1lXCSbvTuwVahPWUSJm74ffG16z/SnzZfSX8DvdT xkrM0ffety6Gz/9KnLFL3OxqxOd/JXIiRQfXhnP/p0RG8BqdrgG0Pycl/o71 7ZQzgH9PocTmmPg5VRnkH1clasIuDWs8zr8vUiKuy6c/hUWkNwFKKEV2w6NW 8P2fEp1rzO8b9SK9ilJiQLdtZ1ec49+PKrHu28I7n4aQ3smUOLRvn+OOUfw9 TompV9ZGeJ2jepGrROoHQ3O7d8SffCU0Fry46LSH7/+VEDvvmS9g/pUoURtg 8fj6FOJnmRInL5YKBkmIvxVKHC+cnqEIIn5XKdFrslqp7Xvif40S5Q2iAT8+ E65TQrH855PwcHq+Xgmt4KPqv1fR+xqUkB8OuND9Od//KuE+7dg/919QvWhR 4vpskwFG/D1bkIEByaFPcyMpv7UysNdgaF0t94u6GVgZZxwaZUf1Qi8DNX4P HhlH8u9DMtDxluebR+PJf8YZWD8n4b3FafKvaQbe2a6ac74r+d8qA6c0vsyL D+fzXwYE2qsnmd+k+Dll4OhVk20NfL5wzoDZy7M5ndUpH1wz0P5DQpLLYeKH VwbGPx3S4WAv4lNABooLPELSerP+Z0CnPnf0ZDH3/232rVs1va9w/5+BQM2m pIHcH8kyoN4j+M2QAcT3rAxYWSpuzTAinJuBPhkt69caEM7PgFr7N/4dtAkX ZiBv2bzs40/5/jcDcZbSeaf38vk/A2+7npnS14fP/xnw+WU79B/+fleVga/f FnyU8vfGmrb4lFedfNVA+63LQImlV36HOPJHfQa2d9AuSagmfzVkIMi2i/Xr 2/y9MwOSuevr1fn3oC0ZsL9dP2LCIv79twpHhrg3H2mv9j+spcLcnZsyWuJJ 33RVQPujO2Omk/7pqdDzqOj4sBzSR0MV5Aa1ITlhpJ/GKvRt1C63eUV8MlVh +pFHr15eJb5ZqdDBfX+ITzXxESpY+EgjL20nvjqp8PjA9DNbLInPziqsO2Kj Npjzw1WFoEL1meV/EfZSwfrA0IrMMMIBKkzVGJT0cTTZC1XY2DF4frul/P1P hY8Oo46P0+fzvwo+u97aXwikeiZToa5jUtzvw9z/qdD+ZOmDExsp33NVWK9e rtP4nfab3+Y/5ZSBLs/IH4Uq3N49I9rag/xVooLpEP1p6Z7kzzIVZC9Wr9r2 in+/rMK7C9rxi/jvZ6tU8LxfWzK2kOJVo0Kc1pG7LVwv6lS4qtx/cqIu/75N hbv/fjhW9or40KCCe2xGWZ6Iv/eqsD05WyOuhO//VcicN8bPnu9DBZloHu1d tnI/9/+Z0NnXa3OvJu7/M2FWeOuTLdcHvUw42ZW1TBpO2DATjj1C6yQmhI0z 0WjbrWjLQMKmmXjet1v7Idx/WWViaLLa4qJbfP+bibDgtCvH1+ni/wC44U9f "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {0, 4.492641309679484}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6961893369525404`*^9, 3.6962764137211757`*^9, 3.6962837727030854`*^9, 3.696284386173174*^9, {3.698762135718943*^9, 3.6987621752359257`*^9}, 3.699036540980123*^9, 3.69904290109009*^9, 3.700912508447586*^9, 3.701705232643724*^9, 3.706897245527033*^9, 3.706897329078245*^9, 3.7069583796422453`*^9, 3.7092999138798847`*^9, 3.70930016343519*^9, 3.7093014449441633`*^9, 3.709301547286167*^9, 3.70930162337883*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Effect Sizes over time", "Section", CellChangeTimes->{{3.7089647424887733`*^9, 3.70896476122825*^9}}], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709299938216723*^9, 3.709299941303628*^9}}], Cell[CellGroupData[{ Cell[BoxData["\[Beta]HOmatch"], "Input", CellChangeTimes->{{3.709301655116921*^9, 3.7093016585665503`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"1", "-", RowBox[{ SuperscriptBox["bH0", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP0", "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH0", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP0", " ", "eH", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eH", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "eP", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "eH", " ", "eP", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eP", "2"], " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP1", " ", "bP2", " ", "LDP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP1", "2"], " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP1", " ", "eH", " ", "pP1", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP1", " ", "eP", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP0", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP2", "2"], " ", "pP2", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP2", " ", "eH", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bP2", " ", "eP", " ", "pP2", " ", "\[Alpha]"}], "-", RowBox[{ "2", " ", "bP1", " ", "bP2", " ", "pP1", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0", " ", "bH1", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bH1", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH1", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH1", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0", " ", "bH2", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bH2", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP0", " ", "\[Alpha]"}], "-", RowBox[{"2", " ", "bH2", " ", "eH", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "eP", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP1", " ", "pP1", " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH2", " ", "bP2", " ", "pP2", " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "bH1", " ", "bH2", " ", "\[Alpha]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.709300010861479*^9, 3.709301689715568*^9, 3.709301789086773*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PlotHOmatch", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HOmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HOmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HOmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HOmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}, {3.709301693825368*^9, 3.709301704612402*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHOmatch", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}, {3.709301701361405*^9, 3.709301706928331*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9Wnk81N/3Hq3SRkoqlUqStimUFnpIZY0UKWTNWox9Z5gxBkPSQjsqaaeN Upl2bUIl2kybKJVU0vbp5/dy7rd/ej3u+77vPfc85znnnveMcw+0XdeDw+E0 9+Rw/v//7n9tC9trrdwVHb5U0B/g/KFnwb4ghuUhz7VWeyBiWBH8lq8R9tsZ HopzF837/3eIYVXUf/N2VjrHsBosvdbFp99gWB2L1pR4oZbh8fhR3vrg61OG NdCZ+98y79cMayJbFPfWvZlhLXzNbi45/55hbZwQl/nY/g9PxaX583PGvmN4 Oix5n79ov2SYC5+SzNdZ9QzPhMKX4rDEewzPQl1r+N6FUoZ1EH54iJx6CcO6 8PEoVErJY1gPL34uudGUyfBsOG8fdKE8luE5+MIN/prqx7A+/oR8nNHwv/Oe i+duikNnmjI8D//FpKgMm8vwfGz/7sPjTGV4AXjuoknu4xg2QLEgymH7CIYN 0Ucx+vWXoQwvRLJLxa58ZYaBzzLH0TeGEeYDx29aWnqMYuNG2D1tbIm7Bhs3 wsrcZTs2c9m4MTT0D404upCNG+PBpXfV5svZ+CIMleTxf3qy8UVQVZpvwo1m 4ybo9/jX2tVZbNwEtR8Vox4VsvHFOHxwgRbnIhtfjFiM3qP7P74sgZZbp33t Wza+BIv7zik0+sHGl6Ko5K5cZ+92Gl+KXc+y2mOUCHNMUfppzxafEWzcFNvH BObwRrNxM5zN61PiyjDfDJGTFKLHsec55mgJLTxUpsjGzfG8en2RWS82boE6 l3besG9sfxa4dqnldJSM7c8SK96aGX6+xcYt8WFYqqjv//hlBYuV/km+29i4 FXoXxR6897/zW4bphdf1f65l48tQZsVpL1vExq1xdNLRWU8ns3Fr6NQ1PJg8 hI3b4ImO91OPv23dGDZYZfbGZE4rYb4NYq1/jJzfSFhqg56vC0e9ryPMWY4g /S1j9jxg85fjvYlegOQRm78cp9XaFlx9xuYvxwKFXyu1Wth8W6iN81SJ+sXm 22KtneptC0W2X1u8i1NYNESbsNQWBdX/ykYvZftfgbcDL5zf50UYK/DwXt9+ 11LY/BXYd/HLuI1Mj6Qr0KnZsWDgHTZ/Jcy36oQv/sDmr8T5j6+bTfoxf67E kiEXEyZqEJauxJAply2Gzmf+tcNY268Gq6wIww6WvbOn2q5h8+1w64bK8HQ3 Nt8OeYU39x1zZ/PtsWPo7EcZzmy+Pe6u9/s+2ZbNt8dLb4fiI2Dz7fGl4L2N z2Q2fxUqvzgOlA1g81fBe8Rd8wvMHv4qGPC/X7rL9Fa6ChrPlRx77mX2O6Bs afu3gDBmvwP+KZ84qWvB5jsgWrPURsz0ReqAJZ36gft+Mv+thsjPROvCQ+a/ 1QjWUDH6fYr5fzWK+99eGZzL/L8alcp6TkMEbP4a/Cls/F4QyuavQWHN69vn N7D5a/CuaIzHuQA2v+v5bXLHr0Sw+Y7wCjMKvyBm8x1xY82Ht1b5bL4j3J2u T3spZfMdofOt0epgE5vvhO2uZW93KzH7nXAptK1+G5j9Tjg3dXqsUTCz3wni yPYm3QPs/JzR6214x6/HbL4zBjj1FI36H3+ccTan3HPSHOY/ZxQcfL33iivz 31pc+DC35piQ+W8tquskC6vy2fy1uFirU6FbyuavxaGc1Y4TrrH5LjCT2/ta qZLNd4H160J+yRU23wU/n95c//kUm++CLdqPn3fsZPNdMbJ0wrBZMYTVXVF0 mcszZ/yDK5T8FhpMGk/Y1RW6eS/6fvgfv7qeHz9W8XMx4TxXLHi/8NiF/52X Kzyt+NG9dAjLXMFZ3WfV5q/s/N3Qdjs9ePFZwupu+GCxvPpHLPOnG3YEGNVE mhF2dcOr6s2BkaOZf93g7G596cu3z7S+G5b02x/Pv0pY6oYhT/Tbc4oIy9zw 1HbsTskBwhx3KDzc9e/PecLq7ij52uf1zWbCcIeZyCms13C2vjvKdsj6Zpqw 9d3h8XFon4cxhPPc4fc+t25VOeObO3hqS++slGP2u0NZYe2tKhZfHA/0Nqjr vy+XsLoHFsUmj9vB8hk84GyxVzuay87fA3cU9BxUI5h/PTAixKjah/EjzwNF dVr2ks/M3x4wyl/p83T0V1rfA9bfpzd8AmGOJ75fvqBbuIqwuie+RMyNmOpG GJ5YZvrvyG8nwq6e+Ng5+U+jOWG+J26f/k/4S5twnicu/Hbre+0vW98Ts8aF zBjM+CrzxN/9U970S2D8WwevXx01C5h96uvwoPHaEnEDs38dnObYCkfHEXZd B8kGUUvIaMa/ddgukZbOvcjOfx12CYedgQs7/3X4eLmHn3cfwrJ1yBxy1ZDj z/zvhXWrqn9uePGJ1vdCH7Ppbl/8CcMLqxuHXzkznLBrV6malFIz6O1HWt8L xZPU1ezrCOd5YabMzq26lbDUC1ZhARt3atF8mRc8Xx5ULhQT5njD7FCIdbEC 4583hs00H7r6COOfN+ov1reO1GH888ZziZXP7x2Mf94YJNf4n7kCiz9vHOwx LP8mOy+pN95OvNk5qJ3xrwsbrr5/0YOdvw8++zmUZtxn5++D5lVvngTMYv73 wYT1+n67Upn/fdC52q/HkVrmfx8UnTxkt6n/N1rfB3yXx7OOziIs9cEe25E7 K5YQlvngQmT0nQ6GOb6w6mj99YY9r+4Ll4vqw8QKhOELp5+6PZdVsfV9oau9 YrZaAlvfF6rCW8YOYxj/fDF1uWrW52OMf75wi3La6cj4JfNF7rWMqXlFLP78 sLdNc6nRSBZ/fli53j5jRirTHz8Uv7pvaP+V/OHqh+3LNd4ukJH/+H5Iurbx wLuXzP9+eON1s6mGw/zvhz3+Gi9vmrTS+n54F7W9I/f0B1rfH5/uJp5+ZEdY 3R8VHi67d0wlDH+8enxlgfd8wq7+yN70IYYjIMz3x5rZ2ZXOPej9ef44FOYx pOAsYak/BisVWU/YSfuR+WPxnHR74SHGv/UYYix//E0D4996dJrFD96yidm/ HiXTTnAPG7D4W48BP97G//uf/q9H9LzyW645TH/Wo4+Wmf7DeeQP6XrET/B+ crOG6c96iJ22KOs4MP9vQKTd9tdFt5n/N8B8XFWNo+Z3Wn8DXARmhSq+hF03 wP2j0/HpmwjzN6B23ponobsJ523AR9mCQu0MwtIN8EtOPfKfC2HZBog+FUxS ViHMCcAAuS11g4rZ+gE4kzrHafYMxr8AFJXbGKRtZfwLgOyh1vrXb5n+do2P /Dy+L6sP8wJgJr/26uGVLP4CMGJgH033OKY/AZBOMF7Vasr0JxAn7W+XWeST f9QDsQtyQSVK5D8E4kdjP9+cg+9p/UAof92dmBzYQusH4nrbYo2M0GZaPxA7 5eO+vql4R+sHojDBP2+fA2FZINr5cTbZiwhzeOjRa7/+AAFhRR7y77eXv1Kh 96nzcHOm2Q3jP4S5PLy7VHJw7zTaD3i4VZYw7EQB8dGGh5JbJpkiG7LHlYei CX1qWiaTvTwe+pRXbG7ZyPSLh6P9dRtVN9F5ZfFwmRd2YV0WO08e4vO51Uoi Ov9iHmZvbT08zp/pCw/Ppij/LZhL/qzmIWvWwd13W5m/eXA/HFjcye/oxm08 LNj55xD/K2FOEK50xsSnGP8g+4MQ9mlLcsV6wupBMBA+tNAPIswNwo9fmq8M rAkjCCPHpc6x6UPYJgij+mr0nr2N3u8ahKkJLpun/KP98IJQUVKwdbIx428Q /g0bNnu+G9mTFYRdObq7HrowPQuC6sdjDiqL6DyKgyDV2FbezOpVaRDaTu1f dPEQnW91Fy5VuXx6Cov3IMRWf7X9e4n81RaExIKnO/pEkT85wfgT97JhREAT 2R+MmB6Wl5YWvyH7gxG3apzV2WWvyf5g7K826lhu94rsD4am3uuKW3dfkv3B 4Gqlnzx+nrBrME4V+T2WjKPnecH4tHVP5gsOvY8fDKGgjVu1ktbLCsbC2Zcq a4bRfvKCoWE/O91En/ZbHIw9unkpOkfJHmkw+vu/m5bjTPZWB8PkRn3OppEs 3oJRk6kaWi+h82oLRvWWiVv6/2T5LwR7Z9m3pK+g81cMwaR9ccPjs8k/6iHQ WPevZMlx8ic3BK+EP/T35TP/h0BwMdTR17eT7A/BsqaOkf16/ST7QzDRsKrl G48wLwSTDTqPDiomzA+BVr9xi2dcJpwVgm3ne1s92kc4LwTqnyp79VhFuDgE Q1zsx5g10HrSEDRuuxE3fDLh6hDsUPWS01lM+5OFgKt3tTxgGuN/1/uCQrIT XzP9DcXNShX9J/7EN8VQ7GhQuTe3iuXDUNQNOnC/YRidJzcUE678M3mfz/Qp FFmmrjYBY0mPbELh/6Nf/Mbrb8n+ULzoeSxh1ynm/1BomZrcTO8lI/tDIV93 61zgzqdkfyje565dGmVQT/aHYk+imoNjrzqyPxRD7v/e5f73IdkfiodPLOqV uY/I/lCUPWi3dd1Lz8tCsUJ3ilWmWQPZH4qrPgoZFzWfk/1hwFs77iRl4qti GDzN5do+DGP8D0PS9V9jnUWkj9wweNil7ry+lOXnMNh/m/975hyKP5sw+On0 fzIsh+XLMHgZWj2xFND58sLQcSVRx8+axX8YKn6Llvh+Iv9khUHn7k88WEX+ zAuD6t2XPbJTmP/DMGiUZ96guF9kfxiWed+d+WPub7I/DHNWqjZwLhOWheGR a37J06F/yP4wGO3rWL1hDmFOOCxbx5gtn0xYMRwrY97Wbmuh+erhOOzNcS8L I8wNR8WL6dNrbtH6CEeU2uvAcS9pfzbhKEyqtuk4S/t3DYfF1YE35UyJj7xw HM+csWbQFmZ/OJbsejj06l46n6xwvHHcPbWN9SPywiF+LjDItKZ6pTgcm0zT ++vlEN+k4eiR8WpZ9jfyV3U4TJTTa4blEr9k4Rj0w3CGnz3zfzg8vg8u7rej luyPgJO4Rn/DkttkfwTqBxpcbx50heyPgOuBf3FHDM6R/RHIrT/hZfDtFNkf gaPeN8t9jE+T/RFd9XGPOvG082R/BNbrnY7ykdH7eBEo7mlWNTLpDtkfgYf+ +xZ7Rz8g+yPgmHhB84zkCdkfgT+aA3in/IifxRFYq6NRWTWA9FEagbG9v6Tu 6UF8rI5Ay4y43moDmP5F4FfFN4eWNNK7tgiUaveYeet/8R+JHRMty2x7sPwX Cc+RTS5nmb6oR2JBRrm+zJP8zY2EJHq6d48DxAdEwud4ZS+HvcQfm0hU2GUM aFnzl+yPRNZO1cHXXxDmRcLAfVBdLfc/sj8SsoMtTqPtCGdFImz+jZlhVoTz IvEgaOs/4xGEiyPxcOPSQZFn6H3SSMQ3qZbsViNcHYlDC3xnj1pK+5FFYtSm V/WyKbTftkjcbtVtP830lhOFHeeC5FfKkb2KUai7vSjPtpnpfxQG1Pxw58YS P7lRWB7m9ifuLquPu56Pabyb85bVP1E4POS0adhY8o9rFMw/NZ7dn0585EXh oP6vi+fukz7xo5BXaJUvSiU+ZEWh03Ofwc6yMrI/Cpzd9j+irdzI/iiIrziM yYkuWdhtfxRUe0rl36Zd7MbVUXhW1LJ9X/vlbiyLwsqpCnN5jle6cVsULAXv iu/2lnZjTjR43wyyBLfPdGPFaPA7lXz0fmzrxurRqPQ97cJfXUz2R0PrwYCq puU3yP5ozG3q0F56hfhrEw3tl1PcP0lJX12jUb7myPzdgRSfvGhYT1evkjpQ /uZHQ1jaVFE9hc4zKxqjIj7svKzE6p9oqLgp51VfJH8URyNa/UBNpSrLf9EY u0+76bsK8bM6Gt93HFprVMr0LxqWCQ6Tp3OIH23R2PYtkLPoD2FODMZnGur0 KyV+KcbA89ea3YPm/yP/x+DbsleeD7IIc2PQwnGMt79EGDG4J7du8PcbhG1i ELbj2xevI4RdY7A2dlvAeV/CvBg4lFZdWvyX8T8Gs02HfMhdy/gfg8Mb5OZs FtD+8mJw5px83QsX4nNxDKbfUtii28T0PwYfbYMf3FUgPlfHwP6yxWy1m5RP ZDHopbV4ovEYive2GKR2XOFtVmf331i8sTvzyrSe+KsYi9vHDp/ua0v5Wz0W W0aOPXev7wuyPxb6woSzxUGkn4iFrriINypXSvbHghN4fLriJp9u/rjGQrj0 pgH/bXk35sWirUw/5eu8ym7Mj4XqmYmlBZH3u3FWLBw6lWtXd9R047xYlC7z 8/73prYbF3etHzrUvGwrYWksevdRje8tT89XxyLghdOnk453if+xkK157r/z 2VXifyyKdXWmaB4tJv7HgeMUMd+y7BDZHwf9XpdP9UmpJPvj0Jrmr/bqHcUr Nw6dD1dkDw0hPUYc+Lo2R7zeUX1gEwfnw3o5o4WsXxQHW+OV2TFRpL+8OGhd 3PbPMJjlvzgUT0tzdB5MfM6KwzBxT5GxMfk3Lw5LzzgEf+jH/B+HuzNObP4b wPQvDrNNnMcrJhB/quPgpHb8U7Up8U3WhQuLK7Y3EG6Lg13EppsTxnCk3fbH 47LG+IbABYQV4zH5zsM0S3PC6vFo2eYWIWdGmBuPRr7D3yx9wojHoJY79ueG E7bpGo/31r13k/E/Hgte3zs3exbjfzySjHLkL3sw/sejD9fQoXwZ2ZMVj/Vr 1C7kv6b4zYvHc4MNT1Yq03kUx0OduyfnZy3lK2k8XniFl2qPY/e/ePxwi9F4 p8D6PfGw1OPk6jrS/aAtHsW5NoeUfEifOQk4bVCibD23kfyfgBcaQ0uO5hG/ 1RMgM/fY4T70Evk/AQj9eGes8+5u/iABNzrGq1y7Qvpq0/W+T1rGA72riP8J kF/rf+B86APifwKaHJ/tHLW8jvifgG0fb1nM//SY+N/1/nx/TZ119cT/BLxR u3mrroLGixPA0/FLVeh8RPxPgHOFj+bVToqH6gSorR42dZfRPeJ/AirPT+VP zKJ80JYA17xywZDkLcR/PqTioO2Fjyu67ZPnw9U7qebBe7JfkY+RV9pWDHah 81Hl494A4eBpQXR+6nzMvfHx8HEfOl8tPpasvVSfM4rOn8vHpdH1VmeNyD/6 fOQfmzBC2pv4Dj4CPjlKR60i/5ryseXFthHXdFk9wYfnTLkxl4qIHw587PmX VLflCvHHlY8pRmk732UTv3z4WNHwPMZpKPGRx4fywan5o00JR/LxIcey2sSX MJ8Pt9NWke+iCYv5OHBojvz1eMJZfAx4bJznHkY4l4/26MQGlbWE8/gYPU15 Y485hIv46Pfr8/62n7SfYj5OhL+uOWNPuIyPC70eOQ+KpP1L+eBIp/i+Yvyv 5KP+n0pf39usnucjO79S4dYT0vd6PtI1JD7ZYex+x4dFkElI/E7S9+YunNYQ zHNm910+kn5KX6wrJ33v5OPOwiO157dRPuYkojB7vruzB92/5BOxssJkuEf6 PfJ/Ivhm95X2mx4n/ydC66yS3YVQqhfUE1F8pnzsS4db3VgrERo9J+tVLyY+ chMRsHSUS8Rq4rt+13x97daZqg0UP4lom3Jqz7TDT7qxaSKO51soN09+SvGU iJ4aSj8/5tO4QyK0w50vOg2g+a6J+CN35FDhCnq/T9f7f39oLl1J6/O67FnQ tH39DdpfZCIkJa29Z5iUUvwlotr/au39qUXd9okTEaut8DxqBavHEhH/+8mS Pj/o/pCbiJONL67X36D+RV4i5sRNcx/UQvVMUSJytIfY6HHo/IsT4aHfHDrB jvxT1mWvJ9fziwXTr0QcPvTT/N898m9l1/saqs7MrWP+T8RrQ3Hr9/XEj/pE 7P+rl/A+n/gjS4ThyP/cW0XEr+ZEXAlovGuqQnxsS4TiQXl/KxvCnYkYxHm2 5Go40/8kFM+4Nsoxg7B8EpSvDXrjuo3lgyS0hjzRf5VNWDUJ26UDwq4nsfyQ BOfhf2bc8ySslYS3whEnU2azfJGEifc0jjs10/70kxATVREgN5PVT0nQ7yz7 7j+X7DFNwqavd7T9vrD4T8IAp13bzy2l83BIwhvO/WTraay/koR5qfo2sTuo 3vFJAmeZV+OLLey+nYSwz4Uvc9n3k8gkaNievuxuwPqnSeBNGDP7kiL1J8RJ 2DLx/cwzqZTvs7rWDzl1eVfBNfJ/1/uTc5Zft/QkfU5C2xcbnbsi0teirvnP 1sU9HUX1THESivopG8acfNiNy5KQ1XjxAYfpuzQJ3vmZ9evqiN+VSTi8tFL6 fOoz0vMkSDrPFv1MIFyfhDqLH/2UHlN8yJJgmXdVb+Bkmt+cBKdr5RX6zpQv 2pKAxOLA5VaUfzqToL140bf1m++Q/gtQZr04cajwfDeWF6A6OkEUvauA4l+A bCeTh38N6H6sKoCN8u3d7bsoHtQFUJKOCQ05Q/GgJYBZn+GBr75SPHAFeKXz Y5kN+72JvgCZDxtC+wSx/roAvUbMTvmygeLBVAAYcUOz21k/QYDzypMe7vzF /C9A5BHdJs+N7H4pwMvSoI+Sy8QfHwGKLpy6s2kfqzcE2Li54oX+BKb/AghW nD82xInpvwDB/fqcL0hk+i/An75Htu7NYfovQN/mW3cc8pj+C3Bfrl4i28X0 XwDTKivliSx+igSIGDLp7vdAwsUC6EXP/v3VmHCZAAfmNvoH9yAsFWD6bwe5 Pba038qu/SHI8qIbq+cE6DB7dU1nPIt/ATb77x9SkMTuNwK4jlpnuCGEzqtZ AAX+opnnPrB+X9f5Hjlfve4zxUOnAPXabXX5m9n3dyGGWrl+f/WX4kFeCOdj SefUb1A8KApRHvT1iPztx+R/IRY0TAtKP0n3P3UhUDmnLlpBSP4XIs/ra7J1 KN0vuUJoLXNujE2iekhfCEm70PvmbooHCBF8knNpuJDiwVSIT+42sec0mf4L EbBINMjsOPHfQQi1+Z+n6uk9J/0X4r8RfcRt12ncR4gJz40Gpq2h+TwhjFLX DJv1nN4fKcSBWuNvdydT/cTvev9Ibpa1UnU3FgvR1DRPfbWU6rksIWQdJ1T6 Tc7oxrlCKPKkzw8+oH5OnhC1VS8vTk2m/mOREMf1zrxaIWH9GiEuLQ61Ub5F /esyIQ4XXEiY1J99nxZCNVk3cX4y+aeyy/6G2PiOA+S/aiFUHDt1dZez/C+E cfm7jFdxzP9CVJ848D50FvGjWYhp0afkk+OJP21CmCntTnsUSvzqFMIl1F7/ oDLT/2TMmWugnmjL9D8Z8c3HDt2JZfqfjGpFSfwplg9UkyHhup77WMD0PxlP e41b2cSwVjKefbR/38ie5yYj3HDNpn9xhPWT8WHV5WOL7Nn9IRnmDnu/e6sR Nu16v2a/iXE57D6dDGm6ssuEC2SPQzLGTZszxieHxX8y5t5fOklOlfKFTzJG X3DvmDWN6kleMvL8L/jOv0P6EpmM4GAvDb0vpD/8ZFTeCNRNOE76JE6GcWTx 6qFm1N/OSsaF7OxWm950H85Nxq7hoyy026leykuGg+1EtfO/qF4q6sIjLDhH Fx4j/3ftvzZ/xQFrqjfKkmE5bfk8h3e3Sf+TsWyF0YzJq0mfK5Oh6f7szvRS 0u/qZAjvS1vDr5C+1yfDyy6lqvMg8V2WjMFnbX7lplA8NCdjf/uq/ueDCLcl 41zfbzPCvej5zmTMWjbeudaO3scRQaN//4u16rSevAjVgxVGtO+k+klRhOL4 1X81tah+UhXhdIhyxl7nU91YXYQiQ4H3gPaTFP8iRPQtLe+YVE36L0Ke0YZL G/SoH6QvwmvfeLPTZ+k8IcK69VOW9xlE9wdTEbwcNK9FsPuDjQhVJs8L1b3p /uAgQuuugGszlrD+sgh+B+tOPj5I/vYRYZT1oOZ3EuIDT4TUj+N7qvUg/kSK ELX5rlHeCOIXX4TcTe/yNZoIi0VI6amTNYDdh7NEaPTym7gsgOm/CAWO3MiS TKb/Iozvca9NwPJDkQglpzbGlR5g+i/CiYECSb+9TP9F0NQ95T9cwvRfhH9X 725y9idcKcKNIUt54+cRrhbhrb+12z5WP9WL0GOJyvHDWux+L8LnK7Pdh2qS fc0iBByK/NWvmvX7u+w5cKXtw1DSi04Rdvw9evnjWzo/TgruG7dM2biA9EY+ BVtcRMsPq7PvQSlImdTTXeJA3zdUUxDU6v5n1lD2fTgFNXED1S8+pf6mVgpa HT3mt2vQ9xluCo7eeP+uQ5H6Q/opcF0xckSBQQHpfwq2eWSMWOV9nfQ/BT2+ RHJabKifY5OCG5eV3FutqL53SEGwa1CvBzJW/6fAs8hlg9N8pv8p0D9UXvpR QPznpUD+iutL9VrCkSnoeFe4I3waYX7X+t8V387NoHwhTkHvM1am+g2UL7JS kDc1vFT8gfJVbgo65V1avbSovstLwdDfgnY1sPovBRzrJt/wa44U/ymYJcz6 4OF+nfS/yx6N+RbhvSmfSlOwd5vdfwtdKd9WpuDB8sCoA/spH1enIL7vWpfP YZQv6lPg3zvbqaaJ/Z4iBT+lIXqDfpH/mlOQdrvD8PtWyhdtXec/9Nm2A6eY /1NgaOb+Ts6R9T/FWGRW8MJ4F/FHXoy63D0ms9KIX4pieNc9XDRnFNN/MQyt kg7XrmL6LwZvXYVeBp/pvxgrRy+a6bud6b8Yuid5vX/uZ/ovRva4Fo6EYYgh M58VaZHL9F+MD083pS9KYP0kMRr6++XZs/UcxJA7GVw1ejRhVzGy+tr8i2X5 wkcMi9T0sZvPkT08MVS221ZuzyJ7I8Xw/LNtYKkCxQdfjNtXzKKusv6xWAxJ U9+sziLKF1litB29rTf6MuWLXDHU5ljyFHjs+5QYN73KHwScpPt1kRiLs4+W NjjS/bpYDNOxmYWO7HtOmRhNdfcVFnPpfikVgzvK1dhnD9XblV3vP6s5yXva BdJ/MdT7Be5ZOZj6OfViaA/nCp8sIT7KxHAaIkmYHk98bRajV9TWvhkexOc2 MUpmqQzX1CC+d4qhZ7ddO76RMCcVx0Wzl1kfICyfCusHcjp9wyieFFNRl2E9 Q9+Q8oVqKqS67r4tLyke1VNxOz3gkJke5QutVLQ2C3OPD6T+LjcVqgHPhuTs pn6rfiq0BNWTzow9S/qfCueau88Ce9aQ/qdi2/iTNQZDqN9sk4pxPYZLz4+m fpNDKvZ6Te+I8mK/L0nF6LzAIX0MKV/4pMJ405rApQns9xZdz/tN23dxJeld ZCouLRKU7jpO/uan4uPGEpfBmcQHcSpq3hjVH//H+pGpsJnz6dbSYcSv3FR8 qjVrVn9JOC8Vp4aOmHNoLtP/VAyIb0heu57pfypCfD6MjGT3g7JUPD73Y988 li+kqfB51SzbVsj0PxXuvysly/KZ/qfiif3ZT32yCNenQr301LIlQYRlqdh9 1SzBid0vmlPxS1XXPuw/1u9NxQpnldoME1b/dZ3/Z/OZWaYUH5w0rA2pclz4 k+yXT0PcXkGriQnphWIaPM9Vnb81gvRENQ27hEv6qAST3qinYUaO4cL/VpAe aaWh/ehGC4+TlC+4aVDddY4zdg3lC/00cD3jF1b0Y/3zNDSlO7Q/sqF8YZqG AIfXcvrD2PeENLQtMJ+4cNI+0v80qK37YdZeSfnCNQ2GQk75sjTKFz5psHFU vVcgIn7y0tDX/2B0khLxNzINSdlJs53XEr/5adDqDDr8fAvxX5wG14A5yon3 CGd1rVcpP4ynSDg3DesP3RfutKP4yktDzKzTl88mU/wVpWGI7aJziKX4LE7D gB2J1ldU6P5TloZfOT2LT7Dvb9I08M0/GDzfJqb4T8MeSzPNkFN0v6pOQ3F5 QKj8XsoX9WkYFjAg0HIP5QtZGszPtHHXVlG+aE5Dy/4Bb3wTKF+0pWFoXOj3 zLfs/peG5+8iZ85rY79/SkeBh3dLjIj8K5+OufVaad75zP/pKOo5UXm5KcWD ahc2bbp2Po34o56OxNiq41XRxC+tdCy5fyDsOeu/ctMxNWcFp4PdL/TT4bq6 1zsTdh9AOo5oc7/fYfdt03RE3hh3VpPVTzbpeO2u9/E0iw+HdBxeYOV7lt2/ XdPhGNr611ZE2Ccd25vMx2W4sf5vOuTdrXepT2H3/3T8uZGMogus/kvHyCdH r+xtIXvE6ajX7eG68B6L/3To7LTbsNSO4iM3HdLv7TZbAtn3mXScTZQrKR5E +lKUjrWR3kbTuex7ZTrmOUa/rHhF+aIsHbo3agYu2MR+n5mO/VKrqxc0qR6u TIe27bZ/cu/oflGdjpNVl5K+O9P9oj4d3A1T6yYtou9Vsi571F6UnJCeI/1P x1CNVdNezaLvX23pWBE1a2FCJ+v/pCNv392bdxYRXzkSlFUd2qSrQ3yWlyCo 73OF79+Z/kuwafa566uPEf9VJdD/9CZZ4kdYXQJDw4ILWtPpeS0JtAL0DZ41 U33GlaDZ9oteeyzr/0pw/MA0b8PLFK+QYOrySRcfDLjZjU0l4DqFaQv/He3G Nl372365vFOfvoc7SBA7TGY2NZ7yhasEqakadovCKV/4SOBlvvbd6YWUL3gS zK5W2dkeRvkiUgJ35+/pVxaw32927Xd5rqAwnPwllsDtR5y27lL2PU4Cod7R sAt7yN+5EpQbewz/L474kCeBzGtJ5sc24kuRBBYjhTfK5Vn/X4L0D+PDFjxm /X8JCiqWDx7H+qNSCRqnDg9a4sf0XwKNUbHGD9j9oLpr/wdkjUNYPqiXYJ+D eVvPQ0z/JVhmp7QwlsVLswSCRE25+ez+3dZ1XtN1lzdFsf5vl/1bo1K/WrH7 fwY8ZK/Pxg1i9/8M/EvRk01ez+q/DFzYXFqPGIoP1Qxk7VXSHDCX7FXPgG9H fM39bNILrQz0dOmx6kAE6Qk3A06LXvbu8YL0Rj8DRikflNxus9+XZ8DwxbyL hitJr0wzcOBUmdxOC/Z7sgy89q7ViW6hfOGQgRdPNM80NFC/xTUDd9XMDSVF 1I/xyYB0xgFrzX1bSf8z0LYo6kHlhGuk/xmQfTu659Vb6vfwu+av9gp41pv4 Ke5af0b/8jeHib9ZGbiosMlMTYH4ndv1vPelSV8tif95GZjctjuYl0G4KAPz dnyO+vyQni/OQMWdiIdGahRfZRm47+0qd8WS9X8zcLr3gLNxxpQvKjOgla6w 3S+P6r3qDOiuWP5ry4iKblyfAf5Oy6L1KlkU/xnYP7p+lcXkm6T/GaiNVDzs 94jyRVsGBnih6vwZyhedGTh/f1z+cxmdLycTvLa+tZ3JdP7ymZCvvet/sIXd /zJR6LZldng7+U81E/uW2IUXsN+jqWfCcnUv5TkFzP+ZuFbYcM3ZjPjBzYTq o5Gr10mIP/qZKFrh/MIijvX/M5HrLcvJYt8rTDOx/ESkRN2O6X8mNjyIetXE 7gMOmZg2OOVj0w6m/5lYeEM3/XIR0/9M2Nn3T288zPQ/E8Vz7Z9ksPiJzMTd /a5j+7D44mdij7P+GHcf1v/NxLOcf71jdNj9PxPeux9tCath9V8mNO9d3yLr yeq/TKj4HORs/cTiPxO/TnjFhyew7/WZMNwve6a3n/SjLBNvOs0UTy5jv1/J RHPv0X/0Y0h/KjNxebvShzuzSZ+qM/HlS/Obf4tIv+ozYastSHn7hPKFLBPz 5K/tfr6Q+ivNmdDfv0Ds+fA++T8T9a/6vXvUQb/f6exa/1/Mj/iBZ0n/N+LS 9XlGvIPUj5LfiLXjH041tqd8obgR+23ctRql1B9S3Qh+RJPusztUT6lvxOVd X+d4sn6U1kZo/RC7PwijeOB2vS97+AITM8L6G3G05vnH3+PpeWxEe4lj37av DQv/D+ha0xA= "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9WnlczN/3HoTsSciWsYcwJJ8QHgrZMllSicZSStu0T/s0M01T02YpJctI qGzZszbKEsKULbKMCtmTLftvfq/O/faP1+POfd977nnOc8497/eA1X6L3Fpy OJz6VhzO///b/NcwzcL8//8+T6P/gDCkQvTHhmF9xPNrno9cxrABTm4rWO3h ybARHr28J5sRwbAxZjn4N0xNYrgvisY+varNZpiLyy8C2hbmMzwQGhNzwdQT DA9GgV3x2JEXGB6K6GjUDr3EsCme6V8/8PUKwyNw5UfBLf//YTPk7X5mllzC 8GiY3z5ovegswzyYpdl71xUyPBbf09p5x+xmeBx2tuw3P2QTw+a4ZmEfPTaW 4fGQvYxyMPNh2AIOcUteffrf+UzAlojLS3vNYPg/QCA8O92MYUtMHfj+eKee DE9E4n3zcyatGJ4Eu/Hn/Q0+NRKejNwrek2Bzxm2wne7R7IbdxmeAvkD8Vz5 DYangr9hcNXvywxPwx/O+06+lxgGJP17nP99hbAYGOlsrn/oJhufjo11AzZ5 VLHx6RBLpyV/ecnGZ8Aiyiz7dxMbn4EPrXN3dunM9m+Na43XXHYPISy2BnfQ RW3PaWzcBtef5eafdWLjNshw9nDXBLHxmRgZ3HV8Wiobn4kLrw6ONf8fX2bB 1m3f9K9qNj4L9byWN/vcZ+OzsXbocZdfr9j4bJztrHz6+ysbt0V162s+Of/Y uC3cRi+PUOp9ofE5qA3/ZSFiWDwH1VEuPeez33PmYkm4RNyFPU88F0NH7FnS 8IKNz0Oyiyx+eiUbnwe75xZbw86w8fmImWivz9vJxufjupXR4V7/49cC8I3S oLeKjetwu7Inmv+dnx2MvVx++ZiwcTtMXsM7p/nD/LMQNWZnP79/yvyzEI/X 3Wx9rISN85Gnb1b9N58w+Jh0UDQgO539no8NS0vbTZATVvMhGrH2uEskm28P cXX7wBARm2+PkwPet7oYzubbo9Vmo9oFUjbfHjXf+13jbGTzFyHnqrFn6l42 fxE0S8zCJGo2fxHCzx9sb/mMzV+Et7s+jXrVgtm/GHVtR9/NHUYYi/Fridd9 z4XsPBajzebQ371EhNWLYdiz+x2lis1fglvXfXpsuMrmL4EyzMn331s2fwly nYwnnO5I/lcvgahL73YnTRk/liJ3+L+K9tMIYykOt/Do/8mO8WUp5NtGJd5c xuYvxcbIbi0snNh8B6i3VN9rWMTmO2CewyrfFjPZfAfcW9NVsnMMm++A1LGC isnd2PxluKPWzI1qYPtfBvemm5lTytj+l2FgUk0/GdNb9TLI+7UIiPFi9jvC ckpHadRENt8RongnZU0bNt8RRp32cvvfY+fvCJs/Nwr27GH+c4Jw3KmsZ2HM f054J5ceH7iY+c8J23rMqdo7js13wiTtw6DIXmy+M3Z0Wt9eps/mO4N/7t9T dw6b7wyr8/k9N7Rg852hnWHtNKojm78cDnMXdhnIZfOX4/he7yCDKWz+cgx3 sQleuprNXw6973xJx1Q23wXf+NNcjFg8wAUGC0RV3X+y+S5otdo/PsmCnZ8L eoR26lwRwM5vBTKdvF8PZvkDK7CAc8aq+H/8WYFRnw9MeDSI+W8Fxj9Yu0nt wPy3EjmLs9WPJMz/K9HZs3H82b3M/ythVtt++/CLbP5KZB8zyjCrYPNdYZIp vtj1PpvvihaDHnYMus3mu2KrSU5XnGfzXXGp9ZbAkzvZfAGWjP06wDuUMFeA Yc7+K20Z/yCAodt6X3F7wgIB0rMP16X9j18C3LB4Gzee6ZVKgE9Xe79ynMDO SwBTkaBd1zd0nloBMorilst3sPNfhRHvZuTXLyXMXQWXsac2rzBk/liFHnu8 Jzfc+0Trr8KBwlbbY3MIi1fBatQXnAkjrFqliwCZ6I8LYfUqFGWIw1YuIKxd hXHpsqAt8whzVmPtkbKzLR0Jc1cj03Rol4wAwliNqnedRmm3svVXY9hHTZW+ hq2/GoMLijbfMaD9qnS/f7/Bfs9yxrfVCPx4YlbyIWb/aih2rGhp35bxZw2G lC1KilhDmLsGQSau4/1YPsMaPH2T7xbWh53/GtRX+ux55c/8uwaCj62u9WX8 UK3BYXWvwD1tvtL6a/C3VK/dPBDWrkFd69z4wd6EOWuRYj37aa6CMHctMg6b Ht67mTDWolB6NiI4lbBgLbwv9uLfFREWrwX3vOZzC3vCqrVou7Uy7owxW38t 5v85MH0C46tWt94XccchkYx/brg6d7jrXmYf1w02N89MmnKU2e+GHV1Od1Gz +knghu31s6psNCw+3bBuyIX27Vey83fDaOH0dSs+Mv+7QbXItyY2nvnfDeGH 1rXIGM78745rnQ4+iqhqoPXdMX1nXU5pBmG4Y+GlCbOz3AkL3JGqPsw7MYew 2B1zrpT+WTidsModLzeXPjK2I6x2x2TzgDGjhYS17gg6ZrPReB9hzjrwzt6w LfvE1l+HnFke39PtGP/W4Wht27WzzzL+rYO60GBqLwtm/zpUN43Ju1XE7F+n 08sZV66w81KvQ0lyfm3P24S16+C6KLft4f/lHw+sHPxkeMBTdv4ecB6c8Wi1 E/O/Bwq4o8cVX2H+98Cbd9VW/Qd9o/U98GjGy4vJXoRVOlwc33nbdsJqD6zf kj7Q/xRhrQfGzHhudI9hjiccpnP2TNxBmOuJbSfDj6nXE4Yn+hr0qIQJYYEn FuUd8Jt9hvHPE4UtT0X2nM74pxu/+KQp5wTTO09EBo3URDF+aT3BO/H4SVkI i7/1eMcdWW5UzvRnPS6cmnNsyv/yyXo4HB6dOF3Ezn89uqR1XGP0kPl/PZB+ +VrwbOb/9Tj1eVT25tSPtP565H/LPvLt7Adafz0cn872ONebMMcLftmnZdZH 3tP6XgjP6P5BIiUMLzzZldHp+ybCAi/8++tXlVZLWOwF35G2Q/f40/NUXtjf Rzzr8WS2vhf453mTDPsz/nlB0mZkL4fTjH/eSOk0QPbVg+mfN1TZ6+Wuw5n9 3gjwTH9s/5WwwBubuo0Ja8HqJbE38l+/W2yXyfTHG1NrC2P+rmbx742xrd+1 +sVl/vfGpI7fVIpy5n8fJK7gqkIF32l9H9RpO9yfXUUYPvD4MSUWvCZa3wf3 zh9sHe1GWOyDN5kvTX4EE1b5IM3eNU8pIKz2wbiCjjHfBhPW6p5fesnrTSk9 n+MLmd75ym7T2Pq+UFjMlA/NYvzzxc+e93q/uMf474tOindtTH4y/fUF/13+ 8KwOzH5fLMp8YtVowOLPF32jvVsKujL998USzfRPXkZMf/ww0PvQoV0DWPz7 QTrUdlaMmPwJP0QvnCetff+O1vfD5+MRiyZteUvr+0FcVXUgWv6G1vfDtkv9 0i+Uvqb1/aBs2Nm651LCWj+kZuzknZ1KmCPEqpJTkU0SwgZClEz9XT1yID2P K0TrfZKuu3vTejwhVi+0GuztQfuBEA31vkv6tab98oW4MG3prb2viH8CIXYc bLVhQEuyVyiE1dXM8QuGMv0S4ll+hMjQkc4rTYgb50w+u6ew8xSielZ2dW0x nX+hELXfDson1zJ9EaJ9ux7C/I/kP40Qa31rFy14wvwtxBmflbx1e3404wbd /m4a3fef8ZPs98ejAUe6DygkbOCPKx/dhXZvCXP9Yercy+P5J8I8f2Rtrn9X XEIY/jDbt0tfs4Iw3x9JTVEXOl+i9QT+yLg59e7p77QfoT9cvj0ulP6m/Yr9 UWr15GrJA7InzR+X3vCPJKYxPfMHEvJvb2f1f6E/TCYVuZkVs/rCHw13rO4I 5tL5avxxLadcqDxN56/1R5d+G4STW5FeNPhDLr0u38j4wglAfodjIXuX1pP9 AUieXLbELeYl2R+AwV5V/8m6vCD7A/Bmo2Xxxc51ZH8ATnZvu2GptJbsD8BI 31FBq/wJCwLwyO5VyJRqwsIAeIcPOyG9SPPFAbi0aJ3j7YG0XloA/kvr/c/8 1yuyPwATey18H2dN+y0MgOHv0+Y7Goh/6gCEtOzw404j2asJQNmOu4s+s3pN G4AKg983SvjEr4YAXJ9i2zitE6t/AlHe3jfCqoTO3yAQdaNanXmzivzFDcTL v8s+Fz8jf/ICIeL3f9Zz7C+yPxC8b9dmxi74TfYHwjKiw8Vjo/+Q/YG47nl2 mrWGsDAQ63jHdowd85fsD8Spre9Pi+cQTgtEJH+aX00/wqpA7A21isveT/ML A7Ft0g+f3EZaTx2IW+U977f9QvvRBOLxnTtTA44SH7WBeH8/0/vBOMb/QAy8 XbJGL4rpXxBGvHZe+i6bzsMgCLUL7wdKt7N6NAgGGxJ7d91I58kLwq7qIQqD HnTeCEJxeeTOSeakD/wgCC46iyu2kv8EQZD6l7y44k7+Fgbhsun0KfcLnpP9 QbhQePnxwtdPyf4gDK4Z+WdnVjXZH4Q2ghUTZcKHZH8Qfo570pgTWEX2B0Hm cGdo+V7CmiDkDZEtd+z0iOwPQsaZ5zzLgsdkfxDGdAgtsZumJfuD8XH29kn7 S2vI/mBsEB/0yHxMfOcGw2/9ld/yaNJHXjBqz/u/t89g+TkYeSv+7p6pR+fD D4aD9865vVk/SxAMgVdMj/gTdL7CYHyNdhmxWY/lr2DY+yjXB40jf6UF46Rl 3r8Zo8m/qmAog0KrjN4y/wcjzXxX2HjBP7I/GD3P+I/j23DQbH8wZMh43vYI YW0wzttGzXn5lXBDMAKP7rC8Y9iiGXNCMGHtTG16W8IGIThp8+/jrjv0e24I Bv85v6hvCGFeCOZefeVl8ZjWRwiOqka8tAwhvvJD0Jv/55DbWdq/IASGUx+O FTN9FYZg/nvvIdauzP4QPM2r5PR8QOeTFoK0S6m3LrD+qCoE/PbmcddElB8L QzCgurxFqwLimzoEU4eef/HjKOmHJgTtZ2xsmjye/KkNgWmgybiUzcz/IejL eX2uZcf75P9QpLy0TO38REP+D4V68qpW1wyuk/9DURT7sXJnl8vk/1Dwi6Yc bZtXQvaHwiZ2QMShCsJ83fxax71WqfR7QSjmTw2L6PaRnicMRVLlnpH/pBVk fyjSfodv1DbRftJCkTG8vcf9x0/I/lAorJfpt+9O+lkYik8l16wFtRRfat3z VfY9Y6cRHzWh0He1L78mZvoXisZz3/ybwil/NITCYOH44rH+LP5FCPTeVVQ4 i+U/Ef60U0/PrCH/cUXgyy15gePI3zwRVj94oUpIJz5ABK2zefdPa4g/fBHi YiZXpeu1bMYCETp9aTOjVRhhoQhzY86ajyklLBbhwGO7PsfrCKeJ0L2ybP78 p4RVIoSFRJ5JOUy4UITzrfSGvnUgrBZhv6eid30Fra8R4c207p0K+hHWitDN NWnf9f8Y/0XITVGO/zqV+MoJQ87t6rHpB0k/DcJw5/7FsdlXmf6H4bHIqGlW DvGTF4brsgquHrvfIwyij4Jb3qas/gnDR4+0d0+0TP/CMHF14wO9PsRHYRhS sjeXjtEjfRKHAS8LU+pciA9pYQjSvJ3A2XGJ/B8GTs72cBPrY+R/Hfb4qt9+ RQL5X4d79n/T99H24mb7w6CteT7UkVPQjLVhECj9+h502N+MG3TrPQsa0qn9 7mbMCQfHLPbVk6POzdggHFhibHdau5/sD0eQ5FvQ9l9qsj8c87MDLLp0vkX2 h+OD5cOKr6MekP26521/c1obQfoqCMdP608bIodSfArDMdL1ceBwEeVvcTim x6dV/dtBfE0Lx8Bop6XTerP6JxydtVmWJgryR2E4lm83H5B/ifylDsc9nsq4 7ij5UxMOy9qZJz7uZPoXjhn3KjITjxAfGnT7m7D3+NwU4g8nAo3eVbIOE1s1 Y4MILL5+I+vHCcLcCLSpeX53cTu9ZsyLQMmX6T8TJhBGBHq5RTsemUaYH4F/ H1JLrIYQFkTg+ULXdvUv6HnCCJwyqEioiCYsjsB0H6MN197SftIiwK/5Neft MMKqCB1fqsRbRtP+CyPgMd1w5pkfTP8j0Md6qd26oZQfNBHolOX2nP+B8r02 AsZnvq0+5UH1TUMELrwdMGoi6xdwIlFcN7rL0k7EX4NI1A0flPXwN6v/IhFf ExXxS07+5EVC7rPWZ/uZe+T/SJS3veCwW1BG/o8E7/V7W4/bR8j/kRDbepto Z2Y180sYCYOvEU63ZxY1Y3EkVJ9nqce5ljTjtEhwrGWnto+40oxVkdC/UWts fO5qMy7UPa9y2Me/owmrI5EXN7ErN/YS8V/3fL+RQ+KGFhP/I6F5W9ZxpGMh 8T8SXIH4b2inNLI/Cplhz/rfzbxA9kch5+bQU31bUD7gRsH7TUoJTCleeVGY ud58ZkE70mNEITXu9fxLV6g+4Efh7oDtD44rWb8oCr5drhZ6OpL+CqNQPXb4 omP9WP6LgnD3/TxVIfE5LQqS50ErzT6w+i8K9Xu2vr3zjPhcqHu+k9284k7E D3UUcvP/Ho9oQXzSRKGDc88Yq2LC2igUbUo7+Gw+8bEhCmb9bkevLyTMicaG Vn+H6n0kbBAN/gPOpBUdWzdjbjRMp80ataY9YV40rpZFfRr4mvE/Gj0DamZc 28v4H42VEzK2nGfxIIjGzZ7HbtYeYvyPhtc/mzX9P9D+xdG4/+upi9V34nda NOKzDU4sv0z2qqKR6ndx1OmDdB6F0VDLav89W8niPxqSC07PbY+x+1802jSl VLS+xfpd0bC5ZT0kvojq1YZo2A5/0U7dh+47nBiUZgRYaHpRPWoQAz0/O6vE x8RvbgzKz/R+oPfkCvk/Brze7by3xu8j/8cAf7QfV1ccbOYXPwbGTvNf70m4 2IwFMajSbnv5X3kZ8V83vu3gBn3VTeJ/DMqUx9wdh2uI/zHwMFm+piCRsCoG 9SV3T83+eZv4rxt3yuWWfikn/sfAst/Jzl8fUjxoYtA09t/drWvUxP8YqEsn RPDv5RH/YyDe0DtrgNsBsl+M3w+NlMK3V5uxvhiRwtKNu2dQPWIgxukVyvnq SXQ+xmI8e77H04BH58cV401WStGYm3S+pmJs+rPZcuNzOn+eGCYGTdF2D8k/ lmLY2YxLtd7B7k9ipAe9qxC0Iz2z1T1PfevsSQ6rJ8SoflwZ1H4q8cVRjHOP giIPTiE+CcRI+B3BydMjvnmIwQv5Efcsi7BQjCXuoS3X6RF/RWLE7rgQ7jaX sFi3n6RHk8OFhBW6/ZzQGx0cRjhNjIKb9oVT3QlnivFE1GfaAwvCKjG4PCs3 txe0Xp4YbTtteesgJFwoxqgnbR3yNbTfIjGmn9o2PvIf2aMWY2rtu909v5G9 ZWK0+uZ1P+4wq+fFaOP+a8uKpcT/KjHcpwwSGz1k9zsx7pcPXzO4FZ1vvRi+ 4ilejez9VYMYk2yD7ohqqD5sEuPuvdZ+RmNI3zmxuLKim/MzF7p/6cditaDW +tyoSvJ/LDQe/8Ys+FVM/o8F5wzfLsjcq5lP3FjwJ0S0rPQ+04xNY1EvOTwq tpL0mxeLvDtJMbFFxHfLWEC+QJNtWtGMEQuDgXLtrJDKZmwbC/F4w5KAp4T5 sbp6vK7oxnrCjrFwqY79LepO8wWxyHxTy/+zkZ7voZt/r/UD3lVaX6hbz9zh lZ+G9ifSjTu8d5KuEFP8xcJ2i/GjzNzzzfYpYrF1ocl8l6msHouFQHNkSUgX qsczY2H0Xz8XlYDuh6pYBCV7Sqf8pXomLxbDBt/Q76Wk8y/Unce1qgNvdlP+ LYrFbsX5q64Z5D91LPqob3yotiD/lsWi0OxC03F2f9PoztdmxMbe+sSXqli8 qMvqdacf0/dYvBrypzD2O+H6WLwsTbZYtI3pfSzsj15pq2dEfG2KRe3jrN7Z boQ5EnwILBiTm0FYXwJfk5vnnxYQNpBA/0frJm4uYWMJpKWBLsskLD9IEOfl cj3VmrCpBIl9zPU717F6SYLsb0+uBq8kbCnBYNvtY4ccoP1CgqBjvSzrL5N9 thJ8/famL28Pi38Jnoxet6JuJp2HowR2Yr8hNvasvyKBybCm4/vzqd7xkKD8 4eDFQcfYfVuCLzmZXTeyfpBIgjFt513YMYj1TyWw4I872bSR8rlCgvAWwVXV 2dRvSJMgc40oU84pJ//rzkNb/in/KNU3Kgk4p63jOPn5zXzKk8Bj1AvN3jFU zxRKYCq9XjOr8XozLpJA0NHnZ4t00ne1BGuPuGQ93078LpNgvCb6wtWiO6Tn OntORT4t+kW4SoLNBh17O/gQ1krwO86l43c9ml8vgdgp+OT3pZQvGiRwLLoa 0jqQ8k+TBIXCWaLkpvNU/0uh3hf+o+HxpmasL4XijGjztc5nKf6lyKhoWbTi FNVDxlJY+pn/23uE7tNcKRLndZSmzKN4MNXhNZ0m3m5DesPT4SHznYrZ+15L KcQtErpdu8z661KornX3LiuleLCVYlfBzhbjvVg/QYo3DRcfh91i/pfC4uv7 Uy5DiC8CKaR2Wc4ek4hPHlLcNsz0OG3I9F8K2feaR3UnCIukyDFRxPwYyfRf t37CjQHjIpn+S7Hj3az8aQeY/kuRPvH8ox/FTP+lCOh2wn7Oaab/Upz2FXqO zCScJ0Wm68qSYmfChbrz2+563+UPrV8khX63Tc9OhhNWS9Hxkri3eTntv0yK 605unNQ3ZJ9GiiWi6ZVtb1M8VElx9Niprn2D2f1Git2CBxMST1M81EtRUTnv 3PRedJ4NUkzqdEJqOZTOu0mK7e67Q2Z3YPW/DP2v/T5s8I3iQV8Gs6xn7yYv oH6dgQyZR22OXrpD9a+xDGk3f/1Nf3eT/C9D2VS7zBdxx8n/MnBWfzlkW7+H 9F+GpsPfuqQfoHrIUvf7hpureRqKB8igtzwJhw5TPNjKsK38LEfynOm/bj9b V51tM+Qu6b8MQdk3BjRuJCyQQa3OHVk2nrCHbn3kH3ilR/EhlGHJ8z36Fz/Q 80UyONaWr9qy4wbpvwy2JTP+k76jeFXIdPeDnSqzOVTPpclgoHEMvXrsEMW/ bj8hIWm/Y6ifo5Jh0q5cu8Bj1H/Mk2Gck76w1pD1a2Q4H8jfk7eP+tdFMrj/ d8VtpSd7Py3Dz+f6X+9kkV6VyWAea7ZnxWHSM40MxjaBd6+KyL9VMvy6Gs3T 82T+l6Hy+cOXHe4SP+plsKyZ61r3i/jTIEM7TaH+qTriV5Nuf6EjWt5NZ/V/ HD4d+fAwsifT/zicUsf9XeXP9D8OX7JWdL+az/Q/Dl0r2lb3u8z0Pw7eZbs7 vWTYNA6Ft5JHHWLxw4tD5EiVJ1dE2DIOW0o/jew+hDDiYKvdYH/0EO3HNg5L 66s3H+jM7hNxqN7XMO42q/cc49AiI7Hw23iyTxCHl23OOuR8oPPwiIPDp4Ar QypJP4RxmNzbuf1ge6o3RXHou+fUzb4B7P1LHEyye3u0caF6VRGHCwW5N0ax 929pcchK/2k8K4fqpcw42EwOfNie9atVcQh3cbHpvIrqpbw48A94ub6NpHqp MA4cUe+ceq6M9F93PuPfTt48hPRXHQfRMJ5g+X7S57I4qDr7TK7UI75q4qBv PC5uQCrFQ1UcrM6Or/7KJb5r42B8L2Dy8irC9XH4nf2oZsklwg26552orLpT R/HQpPNX8POa5yPoeRw5ilqXCx5/ukX6L4fq6PCrI2bTfcJAh/Vm+T67dboZ G8vB6W9ZybEIpviXQzM1+dSluosU/3I8nhL2Z8aGO6T/cnA7SvSC+lH/wFIO J695jyxWUX8MctTdttwxyoXuD7Zy9P17reBkNfmDL4ehx3+GGaxf7igH3yyu aDx73yGQQzbaY8tEMd0fPOS43ujFmzSb4kEoR9KzQzMqEokvIjmsNndo1z6Z 9V/k+Hmj0NFmCfFNIceBdnpP9tQTTpPj9N79JnMXMf2XQ2G+Jmco03uVHBes 5qRHsPyQJ8cinzHnt91g+i/H86/D/r46T7hIjq7Lc9bcSieslqOC5y6s5RMu k8OoZmqPL29ofY1cly933hjP6qcqOcxPqaz27Gb1nxyjJrxS3z1G9tXL0aPP Zam5gvW7dOd17PMWTj+KjyY5hp4cZD7xFfV3OfFYn3OuZOxw0hv9eNTuu5X5 i8veB8UjLjlmzvnf1M8wjseV4NY7VVrqd3DjMfDI3LMWy6i/aRqP8RzTikVz qB/Ii0ehU6l9hJrul5bxUBsOr9vRP5f8Hw9OG8t573cdI/2Ph77YucnQ8jLp fzxUv7aEdT5I9b1jPFzCQ8yS77L6Px5JM59s8i0jfnvEQ9AQdOnOfeK/MB6D /QY2xXS/R/ofD63e2iSuksbF8fAYEV4eOobmK+KxVqPXNectu4/r1g8d7W5p QfkiMx6mGwfsnd2d8oVK97z1j+6N0aP7dV48RO9WHN3bhvVr42Fpc39qqxqq H4viEVkokvxl/SR1PCKevj9R/5byRVk8Zp2Y/bQhg/KxJh6XrI93dn1J+aJK tz/LQwGi7ux7Ct35bTVePn4Q5fv6eCzsdUdT+YzyRUM8tp45OvfEZub/eGzc df9sMuu3cBT4s/nshOM9iU/6CnRusTLo/g/WD1VgdmJJ/8g9xD9jBdZ7C+Ne DWT6r4Btjf/3fHZfNlUg3/jOkoeHmf4r0HGVrd6Ja0z/FeDkX++dyDAUyF02 aP5x9ntbBRbZW+zLCyfMV8BQ1dS99TDCjgrsSHa3PniY9ZcU2BR50rUjyxce CrS9aDAhh9WDQt16/OdN7Ue3bMYiBeouu/ntraHzECtw4HYP392sv6RQYHlo IRJMWD9OAX8zO7/lYylfZCoQ/zJv9nv2fbtKAVWPfosd71K9m6fAC4OIoo/v qR4u1O3/Z5vgDhK6PxYpMHdNyL/4DnS/VCtQVSH1Mck6Q/5XQF086tGFgGzS fwXyptg91AZRP6dKgYYLmz0fWVP9pFXAKKPR98VB4mu97vdmjWX/ehCfG3T+ ca+6aZtAfG9SwMxHT8sdSPHASYAHt7/T6Y80rp+AomcTh/73ieYbJCDN94yP Xk/KF8YJEIyb6hYvp3zBTQC/b+sMaTrdt00TwI18E/768Smq/xKAd6PejQlL ofhPgLaV8mWTaynFfwIGLo6bPdX9Lul/An55P2wxMIXyBT8BOe0nvNevoHzh mIA/y7a8jixl35ckYMK3y64Fbam/6pGAC9/MQ0OHsu8tdPOnuIwZ1IH0TqTD BmOMbyVRvhAnwGZnjAlvDsWDIgHrVZvbbk4gvqQlwPPLzMirCcSnzATcWNbt gQGf+KbSze+j7+zN7rt5CdiinNun3I7pfwIswi7v12P366IEZG3YvQ8sX6gT cDUhtqHsJtP/BAzfYTOlqYSwJgFlc5O2TNtBuCoBJd/73x6zgrA2AV1rCl0T ftH69QkwrNrkvjqQ3f8TELxsZ3nseVb/JWDJdlzqW0n2cRLR9uDpvKEFZL9+ IiY23VfNmU7xYZCoyw8ShwIe6YlxIg512Py80ZfyBTcRfc+oD4aupHxhmgjO k5NRNqPZ9wKJ8LZaN/zEMKp/LRPRrW+vykESyhfQPW/dRgMbH8oXtokQDP9r euk05Qt+IvB91z3zkbvJ/4nQxHxq8db5OOl/Ingpv7v7qyhfeCTCOLzXm+dd iZ/CROi5pB5c9o/yhSgRa2e9sBvzivgt1u3PNPVjn5fEf0UiChW9+0QbUnyk JcL0ynS7dYE0npmIzTOeiD5zaL4qEUuUd11Lcin+8hKhP+7fF49gis/CRHhI ji38M5juP0WJ4Bq4jfycSe/f1ImwLbycdTTsBMW/7vl6v1z3DqP3a5pECE+6 ljhepnxRpdvflA/8LWPofqZNxKeMgH0G1yhf1OueVy5f/fcznX9DIjqscHio 6MHuf4nwKjcbvM6Yff+kxF3Z8XvuN8i/+ko4999Zbx3P/K/ESFl1Q1I98cNY iVcvl3rk6LP3Y0oUz194t+YtYVMl5vxFSxnrv/KUSJ36EPJeTP+VaEzf93th INN/JY7MdQ+oZfcFWyW4TblS8XWm/0rE7TnsI7vF9F+JyS/NstzY/VugxIKM u/ZFCYQ9lAjun35lghVhoRKjNjr3vnuD3f+VKF3YbcinsYTFSlz8Y+n80J32 r1DCQ6+m6PTqls04TYkN9tkrp/Qn+zOVOGhekLrdnPRDpUSYJF8x4QDlizwl NKki5dtiyheFSkgGWTZWZ1C+KFJieNn8R8uv0f1CrcQ1wx+hmy/Q/aJMiYab Fzr6VtL9QqPE1oz6j5ad6H5RpYSj0ZWaOiX1K7VKcBrn33thQv2beiV4o2eI 1obR+68GJWxzo7qXlV4j/dfNL3j14n008ZWTBJWjT9bKBtJ3/SRwMnMOYy3x 3SAJsiEGCsUPwsZJ0G8xzCm9mDA3CXqLj1v7n6R4ME3COzPr9gtvU7zxdM+7 /6FS8Ij1f5Og6SCr6llO8QrdeOqGEV+NTlL9lwR4jrIWNmVQ/CeBn/zW/eBK eh/umARDbZ9767SULwRJsHv5a8LkUsoXHkn4ynmzJauJ8oUwCb2DZs1s9ZDy hSgJV07Xf7XVZ99vJmFXzzeiBex9nEK3vyGcy40/WP5Pgqlghe3MEPJ3ZhJ8 P8r8z1gRH1RJ8CzIwKwo4kteElx2tOUcZe93C5PQ3cDhZ+Ms1v9Jwty1ybvV T1j/R3deA7tffsLeR5QloV2r3F1t2P1Ak4QTaZ0nr77I9D8Jb7Cqxew7TP+T YPXRfeOIcsL1SdjPKTTJ2U+4IQmOvFsN7n6s/6v7veO73a7dWP83GY3OLdec 20D70U+GS8/tJja1rP5LRtVb91v//pF9xsmYFDDwVYiW7Ocm46/A6lF2DOmF aTIujWg5Kv4M6QkvGVFjc02NW5DeWCZDvi9w7uRG9n25br1ku7OLz5Fe2er2 Y37g9vyR7HuyZPy6F/iy61qqjx2TAYPh8uIX1G8RJIMbY9PvTA/qx3gkQ33P cGuP1ALyfzIaRJ8c06VHSP918xVpi/on0vticTKKJsh2dZtM/FQkw4az9OqO AuJvWjIsE3de6ZRD/M5MRu7WmAkz9hP/VTocvnaj/lPCecmI9PTgRM8gXJgM viyML6qg+CpKxpKBXIlxMOv/JsOxynDnvG6UL8qSkTd4xH7xBar3NMnQGup1 k7zdRfWfzt5+XIG140mKf914ZL8Gbibli/pk2LX/MuvdL8oXDcmoOOY8LNuW 8kVTMiwWvpy44imdLycFQ+33Ns38Teevn4L96QtOLu7LvodMwQFO7arOfcl/ xikov35i156b5F9uCib9zRwxRMH8nwLlf3o3dr8mfvBSUO+5pfuC9sQnyxS0 6vzZYvUH1v/XrScynP6Hva+wTcE6w8Hf25kw/U/BhtPW0lrWP3JMwarvgpWJ x5j+p+Ch+lj6zEqm/zp7opdWxj5g+q8bl+8NLy9l7/9SkP0nKOEBiy9xCmqd Db/HsPhTpOD6avfMJ4/Z/T8FW6sMHviz+M1MgdEcSejWGNq/KgXTjPwbw8Qt m3FeCgb+2DZQOoN9r5ECrzGcy8vjSD+KUtAmrWDlz7bs+80ULBBo+/wZSPpT loKFOeHLRv+hfKFJwf0LfKnxJtKvqhQMkwRdTYokfdOmIMLNwrnYiPSvPgXr h3u5GlhS/6UhBXW71S1fF9P3O00p4HTwXmPbVUT6nwpuUaNhafk50v9UCAyn PpIdpn6UQSpUoo3zLxsQX41TkVl93Yq7lfjMTUVV+4rMzoOI76ap0G6/3L3g BmFeKjbnxL+bnUvYMlV3/3tmmnuQ4gmp6CtN77roYUXx/wGprhwL "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9WnlczN/3HkTZsyWJkigkUSiFpyyFUFEiy6R9n/a9pmmmmWqaypK0KLJk z5YskYRk+UQoCSFUlkqW0Idfv9f33E//eD3u+7zvPec85zn33vdM2Opn49Kb w+E09+Fw/v/f//21LzTQ//+/zoX0H9hwLsdx6EKGFTAyx8ZGdwXDikgKn15o t47hkfhxJM9jvhPDytixXH5jmi/DqkgW/0J3GMPqaF6roDRTwLAGsifpW79N ZFgTT7LSxHWpDE+Gs0t64ePtDGvjwLVdT8/uZHgqdpyf3r7xP6wDfo2VsGIb w7qQtAu3f0lhWA/xN3NO/ElgeCYG3PI+oRjD8CxElIZ/3hLIsD4yXnYMneXG sAHcbS8uf7qe4dnIG/nV9vR/8ZkD9SGtXyfMZ3gujK1PGW7TZdgQTVonE/3U GTaC9zeJbNIIhuehXT9VXlWeYWNE7/QoPtP9hbAJBmTv81j0leH58Fxx2WzU Z4YXIFv10QrnVoYX4sKwk34bWhgGhk8ObhrygTAfEOyTKIna2LgpVNc+HHfs Oxs3heKVtIrNHLYeM7y4oDvReRBhvhlOXq2p5qmw8UXI2GS2X3sqG1+E6miT bnVjNr4YpgenCN5YsvHFqNpnZ9uxmY0vgeCsauJNHhtfAiO7+obncWx8KTLW Ttt2Np2NL4Vtg9vi+3ls3BxrHuvvLznKxs3xWuX6ryHn2LgFCq6aboi+xMYt UFi/0un6FTa+DN1bnZKKGeYvg+XFVXcWsec5y/Hl/PDLvLNsfDke1U756nCE ja/AmP1Xykxy2fgKtFknaWz9j3+WuCTNUZoZycYtYdYUqKfxH79WImu8f/oV aza+EtneGatz/ovfKtw9vsppwyQ2vgqGa2Ya5Qxl46vRrftGoe9vlr/VWGnX NlK/meXXCvxr8V0XawnDClKho9bEKva8FW5+nV/+8irhMitwpx9+seoCs7fG 5a7yTeeKmb01XkTJeZiUMHtruI0PKmwrZfbWsCn+x/TyLWZvg+gPIcd4j5m9 DbKWPXUsfcfsbVDcJPSZw9ZfZgP7hxvrbYcz/9ag0Ku+M2YaYayB09fjy3sv ZfFYg6uBA501HAmXrUGAulqnchSzX4vPZhuCVTOY/Vp4n7fs63qC2a9FjeWE 2XMrmP1aOI69d+3lE2Zvi5haly/lb5m9LYRudpEb25m9LcruC8sXf2f2trg5 ZLybwQ9mb4e0O11f+3Uyezt8yus+ebmF2dthz5pbbpHPmL0dVGZZm8sqmf06 fHm3NNP5FLNfhyPFbSGpzB/+Ojy8bhNxhelt2Tp4/DNs0yV7Zm+P5Kbrpc5z mb09BijtUy4cxeztcXvM48mRTF/K7NFyYVHdo0csf+ux4flsjYPnWf7W48So Ky8e5rL8rcdE9V3fp0qY/XrMtd7X3zmU2W+Apsrx8hHezH4D2t8o/j7iyuw3 oMlIcMffjdlvQPe25r1CX2bvgDyzbN7DSGbvAH3++v6qqczeATo/t5/9eojZ O8CDmzO84gaz34gtOWmrbr9n9hvBW+y4V20w838j3G3klSoMWPw2oupchV/O Jha/TQj+0ad3LOsf2ITFw1KMjP/jzybonnmatK+G2W+C/oq1genfmP1mPLSY aNI1/CvZb4bKuk0Gb6YS5m9GfKGPpsCEcNlmhOkHVemaE+ZsgeaEyyYBy5n9 Fgyr2Tum/1JmvwUTqrUC3hkx+y2Y76m+efZkZs+Fhfis1vqBhNW5ePzj1K8P jH/gQvXvur6XywlzuagKe/bn5n/84uKjQZ9RBkyv8rnYmHHP1nI287fnfQO7 r/n3JtzIRdCrkatGVbP4O6K2z3adY3mE1R3xY2by7f0BLB+OGB+7/o3DcsJc R0xvcNccrs3y64jXT8+kvx5EON8Ree9GDLr4s4Pmd8Qc9cuDrNoINzpiltrI s+qfCXO24t+ZHw3dvxNW3wo1ncc31BTY/FuxXO7G098abP6teNLX3NJ7KZt/ K6IFr8bv8Wfz9zy/IcA8toDxbSs2OSTtrKgn3LgVZRGrSztYfXGcEJOR6+u0 hrC6EzZP+q3vwPoZnPCz9/Qjg+6z+DvB1mJD7FF5ll8nHCgasSuc8SPfCXom GmceebJ8O8FlwcjRi9IJNzrh8NWaspgTLP/OqGje+SvmGsu/M8YnxOnxbzM+ OUPviuGQATcJc51x3ESjo7OYze+MaqOcM245bH5nXA3Nvfo6hM3vjM8XnprM ZnxtdIZvf7cxsUPY/C74YFZ7YCrzT90FLbtTUprEzH8XVPOkY9PZ/onrgonH dn5f0MHi7wLO1Lflow+w+LvgqcN729UOLP499l9O2gxXYvF3QXE9Z3hwLcu/ Kz5WPN3ntJfl3xUmkYejtwcThiuWtiQh1JYw1xW89GcJBmaE+T32CxdczDYh nO+KI7eb901YwvjnitfP5RPqHRj/XHFG0nIrhM/md8PMN5mmpqfZ/G7QQq9i tXY2vxueFXr92WnI+OcG44abqXcTmf9uKHBMeJL1ivnvBqPU+Tt3sniVueFd hc4f9WxWf2448KWmTPRf/3HH/pj9tfJWLP/u2BtTte/fvSz/7hA8mPH8bSvL vzt6nywwitT+RvO74/u2I+8r7Annu6MrzevGxAjCZe6wvxMUvTGZcKM7hNu6 x+cxzPHAt3TXR1L2vLoHNBq36puw98EDE/2rzE0mEeZ6IPeJbr+M14x/Hkgo ne18h/E73wMd6asH1Rgw/nlgyNm67KGMX40eeJb4c78pl/nvCfuoukVBbL+s 7ommxo/Pm/7rJ57Yo6fn834gi78nVPzHrLnN+ML3xDy11o9nwfLviYLzwW27 PrTT/D32JW3fBx8g3OiJ6Q4xL1b7EeZ4oXHx/m1aloTVvZCa6cN9b0IYXijq +OTpZEaY64WLiq/6fNxImO+FOVU14yykhPO90FlhXHPyHza/F7KaEl7fmsT4 5wXXUfF386SMf97g+UVdOduL+e+NB2HHPX/HMf+9Id+7atWX/qz+vBEQqHf+ Mjtf8b3BXye3bMkEFn9vyApnuroUsvh7I2Hk+iuDtVj+vSH1HaDlvZvl3wc+ qx9EDuxm+ffB34PX8z6s+E7z+4CzdZ5begJhrg++NAmvDj1CmO+DYxM4kYPO Ec73wc0cq7jrBwmX+UAiGHNpQCzhRh/YLNjRx34BYY4v3DyavlS+ZfP7wvtl y9WpoYx/vnAM+arx9yvjvy98leS8IrYy/vki+0StTuh11v980XFnv9EmVVZ/ vtBwWV/6m/WHRl9YdJjIr7/N4u+HqBP19VFarP79kF5ZE22czvLvh9RpU7fJ D2T594P3ErX1e2a20fx+CDl9uvVO5Gea3w8vVieLvv/8RPP7QdtnbuTMIsKN fnj07NWuZXsJc3goKcipunWfsCIPq/aqDWg1pPep86BpEl4ne0FYj4fzvb41 jSyl+cHDoLONtSrutD4rHqwm19l2KjC95CFixhV/rVLCPB6adk4waItl+sXD L50hgyrZeTmN13P+iVA4qsL4xMO+nWEFa94RLuKhe4BolKyQ6QsPSqOD+wkc KJ/VPBRuWGPR9pPlmwfpyV/PbGN//A+382CUdTtPvpkwxx97tcRqWjO7yH9/ tBbZnsqyJ6zuD/6+u0e7NxLW80fwbTu59PmE4Q8BX8t76S96n5U/KoqHpt3Y TpjrD/Wst53SgYR5/lh57mfCCGfGX3+YNP1Ecz75k+aP+fY5DeWs3+b74+01 naURbP9f5I9/5r5a+/Qt62/+6LesKdf6E8W32h9rzG1f7fjJ9MYfo3imrzSH E273R6Tm4clPGV84AXg3ZbH/u74s/wGI/dp90uXuB/I/AG+uyH/RrG0l/wNQ qpu7t2saYQRgybPJdX3/aSH/AzBf6UPF4OuEuQHY1MvNP78/Pc8L6DkPvs/S LCDMD0DBiWGbjslovrQAtOskTsi6/ZH878Gzjo2avJrWWxQAJZf9oe2sHsoC YOh2dcjxQcz/AKB6T67CRFZvAViqemFRMzsPtgdgV2rGaWM/tv8IxKfykyWy bRR/xUAcnjEi5fghyo96IP5eXHHG+CDlTy8Q3I5Jv9XFLP+BEA74tOPy4p/k fyAaB/uavKgnzA2EWW+Z8falv8j/QNjO1K9uEBHmB+KlxobXrrsIpwViUE5a kU0E4fxAxA5s8pioS7goEGEpg/o+Ok3vLwvE4sUhy5X6E64OxL5Oi7TTs2h9 jYFYnz9B7vssxv9AaGXP/zNiKNO/IOis61q2/j7FQzEIh7KXbx4RwfZjQeCp KoepjqN46gVh6YbK7UrXmT4FIf9I1avOz5QfqyBs6ToTap9I+eMG4a7PqksH XVn+g7B6ftfyfjuayf8gnJN3Vtqm8p78D0Jtud6E3px35H8QwndlJBWYvyX/ gxAkUQq072wi/4PwY8GIGa5yNF4dhD7CArRGEm4MQuG5cvHLDfS+9iBkTFH9 eXQvzccJhpJNY+eC1cRXxWDo3Ns5/PkWxv9glI2wDn5wh+pDLxj9fs/h6ixi /gfjyf6LNTuuEP+sgmGxPvJTKLvP4gaj+7iiutdLii8vGKddftYGerD6D0aO nO/xzc8pP2nBSHw1zbV5BuUzPxjXNw+0DLJn+Q+GyosHgwysf5P/wRBuXrP2 gVI3+d/jj9vT+TcPEW4MxuCAwYG7+/xL/gfj8OGmU1OnEuaEwN5U2UR3LGHF EPQuv/i7+THZq4cAgy88mrOesF4ITD9w1r8soPkRgobJdX/nnKP1WYVAo+OC 6G8K438IVN/uFbsyfeWFwOzk+tjmA8z/EOyPyx125xvFJy0ENxfczHrL7kfz Q5BV/txjlyPFtygEjZttJ2ouoP5TFoJl75ZfqvxM+aoOQXRBfEBeG/GrMQR1 uXHPD65h+Q/BVI0bAydOJv5wQnFgzOxDD7xek/+h8Oq1aeVnzVfkfyiunf/q 57a6kfwPhUKt/dScBy/J/1DY+632iXlJ2KrHPvfZ/GPO9Dw3FLrriot/LaP3 8UJxsPSEXmgBzccPxW/1FYWjg2k9aaH4M6N68chrjP+hiNx/SitGRPwsCoXS /sL95y9QfZWFYmrHE2WTycTH6lB4Wpnv3jWM6V8oThtxTxcPpvi2h8KvXd94 ljyr/zDIyz2c09BK/FMMwxCfdyYTCil/6mFovzpn5plZlG+9MDTXZ74fF098 QBjSXh4R2GQQf6zCoHzpXEK89x/yPwwavW6MKJP/S/6HQVVxoN0BT8L8MORL /0my20U4LQy1Naoad2WE88PgIHe+f4QV4aIwbPVS2r28nt5fFoavuf4GHdqE q3uwYl3oHkNaT2MYoufdXaLWj9bb3oNvKBtsSSO+csKhvXTVLLV61v/D0bl8 mzjsA9P/cKwcFFS88yHFTy8cH6/kPBjBzvcIh2FxQo/Msv1POEa6CzwHljD9 C0e2k6989QviIy8cBzmHSxrCSJ/44Xjle9raN4P4kBaOlxV7+KEmxJ/8nvkS N/cJ+qeB/A9H+cAgzZfq9eR/OPZ3CS5Od6gj/8Mhr7ox471vLfkfDquCt3Fc G8Lt4fiVEPHEpw89z4mA9ufDfe+Jn5L/EfjyjXduzcdn5H8Eht/4MOq+GfFb LwL26QOOav5DfEYExs4e5X47gfhrFYE7SVcsBleRvnIjMO5XeZ1aOtUnLwLb HAeobL/F9q8RMPHy33tpEsUzLQIPhu77+jaU7X8iUPH77pxJ1ygfRRHYp/ni QVwL5assAhYNkRMOP6d8VkfgZKuy/e80pn8RuCKoabj9L9O/CFzqs3idmibx iROJR5HXk9/24eB//kfiqrNim+46wuqRaLx926tMRlgvEgPizgqbjhFGJHaH iK//OU3YKhKzopvPOuwlzI1EZWmA0cRQwrxI9G4ZkeoxizA/Eq4rdaIr8xn/ IxHRwh2fn018zo/EvdliN73VtP6iSBw1Gbcw5TzT/0hM2P61zfYx6/+R8L27 9lDHSarnxkhUzeUWNtrR/qY9EvNOaM2Yy+4LOFE4eFpdqc6T+KsYBaftRhIF deKvehQihoQEBT2gfOpFYWVH5tJeAynfiML1sI99mxuIr1ZRGP/By4qfTnzl RmGbkm1mXynxjRcFz+yTA36kPKb8R+FCro7ci/Aa8j8KGXXlp4bOeUj+R6HV tsvYpOgB+R+F0X/m5C1+SbgsCoN9EhY0Xafnq3vG5Uvd490fkf9R+KYaNnp+ 4xPyPwofv7z4XLOY6ocTjYbpO5YNP/OC/I9Gr8tP+8dpUD2qR2MJr3vrayHV q140Cka0/WqOJj1GNKZGutv++k37A6tomD8MX2Hgy84/0TjJQ8Mxdv/Pi4bl rFpz/QjW/6LRN+bbk8kNxOe0aFzq3nxAty/lNz8aSz8n5k97R3wuisa0F/er LoYx/YvGh1zn3sWlxJ/qaMzz+yR22ET8aozGiZ3brSsvEW6Pxq/s4c81/xDm xGDHbPG+Rq1e/8OKMXD3ebHe35iwegz2nR7UrTaPsF4MuEPEU75NJIwYfJxS teXCD8b/GPiv2/Wp3xnG/xgMW2R7OdiG8T8GFoo+O98WMP2PQR133uviDeRP WgwqZmsdbywnf/NjoNJv24y59Wz/E4M0jzWuBw+w+o+B61vLQ6b67PwXg5GO PHPPLHbfE4MoTvS4Bew81B6D39tcaixfEr85sVg1c0z2On3SZ8VYTDA3mWOl RPxWj8ViU+vslTms/8fipkOWRnoq6SNiMWVGTt+ocaSvVrFIn8z/Puga8Zkb i4OrXH4k2BJfebG4G3w1anrgP+R/LKrDPq8tPXiP/O9Zz7kLJ35pEs6PxbxT vwafeEW4KBYZP1QqHd6SfVksGlLlW80P0vurY5Gl33ZIcSLjfyxyNx9peihm +h+LrdUOrht/0Po5fNzJPiDbcpv8U+Ajz9yp0N6Q/FfkI5v76K/lMoqPMh8D hrwrrf3I9IGPM7vxU51DfNfmI2ComjTgEMVfj4/wmwMvZVlSfgz52L3g+Y3m f9j5qef5/nK51qOJ7xZ8fLmsWSw3nO0n+EiaO7W32gXihz0fRX5P9Lr7MX7x IXsm0i9IJuzOxyEdoXRcG+MbH56h05M05hBfw/iQmJ+ecdeZMJ8PV2MVhxkx hCV8LDyW3D1NSDiNjy7XkX82hhLO5MNft11eeR3hfD46/+17N2QC4UI+pO92 TfKpofmL+Dh4M8X7pzvhkp75+r7uNegS8b+Mj5JWywy99eRfJR/uJ1YIrx9g +3k+Rto6hazOI/7X8WGbqj0syJKd7/jYs7v235pS0vdmPvpebjp+mn2/au+J f8zrYzJ2X9jFR59+k73rM6gfc+Kw1bSm9doH2m8qxGHXLmXZwAa2H47Dxcef QyZ/Jn1UjsPy+IQ/a4Npv6Aeh0aX+kUTZpGea8dhxfX+s8f8IT7qxWH4wakv GrYSXw3jIHx8J8DJ5i7lPw4Vfadtit1ZRfnvGTfj6WUNIGwVBz3ZcZP7+wnb x2GQ87O5773InhuHuxnth15G0vvd4+BpY3boRS/qB7w4XDAe2JkwgdYXFgf1 fy+Irc1o/fw4aCp0lm5KIv8kcThiovMOUrYfiwOGK7TsiaL4ZMbh6dLGs3MH U/zy4yDdmfg+QpHiWxgHfkzmtQnXqb8WxaHXp++69jGUn5I41CjNy/itxvSr Z/3GnzesSqL8VsbB6oeT/PFClv84RFzbE2PgT/yoi4OZ2YvnsW+IP41xuLc3 4c8LAfGrOQ4TBr63u9rO9D4OpWu3GiaD+NkVh6Cbu9vaQghzBIjiry7M30VY oQebD5Mfd4D1AwFkunPj9+QTVhbAgMsfq5zE+oMAjRFjL87nEtYWIGWJ7Zt0 ddYvBMiq9S+Ju0XrMRQgv2Tp2r1WbP8kwGFb/VNLfckfCwGOncyba/2J1b8A 0tVLDD8qUzzsBVgyrN/Ulg52vhRg4jRHA10B7XfcBcj8EWPR/wU7bwugUBNy 6xb7fhcmQOvktd+Tm+i+gi/A4t67swOeUj+XCLDsXudIJTvq92kCXJo1511K KO13M3ueH5n+8ZyU9jf5AtR9rXmjG0L6WihA1csfa84nkv4XCZCsbFegs6ea 8t/jn8aPVL3RpOdlAhQu3TrsFJf4XSmASaXB7Jj3lZR/AXjb554zkRGuE2Dk uImXRlnepvz35GPa4LAdOneo/gWYtS/1guHq+1T/AoSf6hVgFkj12CVAzMw3 G2qzqD9w4tGu9dLo4g3anynE40TJcbGiKtsPxeOPW9gW0y1UD8rxSMyR3F2/ iepBPR5afx/dn/aX7ne047FDPErTbgTVg148lKfutjRm33sN4+Hq5h34cQe7 X49H5C619aYLqB4s4lEtiHR7cZzdJ8Qj99CI1wr/sPzHw+54gcPcTHa+jIfB 8MUq9+WY/sdj+M7MiXI7mf7HY3ad2o07vZj+97zP/M0soRXT/3iYN11c9lfE 9D8eHdXnVykcZPofD8htVJlxhul/PB63HvW4cILpf0+8tGLCD2Qy/Y/HokrV AWf8CBfFI7MjYLT/TMIl8ZC1LqxcV0/rK4uH8cDEtr8uhCvjEaifOWxSHtvP xYN/qjRm7CRW//GwOVqk/WodO9/Eo+Zg/myfuRSv5nhk5y4y2naX3ffFI6Ui cYR0KsW7Kx73j2hzP/iw/b8QBoVVH2t5dB5TEKJl1nnPPFvKp6IQhZtkm4Zc oXpQFuLCGMvQtNvsfkSIIfsPPl/Y9znlX4jydydnL7hJ9aAnxOKzOS1u56ge DIWwXXYkLPEw1QOE0B4aNiu/k/TcQoizoW8aRP2Y/gvRddHBaOo64r+9ELgw sV92xS3KvxBC8bpV2mY07t6DJdb71tRSffCEUNx4VEucR+8PEyKy62/YZWea ny+E7om6mdeX0/okQqRbS1891qb1pwnx+Ujymx3aVO+ZQkxJbmwKmUv+5/fE 73if97kKFJ9CIUwVokcPFbL7GiG+jjn+9n066U2JEEcaFx75xb63lQnhaON9 tvMu6VWlEDPdnk75JaL8VQtxZ7vCVwxi/b8nPmMvWl8zZ/kXIma7ftadacSP ZiH67VBLMy0m/rQLYTTi8Jt1IcSvLiH+1O438PrI9v8iTPkbVfHMjOm/CMfO vGq4zfZDiiJMa7uZsXU/038Rmke88cspZvovQnXJt3cTzjP9F+GQm0m3Nasf PRH0rDrvW8QTNhRh17kpvz+sYOcHERwDd3j87ab1WIigdP/GB6tt7DwhwvWV MUeGyxO2F8FdV+2Q3HFW/yIsUjknbPlJ8XAX4eupTTtjv7D7dhGkGit9YnJI X8JEmBib3Haf3X/xRQgPu3fUcxXtlyQiWOV9WavOvr+liZCgd3vWwTfU7zNF mJtsMSqS3Vfn98yHjDeTP5E+Forwq5E/Rekp6WeRCOWOMq+FurTfKBFBy/VL E+cK6W+ZCCpzDTQjuaTPlSIoBFsa8WqpP1SLEOXe/sQhiOqhTgTDpo9DMjYS 3xtFcPZuezPEneqhuWfc6aJcuYBwuwj2GX5u14/R810iWJiekuv3i97HSUC/ etvcb+nULxQSUKzwqtecWlqPYgK0P6dsDLKk/ZNyAjKEah2TH7L9XwIkJyqf iNLofkg7AVfnfLuTYvOG6j8BybETJ6kkU7wMe+a7evhM+1Y6PyAB8r00s4Pr Kd4WCZjoYlaXVED5sErAuF5zxgWz+3L7BGTrXp1jwL53cBPgLrK7I3Wl84N7 AgL+5lv359H+gZeACca/PKLVqB7CElCENFmTMbt/ScBTlz/KxWWEJQnYb5R8 cy8736YlYN2+A+ZDPZn+J2AuR335Pqb3+T3+nBrysf400/8e/ycX9uu4yPS/ Zz06BQ33TjH9T8AOleXqw9l+qywBIw7f1Vb3IFyZgA+35c2mTSJcnYBZBrku dmz/VJeAtcc7i74vZ+f7BPzo035Zx478a05A3cvRSkdvsvuuBFQf4cx0e03x 6UrAo5fa+nOPUvw4YvTSbtom1iG9URCjcFp7iFMU+x4kxpUKRbPUC3S+UxZj 9djIV3MHs+/DYvT04j3t/UjvtMXQ16h3a06l86OeGCNOlZ+cU07nS0MxYorM a98tZednMcwWKQ7+sobuZyzE2DFmck5zAu3frcRQnjPxdYwn7e/txTg7b+e+ CT603+GKoR7neD3vIdN/MexzP9YqexL/eWIcW9Z3u0SJcJgYCgL7e/L/EOaL YXXgbej2PdQvJD3PB9T6FxVQv0gTY9AtA40GMfWLTDEa3WXn47ZRv8jveZ/r LXPsZvs/MTimhwdxb7D7WjFip2cf08ilflEiRp78t30TRNQvysSoHKi0tHQk 9dtKMX5ldXN92Pf9ajGam/V5VrbUL+p68jNHtMlRjf2eQgzFeyFd+jWUv2Yx su7mdnyxIv1r78nHlr+3ewtIH7t64t/8lDvRgfSTI8FWAfek3TPij4IEJomq T7yF7D5UAsfULRbPvhNWliAismZO2HKm/z32arHTV7PzsrYEBYtGXfMtZPov gfHtksajF5j+S/CiYOiSVIYhwQrlfEU79ryFBO4evbq62PusJNhmobtrzkrC 9hJkp4eeO/gvO/9LsOPZsXHv0tn+T4JXZ7Yf+8r2gzwJ3CY3b6wqIH/DJPig /PnX5xaKB1+Cuvaqk9rsfkkigeXAhnfXIth9nARFukscChoo3pkSeNrqZMiN Zd+nJGj3uaHzdB07/0kwpG58rrcX9YsiCR5Uhe+p3kf75RIJZJnLQldHUr8o k+Bd+oxeQQrULyolyDpVe+BBELvPl6C/KPbgqnHUL+ok+LK+9I5VHfGxsSde ZW3Len0nvjZLsP9HVpT+VeJzuwSaHPc7UQ+I710S5O8VKJzuS5iTiG75LZff WRBWSIThZmPOwhyqJ8VE8Ja/zReMpHpTTkTmsC1Z8U+pX6gnonrep8s+w6le tRNhUn/rZEAe9Qu9ROgYiT6rmdB9q2Eibu2TWYTIkx4gEU/m/zSS7qZ+YdEz 7qlw3/AJ9QurRLyqafeMPk79wj4RzrqfN7/tZr+HSUTigJ2/a8soH+6JaBqQ yB3Ip37BS0RU6qpn0cqkd2GJ0FJ9dqfNl/SQn4hRaYqpBwNILyWJ6HwXx3sy jt3HJyJs2nm9EiPiU2YiFK+3jm4pJZyfiIHtKRXV7LxbmIiMt85LLrkx/U8E R+hoNYfpfUkiFu/4tu8M6xdliRiUmljjdJnpfyJWmxf30z3H9D8RjhfTPp3O IVyXCG5d7vA1/oQbE7E96E+AkR7h5kTsUP5wN+gxO//3xF/ZwtVgI9v/JWKK ods1aQz7/pGEih+bzNs6yX+FJGw4NWNb5XCqD8Uk2EeXLp/eQPFTTsIM3/E2 Cg6kN+pJuD/XpJ57gPqFdhIu/0wauqOe+oVeEkZ8c23OMqF+YZgEnaTn9qkT 2f15Evpm/Rv1Jpv6hUUS5Kf80Fa+xr4nJCHh+rAMySzqF/ZJ+HFi6Zhxs6lf cJMw03PJtvHOxD/3JFS+umtqrkX9gpcEfsn4vSMMiL9hSZDj96rac5j4zU/C fpugPSW2xH9JEvBw6NBkFcJpSfg6NSH48GfCmUlwry822d1A9ZXfg8PLFfR6 036tMAkLXuz+cucW1WdRElR9FWKzXlO/KEmCad1vW9EP6hdlPfO/SlV4PZ3O T5VJaNoXInavoX5RnYTs/mYlCy9Qv6jrsV+hZN9gSv2iMQneM8e8r7WhftGc hNZFZTYum6lftCfBZ//yH0rq7PyXhN6LhTEcdj7kJGOPR2Ke7SLSP4VkzEqb Z67EY/lPxvJrs200zEk/lZOxKCu+Y8Et4o96Mja5lpapRRK/tJMxZFb/pMbP 7HtZMoxP+26eu5jpfzIemXbpjeAz/U/Gv86hscHsvGCRDPP470n6bP9klYzZ loUPGll92Cfj5N3fi+6y8zc3GRc/lnn0SSXsngx+bsb5dQ6Eecn41VKx2EuR nf+TscV95/eaw2z/l4z+4hMVvhps/5eMpd4LTiu0su8RyYjSbjQqmUf1kZmM pxLB2Ah99n0mGY6lOt6zn1K/KEzGkpvFyieM2ffKZLjVJJ8uCCZ9KklG0J9Y OdFh9vulZBzUrVQVfad+UZkM3rDzkR3DSf+qk/HnT4Xq7AfUL+p6njd3ubow gfpFYzIEQx0dDtyjftGcjPfpMtGZDdQv2pMxpcRvW68+7P4nGdwDa47mGxBf OVJsHG457NwX4rOCFA2lJzsbejP9l4JvVxn90Jj4ryyFpnjtZaVEwupSRFWY 6ea00vPaUuRbCiepBVG96Ukxa3XLb3NLdv8rxZ/W8oPptlSvkKK8l04p7wP1 CwspVtUomu+RUb+wksLeedmZlpmkB/ZSaJXzrywup37BleLIpaCOPT8pXu5S VGhcaXh+i/oFTwqVFG3t4XKkR2FStEp7nTO9xn6/KkW1+nHHtnDKl0SKpVOH LVQYTHqXJsXj3z8/tGyhfGdK8eOXd2H/rcSHfCm+7BFe9h1M9VAoxY2cFMla 9n23SAps957x+Dy7/5fC5c675ZtVmf5LEb7c1FHVhem/FHNnr/gqzWD6L8Xa Bds2qJ1l+t+z3jPjDQaXMf2Xop/2vR2rLzH9l+KnpNA8j93ftktxvfByTWg0 u/+Voq9vZP44dh/MSUGMSlJVUQutTyEFN8w6crjBbP+XgoQVWeGX2PcK5RSc +bNgyQYTqg/1FJS8L37R6EJ6oZ2C7dNLn44yJD3RS8FWcUxcyGXSG8MUXOWf MXsjz+7/UrDKb8kbCyPSK4sU+LTtOHakhf2eLAXj+qkM071I/cI+Bclaop+O Y0gPuSk4JD3+4MMk0kv3FLhPG/tAr5r6BS8FKkU3B9idoH4RloJapZExTWXE P34KFJ31AiKLiZ+SFGhLvKcMOED8TUuBQfWZ2Dt9qT4yU9Dt/GKh3n7if34K 7OcdV4nmEi5MgaH1v+LGGVQPRSlQrTMe1zyWztslKVAu2qRXasruf1MQbr3d md9M/aIyBQMN5wyskKP6rU6BXOaJ8lVjqb7rUlDZuWfKLxvqF40pyHGMytN6 R/43p+BtRGAT7w7Fpz0Fdm1n0hNtqF90peCznWvnAEfqFxwZHnfEOrY6UfwV ZBCoZSV1TmS/h5RB9/K/3X73KX/KMuz6ZPDw0WLKr7oMCs6z8sz8Wf5lUHO4 ppZhQfzQk2HpHlFd6G3ij6EMSSaPe1VFsft/GX7X7dg8s4Pd/8gwofVbrZE5 038Z5ssNbKxi90f2MoyvC7zVdITpvwx+mzm7HK8y/ZdhhfjayJflTP9lGJPy Q3iJ7afCZMiaGWekzPZjfBmCVFprn7PvgRIZStQ0Pt8cy87/MrQpt4yOZfWb KcMHp5eCNlbf+T3PPzl0+MwwVv8yLNz0uuWqB/u9hgzrnl1q6fIg/SiRwfOm 4MBWJfb7TRnMrK3vX4gm/amUoV2rJL/+AulTtQzHrOLeX/9I/aJOhqYwlUNT g0nfGmUYd2nJZksR6V+zDItF7aYPDUgf22WQTZqx5L0u3c90yaCpaRzvtZ7u bzipaI646XX/LvFNIRVVzcLfo7ew+59U9Jt/IzTuFvFVORWKFzRfn3YhPqun wvkff7eq9Uz/UyFXPE3pdxjVg14qLp+s+RF9nLBhKoTdCjb23+l5pKLoqdfN G653Fv4fEJw7HQ== "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARaVK6oHBBsSCELITQkgQwVzLcDucSLnMlQyCJObMEAuYe bnNv6XJLl1u6nNLlli63dLmlSxSBhP5nmtWzn159evW98fmXn3nhdSGE2yMh vPb975ufeuLx194j5X8/4kM/ihf49XiJ34Ar/Cb8ZvwWvMJvxW/Db8c1fgd+ DD+On8DvxO/C78Zr/B78Xvw+/H78AfwkfgrHh844fJA5Dh9ijsOHmePwEeY4 fJQ5Dh9jjsPHmeOwYY7D08xx+ARzHD7JHIdPMcfh08xx+AxzHD7LHIfmoSPO uODwOfI444LDM+RxxgWHz5PHGRccvkAeZ1xw+CJ5nHHB4UvkccYFhy+TxxkX HLbkccYFh6+QxxkXHL5KHmdccPgaeZxxweHr5HHGBYdvkMcZFxyeJY8zLjg8 Rx5nXHBID13hiBPOuMcFTzh8k/044oQz7nHBEw7Psx9HnHDGPS54wuFb7McR J5xxjwuecPg2+3HECWfc44InHF5gP4444Yx7XPCEw4vsxxEnnHGPC55weIn9 OOKEM+5xwRMOO/bjiBPOuMcFTzh8h/044oQz7nHBEw7fZT+OOOGMe1zwhMP3 2I8jTjjjHhc84fB99uOIE864xwVPOPyA/TjihDPuccETDj9kP4444Yx7XPCE w8vsxxEnnHGPC55waB96gStc44gbnHCLM+5wjwdc8IgnPOPwI/rjCtc44gYn 3OKMO9zjARc84gnPOLxCf1zhGkfc4IRbnHGHezzggkc84RmHH9MfV7jGETc4 4RZn3OEeD7jgEU94xuEn9McVrnHEDU64xRl3uMcDLnjEE55xeJX+uMI1jrjB Cbc44w73eMAFj3jCMw4/pT+ucI0jbnDCLc64wz0ecMEjnvCMw8/ojytc44gb nHCLM+5wjwdc8IgnPOOwpz+ucI0jbnDCLc64wz0ecMEjnvCMw8/pjytc44gb nHCLM+5wjwdc8IgnPOPwC/rjCtc44gYn3OKMO9zjARc84gnPOPyS/rjCNY64 wQm3OOMO93jABY94wjMOv6I/rnCNI25wwi3OuMM9HnDBI57wjMOv6Y8rXOOI G5xwizPucI8HXPCIJzzj8Bv64wrXOOIGJ9zijDvc4wEXPOIJzzj8lv64wjWO uMEJtzjjDvd4wAWPeMIzDvmhH8ULvMQVXuEar3HEG9zgLU54h1u8xxkfcIeP uMcnPOAzLviCR3zFE77hGd9x+B33xwu8xBVe4RqvccQb3OAtTniHW7zHGR9w h4+4xyc84DMu+IJHfMUTvuEZ33H4PffHC7zEFV7hGq9xxBvc4C1OeIdbvMcZ H3CHj7jHJzzgMy74gkd8xRO+4RnfcfgD98cLvMQVXuEar3HEG9zgLU54h1u8 xxkfcIePuMcnPOAzLviCR3zFE77hGd9x+CP3xwu8xBVe4RqvccQb3OAtTniH W7zHGR9wh4+4xyc84DMu+IJHfMUTvuEZ33H4E/fHC7zEFV7hGq9xxBvc4C1O eIdbvMcZH3CHj7jHJzzgMy74gkd8xRO+4Rnfcfgz98cLvMQVXuEar3HEG9zg LU54h1u8xxkfcIePuMcnPOAzLviCR3zFE77hGd9x+Av3xwu8xBVe4RqvccQb 3OAtTniHW7zHGR9wh4+4xyc84DMu+IJHfMUTvuEZ33E4cH+8wEtc4RWu8RpH vMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEdh79yf7zAS1zhFa7x Gke8wQ3e4oR3uMV7nPEBd/iIe3zCAz7jgi94xFc84Rue8R2Hv3F/vMBLXOEV rvEaR7zBDd7ihHe4xXuc8QF3+Ih7fMIDPuOCL3jEVzzhG57xHYe/c3+8wEtc 4RWu8RpHvMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEdh39wf7zA S1zhFa7xGke8wQ3e4oR3uMV7nPEBd/iIe3zCAz7jgi94xFc84Rue8R2Hf3J/ vMBLXOEVrvEaR7zBDd7ihHe4xXuc8QF3+Ih7fMIDPuOCL3jEVzzhG57xHYd/ cX+8wEtc4RWu8RpHvMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEd h39zf7zAS1zhFa7xGsf/+z+UbDIT "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-2.4000000000000004`, 2.730228083833725}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9, 3.7093017102523403`*^9, 3.7093019101701117`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-Pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.7093003912386627`*^9, 3.709300396573881*^9}, { 3.709300539132701*^9, 3.709300548387629*^9}}], Cell[CellGroupData[{ Cell[BoxData["\[Beta]HPmatch"], "Input", CellChangeTimes->{{3.709300723307468*^9, 3.7093007254341793`*^9}, { 3.709301794662189*^9, 3.7093017952725697`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"1", "-", RowBox[{ SuperscriptBox["bH0", "2"], " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["bP0", "2"], " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eH", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bP0", " ", RowBox[{"(", RowBox[{"eH", "-", "eP"}], ")"}], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "eH", " ", "eP", " ", "\[Alpha]"}], "-", RowBox[{ SuperscriptBox["eP", "2"], " ", "\[Alpha]"}], "+", RowBox[{"2", " ", "bH0", " ", RowBox[{"(", RowBox[{"bP0", "-", "eH", "+", "eP"}], ")"}], " ", "\[Alpha]"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{ RowBox[{"-", "bH1"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "bH0"}], "+", "bH1", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"bP0", "-", "eH", "+", "eP"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{ RowBox[{"-", "bH2"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "bH0"}], "+", "bH2", "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{"bP0", "-", "eH", "+", "eP"}], ")"}]}]}], ")"}], " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "bH1", " ", "bH2", " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]P1", "\[Rule]", RowBox[{ RowBox[{"-", "bP1"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0"}], "+", RowBox[{"2", " ", "bP0"}], "+", "bP1", "-", RowBox[{"2", " ", "eH"}], "+", RowBox[{"2", " ", "eP"}]}], ")"}], " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]P2", "\[Rule]", RowBox[{ RowBox[{"-", "bP2"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "bH0"}], "+", RowBox[{"2", " ", "bP0"}], "+", "bP2", "-", RowBox[{"2", " ", "eH"}], "+", RowBox[{"2", " ", "eP"}]}], ")"}], " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]P12", "\[Rule]", RowBox[{ RowBox[{"-", "2"}], " ", "bP1", " ", "bP2", " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H1P1", "\[Rule]", RowBox[{"2", " ", "bH1", " ", "bP1", " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H1P2", "\[Rule]", RowBox[{"2", " ", "bH1", " ", "bP2", " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H2P1", "\[Rule]", RowBox[{"2", " ", "bH2", " ", "bP1", " ", "\[Alpha]"}]}], ",", RowBox[{"\[Beta]H2P2", "\[Rule]", RowBox[{"2", " ", "bH2", " ", "bP2", " ", "\[Alpha]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.709300725887599*^9, 3.709301795813772*^9, 3.7093019168140087`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PlotHPmatch", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P1"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P2"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P12"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P1"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P2"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P1"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P2"}], "}"}], "/.", "\[Beta]HPmatch"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}, {3.709300737008205*^9, 3.709300786356876*^9}, {3.709300875075034*^9, 3.70930088404445*^9}, { 3.709301799559614*^9, 3.709301812034732*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHPmatch", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}, {3.709300791805314*^9, 3.709300835046307*^9}, 3.709301817235408*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxdzTfMw1oZBuAjWDJ6YMjAYBBCEULI9FDvoYduLi10c+FCqNf00A89dI8Z PWb0mPGMGT1m9JjR4z8ixID8fMunR69evS977oVnn39RCOHx4hD++/938zPL H+LSK1zgl+A1fiku8cvxK/Ar8Qa/Cr8avwZX+LX4dfj1+A34jfhN+M14i9+C 34rfht+O34HfiZ/BcemEw7vIcXg3OQ7vIcfhveQ4vI8ch/eT4/ABchx25Dh8 kByHD5Hj8GFyHD5CjsNHyXH4GDkOHyfHoV464oQzDp+gjxPOODxLHyeccfgk fZxwxuFT9HHCGYdP08cJZxw+Qx8nnHH4LH2ccMZhTx8nnHH4HH2ccMbh8/Rx whmHL9DHCWccvkgfJ5xx+BJ9nHDG4cv0ccIZh6/QxwlnHJqlSxxxgxPuccYT Dl9lH0fc4IR7nPGEw3Ps44gbnHCPM55w+Br7OOIGJ9zjjCccvs4+jrjBCfc4 4wmH59nHETc44R5nPOHwDfZxxA1OuMcZTzh8k30ccYMT7nHGEw4H9nHEDU64 xxlPOHyLfRxxgxPuccYTDt9mH0fc4IR7nPGEw3fYxxE3OOEeZzzh8F32ccQN TrjHGU84fI99HHGDE+5xxhMO32cfR9zghHuc8YTDC+zjiBuccI8znnBoly5w iSsccY0b3OKEO9zjAWc84gnPOPxg6QKXuMIR17jBLU64wz0ecMYjnvCMww+X LnCJKxxxjRvc4oQ73OMBZzziCc84/GjpApe4whHXuMEtTrjDPR5wxiOe8IzD j5cucIkrHHGNG9zihDvc4wFnPOIJzzj8ZOkCl7jCEde4wS1OuMM9HnDGI57w jMNPly5wiSsccY0b3OKEO9zjAWc84gnPOPxs6QKXuMIR17jBLU64wz0ecMYj nvCMw3HpApe4whHXuMEtTrjDPR5wxiOe8IzDz5cucIkrHHGNG9zihDvc4wFn POIJzzj8YukCl7jCEde4wS1OuMM9HnDGI57wjMMvly5wiSsccY0b3OKEO9zj AWc84gnPOPxq6QKXuMIR17jBLU64wz0ecMYjnvCMw6+XLnCJKxxxjRvc4oQ7 3OMBZzziCc84/GbpApe4whHXuMEtTrjDPR5wxiOe8IzDb5cucIkrHHGNG9zi hDvc4wFnPOIJzzikpVe4wGtc4g2u8BZHvMM13uMGH3CLjzjhE+7wGff4ggd8 xRnf8IjveMIPPOMnHH639AoXeI1LvMEV3uKId7jGe9zgA27xESd8wh0+4x5f 8ICvOOMbHvEdT/iBZ/yEw++XXuECr3GJN7jCWxzxDtd4jxt8wC0+4oRPuMNn 3OMLHvAVZ3zDI77jCT/wjJ9w+MPSK1zgNS7xBld4iyPe4RrvcYMPuMVHnPAJ d/iMe3zBA77ijG94xHc84Qee8RMOf1x6hQu8xiXe4ApvccQ7XOM9bvABt/iI Ez7hDp9xjy94wFec8Q2P+I4n/MAzfsLhT0uvcIHXuMQbXOEtjniHa7zHDT7g Fh9xwifc4TPu8QUP+IozvuER3/GEH3jGTzj8eekVLvAal3iDK7zFEe9wjfe4 wQfc4iNO+IQ7fMY9vuABX3HGNzziO57wA8/4CYe/LL3CBV7jEm9whbc44h2u 8R43+IBbfMQJn3CHz7jHFzzgK874hkd8xxN+4Bk/4XBaeoULvMYl3uAKb3HE O1zjPW7wAbf4iBM+4Q6fcY8veMBXnPENj/iOJ/zAM37C4a9Lr3CB17jEG1zh LY54h2u8xw0+4BYfccIn3OEz7vEFD/iKM77hEd/xhB94xk84/G3pFS7wGpd4 gyu8xRHvcI33uMEH3OIjTviEO3zGPb7gAV9xxjc84jue8APP+AmHvy+9wgVe 4xJvcIW3OOIdrvEeN/iAW3zECZ9wh8+4xxc84CvO+IZHfMcTfuAZP+Hwj6VX uMBrXOINrvAWR7zDNd7jBh9wi4844RPu8Bn3+IIHfMUZ3/CI73jCDzzjJxz+ ufQKF3iNS7zBFd7iiHe4xnvc4ANu8REnfMIdPuMeX/CArzjjGx7xHU/4gWf8 hMO/ll7hAq9xiTe4wlsc8Q7XeI8bfMAtPuKET7jDZ9zjCx7wFWd8wyO+4wk/ 8IyfcPj30itc4DUu8QZXeIvj//0fx+Iojg== "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0uXW7rc0h1TukBoS5dbutzSBUUUgYT+Z5rVs59efXr1veqZF55+9mUhhNvL Q3jp+983P/7vf730/vPP//2ID/0IXuBX4CV+Ja7wq/Fr8GvxCr8Ovx4/imv8 BvxG/Cb8ZvwW/Fb8NrzGb8fvwO/E78Lvxo/hx3F86IzDE8xxeA9zHJ5kjsN7 mePwFHMc3scch/czx2HDHIcPMMfhg8xx+BBzHD7MHIePMMfho8xx+BhzHJqH jjjjgsPHyeOMCw5Pk8cZFxw+QR5nXHD4JHmcccHhU+RxxgWHT5PHGRccPkMe Z1xw2JLHGRccPkseZ1xw+Bx5nHHB4fPkccYFhy+QxxkXHL5IHmdccPgSeZxx weHL5HHGBYf00BWOOOGMe1zwhMNX2I8jTjjjHhc84fAM+3HECWfc44InHL7K fhxxwhn3uOAJh6+xH0eccMY9LnjC4Vn244gTzrjHBU84fJ39OOKEM+5xwRMO 32A/jjjhjHtc8ITDjv044oQz7nHBEw7PsR9HnHDGPS54wuGb7McRJ5xxjwue cPgW+3HECWfc44InHL7Nfhxxwhn3uOAJh+fZjyNOOOMeFzzh8B3244gTzrjH BU84vMB+HHHCGfe44AmH9qEXuMI1jrjBCbc44w73eMAFj3jCMw7fpT+ucI0j bnDCLc64wz0ecMEjnvCMw/fojytc44gbnHCLM+5wjwdc8IgnPOPwffrjCtc4 4gYn3OKMO9zjARc84gnPOPyA/rjCNY64wQm3OOMO93jABY94wjMOP6Q/rnCN I25wwi3OuMM9HnDBI57wjMOP6I8rXOOIG5xwizPucI8HXPCIJzzj8GP64wrX OOIGJ9zijDvc4wEXPOIJzzjs6Y8rXOOIG5xwizPucI8HXPCIJzzj8BP64wrX OOIGJ9zijDvc4wEXPOIJzzj8lP64wjWOuMEJtzjjDvd4wAWPeMIzDj+jP65w jSNucMItzrjDPR5wwSOe8IzDz+mPK1zjiBuccIsz7nCPB1zwiCc84/AL+uMK 1zjiBifc4ow73OMBFzziCc84/JL+uMI1jrjBCbc44w73eMAFj3jCMw6/oj+u cI0jbnDCLc64wz0ecMEjnvCMQ37oR/ACL3GFV7jGaxzxBjd4ixPe4RbvccYH 3OEj7vEJD/iMC77gEV/xhG94xnccfs398QIvcYVXuMZrHPEGN3iLE97hFu9x xgfc4SPu8QkP+IwLvuARX/GEb3jGdxx+w/3xAi9xhVe4xmsc8QY3eIsT3uEW 73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HH7L/fECL3GFV7jGaxzxBjd4ixPe 4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xnccfsf98QIvcYVXuMZrHPEGN3iL E97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxx+z/3xAi9xhVe4xmsc8QY3 eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7A/fECL3GFV7jGaxzx Bjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sj98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxwO3B8v8BJXeIVr vMYRb3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4U/cHy/wEld4 hWu8xhFvcIO3OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhz9wfL/AS V3iFa7zGEW9wg7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+Ev3B8v 8BJXeIVrvMYRb3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4a/c Hy/wEld4hWu8xhFvcIO3OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfh b9wfL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8 x+Hv3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iG Z3zH4R/cHy/wEld4hWu8xvH/fhGGjQG5 "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0tDtaXLLd0xpcstXW5pui1dRhFI6H+mWT376dWnV9+rnnnh6WdfFkK4vTyE l77/ffPj//rnS+8///7fj/jQj+AFfgVe4lfiCr8avwa/Fq/w6/Dr8aO4xm/A b8Rvwm/Gb8FvxW/Da/x2/A78Tvwu/G78GH4cx4fOODzBHIf3MMfhSeY4vJc5 Dk8xx+F9zHF4P3McNsxx+ABzHD7IHIcPMcfhw8xx+AhzHD7KHIePMceheeiI My44fJw8zrjg8DR5nHHB4RPkccYFh0+SxxkXHD5FHmdccPg0eZxxweEz5HHG BYcteZxxweGz5HHGBYfPkccZFxw+Tx5nXHD4AnmcccHhi+RxxgWHL5HHGRcc vkweZ1xwSA9d4YgTzrjHBU84fIX9OOKEM+5xwRMOz7AfR5xwxj0ueMLhq+zH ESeccY8LnnD4GvtxxAln3OOCJxyeZT+OOOGMe1zwhMPX2Y8jTjjjHhc84fAN 9uOIE864xwVPOOzYjyNOOOMeFzzh8Bz7ccQJZ9zjgiccvsl+HHHCGfe44AmH b7EfR5xwxj0ueMLh2+zHESeccY8LnnB4nv044oQz7nHBEw7fYT+OOOGMe1zw hMML7McRJ5xxjwuecGgfeoErXOOIG5xwizPucI8HXPCIJzzj8F364wrXOOIG J9zijDvc4wEXPOIJzzh8j/64wjWOuMEJtzjjDvd4wAWPeMIzDt+nP65wjSNu cMItzrjDPR5wwSOe8IzDD+iPK1zjiBuccIsz7nCPB1zwiCc84/BD+uMK1zji Bifc4ow73OMBFzziCc84/Ij+uMI1jrjBCbc44w73eMAFj3jCMw4/pj+ucI0j bnDCLc64wz0ecMEjnvCMw57+uMI1jrjBCbc44w73eMAFj3jCMw4/oT+ucI0j bnDCLc64wz0ecMEjnvCMw0/pjytc44gbnHCLM+5wjwdc8IgnPOPwM/rjCtc4 4gYn3OKMO9zjARc84gnPOPyc/rjCNY64wQm3OOMO93jABY94wjMOv6A/rnCN I25wwi3OuMM9HnDBI57wjMMv6Y8rXOOIG5xwizPucI8HXPCIJzzj8Cv64wrX OOIGJ9zijDvc4wEXPOIJzzjkh34EL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAd PuIen/CAz7jgCx7xFU/4hmd8x+HX3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8 wB0+4h6f8IDPuOALHvEVT/iGZ3zH4TfcHy/wEld4hWu8xhFvcIO3OOEdbvEe Z3zAHT7iHp/wgM+44Ase8RVP+IZnfMfht9wfL/ASV3iFa7zGEW9wg7c44R1u 8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+F33B8v8BJXeIVrvMYRb3CDtzjh HW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4ffcHy/wEld4hWu8xhFvcIO3 OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhD9wfL/ASV3iFa7zGEW9w g7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+GP3B8v8BJXeIVrvMYR b3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4cD98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xP3xAi9xhVe4 xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7M/fECL3GF V7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sL98QIv cYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+yv3x Ai9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7G /fECL3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc /s798QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jG dxz+wf3xAi9xhVe4xmsc/+8XAeikB/4= "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARaVK6oHBBsSCELITQkgQwVzLcDucSLnMlQyCJObMEAuYe bnNv6XJLl1u6nNLlli63dLmlSxSBhP5nmtWzn159evW98fmXn3nhdSGE2yMh vPb975ufeuLx194j5X8/4kM/ihf49XiJ34Ar/Cb8ZvwWvMJvxW/Db8c1fgd+ DD+On8DvxO/C78Zr/B78Xvw+/H78AfwkfgrHh844fJA5Dh9ijsOHmePwEeY4 fJQ5Dh9jjsPHmeOwYY7D08xx+ARzHD7JHIdPMcfh08xx+AxzHD7LHIfmoSPO uODwOfI444LDM+RxxgWHz5PHGRccvkAeZ1xw+CJ5nHHB4UvkccYFhy+TxxkX HLbkccYFh6+QxxkXHL5KHmdccPgaeZxxweHr5HHGBYdvkMcZFxyeJY8zLjg8 Rx5nXHBID13hiBPOuMcFTzh8k/044oQz7nHBEw7Psx9HnHDGPS54wuFb7McR J5xxjwuecPg2+3HECWfc44InHF5gP4444Yx7XPCEw4vsxxEnnHGPC55weIn9 OOKEM+5xwRMOO/bjiBPOuMcFTzh8h/044oQz7nHBEw7fZT+OOOGMe1zwhMP3 2I8jTjjjHhc84fB99uOIE864xwVPOPyA/TjihDPuccETDj9kP4444Yx7XPCE w8vsxxEnnHGPC55waB96gStc44gbnHCLM+5wjwdc8IgnPOPwI/rjCtc44gYn 3OKMO9zjARc84gnPOLxCf1zhGkfc4IRbnHGHezzggkc84RmHH9MfV7jGETc4 4RZn3OEeD7jgEU94xuEn9McVrnHEDU64xRl3uMcDLnjEE55xeJX+uMI1jrjB Cbc44w73eMAFj3jCMw4/pT+ucI0jbnDCLc64wz0ecMEjnvCMw8/ojytc44gb nHCLM+5wjwdc8IgnPOOwpz+ucI0jbnDCLc64wz0ecMEjnvCMw8/pjytc44gb nHCLM+5wjwdc8IgnPOPwC/rjCtc44gYn3OKMO9zjARc84gnPOPyS/rjCNY64 wQm3OOMO93jABY94wjMOv6I/rnCNI25wwi3OuMM9HnDBI57wjMOv6Y8rXOOI G5xwizPucI8HXPCIJzzj8Bv64wrXOOIGJ9zijDvc4wEXPOIJzzj8lv64wjWO uMEJtzjjDvd4wAWPeMIzDvmhH8ULvMQVXuEar3HEG9zgLU54h1u8xxkfcIeP uMcnPOAzLviCR3zFE77hGd9x+B33xwu8xBVe4RqvccQb3OAtTniHW7zHGR9w h4+4xyc84DMu+IJHfMUTvuEZ33H4PffHC7zEFV7hGq9xxBvc4C1OeIdbvMcZ H3CHj7jHJzzgMy74gkd8xRO+4RnfcfgD98cLvMQVXuEar3HEG9zgLU54h1u8 xxkfcIePuMcnPOAzLviCR3zFE77hGd9x+CP3xwu8xBVe4RqvccQb3OAtTniH W7zHGR9wh4+4xyc84DMu+IJHfMUTvuEZ33H4E/fHC7zEFV7hGq9xxBvc4C1O eIdbvMcZH3CHj7jHJzzgMy74gkd8xRO+4Rnfcfgz98cLvMQVXuEar3HEG9zg LU54h1u8xxkfcIePuMcnPOAzLviCR3zFE77hGd9x+Av3xwu8xBVe4RqvccQb 3OAtTniHW7zHGR9wh4+4xyc84DMu+IJHfMUTvuEZ33E4cH+8wEtc4RWu8RpH vMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEdh79yf7zAS1zhFa7x Gke8wQ3e4oR3uMV7nPEBd/iIe3zCAz7jgi94xFc84Rue8R2Hv3F/vMBLXOEV rvEaR7zBDd7ihHe4xXuc8QF3+Ih7fMIDPuOCL3jEVzzhG57xHYe/c3+8wEtc 4RWu8RpHvMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEdh39wf7zA S1zhFa7xGke8wQ3e4oR3uMV7nPEBd/iIe3zCAz7jgi94xFc84Rue8R2Hf3J/ vMBLXOEVrvEaR7zBDd7ihHe4xXuc8QF3+Ih7fMIDPuOCL3jEVzzhG57xHYd/ cX+8wEtc4RWu8RpHvMEN3uKEd7jFe5zxAXf4iHt8wgM+44IveMRXPOEbnvEd h39zf7zAS1zhFa7xGsf/+z+UbDIT "]]}, {RGBColor[0, 0, 1], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNKFzQeGCYkEIWQihDac5M5wx9xIuEwgMgYA5szkAcw+3 ubc0VFu63NLllC63dLmlyy1doohI6H+mWT376dWnV99rn372iWdeEUK4vTKE l77/e/Nj//n3S+9V5eUf8aEfwQv8arzEr8EVfh1+PX4DXuE34jfhN+MaP4rf gt+K34bfjt+B34nX+F343fg9+L34ffj9+DEcHzrj8AHmOHyQOQ4fYo7Dh5nj 8BHmOHyUOQ6PM8dhwxyHjzHH4ePMcfgEcxw+yRyHTzHH4dPMcfgMcxyah444 44LDZ8njjAsOT5DHGRccPkceZ1xw+Dx5nHHB4QvkccYFhy+SxxkXHL5EHmdc cNiSxxkXHL5MHmdccHiSPM644PAV8jjjgsNXyeOMCw5PkccZFxy+Rh5nXHD4 OnmcccEhPXSFI0444x4XPOHwDfbjiBPOuMcFTzg8zX4cccIZ97jgCYdvsh9H nHDGPS54wuFb7McRJ5xxjwuecHiG/TjihDPuccETDt9mP4444Yx7XPCEw3fY jyNOOOMeFzzhsGM/jjjhjHtc8ITDd9mPI0444x4XPOHwPfbjiBPOuMcFTzh8 n/044oQz7nHBEw4/YD+OOOGMe1zwhMMP2Y8jTjjjHhc84fAj9uOIE864xwVP ODzLfhxxwhn3uOAJh/ahF7jCNY64wQm3OOMO93jABY94wjMOz9EfV7jGETc4 4RZn3OEeD7jgEU94xuF5+uMK1zjiBifc4ow73OMBFzziCc84vEB/XOEaR9zg hFuccYd7POCCRzzhGYcX6Y8rXOOIG5xwizPucI8HXPCIJzzj8GP64wrXOOIG J9zijDvc4wEXPOIJzzj8hP64wjWOuMEJtzjjDvd4wAWPeMIzDj+lP65wjSNu cMItzrjDPR5wwSOe8IzDnv64wjWOuMEJtzjjDvd4wAWPeMIzDj+jP65wjSNu cMItzrjDPR5wwSOe8IzDz+mPK1zjiBuccIsz7nCPB1zwiCc84/AL+uMK1zji Bifc4ow73OMBFzziCc84/JL+uMI1jrjBCbc44w73eMAFj3jCMw6/oj+ucI0j bnDCLc64wz0ecMEjnvCMw6/pjytc44gbnHCLM+5wjwdc8IgnPOPwG/rjCtc4 4gYn3OKMO9zjARc84gnPOOSHfgQv8BJXeIVrvMYRb3CDtzjhHW7xHmd8wB0+ 4h6f8IDPuOALHvEVT/iGZ3zH4bfcHy/wEld4hWu8xhFvcIO3OOEdbvEeZ3zA HT7iHp/wgM+44Ase8RVP+IZnfMfhd9wfL/ASV3iFa7zGEW9wg7c44R1u8R5n fMAdPuIen/CAz7jgCx7xFU/4hmd8x+H33B8v8BJXeIVrvMYRb3CDtzjhHW7x Hmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4Q/cHy/wEld4hWu8xhFvcIO3OOEd bvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhj9wfL/ASV3iFa7zGEW9wg7c4 4R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+FP3B8v8BJXeIVrvMYRb3CD tzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4c/cHy/wEld4hWu8xhFv cIO3OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhwP3xAi9xhVe4xmsc 8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7C/fECL3GFV7jG axzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sr98QIvcYVX uMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xv3xAi9x hVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7O/fEC L3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sH9 8QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+ yf3xAi9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3 HP7F/fECL3GFV7jGaxz/7/8CZyOgqg== "]]}, {RGBColor[0, 0, 1], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0tDtaXLLd0xpem2dLmlyy1dRhFI6H+mWT376dWnV9+rnnnh6WdfFkK4vTyE l77/ffPj//rnS+8///7fj/jQj+AFfgVe4lfiCr8avwa/Fq/w6/Dr8aO4xm/A b8Rvwm/Gb8FvxW/Da/x2/A78Tvwu/G78GH4cx4fOODzBHIf3MMfhSeY4vJc5 Dk8xx+F9zHF4P3McNsxx+ABzHD7IHIcPMcfhw8xx+AhzHD7KHIePMceheeiI My44fJw8zrjg8DR5nHHB4RPkccYFh0+SxxkXHD5FHmdccPg0eZxxweEz5HHG BYcteZxxweGz5HHGBYfPkccZFxw+Tx5nXHD4AnmcccHhi+RxxgWHL5HHGRcc vkweZ1xwSA9d4YgTzrjHBU84fIX9OOKEM+5xwRMOz7AfR5xwxj0ueMLhq+zH ESeccY8LnnD4GvtxxAln3OOCJxyeZT+OOOGMe1zwhMPX2Y8jTjjjHhc84fAN 9uOIE864xwVPOOzYjyNOOOMeFzzh8Bz7ccQJZ9zjgiccvsl+HHHCGfe44AmH b7EfR5xwxj0ueMLh2+zHESeccY8LnnB4nv044oQz7nHBEw7fYT+OOOGMe1zw hMML7McRJ5xxjwuecGgfeoErXOOIG5xwizPucI8HXPCIJzzj8F364wrXOOIG J9zijDvc4wEXPOIJzzh8j/64wjWOuMEJtzjjDvd4wAWPeMIzDt+nP65wjSNu cMItzrjDPR5wwSOe8IzDD+iPK1zjiBuccIsz7nCPB1zwiCc84/BD+uMK1zji Bifc4ow73OMBFzziCc84/Ij+uMI1jrjBCbc44w73eMAFj3jCMw4/pj+ucI0j bnDCLc64wz0ecMEjnvCMw57+uMI1jrjBCbc44w73eMAFj3jCMw4/oT+ucI0j bnDCLc64wz0ecMEjnvCMw0/pjytc44gbnHCLM+5wjwdc8IgnPOPwM/rjCtc4 4gYn3OKMO9zjARc84gnPOPyc/rjCNY64wQm3OOMO93jABY94wjMOv6A/rnCN I25wwi3OuMM9HnDBI57wjMMv6Y8rXOOIG5xwizPucI8HXPCIJzzj8Cv64wrX OOIGJ9zijDvc4wEXPOIJzzjkh34EL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAd PuIen/CAz7jgCx7xFU/4hmd8x+HX3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8 wB0+4h6f8IDPuOALHvEVT/iGZ3zH4TfcHy/wEld4hWu8xhFvcIO3OOEdbvEe Z3zAHT7iHp/wgM+44Ase8RVP+IZnfMfht9wfL/ASV3iFa7zGEW9wg7c44R1u 8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+F33B8v8BJXeIVrvMYRb3CDtzjh HW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4ffcHy/wEld4hWu8xhFvcIO3 OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhD9wfL/ASV3iFa7zGEW9w g7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+GP3B8v8BJXeIVrvMYR b3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4cD98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xP3xAi9xhVe4 xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7M/fECL3GF V7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sL98QIv cYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+yv3x Ai9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7G /fECL3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc /s798QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jG dxz+wf3xAi9xhVe4xmsc/+8XAbHkiu8= "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCldULigWBBCFkLRcpsrmRAC5l7CZe4hEHCAkOU293Cb e0tDtaXLLd0xpcstXW7pckvTRRFI6H+mWT376dWnV9+rnnnh6WdfFkK4vTyE l77/ffPj//rnS+8///7fj/jQj+AFfgVe4lfiCr8avwa/Fq/w6/Dr8aO4xm/A b8Rvwm/Gb8FvxW/Da/x2/A78Tvwu/G78GH4cx4fOODzBHIf3MMfhSeY4vJc5 Dk8xx+F9zHF4P3McNsxx+ABzHD7IHIcPMcfhw8xx+AhzHD7KHIePMceheeiI My44fJw8zrjg8DR5nHHB4RPkccYFh0+SxxkXHD5FHmdccPg0eZxxweEz5HHG BYcteZxxweGz5HHGBYfPkccZFxw+Tx5nXHD4AnmcccHhi+RxxgWHL5HHGRcc vkweZ1xwSA9d4YgTzrjHBU84fIX9OOKEM+5xwRMOz7AfR5xwxj0ueMLhq+zH ESeccY8LnnD4GvtxxAln3OOCJxyeZT+OOOGMe1zwhMPX2Y8jTjjjHhc84fAN 9uOIE864xwVPOOzYjyNOOOMeFzzh8Bz7ccQJZ9zjgiccvsl+HHHCGfe44AmH b7EfR5xwxj0ueMLh2+zHESeccY8LnnB4nv044oQz7nHBEw7fYT+OOOGMe1zw hMML7McRJ5xxjwuecGgfeoErXOOIG5xwizPucI8HXPCIJzzj8F364wrXOOIG J9zijDvc4wEXPOIJzzh8j/64wjWOuMEJtzjjDvd4wAWPeMIzDt+nP65wjSNu cMItzrjDPR5wwSOe8IzDD+iPK1zjiBuccIsz7nCPB1zwiCc84/BD+uMK1zji Bifc4ow73OMBFzziCc84/Ij+uMI1jrjBCbc44w73eMAFj3jCMw4/pj+ucI0j bnDCLc64wz0ecMEjnvCMw57+uMI1jrjBCbc44w73eMAFj3jCMw4/oT+ucI0j bnDCLc64wz0ecMEjnvCMw0/pjytc44gbnHCLM+5wjwdc8IgnPOPwM/rjCtc4 4gYn3OKMO9zjARc84gnPOPyc/rjCNY64wQm3OOMO93jABY94wjMOv6A/rnCN I25wwi3OuMM9HnDBI57wjMMv6Y8rXOOIG5xwizPucI8HXPCIJzzj8Cv64wrX OOIGJ9zijDvc4wEXPOIJzzjkh34EL/ASV3iFa7zGEW9wg7c44R1u8R5nfMAd PuIen/CAz7jgCx7xFU/4hmd8x+HX3B8v8BJXeIVrvMYRb3CDtzjhHW7xHmd8 wB0+4h6f8IDPuOALHvEVT/iGZ3zH4TfcHy/wEld4hWu8xhFvcIO3OOEdbvEe Z3zAHT7iHp/wgM+44Ase8RVP+IZnfMfht9wfL/ASV3iFa7zGEW9wg7c44R1u 8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+F33B8v8BJXeIVrvMYRb3CDtzjh HW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4ffcHy/wEld4hWu8xhFvcIO3 OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhD9wfL/ASV3iFa7zGEW9w g7c44R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+GP3B8v8BJXeIVrvMYR b3CDtzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4cD98QIvcYVXuMZr HPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xP3xAi9xhVe4 xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7M/fECL3GF V7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sL98QIv cYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+yv3x Ai9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7G /fECL3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc /s798QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jG dxz+wf3xAi9xhVe4xmsc/+8XAQQTRn4= "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNCktQeEixYIQshBCCwlgrmQCBMy9hMscIUMgxBxJltvc w23uLV1u6XJLl1O63NLlli63dIkikND/TLN69tOrT6++Nzz/yjMvvCaEcHtt CK9+//vmJx9/7NX3uvi/H/GhH8EL/Hq8xI/iCr8Rvwm/Ga/wW/Bb8dtwjd+O 34Efw4/jd+J34XfjNX4Pfi9+H34//gB+Aj+J40NnHJ5ijsMHmePwIeY4fJg5 Dk8zx+EjzHH4KHMcNsxx+BhzHD7OHIdPMMfhk8xx+BRzHD7NHIfPMMeheeiI My44fJY8zrjg8Ax5nHHB4XPkccYFh8+TxxkXHL5AHmdccPgieZxxweFL5HHG BYcteZxxweHL5HHGBYevkMcZFxy+Sh5nXHD4GnmcccHhWfI444LD18njjAsO z5HHGRcc0kNXOOKEM+5xwRMO32A/jjjhjHtc8ITD8+zHESeccY8LnnD4Jvtx xAln3OOCJxy+xX4cccIZ97jgCYcX2I8jTjjjHhc84fBt9uOIE864xwVPOLzI fhxxwhn3uOAJhx37ccQJZ9zjgiccvsN+HHHCGfe44AmH77IfR5xwxj0ueMLh e+zHESeccY8LnnD4PvtxxAln3OOCJxxeYj+OOOGMe1zwhMPL7McRJ5xxjwue cHiF/TjihDPuccETDu1DL3CFaxxxgxNuccYd7vGACx7xhGccfkB/XOEaR9zg hFuccYd7POCCRzzhGYcf0h9XuMYRNzjhFmfc4R4PuOART3jG4Uf0xxWuccQN TrjFGXe4xwMueMQTnnH4Mf1xhWsccYMTbnHGHe7xgAse8YRnHH5Cf1zhGkfc 4IRbnHGHezzggkc84RmHn9IfV7jGETc44RZn3OEeD7jgEU94xuFn9McVrnHE DU64xRl3uMcDLnjEE55x2NMfV7jGETc44RZn3OEeD7jgEU94xuHn9McVrnHE DU64xRl3uMcDLnjEE55x+AX9cYVrHHGDE25xxh3u8YALHvGEZxx+SX9c4RpH 3OCEW5xxh3s84IJHPOEZh1/RH1e4xhE3OOEWZ9zhHg+44BFPeMbh1/THFa5x xA1OuMUZd7jHAy54xBOecfgN/XGFaxxxgxNuccYd7vGACx7xhGccfkt/XOEa R9zghFuccYd7POCCRzzhGYf80I/gBV7iCq9wjdc44g1u8BYnvMMt3uOMD7jD R9zjEx7wGRd8wSO+4gnf8IzvOPyO++MFXuIKr3CN1zjiDW7wFie8wy3e44wP uMNH3OMTHvAZF3zBI77iCd/wjO84/J774wVe4gqvcI3XOOINbvAWJ7zDLd7j jA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8gfvjBV7iCq9wjdc44g1u8BYnvMMt 3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyR++MFXuIKr3CN1zjiDW7wFie8 wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/In74wVe4gqvcI3XOOINbvAW J7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8mfvjBV7iCq9wjdc44g1u 8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyF++MFXuIKr3CN1zji DW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84HLg/XuAlrvAK13iN I97gBm9xwjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4jsNfuT9e4CWu8ArX eI0j3uAGb3HCO9ziPc74gDt8xD0+4QGfccEXPOIrnvANz/iOw9+4P17gJa7w Ctd4jSPe4AZvccI73OI9zviAO3zEPT7hAZ9xwRc84iue8A3P+I7D37k/XuAl rvAK13iNI97gBm9xwjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4jsM/uD9e 4CWu8ArXeI0j3uAGb3HCO9ziPc74gDt8xD0+4QGfccEXPOIrnvANz/iOwz+5 P17gJa7wCtd4jSPe4AZvccI73OI9zviAO3zEPT7hAZ9xwRc84iue8A3P+I7D v7g/XuAlrvAK13iNI97gBm9xwjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4 jsO/uT9e4CWu8ArXeI3j//0fyNt8dQ== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnsO0cZBuARNCldULigWCKELITQQhIw538Il7mXcJkrTAIBhyvLbe7h NveWLrd0uaXLKV1u6XJLlyvRuEQRSNHvmWb17KdXn159r3v+pWdeeFUI4fbq EF7+/u/Nj5584uX3n0f//xEf+jG8wK/BS/xaXOHH8evxG/AKvxG/Cb8Z1/gt +K34Cfwkfgq/Db8dr/E78Dvxu/C78Xvwe/EjHB864/A+5jg8zRyH9zPH4QPM cfggcxw+xByHDzPHYcMch48wx+GjzHH4GHMcPs4ch08wx+GTzHH4FHMcmoeO OOOCw6fJ44wLDs+QxxkXHD5DHmdccPgseZxxweFz5HHGBYfPk8cZFxy+QB5n XHDYkscZFxy+SB5nXHD4EnmcccHhy+RxxgWHr5DHGRccvkoeZ1xweJY8zrjg 8DXyOOOCQ3roCkeccMY9LnjC4Tn244gTzrjHBU84PM9+HHHCGfe44AmHr7Mf R5xwxj0ueMLhG+zHESeccY8LnnB4gf044oQz7nHBEw7fZD+OOOGMe1zwhMO3 2I8jTjjjHhc84bBjP4444Yx7XPCEw4vsxxEnnHGPC55w+Db7ccQJZ9zjgicc vsN+HHHCGfe44AmH77IfR5xwxj0ueMLhe+zHESeccY8LnnD4PvtxxAln3OOC JxxeYj+OOOGMe1zwhEP70Atc4RpH3OCEW5xxh3s84IJHPOEZhx/QH1e4xhE3 OOEWZ9zhHg+44BFPeMbhh/THFa5xxA1OuMUZd7jHAy54xBOecfgR/XGFaxxx gxNuccYd7vGACx7xhGccfkx/XOEaR9zghFuccYd7POCCRzzhGYef0B9XuMYR NzjhFmfc4R4PuOART3jG4af0xxWuccQNTrjFGXe4xwMueMQTnnH4Gf1xhWsc cYMTbnHGHe7xgAse8YRnHPb0xxWuccQNTrjFGXe4xwMueMQTnnH4Of1xhWsc cYMTbnHGHe7xgAse8YRnHH5Bf1zhGkfc4IRbnHGHezzggkc84RmHX9IfV7jG ETc44RZn3OEeD7jgEU94xuFX9McVrnHEDU64xRl3uMcDLnjEE55x+DX9cYVr HHGDE25xxh3u8YALHvGEZxx+Q39c4RpH3OCEW5xxh3s84IJHPOEZh9/SH1e4 xhE3OOEWZ9zhHg+44BFPeMYhP/RjeIGXuMIrXOM1jniDG7zFCe9wi/c44wPu 8BH3+IQHfMYFX/CIr3jCNzzjOw6/4/54gZe4witc4zWOeIMbvMUJ73CL9zjj A+7wEff4hAd8xgVf8IiveMI3POM7Dr/n/niBl7jCK1zjNY54gxu8xQnvcIv3 OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+D+eIGXuMIrXOM1jniDG7zFCe9w i/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw5/5P54gZe4witc4zWOeIMbvMUJ 73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7Dn/i/niBl7jCK1zjNY54gxu8 xQnvcIv3OOMD7vAR9/iEB3zGBV/wiK94wjc84zsOf+b+eIGXuMIrXOM1jniD G7zFCe9wi/c44wPu8BH3+IQHfMYFX/CIr3jCNzzjOw5/4f54gZe4witc4zWO eIMbvMUJ73CL9zjjA+7wEff4hAd8xgVf8IiveMI3POM7Dgfujxd4iSu8wjVe 44g3uMFbnPAOt3iPMz7gDh9xj094wGdc8AWP+IonfMMzvuPwV+6PF3iJK7zC NV7jiDe4wVuc8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+4/A37o8XeIkr vMI1XuOIN7jBW5zwDrd4jzM+4A4fcY9PeMBnXPAFj/iKJ3zDM77j8Hfujxd4 iSu8wjVe44g3uMFbnPAOt3iPMz7gDh9xj094wGdc8AWP+IonfMMzvuPwD+6P F3iJK7zCNV7jiDe4wVuc8A63eI8zPuAOH3GPT3jAZ1zwBY/4iid8wzO+4/BP 7o8XeIkrvMI1XuOIN7jBW5zwDrd4jzM+4A4fcY9PeMBnXPAFj/iKJ3zDM77j 8C/ujxd4iSu8wjVe44g3uMFbnPAOt3iPMz7gDh9xj094wGdc8AWP+IonfMMz vuPwb+6PF3iJK7zCNV7j+Ir/C0pr47o= "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TnMA0cZBuARNKFzQeGCYkEIWQihDac5M5wx9xIuEwgMgYA5szkAcw+3 ubc0VFu63NLllC63dLmlyy1doohI6H+mWT376dWnV99rn372iWdeEUK4vTKE l77/e/Nj//n3S+9V8eUf8aEfwQv8arzEr8EVfh1+PX4DXuE34jfhN+MaP4rf gt+K34bfjt+B34nX+F343fg9+L34ffj9+DEcHzrj8AHmOHyQOQ4fYo7Dh5nj 8BHmOHyUOQ6PM8dhwxyHjzHH4ePMcfgEcxw+yRyHTzHH4dPMcfgMcxyah444 44LDZ8njjAsOT5DHGRccPkceZ1xw+Dx5nHHB4QvkccYFhy+SxxkXHL5EHmdc cNiSxxkXHL5MHmdccHiSPM644PAV8jjjgsNXyeOMCw5PkccZFxy+Rh5nXHD4 OnmcccEhPXSFI0444x4XPOHwDfbjiBPOuMcFTzg8zX4cccIZ97jgCYdvsh9H nHDGPS54wuFb7McRJ5xxjwuecHiG/TjihDPuccETDt9mP4444Yx7XPCEw3fY jyNOOOMeFzzhsGM/jjjhjHtc8ITDd9mPI0444x4XPOHwPfbjiBPOuMcFTzh8 n/044oQz7nHBEw4/YD+OOOGMe1zwhMMP2Y8jTjjjHhc84fAj9uOIE864xwVP ODzLfhxxwhn3uOAJh/ahF7jCNY64wQm3OOMO93jABY94wjMOz9EfV7jGETc4 4RZn3OEeD7jgEU94xuF5+uMK1zjiBifc4ow73OMBFzziCc84vEB/XOEaR9zg hFuccYd7POCCRzzhGYcX6Y8rXOOIG5xwizPucI8HXPCIJzzj8GP64wrXOOIG J9zijDvc4wEXPOIJzzj8hP64wjWOuMEJtzjjDvd4wAWPeMIzDj+lP65wjSNu cMItzrjDPR5wwSOe8IzDnv64wjWOuMEJtzjjDvd4wAWPeMIzDj+jP65wjSNu cMItzrjDPR5wwSOe8IzDz+mPK1zjiBuccIsz7nCPB1zwiCc84/AL+uMK1zji Bifc4ow73OMBFzziCc84/JL+uMI1jrjBCbc44w73eMAFj3jCMw6/oj+ucI0j bnDCLc64wz0ecMEjnvCMw6/pjytc44gbnHCLM+5wjwdc8IgnPOPwG/rjCtc4 4gYn3OKMO9zjARc84gnPOOSHfgQv8BJXeIVrvMYRb3CDtzjhHW7xHmd8wB0+ 4h6f8IDPuOALHvEVT/iGZ3zH4bfcHy/wEld4hWu8xhFvcIO3OOEdbvEeZ3zA HT7iHp/wgM+44Ase8RVP+IZnfMfhd9wfL/ASV3iFa7zGEW9wg7c44R1u8R5n fMAdPuIen/CAz7jgCx7xFU/4hmd8x+H33B8v8BJXeIVrvMYRb3CDtzjhHW7x Hmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4Q/cHy/wEld4hWu8xhFvcIO3OOEd bvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhj9wfL/ASV3iFa7zGEW9wg7c4 4R1u8R5nfMAdPuIen/CAz7jgCx7xFU/4hmd8x+FP3B8v8BJXeIVrvMYRb3CD tzjhHW7xHmd8wB0+4h6f8IDPuOALHvEVT/iGZ3zH4c/cHy/wEld4hWu8xhFv cIO3OOEdbvEeZ3zAHT7iHp/wgM+44Ase8RVP+IZnfMfhwP3xAi9xhVe4xmsc 8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7C/fECL3GFV7jG axzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sr98QIvcYVX uMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+xv3xAi9x hVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3HP7O/fEC L3GFV7jGaxzxBjd4ixPe4RbvccYH3OEj7vEJD/iMC77gEV/xhG94xncc/sH9 8QIvcYVXuMZrHPEGN3iLE97hFu9xxgfc4SPu8QkP+IwLvuARX/GEb3jGdxz+ yf3xAi9xhVe4xmsc8QY3eIsT3uEW73HGB9zhI+7xCQ/4jAu+4BFf8YRveMZ3 HP7F/fECL3GFV7jGaxz/7/8CgDKsjA== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxd0TfsO0kZBuARNFe6oHBxxYIQstAJLdnE/5BNXo5k0jEXMfGWbPKQTd7S UG3pckuXU7rc0uWWptvSJTqBhH7PNKtnP7369Op75TMvPvn8y0IIt5eH8NL3 v29+9K9/vvT+/eh/P+JDP4YX+BV4iR/HFX4VfjV+DV7h1+In8OtwjV+P34Df iN+E34zfgt+K1/ht+O34Hfid+F343fgRjg+dcXgPcxzeyxyH9zHH4f3McfgA cxw+yByHDzHHYcMchw8zx+EjzHH4KHMcPsYch48zx+ETzHH4JHMcmoeOOOOC w6fI44wLDk+SxxkXHD5NHmdccPgMeZxxweGz5HHGBYfPkccZFxw+Tx5nXHDY kscZFxy+QB5nXHD4InmcccHhS+RxxgWHL5PHGRccvkIeZ1xweIo8zrjg8FXy OOOCQ3roCkeccMY9LnjC4Wn244gTzrjHBU84PMN+HHHCGfe44AmHZ9mPI044 4x4XPOHwHPtxxAln3OOCJxyeZz+OOOGMe1zwhMML7McRJ5xxjwuecPga+3HE CWfc44InHHbsxxEnnHGPC55w+Dr7ccQJZ9zjgiccvsF+HHHCGfe44AmHb7If R5xwxj0ueMLhW+zHESeccY8LnnD4NvtxxAln3OOCJxy+w34cccIZ97jgCYcX 2Y8jTjjjHhc84dA+9AJXuMYRNzjhFmfc4R4PuOART3jG4bv0xxWuccQNTrjF GXe4xwMueMQTnnH4Hv1xhWsccYMTbnHGHe7xgAse8YRnHL5Pf1zhGkfc4IRb nHGHezzggkc84RmHH9AfV7jGETc44RZn3OEeD7jgEU94xuGH9McVrnHEDU64 xRl3uMcDLnjEE55x+BH9cYVrHHGDE25xxh3u8YALHvGEZxx+TH9c4RpH3OCE W5xxh3s84IJHPOEZhz39cYVrHHGDE25xxh3u8YALHvGEZxx+Qn9c4RpH3OCE W5xxh3s84IJHPOEZh5/SH1e4xhE3OOEWZ9zhHg+44BFPeMbhZ/THFa5xxA1O uMUZd7jHAy54xBOecfg5/XGFaxxxgxNuccYd7vGACx7xhGccfkF/XOEaR9zg hFuccYd7POCCRzzhGYdf0h9XuMYRNzjhFmfc4R4PuOART3jG4Vf0xxWuccQN TrjFGXe4xwMueMQTnnHID/0YXuAlrvAK13iNI97gBm9xwjvc4j3O+IA7fMQ9 PuEBn3HBFzziK57wDc/4jsOvuT9e4CWu8ArXeI0j3uAGb3HCO9ziPc74gDt8 xD0+4QGfccEXPOIrnvANz/iOw2+4P17gJa7wCtd4jSPe4AZvccI73OI9zviA O3zEPT7hAZ9xwRc84iue8A3P+I7Db7k/XuAlrvAK13iNI97gBm9xwjvc4j3O +IA7fMQ9PuEBn3HBFzziK57wDc/4jsPvuD9e4CWu8ArXeI0j3uAGb3HCO9zi Pc74gDt8xD0+4QGfccEXPOIrnvANz/iOw++5P17gJa7wCtd4jSPe4AZvccI7 3OI9zviAO3zEPT7hAZ9xwRc84iue8A3P+I7DH7g/XuAlrvAK13iNI97gBm9x wjvc4j3O+IA7fMQ9PuEBn3HBFzziK57wDc/4jsMfuT9e4CWu8ArXeI0j3uAG b3HCO9ziPc74gDt8xD0+4QGfccEXPOIrnvANz/iOw4H74wVe4gqvcI3XOOIN bvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8ifvjBV7iCq9wjdc4 4g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyZ++MFXuIKr3CN 1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/IX74wVe4gqv cI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8lfvjBV7i Cq9wjdc44g1u8BYnvMMt3uOMD7jDR9zjEx7wGRd8wSO+4gnf8IzvOPyN++MF XuIKr3CN1zjiDW7wFie8wy3e44wPuMNH3OMTHvAZF3zBI77iCd/wjO84/J37 4wVe4gqvcI3XOOINbvAWJ7zDLd7jjA+4w0fc4xMe8BkXfMEjvuIJ3/CM7zj8 g/vjBV7iCq9wjdc4/t//AQHCE+A= "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-3.2, 4.800000000000001}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9, 3.709300836384947*^9, 3.709300901288766*^9, 3.709301818367557*^9, 3.709301919726441*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Variance Explained over time", "Section", CellChangeTimes->{{3.7089647648530283`*^9, 3.708964768917425*^9}}], Cell["We can use the sim and SimR2 functions from above.", "Text", CellChangeTimes->{{3.7093010131066713`*^9, 3.709301028065892*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"SimR2", "[", RowBox[{ RowBox[{"ListHMatch", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", RowBox[{"ListHMatch", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", "1000", ",", "PmatchX", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}], ",", FractionBox[ RowBox[{"tmax", "/.", "pars3"}], "100"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.709301029721364*^9, 3.7093011031272717`*^9}, { 3.7093011607654533`*^9, 3.709301167800538*^9}, {3.709301201686686*^9, 3.709301261479371*^9}, {3.709301958892535*^9, 3.709301960043036*^9}, { 3.709302881121662*^9, 3.70930289437667*^9}}], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709302032468196*^9, 3.7093020387792997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.7093012154627953`*^9, 3.709301220493404*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJx91Xs8lPkeB/BZ2i672diQROWSVbFUKpL6qrQoirBuK5S7I3IJMcY1l6Fs q5Rx6V5q3KeMXCZyCWXCuG3tkBPZbU44ybU6ndfz8z3n/HPm9ZqX1+f1+D3f 5/PM8/zeSq4nLN3EaDRa65fvv/9Sn9HdnuJSDvVz7N1UVoMSr02Kc5YXSd4K D9cLkj8vziJ5NySK0XNyDlynMmMfSCiv2+hpfpdkE1jX85fD9cgbJJvDie6k kUe/5FGZZwH76W0r+qJvUxmsQCHqIZtdSv6fZwOXmVPN7J5ictwOZNWE4Ztu F5DjDrD1+GbunXsXyHEn0M0zXyIfzKKyszOs/q4vuWTwCpXzXEDO+qPvJf1S Kve7wrCM5qDIP4fKa4+Ddvq2Wk35RLLeDRw3x7tLyKWS9e5gsXxh0bP0m2S9 ByzVNm+XNysi673AIZ+hYD9O7oezNxjUTg99Vv+VrPeBiE75rP5NGWS9L0wZ aY8OM8j9XOsHdo191uc1Ksj6E1BUs8ua6XOPyof94WFVwmzqV1FUHvWH8Jjp kpVPk6h8LgCCXddX7V16lcraJ+GwVKySBoOcj38S2Hf98n5YWE5l/0CYSjhh 4254nsqSQcA0WtbR9VswlYuCwGuSUaOUl03mB0O1DW1XZ0EdmR8Mwbn6E7rS NWR+CExv9GEcE2eS+aeg48+bVhZDsWT+KeB0DJXsYZO+/qFwyjtzg+tGHpkf Bs1HbyhePNhI5oeBwRYf/gQ3hMwPB0a9TsvbZ+fI/HCof/p2U9Kys2T+aTDJ b6ZPtpHr046AHfeTdbaqtJD5EUBXyaNrbMgn8yNBwcNdvTYnnsynw9hjlsYC 90tkPh1C9vQNR2XdIfOj4NvhOtu5UnK+0Shwz1ueciiBZGMG/L1sQFViKojK mQyQWZAVEahDnsc3DKCnSzRH9J+msm40bEstZOkwH1M5MRp+XbEnlr2tnco9 0SDYWK9jMPuEyuoxYHCQn67EIdcXGgNFzqVLd9wvoXJTDAyq6vfdkCW/n1ws iFRDpJuutlLZMxbaaJn7frfiU7k8FvYLZrf7ppF5i+Ogm/vKa33ANSrbxkGJ htp5vjSHyrfjoK4wTVFIJ8/LVBycnJH1npMm5zOOh71Sh96MTQpJ/3iwX7mo dqV2B+kfD04v/XS/+pG8D7oJ4O+doNY9VUv6J0DToqosWxPy+/QkAGMl7Zux 3eT61c+AFjRpRdn8QfqfgapiQbEar430PwPWG76Ja9h1iPRPBKfzx7xcS8n+ 4ZkIgs3M5Rr1haR/IrCmjb6eqeSS/kkQOTEz3vGhh/RPgkHZY90SYgLSPwnM CliGrWvIfjOVBPRLep0sS3L/jZNhy9+yWn0tyP3KTAZXlezpU5rkfX+TDE1e AqfXc+R+6KZA3x6Gp58Zuf+JKZDR9U/26CB5/ntSwE3h+CEnmWjSnwmC+FXm Kwvvk/5MyG/o/zwRRt73Jib0sZOOBL8k/eRSYcUv9u9NO5+T/qlQcLzF+JPg d9I/FWILzwXIGpHrX5wGFvIv2XOmZL+wTYPn6/U5LbGVpH8aODas8pfippH+ abB6NivUbV8X8WB0dybfJCH8SC368TDrXZ2SVin6sUNpKLrlJw76IRa3325M lYN+7F3iJjSur0I/RHtU2xReVaMftAnXgHdaXPRjR1X/Yz0VLvpRKvc6ela+ DP3oMx643TxXg35wc6UNI3Pq0I+p3GpRuHcl+mFhtFyNySxBP/yYJ8odeivQ j3R5zd8a+Dz0Y6xIbc3OXRz047mHK53lUop+LHrnXLd9USn6cbk1ftpIn4N+ dGY/6OWZPEI/3me/i4o146IflVsCHXTFy9APPssh4MLTeb98QVLczFVnlIt+ dNm4fX9LrxH9yC2xXJvuwEM/7oq0el0Cy9EPo0PfLXPKLkM/tI+u9pJ0rUA/ CnMGTXcG1aEf/4g7lWUdUYd+aFRZLRGJytCPMgPVwcPsQvRj3cVOddmIcvSD /jLXiD32BP3gWdrdzChuRj/0PKJ6q//goB+rusW3Cmfvoh/+rwvUJbQ46Mej NYNbqkIa0Q+h1h2Xnshn6Me0QoG9f3sZ+sFnh3X65RWiH7XNSbkfTIv+4we7 QsFNqg392P+2b4Rr9Rz9KNHmJrI+VaAf4WMFIXaJbPTjqvkSj6n6cvTDdmSp 8jJGDfpxIGTt+qtW7eiHI93p2EPDdvTjWmDqheaPt9CP7d2vg0SRxehHXYvk 8JOP99CPzTH70xVrm9GPULb4hNlIB/rxYo2ylSODj37YKAkUWWvn948v2cIy 13xdJfrBiVJZ2l9VhH4YKbTP/FzERz+cGAMaMtPP0Q/euRGTW/e60Y+Za5Up o8wH6MeGjLmzgYvn9484GG5cfvRWbgX6MXZ0/EqH43z/eEhv+F6pJ30A/YiK Lrj4g5cA/dAJ9VbifOKgH2UCLdbH0Ub0Q7Rw/JEotBz90EtwkQz4c77/GbAx bX3G5w2gHwOvyhokqzrRjwnNCf+00Vvoh6GSZ6yRqAL9WKN5YYG5OA/9cH7x 2Xjv1/Xoh2nYuWVtb1+gHzTrs/zUw13oR/bITN3w/P73xY8XcQf/GmzjoR9C oeaCITce+jGRuHmvcXgJ+qF8em5SeaIL/fjUOGiv+V6Afsh8GL/eMduGfrhb 7VT9PHAD/WidfGwfKslDPwp7C2i2KWXoR1qMz+vgb2vQD+Uj9RslDnSiHzYe dk9Tc4Xoh5jwsocwvxr9qFZru9TjyEM/HogN+8BPj9GPmqTGDF+/++jHFdoq Ye/hXvSD9t+fL8f/J/+f4/8CGDMXBQ== "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 203, 204, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 201, 202, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152, 151, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.709299000292557*^9, 3.7092991285069857`*^9, 3.709301177613864*^9, {3.709301208684267*^9, 3.709301220954483*^9}, {3.709301255369512*^9, 3.7093012772713747`*^9}, 3.709301977183978*^9, 3.7093020872167587`*^9, 3.709302253135663*^9, 3.709302912878001*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.7093021020212584`*^9, 3.709302108212081*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}, {3.709299231083899*^9, 3.709299236209456*^9}, {3.70929932637269*^9, 3.709299328684326*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzF1/k/VO3/wHGUVktaFGmxJIob2Wm5WrhRlBbZbkmRpY8oW2LsQkPcKhWl UElZspQpJHuWkBnM2E2WFkUla/me73fOvD+Pc/6B7/wyj9fjcs017zPjPB8j aXfusD0fDw/PH14env995jxGdznOE7GqnM3cxWlZlOuksm72cALe6uiVPCNq blEi3rtQBB/l7t39aZwO3IcEpTZtdTR5grch2tT+2SrN/wHeJuhcW+THN//c 43SpKdKnNK5mBaVzGh1FEgGvMjPz8L8vNUO3qZO1me3P8HULJCrb46uSnoWv WyH109toj5/ewNdtkNY9k8XinkmctrVF64VYUbns+5y+dxKtOfb77C3dPE73 2qGhVYrsEbe7nN54GinHaZQpikfg++2R9bYwB8E10fh+B2S6YkHOu7iH+P4z SEDZ5L24cQ6+3wlZZQRKWH7Hr4etM9pRNjU4J/cvvt8F+dHFE3tVruP7z6JJ PeXRoUD8em50RRbVrGPxCi/x/edQzuudx6guTzl9yA29Kg6fieYN4PSoG/IN nsoVa4jkdKw78rSTL94rkMJp5fPokEiIpEIg/npN51HmE9d7mxcUctrtApoM P2fmsDue08s8EFVPuKX1mienczyQ00Tga8l7d/DzPVGJGc9OelY5fr4n8kzW Hdda+Ro/3wtNbXUJPDWPip/vjVo+PTxqOhiCn++NCloGc/dk4vO6+SBv55tb 7LaW4udfRLUnHqxLOFCNn38R7VB1aRqneeHn+6LASrW6L+9i8fN9UWXDF5VI 4av4+ZeQYUYtZaIRf3/KfkjneZSaunQdfr4fokjfoyhsycDP90cSZxzkyu6G 4edT0FhFksJ8h1v4+RTktYc1FJD4GD8/AC0dKjefzcNfbzQAOdxbceVgON4G gehDfp+M4KQHp28GolXzE/0uqOHfx+FARIkTrPXrvcRprSCkEZ2dpEat4HRE EPp39Z6QTI33nG4PQoytlWo7Zt5yWi4Y7TjQFCdZgL8/n2CUY5snoPM8l9M1 wYgto8t6IIp/fmtC0IiM18qalHpOO4agRp6b+zqONnG6MATpM2Y0z8bg5y0K RW20fid591ROm4eiXAXZ+KaVBZxOD0Xl2THreij492UyFJ2fFnWeXYm/nkEY 2itycHhsogefPwxZii0sE1NuwecPQzZdrlq8f+H/D1rhyM05XLZtsgyfPxzV LCxONDfEP5/2cBQoxrNkbBf+/uUuIyVUoxRg1o3PfxkVP2M8ky1txOe/jI5t WRJatfMgPn8Esok/5WSXh98/HCMQYxt1hUJlNj5/BEqa0uOfLqLh80ci//Hp 7y2/2vH5IxFb9FSbIB8Dnz8SGWcl7a7fgN9vJiMR5ZY2Pekwfv0NopDqfxLr z5ri1+tmFLKTvjPlrYj/vw9HoRonhs3ALH49tK4g1p5AR1dj/PpHXEHXW39k jrLx73/7FWQvcfqgzaogfH4qYoStNRHLfo7PT0UZVb1z4xfx//caKmJlRh7x 7MLnWxONVv9j+dOI3ozPH42yTtcZ/GF04PNHo5DsWHdRPfz9L4pBpuJdmbNG +P3CPAY1y+sW1IUU4fPHIOuqtW4itBh8/hi0fibRx35fK+7B6K6bTYbhvkfK wI9Xid/KJZXywA8dycGgur8LwA++UH2LMZkC8GPvYvseg8pi8GNkj0yjRH8J +MEzbuf+TYkGfugU91ZoS9PAj7w1A0Ez4vngB8ugL7129jX4QUteudv/bjn4 MZlcMuLrXAR+mOqtkKVSc8EPV+q5QivmS/AjTlzxWlVTKfgxliO7YfvOAvCj +YwdJelkHvix8JttuebCPPDjdn3YlJ5uAfhBv/OCWWr4Bvz4eedbQIgxDfwo Ur1gpTUvH/xoSrJyv9HA9essWjbP2E5tlAZ+tJrZL3+kXQ1+JOce3hhnVQp+ PBlRYp68UAh+6B0UEra5kw9+KJ9Y77TM7iX4kX2XbbTdoxz8+BrqnXjMrxz8 UCg+unhkJB/8yN8hwz6UmQ1+bEqgy4n6FYIflK5kvcyxt+BH6WGLh9ef1YIf 2mcCmCXdBeDH2rZ56j0zT8APt4EsOUGlAvDjzQa2arFXNfjRo/T4ZLv/O/Bj SiLL0u19PvjRlHmR7novG/woq41M/mWU818/Ml9K2Is0gh/6X1gfaUebwY9c ZVpE0p+X4IfvWJaXRUQm+JFisvjMZGUh+GH+UUBKOPA1+LHfa6N8ytH34Ic1 xebUq93vwY/UC9E3an8/Aj802wY8RvyfgR/ldcuG3v5+Cn5sC9aPW1dWC374 ZM4bN/7YAn50bpA6ah3YBH6YSTLWJW3k3j+wNj2cbLKpCPwoCJAW6C3OAT/0 JN5PH89pAj9sAvsUVk01gx+lsR8NHz1tAz+mU4uujFJfgB9brs9evbCIe/8I RUPVK048Sn4Jfoyd+H6/xZo7fxiKq1ou2R7XB34EBGUlbHZigB9qPs6SBX8K wI98hlLS79Fq8GNkwfc3Iz6F4Id2+Mll7p+4819GZkb175pK+8CPvv78qmXF dPBjXHHcLWb0EfixW9IxRG/kJfixQfHGfJN5peCHbeecwV7+SvDD6GKscOOX TvCD59jVpuhDreDHnY/T5UPc+x/mR2fogc/sxlLwo6dHcf6gfSn4MR6xba+B by74IXVpdkJqvBX8+FPNtlT8yQA/Vv36ntYy0wh+OBzdLjPX9wD8qJ+osPRZ Vgp+ZDOzeMyv5IMfMcEuA55LX4MfUkcqtwrup4MfZmcsGqKTe8APvp7bZ3oy SsCPEtnGW+3WpeDHC74hF/R3BfjxOrL6+lnX5+DHfZ61PcxDTPBD0eZ4/kGJ OvDDdvajb75AJfjxbuljA6poBfgxTFs0x89bBX4o1E/+WTFeDn702y7PvOtW AX6Uf3VmSK4vAz/6Ttr4Cw7UgB9ppaNa+f5cH8zQ7JblajUy1eBHsW0ZK/fg W/BDuNhK1LukEvyQjmtrMT9eDn5kHD4XsGl/GfgxaFh7vG5NBfjxc9hE1DG0 EPz4R2hxbuL1MvBDrT/K0lG0CvwI6a9DlCKuP2fQwpTVF4Y+l4EfEZuGvxql cM93RgHG0eorvCvBD6G8iddmmm/Bj+U/7hTovSwBP779Flp/xKAO/DA79rju WnEZ+DHRQD2y/WcZ+DGv5D6NIVwHfuyNis/bEVEGfsz3+vXopXgN+OEvk16o Q6kGP77eEGMI3qwDP5TyjW7LadeDH9oBS3zjdpSDH0znjKh9AvXgx9r0Bp8T rAbwQ1VeQzghrRr8OOf5qynpZAP4IaVtQk9TrgI/On8uiXa/VQ9+XHv0wLDk cjP4IZnAx2+qx/XTFz2vUbbYO9EMfgRMtOqkLOfOfwlljthpj9KawA9T1stQ Vkor+LFONkHFJpjrpz/6oK7yVmSyGfwY038790mTCX6kx2taW12qAj8SVLKK Tv9oAz9k1eRFpi8wwI9aCn3ar6Ac/PCL/qhzzbgH/FD3yvlwvO89+JEmRRNT 5vqA+aGhqV0o7NMBfky+HVpyLLQZ/FgqreD6exUd/LAdlmMv8e0AP2Lz8w3m L20GPxpZ72jbKC3gRzzfQrSNwgQ/biWryBlKt4MfwTXdXh+FuPfPUKTy0KXN f7AL/OjYVlMtFPEO/NhTOeG+yYU7fxjqpnuKvq5igx+zrgLahjat4EfjvRup 2Qfo4EdZuNmIR3Av+DG5cUX81yPc31/Y75PREN7Zif/64e8em01LZ4Mf4Vnp Rn6WTPAj+tAV07TBUvCDX5UdHPO1D/ygXtZ7mvC2D/wI3u/XqTlRA35YbedV j4nvAz+YB6MeZHC9wvyw2ye8wDK4BPwYuJiTki7cCX7oHMkeKkrizh+FxFj7 G7zS68EP6wSBCqGKTvBDbirphPhoP/gxmbpTJbWJO/8VZBYqIfOK+/sN82PC /aEAS7gf/Pgz+2945xR3fip6sabknenvCvCD1c1j0pHUA36sNLbPYUv3gh8H dqrccO/k/v6MQZGSKkOxs93gB4WeE/7nPnf+GLT7uei3J0ZvwA9B07937pLu AT+aKK65Y77t4AfaMeGU7dkGfhS1jppGaXB7F+KV4y/UD6aDH1v+07JyboIB fgxfrpjglWkDP/IeHV/5o5oOfsSYiCvXrGkDP1S1lW/5q3PXzVDqcPiVos3c dQskabHz06YGJvhRPbY5YrMJA/zY6hhfybJsAT+SkMeZ6RQ6+LFtRx4vr3Ib +EFZNPE+Vew9+CEuX3CxVZ4BfhToKMov7GgFPxy2ezqppraAH7eVVmqsb6CD HzrpudpPGHTw449uNrWmk7vfBe26UaH3eZh7/llUe43pMZDUAn7ce7r/tPnv dvCjm184RH8pA/xQz15pVSHdCn6c2m/u4pTKAj8u8u9ZVcpsBT9a9Km3Gn4x wA9d5XRFHm5jfnx6RwnaIsICPyyvrL/bzuTePz2Q/dABp1Aq93xPVLdcd8/z 60zwAz0LHmsR7AA/ljTeCkrKagM/TDTa6/+otYMfGv6Sh9unuOf7IH42O1Bq NRP8eOJSmb90kAV+ZGgnF4eIt4If1LjkSaGYDvBjfImB9WZN7vyXUC5tVLyH 1Ql+1Kcldpxv7gE/ZBzD5yQs6OBHvk+EdVJBB/ghlppfRlnUD36YqKU9iPVu Az8EtZ7xrl7EBj8ex69/P3CgF/zQMB5aaLKbAX7oNiWejnBigx9fTTd0BhR3 gR/Vhrcuvc3tAD8WrP4+k6vSB36EFd9Z/v18F/ixxCK9MUy7F/yYarOtNPzS D34oU22dDR93gh/RZem69+f3gh+ZQYmJl2q5948QtIC3xMSxoxf82H+5TTJ6 pB/8OKtnJnKcwgY/Cin8eo6tLPDjkCGj7/tQD/jBLPRRVX08BH5IFeX84vfm +hmGmiLbr8f+2wt+NGR45DldYIMfV9d8f24e1QV+DK/icWwV7QY/PqfOKYSW DoIff//8prf8eB/4sUopgrbIkQ5++NMmD2hbDoEf/dbXuit+DoAflobKYjyH meDHA+eMVM2lA+DH858i6zZ8GQQ/1izuyQnRpYMf4kIznXxX+8CPis8aiyvl ufNHoeYHWgeudjPBj3KpLTsdfvSDH+nrp9XcVw2BH2GDNW+6vLrBj53ek6iL 6xPmh6Bx66n1Rdz5qeh6lVjkfH02+BGZkKu1jsWdPxrtcrks8+L8APjRpefK E3iaDX6oLZj5a/WzDvDDwZCP9UP+A/gRz9dYl79xAPywavyr1cyhBfwYtVDQ uUb/AH4Qn2XR3P89voEfxPVdxMb8ILYhqU2IjflBeH3MD+K6GbExP4jrVqR1 G2JjfhAa84PQmB+Exvwg7rcn7Xcg7T9D2u9E2u9M2u9C2n+WtN+VeD0wPwjr mB+EHiU15gehMT8I3URqzA9CY34QOofUmB/E80mN+UE835t0PqkxPwjzYn4Q GvODeL4v6XxSY34Q9mN+EM8nNeYHcX4KaX5SY34Qzyc15gehb5J6mNSYH4SO IHU7qTE/CO1D6hpSY34Q2pHUhaTG/CC0OanTST1JaswPQt8k9TCpMT8IHUHq dlJjfhAa84PwedeQ1jE/iPOTupDUmB/E+UmdTupJUmN+EOcn9TCpMT+I85O6 ndSYH4R5MT8I6zWkxvwgzk/qQlJjfhDnJzXmB+H8SdI6POMPWOc+/v/W/wd4 LF1W "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UczgwEABNBPjy6iExEkQvTeI3p00TthHPn/hxjPjMPb3fvGC9/5r9Ig CEr4/O+i+OHDfqfAG6+88MwTjzxwzx233HDNFZdckOecM0454ZgjDjkgxz57 7LLDNltskmWDDOusscoKyyyxyALzzDHLDNNMMckE44wxSpoRhkkxRJIEgwzQ T5w+YvQSpYduuuikg3baaKWFCM2EaaKRBuqpo5YaqglRRSUVlFPG3z+/8YEX 0w== "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UVWggEAhdFfd+KWXILnKCZgN6KCgd2BIgZid3fjnnTgHTi453xv/ErK IqXh4iAIiqignB/jl29d4ItPPnjnjVdeeOaJRx64545bbrjmiksuOOeMU044 5ohDDthnj112yLNNji022WCdLGtkWGWFNMssscgC88wxywzTTDHJBOOMMcoI KYYZYpABkiTop49e4vQQo5suOumgnTZaaaGZJhppoJ4oEcLUUUsN1VRRSej/ lz/Cyj7f "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwlz8VWQgEARdH3MBAsVOxA7PoaPsGBQ/1Ou1tBRcXuxNwuB3vddYcnPT6V mYwEQRAywTTvTpExRhlhmCEGGaCfPnrpIU03KbropIN22milhWaaaCRJA/XU kaCWGqqpopI4MSqIUk4ZpZQQIQz/I37MN1988kHxr4k3XnnhmSceeeCeO265 4ZorLrngnDMKnHLCMXmOOOSAHFn22WOXHbbZYpMN1lljlRWWWWKRBeaZY5YZ fgGi4DkY "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxtc6ggEAANCfN/EARrbslRRFsndIQsnee8/elkvn4nzfqcoUU4XKIAgq yFItv/xR5odvvvjkg3feeOWFZ5545IF77rjlhmuuuOSCc8445YRjjjjkgH1K 7FGkwC47bJNnixybZNlgnTUyrLLCMkssssA8c8wywzRTTJJmghTjjJEkwSgj xIkxTJQhIgwyQD999NJDN1100kE7YdpopYVmmmikgXpC1FFLDf+/Rylb "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxkVWQgEAAMCvN/FKHsGFSzmLLXYhgoKB3Y3YYnd3i7p2FvPeFBSFCkvy gyDIo5hS+eWPH3J888UnH7zzxisvPPPEIw/cc8ctN1xzxSUXnHPGKSccc8Qh B+yzxy47ZNlmi002WGeNVVbIsEyaJRZZYJ45ZplhmikmmWCcMUYZYZghBhkg RT999NJDkgTddBEnRidROojQThuttNBME400UE8dtYSpoZoqKqmgnDL+AZCQ UGc= "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.008333333333333333], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.008333333333333333], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[Large], LineBox[CompressedData[" 1:eJwNz9c6ggEAANA/OyuRGepHKJ7GI/hc85xZ2ZS9Ze+9zsV5gBNOzkxMR4Ig mCLPLHPMs8AiBZZYZoVV1lhng022KFJimx122WOfAw454pgTTjnjnAvKXHLF NTfccsc9DzzyxDMvvPLGOx988sU3P/zyRyAZoYJKqqimhlrqiFJPA4000UyM FuK00kaCdjropItuekjSSx/9pEgTMsAgQ2QYZoRRsuQYY5x/YMU3Hw== "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.008333333333333333], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV0Nc6ggEAgOHfpbgAZCd7V7LKDFGyJXtkZWZzyb0O3uf5jr/aXDF5UBME QZ46UU8DIRppopkWWmmjnTAdROiki2566KWPfgYYZIhhRhglSow4YyQYZ4JJ ppgmSYoZZpljngUWSbPEMitkWGWNLDnWybPBJltss8Mue+xT4H9GkUOOOOaE U84454JLrihxzQ233HFPmQceeeKZF16p8MY7H3zyxTc//PJHFbQKJ2Y= "]]}, {RGBColor[0.5, 0, 0.5], PointSize[0.008333333333333333], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwNxlVSQgEAAMDnUbySR3D81rOYiF0IiI2FjV3Yid2iYnIA9mNntrS8qqyy JAiCCqqlhlrqqKeBEI2EaaKZFlppo50OOumimx4i9BIlRpw+EvQzwCBDDDPC KEnGGGeCSaZIMc0Ms8wxzwKLpFlimRVWWWOdDTbZYpsdMuyyxz4HHHLEMSec csY5F2S55IprbrjljnseeOSJZ1545Y0c73zwSZ4vvvnhlz/+KVAEiHtOdg== "]]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.709299173228026*^9, {3.709299217591552*^9, 3.709299240418005*^9}, 3.709299304355733*^9, 3.709299419637433*^9, 3.709302174462837*^9, 3.709302254142775*^9, 3.7093029139072113`*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Matching-alleles Model", "Subchapter", CellChangeTimes->{{3.708964726393654*^9, 3.708964738264943*^9}, { 3.708964784270978*^9, 3.7089647870978518`*^9}}], Cell[CellGroupData[{ Cell["Allele Frequencies over time", "Section", CellChangeTimes->{{3.708964751433283*^9, 3.708964754881453*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Pars3", "=", RowBox[{"{", RowBox[{ RowBox[{"tmax", "\[Rule]", "1000"}], ",", RowBox[{"r", "\[Rule]", "0.5"}], ",", RowBox[{"\[Alpha]", "\[Rule]", "0.2"}], ",", RowBox[{"\[Xi]H", "\[Rule]", "0.5"}], ",", RowBox[{"\[Xi]P", "\[Rule]", "0.5"}], ",", RowBox[{"bH0", "\[Rule]", "0"}], ",", RowBox[{"bH1", "\[Rule]", "3"}], ",", RowBox[{"bH2", "\[Rule]", "2"}], ",", RowBox[{"bP0", "\[Rule]", "0"}], ",", RowBox[{"bP1", "\[Rule]", "4"}], ",", RowBox[{"bP2", "\[Rule]", "1"}], ",", RowBox[{"eH", "\[Rule]", "0"}], ",", RowBox[{"eP", "\[Rule]", "0"}], ",", RowBox[{"\[Mu]", "\[Rule]", "0.001"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.695396698552619*^9, 3.6953968661476016`*^9, {3.695397553854968*^9, 3.69539755472857*^9}, {3.695398482720422*^9, 3.6953984853355713`*^9}, 3.6953985393976636`*^9, 3.695398653292178*^9, 3.695399097145565*^9, { 3.6954844197704544`*^9, 3.6954844220955877`*^9}, {3.6954849511058455`*^9, 3.6954849514888673`*^9}, {3.695484993897293*^9, 3.695485047976386*^9}, { 3.6954851906565466`*^9, 3.695485236848189*^9}, {3.6954852786245785`*^9, 3.6954852930484033`*^9}, 3.6954853629123993`*^9, {3.6961859740553026`*^9, 3.6961859929303827`*^9}, 3.69618602872143*^9, 3.696186076183144*^9, { 3.6961890385134706`*^9, 3.6961890423606906`*^9}, {3.6961891517899494`*^9, 3.69618915214997*^9}, {3.69618919376035*^9, 3.6961892279613066`*^9}, 3.6961892683526163`*^9, 3.696283011866568*^9, {3.698953020941763*^9, 3.698953021142603*^9}, {3.698953418584484*^9, 3.698953422895097*^9}, { 3.6989534721482363`*^9, 3.698953472291698*^9}, {3.699024833343495*^9, 3.699024833493294*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"\[Xi]H", " ", RowBox[{"PmamX", "[", RowBox[{ RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "XP2"}], "}"}]}], "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.6954850984242716`*^9, 3.6954851023044934`*^9}, 3.6989523134846363`*^9, {3.70930231818528*^9, 3.709302322231863*^9}, {3.7093023530719137`*^9, 3.709302363311612*^9}}], Cell["The average host fitness at time t is given by:", "Text", CellChangeTimes->{{3.6950645165490923`*^9, 3.6950645417165318`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WHavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.695064525272591*^9, 3.695064567246992*^9}, { 3.6950648988719597`*^9, 3.6950649064803953`*^9}}], Cell["\<\ Hence the relative fitness of host genotype {XH1,XH2} is given by:\ \>", "Text", CellChangeTimes->{{3.6950646155887566`*^9, 3.6950646294685507`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wH", "[", RowBox[{"XH1_", ",", "XH2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950646306516185`*^9, 3.6950646630334706`*^9}}], Cell["\<\ Similarly we can calculate the recursion equation for the change in parasite \ genotype frequencies. The absolute fitness of genotype {XP1,XP2} is given by\ \ \>", "Text", CellChangeTimes->{{3.695064787924614*^9, 3.6950648278838997`*^9}, 3.69625464922569*^9}], Cell[BoxData[ RowBox[{ RowBox[{"WP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"XH1", ",", "XH2", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"\[Xi]P", RowBox[{"(", RowBox[{"PmamX", "[", RowBox[{ RowBox[{"{", RowBox[{"XH1", ",", "XH2"}], "}"}], ",", RowBox[{"{", RowBox[{"XP1", ",", "XP2"}], "}"}]}], "]"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"XH1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XH2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.6950643845785437`*^9, 3.6950644213666477`*^9}, { 3.695064452398423*^9, 3.695064503409341*^9}, {3.69506483804148*^9, 3.695064871553397*^9}, 3.695066292192653*^9, 3.6950663504499855`*^9, { 3.69506638129875*^9, 3.6950663905692797`*^9}, {3.695066472089943*^9, 3.6950665903607073`*^9}, {3.6954851114880185`*^9, 3.695485112696088*^9}, { 3.6961860331756845`*^9, 3.696186042450215*^9}, 3.709302384079496*^9}], Cell["The average pathogen fitness is:", "Text", CellChangeTimes->{{3.695064877228722*^9, 3.6950648825000234`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"WPavg", "[", "t_", "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}]}], ",", RowBox[{"{", RowBox[{"XP1", ",", "0", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"XP2", ",", "0", ",", "1"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.69506488664026*^9, 3.69506492336036*^9}}], Cell["The relative fitness", "Text", CellChangeTimes->{{3.695064931452823*^9, 3.695064933699952*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"wP", "[", RowBox[{"XP1_", ",", "XP2_", ",", "t_"}], "]"}], ":=", FractionBox[ RowBox[{"WP", "[", RowBox[{"XP1", ",", "XP2", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]], "Input", CellChangeTimes->{{3.6950649384402227`*^9, 3.695064952057002*^9}}], Cell[BoxData[ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"Htmp", ",", "Ptmp", ",", "t"}], "}"}], ",", RowBox[{ RowBox[{"ListH", "=", RowBox[{"{", "}"}]}], ";", RowBox[{"ListP", "=", RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"(*", "Inializing", "*)"}], "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{"{", RowBox[{"0.24", ",", "0.25", ",", "0.27", ",", "0.24"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{"{", RowBox[{"0.23", ",", "0.25", ",", "0.27", ",", "0.25"}], "}"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"t", "=", "1"}], ",", RowBox[{ RowBox[{"t", "\[LessEqual]", " ", "tmax"}], "/.", "pars3"}], ",", RowBox[{"t", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Htmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WHavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Htmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListH", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Htmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", RowBox[{"Htmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Htmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Htmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], FractionBox[ RowBox[{"WP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], RowBox[{"WPavg", "[", "t", "]"}]]}]}], "}"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fH", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListH", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "1"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "0", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "2"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"0", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "3"}], "]"}], "]"}]}], ",", RowBox[{ RowBox[{"fP", "[", RowBox[{"1", ",", "1", ",", "t"}], "]"}], "\[Rule]", " ", RowBox[{"ListP", "[", RowBox[{"[", RowBox[{"t", ",", "4"}], "]"}], "]"}]}]}], "}"}]}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"Ptmp", "=", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}], "+", RowBox[{"(", RowBox[{ RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", RowBox[{"r", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "\[IndentingNewLine]", "}"}], "/.", "pars3"}]}], ";", "\[IndentingNewLine]", RowBox[{"AppendTo", "[", RowBox[{"ListP", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["\[Mu]", "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "\[Mu]", " ", RowBox[{"Ptmp", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"\[Mu]", RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], " ", RowBox[{"Ptmp", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", "\[Mu]"}], ")"}], "2"], RowBox[{"Ptmp", "[", RowBox[{"[", "4", "]"}], "]"}]}]}]}], "}"}], "/.", "pars3"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"ListHMAM", "=", RowBox[{"Transpose", "[", "ListH", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ListPMAM", "=", RowBox[{"Transpose", "[", "ListP", "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.6961887771515217`*^9, 3.696188985512439*^9}, { 3.6961890207774563`*^9, 3.6961890989219255`*^9}, {3.696248833890818*^9, 3.6962488668537035`*^9}, 3.696254075209858*^9, {3.698953030270234*^9, 3.698953047734573*^9}, {3.698953438828637*^9, 3.698953439096142*^9}, { 3.709301517256439*^9, 3.70930152993349*^9}, {3.709302934347361*^9, 3.709302940437673*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"pHlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListHMAM", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListHMAM", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListHMAM", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListHMAM", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListHMAM", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListHMAM", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListHMAM", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListHMAM", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pPlist", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"ListPMAM", "[", RowBox[{"[", "1", "]"}], "]"}], "+", RowBox[{"ListPMAM", "[", RowBox[{"[", "3", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ListPMAM", "[", RowBox[{"[", "2", "]"}], "]"}], "+", RowBox[{"ListPMAM", "[", RowBox[{"[", "4", "]"}], "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"ListPMAM", "[", RowBox[{"[", "1", "]"}], "]"}], RowBox[{"ListPMAM", "[", RowBox[{"[", "4", "]"}], "]"}]}], "-", RowBox[{ RowBox[{"ListPMAM", "[", RowBox[{"[", "2", "]"}], "]"}], RowBox[{"ListPMAM", "[", RowBox[{"[", "3", "]"}], "]"}]}]}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.7093029434744453`*^9, 3.709302957585326*^9}}], Cell["Plotting the allele frequencies over time", "Text", CellChangeTimes->{{3.709299854743474*^9, 3.709299876334786*^9}, { 3.7093024292422247`*^9, 3.709302433780588*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PPlot", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", ";;"}], "]"}], "]"}], ",", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", ";;"}], "]"}], "]"}], ",", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", ";;"}], "]"}], "]"}], ",", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", ";;"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",\ CellChangeTimes->{{3.6954848731993895`*^9, 3.6954849400292115`*^9}, { 3.6961861256399727`*^9, 3.696186154133603*^9}, {3.696189127455558*^9, 3.69618914060631*^9}, {3.699036464725513*^9, 3.699036467205024*^9}, { 3.7093024392112093`*^9, 3.709302498362183*^9}}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9m3lczdv3/5OhTMmcuTIlJIQy5KVIRSlRUZo0j6d5rlOdczrNISQiGXMN GaKMCckQJUMIGRpMSUTmb7/Hb63P/ec+nne33uu993qtvdde73NVnPxWusjK yMi87Soj8//+/f//aV24sni0+L15/UL6D7DJbnroaMYsj5j474pTTZkVMdy5 VrfLMuZBeHfrX4+LBsxK6Dt+os+6Rcwj8f3CGs23c5mVcbj4eWXQTGZVDFc9 vmT4ZOZx0P3lZt2hwjwB9Td+RE9XYlbD/VQVjfd9mdWxZf8XA5OuzFPgoLb9 i+znF8QaGNRjuofLU2ZNLN5cLTesnHk6FAZpPQ06zjwDO3Q0ku/kMs9E6JV3 38JSmLVgrLa9riyCeRaaNCr8272YZ0N+q/9QC3vmOVgwqGbUkNXM2ng57fIB PxNmHbSU9ymSGDLPRcEbLZtQA+Z56BP/ffrKpczzoTxh+vcRy5gXwK5molel ObMu1mcOdrawYV4I78EVgzPcmAHJjENSyxBiIbB5z39zgxN5fBF2/zJ6cziH xxdh7Swf29PHeFwPq/RKtujx+gn1sNxfo+TXMx7Xh3Od1lLJNx7XR+iPHZqX 5Tg+i+GWa5ZqMIhYuBinL7x5n6fM40vQsSm3JXcKjy/Bk8svX/fW5nEDOEqK tp7V43ED9M1MVo1azuNLYTBZp3j8ah5fiqSjvfwzbXncEE5vhsvlOPG4IZRa RsaPd+NxI5x9UH1rhCePG+H3Xl01by8eN8aTXS/S+jALjdHnS/bTH+48vgxy K6rfz3Hh8WXYYFchrrbn8eWI2Fgwrdaax5dj9NB3b9b/L99MsObOgKKNnE9C E4Roqq6QzuNxU0i360b7TONxU1Tvztnkp8rjK1Ahtrl/6X/ruwJ7vs65sbEH j5sh5oz6+IWtFB+YISxsr6VuDcfLDBre27D1NHGpGa7Nmx9ykfUgY44v3xow Ucj25vD+Jbq+iPUlNMeA4xkTw83Y3hx+D7clTZ/P9ishM++Abrk626+EsZmw PXEk269ElY2+0rn+bL8Sz2W/OG7pxfYWGBR4o2SRHNtbwFrmit0DZqEFJjiF e6zpw/YWUP4g2XdtENuvgp5nzcUuKmy/Ck4jf5xt0GT7VYDCq5NzF7P9KtwZ P+36ubVsvxrCegWNoUFsvxrS/BsBnzLYfjXap409X3eE7VfjvtMSdd9KtrfE F8PcxZNb2N4Sxv33XbjJ+SG0xF9hYH0W73ellji+eLDK9EkcPyu4G34aY6tD DCuU7ZP2qDFkeysMfHN06yortrfCte+jTPKd2d4a4zYnRcUJ2N4acn4Jkecj 2N4aM9PenxmbwPbWuK1zqCQ9ie3XwDhnm+yzNLZfg3URVWXfMth+DQ7/q11T yVy6BsMfS/Js+O9l1qLX9bM/90nZfi3KZH7NPBvH9msx1/z9lGNhbL8WUXrt jnt92N4GBmMzVl12YHsbvB7rUa+1ku1t0FLkKdLi/aHUBhvjB+/7pcn2tvD1 7Lh5czTb22Lhupq6xt5sbwu9yaV7Nfn8KLXFlr37ilbd5Pitw7r9Fa9q9nD8 1iH5trDIKIbjvw5Z/wYqmrNeStehSGbGxThttrfDY/GOhz7D2N4OU75f/L3z z3Oyt4OfmSh7UwNxqR12bDmsfL6aWMYeMseXbg0rI4Y9tPaNsx5SzPb2qLh8 ZPWdE2zf+fd1PZ9cYZZxwHxXlcdd+e+VHVDx3ueB6H/Pc0DfufmmE+8ROzig bO6JA6cb+fkOOPDwgee7f8R5neOfS++4jeL5OuBq63OHK7rE9Q4443jpfPx6 nr8jZO+YYTSfp8qOMCx6XCRbxOvhiPxCl28b64kdHFF3vHdFFu9fQkf8rhq4 qO8o4jxHVGLfhrVcT5Q6QnPG4LFjjYjrHVFvarK6rx3H3wmj7l2rL/UnVnZC ZcxK+2bWO5zws6L3lxlZxA5OUPQp/L06n/07obdK1zsKR9m/E5YbHVg07gz7 d4LVXVcV9wvs3wnyis+XFJey//XQvjrN/h+z8nq4dhuzbtZF9r8e9eqtQfbF 7H89bPcduZVxjP2vR3Pb5Xtv9rD/9bAqmesp3cz+16PRquj5URH7X4+Iw2m1 m3m+Ms4Y4CI2TeDzUNkZh0qNpFeXsH9nmJ5snHVkKvt3RtL14G1b/neeOGPv zAMBF9opPnnO6FCoHnr3MsffGa8Dy4ZMSef4O2Ptqj7I/1894gLrsI37ZSZz /F0w4HdO4iDWP1yQ+elF0b7/6c8F/otctgccZv25QFWwvGNyCuvPBYIkcZbA j/XuAqteh8bdWENc7wKHmPx9e41Z/65Y4vXJZ7Ue698Vhp9yJ/RbxP5dIe1u d7PBgP27wlhn3vFKC/bvioqX5lt2uLF/VxzLV/TtHc/+XTH7q/BecT77d8W8 qkVlk2+wfzcYm+/1e/iV/bvh1Or4JqXxrH83NO9f7qG/hvXvhg79vQ7Zmby/ uGF+1fieprwf5bmh2KDg43VZjr8b1K8Y/rjE9VS9G3bOe7Zyhy7H3x3uk3oa NNlw/N2x7+rLjEm838Idp4uLFT5s5Pi7o23HjPsl/3H83XFQ2SlDtYz1546j s51mX3jA/t2Rv8H5pnoj+3eHwhhd+WFf2L8HghcV1Sz+zf498J/CJI2oLi/J vwd+Fp7dsEuW2MEDTnmTs/P/sX8PNOeHNaZ0sH8PdPEM8Qj6yP49oKC4sYvk Ofv3wIkuO2/8uMX+PTF6lNKUIafZvyeGa7r+nJLL8/dEj6FqJ7bxeeTgicSM qf1K17N/TxyfKfe912L274lB+Sh+z/VXqSduRdWIH8uwf09Yt7sMzD/P+vdC Y6Fn2YFQ1r8XLqqZF9ydyfH3gueaI4smt7H+vFB+x8HzzknWnxfCiqYW3Qxn /Xlh57bHWyYtYf15oTlDerphCOvPCz8HbCt9/ekZ+ffGCV2vhe+riJW9Ybpr UJ+8s8TwxqmWjMaoI8QO3jhaZHrsbgGx0BujkyqyzhwjzvOGnM9Ui/GXiEu9 kad8yuPZI+J6b5wbe7Q18gf790HsYf/08LGsfx/4qpxt0VzN+eeDtz2fjHyT xvP3gVxd3KzLt3n+PvB4vq5voyLr3wd205J2OXG+lPrgz/n55nP38f7jg7P1 e0ydv/D6+yJgaP9iF75fKvuiecHsYRP5vIAvPhc9LLDn+sjBF0nBlZWBWzj+ vvjW7JNz9SzH3xeZVsPcTtRx/H3xZ/yEhXm/OP6+UHqlOaBjCOlZxg8XCxQd p2kQK/thx7nsPrfB+vdDr0Mj69xNWf9+KBris6LEkljoh6OP9GxT1xDn+UH7 mHV1JY+X+mH7m5ELJWxf74fvvVQCHvPzZQTIbr1zpiv7VxTAcJXRMkt+P2UB As7Pd5j5k95fUwDFzHVLez3h9RHg9gu9Eas4f8wEKOp23GAD13sOAvy8eqCP oSuxQIBJmTl9u/H9RSiA3PS/OZYKxJkC6OYcUzzG50eeAB2rzo5f7kpcKMBZ /3P193pzfAUQNWto7+Z8qBLg0nXxUFV71rsAMubyGhX9iFs77XXO9exxnfXn D73NFlf0JcSK/jD10H1+z5TzwR92GZbmL1WINf0xY3lsg7cM54c/9Kucp2i/ r6P5++PJPe/5Za+IHfxxtG7oaL0mYoE/TniW+e3vIBb64+amQr1tQ+h5mf6w /O98QSI4nzr53cr2/4KJC/2hoboWw4o4vzqfn/jybvkf4ip//G3Uer3NlOfv j/hx5xq89/P8/eFWWeI7sBvrPwBKWYHdbXh9FQOgOb7H2J63eT8KgMbB3Yfe D+P4B8Cyn4rlHO7/IADjFB4/mx7P8Q/AsC6p2sOLOP4BCBnh5DGO939BANp6 nC6KHMT6DYAgyqvOYCFxZgDOjqvTPurCeg6A9wOPkNcS4sIA6HSIddTzWd8B eLHnQWv9aeKqAKjU5jZIr7LeA2C9cObe2zeJWwOwv//rbwk3WP+BUBtd0XKq lPUfCL2xG6s2FLL+A7F8osW4oG3EmoEIUs5NfxDJ+RkIp776Xkutic0C0aN5 lInnNM7XQOy8fCa2kc8zQSBMfm0XuFax/gOhPfVx8qbtrP9ApC7/vWcw38/y AjF+weCTWerEhYG4vn2YX9gL1n8g3vU79zvGnbgqEHtLHE6e+8zx73ze3oAL t6I4/oFw+PvmkE9vrj+CcE+31i12F+s/CK4lTxK+zWX9B8Eyp+TwvRekV80g yNTq/+uVSYwg1N4vyQw1Yf0HIXbos7klw1j/QbjdtF1N9dtTmn8QNr3Kv737 NbEwCD+PGF86/Yo4MwgnTs4Ic/9CnBcEr/dr240G0/MKg7DX3UNbvJS4NAj6 B5/otEiJqzr9ZcZcHV5LXB8EzV+7n0fOpPm0BmGHXcL04G2c/8H4b/00Sz95 Wg/FYEz67f/lVQyfR8F4s+VTk80vYs1g5LWvlAuO4vM5GP3r1/115fPdLBi6 quE3YvRZ/8G4ba0YeVnC+g/GvwVDDWxvcPyDYXdko7tLL9Z/MD7Yte5+Ysj6 D4azqKvvngTWfzA2eT5Zt7WE9d853rbcV/qW9R+MwJjJZ8wGvKL5B0MyaLvJ qxnErcHoM+jeTStjYpkQTN7htL+rNbFiCASPjouibIiVQzB9Tc31vauINUPw YbqiymF9YoSgcaL55l6TiM1C8O3G65XB3YkdQlA58E3Jnces/xC82qTxeOAB zv8QaMf7jzH25fmH4Obxrx/9NHn+IVBXu6IU0ML6D0HEmnF2Ewv4fA3Bc81D FeaOxFUh8Lghkds3lM/bEMQotrvnbaN4tYbA0L8lYkBX3v9CcfW/tUs1fTj+ oZDxSrtc+pj1H4q/9+o/Vhrz/h+K4U2urQfKWP+h+Foe5fFMn/UfCt3tDxPV qkm/DqGYEhocYe7D+g9Fm7TDWH4E6z8UjTe7BZbUPaH5h8Jzxu5Ex1PEeaE4 V2//w3kPcWEoTq+/qOh/iLg0FFaqB+s9bxBXheLJ5wEX/P4R14cCNxtONBuT v9ZQONn/yDpWQCwTBpmWj2/A+aoYhj5Hu/b/soVYOQypO5ZpqSvz/MNwCudX C0/w+ReGcb/sauuW0fqZhWHHha+h4e+4XgvDzLj92Q9Tab0FYVjmmB5Xzf0s YRiy0mUH3eH+aWanvdBJ9jTff/PC4Dnp8q6riqz/MJxwvHNGwZH1H4YHssND I46y/sMgb+EZcOE77/9hCJAJL3Gcx/oPw0SjGoN7oaz/cKxIj17r+x/rPxzW XnLB+fdZ/+FYcrXpabc21n84+kfvbAqQfU3zD0fwnPuvJ3cnNguHSZmDXOMP 1n84rKJ/DnxSTywIR7tH6tmys8TCcHwrKta5IyXODMeHts/v45cT54XD7GaM YY4ccWE4YudpW9ae4/mHIycuuaDRk+cfjtOrOsbrcP1WH46jb69OlLlE69na +fcrxsapcT0mE4HeBo97uPUhVowAlic1b3Xm8z8CWeWHPU4V8v4XAVN7O3Pd vxz/CPhZFPhkcr1kFoGxp95Mc9/D+38ESo5dN/z9l/UfAeOZizy7ObP+IzBy 0kGZwges/wh0XaP2MNmK9R+Bh/PsNcw+Pqb5R+BcU+6toznEpREYHX9zmux6 4qoIuDwpHixnRFwf0XmDGbJtoylxawRaFj1sXBVELBOJ3clGAcdLiBUjIVFP PXl6JPlXjoRMg1nr/BxizUhoCPWtpmrQ+yMSBi83WbytITaLxDP1vuGlEp5/ JMZ0VZpqp0frI+h8vp6V8fCufH/ptPeNv6xcTpwZiU/n2jL8krj+jcS3JbYX H4/n/S8ST8RTRsvzeVIaCQffP0Na3/D+F4n37+5HzNXj+EdiUVZ9tF8u1z+R yK5D5Yt2rn+iMMB4iV0WnweKUdDXGqFtkMP6j8Jgmc0e9q9Z/1GYkztzSI9x rP8o5Pb69X76WtZ/FA4/3R18K4HYIQoCgXlZzU5iQRT+21D4akMBsTAKL2yF p8ryiTOjcEjtiEZ5EnFeFJ7NuVZ6xY64MAprdXbWXlAlLo1CjI9IlPqI3q8q CoY3Xgw8G8vnXxTmD+0H/dGc/1EQd48ft4TrRZloTOixYuIhY67/onHn5YiW pmd8H4zGlhWT9j3hfplmNCp1RumXcn8e0ShYsufidlC8zKJxsDiuoiCU979o vH4yaUHdKY5/NBZW1vw1+F/9H42donEWk/SIMzt53k33SZu4/olGzqBrc+M+ 8P4fDadz19pHmPH+H42GiN6r8ktZ/9E48r3n5cBFrP9ofEzXHZz8sJbmH42t C/YnGoiIZWLQujD99cQVxIoxyE7/2Og1j1g5BjZfSz7uWk6sGYP68tFL1cTE iMHI0XWbbjYQm8WgsfyTvakP+XeIQb/+wTEmSvS+ghhsPHYOpi+JhTG4HawT PPsy138x0NiX+KlvIa1HXufz3Br83+3j+08MBt1N2HN7O/c3YmD6cfryuXy+ VMXgSNvQ8gv8PaQ+Bk9ddxuUHuD9LwY71J/mXevH8Y/F9zUKei/8Of6xcEuV xFne4fo/Fk47vntGjmf9x+KPRdDaaD4/EItA1yMDTK5y/ROLnL9bRiT2Zv3H YoWJxU6X5az/WKTZRD0vEbP+Y6GaomTVUsT6j0Wi3siBA5+y/mPRY4nJ9/Y2 1n8s6u/PtDP8xfqPxYAux3fd+0xcFYvbI8xLTt0nro/FhIlyNYWcX62xMFks pxNmQywjhFeeQv7Hf/T+8kKohbT3NN7I+4EQaxdbTFUcQqwkhKzvnw1lGbw+ QjiaS/s5dSNWE2L71CDPKu4fagphtva/GbGvKD7aQphcORu95yX3d4S4eWyR xtc2iq+hEJrjNnyfpsTniRBWW6K6+5iTHqw7/T0Y9/p4LtdXQuxL+DJS/Iv0 5C7E/KIbC508WG9CzPjc475iI+kxTAjRHPWUlwJiobCz3urX8qgnsVSIeC2r pGvHSc+ZQoRePHjB2pM4W4hMrQE6o2cT5wlxdMNfb38l4oNC/LWpCrUcTFwo RFUfo/lzphMXC2G9oP+4GAFxqRAh7Ubd+zwirhCi2NCjb5ob57MQ+crny8+p 0nxqhRhz4KnW8R40/3ohvGs6XP0VaH2ahdAdkrHx3XS+7wixTDz0S6orrXdH Z/wODTcJyeP6Nw7fhr/c9sOD4iUfh0yju7Fh3K9SjMM1y7bP/4QUX6U49Ov1 SLqmg+Mfh7DmsWanHEgfanHwun1zmiXXN5px8GnIydDpQXrTjsOZV3Wux5bw +RGHDq3r3QdGEBvGIXaCp8WmvXyexMElMXFev3Ji6zj0ujM7WeYF51ccnHVX hgo+EbvHYfFUl61t3zjf4tC+RfPn3q/EYXHYcWyS++wmzr84RKlu3NZ+m1ga h9mGe/I+7uF8jEMfi7czBnkSZ3f6c1jpmzaK8zMOinMmWna/QPM9GIfi6O23 lQy5XovD1aO5hhcv0XoVx0F9QdbErAlcv8VhS0rKvq9CWu+KODwT2PTxKuD9 LA6jzl3ePNqc4lcbh/y3s1dk9OB+ahzE++WDCx6QHprj8Nez+ZjzddJLaxw0 nix5NuIl6akjDrLZW2tyxnH9Ew8nk27LzmSS/uTjURji2aKlyudBPOIVAtNK 7j+i+MdjpF63LQf2ECvHw6fO/fT1ZGK1eJQ5GvidlRBrxsNthunc2ZuJteNh vPtCl9FFxIjHPg/lhOhGYsN4BD8ziQ1R5/MkHnN/5v8em0BsHY8xDjPWBnwh dohHySjlCQ0xNB/3eHTfvLBx4STO/3jMfpB+usc34rB45Gh9OlLVxPVnPBI2 9F8Z8I/yRxoP/X5HIofP43qs019bqmLWZopHdjym2ws1O7jflRePtoCsHR+4 f3UwHqfzip+Z/+T7Sjz6Hc0VxxwiPRTHY4SyUbWrEe/f8VhpmHrXp5q4Ih6e 2fva3+q+ofjHIyPPIX9FJnFtPML7j16kUE5cH49L5ZcWzHlF3ByPeZPfpnRt Jm6Nh0jrWPbSp8Qd8Vju1NOm4RKxTAKEwb4WK7YRyyd05kP7YQ1PYsUErFzR w2C2FrFSAqyMvHaM6aD3VU6An9Cp7iqfX2oJKAxznmXkTayZAGnbT6Ulwzn/ EzBy4PExXzhfkIBw3an+DquJDRMwyPXj1/3PuZ+WgHFvIvLncH/NOgGhPhpb 5lzm/koCBiqIr77j/qR7AlaVd7yfU0HxEyRA5ln/stsGlC9hCbhbcHKl8CzH PwEnunyXtZlO+pAm4HCryRHtc7z/d8739teT/dxJn9kJGKPS4jjd4CHFPwFK +/1LmxweUPwTUDxE//ruS/cp/glwFo7tn+dCXJyAtktbJG3mxKUJMDff1XNf LHFFAizLPn6d0EhclYCCQ4qmoyPo+bWd71PeTf2GBvmvT4DtgoS75d+JmxPg Hv7evvomvW9rAtSWa+FlHs2nIwHV48bIh4dw/ovQ36X/4bnLaP7yIixXrRs7 WoXWR1GEVPO7udt/ESuJEDK4Tenrc+4PiPDUZOCm3Lu0vmoiuJ6OW3yFf5+g KUKkfc3Pa818/ovQ8NtIaJXC9bMIYd8mxtycSvE1FMH47IuUuCccfxEsW6pr LqeTPqxF2GSkcGq+Ae//IrjJ9NaczfWQuwjHe+8Peref9CoQofTx1YCxeg0U fxGifDomP79GLBRhzq/qe08nN1L8Rcg39dvW0484U4RbhuM+XUkhzu78++gd f/sJifNE0DR82v3tMuKDIti8TT667zM9v1CEN1N12g1DiItFqNZWHOj2kt6v VASxo3OI+XziChHO/zj5dksm13MixLye9nZtI82/VoSW1mNm07j/Vi/C1m09 x9wqoPVqFmFKudyIqOF83xNB8lN36cdNtN4dIoz0+j2ueSDf/8U4mDFZo3Ia xUdejI1Bdtsb5nI/TIzufiUXKhZTfJXEWLBcrvtQY46/GO6fxacPG5I+1MTw D2pd834h35fF+JOw4LrMdNKbthj9lPYOVhnD9wcxfD/kdd/Tj/d/Mdwai4ta epKezcRQP/rw6ayhpH9rMZzvz3//YxHlh0On/3Xnf/lvrqH4ixF0cc/hppHE AjEUel58pvT6HsVfDPFQUfumz8RCMbbZGj9qWkF/LxVje+L7rsGy9PxMMULu LdW+K0/+s8U4eyJN1MWW81+MCKeWkekf6f0PijFq7rHTOMj9CjGSfB8nrwqk 9SkWw27MkH2D5/D3GzGGN5zoNYDr4YrO9d6/0WwY/36lSgzLsVEz5rwkrhWj enjhr2j+/lAvRn3FecGgbqSH5s73XdOmcyOa77tilA6RbYl8T9whxqpnAvH1 FVz/S5BQUO/66DCxvAQjxJ71K7vx/i9BWfZIqbkV7/8S3BhuPcSc80tZAlfF lPJJn4nVJJDMj13XZQ7pXVOCRVtTuy5k/WtLoHC0fX3CYWJIsMZTOqjgIbGh BAeWzHWtbiU2k0D8eb58/DdiawkumLvYPH5F7CDBpCWeRa8Kid0l+PHtvrKS LbFAgvEKRpFjON/CJDAsbo+6wuerUIIzciO1uoVy/SfB3POl715mcD9OgqJe +w3XbaL1zpbgiuqKL8vS+fyXQG/Ju7KV/HvFgxKMPJxSs3IB31cl+PvDRvZ3 BsdfgvS+8gF53F8qlWD2Za3HyW+4/pdgxoqAIUpvSE9VneMRJolNg4hrJVBa OGbGdj/e/yVQ9n2/v8dH0mezBL61GQX1EuJWCX7+fGg7Qpu4ozN+tRPudvtD +pZJRJzXoNPGNcTyiTAwee7ztYRYMRH92j4q2B8nVkrE11ODynCOWDkRiZMC TE88IVZLhEada+2cQeRPMxEmo1+KzvkQaydCMTDqm0sLMRLheqH7K52dNB/D RCi90wm1ENN8zRKxXf143LFDXP8lArOcHwcMoPVzSIS6/dKddedofd0TMfPT ouZ1/D1L0Olv+LyJu/n3l2GJ0KwcETapmfvPiTj1ZNb2qG8UX2kiojJUV2R/ 5fh3zi9NRUnwiOv/RDzf3zosdivpJy8R3856d588nfR2MBHnXT0OWe3l/T8R ekPPK2z8wvt/Iqw/hXqqjaXzojQRFx/dy7TUJq5IxNzLvsfSmKsS4eIzc/sj NeLaRPR9qRu+ri9xfef7unr4jnpLz2/unN+LaIWaC8Stnf7r7MLkU4k7EpHy dc+sBRbEMlJM9lvxU3EAsbwUbccafNy5vlSUQihv/zrFh/NfClFafBdD3h+U pVgyYVav0Ylc/0lx6eeL0Kz/9cs77Tv2JJ7h80pbipOGRgFVYfz9VIrQPi9t l/DviwylWHfrSELjBO6nSaGyRvaBE993rKW4L/ch3/gRx18K/dHbFgecIH24 S1ER++bJ9eOkJ4EU3749OJTzgfQZJsXUez5a94NovxdKYWpioHd3NZ0H0s73 bRigsjOrmuIvxeM5Tdp/NYmzpdjz+9z36ROI86QYnjh4ipsX8UEpjCc9T2v6 QlwoxS/figEXjtHzi6VwXtDywTaN/JdKcTPwR9P8KK7/Oueztvqapx/lR5UU hzyf+w22p/nUStHxpzF9pyHlR70UjttGxuRMpfk3S3HugvGH4AHc7+5c7x3x wwz+8P1PiqoSzciWr7R+MkkYuObVUqkMnefySfg97eGMlxP4e3ASsi63tjbx 9zGlJFyaHSd695i/DyShbKLfZDP+/YdaErrJXXjQZyN/L09Ce8esxrdRHP8k PFc/kTXRn+//SVCclHOl1JX0ZJgEZ70/baqreP9Pwo5Zys3600jv1kn48Met 8loLsUMS3Nf/mVKV3ETxT8J4YXKd+x9iQRK0XplvtdJrpvgnYe2FMQGPLImF SdhrIfwToEMsTcI/H/uha9+RfWYSdlboPND3Js5OQnb2NWnsNa7/kjCzdo7U XobrvyR4b2v4parO+Z+E+5WWe9aa0fyKk3BwTUbd92i+/3XO95nPjcQSWp+K JMjo5eyfwt9Pq5KQfGNIt6v2tJ61Sbh4wPqkWTn3N5PQq4vT5qGziJuTcPtA 9wG7+Pf2rUmQdVy4658293+S8MtFr85lFH//TsZI401BWj9o/5RPhsangv1O /D1RMRmpN3pb3E4l/Sglw3H1HQPRYu4PJyPhkPrbwV9Jn2rJuG70dnDubt7/ k+HUzTEqdzXpWzsZw7o+qcwcTvpHMvLMfafO/U35YpgM4Vz76jc9iM2Skfxr 97GLBlUU/2Ssb/q5tjn9LsU/GW/zJs0coUbsnoyN02xXFfkQC5LxeGdZlqwO 2Yclw8Aho2aGCj1fmIycjqDTA/05/5MxStOq9bkK13/J+Pva2f6QCs0vOxlq LuU77llw/y8ZfT7LqX3cTOt1MBnLj8ytyLvOv1dIxpR5UX/s+D5UnIzcoV11 Qy34+00yDK/MediqSvGtSIblALHsYP5eXpWMGX/6LHMP5/o/GbZV2ZWP5bi/ 27keS38vGCslbk6GUVNpQ+wf7vcmo9LjmsJGvs93JOPR/ZX9bav5/p+CS+Mn JujO5P0/BXqTvNu/ZhIrpmBh1ne9jHfESin4ruUt676Q9K6cglvjPYYOTydW S4Hl+KTPofeJNVOguFDYIOlH+aOdgodpqQHCecRIwfHFnh+fWBAbpkD1lts6 W2azFORW9zNYqEVsnYLfxRayka2c/ynoLl0WbxpP7J6CJt1NQTMbuP5LQa9f BdeWD+X7XwpKnkyfPmoE138pmH2opq2ug9ZXmgL9qTE7BBf59wgp2Guc/2BN NMUru3O98lR/LEzn31um4MCbqdszLSjeB1OQk7bNtdKGv9ekQL21qsHiCPd/ U7Dj9mMbOwPav0tToFnt2WiiTPqqSMHAisLw9TN4/0/B1U/VPTMDSY+1KdjY vbkm+inlT33n3x/Y2zBwPXFzp79vXYf91424NQVTyrJ6DD9P+u5IwanZf28f kxDLpCLrbfnNKeuJ5VMRavwprMycWDEVgtmnLo1eRayUCmGcpVu8D7FyKrb8 HC/7LJ9YLRUKy5aOffWTWDMVchlO/brG0Ptop8J07rniKbNpPkjFi6ezLozU oPkapiKq7GnTEAHf/1Jx02VD2p2uXP+lonBJmnH6e/6+lIp4/f3nx6rQ+run 4trRIsezm7j/k4qT9SY/BvLv98NS4Z6r/mAJ95eEqRBJi1XmDeX6PxWrQkQP tmuSPjJTUb7n+7mPyqSf7FSM0zXc1vaaOC8VK5TdO26H8/7fOT6q/NehBuLC Tn5mXZg4hfRbnIo2cdpS7VXEpanoPdjZ9ZwTcUUq8jTiUo+tI65KxWuzkbmv jIhrU6Gz6EDlX3Xi+lRII0d9sOtK3JyKXsnd+vXm/GtNhf6v9c+qdxB3pCJ7 aUKhty2xTBr6HDLdmadILJ+GdH+Vf1anOf/TEHEjS3TWiPM/DevPt5tacH2o nIbgURMUbSfy/S8NbzTvRhq6c/8vDZraJ3MOivn8T8O70+t2O8Zw/ZeGqi0T j/bm/z/PMA1pt6tU/6nw70nS4N+v/XBTFJ1P1mkoGu45wf0J93/TYHI91HUm 38fd03D5x4upJsqkL0EaTq389aNsPt//02DY/mrZ7It0HgjT0HB3df1Tczov pGkQrDiuovGtkuKfhrWRVtr71hFnp0Fx1fYVm0KI89IwrF1UlDvpDsU/Ddsv Bi2NWkPPK0yD7EFH50EB5K84DXIe1cssLOj8KU3DeMVeIQaL6P0q0lA98LC3 73TKl6o0HK84vKvrGM7/zvXqtxXhvShf6tNw9JJ+r2kdfP9Lw+KzV6cN/ETr 0ZoGm49VGzZ/p/2mIw1x/ymEfhjO/b90nE/OEoQ5cf8vHTOFSTI9H3H/Lx27 AnbYV8Zy/ycdc4qyPWsduP5Lx/3WaK2C81z/dbLsx8YX9Vz/paO20naadDD3 f9ORGFvqkLuC9IJ0rHeqcX8Rx/f/dLiv7mt8fSfp0Swd8yW6ZxJzeP9Ph03l 0N+O3lSvOaSjfJyhc6vCW4p/Opq2eAqSYokF6XC71FVN+wJxWDoKJq5sq71O LEyH/pI/u+/sIpamI/fF+pwMA+LMdIwe886p7RL5y07HKJvq5IyBxHnpULpo nC1nQu93MB2ls51kEMH5nw6LIQm2gw/y/S8dtlKDDIcX3P9Lh7Pqstj6sdz/ S0fhxFPN3YK5/5cOcx2VfpK7fP6nI68javoDDe7/pcNV+UqsQjr3/9Kx1fij Rhzfb1vTcWJx+2cZ/v+tO9KxcsvIz6v/8u8/MzAw9+QqLy+Kr3wGMl75bttV wvHPwP1Tb7K78X6rlIGPNmu2tHbn+i8DN1wWVikO5vovA3lDu0ouTyC9ambg sE2bcM8y0rd2BoI31886nUX5gAwsf/Ez5bcq5Y9hBt4c2aeemXtr4f8BE5d+ DA== "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9m3lczdv3/5OhTMmcuTIlJIQy5KVIRSlRUZo0j6d5rlOdczrNISQiGXMN GaKMCckQJUMIGRpMSUTmb7/Hb63P/ec+nne33uu993qtvdde73NVnPxWusjK yMi87Soj8//+/f//aV24sni0+L15/UL6D7DJbnroaMYsj5j474pTTZkVMdy5 VrfLMuZBeHfrX4+LBsxK6Dt+os+6Rcwj8f3CGs23c5mVcbj4eWXQTGZVDFc9 vmT4ZOZx0P3lZt2hwjwB9Td+RE9XYlbD/VQVjfd9mdWxZf8XA5OuzFPgoLb9 i+znF8QaGNRjuofLU2ZNLN5cLTesnHk6FAZpPQ06zjwDO3Q0ku/kMs9E6JV3 38JSmLVgrLa9riyCeRaaNCr8272YZ0N+q/9QC3vmOVgwqGbUkNXM2ng57fIB PxNmHbSU9ymSGDLPRcEbLZtQA+Z56BP/ffrKpczzoTxh+vcRy5gXwK5molel ObMu1mcOdrawYV4I78EVgzPcmAHJjENSyxBiIbB5z39zgxN5fBF2/zJ6cziH xxdh7Swf29PHeFwPq/RKtujx+gn1sNxfo+TXMx7Xh3Od1lLJNx7XR+iPHZqX 5Tg+i+GWa5ZqMIhYuBinL7x5n6fM40vQsSm3JXcKjy/Bk8svX/fW5nEDOEqK tp7V43ED9M1MVo1azuNLYTBZp3j8ah5fiqSjvfwzbXncEE5vhsvlOPG4IZRa RsaPd+NxI5x9UH1rhCePG+H3Xl01by8eN8aTXS/S+jALjdHnS/bTH+48vgxy K6rfz3Hh8WXYYFchrrbn8eWI2Fgwrdaax5dj9NB3b9b/L99MsObOgKKNnE9C E4Roqq6QzuNxU0i360b7TONxU1Tvztnkp8rjK1Ahtrl/6X/ruwJ7vs65sbEH j5sh5oz6+IWtFB+YISxsr6VuDcfLDBre27D1NHGpGa7Nmx9ykfUgY44v3xow Ucj25vD+Jbq+iPUlNMeA4xkTw83Y3hx+D7clTZ/P9ishM++Abrk626+EsZmw PXEk269ElY2+0rn+bL8Sz2W/OG7pxfYWGBR4o2SRHNtbwFrmit0DZqEFJjiF e6zpw/YWUP4g2XdtENuvgp5nzcUuKmy/Ck4jf5xt0GT7VYDCq5NzF7P9KtwZ P+36ubVsvxrCegWNoUFsvxrS/BsBnzLYfjXap409X3eE7VfjvtMSdd9KtrfE F8PcxZNb2N4Sxv33XbjJ+SG0xF9hYH0W73ellji+eLDK9EkcPyu4G34aY6tD DCuU7ZP2qDFkeysMfHN06yortrfCte+jTPKd2d4a4zYnRcUJ2N4acn4Jkecj 2N4aM9PenxmbwPbWuK1zqCQ9ie3XwDhnm+yzNLZfg3URVWXfMth+DQ7/q11T yVy6BsMfS/Js+O9l1qLX9bM/90nZfi3KZH7NPBvH9msx1/z9lGNhbL8WUXrt jnt92N4GBmMzVl12YHsbvB7rUa+1ku1t0FLkKdLi/aHUBhvjB+/7pcn2tvD1 7Lh5czTb22Lhupq6xt5sbwu9yaV7Nfn8KLXFlr37ilbd5Pitw7r9Fa9q9nD8 1iH5trDIKIbjvw5Z/wYqmrNeStehSGbGxThttrfDY/GOhz7D2N4OU75f/L3z z3Oyt4OfmSh7UwNxqR12bDmsfL6aWMYeMseXbg0rI4Y9tPaNsx5SzPb2qLh8 ZPWdE2zf+fd1PZ9cYZZxwHxXlcdd+e+VHVDx3ueB6H/Pc0DfufmmE+8ROzig bO6JA6cb+fkOOPDwgee7f8R5neOfS++4jeL5OuBq63OHK7rE9Q4443jpfPx6 nr8jZO+YYTSfp8qOMCx6XCRbxOvhiPxCl28b64kdHFF3vHdFFu9fQkf8rhq4 qO8o4jxHVGLfhrVcT5Q6QnPG4LFjjYjrHVFvarK6rx3H3wmj7l2rL/UnVnZC ZcxK+2bWO5zws6L3lxlZxA5OUPQp/L06n/07obdK1zsKR9m/E5YbHVg07gz7 d4LVXVcV9wvs3wnyis+XFJey//XQvjrN/h+z8nq4dhuzbtZF9r8e9eqtQfbF 7H89bPcduZVxjP2vR3Pb5Xtv9rD/9bAqmesp3cz+16PRquj5URH7X4+Iw2m1 m3m+Ms4Y4CI2TeDzUNkZh0qNpFeXsH9nmJ5snHVkKvt3RtL14G1b/neeOGPv zAMBF9opPnnO6FCoHnr3MsffGa8Dy4ZMSef4O2Ptqj7I/1894gLrsI37ZSZz /F0w4HdO4iDWP1yQ+elF0b7/6c8F/otctgccZv25QFWwvGNyCuvPBYIkcZbA j/XuAqteh8bdWENc7wKHmPx9e41Z/65Y4vXJZ7Ue698Vhp9yJ/RbxP5dIe1u d7PBgP27wlhn3vFKC/bvioqX5lt2uLF/VxzLV/TtHc/+XTH7q/BecT77d8W8 qkVlk2+wfzcYm+/1e/iV/bvh1Or4JqXxrH83NO9f7qG/hvXvhg79vQ7Zmby/ uGF+1fieprwf5bmh2KDg43VZjr8b1K8Y/rjE9VS9G3bOe7Zyhy7H3x3uk3oa NNlw/N2x7+rLjEm838Idp4uLFT5s5Pi7o23HjPsl/3H83XFQ2SlDtYz1546j s51mX3jA/t2Rv8H5pnoj+3eHwhhd+WFf2L8HghcV1Sz+zf498J/CJI2oLi/J vwd+Fp7dsEuW2MEDTnmTs/P/sX8PNOeHNaZ0sH8PdPEM8Qj6yP49oKC4sYvk Ofv3wIkuO2/8uMX+PTF6lNKUIafZvyeGa7r+nJLL8/dEj6FqJ7bxeeTgicSM qf1K17N/TxyfKfe912L274lB+Sh+z/VXqSduRdWIH8uwf09Yt7sMzD/P+vdC Y6Fn2YFQ1r8XLqqZF9ydyfH3gueaI4smt7H+vFB+x8HzzknWnxfCiqYW3Qxn /Xlh57bHWyYtYf15oTlDerphCOvPCz8HbCt9/ekZ+ffGCV2vhe+riJW9Ybpr UJ+8s8TwxqmWjMaoI8QO3jhaZHrsbgGx0BujkyqyzhwjzvOGnM9Ui/GXiEu9 kad8yuPZI+J6b5wbe7Q18gf790HsYf/08LGsfx/4qpxt0VzN+eeDtz2fjHyT xvP3gVxd3KzLt3n+PvB4vq5voyLr3wd205J2OXG+lPrgz/n55nP38f7jg7P1 e0ydv/D6+yJgaP9iF75fKvuiecHsYRP5vIAvPhc9LLDn+sjBF0nBlZWBWzj+ vvjW7JNz9SzH3xeZVsPcTtRx/H3xZ/yEhXm/OP6+UHqlOaBjCOlZxg8XCxQd p2kQK/thx7nsPrfB+vdDr0Mj69xNWf9+KBris6LEkljoh6OP9GxT1xDn+UH7 mHV1JY+X+mH7m5ELJWxf74fvvVQCHvPzZQTIbr1zpiv7VxTAcJXRMkt+P2UB As7Pd5j5k95fUwDFzHVLez3h9RHg9gu9Eas4f8wEKOp23GAD13sOAvy8eqCP oSuxQIBJmTl9u/H9RSiA3PS/OZYKxJkC6OYcUzzG50eeAB2rzo5f7kpcKMBZ /3P193pzfAUQNWto7+Z8qBLg0nXxUFV71rsAMubyGhX9iFs77XXO9exxnfXn D73NFlf0JcSK/jD10H1+z5TzwR92GZbmL1WINf0xY3lsg7cM54c/9Kucp2i/ r6P5++PJPe/5Za+IHfxxtG7oaL0mYoE/TniW+e3vIBb64+amQr1tQ+h5mf6w /O98QSI4nzr53cr2/4KJC/2hoboWw4o4vzqfn/jybvkf4ip//G3Uer3NlOfv j/hx5xq89/P8/eFWWeI7sBvrPwBKWYHdbXh9FQOgOb7H2J63eT8KgMbB3Yfe D+P4B8Cyn4rlHO7/IADjFB4/mx7P8Q/AsC6p2sOLOP4BCBnh5DGO939BANp6 nC6KHMT6DYAgyqvOYCFxZgDOjqvTPurCeg6A9wOPkNcS4sIA6HSIddTzWd8B eLHnQWv9aeKqAKjU5jZIr7LeA2C9cObe2zeJWwOwv//rbwk3WP+BUBtd0XKq lPUfCL2xG6s2FLL+A7F8osW4oG3EmoEIUs5NfxDJ+RkIp776Xkutic0C0aN5 lInnNM7XQOy8fCa2kc8zQSBMfm0XuFax/gOhPfVx8qbtrP9ApC7/vWcw38/y AjF+weCTWerEhYG4vn2YX9gL1n8g3vU79zvGnbgqEHtLHE6e+8zx73ze3oAL t6I4/oFw+PvmkE9vrj+CcE+31i12F+s/CK4lTxK+zWX9B8Eyp+TwvRekV80g yNTq/+uVSYwg1N4vyQw1Yf0HIXbos7klw1j/QbjdtF1N9dtTmn8QNr3Kv737 NbEwCD+PGF86/Yo4MwgnTs4Ic/9CnBcEr/dr240G0/MKg7DX3UNbvJS4NAj6 B5/otEiJqzr9ZcZcHV5LXB8EzV+7n0fOpPm0BmGHXcL04G2c/8H4b/00Sz95 Wg/FYEz67f/lVQyfR8F4s+VTk80vYs1g5LWvlAuO4vM5GP3r1/115fPdLBi6 quE3YvRZ/8G4ba0YeVnC+g/GvwVDDWxvcPyDYXdko7tLL9Z/MD7Yte5+Ysj6 D4azqKvvngTWfzA2eT5Zt7WE9d853rbcV/qW9R+MwJjJZ8wGvKL5B0MyaLvJ qxnErcHoM+jeTStjYpkQTN7htL+rNbFiCASPjouibIiVQzB9Tc31vauINUPw YbqiymF9YoSgcaL55l6TiM1C8O3G65XB3YkdQlA58E3Jnces/xC82qTxeOAB zv8QaMf7jzH25fmH4Obxrx/9NHn+IVBXu6IU0ML6D0HEmnF2Ewv4fA3Bc81D FeaOxFUh8Lghkds3lM/bEMQotrvnbaN4tYbA0L8lYkBX3v9CcfW/tUs1fTj+ oZDxSrtc+pj1H4q/9+o/Vhrz/h+K4U2urQfKWP+h+Foe5fFMn/UfCt3tDxPV qkm/DqGYEhocYe7D+g9Fm7TDWH4E6z8UjTe7BZbUPaH5h8Jzxu5Ex1PEeaE4 V2//w3kPcWEoTq+/qOh/iLg0FFaqB+s9bxBXheLJ5wEX/P4R14cCNxtONBuT v9ZQONn/yDpWQCwTBpmWj2/A+aoYhj5Hu/b/soVYOQypO5ZpqSvz/MNwCudX C0/w+ReGcb/sauuW0fqZhWHHha+h4e+4XgvDzLj92Q9Tab0FYVjmmB5Xzf0s YRiy0mUH3eH+aWanvdBJ9jTff/PC4Dnp8q6riqz/MJxwvHNGwZH1H4YHssND I46y/sMgb+EZcOE77/9hCJAJL3Gcx/oPw0SjGoN7oaz/cKxIj17r+x/rPxzW XnLB+fdZ/+FYcrXpabc21n84+kfvbAqQfU3zD0fwnPuvJ3cnNguHSZmDXOMP 1n84rKJ/DnxSTywIR7tH6tmys8TCcHwrKta5IyXODMeHts/v45cT54XD7GaM YY4ccWE4YudpW9ae4/mHIycuuaDRk+cfjtOrOsbrcP1WH46jb69OlLlE69na +fcrxsapcT0mE4HeBo97uPUhVowAlic1b3Xm8z8CWeWHPU4V8v4XAVN7O3Pd vxz/CPhZFPhkcr1kFoGxp95Mc9/D+38ESo5dN/z9l/UfAeOZizy7ObP+IzBy 0kGZwges/wh0XaP2MNmK9R+Bh/PsNcw+Pqb5R+BcU+6toznEpREYHX9zmux6 4qoIuDwpHixnRFwf0XmDGbJtoylxawRaFj1sXBVELBOJ3clGAcdLiBUjIVFP PXl6JPlXjoRMg1nr/BxizUhoCPWtpmrQ+yMSBi83WbytITaLxDP1vuGlEp5/ JMZ0VZpqp0frI+h8vp6V8fCufH/ptPeNv6xcTpwZiU/n2jL8krj+jcS3JbYX H4/n/S8ST8RTRsvzeVIaCQffP0Na3/D+F4n37+5HzNXj+EdiUVZ9tF8u1z+R yK5D5Yt2rn+iMMB4iV0WnweKUdDXGqFtkMP6j8Jgmc0e9q9Z/1GYkztzSI9x rP8o5Pb69X76WtZ/FA4/3R18K4HYIQoCgXlZzU5iQRT+21D4akMBsTAKL2yF p8ryiTOjcEjtiEZ5EnFeFJ7NuVZ6xY64MAprdXbWXlAlLo1CjI9IlPqI3q8q CoY3Xgw8G8vnXxTmD+0H/dGc/1EQd48ft4TrRZloTOixYuIhY67/onHn5YiW pmd8H4zGlhWT9j3hfplmNCp1RumXcn8e0ShYsufidlC8zKJxsDiuoiCU979o vH4yaUHdKY5/NBZW1vw1+F/9H42donEWk/SIMzt53k33SZu4/olGzqBrc+M+ 8P4fDadz19pHmPH+H42GiN6r8ktZ/9E48r3n5cBFrP9ofEzXHZz8sJbmH42t C/YnGoiIZWLQujD99cQVxIoxyE7/2Og1j1g5BjZfSz7uWk6sGYP68tFL1cTE iMHI0XWbbjYQm8WgsfyTvakP+XeIQb/+wTEmSvS+ghhsPHYOpi+JhTG4HawT PPsy138x0NiX+KlvIa1HXufz3Br83+3j+08MBt1N2HN7O/c3YmD6cfryuXy+ VMXgSNvQ8gv8PaQ+Bk9ddxuUHuD9LwY71J/mXevH8Y/F9zUKei/8Of6xcEuV xFne4fo/Fk47vntGjmf9x+KPRdDaaD4/EItA1yMDTK5y/ROLnL9bRiT2Zv3H YoWJxU6X5az/WKTZRD0vEbP+Y6GaomTVUsT6j0Wi3siBA5+y/mPRY4nJ9/Y2 1n8s6u/PtDP8xfqPxYAux3fd+0xcFYvbI8xLTt0nro/FhIlyNYWcX62xMFks pxNmQywjhFeeQv7Hf/T+8kKohbT3NN7I+4EQaxdbTFUcQqwkhKzvnw1lGbw+ QjiaS/s5dSNWE2L71CDPKu4fagphtva/GbGvKD7aQphcORu95yX3d4S4eWyR xtc2iq+hEJrjNnyfpsTniRBWW6K6+5iTHqw7/T0Y9/p4LtdXQuxL+DJS/Iv0 5C7E/KIbC508WG9CzPjc475iI+kxTAjRHPWUlwJiobCz3urX8qgnsVSIeC2r pGvHSc+ZQoRePHjB2pM4W4hMrQE6o2cT5wlxdMNfb38l4oNC/LWpCrUcTFwo RFUfo/lzphMXC2G9oP+4GAFxqRAh7Ubd+zwirhCi2NCjb5ob57MQ+crny8+p 0nxqhRhz4KnW8R40/3ohvGs6XP0VaH2ahdAdkrHx3XS+7wixTDz0S6orrXdH Z/wODTcJyeP6Nw7fhr/c9sOD4iUfh0yju7Fh3K9SjMM1y7bP/4QUX6U49Ov1 SLqmg+Mfh7DmsWanHEgfanHwun1zmiXXN5px8GnIydDpQXrTjsOZV3Wux5bw +RGHDq3r3QdGEBvGIXaCp8WmvXyexMElMXFev3Ji6zj0ujM7WeYF51ccnHVX hgo+EbvHYfFUl61t3zjf4tC+RfPn3q/EYXHYcWyS++wmzr84RKlu3NZ+m1ga h9mGe/I+7uF8jEMfi7czBnkSZ3f6c1jpmzaK8zMOinMmWna/QPM9GIfi6O23 lQy5XovD1aO5hhcv0XoVx0F9QdbErAlcv8VhS0rKvq9CWu+KODwT2PTxKuD9 LA6jzl3ePNqc4lcbh/y3s1dk9OB+ahzE++WDCx6QHprj8Nez+ZjzddJLaxw0 nix5NuIl6akjDrLZW2tyxnH9Ew8nk27LzmSS/uTjURji2aKlyudBPOIVAtNK 7j+i+MdjpF63LQf2ECvHw6fO/fT1ZGK1eJQ5GvidlRBrxsNthunc2ZuJteNh vPtCl9FFxIjHPg/lhOhGYsN4BD8ziQ1R5/MkHnN/5v8em0BsHY8xDjPWBnwh dohHySjlCQ0xNB/3eHTfvLBx4STO/3jMfpB+usc34rB45Gh9OlLVxPVnPBI2 9F8Z8I/yRxoP/X5HIofP43qs019bqmLWZopHdjym2ws1O7jflRePtoCsHR+4 f3UwHqfzip+Z/+T7Sjz6Hc0VxxwiPRTHY4SyUbWrEe/f8VhpmHrXp5q4Ih6e 2fva3+q+ofjHIyPPIX9FJnFtPML7j16kUE5cH49L5ZcWzHlF3ByPeZPfpnRt Jm6Nh0jrWPbSp8Qd8Vju1NOm4RKxTAKEwb4WK7YRyyd05kP7YQ1PYsUErFzR w2C2FrFSAqyMvHaM6aD3VU6An9Cp7iqfX2oJKAxznmXkTayZAGnbT6Ulwzn/ EzBy4PExXzhfkIBw3an+DquJDRMwyPXj1/3PuZ+WgHFvIvLncH/NOgGhPhpb 5lzm/koCBiqIr77j/qR7AlaVd7yfU0HxEyRA5ln/stsGlC9hCbhbcHKl8CzH PwEnunyXtZlO+pAm4HCryRHtc7z/d8739teT/dxJn9kJGKPS4jjd4CHFPwFK +/1LmxweUPwTUDxE//ruS/cp/glwFo7tn+dCXJyAtktbJG3mxKUJMDff1XNf LHFFAizLPn6d0EhclYCCQ4qmoyPo+bWd71PeTf2GBvmvT4DtgoS75d+JmxPg Hv7evvomvW9rAtSWa+FlHs2nIwHV48bIh4dw/ovQ36X/4bnLaP7yIixXrRs7 WoXWR1GEVPO7udt/ESuJEDK4Tenrc+4PiPDUZOCm3Lu0vmoiuJ6OW3yFf5+g KUKkfc3Pa818/ovQ8NtIaJXC9bMIYd8mxtycSvE1FMH47IuUuCccfxEsW6pr LqeTPqxF2GSkcGq+Ae//IrjJ9NaczfWQuwjHe+8Peref9CoQofTx1YCxeg0U fxGifDomP79GLBRhzq/qe08nN1L8Rcg39dvW0484U4RbhuM+XUkhzu78++gd f/sJifNE0DR82v3tMuKDIti8TT667zM9v1CEN1N12g1DiItFqNZWHOj2kt6v VASxo3OI+XziChHO/zj5dksm13MixLye9nZtI82/VoSW1mNm07j/Vi/C1m09 x9wqoPVqFmFKudyIqOF83xNB8lN36cdNtN4dIoz0+j2ueSDf/8U4mDFZo3Ia xUdejI1Bdtsb5nI/TIzufiUXKhZTfJXEWLBcrvtQY46/GO6fxacPG5I+1MTw D2pd834h35fF+JOw4LrMdNKbthj9lPYOVhnD9wcxfD/kdd/Tj/d/Mdwai4ta epKezcRQP/rw6ayhpH9rMZzvz3//YxHlh0On/3Xnf/lvrqH4ixF0cc/hppHE AjEUel58pvT6HsVfDPFQUfumz8RCMbbZGj9qWkF/LxVje+L7rsGy9PxMMULu LdW+K0/+s8U4eyJN1MWW81+MCKeWkekf6f0PijFq7rHTOMj9CjGSfB8nrwqk 9SkWw27MkH2D5/D3GzGGN5zoNYDr4YrO9d6/0WwY/36lSgzLsVEz5rwkrhWj enjhr2j+/lAvRn3FecGgbqSH5s73XdOmcyOa77tilA6RbYl8T9whxqpnAvH1 FVz/S5BQUO/66DCxvAQjxJ71K7vx/i9BWfZIqbkV7/8S3BhuPcSc80tZAlfF lPJJn4nVJJDMj13XZQ7pXVOCRVtTuy5k/WtLoHC0fX3CYWJIsMZTOqjgIbGh BAeWzHWtbiU2k0D8eb58/DdiawkumLvYPH5F7CDBpCWeRa8Kid0l+PHtvrKS LbFAgvEKRpFjON/CJDAsbo+6wuerUIIzciO1uoVy/SfB3POl715mcD9OgqJe +w3XbaL1zpbgiuqKL8vS+fyXQG/Ju7KV/HvFgxKMPJxSs3IB31cl+PvDRvZ3 BsdfgvS+8gF53F8qlWD2Za3HyW+4/pdgxoqAIUpvSE9VneMRJolNg4hrJVBa OGbGdj/e/yVQ9n2/v8dH0mezBL61GQX1EuJWCX7+fGg7Qpu4ozN+tRPudvtD +pZJRJzXoNPGNcTyiTAwee7ztYRYMRH92j4q2B8nVkrE11ODynCOWDkRiZMC TE88IVZLhEada+2cQeRPMxEmo1+KzvkQaydCMTDqm0sLMRLheqH7K52dNB/D RCi90wm1ENN8zRKxXf143LFDXP8lArOcHwcMoPVzSIS6/dKddedofd0TMfPT ouZ1/D1L0Olv+LyJu/n3l2GJ0KwcETapmfvPiTj1ZNb2qG8UX2kiojJUV2R/ 5fh3zi9NRUnwiOv/RDzf3zosdivpJy8R3856d588nfR2MBHnXT0OWe3l/T8R ekPPK2z8wvt/Iqw/hXqqjaXzojQRFx/dy7TUJq5IxNzLvsfSmKsS4eIzc/sj NeLaRPR9qRu+ri9xfef7unr4jnpLz2/unN+LaIWaC8Stnf7r7MLkU4k7EpHy dc+sBRbEMlJM9lvxU3EAsbwUbccafNy5vlSUQihv/zrFh/NfClFafBdD3h+U pVgyYVav0Ylc/0lx6eeL0Kz/9cs77Tv2JJ7h80pbipOGRgFVYfz9VIrQPi9t l/DviwylWHfrSELjBO6nSaGyRvaBE993rKW4L/ch3/gRx18K/dHbFgecIH24 S1ER++bJ9eOkJ4EU3749OJTzgfQZJsXUez5a94NovxdKYWpioHd3NZ0H0s73 bRigsjOrmuIvxeM5Tdp/NYmzpdjz+9z36ROI86QYnjh4ipsX8UEpjCc9T2v6 QlwoxS/figEXjtHzi6VwXtDywTaN/JdKcTPwR9P8KK7/Oueztvqapx/lR5UU hzyf+w22p/nUStHxpzF9pyHlR70UjttGxuRMpfk3S3HugvGH4AHc7+5c7x3x wwz+8P1PiqoSzciWr7R+MkkYuObVUqkMnefySfg97eGMlxP4e3ASsi63tjbx 9zGlJFyaHSd695i/DyShbKLfZDP+/YdaErrJXXjQZyN/L09Ce8esxrdRHP8k PFc/kTXRn+//SVCclHOl1JX0ZJgEZ70/baqreP9Pwo5Zys3600jv1kn48Met 8loLsUMS3Nf/mVKV3ETxT8J4YXKd+x9iQRK0XplvtdJrpvgnYe2FMQGPLImF SdhrIfwToEMsTcI/H/uha9+RfWYSdlboPND3Js5OQnb2NWnsNa7/kjCzdo7U XobrvyR4b2v4parO+Z+E+5WWe9aa0fyKk3BwTUbd92i+/3XO95nPjcQSWp+K JMjo5eyfwt9Pq5KQfGNIt6v2tJ61Sbh4wPqkWTn3N5PQq4vT5qGziJuTcPtA 9wG7+Pf2rUmQdVy4658293+S8MtFr85lFH//TsZI401BWj9o/5RPhsangv1O /D1RMRmpN3pb3E4l/Sglw3H1HQPRYu4PJyPhkPrbwV9Jn2rJuG70dnDubt7/ k+HUzTEqdzXpWzsZw7o+qcwcTvpHMvLMfafO/U35YpgM4Vz76jc9iM2Skfxr 97GLBlUU/2Ssb/q5tjn9LsU/GW/zJs0coUbsnoyN02xXFfkQC5LxeGdZlqwO 2Yclw8Aho2aGCj1fmIycjqDTA/05/5MxStOq9bkK13/J+Pva2f6QCs0vOxlq LuU77llw/y8ZfT7LqX3cTOt1MBnLj8ytyLvOv1dIxpR5UX/s+D5UnIzcoV11 Qy34+00yDK/MediqSvGtSIblALHsYP5eXpWMGX/6LHMP5/o/GbZV2ZWP5bi/ 27keS38vGCslbk6GUVNpQ+wf7vcmo9LjmsJGvs93JOPR/ZX9bav5/p+CS+Mn JujO5P0/BXqTvNu/ZhIrpmBh1ne9jHfESin4ruUt676Q9K6cglvjPYYOTydW S4Hl+KTPofeJNVOguFDYIOlH+aOdgodpqQHCecRIwfHFnh+fWBAbpkD1lts6 W2azFORW9zNYqEVsnYLfxRayka2c/ynoLl0WbxpP7J6CJt1NQTMbuP5LQa9f BdeWD+X7XwpKnkyfPmoE138pmH2opq2ug9ZXmgL9qTE7BBf59wgp2Guc/2BN NMUru3O98lR/LEzn31um4MCbqdszLSjeB1OQk7bNtdKGv9ekQL21qsHiCPd/ U7Dj9mMbOwPav0tToFnt2WiiTPqqSMHAisLw9TN4/0/B1U/VPTMDSY+1KdjY vbkm+inlT33n3x/Y2zBwPXFzp79vXYf91424NQVTyrJ6DD9P+u5IwanZf28f kxDLpCLrbfnNKeuJ5VMRavwprMycWDEVgtmnLo1eRayUCmGcpVu8D7FyKrb8 HC/7LJ9YLRUKy5aOffWTWDMVchlO/brG0Ptop8J07rniKbNpPkjFi6ezLozU oPkapiKq7GnTEAHf/1Jx02VD2p2uXP+lonBJmnH6e/6+lIp4/f3nx6rQ+run 4trRIsezm7j/k4qT9SY/BvLv98NS4Z6r/mAJ95eEqRBJi1XmDeX6PxWrQkQP tmuSPjJTUb7n+7mPyqSf7FSM0zXc1vaaOC8VK5TdO26H8/7fOT6q/NehBuLC Tn5mXZg4hfRbnIo2cdpS7VXEpanoPdjZ9ZwTcUUq8jTiUo+tI65KxWuzkbmv jIhrU6Gz6EDlX3Xi+lRII0d9sOtK3JyKXsnd+vXm/GtNhf6v9c+qdxB3pCJ7 aUKhty2xTBr6HDLdmadILJ+GdH+Vf1anOf/TEHEjS3TWiPM/DevPt5tacH2o nIbgURMUbSfy/S8NbzTvRhq6c/8vDZraJ3MOivn8T8O70+t2O8Zw/ZeGqi0T j/bm/z/PMA1pt6tU/6nw70nS4N+v/XBTFJ1P1mkoGu45wf0J93/TYHI91HUm 38fd03D5x4upJsqkL0EaTq389aNsPt//02DY/mrZ7It0HgjT0HB3df1Tczov pGkQrDiuovGtkuKfhrWRVtr71hFnp0Fx1fYVm0KI89IwrF1UlDvpDsU/Ddsv Bi2NWkPPK0yD7EFH50EB5K84DXIe1cssLOj8KU3DeMVeIQaL6P0q0lA98LC3 73TKl6o0HK84vKvrGM7/zvXqtxXhvShf6tNw9JJ+r2kdfP9Lw+KzV6cN/ETr 0ZoGm49VGzZ/p/2mIw1x/ymEfhjO/b90nE/OEoQ5cf8vHTOFSTI9H3H/Lx27 AnbYV8Zy/ycdc4qyPWsduP5Lx/3WaK2C81z/dbLsx8YX9Vz/paO20naadDD3 f9ORGFvqkLuC9IJ0rHeqcX8Rx/f/dLiv7mt8fSfp0Swd8yW6ZxJzeP9Ph03l 0N+O3lSvOaSjfJyhc6vCW4p/Opq2eAqSYokF6XC71FVN+wJxWDoKJq5sq71O LEyH/pI/u+/sIpamI/fF+pwMA+LMdIwe886p7RL5y07HKJvq5IyBxHnpULpo nC1nQu93MB2ls51kEMH5nw6LIQm2gw/y/S8dtlKDDIcX3P9Lh7Pqstj6sdz/ S0fhxFPN3YK5/5cOcx2VfpK7fP6nI68javoDDe7/pcNV+UqsQjr3/9Kx1fij Rhzfb1vTcWJx+2cZ/v+tO9KxcsvIz6v/8u8/MzAw9+QqLy+Kr3wGMl75bttV wvHPwP1Tb7K78X6rlIGPNmu2tHbn+i8DN1wWVikO5vovA3lDu0ouTyC9ambg sE2bcM8y0rd2BoI31886nUX5gAwsf/Ez5bcq5Y9hBt4c2aeemXtr4f8BE5d+ DA== "]]}, {RGBColor[0, 0, 1], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9m3lczN/3x0OSPUuUQqGEEELJ8qJdlihKwrRP+7TvNU3TNNU0pUgiIhFC lshSQpG1QciWZKtsIcnar9/je8/HPz2ejzv3fe6953XOPfe+3zSd/Ve79ZST k2vpJSf3/3//969t0f/+NrK/cui4ObBxSj9iReydn1EpHkasBKOnuv726sTD 4TpOM+XgBGIVmCWcPcXTJVbH4qV5n7JnEWvAXVtm1WMe8TgUGMjatywingDb 3V4zDE2ItfEs4V14vTmxDnrM29LXaSnxZFQtfGBWbUWsiyuH9X/9/o+nQcfu qUDuP9bDvrj2jnsWxDMQ869zTrgp8UzYpvt8+QniWZh5YPRWdyNifVyeL6d3 V594Nh4mqBiumko8B8NfJpv01CKei9qok3t6/bdeBhA7L3wdNpTYEPPa+jkI FYnnoVp272X+nxeMjdD54tLYfs3E8/H6Y4Vs233iBWjsepOUd5F4IVaMmbnf t5h4EX7/kPa0zyUGZr5aUlCUzJgPjFz2OG1/JLUvhsf9+pJMX2pfjHb9B837 nal9Cc5tGqSp7EDtSzDYsVOqYEvtxsj9c7fPDmtqN8Y+2WP/5pXUboKOl7uN f62idhO8/mSw4O5aajdFTHGYistGajcF1EWRuVxqN4Mop2dPuxBqN4PC5/dC XyG1m+Ordf/4oq3Ubg6foZqXa4qo3QJDU78vFJVTuwV0GyqnbP5vPS3h3Mdz QVYrtVuib2/VVJUe5J+lEAnlWnoPZMxfirdyFjYvVajdCoevpZtGUjzwrSCZ ffZj/nRqX4bGpM3ftUn//GVw1F2MRmNqX44Dkb45BcuofTkqG7nLrWypfQWe ZGpcLHWg9hWYFs1/XL2J2lfipG8B38WF2ldCbovx5yg3ardGnWGsYk93xrCG dp1e3idX+r01Lm0fuw/OjCutken/1vnvBuq/CkaT84V69tR/FUaM9Rz1wZr6 r4Jcbla8BcVX5SoI9x6e4rqQ+q9GL73lpi6UD7Aa4/ZbzPOfSP1XY+OTqJGn R1H/1Vii8+mWJ623nA1e77t2MLaL+Qc2cPzeIXn6ivxlg2Wp8WccahhX2iBw WMI7nyPkX1tceTpwZnwW9bdF+YbzE3tFUX9bzMwLVF/nSv1tsera8+1N/+l3 DTItd3d1LKD+a5A1crH162nUfw1WFBdpfxpH/dcg3uHf7WWjqP9aHOpxOERX mfqvhcrNNdHFw6j/WpTEedc2UHvlWuwUmHOuqVF/O6yqkz+1Xov62+GN5+Fs wUzqb4fWzwv+DjOm/naYeS97/OP/4ssemHf4q4TiG/ZQ8ko++0xE/e3x7IHd Is+91N8e5SEq02v+yy/r0N4j51FiA/Vfh7eDY2dN/Ef916F69IthIwaT/9Yh d+TCL4pjyX8O0PfW33NoGvnfAZcLEredW0D+d+jOZwXuvyhfVzpAZjGncto6 6r8eodrT7DRIz1iP6GjtvTv9qf96qA39EBcaTv3XY7eW5LIojvo74uPXU/uL hdTfETWp3gvuJFF/R/wbOeJ2vZj6O0K35YruJWqX24DzuldVhf/134CvY/hC bXo+fwP61i+/UxpG/Tfgw9bvn839qP9GvKg6Hvub4gsbMWXCncQfa6j/RoSs 0Nf1pv2uciNEdYM10uZS/01wczt4NVeb+m/CIPPlsx4Np/6bUGH+5UNyT+q/ CSad3NG/X5D/OFA/vajwzznGGhxsWiWYfjyb/MlBfvrAlqNBjDkcKDywqhGt Jv9yUDNRS//yLMb5HEzqdOr1ciTphYN9B+c/tOtq+B83cvBQQ+6ytJWxnBNe Dalb2PiYsYYTGtNXGufcZgwniHuWhH+rZsxxwrbmkpAxVxjznZA9JqJdn9rz nRCl/k1u8S3GlU74MPCD9rx6su8E9S7l4/ItZN8ZJ8aoDA34R/ad8bvg61Yj FZq/M5otpkUNmEPzd8bV68oZ4XY0f2dws7dze0bT/J0xcbTaHPUCmr8z1Bf4 zJ98i3GjM1oHJ8gSO2j9XXAeTzdVKjH/aLig0u9NhP5//nRB4IJJQ8yo3uC4 oMfUP4fyVpJ/XbDl0vRh70g/+S4weWp18V4w+dsFJ8ZvbhuRyLjRBU0TQ7fw skg/rjj/rs/7gt1k3xUG7UfkYg6SfVdMmu8/QFZC9l3Rc0ZcVUQp2XfFrdfJ ZZvOkH1XOKhZXuCdJvuueCRUdS88QfZdkcuLzZMrJvtuaF4jm5qxl+y7QWJd vdQ3m+y7we3mwLYLFG8cNzR6FPQqCSX7blAqUp2QQPtbvhu2nF09JHYF2XcD 9+CQ/V8pXhrdkGk0xcVIg+y7Y4ypTc7ZPmTfHc4XnAX7n5P/3TH58zPvl4fJ /+7Yryzb3071Ed8dby194oqtyP/ueO3e8vDWGPK/O9ZWZdQO/E76c0f7Q0Mj 1VrSnwfS15+8KT5C+vOA/E7nD68zSP8eOJerrrovgvTvgWzlHZGTuaR/Dxgo eUmvO5L+PfCv4sn+i3akfw/w9E3HzF1H9j3wYU/SVFMnss/FQYso32Z/ss+F h1f7uD6JZJ8Lyfsryb75ZJ8Lk+fmzrcukX0uBk4ZOqCsmexz0agXGlI0nObP RcWMB6N+mZD+uTiT02HYFk7690TJxdJFZcco/3ii6MFKWz+qb+GJh/O3uw4Z Qv73xD+L433aqL7me6Jv6QB3e6r/8z0xetOZO/doP6j0hOjswBEfKR83emJu /yn583PI/14wivF6vOko+d8LXN6a0V2XSH9eyHjOGXv7Htn3Qgd/Wqeokex7 4eGE0F7trWTfCyNrNcrffCH7XrAK9b829zvZ94Jx/2mGsnay743P5lnG+W1k 3xuiqPSphc1k3xt6bpoZLc/IvjfmO/w8KrpN9r3R33nxhcJzZN8buXPFtfx9 ZN8bJwoa7FxSyb43frq+qz9I+6OcD96pXLtbuYrs+2BZzfrL42aSfR/ouG5z XPPf+vtgKe/psFu0f/B9INkzoM+tnaR/H0w+ezH7Fp0HKn0QfNL75Duqdxp9 UPFcnK3TQPrzRU6tWraokPTni2VlvGMvA0h/vjgVnHZTzoT05wuruKsJm9VJ f754afLot86f58y+L0bc+Wdu+opxpS92m2fcWnGPcaMv7AeOHbL9OmM5P+QH vch3JtbwA2/Hp4r7dxnDD2r5bS2/mxhz/PDBq5hzh+zx/WARPbb/mLGkfz9s exxvs92S4s8PePAx62oUxZ8fKqoLr/Qopfn7Y94Uq66odpq/P4aequMsMCT9 +2PFt0LOJAHlH3+IncKO9r5D6++PgoGKGZeoHs73x75zh+T30Xm00h/1f/5K /tL5oLHb3r6FTdp88j8PTruMdwsKGCvx8NPY7Si/ivTAg5LHWd/8JsZ6PBTv UBUE/CV98NBn9PD4rOEv/8fWPOBI1KVTExlzeFB1fnA+Yw5jHg/2r3g+n8CY z8PGpOMau80YZ/DQ4bWtZ6w543weHO17buUZMy7h4erCTl3uPMaVPGTElC5z 1WUs48H5qXF+iCrjRh64ztPnX+rBuI2HpzbvihLe0PwDcLMgyWhYNc0/ADj1 afHLfJp/AI7qt+dFRND8A5AXaZPJp/0XAXD8errs6HjG1gHov/PmoeyP5K8A VMX9/bqUzhe8ALjOlE5RnUf+C0DJ4LVhma+Y/zMCwLG8u3nqZtJTAIqUzGcv IP2XBED4a8ea1r+k7wDMCrBznnmRsSwAF3qJJ7eISe8BsA77GFW+nnFbAMYf rMUiA9J/IEYsdr34ZgxjpUBUCmuOD1eieAjEuNYBU8cOYKwXiPdlHw6ZD6P4 CITXz5COC1qMrQNhOkFdd4sxxUsgKjI0uJU+jHmBeGPupNZ3D8VPIBbyl5jL NTLO6H5+j7CBv3Ro/oFwndSq0IfipyQQg4qjj3yto/gKxE2d2Otms9l6ygJR 9O6QuS3dbzQGIi5QtFWDzuttgVjAizNPm03+D4KitIof7En+D0Jl+35h0w7y fxCGH1Wubr9J/g/Ce1FKV2Mn+T8IN+7tTf+pSfoPQqJC0/GjpGdOEJYemdIq cSf9B0E0Z7euYTzpPwi8ztvHvbNJ/0Eocu6KbS0k/Qfh7e+KfOEx0n8QKh4J WwadJP0HoQHfrziXkP6DoNNetn7TAdJ/EJoi5w79uI30H4SH64e87ylgLBcM zzGrHI64MVYKhuWfov3KFG8awXj04USzeBRjvWDMmKO2I+YDzT8Yj1N3ns4+ S/oPxriwhXEFAtovgiFfHxu5g87/vGC0tmvGZA+g/SsYWhGxeYLdzF8Zwegw mvl6tzbtJ8H40NSg21BC/g/GvGK51z4g/wfjmp6rp9Ej0n8wLghCKltDSf/B 2Kvb07VGg/TfPf7WSSr3Hjxj8w/Bk4riqZeyGSuFwNZPK3+UK2ONEOyf8LwD CxnrhaDfnZuPhVqMEYJddtFXZ4xibB0CwyGcwVvVGXNCoDV+2KR/uox5IXC1 0BhTZsWYHwKTK2lVf8IZZ4TAIsvoX9Mpxvkh0O60fWfZxbgkBHd8TztcsaP4 D4E4RDOHX07zD0Hjvvu9TabTfhOCirp9Lx0OM24Lgc3JqZp7plP9FQr96cOP ZpxlrBSKO5x/96dSPtMIxbI+j2qSKD70QuHY16p2I9VLCMWE/h3pq6h+sQ5F 4e82e+1ppP9QBFVknX30n/5D0cyvzMndTvrvZuljh+fVpP9QcM0+1OM96T8U MSt1Xkj6NrH5h2Jw7bKQvRqMK0PRPvetpZ8eY1kodtwRWT03YNwYiuu3+rbV GTJuC8UIrlM/vVmM5cLwevyEiMoJjJXCcEc2JnzNIMYaYfC5sL29+jPpPwxB ouy3f2sYIwwpHmHrBuZS/IehU3111FwXmn8YMua8quqaQPMPw6GiAJ1Z/9WP YeBkvlvxfivjjDDoy1s6pNB5Pz8M/NSZ3xxpPykJwwfxvUyjpVRfhSHm0uhT 9geZf2VhGN7r98eFg8j/YTCzeKs/IZr0H9a93xmpln8n/YeDE3xbphFD+g/H 5dYeokvDSP/hOGyw9Xj4uads/uGYv76wqiCAMcJx3/JDx1JDxtbhuLL55Gir IYw53c/3n9QR9fMJm384HDr6Pbj9hTE/HC9+qeau/8U4IxxWl25v8R/G+ueH 40R6bHDUAsYl4TBIU3GVj2BcGY6zusX6iVcZy8IR+iRxiqU2G39jOHZNenxz SQ7jtnBc+PJJ1qRG+18E5ky+7d5+jPa/CHBelS8WrqZ6LAK/91wfVy/H1lsv AnpxjouizlB9FoFD2sfq9AxJ/xH4cXPawQw6v3Ii0LwiMSOPzgO8CEgbXTfN tiD9R+DKSqsT4Tmk/wioTkr/8a6R9B+B18lXtgeR3ksiEHjz85yYtaT/CHTp DDtzQ0D6j0CBV1ahXyHpPwJTnAZXHaog/Udg9X491Xt3SP+RGDjL9tO0h6T/ SLx+MK/icx3pPxLC92YZ6jcZ60Xi/rSqHlvLGCMSs9L2BY/IY2wdCbfzeX6W 4Yw5kdh5KKSjzpIxLxJLFf/Ghg5hzI9EmmllmnotzT8Shy6KL/RIoPlHore9 Zb/qqbT/RUL55OnHUTKqbyOht+7R5bM+jGWR2BVcWJciT/VuJFK+PN12QZ/5 qy0SL5fNMa767/wbhSP/Buwq3Er+j8KCMrvxqbQ/aERh2YP0Z62U7/WioPlm /8s5KaT/KMzreH70uDzpPwqdq8xyfbKZnjlRmPN30SC/RaT/KBj6FEZ8//eY zT8KH7aoLL9zn3FGFHJ+td/de4FxfhSkP2K2LiljXBIFrYFzG+uqGVdGodnS 3b39NWNZFPbXad05pczsNUbBp6kkdIs947b//31t8IajjOWiMaLyd0HnSDZ+ pWg81GrbOzubsUY0ck+s6p86ieYfjWcjTV3u36X9LxoNKpdHDJRS/ReN9OhP t7XoPoITjQv+c389MaD6NxqWldkVz+g+mB+N2Wl9vu+h+6mMaPCHONbm/6L8 F43xwX335niT/6NxfaeHB/cB1T/R+NzRX8tmNuk/GhdzlssbJpP+u8ejmPX2 XC3pPxop9Wv9lii+YvOPgXR8w8pPMxkrxcDApjKFa81YIwaDm4S6JU6M9WJQ 1Km47qUHY8SgcuivvfKujK1jsN14lP37tYw5MYj56FE1ajFjXgzi1X6XVo9j zI9Be/8o7Xu/2fgyYuC4+lZxM8VbfgxGtA04m5pJ8R+D4hWSkbNXUvzHoEbq zw3vQfOPgda9k806B6n+i8Fw06y+fKpH22Lw8JehwuInVP/GQigSG9fRfYlS LOYvmX+s6CHdx8SCd/frjoFPmT/1YtG3qnRTxAuq/2Mx88/3jbPfU/3Tze5r unb0pvonFh7XVHV4s5meeLHQ61o/ZSGf8n8s7qrMKWtqIf3Hot8kmfGKYNJ/ LIaEVfVMH0v6j8UT/oll6q31bP6xSHk5Ybv1XcayWKiOcnD/QdwYi8qI+LV1 zYzbYnEm5k/S4GHseXJxcHLYpRyzgrFSHKyD6x5UbGesEYdHwqQNpu2M9eLQ ESafMHcjGz/iEGqepWxez9g6Dkph74+HudD+F4f2ESeePJGj+i8Oo3VTi4yP U/0Xh9g8qy/twXT+iYOfau9LK6zo/BOHulHFQxPofU5JHGYu65d0lN6/V3Y/ f4aK7pZMyn9xePet9UbTUPJ/HD4d/uj0K4P8H4fM3yN2tCpS/udjy6frJ66F Mlbko9/hn4WKj2g/4OOJyxarF9pMryr87vOsz65I0rsGH38y53zQTmesw4fh nL0LzA5QvPBxVt5NOv4oYwM+KhSCVA4XUvzwUWubXz4ig7EFH5NbH6vu8qd4 4kNh6wvLOWaM7flQHD36mocyxRcfDdtrtYwa2Hi5fPSdZ1tguIf2Gz6atK9W RW9kHM7Hdcs2To0y7T98lCJAePgqWx9x9/N9yl8U8mg/4sNC54259TDGOXyU qJz5IqL6N58Ps40KjllLGBfx0Ser5Oe+fPIXH4tcjujvO8H8WcZH5Vqt+nI6 r1fy0RFbNvjXbaaHmu71Nh/clPqa6hk+5su+6dr1Z1zPR/WawH+WSym/85Ey dYgsr4jps5mPHkNavqrrMm7r7n9h9N6Ueqb/Tj7mRKrIWxxjLBeP1zmyfDNi xXi0xb/UtHrAWCkeBzdDM1idPU8lHjdli368j6X4iIf8gXc5hR2MdeKhMLDu UO9YNj69eByputDFUWLjN4jH4fcxwaaHaP+Mh5LHY2GaJZu/RTzmecarmX+k fBKP2h+vX0TQ/mzfPV7TVZqPl9D+Eo/ij+N6encw5sZDRewUPuU47Tfx2GlQ e/UR1Wfh8bh3pcrt7S7af+IhfcHtrdWH/B+POonWAesA8n88hDUtLn5Pyf/x uH9Fp8/tJZSf49HTXwFj9jEu6rYn7DniIOXzknicX71zZJYp02tZPMrGZE4z jGVcGQ/zEzsC0vYyrum2r7Yl2beEsSweywdZct/sZ1zf3T8y94aNiHFj93qY XBvvSftVczxynqSb/+vDuC0e9ecvc6+WsPF0xiPuu//ztyso/gWYOU21QviW zU9RABwe9sYhiu4DBHihF/aOq8RYpfv3YWNOVB+g86EAo7zmb8wh/esIcLTR 1Nf1MtXLAgg/VqrxFRgbCHCsRKF4sDXd7wpQo5XovzqP+ddCgF3TU4ad/kD+ FyDjl2exyQLG9gIo+f2b3DOd8qsAzsapabNfMb1xBdD2vWCRM5/qLQFudbkI XHczfYYL8HXGHcm8IVR/dY//x9UT9TlM72IBZmg+KypcwDhDAG62ZcDwPoxz BDjueNXg0+9HzP8C9CwdEZqpydqLBPDr5NcsimJcIoCjX5l2ZF9mr0yA8geB eYXXqX4TQN+qy/tTKRtvjQC/JkVVZVVT/AvQp91MbhfFQ70AFpsj7b9p0vlO gKp7Dgv30fv8ZgF6JSt93k7fK7UJECxn1v/OLcadAqScmin1XU73Pwm4sHix evQl8n8CBvZV2WgxifJ/AgIvrNYaIGKskoBDWpMy4h7T+SABtaYHxUFalP8T 4Bp950isN+X/BBT7Zo27WEz5PwG9Bb9fH22h/J8AldsH/PqMe838nwAzJ3f5 k7aMrRNwz+Wi2604xvYJ0J11aeixfMacBKi7/g4adYoxNwG29od/cU8z5iXA z3O84EkB4/AEPNSZlvU5nDE/AarOsy/fnclYnIAJ8ZO4V2rZ+DK612OycHra SsY5Cch8Ydb++CTFfwK2qV2W95aj+O8en1W64gAjqlcTcNWhKmeWN1v/sgSM +zb8+E7azysT0Hlr7IDsHUz/NQkwbRu8aIoG87csATa5Ma2hN5k+6hPwpkJ2 9UEB009jApSdRl2SHWJ6a07AyQUZtY3PmT7bEqCgVzqyci7jzgSsXD/68cvj D5n/hTi8vT7qrCljRSGK3Ebc3vvxAfO/EIZZB6TcQsYqQpz25BbyvRhrCHHx +30dtfmMdYRY0bEybJQaYz0hQn/rqXT1ZWwghEHO5w01AxhDiCVTnbdV6TC2 EMLHrGukpStjayH8rPZuXHqVsb0QvyaO63lnDRsvR4iK/Qd4M1XZ/LhCCIz/ DluuzNaDJ8T3zUlR3GUU/0IMVNd6a1RO9acQ40ov3OvnzNZbLETu3KxP0/To Pl6Ih/5R1ybRfWWOEBPnH5xwvRedT4UYs3Np1Kl2xkVC3Fu5b+joB5T/hVi+ ImlS807K/93j0V0rd8CM6a1SCNeRp8YPkDGuEWKjz/UtNYZvmP+FKIlZ7/BG xLheiMFqOmdk5xk3CiFVUHB2fc64WYiu+QPTR7cxbhMiWC3kV/4Pxp1CrM44 kCbqYCyXiJ2x63rYfWKsmAibyInCgheMlRLRueZ7pdYNxiqJuNLLUuFFMWON RBwzl5+kT+PTScTK2nXairaM9RKBR2ptj4cxNkhE44CNDa2X2XyRiPo9LU5B Gyn+E5HhHX2h9RXVf4ngyhr0XVdR/ZcIydjSHV10v8FJRIzuneUuTWz9uYno EfVk95S+dN+WiMp3Cekz6Huj8ERwlmRkDqD34/xEuF0VKg31I/8nwk5geHLi NrqPSsSkkGH+ZW8o/yeiNGpG73gvyv+J2Htf/0LKDKbHokQM7f390zcwvZYk YsU3xQkXc+qY/xPRELlWtncW48pEDBnrvXS7IuOaROzZ8Nnu6gDGskQczvXQ WDSbcX0invs0BnLCGTcmIj8+KGzLHcbN3esflpa0bSaz35YIuRyvNS57GHcm 4lvLmnEtqhT/IvxTdt1ydifFvwifvq++e3gKm5+SCKKSPEnKdcYqIsxrCvxd HcHWQ0OEeI3OJxNA9Z8I72SZa3w0qP4TAZN/u3WMpvpPBB/PXyf1jOj+QAR7 9YnbekXQ/i/Cl503dk9+yPxjLULmftPCpfQ9oL0Idl/k9SM/0v2aCHN4XIl1 GflfhFkxgpSe8VT/i7Aswk7rxiKmn3ARjsus7+R/oPO3CHWz5Sep8in/i5C1 4t/F6e2MM0S4Mv6J60cTpt8cES7zjkZf5jHOF6GfTozx5nDGRd3rebf/b89N jEtE+F2427vPZMZlIkQGrRwwoYHiXwRzxRve1fEU/yLws1Scto9iLBPh6fGb KeFHqP4TQfJTb8vIhVT/iRAwLnnfO7rPaxZB59Gg1LFOdN8hgvBG87hXlJ86 RTjz/qBpTDLt/0lo91g6a+9o2v+TEPtzYvHJY3QfkAT3eMmZXvS9pkoSBq17 0jBFSvcDSTgUnJNfmcX8pZOEqzH/lo2U0PvCJHR2+txzovcbBknwHr7rpKoj 1f9JaDBUaVq4gOnFovv53gP+rZnA9GSdhLX91MqGqjO92Sfhy1Vf0UE9pkdO Eq7Nmv/1kR/TLzcJew6fqr/SxPTOS4LGW9ezj7IZhyfhTq633vlMxvwkfNMq ORD5hLE4CW8w93mrL3teRhI0j5XvtLdg9nKSsOBk4Io8DhtPfhLMl/SLO3GQ jbcoCZcU3CNldH9dkoTaUtWDvaVs/mVJiDC4bDlIkd5fJaH8/rTFI4LZetYk YcTK88fl6ftbWfd8LxqEqnQxrk/CY9tfdkkpdL5PQkV//ejlfcj/Sbhy0sh9 axj5PwlW9QvXjafzcWcS5hgN6HFvAd1/iVEvmsyZvJ2xohj88nlhyl/pPkyM nBe9bPdYMj2qiFH+xsCzbjdjDTGcigWB0m+MdcTQ875/KnIJ5X8xOhJ1zqkm U/4XY1T26oh3lxmj+/ccm8JdrYwtxDhaOrtjyy/G1mLc2xN1ftJHxvZi2E/+ tHNxOWOOGPrPFbzuuDPmilGhXObu8o7qPzHy/E0yZQup/hNjbcPQ7SV0v8AX I3LxWenlOLY+YjEmpJ62fh5G5z8xDMsXG9vQ92U5YphMqn4bl0f3M2Is9MsX PJEw/xaJ8SCv+I7dQabnEjH2rnXfodyD6n8xvu0vmBqXy/RUKYZ2wwn508FM bzViTPlRWmyezPQoE2PyqAPnkym/14sR3vfBgleGlP/FWLn7tIXw0n3mfzFa 3j0rd9/AuE0Mq4u6X8/2YdwpRm5+RfX3C/eY/5OhHZ2Tfj2KsWIyOm8Utsib MlZKxqaMz/MT1BirJMNm9/sRyvKMNZLh6d0y17E3Y51kKL3Y0yydyFgvGQde NrmrBjM2SIat+5obyt8ZIxlGo+Okm0+x8VkkQz1+5Oyt59n8rJMRnyJ+8kqJ rY99Mr7oL8sJPUPxn4wxm5ty6ovZ+nKTMcqe8+jsO7pvTMaJPU8L5tN+H54M 0zfG0dUBdP5Pxk2F9u89aP8QJyNjxbKjHp/pPjYZ740sK5L7Mf3kJMNO7svG 9V2M85Ox9FtDP8cayv/JGH9oqEut61vm/2SohZa79a1nXJaM2LIp65R13jH/ J2Nc69zDExwZ1yTDwHq316woxrJkOD5EgVYq4/puf5g/+umawbgxGQFBLSVP 0xg3J6Otn3rE2ETGbcno+9H+a1Eo485kzPduapF3ZiyXAp05YZN/mjJWTAHv 6tlZuzQYK6Ugs0axPPAzG79KCv494Nj7H2OskQLBQGsdzQ2MdVLwcInrsPvt FP8p+Plj4ZLbgRT/Kchuuudy4j7Vf93Pv8c91TWc6r8URBl8+nBkNtV/Kcid oaX7eg7zh30K7P1yxu9Qp/erKVhd1D6j8ynLn9wUcEq8zOK96HuT7nYlE7WH f1k8hnePf2KW48USlr/5KYjMPJ1tQfWPOAVDC2MGutcx/WWkYMiu9VOz3Jg+ c1KgUD5f+MqG6Tc/Bdcfa/7N2nGX+b/bvs07o7qZjEtScOt03g/jAYzLUvDA bfA5virjyhSsv6l+bNZyxjUp+DHTfcnanYxlKVi1NnJr6T/G9Sm4mTVs/Ec/ Zr8xBTZtPE2VVsbNKThhu32Wpz/Ffwq+2Wjxr3RR/KdgUXK+DSePzU8uFctP tGwQWLF8o5iKxc90LswYxNZDKRXSiD9pnS2MVVJhxutftvUViz+NVHwy+RmS 28XWUycV3D6rRjYvpvovFSs6i8b3OUL1XyqKJ7eNdlhM7w9SMWrK+NML/rD4 tEjt1t/hc7vovGydiiqzp2636H26fSoiSlRdpm2i+j8VBrklS/baMr1wU6Gc q2urN4/yfyombCjdrKnA9BeeimcTzQxGlzDmp0J7xqMeQ2Yy/YpTMaNXndV5 MeOMVJw6vrztxknGOanIePTIZVcp4/xU5Pf/PLksk3FR93wd9pYqrKL4T0XR oEs2mnT+KkuFwqJmx22pjCtTMVJlgYrLcMY1qcjdc9JElE31XyrOPorXq1Vm XJ+K9rIfyZe3UP2XCuER40v7htP9Xyr8f49K2LmV9v9UWJmkvX07gvb/VMw1 KZk3gr4HkpMA1ROmraXv9xQlODY6sOSEhOo/CZwVZhdcpv9/piIBR3Fyo5qM 3o9LcDVr7ivbTOZPHQnkORFbokzofaEEZwycQ1a3Mj0YSGASEGt1KIXla0iw /oDMjDud6cdCgqoDLh/U3zC9WUvwrvBWhPY5Ov9LkK7R6RxRzvTLkaC9Ke+F 8V+mb253/3OKZ/YnMuZ1j0f5WM6hTYzDJej5VSskOoMxX4JTpef/Nquw54kl eHg1qmHId4p/CexNCv94qLPx5EgwbVavwQoCOv9J0NjS2zZZmeo/CX6JKycG V9H+L0F93MofctFU/0nwl7fv1NgpVP9JcFT85phhFdV/EpQGH904lb7Hl0lw /5Xr0itLmX/qJejn4D9m7Buq/ySw7R10fS6P6j8JDG4P+aRE+1ebBDNNXrsP d2P66JSgOv3CJuEDqv/SsFWyxbW/MdOXYhpuak9f7H6MsVIaSlq+ao5To/N/ Goa+9Njvm0jn/zSo9Rm/qccHOv+n4ZlqQvBEK6Z/vTSEXVM3a85jbJAGi5/l tQ4NjJEG25/VkwcrsP3GIg1uWsNWJw5ibJ0G18S7K/Z/Yb+3T0NumokfDjHm pMH62MTMDH3G3DTMfaUwtknKxsNLg3zhrhuLzlH9l9Z9fr67f/h5qv+623cI pPHbqf5Lw5OX4q8aTlT/pcHz6Ixl/ej/C+SkYeKkvGXGN+h74zRMHVe/aWg0 y29FaYjtpXIz3IveV6bh6rKsIcf3ML2UpWEH97bJuQlMT5VpMCq8olL2ic7/ aTgyuuqX5DvTp6zbP0n3JVd0GdenweloxOF/SZT/u5/f529Yxh+2PzSnYcgP aJsIGLeloU6vPHb3MMadaRBbeD1/dUTG/C/FslA15z/WjBWl0L478cK9f7XM /1Lsm/z0qGU0YxUpRvZrSWjWYawhRfPL51eNRjLWkUKs+GPcP0fGelLorl4G +b7s+QZS/E1fNDruAGNIUffipfqNrWx8FlKMWFzhpd7A5mcthWvwnaFBSWx9 7KX4UDpwTGYW3f9JcTu2yPjFH5Y/uFJkntjie+gU1X9SGGb1PHV6L9V/UvSb MEXofJ/qPyk89hRUTKH3IWIpJue2qfSg9y8ZUjTYpG3za6X6T4pL7kKuMdU3 +VJMa668ve4G5X8pvnikTx/qz/RbIoUeb+K7282My6RIlcyWflvUzPwvxdeC YV3KMYxrpND0sDUqPsBYJsXa08dLQ6sZ10sRpOmZ5fmEcaMUM6eL3jxtZtws xf27VSdrvjBukyKlM/u+wnfGnVJo7Cs640/tcul45Dfw5Y/XjBXT0SwcLb14 i7FSOsKHvLg4rpCxSjqC5a6NrPVkrJEOjrms/1tlxjrp6Ds8x2vWPjZfvXRk aVt+EgxmbJCOr28eX9e0ofhPR0PL9Y5sbzr/pWP67x+lm+1eL/o/Fs+OIw== "]]}, {RGBColor[0, 0, 1], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9m3lczN/3x0OSPUuUQqGEEELJ8qJdlihKwrRP+7TvNU3TNNU0pUgiIhFC lshSQpG1QciWZKtsIcnar9/je8/HPz2ejzv3fe6953XOPfe+3zSd/Ve79ZST k2vpJSf3/3//969t0f/+NrK/cui4ObBxSj9iReydn1EpHkasBKOnuv726sTD 4TpOM+XgBGIVmCWcPcXTJVbH4qV5n7JnEWvAXVtm1WMe8TgUGMjatywingDb 3V4zDE2ItfEs4V14vTmxDnrM29LXaSnxZFQtfGBWbUWsiyuH9X/9/o+nQcfu qUDuP9bDvrj2jnsWxDMQ869zTrgp8UzYpvt8+QniWZh5YPRWdyNifVyeL6d3 V594Nh4mqBiumko8B8NfJpv01CKei9qok3t6/bdeBhA7L3wdNpTYEPPa+jkI FYnnoVp272X+nxeMjdD54tLYfs3E8/H6Y4Vs233iBWjsepOUd5F4IVaMmbnf t5h4EX7/kPa0zyUGZr5aUlCUzJgPjFz2OG1/JLUvhsf9+pJMX2pfjHb9B837 nal9Cc5tGqSp7EDtSzDYsVOqYEvtxsj9c7fPDmtqN8Y+2WP/5pXUboKOl7uN f62idhO8/mSw4O5aajdFTHGYistGajcF1EWRuVxqN4Mop2dPuxBqN4PC5/dC XyG1m+Ordf/4oq3Ubg6foZqXa4qo3QJDU78vFJVTuwV0GyqnbP5vPS3h3Mdz QVYrtVuib2/VVJUe5J+lEAnlWnoPZMxfirdyFjYvVajdCoevpZtGUjzwrSCZ ffZj/nRqX4bGpM3ftUn//GVw1F2MRmNqX44Dkb45BcuofTkqG7nLrWypfQWe ZGpcLHWg9hWYFs1/XL2J2lfipG8B38WF2ldCbovx5yg3ardGnWGsYk93xrCG dp1e3idX+r01Lm0fuw/OjCutken/1vnvBuq/CkaT84V69tR/FUaM9Rz1wZr6 r4Jcbla8BcVX5SoI9x6e4rqQ+q9GL73lpi6UD7Aa4/ZbzPOfSP1XY+OTqJGn R1H/1Vii8+mWJ623nA1e77t2MLaL+Qc2cPzeIXn6ivxlg2Wp8WccahhX2iBw WMI7nyPkX1tceTpwZnwW9bdF+YbzE3tFUX9bzMwLVF/nSv1tsera8+1N/+l3 DTItd3d1LKD+a5A1crH162nUfw1WFBdpfxpH/dcg3uHf7WWjqP9aHOpxOERX mfqvhcrNNdHFw6j/WpTEedc2UHvlWuwUmHOuqVF/O6yqkz+1Xov62+GN5+Fs wUzqb4fWzwv+DjOm/naYeS97/OP/4ssemHf4q4TiG/ZQ8ko++0xE/e3x7IHd Is+91N8e5SEq02v+yy/r0N4j51FiA/Vfh7eDY2dN/Ef916F69IthIwaT/9Yh d+TCL4pjyX8O0PfW33NoGvnfAZcLEredW0D+d+jOZwXuvyhfVzpAZjGncto6 6r8eodrT7DRIz1iP6GjtvTv9qf96qA39EBcaTv3XY7eW5LIojvo74uPXU/uL hdTfETWp3gvuJFF/R/wbOeJ2vZj6O0K35YruJWqX24DzuldVhf/134CvY/hC bXo+fwP61i+/UxpG/Tfgw9bvn839qP9GvKg6Hvub4gsbMWXCncQfa6j/RoSs 0Nf1pv2uciNEdYM10uZS/01wczt4NVeb+m/CIPPlsx4Np/6bUGH+5UNyT+q/ CSad3NG/X5D/OFA/vajwzznGGhxsWiWYfjyb/MlBfvrAlqNBjDkcKDywqhGt Jv9yUDNRS//yLMb5HEzqdOr1ciTphYN9B+c/tOtq+B83cvBQQ+6ytJWxnBNe Dalb2PiYsYYTGtNXGufcZgwniHuWhH+rZsxxwrbmkpAxVxjznZA9JqJdn9rz nRCl/k1u8S3GlU74MPCD9rx6su8E9S7l4/ItZN8ZJ8aoDA34R/ad8bvg61Yj FZq/M5otpkUNmEPzd8bV68oZ4XY0f2dws7dze0bT/J0xcbTaHPUCmr8z1Bf4 zJ98i3GjM1oHJ8gSO2j9XXAeTzdVKjH/aLig0u9NhP5//nRB4IJJQ8yo3uC4 oMfUP4fyVpJ/XbDl0vRh70g/+S4weWp18V4w+dsFJ8ZvbhuRyLjRBU0TQ7fw skg/rjj/rs/7gt1k3xUG7UfkYg6SfVdMmu8/QFZC9l3Rc0ZcVUQp2XfFrdfJ ZZvOkH1XOKhZXuCdJvuueCRUdS88QfZdkcuLzZMrJvtuaF4jm5qxl+y7QWJd vdQ3m+y7we3mwLYLFG8cNzR6FPQqCSX7blAqUp2QQPtbvhu2nF09JHYF2XcD 9+CQ/V8pXhrdkGk0xcVIg+y7Y4ypTc7ZPmTfHc4XnAX7n5P/3TH58zPvl4fJ /+7Yryzb3071Ed8dby194oqtyP/ueO3e8vDWGPK/O9ZWZdQO/E76c0f7Q0Mj 1VrSnwfS15+8KT5C+vOA/E7nD68zSP8eOJerrrovgvTvgWzlHZGTuaR/Dxgo eUmvO5L+PfCv4sn+i3akfw/w9E3HzF1H9j3wYU/SVFMnss/FQYso32Z/ss+F h1f7uD6JZJ8Lyfsryb75ZJ8Lk+fmzrcukX0uBk4ZOqCsmexz0agXGlI0nObP RcWMB6N+mZD+uTiT02HYFk7690TJxdJFZcco/3ii6MFKWz+qb+GJh/O3uw4Z Qv73xD+L433aqL7me6Jv6QB3e6r/8z0xetOZO/doP6j0hOjswBEfKR83emJu /yn583PI/14wivF6vOko+d8LXN6a0V2XSH9eyHjOGXv7Htn3Qgd/Wqeokex7 4eGE0F7trWTfCyNrNcrffCH7XrAK9b829zvZ94Jx/2mGsnay743P5lnG+W1k 3xuiqPSphc1k3xt6bpoZLc/IvjfmO/w8KrpN9r3R33nxhcJzZN8buXPFtfx9 ZN8bJwoa7FxSyb43frq+qz9I+6OcD96pXLtbuYrs+2BZzfrL42aSfR/ouG5z XPPf+vtgKe/psFu0f/B9INkzoM+tnaR/H0w+ezH7Fp0HKn0QfNL75Duqdxp9 UPFcnK3TQPrzRU6tWraokPTni2VlvGMvA0h/vjgVnHZTzoT05wuruKsJm9VJ f754afLot86f58y+L0bc+Wdu+opxpS92m2fcWnGPcaMv7AeOHbL9OmM5P+QH vch3JtbwA2/Hp4r7dxnDD2r5bS2/mxhz/PDBq5hzh+zx/WARPbb/mLGkfz9s exxvs92S4s8PePAx62oUxZ8fKqoLr/Qopfn7Y94Uq66odpq/P4aequMsMCT9 +2PFt0LOJAHlH3+IncKO9r5D6++PgoGKGZeoHs73x75zh+T30Xm00h/1f/5K /tL5oLHb3r6FTdp88j8PTruMdwsKGCvx8NPY7Si/ivTAg5LHWd/8JsZ6PBTv UBUE/CV98NBn9PD4rOEv/8fWPOBI1KVTExlzeFB1fnA+Yw5jHg/2r3g+n8CY z8PGpOMau80YZ/DQ4bWtZ6w543weHO17buUZMy7h4erCTl3uPMaVPGTElC5z 1WUs48H5qXF+iCrjRh64ztPnX+rBuI2HpzbvihLe0PwDcLMgyWhYNc0/ADj1 afHLfJp/AI7qt+dFRND8A5AXaZPJp/0XAXD8errs6HjG1gHov/PmoeyP5K8A VMX9/bqUzhe8ALjOlE5RnUf+C0DJ4LVhma+Y/zMCwLG8u3nqZtJTAIqUzGcv IP2XBED4a8ea1r+k7wDMCrBznnmRsSwAF3qJJ7eISe8BsA77GFW+nnFbAMYf rMUiA9J/IEYsdr34ZgxjpUBUCmuOD1eieAjEuNYBU8cOYKwXiPdlHw6ZD6P4 CITXz5COC1qMrQNhOkFdd4sxxUsgKjI0uJU+jHmBeGPupNZ3D8VPIBbyl5jL NTLO6H5+j7CBv3Ro/oFwndSq0IfipyQQg4qjj3yto/gKxE2d2Otms9l6ygJR 9O6QuS3dbzQGIi5QtFWDzuttgVjAizNPm03+D4KitIof7En+D0Jl+35h0w7y fxCGH1Wubr9J/g/Ce1FKV2Mn+T8IN+7tTf+pSfoPQqJC0/GjpGdOEJYemdIq cSf9B0E0Z7euYTzpPwi8ztvHvbNJ/0Eocu6KbS0k/Qfh7e+KfOEx0n8QKh4J WwadJP0HoQHfrziXkP6DoNNetn7TAdJ/EJoi5w79uI30H4SH64e87ylgLBcM zzGrHI64MVYKhuWfov3KFG8awXj04USzeBRjvWDMmKO2I+YDzT8Yj1N3ns4+ S/oPxriwhXEFAtovgiFfHxu5g87/vGC0tmvGZA+g/SsYWhGxeYLdzF8Zwegw mvl6tzbtJ8H40NSg21BC/g/GvGK51z4g/wfjmp6rp9Ej0n8wLghCKltDSf/B 2Kvb07VGg/TfPf7WSSr3Hjxj8w/Bk4riqZeyGSuFwNZPK3+UK2ONEOyf8LwD CxnrhaDfnZuPhVqMEYJddtFXZ4xibB0CwyGcwVvVGXNCoDV+2KR/uox5IXC1 0BhTZsWYHwKTK2lVf8IZZ4TAIsvoX9Mpxvkh0O60fWfZxbgkBHd8TztcsaP4 D4E4RDOHX07zD0Hjvvu9TabTfhOCirp9Lx0OM24Lgc3JqZp7plP9FQr96cOP ZpxlrBSKO5x/96dSPtMIxbI+j2qSKD70QuHY16p2I9VLCMWE/h3pq6h+sQ5F 4e82e+1ppP9QBFVknX30n/5D0cyvzMndTvrvZuljh+fVpP9QcM0+1OM96T8U MSt1Xkj6NrH5h2Jw7bKQvRqMK0PRPvetpZ8eY1kodtwRWT03YNwYiuu3+rbV GTJuC8UIrlM/vVmM5cLwevyEiMoJjJXCcEc2JnzNIMYaYfC5sL29+jPpPwxB ouy3f2sYIwwpHmHrBuZS/IehU3111FwXmn8YMua8quqaQPMPw6GiAJ1Z/9WP YeBkvlvxfivjjDDoy1s6pNB5Pz8M/NSZ3xxpPykJwwfxvUyjpVRfhSHm0uhT 9geZf2VhGN7r98eFg8j/YTCzeKs/IZr0H9a93xmpln8n/YeDE3xbphFD+g/H 5dYeokvDSP/hOGyw9Xj4uads/uGYv76wqiCAMcJx3/JDx1JDxtbhuLL55Gir IYw53c/3n9QR9fMJm384HDr6Pbj9hTE/HC9+qeau/8U4IxxWl25v8R/G+ueH 40R6bHDUAsYl4TBIU3GVj2BcGY6zusX6iVcZy8IR+iRxiqU2G39jOHZNenxz SQ7jtnBc+PJJ1qRG+18E5ky+7d5+jPa/CHBelS8WrqZ6LAK/91wfVy/H1lsv AnpxjouizlB9FoFD2sfq9AxJ/xH4cXPawQw6v3Ii0LwiMSOPzgO8CEgbXTfN tiD9R+DKSqsT4Tmk/wioTkr/8a6R9B+B18lXtgeR3ksiEHjz85yYtaT/CHTp DDtzQ0D6j0CBV1ahXyHpPwJTnAZXHaog/Udg9X491Xt3SP+RGDjL9tO0h6T/ SLx+MK/icx3pPxLC92YZ6jcZ60Xi/rSqHlvLGCMSs9L2BY/IY2wdCbfzeX6W 4Yw5kdh5KKSjzpIxLxJLFf/Ghg5hzI9EmmllmnotzT8Shy6KL/RIoPlHore9 Zb/qqbT/RUL55OnHUTKqbyOht+7R5bM+jGWR2BVcWJciT/VuJFK+PN12QZ/5 qy0SL5fNMa767/wbhSP/Buwq3Er+j8KCMrvxqbQ/aERh2YP0Z62U7/WioPlm /8s5KaT/KMzreH70uDzpPwqdq8xyfbKZnjlRmPN30SC/RaT/KBj6FEZ8//eY zT8KH7aoLL9zn3FGFHJ+td/de4FxfhSkP2K2LiljXBIFrYFzG+uqGVdGodnS 3b39NWNZFPbXad05pczsNUbBp6kkdIs947b//31t8IajjOWiMaLyd0HnSDZ+ pWg81GrbOzubsUY0ck+s6p86ieYfjWcjTV3u36X9LxoNKpdHDJRS/ReN9OhP t7XoPoITjQv+c389MaD6NxqWldkVz+g+mB+N2Wl9vu+h+6mMaPCHONbm/6L8 F43xwX335niT/6NxfaeHB/cB1T/R+NzRX8tmNuk/GhdzlssbJpP+u8ejmPX2 XC3pPxop9Wv9lii+YvOPgXR8w8pPMxkrxcDApjKFa81YIwaDm4S6JU6M9WJQ 1Km47qUHY8SgcuivvfKujK1jsN14lP37tYw5MYj56FE1ajFjXgzi1X6XVo9j zI9Be/8o7Xu/2fgyYuC4+lZxM8VbfgxGtA04m5pJ8R+D4hWSkbNXUvzHoEbq zw3vQfOPgda9k806B6n+i8Fw06y+fKpH22Lw8JehwuInVP/GQigSG9fRfYlS LOYvmX+s6CHdx8SCd/frjoFPmT/1YtG3qnRTxAuq/2Mx88/3jbPfU/3Tze5r unb0pvonFh7XVHV4s5meeLHQ61o/ZSGf8n8s7qrMKWtqIf3Hot8kmfGKYNJ/ LIaEVfVMH0v6j8UT/oll6q31bP6xSHk5Ybv1XcayWKiOcnD/QdwYi8qI+LV1 zYzbYnEm5k/S4GHseXJxcHLYpRyzgrFSHKyD6x5UbGesEYdHwqQNpu2M9eLQ ESafMHcjGz/iEGqepWxez9g6Dkph74+HudD+F4f2ESeePJGj+i8Oo3VTi4yP U/0Xh9g8qy/twXT+iYOfau9LK6zo/BOHulHFQxPofU5JHGYu65d0lN6/V3Y/ f4aK7pZMyn9xePet9UbTUPJ/HD4d/uj0K4P8H4fM3yN2tCpS/udjy6frJ66F Mlbko9/hn4WKj2g/4OOJyxarF9pMryr87vOsz65I0rsGH38y53zQTmesw4fh nL0LzA5QvPBxVt5NOv4oYwM+KhSCVA4XUvzwUWubXz4ig7EFH5NbH6vu8qd4 4kNh6wvLOWaM7flQHD36mocyxRcfDdtrtYwa2Hi5fPSdZ1tguIf2Gz6atK9W RW9kHM7Hdcs2To0y7T98lCJAePgqWx9x9/N9yl8U8mg/4sNC54259TDGOXyU qJz5IqL6N58Ps40KjllLGBfx0Ser5Oe+fPIXH4tcjujvO8H8WcZH5Vqt+nI6 r1fy0RFbNvjXbaaHmu71Nh/clPqa6hk+5su+6dr1Z1zPR/WawH+WSym/85Ey dYgsr4jps5mPHkNavqrrMm7r7n9h9N6Ueqb/Tj7mRKrIWxxjLBeP1zmyfDNi xXi0xb/UtHrAWCkeBzdDM1idPU8lHjdli368j6X4iIf8gXc5hR2MdeKhMLDu UO9YNj69eByputDFUWLjN4jH4fcxwaaHaP+Mh5LHY2GaJZu/RTzmecarmX+k fBKP2h+vX0TQ/mzfPV7TVZqPl9D+Eo/ij+N6encw5sZDRewUPuU47Tfx2GlQ e/UR1Wfh8bh3pcrt7S7af+IhfcHtrdWH/B+POonWAesA8n88hDUtLn5Pyf/x uH9Fp8/tJZSf49HTXwFj9jEu6rYn7DniIOXzknicX71zZJYp02tZPMrGZE4z jGVcGQ/zEzsC0vYyrum2r7Yl2beEsSweywdZct/sZ1zf3T8y94aNiHFj93qY XBvvSftVczxynqSb/+vDuC0e9ecvc6+WsPF0xiPuu//ztyso/gWYOU21QviW zU9RABwe9sYhiu4DBHihF/aOq8RYpfv3YWNOVB+g86EAo7zmb8wh/esIcLTR 1Nf1MtXLAgg/VqrxFRgbCHCsRKF4sDXd7wpQo5XovzqP+ddCgF3TU4ad/kD+ FyDjl2exyQLG9gIo+f2b3DOd8qsAzsapabNfMb1xBdD2vWCRM5/qLQFudbkI XHczfYYL8HXGHcm8IVR/dY//x9UT9TlM72IBZmg+KypcwDhDAG62ZcDwPoxz BDjueNXg0+9HzP8C9CwdEZqpydqLBPDr5NcsimJcIoCjX5l2ZF9mr0yA8geB eYXXqX4TQN+qy/tTKRtvjQC/JkVVZVVT/AvQp91MbhfFQ70AFpsj7b9p0vlO gKp7Dgv30fv8ZgF6JSt93k7fK7UJECxn1v/OLcadAqScmin1XU73Pwm4sHix evQl8n8CBvZV2WgxifJ/AgIvrNYaIGKskoBDWpMy4h7T+SABtaYHxUFalP8T 4Bp950isN+X/BBT7Zo27WEz5PwG9Bb9fH22h/J8AldsH/PqMe838nwAzJ3f5 k7aMrRNwz+Wi2604xvYJ0J11aeixfMacBKi7/g4adYoxNwG29od/cU8z5iXA z3O84EkB4/AEPNSZlvU5nDE/AarOsy/fnclYnIAJ8ZO4V2rZ+DK612OycHra SsY5Cch8Ydb++CTFfwK2qV2W95aj+O8en1W64gAjqlcTcNWhKmeWN1v/sgSM +zb8+E7azysT0Hlr7IDsHUz/NQkwbRu8aIoG87csATa5Ma2hN5k+6hPwpkJ2 9UEB009jApSdRl2SHWJ6a07AyQUZtY3PmT7bEqCgVzqyci7jzgSsXD/68cvj D5n/hTi8vT7qrCljRSGK3Ebc3vvxAfO/EIZZB6TcQsYqQpz25BbyvRhrCHHx +30dtfmMdYRY0bEybJQaYz0hQn/rqXT1ZWwghEHO5w01AxhDiCVTnbdV6TC2 EMLHrGukpStjayH8rPZuXHqVsb0QvyaO63lnDRsvR4iK/Qd4M1XZ/LhCCIz/ DluuzNaDJ8T3zUlR3GUU/0IMVNd6a1RO9acQ40ov3OvnzNZbLETu3KxP0/To Pl6Ih/5R1ybRfWWOEBPnH5xwvRedT4UYs3Np1Kl2xkVC3Fu5b+joB5T/hVi+ ImlS807K/93j0V0rd8CM6a1SCNeRp8YPkDGuEWKjz/UtNYZvmP+FKIlZ7/BG xLheiMFqOmdk5xk3CiFVUHB2fc64WYiu+QPTR7cxbhMiWC3kV/4Pxp1CrM44 kCbqYCyXiJ2x63rYfWKsmAibyInCgheMlRLRueZ7pdYNxiqJuNLLUuFFMWON RBwzl5+kT+PTScTK2nXairaM9RKBR2ptj4cxNkhE44CNDa2X2XyRiPo9LU5B Gyn+E5HhHX2h9RXVf4ngyhr0XVdR/ZcIydjSHV10v8FJRIzuneUuTWz9uYno EfVk95S+dN+WiMp3Cekz6Huj8ERwlmRkDqD34/xEuF0VKg31I/8nwk5geHLi NrqPSsSkkGH+ZW8o/yeiNGpG73gvyv+J2Htf/0LKDKbHokQM7f390zcwvZYk YsU3xQkXc+qY/xPRELlWtncW48pEDBnrvXS7IuOaROzZ8Nnu6gDGskQczvXQ WDSbcX0invs0BnLCGTcmIj8+KGzLHcbN3esflpa0bSaz35YIuRyvNS57GHcm 4lvLmnEtqhT/IvxTdt1ydifFvwifvq++e3gKm5+SCKKSPEnKdcYqIsxrCvxd HcHWQ0OEeI3OJxNA9Z8I72SZa3w0qP4TAZN/u3WMpvpPBB/PXyf1jOj+QAR7 9YnbekXQ/i/Cl503dk9+yPxjLULmftPCpfQ9oL0Idl/k9SM/0v2aCHN4XIl1 GflfhFkxgpSe8VT/i7Aswk7rxiKmn3ARjsus7+R/oPO3CHWz5Sep8in/i5C1 4t/F6e2MM0S4Mv6J60cTpt8cES7zjkZf5jHOF6GfTozx5nDGRd3rebf/b89N jEtE+F2427vPZMZlIkQGrRwwoYHiXwRzxRve1fEU/yLws1Scto9iLBPh6fGb KeFHqP4TQfJTb8vIhVT/iRAwLnnfO7rPaxZB59Gg1LFOdN8hgvBG87hXlJ86 RTjz/qBpTDLt/0lo91g6a+9o2v+TEPtzYvHJY3QfkAT3eMmZXvS9pkoSBq17 0jBFSvcDSTgUnJNfmcX8pZOEqzH/lo2U0PvCJHR2+txzovcbBknwHr7rpKoj 1f9JaDBUaVq4gOnFovv53gP+rZnA9GSdhLX91MqGqjO92Sfhy1Vf0UE9pkdO Eq7Nmv/1kR/TLzcJew6fqr/SxPTOS4LGW9ezj7IZhyfhTq633vlMxvwkfNMq ORD5hLE4CW8w93mrL3teRhI0j5XvtLdg9nKSsOBk4Io8DhtPfhLMl/SLO3GQ jbcoCZcU3CNldH9dkoTaUtWDvaVs/mVJiDC4bDlIkd5fJaH8/rTFI4LZetYk YcTK88fl6ftbWfd8LxqEqnQxrk/CY9tfdkkpdL5PQkV//ejlfcj/Sbhy0sh9 axj5PwlW9QvXjafzcWcS5hgN6HFvAd1/iVEvmsyZvJ2xohj88nlhyl/pPkyM nBe9bPdYMj2qiFH+xsCzbjdjDTGcigWB0m+MdcTQ875/KnIJ5X8xOhJ1zqkm U/4XY1T26oh3lxmj+/ccm8JdrYwtxDhaOrtjyy/G1mLc2xN1ftJHxvZi2E/+ tHNxOWOOGPrPFbzuuDPmilGhXObu8o7qPzHy/E0yZQup/hNjbcPQ7SV0v8AX I3LxWenlOLY+YjEmpJ62fh5G5z8xDMsXG9vQ92U5YphMqn4bl0f3M2Is9MsX PJEw/xaJ8SCv+I7dQabnEjH2rnXfodyD6n8xvu0vmBqXy/RUKYZ2wwn508FM bzViTPlRWmyezPQoE2PyqAPnkym/14sR3vfBgleGlP/FWLn7tIXw0n3mfzFa 3j0rd9/AuE0Mq4u6X8/2YdwpRm5+RfX3C/eY/5OhHZ2Tfj2KsWIyOm8Utsib MlZKxqaMz/MT1BirJMNm9/sRyvKMNZLh6d0y17E3Y51kKL3Y0yydyFgvGQde NrmrBjM2SIat+5obyt8ZIxlGo+Okm0+x8VkkQz1+5Oyt59n8rJMRnyJ+8kqJ rY99Mr7oL8sJPUPxn4wxm5ty6ovZ+nKTMcqe8+jsO7pvTMaJPU8L5tN+H54M 0zfG0dUBdP5Pxk2F9u89aP8QJyNjxbKjHp/pPjYZ740sK5L7Mf3kJMNO7svG 9V2M85Ox9FtDP8cayv/JGH9oqEut61vm/2SohZa79a1nXJaM2LIp65R13jH/ J2Nc69zDExwZ1yTDwHq316woxrJkOD5EgVYq4/puf5g/+umawbgxGQFBLSVP 0xg3J6Otn3rE2ETGbcno+9H+a1Eo485kzPduapF3ZiyXAp05YZN/mjJWTAHv 6tlZuzQYK6Ugs0axPPAzG79KCv494Nj7H2OskQLBQGsdzQ2MdVLwcInrsPvt FP8p+Plj4ZLbgRT/Kchuuudy4j7Vf93Pv8c91TWc6r8URBl8+nBkNtV/Kcid oaX7eg7zh30K7P1yxu9Qp/erKVhd1D6j8ynLn9wUcEq8zOK96HuT7nYlE7WH f1k8hnePf2KW48USlr/5KYjMPJ1tQfWPOAVDC2MGutcx/WWkYMiu9VOz3Jg+ c1KgUD5f+MqG6Tc/Bdcfa/7N2nGX+b/bvs07o7qZjEtScOt03g/jAYzLUvDA bfA5virjyhSsv6l+bNZyxjUp+DHTfcnanYxlKVi1NnJr6T/G9Sm4mTVs/Ec/ Zr8xBTZtPE2VVsbNKThhu32Wpz/Ffwq+2Wjxr3RR/KdgUXK+DSePzU8uFctP tGwQWLF8o5iKxc90LswYxNZDKRXSiD9pnS2MVVJhxutftvUViz+NVHwy+RmS 28XWUycV3D6rRjYvpvovFSs6i8b3OUL1XyqKJ7eNdlhM7w9SMWrK+NML/rD4 tEjt1t/hc7vovGydiiqzp2636H26fSoiSlRdpm2i+j8VBrklS/baMr1wU6Gc q2urN4/yfyombCjdrKnA9BeeimcTzQxGlzDmp0J7xqMeQ2Yy/YpTMaNXndV5 MeOMVJw6vrztxknGOanIePTIZVcp4/xU5Pf/PLksk3FR93wd9pYqrKL4T0XR oEs2mnT+KkuFwqJmx22pjCtTMVJlgYrLcMY1qcjdc9JElE31XyrOPorXq1Vm XJ+K9rIfyZe3UP2XCuER40v7htP9Xyr8f49K2LmV9v9UWJmkvX07gvb/VMw1 KZk3gr4HkpMA1ROmraXv9xQlODY6sOSEhOo/CZwVZhdcpv9/piIBR3Fyo5qM 3o9LcDVr7ivbTOZPHQnkORFbokzofaEEZwycQ1a3Mj0YSGASEGt1KIXla0iw /oDMjDud6cdCgqoDLh/U3zC9WUvwrvBWhPY5Ov9LkK7R6RxRzvTLkaC9Ke+F 8V+mb253/3OKZ/YnMuZ1j0f5WM6hTYzDJej5VSskOoMxX4JTpef/Nquw54kl eHg1qmHId4p/CexNCv94qLPx5EgwbVavwQoCOv9J0NjS2zZZmeo/CX6JKycG V9H+L0F93MofctFU/0nwl7fv1NgpVP9JcFT85phhFdV/EpQGH904lb7Hl0lw /5Xr0itLmX/qJejn4D9m7Buq/ySw7R10fS6P6j8JDG4P+aRE+1ebBDNNXrsP d2P66JSgOv3CJuEDqv/SsFWyxbW/MdOXYhpuak9f7H6MsVIaSlq+ao5To/N/ Goa+9Njvm0jn/zSo9Rm/qccHOv+n4ZlqQvBEK6Z/vTSEXVM3a85jbJAGi5/l tQ4NjJEG25/VkwcrsP3GIg1uWsNWJw5ibJ0G18S7K/Z/Yb+3T0NumokfDjHm pMH62MTMDH3G3DTMfaUwtknKxsNLg3zhrhuLzlH9l9Z9fr67f/h5qv+623cI pPHbqf5Lw5OX4q8aTlT/pcHz6Ixl/ej/C+SkYeKkvGXGN+h74zRMHVe/aWg0 y29FaYjtpXIz3IveV6bh6rKsIcf3ML2UpWEH97bJuQlMT5VpMCq8olL2ic7/ aTgyuuqX5DvTp6zbP0n3JVd0GdenweloxOF/SZT/u5/f529Yxh+2PzSnYcgP aJsIGLeloU6vPHb3MMadaRBbeD1/dUTG/C/FslA15z/WjBWl0L478cK9f7XM /1Lsm/z0qGU0YxUpRvZrSWjWYawhRfPL51eNRjLWkUKs+GPcP0fGelLorl4G +b7s+QZS/E1fNDruAGNIUffipfqNrWx8FlKMWFzhpd7A5mcthWvwnaFBSWx9 7KX4UDpwTGYW3f9JcTu2yPjFH5Y/uFJkntjie+gU1X9SGGb1PHV6L9V/UvSb MEXofJ/qPyk89hRUTKH3IWIpJue2qfSg9y8ZUjTYpG3za6X6T4pL7kKuMdU3 +VJMa668ve4G5X8pvnikTx/qz/RbIoUeb+K7282My6RIlcyWflvUzPwvxdeC YV3KMYxrpND0sDUqPsBYJsXa08dLQ6sZ10sRpOmZ5fmEcaMUM6eL3jxtZtws xf27VSdrvjBukyKlM/u+wnfGnVJo7Cs640/tcul45Dfw5Y/XjBXT0SwcLb14 i7FSOsKHvLg4rpCxSjqC5a6NrPVkrJEOjrms/1tlxjrp6Ds8x2vWPjZfvXRk aVt+EgxmbJCOr28eX9e0ofhPR0PL9Y5sbzr/pWP67x+lm+1eL/o/Fs+OIw== "]]}}, {}, {}, {{}, {}}}, 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, 1001.}, {0, 0.8056454403715537}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6961893369525404`*^9, 3.6962764137211757`*^9, 3.6962837727030854`*^9, 3.696284386173174*^9, {3.698762135718943*^9, 3.6987621752359257`*^9}, 3.699036540980123*^9, 3.69904290109009*^9, 3.700912508447586*^9, 3.701705232643724*^9, 3.706897245527033*^9, 3.706897329078245*^9, 3.7069583796422453`*^9, 3.7092999138798847`*^9, 3.70930016343519*^9, 3.7093014449441633`*^9, 3.709301547286167*^9, 3.70930162337883*^9, { 3.709302488740839*^9, 3.709302499218175*^9}, 3.709302966199656*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Effect Sizes over time", "Section", CellChangeTimes->{{3.7089647424887733`*^9, 3.70896476122825*^9}}], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709299938216723*^9, 3.709299941303628*^9}}], Cell[CellGroupData[{ Cell[BoxData["\[Beta]HOmam"], "Input", CellChangeTimes->{{3.709301655116921*^9, 3.7093016585665503`*^9}, { 3.709302527655754*^9, 3.70930252788632*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Beta]0", "\[Rule]", RowBox[{"1", "+", "LDP", "-", "pP1", "-", "pP2", "+", RowBox[{"pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H1", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "LDP"}], "+", RowBox[{"2", " ", "pP1"}], "+", "pP2", "-", RowBox[{"2", " ", "pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H2", "\[Rule]", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"2", " ", "LDP"}], "+", "pP1", "+", RowBox[{"2", " ", "pP2"}], "-", RowBox[{"2", " ", "pP1", " ", "pP2"}]}]}], ",", RowBox[{"\[Beta]H12", "\[Rule]", RowBox[{"1", "+", RowBox[{"4", " ", "LDP"}], "-", RowBox[{"2", " ", "pP1"}], "-", RowBox[{"2", " ", "pP2"}], "+", RowBox[{"4", " ", "pP1", " ", "pP2"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.709300010861479*^9, 3.709301689715568*^9, 3.709301789086773*^9, 3.7093025719823837`*^9, 3.70930296881244*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"PlotHOmam", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HOmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HOmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HOmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HOmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}, {3.709301693825368*^9, 3.709301704612402*^9}, {3.709302577513321*^9, 3.7093025818582077`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHOmam", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}, {3.709301701361405*^9, 3.709301706928331*^9}, 3.709302586184799*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJxFm3k81Ov7/7WhUmkhlaTlSLTQKpVeSRKSpYUSQ9nF2HcGM2Ywg0qlUk3r 0SbajtSJUyptkjaHlNMiytqq/Tu/x+++3p/zz3k8z3ve932/rtd9XffydsZ6 Bjt69VRSUmrupaT0//79///pXFiiI3rnUFK1kP0HyKbd8imzvsdYFQHOsq1P 9hCr49zOPyeeuE08DEZO30WOr4i14P6faviiLmJtNB19OrruC7EuVjhp9Br+ nXgcymeMvbvtB/EEnOw1JmbGT2I9eP7xqXYjx/oY0Z3v5MOxAUquxYxax/Fk aIxq67bneCqMA2J9HDg2QvCJZmMex8aYeDjUIpHj6Xg75uieYxzPwEOr249f cDwTD7q2Ccb/Ip6Fw7bPQnw5no0NA8TDTnI8B71fhJ5t5dgE0ksu98b9Jp6L s++/e9hwbAqTvgZTN3A8D60VPT75cDwfFRVO+505XoDuxVPdZ3Fshu4dT/f+ 5vpbiAod7V6lHANWbwvnceMVAI32p6sGcs8XoXyxzsPTpFewCJcEkj9dOP3m ONFxLleVe26OmWnnUis4/xbjkJ/Z0c3EgsXwHd24MIx7bgHn+YvtArjnFjA6 i8RY7vkSqCW0qsi550twKfzu6X+555aQ/7umfTzXvyXm663vEcuNbyl6n9hs 95h7vhSFTgePTef0WcGSX3VZwum3wg+fbSE13PNlkAsC7fpRPAXLELqp85Uh F19rnNYo1JrJPbfGk/471o3lntsgWVRf9YFr3wa2m2uX/m8+2ELzcoOJA/fc Fs8PpiW94sa/HLbZQ7U3ceNfjr/3hD3u4vTboc4m/XEMFx87mB84MEuNe74C T6sWZJ+i/BKsQIjVqB1+XL7ZIyhwQ6kZMeyhc97uvjH3e3tMLrVsWkxcbo/q GZWa4dz7Dng72WlzGfe+Azz2O58ey43HAS5ey5FLXO6AC95NFYM4fY6IzJ30 O5MYjji9r9BHiYuHI8pvBV/eSFzuCL3w6XnFXPycMOzu8P8aieGECXUh1u3c +04ovJay+wn3vhPydPWf53Pvr8SRe04B4N5fiTswvXKdi/dKmFq8WzGbuHwl hA9X9d3BxXcVjOQrP3Rx+lehdbvNTnsufqvQ+5lR3KVv9P4qfLtREWtGrLQa Ff78Fc++0vursdG4ReUAsWA1osM95DLi8tX4vLjwDPdcaQ3kdvOWN3Lvr0Hd sjON5tS+YA1Mjl30r+D6X4PZ0uaLrpx/zii6MbG1B+mBM7TaU7oKOP+cMexU voMlp98ZSm3GL6o4/1xg7nAiw4SLnwu2/275EsvF3wU5Lr1n5nDxd4G1jaZm BBf/tZg0X5g8iXt/Lc4ZbecXcfFfi2Vfim9x86V8Lb5O39rPnov/Ohy5r3Ip jov/OthdL6nby+lfB/EhT+3rXPzWwWbPA6Nf3fS+K/LKA3o4EcMVz/7W+VpF 65PAFRXNHutjictdETxiYvlabv1aj2m7OraEEmM9nvxd96Kce389TKd/tFhE 7Zevx/jtad3vuP7d8HqqzPw8558bnhyM77GVG78bHk+8FBbG5Z8beoXU/WHF 6XfHiLtbu3tw+eOOLzd+GWzl4ueOpb34Tp1c/Nwxdeya6YO5+PPQ/CNzeRc9 1+Uhy7lmaQ7XHg8Wsq52rt7weDhms6WHDjc/eCido312DI1PzkPBzHlKfbj5 xkPnmvF3G0hvIw8fkyb/LuXi5wHfgsD4k5+pfw80pllPv/aJ+vdA6eC1eurE PA84D6ncvfMj9e+BQ4EBq/2I5R7IE+j2SSUu90Dhr4aG18SNHghPWBAppfaU PJGWb/wikOvfEyVTzo+J4fxU8HyD+/to/DxPBC7/irtcfnqi2n/Q/lbSK/dE TryM38L55Ymz/DvviihejZ7A+9U+/9vPbMD3fqpRXlz8N2Bg5h83wMV/A4Ye j9zGrae8Dej7+fCVT1x92YCfq5sSn3H9b8D186p7/1cvNqAsLPuwBhf/DcgM m3Ysk/QqbcQDnauDlSkeuhvR0+mVze4P1P9GxG5Iz+a9p/43oixOXOBL+znB RizVrG+40kn9b0RuweavMcTlGzEp+lP8VuLGjdAocBo4iNsPeuFzaT+jJmJd L3SX9HVQ4/r3QvBBWASTfzwv8M6p6nXTeAVeWHbO74SU/JJ74di9pBp1Tr8X 3mvoX/Gl+DR6YUiA6sNYrv55IyknIcqY4qvrDesdVx/Ec/XQG2Zmbt+cuPh7 48fK6OxzXPy9Mc6Y1/AnF39vCAOdXUy4/r3xrCS6kKsfjd5Q7tEQKObmnw/s d19KjCW9uj54dWtXSgjFA4rnldbjMzqofx8cyo9NbGyj/n2gdTbqoKyV+vcB XrZOO/KO+veBdEeo+lziRh+kHSgOsiNW8kW1hV5DE7GuL/a+/PH4G7UHxXOb jYWx7dS/L6y25PdcQX4KfKGrEnDPheaH3BfyZZYjorn888XTJhU9Ic23Rl9I Hm/Qdubqnx9mrtW6X03x0vVDvIlxfDXFE34YOtJ54CKKN88Pu8fFvtHg4u8H 5R9Pr9py8feDVffae21cvfWD28X4t/24+PuhMrPG4jKNT8kfJR53E/Vp/Lr+ MK1bnh5E8YY/7k35L/QvigfPHxZSxyUGb6l/f+h7rldufUP9+2O3OL9xdBP1 748U4deQejoPNfrj4aHL8+dy56MAqB67sXAxsW4AqoKeX/9OjABM8HHdspba 4wVAEtKeZNtM/QdA3/7pf2doPPIAmPLdj/nR/CgPgPKwRQkLufwLQI+4gfk9 ab4pBcI092VCEpf/gbj+qccVEVf/AlE79o9hrVz9C0Tl2m2bt3L1LxCX9NuX +RPLAxGvs2RbIBf/QFiMfjnhMOd/IMJXFrww5OK/CZXvdOrHc/m/CWdfP0or ofFjE5q33b4zkvTxNsEoZVu/RIqHYBOkn2as0nhJ/W+CpaeTyuBG6n8THBfu 2JHfQP1vwse4Hgee1lP/QVCdP2hgWx31H4TorM1LnxMjCPx1k3aU0O95Qcg9 lneFT+0JgvCs1nxW13PqPwjdhlG/htF4yoOQ0394x1Eab2MQtOqiVcJIj1Iw 1DRhOpnySzcYWUl/r8jm8j8Yr8IyY124+heM1ryY3/YUT0EwohP2LrDm6l8w POJqgw25/Uow6mJWn2onfxsVv3/W0ecA5z8fzz+/LPSi+aHOx+/TI9/60nzX 5ePm2zldr2l+G/Fx+Uj4kdGkD3y0bCmOd3rG2J6PosjNzTf/pfEqng9LCi17 xJjPR96OBPvAGho/H+v/NrFXqmacw8eTcUMfyqtIDx9W43td8CYu4iPm4MWx rvdIHx+JP06vjL3PuJqPhn7L+hU8JL18+PrePlpSy7iTD/6SU98DyT+lEEyz G/B3xAvSHwKjoTXm0aRXNwR5j3J6aFA8jELwyFTbv4OrD4rfW0RNP0/1wz4E 9mdmdBhwfoWgVm3H64nE/BAU1s/BQfq9IAQzzT3MT1F7OSGoGuG8L4rqsTwE Q3Q/b59P86coBAOfX7xpy83vELTOLbz5i+JdHQLvy+cXH39A+kPwMd3QquAu 6Q9BkfnWB0sqSX8oZi6f7nb7KukPhUmVya+IctIfisk7euZFXib9ofBdoXq6 42/SH4rAY4PL3tNz+1DIm0N7JfxD+kMhueaVE36N9IfibbHb8CO3SL/i/ZJX sRWc/6Gw/+H73v8J6Q+Fjmij9TiaX0WhCPpkZ+lH9bE8FJcqfqSWtZD+UBSt NM0vpvrRGIqfKg03XlF8O0Pxa8D0Gbo035XCsM9/UbQj5Z96GMbfKvfdQvmp G4ZPtapzR70m/WG41nL3twWNB2Fw832vHfeY9IdB1CvLdjrNV14YLE8ObnvO 6Q/DGcMvgR8ofoIw6I24o1NznvSHod+7IrVHRaQ/DK6v/T4uPUH6w+A17V6g 71HSH6ZYodet3FhA+sOw9fD7HmvoeWMYrMINjJfQ+51heH/k7XStYtIfjh+j Lwbv/Iv0h2Px2XeHgstIfzi2btqybgzNF6NwhFxsqR5E+YZwVKvers+l+Wcf juB29/U/aX7ywvFodOaJQzR/+eFwG7Qvoje3foZDdW9DvwriHMV4Ig86X6H1 TR4O7QfnD2qR30XhGNa3/1kNyt/ycHzOaDs6nfK9OhwzVX787EXzqzEcJVtx YRLp6QxHwXD7k4vOkv4IRG+bJ2qgeKlH4JVLP6sEOemPgPr1EedleaQ/AhYX bTX8tpD+CDwtMDjsnEX6IxBf7am+TUr6I7Ax8MVxCxnpj0DT5W0DonJIfwSC 3vu562wn/RG487fJKZW9pF/R//KmWQ//JP0RuLT30fdPp0l/BHKXzzY+TflX HQGrnt0vDDj9EaiqCvfiU3w6I/DjzpS+O5+S/khY/NpfW/8f6Y/EfO2+FUep vutGYvTQ6mXl9NwoEpbPREeM6X1EYnHN42s8qjf2kRi8vP171w3SH4kJNYWj z5aS/khsTmscIKb5KIjE66SxtRakNycSF7w2Di+m+Mgj8c5LfRFfSPoj0XTA 3kw5lvRHImCG4ei6ENIfibmzW+rmBZL+SEyescfBz4/0RyJw85VP2cRKUbA1 mTPkFv1ePQp/n3rtMTyM9EfB2KZ5omM86Y/Cs6sbRo6XkP4oPNKYuenLNtIf haRP7dd/HCL9UZi0Qr5fj+YbPwpxk6/aLbxC+qOwuWmupDfVi5wodBT8lWBL 9UQeBYsnYRum0H6kKAozb348OobyrTwKVq3CMUMp/tVRaF506ngI5WtjFEJj dx8YSPHvjMLq2ItSZZrvStEY9jhYeQfNP/VoNDm0XP6SSvqjccnoX4v5oaQ/ Goduan4w9yT90SjXO2hXvJL0R2NIy+a6b8tIfzTyQ2bnbjIn/Yr3h8X1WmhG +qPRflT18LYFpD8aRZv7vswE6Y+G9vUqvuFS0q8Y34foZA8H0h8N3g2DrjY3 0h+NSsPzyg7BpD8aBRHJ5ZeSSX803Pa7Wg8iv5RiULnuRUU95Zd6DAoWfBUK S0h/DEzm7FjuTfXbKAZT1e4tGUTrKWJwfO7Be1Hkn30MDAd+O2B0k/THYNLQ ywtiqd7zY5Dt0d/XjJv/MdiotG1qK5f/MRjZ7lFplkT6YyC0aXP76U36Y3DE /+SWKytIfwxaNHdce2xK+mMUfp7OGjuJ9MegScX9x7RRpD8Gr/Vlp60Gk/5Y /LL66izqT/pjsX5M+pmWvqQ/FgE5S7+HqpH+WJTY78zRHkr6Y7HumNfaf0eT /lgc+vP2wNTJpD8Wh+dVBV4hv/mxUFl4AJ+cSH8s/jTsuKoVQPpjcZsn6lue Qvpj8QwH/xu9k/THYl/YtZkTKX7lsVg0ofTR3QukPxY9RXNv2dL+pTEWvRe7 3Yyi+tipaO/nli/fzpD+OFhkGQmi95P+OOj+8v43mvJbNw6BrqPLptL4jOLQ e/ul/qNtSX8cmv0CV5ybQvrjsKvL8IbyENIfh27HWJ2sb+x7Gj8OeQuzKwya GQviUGTRO29GPeOcOKi3fhmy9wFjueL34TVKBvcZF8WBF9p8NI2el8eh4kvL I/86xtVxONImHr7nNePGOJzYKz/b+pFxZxzGvTB3H61K+uNx9vCCqJs6pD8e vOjsBTAh/fGIlvxw9yG/jOIhb9QedjSI9MfD3s4rv1tM+uNRunH3/E/5pD8e 0rNXbKceJ//jEafjbp5C+xtBPNp3He0W0/OceDzf2NDWvJv8j0fAH7v0N9N8 KIrHma/yKfs9yP94SP4ZMX7MfPI/Ho65XRHRGuR/PD7xn1792En641E/d1W6 GcVTKQHj2p9ladP3TvUEVLS7DvY6wlg3Afd4k8LH5jM2SoDuP3ZqVXmMkYCe b9P+3rebsX0CCl72CLp8kDEvAZ5VuXYBReR/AvwkS/5V/4f8T8C1mMv5Zo/I /wQ4128ty20l/xMUZ4WyBweVSX8CvI8PWHF9HOlPgNZc59BvC0m/or8oB8E1 V9KfAOWOlz8Momj+J2BYrvifK7Q/UUrEk659Cz7tIv8T4X340aD1+8j/RJwe pFULbv+TiM+RR973E5H/idg+TCksn+qTfSIm/1A1XUfj4SWC10+o+Y7ygZ+I H2Y+d3fT/BQkYuqa2MpTF0l/IqRGl5afpPjKE1GX3Vf6JpHmfyKUTarT1wTT /E/EkNwnlv/40fxPxK5Mrez+m2j+J0IYmFVeEEX+JyLXcWXtBzH5n4Rb47tW hZC/6knAjjl3O86Q/0mINrHQkN4l/5OgmVa0WE75iyQELZKcOtSb9Cehesg8 k75jSX8SToyLzFej9Y2fhDzfxLi8NTT/kzAz73yAAa1XOUkwGiiwfkjrlTwJ JbcSr66n/WNREsyqXHrIssn/JOieajbdmkb+J2G8upO+lPZDjUkI3b7cucue /E/CFI0VBXV65L8A3ZqG+W8/Mz2qAqxY9cG17hrFQ4A9z7pWl5AfWgII/81f 1zec4iNAXb7d7L7rGOsrfj9j1/YFKyheArg7/v7Gt2dsIkBm2yxL1fUUPwHW Pdm/UhrK2EqAW1MXTzHNonwSoHpU25XIk4ydBfBR+atYo4ryS4Di7rfWYe2M fQVw6f9oduAAircA/nljixcaMI4WYLxd404fC4q/AFX84z5B6xhLBFiQdeBQ JdW3HAGuFo5oO5/AOE+Ae+1d02dTvZMLkFdcY90ng3GBAK49ch5e5/arAkRP LA9bHMm4RAD1oTP2Va4n/wToud6dnzuPcaUAJT3f/jGd1udqASQOOwsP/sf0 1Qow03e+ydximt8CPL72yK2/iHGzYjx2pW8MPGm+C7Bx7Zis87aMuwX4qPrt iOZSmv/J+JExLn27A/mfjFIr7UmR/uR/Mgzce4z1IT+0ktF4OsPU6gL5nwz+ loLVTU3kfzK0c355bqX9gVEyek/pJYuj+mySjFqTsoQL7lQ/kvH2jlOZKe2v rZLx2LXuYsZmyqdkXGmUn9tB9chZ8X5wX5/EI5RfyZg8ee1eT2LfZBQs7Ge8 hn7PT4bFm8VLV1N70ck492rSKhvqT5CMjl75OUY88j8ZxXkPZOD2o8m4OPlm mMkw8j8Z0Hyeu4/0ypORvUrr/e/zjAuSMW68TdZHCdWrZHy/OUD5I49xSTJU tt0Lub2Y6lcyZr078f7RLMaVybAN7PlLy5TqWTJGToszTCZ/apOxtsf+3PhY 8j8Zdq+aQ0fSfGhOhten2XlFHeR/Mt54HIp7Oo2NvzsZ7wbMjs+j/YxSCor1 U7xH0flLNQXVIxaX21fQepACcfGJ3Od03tNKQcByw9B/ufuxFGhZvFlqRud7 /RQIEm6cFdD5xCgFM/lHTk2k+yWTFFSFRwXn0fkIKeBrDHrRh/a7Vikokfun xtN+wz4F8XuSipTGk/8pKOR1Ff5F+c5Lgelzt3oNWr99U7BFS/5WLZnWW8X4 HOL6z6D5H52CK/Xh9k+0af1JgeaNNJUPn+8y/1Pwdl7iiKZnjHNSoHbt66r3 tYzzUvDwDEbFNDOWp0CSNdNbcxD5nwLp4w0+d23If8XzMw9bM3aR/ylwXfzF woz2Y+UpyIjs3nmM9vOVivEaX7xQf4DyPwVPbV+FvKX7j9oU6Jot0LypUs38 T4GyU1LNQHXGzSmwHL3g2tn+jDtTYOb922AI3c93p+BmWFsodz+glIoLl1oe f6D1RDUVu069HPjBjvxPhXhRg6WoH/mfigl+QapNFZT/qRj1pOVbXBLlfyqK PDc0LJpH9T8VPP/WN1O+sniZpELZ8OobcSljpMJsgt6hicmMrVLRdPpRXt4K xvap8LP+I2vMJMbOqWjR2Tw0fzBjXioGa/02WTCAsW8qLCIv2SnpMuanwu6Y iconW8bRqXi6ZZzjim2MBaloa3fQ9v5C/qdiRllpXj3tH3IU471rsnsJ5VNe Km6IykKLaX2Qp8LqwDPteXQfVZCKR2P1Zcs1WfyLUhF6oq7HwEmMS1KhpVG2 TjyBcXkqSp/Xb2rpy7gyFfFKart+0Xm9OhXl359s76C/v6tNRX7JqZWnqyn/ U3G654ZFLmso/1PR+P3x4pQmpqczFZXB2v0mpzDuTkX0LK/cWEPGSkJUzr/u 8/S/O8x/IQJlDz/qHGKsLoR/6b0l80IYawlhJppT8MCKsa7i9wv+sQsxZKwv xOdXNXpbRzI2EuLZRZuJeVqMTYSwWCkZLdZnDCGax9X3KFrO2EoI7xeiBbqZ jO2FKL9c2vTqBWNnIUwc5teMXkX+C6HW0Rb/ifLVV4injg2tJ2Mo/4V42NdY rjGS6r8Q1SsOJ9Vw5w8hbr14GfxRg8VfIsSrk+Y3q+YzzhHiT10Zb7wl4zwh fFY0tP2aylguxAT39y5VdJ9fIMQxd5n3cmda/4X4Z7hcknSA8l+IJ62bJo14 w8ZbLkTZZMvcGhPGlUJ8WV121ZniXy2El8u9P0XTGNcKoXF9+hRJ3W3mvxC9 DGrmqxxg3CzElhmzL1omM+4UQvNr3eMLYYy7hbjaduJXYwRjJRHWNhsY5IkY q4rgsutsmhq1py7C+368cuFtxloiJFom6Q/tRf6L8LJF64CJNfkvwgnxiR0R B8h/ET6b/r57RY3yXwSbuH1dbRLKfxFKfg3c2TCM9n8i6JgP9bx3nPZ/Iqx8 dmzVhSVU/0VY8/hS1BD6PsATwc4z9OcJfeaHrwhHez7ut9qRMV8ExxdzT83z YBwtwqUHY0qi7BkLRFh37ckevTHkvwjYO2zkHqq/OSLwB0qDRj2n/Bfh6eGE 3j/70fqv4JprjVvMmJ4CEarzJ5f6ZDH9RSLkvVti9EKFcYkI6qFvBfOKWDzL RfBVqdc5RPGvFCGloy7uPPlXLYJSvyrHCfmMa0XoVDUa9uAO+S9Cd1jmBq0B rP1mESoHZbcaOjPuFEFr6jxP9eOMu0V4m9X5aWZvyv804NBp1R+ejFXT0F7d 0rXgBmP1NDQmVQffM6L9Xxrm/+7f0H8f1f80+DqN9/BUp/U/DZeN2gpb6Pxi lIYJZYPkyvT9xSQNJ/yff9pLfiEN6t+GXDAgP6zS8No8vjXKj7F9Gl4qn7z8 XzBj5zQc0YyrOevOmJeGp8/nYdEc8l/RXnfKWDn1x09Dz5arz83oviY6DW3B AnfjXFr/0/BqdeNV13qq/2kIXJ/yArNp/U/D3v56pjjP4peXhvAiB91ib8by NJx8d0cl3IZxQRr6VUzLWeJB/iv6t+QFx+8j/9Ow4qOjruQb4/I0/DdMc0uw N+V/GuR608Mv0n6jOg0uGjl64mW0/1P4cX9IfBmdTxvTcHR48JXrtD9tTkPh XOGxCtrfdaah9V/l38/oPrM7Db+PnHiYwv39mBiDNuoH+Y5i8VMV4+3PN815 Mxiri7Erpe5mX6p/WmLMaY2a5efAWFeM8XmmS1qdGOuL8ev13MBkG8ZGYhxx jes5eTZjEzGeNiXbSYaQ/2LMnjLUpobu66zE8NX8U1BP98X2YjxM8B5XdprO f2Lc+TzvrR3t33hiWBc4n4vPovovRmj2dT/LEbT+K953/HZy4G0W72gxCnvv vP3xJGOBGPFFI59fucZYIka5uoVD20DyX4xq94LCjkTa/4kxYcvbhiHKlP9i HFITDF25hfZ/YnS+0/91g+47isTIe9FDZSd9ryhRjH/Xw7lVdP9fLoZr251D wfT9q1KMUa/cEmbS9/pqMXYcTPPdQN83a8XwKNcLL6b750YxpnveenaW7q+b xbixJ7hIJ478V7Q36YbqHrqP7xbDWH1ioR6dz5QkmBdpMCbmMZ3/JLD9ku59 cjOd/ySI+Va477k55b8EE7W3jm6n/a+uBOmVzu9shYz1JTh5/N/sh8MZG0ng Yzl1ostRWv8lsOvTHHdjEa3/Ejg98F6X1crqmZUEgVVfPy04z9heAq8zxx1j jjF2lkDW64+hqfcZ8yRQ2+5/584U1p6vBEfGS3orlzLmS9CVo7dwoS/t/yS4 HWA46p9xlP8SLP3++kzfe4wlEiS0vP1625HqvwQZ+wLd6un+OU+CXKPWpOHc /aQERvbpSuvX0vovgWRJR1kOnQ+LJGhd8n7/1pW0/kvwrXj1EosLtP5LoHpa Y1ntBMp/CWbu6cu7L6f1X4LCnga7A4xo/Zcgr3bJq8gaqv8STLUdPS48ldZ/ CQS9swXmC2n9l6DSxjHHqCet/xKsvH/VbdvNW8z/dJTYTvOZlMtYNR25ETea l3oyVk+HruGjtXqzGWulI6fYWunzUMa66bBNGvuzugdj/XRYvNxVZ6vC2Cgd nRPOJG+ZzNgkHau1hru1RzNGOly9bNXedDK2Ssfknyn2arnkv+L9llVTn6+l /V861MqmpYfMov1fOnrzj6/Z3p/Of+kon9LrW3wZ7f/SYT7BcOuAGVT/0/FB eUyEEZ23BOlQ9T32/DKdbyTp0D5+47Z+EO3/06E59O+oa5sp/9OxIr1+lc4O qv/pGFlf7960j423IB2Oyndzp19neorS0Vau9SBVi3FJOpYnfVfR2XWT+Z8O 9+mRfe0sGVemY6j1XL+0YYyr0zEua7Hs3PdK5n86Bo7buXHuR8aNCv9Kmo/v 62bcnI5Xs6/qnezD3u9MB+r6zBg+knF3Oi6+kS6fOpuxUgbubL9blrOOsWoG XIcOPf1Sylg9Aw9Sh29NvctYKwNqVpF9h48l/zOQqfMxsiOD/M9Ay4biJxMH sHgYZWDP3iV7BH8yNslA4EVrc/XVlP8ZkAXMN1JRp/NfBl6NXjv3y3U6/2Wg cKvpPlMfqv8ZuCJe8kKTvnfwMrDxdPOyOvpe5ZsBYex9F94b8j8Dl7JPWrnT fXF0BppcOgZbnqTzXwY+2u3d9eUC1f8M8PsftlpL9SdHMZ7NM+13X2X68jIQ bfhw3LfvLB7yDEgdKwZEBTEuyMBTg6//2egwLspA7r6uKwLyoyQDvpb5Dz9p kf+K9rtDY2fYkv8ZOHHVU94nl/zPgOrjA89K3zCuVbT35vca3iI2nkbF+/q6 N4P2MG7OwDC98ZMXfWPcmYHq/puqRGso/zNQoOMTe+kc7f8zkW+QfumKBp3/ MiG52T7HJ5rOf5ng+wo0vjfQ+U/Br2Mn1C+h+p8JJdU6oy6Kp34m1G2NDE2H 0Plf0d5CtTnBgXT/m4mna2Udvc7S/W8mUj5G/lP6jPb/mcgo37e+7wva/2fi xC8tK+dz5H8mZg0/K75F9ZSnaG+aVfGNq7T+Z2Ksu1rIAlq/+Zk4Pv9GZdlS Wv8zMX7zwZ3eEqZfkIlSK9dJxs0sXpJMGHbs3OsUyzgnE06f0jffX0b+Z2KC 3pmfZs6M5ZlYMkHgXLqXcYEiPuOPfhGos/aLMnEh8FXYuL2MSzJxKFu5yseE 9n+ZmFc1It6thnFlJvaejZ/Ao/14taL/vKXGpi8Y12bCRc9tzEU72v9lQvy3 1pcO+l7VnImbQ0TaK97R/V8mdh+ee7Zbm9b/TFS43fk5hu43laQ4ZZIg3k/7 Y1UpDn1NX3HFhu5/pFh78o/AofR9WUsKcw/X/bGadP8nRfz1Ti8fOh/pS6HW 22nBoq3kvxQDPZ8fHmlM/ktRYWaw6jCtf5Ci1sEx2NKI8l8KXYsOp575dP6X IvrsgJN1dH5ylsKqT2DRwhRa/6WoC9mxNWAUY18p9N/rBD16wfzgS/F+wKu6 ua8YR0vR+fRi+8sJ5L8UvJDXmf/tZyyRQrtx2KDjK1h/OVL4fx6iIxxF9V+K 0+FnJTHtdP+n0DvB5LUf3b8WSNH7VkudDv19QpEU1bNfRzjT38OVSGFxs9Dz A/f/Y0iRWWGj9Ks33f9IYWe62n8h/f1atRTCq18y3OjvtWoV/sjdStfS/Xmj FG6qB2on/CL/pZj6aMj62bQf7ZRi0VJz+5bRdP+viN+5KReND9D5T4bCbVZz QsfQ+U8Gs1nG8ZbbKf9lON7TOmO2KuW/DHfwcoddNIuXrgz4N3TZ9ndU/2VY sOvQny5+tP7L8P6IZaUh1UsTGYZdTExJOcEYMkx6uHrozXTGVjIUuAZr1+xl bC/DnprAMcc+MnaWoeP+qcgPWax9ngzbZdZXpvqR/zJsvV/jsC+c9n8yzPjz q//1HbT/k8Fgm49EQN9jBTLcdCw+7ED7O4kM0zb3Orhbi+5/ZOhbLh3+0pju f2Swvux5a9Zwuv+RIXLg1N7r6e/FChT6VsX3GEbfc4tksBgw5eH1d6z/EhmU vI7XRP6m/JdBfVrwX9bjKP9l4KXaNNS70vlfBnuz7Pf2RUxvrQzam0W8xBFU /2Wwcn0fdWYri0+zDD+G7G04Sut9pwwlFzQ/HDzO9gfdivZ537V+LWGslAWe foR70LsbzP8saF0uLRosZ6yehVy7K6OW+zPWylKs/zan4hwZ6yr4pG6liydj /Sz4/hrlpHWIsVEWJvSZfvi7LuvPJAtFZpkLfZ8zhqK/8r5Sx0byPwtpH8MD oE37vyxU9hetiRFQ/mchPrvmj21ttP/LwvRjBXP6zaX1XzGeXnZ12SPo/icL Dw/curzLme5/FP2rNVq+tqX7nyzIJmW7bKJ8k2RBWrLhQtMN2v9lQdJng7m1 M+V/FgKmG/82e8DGJ89CgtGjoYleVP+zkD1jX+UWQ1r/FeNVdinJMmJ6S7Kw Su/Et0GhLD7lWWj93at0XdN15n8W9v4y2nEpmXF1FrYNGTnq+VzGtYrx+grn L1Nh3JiFq/Mr6ve/vsb8z8KaNZujQh4w7szCJcvJy8vuM+7OQuTQBo2il4yV suGx7fzAiQNZe6rZ0PxwWd9lDWP1bNg9GOA27zpjrWyskt4KKvYg/7PR5bTy mvs0pk8/G5H8r7V9pjP9RtmIrdH2cvah/X82dDY190q9xuKHbMyx+mfIA5O7 C/8PwynM/A== "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9e3lcTO37/7F8PEkYHksIY8/aWEqyvSlkiZGlZJuStDft036qqaZVUYni GQlZyojIlrFHlkGhhOFBeSSDkGy/8325zs8/Xm/3ua/rus/9fl/Xdd9zDHLy sd3YlmGYhnYM839///mjm8n2KJ73PDRzJv0DlAZj9TtNTCSsB2Vf55LpI6IJ C8CIEg6PnRVGuAdY57MZQxBC2BDqhYkOP+t5bARmf+jD91X880JgffngVxaR hAcDR+s3x9qyhIdCuP6a2ZNNvL/hnL1p/WLnxxA2hjDC54PdWx6PAlp7zW2a E0t4DJRpCT7PlvN4HLQbFNc+9eSxCNrV+uxJBT9/PNjW/0zmFPP+JkD48Pde 40Q+nolgnNrUZf7/eCeBebu79uSzUMKmwPniHmyXYMJmYEVjhzyp9iM8Gcwt /dB5qZ6EzcHOkmeEv3YiPAXMuXd9bM8tJWwBRnbplFP34ef/4Klgvr6cWb3W jvA0sH4eC1y1GwlPB6M/uOBtpQ/hGYDbrlGRBQGEZwLH5w9hDUMIA7jSpt9r k4g/mAW0O4T99LxYGp8FrUGxa/v2MTQ+C8IQtwd2K2NpfDbUvz4EeK+T0/hs SKz2bivvHUfjlmB3p46tiiTMWkKSc51xyODHrcDaeCwftJgft4LyQIvQuJTs MXPAdN/RtPMa+WPnQNj1rV59AsXDzIVySGHSzm8ULzsX6ps2RgMtI2l8HtjL 2Y7+nUJpnMNL04WhDoE0bg3GZsqXfyClcWuwb6z+y1fy73M+mJkh7boFL6dx DqtfGiSNNKb9WQDG/pPtqYcOfzC7AOz30PC9YjcaXwgEtu1mwtL+swvB+AW9 HjpMRuOLAI/lGWOiImh8EYQ7ggayU3n+2UCtbsyZHUZ8ZW2glV1OzgmIo/HF YKZ+/zJpQAKNL4b64o1D730UNL4E6oxBs5qcSL/sEkg+hr2r+MDrWQxtvfD+ QcOkPxhiqOesG+xVzT/P4VFdZx4eQVjNYfcsbbWAt78U6o8FP8dlxtP8pdBu n7hEc0JO87nxqimrc6JIX+qlYLZMzhvaFEXzbYHXE+ryF5N+YAtm2CHz2MkB NJ/DP5sty2I9aD6HXeoOtBm8huYvAyP51trzVDuaz+E7L0PPdV9N+8XhSTsZ vxkef7B6GdQLLN/8XMjrYTmY1vClt48QP8Bhp7ol/vY8nzj8oofPvn7EP/Vy aPe1eZ+azfN3BSRVB4PWnU+g+Sug/m/JoMTURJq/AkKzDhk3viXRfG78yK0c 01/JNH8lJEOLzKdmp9D8ldBWePodLSfMcjinfEBtIGH1SmD0I0/3M/x8O2jn 3xm+NZ3sww74/R0dWxQ03w7s/JNHOn+Jp/ncOCbr+6fz+rKHsDjD5J/b0TTf Huq2jr86+/P5gMM2ZhlWJ4Novj2YPWdSVrXj88sqMOIlPY6VrKf5HGbffu/7 obn8z3wONz8/9Sl3Pe0fhz9/mOBy24f2zwHqtOFTdDcoX8IBKJmz08SX+ME6 cHq/YKtcQ/xXO0BSPfpM8QXiG7MaatfNC3Y9In6Cw8viJ9hsTaH5qyH5fMS7 7mUazV8N4bMFVp8l6TR/DQTLX5x3FmTQ/DVQ74jr9yicMLsGQv+Cm/57CKvX ID2tU3ZIDGFmLdKbKzs69OHnr4Wwjb3TRVeyz66F+vT75gWveP9rgRNbGsMD KD5mHbQOlQ69FXz868AZtIweTetjOZyflrXGk9cPh9suzog/Hk7z14P1Om/y yoD0gvVcvvz31s7OLjSfw2dFN/qkTaP5HG4wburRax3tnwRsSbe/R52j/CeU cPWpTY+rJ6k+QAJladRZiTHxQyLh9HzbuH4Cn685/Ov5ryNviW9KCbRpI3Kj rHi+cvOvV9eVizb/wVoJdB+u3Lt0L538O0Lpmlhz/2YG+XeEyufI+9sxW8i/ I4SflLU3PhCWOEKc5+dY0nsr+XeE6PnQgXM/0biSszfrwWyhnLDaERKDgT5n bpB9Lff8q2Db8ArevxPY0ybtQn+nkX8nCCf7mh+tJ32BGw+JPO9uS+uTOEES IDXKXsDXOycw/QL7p52OIv9OUD/elrd4Iq8XbvxGH5WdpSv557AkccnqExbk fwOY6VPtCjpT/RdyOHf5yE43/Gk/N0D96ZPZv77Ub0g2QBi1yL3Elc+vHI4f 9r55LfFHuQHalmfdfrTl+bYBuiljT8UOIn5qN0Bz6dZbu/9tJf44g9WvtDIq oH5P6AyRXYjd289Z5N+Zq49Ls1o+ZZN/Z+g2eP9VnLON/HN4UvLE688IK7n5 L/R0wVcJq52RbljzKWAhYa0zlBlbbwz2IXvMRrCd15/Kn0j+hBvBxHSxfplH 8WEjlKZHzh1QUfwSbnzRpRE/Gml9LDe+amLIxPf8+jl7Psfbu0fQ+1FvBMzu RA5eT/VVy423j936Y4Yv+XcBc+Gb8alZy8g/h1/XSpY+IH3Ahesflin3GFG9 kHDjb//q2d+Qrw8uUNeHl3s8Iz0oXYBSrY3UhvijdoHEOqrp1nDim9YFWuWE vv+6ED+ZTcCPraJ+6zOJf5ugeRez4bpeNvnfBGXNi3zJum3kfxPU0pbpktU5 5H8TpDNqxbN+EFZugtZycIbrjO3kfxOYCQ8GDxQS1m6CUF/ZPVNJzzOuYC4e aX19nuwLXaHcmoCpUbx/V0jad1hwT0vxSVwhEi/836gGip91hU6damq0g9an dIWwd7vQ5m/8+jl7BStdZo2n+qN15fqhJbktNaQXxg3Yvc9+aLwf+XcDc9/p +QgnW/LvBvaWidcT6Qbaf268pl9r4gTqn1gOX0j9K3oR1QelG9TnZBe/raR+ Ru0GZejbPs0plI+1nL+D5mVHzvD8dwebEgL/A8RHoTskbpqe3623E//cgWq9 8jFpueTfHSqH/SoL753k3x1SWZOe+tku8u8OgdvSHTW1/5B/dygxul45Rkn+ OX+pbw9PGU2Y8QC7timw6g49L+RwbIvlm8tkDx7QTXR5qphM/iQeEJlYaTuP oXhYD2DmJveQAznk3wPK910XRp0iPak9oDa9NMLfdQv594DwaceywUmp5N8T 6pJlpVZq6ieFnmCPuRTpTOh8Bk8wFvflts+cyT+Hw/47FXFtFe0/N/+mY1n6 iGDaf0/u/R7W/D7G90uekEx5N644mPig9YTI4+uFSRLKx4wXBJfGi6tO8fz3 guaBbZDXOeIjvKD6+8XfSscdxD8vaMfqPCt25ZF/L6j1K7OueO8i/14QWs7/ fObmP+SfGz832d7bQUn+vVAW8HeC0RbCjDcklpFuy1IIC71hndN7zhprwvCG tDT5/o1ksifx5s6HlwYM1yd/rDeE103zJ3SmeJTeEA1fceT0Nl5/3mA2bi0x LSY9ab2hnTN+eg87ql+MD5QOO9f9ZUb1UejD5a8+T6br8/2kDzBMEtIhJZz8 +4A52i+6cJgz+efw69vmvkZUP5Q+UAfPWD88gfoDNWev9cjy1DbUr2t9IPzn QcOZG3z/IwXWTWptcSO+CKRIX/JzVMJ14r9QyvGneE9xNfFPJIVO3vxuVDnx F1KYTykdnbcy/w8Wc/MHmNz/cXgP8UUK69C1IwVnCv5gqRQq2SBLedhe4q8U hsm2ie/fEE6XoizniaKm7T5ajxRKDwPF/Us0rpJCotl3YfdowmophJ/PD/Oz IPsazt/6z0f7fKR4tNz4vzsCFq/c/QfruPiHfnHcW0P6YnyhzRqo7BS2g9bv C3Z5qaCggK9HHJ4WsvdfL3pfIl9IFtktnfyC9AJfMEMKz90ZGUjr57BwrbLb UqrvEl9gzoZ90ybL/mAph0eaZs3uRvvL+kJgfEx18wLlz3RfKDt4PVIWZBGf OHtfdX2/DCT+qzj/1r9mjRhO/FNz8c85YbHhAfFV4wtxdeB1wcp84psvDLN0 jis37/mDdb6wv2mUPYktIP75QSuRfhkzYu8fLPBDxcKYDfqxhIV+0HMtsjuz hbDID4LjdeZYQRjcuOKJVfF1sif2w6PBJ07PfU/+JH6w3zdy9u4rFI+Umy9+ +6x+0W5aP4djh1hYGpC+0jm8b+CSLvW0XqUflGf2Tj4+nvSj8oMwe2iq21d6 X2o/qCPuL+m9meqLxg+Y/XjIiodUr7V+YNo8Mdmwxpb2n8PKSZ+yy/n7G38o x34xvruF+nGBP0Rf7uqNus/3Q/7AROPur/h8K/JHjnBKa30uz39/aN5s7672 IL6L/WG9SHXK/hvxU+IPiftYiztTCon//lDoWzh9HXKQ+O+P9HORw0epDhH/ /WF4zzvp98PDxH9/SLcqXfWzi4j//tx6qsYfekVYzc3XD83reImwhouvZ+uh 6aMJa/2h6zR0x34jsqfjcJy6j9c28s8EQPnFfIT+LopPEADrwRMsn5iS/oQB yJHkFm/dROsTBUCRsHHU6pn8+gMgaNL2StxO+UIcANHPO912WFG9kXD259p2 mW9LepEGgJ3qZTs7cxOtPwAwv263WkP1P53DjiPSFlvx5wnu+XZRXvsnUr5U BUB3ay+TeoPPr9zze7L0Au4QfzQBKBsyqfF6Ds9/Ln7zTwf0PxE/dQGo8Bh/ IPzTPuJ/IHTHg86+yCkk/gfCdc2ImT3/PUD8D4R1p1ffNt47SPwPRIXbX3WD Nh0i/geiJdHvs9luwuJA6LX21GNYwhJufH5or0ltCUsDOf0cCvs6jOyxgZCE PH9g8Ib8pwfCfvmbhGHz99P6A2G8PynA1or0pgqELOGbXlYNrU8dCKl6X0VK R17/gRA9mHPPq5jv9wK5/ur3NPsM6td0nD/TdszPXfz9RRDX/9TPzeLriSAI jN2bH7LD1F8JgyDxOf+9YST126IgaOe2iz6vR/0GgtAy8KCmuzvxQRyEnKU7 j1TnUz6WBOHRiiuHarfx/A+CXm27/r6mxEeWm9+U0ljscYT4H4SAPI3b7N5H if9BWPSS+bzXooT4HwR145CjrUbHiP9B+PFBXtvxLGFNEKpyM3StPY8T/7l4 ttdMaTuSsI5b33cmHJ/oeSYYLdOt2Md+hAXBkF9bP2XxPvInDEbmiTH/q0+h eETBMB46rNJphIrWH4yG69Vj+36g9YiDkTPkYERGpwO0/mCUvRfNulbM179g qGzaDpa+oH6P5fCLZasGPaF6kx4M4fuFjzv0ofs8ZTCYqcfLN5vQ+UQVDGVH 65cxdXQeV3P4sN+Jfbm0v5pgSN9ZPh69J5f2PxiijANey95TvtVx9o//yl24 g/jEyJDe+e+io5U8/2UQTJl67Wg08VUog7164A6j8iLivwwi/2T/b/IjxH8Z Lvs/XrfdS0X8l8F8bcin8heEJTI06k2SXR1ylPgvg0GI+tTl8YRZGYRnT49u MCCcLkPerPfmvsdpvlIGVQ0+nB9OWMXFa9rubcPFYlq/DNbVzf/OuXSY1i+D LCmmZoY16UvLxSuZvffOQtKTjsMRXpUbrlN9YkIg6rPseWAk5Q9BCAQFpRPb S6jeCEOg3V+y6koG5SNRCBgm1a9D5gpafwiUgU6Tp/LnTXEIxHnmX/Rn8ufl EJivcO771zjqP6Qc/vGx1GnQftr/EOhaDFQjNcSf9BBI0z/ssNLn+R8CvUGb bPdvIn6qQtCiqvB8FlBK/A/BosZp+a2jThL/Q1D2486Hpvgy4n8Ijr/5NS5b cYr4H4LGNPFvr/Gnif+hWBNwtotTLGFBKDLHlwx5GEVYGIqAvn2yDEcQFoWi bOLZSlMZ2UMohqpTpy72JX/iUCimnZ8yU0DxSEIBlwBm1zKKVxoK47nrPz+d SuthQ7n6PWdd9E3SU3oo7Jsl4f368vWPwyFh2xz/pnqkCoXOOOq/v2z481Uo NM+tfzu00v2AhvPXZdXlyRPovl0bConJApHLZNKLLhRCQeUcjyHUXzFhKAs3 6rZtHeVPQRgaxoWqvLbx/U8YjKd49hg4is//HE4oEo/vSvxDGFS3p8R0KeD5 HwZFZPYx1ybisyQMBnZvwDaWEP/DkGmzf3R1wTHifxiE54tHZ/U/TvwPg+5K p/bvVhNWcuPNS4t2biCs4sYzrwy/ZkZYHQbpyS7lNdVkTxMGxlkxbPdMwtow NOrKv0p8yb8uDC2S2wd+u1B8XCpks/+ysexH8QvCYZ3ZWrVcQHoXhqOheOXe F4upHorCgbnl8UWvqZ4iHKqVEx3KdpF+xNx47O3/vhjw9wXhUE+6m1+VSecX KYfjco7dvkXnSzYcTItdr/Pf+fzH+dNVx1+5Qf27MhwVva4+ZvZSv6IKh+fv Mnn5UNKHmvN3tCXX6DTldw33fMC+Ba8/Ef+04TjMDh/W/jTxVxeOujpHmz4/ zxL/I9CwIdCSOVlO/I+A8mmaQPXmPPE/Ajuuqq9HLFYT/yPgLolf+MaLMCLQ IbhWcN+esDgChvM2ykU9CEsiIJ7Q2GA8j+xJI7D89MUF/3Ujf2wEcmRP1dmJ FE96BOTD/nb9eJjiVUag/YlNIbdDSF+qCJRdG81ubuL1H4FHGf1Cazrx9S8C 1puOKpwOUz3VRkBU06OksJjqr47zZ7DBrnU65SMmEtqSbtsmdaL7EEEkGI/F x+7spd9bhByu2C/ftI/OK6JIqMd1MumzivpzREJ4Saw0f0z5VByJliN51d9u EV8knP3etv4P35JepJEY83uMIiiLz/+RSP8mmDVpHvE1PRLN/VUjwjN4/kfC cEOPYU4RpcT/SJTVBTU39jhB/I+E4MaNExcdCWu4eK9+yxd7EtZGokflxMKl UwnrIuG8bP2sjPtkj4mCatjCNncnExZE4WxyypNLruRfGIWU2x+f9t1I8Ymi IDNXtd0zkvSEKGjq728KOsrrPwp6T8MnpDSSfiRRUK8Vdkl7Tu9DGoWGf7dv 2zeB8gsbBfGhI/vs9vDnnyhIFx3ZZu9K/a4yCvh2aNLhE3SfrIqCcM6qbW1a +d8DoqBdFFa19A3135oomJ/r5Vm5m84fWm5+J+81/RTFtP9RqEsIm/zfIb7/ YfHScM+wrbWkFz0WPdoxZx8rzxAfWKwpeMz0qSK+GrJoXSi7+PAA8VvIwqL7 dKvE+At/sDGLg77Lr+/8RVjEYoJ3luXh3hf/YHMW2pmS6tw6GgeL8ILpNrNX E7Zm0X3hc4P2+byeWDSbW1s+DCP92LPIvGHgV+93jvTFQtSoaWtgTvG6cuvJ t5lpVEV6kXLxVx90rF9w4g+Wsbjcs42yII+vPyyks+vk+deo/ihYuC6++MAw kz+PscjpEtfTZh69zxzO38jLf4WtpfsQJQtm/az9Y503/8GFHN6bIRz2dDXp lYUywf5FvT/1D2Xc/CuPpYe1/PmF868z+999T9JPBYuGB9UDJmwkvmhYWOuP 6excQvp5xKJqvnH92VzSj5aFuWP3qSd8iZ8NLBZ9sbo/+RHxV8e9L1kH1REN 8buFhc4iPtliPemBicbyinm7ZyYS1osG+r01OrycsCAajFm735XXaL5hNJwV ozv7vuH1EY2yonZf214g/8bREBsc1JqtJH2IomG/u4+pu4r0YR4NiZv+AuUh 0geioR13/75bFq3XOhqqvGtt+w8mfYijoZ73rKhJTPXZPhqif2JWL7eg/kwS DaWmPv7TLzrPuHLxeljbzaui7yeknP0ZSyuNF9L5XhYNzbjWjb0N82j/ufXW FN2tlNL+Krj1/HW2XQf+/JzO+csYKc5IovNATjTYK9dfvQkjPim5+Abdm/zR ivJ1IbfenPqgoFPET1U0mk6ssHVeTnwui8YN8YEHNr7Ed3U0zn7s8TxxAOmj IhonsheOktsQ1kSj/eOxC7a20POPomHcMKLNyqGEtdz6srJtn5WTPhqiYfQ7 /7FJNNUTXTSEdnK7C1dJDy3c+w/Y31pVQfWSiUHVbfXKsjPEf70Y4NWgJcZb 6fwiiEFFdOd7GQOpHhvGQNq176CBYfx9Ofd8uwlbFj+l+3fjGDCVedHzjOj7 FFEM1CtU4R8zqX6Yc3iWweQUa+q/EANl6y7jyf3oPsuaG1e0i5poxteTGLj2 LhJqx1L/bh8Dbea2gYd/Uj8miYHuaZ532/2kD9cYFBalJdzrxp83YjBmztqh FseIj7IYmO/f0cV/HPGX5ezN/G3rJiN+K2LQ4K642CaO+J8eg8zT6i3B807+ wTkxkK95kzi6hLAyBgYuwequJwgXxiBclhxmNpuwiltPD19DSyuyVxaDgBPd djkd5Ps3bn1FL0/qXCi+ihjoTWEOzvyP1qOJQdnV/1I2nKb1P+LWW/xr5rsa el9aLn7X0KoxJvS9QQPn71npm0w/+p5Cx+GD18t26dH9ZksMcg6eXxgXR/00 E4sK06sGQ3KoX9CLRfuk8aVBXYgfgli4PhF2XdSB+GMYy+3P5vXOZZRvhdzz 9/JXHR5L/DOOxagx/j+CJvP5PxaNzwNOK9V8/o+FXsmmy4fGX6b8H4vat7Z+ t+OuUP6PhfXApmc7jl2l/B+LyNaS0I+Hr1H+j8XTtBdD5OsrKP/HYoHk/dr3 pYRdY1EVMMlmz3bC0lgMWGrUGvWZ5stikRPhXzjwFNlnYxFzcLwmtI7iUcTC LF7ks3IDxZseC7HRjK7LzlP9y4mF4pX5w44vqV4qY5G+LLvEI430UxgLWZbf ifqFpBdVLIRZHqc38t+PlcWC8d3qItxEv3+oY6HZej789QU+/8eiMFr7cMcD /jwbi8txbkdf/CQ+P4qF9nXYZL9jxB8t5y9+cJvBJcSvBm5+S9+7cYPLKP9z +/M77/qRkaco/8ciz3XgO6fXhBk5UlJOHEmWnqb8L0ePf1p26WoIC+SoyFPW LTA5Q/lfDmPvaZ0WhRAWylEwoHSb/TnCxnIUnu5U/uInYRGH23hMc7Y4S/qX Y6jO6VerN2HIkfng3wNFWwlby9Hi0zd7TS5hsRyiW45Cdz/C9nII97piJm9f Ise0QX3GG/Qm7CqHbDq7ITaD1ieVI/zZ3i3HzUiPMjkEdxgXh9v8+UuOslh7 V91i0ptCDutBGQMDF9L9WroccHukuPmDzi85cohzImrmbic9KeVQV/R6VXWc 9FMoR8PvxtaSeXQ+VslxsOOTzN3jSA9lcvSqDS92W0R8V8vRob2VS/Jt4muF HEnt9ldKd1VS/ufsWd7pk3T2FuV/OQZrLWImWNyh/C9H73+nJFww1FD+l0M6 96VT8zrCOjnuTu86QBFGuEWOJxPyjcYEE2bioO2heNTTjrBeHMQOO6It+hMW xOHXrJ6xqRnkzzAO7WOGVawouk36j8PHBc/Wr5dTfMZx+DK2i7tpp5uk/zgY 1kuHvjC9QfqPQ9O0Kdl3vpEeEYeXiYoV3cW8/uOgN6pyrIE56U8ch6qOC8XT Aqie2nP+95T+KrlP5x9JHAR7zv5vYy71a65xEHbarCyppfokjQP2Rr5LiKHf 62VxYI3D3vVaQvvLxkE6eOWqmmh+/+OQ5+OZWz2WP4/HwWDji5/Jr/j8H4fM QtHP99GkDyUX/w/LLcJJxM/CODSvezrmjuk5yv9xMH7+SZRylnAZZ79uyUWn j4TV3PvefX7p6GbCFVx884o3q+8T1sTB6tz265m5hB/FYbl0RtyNpYS1cfC8 vl7VtZX8N8Thh2OHzKXZhHVxkNvPnnh8OOGWOC7fuC82OUB6YeLBTLG427EP Yb146HmujrH25vUfD9fplSl/7yQ9GcajfYBzfO8syi/CeMgrDxt+Ab0fY+75 KLeNn+OonoriIVtm2wAr0pt5PM4e6fZskj31g+D8lX95mGbB93/xUKc+3bKM //1WHA9hj0errg6j7z3t4yFaOXX84TL+e5B4sP+7frFZQOdb13iIO+rd3jqf 6pc0HpLhhw+tuEX9kCweWqfZocIk4hcbj/iRYqND86keKP4v/maL6c7XKf/H 40aw0UDT/aTHnHj0cupVsv8z8VsZj5cVDr/WLCT+F8aj7vydSqMzNK6KR2On 8jtD3Wh+WTwWvNqmi4ol+2ou3q/fk8wsSA8V8bjM/MptKqN6pInH1bwuT+8P pngfcfbl046WD6J6q+XsH0/pO3go9Z8N8ci5t7H4zSrSh457/42j+u28RPWp JR7psVNKzx2j98UkwHqG0DZvCN3f6yVA+OrXHVUHOs8IEsB4t80baiCm/U+A 5IvdBdcF/PdaCdDWvVp8Xkn9uXEClL4HV6+xo/tkUQLs2y7OPPoP3RebJ2DS q+y9j4cQH5AA11tv99h0ofplzdkvctfvFUr8Eieg/e2xB446EB/tuefPm2/O KubzfwL07vkabI0kfrsmAJvnWenXEpYm4GbJinuPNYRlCVDsL/V87UmYTcDQ UQefCIvIniIBa2ZO1HSUk7/0BFy+eHDemlqKJycBmWHPpj/IoniVCUgZ+XBp fD6tp5Bb/8jeA85+pfWquHhcZr3f4Uz9Wxn3voYOb/P7EN3PqxOg3hRfb59N 31tWcOuf/fVingN9v6JJgPTFyoGe+2h/HiWAXeDz9I0F3YdpE2BcHeSSk0v3 YQ0JeDl8oFSk4fc/AVX9a/ftu0H1qCUBLTlXlnzeTfmUUeDFuBWzT56k84me At5/Pez6vYD4JuBw4lHBVSXx0VCBvHXn3AKLSC9CBfyEqz79c4XqlzGHV+w4 NquW8r1Ige7Jc3Ycv0t6MFfgpk3ouy4Kqh/gxmujnq69S/XFWoHGPN8vb2dQ /RErMCV94dBaE8L2CszN97ZhbOl5iQKXred2Vc4k/bkqUNBVkxE9kvxLFYjP u3zj0iiKV6bA7d3NYxFC9Zjlnh8wYd+7C9TfKhQQu3SbFljP38crICr2ii65 Sb9n5iigfKMd+qmEvtdQKlDWdd77vz3p98RCbn279K/828z/XqGA8TmTvi02 lA/LODzm5roeYcQntQKyJcndEtXEtwoFeuQsvjV8HfFTo4Awv1NkQgKf/xVQ TLu0fbFTOeV/BaTHdmw8/9d5yv8KSPwq9H0SCOsUYCZky2rfEG5RIMBRf8LM PmrK/4mw2D32yHkRYb1EzFhh+SvOgrAgEfGmlVPnmhI2TETA0PJ7FwYSFiZC vkTb4/4Hsm+cCLXg5bWvkYRFiRB0nuXx8jnFa54Iw4oOS5y6EkYiWKHp1xUf +P4vEdN0RV51jqRHcSJuRpgueTeC6o99ItYYp116+5Xep4TzHzbk+5dQ6o9d OftFvXr2Kaf9kHL2l+re9A+l749kiRBPSTErnEP3ZWwirLO/iHpkkX4UiTCq sLTccZH0kZ6ImOsHO+Z1oP4kh4unyUAjukP8Uiaipddljz3PiY+FifhkYz/e s909yv+c/dFOLWnb7lP+T0Thh9UHDU5UUf5PRP3ub4u++1ZT/k+E28r/eWqf E9YkImPAjFNZfR+Q/hNR5Nlzc/oYwtpEjBn3X2nvIYQbEvHtaUBlRnvCukQ8 +H3oqMV9steSiDNNk+MfpxJmkiCvFmY5igjrJSE+RFJqf5ziEyTBrnPra8du hA2T0LRh4f5r02k9wiQE/ThUY2tC6zVOwpVBvZdE1pFeRUnIz5fenhhOejdP Avv3Cf0D+fT+kIRR/qN8dRNJn9ZJMNzXftZ1a9KnOAl6M2a+NOtL+rRPQvp+ hxHfWyj/SZIgPBfZ5pwl5UtXzn6+p9mHW/T9mDQJ+L7QY34K/Z4pS0LZNWl1 3498/5+Eug+7up4NIj0qOPvbdzZqEoh/6UlwvbMhWSgj/eUkQX1qbaiDkvir TMK0fxNnpywkvhcmoWXtvJynRYRVSZi0Z8nYTy8JlyVBEjPRveonYTU3fsJ+ 7O/vhCuScHb2x+BzTwlruPh+7R7as4DwI+75JUfv35xPWJsEqxdndznconga kqCYM+LF+tGEdUmwfzZgSsf1FH9LEgpW9M2VOpLemGRMeh4R2mYk3/8lY0xp 7/fVhaQ3QTJSznQdoK+h/s4wGQVV5472TCT9CZNhZRD71uEU3V8YJ8N6WOuu 9Bjqp0XJaJnSNxff6T7PPBlMu/t9do7iv+/jcKbZ4eaYtbT/yVBdCQ+btYx+ 3xMnQzI1qEvb+dS/2CejefjPb9b7qJ5JkjGq44TCbzeIL67JEB7c7j33JvFJ mozZ3+eWdkik/kuWDFHE3aL9R0ivbDIy+9jW6sLukv6599G7y7fB24jP6cno 4d1tyeX+xPecZHxT/Lj+szthZTK+f1z7szSeni9MxriMXP+UDLKnSkaWaudE oZj0UJaMirqtD1PPUb1SJ6Puktr1zmHSQ0UyzPpXX7fPon5Qw8UzTra+YgvV 30fJGLBt8Jutpfz9H/f+gk6PdelI9xMNyViTfmnf/t+kF10ydMmxG5ZbUj/c kgx7m91nNyjovMqkQJHmtG+llu6D9FKg6VfQc3wt3Y8KUgDh2+evV9D3g4Yp YCZnL1Jt86X9T0H66K2jje/S733GKTAW3po7NojOV6IUaBe8iZ1lRvd15inQ mR4Z3niG7/9T0HCgQ76sHZ23rFPg7DtuV9Zj6q/EKZBYtL+lMePzfwoat9wx 7fM33/+lIGfq6zu7ZHz/l4LCJ/Z1pwOI79IUlP17X296d9KDLAVnD9m93rmU MJuC4037zF8MIaxIgdFG54vO7jQ/nVt/xYk46Q/yl5MCQYcrr28dpXiUnL2G CqsYH4q3MAVD2++9eXAC6UHFvd+TRc1n+N+Py7j58r1ai7E7Sf8pYA3ZMZlS ep8V3Ho/uItKu9HvoRrufQ9KXwz+e4FHXLw2jH7aIapX2hSYdxS8GZVI91EN XPw9LX8UmVD90qVgQYzB90h74ksL568qW6+4G/GJSUVzhwtD5t8iveil4rjI wcAgg84nglR4757s328N9W+G3HjbGrc+w0g/wlS0TLof4NlI/DZORfB2x1mf x5AeRKn4Uf/xUgFIL+apCJv802iigOoJUhE9wHT2ihjC1qkwbjqRYB5JWJyK MeZmkflNNN8+FZbzazamXiH7klTo323v9PE3+XdNxdk3gY/m25K+pKkonpOw 3O8Uf/+XigGJQUlLk/n+LxUGqUueXHGh+3xFKsr0V7QsV9D3OumpYHd1W135 yJH2PxWy3NmzZg+i+zplKgyP2mWMyiA+F6Zi+dyMGs+D/O+VqWhos0nfzpj4 UpaKnA/Bkz+6E5/UqVgzojh0wW3ib0UqKrL7J03dyZ//U9FY25Rt2oX4+Yh7 30kmVb/m8P1fKvRsq38nr+HzfyryfAKeZDvy+Z/zN8TlbjcJ4ZZULFpv1eTK YyYN9hUun6+5EdZLg3Bl7oLdMYQFaejxyrbbbhVhwzQYGKwu7d9CWJgGT93V Le8d+P4vDYqG6A4bH/D9Xxp0GyuvN5lQv2ieBtu126zu+RBGGuLVS54Ksghb p0Hj4tXGOpywOA0pa2u79+Hrp30aprn8PdDAld6PJA3KIkZzSEf12zUNYxb3 N6r+xt//p8F1a9aiL/50PpWlQfvW6cD+O/z/z0rDD2dtWuEZ+n1HwcXztVVn JiJ+pKfB3cqnZtg3Ot/kpKF77sO783oS35RpqPnncIKpCfGzMA0r8qKyM0qo n1Klob7mc8/Oux9S/k/DmY/lgx52rqH8n4bmeUOsNH/XUv5PQ/6d4Ge5twhr 0tDPYb64y9LHpP80LK+1+S+xiLCWW/8g6/c9Gwk3pGHxopb3AwV1pH/ufR9s 47DYkHBLGq5OClhl8pueZzZjqbXzsYozhPU242Sv8E/DZhMWbMb+JapB+nKK x3AztgVcUjf6UvzCzbhrscjW8wetz3gzCk6a/ZD0ov5TtBnFoYHBRSd5/W/G 5XWVm9Vaen/YDP3ee0tLp1XO/H/tvHO1 "]]}, {RGBColor[1, 0, 0], PointSize[0.005555555555555556], Thickness[Large], LineBox[CompressedData[" 1:eJw9mnlczNv/xz/Wskch3TCXXF03DEKI3pYohaEoCaOSETLtk7ZP+1RTRkL2 QZesd+xFNIQbkrElhLGHMCg3++98H16fn388np3lfZbX+/0+58znd7/lMxY2 5TiuthnH/e//X/+MTrzFgUmPVuQ54Q9kMJvU7LfuKWBT4vt23R2RtQxsRtw+ amEZPqj0F1sQ9+1yjyvXA8GWRF8+zzuuDAVbE7fh6vkfZ6LAIqKWsv2BF2LA vYgfu1j75l082IY0k5XxJ4/w4D+IdqR6F29PBNuSNHl/tZ1zErgfcTKlzdFN AtuR1KNyT/fdAg8gkbj3zilBAotJEzn0S5lB6G8QiSbkuVe1E3gw8QUrRZoX CeAhxFf+PZaziwPbE1Vt6KN4Hw0eSjqLW82Kx0WCh5Hu8eHARXbC/IcTp6+r +xq9BOxAXCW9dmvlBx5BXL8bHbt4SsAjiSNxN/7hQKz3KOKs5zi+zvYGO7L1 3/npQnogeDTxrd+NnOgmB48hPnhGyQGbCLATcdNGrok/GQ0m4jWq8eVf434x z1iqCvZ8yaN8LPFW3RdMW5eEcsaTXevf/ExG+TjSdYqc5GqdivJxxB8fv2fz czA3nsjh4/3FPmkoH0/8mLOmmeFgbgLphm4qmzJEKJ9A/ObLauVaob0zcVdX fNy4FfrjnYk3ZM9cMV2wP5Ho5MH6bdpElE8k/p8Ty3qkJaB8EnFlOkt3UQzK JxEf/bzSZmwkyl3YejdZSd+wXjzj1zWegyqF9XRleo7qF+43C+WMSdH30NXO 2J/JxOl6/PPKafYv5icTfy3NvEmoDOVubH7n47t8CUG5G/HdSq+Xxwj6dycu Ygh3cVcsyt1JurpnE83/630K0Wr95owq6JWfQqIXe23bH0xB+VSiwVPX73FM QzljjzCL76HpKJ9GuklrzK5PVaJ8GonaTz0yoALMSYiaflsyuxZMjK+0iXy0 TagvId3RU/q/G9GfjpXP25577w3scdNJ95d8hnlKKtpPJ837Oc8cS5PRfjoZ +q0OLiyAP+mmExmDOphECv49g7ie3+XbLeA/NIP47186HB8ehvas/FTp4cja xWjPuPBc+8GpWG/OgzjeYDrDxOrX/tD/WLzOdthc7BfjpNtxVYFLf7HOg/U/ eGbO93Dsryfxfdbsyl8JfRDjAe5nzj6H/nlP4q6PD+9UCb3pGKeq1l+WC/qd Sbp/k7Y9OqtE+5nEi4Mq/Yoz0X4m0bHKc3snq9Ce1ddufLE2OBvtZ5EuJNd3 V48ctJ9FXIhIMXAWmGccs6BlaCewjtXvPynx1AyhvRfx277eTrBE/+RFpPzT Yvoiwb4XcSUV3McJGJ+O8RALswnFgn95E3d2ax+bSvg3Mf700nFND/gPz/jc g7O/WSjQnrFk0f5RG4T4Mpu4hVX3KzUL0J6xKKW04G0/tGdsvebsnBJf7B9j p9GuseODsX8+pNsx4av2IeIl+RC1n1e7yBX64H1I9GjMz1wN9K/zIU1u4/yD t6A3bg7R9WT37OOCfhm/PG5oNioL7eeQyHJ2uv+sbLRn3DHuVGSTlWjvS6JF Pm/OWanRnrHXXKfjkWDel0j1SFGaC9b5krbk7YZry8DcXJKMLF20z0RoP5ek UfNjTp3JQfu5RK7fBm1qUKH9XNI4ObSP+ScT7eeR1KLrj10N8C+aR5rU7jvG 6uHf/Dzi8vNTRrgK/jOPdMlp8eurV6D9fKLGv6MfZSO/0HwW//dWlGv80X4+ cbZr84J+t0V7xi4fe1Z/lmL/pMQ7mU9JPhfyi0WMU2712/5uBfaTsb819+w1 4qtUStyrUecC/xLitZR0HW7+d7Y39KZh9QN9VE5l0KeOlT//efHvWPUvNkhJ 9HHoG/97q2B/AdGcejeb/3Jhn3HevJ22l1bD/gIynJzX4cI0nEekC4ibLq+N TwHzC0jkfnz6b4FgDSsfeGFL6Ue01y0g6bD5h3/2BxtY+fDyzDddYI/zI949 4KToEMYnYnzx2eTFrQR/9CPO/V14ZD/MT8rYqvsD59tCvmN85+GlHr2wPhrG uXdmrh0j+Atjy91PluQugX3G+766qbNdYN+f+bvq9LDn837tj8if+N5WJcFB wn76E8W5fuh/E/lB6k+iJpfMewcK8dWfpBNOFuZ1hv41rP7udnn+gYLe/El8 6LclDjbQp8GfjPYlg65UrYJ+AkjydEDcgwmrYT+ARMeb3fRcnAf7ASz+xqW1 pjWwH0DimrmWZefBfAAZv795a9MI1gQQ1Y/udfwWWBdA8u7K3KdzwYYAUueZ rmm+Cv1zC4lfeuyETC7YX0jcNufFwT8wPlpI6h1lzrljMH4pKy8w7m6xBPPj F5J0v2b1vOvwHw3rz6ewYMsZIV4wFt/NTV4NfzGw9lYhA680LoP9QOIih7pI XCfBPuN+VXWeb/2w/4x32ofs/IDzkzSQdHs/DCvuJ5w3WPlWeWD40HTsP+PV 5/+b/VOI96y+naynYjj0bggkKZ8b33AUeuQWkW4VN/vyuzXQ3//4T7P1d9fB /iKSXs0YYb1sPewzrikIlmzdAPus/oknj1RBG2H/f+Wpq7dfBOsWEVGyxfci sGERGYqWOF4YBuZkpLN9MbPNePQnkpG052up4WE+7MuIMmPjYjtiPFJWblJ8 0PWB4H+s/L6dy+Op8CeNjDit3PbtPSFfsf7rfJ8OVyP/GFi55SH7hiqsH7eY uPToipObsb4ixnffxw884wv7jEtXZ972n4v9X0zUp//xuFMR2H9WXlbx4+BD xEfNYuL1w9Yvy4U/6BhfaXFjew3isWExSXtnzlB45GL/g0hzto9V8lvoURRE Um2WU8WwddBfEIlXDrD6rc962A8i7kmjT/LhDbAfRHRqw026vxH2g0jt+3j/ mi2bYD+I+I7p7bT1YAOzd3Tv+w33wdwSkm55EuzoDRYtId3c5z39AtAfLSGy /PjnvaawJ11ChvmdHmwemg/7jMe//7vhp+B/jD99X3skEP6kW0KaY8+u+skF //+fvcKTFycL+Wcp0RmHATYixBPRUuLXLThw7YOQj5cyf3jlcWXtHNhnHLVh Un+JP/afcfCUM0tCkS80rH2bhQl38xEfdaz8ZZ9PAZXIB4alZKipW1p0V4i/ y4ib7FnnvWYt9p+xaO1G35bQIy0jmrV8xcQem6G/ZcTXOlmZXN0K+8tIY7cz ql3LbbDP2scFp055BtYtI3l52YMCfjvss/pHvwbOuAnmgkmTlKlMug8WBbPz 2Y/LizaAiZX3Fv83pzVYGkyc5+1nLQegfz6Y9LPefEs10cB+MNGu5QaroRiv LpgMHw5e/a8a/mtg/TXtMvWwKebLLSfda7dFsbcQH0SMs4rfLN6JfEOMu91Y XzBQyL/LiTufZLL7Ju7fPOPT+QfmXpmB/Wf1+8W6PbBWYP9ZecjUfiPicF4y sPL7BVM+x8EfODmZjTxcdSASejGTk/GAR3DBLOhfJCdJzt5LS69Df2I5SR/F 7Wlt2Ax9yKloUeWnG6M0v1jCyjMm+m503Qa9yKm6fOp0k67bf7FcTvThy2TX 7WBeTuXSB6r6l2C1nCwvdLj0vA6skZNh6xhLpz1grZwcTBfc9/8drGPlJe/k XWfAnp61b5c2a4MjxmOQk+bG9l6HyjBeI7N//cHtCemYDxdCct+LY8sursX8 Q4g7+V/QvtWID6IQ4h/0/cfkEc6T4hAyNAms7vgA8YZY/fC8D9daIZ9IGBdo ucAx87BfjO/U3HXtHf+L5SGkGz0mPVQmnM8ZP8oMeHoZ/qAOIdGVxW/2DUX8 1YSwfGrn6O8NPWnZeIeMbTGpvaBvNp6d17dGDtvxi/UhZHzbKsf3t7+hN1be MPzhtSM7f7GRzWdbre/tr7ugv1DSZ7uZR70q/MVmoUSyhoQ9Mbuhx1DSNiTf nr4XLA4l6SkvS+dIMIWS/NFZj6S7aC8JJV1+enLkbfQvZf1PuTLKOxj25ay/ QVxQ2vYCzJ/VH3nh7Z1o+Jc6lHhrrqn2M/xbE0qGrp1fBy1DPNCy8dU6l1EQ 8o8ulLhp2yXDeiLf6ln7l9qW6T/wnmFg5a3/sLM64ob5M94ySqWtFN5nwshw SzJieV/kC7Mw5g+vRVF9hP0PI/308UPc9fAHcRhpowe+Xc4J+g8jfrnuUcgN Qf9hpEhRJ8XVQJ9SVn+MS5vKdQXQfxg1nt83aECzndB/GEkkZO7efRf0z+wl xc2UPANrwth9Zsw/GT6F0H8Y1X668GNQLFgXxu4zAx5PdQXrw8hhuc3l/Tq0 N/yv/8v7vhhgzxhGxvogF2Ph35h/OMmrXvXa1hXjMwunwsA3q27bYfyicDIL T7na6cZWzD+cxHFNQ7Ua+A+Fk8h0nNqmAvlTwnjtxpiscpzPpOGkixziV/sJ 72XycOI0F7smZP2J+TMe+qV2ZjD2Sx3O9Om6sMgc5wdNOEm3FnzK1SJealn/ eyckVPXdgv0PJ+PvoQtXFkA/etZeG9Y2s1HQfzhJvr/svJyDXo2sv/cDby74 Zy/0H0Hquadkrb/uh/4jSHo68TTd+wf6jyDbmTbu5wu00H8Eld/dPN5FdBD6 jyDLH/7Tq+aCJREkjq7nveaApRFkOPPnvvouYHkEVT/uO338SvTHR5B8xjjD H+mwp2b2o+bm7ZFhPJoIklT16dLh3z2YfwRpN251G7oH/qWLINGLsUcX94A/ 6SNId2F7sdIe+cjAyv9dmOPWDPHEGMHu9yuPnFBgfblI4raHz3hgg/dAM8Zv 3jY91nQh9j+SNMPOLf+6Hu894kgydCidXp+DfEGRpFcO8B1DOK9IIqm6V1Jw w+9C/I8kqeJQmvV4Qf+RZDq+7ddH3wX9R1L5m4Lgb9N2Q/+RZJv3wnXtiL3Q P6vf1/TrtJJ90H8kkemMSbPv7of+Iynf6lT60TUHoH/GG4+tPPwObIgk48K0 7PW1YCObT9u/PPkEMBdFGu5bb+9D6M8sisozrVZ1ioc9URR5ix4ojQ/2YP5R ZJaW5vifHv5GUeTSt2uTVRLMRxJFspj1dXPn7MD8o0h+bskxv8fwH3kUGWsW fZndTzi/RZEo6PczAaPwHqGOIt3Mpbnu3ngP00QRt7ly382ReL/SsvKTnRfl 52Vh/6PYffHW+XEjsL96Nr7q/YNjJiM/GKKIXr0fv3iqEP9ZeYdJ+setBP0r SLqv88SxftCfmYK823nUWW2DXkUKkvtM/MNuymHoX8Huax1+X6g9Av0rSDv6 7Mv25UehfwUVWbzqUZt7DPpXkFksXzXb7Dj0ryDTmy82VziBeQVVL41oNkoE VrP6R7aLOmnRXqOg8sJLQQFv0L9WQcqvxYtlVbCvU5BmYIFsSBDGp2f9v+gw fN1ujN+gIEOLvzY3E2N+RgWJFu3os1wBf+KiyUyfvD1+LOKFWTTx77LzwqYh /4iiiVv24bPlJtzXxKzctvvRefeRzymaSLeA5g2TY/+jSVRWv2fMJZyvpNGk 7ZBVN7MN4qU8mrw77x7m+gz+wUeT5Kfv+rox0I+acdOmJRGm0JsmmqRftq+2 cYI+tay8rax57bN/oP9o2rejoVLb5CD0H02y/YGLvl4FG6LJaPtfxy5+h6D/ aLKpKl59+CSYW0HSkrQq1UOw2QoqsPtaanMVLFpBFZtnLtdmgsUrSFGcJrHq CKYV1Nb8ZPtuUtiTrKCiaGutV7gW819BtWkVV/xWw9/kjGMf13c8Dv/mV1Dj 0bivOZPhT2pWzh23sJ6IeKFZQXz7+f4Jk+E/2hWk3dQ/+e015BvdChLdtFr2 lwz3ff0K4h6Vj74wVXhvWUF03LeuuALvO0ZW33OJR9sC5A8uhvh88/YdJsE/ zGJINKW1laED4q+I8Qi3VetPQk/iGJKah07W7hT0H0OKhKqWAcOgX0kMFb0f tmLwvGLoP4ZcSrtM6WB5EvqPIZ2kv0mCfwn0H0Pq9aoljeNPQf8xJFnovvTb abAmhmTTTu+cchesjSFjk6TbqzaAdWw8n0+3T24K1seQ/pPL4qJO6N8QQ5qv xTO+XjyB+bPyacf/sfgD4+NiySCzWv2fDcZvFku26U3ibS9gfqJYKjL/d8aw tocw/1gSORonWH/D+lAsaS6cC7w+DflIEkvqBu3evsORf6SxJD05V72kFPcb eSzx0doRoseLMP9Y0u3p4hV7B/lFHUtm8d4XCzvhvq2JpfxlsoXmlcL5n41v Q+KTlf7C+SeWxDHZi/8aBv/QxxJ1HfJl91bozxBL7qatJ+wZK+g/lkr2tslv l34Y+o+jxptLTzyNOgL9x5HeM3JjtfVR6D+OClZX2JvEg8VxpL2Y9HncdjCx 9qPr2hXkgCVxJNt7R+E5ESyNI/nfuXOTL6F/eRwd+f7WIsQKzDOeeH1n1hCM Rx1HxB0KyBf8SxNHE9wWdX1zAPPRxhE3cfD75FbwJx2rf/REN5+uiBf6OJLe L88+ocD5zsDsX/TgvX/H+dQYR6JNRQ/dLYT3t3jSHXeyC9mFfGPGuE1Zdxcn 3DdFjN9ML7W8jPwijidj3x7L7t/DeYPiSR89TR4SAj1I4kkdmWbVuw56kcaT oUjZYvUDxHN5PHmbfLTOl0GPfDw1Oo35fnSxoP940q6vLO5YUQr9x5PdB//H ncp00H88Uc6XGZZTzkD/8VRuYUI1GWB9PG06YtX5SyLYEE+KIYZrLZzAxniS z5/n9Pki+uMSaF+zR7a9+4HNEkh37WqY88XTmD/j1tfsTzTCn8QJpDexe6Z5 ivFTAilqVr2WqIow/wRSVi/0+ibkK2kC8d3m9/YzRX6SJ5DU5/DDHsXIRzwr n/G2a4uHuD+pE8isrGrHi7XCe0YC0a7pmz80wX1Hy+p7BdrEOodi/gnELejl HxqF+72etU9Y+fi3CPiPgdUPnfRIvA7nESMbn1/tx/jzOG9xPBk1/7XT90Y+ MeVJtX/DjgNC/jDjacL6oKJ766FPS54cAm4v+PIR+hXx5NLm3UjfZ9C7LavP r5hkG3UM/sKT/fI+8w2HwA48Wdctr4neBiaenjbLdHoxGezCk6JtTfKdo4I/ 8STvetAn+wXsebP6Lc7/zHuC8Uh5OnLQ1mfnXviLjKd93xsa4pwwfjlP/KDl ty6OwPwUPOW3M3lwNkHIPzzpVi1P+Wsi7ktKnmSDX4t28MJ7BE/iBqfKKGfk 73yenSeaVyQpcb/R8MS51Jxu4T31FxfypAl7MzxtBs5nWta/Z9/o1BDc34vY eA46OleYC+d3nkg09mfWYeihnKeiW1YGkz8Rf/U8NSour7Jwh76qeTIzde7z saMQ31l/gwMmzHGFv9TyVE3Fk+VPoGcjT+eup26NOwr9N/Kk/Xx39zjzs9B/ IlFRt33OP1Bumkj7gpoHxfFgs0Ty7BEb47oH/VkmkuT9LYeBPWFPlEhiq9Kx +gyMxzaRFFlHyzcWI7+IWf8juCvZFfB/h0QyLmszvHk1/IESyUzs9u5BLe5D Lomkvvq7c0irffCnRJKPuuYR5oX87J1Iohn9To0/KuSXROL9BjT2GYL7oSyR ONP063ve4f1Rzrh2QYZHV3vsfyIZMpd1aT4evxfwiaQV1xzb/QLvP8pEKs9t MLT/iXipTiTLt89qdnvjfJbP5vMupduVBcL9JJHyN/256sln6KswkWQH6aVV E+hRm0jnTnW7JdNCr0WJ9NT16qj/OOhbl0htnVZ5lb0GlzP7K/dM0C+BP+gT qXrAUOPAOHA1G889r11qa7CB2Su6//LQJLSvZfu1x2fzkR+wZ0wk38Bd9n87 YzyNiVTwxKsmvw/yCZdEhbYFnfvOxnxMk0iT5OFhX438YZZEZvYHR3S5h/OX ZRIZS5IDpwjvhaIk4s1bWp65h99XbBmHF8Yeb4n7pJj1Z5PpmrwQ52eHJBLf bG9T6oP9I8Z/zAsb3R3+4JJEkrjZLkt+CPkkifRbZ6texSOfeCeR6XnKt2wl 3C+SSB3h5Xs9F3qTJZHty+zBS1ohn8iTyGHe2Kd6W+hXkUSbnkY71+yAvnk2 vuSALJkB/qBMogpnt5jaC2WIx0lk6Rod8sHp3C/OT6LGB++9Bg0Ha5KoTrF4 0oEtqF+YRG39hmmehaA/LbNf8qy64TjsFyWx+7tXpNxUOL+x+XwW1W58ifNX OduP1X+YjJuH+eqTyND4d3DJErxfVCeRru8/2l0vNsH/k4h7rs8r64t8XZtE otzF5vvN8Z5vTCJp6DHLp/2QDxqTqPz52hV2tsgHXDIpm/jFSNfhPGWaTJp2 W7x7tBXuw8l05GXriZE+0ItlMhmuNd2R9xDxVZRMNZnvxao/oTfbZKpd1uTp NxfEazGr32XKEe1k6NMhma1H7YW1w4X4n0y6z1Ut7locR/xPpvJbGWlfnoAl yWTvog58tL0I8T+Zmnee+rTWrRjxP5msE28nl98Cy5LZ+rqbuQ45gfjP5lP/ vX/hDLAima3P10fF1mA+mVQVH5L+CEd7ZTLVtRhekDEU9tTJpE5p/jJhBMab n0z7zIcuWzMb89Uwe5e7DMkw4jxWmMzuk5Fz1neG/2iTiV4YPIYo8Z5YxOY7 c9Ob3Ex8X6JjvGn8maIUvF+VJxM3Wr3RezXioZ71v2v3l4U7oY9qVt7rx6qH /XE+MSTTUocWX/d+hZ5r2XqrBt0ZEQV9GpMpQOdb0ld1AfE/mRQPvthMci5H /E8hkcdZh5vai4j/KVTdrV9sbM0lxP8UKgno6FV0/TLifwpZ9NIFeK2vQPxP ocL1t8xeiK8g/qdQrOuJsoI8sDiFvFe1TLx2AuyQQs37mrVasAZMKaSdn3ql iznYJYV8DzR49v8d/UtSqOC1c8S2/RiPdwrltRvvZbsH45em0NKbN220HTA/ WQpNuDH5R6vH8D95CunV3VeZBGK9FCmkllTJLkxC/OBTSNKvZomfGu8hyhQy XIx8O9wfv8eqU4h62jSdvBrfY+Sz8iKZbaId/EeTQtxJx5QTj4T9TyGH714D e7SG/rVsPa6dCHYKgZ6L2Pr9trhw0zXoTZdCdsHFwXv9TyL+p1DNaZeju+aX IP6nkI1Ht9CxDeDqFDpnbBO80+UU4j/rv0bRjMLAtWy8x8YtNEkDG1OosdRi 4LsscCNbzxHGRUUCc6nksjbqsGUG2DSV6ke1d5yaCjZLJeW9fq3GJoAtU0nk 4HxzgmBPlEoWz1L1yT5g21SyXM+v6toPLE6l6r/vFd29hvE7pJK1Z3Bx+1Fg SiVtq4ywjpMwf5dUagwQL11difWRpJLm27bvLbdj/bxTqWLmppKJKqyvlI0/ srlPkjfikyyV+Lsme62K4H9yxuOKb+9qh98/FYz9mtxw4vEewKeSJGrulhab 8R6kZOOJ+/dSnaXwHpVK5Y26Cd6RiN/5qWQo2VbXrPN5xP9Uan649YVzPeE/ hankWFKy32UB9KtNJftxfl6nTlci/qdSF/PSA79b6+H/qaS6U7z2bAi4PJUe HBpqlyywPpW851xSbRoArk4lqcXD9/kRV+H/qaS3aDp5pwv6r2XjfX+ha/Qr 2DcyDjuitlwE/21MJff2YVfLyjBeLo1UWdfP53HwJ9M0cglNi7azgj+ZpZH9 1t4m7m0QTyzTyHp002m+lYg3ojSSi3M7PDkF/7JNI9nnn292RQrnP1buc/NF mwqc9xzSyNBqWNOsTfA3SiO+ccCS5UF4j3FhLBl+dUExvgeQsPoHZsarniF+ eqdRdQInM17H+5A0jaiJ8yXrz/A/GSu/2PNu3gXEZzkbT/Dl3e4DoR9FGjk6 K42Xj0JffBqJW+/wcgyG/pRs/q++ZiSugD7VaaR2X9xhKQc956eRcdKJwGoR WJNG9W+tR/l8QP3CNBJpuncL5MFaNv5J8Vb9K9F/URq1XfbvE7qH/KNLo3Nr Cne+3IXxlLP5D8u+UzQc+UfPxvt0s9GwSjj/sf7Mb6w6UQr9G9h+hLYY4H0J 57vaNKrdmt60QxH8wZhGmqiyP/p1Rj5vZOvxsRn3Ogb5nksnM51d1z1qxDPT dNLX/diWuxjfI5ilE/EGO20i/McynTid5TObBHzfKkonfoHblrsqfN9hm04G /3uFcytx3xGz+sGPJwwSfh90YPWjFKdmfRV+P0knjf8Mt5MmuN+4pJPDl0Et RvpDT5J02vfu22RfP8Rzb9Y+ZV+PDoHwP2k6PZ1UpZ3VAvqVpVNNRquY1ybI F/J0sswZO2iII/SvYPM988lEEw/m01n+C/qQUor6ynQq8m21Y1pL+IeatX88 ZPHyEPhDPhtfhPOurYNx3tOw9TlXdfRZB9yHCtNJPPRc9y0LET+06aRz7J3Q +iTud0VsfRa6Pvltt/D7LZtPTTqNH4jvm8vZerhorUp24X6iTyf18KRpztFb sP/plC+5J2rSRfh9L53kV1YXxwu/X9Sm04TOmz722Y3zmTGdbgaav8npCr00 plO41Q9dv1HQE6ekfR1+xA3vDb2ZKkl88bvHgtvQo5mSCp7f7ZHhDf1aKilv i7luznboW6Qku1TF2F37hfivJBvTps/7hp1G/FeSo+v3ZYPfgh2UZHrB/sTs HqWI/0qqmTosf4AJ2EVJohd5GVv3o76E9VeT9ccQc7C3kuqlLey7iWFPqiT9 2EeJO99gfDIlqR0fTRrSWzj/KemI7lRO4jrB/5m9bROGZpgK729Kqn1flhkZ jvihVJLDj9K79hbC/V9JXEJLx2gRvqfIV5LU71VeRiTO3xolUcvZH3/3x3mt UEl8qPr8XB3in1ZJTy9MTd3viXhZxOYztY1VtDf0q1NS4cPggCcV0G856+82 //zKXuhTryTJhbkzOjdFfK9WkmHUpZNuL4T4r6Q0C7s1JieRH2qVlG+ed2aW /zXEfyXV1fNxnT+BG5XUKSfuXnj0dcT/DOo13KFVOyPYNIPkpbn9D3vfQPzP IH7CKNmsA2DLDLL+52Jt/QuwKIPcOzdcut4Its2gfaPLHG2ugcUZLB8s7uo5 H+yQQbMSV9/+ugr2iJXH2S9M98H4XDIovNnl+hIp5ifJIMuu499G22I9vDOI szQ9NfAP+KM0g3Tfn/TotRL5WZZB+bUhJ2z88f4mZ/PRX5x0YD++j1Cw+ZyW 3Tg2F9+T8xlk2Lfat0sV4p8ygxpFidsMQ+A/6gzS/jXmmv9G4fyfQfV9P031 9IK+NBlU1HJRVfRZIf6z+QRdXOLsBL1qM0h1ZOoKn17Qd1EG2Z9xe9lrN1iX QZus8hPmfgGXZ9CPm+9i73bWwf8zqCQic1cTG3A1m9+CldqW/cAG1p9T1G8H bMG1GaRc/2lQdU+wke2HbPnA6+3BjRlU0Tgx1VALe1wmydoaZ7TdAjbNpFre KpB3AJtlUo1HgX3BQczHMpNE+oe1VT+F818mTXgu6fGvheD/meS588Xn4ffg j2JWPrJ9+lJ7rJdDJkmbnu17swH+SJl0bpxDgFUt/NElk+Sj7rq7X0T+kmSS 2fG+JV0L8f7inUncpMB11+3xfag0k3jPfuOqt+P3BVkm6Qt7/Pggx/uBPJN0 CSPk/dzwXqvIJPtvX3o1jEf85jPJZvSszQkeiPfKTPq25YRHwiv4mzqTTPXL k65VQZ/5mZTU9Z13Ly30rMmkwhvdGuobbsL/2XwSez5+eOAW/D+TNu2WO496 Cy5i4/HwDMm4AtYxHiWvyg8El7P1aTW8e8FV9KfPpH03Hmet7AauziRNSl3K oWmwb8ikiufBnaMV8KfaTBqZOl4zc63g/5lEmmUHjxUiPjRmklhr9L8wG/7F ZZF4otXliNG4f5lmkeyIvmvlB+H+l0Wmji2LLeWIT5ZZlO/5cWKP/Yhfoiyy CZx9qLYA+dk2i0SHvjRE/oP8Lc6iQtFfa/7YgHzokEWGl60upfdDvCRWv9nA 8Y62yIcuWcTttBvndgDfo0uyiMoaHTtexfc33lnkcGbU8pHrcX6RsvGv+vuu +Aj8VZZFdlPWLlS0hr/Ks+jcvX+1bSTIZ4osCkgutU3ZDn3yWWS2r98R90HQ rzKLHKtM7tgOhN7VWVTnt6Z883lwPqs/M6vzu3bwD00WWbxVFO8xAxey8UiP Z424JPh/FtnbbliWNwhclEX6Yb49fcbAni6L8j5PO5RbJ9z/ssjl4crjh0bD X/RZZN2zv6ufcB6szqK2C4Zd4R7hPcXA+vfjnz8jnHdrs6jgj7pMkfBeY8wi Rci21vaz8PtQYxapRyxa7+8jvP+oyGzIUscHnlhfUxVxlP1bnavwe5CKSLnb YkyfDOw/Kz9c8dHtMt7vRCoy9j91rHso3mttVVS+vLKo7Ta8X4tVVJ33Odct F79/OrD6Ww+clkYhH5KKNO1OrN5O0JOLihxsfRLOfIfeJMy+m9uh7zG4z3ir SHJk+J1sHvqVqmjw3ksqyQvoW6aiTh7Vd5PXQf9yFbW+v1T1WwlYoaL2g3ps 2joZzKuornpe5FBntFeqyPrQA5u0SPiDWkUpmSsv9VUjPuSz8WjVeq6ncP9T ke3T5Oxuocg/hSoyPTKr4fBu4fynIt1kn7X2nQ/A/9n6+VZkVgYL34cy7hF1 pu8zGfyfrceowTHbi3Hf0bP5zm77w3Y4ziPVKtL+/ar4X3f8fmNQkTiffHfU 4/xSqyLF6TtPpWeE85+K8sb8pXDRQB+NrD+Pja9e2kM/XDZJT15oYrMW/mKa TS5txnxxu4n4bJZNdt6lDq8/Q3+W2VTepiJ3V1voU5RN1Zuf9AhoD/3aZlPN 8L3jtv8Q4n82KW9zM97fE+7/2ZR/7FW6oQD6p2ya8FvWjs1e8A+XbNJtntU0 7J1w/ssmVYRT/d358C/vbNp05In7tWywlNnXLtrg5AqWZVP9/CSnHFe0l7Px nLvHWQ6CfUU2qU/+6b1rA+bDM/u977b2GIT1UbJy8b/eFzcK3+NlE7dp4zvv GOH9J5tE11/VK0cK3/tmk2L0i+XjcnC/Lcymos0HrlQ0wX1Ay8bjlmBv9gz3 56Js0ge0v7b5OPSkyyaZ14b5X+5Db+Ws/jxj33X7hft/NlmP3My/7oX4Xp1N vI6rT5onxP9s+rDRzKxkOfJDLWvfIPrW0R/5xJhNkZ3tckqoCvE/myy9NrTq 0fY24n8OeS5YPmZNGdiU8exB71Ok1Yj/OWRlrW+bcxtsmUO1g3Xtzbrdgf/n 0I8Fck/TTmDbHJoVJ9so24/64hw6UphoxVWhfwfW/6ChOyyjMR7KIUuphdeT DIzfJYcCLlX8uaMF5ivJocKf3n/1NWJ9vHNIHOGkOPhdOP/lkKnvyU4+tlhv WQ65dB8ddVuK/CLPIf5p8yvRSfg9SJFDijaHtbHNhe+Pcyj24Ow55n1xf1ay +ofN9+/YKrz/5hB39NP5zUegn/wcOvfzBXUV9KnJYedV31MXhPNUYQ49bhk7 Ldgc5y1tDmmvTGs3szm4KIf2fff1rflXOP+x8fbcb+iRJJz/mP0hi4Z7TgDr c6j594Zug83B1TlUsd8nO8QI+4YcKlg6bmPgfXBtDtW/XhLbpgZsZP0/lF0b Ioy3MYeqg4stxlgJ57+V5FjhPH6OVDj/raT8jy/MF5QJ57+VFF637mST3zF+ y5W0wuqg49YgsGgl+Z1/Wex1DGy7kkwHefjeqQeLV5KD07zkkrZn4P8rqXmo w8Ds2yinlfRg+B6uqUhX+n99CGK9 "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.005555555555555556], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw9m3lczN0Xx7/27EM9nmQbnlT2JGQ/tkRi7EkYe/YhZVTq2z5NNY217IMo a5ElayMkhLE9ss/DI0Uy9ngsv+PV5/v7/fN7vX/n3nvuOZ9zz73zza/l9MWj Z1UWBKG4iiD8/u+K/1j6iTYHh/wTlJqD/4Go/snq1unrwVZE/+5p2kSrActI bN2lfWmbILANCVf2Vw06MB9sS4J7n7I/V04GNyWh2373C54KsJyEC4f3ftg5 ENyKBNvpn9eP6gW2J0F8VqP7zG5gBxKc7o53u+8KdiLBrZ/tjIsStyWBbnW2 d+wKbk+CxjHZTS1xRxL8dre/sExiZxKyN59U/ZTmdyah8O95j+pK7MLzheMN 97mAu7D/E7uGljiDXX/vz/D5UgdwVxJkXZs8U7cBdyNB3ybpeMfW4O4kGJ/e zHZtCXYjQbko32Z3E3AP3v+ecOOaRuCevP79sz03WoN7kSCffmlqJYl7k2Ce HXv3tQ24D48P7243tjG4LwkmsVvD6nJwP17fuu/1qfY5krxC5qQGg0OwX5GZ 3j2wse4Ee3/e/z91p85F/CKz1bdT512k/A1ge4TC51R32JmV18c8e9gD9oEc 7+E6x5ZCT5E52+aXMLs37INIsDQtStwFFpnFKd/qtpfsg3n9Pzcbf/WEndnZ Z+1cF2l9dxKKXfonmlEfIrPz9UafOkn6DeH8bFsa79UZ9t984cq4u+1h9+D1 /7O1XuYIO7NM3FNU2Ar2oTz+9WKXY81hZzYq3k+LtIN9GO93aJ9XIci3yKyM bp54R9LTk+NLG9LwPPIvMguvAyPaSfUwnPVpbr+0tC3szPnmK1UeSfXlxfbo GS2SEY/I7NRwxvAlbrCP4Hi3H/XsLOWP2fTm1eit/WAfSULKBavz/fvDzjz8 yeqdEwfAriDBd8TSRtVw/ohZ73jxpBtYZFb8+WK2BeONzPnOT1M7SfNHkRAy POtkJaxPzLafei583xfzmZ3vrv0xGfobmYUrBYXhqBdhNO/PN6u6oQvmMwvV GkV/Rf2JzOYxVRofQX0ameVnC0OKpPodQ4KqY2TZO5wnYqbJz7ybgEVmY+rt ITHQ08js/HllXRcHzB/LelU7P+xrO8xnNnztUHZZqhdmy+Ndohfqy8hsnDTq 6BCpP40joX3YARc3wnzmsak3N55BfkTmqpre1vUGY/5vNpfaVB+C+eNJKBjb NzfGA/OZo3pOMi8fivnM7TsGhV4GG5mdLO6dA8DCBK6/iw2vhkrzmaMKXVZ+ dMd8ZvsJDcaVDcJ85vY3JssSJf28SVDnnttqQb0Qszyp2D9bOm/Mqlg7/2s4 70bm4mRVmQb5ESZy/3jdc9xynCf6zdWV4QonzGc2zD6Z8x35NjKrPDdtPQi7 4MP++px+OQf9k35z0IjgEKnfMOcPVu2V6sXI7OE3e19YH8yfxPqdMNdvgHiI OaWo6boo5FtkvrMwQPcS+TEym7SHetcYjvm+JKT+UHzLGoH5zG5RuXWn434S mRd07D249ijMZ2517VDYMLAwmYTdV+UP7MDEPCVqWM9QaT5zne6dSr9hfSOz X9qLZgrJ/xTe/6CrnxygJzFnqup+y5L2z2xQ1u/sIp0/5uLl7W+eleKfyvOT p/WyID/E7GGsmT4b50lkTnkRNnMl+omRmd4kPijtiPlKzq+tYU0A7HJmVa+F 51ZK55E5ZZ2/RoV+o2RO37HwQ33Ui8gsa5nUKRz9wsCs7mD96zXq28jc27D0 qgbxmpkbCWmVtNL9P40EhwyHGrtGwz/zsPfzNgWMhX9mzSPPrKfj4J95+MPF +QXj4Z/5sEObMR0mwD/zrZ9nP32F3ci8sfKgQa5gM3OratHWL7G+MJ2Ez3mb ezmMgX/mlNQ1xrqSnsyudSecEr3gn9n3it33K6gnkXn/2NxgL5wvA3N63St9 fNAPjMxi0ObtapwnM7NlocfF/79nZnC9p+cMuYP+LmdWpt3O+4rzRsyKtGFj pftUyfzI0e+TE9YXme1TZ1eNkfwzf7d/HPv/fsH80Tl37p6R8M/83nb7vmLk W5jJ/nJXPPqA/MqZq/t097vsDf/MQo835r6T4J85yOrdwY54z4nM824PHRQ0 Bf6Znxx8VKfOVPhnPlb/j+r3YTczF2R4P/9Heg/O4vrRvtrWxRf+f7OudPLL ifDP3PxE6PKW0FfJ3HddWVZ96Ccy+65rn1aEejIwK84Jx057wv+s3/md+sUX /dDMfGTMkwwbqf/N5n4aYj1oGe4r+ezf/eb5tMa4T+m3vV69DkqcNyVznf3N c9tI9ynzsl5hWiXOq4H5gtfWjc0l/8weuno7a6GezMzffwx2eCfV3xwSfC7H VK6NeOXMfedd+dYU+SHm/d2PPgpQwj+zckZ0eIvp8M/83FPju3QG/DNfaGpt mjgT/plVfolv88Dm3zx5xKpDYMGP3+On7rdqDJYzK5tWaVMN6xFzhyObRkVP g3/mpQ/zvk2DviJz/rs204ajPgzMBQv8r9WHXkbmni6WrC+oNzOzaZdKtw39 UJjL93Hy1lOncZ7kzDbNe9U/i3om5tPJ2/L+g15KZkPAn9PTpfcJ8536CZYC 6Gv4zc3X5nqg3xiZe8dVb/dKyj+zX7FPYCT6gTCP+3/vWZUzsH85c17rw4Gr kG9idr3VPNED+VAyn/E/cPLuLPhnfrhlx1drP/hnnqGe0eLZXPhnDg2urrPH 7yEzc/tJ/c/nSb+P5pPwbZyb8TRYztx+lbxHVTAxP03ZuXAX1lMyB+saiFlz 4P+3PeOv5sOxHwPzxSTDuPWoDyNz2b2V1cKhl5n5Z83nl76h3oQF/N6751a1 knT+mRfYfA/+iPNEzGvV8zNGIp9K5tK1e08ckt4nzFUnDykcPwz+mWUxr/d6 Sfcdc9TFHseOSvozN5+Q0TMd9SEsJGGRU+7QbNS7nHmIXdsVQ7B/Yrae59rl BeJTMt9bOe9TOPIhMvvXKtj7agH8M2dv2V9ethj+F5I4Vul6pPMS+GeuMeDX wQZL4X8R539auToOLF9E4gW37r56MLF9yOj5R/4CK9l+bG/W1iFYT2T7mjVT ZtVQwT9z9TuaSq+xHyOz6mOxbDz2a2Z+3jq2PAHxCIv5PijJuXgb50vO/K8Q rfwH/ZCY3WxLanlJ/Y+5/fU6labgvhKZ61U7HzUf9W1gdq45Ur5Heq8wu9cZ s70V+o2Z+fsA+cdT6O+CioRBDd12uKI+ZMw1vF78kYx6lzP3/CO/nh3q25nZ fWL8xGeIj1QkJnRL6/834lewfc+g47Wb+GO/v+0BRnd5QAWr2N7F9dy9y4HY P9vHbH9+79fyCtYzr1v0eV2GGvHw+CmLQncWgDOZqWOrt6PARubc8N13B2C+ iXlN0MNv++DPzHzF027fTuzHwusPn+wUMRT6CUu4fx16P0C7EPEzXyrtcCYW 8cqZF7Rd/PMV8uHM7HTx+TqZ1B+Y9y5vsGmND+Jn9tmQ0nKvpBezouimayZY xbzDQx92AuNF5htntp5RYD09c9eiNKUG/djAXPy05tzzqJ9M5nL5oG5ZUn0v IbHmc6dNAuIzsf2awX5KW+TXzPZqvV49bLcC8bN9z5RujR4HI/6lJMy5X6Sw C0X8S0l8lvJcuBiG+JeSsZvPr4nTRcS/lMi+dKV1FJiYZ63rpRgIVvD8jHj3 0P6Yr2Tu1eza8cErET9znTTFx/34XiQy5+9MzN0i6c98P/xqzLBliJ/3t+TM tQdlqK9M5qRah06sR380Mg/pVSWEZiN+5pH7Ls4Ygf5hZq5S3sqtCfJrYa7z 76YNOah3wZ+EyevOxh7A+ZMxP+vaL3khzqecuY7jl7x/5yF+5ua1G4uPsR9i vn01Zkku9qvwJ7Hfz+z7RahPJdsntVleUybF70/UoGuufSTyJfL4I1+Hqz0j EL8/GXtfvH36SiTiZ3t6zIvKZVGIn9nJteDfXdGIn/lFp5JXRWATr79hfGS/ vWAzc9n0o1nSfAvzoPGDP5zA+sIyMopuDVIbw79sGYlvGl5sZI/9yZldLncb bUG9ODMPaRX/pxp60TJ+Lwfbre6K+lMw6xoYdlRGfSqZ2z9bNmYS6lfFnGpR av+T7k/mr9NafeoF1jMLcb5pfXC/GZgftR/q+xJ6Z7J//+BvrQNwfo3MET1r 7ivCeTfx+NnfK1X6ifoyc3wNH2as6op4LDz+j2/71r5FvEIAidvtDm3VIF+y AKLYuT8OmGMRfwAZQ3QrVj+KQ/zMHW/uPzkrHvEz5487+vfcBMQfQMI/ni9P PQArmV/OrHH3IFjF4931G3s/w3yReUZkaz+1FvHz+HhTZ5tQfF818P7OLIh5 XysG8TMrUmqFD4B+Rp6/ccFh/zGIz8T2Jz8jda+k+Hm95JTB1y4hPxa2i43n BmdJ/S+QhKxKUxztFyF+ZuPzz73Go7/LmZ+XdjrWD3bnQBIfyM60f4n5xPxw vc2Wkeg3Ch6/7L5V5RohiD+QKMBzbfnocMTP7PsktvcT1KPIXNXw5fIixKsP JOPqIoeTt5EfA3N00am3z3WIn8fveN3VLUeP+ANJvmaDz+kLqxB/IJm7398R pV6N+Hl/GycW3L0FtvD8WweGVLoOFpaT4bPtiTOzwbLlZLQadt56C9aTs33D 58qnAuDPeTkJNevP6fElEfEvJ9J+O2wfAf0Uy0k0DBh03Qi9lMxdS5MnfEa9 qZjPz93qbUa/FZmP1nl+6gf6hZ5Z087+3H2p/zFPtnEfUYL3RybzjE3V2qlw 3oy8n0dxfVSByL+J7bWmOrW9hPNq5v3NajlxQgjyb2Fe0PKm71nUu6AmY3Ct mX19sH+ZmoTYfYNllZMQv5qo5P7M5dnIhzPbCxy2bD++BvGrSXTc1O7vuesQ v5rMj3MPpBrx9wIlc0HnFV6HkxG/mpQLtuhbuKUgfrbnvpri6QXW8/pXrm2N LMN4A/vv7Vi0yg6cqSZDxD+mG7fhz8hsnfagf6u1iJ/Xj+3Z5ukfkv68XvKO pzf0iMfC8abd8+twGvEKK0isO/dSvZrQS7aCjMmZ5548Qb7kK/g9P9P1/nD0 b2ce/3KF7WQ17lNibj+jo+0F6Kdgfl0ecXAO8q/k9boG61XbcT5VzBsdf8yy SPXP6xfl+HwcJJ3/FSTvk/vBwRb1ZmBOGt9qrBz5zlxBtG/03gM1kF/jCjK3 aubluAv5M/F6fXa1uf5wI+Jne+UWy4SNmxE/8zOfgyV/b0H8QWR4+rd5bNJW xM9s/Uh3ORcsDyLl+7rJhiVg5yASSu6WLtyM+cT2I8Oy7gzC+gq214532LoY /pVBJI93m33YEftTBZGxefbrCeHQT2TW2kW83Ay99MzX0rb+GAm9DLxefqfk 2Gz038wgosY7r7t8Rv6MzG8DV2kToJcpiMTQPs833sf7w8zr9V2cXld6v1jY HktNBlSS7r9gEhY/+vB0O/q9LJg4pbsv/4PzLWf70rFNnTZif87BRP0WaqaE IP8UTMrzSxuOH4p4FTy/INzOMQf5UQaTyuRj23yCAfHzetXrHB+zcjviDybz kVNhecN3IH7mvuGm5nlgQzD/3ih8P/UNODOYZA/U09ZdAhvZX6Ry++iJYFMw GVqHx3bcjfXNwaT/4/NR10Pwb+H9ntr559jv0FMIIflQT9ubDtBPxvxRNqL8 C/SSM79bJNisgV7OIVzfM0Iet0U+KISMC/cXFVZCf1aw/YbD/cxc9HNlCNGj 0TcWuKLfqJinufktfor8izx+8Ia7lZrDrmf7pd2aC9Wgt4HXTw28f3QS6iGT 7ZfNng+u4jwYeX/XL21uEiLVfwgZAq/1f6dA/s0hZLK45WZZpPh5/PT98/4s Rb6ElWRu1qBh91D8vVO2kkTrzq8ObtiF+FeS5f3cM8V9diP+laQos+7Vwh9M K8lZucqxqjtYsZIMF/9p0fgC5itXkrFxViPPr1hfxeNXpM1/X7YT8fP6M2xd G+2X9F9J+mG51Y90g34Gnr+3kia63TbEz7x6WPNuaZsQP/t7VH7kkCDFz/FY 3/w0cg76oZnHt4iYYbBD/7Ywf7XbOvIG3iNCKBnjqqRkDkC+ZaEk7l5f67QT 9JOHEtl8/3r5rfT+YfuA6eMHnoHexPaFP7YtaQ89FKFkXmE+m2KD/ShDyZAV 2mnLDuih4vGyhDYDpfoUQykzwUddZTDyow8l/Zfe9u0CkE8D+6s8p19sg3TE H0rKsO/TY2vtQfyhJM+JWf16BtgUSir35fWGdAKbef3ujb/4R2O+JZSEeyeD csU0xB9GivNvDK/c4E8WRkJCTPsq57AfOdvVp/f1dYRezmFk3Prlwn8B2D8x 3/pSb9586KNg3rWlvPAJ9FGGkWFvryULpkj9j+2lLnpLHan/sf1r+7jDdlL/ Y/vS71PfaKX+F0biKC95Ujr0ygwjWpKwJ6cp2Mj2HncGd54EPUxhJP9vy6eg 69DbzPbOXp/v/AN/FmafZp/32mN/gkjCqhF9xq/C+bASSbbvirPPDsQrE8m5 0TN90DLkx1YkxRwX93k5yKdcJHJptGnByL0V7MTj83zXO9TZh3yJpHpQS2Ep h92Nxztu3xzcCUwiybXPjva8h/U8eL71tXaTm0IfBe9nYMeba5xwnrzZf1zS v6nNsT8l2wMUo67aQg8/kcxrp7ReMRr9TSXy/VXwsGY2+rOa7b0+n6/jj/eE yPspWlWry2qcF41IYveD8187SHrwfKcrvq2G4j5OEck4PGqgvwvybeD5m8Z4 HgjFfZHO9rRfD4ddl96rPF/2X+yq7tAjm+1btjQudYc/I/ubavNxSSLqI5/z sSdnwKn7OC8mkTJfzmt08QXiK+T1QnqELChFfZp5/o6dDYdlIF/FvH6jSVGj HqP+LSJZJtZqnuwKPco5ftVU/TodWAgnpeLewuQi6GEV/vt79qIt3pgvCyd9 3VdvExtjfdtwMtwcOyFkvnQ+wslYGLhu4yrszymcxO8dDGsSsX9nHj9141Sd CvG5hZP8ha2HyQrxE4+fHvNHuhr59eD1rvrVHLUF739FONH1S8kN7dCPvJlr pfaZrZTe1zz+w7K53nPAfryejepMl7YYr2LuVL3Tor1YT83xzT3vsy4Q/kS2 h4eVvvmK/qUJJ3NJwuCyCdJ7lPPj9yDmnRrxpHA8m+odrr5e6s/hZNod9ETQ Ix/pPP+aV5PjKuQrk/0p/9qWY0E+s3m9jOrPPc4j/0a2e3W+a9ixH/qHk3Ov +y1UU8Amzn89L483L6FPIcf/6u3Rbt44L2aef2rJTe8y+C8OJ8Uefcjnqtif he3n/eNVVVH/5Tx/YN8VlgTp908E0Z2AqQ4rkC+rCBJs/J9su4f3riyCxD5p e7rq8XvPlu1rDt9JdJC+jzG/PGWbfQ6/752YB/XfvKsffp84/7Zfau+0AL93 3NjftVat/r0PvSiCjKOanR3YQtKf7SX7Vi/WS78nIrg+61hKtqFfebP9U4ks 2gbxKXn9Og2H7ZDub78IsgT+HNf5LfKv4v2XDfO40Rv5Vv/e3+FyrctB6B9B qkuXz8/xyIT+EZQur+d6w+oQ9I+glHudFQvdwCkR5DftW+vupzHewPv/8/jm DfUyoH8EKZJz49oMhL9M3u+lIy6jJqB/ZnM8V+Izm5xGvzWyveM74/5aeE/m 83onuqxqMBTvURPv1z6rie4PfP8oZF5a/tHbfmq/Cv05vupjwm7VU1VwMduj ewZp586pYAuzbE7lscfx96hyHt/CPS5P+j4gRBKZ9INrVcF9YhVJQl3tX1tb Yj+ySDJen2A/IQP91DaSTAsbr9h2CP1XHknOuumjyAr16MT2O5fbPPNE/TpH kmX/ZqO+G/Llxva0onPGdoehfyQVP77+JPdzFvSPpHy/0T16RR6F/jx+/11d lePHoH8kZVotn9HC/zj0jyRlvxpujdaD/SJJNqKp9scvjFdFUsqBnnkTUrCe muOb+3pR9Dj4EyNJrVE1uzFI0p/jqTt2mXsrnFc9x9/Jf/ju2qi3FOYh9dNv tsH5MfB6Dw/ql0zH+UiPJPFOS6dEr8CK/Gdyft3GvxFioyo4m8cnaJ8eGBhR wUbmZTnHH96aUcH5zP/8CplI0u8Z9hcrtK67A3oU8v4Cqx598BHvRTPn986N kvla9Idijr+lxz9vriIeC+cvvGnGtjLEWx5JirF/+7ZLRX6EKEppfP1c03fZ 0D+K9GsnTbR6ehL6R1F6+4ibrQNPQ/8oEv4eeHb6iTPQP4qMNp/jAlLPQv8o civ0uzy7XQ705/Etd1zs2wvsFkXlk89YXzqF8RRF+cUO78JWYz2PKMosNVn/ 3H0K+keRvFbbK4XF2J93FFkCmi1qMAF6Knn/sXrbsdJ59WN/t9q6tJyFelTx /i4++ep5Br9v1My19zdSXpV+f0SRWPDs+eKPARX517DdMn77zDm6Ctaz/7Ye fxVqVlVwShTR4bSywLDYCjawvyP9mwyfge/56Ty/1tiOYz7jfsvkeCJ/BtQo xPslO4psN+iPdLsEfYxRVLzh+uT5PaBHfhR5e1R71uMx8m+KIoNr9LlbkchX YRQVvHT1fLrOCP2jqHTC8TrPl5+D/mzv7Gj94hvYwvo1WZtq2zkX+kfRvx7D q4U4gYVoMkwZO2FbCcZbRVP6+g4vrknryaL5fgj7WXoT/myjyXy12unZL6Gn PJoKM93e9jwI/ZyYczcNGFOK/TtH8/upur5kA86nG6/fuqq/Phv1SLy+jWyx w2H0Yw/mJ1ef1ByIfCl4f66pw+564L3mHU3i3bUtLwTi+5gymgSHzidCx+N8 +THvFY9GrFtbwSpeb536+usRKRWsZi77WKOsGewir+dz8d4WhzDoz6wqDDrh jf6r5/GN+/05tB7OWwrzjtbZnRTo94Zosp1786tfbeiXHk2axps65iagfjOj SbHTtLLMiHxlR1Np9/HfG/RDfo3R5PdsTdRiKf/50fS9/1qZw1ewKZpkhZeO LEoCF0aT66N+GVkFkv7R5KRMfd47GesXR1NKeOwmQ1/oYYkmqySHspA06FEe TdmaYIX3E+ghxJDsybyTLYqPQP8YEtWHVLI8nCdZDJkrlVeu+QH93DaGnOtQ pwH1cZ/JY8i4Zt3DrA94HznFEN3IGrQ2Gr9fnGNI+JcsU7/i7y9ubJ9w9G3Q SOhFMSSPPDvoYC3o4RFDhhOyFv9N3ljBihhSZvfft7h8UwV7M++5uNX1TXIF K3n9t2+bGQzx0J/ZUmPlk6nwp+L9PY2oYa9G/1QzC19rvDqN/YsxVOjxw9y4 NeLVxJDK5s3rci/oqY+h4h03Ov70Qv5SYsgjZOmPwCvoh4YYsuxIOTc1FflO jyH90/DQ259gz+T9mH5ENa2Keshm+2S/H2fboZ8Z2b/3yMWRBch/PutxddEU +57YjymGTHt/rk+cg/dEIduf3eprdUF6/7M+tZoddpyD/BezflfUGfNipe/d zNFD+1I+7pNy3o8sf6NPifTvF2NJlM10WuQXXJE/q1gyfvzpv6wgroJlsSSk GQKXRqD/2cYS1ftvspcP9JLzfKvdIxr8B3Zie9iKepPMqyvYmXnUwT6VGkEf N17vUVH4CM1S6M88c27gg/X4XufB47s0e52UivOuiCV9q5T7de8gXu9YUq0h 3wa90C+UsZR9puc4uwT0E79Y0kRdPVTQFfWtiiX13A56bdoJ6M/7fdB950Q9 9BRjyTakbY2Sm7BrYkke9DRgnQbz9eyv0hlthBX0SYkl8+PxLW9tlc4/27v+ unT2AeopPZaU4c96CmnQI5PjO3C+xdP9eN9ms//Nh/94noL3sJHtqQ27TNLj 71/5zAXdB1RLxr/HMDEv8F2RvBl/3yxkvrGtdLAjvj+bmf3neOU3xHu6mP27 13nfZjP8WXi/D+1eTilA/Zfz+G/NerXdJH3/1ZBss3fdRSnob1Ya0scrk9u8 kL6HaEjhLatW/Rbqz1ZDmc3nWCdl4/6Sayj9VI9dKY+RfycN5e9wCZ/UH/lz 1lBxQWJet6PIt5uGDHdz5Bfe4byQhvYfnrk6zwv9zENDbnm2TlaO6HcKDY11 GXXUbjzYW0MF7+ZnfTiB8UoNFY7ct3nDKtyPfry/Z2cf3ugEfyrev/pq9epn oZ9aQ8aBQ73Kbh+A/mz3NJybWR/vWY2G38M7csXd+P2h15DQtHCmUxy+f6Xw /Icfqsp7St8nNSR+vVs29Qju+3TOX1rtSh+l34eZvP72h+aLx/A+y9aQrWrY 3cdd8f41asi8ePTxPvel+19DqkZZv5Z9le5/DSlfZTjsDJHufw2lbCleZH9M 6v+cnxva5Z3eS/e/hr6/Of/jU+Xz0J/zZTp2ts8XcDnrddIStff+BegfRx8L BszwybgI/eNof5tnvubAPOgfR+ox+9bOdrwE/eOooMfdn46ZYHkcmSsH1T5d DnaKIyv/tesKnoGd42jsgi5fj3qB3eIoZevOWPemWJ+Y512/PqM39uPB42t/ PHM9Q9I/jpSZisTqbVAv3nFkrBFxzH8s8qWMI5kwNHqjO86jXxw521+b6mwl fW+NI1Jv2ui1dQP05/VatvB91xjnQYwj8dfhWvbp+H2jYR4RPdC/mfT+jyPv OX8OuLME9Z0SR/lH/xpVdwj6uSGODGv04mwR+02PoyNFV/d3fYl4MuPI4/vm LMsWxJ8dR5mVG5pjky9D/zhK6Ob44FLRFegfR//es5tUdOAq9I+jBZfeXWnT oAD6x9GF5ZsW2nUCm+NI3myyIrwZuDiOZtp/mOlZgvmWOLJNLu6yMxlcHkc2 0wouuzuCBS2ZUi8LZ1bBv5WWUg5ndV9SgP3JtFRg2Z717nI+9NdS/lOHBzuD Jf2ZozvZD7iD+nHSkp+q53blVdSbs5ZCoku0P6YhP25aMtjvfbNypHT+taTZ 2TQ0Lwz9wkNLmbJOXd3zcf8ptGS5ML7O+ATo4a0lWVTaw1VT0K+UWjIfLsk9 dgH6+WlJnFA8/Vsczp9KS8qqjgG1pe/FavbvHK26sQ7nT9SSSlO33UBnnDeN lpxuzX+83gH71WvJO7tDzup30DOF7aMzlv0pQz4MvN7Rsvy/3JG/dC0ljG2i NsUgv5laSg3v8fG7pEe2loYX6Q44bQYbOV9NXRu53JD0Z363LLQkA/k3cXxp y6JtpsFfIfubJhhCv+H8mLW0zDfs4SAt8l+spSNz/Ef+1wj7tWip0OSZV7xd ev9zPqJnNKrXBvEJ8eS871iTV6PwfrSKp/SsOMrrjfeLLJ5Up7+PcZThfrSN J80dp0cON/H7Sx5PVsZOKwL1yKdTPJn7/jd88iPcz868fo3eSXV6IP9u8USj 29Y4l4PzSfGUeVxfPMYGenowf6niMO8p9FPEk/CHKjR4r3T/sz3hbNSELPRT ZTw5hZ8NyP1H+v3329+W5TY66f6Pp3y7vBOVclFv6ngKObVkw6wniF+Mp6aP dT69piJfmngaPjAl+lAj5FcfT/vbFp44UQhOiaeZc7rUrLoNbIin0kW/tjSK Rv7T40mxdFLL72dQ/5nxZOO1yDkwFv6y48kUcTXpXG/0cyPHp+vcos5C5Dc/ njwm2T36WYr7ysTc53xAxzLct4XxJG5sVmuEDe5jM+vjuEwnrMLvpeJ40t8+ 2L2ep/T9L54Mw6+qS5T4/VvO8x2XuQu++L4pJJD8lbfsxnz0Q6sEMl411jsW K33/SSBh7LDg1Wcw3jaBxEL/O/uc8X6QJ5As5YMhrib0c0ogVc6NtqVXpb+X JZDpSc0d48rw+8EtgcprHhx/10X6/pNAyiULowtWop97JJDt02jlmxbS7/8E svJdndz2HOrTO4EKX43sW+kL8qlMoBS3HYdGrUa+/RLIo3vUkL3LoKcqgVzz F6+1XQxWJ1DvBNlg1QKMFxMoquc80wo11tOwv1/esWkRqBc952O4X/2nf6Ge Ujg+H9+TXRKk738cf87K/dNKpO+/CWTIydth/wjvh0zO1+aZdS+Owfs2m/Mp Oxb3aqb0/8dgtm/YqVL5mH4V+jMfuLhnnRH/fs3E85vXHzA5Hd8rClmv1+2O pNtIf99LIAW/Vw83w/fEYt7fgVsdNz5C/i28v4SH/81rifNYnkCZ41Y7LC1D /oVEEkefGryoKuKzSiTb8YHNC7yQf1kiZb/KOOB5Fvm3TaTC70sNF5ujn8gT qeom1we7RyG/TokkJC+ctsEH58M5kdxmvniisEb/ckuk/dbVPn/yQn+jRFJm pB5+WAj2SCR14gDd8SiwIpESjg6PmNAB870TqXc2tXa5gPOmTKT0y3c/D5qE /fglksp/7pJqk9C/VInkl+eSXtAf97c6kZwPxKz48gV6iYlkHLFvzfp9eM9p OB+dVlXZuUldoYee7VWUefHvNBWcwvF5np1+pevyCjawfXrIx7PF+F6QnkiZ B3sW5xyU/l7P49cnT7m8HfWSnUjF91LnDa0q/f7j/cbGDNr7Bv0gP5Gi3t/U 6hMQjymRTlc/3/V0X8RbyPZTJSurb8T9a06kR7pucpdDyFdxItkfiY3zXifd /6xn411dVKOuQf9E0oc23Fyj+Dr011HPjD/6/9XGBP11dCVSu/VRDlimo1vT g/NntbsJ/XX0ZPHc7VaTwHIdPdt1dvHwXmAnHblUyZ944zjmO+tI9br7/AYh N6C/jpTVbleaGoH3Culo86/CG0dDoa+Hjqw6th/9U4fzqdBR/vZ7A7t+Rz16 68gpav7N8WuQTyWvd+JVrRNP0J/8dCTWrTLiQdKKCn1UOhKOph/OcFhfwWod GdtWyR7VY00Fi2xf8rdq92qcN42OTIEX5q4Nx+8BPfu//bL0QB/cdyk6om69 qlTNwvvboKPvffZl1piHek/X0Z3OkY+PjJLufx3ZFG1qfrEP4s/WkUdWWi1z E+TLqKNW3JQ9utyC/jo6V3nrzZjvYJOOzA+uXu6fcBv6c/47folZ+A5s1pE6 ZrnHadc70F9HilGPZc0mgi06Cl6aNivcF1yuozr3B9/Z5gYWksj97upnh55j Paskut444qDXKLAsiRZN/HdgnD/2Y5tEU17Oa7Wlt6R/Eg3KPPhKHID4nJKI +tptLu6O+J2TSH4sYf7W6ciPWxKpPadYPpQgf5REHmc/zZ3T41jO/wDCiGqO "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-0.31814608504445346`, 0.43898352422426}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9, 3.7093017102523403`*^9, 3.7093019101701117`*^9, 3.70930258698612*^9, 3.7093029722639227`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-Pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.7093003912386627`*^9, 3.709300396573881*^9}, { 3.709300539132701*^9, 3.709300548387629*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"PlotHPmam", "=", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]0"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H12"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P1"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P2"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]P12"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P1"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H1P2"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P1"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t", ",", "\[Beta]H2P2"}], "}"}], "/.", "\[Beta]HPmam"}], "/.", "pars3"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pP1", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pP2", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDP", "\[Rule]", RowBox[{"pPlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"pH1", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"1", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"pH2", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"2", ",", "t"}], "]"}], "]"}]}], ",", RowBox[{"LDH", "\[Rule]", RowBox[{"pHlist", "[", RowBox[{"[", RowBox[{"3", ",", "t"}], "]"}], "]"}]}]}], "}"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}]}], "}"}]}], "]"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.709300037214797*^9, 3.7093000689933147`*^9}, { 3.7093001670069036`*^9, 3.709300374457711*^9}, 3.7093004046749496`*^9, { 3.7093004364518337`*^9, 3.709300478113412*^9}, {3.709300737008205*^9, 3.709300786356876*^9}, {3.709300875075034*^9, 3.70930088404445*^9}, { 3.709301799559614*^9, 3.709301812034732*^9}, {3.709302725516533*^9, 3.709302750688821*^9}, {3.70930278660093*^9, 3.709302828970275*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{"PlotHPmam", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Red"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", "Blue"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{"Thick", ",", RowBox[{"Lighter", "[", "Purple", "]"}], ",", "Dashed"}], "}"}], "]"}]}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.709300408247622*^9, 3.709300416826254*^9}, { 3.709300485707629*^9, 3.70930053364314*^9}, {3.709300791805314*^9, 3.709300835046307*^9}, 3.709301817235408*^9, 3.709302730194722*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {GrayLevel[0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxFmnlczOv7/4dElkP2ZAuhozCWKKFXZQlJqLRqX7VM+14zU1OzK2v2LCUq QpF9ELKlrKnQkZS1qChLvv0ev7nen/PPebzcc9/X/bqe93Xd99s5E9yD13n1 ZLFYTSos1v/79///p8X4ia7XqDd2jcbKP4D2+JhVohOk1fA8KHm3rIq0On6q mvv1+Ex6GNJU+nKqv5PWgBvXLkL0i/QY9Na5cuvSH9JayE1oDb7eRXoi4oZF cxb8Ja2NzJGmzcGMnoKQSYsDBYzWgaNI5iZm9DQ4sGOy/jeuB3mC7dJYRs/A guc/2/0Yzcb5XePqbRg9Cwce1bKNGT0b59QkGlMZPQfqoh4fBjJ6Ll5//7fr B7N/fVjOcDtcz+h5+Of7CLXHjJ4PrV0rptxmtAHm4+QpBaMN8dW8te//9AL0 GD969k1GG+FQffmDh4xeCDWdV9qvGb0IcSc/6H1j9GJkS09n9mH2a4y4qf0+ jWU0YH3aeOsc0txuPc3z9zJm3AQLHjwrtGXGTVBVFxzoxoybwmBh6XxvZtwU r3RnBnsy42YYW7i9ypEZN8Pd9VOOWDDjS3A240TAfGZ8Cb6MiGT/b39L0fH6 ndlf8sNdisCv+xb/z+8y9Nd7VH+FGV8G7cxVfbKY8eV409+fk8KML0fHt5ZL gcy4OX46cpY6M+Pm0H/6r6o1M74CBfvmpK1jxldAU+JQbceMr8RQvxqpNzO+ EnwPQWEsM74KT1caNW5lxldBbaBOVCEzboEeCzy9yplxC1yYbbn9IzO+Gvoz eB9UmfysxopVMzaNZvJjCXbDAddpzLgl6oNqw2Yx42vAP328dCYzvgZr9u7u 1GbGraCaNcF8MGlYYVmieXg7sx8rtGo9vf2ItMIKB34v6ZHH7G8t5onWG3FJ Yy08h88oZ/LHXQvOvGpdXWb+WkyYeOa8KjN/HXpb6h97R/0A6zBJU/roIWnu OozyCdp6nbRiHR5nKoquMv1jPRpXadvfZuavxz2zEd+rmPnrMfId166Vmb8e M+rvFw1j4lvD0yfj2gJm/9Yo2aZb487s3xpHPjyaLmb2b41PW83rC5j5Nsgd NmDtPWa+DZq/DtKuY+bbQKV+dtoHZr4NfBv1Td8z821R0zvsYQ0z3xZPNHV9 mH7ItcVFvYd/9zHzbfHHbYYZh5m/Aewnn6KNmPkb8PzjOJ+ezPwNmNLoPK2M 8b8BnQ06fdKZ/NnBTtg0z5nJnx3qu3zPzGbyZ4efI/r0GsrMt0PRw37qLGa+ PXRYRzt//qb59vBrudqrFzPfHjH+HyWazHx7GC0arbqIme8ArcwpI/yY+A54 +3NIyR5mvgNSZlz2rmTmO6BFnmjfm/HviJbsa4p5jH9H7D5n2MuF8e+ISXsy /8Qx+XNE0hZNPQkz3wm5um0vGb5wQtmQuNVM/XKdMKA6v9Ceme+E9ysCFkxj 5jvD5bnvP1+Y/TvjTv6/E3KZ/Tsj33+OphOzf2csMLo5YiDjfyOa/cxCrzP5 24jq/SP4CaS5G7F4lGCNGWnFRpS4XFk3kjTLBeXVT+f8pvsVLggZtH1HK2mu C37GXG3/Q1rhgp5WggxNZr4rMq0SwpaT1nJF76OnhDxmP66Y27q2opS0qyv6 q1/cM4Dx54phR1k160lnuWJLEZuznfHrisr/FiXfJ13nCsO7jyvaGP9uWOgz vbkf5VPLDZfypggGMDzcYPniB6eDfu/qBoHj5JflTHw38D8MN8tg4rvBp3+A oykT3w0zTl7+3UD7r3PDUO1T77mMf3fUfFBJ12D8u2PI3bwLp5l8umPict0F NqRd3bF+kFWaKpNfd9zYovAq+0nx3aH2/rr0IGmFO7TiDZ23kq5zx/1lBXn7 SbM8EGipf+Q6aS0PNGeOuf+bNDxQsZ4/cQUT3wN3Zs/ceIiJ74G+5e1mPWn/ WR7YxMoa6M6cFw/c9u1Zd4Hx74ELx2Nm92by74mtS26YLiat5YmPGjs2bWTO syesHhoEeTD594Spt372Kib/njDZVD9+JJN/T8SY5ebcZuJ7Yuzx6FxXJr4n skURQxqZ96AXtCuPDnEjreUFv7jJt58y/r0wV0NSY0Ha1QuDc5+PLO+k+F4w Wu/c4Eo6ywtDl4dU9Cet8MIto5BBTzoovhcmx40YdZk0yxuHFG7WZaS1vHH/ 55qPbaThjROSN7eMaT1Xb3R8HHbuMBPfG1Nnni4dxfD3xlY9/5xdDH9vfJ1T ZalJ/uq8EVirkraF8e+DAxPThJ2Mfx/sXvhUwtQjfFCjnWMSydSfD26MyZ7F 1CfXB/pHeL+8GP4+iFz6Nkabyb8PgtmmZVeY+D54u2/kdEMmvi9izr5/z+xX yxfvNDq/NpE/+GKElbFwJuPfF5rrD96MovxwfRG7ObXv/R8U3xc1zo7280gr fLEp6/zZq/Q9UOcLj5rQqGDm+8APU44cL1hJWssP7hsOnlxPGn7okfL1gYi0 qx8sB8SbvSfN9cMbEzvPTUx8P4i2lfbtQ/tT+CEq5/isUwx/P/QrWHrdmfyw /CHb18OFxfj3h5+uqZGMOX/+aH07u7qTOX/d48/nnVzE1J8/ni58vnMd6Sx/ NH34o6fP9Ft/9FT59uktU//+sHuVYOLJ1P8mLFr5yquE9qO1Cf8NUpn5njl/ m+B9+sNZFmnXTTAqtvzQj/xyN0HFatGPYZSPrE24H7Z2r147xd+Ev0/sHV3a KP4mhAWZ7zzfSvEDUKwXlLeUtFYAess+DepPGgFotp56+B/SrgGYMtSAvZo0 NwDSrT2W3SSdFQCrpCK/QIqnCMDZSU8OG9J+6gLwpSzGYTTDPxCPDLzcepIf rUAkaqZOfEUagZiuMfrafsZ/ICr+fh47j6m/QJwyHJiXydR/IPaXintfYeo/ EJeKmh0Pkq4LxNo547eYMPyDYHDh1uqDTP0HYduaJRW3mPhBiPvas+Qic/6C 0EfF7LCU/HCDEJFncNqc/GYFIflr6RsW5UMRhENHRuD2V4ofhFM9Jr8taKH4 wQgaElRxs5niB2PlyXsFY0kjGL+m+8oVXyh+MMZH3XhaRJobjPzk/kG/SGcF Y44oMnAzzVcE48yuBBNvilcXjLFTPrpzaD8sDu6tqeTu/qbU6hzM0T7UVc6c Bw6O/tN35w/yx+agofNLaxf5BwcZHdeHPqL8WHXP79ns5kb5c+VAet8i+iBp DgeO7zJkEub8crC2FvvHkk7n4PZZqZsDc545+Dx+qOYKilfIQZ/ZeRbtTH45 ENiLXIJo/xUcYHLm6NuMXw7qjeaoDKd8tHDgunxbUDDz9xUh6Jc03+3LR/If Agf92OHHPpD/EBxdAYui9+Q/BIqsPL4WaYRgjGGxaUcT+Q/BrYqA8sU07hqC Oz8CPZpJc0JQWXTI9A+tzw3BN901YutP5D8ExqWZ92tof1kheLMxWS+S9l8Y Ah3hmHOqxE8Rgs6U9uOBjP/u9YaVBmyj/NSFwOixBsuL+LWEQLpv0o+HpFmh GLOB3XCPtHoo1li8CLYhrRWKFGPWhGBajx2KE0tsNSZQPIQiAYNPRVO+rULh 2WE5Ucic11AEtK8b7E3+OKFYpP+7S4/xH4rntgc4PxvJfyimRQnOfG4g/6Eo PKM2ecpb8h+K3v1Ue1x7Q/5DsTU1pPrZf+Q/FOKCm71jSNeFonRzuetJ0i2h 2CtVfxhJ81lhGOt0s0FRT/7DcNFSWB5O8bXCIH982j2E9scOA//MlGnpDP8w yJwP3c6l82MVhrYFEVbbiJ9rGHbXCLXYxI8TBkFD+1sXyhc3DGsrWHcGEs/0 MMy1Dn85k3RWGKpXLmq+TL8vDEPzu8wBF5n6DkPo0EXfZlK+K8IAYZFQl/Jd F4bDHp/512m/LWGYVLt9+CDywwrHuo1zctiUX/VwPLJfunAV5UsrHGceZYSl viL/4cg7p1LUv5b8h2O2MHKzSjX5D0f4GT37LfT3g67hSMh9bPHkOfkPR7Hd shcvSHPDYWg07tYR+n16OHJnhL2eQutlhcOprsc2U4pXGI43vBWyB7QfRfd6 BxfVbmP4h+P6I/ce7uSnLhwbmle2/31H/sOR3L4m0JjywYpAdp5KbSedR/UI 9Li/utdQyp9WBF6MOrEshjQ7AqMkXaqTSSMCRkvnbB/J8I/AZv85IxyY+o9A pnr89t8UnxOBjXvXiYbT/rgRaDVwK7pWR/4jYLf77xLtl+Q/AqLj0Q3eL8h/ BL6kTVx//in5j0Be9o9eVo/IfwRK//NIcHtI/iMwflTohIkPyH8Exhh0Pbty j/xHwqnnM+0NpNUjEWq3++sP0lqRyPg2a0wmzWdH4qbqhKaRFeQ/Eg3pBgfN HpP/SBgu/6Tx4hn5j8ROdn6rnHhyIuFT9tt5DPHjRmJ/xpk7xsQvPRK7buw8 d4PqMSsSYwdbTuVRPRZGYk5xfo0L5VMRiSxby/42pCsioQjrY+pGv6+LRK/e 7XpyWq8lEnOPO9R+onyzonBsas3dbZRv9SjY/DK8epjyrRWFni3ffRZTvtlR eGV5ySGD8R+FNQtzP1RSvqyicPXDbY3Ft8l/FP7o3q3QvEH+ozCqX/DDk1fJ fxROPLkxwOQy+Y+COPL1st6XyH8UHidyx04kXRiFgNJfV3fT7xVRCBkhmmGr IP9R4Px55zK6lPxHYQVvjW9mGfmPwgDvxZwA4smKRvq1k3Zz6PyoR+OK3/ec dOKnFY05z+U35hM/djSECe78Fqb+o5GLyW07iadVNBZcrFk/7jX5j0bDrtVr k2mcEw0Hl5o/lTSfG40m93rHsbR+ejSMAiTTEyl+VjT2LswwGUL7K4zGqNfe s/7cJ//R6Iz8beZP+a6Ixtim3Hr5NfIfjdPqeTfyL5L/aJS4dPKHnCX/MZDe Wxw36hT5j8Gqhzg7voD8xyAu6POrhOPkPwY/toptY4+R/xi01W74aUTjVjEY Fjzvz9V88h+D6VsP/XxaSP5jYB65o30SxefGwLjI9Pos4pseA/aXosUx18l/ DDyXBcujiF9hDGIt1hy9SPwU3fHvXz3RXEn+YxAxYMmG2ifkPwapRSFd3pTP lhjM5m9dLSXNisW3zHyOPZ1v9VgETu5T3ED51orFK6y5t5r6CTsWbWcFy0/d Jf+x8DB0iZl9k/zH4t2pvh4dV8h/LD703bJ+dgn5j0U/TT2HMZRvbixSYWOj QvlLj0WH94v/lh0m/7G4q3D5d8M+8h+LF+NcP+Rnkv9Y3EtfaXtxO/mPRe9L KlEvt5H/WHA1kwea7SD/sdjzhrvkzS7yH4f/SgJZYQfIfxza3E1WROaQ/zgY JKyzNKf//sWOw/nNLhwD4oc49N36l32Q6tEqDrcrQm/8pHp3jYPToawNDcSP E4f66VfrptH55cZh00HWqAvEMz0OAsWL5H2ks+IwvU/syq/UXwrjYDPFZlk1 raeIw5QnqkVJVO8VcUh56qanRv2lLg5ugbk1uyj/LXFotdwgc6b8s+LxxDql MZnOs3o83lz2b1h1kPzHY+SSl+P6Ur7Y8ajN0b40NYP8x8P09qJAXTH5j8dr nfq3OSnkPx7zb86/NI1H/uNhf3+By3Qu+Y/Hv5fie3yl8fR4nOC2awSnkv94 5FktL7WSkf9u/SdoQAfxVsSjjTdsXibxq4jHSfPnA23JT108vFXsBvmcJv/x SGOVjdK5QP4TkB5jU6tD/VM9AcXhMoUe5VMrAVz9vqu0b5H/BLTOM9CeSLr7 9funyaXQkn5vlYC9RuJjtbSeawI+p+luYVF9cxLw2mGL6qdi8p8A0fk5wx7Q +UpPwJTWBUaVdP6yEjBhGldPdz/5717P4oa9JuM/AcFfvcu/Sch/AnziixdM Sib/CZj15b79vDjynwDPkeu23w8n/4k4en3IKQmH/Cci4puovlcw+U9Ejl3F g+00zk7E65I15RYR5D8R30f4X6uOJ/+J2PdtmM0u4ueaiAPSD9ez6bxwEqGz TM2rD9UzNxGdBm/mPD1K/hNhkN3rxho6n1mJiLEMv/iJzm9hIoyX2IZvoP6i SMRXt3CVAOr3FYl4L4l5MJP6Z10ihuecn1JGPFoS0dIQ7xBM9cpKwgy3/Gw/ Wl89CWaa9sG/Kb5WEsaJ9QV+TP9PwqvYQ41fqD6QhA3n27fcpX5klQTNvYP7 mWwm/0nQK7vWL1tA/pPg2m9OzEbKFzcJV5c+GPwljPwnwepta4+PAeQ/Cb9v LSv+4UP+k/B31dPsfC/y373+ilbjOG/ynwTbjFtem/3JfxJyRVHV50PIfxKG /xf0KpDOA4sLw7NZ/s+IlxoXOnPqBv/ZQvngYvcMHZ9WOn8aXMRUjO3ZTPWl xcUW64VVa88otQ4XP9daFWdTfbG5iFjyzXkn9SMDLoZvemPRQbzAxY5juc03 SJtz8e3iglwt+r0VF6PzPNbZ0Xp2XIzRtwm/S/Fcufg94svdl3lK7ctFs7PB 5O+HKN9cGFzj7eJQ/4rmwvWsIDib+HC5aD87Oucz8RF27z/nseQY8Unnom3c jbdLqV4yuVhTJNNbFEh8uHjs3OP0EF+lzuWioPDk96XEp5CLCxOTIhaTLuFC tUdt12z6vYKLoyf67RsapNRlXNx55xmbFEk8ueg3ZW1+OfXLKi6cBcuN2VLi y8W7yqoDlTuVuomLuur0mt/kv4WL/acKg5n3TEe3n0U/n16k/sPiQf+Y03k7 6k9qPLzf8XYCn+mHPKSc3elbR3w0ePj65lesDY1r8TB4n/OwATRfh4edt7bU BdP6bB6293WWD6P4Bjx89NDuvYvud/BQ/GXmkQziY87Dhrm59xKIjxUPORNv 7r5NfOx4iDn+p/oO8XHlweYtr/E58fHlIWh6ZKcZ5ZPDw+Hb/Y3d/Ig/Dy09 5KO5VC9cHkoa5499S3yEPGh5D2gtonpL5+G5yo1hXzYRfx5mGiUvXR9K/HkY Kcz/yYkl/jxMc559JZ/6byEPL6LPvHGj+6uEBws7m2V/6D2i4KHc2lGrTxbx 50H3wh7XobnEn4eMSvmBbLofqnjIqjWv1abzX8eD4dsORWsR8ech/civvGwa b+nOb7HxlZkniT8PBWO7bn6nfsviw/xLilYR1bcaHxu9Jx5fQu8ndT58ra06 Y0XEn48RaZN4KknEn4/ZbRf3O9J9oMPHfbX+4qfUv9h8vL478Nghyq8BH5YP 1Y+9diH+fCBw4+IDjsSfj9GXLeZ/pf//yIqPE2be695uIP58PNv1jsOncVc+ 8l75uZY5EH8+mmWDNu7dSPz5mJzwteu2B/HnY5LF4H4/6Txw+dB5EhRbSfeb kA+r/qt1PkURfz64/ctUPycSfz62rR7cEETnMYuPTPGaWY30/snlY+0+n+oM OfHnY3mj1SIhnecSPq4fGh79D50HBR9aryp/faL+W9Yd7/i11rwE4s9HVWiP VZ503qr4sI2ocXOi81vHx8z0Mzn7yH8TH3p3ciQ31xB/PsJOWcePWkb8+Si5 tvbiuUXEPxkWpf1sz88j/snIW1lfpz+L+Cfj+3K3+HnTiX8yzN+dWZ4/jfgn g1+qujLsX+KfjIiY+CUbSbOTUSouWGxGvzdIBuplvVT0iH8yXrxpcBDPIP7J SF3++Ec5xbdKRlPCQPV7+sQ/GWeqV66IXkD8k/Ep26zwljHxT8aPW/Ii4VLi n4xR98r7WK0i/t1+o/f3X2ZF/JOh/v5ju9Z64p8M32tes13XEf9k9IyOmPXS gvgnY0BeWGOsKfFPRmuVbnbKXOKfjMkeI247Tib+3es9CZ8SN5L4JyP5TLz7 hgHEPxmNhfVOj1WIf/d+bq1eevT3OyX/ZPismDcrsF2pq5IxRcR/teWzUtcl w8tozrDMBqVuSkaPlePuZr5S6pZkyGPt8va8UOqOZERNNjwz7rlSs1LQ8Ln0 QV/SaikoePDnRUOVUqunQDzd8NnEWqXWSEGJ363Bq+qUWisFbzrqYzUpvk4K hu6atCTpg1KzUzDwHU5IWpTaIAXtRnOSnH8oNVLw5Ra/8leXUpunYEBzvaVu H+Kfgijr+DeLBxH/FPx3o3Jzx3Din4K+JgmL940i/ikofdU2b6MG8U+Bp6z3 CY3BxD8FkyuCJ+j0Iv4pqFmaUHO3VRlfmIJ9nqo2B+qVOj0F94rats6k/GSm 4Lt1nea0CqXOSsGF3cNf2T9Q6twU6F84tnb2PaUuTIFc9Rfv4U2lLknBxl1L JhtcVGpFCnQHT3PalK/UZSkYHbHyac5e4p+CEf67rPduJv4pmODNzqxOI/4p qIuyOMBOJf4pmLW075DfIuLfnY8JwTmvMoh/Cp5N7nPFndZnCWDR/58FjrnE X4Cd7b27WMXEX4Cvx2tPNVwj/gL4OBe/rywn/gK0e7F89tYQfwGqTDLO9mgi /gJs6j31K4/yayCA2tr8Tav/EH8B9lf59LUkHuYCbAx3tHJi+AtQ2fr4WbYq 8RcgzfvQXfZf5XxXAfzV90eZUX34CqCv+22pM50/jgBsu/J23n9KHS2A6e45 Rh/pPHMFGPDP36knSAsF2H5IUMCm+kkXwOHUxZwhL4m/AD92vZfYPSX+3X4t 0tLziW+uAKeS9yxfWkj8BRh+uTDs9S7iL0C/9PKrW4ifQoCpRo9t38UTfwFC fk+06RNH/AWIrX97RZNH/AXourGvYayM+AvwydOk5hbxbBLg7OUPxzROEH8B 5vFUFVlXib8A89+/VY2k88tKxRPVxzEaVM9qqWh+fSjC/AvxT8Xx4sGP3vwk /qngnM0yLCMeWqkIEfU//Ggg9f9U3IVWRDXVJzsV3omTft/VpP6firi0AsG1 sdT/U/Fq1Jjn08YT/1TkXJzTcYe0VSo8d7ssTNci/qnQsx38c8FEqv9UiHup TX+gTfWfilyNzq6pU6n+UzG4ShExhnR0KhYNHHRjGs3npqJ2ZbH0/Ajq/6lY pvpi0jjyl54Krx/DCq43E/9UbE/R9TerJv6p+LHBfNzIMuKfitOSfiVSqu/C VNT9k/8jhuqppHs920UOEaQVqZirWS9efYH4d+ejarC14DrxT8UjaYik6D7x T4WJm9kHBfWjulTsUQ372fKG+Keix/756W/pfmhJxZF55VeTOoh/Kix7Dv1c 2ZPu/zTsf60a20X3kVoavLsObP2X7iv1NEx+u/Kk3wS6/9Ngu9Wy45Iu8U/D BKuUzyx6P+ik4e3I8I73dB+z0+C4mJ3baU7803Bl+YPcCLp/kYZDpTaNPjbE Pw197t0vOGtL/NPQJtis4073s10ahj+6eeLNSuKfhuAhLV48es/4piHRdvBj f3pfcNJQ1QyvNXQ/RKfBoeaezlniy03DKTcxN/ob1X8airf8aa58TfWfhuYJ x260Un/PTEP8IqMzmZeJfxoKm0Zytajec7v3WzA06t+jxD8NhrVNzu2HiX8a zk6z/aclh/inIaSu16G0k8S/e70tWucdLxH/NDxfEJufS/dJVRqWGxvXX6V+ W5eGUb6Xp2/8SPzT4HZ4fOutTuKfhvCJJ4THetP7Lw23wk4s+ED3IUsI/8Ay of9o4i/EqEUFe95QfagL8eRy8r3HVD8aQjjknPDdQe87LSGeyx2M+TSuI8SY 6eGb9ei8sIUYbDzeMo/qy0AI69LInZfViL8Qu0vN/56g82kuhI57TFF1o1Jb da//qzLvwzOlthOigTuDvZD6rasQpn3OZH+n/PsK0WV6/tPITOr/QqznpzsN iaX+L4TJVWuLgfbU/4XwLm183GpI/IWweJg3ZOAk4i/Et07fe69HEX8hfhu/ MJ00gfgLwcuNunR3PvEXQu9cdL0drV8oRCHHSMUuifgLcT3gqIMlnQeFEMX+ /qsCFMRfiE8vLOe5PiH+QpRYDrLSo/NYJcREfrPBOqr3OiH2SJ9+qaHxJiEG pvFdj9J7r0WITtWE+qGVVP9CeLbZBXXdov4vwshckxfvqV+piTAi+o6KPuVT XYS9JuNNzI9Q/xchaVDZthzKr5YIi7Nil1fSfaQjwslr6+O/J9P9L0KnpfRV AuXfQIRYS5fdBcF0/4twR09/7hVX4i9Cm0lYzKGVxF+Evuej7KN1ib8Ix1/8 6NTuRfxFWDn9ltzyRYOSvwiGUz9P6zit1BwRjuls3Ze8W6mjRXhyOEK8b6dS c0UwrRvV37RAqYUiOA6KfLagSqnTu+fvFli3DyL+IoTXRZ2MWEH8Rejq0Gno S/d1rgg3Wr+Vte0n/iJsXXHc5s8Z4t+d7+v9T86g+laIUP1PeBeL8l8mws1t 6f+00e8rRAgaGPLtv2PEX4SF8t7uj2n9OhGiPp+rHrKN+ItQXzl5vK2Y+ItQ gmm+TfR+6BBho2ay0x3iwRJj3JFBXhfDib8YvB0nNpkQH3UxKhvsF2f4EX8x MquM9gvcib8YqYNGLzloR/zFuLwzf6oB8WOLIbG4qlapT/zFWNlrV8w1TeIv Rs/nD9zedyrzbS7GtkejSy2fKbWVGIYvBH8XFyu1nRgOptuP7Nun1K5i/BvT OMh4B/EX49i12427DxN/MRo8Vtnm3iT+Yuwt05nY+wfxF2PAcn+n1TOo/sXQ bO6/McCN6l8Mp6tW6wT0ns4Uw/6Z7KtaNvEX40r2YeuSs8RfjHN9h27fSvd3 oRidgT5yE+rfJWL0OCZ9l0j1qBBjlZtfoQq9J8vE2PA74WwS6Qoxnr50yel6 RPy799N/+qnHdB/VibvfK2UF7lTPTWII2BG9Ouh8tYgReVjRWnKK+Itx/KZa ZjbVM0sCo73PgrK3E38Jtr10bdmdQvwlaBjRNSQxhPhLcGzipj2JTsRfglLe if3TlxF/CaZWckyPzST+Evg/6Uy/QrwNJBgbcsnpU1/iL0Hw9pyjuiyqfwlC TLSjvUhbSRB1+2jg9gFU/xKYT7NzuKNN9S/B48lNwYEU31eCaafHeMUGUP+X wCbe53RTOvV/CXLv2Wtr0H3LleC2i65tA90nQgmsdZoH3aP3VboEocV2e+T0 PZMpQcaSWxlD6T2cJen+vvmt/qYfff9L4BC4+YgdvZ8KJTioHnhn0hj6/pdA NvS6WRuNKySY4ecpyO1P3/8SXJ6mzubQ/V0hQWt+7tfb9D1aJcEL+cCucnoP 1klgcn7isL50/pok0A1/8tUvi/hLMPpKJocnJf4SnHv3SL+AqX8pXizt2WG6 ifhLMUywYvOJjcRfiqx1Ky7wbIi/FBcq7rwPtSL+UnRVfH65jLSOFCG/Wt5l 0e/ZUkyybF95gfq7gRRt/ac2/kPnCVJMjn/O1hQQfykCKvXZIbuJvxQV6eub LOh7xk6KosC1tdlXiL8Ui8ZGNKyh+vKV4m+R+U42vRc4UiTmftGvYb7/pFjK iRytQe95rhT9HGp/GP4i/lL8Gt+u1sGi978UlVo7tibQeKYU75Y8/xPwnvh3 x8/rd/AU8/0vxZo9vZxfFFD9S3Hn5X9r/en7vUQK71kWDd8iqP6l0LmUYbWP +mmZFDOzfmh8sCb+UogDt6wsXkX8pVCriXr+binxlyLaa1mfk6bEX4qw4g8e SSbEX4pXGeeq20h3SKG//9jcO2bEXwarey+j7lD9qMmQ4iSZUUb9W12GvTdv tKWtIf4y6MtuqGXT/rRkGKa5xiWd3js6Mlyb7H/irDPxl+FQ15EHbxn+MoSf 32FR7kH8ZShefmLuKl/iL8PaCZeNj3OIvwyJfxoflicQfxn2lKv9bqPz7CqD Hex/D91J/GUw6D/ewm8r8ZdhfMbpX+70fR0tw631FqfL1xN/GZr9Q5v16L0n 7N6/0+09MXQ/pMvQNyV++51qpc6U4aXT2l/ZD5U6S4aBlxIrflQoda4Mg8/0 6GdI91ehDCvE8tpiek+UyLDp4b8saxpXyKCq4VFxj+aXyXAhWS1c7Z5SV8gw +3SIfZ/bSl0lw0n37WXz6T6rk2Ha3MszWkqVukmG6l+2y6fReIsMn/o+/q8/ 6Q4ZWDNGW+nQ71lyjK140HPndaVWk8PxpUrFX4VSq8vRGD7VMp+0hhxr/TWT 028otZYc8p3N00fcV2odOXJG+xTb1So1Ww7F5Ss+B9uU2kAOHy12s2gw8ZcD ezc86E3vO/Pu+HWtQz/Qe8FKju0jXLtsdIi/HNY7Bg4K+Ev3vxweE+/5faL9 +8qxLnZUfUMy3f9yVDSGhana0v0vR+DfkEtLl9H9L0e6zZPIX+vp/SdHqsO3 Po84xF+Oz30qx+wQEn85NiS4LtgoJf5y8BaPLT8XQ/zlyO/af8nJnvjL8Xac udfD+cRfDu1++mNWjyP+cjjM+2JnqE785XhU7KoZNoD4y6FRvNDl0yDiLwdf cH/qkZHEX472QRzJlgnEX47HTt/OPNcj/nJ4W9mO3G5I/OVYXlIclm9O/DdD c791Rqgj8d8M/4uO9cvCiP9mfF3y3utHOvHfjKgHvk8bzxD/zbi/8xR3Mr2/ dTYjZ2ml4uVP4r8ZRQWLTRrUqf43w/Rp1u/HQ4j/ZjxL8H3C/dVg/H+DuoIR "]]}, {RGBColor[1, 0, 0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxFm3k8lF3Yx1UqolJa6FFN2kRJu6T6ISVRkySVyr6Gse+MGcZgDGlTKZIi Udq1kJISiWRr166dylJaXu/nva/7ff55Pt/nzH2f87t+57rOcnsm2HtbOPWV kZFp7Scj87///r9/2pZeHBf7cW3Rs2vMf8C77J/Pr5k+Z1gOPycEWT48SKyE dQ3nb56qIh6B82UHV1i/JlZBvfJ985XtxGpYkDk6/1UXMQcp/16mTughVsfj 2sPemb+JJ2GVqGv84j/EU3Bx4dHg7SxroKxt0MD/Z00I664a2bA8HYPeXbJc zbI2nKfuH7eKZR0YRJ+ss2J5Fuw6B5z1ZXk2Pmj+6zzI8hxMSHxn2sjyXKx8 qT1N5S/xPASmqmltY3k+Gtv3bTnG8gL8W1qR3sqyLooPZn/n/CNeiEsOA3+Z sqwHrXMKmg4sL0K76o/JLizr47+oE63rWV6MJ32qn8xkeQnODrdt7mT7W4qU nBd/ClgGSuRDYzcS84ET+eP9/rL6DFBx6/zSLGK+AX4/eRJmyrYbYvavmX6/ yS++IYaNVW+8yvpnhP8Kr3kns+1G4NY4fwxk25eha9KiAn+2fRnsD98tEbPt xpjSOrP2NNtujCMHC80+s+3LUbZuQ/QCdnzLYSu+VJfIjm8FjN5/+/uabV+B FW2LXBez+k1gxrFwTGb1m8Dwfo2kgW1fie0TDisqUDz5K1G2/sdbLTa+pjhZ vGbuPLbdFJNlmi0ms+2rwIsxHPibff8qqDh4Si6z7zdDSgonxYFtN0PG8pFq Pez4zRGkP8RDxI7fHINf7MxTYNtXw1VUl7eDjc9qzLo+LWo8G5818H8wW/kq 5Rd/DSTHLS95svnGRYjN6ksLicHF1RbztxPZ33NhYvxrmTZxKRcdGsMrrdnn 1+KIRvbCw+zza7Hnw6oZ/djxrEXnvnnGwcSla7GuRSmmmx2fBeLvv7wfSnpg gWcBJgc7WL0WyHKvl7L5VGqB7krbpYVs/NahVqm7pYUY6xCemlv5iY3nOpzs 0X50n31+Hbqzd2alsM9bwuXMQMfp7POWEJvevJfH9m8Jj185e5WJSy1xtWvG e292/OvxTLmk+A6rfz3c+3FmabHxW4/5G3QbD/6i59fDJydITZNYxgqXdH9W N/6k560Q0HAoP5eYb4XiIU2zsohLrZB9fKtvGbHMBnyE+eRB9D5sgF6P6l0f Yv4GKKzt7PrO9r8B13SbcsSsf9boPHD90hTSA2uMfOThdpP1zxpDpss2bmD1 W0NnxwdxEzv/NmJTskuXHhu/jfhYX/8zlI3/Riyr0puTysZ/I5Z7DnCKYOO/ CR9vjj+xiH1+E45orTp4j43/JhjF2KzTY/vfhHNm9qaxbPw3w88mfVoRG//N MEl/7fyU1b8ZtZmGVTKs/s1Qz6h/qM3GzwY/CiaO9e+m522w7pq73RNan/g2 eO685I0PcakNBm6YlKTPrl9boFm6d5oBMbZgxhGVF3z2+S1o6Iyu7Waf34Lh O9d8O0z9yWxF6nTDjT6s/1uhZPC0zJod/1bMrFGIXcHm31bE/3pyVovVvw3O rqYJ31n/tiHJc/QDKRu/bUiNPGHYxsZvGxan2e8dwsbfFrku9g5vqJ1jCzvl eo8ANh9t8Yz3eDc7H2xtcfdKofNTdn7b4umH8qn3aLyZtli6W6cih52vtmhd Xp4WTnpbbJH9n73MNjZ+djBWSzG07aT+7TDzhKpncgf1b4faqsrQ7h/Uvx34 X53OHiHm20EmIGfVbuJMO7SqGC2rJi61w5vPfWNW0Pta7HC10XTqb2IZe2w7 9u7Pc7Z/e/gk/9N+w/ppj7GK//3qofHb2sNs68FEZdYfe9wTlTwaQ/HItEfj EOO4Pmy9s8ffoKcFRcQt9th14G3eHDZ/HOCx9sxNVzb+DlCwt7u4lo2/A6af jBn7iY2/A36MCTm9kM1PB8xoHeAItn8HJAbPNmbrQakDLEyD9Y+y8XeAf66M VJ2NvyPC+7Zq7qF4cBxRs+Rx1UiKHxyxCB5NF79R/44YtmWkairt5/iO2JBr u66ojfp3hGtGcokecakj9mccT5pE3OKIauH1A6HEMk4IlQ1z06P3cZzQI87f tZH6gxMaVEVfy79T/044died60zj5TvhXOOtCWqkJ9MJYXWN+8tJb6kTuH/L Q0HxaHHC1QXXf21n658znOK+5ehQPDnO8Ha8cI9dr+AMxSUFM/TZ+Dtj5Iq5 18LY+e+MX2p1cYbs/HeGdllVSDbbvzP+Zrbvv0rzq8UZMpLy/DyKr4wL5n6S PZRCejkueKvcMzCF4gMXPEyt+HT7C/Xvgk4Ts0cWn6l/F5S31gmNP1H/Ltgj Z95Y8JH67/2916joVOIWF3gqLGv9RizjCp1XN/1u0/McV8w/elG7L/UHVwyb kpeX/JX6d0X3LI0x1qz/rggL/LIL5E+mKxq+lgVOJ39KXbFkn8adv6x+Vwhu meUeYOufG9K/mO5+T/WC44bBq5Xy6tj1zA0XFqseM6Z427phXH549Xw2/m5Q 1bLcncnG3w32hVaqMWz9ccOwxAtW72l+tLjhSJu+xnM2/93Rb+nyf6E0fo47 FrcmWDaz8XfHjKlBlaPZ+Ltj4Afxzy0UP747rrteeXa/lfp3R/kJlbf731L/ 7lB8OST1GZ2HWtxxwfvs3eJX1L8HlIP797Mg5njgzPVHBnnE8IB13pbsCnre 1gMpM04GZtL7+R5ouiwXMPI99e+BbVEGgt+s/x7IK/2iMI78a/GAy7++qno0 32S2Q1XyoWgwm//b8bLTwGgjW/+2QytDeuQtW/+240SIYrOU3Z9sx9gxnOeL iTO3Y+vRKwk/2PVuOxL83g6sYOvvdlw1+rj8Odu/J1Tze0q9aHwcT7g/DV15 lsYPT4xzH5n96R3174lXfwL57PmS74k2TS8z7RfUvyeec0aPTH9G/Xsipzk8 4uYT6t8T4UscTxY/pv69MOFE3vAdxBwvrLqjcXYR/R5eULEwHHLqKfXvhb5/ J6+re079e6FHPrld+JL694LO0XM+B95Q/14YMXVp7EeaHy1e+FSzQX8Z5ZuM N5rO/VkWwOr3xob9lapctv55Y7rZEnm2Xth6Q05l2ICtlE98bwzNe6+7mq1/ 3pixbfhaJzb+3tAp70rdy+afN5apTDz8iq0/PKg+9/1pQf0p9TK3fdwvmu8c HkQL9rh1f2BYh4fY4T2BQTT/wMP4+NT5eRR/Lg83flWLqih+tjzwpKWr1ZoZ 5vFwvaD+R8sDGj8PnZZNg7fWMpzCA0dlpEZ9NenhIXjmwrOhdxku5EHOYt1C lkt5GPlhrsNb+n0tDwb77JKK6H0tPLxa/PBLVT3DbTwcS3rp8uQh6fdBUefQ d2LyU8kHZW/0Xm0k/zg+GOehebmK1e8DJ4/C75vJL/ggJvT18b0UP64PcraO eKHB+uWD078D9rVQfeH54P7jH++usPXTB19s5619RfU8xQcL3l4qzmbriQ8+ /yvb7Ebzq9AHCgo2dsdpvpb6YNm1zuLnpK/WBzNTV/Ki7pF+H0iPf5R8rCD9 Ppg3ZtEK35uk3xdWmlpnTa+Tfl8M25u/f9c10u8LT5vy4xuJdXwRdjzeIrmU 9PsiMrpCVrWM9PtitOLC1MpbpN8XPF2DMne6H+L5grtIRecC+cP3hUGQrot9 I+n3xefqbWsm0PzJ9EVpdGBaNs2vQl90uCzoe5itr764X7PL5D75U+uLrlHX Mrspni2+GFj8pfY1+dXmC79jc2V47P7Dr/f92tYCalfyw5zQXaHK9DzHD/bP Zp/Uovqq44dLgbxdr9n67IcVrz8sdqP6wPWDb59zyR0NpN8PVeH6Cg00P3l+ +PfH7j+7ctLvB8X3/X79vUr6/XDmmffwsedJvx8GWfURzTxJ+v0w6ryS8Ylc 0u+H2aWjJ//LJv29eswv7044Qvp7n9+j8l8qtbf5oSBBJ3Q2PS/jD+2pTm6W 9H4lf5zyVbM9coH0++P+ciN+Avmt448ZycHQIz/hj5QJZiuLSC/XH7O2czq6 qf7a+qPrtqL/P8onnj8GdlQ7/6N48v1RNKZhXwj5l+KP76/Od5pTvc/0R9rR 2GclLaTfHxNlPVycmki/P7LKbDxVqR7U+gNZA77V0Xxt8cfqe2bTEs+Sfn+M ye53XJ3VH4BJSBzIPUT6A1DS+Dl77x7SH4D2E10LV+0g/QFYGS/YK5WS/t72 0mW1W4m5AVht9TZtXwrpD8Cu6X3299tN+gNQ3KxgZ36A9AdgSvL51aPJr5QA KBr6zu44QfoDMHBs3Sxfmg+FAVgnb710JOkrDcDrxrOfnSi/a3vH1xExrJ2t fwGQ0zi004zqb1sA1o4N5Iwhf2QC8Thc6Y0c1RelQMyxahjQxO5HAvGJOyR3 HbFOIIL5BR125AcCsc06fcCfR6Q/EAkdlumLqL7bBqLUexbf4g7pDwT3Blew q5j0B0JBFPbBu5D0B2J+uIqyexbpD0T9ADmfMbtIfyBGKE/XniIi/YEYd/p5 sX4I6Q/EswMjSkd4kf5AuMeWSlycSH/v+CM1l7zfRvqDsHP0eONFW0l/EAZs HbWv2Zb0B0H/yW6n3y6kPwhRsS7+Ij/SHwS5srnyrwSkPwhxC/6e+kPjtQ1C 9bM9RctpvvGC8Hjt+k+1l0l/EOwtUmaLK0l/EFa1LJYPo3zKDMKFjT53plF8 C4N690sLFlWy8z8IFnKONl5U72uDsDDbxqIfO/+D8KjA6eFUmk9tvXxReuQ1 jU8mGG85mU3WkaQ/GBZfvVy83Eh/ML7cdFE/uoH0B6NPakzpr5WkPxjetzI2 fwbpD8b9N4e+JeuT/mAU/yipOkbMC0ZhuMXUMvo9PxhhN/YrbjQh/cEwi8kP qrYg/cGoVDzQGEF+FfaO7+CHxWWepD8YJ+oKR/4IJ/3B6C/5j+csIf3BWFSy W86f8q0tGCMGDA6POk76Q6D3JmbiT8ovpRA47o/KsaN6xwmBkqZ00UrKL50Q fPHJWGlG9RwhWNAebaNUQ/pDsG+F0X/G1G4bAon4oGb+bdIfAq2PeXemlpD+ EIz3Nl14l53/IbjuVBj0OYP0h2B3iP7iiaSnMAQf+p3LRCDpD0H2yjWXDCg+ tSEw1hD4z6N4toQgLWPgRc3ZpD8EgtnChMnjSH8o/ihlfVEbTPpDcdnuw8M/ /5jvP5xQrL1c4l/QxbBOKKpqTo6S7WAYofihvP3xlW6GuaFwntblxe1H+kNh lzrv+v0RpD8U9fsCXAqnk/5QLH7BeZFM8yklFA0fdpjOpPmXGYrhjcrDQsWk PxTGs5X2VFO9LA1F0d2hwwIukv5QTBoguLSK/GsJxZzwIfMdaH1tC+1dn7bM iaZ8kAnD1AfdK0yTSX8YOnmSDFkP8r+Xq0s6fxuS/2FY56B/8uJ/5H8YwnMU J2r8JP1hWDLzk7P6M4Ztw5Ae2eChfpdhXhhqutp9HMsY5odh34L7C+cQp4TB YtvOxyaVDGeG4dPed7mTmxguDMMTSWmNeSvDpWEIvbxvhMdvhmvDUHdUu3PD cNIfhqCT8XvVppH+MGQ07Ip8s5T0h6Nq2h2DX+tJfzgKx30tvOhO+nvbuW9N pRGkPxyL7svN78euf+EIyJj39xTlFzccox9u6tE/Rv6HIz7320bLAvI/HNpD hzmk0Hznh+PjkDgLz1Pkfzh+Rsw9aEr5mRmOyTNdfWLpe2NhONrzSr/nJ5L/ 4fjsV9K/jOpxbTjkoyP0faxIfzhsg8c8VplH+sNx0G7x0tPDSH8EUnPyR0V8 YeKnFIE/z2anF1bT/I+Aq8aGR1NP0/yPQP3AwiKD/TT/I7BDSfXUy3jyPwI/ aiZlp/LJ/wh0vkquyYok/yPgNidnjGkM+R+BPXdlvPN3kP8ROLTdXrHiGPkf gZTvse0raX4URuDwmGlK3LfkfwTkX241mzKE9Eeg2aR40nBd0h+BnjjZHctp PWuLwE/vkOgxtF7JRMLjYdXjnWnkfyQuTHh81ojqDycSVt3Pd3F3kv+RuHfX PdHdn/yPhG6X8QMLY/I/EoYuu0xPKZD/kTglaxQwsob0R+Lcitx6wV7SH4l3 WQp6Fz1IfySm/NxxunMN6Y+E+v0aV6kx6Y+E2l0l+amrSH8kHLkBJ7O20PyP xIK62f7qIQy3REKsXG7+fB/DbZF4vBQ/Cq7S9+0ozLjLVdV5Tv5HYfPgctxl 618UrlnfmBk/lvRHIbvLIv7lAtIfhXllawVZq0l/FJQHLPhz0470R+HMoREn HXxo/kfB4A3fKpfyiR+F1PLq+6W0n0mJwt2mQqNaqveZUch/v7XiIdWnwiik u2wTZBOXRiFzQolzBuVDbRTunVsf/YD8bYnCVx+p70/Kj7YonOz5I39zC/nP R+F3zRO2VA/k+EiLOLlMSZXmAx8Vea5ahz4x8VDh4+Zg8TrfYooPHw5KlmWq KQxr8HHk/OC5Nm6UL3zcHXAgVMecYV0+MNhL98diyh8+nJSM9mnoM2zCR0t6 Vr/zyymf+PicfUQ2bDPD1nxoQyOzM4jyi48xrU2/L5K/rny8neTw6nAJzTc+ Zqyco9D+muFgPqQKEzXVaH7y+bis6zIlYybDYj6+yeb43OCSH3y0exme9trO cBof3I+fssbyyR8+tnWYK/2i9SmXj7DtVe8Xx5BffBQ/Lymo82a4iI+rsW8H qa8i//jIvFUW+WY0wxV8GBXmHTv2iOZz7/jmb3DZT/WmmY/bheP7ZdnS/OaD k6r1L34ew6181BcKC/6Mp/neq9ctOuK1OsPdfLzzsWquonjLROPlJrWKPa4M y0Xj+npR4/gMyodorHY8+HvMQ/I/GjljUzbHK1F9iMbRdYGfnQ0Y1oiGWpP9 9cO0futEY6bvBNUcio9uNC7pco0a6byFaLwen/94EK0PJtFo2H/o0OpzlE/R eJSnMv0k7c+se8eT3HNs0hnKr2hM3ZblkJrHsGs0ao4aXDtP9YsXjbLAK56c VIaDo9EnJ7BmCuUHPxohdqdfVJI/4mjYST9fP76J/I/GZU3jTT9JX1o0ul+a 5RyfRP5HQ+K0WlTch/yPxv4FO6xfNVO9isbavWOv6p5guCgaWzWXVP8Mo/oV jfSBQ5ouchmu6H3fWbP6CzrkfzTqxu75ZjWR/I9GeWjwzA8zyP9oPG8oq7+5 lvyPxll1Ya5LIvkfjd0Jm+3mPCD/o2G/vixi63jKfwESL30fZ+1M+S9Abnl+ wslMyn8BOCmGxu10flMRwHDZR/kUOv9xBBh75VXEaDrfawiwe6CRnCHdr+kI sPcO13w2nUd0BXD0zJ74m9YbCFC8ufO/cFfyX4AzB4bu3E75yBVAo98Jk+yv lP8C/Ptbs287xdNWgGTzo+efOlH+C3Che/dATYoXTwC56aNtilqfMv4L8DJy UvmrqwzzBVA/uXGB/jGGxQJMrbzshzyGUwQYpPZt8K0qhtMEWK6ZM1wqT+tT 7/jnJb8+RetPrgAzA3cmb6H6UyjAkp83uf8o3kUCbBCbNHUFUf4LkP9d7dhP Og9UCKAlSquRofvEWgFs4ua0PZJrYfwXwH2Oz00nJYZbBPjZT/Hc1GEMtwqQ pGLG26DIcJsAzbEbMyv7Mtzd63d/Tzcjum+REeJkv+kH3tD5RE4I4yV6145T /igJ8WTNlGVZvuS/EEEfdz7OoHzgCDGi/uBSDp0fNITYeCdKybqB6r8QWoKL w7hUv3SFKHpYOXCIDdV/IfSHNSnfGUP1X4i0oo5vs5qYeHOFeGwuG/E4lWFr IZa9Lv5WwWXYVoiJjV1Th45i2FWI9NrIRyYfnjD+CyEjbVdwb2I4WAhE7J3v 3MowXwi9FW/2rp9C/guhurHF3XMX+S9E6fRvFxSnM+NLE2Lozqwx96k+ZwoR eqNMLpzqfa4Qudqca1JZJt6FQlR97Bj5bQrDRb3vT3+RnKbOcKkQtQrGUvZ7 Z4UQn7T/9d9C9w21QjhVFTU+pfW2WYg97WtefB5C+S9E3g6+/FJPZrytQqhs Kd2y9BWjr02IqO6oqdv8Ge4WYojiyoEXxjMsE4NVu/xzJS8fM/7H4GLBy7/q lxlWikGwcT+v49kMq8Sg0bspL/Mww5wYjOUPKK47zbBGDMrvGN2WaWJYJwar ay1XmSsz/enG4HnHvmYHV4YRg2XeXzrdGhk2iYFPSrbHy03kfwyczFa9r/9K /seg6dT9y/lU32xjYMy79HeBOtX/GHya0Z7RQucPXgzqdvrI1Q1k4h0cA539 Pw891GKYH4Nx7RvvzAHD4hgYZLgPf7iC4ZQY/HzXx0BrOcNpMThVVCd5oM9w Zu/4vq27l67JcG4MZJ9oBU+n/CuMQcP3E0V36fxZFIN1Acda1eg8WRqD427m +2+fovofgxSXuJqu4VT/Y/BOODljTwijvzkGdvfb9yp+YeLV0htfp5qowgCG W2NwK1D1/P5h5H+vvkfvPUJKGT+6e8fza1PBMj7DMrFISUo46rCG/I9FY5Jm sdkM8j8WrzP6FtwbQ/7Hou+sjPYpxJxYHOswbGzXJv9jMczdN/vdFvI/FibO Rx8Y5zOsGwvx0UvaF8eR/7H4MVjef/dF8j8WDlYP2uL9yf9YFFo9sPpM+33r WMimHFhWoUnrfyz+qE39WknfW1xjcVP042y1ERN/Xizk5w22G2hH/seidUr3 huHkLz8WL67MfhRO9VAcC0HBn9DrdB5MiYX5E5WxKbep/seieZWB+fA8ZryZ sUiv+mymepPRlxsL5eqaankdhgtjUeD5+VRd+yPG/1gseHpk4q7fDJfGonjC +U3ti5jfV8Ti1ULersoDDNfGQjJYMH+uItNfcyxqHZrXrxeQ/7HomjQq7WwX +R+LJ1P77Bnoxoy3rTdeodp1ag0Md8cig2Nv83YR7f9EcN4Y5HX3IO3/RMCf 0MHTe2j/J8LZg/WVMpZU/0XQ2GWtei6H6r8IM1aJ+g+n77saIhxftObY7LFM fHVEiAwYk/VEj2FdETYN2/JvnwXDEGFJy5n8sw4Mm4jgc9p72hlPhrkiyDVa B8/gMWwtwoo5Dhwbd4ZtReij1pAn2sSwqwhxx+t0ixeT/yLIR8sdMqX1MliE yvayD060/+SLINSffLzrB6NXLMKZq4nGgdrkvwhZAw797mNL/otg1/e5S/BR 8l+EcxKdRe6qDOeKIMm8MXFONfkvgvqV0bJq5QwXiTCmPf7ogZ8Ml4pQcjVe 4dlm5vkKEcabfdr98BHDtSJMzcpOGutC+S/C2k5Dyd0fDLeIUFAy8uiAcNr/ iRD99Jj+WrqPaxNh76KPgTG0nnSLsMF8645Mus+UiYPOI9ml9oOZ+MjFoaFw t1hHm2GlOIhkTultNmZYJQ6/F2rwG7gMc+KwqWeC1qDVDGvE4diXJ/EryW+d OOzoGbozUZn8j8OuV48nd9P+HXFwK1jTo0fna5M4aGgIAhf40vkvDgMWpD2Q lFP9j0Px66ws4Uxa/+Nwwmri8/rbTLxc45AG83kaGbT+9/a3vE9R5SVa/+PQ f/6F6DlDaP8Xh5VHTy23E9P63zt+pXyb/UrkfxweSPY3W6XS+h+H0ydD3vvJ 0P4/Dtc7dtTcp/uz3DgM+TZS0YPuSwrj8OpK5Wb2e0dRHD4o20YdoP1xae/7 vtVfXkx/D1DR237wlvgb/b1FbRxq9C5w38vQ/i8O2X848z70o/1fHMr/xYUn 9af9Xxy06gec30XcFodfsilqAfT77t7xVPVs38n+/aAYR9rrPMLpe5ycGKaB OZw/tN9XEoPbFb+Tt4/yX4xZYVsHhdP9PEeMFRkFkTdpf64hhiSq466+J+3/ xNC4Xvd8fCUTX10x0stn1rgrMAwxdM5r5y9ZQvVfjJ7OQbzhIUx+cMVY+H3W QotHTL20FiPCcgHfWsiwrRjXnG/Ma0lm2FWM+mfcdx8VmOd5YkyN8Llx4yPD wWKMu2LR+lme/BejwC9sVySdp8S9+g3P97lH5/EUMTomP4xLo+93aWLUjj98 zyKJ/Bcj7lzOiUn9yX8xrJTHrTEZR/t/MeYkpSjMlmP6K+rV7zw/dF075b8Y txbdDDzYw4y/orc/7TuHpuoyXCtGquyFktDjDxn/xdCaV1ZnupLhFjH0kgcM nDeE4VYxHh09oJX9tZnxv/f9Z4Y+zH/HcLcYS4fYWMZ8Z1gmHrPe/I3WU2ae l4uH+9a+/GH0fqV4dF77ZxSbxrBKPDbJrb7UIcuMjxMPq0n+xzso/hrxaDnT PTl0Aa3/8fB7ffqazw9a/+Pxw+fL4bDLtP7HQ1zevcma9jcm8Rj1/bvHVA7l fzyGnPRvu3iY1v94ONtxLodRfbONx+X50wf7atD6Hw+ZlAefmxfT/i8ereFr mqT0PSQ4Hin5wrxAyld+PM76Om62ofOnOB5yf8z+TKbviSnx0Lx9eZ4KfW9J i0fFjSnZd+n/h8mMR8fcDfdGvqfzXzy+3NU+f4LuLwt79VZMPz0pkfyPR9sQ 3fTCQkZ/aTz2Dm04Xd9A6388+jRvr++Qp/U/HtseqcdZWzLxbY6HOT/IuOY8 +R+Pm3fLzG5qkf/xGBC5VKX1DPnfG98rU879NCH/43HMqiSw+nMT438CThxN an10hGG5BKxsrLoQxmNYKQGfT9sMbt7MsEoC1DfE3LGidk4C5uytu2JxiWGN BMxf9KzzIZj+dBLgvNQ21EGRGZ9uAlL7H9p6VYXRgwS82GUz5dt6Rq9JAlyP WWkfzmbiw03AZV2VPymNVP8TYNDHblvYOfI/AZXvVow9K0/+J6Cgb6eg5Syd /xOgk6r/5MNpOv8nIOfXZ20jLTr/JUA+JmyYpjszHnEChrWfa0qvYMafkoBt IXZbxu1h9KUl4KhNZdtbGYYzE9BhFa6zUpHh3ASI/Eocq/cyXJiAGXVeJWd9 mPcVJaCxe7HJdHcmHqUJyJweXFqylfI/AfOSlMI365P/CcgKLuZV9zDcnIB6 hTl3nqfT/i8BfEdTzyR1Ov8lwP3KuLDzKbT/S8CZU/tv//pA+78EWGa1K1vN pf1fIkYZCJb396b9XyLSjc3Tc9Np/5eIH4+dLYLpPkMlETI7Tt6Ip/M9JxHh Xy5GjX1F9T8R+9qfFn6g71M6idjfdliFS/mhm4iIHUmZRu/o/J+IQ0fSdle/ ofN/IvIU9Z++ou8b3ERcPP01I4eet07EfLmZv93p/baJ+C7ccWk7fR9zTUR2 p8vgrKPkfyLqlCtnFYPufxOhM+h2qG861f9EfP3oWNJA9UiciAsH+ymk0nk2 JRFDp3Van85h/ElLxOCeslP9qxj/MhMhkEaMERownJsI374fzR6MZbgwEdys 5GfrbBguSsSCiLQdlq3kfyIeQfaayVHyPxGvFi+5OCeI/E/Ecc+ROrdW0P4/ Eceq/hn0o/WkJRFY9aU19hT5nwjer+orBXq0/+sdz9WWy4dy6f4vEXc27LZM pu+VMhJ4uko40hm0/kugUuEVWGpE678E7v0spirr0fovwZ7Fdxrs6L6HI8E+ LfNYzcvkfy/35Cp8ovt9HQlk34/uWLyP1n8JrsUd3+RfR/VfgvJvC3/pdFP+ S5BT3vjyrDqt/xKcNfKCrS+t/xK8GrF41JJBtP5LsHrpmO5zA2j9733/P9+X 4/wY5knQVJU47LUhrf8S+Nk0yh+woPyX4KGRnvoMX9r/SRDDk+d1+dH+T4K5 E5fO/7SQ6r8Eh8Mna4y6QvVfgj+CPu4zaH+WK0H/L63/vaD9dKEEPU+n1BQM pfuf3v7Ft2XuK9D9jwRRK3S7ZtN+rUKCsCqnZWXs/k8CXo3h/Dr6+7dmCQw3 lU+MoL/fa+kd768wU3W6r22VQP61xxwf+j7XJkGmY/rNwXRf1y2BA9TOGdB+ RSYJxTOrAsuvUf4n4ZTh84vJXpT/SRj09d66w3TfpJKEmIrz41sOMPHiJKHE fo1oyTCGNZKwx7brcaYbE1+dJHiMWLVkaBat/0lIk+RaJBdT/U+CQOeU3MxK Jh9MksD3VxWZvGHqJTcJybKT+sUsYtg6Cfl6Z/pM6MOwbRL2u4UFd9gx7JqE kHdmhzI9mffxksCZPjFELEf+J6HMqSpiCd0P8pPwYt7Sav0C2v8lYbjC0Tg7 2o+nJGFsppfq/ll0/5OEKL2NGc596P4nCTpxvj2h7bT+J8H//rX1kwOZeBQm 4UdqYJrDYzr/JcH41CBdrY10/u/9vfqtb/KDmfFWJGEKHN1z/jLrR20SDv0V XxozjeHmJByOlbHhCBsZ/5Ogl/RXUVOW4dYkyHbWeNcea2D8T0LYwBtqFW4M dyfBtO+V1PFchmWkKHgUbSlnx7CcFOKuxxcH5TCsJMX4yzV9Vmkz71eR4pOb Xia/D63/UvRXOqacOJmJv4YUO6ydbFftYvToSPHs3bILEbrkvxReVuN8NT9T /kuxN3L0048Cqv9SrF0xk/Mf/X0hV4pKLZW8p3RfYC3FZ3nTaK6Izv9SGAvV 7+om0vlfCtvfyac2B9H5Xwq3P5xnhvZ0/u/Vu/FQxg+6L+BLcSLfa85TW7r/ k2KYZbiyviPd/0kh+qg77x2db9Ok8F5599snuk/IlCL80Ew7BzoP5UoxSHmy YZcJ7f+kGOdY7nR8Gu3/pFiwTvHzerqfK5Xii41AqD2E9n9SxPFueXZMoP2/ FFnnn6w8uYL2/1JcdrphZRnMxLtFivrWd7PiChg/WqWYtcTt4v2XjF9tUmw7 0u3jMorhbineP2jx+7iS/E9G0LllBUJhPeN/Mq7prnOdV/OA8T8Z1af53XPB sEoy+kxza3Vur2P8T0Z6xZOmV/2Ydo1k3F76dLrWfoZ1kpFT2idZt4Z5v24y vvYM2q2ex4wHyZi+cs0b5WEPr/0P8uwowg== "]]}, {RGBColor[1, 0, 0], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxFm3c8lW38x2lq09TWNhqSQpQPLaMksprHyq6DY69zjrOMc2hrSUva0iIV FVKpR6S0JUlpHJWiUj+/1+/+3r/nn+f1fq5z39f1+X6u7/cat2ecxyYH7y4q KipNXVVU/vff//eP0vzSGHHzivyXRcx/wMTLu79cs3nFsBoaFIeqavYRq6P/ ul3JOXeJB+NCvWvJ0gZiTTSexm6TFuJR2HbuQFrlT2It9D26JLTvb+LxyNqR pZvyh3gihggWV+l0EE+GqsYik7Usa2PTv+lZHizroil/zjc3lqdi0HKtfY4s T0f3M6tyXVjWR9rj8Zv9WJ6JFseXNUksG+DHYMeFl1iehW09znh8YdkQPqod j6f/JZ6Nzz2y8oNZnoOv2ry751g2Qh/R6Aoly8ZY96z/iYn/iE1wXqC8bcvy XMxaZ2XgybIpPm4aUOLLshkSev9xW83yPKhJ0l7PZXk+po5281Zj2Rw9djir lbH9A9V33rSEE/MB/daFumPZdgu8LJb43iS9fAvIJhpW+7L6LTH9renFwWy7 JVZ8sZpZwfq3AEYTrtZvJeYvQGKA27ZNbPtC3HG0/eLOti9Et1vn5wWy7Yvw Q+OYuYJtX4Rq2w+aZWz7YgjWu65WZ/tfDI0SFf3/H98SlG7Uz7zFti/BqEu9 P01h9VlhcbHNcCGr3wpFf1c5/8e2W+PhK6P0XhQ/vjVmij/W67HxtEF+UN8O A7bdBoJhzl6j2XZbbJfwdjSz77dFUtGCrlns+5diW/Pu1/PZ9qXQUW2rv8eO fxkG12veY+cvfxl8Vjl2qWX128FGA1082PjYwTlx5Mc2Np+Ww/SOVZ9DxPzl sH/3mufNttvDOTaycAEx7BGfsvyKOft7ewydsVXqRlxsj0Pz4z3T2OdXYMzM Lu9fsM+vgI6rtxHY8axAsb63aS5x8QpM/lTYfQqrzwFOLtyp+4jhAMHtwQZ9 2Hg4oFG3z2c/4mIHLBjdrSWPjZ8j1iQZva4jhiMaxpne+cI+74hraY/WvGCf d8SSvVdGHmOfX4kvH/eHrGSfX4neRrkX6tl4r4SmYroaW0+KV8LpbJzONTb+ TpBObdYeQQwnBOlGqIaz8XPCHS8drWe/6HkniJs0njgQqzjj+d53lW/b6Xln LJHP8txDzHeG9tPm/lHExc6wetnxXUCs4gL7NTphF9nnXSDKWNo6iN7Pd4F3 V8GLbWz/Lsh51f6fPuufK0K+ycf8v3+u0OqyO0rO+ueKQQaz7xmy+l3x2CrK tIz1zw0zB7WMnsPGzw3zdf+1RrPxd0PTu3uGCjb+brDRmXwrkI3/KvDONbkM Y59fherZrxdsYeO/Crb+PS3fsvNnFUyHl9xh462yGvWLQ+3Y+YrVCFSm2nFY /athmSMMSmHjtxohe6qk99ro+TWYW33u7UxirEHclar067Q+8dcgz19cIyQu XoOaZzrfItn1ay10eEv+HCLGWoTV7m1Qoffx1+Jo0IaCJOLitTDbdfXvbNa/ dbCcWav3m/VvHXb1GGV+jx3/Okj4gR772fxbh+h3j3d6sfrX48rMFxvY+of1 4IxvFO5k47ceXWSGXkrWv/UYetz23iA2/hxM2HLBqIPatTgo2Vc54QT7Pg6u HOtpNZaYw4HsWejedez84GCvKATBNL4sDro/XGTswc43Dn74ClTNSV8dB0sa fnQMZePvjt2G1hd//aD+3bHFI+bnr1bq3x3ZLu8fTCHmuMNktq4o7Tv17w4H rxnu84iz3LGkqaPUmLjYHfEDCoxExHXuGDVRv3QUvU/FA0e3xJS1E2t54Ofd QPV+rJ8esA4yyVlA4+V4QGzm9EPC5qcHXttxfK6R3iwPuH2ocXvA+uUBD79C nWMUrzoPfLG6NWEWmz+eSC1Zq8PuX7Q8Mf78+0cz2Ph7ouOob7999DzHExMf VFWfZeuLJ8pKS3fFsv174tv3lz/U2fnuCaN92f0lpKfOExnz15V9Z/V7YaJp ZlsYxUfLC3o+n+5qfaP+vXBDcnRJr6/UvxeCdrcbmdN+ju+F+SIn33tK6t8L BWe3GhYQF3vhkr1FYBf6fZ0X/Cre8g+x+0FvcIN3/9hM79fyxo+mDf2K2P69 oTbtd4Ym6783hh7g/U6i+cL3RuvWvkYdpC/LG88qtHuvYfV749C05F6bKT51 3vDJXH5Kxta/DVDsUltiQPHV2oARdypr+Ww93wDf+QNuBbDx34BGjyvrv7Dx 3wCbRZ8N+rHzfwN+DnlrXMH2vwGXK/9dN6b5U7cB3cK/T/Wi8av4IMSGt96L jb8PngrmdjhQPOCDOx0VbkspnhwfLFPmjN/4mfr3AT9h1M2aj9S/D15fTU3K bKb+faBdfH//qw/Uvw/OmoxtPUas4gvvbOniHvR7LV8MHG+Z8I0YvkgLHpPn /Yn690XGV/XmRV+of1+U7nzXK5T8zPIF51B54U3yr9gX6YbvhL1Ib50vtjZG pw9m898Pt0vf9s2neGn54dN4B7v75Bf8EPBjR7gZxZfjh/67IlRb2froh58V 3l/b6PksP8zCerELW2/9cLHZMn4q23/n+yf7uu+j8an4Y51o5d8aiq+WP0wq 1K91o/jCH8GGtiNdKB4cfwimj9r8o4n690fS6n/Teryj/v0R7qn1LOst9e+P 9skNK2rpPFTnj29Pbp88z56PAvDrWVKsIf1eKwCtIxtslzVS/wFonrCa/5He zwlAzIXpSW3vqf8A+L89Y+fA+h+AQe5xVY9o/MUB8PDZ+pnD5l8A9v8YPvYu qz8QTnufW7aw9S8Q575fRx5b/wKRdLhQ1MLWv0A8Nh1jm8HWv0D4G105v4ON fyAyd97f38DGPxDNZa8s2PWzLhC63t7xkWz9CUK4nmVrLZv/QejzWb/kKs0v BKHouqDVivRxghDc4/y2Q2z8gzCxuH3tH4pnVhDOHkprF7+m/oOgmn32LO8l 9R+EjQWZ238/o/43oq0itJf1U+p/Iw47/nomfEL9b8Q9L3WtG8ScjZjs0sdg AD3P34hLR39ErntB/W/EgzyTFEUd9b8R6srPrr6s/xth17Cr6gCNX2UTFkYI Z7whfVqbUOaVK75P8xGbsHNPbbMa1QdOZ/vw+rYFbP3bhFf2jpaL2fq3CYd2 ZipaqL14E6TTL9xdRPGu24Qrh6/4cyjeKlzk9HfyiqT5os7F4yELLzym+aXF RdfMJ5HVNH59Lr7M/Vxz8xWNj4tTeytv/KH42XOx6+tKm/JHNF4ugvbM2+FR zTCXi02CySd/VtL4uSiatHvLwf8YTudCNk2DH0ScxYX6sHvXHOj3uVx8/z6h 9/wq0sfFm/4zF/evYbiSC16svnRnLenlon3LVa8jzxlWcjGpIyatg/xRCUbx kd5bPSj/1INxDn4Hd7D6g9EfP63WUf3TD8ay3rI6IetPMGr69S58SPG0D0YX NceOqaxfwVAZnT9zEzE3GGnPojOSKf/4wYibIJ8VQ/mZHoy1y37wbciPrGAs hnbVAKrXucH4mzfSQEl+FAdj63nvmtHkR2UwMj5MGPaY1R8MN/+Art4UL2Uw ZgY0rx9eQfpDoM416bW0jPSHwLd7qbvLddIfgkcPzCVbr5L+EHi0SjTsC0l/ CFZXr4qquEz6QzCt9CRvxhXSH4L9Dslr44tIfwj42kf+bi8h/SHY256umEz3 R+khOKcbsv08jTcrBAkyhz/7aX7lhuCTcEPyzHrSH4KjBV5FpyifKkMQtOXC Tn/yqy4EPxzuXmugeqLsfF/YjA2VxCqhEDquzBhPv1cPhdqIT84a9D6tUPCr X97sTfVEPxRVa/QCjlB8EQq/j+2/U2m+2odiS3ffXpsonpxQ3H7ReP8DxY8b inC31Gvii6Q/FCutty04kkv6Q7HhZ0sP+UnSH4p8XpUH5zjpD8XRY/Jtk4iL Q5FTnJl4+wTpDwWvQ3fjhDOkPxQCB7MlbedIfyim3zzc3FFA+nl4MFgj/GUx 6efhbevl96blpJ8Hr22v55wnffo8FLxb5f6W8hu8zvpmvTGY6p89Dxe4+0tV 35B+HvJCe721pvWLy8MlHa6oF81nPg+rxjXG9Kf1NZ2HPr03X55D7Vk8nFFp 8g2h53N56Nv/hEoZ6z8PLg7xjbaU35U8TAps6TX7IennYbSboXX5HdLPw9yU vWc5pFclDPc/NHcJuED6w6D+YnKzB8VXKwzT6kwNKveT/jAs/DR064IdpD8M lenq0Q4K0h+GQzavpOky0h+G6SdvXhWLSX8Y+h0ZezmLmB+Ga05juJOSSH8Y dpn80xuRTvrDMCLul8mc3aQ/DHMMHfMfZZP+MCwqyef9PU/6w2AxIOS8103S 3zmeMFujbVQ/lWE4Gfu2ZRi7/oXjRsKsitM0v9XDsbTeTBBL/mmFY1nN5uap VC/1wzHObJ2LKjv/w6G/VENcQvlrH44Th6Wrc9j8D8cWw6mFQ2g+c8Nxz4a7 K2oP6Q/Hw6hbpcNTSX84DJbnjmyLJ/3h+FWiqVHGI/2d4zUIs2sMIv3hOH0h PDbCn/SH42Tl1VYP4rpwKOuihgbQ75Xh8D+86tScUNIfgb+uy1+5xpD+CPBU L+g6kz9aEZhyee6Ho+SHfgRmduEUF+0l/RE47jvrQZ9jpD8CwedevfhNfnAi ICs6ltyD5hs3AgN7zjx76jbpj0BF9JsX/AekPwLbgmd+Hf2Y9Efg+crwDn22 /kXAofGsZhhxcQTMKo/UX6LfV0bg4CvV7nX0vrpOfYsfBLRSPisjcM2sKUyb 6pFKJGanmM+uOU36IxF+3nOoIJP0RyJxr41PNfmjH4l5qscmpUST/kiMlGZb hPmS/kgs/yi64e1C+iMR8fnUGkMr0h8J8clDry6bkv5IOG8On1dlQPoj0X// Bjub6aS/8/mELn2eEOdGQmrTs/SfIemPxKArhyvegfRHQnbXfp+pA+mPRL9p QZHdaXzKSJwwO6m5n0/6o+BQZb7h2i7SH4X6uhCPo1SPtaLguzBrfeIN0h+F 4Oy/FlW0fiIKg4Ullq/ukf4onHuYqzuqlPRH4fa+l/ZWVH+5Ufj2OKCHE+Uz Pwp5m19N6BtH+qOwKXzQ8PR1pD8KkaMz+Y8tSH8U1j/IFi3UIf1RmNrw8kHA UNIfhY+Jb3L69Sb9UTDjXrSY3Y30R2H52J1PA4hVotFXYH/zUy/SH41+L6bI awaR/mgkbagUGI8j/dE4/SCx9+yZpD8aN7H+yQ9L0h+N5klZpy84kf5ovG7Y oHmO4s+NxsKG+8PnUr7xozEi/Gr2ATb/o3HtUWS5PeVXVjTOnDDIu075lRuN L+ejq/mUX8XRqIjx2j2Z6k1lNOq7tjxdRvlWF43nvU6vSSVWRmN7Wnkhj36v EgMXa9/8bPJHPQazUiwGfTpC+mPw6UOMlLOV9MfgYrmZnzCW9MfAbmpFjKUH 6Y/B93MBU5oXkf4YrJwy9kG7NumPgbd06rCWvqQ/BndWGP2Y9Y353pYeg9rI NTbfnjOcFQOLFVddp99lODcGDS7qoqJrDBfHQH323J3+9L2uMgYxs18b1xPX xaBGcenBlWKGlTE4/llp7lRJ3/dikTUu72TGO4bVY6FeNeNOeXfSHwud4oFh oPmmH4u+Sv2vdstJfyxGdWyba0H12T4WfspncacoXpxY7CzeYq5G/nFjUTbt 1Dge5Rc/Fh8mV2QePEr+x6LCVjJfSutpVixyR1a82utD/sci3Ergs92I/I/F tAFhiKH5XBkLxVHvMwkPSX8sBH6ZJytPkv5YjBkYVH03nfTH4ZyhRs8rAtIf h+S/EsnwBIa14oBdv/uNlDKsHwev6E/rV+1kGHHwvPn97ppTDNvHwennS6MP ZQxz4vA0f9e9WfUMc+MQ9eLNzscdDPPj0Dw59k6lJumPQx+b0hB3qodZcbjZ 0n6hw5r0x2GO2Ve52XrSHwe99BUZ94NJfxwaj7x9Fimg+R+Hf043fQdQPJVx MMzfrhqwk+Z/PBb05u13pu+56vHQ1KkMCKf9jlY8NKbYj5xJ7fqd7ePq3U5s J//j8W3m5YGNUvK/s31znE5PWl858RilXnqp2Jn8j4fVnMll52eR//GI7fPe OacP6Y9HvU/je8/XNP/jkWa34AxoPufGo+1QWm/ZVpr/8Sh4bPLqVRjN/3h0 LPx77DuH/I8Hv9RlVogT+R8Pa2/fKyaO5H8CfGI2b8lzI/8ToDfuuNsgX/I/ AcaaZb8UceR/AhIH9/+7dhf5n4CMomvPsy+T/wmQjzUPXVZH/ifgUPbj5Atq pD8BLc0xWTKqn/wE1Pjv776N1sv0BOxZuHxFbTj5n4DbJzKvvU4m/xNQa7iS H5ZG/idgp9mgAVLyuzIBCQH2/y3kkP8JaL3cd/77aeR/Ak5Mz1rc8oX086E/ V0/OO82wGh8q04zDDodQPPgIGxgjrFrIsCYfzkfOembpUnz4WKtjfaxtEsPa fGSendw+ZjbFi483+zxjzlK8jfmoutfhOCqW4sfHqkwVdWUOw1Z8FBW/cS6q oXjykbtljiDkH8OufGTdX3TTcCLNLz7Me/3NmL6AYV8+qlsWJ89ZQ/Hm48y7 AS6KTQxHdr4vfV+vc7Te8vl4lfMlZx7NXxkfW4ZlPr7Prkd8JH1Wav+j/Mng Y/nXHzfs2PrER3mQi1g9heEcPux2rCxaTvvHXD5mbbpucp7Wi3w+/LMSZm3i kn98bPj2y30B5XM5H7pOOkeuLiE/+Vga+Kz1JK0ftXwcGOsWVKlK/naOtz3h WirVuyY+bD4qx7kepvnOh6nt1UxZOMNtfPzbvy/MfQX5L4BGobbNjrnkvwBF pnkxFeSfugD/3LwXnVtA/gsw2Uo8vKcH+S+A+YOnRd6p5L8Ag613dxNfJf8F qH3XoGKvJP8F+G48PX+vFtUPAb5F/T7ob8uwlQAVY4Y+KdtI9USAs0N1zAV0 PnIVwM1+2JRa2j9xBFjQrvHE4CD5L0Dak6qDbbR/5QpQ6FKhlUr790gBuONf PN1E+cUXICxbYr7DnvwXoNuhArfHY8l/AUqmL5NHNDLjzxBgl3WwcDvN1ywB 9i6qX2sZyHCOADn9u5d0N6F6JcCZPx3LzwxlOF+Ay/84Q/f1ofolwI37tv2/ j2C4XIC+k/KnxFC8KwX/+0XP6wStR7Wd8ZPebu9/i+qbAFe+9tPgqjPjbRJA p/yDtN2R8l0AmHzaLqb53CaAb1lOdNUlqv9CPNypfvol3Z+pCaG+8UnrVzpv qwvRUDW04R7dl2gKke4c8HQ8sZYQA+990PCm32sL4fHN1r2I7kv1hage+kdj 9C2GjYUwjbUpNKT1H0JM+G9KThqtJ1ZCnDlSGpoaQf4LUWO0UnMtrR+uQnBu DCzpQusjRwglV1PVjva7vkIEGh+/9+UlrbdC6Ia/unzqDMORQhwyLn12h+oP XwiVunOPjy1hWCZE3imLopRBtB8TYtRG1cwxjS8Y/4Xwnvd0gtcthrOEWPru ybvYYoZzhKibY2g+7wnDuUI8DWqQDR1C/gux7u+RPBGX/BeC114tX03rRbkQ as9fHLpI/lUK0T3FvevYfMp/IXZuHljpSt9v6zr9OvhV2dq/jvFfiLZx00cM 7MOwUoiKYtshaXS/3CZE++ugWA2631BJRFXY0YFdXMn/RHzTkq8z+0v5nwiz WdusfQ9S/ifiXqPV7KlWlP+J0Ho6++LjFkavdiIG/ll8XO8Aw/qJ2Osw7lof V4aNE7EqtvCW6nCGkQgbozBDybvnjP+JMDh1Yf6/WwzbJ+Lr4sX7PYsYdk2E ws3LcFMVw5xEdFnVwyagG/M+30S8HvnrxiUnhrmJyChL6MK/wXBkIvg5p4KM Lcn/RJzZcS0rvJz8T4TFpO1l1lR/0xNhF5SQEJ9H9b8zHmYb31qpMvHNSkTf 67GaHSMYzkmEyhD91X21Gc5NxLCgok86egznJ2KoYu+U8MkMFyci2WT74Gx6 vjwRXf36DrPvyXBlZ3yn/nRm71tqE7EvYUB5+BbyPxH5oYuiQul82JSIA7s/ 6ZS+p/qfiP7v8j+2pVH9T0TdOsE4cyOq/yIsfTtsytTXTHzURNANKvswQsGw ughrZuwdfW8ew5oiHNu980gPJRN/LREKfsXUDTjCsLYIM1Q8JJPWMawvQsRR y65vRjNsLMLhvHCP403PGP9FSHx0q++PEoatRPA29BmwrpBhexEGzdRt+F7D sKsIJ79mv1eMIf9FqAka/ztvD8O+IlRF3DaJWUr+i/C7OX6GdCLlvwhzA1yu t9B5ly9Cc86zqf50fyITQXBlBL9kJhP/dBFc3TT5IxcznCHC8MZ3drrjyH8R Ep6YDfOk9SVHBKueN59bZFD9F+Gi6TZXAxkznnwR/Lxm+w9JZcZbLMKTL/MV L64z+spFcFr881LBbIYrRfg0PSqX9/Yp478IVy6H3uh6i+G6Tv78sH3tfYab RHBROlz/qmRYKUJvzQqLX5OZ97WJkF/3d3lcAMMqYoxfcPd0BcVbTYyX2fPt K4Yy41MXoyPsavXcWIY1xVBZs379v2byX4wpLz8HJXhT/osx40hjctd3lP9i ZA5wKzcPovVfjIErxOcn0nkXYvC/DL42KYTqvxgvpjlWD6b7R3sxVGdZHL8x lom3qxiO/Tc5nbZgmCPGyDkrEr87M+wrRlr8JfeXHIa5YmSlbejY5M5wpBgS /hLNF24M88W4PnXH/f7WDMs6x3Nr+xozytd0MVLxryibvqdliPH6X0HhuwDa /4kx9uk+Xt8CWv/FkAcmZZd+pPovRoJfZm7LaPJfjNs9Zr6s9yT/xdD4pPLG +T/yX4zhRxZ5HvQh/8WI7DFi0+CpDNd2xu+0tMp+GMN1Yvy5oTIjbjzDTWLc /Tlqgf0ShpViGNcv+dpVQP6LMasjPi2xgvyXQOPLp4N62sx41CTIOez6aPlW 8l8CdY+KwZn9KP8lcPUvyvLcwbCWBNtWF1/J06P9nwSGH0w1Nt6m/Z8Ells/ /Hak+x9jCfrKbtYuYf++RYJng0JLD5gx8baSYM1D2Zl53gzbS1BopNp9xyby X4Kuv7aI+jmR/xIUHDpY83sQ+d/5/n2cB6WetP+ToP2/8MSmCMp/CcZ/Nnv4 J4kZP18C6+A9L69fZ/TKJDD6G5nQZz7D6RIcUT8dEd+X4QwJtqwrqX0/heEs CZJs/B7GxTGcI0Hyu71/XFoZzpXgYWXO0+dR5L8Ewp8j9/B+M1wswZCgg5qq wbT+SzBSNdJh3yPa/0nAl8UUKfWo/kvgd6o+II/ypU6C/dzyV5JTVP8lqNnu rmlM3wOVEow123xzVHcmPm0SrOB3pBhoMqwiRcsn230bdRhWk6KL7VxrVROG 1aU4162HWz7VP00pwjJvffizgmEtKT4aOq6/T/mkLYXzix12BWsY1pfizNXG 4ApXho2lUD4bkrzNlmFIkegccM/QgPyXwrHLhtKiXuS/FDklhsEtdB/hKkWV Ws3MEVS/OZ3jb5enTKTzva8UC16aZ3ptpfovxbD13w45PGf8iJTCrTpmyMVl DPOlOF8ojpjYlfyX4q7680XoR/5L8dTgokgWQP5LIQ1bXXW2D+3/pJBN2Ojy 6D7t/6RoeGuqnLiF6r8UNr1M8vbRfVW+FAfHWX9Xoe8hxVL8fVeiYP8eoFyK Jbo/g8Ppe3ClFMkPsmZ8p+83tVIkiPvEK+h+ra6zvxJRid1C8l8Ks60Pfgxq pvVfClurjbXL6XzWJgVvpcOXAh1a/2V49EtQFXaT1n8ZbCIDT651o/VfhuyO 6hN2H6n+yzDq6i19TgLVfxn+a+nqWqNJ678Mtx5fdQi8wdQXfRn23U3auEXG sLEMHQuztCdG0vovQ3hLZu+Xu2n9l6HxSFOM3zda/2XICJ0UmBVN+z8ZsvIG Zp8ay4yPI8PS0oGeBXdp/ydDvG/ROC26v+HKUHL4WWFhA+W/DJ6jutltY78/ yPBFaF+9jc7jMhmOpmt9vS2n/Z8Mk4arzB5D58kMGZwsjGY+z6H6L0Nds7/T dvremiNDYUSx/hP6npIrw7G/jsatWeR/Z/8d4eqz6b6mWIbF2j4jB9mR/zKE 9rEZF0Pzu1KGhyqZEWsu0flPhu6x5a0HV9P5T4axvQznnWtj9DfJoOcprKmj /ZtShgcN25acH8VwmwzcbXp+2fuZeKokwfn8+qWaQ6j+J+FmauqK+Bgm/upJ cNpxPPhWNbOf0EzC/VVLlvwYz7BWEmY9vW9/MvQJ438Sdgyalzb2cS3jfxLW eZ9fcM6LYeMkFF4zH+FuxDCSoNM962qYL8NWSVjUc+Dslp7M++yTUD/JKLDH YKY/1yQcHGXu6hPCjI+TBMtjugcvf6b9XxJ4dw16jLMg/5Ow+26P5amj6fzf OR73y+Yf6HsUv1PfWqXnOLq/lSVhtJvlbj1PJl7pSfi7rqgg5BTTX0YSypan 9+S+YcaXlQR9AaflojMz/pwk5JsH8ArMHjP+J6Exv1tr/ZFHjP+d7V+uhaYk MlychAlOw9xvXWS4PAmDrnT/O3Qs83xlElosvLYOPMRwbRIe37yceMiA6a8u CacO9+sTU8pwUxIqviyeHeLKjE+ZhKa2hrOGzQy3JeG/yNUT0+KZeKokQynt t3PxINr/JWOj/apTtsfI/2SccKrSnGFO+Z+MH8a+1o8fUP53Pn9kiEHqGtr/ JWNXqig/jM6/+sl42qFbvI/OW8bJWBT8c5IX3d8iGcaWo+aOukP3f8nw2b52 4TI6v9gn4+znNRYNP+n+Lxnz+ut659F9ICcZ/eOSwlXZ838y3L+e1K8bQet/ MizlYy5UTyX/k2FUoPxuNYP8T0bN8OsTSinfZMl4Mml7wTC6P0tPRuDxngs0 6XybkQyrXy9W9vtJ638y5tr1bT5cycQrJxn69bPW3znMxDc3GR2BvFvLdjHx z0/G362/OEW3GL+KO8dTGmSYY8JweTK0fp0vOdNM/ifDb5ZsaU41+Z8M15sV jXVvGa5Lhu2n1on2muR/MvLTp7yo8GRYmYx6H/Ma9RKG25Khuud53XgjZjwq KRgxON2Af4VhtRQkLEuvnrSSGb96Cpq+76qN66D8T8FDkyWSqRcZvVopSBz3 53VJJNX/FCiyhUeSTMn/znZFuJPiC53/U4CJ8vklfPI/BSGLnD4dfUz+p8CL 1/Xl9BfkfwqybS2VavR9xjUFcyebDNK9TvU/BSXP/uaMz6X8T8HmW7kPa8OZ 8XFTEOFdsv6GHTP+yBQM1uTnr+IxevkpEB1x3JY6hGFZCvZD32DIAobTU5B5 ffSdFsqfjBQsWnHQNpLOY1kp6H9ZuKPlN/mfAr+FPgend6X9fwrGGJn0anlF +78UjDzI6x0jo/ufFJxYPcOER/O5PAW2eoWbU5dR/U/BvxtRBqfp/ri2sz/B lT8hdF9Wl4InMxZ0X0XrU1MKJuiZxSnp7yuUKbih2HLKYTPd/6TgmnfXo7ns 9+9UNKpt/HyezjNqqTDUO6JdQvdP6qlwdGnPHTSX7v9SUSf6EriV7ke1UuHj vm3xYfr+pp2K6L4dG3c00f4/FTrPsp1/0v2KcSquth5f/iiL/E/Fp1z/htW0 XlulQn6jZ6k93ZfZp8J20qnhTvuY+Lmm4nLrbhuLX3T+T4Xn4cEzxuuT/6nY 03CnPcWB/E/FIHuzw2li8j8VvLUHqqf+JP9T0ZyZ3rr9AfmfinPLtU6v02N+ n56KzNuN3UfR/M9IxZ3ABe+fj6P8T8Voy6AfkR60/0uFar5qfIyE9n+p2Hw2 dpkTnUfyUyET3L+5kP37vc52i/W9bnej+59UTD+2OL2Q/h6nsrP/SydffSC/ alPR591Pe+NftP6nYurQ8g1T1tD9f2e8ygokv8/Q+p+KtzpNz0ooXm2dv9c1 vzGO6rmKHId+l/4ck0D1X44HUxLRcZXyX47FQ0uL76pS/ssxpEBd/epKJl5a ctxYvqPvZ1p/tOVoql4ROtCP1n85wk0sHaxW0vovx9b3K/PC9tD6L0dFxN/R ntbM+6zkKF5YmrfalenPXo6jWRdMK2n9dZVjrt+p5lLaz3DkSDk7vK8v3af6 ypFb6No9k/6+gCvHOA3f6UI6H0bKYVsvsHY3pfO/HE8uaZifs6Tzvxw1ew2F Pag9XQ7lq+NDptL5JKNTv2Vga7dpdP8jx7M7PMn+KXT/J8f6wL3OqnSflytH mvTNAF36/wfy5SgdsTToBv19QbEcZ001Y1PofFAux7YyA3v1Qjr/yfEvbrue lO7rauXI2Nvb+zn5WyfHar3GerMJtP+T49OMQNtEBeOvUo7WgIDbCZ/o/C9H 0DXT/c9N6fyvwLBwX/+HYUy81RQ4J9p1TJPWK3UFer45P3t5NuOXpgL6k9dc C6f9iJYCI2z2xGrvZ/Yv2gqYHq5a9PZcDeO/Av7jx26L6sWwsQL1k9v6Zj94 yPivwE7VP3ML5jHtVgrkHbh80TuIeZ+9Ah1FT1YZrWb6d1VgcB8N6yS67+Io 8GRZ38cHV9P+X4GQQZq9ZfT9gKuAhRVv/1c78l+Bk0XjPtfMJ/8VqGjHUq3h tP4r0FZ+39aJ7p/TFehiuHJE2UDK/854VN3WPCxi9GcpkHQjuiwjkhl/jgK9 Vw5fPr0/oy9XgZc5H3vzjKoZ/xUQtNuq3amqYvxXoOmgWCm7xnC5ApdS9xQn vma4UoGYTS4fB0xlnq9VYF3A4vHzdzBcp+hc77PEV0Yz/TV1vp9bYKRRwrBS AZ0P67WHyZnxtSnQx/HJJV4cE1+VNCwO1+beyWD0qKUh9JTu+9hXTLzV01D2 ffdNi6WU/2k48EWv9fcDWv/TsODV3bxnq2j/l4bBB4aI69j7n873NxiZRtL/ D2ucBr0vHgXBXDr/pyHr0HAt69y6ov8BLookfQ== "]]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], PointSize[0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw9W3lcjOv7HntCopAtI6nsSYgsF5FITEKpaFq0L9M+7TNT00zTNGVJkWVk KVlKWbJlpIhClo7syZEKyR7H8uv36X6/55/zuc7zPs/9XNd13/fzvO90xroF rdncncViNfdgsf7/313/tC+M1T6x7GX0wcv0H2A18HxvrfwdhNWw4d8jo0bK pIQ1UTp+xuR3E6IJa8Pp5rGe0cf9COtgiOX8tmFxGwmPQvvMY5YV1hzCbHyt KC74fMCCsB6qh7t922FrTlgfNsLGPrM9ZhE2gNSwbr3ZI1PCRrDGQh33SgZP xICl96brG84kPBmZUsMsMz6Dp6Ld+/DkijAGG0P93O7zvD/M/OkYdu8f36cD GGyCq2LW2cFHTQjPgO64c4eWtxgTNsXOxEblt+tTCM9EudbMkY38CYRnYUHm hPSzU8cTno1DZ17cLTUdS9gMApfAKu3DIwnPgb7pEaFq21DCczE49FHZ3F1a hM1xZozbdZduDJ6HPy89JXVvtQnPx8904ewRa4cTXoDJTwSzBvdmE14IwUKt Bbdd9AkDWQVOg5bG0n4FQMHMj4+1tabR+CK8T385wMWH+AsWYWn/nxeumjD6 LcYtqYjjeGE2jS9Gntdtu8Ync2jcAgVlxf3PhJCfAgskXNL+y/KcR+NLoP5p VFPaIcKCJXgavenngMnM+FKwM4btVv2dS+NL0TbDcbuPCbO+JYY1myxKa6D8 EFjiwvTbQ79OY/xbhpUv9oWk2kyn8WXo9bri5rq6yTRuhR7p/+lohRnSuBWW DxEcaarXo/HlKPr3bZDJGV0aX47TpzifXBNH0PgKtIqWz2+NJb0FK2DlJtZN e8D4aY2Qb3nLBl8l/QXWmNntbYRoEpMPK3GkWlc/5N1EGl+J5usNN3s8ZfLL Bnq1YvcxWcRHYIPPUwa7rww2o/FVaJ26/7T1dEa/Vfin9n3rmr0LaXw1MnIq 1K4uWkTjq6Fn/XzrgQ2LaZyDoRtWhQztRfUHDmRphpXnzQgLONhmM+y1Zzs9 r+LgXYXxi4PTmPm2OBa7suR8N1oftjAb8nVuwKcFNN8WK4zqtv/eSP6rbGHU 62ZNvZDyhbUGbTnOJb2VM2j+Gkzs0Wuo+Afln2ANLtTZ9Rh+ivJTtQbKUWX1 sU1M/trhhe/UxLaPVE+wg53ZxkaHkYQFduhx8eD9Zcnkp8oONVO+xQ0wMaD5 a6Hh1Ovqih+TaP5alO77MaXtBpMva9Gz49khgQ3ll2otnMudbE8vY/rTOqgZ JBw3MQPNX4ds+4N3d10ifQTrcLG7dJ6WxlKavw7FfRveafdeRvPX4+zttQvK k61o/nrMEs11aohcTvPXw2/C1Oj4G4RV6/HNqN1yejhhlj20RJWDq+OZ+fZI FdabxH2xpPn2KB5nP2hd2xKab4+mSXc2aqYx/jlgZ0T5lb3tlC9wwKxR6c2h pUy9OUAjVDIi9BbVu8oBA1uzeG1S0oe1AdqFb+eui6R6wgY4FvfmCjlGNH8D 3u/3PH/5F+mt2oBoH+ucvSdonOWI33rzL77xov4JR+zVi14VE8v0G0d4Vizl FTD5onKEhaW359GE+TTfCRmu5xoGDiI+cIJuTtOozCTSW+AE9QcB4Yo3pI/K CbfqZCfn9VlJ853RkPub87NkFc13RuicpPIBbnQ+CZyhETh13tJ+tjTfGWXj bp1MWEGYtRGfD1ezH48gjI04vylpxdx4Zv5GjO83e9q7n7S+aiN0vfJej+Yw 8TehfdOS6q8G5Cc2YcNx3oCfJcz+N2H0fu7A6SZM/W3C4ZbIyXfLGP4uOOaW 5WreTvrABRFLVX3zPameBC6I3fM6wSOO+onKBWzz92mP302l+Vzsuqmj3BZO 42wu+geZB1yJY+qRi4qczFApj/oNl4vivNyAzwMpXwRcpAwcmz5NSP1CyYUs aorW37eU3youePOUIdVS4tvAxZMhrLxuMub8d0WtQaFBn0NrKL4r/i775JsT vpbiu+Kn9Kl1yYt1FL/zeesnQVU16ym+K5qKDCbYTbGn+K6wuP+n7OsPGle5 onxn9yVLTAk3uELF7iXWekPrs9xg/vXabnMDO4rvBrUdB7epBjB+usHNdID9 BYENxXdD1YabI37dpHwSuGHF8bXlMTZUX0o3TDw04OZ8R+oHKjcUx0bv3s+n empwg8eHAKvK/91n3NHEzr+87AH1d7Y75rnl3b/2g+oN7jDm5K1Yy5ynXHeU PDb0/mpE6wvccZ190LNnMhPfHR9+6T+T/K9fuOPPR+NynyOrKb47cr7o7D/a THqzPGDjVh719DPpy/bAgZ6Os71vOFB8Dzj8NXvfsMCJ4ntAFK328cRUus8J PMDxvb98SfQmiu8BPD3xtH9/F4rvgT+nBw7p/YjGGzzgWVPo8Oolcx/cjOqB stZ9M5wp/masHah4t/HNBoq/GWd1z8VHjiV/uZuhvyCzrWQg+SfYjETHzMl5 TZRPys2IXnOFdeaiNcXfjKNj812+O1M/bNgMgxK754XaTP/zxA79WK0lYXRe sT3hV7H0letwOk/hicHjNTSmcKneuJ5w63tMt3wCc556wiLEPEHGpXpVeuJI hc3eXbpMfE/oLldoHFCnfGrwhM6f30sNPjL554VmxxvJ3fsRX7YXTBf43vw5 ivSBF74dnX36aTiX4nuBw3UXC8e4UXwvPHxpLXUOcaf4XtC8OkqrdoMHxfeC b7B32odrhBu8AN7GVVtOEmZ5Y8GsC4/0hhNme8PXZVSPCb1oPXhj9JRTObZi V4rvjSXBT679dCV/Bd74c/3jBNeVlB9Kb2TU+IfeGkh+qbxhZG7SXvKd8q3B GzdqD/EU+6gfsnxgNjVr74WLVE9sH/TR1jUfWEb5DB+sOZe179p/5BfXB2f2 hA9zy2fuJz7IqRsob68hf5U+0L6vu73civqNqhPPT+k9qZXR3wdhPs2OEYnU D1i+OLd/3ubuhbR/ti++VYwvjthCesMXWqb3dNOsSA+uL1wuhR4/X7eZ4vti w9M9uT+0vCm+L2TufPcxjT4U3xe742J6K/TpfajBF9smOS26eo15P/LDlB/r zFQXCbP9IJy8hT2nJ2H4ofhF9oGAQ7Qe1w/O0YpBghIviu+HIS8Kx+mupP0o /cCpTFeu20H5ofLDqLaHcb2E5FeDH3J/9311/SflG8sfpRkPzXp2Y+rfHx/8 tH/FfKF6gj/Ct/P9CleTnlx/LGjdXnDuJHM/8ce9bhuX1a9fQfH9sVkj+W2B DXPe+eNxYuWcM6cZ//1RNNq+cG4+5QcrAC3+RuXLSynf2QGotBwxMWoZ7R8B eDbI13TGa+LHDcCLujjfr0LSQxCA7qHqNQWt/hQ/AK2le451tAVR/ADEreWa npoeTPEDUNVn8d8Tg0IofiCG/XTt4KcQZgdiTYXZbOcMwghEnuUav1PjCHMD MfdMQcneZbSeIBBO27Zt2tyHR/EDcbjXA2m3t7QfVSCseV+aNdfTfhsC8bZx vKRDTnxYQfj5oeVy5X2qL3YQ1F6zxNyX1A8RhEVmOi3qNkz/C4Ln5Nv9u22i 80oQBOmAXleT/Ci/lUEwn9Z3NfsIc18JQuCy/nb79ajfNATh8e/F7C8XqL+z ePhoMdgs15TyQ5OHbb1tXg/Jonxn87B37pAqjRGU38Y8HLfckLqhkfiBhwHy WXmL/iH+HB4u5C85229kKO2Xh9ep4SpLdngX5vEQNMP0ysMbEbR/Hnh2+189 /BvZhTN4mJcZ+C2zkE98OvezMTD+QA3hIh4SMFXvgy1hFQ/PrwgP1y2m+bU8 9N8W/eTnUYrXwMObG9Yjjh6g/bR3rrdyo5FoOfnHCoZ51clPi2UBxD8Ygdff TbkkIb7sYOzwmxj0p5X0MA7GFqPKV5maTH8Ixs4jkYNytjkS/+DO+8HO7LEF jF/BsOM03TUtIswLxpJcq4yEc/S8IBiWdy7tvcSh9TKCMXpmUx5XSv1YGYxD b1709blK+VMUjD/f2UtmlTD5HQz3vq+McljEr7ZzvEapv2ki6dsQjJW9zFuf TIoi/sHYn79p1tBnMcQ/BKWej5o4I+KJfwhONGa/YlUmEP8QvJrl+HeDm4D4 h2C1/rs4rSTCCIHL5kxzjgVhTgg8C1Mt4xfRfG4ItpuPvnV2aRzxD8H8/nmc L8foe5EgBAFVB9LK9zD+h+DUI2F18oow4h+CIt6lW4/bKL+KQrAkXf3kuR3U H1UhWLDMvEcsPIl/CKasPlrpvor6R0Pn+j069MxGkr7tIajt/2/OzsuU76xQ lDhnlkmOU/1phkKjcebCrACqT3YoVvQ3/H7tX1/iH4q5uv2GC57RfhCKlnvV ycHltF9OKKoW/il91ET5yQ3FOKcJkX01Gf6hsBs0s1w/kfQShCLk1I+VfGsR 8Q/F2XmV9y/eTCT+oVidn/y6e1sS8Q/FISPTmn8PiYl/KCxfT2tpbSJcG4rJ O9cnLiwg3BAKTpvb6RJmfnso1i1Zv/TzOVqfFYYTArNBB4dTfM0w+L0fXDlU n/bHDkOMyY1Za9opX4zDELZML3UYn/xCGMqzYkZsnUn5xwmDlWKQMrc75Sc3 DC6TG8PsnCh/eWEwONjOlf3HnJ9hEP1w1ftqTjgjDP/8lTrnzafzTRmGXU8n L3d+Q34XhcExNObn+HCqX1UYhKK5fY82Ub3XhqGH569u3f5QfjWEIXHwk8It M4lPexi4Q34e3f6B+LLCcXj/iJN7paSXZjgsJT6/jzdIiH84ymMVUVufphD/ cLRNvXvs/OZU4h+O7VXrTv/jIyf+4Rj80vrNhceEueF41eTRp+4EYV44jllm 7JrXSPMF4bjinjjemy8j/uHQTq2drh1P31eV4XC/5J/8ST2Z+IcjlpOtLlxM /qnCcWSXf3GoHfGrDUfI8z+JilaGfzg2Z2UvvXWd9GkPR6ZguE9MCdP/IpBQ 0m2ToX4g8Y/ASdWrb+brqb+zI5DV+G7amYU0bhwBzmPNS5Pf0HxEoP7JDu09 q6nfcCLQHvpIrXufWOIfAftw6+0da4TEPwJznJ9L5j2nfBREYFxP5fcbgcQ3 IwK3tjYZnL9P+igj0CxuuvDhlYL4R8Au9+1Ms8sZxD8Co7btdLxYsYX4R+Dl 7Ee5SfytxD8C/rs21NTdI9weAZt7x5d1u02YFYnT33TOXfIkrBmJI2orrmrt ofXYkTi281v3C+EUzzgSn9QGes35nkb8I7FB9rNYX0T+cSKxVbl4yW0V+cWN xOGZ77Lsv1G+8SIRdtVnr0MD9VtBJLaf7v/qwm/qFxmRsJFO0r/yiOl/kVBt 1LZc1UL3j6JIpLnn9JrEo3pTRcLhacp8XgTpXxuJaHUXo4nXqV4bIjF789gN 9rGkf3skeP5j7zqXUb6z+KiMUfdY4Ej71+Sjt+ToUs3u6cSfjxEtjzwiS0kP Yz5+Vhvs2X92G/HnI9kwZ9I/PpnEn4+nz8qPH1TR7wVcPupqpkfZFGcRfz6C /fdkjDHLJv6d65W3brK2IZzBx7sbt/YmttHzSj7GzjNs2jKCcBEfR0Qva+/c p3gqPg5r5T1epLed+PPBlcyd8GII4z8fL3fkvriTQXza+Tib99B7ykXiy4pC 4ACf6xp9yS/NKGzJKrry/DnpxY5Cq5uH6aOV1L+No6B6E6WzkU/nKaJwdrL7 VJ0K8o8ThddvO0QnvEh/bhSaZsZk8PZTffKiUL/L8Pfmdib/o6DZdNnxyxKm /qMwdX75ZwMdyjdlFIzS1+utZZPeRVGYf3RNwfE+pK8qCo/1RtsYHiL9aqPQ Z/6hCbef7CL+UfjRfUwYa9du4h+FF42OJ1r+2UP8o7HjxT8Na9P3Ev9onNB6 qrhRTpgdDb9PA7KUwYSNo/G0ue5dwG6aj2j4nFpR8mAJrc+JRvd+qQZ7gyg+ Nxp6qWaexYa0P1407umWvrUXkn+CaOTLRoje7Ca/MqKReStv7+/V5JcyGl+u T8uSlFL/LYqGy/ADt02+kX6qaLh+iNgik5NftdHYGj//1a5HdP9oiEb1gqD8 Acz9pT0avhKMXNyNOf9i8C7w6ecX+6nfa8agLAqHb7yk+mbH4GPw2lFGu2h/ xjHgLAyQbool/RGDjVdDBq9fTnw5MaioEY4wvEz6cGMQXeuoo2uvJP4x0Ozd /6xd3H7iH4OHpy4kXFuZS/xjcH+BsFb3GmFlDGRn6j+5vCdcFIO/j/iumdcJ q2JQlMjdv2YD4doY5I8XSqYepvUbYiAf8u206UmK3x4DtwsHhq39RX6yYmGy 3FrnrgH5pxkLgy+aqzq+k1/sWPT+GMjS3kZ+Gcdix1v32GcTSQ/EYlfAsab6 btSfObFIvmPwqKic+jk3Fr5P19zxN6V+w4vFBFcz76AXpL8gFpuX7qzrpkvj GbGwv35YWtGL/FbG4tzBiEennSgfimJhcaPB+nE11YMqFpNvX989MpbJ/1jk Rtxa9JFD+jfE4nG7WXlJO8M/Fmy3Y77D3pFerDg8Gj1o8Ox4+r1TMw4ZWtNb T+w8RPzj8O8nn0vN8w8T/zgsbtMyHxNKGHGYxt1i2NOSMCcOxytfjhleQfO5 nXh4yVDrH7Q+Lw7To/L8PrUdIP5xeOuuYzr0GON/HLavKO99ahb5p4zD5YJu UvGkfcQ/DhVbV+jOyssh/nHY8rTj1EkWwz8OH7Tufl3tRf2wIQ5XxojclSOo f7d3xvsxYu/qO3QfYcXjUUqP7KLFpLdmPNIO71C/aET+seOhr/3rx40PzP0n HorFbustLpHfiIdlwO99wZPJD048nkQ1lGVr03648VCWxE/bk0t+8OIBTfkE CyY/BfG4IHfk91hK+mTEI+P7PP1J4aSnMh6C7l4LJYPyiX88PBN+uUnUjxD/ eGheTt761p1wbTwiLSM1lk0j3BCPotnDv4eKaX57PNr+OR9dLsgj/gmwuPpe 2WpG8TQT8CM1eXKPK7QfdgI4/ItHFxiSX8YJUO39XvFfOO2/821Ude+7hq8f +cNJwJVDezrqn5M/3AQcKDAP9t/E9L8E5L4zyWjvz/S/BKT/mJxSPILpfwk4 H/LL5b2M6X8JiLK1Yafnk19FCfAOlh+5PIqwKgHBcx4sne5EftQmQP2/PV+j b5PfDQlQTLf59uAlxWtPgMRx9LcCfdofS4AeW1bNX7+F6kNNgGFHbxo75hJf TQGmDm3MiA4jfXQEsPUysfS9THqyBTAzGZrjv7qgCxsJMP2a8w6D/kdJLwFc H6tz2jto3EyAtYb7d8dMIwwBBskaT899SOtZCWCqdWvSxlHkD0eA3hZT724z onpyEICbkv7vQV3aH1cA9XCObbUO+eEtwLftm8ZHraH+xhMg5FPNk76l1J/5 Atwy/3a1fyjdJwQCrGraoj5jK9WLVADF7BN+bw0YPwTwNrrprLeczuNsARpW JlmEmpDeSgFW5thZH4+n8yJfgFN5f5+suM3cVwWI1PxPsmU2+VEqQOmePcPf WVI8lQByF+0vwWmUH1UCjDlyefGFR1QvtZ3rvfEdWvma+NUL4B87J9b/HeVn gwCi3AODVxSSXs0CVA51SrJ9RvnfLsDbDeq6WabkR4cAz3kuGZkKwiwhNnAe BmQ1kR9qQvQNMw/c40DzNYVIGtD6IW04ra8jxIG7a+1j/Zj6EKKmPiJz1xba n5EQil9TlNvSaP/GQmx32eWi4BE/MyHMXutY1aoRfwgR5pY8JJ9P+loJcbHa u6/tHrr/c4Tg376eNXgE9SMHIaB+cL4nl7lfC3Hqc5iPgxdhbyG2afMuzZhI z/OEKJzWe1pgAa3HF0LL56pjZgTFEwgRK0x49/4H9S+pEBUt8qVt9sx9VAhv 78fJH/nEJ1uI3ByN4t47mP4sxL3D0c9ZGaRHvhCvbtmMPMsjvYqE6MUdt+9y O+lZKsTawt6vrK6S/iohfq2cXqfMPUb+CzHJ/NEY3ibCtULINWys3r8hf+o7 9Wv9cHqWA9VLQ+f6F4LvOrRR/GYh1hzJiP3Wk/bX3rl+eWgqryflf4cQ5hYL otrlzPuPCOsfhLsYRJFeaiLc0wp9vu8h3Xc1RQiYn3dkZga97+mIkLa1+EGa AfN9TIS5by7olF6h93sjETosFu0+tJDeT4xFUHtzfbKRP73vmImgdUtP799H 5BdEqLcdXWYxhvFfhE0tR7cGZTDvEyKs5PRvb9lH/cpBBHxt0RRrEz+uCH/6 DV6Ry5zf3iL8F/Fn3fQPpD9PBEHbCqs780hvvgh/LYo7ZCYnyH8Rgq/fuOpl VUT+i5DP1jC9o3aS/Bdh28PpnAAzwtkibHb9OX72RXpeKcK5YWd379QoJP9F WJFVnjLBguIVibD8+ikTW3vqn6Ui2N1MLRp5kfqtSoR5Uz+qjqnTfbJKBPm5 GVsGLaf7aK0I7/RKRiqG0PePehFagzu+OOi7LOzyX4Q5ve0S7mnwunCzCKni udEyH68u3C6CSsOr+9qz9HtUhwjRYyxTrjHfB1iJ0KvNWKreg84TtUS095eN 2zuW9qOZiPu37fXtC6mf6iTiQcDwqH0nqf+yEzFF4WYLNcpHo0TcfnBjQqM1 5a9x53rHdqsyZpFeZom4kdd0RTWpmPxPRNOz28/Lv5WQ/53j3mvmmCeeJv87 4x+rU/Q4e4b8T8RptUj3MaFnyf9EeCzsYzZ0B2HvRGisGiX7/Zee5yUi8/jc a/bZtB4/EX+83waK11E8QSKipLzRd5Yw/idCf8DaMEs9qteMRJyZFrrycD/K t+zO+MsG5t+dQPWjTMSvxycygt2oPvITEfBgrFGaTUSX/kWJ8Ddb/54lSerC pYnoLZe9OG4h6sKqRJSFXj775J57F67q9OPl39gNYN5nEnFAwho/IJf8qE/E woiepx9/oftiQyLaHtxp8ZNRf2hOxLCxVi/fVxOf9k4/hKMK97UR345ErFv7 j/Okg6QPKwnZw29fGfWxlPxPwo7tThvUXpwn/5OQP1l0d3zERfI/CX/qLMrc zl0i/5NwRftbSvjBMvI/Ceb13jc8J10m/zufZ+dWLjAnbJaEjo2XtK5foOeR hGvNBh8TttJ6Vkk4/q5W68/hC+R/EiaoT7xZ30z7c0jCx/DRgYPsyU9uEnZJ MnTWMvXqnYTvdyeajN1M+chLwuHK5z+sL9H7DT8Jjf2ODeVWM+8fSWivbnwV 9CW8S39pEj60r9/v4aXowhlJmDzRaly9dEsXzk6CZnFeW0SCpAsrk8A9vWjk Snf6np+fhAfqa6fafaPzrSgJhYl/wvvU0/2lNAlaOzNOzbpO/qiS0Lzz9ka/ OeRHVRLWWfVqnPOM9K/t3L+p+Mq9RNKrPgk335hav8hUkf9JaLU/2/9V5BXy PwnV0w21Xv8k3N7p38jtB3Wml5P/SXhttbJXrBFhlhh7N62139dCz6uJcWjH lNe3mPU0xcCDhD/v7lI8HTFaq3td9HxDfrLFeF5k9mHuCfLPSIyX5TmL7d7R /o3F4Br1zmjZSfVpJu58P+0ZmlFK+QgxZmlrBhkUUz+2EmPF8+rnfS1IL44Y p0wPrqizovuagxj8uu1jKyLo+xhXDHWD6efi11N9eYsxsUBwWpS5vQvzxJiQ yb/9dlV2F+Z34rYvfdpG07hADAPHyod7DBLIfzEsefXR5xyo/2aIsWb4wmHL NajessWwyh1fOo1D/V4pho7P3R/e/ci/fDHkw3Omlsspf4s65x+ojWtTkV6l YjTPXv9r0ELSVyWGZ+O2pCBG/yox/izarmnwg3CtGJr1108FphOuF8P06cLC khrGfzEMuQdfzcui9ZvFyBZKcpQLyI92MXqmG7TF5pEfHWJclsZwHJ6TH6xk DHjue35M8ynyPxkR/JM8zWtUT5rJaO3W0b3vZ+rnOsmY1R/TFg+k84ydDOW2 zCcln+l+ZJQM/zslS7aL6f3FOBkO/6Ld5Qf9/mKWjO72pz9Erya/kIwxiWVL TqiTH1bJyDqnOea/jbu6MCcZ/NJFR4M6crqwQzIERyr3mr7P6sLcZLxo+zBa qUwl/5Nh1t4n7rkLxeMlo/yFqI8+n/onPxmXWT/6tF6k/QuS8dDqd8Pw8cRX 2rl/7fdvO2zIz4xktOTemfrHhvTLTsaS2JDfETepHyqT8TE3+4rLQdI7Pxk7 Xgjj73+l8aJk9K79nTSqJ+VDaTIyNnr/LptE/UyVjHsOq4MSa0j/qmT0rw7c pD+X9lObjJsFf3akedF9or7Tr8Z7C9QqmPt/Mn6ojy429CL9m5OhuMkv9JUw 37uT4SdevgBVdJ50JIM7qGqXYwvz94sS2Gl6GAV6x3TppyZB25c/oWE1KV1Y UwKNPGVEiIj6n44ECzT+22jjSH6xJditdnjVoP8IG3WOJ0RpODVs7cLGEvS0 PTG/21Dyx0yC7U+bhKukIeS/BDwPn4jHO+h7nZUEJjNGv00/SPXOkSBLL/vR gAfE10ECz21wHmRO/YIrwbFLc9eNkFM/8ZZAnFR9smYm5TdPggifKRmyvHPk vwRRj2cf2JBBfgok0I6d2KflLo1LJWBHvwjPlNL8jM79dbskE6mRP9kSND5b P/beXqb+JQia+fd62WPKp3wJ1ggb57LyyI8iCYYevzrmxTG635ZKINhdPORV Nt2HVRK0Hxg8wymDfv+qkuB2zezFvbLo7zFqJXDxc47K2k2/b9ZL8Ov2vndL Den7c4MEaqFeNlWD6T7dLIHEsv+nCbspXrsEX56MeLOphvK/QwL9n6PNJ+Yw 33+l0NvtMCAwm/qbmhRpqdysCa+Z7yFSrHTQ7NX7HuWfjhTHdb200kvp/GJL ceLCnEPZz0h/IylUuSZCp0Wkn7EUjTVp12adJr3NpMiuu8yu+Ej1AimOFnts vWZD/cxKCrNrOkZqhtTvOFLYmdieHrGesIMU1R/9Sj6fo+e5UjxZfXT3zi10 PnpLUdxY9uTONIrHk8KGX927dxn5x5fiosVym7b7x8l/KTjWyiseA+k+K5XC oTa3XHCY3j8ypPg0st7DKIW+f2V3xnvyuSd7LvN9Ugr/H3VtLqfovM+XYmte v25fmPfDIimW7H/SUHmG7melUgzlrah7NpPuv6rO9YLWnJ3/iDn/pQgdWvI3 7Adz/kvBbS00OBDLnP9S7NnTHKh/hun/nfu/I4uc9ok5/6X49f7q76/dr5L/ UtypPVM2/zvhDikKzrcnFTyqIP9T8KlmsbtjYSX5n4KCCY3ODRHXyP8URNod 3e5peJ38T8GNOXV/DIsIs1PQ0D2638UOwkYp6BW6PbOmkbBxCtb4z/hx2oaw WQp27T0gsRxF6yMFWb63b7vPo/1YdT7f78ul24WM/ynYVMRJ6z2B8sUhBao+ ojOha0kvbgq0WMvFuyypHr1TYKJ/y8VYjfnemoIJ/JxdNnt3kv8pWDd2jPPH 4VQPghSI/har6+fT+400BUmrxBaho5n7fwqcvIYtfhBM+Z2dgqrT42wHLKN+ rkxB7rYMgaeA9pufgjNN1cdmviE+RSlY8Wt3Sfse4l+agqLugxskWTfI/xSk zTJ8fL3pJvnfqefDEU5Nx6vJ/xT4XP94c8KgGvI/BVcicwJGTCPckAK90Rs5 wtGEm1PA1f/sYd1C89tTMDyrecaBLMIdKRjqWnPD0pAwS4ZbB2+wLm2h+Goy ZBWXzA6uof1pynCjfX/JxxtV5L8MlS8MHh+IYfyXoVo8TX/xA8ofIxm8eXP3 c6sp34xlEIhbZL9dSR8zGfL0C97HrWbqXwb5gVHx1xKoX1jJcFJz2kzLKjr/ ODI0V6zvv15OfjjIoJGU92TLJupXXBmeF7eUn6kg/7xlSLJvdvuZQvXHk8Gj p2F4P+Z7MV+Gw8Zi3p1Mqj+BDDzpgEkWxlRvUhkm3vN7tsOA9pshg0PplMtb P5Kf2TIYrSkMG6ZJeihlyD3dVjXOkvTLl0G6diS/Npn0LeocF8758ovxo1SG lU2K40a7Catk8BxlOtTkDuN/p34fw+JbCkn/Whme5oWJtV0pXn3neq4sZfxP qp8GGUKdE54skZH+zTKc8Qpd/d9Q2m+7DPW11tea9zP3fxlcxe5DNSYQP1Yq Jh09M7LVlu6PaqnIK0nBtXl0f9FMRfjFX3aGmnQ+6qQi+YHRU4O79P7FToW6 alpURAbpaZSKhgX/rdz4lM5n41RM7DMvvf8c0t8sFXPWTOxz5TLVJ1Jx6mxG s502+WmVipLvPQx8X5B/nFT0HcKLjylgzv9UHJOXJdmXUD/ldu5fWBZe/pJ5 /0vFtD57IrUVzPmfipoR1851K6d846ci9kLwzs3Pib8gFbrPFI7mLqSXNBXW Ftnik0NJ34xUFEysP3eunnB2Kty8ZvTtuY+wMhVtgX/3DBWT/vmpWB3iNPbX Jcr/olQMswk0jpBQvNLO/Yiq06/Mo36uSsXvtOlj+geQvlWpWOo04umfd3Re 1abCav7V8KltdN7WpyJs12j1Vdp0HjekIsgwTMHaQu9LzanIun9itoY18/0v FUdXVvNbuPT+25GKBMMwS5Yzfd9kyTGp1UHzjh/1QzU5VNUqjTMS5vuPHH3W rojZeome15Ejsj70wVFjuj+w5dDI/qxM6Uv+GcnhffnOxHfVzO9lctQ+75u7 ro3eH8zk+Nn3xPo6E+b7jxzOwQHimjjq51ZyDH0h5r4fw7z/y9HfeWvWxCuU nw5yPGpdvaDbd9KTK0eOWe5J262kt7cc1rOTlhWEkZ88OWZVBW3XCSLMl2O+ XHMpz5+eF8ghmutbG8Wn9aRy9PvrIMkTUb5kyHFupffAF+Mon7Ll8Hd0Pj9D znz/63z+ctwx1xbm+68cRy5fy9V/SveHIjnO7/YYUGlH99tSOZTDz6S0ejD/ P4YcUr3B07p12C3s8l+Oa8cqj2Sq6O/XauXw1R24eGM+fa+ol2P020mn8rWZ 3/fksO28rxaPpu+JzXJsPn5v6q6npH+7HJryJ//5jqV67JCjaN1Wg5A20p+V BsGaC0sDexI/tTQMWx+hW2ND+mum4UJr4XHrMtJfJw3//ApRVupSP2GnoUeO 6ePDtqSvURpYWQGuOx2pPozTMNfj9XOOFvUvszQUaPX69tWG+hvSwC08WPyk nrBVGiLTFivOJhHmpCHt9EqR/RSa75CGeaUYb1JB9cbtXO9G3bclTrQf7zSE hfoE93Ki/sVLQ8A1k/yaRXR+89Mw83hy1Pfv5JcgDSGrjm7bcZTuc9I0TJi2 pceBHH6XHxlpuNSDey31o7QLZ6fhwYoyt5szI7uwMg21brFfyprpe0F+Gk6e mNt8+QTze32nPjuyNt3YT/lSmob3Dw/6Lu/JvP+lwV+SvKTgPfWDqjSIPt2V ZciJT20aynpfnXlxAfGtT0PShZa43rvo/G1IwzPFLLbJSdKrOQ16pyQpDpnM +Z8GneGHZvBsb5H/adgSP3h3n+bb5L8CcwuHLBo3oZb8V+Bmomzv08uENRW4 7xZTtXnSXfJfgYYgn/1qToTZCjQeKgtaaU7YSAGTHlUb7pyl+cYKBL+d7Tco 9g75r4Brr/vdXER0X4ECyr/1d07Hk79WCqhNnbzmj4Lqk6NA+f6HFjN/UT46 KGCU5Hd3/TbSk6uA57lW9XPPqT95K1AxoMeqx+lRXf7wFPh+Kr+40GBHF+Yr cGtij1LbOdu6sEAB4+B/eIe3Ur1JFXgWUeGzXUjvAxkKXL3/5t3x+XTeZSuw ZJZ5j54ldP9WKvBz/tGiPr6U7/kK1E1PfHbKljn/FdBuytGtnE/8SxVYUZKn 3jCS9FIpMK6zKVvNuEf+K6Dqvvdu8i/CtQq8fFx9Y5H8PvmvwPOp35MDPhJu UICfHGl10fQB+a+Are0zzdEbCLcrEBuSt1noTLhDgf6Plj7YZ0aYlY6ldVsb T76i9dTScXu46ISNLWHNdARu+NciJZT2o5MOlze+envmMf6nY1nRiVbBYuJn lI4lC0bsbp5N/I3TwT4j99vrRvqYpSPKelP75xbSD53xy776eM05c/n/AFON K+Y= "]]}, {RGBColor[0, 0, 1], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJxFW3c8lX3Y11Oi0kPjSTtFJUmipKVvm6JIg0qOEbK3Yx9ncIZzaGsilIYS DS2jVBqKKELRpqkUTV7v572v+/WPz9fv/o3r+l7rd923sc5+q7f8o6Sk1NxT Sel/f//fT+v8gtGi9zYFz4qYP8DuQGGZNLCRwarQqN4tHn6DsAYmRVrZS5oJ D8Z2t/aKSR2Eh2Kz+boRX/4QHonQRe112l2EtfDykvuT3yweh5xk9eApSk0M 1oEjJ8rXnMUTYJv7MsOexbqI2/I52onFeqiLOX3GgcX6eDn260RLFhvg1ZDz Xyaz2BAFRwzafrH7T4Pnveg6IYuNsO9A8bDfnYSNce/T3CZXFk/H6nHhkjt/ Cc/ASPs+A2aw2ATranbF5rDyz8SqjJy1c1lsivrFL381/yY8CwufDZt1kcWz 4XFBci+XxXNwwqhEo5LFc/E6uqhyKLvePNQstVoqZLEZzjhpmvRnzzMfjrG9 VpxgMTCSM1C6huThAYPX9vz4l5VvASS6ikEHSB+8BTBrcFMayOpvITbtM/uw hDBvIao0997awo4vwvP61GJfdnwRpmNfoCM7vhjVS0JUTdnxxbg2rFz6jdX/ EthPNH21mt1/CbZ8inXYyZ5vKSQFg+1KSR7eUoytG5z6mZV/Gd6rjd2uTZi3 DOU3Bi7wYfVnDsXhz+LaXzRujss/nyz0I6xkAadbR3easuMWWL3VzJ/FSssx 4Xa/FezzvOUIPmE/sI4dX4H2fy02BdJ+vBXwLlZUGLDns8SrdPXinuz5LbH/ 3N7Glyw/Vngd4Di0hOXHCoPmyjhyVj8rUfFVeGsUq7+VeFl8SJ3D6ncV+vln fhSz46vger7eaBc7bo0MnV0rBYRhjf6+2l627PPWSHDPC1YhXGyNMV/FA5ey +9tgwDPLjHV0Ptgg6FFmghUrjw36TJ+VNovkLbbBnBV2HXqs/lejMX9N7TTS F1Yj23pOtcNPmr8aeal3S678oPmrUW/a57Y9YSVb3Or5X+JcwrBFrcfDGA/C PFs0lLVGNbDzbfFIf/Hx7bS+0hr8c35qJo/dfw0mK5f2SmH5WoPoC6XTbrHn X4OYmZe8frH8rIW7vpbaKNIH1iIrsbdff1Z/a9G8Y+lVf1Z/azFE/0RZLqv/ dfgWfrxnGav/dcifvMYrn52/DlnX/B4EsvPXYX/t4g+q7Pz1WFYbmdnO6n89 hn0ImZHJ6n89usI/PmHtrXg9OMNW5+ew9mmHRWuFU2eRPmCHHKs0xxaK3zw7 ZK8oXlHdTvPtYGuks0WNsJI9XNeeMEn9TvPt8Xz6cd+dhHn20Jy2bO1HwsX2 +HN1X0EmO38D7NU0rU7TftiAzpC00D8sfxuwYrHULYzOW7wBD9Z2BwzWfzZC utjxwG6SFxuxa7ZtuyobLzaiqoQ3RIfV30a0HJ7zIpXV3yaUzo3a95nV/yZs Cu3l1r8H6X8TMKJ5Yjs7fxNeReufOcbOdwBvTGilHjvfAcH3dss6WX91gN20 IFVHOl+xAwaUe99MZO1/M9I09pqms/rfjB7ecesKWP1vxovGz8M/s/rbDJ3F JyqdvtF8R7jOM12u10bzHfHlTLPa5q803xEVGyvPqhEudkT+nWU7zAgrcbBl onNRG2EtDjbqrM3RpvXBgUapmuNV2p/DQfT05UbZ7Pk48Ks5v/AGnT+Ng65n ey2+kHzFHHAGXa7rTfpo4sBQvqmmiY0fToiZtj/0FOlPywmDfIt+G5D+4YSn UpP+7oQ5Tqi3uzLbmuXHCTdb8ia00Pw0J1htirozg+XLCeMs/a/FsPs7oYaz vGUiaz/OEI68M0JG59dyRsbTURMekn3CGdyPNaWTSB8cZ1z4+Dih8AvJ74yv 2+emXvxM8jujw2FwzbxPJL8zBKGlyls+0v7OiHLdqmtGWMkFRUoB6+8R1nKB SqDt0d60Hlyw2pjXWttK+7tgRrOl83jim+eC3o2+eTeJnzQXuL29eno7G+9c cN4y688m4qPJBUmfhl3+ycYvV9y4sadrDKt/V2g313xXZvXvihlF02eksfp3 xcIpT81esfp3xf5jBkPvEU5zhb6VdNc6wsWuUNg3RCTQ+k2u+Gfog5f32fy9 BYPf/M1SIT60tqD67t0gNl5jC1aO8S4MY+1vC46Y33bsw9r3FuxJOLGglPSd 1j3fJDWh/j3JvwVb4/n2sS0k/xZ88t8Q9+Qt7e8GFc+xY/sS1nLD4X82VOgQ hhuud5YFGFB9y3GDQbph75HvaH83hJzQPv7wA+3vhvBW0X1d4qvYDQ19nfY1 E19Nbtg+ZOSyKrY+dse7qXuMsogfLXc8WJG4fjibT9wh+HjN5yfpj+OOnaO6 8n+z+neHu8nX+Jh/SP/uGDLlP7NgwsXu0DYW6dfS803uqMw0szjNxi8PeIyc EqtBfGh5YMK+I2e+s/HIA08nT/WzYvXvgdId0mpnko/ngV+9g6sTSN9pHtg3 5pyTOumv2AMfe76avewlye8Bk6PlbwOaSP6t4Bt08kqe0f5boZtndM+WMLbC b23pYMNG2n8rXGLMvy59TvtvheBD4degV7T/VnhtOveSR3wVb8WNuhEWeqz/ bUXeuPVcHTb+eSLVQL1ci/jQ8kTMHLW4h8QHPHGsT5+qr8QHxxOXOs7rHmb1 74m8n7GH77D690TKl+bjnJ6kf0/cMWtfbk+4yRPbHr9RP0PPK3lhxhUdE29a T8sLhzqv+U5h+ffCxMxb3mLKfxwvmPTf4D2Gza9eyDl2SMmEjT9eyI18OX0E 2XuxF4yHP948gdW/F5RPR1/Je0rye2NnQ9PnYU9Ifm+M3T02I+cR7e+N7Jzi J7lVtL83jJ1M020I87yxvaXP24xq2t8bz8vrJx+qof294TRuzd6hDbS/N3oW zMu/T/wp+WBBf47QhfjS8kHfF6U17mz880Fj+dtaJ4rHHB9MrFY4PWLreR+E R5zVmcDGHx8sqs3QnMrq3wei1UqnN/Yi/ftAqDrXPImwki+eN5/Mv0LPa/mi XT7t9Fs2/vmi/tfozuXkHxxf6Kf+02HK5j9f9I+1qerF6t8X46Yc6Gv8huT3 hWPpgDg70neTL9JkxbXqpF8lPxyf8Mb5YznJ74dXwavqA8tIfj8UVkusetF9 m+OH9oPOsY3XaX8/mNp8ax9C42l+CF5yYcY2ml/sByu7V+PV7tP+frhybc9I HXZ/fxRNuGzvQOfT8Efsuv6nDOj8Wv6obuG29iP5DP0hPFQ40Y+t1/xxc1vS mUbSj7U/2kfWb4sk++b4g2+3RCWP9O3vj8La3bLvyuQ/3et3/BUa92Zwcvf+ PsGLXWk8zR9DH/h8lBI/uf6Y/27PznNsfvfHbOEzw98Uryr8oTzs6RgNys9N /pja30RDjeJRqz+cbVZu9iB7VArArwsrlPMrSf4AnLjpbSG5RfIHQDzioGVS IckfgNnGUXmuF0j+AHhaj9Tek0fyB8Bt2ELtnbnEVwDOfNUzPHCGwf4B0LcY MuniOeIvAJ1xKy9dvMLg5ADk9ou5YnST+AzA78TiiHg6X24Aemm/r24lvooD sE7DK2Y35aOKACwKGbVhF/lLUwBmZuhrSklfrQHIu/ZofjZr/4GYPlSkulaF wRqBmKT5p986VfKHQFxZlDlHSuOGgVA8dU/9QPMRiMBAy0m7aX3rQJi4jEuP YvNFIIwsVVuCSP/+gfi9cdjHzxQfeIGQ/DdlXjvpOzkQc8xjAg8XkPyByBq2 tVz9BMkfiIfby1cgjeQPhH+RwYJee0n+QLx3XPjq9S6SPxCFf7+0j9hD/Aci zeVrlugA8R+Efn6ZRrlZxH8QWkuPL39NfGkFYUXLOuH8YuI/CMf0x6SVPCD+ g2CZajTYh/KTdRDGzfv3zxqqRzhBOOq0Y9cJyif+Qfi0NaDOleyZF4TCDDim kH6Tg3AkpWXp4r5k/0G41H5LbtWP7D8Ih+33Nx6l8eLu9V3z79sSXxVB3fx5 Td7MxrsgWGcm+pVQvdcaBO+PjrNVKX8rBWPzTkdnZcrHGsF4bNQSs47ihVYw vo/ak3TjMskfjKzqmW3LjpH8wTjC3bevnfRrHYwd+9+pdIpJ/mD0erN1Ynw0 yR+Ml215KjtDif9g3J/WFt0STPwHY0X6TJNmLvEfjCl7w9ui+cR/MPi1W2JG byP+gzFZJXlEeQbxH4z9fThq0y8S/8HQrMzLuEF8tQZD931yZdNrkj8ELwqT ZrRR/NAIwUJ9I/PlFH+0QmD8NVyZ1b9hCAIaZmht+5fsPwTwnr/gPmHr7ucH 6vZ9S89zQpAXWL7vPa3nH4IDBUUz/r+fFIK2Mosv1ZSfk0Pw7Hh6Rtttkj8E wpSe9sanSP4QjLHZ8Cp0O8kfgoEHZ469TvqqCOm+ga6bPtCF5A/B73MOV7Vs Sf4QlLs0yuYuJ/lD0XJzeMgoC5I/tPvG96XiwSriPxStn673OudA/Ifiquih 9r4A4j8U9SYDFzVJiP9QdBqdaTiVSfyH4rZlitVE8h//UIheXJq7rY7kD8Xi n4aTIqgeSw6Fy1LHSmfyj7RQvNv1NXQ9a/+h2P3H6lijBtl/93q3btU+G0T2 H4oXGjXDVg4m+w9Ffr8orekDKf6FYuDPbW9S+1P8C0PEkpw3Ryj/aIRh949x cfeJH60wlK4wGT2C6kvDMKwb4onLxA/C4Df548jwkyR/GLbJ138KkpP8YXD6 3SdXz5fkD4N04uUsrjXJH4arJx3/izEh+cOQ0jssJXAc8R+GtouneS5DiP8w DKq8rvl2EPEfhj13J06pGkH8h6H2Tq2GqgHxH4ZQ/VmPNhO/rWHwujRO85oX 8c/FZZ3SeB+yJw0uTnrOb1hyieTn4sfUQR3TKT4YcvFy4uOIy2y/g4vEBz4T 3pA+rbmY77Hf99YQsn8u5qlHr6wdTvbPxafvfqE1wyj+cVF1rOfta8RfMhdd k764VFM8S+t+fsfD86p0f8rlom/UM9cRVC8Vc3HgjsM/b9JJfi7aWjPU/gSR /FyE/jpe4bmU5OdijsaDeulIkj8cIXcWPjj/k3nfoRGOn6du3/nUxGCtcFwJ 36gTVs1gw3BY7epRKHrEYIRjTtW+Ko1XDLYOR6zd7a93OxnMCUeaXXDYWm3i PxwDJk9Jkq0k/sPhNjhXrSOK+A/Hkqzvd00o36WFY+UE3QN2j0n+cCSsWzhx ENvPC8f9qXNX+JL+K8IRcUklo3Uo2X/3ep358gAtsv9wnESQcW8dsv8I2H8R hTRpk/1HYP7X0iuz6XmtCMxDnyoL4sswAtXpuyaaqBP/Ebg6fu3zkVTvWUfA bM8ajWnkL5wIVEytmpFO9ZN/BEy/xkeP2knyR+D68M9DTm0h+SPg/WtMbOd0 kj8CweMEHtG9SP4ILFpS0b65htFvcQQK/E7zA88wuCICfUP/1F3bzeCmCHzf 83JyLxmDW7vX83J89zKZ3m9FYtuI6TLOMeI/EumZlcftqoj/SHxS2N+K7Ef2 H4mfd0/nnbIk/4+EzSZrUWUy+X8ksl9+0GTrSU4kRvjsud7B1r+RyPK7Vl1C /sCLxNqQz+VdumT/kehrue220VSy/0jwV/2n7z2F4l8kuDZzbLWIv+JILFpn Z96T4l1FJLbP+JX+ge33ROLB5Q5/NaonW7vXe5wmf0f5WSkKnQpX1e3LyP+j UHTZwCtLmfw/Cr+k7zNsb5H9R+HgS6fL2tvI/qOQ9bvwz3Z3sv8oZG8Y/U2+ kuw/Cv29rt+sM2ewfxQiL+6ctns9g3lRcF/fUvwmnMHJUei4zwtQymFwWhTE arsGxn5gcG4UHG6nHFA2JvuPwleXpk1/I8j/ozDPeBQsikj+KDQVzO51h/TR GoXVq6LsKyk+KUXjyRpl5bRJZP/RcOg//O5QE7L/aBy6H2QVNJfsPxqctrjI qfPI/qOxgB+865Mp2X80uMPMWm0MKf5Fo/5KxMSX5F/+0UjdF5CpQnzxovHg 1ILiLoqnydF4eHaU5Dndz9KiUSab5/2F6pvcaCTM9PLa5U3yR+PgfFNOpiHJ H43ZR/p+z/tC9h+N+4E/sTGP7L97XOPDL89Qsv8YhIw//+XpQrL/GATO+PRN PIrsPwYZ38PGOasR/zGIiMls9BxM/Mfg8cPbo7aYEv8xsDykWHQ0jPiPwQWj 0qrIcuI/Bkf3orfXNPL/GNhyqs+LU8j/Y7DKaPO0SLpfpsVgbtLDNVbjyP5j 4Dag68hV4qM4Btfr+jRfsSD7j0GXtdbRbMJNMXj3w3+pmhnFvxjEZWfs+5f4 VopF7W+nwb/ViP9YnEmp2dFG9xOtWCQ0ns9vSSL/j0X/w6X285aQ/8ciaOzk 5kG/Sf5YSC0zL8vOkvyxuOG52eVtMMkfi91XO3rtn0/2Hwu9hqQ5hkPJ/mNh OXKG+HcPsv9Y+Iddv5Dd9ZSRPxYeC07YnhlI8S8WRQ2icc9mU/yLxfz1WXf/ hBD/sfiwQ1jxsYj4j8Vnvxt2w6h+UOLBNK8tzWQrg1V5MLjGfzeV7qMaPPRU L3bzo3psKA8nbe7VXCA+tHjw2mGsfnY2g3V50BjW5n15OfkLD1F3XCpTVzPY lIeFF4e2HCSM7vUvTSlbvYLB5jz4RTSIj5N/WfPAFdzQvKbHYDsexgXOjCuh eoHDw7bpUwcGU33gwcMrTYc52nRf8edhyF6vf7tiGczlQRi5RsdoEdkfDzJl rcxqindiHv60Xeg15TbxwcO8N1VKHQoGp/AwLbh68BF74oeHwG+HgnfqMzib hzGl0quq5C+5PIyyiNjW/ofhr4CHlL98+829iD8eRJPitptNYHAZDx+cfaP1 XYlPHgy9p219cZnBtTzc+N1nmdUEim88tIb19LhE969mHtrHh8XeYO/73ed1 eig8QPr7wUPslQ17GxeR/cfB+a3m9H7El2ocwk1+JbaQ/jXiMOKw9swW4nto HP6daX+glO1Xx2F7/YHonKMM1o3DxV89bXRWk7/EwUjRtSOxB4NN47DJuG7S f5cofsQhYvbfTJ0YBpvHYWz/97I3lD+s46A5b3LHXdKvXRx00hsr32uSf8Vh rtIGFTMNBnvEIfnssBX5/5G/xeHeUqW5U3QZzI3D9L+NTRuXkf/FIWDTYk1x IIPF3fulzfBen038xyEmoey/A2+I/+75vtu6lulRfIpDz5lmW3f7MTg7Dg3l pfP8qB+UG4cLDra93lM/oCAOTnd3S56z95c4PHkU7DiH8nlZHG4tig6SUv6o 6N5vpMX8T9MZXNut39Z++9nxpjjwj3W5nCV+mrv1I+t0WkP3pdY43Bl841Iy 1Y8/4qBbV3hUme5rSnzcX7tDcpDyqSofjQKZVXoD5QM+Dv/LvdIuYfBQPu4a pB9bC8oPfKhuOe39/R8G6/Lx+KMOJ7uKsXdDPiqeii3m5jPYlI+yNbNOf0ln MPjoaDL5/TqVweZ8DLTJM7XPYbA1HyrOTVEldxhsx8eRSa+1D/9gMIePBe2f UkfPJP75aH10TbBERPzz8etkwi4tque5fIQmnm4tWED+z0dvk2uLAqifJOaj 8BlOLaN+ZzIfLtItcbeo3k3hY6P6Dg1tuk+m8RHxoLD3Buq3ZfMxybzmtBHl s1w+isLKdTPp/lbAx1HjLV0L4sn/+Vh9+0981V9GnrLu/SuOdExKZnBF93pJ Y8/VL2NwLR/S1w5e1hMY3MTHG4PgmsbxDG7mgyuMFwrmMbiVD+cO8wfWrgz+ wceqs77Gsh0MVhJgjOmim8NuMVhVgHObbfGe4pWGABdUVy3qM534F8Dxwx2f Z17EfzcuaR39KIP4F2BdVy/fmfVULwjANb0bpzeA/F+AgC8dvXMWU/4UQPdN ybft1P8xF+Dq3Lt3BalUTwsgaA0Y06OUwXYCzDtVGxtI91GOADOHDpjNvg/1 EOBbcpOxNt3f/QWIMHjSWE79Ba4AjSflIfb0voMnQFlW1fXkbOJfgIVvB0dF byD+u8crvRwd35H/C9C0ot+5E1S/pgnAWf865VM2o69sAXapuLW2fmhg+Beg 2u+z2ztTBhcIoHZa2lySUc/wL8A2/taMj/MZXCbAnJwZFrIhDK4QwGGUsbBt PINrBfDxlcXPdGVwkwB24XqON68zuFkAt1Uv9A7NZPZrFSBNuFIv9ByDfwjQ cHty/d8ZxL8QjXVmQbpniX8hnoWEF1pRvNUQ4vXqun/c9xP/QoR+ur/Mhe63 WkLUzww6GG9D8V+IY3lPip6y9ZIQ8/b2qG6heGgqxOaU6tnFhCGE7NOyRe/i iX8h+uSFv1iiS/wL0Tz9qG3zDor/Qhg3DnKLuU/+L4SR3kDunzeMfB5CqP23 KFa5g9GHvxD3hp7Kvz6GwVwhOD/jlKYI6hj+hZhjOivLaQ6DxULU7Q+9+68t g5OFCLcN/be0hMEpQgSbNKa+82HWSxMi9VTnfbXpzP7ZQtx+1mPM4C/EvxAW bvzJ92SU/4WQPPhm+u8vBhcLYf3ydNFzqgfLhOj1qMeNuq2U/4VwmHPZSZvi Ra0Qaz3HmwWlUn3XPS5422cR1QfNQsh/OzxNqqN6T4jnI96FnqH69IcQ6gqV xv5s/0OEjxevaurMovgvwkHTpj6fqT+lIYJXr0e3ap0YPFSE0R3DZ4d4Uv4X Yf3ImhcTqH7UFeG/p7t2F20k/kVYKXZ/oTef+BehfUzHo1nqxL8IlpHRKVdu Uv7vxkK/QZM5lP9FkO8LNBpTQ/FfhJ5PhzRc0CP+RXCdmt5vF4f4F0Gyw81H mkD8izD1mkrcwQKGP64Iu+afend5MPEvwrw70TP1Cp8w/IvgtqxEbe59BieL kDEubZzdcuJfhGXxrsNSRxH/InDftn2XjCT+RchvePPTahDV6yJoRn1WN68l /kXotNy/rIriR7EIM20KVz4n+y4T4eurTM83+4j/7vM+r//8Npr4F+GvrnHy weXEvwg39GtHvetD/IsQl2fyoaCY4r8IEx5fyIsKoPgvgukCE3PuKPL/eJRu kRpk3mDOrxqPaJ9Bqyy8GKwRj4Ra/R2BGgweGo9Bo+6YWhQw8mvFY477c7tN 7gzWjcc7YdmlYm0GG8ZjwqBj+a+/MfozjUf7iuh3bS8YjHiozl1/dud3BpvH 41FWX+MJRsx863j8PLLqQMZeBtvFw1g9a1rdBOY8nHj0HWdefLmc+I/Hin6G AbIoRj7/eFTUp+8bOYbyfzxmZZulBVG+4sVDZ3ktZzLFM3E8GlTTepzRp/gf j+Nblx5cTP2olHiMOaDdGTOa6r945CYd1hN9p/o/Hin9vBdcKqH6v/v8o21K tal+KojHovbxozNWEf/x2BD8SW8N1bNl8ViY2Wr4qYnyfzx6zDquP/0k5f94 GD6q1vLiUv6Ph/fyIvvCxZT/4xE6IsJMoEH8x+POoOGfNtdT/I+H4nZi54Ys BisloOfPmE2/fIn/BGx74uzvMIv4T4D6qs4vMb2J/wT88j8SLXlC/CdggOeW 1JkXiP9urP9x/vAjxH8CPpteyBGcYrBpAgqq9xw+T/ORgDvyoKUfpzLrmyeg LmPEm59nGWydgI3md3Qeu5D/J2D0h/PTovSo/k9A3BelJnkz1X8JsDml1HaM +r/+CXh7viZz/2HK/wm4rfJ0NHcT5f8ExDh6+8ZnEv8JuP72g1XOfma/5AQ8 v9xXqzKEOU9KAr59uCl55UH+nwCzyzmT9Q8x9pudgFuOH/b+0GNwbgJO7IzL /q7B4IIEaIVdLTdYxODiBGzYr3b+5EkGlyXg+9il3L0mlP8TMP6Ucmj9Pcr/ CVivVHjlEsW7pm6sWqKyp4XBzQm4n16iPozqvdbu86v7nU+sIP9PQM65qUsG TaP+jxhzJwm/6YgZrCqGac7N1G3UX9UQIzYptbBrDMV/MU48E9fUcCj+i9Ga WbRcRvWurhiHvE6mj6XvEQzFeOOW0LOJ+sGmYuz7Fd/7PPt9nRhHtNX9lKhe Mxfj3KSjXfb0vY61GA5JZorie1T/iaF+bF3HKOq3csTgmUkW5E+m+k+MwFep KWsonvqLUb98cPdujPxcMUYckFbWkH3xxEj9cdHvqIDRr1iM4JX9L3yjeJ8s RmdTwqriaUw+SBEjPHfIuwWOtQz/Yhzv+0TV5UsNw78Yh81yHFO/MThXDHuj AF4Mh3m+QIxQw7dBd4cz6xWLcTeQH31WifgXY51CddbxLwyuEGOBz7uSrsfE v7jbnkNmNZL/NokRs7KFc3YT+b8YvtoHFtR0Ev9imKf11U2nfvcPMfphZcqp wZT/JZg/4N3TsVLK/xIMwD9XBPQ9l4YEW+rWaahr0v1fgtAW4dm+Y6n/I8FE 3vXK1j7U/5Hg51deSBNb/0mwkXu6chHdp00laC3XF0fSeSHBpxXn1fKKGPnM u5+Pe2mj8pvRj7UEPitMHbrMGf3ZSfD4eOBwi3ePGf6719v7THWyJoM9JCiX +WyI+PqI4V8Cl4erFo7nM+Pc7vnyrd+/nWL44UmQz5UMrVxO+V+C8/K6gZtG MOdJlqDw+OqJk6i+TJFgRqcs6Wwk1f8SOP1YtlZG7zeyJRj/mn8jivpbud3n 91cry9/H4AIJTixM/1tbRPd/CRy6NnasuUv3fwmMKuUTX9yg+78EN3229VSc p/u/BKKdkw2iDtP9X4Kgs8+mqsnp/i/B/kjf9bpcuv9L4CFahn2u1P+R4IXG 6wIrOp+SFA9uav8JAfV/pLCZ+1a8g943aEjRlmiR68TyL0VJzp4jofR9h5YU j69dHTOa7f9IEZpUxVWeTfxLYTs2qL2C8q2pFBWdB3egnviXYqQ4+2BdHcV/ KRZb9uaszKT8L0Xso0mX1Rcz/mAnhShQbffKasYeOFLkDm+u7R3D8OkhRVwy Vy8plOHbX4oQp6OtKj8Ye+BKkf/57Ph6Y2acJ4Vej5rLNWDmi6WwHD4vK7Mv 1X9SKP16Hh9qyZwnRYpbK6/1fUL9ijQpGgZdOxp1kPiXYkLV5oVZscS/FIcr DJM1aol/KQyPVDz99pz4l6JT8/D45DPEvxSvlUc6DdhE/EvRq1hziDJ9r1Ar Re2pzYl9qZ/WJMV45arCmcOp/pNCxfTcUm1T8n8pHuY5vt+3mfK/FNqnVtrm JjHyKMlQcrhX87RyRr+qMrzyrM7IG8ZgDRnu5QcWzw1n9DFUhok2w5YVfGH0 ryVD74/1hr+kDNaVYXtXqrLTSgYbyoBizq5nSxhsKsNT/d67NkQwGDJY8HeN iaH1zGVYudX/94wT5P8yWLp+aEhIJf5l0CwtOHXgKnN+jgxNqwWl3+i+7SGD y8IbRi4DKP7LYLp/1JIw6j9wZVhS/fOoJ30/xZNh26rKP7tnMfoWd59v2ojr U33pfYwMJ+8EO47aQf0fGXbf1/40+ST1f2S4EVZ03aaAwdky+OT6vODkE//d 69lNLU/eS/x3P3+iplzbk/iXocG98u7zicS/DK4XH8ofnab3OTIILNRuaioR /zLYC0fVNrH1vwzXf7Xtb91D8V8Ghcgpdx7po1WGr7HRs8KXE/8y8G6l2jbn E/+JmHC/cfPaSQxWTUSpOLPg9wniPxEFR4/D1YzBQxNxd8lmnymvGX60ErF/ zoO2nKMM1k3E6tkhAxYnM9gwEcEnh2d9Jz5NEzGlh+OCB6pU/yfiTNrnbJs8 qv8ToThlcDPqBPl/IrKuu/cc8JY5v10irr9JP3iB+o+cRChNzpPNpvfnHomI yEvmTaX3qf6JePLGX33wfAZzE9HeFdt0hvIbLxFHc/uo/ptP9V8iurwOHo8c TvVfIv5W7xjwJZz8PxEXBNfMDEYx501LxKP3OXe2GTLyZSci40q6a+ZVxp5z E7G5v+jxqXzK/4k4PiDRyuA7g4sT4Rlu6PzChZlflojnoTpuw5sZXJGIXm7/ 8ZsDmf1qE2G2RKO89g+DmxLRr3PeNRuqX5oTUXLiprI+1eutiUjaO2X28Hji PxGzBDM4t3vS/U8O2dvLN9xiqf8jh43NwjkrqL+qIYdKy5r2897U/5Ej/HvI /TNPqP8jh2NERyzmUPyX4wN/wc+J9P2LoRw3vJcYW1P9ZipH3uxA803s9/3d +300+qVN37OZy1Hw8nZ/Q+qvWsux+HSIhje9L7WTI27D39wE9vsqOZotn14T UH/bQ46Q/alP/9L7OX85Tp4pmHeW3j9z5fhP027U4UdU/8nhVbLvmaIH1X9y KB84v7+sk+EnWY5E9/6ZLwYw+SFFjtSrURVtMUw+SZOD+z45RSe0muFfDnVx WUyOCoNz5QiqcLl3QofBBXLMb/x22vwEg4vlWDJAeea0UGa9MjnG2aR5THdn 8lOFHCP6BjpLPJn9a+Uo/3mwxTqEOV+THK93G2/P4jP20ixH/Un3izXJjH20 ylHT8V36Tyoj3w85Xtr/ij15nO5/CnhNVPluSP12VQV+L/7Y1ppC9b8CfZcX VhWvo/pfAZPkkrO3qR+rpYDL36/X2uh7TV0FqkJc9Az6EP8K2GX3vmmzj/r/ CnzeZhdgFkj3PwVMO6WLPpdS/Fcghxv7qn8bow9rBYIUtkLb0CqGfwW2/hlo /6KkkuFfgR0fdTu1tBnsoYCec1Op8SkG+yvwQYs76NVsZj5XgXe+X9yVApj1 eQos4bzdMqaJ8r8CwlaJZetIqv8V2Ba56a5LA/m/Anz9oity8p80BSLUfb9Z ZFH/VwFB4SU9lc/U/1Hg2KGMS7Po/VSBAomLl+95NInu/wpkTJ4zqIjieZkC LxoKo5rpfXFF9/k2XHJxoPtprQK9O875LabvkZoUMNYZHWtA9UCzAtojH9zf O4m+d1Dg8MJJP45Z0fsfBYa3hrtk0fdoSkl4tWLwP/YKqv+TkL506TdT+t5Q Iwlpf2+v+UbfWw1NwhLX4OPL6f8LtJLwIzto6iaqB3WTUGulVOFG/79hmIQe VtbW2xPI/5Mw7lm6cfh9ev+XhPFjr2cP2fG06H8AJeXNwA== "]]}, {RGBColor[0, 0, 1], PointSize[0.002777777777777778], Thickness[Large], LineBox[CompressedData[" 1:eJw9e3lczN37/qCUPdlSSSpJlCwPZamLSlEUopIURUXal2mfmbaZZlrsWSLZ SiTZilBKIpKyZqlHlsgS0Sfx8O33+p377R+vy5mz3Pd1r+e8jVvvv3xDbx6P 19qHx/t/f///P+1mxRqJbcuKX15j/4BYOV3X+KAmhhVhbRkZN/AGYSXYpZSY hLUSHo5BPr33DvsfYRVc2jKxT+Nvwur4mGKkOPgvYU1su7NM/T2HtXDqZIip Lq+ZYR1sU5iabc5hXVyzPqXsyGE9TLYo3e/OYX1kRlQdceXwZAy6hTc2HDbE 0+VjfPQ5bATzmRlxHdz+U7Ht4/yqcA5Pwzip/693fwhPxzHVTea2HJ4Bm5Em n079R/gfGOmYVYzk8Ew07rzjlMHJPwuVnm9dtTlsDPmH/n0e/yJsgvbZhRGF HJ6NaRfvbS3i8ByMGiUTv+DwXEi/rfvPkFtvHqxWjxiZw2FTPO5cXDOFO48Z 7heOcLrHYSBrqVllGMkjAFqVquPUOPnno7npmPxZwoL5cDuldHU0p78FmL++ W2cxYcECXBrqaevFjZvjiYJnkx83bo7dbc433LhxC3Q84M+azY1boP/SAMlf bn9LWJqYJm/k9reEffZ7jzOc/heiSU2p7weSR7AQbYtGlKpx8lnhUsWdrOWk D4EVelV8fLqX0581vj2Z1vW3m8atoT9PTk1GmLcIaRZnba248UWInTDhzUxu fDGapxkMd+XGF0Oxr9q+Ym7cBjfbj1+xoP0ENlC8Z+T3k9vfFv9GLz5fw53P FjXGfe0LuPMvwfSvitHbOH6WQOXbj9fenH6WIlr/97KhnP6WYnyijaYzp187 8N+V2Sdx43ZIjbb/vIMbt4edOK9NRBj2GPJn4kp77vf2cJw6s+wP7Vdmj3oH SZ4et/8yXLQ6fEyfzodlkM+x+TiM42MZ/in5duoHyVu2DFHBU//7l9PPcgjP xW/78JPmL8e3xu87xxIWLIf5weVxaV00fzm+nByvM58wbwVOpur2nUcYK3Cp IPyLiLBgBfLPTG8ZTOuVrUD2vOPrnhDmOeB2xIWuejoPHMDrbT7sC8eXAy6Y R3WqkjxlDrBpHdFoztnfSvgapCo6kj6wEisch0SN4/S3EpqXBmpGEy5bCZO2 gxbnOf2vgv66rTurOf2vwgDLyGdnufmrUDl61Lhwbv4qHN9ueXU4N98RXdbb UrW4/R2R/7+E4rec/h2xTT29Konsq8wR8xpeGI/k7M8JjoXDrE5w+ndCioJv kROnPyes3hEROZPieZkTzM/PSlzVSfOdsafCyb76B813Rsjm6MpdhAXOmD0z 3vwm4TJnaC4c2M+Zm78a/FHzvljQ+liNvIPHcmK4/Vcj0dvMqp3jbzUE85WT E7nzuyAtNqVbi+SFC0pvaDac5PzFBYnRIx/14fTngpb+MVNTOf2tQZe6W9s7 Tv9r4Gk1y2RgL9L/Gqx/trPoBzd/DfK6fxcf5ua7onymbQ4XD+GKW3cuml3h 9ndF1/bzZd2c/l2h+2bty77c+ddiybLLRTxO/2uxUuv04n6kD8FaaJhOcJ/P 6W8tlkk7+9/soPlu4K8am3n2G813Q8n0f8+PJixwg8v1qepyhMvc0Dnu7t0Q wjx3SKun/vWk9TTd4bv2dPaN77Rez/i52AgB8eXujsMzLp+P4PjpGdeTlG8l /8l2x+C+Kxcd5+R1x3eDHSZ7SB/N7lge52Cnw+lvHXgxX3XvEtZch6v5h3Tm kv6xDnv0t2/2Iey+Dn+XDDpmz/GzDt8tb5l/pfnZ6/BA2rF1KcfXOkQK1J2a uP3X4ZqcYfJVLj+uR1b6pbBVdH7N9RixRXVCNWeP69FYNWOxMenffT08re1c 73L6XY+nq2aGnGon+dcj8MCSul+fSf71MHy9ZtOjT7T/egQk1R1cQZjngVtj ZpsICGt6wD1jxR9Xmg8PxLz/2rvlC+3vAbXA7uqfX2l/DxSuKjQTEV/ZHjAb enj7Cs5fPSCn7HHalORr9kDeRqnpUC6/eGK9XP/fmRQ/ND1hHPxe3MDZsyeK dvbLk3D698TW+w7SJk7/nsh7UXinhnC2Jz4U7K61IVzmCTc/a21PWq/ZE195 GxTnc/FzA8Lld+3QJX/Q3IC8Jt/aXE7/G6B75sy9v2Sf7htgrdai5036FmyA 6Ih8lgbpL3sDhlSVFrh8IPk3QKX76zo7qk+bN+DG29W7x7yj/Tdi4fIjLs/e 0v4bcbc1YHMqjWMjercrDtB7T/tvxMYvcvoZbbT/RsS0Pj+WRXxlb4TpCaVN Gpy/bYSNdjmvkeyneSOC5uxfs5PLP17olXXOh6sXNb2wcJ/HwWGc/r0werrr eltO/17gZbz11OpN+vdCpmlzRTLhbC9U3S13DCFc5oU10iqFtzS/2Qvf2t2+ NXP+5409G8SNL4kPTW+c2ttYaE58wBur9KWB6sSHuzei/nwdcZCzf2/08reI 6cfJ7400dGcdIH2VeePiUN+vOW9Ifm8cmfBwptMrkt8HdztFd7uaaH8fCPen 9z37kvb3wYDhTm+OEHb3QUi49p0n9HuBD+bKFiWY03rZPvh9YfaXCtqvzKen Pj0So0P20OyDWLP7DhrkT7xNuHL9eaMr+Y/mJqgvGDtfzMXjTbgf+mAnZ6/u m6AZUhYymrP/TTBYMEdZzOm/Z705kgNL+5D+N0E7ycjamXDzJsTaqw3Ppt/z NuPAudMvJtB6mpth8yxxmjxXT23G4/F9YrMo3rr3/P5k7s7NnP4348wioz0N ZI/Zm3G92nSWBSf/ZvzblVtqSPpq3oy+uqab/zwl+X1hEyRrHfKI5PdF2/y2 /LwG2t8Xlyz+WnbW0/6+6HqjOLHXA9rfF+HH71tdoPnZvph2pDHudSPt74vH NkEbFjTT/r5QH1JwLYT8jbcF3XGXn43g4t8W6Lya11RK/o4tuK+X4ilH8ct9 C6auq3mbzvUDW4CXqa8VOP1vgd/8Eb1zOP1vgYdz0LNYOdL/FpSGZHWlE+b5 wXNtcL86+r2mH0TaZ3qb03rwQ62xVehH2s/dD6Nu3uvdi6v3/fAwYPh0OTpv th+qI0WV1sRHmR+qvBS+TW0h+f2waMaMaUbPSH5/nPDw0SwlfWv6o+HMmDi7 uyS/P0pm/t6/ppr294eaZWKNBfXfAn8UVXl8XlpJ+/vj3oAa14M0XuaPeVO1 7Kfdov39saBRreRpLe0fAI+CWiUz4k8pANXPiptayd80A/B2zeR15hQ/jQIw /66JYT7lHwRAISetgk/6sA/AyjrVD/JcvAqA78P2+g+k34AA6BwzkT8jT/4T gFtrk7ym9GU4IwCLOn1r7Gk8OwAHW0bIj6T5hQG4l7RshCHXjwTgUH34FXmq T+oCUB957usc0n9zz3pNM+/GkP23ByD3n4kDt5G+eYHwd9z0ezHpVykQ/U/3 bwq9SvIHwiRsm+OtCyR/IDpzN/x6cIbkDwQ/9ojB99MkfyBczr/RWEjj7oF4 8Thl0MnzDAcEQjNo1Pu7pcRfIHJaGvk6VQxn9JxngO4qhfvEZyBaHgXtLn3O cGEghoyZ0VdMfJQForRdrFpM9lcXCO/8SwdOUz5pDsTnIZLaH2TP7YE417Ht R2/SNy8I3Zl7tjcqMKwUhLNiycENiuQPQZDk+NTuoXGjICzpnfWNT/wgCEkX M78o0fr2Qag6F1/Qxflrz3ppd4bfpHgbEAT+BcsfvyheC4JQ2+fUt/EPSf4g 5Exac+0b6SM7CMVxRcX6JSR/EOR7v7l2/CTJH4RRzsv/W5hD8gdhkd8z60d7 Sf4gjLt8XvPvLuK/R16NWWrTdhP/wWh5OhW79hH/wdApLA38e5j4D4b162M/ PhG/RsHIvTxbuJvsA8EYpztmZRf5k30wagOmSN6TvbkHw7zhR38TqlcCghGy 7pxOGdcf9Oy385XJHNJnRs/6115box/ZfzCST04KHDOA7D8Yk4It72b3p/gW DMW9FcmXiZ+6YBTsf+2aQHw0B+Odln5kEPlHezB8T+5Iin1N8odg2aFrZqgj +UPw62xAkcJlkj8Et7+uuG17jOQPwbYhx1K3bSf5QzBowPgSiwSSPwTZhTvf bo8g+UOw0Hpz6soQkr9nPWuZ4SfCghCYRUnPLYgi/kMQfsKt7GYS8R+Cxb55 DSnEX2EIulseVjrkEf8hKJw8amHNFeI/BOkNnc+3Ub5qDkHr8a6AzZRv2kNw xu/DfAvu/iAUCmuvDT1M8UUpFB/XvPfcRPrXDMWmnRmnLQaR/YfC/5Q4f/gQ sv9QXPVJXFA7mOw/FLfkPRODBlL8C8WLA8eiB5E/BYSil5L88gtc/RCKPnJa 5drkvxmheOtgHV9A9pMdiqzAJ89PUPwuDEWbRbfaV4ovZaGY+Wuf8d49JH8o tvo9q/1PSPKHwt3q67wjviR/z+/Nbvef5ELyh+FOuUKUuh3xH4bsdLP2q4uI /zB0uFz92GJD/Ifhs8b3g2Urif8wnJuyy+bpRuI/DMUefdfJxxL/YbBJdN0l o/MFhCG92mmc40XiPwwj/nv1Tpfz/zDEH+p2qeX6qTDoJZUPMaR8XRiGy1U2 OWrER1kYRqbHSHYpk/2HIf/5z8DZw8n+w2Bfxfv9eCjFvzBMOV0+OpT8iRcO K+clynbEh1I4plxPF12m+l8zHGp+W9aevEnyh0PRKtd0xRGSPxzNS1J//Yoj +cMRUNl5b7YryR+O62eLThebkvzheL2/4Gu7LskfjpYdrb7vR5H84TD9eSzn qzLJH44SG2+5MBXiPxwDZrrN/TqB+A9Hx5sNFn/NiP9wfNCou5G2lvgPx7NP Ec26ZA/t4cAvqyfTjxL/fFys3zhgCZf/+BjWKNztQ/lFk49ek5N5f0k/Rnwc N+9EL9I/+GhXMevbQfq25+OPt8T90miyfz7Myx+cWqNG9s/HlfS3+u00LuCj 0HLMq4wRFP/4+DVgUtJq8qdsPjxG3/vqxfHPx0LHjLJCyidlfPSdN6f8LOXL Oj7Uf6cX+FO8buaj2vFg0yMJyc9HqXbYmpXrSf4IXHYdbtkym+SPwO7f+2b3 GknyR+DIsPUFOzvZe4hRBL4vzsk/1sQwIuA35KbG9waG7SN66sXgtcKHDLtH ILKkQ6b7huGACKit1m1a2Jv4j8DZzQFalfrEfwRWd5qZmZB/Zkcgvu/c9oB0 4j8CGd3/+v+6TvJHwOcE8q9QPVYXgbHV9ZoGFH+aI3Bv7qC4aapk/xH4b2Ki yTQtsv9IvJ8SGfdUm+w/Eg+X9hXoj6X4FwkDlZ8zNhO/RpEwqXPrVic+EIl/ xKVLf70g+49EBT/WXIPys3skjmb9TTELJfuPxPPGWNs9c0n+SMydpPz0kzzJ H4n6Lx+c7Uh/2ZGY9yl5YUUBw4WRsNF3tKzZyXBZJM6OeX3vnYzhukhMD5xw fgqNN0ciTTancyTNb49E46Gb9mG0Pi8KzxtWmz5UIP6j8G3WVqt3IP6joBOe bDgumvw/CjNyFO4spHoOURi91brXE/IX+yiUChcun0D52T0Kkh8bO0dw9h8F D4Px9z7rkv1HIS7nIioNyP6jcLgzPaxlCtl/FDRr+IvP0XhhFLzn3Ss7MIHi X8945omRP8dQ/IvC/gKVfX+ViP8oWM09tPoR9fvtUZBOmqujx/Uf0Qi9aoL8 ApI/Gm1qasIzJK9mNN68vyWbtZDkj4ZucHev3wNJ/mh8vO8RdJaz/2hk7+7P Uz9A9h+NrHP9shsDyP6jcUokU1VaxrAgGpXW0xMOmTOcEY1Bdn+jrGyJ/2i4 FEYY7fAl/qMxWf693KzDxH806rbz7le1Ef/RGHhVboEpxcPmaMgdyFuvvpP8 PxonNEP3P+fqnxjs1DE3zR9G9h+DGaNf5N2fRPYfg1tTKjadNiH7j4GRyWGD yfPI/mOwe+23bz9nUvyLwdJVWV/N9Ij/GPhvfzrPifJTQAxkgxtrHKjfFcTA MCrY1/wU2X8MfMPfC/y8yP9jMP7TiDX9x5L/x+CnU8fYM49J/hj81Y2y9yd7 r4vB9e6037lryP5joKOvNax2Ktl/DAQBWyuaVMj+YzHU7dXJx8MZVopFy70x +5UmMKwZi7NRw8ufLqX4F4t16f9tWS2h+BeLqqPjrjfeJ/5joXNdJ8pbi/w/ FgP8DP5XyNV/sThheuDPY4pfglismBn5dwDFk4xYLJE/OVyiSfYfi1vuwzw/ /EP2H4tpvrt+PDEn+49Fxbu8BYLFZP+x2FETrLqZcHMsXm0J0HazIPuPhTjC tcGY+OTFQWv/26M1E4n/OMifCzepGUn8x6FTbtu+MvIfozhsPJ5oMZrqZcSh uXxyxkeqb+zj8CfQaFWSG8kfh6cN98cXjiP544AJ0twr/5L9x+HA1yUJjYfI /uNQOkD+kM0Gsv84ONqtG5ZqRPYfh8fhXS8M+xH/cdizOOvlsh8vmPxxsCt4 uLOom+HmOOieCvyxdAzxH4fZl55ZvXUl/gVor1vRdZPe+xUFsMw8KBCMp3gg wGPbaddqqV9SEeDpHL3QT9x9vQA5R3K+S8hf9ASoLRAVuFiRvgS4Iwyu3rac YWMBtmwtb3i6hPxHgFt3CvXz5zBsLYDJTLdVWyj/2AsQG9jtvILu45wE0M3b EaVM/uIuwJ4wWb0x6dtbgJqbQ1vPDSN9CzAp7IKC8C6Tjy/A8tp+DZ1ppH8B wv93VKK+mmGxAEfjFy57RvrOECAmt7XviBEMZwqgeCO/Zoci8SOAcubi4Y0D Gc4VwPm26ZVKLeJLgMIO1xXTFjNcLMDbG323HxcSfwKMXjh1tF4Vw9UC2FbN WLaazl8nQHz0r9Bengw/EcDt4LVF54sovgkw/9xn2yzqt1sFOCA4GfKD8k27 AJ94i+U6pzPc1TNf+VOfjeQPPCHuFhw/cNSWYUUh7mQ9mONMWEmI0oIm5WTy NxUhgv4JVb46jfgXYtexPse1aD89IcaM0LM9RO8rRkJUanWvmE33HcZCWA59 YXOUT/4jxKRxbwb+mcGwtRBdlyzlrnZQPBFiq8s+u9sXGHYSIur8MpvcOMov QjSnRq6stGPYW4gHt7W/FetRvhFi3axY42Tihy/EoD358Wf+Y/4hECLr6q9c 3b8Mi4Uo0Bqu8n4Y8S9E0ajt991MiX8hNlX2bV9K+2cL4Va28+6eB8S/EDoT qy7oGVO8FuLfzuHF8QcZLhbiRtEb62vc+5gQ20OuFQgp3lULYeY20lHdiOKZ EFsGjapfrM/wEyEMfg64OofL70JEftkwYxfdF7YKUWUZEP/Rh/JdDx+m9Wdv 9GG4S4iSM4Mdth8j/xfhYLTi93Bn8n8RXnzbtpY/lvKBCBZlT5oOdTH9qIiw T1jxwK2FYU0RRFFmbxNeMKwnwucTO3hvXzNsJMKcqp3O+//HsLEIstcVCsqU byCCz4CzBzqMGbYWoe5O08DhFP/sRSjvTh9lvZv4F8EyJsd9Xi3xL8LTyj9x KxTJ/0UY/FZ7m9Cc/F+Ekkd/DjjEMMwXQe5km3jIWco/IgRvubWk9V+GxSJ0 XBLdOUL3ARkiNL3iO4eTvjNFiJ9ySWUN5YdsEfYef7xAh+rjXBFeNrywd6N+ v1AEE0fdMgW6/y0W4bzR7lL5LOJfhGEZBXmzqF6pFuGt/uVtg0m+OhHWDBEu G7Kc4SciHNLOOeX/iOK7CN9t5C/kb2S4VQT5wnHVKgMZbhdhc3S/2153njP+ RRgQdXtdUB7DvHg8U9zh1S+HYcV4TLNWSZh8lmGleGTv/MvTf8qwSjw6La48 81Ii/uMx4FjJodsrif94OLbEXKk4RvzHI6otqGhYL3Z+43jcGxCuZ7Oe+I/H yCPRuqNuEv89652vyfKjfsg+HkYKo0S1dL/kFI8gn2n9H9dQ/I/Hi9oBCpX0 HuIdjxlD79vN/0j8x2PoiJ9z6yhf8OOR2CvvzwyKN4J4FLfuCd2QTPE/Hivn DW94epmdPyMe+3mRzke/MPkz43Fxgt69OHOGs+MhKg5R6V3/jPEfj3TLkkVh uQwXxqNu5bgb/SoZLo6H/KVF/eyGs/ll8QgsSdhwR8hwdTy2zojuX/OD4br4 nnxYr+Pgzs7zJB6yO4YqPpeI/3hoOYll0XLs/K3xcH+4SaNlAeX7eOy9cdva I5LhrnissPYqNqF+iJcAwb2DM05TP6uYADnVp0v3D6b83zNu/79kHeqPVRLQ +XrRJKyj/iABQ8/dCPwtYlgvAVd1+w6OP0DxPwHJJX/m88jfjBOwa+/Sl0HX KP4nYJBAeaUH1YPWCcjfEPIpgu577RNwPCtC4Vc28Z+A13n7tVcHE/8JsLrw s3zpROI/ATzz8VY/L1H8T8B/Hh3Hwykf8xMwKs31zAk3iv8JiDuw62W/aKZv cc/vHX3GnJExvjISMPb3ppn3ChsZ/wm4vvpNmmwAw9kJ+Fm1QOZ26SnjPwEt 4sGmQ2sYLkzAsCsGbiYz2e+Le8Yre295/y/DZQkYY3Dxw6t8tl91AmwvKYfm hRL/CXC56KJ1axLxn4DWyECRXBXxn4Btyufm/0P9U2sC7CZrFLUdIf4TIP0A pwcfif+e8wS+FlSrUf+TiKbx/nbnpzKsmIjuHRuLywyI/0RojVBwiCJ7UElE +LDVaybVU3+QCAvT8zvtwxnWS8QsHUP9aMqvRon4hsE2IopPxolQsl+96vVF Jh8Sge+qY1V/M/mtEyGtHFaia86wfSJUsiRvbh9i+nJKhMfVaPfHhgy7J4I/ wcn/zB+mb+9EqHp5PPs0ho0HJGKf0bLawzKG+Ymon9Nu6DyXrS9IxI8ju/Pe DyX+E3E/8fCZ1DaGM3p+/ybMXpjHzp/Z8/vMrxWrZlL+T8SzQ6aL9ksp/yfC bPqrJ28Kqf7r2T/0gNwEql+KE1HsY5CSc5Lqv0TEdv/aeprq/+pEaIcZhh/Z T/E/Edn1jxWdD1L8T0TA13LnzuPU3yUibvk6fC4i/hPhMignIqCU+E+E8qkb s6eUE/89fCW+rt5+lfw/Cafw2+sAzVdMgmLWP9Jj+yj/J6Hqz4wtY/kMqyRh ZPnpt+ELif8kfFo0NFtXnvhPwv3doWUdRcR/En4v/VG11Y74T4Ls4nhxxnPi PwnfDspastYybJ2E7zf/uf34JfHfM9+r38n8zQw7JWGfrsvJEBWG3ZOQfGJ8 c1s349e7Z3x9s+OD8Ww8IAkP0rsFrocY5ifBPqLcOt6D7SdI6nEOrXqpLdV/ SVD554Te90lU/yXho3rw/quUjzOTMEp9bN/8odSfJ2Hdm7F3138i/pPwy+Ca 6bFQ4j8J2z++M4+5y9YvTsLE6AhpowrDZT36L9564EcQxf8kLDJ+NM6qjZ23 LglaIg3x+GSGnyRB+Vpu8QxLhpt7zvf42MEbmgy3JmGl2s3bjsMZbk9C2d4p 6epqDHclwS5uzdDcqQzzknEt4Eyl0iqGFZMx818//wu0n1IyJPrjLR9XMayS DK+Uita+lL80k1Fb7+OQ7s+wXjIUB/F0K54wbJQMhdnTvjosIf6Tsd1Di/+8 mmEko/RrffsNC8r/yfgap7P5DfWj9snI+ZXpV6pO8T8ZxrZxqrpU37onY9dk 7e0l1H97JyPAvUljGOX7gGSkjz7feJLe8/jJsM893+c71YOCZOg1/yjRmEP1 XzJM44ucOp8S/8nwrNkotnQh/pMxNvOm57RKdv7sZOQe1vz+WIPh3GRsyTOz ucBn8hcmIyhqs8btJsr/PfL3u1yR4sZwWTJenHVIffKH2W91MgKtDJb7XmO4 Lhl98neeuHmA4SfJ6EqqUVfPZLg5GXYDow2djjHcmowFFtHdJ24w3J6MARrF qibfGe5KRui0CIVx04h/MWyXXfBTFhL/Yjzv2HT9aAvxL0ZC6YwTQWuo/hNj oPWvCdc+Ev9i9F5e8mX/Nqr/xBD9lVREUHwwEqPtaaDOvi6q/8Twbvo2s4Du syHGxshL9ib0fY61GNpv7R+epPs5ezEK/tkWt4D6XycxlqzYJyj1oPpfDJm2 +6Rhv9l5vMW4OXPJxUke5P9iDJqt/8O4ieUHvhhbplTrl559wvgXI7p1wZVV SgyLxdi9OG73bgWGM8TQ8kzJHpPOcKYYkvkyl21JbL1sMS6fuOF7rZzpN1cM q8EaKTnKxL8YVUdjc3YvI/8XY/Ut28Bcqn/LxFD0T3I+MIvqfzECH4aqvqX3 5DoxTiuvmtBbhfo/Mc4UzYlIon6+WYyixfumrATDrT189DoRUkv9ersY23R/ ef47n/p/MQyCDSeOpvtLngR4/ULjI91fKkrQWZD9dyT1n0oSHA0d6/Iv3Weq SDA5dEj69HHU/0vw/E15kC+dT6/n9w6pj77S+4ORBDkTnNL06fsxYwk2LFw6 So97P5fg/oUSTVN34l8CvotZ5OE75P8943/S5gd/Z/pzkuDpyWsJFnVMv+4S TKkVq33cwPj2luC7X031mTuMnwAJRg48EbTCkPHHl0D/s4NRbMUjxr8Ejv1m Df5w+yHjXwI1nQv7V0cxnCHB+h/Zqz99YzhTAvkXfqHWEx8z/iUoeVI3PeEj Wz9XguPF7S0Gn5k9FPbodwi/8CLlu2IJli17O3tyNPEvgaXb9cW29J5bLcHG RXPMIk2p/5cgX1eofTOc+JfAqvVaSW4a8S+BeGP3lSNS4l8C52EGhh4hxL8E p27tG3LOhviXoFX1/SNtuo/mpeC6R+uYuFSq/1KgviE0ueke5f8UzL+78Wxz K/X/KRA4HbzxiOK7ZgrknJ742x5l+tdLwaIjO/aNcmHyG6Vg3on8rfwhjA/j FJxv2eEW1cT0hxSYzjn6a8gnxod1CmZvFX9548ywfQom/69rexMYdkrBM1VD u8zTDLun4LHNLLfSQ2w97xQYfj7gUfyX8RGQAtkljdqjVD/yU5ATlZm6ZRXl /xSccM069e0T5f8UtKzTLyml+4OMFOx4naA9g97HMlNgMNY/Syea+v8UdM5T Lll8jvr/FBxyWPu/PQ+o/0/B4obR/ctaGC5OwRfR+3OiN3R/nQLluoV35J7T /U8K6uqueA+5Rfyn4ExiUamogPhPwX9rVBt0Of5T4FaQxHPyIf5TcKT9S2k9 xYP2FKw6E+2QS/cTXSm4OO56bBa99/KkENYsqIum92pFKYoEpRpT6b1SSQpj y13fC+k9QUUKk5AXSwzKqf+Xwsrgs9c9ug/Qk/b0p/vGl9lQ/peCd/otTxjK 7MNYCkfH8d8SdzE+IIVcjULL/SvMPqylcJXN6jukN8P2Uqh2T1xrKmR8OkkR 1b8zu8KVYXcpRl1IT9t6kWFvKQbdaeCpHiL/l2J5zZROnjLVf1LM3LL1yqIX xL8UFi7BvuFnqf+XImzPw0kadJ+ZIYXRyT4F82XEvxRVt+bv6tpP/EuRfcVp bOkq4l+KzLZbR9zp+5RCKYZ1P21r2EL1vxSvFjmEFhpR/SeF84LrR99SPVUt xcRNa3iLJlH9J+3pL+8JKsMp/0uhNXikZPD/mHzNUmwval/yI4fhVikkHZOf 9Q5luF2KS92bWu54MdwlhYazwutN4QzzZHjkVbYpkPSlKEP9qSb1/NcMK8kQ ct11fB7Y/ioytMU9NZ16nmFNGVJUcy4lzyf/l+Gak+qeTKofjGRokvt9cORu Jp+xDKr3SkJrHKj+k8G2KKK3QJnqPxmen3vn87uC4r8M/gM6NLeQfTrJ8NYx t+EGfa/oLkM/0frDi0Yx/XvLIGm+V/VxBr23yXC3PYdfRu8RfBkcy380Cuzp /VWG+2r95Y/Te5FYhuknLTct495jZZh2uKphPH2PkylD8TmXn/rUP2fLcKDv mjHDR1H9L4OcptL7fh8o/8uw84WP68CzVP/JENQrxBkZ1P/LkPl75fe5mUzf 1TK8bzecZfWY2XNdj36dLm5aYM/wExnmNF93L//L4l2zDCbJwvQYiqetMrxT PTZD/T3D7TJMaCkf9n4Um98lw6sbRYuzfRjmpSKl/xCn6JcMK6bC1vx+3hE+ 8Z+KC+csjrbNJv5Tob914KxsXSaPZiruletNnGRM9X8qdhnKfELXU/+XipMZ nec/03uhcSr6qWmY76XvUZCKjYXKs1To+zXrVMT1OmxrTd9D2adiwFbPj0b9 if9UmF68G/HTma3vnopg8domYy3K/6lwSnpy1q2W4n8qFF4OXjrlIcsX/FQE 5LiUd2xn+VyQCvvvrybm/kP5PxVeGvVacaco/6eie7m06Nd1Nj8zFYtGJf7J 1mPrZ6ciyPtEyZkddP+TimSDO5u/NVD+T4Xd7ZDz7+qI/1TsXxSd9l8a3f+l QjvG03MH9Q/VqdgWWm3lsJXe81IRGyd8cLKD7n9SsadJZFRrQ/1/Kryr3xlt pX69NRWaaVrjbryi/j8V5+/57T2rSff/qUi0mzq21oHifxpGVzrN+UTfaymm obH4ekMCvVcopeHC1tnaP+l7LZU02Kp5SNtu0/1fGtoUT59ro+8J9NJw6oF8 5TF63zZKQ31YyKl2+h7VOA3qFnsrpnD/vyEN2oePnnKg78Wt03Cg49SHWKr3 7dNwvSNu6PQQuv9Pw4nNC8SPyL/c0zC1I9Kxk/od7zR0qv5qaplI/KchsbfB J4f1jE9+GrYHHL3++FE94z8NBsde7k7sqGP8p+FXpfok2/4MZ6ThwbiSSR9m MpyZBo9I+d0rHe4z/tMg9vfa/XFQA+M/DR9f+mpry7P9CtPQbr0g06yD2U9x GjJmqA8beY6drywNK58NHqg4j/q/NBh6HSp2T6f4n4b1W/u/WXGayfskDUUd rUMVs+n+Lw1GBeETBlM/0ZqGoGNP18d8I/7TMM5of6XRYuI/DT8b5VUdKZ7y 0nHpb734GcUzxXS80tZscAmm/J8OjdqK72tWUP2XjrzG/KrvFM800yGMvSPX ncXsXy8dk6LU7k+bxuKPUToizF0MH+Y/YPynY4jhxO8zXZj+kY67vW8pTs2s u/Z/6eyoLA== "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1WnlcjF0bHiQhSUJZkvQqhELJUi4tZCmTQohGmzaa9mmfmrWpabUUSqJF SAhZyhSRPWslMvZeayh6Lfn6ft3jH7+r85znnPu67u2cZya4B67y6stgMNr6 MRj//7/3X/vCOM2yJc+jDl6kP6Du66n9445lEFaBT+nZXxbhsYTVcX5hbIwZ dwthTfxyMx6wo9aRsBY2FRv0Ed43JzwW2Zqjs249H0tYF7rlyZzFg1qqe7Ee VtSvHrr/g9LCXqwPZ4fuIw8ThhGehFGaeuPvjRxJ2BDcatOw1dZahKdgm4/a xdt+owgb4UT3xo1FfYYTno5BHdseV+zsT9gYKkUDJi6S3qX1TbDcla3UYapO +5uJHwNr49a81SU8CxnrKq6+CJ9CeDZOCsfN+UdnJmFTiN4Oai1rMCNsBubo 5eF5KvMJz8Gpi8+OmSRYEjbHT4ub6/pxQXgulufc8t9ttIjwPPys0bO3nqvA 88GLDvC6VaB4fgEa1lhGXZIr3meBqvjosFRvxXqWULuWG/5z8BzCC9Fv/sJd ISMU+wVYSyTB0sLJvZgLMAPyl87y1aHxRXCZ821T81hlGl8E/UG3Ls9/1mnZ O26FwOys8QZ9NXr55FrBZK9JYXyBNvFrjXP3wmMYFWNo3Bq7GZGC7jcKfWxw +ugJ4a80VRq3gXxyiLGg8SrpYYsMve85dr6atL4tbthJTnbc/Yf2txihTmUB osUmNL4Yw+oD12bdU9i7BK98quxgQPxwlyBp8yfG9c8KPu3wz+CB5/842NC4 Hb7PybS2GbiYxpfilX7bUgvGEhpfik631tmrJxBmLMOMzwNSF22h57nLkM3I HVn4mN7HWA4+n6FzM8OKxpejaHJtn/5uC2l8BdRb+bum1FJ8cFdgmNti7qIz ZA/DHpXT315w9SB7ufYI7xr7sXiPwj8dULKuKFWW8qNXD64D3nnV2P35R8Hv ShRs4ax+802X+F2Jd7+nX9Io0KNxJlQW33l3wIPGwUSmM+/oQI4mPc8E92Qd w8zpRu/7ZUyc5qW3WGpq0/qOqCu6G1feObUXwxGT9PQsjaPI/7mOuKq2nHnV iuyVOeKDKPHDyDfWNH8VRq6YsXLKVeITqyC4WrJvav/lNH8V7oxKvBTra0/z e54PmF3wz3UHmu8EieZTcYvqSprvhNdvGvwnTqZxrhMGdQ06s3DyCprvhH/H TJ3cNnkpzXdGlm/+rCsutjTfGZcOffly5wvFF9e5xx+GM9wiSB+ZM1IP9Ym/ O2Q6zV+NLk/3KaeqtWj+aoibf30ZFKbQYzUmatf4lu4Z18unbDXWvQk9/oA1 ifhfg0vfjldlDZxM/K/B4MbBbwNCaZy7Brc0pC3qlor5a8AevChAUvqR4m8t onQ+jHsWQPGKtfj3LVvT7oEiHtai/G7hkLjJFrT/tUi7MinfgKPwTxdMeNRx R2PuMprvAqPM1W9boolPrgvm/R5/ZW4n5XOZC2ICtA6OyHWi+etw+O+bX5xs Z5q/DktL3ZpvPiDMXYe0I9mmW5YTlq2D7NkvF8u+ivnrUTDtyeFLg+n9WA+1 Uw+Cbg0mvbnrcdetKOCgMfmHbD1Oud9lDnilyH8bUH32m8tBbVOavwHOAX/c Khz1aP4GGJdO3bf8+zfy3w3IqH8imX9X4f+uyPq659RGzjTi3xX6/358+t9N Y+LfFVvn+j0rrppO/LtC+YF4V8EjfZq/EaoLM3a0j+1D8zciWNcsuXCCYv2N mFv7zrUlm+JBthHnsvb4nG6ifMDYhE3/LFg7+YKC/03wLQ66s8mS+OBugo7S izb+HQV/m6AkNt40sXEtzXfDfr2AknF662m+G2asGm1mId5A890w5e7z39M/ E5a54duq4e/zVhBmsNCoqh6wqHhdL9ZlYdeC2F/HR9L7wYK1hyjUoJb0YrFw sHpa54wLCv9gYcEoBveHI+mTz0Jonb9NRa7C31hw3dQp2PiX6qWcBa5jW13f 86/Ifzdj2Im315vOGvTyp7sZX31uq/RbN4v43IwntYftr/DMejFrMy7VmNkr DzAlfTajbP+v2uIi0i9/M1yf9/sjTVYnvTajZNCenKlDKX/KN8Oh0FfH0nsB 2e+Ow2eLvz9eYEf2uwNLT1094aXwR3cMOL78W3vuGrLfHfteXmseHarg1x0a c0dKP2S7kf3uuHqrz0ojj81kvzucSlZ9XuLuTuu7Q10y6OWYM4QZHph7jl16 Zh1hXQ/0uR1ndNSe5sMD56a9lKra0PtZHlA6UVT5QE56cz2gvuK6fMiZ1bS+ ByrXD9h3QZtJ63sgdbvV5+J6ine5BwqmHvbTfjCL1vcEd+BAc4/El731VtcT qDs14sMuRTx44o1N8dcvDnOJf0/UlXxPc9SxJP49MWb4vN+TLi4g/j1hmC8f OmE46SPzBGPhn+zLIZS/5J4IlZi75XENaH0v/Hpm2CQ5QPVY1wsXlA+lRndS /oYXtIQzXgSJFfx7YfyQvU4RqRvJfi/c/upbnK5G/OV7IS+1zz3PV55kvxdG 1F60LdCi/lTuhWp958IQvg+t742opgm5i4b40vreWGgrGf2iiMbhjdy9Krtq nGk+yxvtp+a8fjvZi9b3RrfS6fjGJYr1vVHi6OV7tZL2J/PG4Ja7Tz0taP9y b/T9syGtcjrlN8YWXNh8syF1GMWL7hbIf55MM701gNbfAuMnSn0Sps8k/rfg 1tLTOz04IP63IPjj/aVTtW2I/y0wiHy/YW2BNfG/BcIv3zYWfLEg/reg2ML1 37P9qN4wfND29LPTTIEhre/T09/s/DNPqqiHPphUd8h2/E5F/Ptgas1W3ohu V7LfB8VKdRPXzvEg+33w+/1KQ8Yh4kvmg4kmnY3/SvzJfh/kZGaXte/eRvb7 YsmR024Bjmxa3xcj1gasXF5NGL44uP81p0ZCmOUL92H9r+uyA2l9X7zPuxRt czCA1veFdNl30c6npJ/MF7YJz/ftdSF/kPuCdSO3cWbVJlrfD8qFapouCZRf df0w5bbSoehlCvv9wNqnYhh8ls4rLD9U3Nx0/v0TRf7xA6I+f7i3zJb494O+ 3an6f6qWEf9+SDg8fM+K64Tlfkibs1cl3YaeZ/jDaLvwQF7+bMp//uBfND7b 6TeJ1vfHaZUAvykV1K+w/JE/dfGfP6EuZL8/NFcJtWZFK/zPHzfrnn5a2qCw 3x95QeEIfkh8y/1Rc2HQsNPDg8n+AMxacuRVkmko2R+AC3+uLTAqDaP1A/DI u5+6+ZpwWj8AqbPKAu2nEuYGwPHimKWhk+n5/ABMi/HQWO0WQusHQMT2dMC/ pJ88AF3BYyWLW8kfGFvh7jb360priifdrSi7N/+PXQv5F7aCsVtjrGAW1RvW VtTPWj296qERrb8V7U/qNJaxKT/lbwWqvV952ywn/rdC/GDta81TjsT/VpyO +nkiwXIV8b8Nt0aOS+iY6UD8b0N2a53kainFF7bBJ6Zu7zWxQv9t0OXO2qCa ouhPtuGRjvru/75TvOdvw88hR9haVgr/34a4T74hV86Rv8q3gaXcYPXnM/HD CITUd5zRvh0RZH8gqlad9vRNiyL7A7FiQuymuuIYWj8Q+vMHLP54ms7f3EBE 9/95SFhEOD8Q0475j28Joedlgfi1d2OcuzG9Tx6IBRe1siQMWo/Bxpszko2v tWg/6my4trwZOzd0K+2HjcMFrtPWKuLHmA2hxfYBpa8pn4ENn4vGoql583ox k40n6/2OPRtM9YDVM/5wQ0DFXOKfzcaXq3/yJ9ivpfhh44P5UZXmOpdenN6D t1+tHe+3mvRkY9jL62rXeRQ/5WzIcn2nNhj0I33ZqFi+ymliN/lHAxu/h5vN +dFM9VPOxqYrSUuHnaf80M5Gxnwdd68+5O+MIDQaxGTGcyPJ/iBUZem9MOXG kf1BmF0/JOq9cwLZH4RRUZetrzclkv1BcNN/83ZHGY/sD8J5Q+XzZy4TZgXh 29HFS7tGEmb3PL/T7ty4Y/Q+bhCcc4pMQ+zie3F6z/w5P9dEm5Be+UE4PtAg ZH4g7bc8CEe+uLEzL5E9siDci/grONnEIvuDUJlfvVItnPoxeRC09HKOTvs7 v5ev9iA01Abc9VtD/DKCcXeDu4W526ZerB6M1JZ9gsPnWRQPwWhIvjlG047G jYOxveLiQP0bzhQfwUi5tXLyVXPKh8zgnvrdcJI1QhGvwbiTkjkiwZ38hx2M ne7zfQbYBpH9wfhUGjmwo5JD9gdDR3D88rohXLI/GJYPUhYc4xB/5cFQ8zqa 1O0uJPuDodn+ZEb2TjHZH4wRcxe7RrUlkf3BMH2lMjh3gYT0D4by0TuPByTR OCMEf5+bFZo0ikj/EBzaOCzEx1pA+odAZr9Yxvyp0D8EUz4IDp3xpfhCCFoL 1I4UepM+zBBUK0/eXCWn/MsKAUPrRrjbGKov7BD4LHno6m1A/Sw3BM2XghbP LF5H/h+Csw4ut9P4HuT/IdDGgW/dft7k/yGwvnFTfsTOi/w/BHlHu8PXDCW9 GkIwe9sdy38klP/kPesnBWUaZZM/tIfAYdhJwb4LlG8ZoT3xNpOz65Mi/kNR vFx4KKSE8oluKCaq5NVWVBH/xqEYG2n96pgn8Y1Q/E4aKt7BSSH7Q6Eb9X1G 7dE0sj8UC8ccPWHzIp3sD8UCU9W9H5bQfSI3FH4zRjQt+EPj6aHYbZ28k9Gf cH4PZu4b87aV3l8eir+B4uxdx2l9WSje8rVvfLtJ+2sIxb0Ku1JbNdq/PBTH ZRMenguhetfe877hTlbhHyleGGGQWx57m76D7gfVw/DIWWPOet+N5P9hOLxH NOhUhg/5fxgcWpOqbxRuJf8Pw/5fDy/z9hJmhiHmz6iUtHX0PCsMo3Qmtk3/ uoHyXxgY/ecfN2lWnA/D8Eqofb2IR/GRHoY1Q7m24bsU9TQMCVVxNnOVyP/K w2CArZ1/g8lfZWH48z2lzrlCSvaHYf2w1zf/lhG/8jDsnqK+vLzfdrI/DBfu eO0QHtpB9ofjZGjjH1bMTtI/HP0Y3z4M30JYNxw1ji1v2d70vHE4nE/tuOQk ySL9w9FnV+SILR2kFzMcPpOHLOUcSib9w7GiyjaBd41P+ofj59wR0W2CaLI/ HCV3lcIjZlA+S+/B/gekfZvofJ8fDstJ5j5DBruR/4djtvOlnOW/iG9ZOPLs D+sdnxdC/h+OT5fD22xtQsn/w3GF4WupphxM+S8cGgtLnBgjfCn/RUBXOfrd y8aVpH8EmBa29r/DqJ7rRmCXcFijrhrpYRyBOqeKccaWivwfAbNH5e2uQZRf mBE955nRYzRXE/+sCDQOMVW6bkL8sSPwttIjyTspm+yPgN2b6BaR9h6yPwKH ++o6XDi0l+yPwKnC+LItGrmkfwQ0Uu9URVnRuCwC+97qv22y2k36R2C8Z9CO TLNdpH8EtDbcPnhwLenVHoGAZYc0rJ6TvzA4MBi2/9zREtJHnYOGhrKhE50V /QgH6YM5rQNu0XnXmIPfIxuzIyLJn8GBkkXomp0BQeT/HLzN9cl8Cw75Pwcd lm2GcaOjyf85sH5kdbjhZSTlPw44NRHpDw+RXukcbP9lOvbd9C2U/zhgLX+9 YGeuMdnPwR2j5Qe/36R+UsZBwaBnKVdTKD4aOMCmxBxxJvmfnIOtT9b/evUr k+znwF12JPr3MOKfEYn9MdJzm04Tn+qREB249yDeLp/sj0S/HcP9cor3k/2R qP8jP7F3TQHpH4nj79oDmhYSZkYiI2xM+I6N9DwrEhda484u5Owj/SNx+8jV 0c1fSS9uJDjdP4bY88k/0iNhl7Iip9uE8md+JNZ7R4XcXqyof5EYe+692foF CvsjkT5UM5g3eyn5fyS8Vyz6+DyV/F0eieykXJbyqljy/0j8LB1tOSY1gfw/ ChZMFcR+IqwehQpJvlfeiXjKf1HoZ2rUh/84nPJfFDQGB3dOcKL6hCjErDLK +XSd4oUZBTZjweCpHyi+WVFgMYtev+VRvWVH4dL0A25ZHaQHNwot+97/xeIc sj8K610dA/U2EF/5UfBPLBb99CJ+y6OQx7usU7aTvk/JopC93cN/2pAi0j8K Klfkcf75hOVR6GxR/jxpDuH2KMTtuDpp+i3F961oLOWLTzqG0/vVoxFldq+Z cSGP9I/G6H2f9xsLKZ6Mo1E2V2Mys4b0QTSYq14Y3blO/QozGiXNWkLrbrpP Y0Ujz9Hk7xNlNvl/NPSs3/5nGMAl/4/G6Y66Q/2OC8j/o7GolKmSXici/4/G /EPCA+PqhZT/oqFWeaBv3edEyn/RcDGJSJjRTfHWEA35jcypTe+pfsmjsf3e 6xcBExX9bzReVLldPhRL/sSIwSXDMeFT91L+Vo+BROA+P+Mx2avbg0+UdKww ID2MY9C2dNyIvkMPkP0941n/Cm/+Q/wyY5C2tXJT+e4Ssj8Gsr67rjnPLCX9 Y3Bd53verXOEuTEo6h7dWDWccHrP+4f+zZKZ0vz8GBzWkrz1mlNI+sfgXPKX b6MdKL5kMbjAa59QlUX+09Dz/vfyp6JRZI88Br9t3y32vkL+2B6DfIeLW1fG K85/sZhaueDg/sI48v9YvDl4zSI3Skz+HwvkXBxSJpaS/8fizsTlS9/tTCX/ j8Uqs0ptvZ/JlP9ikfKlJZyjT3qxYmGjb1h6Ypwi/8WCcdm6StOT+m9uLIxv Lq21mUH9Y3osoiJGX+xeTf1Nfix8g+qjrBsof5fHwqhr5LJd56leyGLx6bpn lPsd4qMhFspdM0N0pcSXPBbOWhPdTrUSn+2xmPdzuGqp4DDpH4eClvmDnayO kv5xWPtwX8SsFsK6ceCF7X2pO4mwcRz+pH/OfDiM5iMOo+YfZPQpKyb947Dg t+egxBnkH6w4qHS8Zs56Svtlx+FTlMaJO+dJH24cDspuSu81Ur1JjwMzQmfD 0cUB5P9xeMiImftpiML/49By4ljmfY108v84RDI5awpFmeT/cdiYyZvJSSQs j0NVs9GCrfb0fHscOhLsuC0ZpC8jHkf+LNff6EH6qMcDz/uOHWNI/bluPOoP 2C61LST/MY6H393TZkarqX4iHrnXE6K6jlG/xIyH3aiKF63VlD9Y8fgzKO60 9XLigx2Pqc1tWfM6KV648TibMaxP6QyF/8ej4uL001fqjpD+8XhyrbnIMa6M 9I+HntmL4G7dY6R/PLzr3nyPV4w3xCP5vkEHP4rmy+Ox+od9g/bIQ6R/PE6U ff/Zl6PIf1yU3RL5j5RTf6HCxWGXx/b/vaL+RZ2Lm3Ze9/c60/lMiwvULI4q ukf1XpeLq31TO7lpSb3YkAvRr8ptL62If2MumEn/znMq2t6LzbkYtmbpnh9q hMFFcnPDhupnpI8dFw8nf7j9w5byH5OLhjGbNr84Rf2dCxf5S+Z24xSdX1hc GO+W+HiU0nnNhwv9/hrXYjUoXthcGKk+y+02IP/jcDH1+BDbym0UL1wumkc1 ZIQzKF7EXNRaqTKrZlC8pHMxWzKmdt8z0iebi9Vm3b8MPyn06bF/z8nK5NnE fwkXG1NOTt6epNCLCw9ty+bKKxQ/lVyMfHV8T8Mdih8ZF4N5AQXX99J69T3z T7+RXLMmfRq4yAs1GVLbh/ypiYtvK7y/PQqk+inveV9H6CUNP/LPNi5SdxRN 7DhH8dPORalQa0nBQeKzi4sjLf+VnFTJIP9PwM26r2tHPyK9VBJQI36svc6O xtUTMNrsAVdjL+mrlYAj0W1MYybVG90ElBS8n7Zbme5bDBMQoxS3foUBnc+N E+DX7snNmEjnD/MEfDqVfNDlAfVbSECj3kf2O2+qv3YJYF6MjGt5R3owE3Bi 3o1r9i+JH5cENC8LG+lmTfyxErA+bYP2x7+kh08CXihpjsxTJf7ZCYhSU3V1 XU+YkwBVhwMt2xtJD24Czhj8/ZMUTPPFCTj37/Gnv8Yp4jEBe5Un1uk2Ubxm J0DT35Jnd5L2m5+A50myzN8XyL9KEvAzjXmGu4bipzwBDx6/e830pPuCyh6+ E5YOd02k+xRZAr7u1pBaz6D+qz4B72raDp6YTPmpIQGWWwa52Nwm/ZoSMC3y p+1OE+of5AlgxFt5/e6metaWAMM/Jfplj+k+qT0BiXclI3PWk7909exnkYE1 W5ninZGIgwEThjvvovykkoi5y1T3zRxPfKsnokwcOW7+e+JbKxH8mMeqzi+I T91EPIu1qRgZV076J+LnXu3YK+OOk/6J+BwoCMl1JmyeiLrRg/W/GBBGIsIc XLJz9tJ8u0QUqgfe3xFA+Y2ZiHvasa4nP5M+Lok4W1/b0u8a5TNWIiYaZDIC lUgfn0So615nXj1L8c1OxKi6XWeOGFK/zUlEJWeFN+ekov4kYoXuqNw9vsSX OBExZ9eEBD2l77PpPfvLNQvcOp76t+xEnNm2ryeb0XklPxHbS3S2pRSQniWJ EPaz2XP4Ep0XyxMRr36JvciL1qtMxJOzc8G/QfzLEjHatDCqaBTtvz4RX/Xa j8xXI/9sSMRvQdhrp2ziqykRji1/9/xVraD471lfc/T1u7dOUfwnQnO6263U 5tOkfyKeGp/ePc7iDOmfiAyrMYcHqhJm8KD6u8AuZAM9r8JDpKfjp/yF9D51 Ho4I6z7NvHGS9OehbN6z5jdqJ0h/Hqzc1/zhaiv050H8ru3ApHbyF2Me0uVq m9S2UX9gzoPySDHfsl5xfuJho+uoFZtsKR/Y8WDzMt27mUX5m8nDjEHPbw9+ Q/nEpWc9zXmxuR+pX2LxMPqj1svqkfQ91IeHdY82OsTsof6bzcOWsYE3OE3U X3B69jdrSqSJQyrpz4OeloHvXgbpIebBueW00Nae9pvOg+S0z9iPu8i+7B77 TWZ+dswifvJ5CJbtmmeheY7in4eQG4mjPEqrSH8ezoe2Fo9SlpH+PLROWzu2 NY2wjIfvoomfkmMI1/NQzTE/XnT7IunPQ9Hxdxuev6H3NfGgrjlKECs4T/rz oHVutmNHayXpz0NLwI3HP0co9OdhaOPuWbtB+nXxgDMnj08IJHsYfPQ7OqjG ajPppcKHUoL/jmOG5I/qfLx5FXzogBPFkxYfAdeCb9f3p3jS5SNqUZDqnTOU Xwz5OHpfyebNLLoPMeaju7hzYZUVnTfM+bi1P6dl71k6r4MPX6MTHSsekb52 fDzg6/Tpp+g/mHxsavxqf/04+YcLH45nok/M/0L1gcWH6+/8GUWxlC98+Li/ b9MbJXPSh81HvWpUhsYP0ofDR98v2MucR3xz+YhbxeoyzKgl/fnYoIXpXFwm /fm4zbIIbx5dR/rzkfM0vGDYEML5fNzQjF1qMJGeL+Gj1PiZ7SkRva+cD6uz +951RCv058OrbILPhPQLpD8fc6o91nxkkn71fFTWHh31OYHiu4EPNdODn+3N FfHPh8Eju1+LHij6Oz7ymBMPWKhSvm7jY1WNDn+iEvUP7Xxk3iwW3j1P9xld fKiroc/uROKTIcDifjOlvqvo/KQiwBSDrJZ+I+h+RF2AGVssrap/EtYSIHTN sezvpjRfV4BNU3Pn2/ym9xsKwOx89t8EM9LHWID/Tjlu33mP6qm5AO0LzzmI XpL/QYDqRXkTCjvIXjsBTj35eqsy+CzpL8CGCUPz146tJv0FmH2tSfh8RQ3p L4DDqiGDQhZdIv0FOD0oYNvQU6QHW4CA0Q6bY8NIL44AugMv3Xy4kTBXgOQJ Dy2a3Oh5sQC7vMx4ASmkX7oAIz/f1bbXIv2yBRjKK5YYlpM/5ffs97Fpvy1u 5G8lAkyVtVQYfyb7ygUIDE7fIEqh+KoUYMSyc0GOTyi/yASwLZj2k+OkyP8C mBh4fSmxVtxnCJC/yX1e1wh6vkmAGKO15Sx/0lsugLz/bDULbeK3TYDMPvPu Vowk/2gXYNSb4dvz/ahedwmg+Wb7+TtpivgXYor368JOHcrnKkL8etiyE68o X6gLUVfA6T7zlOzTEsJfpJX4S4n8VVcIx/mmYzvsiQ9DIbSlA4ZPLyT/NhZi Z4RwhN4n0s9cCKX/zo7+wSU+IcQYO/OG3WtJTzsh2Prx/ZVaCTOFGPfCPnBz J2EXITy3/7V2T1DoL8Qzb/2L5dvofT5CrLGrbuGGU75kCyFxTM0Y1U375Qjx OPLvBn2Ffdwe+1UNfBaXUr0VCxGlXnb00Tzy33QhSndu8bx5h+4/soVQjX1w 3u2P4n5WiFlrPyyStZH/lwhhO6uo+5cN6VcuBOvAnOofyxT9vxCuZonrBm4i vmVCdCz/29z0iPitF+Ka9FXFlDu03wYhAoc/NcqZSfm+qYe/YwN3cweSffIe +8K3jG73JX7bhGjQ//U4K4DqR7sQHwsC+g8cTvx0CYFt0+T/ORJmiBBltK/q 3zDCKiKES1zRFEtYXYRHqmcznLwIa4lgPtBo1jN9wroi7FS9ZPzKk9YzFOHQ mOU+EiXaj7EIo2ev5+eqkz+Yi9CoM2rHyTCKb4jQ3ueN3qxpVK/sRKhn/z2X aEf8MEXQkb/29P9F8eMigquFQ95Hd8X9gggdOtW3xC10X+UjgplB96WNbXT/ yxbh7RcvtXYz+l7CESGs+8Eji3WK+0cRXvX9dOFRX6pvYhEuFyvdeLGK4idd hM4XczcVnqf8lC1C0fs624PLSY98EaZbech+CIiPEhF2fSw2LahU5H8Rrj37 J5irQ/mlUoTMbrWnKecIy0QQb7aI7CwhXC/CrGna/h3DCTeIUGp/rfqsIeW3 JhE8vnxYsUqN3i8X4dQjQdYEOa3fJsKRLSqNn10U+ovgYudxvu0D8d8lgpeb 663pIRSvDDH+HTEyRK+F+kEVMaqj50boDVf0f2J8vVPmaqbo97R68LXWfnZZ ivshMVztzI2qi8jfDcXQdcg5snSx4r5QjI9f/bn2hsS3uRjf45L2t3vT93WI odK52QxX6PuCnRgmml28Hb+9SX8x9mx8a5v3jO6PXcTQG8eG0WaKN5YYBz5X ZN+sofzmI8aQrOWy7n8ofthimH5PnHy7hvjhiPHJZ/2ApumK/C9Gg4VyUb+m etJfjNZbb9zfrr9B+otRFtYy3ibuJukvxqCx50LXziacL4bFjlrN8znXSX8x zLx9jWK+XCX9xbi6Uvfc/T0K/cVwV8021epP+UsmxgPOkwMVOuRP9WL8ZCuf qP6jqP9iqPkvj352lfqbJjFqx+3Kz8umeiDv0UPO+DtwBPlvmxgdJX+YVdkU D+1i6Du9uJgQQvdVXWIwfMxW1y2h8ygjCYhZUVE/mL63qSShJO5tw7YP9P1A PQl6SobnTbvoe4BWEvYUj3qdnkbnT90kXOl70qpgOt0HGSbB9bPWuh+piu9l SXj3V/BXeyDdj5knYelGA6WXU2j/SOrRf+GyhVzKx3ZJuJASesf5OfkrMwlc /6Da0QLyf5ck5DL31LySkF6sJMhmmJy52/8W6Z+Eef2vPrmPBtI/qae+Ky8X rbxL+iehm7focYqUMDcJXbELm23e0fPiJKzb25qfee826Z+Emotav+/Zk77Z SRAuHfS9/2nSMz8JKef3ttQ4UT4u6eGz4x8b95PUr5UnIbS7/fvgVrq/qeyx J6DQ1UBE37NkSeA/K9zlEU/3YfVJ8D6UEXDFNr8XN/Tws2Ry0KrXBb24KQlZ N8/EOWgc6MXyJJQfy3iqlry/F7clwbA16CQ7I7cXtydB/sL397WBO3txVxKq v0q+eYyl+xyGBLJrL9yMHq3oxSoS1NrxG432Uf+uLsFu6WZZtYD2ryXBi1tL 8rZL6fytK8Gx7cU1q29TfjCUYIiJW1nyYcrvxhI89qn9HJBD8Wcuwc95u7XF EuIPElhGet6awiY97ST4a/OCtasfxRdTghLvc5snfCc9XCTID64brR1DerEk iMmRX10gJ+wjwYqEtqDKJIX+EvSpD0k8eJPmcyRwmeyVs+096cmVgGk1app/ AeUDsQSGQ92FUVeofqX37O8bs55fQXpmS2A+/UdhSyz5c74EX3775E3YTPeX JRK4x9zb8826sBeXS/DBsvTgwKrDvbhSgiWZBVMjI470YpkEZdxUnZXNJaS/ BMb+ubmqq0jvBgnunb75o0SX/KNJAtzxyZrpovi+I4H8+X99+CZ0XmqTIMh0 7a+zJnS+bpfgt9OcjQdkVD+7JDghu3CmPo/0YiTj3uIXOrarFfk/GSWOFzrZ ShR/6sn4OuTTDn1nRf1PxswwjUezd1P90U2Gzw3/2wH1pKdhMhq2iA9V3bhC +ieDPyHoPpJIX/Nk5P0o+WLZeo30T8YWr7qfbvtJD7tkVGiW/w4rJMzsWc/6 flJINT3vkoxn7gWshdcov7KSofmped03RTz6JGPSy1vZ/ffQftnJuOZ1XWN8 MNnHSYZlR+F91ymK7089+zsJC6ep1C+Ik8Hy026tmkz3n+nJeLpV1NjeSfGV nYwTgnWL7TIP9uL8ZMxawzNpbad4LUmG9VXn3ZP60vzyZGQPfhiUV0v3D5XJ YP9b9zmunOqjLBncwEbNssfUb9QnozbI+qogS5H/k6FUnfYqVZfqdVMyRp42 ibbqIv+UJ2NjoZnRbAnVk7ZkPBnysi3OgvJlezL2D5pxJURRf7qSUVd9PH3d IfJ3Rgp+Z10MCPYjvVRSIM/84XyilbB6Cgqnfp71ug/xrZWCnaHpxVYKfXVT cM5p3IHt0wgbpuBFs7x0sRa93zgFnrn3wt5G0n7MUxDgdjvjug3tFykwrVi/ 6qyiP7FLwYrgooVjrKgfZKYgWDT5qdoT6jdcUnB5hOt7Q7Hi+0oK6ufNdk9e QfXGJwX3ZfpNw5bQfSk7BT4dUX0zHlN8clJg4My+FbyT7lu5Pfv7YXUhtoPu H8QpOPLkrLLqWjo/p6dg4fidfgf3ULxkp2CZjmj8HkW9zk+BxpgPMyrYZE9J Cs4v3ut5oJz4Lk/BmCl62Ukzib/KnvHmv8f1OikeZClQ1vy2qmYA+Xt9CtjG 6+oWJBBuSMHrRO9JpZGEm1KgdGrdwRvKhOUpiOjkum6eR/HRloKTwZOSAyfQ +9tTcFB5gud/l0ifrhTUbp1RavSPQn8pHo3xuzzXhvRRkeLqoyZTXR2yR12K MUk5GWGbqb5pSRHzuvPfM90UT7pSOA+N3+A4U5H/pXgRkvmvJo/Op8ZS6E5G wLC9dF9kLsU7u07p9Br6Xg4pxp3LtTVZsLlXDzsp1nfWm/mU0O9DmVKMVOu7 pjVP0f9JoZV3YcLZCNKHJQWvVD1iyDiKFx8pLnPGn0sqo/6XLUWWnN1mfllx /pfiV0q21QMj6u+4UmRuV/qckXGH9Jdip23Eokon6g/SpYi03XJowtR7pL8U o6Z2G/u7EM6XYsSRy0cnd9LzJVJsW+Y/gqVPuFwKGy+DuIBBVI8qpVhTNo4X kkz9ikwKo5dG10IfKfSXIjl4+r5PaqRfgxQ1H7Qys6xp/01SmNtX36iJVfT/ UjQnZn7TF5G9bVIM12zckWJC+aJdijvPA/wM+lA/3yUF1jvyRvRVnP9T8eEA I1ZtH/XvKqlwncgQHOAofg+Tim2iV7o1hnRfqpWKozoPvx/ToP5RNxVLtsaN 0qun36sapsLGxV/7eCbddxun4pCygecHCzqvmadiy64b48Sm5C9IRVaUxfz2 RPIvu1RwDAo3v2GSvcxU5PxyefB1CvUDLqlo21Wqs0ShDysVZuNdS9tGPiD9 U9GaqL+hzeAR6Z8K6ZP1f6+4N5L+qRDo+j40qCTMTUXGf3P7bjAiLE5F7LJ1 4ktND0n/VOx1f6dy4sN90j8V49bNPzK2hNbPT8XvPqvbMnOovyhJxay6co/D o0jP8lTcNp69fsh/ZE9lKqqHzDpsaEP6yVIx4lVj4ks52V+fiqLPcVNaPlF8 NaTCwfHDk3nHia+mVPQtVfm2Z6Pi/i8VnwIcb4x+Q/HQ1mPPo5DXKZaUH9tT 0Xy/ZJZzIvUrXanY79DP0Bx0v85IwzfbZMczrvT7I5U0PF+bk3TyDd2Hq6dB ryDjZJjie7VWGuyV4uf3TaZ+SDcNGu5/pxefoH7PMA0dW+urbirub4zToPys pK9JDuU/8zTsfutbvu8I+T/SMORJiEPlg7sX/we78855 "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxVmnk4VW3U/5GKRs3Uo5SUhkdE0vxFSqWSiCKOeSgc88w5hzM5x6ESmpUG aTA0z5o1q1RSSkWkREqhp/y812+v/V5v/3R9rnvvfe/7+133Wuvex1iPYDtv FSUlpYYeSkr/8////9ey4P/+r4TjYTstp7GshmUjQ744s6wBafLKVAHLQ6Gt Lb2dy7ImqviX6k6y/A+K1CYeucSyDkKqWsPOszwOGfv4i46wPB5F4dPeZLA8 Abrv/+RvZFkfDmO6zoDlyahte5I3kOWpMCzd8PBsVzPDBvh+Q8fLnmVDXBu9 Jbj9L7ERjK2u/ypgeTpGJqgihGVj3FofFLiSZROozz0zx5rlGYhKfH3LhWVT tBe8D5SzPBNh/eIeV7Bshi2PtjQbse8zC7M21azbzfJspJicvqnOrmcOfKrO jLVieS7seg7kJ7A8Dx4HxfMLWZ4Pl4OG/V6wvABeQ99ObmUZ4FaIt/0l5gHf 97nO+s2Om2PdOI/aenbcHHzO0/Cb7LgFjuj/d3ErO26By45pwf8bH5awcbzQ ocWOW6L92Yh9Bez6FqKqRilYl5i3EJNH3Ws9yOpjhede2qvmEfOsYJJmWNL0 h8YXoeNl5e1LxLxFKB9t51PMji/G9UsWZnfZ8cVou66e2Zt9vjV8/OIifdjn W+N6z1v737HjS9DXPPlHCPt+S/CkdIRzb3Z9S/Hk/FNtR3Z9S6F6TGNWHju+ DBkr7177yI4vQ3mVl7m2Mo3boMr15E8LYp4N5AfH6jiw48uhVlM+0Y4dX47X S4quz2LHV+Dz1hil/uz4Ckj9a2Y+ZOdfCce9q1p57PwrcWzf5VOT2HFbSGzf iXfQ+mCLQy2K7DpWD1vcnjxBl9W/1BZtObcmHGP1XQXJzZXrFxBjFdbG8Lf9 /o/uXwWefKJZPXHpKlyLPXxKlb3fDqPeFwSvZu+3g+rBupxHrF92OOw33iOU nd8OhVOTHKez8bMauQ9SfirTerAaw6uNtQLZ9a7GN8vy8qfEpaux/c6xhGms fvYwm/5KI5YY9uhrKA85zuppj9wjH56WEZfa47vV3t+32PsdUPM0zyefvd8B Xtk3XYLY+x1QWz+5dhR7vwNOS3K2n2L1X4NXJaUR5uz7r8HNMqdXcjbe1sCz R9fkHHb9a+D/8djKk6x+jriQ8ECrhfRFN5cnXHNi9XfEogxz9Y7fdL8jniZ8 5FYSKznBKHBQQScxnGCnVz/Tjb3fCVZXhjop03ylTrA2HWpcyc6/Fj8mL7R/ Qe+HtTj+95pnM/v+a3F97BKZmNV/LVRq4scNZvVbhxLuH6mC1W8d6rbsUfxg 9VuHgaXHMU+F7l8H09qZ/p7ESs6wvDmllmU4o6Fau4q9nueMlGHbnrey+jtD OXvMeRE7vwv8fO5Lulj9XTDRfrKmNxs/LvhqFQw+rafUBTftd/mbsflhPcSp V5zZeMZ6XFgxvR+rN2897F+Hheiz+q/HcpUo272ddL8rEpcqGwYRwxWZE6aK Mol5rog3+mf6UPZ+Vzw8oGJbz/rnhg8aW4JV2PndkPyt4F8Hdv+64SfOTLrH vr8bvB8W5x1k44+D272nbHEnPXQ4MOGJ1vVh9eSgc/rvmq3EHA6axjie6WT1 5cDhpdNpox4M53KgPFgt2pS4lIN/ggMP9Cau4WDuIqNhh1j/3OF4i39ei1jH HT3MO7x92Xhwxy2Jhst2el+OO+5MN5EnsPHljqm7BqvdoPXnumPK6NkPdNl8 446iKRqnz5CeNe5Y3fucXk4H6eeBimYL/5ftDOt44LfLBqtUYnjg1MohD0qI OR4I/XB7+2q6n+eBvdq9kr3p+bkeeODbdf8l65cHWu6Oa9tO71fjgX/5h1rS 2PzlCcGPQ1/v0Pp0PDF21Pium+z6PcFL+tZcwOrvCZN3gov+pCfPEy+rVmxq Y/X3xGXfqL0LVUl/T7Rl+9+xJa7xxKPkhT9HECt54ceV6BU76X4dL/zp3Tmq lvXfC43T58d10PtwvLD6tV7FJ3Z/eGHjkJmLUmk9uV74/sLZeDabL7zwNcZq vhrpUeOFFWY5kZqs/t4oH3e8RfaL9PfGop86WYk/SX9vPLZdM7EnMccbbs0L t04h5nnDKhNV34lzvTHZOTLMgfwq9YbOsYjN81j/vXGm5/yBGRQfSj7wGxg0 aBK9v44PWvi+Bc1sPvDBzPbCIEtWfx/s+/XxWwyrf/f91s5vE0nPXB84NFTe Rk/S3wcm1f0tSohrfCCaHHn9LrGSL0ZLOieKiXV8oZ4VXveJngdf7Jj5sKmT 5uP44qDvN6vb7P7zRdd+h7Uc8ifXF66V6eNPs/vdFz1GKCXuovXW+EL2yibn EKu/H4bty76syurvh/c1UZff/SD9/XB4hmOH13fS3w8z2ywPHGkl/f0wPfBo 2G3iXD+EPLF8cZGuL/VDiqRKW9BG8/thSukfYRfNp+SP8atNPDUoPnT8cWBl u7WQrSf+WHGySzaEjT9/HPZ97VjNrt8fh8ofxwhY/f1huNLSp57V3x+zVnzw +9GL9PfHK4/Pk7N7k/4BaDFY+fQ6sU4ANgYIT0UQIwCKTQpFId3PCUDJl1+O cfR8XgCOZFVf/MTuvwC0RWybN4itVwHo/z//KJ5qAnD5yEDOLzZ/b0DUpf73 O1n9N0A0ovC2F6v/BowJWlkV8o303wDx0hvX1jST/htwp0ypZO5X0n8DKgIn fptHXLoBqgLHxZ50fc0G5Lvah+6j5yltROmsUT+raT6djdC7HRzwkc1/G/Fg XZBVAu1nzkb4eB2JncrW542w6fGzPZNd/0ZM2h41sZzVfyMGNl09cJb0rNmI M4qxhgbqpH8gXB1elozoQ/oH4oaypMyLGIE4t/x91gBiTiCqr7YO0KT7eYEY cnvbvjR6fm4gVIdGilLY+QOxSXlQlhZbfwKhbIPGYLb+BcHB7qC9Kxt/Qdh6 wN20B5t/gvBugaRal9U/CG1Bp04PaiL9g/B5inzUsEbSPwgW3PmGfg2kfxBO 37bWnk5cE4SPE3voJH8i/YNRNyTkx6ovNH8wDlzw7BfXQvMHwyBe+u4q7R9O MJR2NIdXsP1FMDRV6zz12f0fDE5cz0ZvNv8HI175VsFGVv9gZF5uva9Oeipx kbDiwpJB/RjW4GJS8rcyTn/yg4ttkZP2vCM25IL7pOONlBhcbG39J82F7rfl YpDt51H+rF9c6Mb7r7tL83O5+Jbq83c/vR+Piyehmz/o0ftncHG0znqQEq0v lwvnZXayCsonRVzsmXGfM4v0L+1+f+9HtjvqGS7nQrjdSH/9B9Kbizvj/d6V 1zDcwkVwv4d1hsRKIXg1KkV7+zuGNULw/tLi7N515EcIop5Xy2zJX8MQFBfG 2E2ieEAIDi6YIZ5I+dQ2BP/aWu2oZfuVEMhuFpkuoHjkhsBItn34OjZ+Q5Dt c+BWM+mXEQKfXXM+XR9IfoZglXrsgkODGC4KQcfMNtfYweRvCPIdlihPIy4P weXAkgFlGuR39/vlKA47DWC4JQS+vGEKlb7kfyhm9HkzkM2PGqGI2zi81pvt x0KRa1ORakR+GIaCu86w9AC7/lCccna7eY7i2zYU7sf+jvlD+nJCsSrEQNhW xTA3FBmFxl+HvaD47X6+cKnlqWcMZ4RCKtFL7knjuaEIfPRxc79X5H8oZh5S /NpDfpWGQn1lvMKL/CkPhU2R2+cnlM9qQvF6KQx0yI+WUFQ62X1pY+tvGDZM E58WkR4aYbia8GJiGOmnE4aXzkPLfYdS/IehZlXAMN0RFP9hyBh0sH+MJsV/ GI4sO67vQMwJQ2v179pzw8n/MPQ0ut73yhDyPwwdm44OSCe/M8JwQh4xmM1/ uWG40eyoIqT9UhSG+HMrNwnZ/jYMfDMVrc+U38vDENxy1v47G/9h6HEpQsfp JcV/GKzbnMPulVP8h2NFuFP4l7sU/+Fo6r9Wa04ZxX847q0Wu/e9Q/6HY8Sz DXdjHpD/4bCInvLDg/yzDUf6WnM3Dut/OPQnLj9xj/YrNxzWM0q07rDny3CY FXv0mkrxlxGOVJd73icpv+SGY+9DQVUM6V8UDvsHbcW9R1L8h+Pning75dEU /+HoEzdutL4OxX84Nmb9V7WeuCUcOZbhjXl0vVIE9GyO6GiOIv8j8G3pENuW YeR/BARjD2+KIH8Mu6/3jeuppEb+R8Bn4K1jH6nfso3AZanKxSjygxPRHX+F V7Pf0voj0JkjyTJ8TOuPgEbX+1j9mxT/EXBI+zN0zUWK/wiAW78k5AzFfwSO HX3VoExcGgFT69tjV1wg/yOgnr1ZvuwG+R+BhSHVb7fSfC0ROPTCXj/oPfkf CfP/hi+9QfVFIxI7Z6VG6bH9aCQqiib3XsquPxJvXxyfvo3iG5HY83GHKJD0 tY1EVWXdUPMJFP+R+J7os+bMJIr/SASZpUr2Tqb4j8S9kwcO/tEn/yORtvnv v9/Gk/+RsB/1WHCV/CqKxIDpuXX3aD+VRuJTa0pCIsVLeSSmDYtZsJqt95HY Wp/uuI3yVUsk6u3FnPrXtP4ohGv+NjhC8a0RhQntPwuUz1H8R0G3c+LGriMU /1EIitB9kJtH8R+FL63PO07mkv9RmDHzZtlNGudEYcTd4UVdR8n/KAxS7rFo NPnLi8LfyobhHrQfM6LgsaSsbgvl09woPLUZe1tG9bGo+/7V+h29yI/SKPh/ qxhxleK3PApvXt69+4D0r4nCs/I4fZ9pFP9R8PX8N63ThOI/Gq/F8+fNnUnx H42iCPEvbVPyPxpj9ugdvG9E/kfjXUq/tn3kH6K7z1NFVqPGkv/RmKlnMfo6 7R9O9/NRMWg61TtuNMz25rioU3/Ji8YOncM+p6pp/dFIMu74foziNzcay7Pr TeYfp/iPxtDMNZ+Ld1D8R2PC1ZMxSxQU/9E4+lx9l56Y4j8a8dkHuVOIW6Kx RMcs/QNdrxSD/X8nLV+7m/yPQS/dkYeUTpH/Mei77rRyAe0fwxjEOS4qldJ5 BzE4sS3Y/wjla9sY5KVfib9CfnBisGpn5awZU2j9MWi0WDH/PenNi8FuF+9X 1aD4j0FM8Pdl2VYU/zGo/v1t6Bviohj4bm7q89qc/I/Bq53rm3vMJv9j0Pbp 44BOA/K/+3nHbjXFkz8tMbjY6+hzO+oXlGLRcjjs0nyq9xqxcDLZd6Gd6odO LEZ5PpyeTH4YxkLU2GGTcojWH4tN6lE9vUlP21jMzVQZmR5L8R8L21tDq9wD Kf5joT3L581IP/K/+/oLM7xPbCD/Y3EuZfS7U9Hkfywevv9sPDid/I/FQH4i v+MY+R+LaUEnC+89Jf9j0VGcVTiGzo81sXhsl6z6k+pHSyxmH/0aV0/5SCkO guar703n0vrj0Kt589fApRT/cThspV8fu5riPw4WfTq2PFxD8R8Hba35K7zs yf84LOrzNvSEDfkfh9DXAm46+cuNw/VCWVOXIfkfh4eFn9aPGkP+xyF35Ivb n6kfyY1DH9Ovz67SeaCoe1wUO2UX1evSOOy6N2DFx4O0/jjozl2wX4WN/zgE vJzlvGojxX8cRhactTJ2oviPx6MzE7pUbSj+49EVMH+y+hLyPx6Z1dUTLW3J /3gsvhGx28qD/I+HQ/Od3b8Tyf94eBV8PRZ5gPyPR9PZ34qH5A83HqsGjOyV wX4/icfbJd+SqrRp/fGIr/sSfJTyT248/h7Pdvq0jOI/HieUa9+cdab4j4e6 6759ZV4U//HYsvGdZ6wPxX88AnnJx1o55H88joo8Z6o6kP8JaB2V4P7XkvxP QGSbuyiQ8qVOAha8GnfiDdU7wwSklZkJT7Lf5xKQIoh7ofec1p+AR7vO/71M 9YKTgPm9kkS7hbT+BIzebTD5uxfFfwKiBc26T5dS/Ccg+8SwXqvNKP4T8MD+ yg2ZAfmfgAnnHV+mEZcmQHelOMV8FvmfAMdTBqGmK8n/BBjtf6vsxyX/E8Ct W7esi/KnUiK6ZA/UdKj+aCTCOfrJogbqN3USseXPrCTROFp/IlqyeHsl82n9 3bzrslMg7QfbRFgbbcj+5Evxn4hRBZZiyxCK/0SMWVZ7YhcxLxHa20NWafuT /4nQv7HW940T+Z+I97m/zM5YkP+JmHBKbc5r6hdKE7vPJx13k9j6n4izadfH DKTzW00isjvilO6X0PoTEX/2a9w0Ea0/CX8bVTLDOLT+JOxdsDvd3oLiPwnT 3tmZ2E6l+E/CWw21iorRFP9JqFe5k7luJPmfhLCs8fN9xpD/SXi1UPNbJPnF 7Z4vtEzj3WLyPwnrlB/e2MbmvyRUC1XK23PI/ySstXOYEfuQ/E8Cb5dy9S32 fJ+EbY7V/1jq0vqTUD5p2a31lG9qkrDS/4lj5FqK/yTsfjtF/G0DxT8P3k4L P++NYFiNh+zG3JbpxBo8tCz+EB0TwLAmDyV5kYsV5LcOD/N443vlzWFYn4ep y9e05vxD8cKDwb1rq79SvTfjYZ3OAb8K6lfBg8r3Q2fe0v6w5mH4CK+BcWtJ Tx6KDXGxaCbDTt3Xjx2qulmH9OXh18bLk/OHMOzHg8nvi962GqR39/Xb8ub8 HMZwNA/2zcGRU8eT/jzkDVvtWTCbYQkPkcrry41p/gwecgxVBoQkMZzDQ+Y2 n8AL1M/l8tA/5YvgA/X3+TzULDDIi6f8XcSD4PNQm00TGT7Lw9IvFkesKZ5L eehRoDBdQ/6U8WCjP+bxPNK7nIco51Lp0VCGK3nYnftiTSOX/OVB/5HxgOWU /xp46L0ntm/qcvKbh7KTg2uvUz/QzsP4BZ0B5uz5n4/12cttiuk8p8bHnsSN vYJSaT/wMTKl56AkO4Y1+XDVcqt3nkT7g493z83VxpDe+nxUnJugUO5F+4WP +45+BzTVyX8+hhUPiOs/gvzn47/R993z/iX/+UgocRV3UT605cNA8a7xPPUP Tny41TZZPMok//kw9fFyDbpC/vMRHzCt8SF9T+Py0TRoYXEn5YdoPuaECkZc 0aP8w8f5+vnRZ6j+S/g4deXxLPkqykd8hBtNPSDzYDiHD9vTJyddC6T8xEeY gZbTdMpn+Xz4bdt+zYD2VxEfzdqWKffXkf98jJj9ZZ8D7c9SPr7G+//OpPpX xscQ68wPBz9TPufD/Hzve2+2M1zJxxKnzlMm5EcNH6vCqw+/0WK4gY8/Ro1q 9r++Mv7z8XLa5/txXxhu5+PxxX0FD2lcSYDhH34bL6T9oSaA+0U3Qe4C8l+A kmf5vY6FkP8C5IxJbupH/Z+OAKUXLjhn0XlKX4DrupwQXTofGwqQZjJqWSKd D80EOK70+10/6n8hwOgppfe3Un23FsD87lSnR+upngjwVj7R0YL0dhJgomlf I9MYqi8CzC3Tm5HPY9hPgJEVXgV2Aqo3AvhOOr38bjz5L4BTo1j3XBD5L4BD eNCyWY7kvwBdoeZfF1P/kSHAonl3O2dS/OQIkDVZO//XJdr/AqTmJdgbUP3I F0DT5FSJcT/K1wJIqgLL1jxg9D4rwOJ158ZcOspwabfeW6eULCtkuEyA/1ya vvMrGC4XQJeTN+D4cPK/+/3fWjZtoH6uRgBL3yEZTdQPNgjQnrzm63i23xUg RGt233Sq1+0CPB59z2kLxbNSMsYIQ+zDkij/JyOjrt8X962U/5NRGbF0W88D lP+Toa7HUx9aSPk/GVsSy1WHnKT8n4xfPVznzCI2TMagctNCL7reLBmGpiWc MfQ8JKNoq1FSUSb5n4wBcTYb5iWQ/8koOJKUo+RK/idDLJ26aAf5w0mGYKGR CY++L/slY3/RlLRH+2n/J0MhuJ/lOIPyfzKMOOu+nbzL6MtLxu8MqwH7QxiW dOvhu9Zx/0yGM7rnu/jBzEqf4Zxk6Kn1PWyxlOHcZJhc+efp8l0M5ydjsMXn piW0H4uScVo7NzKgkOGzycicsmmbjM7npck4NmNHZ0sw7f9kSM1PtRYepfyf jB1X//v6qJLyfzLOZuQ7XfhO+T8Z31R6bfftovyfDP3iOaY9iFuSsfDGw84b beR/MpRG6tXM+Ej+p+DilCl3fz0m/1Mwf4RZQdU58j8FwtDgnwN3k/8pOD7J eoB7Ivmfgvyfe6e6U37TT4Hy2/K63ez3ghQMf/zg9Wvq981SoCd1zi7cR/k/ BQt+R08xMaX8nwKbW8PjDtxi9LRNwYchZcemOTPslIL7kTENb/80Mf6n4JrD kEk/zzPsl4KpukPLrPYwzE2B+Ymw3hdOMRydghkuUS8jVcn/FHyc8+bvnFTy PwX/vGw9rTyP6n8Khm5etdCAvoflpMDNVNlEjc3/KRid5Thv8R3K/93v02jv YTLwG+N/CkIDdnXJzBg+mwKTKAvl3QsZLk3BaQtRj/0zGS5LwWppaF2uJsPl 3f48NH9W85X8T4Gxw/LGGaXkfwoCEiKmumSQ/ymIEuRyZrmT/93rq1wzOdSY /E/B0Z9uOu30vVVJCPF0zq33pyn/CyEbb9/2m+2HhbjxYdx/T/pS/hfC18bl XMEZRi8dIerdDJ/f8GZYX4izzyr0T2oybChEVEnH3b0VjP5mQpiueOMbQP5A iCf6J04G8hi2FqLC6d74+iSGbYVQ6zlQcfIAw05CaChbrdv8i/wXoiHdLkc9 ipnPT4j72sHjhdR/c4UwcpM+m0LngWghdHP/eZFB8coTYsTBuN6PL1D+F8LS ob/Tf+qM/hlCbNMsyXo9m+Gc7vf52+rfYM1wrhDKXQ7LrpownC9EVcyXYRWq 5L8Qz366Xhh8neq/EEkN5sMfU/0qFYKfhwlWtF/KhKgLHec6jL6HlQuxbLXk Xqsv5X8hcq+2W45WpfwvRPrl4ud5Rcz6G4RoMb/1qGoD1X8hDr7YZD/ahOq/ ELt8TuobqVH9F+FJ39KhYfWMnmoi6Jl7Nv95zLCGCJ/yb2idKGNYUwTBh+Yx sx4wrCPCJX6+3ft3DOuLoPHzbUOwOvkvgnFj05F9ixg2656v6MLYtB0MQwS+ o77yITXa/yIsHDb3zFkZ9X8ihNYeU99A3zudRFiyu2ZmDZ3/OSKoTm+6138/ 5X8RHqz5Eer/luq/CHPis1J8ezJ+RIsQMMQwdw3tT54IOeou9ss6yX8R2uXt ewPKqP6L0HNk5Plq6i9yROAu/aulT/10rghZf8WFFbR/8kUYaOSiJdSl/C+C bcnLjJPHqP6LIMvQ21+6luq/CFvrPNufTqD6L8LhYsPlIwZR/RdBq/GxUtwQ hitFWDwjc0Yt1aMaEbyH7hry0ob8F8EnrzK0Io78F+GOr9q+9SfIfxEc48O3 t30j/8VQ0cvOrKX8qybGXO2P2s182v9irCtpFf18QvtfjH+HDRhznfoLHTHO pBsv1KfzjL4YTb/Ujq+i84lhNwc58dt2Uv4Xg3Mttu7kDar/YuwZye1r8IHq vxhO+c8K3am+2YrhLXKak9hC/oth1tAnsNcL8l8MobZVu/ZB8l+M5bV67tn0 vYfbzWPuhS1k+38xYp21nq2k/oknxu5REXmjqD+TiBF3J+6r2Sqq/2LMcp1W JuxF9V+Mvit+NYW2MvGeK4bJBEezjYOp/ovRq/jbyQ/rGS4Sw3DUn+9NZeS/ GFvjftgfWUTfb8S4oDvPWv8ew2ViaNm/2WJL/UG5GEN6v902jPq1SjGqxm+9 WptF+V8MRWMfqRLp2SDGod2qZdJPlP/F6KfItuyrxsR7uxg3X6S09tVhWEmC IYV7y04bMawmwSj79fN2zWVYQwKurcaErAUMa0qQ6uq28xLVMx0JAj2GPs7V Y1hfgixReZ/9PRg2lMDmseuuI+XkvwRu2h6ef2XkvwR98hIdZ9N5wFoCu+nS cxPoe7+tBHrOOz1V66n+SzCsSneDiQHDHAkm9e2Ut22n+t/9fss+BDlZUP2X IGBe7w0qxlT/u9e30WaraSjDPAl+/qptq+5kWCLB286ORxmXyX8Jfrz5Xa2b T+d/CXZp5eanrqT9L8Gl3fmH99yk+i9BlWbDlHFTKf9L0FX5e4xmPNV/CcpP Vqj7l1D9l6BC+DXv3COq/xL8uTPMOeoF1X8J+mrlC9wfMlwpgV/91+oR5xiu 6V5v9ekD43Yw3CDBFpWEtq2RDLdI8Cph+eTJNuS/BOPeNC1MH0X+S9F0dmBJ Be0/NSmKneS6L/Oo/5OiUay39CbVS00phrs5tGbS+U5HitaBCYdWrKfznxTX 9n9alpBL+V+K3WpBJ9LrqP5L4Zuwe3fCHKr/UgTu6hc69uQXxn8pIDk29Lc7 w7ZSaJltDYYDw05S5OxZNPh2DsMcKdYq+p/ynEb+S5GZMjlgIe1HrhRbgty3 5RpS/ZcirFKrMNqM6r8Ue44dm1/9kvK/FCO8C1sqN1D9lyK1fW2Z51uq/936 DNYJ2zOplfFfil/zO6e9sWI4X4pJPVwDo00ZLpLiydwAleoeDJ+VgisZMfst +VcqhaxYOWihF/kvxfmcU/+O7Ef+S9Hxc8Xty6dp/0ux7Fr2CDf2+7YUndss SobS700NUniUaMW30vm8RYrDeQujqqgfapfCISspZOpOyv+piFEaUOv8D8Nq qaiYO001eC/V/1Sox2+ysTag+p+KK8bRxg9uM/rrdI+vNxhcFc6wfiq0zvdO b5rHsGEqWu/1FEVPZdgsFe+HzUi4s4RhpKKlKMhi+y7yPxURW05sXTuV+r9U RB1/pOPeRv1fKjYW9LFyp/rFScWeN1dLSige/VKxvvGtV8geyv+pGKAx/Pwu A6r/qVhu+eJi9EGq/6nY7fhi46x2hiWpWPnHYOd3TcavjFRMMaxd7KrKcE4q bpt+ck+8TP1fKo7t98idspr6v1R8fOt5cMBT+v6TijUR//kOpXxxtluvTS64 R/mkNBUHf6K33jOq/6kwVLjFTqb6Xt49rtn78bhcZv2VqXhQ9J1rYcZwTSo4 Km2V0z8z+jWk4lSFZXwQ7aeWVOz4OrDwbgbD7anoo+b/WpHIsJIMa13zXjsm MKwmw49FvxM/pjGsIUOW/WK1D8UMa8pwXb9y8haaT0eG/ne4u2LmUf8nw5DM sN4Vhxk2lCH3aZpVkxH1fzK8KFrqBlovZNC5u0slMoP6PxlCr99aZUD9la0M LxVvL8mp3jnJcCTjq3V7O9V/GQ65LRX0Xcbo7ydDlE9aZTyfYa4Mw++n1Gts Jv9lyAhQm6NP+ZEng2fopMBF/5L/MkRr1X6RXKb+T4bx51+49aJ8kSMD7tQd 3ulI339k8H+/w7BzDdV/Ga6s/7TXX8Ksv0iGsqpNp7Q7GL3OyiB/frah4jDD pTJ0vYv3zNvMcJkMm2Nuu8sPMVwuw/RAAd/0NcOV3fernXfUmUD+y1B+Y11x UgLDDTIU1Smez69muEUGifOixUIL6v9kCP4SdGc4fX9SkuP4eWNREX2vUJND 8L7JP5T6bw05Qj/7tR2mv5/SlOPI1xqnFfMo/8uRHXL74tFY6v/kuOOmdaaO 8pWhHCMKft39SudXMzl6HvzZwhnN6A05nrzrWRBL/YW1HCpJR+4kk5+2ctQN nrnqxhyGneTgFzW/0evLMEeOWCf5hZVnaf/L8WyFbtiexbT/5eh9/imvj4Ty vxw/am//eED9MU+OcZu+tdekU/2XQ9HV2ju9jtE7Q47w5bJ1/uRPjhzJfUYW 6u9kOFeOzzNEwlHkb74cs5X0VD0yyX85bAKN5+jaU/8nh/arTNkByselcpj+ 7Gd7gH5vL5PDyKrXzSH0+3O5HLYtM4yUKP4r5bC4M+5mzDPK/3J0JugXXKTz aoMcy5+FlnPpPNoiR1l1UVgfR6r/3f4drTMNCqX6n4aSFVvaL4mo/0vD2F6e OmZbqP9LQ/Ryo6YxWdT/pUExYsn1E3Lq/9LQ+KzI2yqM+r9uvmWUlWVF/V8a FuqH/NhP36PM0lAabbS7B+VnpKF4luGDo/T3PtZpGKLk5nqYfg+wTQNvdpXo Wg/q/9Lwynyx0qxmqv9pWPPYdfBmTYb90nDz97jtov2fGf/T8GhR0GPDIwxH p0Gs0v/GFyPmel4aKoZ7zEmcRP6nYY9zn+l3uNT/pWFF9Y0jcvr7w5w05P7t d/3jLur/0vDO72Vx5QzK/2k4HXZ5o08B9X9p6JhwW6jTQf1fGmzfK6olE5h6 UpqGtZ8rVvBmM1yWhp09tR5WzWW4PA15q4y3+RgzXJmGtO9rSmPHMlyTBn3V haPc1Rhu6H7fGa+cW+rJ/zQ8/iBaqnKF/E9DWLNg0kUZ+a+AmfIn82u039QU SD8Qaxz7H/V/CpQWN/3l7aD9r0BCY7t9OP2epaPANht/G2P6vVRfgdOT/7WM 06L+T4FFS2T1lz9S/Vcgfv+1+39vMn5AAbXGqIGfqxoZ/xV4oVpm77KMYdvu 5/f2vHl2JsNOCjQPnvd31QmGOQqMnnFwZfFl5nl+Cgx0H9invxX1/wrYpIb9 Ttam/a9A9Z+bc80k1P8pUDvtucSFS/lfgSeNI+qVplL9V6DjZVuvpMNU/xWI ffr4/fla6v8UcH93OfPKR+r/FNjhmamuKKX+T4EtfX7oViZT/6eAtmB80dl5 5L8C//j3XLqsjfo/BVxaxk3/c5T6v+71vi/2EVN/WKnA5yXhsb4jqf9XoK/K kWHH7lP/p0Cyvwlc6PtSiwJtZTKlw/T3c+0KKNvt3hsaSb9/p6NObfnNvvT9 Wi0dm661XrtRQv1fOk43L6hafInqfzqEitIP4tuM3jrd10+6kpbynvFDPx2J 1/0/fx/PsGE6vOyK1RwOf2L8T0eUdMo7+1SGkQ6XiAcaHdWfFvw/x9yrHQ== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxVW3lYjN/7HnuWCEUIQ5bK0oJPRcudaFFoL6EmtG/Tvtc0U9OsFYkQRSSy RJZSNFmzh1SyjT17lsj+7Xf1zB8//7ju67znPe+57+e5n+ecYdKacCff3gwG o70Pg/F/f/f86TBn/P8/MN7UbHxj54C6HqiE6nF5Vhq/RhFWgVtIRIetI5Ow Ki5sLdH8pD6FsDquOSyoOFk4jbAGLv1Ue7Lu+HTCTMT0XbYydZkCT8anh45z GwOmEp6CiUqbPlwYN5nwNMw8IYg31xlHWAuFv5su/ZulQlgHweIrb/dYfzzT g2ciX/hlmO+1XrSv2VjD8XmVFKVGWA+1H0be6J/AJKwP1o8DV3kOUwkbIDxm dtW/t1qE54CZrDlWe+AMwnNxUcdcsihZgedhyj11ow1zdAj/h7RZDncnGU8n bIiT7UbL249OJmyEghplvvLZMYSNIb155L51oBLh+Zj3bFBgiPgZ7WcBfgq3 fAu1GU77NYHginO9JWsiYVNo+F772vhKwZ8ZtKqvqvKf6BA2x2o/ydOVi2cT BjL/SX/q3dHtwRzAZ7FX0wx/wgwL1KnYLZL8nknjFigboRKy9ZAWjS9EhJla ZtFJ0oezENsLP7o+u6+ID0s887Rzr/nxo+f7OZb40MEdlOjej/a3CAcSnj+b uGFcD+YsQqh46bI7uQr+F4MrPKr9QWcmjS8G339TUtgGPRq3Qt95esb1ww1o vBtzBoZfjybMsMawD8PfmB7Sp3Fr8Cpla+v4ujRuA+u6BNuCAm0at4FGW0lR 5YtJNG4LG8mjzeH1w2ncFmvm2/TxDnlIeizBvN/HPkRfUqP9L4G/uFhtsr8i /u3Aq/lku6JVwZ8dvv89sHRUkz6N26Oq4v3iYN25NG4P30cBY3s7zaPxpdiS whiaMpkwZynGXdjed0HhHBpfhm0NXlsGNOrR+DLULNNX/n1Rm8aXI+WLztwl Eyg/OcshqHJzfNzWl8YdwLnzsHzAhIE9+4MDdgo6VbJKaf8cB/zZ5bz9+izi X+aAShOjq5c3Kfh1BKrvpKv1+4/mO6JkwbyvczSNaL4jFvzeds7sImGZI34+ 1T7m1GZI853w2vRjGXfdPJrvhFfym7eNeAq9nMBbFVP98B7ln8wJoo7AsSrH FfnijEHb+rXZB9T16AFn8CYs/m5vRf7Acca7EalKYxMp/mXO+FKw5UHbdwPa vwsWpGhWKu807MFwgdYZxjn1V/NpvgtOd1bPN5Oa0HwX7JvhrXoqnDDDFfht ahrEp+fhigXmsSuuvfiP5ruifU7qoYVnSG+ZK7zOjhruXKnwQzccGXJyJns1 +RfcsD/3xnXty0No/264dvzyMIeUabR/N/y9cC2Xu1rBvzveaI3YqJ9G/MId 7cqJw98Zm9J8d2h+OPOjbRxovjtkh5X8THYQZnjAAnan3NUIwwP/+d29iP6K +R6obu3nad5Jesk84Ctb6uVvRvowVuDmHofTNSLyM6zAngVOvUwL5WY981fA hG00JfATxZ9sBYKnMW5Mn6yIf0/0Hzi4pajdiPbvicHLzX68tjEn/jyRnMSI 7ffGguZ7wrJqUp3tOEuavxIqw3S8Jk0kjJU4Zf7xQ+MHep6zEgMWeawPnEXv k63ECjX2j53BtB5jFZQnX5eM+UR+h1VwMR6YP8hqDM1fhbqajNnPDw+j/a+C 8fFKHb8EygfGaoyUlfeZ/JD4wWqs7n/hv5sKvjmrcaosW2++lyXNX43gG980 zyQupvleMOjV/NPc2orme+Fiue/yVwdpnOOF9pHzcwwPK+Z7Qbc+oLNujUI/ b8TcjffnvVOs7417ma8cph6k+sPxhmZ8hveU4J89esi8Ybv+mnFsk8KfWPgb n1xhMIbilcnCza295jY5gfhgYZl8870Bhxf1YBYLcyP/VZ26a038sMDee+Xi UaltDy5mQW1QLmSVhGUsPJLHB88wtenBchYWtOmL9hktpvV98OKowdCm67Qe 0wcvlVQ2esfS98AHF+vUh3PtNGl9H5TM2JuQsEyF9ueD9h2jguseUzwWd49X DdXd9MSM+PLBXEPHuumTiE+5Dw6WPh0XWGRL/K1B8B589dxq34OZa1A5XOL0 pnkp8bkGsVr1R6/OJcxag3P6kfKNR5bQ+mvQmiF89SWQ9Cteg9RrrN7XChT5 tgba4rLXblpzaP016OV0bGIzj/KbsRYpkty/Tabk18y1eDPoqMVnb/IXrMWs wb/Fae7EF2stCvMHjn6+1I74X4ua082xogPLif+1iPi542HmCEfify2+3PEu nWpJWL4WBwyHjbjn7UD8r8Oj/H8Xop7a0/rrMPiVeeNjJumLdVgvm/2scjPl D2sdUkNFNRnzZ9H668AfM3VBZJgy7X8dLPwxyXc21QPZOjTaqr/p/5jiV74O 7y5PKJq6w4727wuLladKJrQ7EP++WBg18syd3s7Evy+4Hl7ORzoJs3zx1nRS 7N0ywhxf6Me2pNqpO9H6vtjsmjfNYP8yWt8X4QI77RMDrWl9X4gtbw/jpy2g 9f3QqD3S7PbDsbS+H3iqZh32nbQ/+OHmifq0mHELaf9+qFI7bZhzU8G/H56X TgpN+UX8FvthucPOtRP7uBL/fsi7Fm2odNmN+PfDw7H7W5VnuBP//vCOZr4p 0qBxpj/ap3jczt/rTOv7Q/9ZbURYC+nL8oe6galYd74Vre+PQc+We+b3o3wp 9kdhaPvAB7G9af/+qGm1/jdMlfYr98fh5vXXdvgo4j8AxY01jdxvjrT/AHSY mKnwTNyI/wDcLN/oqPzfCuI/ANM3qMUfL/Mk/gOQUzR1r3oE4eIALJ60Mt6R 70HrByDqz4cl53+50PoB8C1L6/uVQXozAiGMrJwddYbigxkIXO2XxC6nfhmB CHi06FedEdULViAsPE2fnXmj2H8gPHYttH410In2HwhbmYnylu3ErywQnx8b SUturST+u8fZ4oPlq7yI/yAknakxWTrMm/gPQt3hfWrNzauJ/yCc17WaP/+M J60fhMF1Rx97vyd9OUGIW3L83culivwLwsyyw1ffCcnPZEGQZKuPHTv2TU9/ Ig+C8gjH+rTJCv8Oxr5hmc/9ByniPxirOxp3sv9zp/0H48clTR87jdXEfzCG Jh5fYLqPRfwH46Sh4b+l53yI/+73zdrQOvQsYVkw+vxKKasqpOflwWg4uNB9 XM0qWj8EggTJ5ZGLSG9mCBDwDG5+5IcIQeRWbWmT2lxaPwS50VYn9l+i/okT gtpVYysu7SX/KA6Ba1HAo+1Q8N893+LYgM1PiW95COxCxluyVq0h/kPRVrv/ qK/uOuK/G2f1UVl/mTBCcTxi2/lZ4wmzQhFyivdivB7N54Ri/DINf9F/9P7i UHSpOLSOGUH5JAvF/PVDBBXXFPUnFDt+/BuR+1NxfgxDwIETfgf5C2n/Ychv PWaS90PhP2Hoa875uKhKwX8YRg5Zv8T2wxriPwzqo5uinr/xJf7DcPBsTv3N zf7EfxislhidfHqdsDwMNmNbfz9O9iP+w3FL/V324ENraf1w3KkWGL0a6E3r h0O/aMB7k2TKH1Y44v7lWcw8pOgvwqG9xcLBjE96FIdjatZ7tbLNCv8Px+0v /dTLj1I8y8MxRDvlxZaRxCeDjejOwti8yQE9WIUNLef+z9bXB5EebFye+97J 7FxwD9Zjw1q++8vpkYTBxkftF8Zjq2m+AxvPJhc3G95W6MXGbkHHnkBtyi82 G2cvzNj6I4/ylcPGQfVZ04296Ptz2Qi2DXxw6h/5QTEbltaBK1+7kZ9UsLHJ 58qcoovEv4yNyRlb9Q6vC+jBjWxsS/K90bIrhPhm44vR/c0TdMN7cAcb9tlf 9MfeJMyIwKHpz5Oe+ob1YJUIbGYurAroCiI9ItAi1J4cfZj01YtA+I7iISsP UjwgAufZvWY886F65hCBDF6//QF5dN5jReCBwahzbb9daP8RaPAeNW/WMUX8 RiBb+/oS6eNA2n8EFl6fH3c7K5z0jMCN5QMTzfdG9OCKCDz5adjplRhJ+kbg aJmrbS9dwo0ROF0XenRoA5v0joCFnf545yMhPbgjAtOvMGZo9PMj/SPBuaUV b95I/qgSiZa7ayuZutRPMyPRFXH9UJMx6aEXiVET7YrSjpF/IBIOdruL51tR fDtE4vh2p17y3sQvq3vc/VKAaWZkD2ZHopeh1kulmGiK30iwdU97ek2N6cG5 kXhZuyDULIXGiyOxdkmB5EQCza+IRN1ljwglFukli0TZzwpexDbSpzESfwKK oO1JfiaPRNHB0KnM0Qzaf/f46rW2R1oU9TcK/Zq9hoYq+9P+o7CpPqVlehTx x4zCjdaVqo3+0RT/Ueh86BikphlH8R+FLznDS5UT4in+o5Cw3+6QlithVhRc Pz389bw6lvSPQlw//XOD66JI/yjc/aC5YvwE0js3Ci7+Y95OaaD8KY6C0ZA6 74GqlC8VUbg9ay435g7Vc1kUxnIu/XmpSv7eGAVpzjDr8iGK+I+CfuqkCx+d oyj+ozB7ZT8nq61xFP/ReHzvwp0LwkSK/2jkDkxwjnqaRPEfjRtj3UyWJxLW i8aYGLUrYy0TSP9onH5k+SZzGennEA2ryNIzxUUK/bvf39R61H4u5Ss7Giuv uoYZnDQm/aMhvH9eNKbCg/YfjR+q1ZuuBpC/FEfjQvENblsC8V8RDZHz9c4j AxIp/qOR07ks2alXKsV/NEbxTYcPU+VQ/Efj1jy71PezCXd0r19gGf2mhJ5n xGD2VPtypnoS6R8D5Y9LRjp0xJD+MSjvbemk+TaM9I/BFZsb3wYxWKR/DPw/ beswdnrdc75yiMFexP6xFJAerBiwcz21Js5l0/5jcJlbWXPMn/jnxKA2npN9 NjiF4j8GYfsLZYlvOBT/MYj4pMk/qMml+I/Bv7uqlzPNCcu61/88KztuZjrp H4MdKcdOGLfR++QxGMayHq4yj9br6P4eD63ylvWhpH8snicMuB0cR/VFJRb/ Ql9qPconv2LGYvR+H9ehGxX7j0Xuo5ZDBlsovhGLwQ5flp77j/h1iMXFkHeR IiaP4j8WfRLN55Tfz6D4j0WKocbi8w6ZFP+xUPVrc7qTSuO5sWizsv23KZ5L +sdilcu4W9x60qsiFnlDDYpfXKV8ksVCfOvFwF+/qV41xmIue1/Dry1LSP9Y BLXqyR2uk191xOKFxLV2uSSC9h+HfReiuAE6FN8qcfj2zWJhfh3xyYyDMLbX tymMTIr/OEwumXzy2ugsiv84XFlkKaq/TdghDtEGR29IhxJmxeFR4tKfI2UZ pH8czteYp4V1kb6cOHhz88Rfb5A+uXHoLDphODaE/LQ4DkYTrqtG1tJ9RUUc pmmWOnxWJj1kccgJ/NQ0up7itzEOeR9CfF/4Ef/yOLwMajdVrcyi+I9DW+WR TVYpIor/eNz/YFk0YYeY4j8em1pOnfs1lDAzHo+zb45wfikg/eNRxl7IT3Qk /RCPwLberbukCv3jEWU4deGEc5Q/rHicOpFeprmO6h27+/2jk7ZL25bT/uPx /Gh4uf1U0iM3HufN/fr030fxWxwPpVljL0ayib+KeCT/8tTJHCmk+I9H7fGb G3aGSij+4zHQVXS64L9siv94tDM9mzXnEe6Ix6X33/U1rOl5RgJc3DjHDwQK SP8ELDePM26uo/xiJmD9r9tT/umQPnoJONHfMSrtHZ13kIC/a+c8vu3mS/tP QN9dOXXJdaQHKwHPtJa9K9xKfLETsDV20vSJn4hfTgKcp7vfizXMpfhPgOWj +79v+66n+E9A8vdUk8w4whUJeLllXU3vOHpeloCq0BuHvveSkv4J8PwZHTUg hfSWJ+C/WrdnsWcU/peA/Nr+B5qdqF9gJMIkbfn2t510X6aSiPN7r65eNIDq BzMReyNvFPidIT30ErHBK7P+3QQ+7T8R1dtMd53xIz4dErEt/mCdxqFciv9E 2M3zP33eeQPFfyJqHhjN2f2bMCcRiwtsVuQJCecmYkig7gPL1zS/OBFL7Af0 i1pA769IREetd3FROsWDLBFvXjVM1RobS/on4kWGfGP/frNJ/0QMv+nE6/uN 6kdHIvZpuH0//YX8hpGEQWe/syLGZdP+k6B5tmZ30rYNFP9JcAkafqX60UaK /yScy134d3dlPsV/EqZa83NGjiHskITn68+efDAzj/RPQrbGSeYDTdKLnYT5 T1sufEujfOIkATcOv149Lo30T4LcdN6hnBbqR4qTwHmdp+mS7EX7T8Klw7UL g45QvZYl4bL60uQQK9KjMQmJ3/U63MwV8Z+EY7fPFzTFEL8dSThc+8Zm84+N FP/JmNJfexwrbRPFfzIMiw2q2h4RZiZj99JFfbd9zyf9k9E/zlrf/mQe6Z8M kdrZaRIm6eWQjId+rhkuu+h7WMl4LtDkVqmTPuxkDFgf2ajHofMiJxnKcttP aW0ptP9kOJ2J/GboRvlRnIzKurdT3X6SHhXJuBbCqDb8sIniPxmzuJvLtAy2 UPwnw2XKyq6CHYTlyYgbJ2eVmxSQ/sm4uP9Jq7IF6cVIgfC3lXfBP9JHJQVP a37qnTtB+cNMgcDk/uTKR1Tv9FIQdEUgcbZZQPqnYFat2ULV99SvOqQgRuLh CBWqF6wUKEeYsbwKSA92Ci6ZzDy11Yf446TgRsUw7rY9xHduCvIltqZFnQUU /ylw9VMLyJq9lfRPwYoapbuLFFiWAvG4UeE3W+j5xhREumqf0h9D75OnwD9h 8Pl/n9eT/ilQL7HSnsUg/2SkQv2f8ZZfH8nfVFKRHvLEdtxOun9ipiK44W+h uWU67T8VXvF2ModFObT/VPxL2qvrtk0R/6n47Xitzfcn8c9KBZf/pvGJQyHF fyryLo34EeJPmJOK/7L8VrlYbyX9U5EwKKJ5iyHpW5yKSqN20xsHSZ+KVEzI 88wYH0b5K0vFZNMtn/P/Kep/KqysI03kHXR+k6fi6ZZeT/7Z82j/qdB94th3 UjTpwUjDp6JdadJPpIdKNx5sNCTs+GaK/zTktpXE/IghvvXSMO/5n1TfqYUU /2noXfLY7+Axwg5pYOuHLjAaSZiVhsPrvj+YpE/z2WkYUPzp5cM+9H5OGhqb zP0uSRT+l4aHWV7/rtaTPsVpsLzj5vribDzpn4bVf2P6R48jfWRpeHe1PCx7 J+nTmIbTUVc2RIwmvuRp+O289Wv+auKzIw2Br75f8flNfDM4eKo+6lZiwPYe rMSBeul8rVp7wioceP6+ZeS1g55X5+Dh27KH60tIbyYHWeMxgneL6o8WB8U6 S90+FyRTvHBw1uLO1woruk8y4mDO65PNLwZRfwUOPpn1GTVCQHrYcLB+fMrI HY3kTw7d673+Edc+cEsP9uBA/Dgppe79NuKXg4ssg7Kfou09OICDMVtZNl86 CbM58JVLxEYWhOM5mKLW2yAikeZzODhltz2/cj/lj4CD2be8v2beo/VzOeh6 V23+aDj5WwEHUdtWlE65RfWnmIPartNCs6HU35dxoHEqbZXVDzpfV3Cwqz5m UGkD9WNVHGwZUdOos0FRvzkQcfaXSF1JnwYOfo+4Yh2dQ3w3crD/4Sj25HLK l1YOTkxvP54/n7C8m+/LXySWIynf2jnQPrv3EXcN1Z8ODsat9Rz42Yf8rIuD COvUr3e5ivN/Oloc595bMZ3Oc0rp8PWQr0tdJ6V8SMeV5OWPx1eQ/6unw7tJ Q5XXRPHMTEeD5oXvE34Tv1rpWHdBa8EN8yLKl3Qw+nc6vX2wg/RPR9pD7R0O E+h5pCOFmXwxz47eZ5MOboW26rBi8i+HdNjPv1Gyy4bywyMdI9r5i3SviUj/ dMyMeukXMIX66YB0ZPLyG9X06T6NnY5BDzQFazrpPBmfjjMaxvXix3S+4KTD 437UxNqVVP8F6ch4Hx49dC3V+9x03Fk1xO71LqofBel4nzcrVMTeRv6UjvpC u/6b7EmPsnQoe5aWVlwl/SrSUZV0SWVSJelb1c1v5tCaADWF/ul4/jY58NdG qn8N6Tj65mSwxop15Ofp8GQPN1tqQ37Qmo6n344hsJr0kKcjPsbxvM558pv2 dOjJV0XUiYrJ79JR0nupvqXRzh7clY4fBk2uajwaZ3CRsJ3HSXAnPZS4WBat dOzjYMoHFS622L7Q8b5C9UOdizljjIrOm1B9Z3Lhzpw8+fYx6t+1uJgntJY9 taLzsR4XiYu3SqeaU/9pxMUKN84fNp/qO7hQaRikF/WC6rsNFyW5BoObozZT PeFij+Gzy/kOxLcHF1nC6wslS3dQfeFi+YDq3f3VintwABdavK32rksIs7ko XCEKzTMoIv252J7/84nNIXofhwtnte33nW6Qnwm4OJlWzfyuSd+XywVDmLix M5zqSwEXzz2Pd6lxFedzLibk2LHn/aT6UcaFU/KKfcIEivcKLjzdJyfk6ZT0 4Cou4lcG9Z09dw/Vby7e7rN6uGgw4QYuXPV06uUnd5H+XPz6lTfDTIf0aeVi oFqGOzeS8kHORdtq+2+Givubdi4GfOO5fZii6He5MK4asj3Tmup1FxdKxy4Z NO+meGbwYGnjo3H3AfGjxMOHI4Xppgd2kf/zcP/UMu3K4t3k/zzo7Oyrl/50 D/k/D9m3h21lcUvJ/3m4kioLnp5FWI+HCb3bXua/o+eNeGBctBr1roTeBx56 nTB4OWwTrWfDQ8a5CXc8l9P3OPCg9ubNxGkcigcPHprPLhpVspT0YXXP7z/i QiOD7v8DeNBtGXlc4xrFJ5uHtoPh05RdqX7E86D5Z8WbChfSg8PDmo7ScXUv ysj/eRidHSg6lXmA/J+HrYbnIw4kHST/52FHyvLwuyvLSX8eDg6Ze2PyjFLS n4f9pzcvPNtM+VjBg2B9l/uaqVQvqngIvJLfcG0x1QMZD4XB10vNflM8NvCg pV/m9jef+GrkIWROweM/Y8rJ/3n4OWqEWnDcIfJ/HuZ5yfDl3WHyfx76TI29 5Ccn3NGtj6B1RVEVPd/VzSdK+tZePED6Z2BOnO/iH2b7Sf8M1L3qbe26YC/p n4Fihw/X/9aXkP4ZCA0etMGygPRhZuDyvhQtuwLyN60MNKeFt0feVNwXZKCg VBD28uUy0j8D+0+O1x7rorg/ycDuzfLcRGPSxyYDS7blLSvLJ30cMtBVn6rZ b+l+8v8MrLedW8sYXkH+nwElJ9+Ty7SOkv9nQPzSq+5Wv0rSPwOtvmvOT3ei 8fgMiExEARuqDpP+GVhloTECq/aS/hk4/GD3pMve5H+5GVjuZmM1vJruwwoy ELB5KUN5ocL/M3Ds3Of9r7T2kf9ngHlg2VSrLxXk/xkw3dv8o05QSf7fzXfU dFW57THSPwPRM9YZIZHGGzKwIF/LfajoCOmfgaMtxmVjHxwk/bv5Kd1ve7p/ GemfgcCDh7MzB1P+tGfAbztTy2OZ4rzTzU90yAy1aiHpn4GG8ra0dDnd9zMy keb1xX+ZNd13KGXCPTzJNV2u6Ie7x7NKkoozyc/UM+FvvCDIJXM3+X8mZL1+ Fh4t2Uf+n4nxu49Gno4+RPU/E4tDDMo+eR6h+t89P1u5/kBf0geZCK/289zw m7BNJhKN99y7yDhG+mdie0tWzsrbpJ9HJiK+t8wKtVTon4mqXi2JfjmUvwGZ uGKlEblyGOUfOxMHGotjdZroPBCfCfuBWpfm7aZ45WTC4Fz0R2YixbsgEwNc 7nIuFJF+uZkQCScFXz5I+hRkIlmuW8TPJv2KMzG6w/u4qj2Nl3U/v/2Sl8VS hf6ZqGx7FOy+hvSqyoQXMzF3cTTVL1k3HzJHZt4uypeGbj4kFz84xFA9bczE vU2d2aW9SI/WTJy7+opjmEz9lTwTj0c933i2k/Ro737/k219nBeSHh2ZEGQ+ PTH2DPlZVya0NlVHv0+m+GfwEbjz3wr/88SnEh+fvr3IUGGTXip8VFa16fuf IqzOx7tnHIbhJsJMPvp9rgl630HztfiYVsSI7BVI79fjQ331JIu7+eSXRnx8 /bzo+Sxr8kvwoafS2TbxLcWXDR/Mwz/1bg+n/tOBj7KnDStHNtN9pwcfozdM 71LuIv1YfNiiNKU6nepJAB9X7om8Zr8nv2Tzse2cv228G+kRz8eh/3r1Ceok zOGjySBdHGRLfing4+qO4eYuypTPuXxsx7llJ8dRP1HAx27Dqf+GqFI/XczH 5hWMCU1LKH/K+OjzKKFpVQ6dLyr4aGhb9/nEFKrvVXzwv5ee7lxLfibj43lp fYJsA9WXBj5Wvfg6U/yB8qeRD32vJ5+XNxBu5aO4vLa0NoKel/NRWz37YpgB 8dvOx47LMberFlI+dPCRzEt4PPUKxUcXH2PmV3mUyhX9Xxb+eo8LDdUk/1XK wusj8XyjjBzSPwtT7pTyazPo/kY9C6NmqQ2deI76C2YWxnx4NmS4iPpZrSxY /TLlBqtSP6yXhc8PlWdU7KD6YZSFwfYehws3UT4gC1+d+4TV+1I9sul+3+Dj P+eFUL1yyELWNZXgS8MIe2RBe8DqndflVK9YWRBUlCjVnVPon4X+IxNsW6eS /7GzsLTAbNMrAfVv8Vnd/WXTqn6xivvHLBhbHWpYPJvqjSALagGW6hHvSJ/c LORrDEop2UzxXJCF9TmLcwNCKN6Ls1BYKE00uUf6lGXhyMfnFecn0fyKLKgs nS1jRij6vyxoStk++Tp0/pdloZ0Z9uR+MPVvDVlYNUTno60W9QeNWZh2oT7O L5P205oFs227DQoekN/Ls3DFcfWk4Rzis71br7t5DGN9qhcdWTgvjzc+xqF4 78rCuuSlWnWMo+T/Auh9GisKGUf+pSRAlsXdu3cuE1YRgDGgn8+aH4TVBbjf 3nnhnpgwU4Cr06yGK3vS+7QE8A9UOoj5tJ6eAEnabeVRaqSXkQCaByxDrqXt JP0FUMp0rJuxnfo5GwF2BFVud4ylfslBgKKl8y9W59D5xUOA3V5nl1ZrUPyz BNhfqlvgrEX1I0CAEyUvBCbvj5P/d2PVi3vf+Z8g/xegd1Ghq10Y1ReOAAlo dVDRJj0FAnx0ZDG+jKJ8yRUgZKFSutJ3us8rEEDfv7/W/qd0vi4WIL5l5LzO SuK/TIDj0vQzk88SHxUCXM45/S+9/iT5vwCd9nbbc6fVkP8LYLC63Wzrr1ry fwFqilYdiYk7TfoLsDk3XUf9JY23CpAR++FRynqaL+/mqzV0pc7RatJfgFna je7egbRehwA7H7bs3nWW6lWXACpPHy77WkX9BUOIs+O/W2xKpPxTEmLcKHHE lCTKJxUh5vz0ETodIb9VF+Kazpn9z7V9SH8hDHt5qcxwo/sSLSHOV/pazOgi v9MTondNzjruHeLXSIjtqkMGj5xCekCIA6rbwr96nSL/F2L0mTzP6R21pL8Q tuZuvN+up0l/IdDnaugl4xrSXwgTaZ770wx6X4AQaSfcV1ffp3xkC9E86/ad d28V/b8Q+4zfSdxNJOT/QhyqPH537wKqFwIhYh2/Dco5fYL8X4gEQVGmyTfS o0CInHzGll/29aS/EDe/30r7NPss6S+E2ZiOoHOVNF4hRP5Lx5HtE2SkvxBD s+J3ftmu0F+IY+rj5FaLaL0GIXaLV9zfVU/50yjElUePXre20HmqVYjFGzpe XNisuN8WwunHloVHVen3pnYhUv3zfrD60PmnQwgXUfDoI32pH+oSomZr/3Yj U6q/DBGsuibWWcwnvpRE8B/Df5T1lfotFRHaJkZvOy0lftVF+OFjtm5TfTXV fxEejJaG6a4gvbRE0NU9m5Wncob0FyG4+NbNBYWEjUS47eA+6tgR0hMihMWL 3s0aSXraiGC3bq3TnO20noMIERLuj28uFD8eIjBWuB5++5rqF0vUXc9P83x9 KR4DRDhg92fbzA9Ub9gifGP47Lz/mvIxXoSDc6Ovi/1Pkf4i9E+Mub6JV0f6 ixDzJu5J4SXSK1cEz/RJ5p8nEy4QwTskb8LLV6RfsQhXluj0P2VwnPQX4cjv pGtNPuR3FSI0uY7/N+YC+UWVCPtq77frXic/kXWvv6lDfPggnfcbRHAeP8DT I4X8rbH7e+dfinv9l/RoFWFrwpr4d6bEj1yEke/djQJLq6j+i+Dk+WS8ZBXl U4cIBmJO1v4E4rer+3vrTmoIB5NeDDHGKL8Ya6FGWEmMyIapStdy6XkVMSxX Xjj9ik3vUxfjbrXZPr8SWo8pxq6TCapzVOl7tMQI9F573vsIfa+eGCoXJ++d 8YT6TyMxsj67DP5ZTvuFGI/ipB5pT8WkvxjeVT7PtEZTf+Ugxoj7n2o236J6 59E9rnZ7/MCJ1K+xxEj6uWdKVQX5W4AYfv7Nguujq0h/MQLq7eOHTiJ/jBdj 4D5+BW8N+SNHjMnTNt/2a6L4EIihqcsrHH+LzgO5Ymwd/vCtbh/yiwIxbrRY nQsaQvdvxWKsv2fxbVUu1fsyMV4MP95xtJbqUYUYJdoRziMMia8qMfLtjE95 HCE+ZWIwO9SfPw8ivhu69zfn/KfCczTeKEbUpndf7CZQvrWKsbFGd+GfGwr9 xTh4TzumtyrVs3YxxLcFdgNHUX/eIYa79VZxeQv1h11iKBsPD8wzI39mSFCw T2D88TL5g5IEM1lZGb6aivtfCWrGh40/aEb/n0xdgnS3OPbMvXRfyuwe932g r1tO5xktCWb/mPHsxAPF/Y8EZxZ2et17SP2IkQQRrKBhw15S/YEEGuO9ivd/ p37CRoL5HSe3mlSRng4SGM2OGLm4lsY9JHg74NeH1UfJH1kS2A0TR3wfSHoF SBBw/E7Dg1f0ezlbgpbU4Ve9/9B+4iW4V5FeybSk/pgjwc/YKKMuDuklkCCj T4As6w7plSuB38Y9M46HkD4FEnwv1806NYFwsQSxDjfuaCr0LZPgv78tjz6u UugvQfCMy/bXTlN8VElwZ9s66bLBxLdMgvDrA78c9qTf2xu6+bBfb/Epg+5D GyUYN+jMtP4yiv9WCZZprdhtdJj8RS5B7uOsXVe2ER/tEtxymTVA2Zr46pAg 5IHygr1s8qcuCS5f8Qx7No3inyHFpLdzhY+DKV+UpOjy0evPnUP5oiJFSIvq nb8+hNWleBO/fq7JVXqeKUWCl/JKt7n0Pi0pDoZprA1cQfrpSZGrNDV7x1fK VyMpWkbrXoySkz9DioB7GgV+bnQfbyOF05+Jc5uW0O8BDlIoe6za0HKO+m8P KRZ/uvDHkE98s6RAzMDQ8AV1VP+leKESvflFaD3Vfylkz61OmTgTjpfi6NvN j7ewqR5xuufbfpwy9Bjlk0CKIVaej0O+UHzkSmHqsX78fmP694cFUny/U+TT WkvfXyyFTvam8eLVivO/FCsXvLrqV0r1pUKKjPDIVUobqL5USZE8Iu6d1Vzq D2RSVHnuje3dRLhBim8zG9jNLwk3SjFKuvXy3G2EW6XwLDzZu3kwYbkU8ycx 25QsqT61S/HKpfJ0v7QzpL8Uv03CyqZ0UL3qksLy++yCszWkHyMbqSNzJ0yp Jb2UssE/4hJulUN6qWRD1ejEw4lsxf1fNpTMY5J1TtH5hJmN3yHNkZuq6Tyj lY0tLrOu2wUo7n+y8eT4nnNKV0gvo2yMCOu81rddRv6fjWZ35lnnjefJ/7Nx 9t3jA9m3L5L+2dj8JOqNxqRLpH82TI8NHlBlcIH0z0bQDP/6+f1I34BshHzP OLy5RdH/Z0P/RPZ6znLKt/hs+NTUFQwYQOcPTjYm/F0jbehH8SvIxkG3OqMB LOI3Nxs3bh4y7LK7QP6fjYfbske1TL1E+mfjx6Dve37PI1yWjXqNEnt234uk fzbELsUT6yecJ/2z8VRlSvqF9wr9s/FgvVvxMReKj4ZsNPXTnXznJsVPYzZ+ zZ4QHGtD/WFrNhp2LNobV0r+Kc+G0IJ1fFc+3Ve0Z6OTNVZZxZ38uCMb3z43 iBn76N/PdWXjbt28a+X69HsOIwclEbrllrrUDyrlIP1tYPu9QEX/lwNHLmN2 vZqi/ufg9YU/bPkT0o+ZgwMr+lx+H0P6aeWg/ZOHk14I6aWXg5AT8x+We14m /XOg1eaYdKCZMHIg0blSO07QYP4/MzoEoQ== "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxVW3k4lN/7nnbthJJUo1JoIS0oy13KEgrZFaOyb2PfGTNmjFlQUlppk9Ki tEgL0qJdEtI27dq1UunT1+/yzB+//um6r/Oe97znvp/nfp5zpjTXRDj59WUw GO39GIz/+7v3T4c54///wZDiZuPbuwZV90IF9NHIt9T4M5qwIk6HRnbYODIJ q6Bwy57JX9SmEFaDn9PC8tPbpxLWwIQ/qs/WnZxGmImCfsu90pbL8SSMf+I4 tyFQi/AUVA7a9OnyuEmEpyKhSphgrjuOsDb8u5qu/pupSFgXx/Ouv99n9flC L54BG9G3kX43+9C+ZuEUx/dNcrQqYX18+6h8e2Aik/BsaP46dIPnoEXYAIti ZlX+e69NeA6akier6wyeTnguVmubS5akyPE8vGhWM9owR5fwfOjOcLivaTyN sCGuthutaD8+ibARnlQNFwy/OJawMa7ePPbQKkiB8AJkvx0SFCp+QftZiGnS LT/DrJVovyawu72y1oI1kbApnNbd/N7wRs6fGV6fuqEieKZL2Bzm/pLnXktn EQaW/Cf9rX9PrxdzAIGld9P0AMKMRZitaLtE0j2DxhehU1ExdOsRbRpfjD8L VflFp0kfzmKwtn12efFQHh8WaPCydTv761fv93MsIP3GHZLkNoD2twQ7k16+ mLhhXC/mLMEdsf3ye3ly/pciX3hc55PuDBpfim7/TcnhG/Rp3BKP5+ob1yoZ 0LglRnIGR9yKIcywQuUnpXemR2bTuBWMT9asrRbo0bg1Rlcn2hQW6tC4NXQf 7imqeKVJ4zaIkDzZHFGrROM2UL5r1c8n9DHpsQx+3Sc+xVxVpf0vQ524WHVS gDz+bdF89ouNR6ucP1sc/O+Q/eim2TRuh7XHPi4N0ZtL43ZY8jhQva/TPBq3 x5J0xojUSYQ59mi9tKP/wu1zaHw5vK55bxnUoE/jyxHoMHt49xUdGl+BsV26 c5dNoPzkrIBJlavj07b+NO4ApabHZYMmDO7dHxwQlvVDMauE9s9xwJeilTtu zST+axwgNDG6cW2TnF9HDDl3L0N1wHya7whXk3nf50w2ovmOWPVnW53ZFcI1 juj3XOeEU5shzXfCS/PPpdx182i+E6pkdxqNeHK9nNDlGXvm8QPKvxonjO8K Ulc8Kc+XlXize1CbXWB1rx5YCY9pSzvtLMkfOCvhrJKmoJ5E8V+zElu2bnnU 1mlA+3dGc+rkiuG7DHsxnPHvHKNO7c0Cmu+Miz/PLDCTmtB8ZyTO8FGpiiDM cMGlblPTYAE9Dxcomcd53Hw1n+a7IM0g7cjiC6R3jQuU60YrrayQ+6Erngw9 PYO9mvwLrniUe/uWzrVhtH9XsE5cG+mQOpX274rPl2/mcVfL+XeDou6ojbPT iV+44fGwJKUPxqY03w0DPl341TYONN8NvKMK/iY7CTPce/i3rXJTJQx35Abc v4KB8vnuKGgd4Gn+g/SqcYdyrb13gBnpw/BA9T6H82dF5GfwQKa6Ux/T7TKz 3vke2B5iNCXoC8VfjQcKpjJuT5skj39PWCgMbSlqN6L9e2Kqndmvt9bmxJ8n OpMZcQPeLaL5nvh9WrPaZpwFzfeC6Uhdb82JhOGFvuafPzV8ouc5Xlho4b4+ aCa9r8YLy1XZv3aF0HqMVTCadEsy9gv5HVbh3oLBBUMsx9L8VfhXlTnr5dGR tP9V+HK6Qtc/kfKBsRrna8r6TXpM/GA1nAdenn9HzjdnNfbvz9Ff4G1B81cj /fbPyReSltJ8bxQymn+bW1nSfG9wD/mteHOYxjnemKO8INfwqHy+Nz7VBP6o XiPXzwfF9xMCeB/k6/tgTtYbB63DVH84Pihdm+kzJeR3rx41PtiXd9M4rknu TyzUJ6SUG4yleGWyMHdbn7lNTiA+WBj8bPODQUeX9GIWC6sj/1VW3bcifljY t//6leNSm15czEL74DzUVBCuYSFElhAy3dS6F8tYWNQ2W3TAaCmt7wuv4wYj mm7RekxfBCsobvSJo++BL7qq1ZS4tpNpfV+YTN+fmLhckfbXM794dEj1U4rH Yl9sPjNCb9MzM+LLF38NHaunaRKfMl982/d8XFCRDfG3Bkf24bvnVrtezFyD /YoSp3fN9sTnGnCm1R6/MZcwaw0ezI6SbTy2jNZfAwd+9ptvQaRf8RoMvcXq e7NQnm9r4J5d+tZVew6tvwbqPicmNvMovxlrkZST91+TKfk1cy18Bh9f9NWH /AVrkT+kW5zuRnyx1uLsxsFjXtrbEv9rse9Cc5zo0Arify22/d75mD/Kkfhf iwlNPiVaFoRla9HPaOSoBz4OxP86dBf8uxz93I7WXwfXN+YNT5mkL9bhSfWs FxWbKX9Y66AZJjqbuWAmrb8O88doLYwKH077X4exAdD0m0X1oGYdBi5Tezfw KcWvbB2yrk0o0tppS/v3w3yvqj0T2h2Ifz8URSlfuNd3JfHvh9Xu3iuP/SDM 8sMYM824+6WEOX6YGduSZqvmROv74ZtL/lSDg8tpfT/oZdnqnBpsRev7ocyi caQgfSGt749J+spmjY/VaX1/XFQ267D7QfuDP0pO1abHjltM+/eHiep5w9w7 cv798aNEMyz1D/Fb7I9Oh11rJ/ZzIf79YXAzxlDhmivx748g9YOtw6e7Ef8B KI1mvivSoHFmAPZouTcW7F9J6wdA7cW5yPAW0pcVgGMGpmK9BZa0fgCaX67w LBhA+VIcgBjv9sGP4vrS/gNwpNXq30gV2q8sADNb19/c6SuP/0Aw7p5t4P50 pP0H4q+JmSLPxJX4D4Ry2UbH4fM9iP9AGG9QTThZ6kn8B2J+kdZ+tUjCxYGQ ML0SHAXutH4gLv39tOzSH2daPxCPS9P7f2eQ3owgtEVXzIq+QPHBDMLCqwOS 2WXULyMIM54s+VNtRPWCFYTFXqYvLryT7z8IWrsWW70Z7ET7D8KkGpPhW3YQ vzVBCHlqJN1z14v4D0J3hPhw2Spv4j8YJRfOmtiP9CH+gzGn/IBqc/Nq4j8Y ivqWCxZc8KT1gzGy+vhTn4+kLycY15ed/PDaXp5/wbA7cPTGh2zys5pglIrU 1NXV3/X2J7JgjFV2rE2fJPfvEFQp8l8GDJHHfwimdjTsYs93o/2HAPWTfW01 VhP/IRiddHKh6QEW8R+CN4aG/+zrfIn/EBTN3NA64iLhmhAM+JNaWrmdnpeF 4MbhxW7jzq6i9UORkSS5pryE9GaGwjzgBVz9yQ8RihObdaRNqnNp/VDsibE8 dfAq9U+cUHSvUi+/up/8ozgUP4sCn+yAnP9QjF90YtDm58S3LBQdIeMtWKvW EP9hmHT+4HE/vXXEfxh0hf0U118jjDDcidx2aeZ4wqwwDKzivRqvT/M5YZDY awSI5tP7i8Pgr+TQOnYU5VNNGEzzhwnLb8rrTxiyGQzlvN/y82M4fh865X9Y sJj2H45LrSdM8n/J/Sccr804n5dUyvkPh9ew9ctsPq0h/sPRNLop+uU7P+I/ HIPrcmvvbA4g/sPhuczo9PNbhGXhCFdv7X6a4k/8R8Bl7IecoUfW0voR6F8l NHoz2IfWj0DjzkEfTVIof1gRGPNf/qIZR+T9Rc/zWxY5mAlIj+IIxAo+qpZu lvt/BAZ+G6BWdpziWRaBOO3UV1uUiU8GGzN+bI/LnxTYixXZWL5y4Iv1tcGk Bxsv5n50MqsL6cX6bJjK9n47r0wYbLjovjJWP0PzHdhYNbm42bBRrhcb9qKO fUE6lF9sNiyvTN/6K5/ylcPG73Ezpxl70/fnseFrE/So6h/5QTEbrlZBXm9d yU/K2Yj1vT6n6ArxX8PG1Myt+kfXBfbiBjayU/xut+wOJb7Z+GX0cPMEvYhe 3MFGZ8632ep3CDMiMX/ay+TnfuG9WDESiszFlYFdwaRHJCxEOpNijpK++pG4 vqN4mNdhigdEIjuqz/QXvlTPHCKRzB9wMDCfznusSJw1GF3X1u1M+4/EJZ/R 82aekMdvJMx0bi2TPg2i/Ufi8M0F8Y1ZEaRnJAwcBieZ74/sxeWRKP9t+MM7 KYr0jURJqYtNHz3CDZGorA47PqKeTXpHYoPt7PErj4X24o5IFF1nTNcY4E/6 R2F0o3aCeQP5o2IU+jetrWDqUT/NjIIs8taRJmPSQz8KXyfYFqWfIP9AFKJt 9xYvsKT4dojClR1OfWR9iV9WFJa7XQ005Uf1YnYUlA21XyvExlD8RuGE3nlP b63YXpwXhbvnFoaZpdJ4cRTClxVKTiXS/PIo3LrmHqnAIr1qoqD7u5wXuY30 aYhCWmARdDzJz2RR2LI/TIs5hkH779mf91qbYy3y+huNG/e9R4QND6D9R+Ne bWrLtGjijxmNN61eKg0BMRT/0VB+4hisOjme4j8aP3OVSoYnJlD8R8P5oO0R bRfCrGic7Xj85+WZONI/GqUDZtcNrY4m/aNR/Gmyx/gJpHdeNN4HjH0/pZ7y pzga34dX+wxWoXwpj4adwVxu7D2q5zXRmMC5+ve1Cvl7QzTSckdalQ2Tx380 5qdpXv68MpriPxpeXgOcLLfGU/zHoOLB5XuXs5Mo/mOweHDiyujnyRT/MYhQ dzVZkURYPwa6sarX1S0SSf8YZDyxeMdfTvo5xGB0VMmF4iK5/jH43tR63G4u 5Ss7BttuuYQbnDYm/WPQ1XZJNLbcnfYfgwaVM5tuBJK/FMfAbddtblsi8V8e gx8rb/04NiiJ4j8GWT+Wpzj1SaP4j0En31RppAqH4j8GA+fbpn2cRbgjBlsL LWLe7aHnGbGo0LIrY6olk/6xmPF5mbJDRyzpH4vgvhZOk9+Hk/6xsLW+/XMI g0X6x8LOdXuHsdPb3vOVQyy0EPfXQkh6sGJRl+epPXEum/Yfi1xuxdkTAcQ/ Jxa3Ejg5F0NSKf5jceTg9pqkdxyK/1hEfJksODyZS/Efizf3Va7xzQnXxIL9 dWZO/IwM0j8WS1JPnDJuo/fJYqHCslJSnEfrdcRim7t2Wcv6MNI/Dr+TBzWG xFN9UYxDddhr7ScF5FfMOKge9HUZsVG+/zg4PWk5YrCF4htx+LDim33dfOLX IQ7c0A9RIiaP4j8OPxLN55Q9zKT4j4PAUGPpJQc+xX8c+vm3Od1Lo/G8OFyx tPm3KYFL+schwnncXW4t6VUeB48RBsWvblA+1cQh/u6rwX+6qV41xKEl4kD9 ny3LSP84+DzQlzncIr/qiIOW1OXcCkkk7T8e6y9HcwN1Kb4V49Hxc9Higmri kxkPSVyfn1MYfIr/eJjtmXT65pgsiv943F1iIaptJOwQj0KD47elIwiz4nEg yf63ck0m6R+P22fN08O7SF9OPJS4+eLvt0mfvHg8LDplqB5Kflocjwlqt1Si ztF9RXk8WiaXOHwdTnrUxMMj6EvTmFqK34Z4xHwK9XvlT/zL4pEf3G6qUpFF 8R+PDRXHNlmmiij+E1D5yaJowk4xxX8CNrdU1f0ZQZiZgGs5d0atfC0k/RNw n71YkORI+iEBcW19W3dL5fonQMVQa/GEOsofVgK2ncwonbyO6h07AVtUkndI 21bQ/hNgVxFRZqdFeuQloA/8+w08QPFbnIComepXotjEX3kCpH88dfnK2RT/ CRh46s6GXWESiv8E3HMWnS+cn0Pxn4ArTM/myfMIdySg+mPnbA0rep6RiABX zslDQULSPxFfzOKNm6spv5iJMOpunPJPl/TRT8R6Bcfo9A903kEitvrNedro 6kf7T4Rwd251SjXpwUrEKJ3lH7ZvJb7YiXCJ05w28Qvxy0mE0zS3B3GGeRT/ iTB98rC70W89xX8iojrTTPjxhMsT8W7LurN94+n5mkRMDb99pLOPlPRPRPDv mOhBqaS3LBEG51xfxF2Q+18iFM4PPNTsRP0CIwmfE1fseP+D7ssUk3Bo/43V SwZR/WAmwTzqdqH/BdJDPwnvvPm1HyYIaP9J6N5muvuCP/HpkATfhMPVGkfy KP6TsGxewPlLKzdQ/Cdh7yOjOXu7CXOSgEJrj/xswnlJGBGk98jiLc0vToKJ 3aAB0Qvp/eVJMD7vU1yUQfFQkwT2m3otbfU40j8JBRzZxoEDZpH+SQi548Tr /5PqR0fP92u4dp7/Rn7DSEa/i52syHE5tP9kDLx4dm/ytg0U/8kIC1a6fubJ Ror/ZJzOW/zf3ooCiv9kKFoJcpXHEnZIxs/1F08/mpFP+ieDr3Ga+Wgy6cVO hsfzlss/0ymfOD3r3T76dvW4dNI/GT5m847ktlA/UpyMlLf5k51TvGn/yRhc fm5x8DGq1zXJaFWzTwm1JD0akuHaqd/hai6P/2Tsa7xU2BRL/HYko+ncO+vN vzZS/KdAe6DOOFb6Jor/FGgVG1S2PSHMTMF5+yX9t3UWkP4pmBBvNdvudD7p nwJv1YtTJUzSyyEF7/xdMp130/ewUtAqnMytVCN92ClYmhfVoM+h8yInBa+e 2nxJb0ul/fd8z4Won4aulB/FKbhU/V7L9TfpUZ6ColDGGcNPmyj+U8Dkbi7V NthC8Z+CrVO8ugp3EpaloHScjFVmUkj6p+DXwWetwxeRXoxU5Hdb+hT+I30U U7Hz7G/9ulOUP8xUHDF5OKniCdU7/VRcbxRKVlovJP1TEXnObLHKR+pXHVKx S+LuCEWqF6xUzIo0Y3kXkh7sVLSazKja6kv8cXpw+Ujutn3Ed14q6iQ2pkU/ Cin+UzHHXzUwa9ZW0j8V5mcV7i+R45pUBI8bHXGnhZ5vSMVCF52q2WPpfbJU 8BKHXvr3dT3pn4qfuy11ZjLIPxlpuPOf8ZY/n8nfFNPwLvSZzbhddP/ETINO /X/bzS0yaP9pmJJgW+OwJJf2nwZmyn49123y+E+DmdPNNr/fxD8rDQLBu4Zn Dtsp/tOQdnXUr9AAwpw0LM/yX+VstZX0T8PGIZHNWwxJ3+I0nDZqN719mPQp T8PcfM/M8eGUvzVpmG665WvBP3n9T0OSVZSJrIPOb7I03N/S59k/Ox7tPw1L nzn214whPRjpUCjenS79QnoopqN+qNGw8JObKf7TsbVtT+yvWOJbPx3Ml3/T /LS2U/yno3n3U//DJwg7pEMyO2yhkTJhVjoOrut8pDmb5rPTMaP4y+vH/ej9 nJ71msz9r0rk/peO7izvfzdqSZ/idHjfc3V5dTGB9E/Hxn+xA2PGkT416Zh/ syw8Zxfp05COO9HXN0SOIb5k6ehYufV7wWrisyMdHm86r/t2E98MDn6qjb6b FLijFytwMLBkgfY5O8KKHOh13zXy3knPq3HQ+L708fo9pDeTA/F4jOLdpfqj zYGOrr3r18IUihcOShbf+15uSfdJRhyMfHu6+dUQ6q/AQZVZv9GjhKSHNQcZ 41OVdzaQPzlwcP/tr/j2wVt6sTsHnKfJqdUftxG/HJxlGZT+Fu3oxYE979/K sv72gzCbg1kyidhoEeEEDsap9jWITKL5HA6O2+4oqDhI+SPkoKvB5zv/Aa2f x4HqxzPmT5TI3wo5yN/mUTLlLtWfYg5Mf53PNhtB/X0pB6eq0ldZ/qLzdTkH /S/GDimpp36skoPLo8426G6Q128OhJyDe6QupE89B52jrlvF5BLfDT38PR7N nlRG+dLKwZFp7ScLFhCWcXD42jeJhTLlWzsH1hf3P+GuofrTwUHkWs/BX33J z7o4sLFK+36fKz//Z6DDce4Dj2l0nlPIgJm7bF3aOinlQwYepKx4Or6c/F8t A4FNGiq8JopnZgb2Tb7cOaGb+NXOwOLL2gtvmxdRvmRg/MAfTu8f7ST9M5D1 WGenwwR6HhlIYKZcybel91lnwK9cR2VkMfmXQwYcF9zes9ua8sM9AxrtgiV6 N0Wkfwayo1/7B06hfjowAysyCxpUZ9N9GjsDgkeThWt+0HkyIQM7NIxrxU/p fMHJwOe26InnvKj+CzOQ+DEiZsRaqvd5Gbi6apjt291UPwoz8Cd/ZpiIvY38 KQMZ220HbrIjPUozMMOzpKT8BulXnoFryVcVNStI38oMrOKPOBuoKtc/A6M+ pAT92Uj1rz4Ds96dDtHwWEd+ngFrtpKZvTX5QWsGTv88gaAzpIcsA5tjHS/p XiK/ac+AjmxVZLWomPwuA4V97WdbGO3qxV0ZGDmnyUWVR+MMLqJ38DiJbqSH AhcLYxROfB5K+aDIxR6bV7o+16l+qHExcaxR0SUTqu9MLgyYkyY1nqD+XZsL mcCq5rklnY/1ueAu3SrVMqf+04gLM1fOX7aA6ju46L46RD/6FdV3ay54eQZD m6M3Uz3h4qzhi2sFDsS3OxdJ2bcWS+x3Un3hwmvQmb0DVYt7cSAX03lb7VyW EWZzUeYhCss3KCL9udhR8PuZ9RF6H4cLX9UdD51uk58JuXDknGF2Tqbvy+Oi QpS08UcE1ZdCLiK8TnapcuXncy5m5Nqy5/2m+lHKxaQUjwPZiRTv5VysdpuU mK+7pxdXcsH3Cu4/a+4+qt9cfDhg+XjJUML1XDjp69bKTu8m/bkY0J0/3UyX 9Gnl4plKphs3ivJB1vN9q+1+Gsrvb9q50O3kuX6aIu93e9arHLaDb0X1uosL mxNXDZr3UjwzeJhp7atx/xHxo8DDi2PbM0wP7Sb/56GxarlORfFe8n8etHb1 1894vo/8n4e0xh7H5ZaQ//NQm1YTMi2LsD4Ps/q2vS74QM8b8fDlsuXoD3vo feDh3UmD1yM30XrWPGytm3DPcwV9j0PP/HfvJk7lUDy487C2bsnoPfakD4uH df1HXW5g0P1/IA/mLconNW5SfLJ5GHokYupwF6ofCTwM+evxrtyZ9ODw4NdR Mq76VSn5Pw9Tc4JEVfxD5P887DW8FHko+TD5Pw93UldE3PcqI/15KB029/ak 6SWkPw/Hz29efLGZ8rGch+71XW5rtKheVPJw/XpB/c2lVA9qeLgZcqvErJvi sZ6H2bNLXf8rIL4aevidU/j079gy8n8eBo4ZpRoSf4T8nwcb7xp8+3CU/J+H 4VpxV/1lhDt42Chs9SiqpOe7eFDHnv7nrhwi/TMxJd5v6S+zg6R/Jj686Wvl snA/6Z+JQw6fbv1Xu4f0z0RAyJANFoWkDzMTuw6katsWkr9pZyIhPaI96o78 viATS48Kw1+/Xk76Z+Lk6fE66s7y+5NMNG2W5SUZkz7WmZi5LX95aQHp45CJ l7VpkwfYHyT/z8QWm7nnGErl5P+Z+OLod3q59nHy/0xcfO1dfXdABemfiQd+ ay5Nc6LxhExsMhEFbqg8SvpngrdIYxRW7Sf9M3Hu0V7Naz7kf3mZUHW2tlQ6 Q/dhhZko32zPGL5Y7v+ZOFP39eAb7QPk/5lQP7Rcy/JbOfl/Jhbub/5VLawg /8/EnOhpKjKbE6R/JiKnrzNCEo3XZ8K8QNtthOgY6Z+Jwy3GpeqPDpP+mfAo OWhzfmAp6d/D9+GjOfyhlD/tmTi1g6ntvlx+3smEaUzodNUz2aR/JnzK29Iz ZHTfz+CjxftbwHIruu9Q4GNNRLJLhkzeD/MRnrUnuZhPfqbGxyrjhcHO/L3k /3yc7PN7+/E9B8j/+VDeezzqfMwRqv98WIcalH7xPEb1n4+onOG1h/qTPuBj xRl/zw3dhK35SDDe9+AK4wTpz0dOS1auVyPp585HZmfLzDALuf58FPdpSfLP pfwN5OOgpUaU10jKPzYfe28Xx+k20XkggY/XCtpX5+2leOXwsbAu5jMzieJd yMcg5/ucy0WkXx4fqdmaIdcOkz6FPXzI9IoEOaRfMR9DO3xOqtjReCkfG3Zc 9V5kL9efjyttT0Lc1pBelXzYMZPylsZQ/arhI6nGkZm/m/Klng++5Monh1iq pw18NGz6kVPSh/Ro5aPjxhuOYQr1VzI+hox5ufHiD9KjnQ/Ws239Vi4mPTr4 EPOfn1K/QH7WxUf/TWdiPqZQ/DME8N71zyPgEvGpIMDjn68yFdmkl6IAuyrb ZgdUEVYT4OsLDsNwE2GmAIyvZ4M/dtB8bQGsihhRfYLo/foCjF+tueh+Afml kQAvvy55OdOK/BIC3Bn5o23ie4ovawFcjv7Wb1Si/tNBgOiX9V7KzXTf6S7A ig3TuoZ3kX4sARxQknomg+pJoABND0Tesz6SX7IFqKgLsElwJT0SBMif36df 8A/CHAFqDTLEwTbkl0IB9u5UMnceTvmcJ0AZ6pafHkf9RKEAOw21/g1ToX66 WIBMD8aEpmWUP6UCvHqc2LQql84X5T37a1v39dQUqu+VAqR1lpz/sZb8rEaA IftrE2s2UH2pFyDo1fcZ4k+UPw0CeHo/+7qinnCrALll50rORdLzMgEKz8y6 Em5A/LYLUHwttrFyMeVDhwBSXuJTresUH10CmC6odC+Ryfu/LBz3GRcWNpn8 VyELbccSBEaZuaR/Fv42lgjOZdL9jVoWZs5UHTGxjvoLZhY0P70YpiSiflY7 CzP+mHJDVKgf1s/Cw8fDp5fvpPphlAUFO/ej2zdRPiALH1b2C6/1o3pknYVJ Q0/+nhdK9cohC+k3FUOujiTsngXFQat33ZJRvWJlYV35HoXqOrn+Wbg5KtGm VYv8j50FQaHZpjdC6t8SsiDOa1o1IE5+/5iFCZZH6pfOonojzMKQQAu1yA+k T17PfI0hqXs2UzwX9szPXZoXGErxXpyF+u3SJJMHpE9pFlo+vyy/pEnzy7Mw zn5WDTNS3v9lYZSU7VugS+f/miz4a4Y/exhC/Vt9FhKH6X620ab+oCELSy/X xvvzaT+tWTDZtteg8BH5vSwLMsfVmkoc4rO9R4/7+Qzj2VQvOrLQLEswPsGh eO/qWS/FXruacZz8XwjtL+qi0HHkXwpCrF90//69a4QVhRg0aIDvml+E1YR4 3P7j8gMxYaYQb6daKg33pPdpC+EUpHAYC2g9fSHyddrKolVJLyMhRh+yCL2Z vov071mf71g9fQf1c9ZCWIVU7HCMo37JQYgg+wVXzuTS+cVd2FOvLtqf0aD4 ZwlRW6JXuFKb6kegECf3vBKafDxJ/i9EqcqV/R8CTpH/CzGqaLuLbTjVF44Q MWh1UNQhPYVC/HFkMb6NpnzJE+LgIoUMhU66zysUotl/oPbB53S+LhbCv0V5 3o8K4r9UiL3SjAuTLhIf5UJczj3/L6P2NPm/EK/tbHfkTT1L/i/EzNXtZlv/ nCP/F2JP0apjsfHnSf+e78/L0FV7TeOtQnDiPj1JXU/zZUKktYZ56R4/Q/oL MUenwc0niNbrEGLD45a9uy9SveoSYuLzx8u/V1J/wciG+oTORZuSKP8UsqEy Whw5JZnySTEbgb99s52Okd+qZeO/GRcOvtTxJf17MMNbcbor3ZdoZ6Ohwm/R 9C7yO/1s9Dubu457j/g1ykaxyrChylNID2SjUmVbxHfvKvL/bBheyPec1nGO 9M/GEnNXXrfLedI/G/b9boRdNT5L+mdjtDTf7XkmvS8wG9xTbqvPPKR8ZGfj 3MzGex/ey/v/bGgYf5C4mUjI/7Nxo+Lk/f0LqV4Ie+Y7/hySe/4U+X820oVF fJOfpEdhNnYXMLb8sasl/bNxtfNu+pdZF0n/bBiP7Qiuq6Dx8mwUvnZUbp9Q Q/r38JGVsOvbDrn+2bioNk5muYTWq+95v9jj4e5ayp+GbFQ/efK2tYXOU63Z cN/Q8eryZvn9djaEXVsWH1eh35vas5EckP+L1Y/OPx3ZWCsKGXOsP/VDXdl4 tnVgu5Ep1V+GCFZdE6sXLSC+FETwGSt4kvWd+i1FEaomxmw7LyV+1UT46Gu2 blPtGar/IjwfIw3X8yC9tEVYpHcxK1/xAukvQmDx3TsLtxM2EqHFwW30iWOk J0RITRB9mKlMelqLYLxurdOcHbSegwieEu6vn84UP+4izPdwOfr+LdUvlgg2 xud5fn4Uj4EiXLP9u23GJ6o3bBG+M3x3PXxL+ZggwvG5MbfEAVWkvwj/Jcbe 2sSrJv1F2Pou/tn2q6RXngjBGZrmXycRLuzhJzR/wus3pF+xCPeX6Q6sMjhJ +ouwoTv5ZpMv+V25CA9dxv8be5n8orJn/fMP2/VukZ/UiPCloEN89DCd9+tF 0Bk/yNM9lfytoef5BVfj3/5HerSKcDRxTcIHU+JHJsKfD25GQSWVVP9FWOv5 bLxkFeVThwgzxJysg4nEb5cIB6pPa2QPJb0YYswf/kp9kSphBTEK6rUUbubR 84piLPC6fP4Nm96nJsbdM2YH/PfQekwxNpxOVJmjQt+jLYafz9pLPsfoe/XF GHxl0v7pz6j/NBKD89V56O8y2i/EYCRK3dOfi0l/MS5W+r7QHkP9lYMY39q+ nN18l+qduxgeqo3jB0+kfo0lRsrvfVMqy8nfAsVID2gW3hpTSfqLEVxrlzBC k/wxQQylA4Jy3hryR44Yc6ZubvRvovgQijFPj7d9/F06D+SJETTq8Xu9fuQX hWKMa7WsCx5G92/FYmx/sOjnqjyq96Vi/FM62XH8HNWjcjF4OpErRxkSX5Vi 1NgaV7kfIz5rxBjQofbyZTDxXS/GmjmXvmyvo/GGnu/f9OGb7QTKt1Yxdp7V W/z3tlx/MbY80Intq0L1rF2Mkkah7eDR1J93iMG22ioua6H+sEsMRWOloHwz 8meGBGcOCI0/XyN/UJBgCSsr02+y/P5XguVO4eMPm9H/J1OTgOEaz56xn+5L mRI893s0W6+MzjPaEmj+mv7i1CP5/Y8E1Yt/eD94TP2IkQTerOCRI19T/YEE o8Z7Fx/spH7CWgLdjtNbTSpJTwcJ5syKVF56jsbdJege9OfT6uPkjywJxowU R3YOJr0CJZh88l79ozf0ezlbAo00pRs+f2k/CRLcKM+oYFpQf8yR4HdctFEX h/QSSpDQL7Am6x7plSeB/8Z900+Gkj6FEvwp08uqmkC4WIJMh9v3Jsv1Le3h 77+WJ59XyfWXYNX0a3Y3z1N8VEpwfds66fKhxHeNBFuuDf521JN+b6+XYJ/t +kVfMuk+tEECtSEXpg6sofhvlWCGtsdeo6PkLzIJtj7N2n19G/HRLsE755mD hlsRXx0SrH00fOF+NvlTlwSN1z3DX0yl+GdIofh+bvbTEMoXBSmaffUHcudQ vihKEdWicu8/X8JqPeMJ6+ea3KDnmVKIvYd7uc6l92lLcSxcY22QB+mnL0Wl glbOzu+Ur0ZS/BujdyVaRv4MKWweaBT6u9J9vLUUKX8nzm1aRr8HOEih6r5q Q0sd9d/uUph+ufzXUEB8s6SYGTs4LGJhNdV/KT4rxmx+FVZL9V+KupeWVSYr CSdIcfT95qdb2FSPOFL42HyeMuIE5ZNQihmWnk9Dv1F85Ekhc1s//qAx/fvD QimUmop8W8/R9xdLoZezabx4tfz8L4Xdwjc3/EuovpRLkRoRtUphA9WXSinS R8V/sJxL/UGNFLWe++P6NhGul+LljHp282vCDVJMlG69Nncb4VYpVm0/3bd5 KGGZFAs0mW0KFlSf2qW44lxxfkD6BdJfitGm4aVTOqhedUmxrHNW4cWzpB8j B1HKeROmnCO9FHJgfcw5wjKX9FLMwTXDU48nsuX3fzmYZR6boltF5xNmDnLD mqM2naHzjHYOypxn3rINlN//5OD7yX11CtdJL6McfAn7cbN/ew35fw7uuzEv rtx4ifw/B6c+PD2U03iF9M/BnmfR7zQ0r5L+OZh/YuigSoPLpH8OYqcH1C4Y QPoG5kDUmXl0c4u8/8/BjlM56zkrKN8ScnDgbHXhoEF0/uDkYMZ/a6T1Ayh+ hTkoca02GsQifvNycO7OEcMu28vk/zlo3ZYzukXrKumfA4Whnfu65xEuzcEN jT127P5XSP8c8J2LJ9ZOuET65+CZ4pSMyx/l+ufgzXrX4hPOFB/1PXwM0Jt0 7w7FT0MOlPUmhMRZU3/YmoOnO5fsjy8h/5TlIGsR6+TuArqvaO/ZP0t9uKIb +XFHz/d+rRczDtC/n+vKwZ3qeTfLZtPvOYxc5EfqlVnoUT+okIuE90HtD4Lk /V8uPLiMWbWq8vqfi1eX/7Jlz0g/Zi4qPPpd+xhL+mnn4vcXdyf9UNJLPxcR pxY8LvO8RvrnYlqbY/KhZsLIRY7u9XPjhPXm/wOVL/ql "]]}, {RGBColor[0.6666666666666666, NCache[ Rational[1, 3], 0.3333333333333333], 0.6666666666666666], PointSize[ 0.002777777777777778], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJxVmnlYTW3U/ytT5hBKT0SGhDQomb8kopCUInKai+Z57pxTZx7KlAwRGaOn QeYpQ2QOIRGhlKFBROrBr/f67bXf6/WP63Pde+9739/vutda9z6N9gh28FZT UVFp6Kai8j////9/LfP+7/8qOBG+x2oqy+qwGxH6xZVlDUhSVkj5LGtCV1dy K5tlLbzkXaorZvkfFKhPOH6JZT2EVLWGn2d5DNIP8BYdZ3ks8iOmvk5neTz0 3/0+GsCyAZxG/T0Dlg3xoe1xzkCWJ8OkZNODs3+bGTZC2w09L0eWjXF15Nbg 9j/EJjC2vv4zl2VTjEjsjlCWzXBzfVDgCpanod/sM7NsWDZHVNKrm+tYtkB7 7rtAOcvTEd4v/lEFy5bY8nBrswn7PjMwc3PN2r0sz4Rg2unS3ux6ZsG36sxo a5Znw6HHQF4iy3PgcVg0N5/luVh/2Ljfc5bnwVPzjWEry0BIhWjnH2Iu0HrA bUYnOz4fa8Z41Naz4/PB4zyJKGXHF+C4wX8Xt7PjC3DZWRH8v/FhhWXOF35p s+NWaHs6/EAuu76FeFmjEqxPzF0IQ527rYdZfazxzEt35RxirjVMFcZFjb9p fBHaX1TeukTMXYRHIx18Ctnxxbh2aYHlHXZ8Mdqu997Wi32+DXz84qN82Ofb 4HqPmwffsuNL0Hd+yvdQ9v2W4EnJcNde7PqW4vH5J7rO7PqWonuexowcdtwW aSvuXPvAjtuivMprvq4qjdvhpVvxjwXEXDsoDo/Wc2LHl0G9pnyCAzu+DK+W FFyfwY4vx5ftsSr92fHlkPjXTH/Azr8CLvtXtnLZ+Vcg78DlUxPZcXtI7d+K dtP6YI8jLcoddawe9ig1HK/P6l9ij/bMm+PzWH1XQlK6Yv08YqyEayxvZ+d/ dP9KcOUTLOuJS1bietyxU93Z+x2g8y43eBV7vwO6Ha7LfMj65YBcv7EeYez8 DiiYnOxsysbPKmTfT/2hSuvBKgyvNtMOZNe7Ci1W5eVPiEtWYdftvMSprH6O mG76UiOOGI7obywP/ZfV0xHZx98/KSMuccRX6/2dN9n7nfD6SY7PUfZ+J3jt KF0XxN7vhHf1hrU67P1OOCPO3HWK1X81XhWVRM5n3381SstcXsrZeFsNn25/ DTPZ9a+G/4e8FcWsfs64mHhfu4X0hTMulydec2H1d8ai9Pm9f3XS/c54nPgh pJJYxQUmgYNyO4jhAodx9dM3sPe7wPqKposqzVfigiUWmmaV7Pxr8MNwoeNz ej+swb9/rnk2s++/BtdHL5GJWP3XoFtNwpjBrH5rURTyW6Jk9VuLuq37lN9Z /dZCo+RfzFGj+9dieu10f09iFVdYlU6qZRmuaKjWrWKv57oidejOZ62s/q5Q 3THqvJCdfx38fO6J/7L6r8N4R0MtbzZ+1qHROhg8Wk/JOpQ6ZvlbsvlhPcTS K65sPGM9riw37cfqzV0Pp1fhoQas/uthqxZtv7+D7ncDd6mqcRAx3JAxfrJw GzHXDYkm/5hqsve7ofyQmn09698GvNfYGqzGzr8Bgq+5U5zY/bsBP3Fm4l32 /TfA60FhzmE2/jgo6zVpqzvpoceBOVe4tg+rJwedpp0124k5HDSOcj7TwerL gdMLl9Mm3RjO5kBtsHqMBXEJBzrBgYd6EddwMHuRydAjrH/ucL7JO69NrOcO tfm/vH3ZeHDHTbHGul30vhx33DKdJk9k48sdk7IGq9+g9Wd38ciZ9/XZfOOO wkkap8+QnjXucOp1blzmL9LPA0+bF/i/aGdYzwOd6zZZS4nhgdMrhtwvIuZ4 IPT9rV2r6H6uB/br9kzxpudne+Ce7997L1i/PNB6Z0zbLnq/Gg9M4R1pUbD5 yxMp34803ab16XlitM7Yv6Xs+j3BTf7anMvq7wmzt/yL/qQn1xMvqpZvbmP1 98Rl3+j9C7uT/p5o2+F/2564xhMPUxb+GE6s4oVvV2KW76H79bzwu1eHTi3r vxe+mM6N/0Xvw/GCw6txFR/Z/eGFgCHTF0lpPdldz3vuajaTzRdeaI61nqtO etR4YbllZpQWq783ysf82yL7Sfp7w+aHXkbSD9LfG4/tV0/oQczxBqd54fZJ xFxvLNyGqm/E2d4wdI0KdyK/SrwxKi9yyxzWf2+c6TF3YDrFh4oPfAYGDZpI 76/ng2aeb24zmw98ML09P8iK1d8HB35++BrL6u8DPxvXN0mkZ7YPVjdU3kIP 0t8H5tX9FxQR1/hAZBh1/Q6xii90xR0TRMR6vuiTEVH3kZ4HX+ye/qCxg+bj +OKI71frW+z+88Xfg05rOORPti/cKtPGnmb3uy+6DVdJyqL11vhC8tIu8wir vx+GH9hxuTurvx/e1URffvud9PfDMXPnX17fSH8/TG+zOnS8lfT3g1ngifBb xNl+CH1s9fwiXV/iB4G4SpffRvP7YWLJb8Ffmk/FH/qrpnlqUHzo+ePIinYb AVtP/LGs+K9sCBt//jju+8q5ml1/1/Xlj2L5rP7+MF5h5VPP6u8Py+Xv/b73 JP398dLjs+GOXqT/RrQYrXhynVhvIwI3Ck5FEmMjFJuVyny6n7MRBV9+OsfT 87kbkZtRffEju/82oi1y55xBbL3aiP7/84/iqWYjLh0fyPnJ5u9NiL3U/14H q/8miIbn3/Ji9d+Ef4JWVIV+Jf27xpfeuLa6mfTfhLIylaLZTaT/JjwOnPB1 DnHJJvTgOy/2pOtrNiHXzTHsAD1PJQDXZuj8qKb59AIw/lbwxg9s/gvA/bVB 1om0nzkB8PE6HjeZrc8BWN7tR/s2dv0BMNgVPaGc1T8AAxuvHjpLetYE4Ixy tLFRb9I/EG5OL4qG9yH9A3FDVVzmRYxAnF32LmMAMScQr662DtCi+7mBGHJr 5wEFPT87ED00o4Sp7PyB2Kw6KEObrT+BULPDp2C2/gXB2eGwoxsbf0HYesjd ohubf4Lwdp64Wp/VPwg/gk6dHtRI+gfhwyS5ztBPpH8Q5oXMNfZrIP2DcOaW ja4pcU3X9RO66aV8JP2D8X5I6PeVX2j+YBy64NkvvoXmD8bUBMnbq7R/OMFQ 2d0cUcH2F8EY0b3O04Dd/8Fwj+/xyZvN/8FIUL2ZG8DqH4ztl1vv9SY9VUIQ v/zCkkH9GNYIwcSUr2Wc/uRHCHZFTdz3ltg4BCGPf72WECME21v/Uayj++1D MMj+s44/61cI9BP8196h+UNC0Cr1+XOQ3o8bgkdhW96Po/dPD0Fenc0gFVpf dghcbR1kFZRPCkKwz/weZwbpXxKCRO+H9rvrGS4PQeouE4P170nvENwZ6/e2 vIbhlq737/egzphYJRRVOqm6u94yrBGK95cW7+hVR36EIuZZtcye/DUORVF+ rMNEigeE4tA8c9EEyqf2oZhib727lu1XQiEvLbCYR/EYEgoT2a5ha9n4DUWm z6GbzaRfeii8s2Z9vD6Q/AyFQ++4eUcGMVwQil/T29ziBpO/oTjqtER1KnF5 KC4HFg0o0yC/u94vU3nMZQDDLaHw4Q5VqvUl/8Ng3uf1QDY/aoQhPmBYrTfb j4Vhv12F1IT8MA5DyFrjkkPs+sNQ7Lqh9BzFt30YPPP+jPpN+nLCsCLUSNBW xXBIGLbmmzUNfU7xG4YcwVKrU08ZTg+DSDwupQeNZ4ch8OGHLf1ekv9hmH5E +XMf+VUSBvUVCUov8qc8DLYFGz4/pnxWE4aXS2GkR360hKHSxeFLG1t/wxEw VXRaSHpohONq4vMJ4aSfXjheuGqW+2pS/IejZuXGofrDKf7DkTbocP9YLYr/ cOTa/mvgRMwJx9fqztpzw8j/cPQwud73yhDyPxztm08MSCO/08NxUh45mM1/ 2eG40eysJqD9UhCO+HMrNgvY/jYcyZZq2p8pv5eHI7jlrOM3Nv7D0f1SpJ7L C4r/cCxucw2/W07xH4FlES4RX+5Q/Eegsf8a7VllFP8RKFslcu97m/yPwLCn m+7E3if/I2AVM+m7B/lnH4H0NfM3cFj/IzBxwrKTd2m/hkRgqXmR9m32fBmB GYUePSdT/KVHQLrurncx5ZfsCOx/wK+KJf0LIuBwv62w1wiK/wi0LU9wUB1J 8R+BPvFjRhroUfxHICDjv6r1xC0R2GkV8SmHrleJxDi743paOuR/JL4uHWLf MpT8jwRv9LHNkeSPcSTG+8b3UFEn/yPhO/Bm3gfqt+wjcU2idjGa/OBEonpp /tUdb2j9kejIFGcYP6L1R2LQ33dxBqUU/5FwVPzWXH2R4j8SCKlfEnqG4j8S J068bFAlLomEhc2t0csvkP+R6LVji9z2BvkfCevQ6jfbab6WSBx67mgQ9I78 j4LVf8OW3qD6ohGFrBnS6HFsPxqFigLDXkvZ9Ueh5vm/pjspvhGF/R92CwNJ X/soVFXWac4fT/EfhW9JPqvPTKT4j0KQpVS835DiPwp3iw8d/m1A/kdBvuXP lK9jyf8oOOo84l8lvwqiMNA0u+4u7aeSKHxqTU1Mongpj4LR0Nh5q9h6H4Vt 9WnOOylftUTho6OIU/+K1h+NcK1Oo+MU3xrRGN/+I1f1HMV/NMZ2TAj4e5zi PxrBkfr3s3Mo/qPR1PrsV3E2+R8N8+mlZaU0zonG0DvDCv6eIP+jMVC126KR 5C83Gn8qG4Z50H5MjwZnSVndVsqn2dF4Yjf6lozqY0E0Bq0y+NWT/CiJxqav FcOvUvyWR6P6xZ0790n/mmg8K4838JlK8R8NH88pio5pFP8xeCWaO2f2dIr/ GORHin7qWpD/MRi5b9zheybkfwzepfZrO0D+IQanehRY64wm/2NgMW7ByOu0 fzhdz0fFIFOqdyExmLE/c11v6i+5Mdild8znVDWtPwaJZr++5VH8ZsfAbkf9 tLn/UvzHYMi21Z8Ld1P8x2D81eLYJUqK/xgcf9Y7a5yI4j8GCTsOh0wibomB jZ5l2nu6XiUWB/9MXLZmL/kfix76I46onCL/Y9F77WnVXNo/xrGId15UIqHz DmJRtDPY/zjla/tY5KRdSbhCfnBisXJP5QzzSbT+WHxesHzuO9KbG4u967xf VoPiPxaxwd9sd1hT/MfidedXzdfEBbHw3dLY59V88j8Wr/asb+42k/yPxfeP HwZ0GJH/Xc/Lu9mYQP60xOJizxPPHKhfUIlD87HwS3Op3mvEwWXagQvtVD/0 4qDj+cA0hfwwjoPo0y+71CO0/jgoe0f38CY97eMwd5vaiLQ4iv84rLypWeUe SPHf9bwZPq9H+JH/cZh9wdz75CbyPw5nUke+PRVD/sfhwbvPZoPTyP84DOAl 8X7lkf9xMA4qzr/7hPyPQ3thRv4oOj/WxKHcIaX7D6ofLXGYdaIpvp7ykUo8 UpqvvrOYTeuPR6/mLU2BSyn+45FrbVAft4riPx7z+/za+mA1xX88dLTnLvdy JP/jsbjPm7CTduR/PMJe8UPSyN+QeNzIlzX+NSb/43E//+N6nVHkfzz2j3h+ 6zP1I9nxULdoenqVzgMF8cgWxk3KonpdEo89dwcs/3CY1h8P/dnzDqqx8R+P TS9muK4MoPiPx4jcs9ZmLhT/CXh4Zvzf7nYU/wlQ3TTXsPcS8j8BW6urJ1jZ k/8JsLkRudfag/xPgGPz7b2dSeR/Ajxzm/KiDpH/CWg+26l8QP6EJMBhwIie 6ez3kwTULPmaXKVL609AYt2X4BOUf7IT8OffHS4fbSn+E1CkWvv6rCvFfwJ6 ux04UOZF8Z+ALQFvPeN8KP4TEMRNyWvlkP8JOCH0nN7difxPxDedRPc/VuR/ IqLa3IWBlC/1EjH35ZiTr6neGSdCWWYpKGa/zyVCyI9/Pu4ZrT8Rd7PO/7lM 9YKTiNk9k4V7BbT+RPyz18jwmxfFfyLi+M36T5ZS/Cci8+TQnqssKf67nud4 5YbMiPxPxITzzi8UxCWJGLNClDp/BvmfCMdTRmEWK8j/RJgefKPqF0L+JyKs bq3tX8qfKklQld9X16P6o5GEdTGPFzVQv6mXhK2/ZyQLx9D6k9Ccwd0vnkvr 7+Ksyy6BtB/sk7DYZNOOj74U/0ld8WYlsgql+E/CSNvak1nE3C7eFbpS15/8 T4LBjTW+r13I/yS8z/5peWYB+Z+E8afUZ72ifqEkCfvsft1JZut/Es4rro8a SOe3miTs/BWvcq+I1p+E+LNN8VOFtP5k/P6kti2cQ+tPxoF5e9McF1D8J2PK W4dp9pMp/pNRo6FeUTGS4j8ZH9Rub1s7gvxPRkTG2Lk+o8j/ZFQt1PoaRX6F JONvWJnG28XkfzLWqD64sZPNf8l4I1Arb88k/7vGHZzM4x6Q/8ngZqlW32TP 98nY6Vz9j5U+rT8ZDyfa3lxP+aYmGcv9HztHraH4T0bWm0mir5so/rnwdFn4 eX8kw+pcZH7KbjEl1uCiZfH7mNiNDGtxUZgTtVhJfutxMZs7tmfOLIYNuJi8 bHVr5j8UL1xMuXttVRPVe0su1uod8qugfhVc9Ph25Mwb2h82XAwf7jUwfg3p yUWBMS4WTGfYhQu10Zrdt+iRvlx0BFw2PDqEYT8uTDsvettrkN5c/M3MmfVj KMMxXDg1B0dNHkv6c5EzdJVn7kyGxVxEqq4vN6P507nYbaw2IDSZ4Uwuduz0 CbxA/Vw2FwNSv/DfU39/lIs384xyEih/F3DB+6xpt3kCw2e5WPplwXEbiucS LlRylRaryZ8yLuwMRj2aQ3qXcxHlWiI5EcZwJRdZ2c9Xfwohf7kweGg2YBnl vwYu1PfF9ZUuI7+5uF08uPY69QPtXOjP69g4nz3/8+C2Y5ldIZ3n1HnYlxTQ M0hK+4GHEak9BiU7MKzFwzrtDfWuE2l/8PD22Xz1UaS3AQ+Pzo1Xqvak/cLD A2e/Q1q9yX8eBhcOiO8/nPznoXPkPfecKeQ/D4lFbqK/lA/teZiifPvpPPUP LjxwahsXPNxG/vNg4ePlFnSF/OchYePUTw/oe1oID42DFhZ2UH6I4WFWGH/4 lXGUf3g4Vz835gzVfzEPp648miFfSfmIhwiTyYdkHgxn8uBwunjitUDKTzyE GWm7mFI+O8qD385d14xofxXw0KxrlXpvLfnPw/CZXw440f4s6Xq/BP/ObVT/ yngYYrPt/eHPlM95wPled1/vYriSBxuXjlPTyI8aHuwjqo+91ma4gYffJp/U HX82Mf7z8Gzq53vxXxhu56H84oHcBzSuwsew951mC2l/qPPBubiBnz2P/Oej 4OnRnnmh5D8fO0elNPaj/k+Pj6sXLrhm0HnKgI/r+pxQfTofG/Mhn6Zjm0Tn Q0s+8lQ63/aj/hd8jJpUcm871XcbPubfmezycD3VEz5eyyc4LyC9XfiYaNHX xCKW6gsfs8rGmR/lMuzHx4gKr1wHPtUbPnwnnl52J4H858Plk0j/XBD5z4dz RJDtDGfynw/V8PlNi6n/SOfDZs6djukUP5l8ZBjqHv15ifY/H9KcREcjqh9H u+afdqrIrB/l667xqsCy1fcZvc/ysXjtuVGXTjBcwofX9klFtvkMl/HRsa7x G6+C4XI+xnByBvw7jPzvev83Vo2bqJ+r4cPad0h6I/WDDXy0p6xuGsv2u3yE aM/sm0b1up2P8pF3XbZSPKukQE8Q6hieTPk/Bel1/b64b6f8n4LKyKU7exyi /J+CPuO4vTXzKf+nYEtSefchxZT/U/Czm9usGcTGKdAst8j3oustU2BsUcQZ Rc9DCgq2myQXbCP/U9A/3m7TnETyPwVHjydnqriR/ykQSyYv2k3+cFLAW2gy jUvfl/1ScKhgkuLhQdr/KVDy72U4m1P+75qfs/Zr8R1GX24KOtOtBxwMZVjc pYfvGueD0xlOT4Ho4ntLawOGM1MwQb3vsQVLGc5OwbQr/zxZlsXw0RQMXfC5 cQntx4IUnNbNjtqYz/DZFGyftHmnjM7nJSnIM9/d0RJM+z8FkvmnWvNPUP5P wa6r/zU9rKT8n4Jz6UddLnyj/J+Cb2o9d/n+pfzf9X6Fsyy6EbekYOGNBx03 2sj/FKiOGFdj/oH8T8XZSZPu/HxE/qcCwy1zq86R/6lIDQv+MXAv+Z+KvIk2 A9yTyP9UHPmxf7I75TeDVKi8Ka/by34vSMWwR/dfvaJ+3zIVYyWuO/IPUP5P xbzOmEnTLCj/p2LZzWHxh24yetqnomZIWd5UV4ZdUvEgKrbhze9Gxv9UXHUa MvHHeYb9UmGgr1lmvY/hkFQsPBne68IphmNSMX1d9Iuo7uR/Kj7Oev1nlpT8 T4XWi9bTqnOo/qdiyJaVC43oe1hmKtZbqE5TZ/N/KkZlOM9ZfJvyf9f7fHL0 mDbwK+N/KsI2Zv2VWTJ8NhXToheo7l3IcEkqziwQdjs4neGyVDhKwuqytRgu T8WlB/Of1jSR/6kwc1r2ybyE/E9FQGLk5HXp5H8qYvjZnBnu5H8q6itXG4aZ kf9d/v3YoNdO31tVBBCacm6+O035XwDpWMe2TrYfFqD0/Zj/Hvel/C+Ar926 c7lnGL30BPi0wfjZDW+GDQS49LTCoFiLYWMBIop+3dlfwehvKcC05a99N5I/ EOCxwcniQC7DNgI8dbk7tj6ZYXsB+vUYqCw+xLCLABqq1mu3/CT/BahPc8js Hc3M5yfAbd3gsQLqv0MEMNkgeTqJzgMxAozJ/ud5OsUrVwDtw/G9Hl2g/C/A Aqf+Lv/1ZvRPF2CXVlHGq5kMZwqg/qfVv8GG4WwBVP862V6dxvBRAV7Efhla 0Z38F+D5D7cLg69T/RcguWH+sEdUv0oE4OdgvDXtl7Ku9YSNcRtK38PKBbBd Jb7b6kv5X4Ccq+1WI7tT/hcg7XLhs5wCZv0NAjTNv/mwahPVfwEOP9/sOHIa 1X8B9voUG5ioU/0XoqJviWZ4PaOnuhDj53s2/37EsIYQn4/e0D5ZxrCWECnv m0fNuM+wnhBXeEcd3r1l2ECI/j/eNAT3Jv+FmPqp8fiBRQxbCvG44MJoxW6G IUSys4HqEXXa/0JYD5195qyM+j8hQmvzem+i750uQizZWzO9hs7/HCG6mTbe 7X+Q8r8QD1d/D/N/Q/VfiNkJGam+PRg/YoTYOMQ4ezXtT64Qmb3XOdp2kP9C /JC3799YRvVfiJ4jos5XU3+R2fU+S/9oG1A/nS1Exh9RfgXtn6NCDDJZpy3Q p/wvhEPRi/TiPKr/QkjSxx0sWUP1X4itdZ7tT8ZT/RfiSKHxsuGDqP4Lofvp kUr8EIYrhVhsvs28lupRjRDemllDXtiR/0L45lSGVcST/0Lc9lU/sP4k+S+E a0LErrav5L8If8fu2FZL+VddhJm6H3SbebT/RVhb1Cr88Zj2vwhThg4YdZ36 Cz0RzqaZLTSg84yBCI0/1f9dSecTYxGaglx4bXso/4uw4VpcXfENqv8iZI8I 6Wv0nuq/CC5Hn+a7U32zF8FL6DIrqYX8F2FGQ5/Ans/JfxGEutbtuofJfxFs a8e576DvPSEiLB91N3wh2/+LEOeq/XQF9U9cEbJ0InN0qD8Ti5B8O77JciXV /y493KaWCXpS/Reh7/KfjWGtTLxni2A23tkyYDDVfxF6FX4tfr+e4QIRjHR+ f2ssI/9F2B7/3fH4Ivp+I8IF/Tk2BncZLhNhhOPrrfbUH5SLMKTXm51DqV+r FOHl2O1XazMo/4ug/NRHokJ6NohwZG/3MslHyv8i9FfusOqrzsR7uwilz1Nb ++oxrCKGZv7+stMmDKuLoeO4fk7WbIY1xAi11xifMY9hLTHkbhv2XKJ6pidG oIfmo+xxDBuIkSEs73OwG8PGYtg+css6Xk7+i+Gu6+H5R0b+i9E3J8l5Jp0H bMSwN5WcG0/f++3FmOC6x7N7PdV/MYZU6W+aZsQwRwzDvh3ytl1U/8WQ2L4P cllA9V+MgDm9NqmZUf0X458Au+0WYQxzxWj7WdtW3cGwWIw3Hb8epl8m/8X4 9rqzWv8onf/F2KudfVS6gva/GBf3Hj22r5TqvxhVWg2Txkym/C/G78rOUVoJ VP/FeFhc0du/iOq/GE8FTTnnHlL9F+O/20Ndo59T/Rejj/ZRvvsDhivF8Ktv qh5+juEaMcTVpw+N2c1wgxhb1RLbtkcx3CLGi8RlhoZ25L8Y+q8bF6bpkP8S NJ8dWFRB+09dgkIXuf6LHOr/JPgoGre0lOqllgTDNji1bqPznZ4EvwYmHlm+ ns5/EpQc/GibmE35X4Is9aCTaXVU/yXYmLh3b+Isqv9dnNUvbHTxF8Z/CeaI 8zQ73Rm2l2CE5fZgODHsIkHGvkWDb2UyzJHARdn/lOdU8l+CbamGGxfSfgyR YHOQ+85sY6r/EkRUaufHWFL973q/vLy51S8o/3etzzu/pXIT1X8JJO1ryjzf UP2XoGiwXvi+ia2M/xK0z+2Y+tqa4aMSGHRzC4yxYLhAgsezN6pVd2P4rASh 4uEz35B/JRLIC1WDFnqR/xJcyDw1ZUQ/8l+Cnz+W37p8mva/BEuv7Ri+gf2+ 3aX/zgVFmvR7U4MEnkXaCa10Pm+RIC9nYXQV9UPtEqzKSA6dvIfyvxRxKgNq Xf9hWF2K57Ondg/eT/Vfin4Jm+1sjKj+S1FiFmN2/xajv54U3dcbDa6KYNhA Cp3zvdIa5zBsLMW3uz2EMZMZtpSibqh54u0lDEOKxoKgBbuyyH8pIree3L5m MvV/XfzvQz33Nur/pAjO7WPtTvWLI8Xe11eLiige/aRY/+mNV+g+yv9SDNIY dj7LiOq/FHZWzy/GHKb6L8U+5+cBM9oZFkux4rfRnm9ajF/pUkwyrl3s1p3h TCluWXx0T7pM/Z8UeQc9sietov5PivdvPA8PeELff6RwjvzPV5PyxVkpem9e h7uUT0qkXecn9Br3lOq/FEbKDXGGVN/LpTim1evRmGxm/ZVS3Cn4FrLAkuEa KThqbZWmnxn9GqQoqrBKCKL91CJFZtPA/DvpDLdL0Ufd/5UyiWEVGZzdcl45 JzKsLkPros6kDwqGNWTY5bhY/X0hw1oyXDWoNNxK8+nJMOB2SFbsHOr/ZNDc Ft6r4hjDxjLsf6KwbjSh/k+G5wVLN4DWCxlG38lSi0qn/k+G8Os3VxpRf2Uv Q5XyzSU51TsXGXLTm2za26n+y3Bkw1J+X1tGfz8ZYnwUlQk8hkNkGHYvtV5j C/kvQ/pG9VkGlB+5MniETQxcNIX8lyFWu/aL+DL1fzKMP/98Q0/KF5ky4Hbd sT3O9P1HBp93u407VlP9l+HK+o/7/cXM+gtkuFe1+ZTuL0avszJIn51tqDjG cIkMv98meOZsYbhMhozYW+7yIwyXy2AcyOdZvGK4Ugal+nlnvfHkvwzlN9YW Jicy3CBDQZ3y2dxqhltkELsuWixYQP2fDMFfgm4Po+9PKnIUnjcTFtD3CnU5 +O8a/cOo/9aQI/SzX9sx+vspLTnymmpcls+h/C/HjtBbF0/EUf8nR9kG7TN1 lK+M5RiW+/NOE51fLeXocfhHC2ckozfkePy2R24c9Rc2cqgmH7+dQn7ay1E7 ePrKG7MYdpGDV9D8elxfhjlyxLrIL6w4S/tfjqfL9cP3Lab9L0fv80+4fcSU /+X4Xnvr+33qj7lyjNn8tb0mjeq/HMq/rb3S6hi90+WIXCZb60/+ZMoh6jMi 32APw9lyNJsLBTrk71E5pquM6+6xjfyXY2mg2Sx9R+r/5Bj1cpvsEOXjEjlM f/SzP0S/t5fJYWLds3QI/f5cLodDi7mJCsV/pRwLbo8pjX1K+V+O9kSD3It0 Xm2Qw+5pWHkInUdb5LhdXRDex5nqvxwnTtRZBIVR/VegaPnW9ktC6v8U0Ovp qWe5lfo/BWKWmTSOyqD+TwHF8CXXT8qp/1Pg49MCb+tw6v8U+HLTJCPDmvo/ BRYZhH4/SN+jLBUoiTHZ243yMxQonGF8/wT9vY+NAoNVNrgdo98D7BWIn1kl vNaN+j8FXsxfrDKjmeq/Ai6P3AZv0WLYT4HSzjG7hAc/M/4rcHdR0CPj4wzH KCBT63/jiwlzPVeBZ8M8ZiVNJP8VyHHtY3o7hPo/BeyrbxyX098fZiqQ9aff 9Q9Z1P8p8NbvRWGlOeV/BU6HXw7wyaX+T4Gf428J9H5R/9f1vHfKavF4pp6U KLD6c8Vy7kyGyxTY00P7QdVshssVOLjSbKePGcOVCki/rS6JG81wjQITuy/U cVdnuEGBFeYvXVvqyX8Fyt8Ll6pdIf8ViGzmT7woI/+VmKn6cf412m/qSigO xZnF/Uf9nxKXChv/cHfT/lci8VO7YwT9nqWnxA47fzsz+r3UQIliwylW8drU /ymxcIms/vIHqv9KJBy8du9PKeMHlFD/FD3wc9Unxn8lnnYvc1xny7B91/N7 eZaenc6wixJNg+f8WXmSYY4SY8wPryi8zDzPT4nB7gP79Lem/l8Je2l4Z4ou 7X8lXv4unW0ppv5Pidqpz8TrQij/K1HxaXi9ymSq/0q0v2jrmXyM6r8S8U8e vTtfS/2fEu5vL2+78oH6PyV2e27rrSyh/k+JLX2+61emUP+nhA5/bMHZOeS/ Err+PZbatlH/p8T6ljGmv09Q/6dEy7tCHxH1h5Vd618SEec7gvp/JfqqHR+a d4/6PyX4/tOwjr4vtSjxrUymcoz+fq5dCVWHvfvDouj37zTUqy8r7Uvfr9XT sO1a67UbRdT/peF087yqxZeo/qdBqix5L7rF6K2Xhs0TryhS3zF+GKSBe93/ 87exDBungeNQqO507CPjfxoiJZPeOkoZRhrWR97X+FX9cd7/A2YKqkw= "]]}}, {}, {}, {{}, {}}}, 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, 1000.}, {-0.5280164273682127, 1.181335049665073}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.7093004126026897`*^9, 3.7093004216202183`*^9}, 3.709300481362093*^9, 3.709300534172711*^9, 3.709300836384947*^9, 3.709300901288766*^9, 3.709301818367557*^9, 3.709301919726441*^9, { 3.709302731942233*^9, 3.7093027616910963`*^9}, 3.709302841605567*^9, 3.7093029799081097`*^9}] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Variance Explained over time", "Section", CellChangeTimes->{{3.7089647648530283`*^9, 3.708964768917425*^9}}], Cell["We can use the sim and SimR2 functions from above.", "Text", CellChangeTimes->{{3.7093010131066713`*^9, 3.709301028065892*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"R2table", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"SimR2", "[", RowBox[{ RowBox[{"ListHMAM", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", RowBox[{"ListHMAM", "[", RowBox[{"[", RowBox[{";;", ",", "t"}], "]"}], "]"}], ",", "1000", ",", "PmamX", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", RowBox[{"tmax", "/.", "pars3"}], ",", FractionBox[ RowBox[{"tmax", "/.", "pars3"}], "100"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.709301029721364*^9, 3.7093011031272717`*^9}, { 3.7093011607654533`*^9, 3.709301167800538*^9}, {3.709301201686686*^9, 3.709301261479371*^9}, {3.709301958892535*^9, 3.709301960043036*^9}, { 3.709302925885661*^9, 3.709302927603977*^9}, {3.709302983790468*^9, 3.709302991074169*^9}}], Cell[CellGroupData[{ Cell["Host-only GWAS", "Subsection", CellChangeTimes->{{3.709302032468196*^9, 3.7093020387792997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostOnly", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.7093012154627953`*^9, 3.709301220493404*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJx91ns41PkeB3DXle6ueU427ClpFZFtsDk+5XI4otZmiZKKEJbRyLhMZlxm MEzWLbeDdCESwpjcL6cxrEq6WUpDNrfYckibVWfP8/v6/px/zjyPx/N+vvP9 fb7vr3m8RutUoKOXlISERM+fP//9TbzemhsylfTd5kPMiawNJzJnmKnRx1H+ Bhzf8EbutbiibA6iWcb1IUVnIjMtgUv7Zax49CDKtsDq6G2SrLRF2QEc+Zf9 lBX8iNz6HbzbpfFD4IPdRIYjsNhwy0RzD5rX+gNYNm6pbRLEo/WjYDNelz+m 5YLW3aDtnVkRTchB6+7gbrE62SQliMgeHpCmap4bG6ZK5MKTsPfom7lLoaFE Fp8CbXo5S8EogsianrCX98r+mUoG2u8FEwER530ORaL9ZyAwPHLfhiU0T+wN E+JvVAzVuGi/LwQ0P26fk2ei/WeBZznleXfv92i/H5wskeV+lER9xP4g3sRw 3ylA79f8EVL/yuzXD0bn8QiEuM608sUSFpEPB4GDoavdRL0Hkd8GQV3ROaFs fjaRU6gwuD14cmgfOu/uYIgw0nGmPMgjcm8wdGjWfk7oRv2CzgFb21SOE5lC 5I002LOj0rdTqoDIlTQQpuof0XFC5z8cAuUW2fcltsag+SHwrkWobeaOnpdy HsYywmWKNtHR/FC4d9NOkJNXjOaHwkfNuwtnRtLRfDqE+InWv/C9iuaHQVNh Ue0ZrQo0Pwy8Dgc4Udr90fxwuBnzrZEig4/mh8Plf3zKXTdZguZHwK2uvi8v duSg+ZFAZ1HY131vo/mRcLB/j2xzWTSazwBaXs9wnwQ638YL4HfIezyRh55f eQFG8r4IUoxF93k4CgzVfz+YObs8PwoKg+UEWpRqItswYabgoYmsfi6Rs5jg +MHeayqtkcjjTAjxnnLdfKOMyMYseMk67uCxA50vngVtbXcPPGusInI/C1Id P8hG918hsk40VDO/87bYVUNkejSc48w993+E5ouioXP6R1snD3QfajGQ6vOx wVSrksg+MTA13x85lI6eL4iB3bbc5tVPa4m8KhbWTmiwnVXQeVxiwcykeNzi NVoviQXxvNuJhI4mIn+IhbjnXSN5bejvZRMHuf/c1Doe0o76x4FY6KWmrVSH +sdBu51YO08JzTdmg16V9PE1Z5tRfzZI2Ny5za9E7+9nw+AvxSYPqtH5dTjQ PPS5ZI/0v1B/DjDT+XMXmtB5RRxoMa9LEZai+1KLhyujnptf1TSg/vFgpVzt d6wZ9RHEQ9uB+6VqlCzUPwEqrenPhjvRfbokwAKlk9mwSoT6J4DOUmzPz6JS 1D8BDPU2X2LnofPZJIK26sDtR9e7Uf9EsM3j7sj1R88fT4TTJ59JnrZG/Yy5 cEpNbu9Y5j3Unwu59bW9mVvR57GfC5qynleoFQLUPwmSJwsirE4JUf8kcONY lullovsUJYH81ve+613RedSSIYo/PeBijO7XJxmcx8cMqTXo/gTJEOA7t2ZL N/o8reLB9gzxws/+aL8LD+hpW+Y2BnWh/jwYODE8Mf/7NdSfB/6Dyvt0a8qR B2/NP3TNGlV50rEfSeekDyc+8sJ+zFj290jYBmA/JlJ3yR27eBr7MetceMnj hQv2w8O42hLKHbAfD9dG9dpaBWM/inem10+stcZ+eMlo3DAIJP2YS+8f4i4l YT/439/SaLemYj9UH0Z+9bokAfvB6GuVj6DTsB92O13uXVakYT+Uj75ZUlUP w34kbaNUpc0wsB+ftKWSD0yTfkjpfumjuJOB/UiXyql/HMjFflwoiJ6Q1UnC fnQ03G41i0jCfjhnUNPXOLhhPzZmPbUKlSH9uKy8zXmTfAL2w8zPa2R7BQP7 odmVs/CVdzz2Q+LTQ3VWVjD2IyZBL0h+hR+xZ03llXpIP8LKS+SOrfDD4on5 HQ9aFvbjvIl80dDdn7AfoxV/VCl4FmI/XD1DPN2Mlv9/h8Di5Wfj+fakH93M nkadXNIPk9NNJnHXmNgPjbfCXyNkS7Af+59fWai3XfaLDg5azAxmLumHIzcv 01+1Evvh02xZoOkWgP2QDFAWLX1Rh/34+99iVlGmb2A/Hq7pElRNkn6Y/Go/ cj6K9EOvX7cpsi8O+/HE2GnESZL0I9rVJzZsgPTDhaacaFBL+mGgQDsybbg8 PwoyP2UVmKaSfqyv9e6bXeFH8RY/fza7Cfsh18tRe7rhJvaj8klF3Ekq6UfA BhjdT7mN/Sga1tHwmSX9OJjrHLHVlfSDmiPzUWBfg/34emCymRtF+jG1mtJj N1qF/bhWypFRnCH9kLbbkjq5pw77waKFpS9mk360SL//zJ/mYz/yl14XHDVo wX7IFQTW1rSTflis+0s2Va4D+1HnoKYs+lqA/biyo3eUqkL6obBrkjpr34r9 ePPqrOZvfaQf/44u2+f6nvRDrOs7mD1L+rGL4evfY7TsJwd616kU/5Z3Ffth lL6oeyiqEftxsc0kv6KKj/144TVqX7+f9OPbtrbMU09IP44tZuT7ZXRjP8r8 irxT0suwH+GW1WHCfNKPwZezw3+o92A/2FR1c/rLbOyH3iGZgONBpB+mc9mU qxIPsB98Vf2d5pakHw7evu6HVO5gP05ydQZEZ0XYj8c/hT+KHSH9iImR0TM7 QfpRfWm+gh3Zgv2QZlneUbMWYj+seC/3CuWXvz/wQNw2uE0pmPTDILc7tLRw uT8PhlTi4x4sXMd+VKhO3Ges8ENi5evP9f/J/2f9P3jg/VE= "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{1, 203, 204, 100, 99, 98, 97, 96, 95, 94, 93, 92, 91, 90, 89, 88, 87, 86, 85, 84, 83, 82, 81, 80, 79, 78, 77, 76, 75, 74, 73, 72, 71, 70, 69, 68, 67, 66, 65, 64, 63, 62, 61, 60, 59, 58, 57, 56, 55, 54, 53, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2}}]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[ PolygonBox[{{101, 201, 202, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 178, 177, 176, 175, 174, 173, 172, 171, 170, 169, 168, 167, 166, 165, 164, 163, 162, 161, 160, 159, 158, 157, 156, 155, 154, 153, 152, 151, 150, 149, 148, 147, 146, 145, 144, 143, 142, 141, 140, 139, 138, 137, 136, 135, 134, 133, 132, 131, 130, 129, 128, 127, 126, 125, 124, 123, 122, 121, 120, 119, 118, 117, 116, 115, 114, 113, 112, 111, 110, 109, 108, 107, 106, 105, 104, 103, 102}}]]}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.01388888888888889], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.01388888888888889], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.706882046141059*^9, 3.706882057366938*^9}, { 3.706882116000101*^9, 3.706882147038015*^9}, 3.7068828157465067`*^9, 3.7069635432170897`*^9, 3.7089655168192263`*^9, 3.70896557362712*^9, 3.7089656417315903`*^9, 3.70896576039087*^9, 3.709299000292557*^9, 3.7092991285069857`*^9, 3.709301177613864*^9, {3.709301208684267*^9, 3.709301220954483*^9}, {3.709301255369512*^9, 3.7093012772713747`*^9}, 3.709301977183978*^9, 3.7093020872167587`*^9, 3.709302253135663*^9, 3.7093030010030003`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Host-pathogen Co-GWAS", "Subsection", CellChangeTimes->{{3.7093021020212584`*^9, 3.709302108212081*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HostPath", "=", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "2"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "3"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "4"}], "]"}], "]"}], ",", RowBox[{"R2table", "[", RowBox[{"[", RowBox[{";;", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{"Pink", ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Blue", ",", "Thick"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Blue", "]"}], ",", "Thick", ",", "Dashed"}], "}"}], ",", RowBox[{"{", RowBox[{"Purple", ",", "Dashed"}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", RowBox[{"FillingStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"Gray", ",", RowBox[{"Opacity", "[", "0.2", "]"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7068820313621387`*^9, 3.70688212197466*^9}, { 3.7069635399153347`*^9, 3.706963542592328*^9}, {3.708965460947465*^9, 3.708965463423026*^9}, {3.708965509795703*^9, 3.7089655136301413`*^9}, { 3.709299015741476*^9, 3.709299069296522*^9}, {3.709299231083899*^9, 3.709299236209456*^9}, {3.70929932637269*^9, 3.709299328684326*^9}}], Cell[BoxData[ GraphicsBox[{{}, GraphicsComplexBox[CompressedData[" 1:eJzF1/c/1W/cB3BSoWVLERrKKEKFSi6JUhlNoSQjKxnZ89hb9v4iMvrKnskW TiKSSkTWOY6Rb4XSUHf343w+70/3X3CfXzxej+tcn/f1upzHebLdyOa86SoG BoZfjAwM//uT/vqoJEPiktJfclSi593oesI8Kcb3GpYPovNzkePdjXpYVkLk z565I5w69Ew6gcIc3k7lTZ7Fsjryae2tZyxRx7ImOl91z4qbw4qem86hT/uE Ltv07KdndBH9eFykICyLzWu6jE7UCVbW1wRj67roFK06fWr7FWxdHzV/Usxy aA/C1g2Qgcq6CIUoW3o2NESxvEqp/q689Jx5Ax3SnVtMdHam51EjtNul0Ifj gDs9C5ugQ5ETGm944rH9pmja2t3JXMsD238T2bh5HGVbweaNmqHp0YM8Mnxh 2H4LZN3Q37LISsL2W6LIE7MmbYcuYPut0I38NWHfGbE+o7fQ6GZPg7012PuF b6OYnaQBKXvsPIY2KKAjtvBHvg89a9siTRm9M9O1hvT80RZVZ91pX5OeTM9R dmhoj/3MyFHsvPvtkfsBUR25njR67rVHrcKVv0M6sX62d1Dg7sPMQR5R9Mzu gGTFSiw6VmXQc4kDao+Ruih6CTu/tiMqVEl+zrDLD5vviD41tu9WNMCeF+WE puLdVmdtdsHmO6Puh2dqUtLysPnO6Ltw29eb43HYfBfkaEXeNGxxH5vviuoz sypvbi/G5rsiU23rS3Itt7D5buih35EDnJ5V2Hw3dO/0r9SNM/nYfHdU9LRv 293WFGy+B3LxkQvMtSjD5nugswOyaxoKfLH5nsghrWusjwE7H7sXstIyo4VG Ys8v8ULjaWttOf2x+9T2RjIC384mfMbne6NMe+aa7XLl9HyKhOYzXiiskUql 5yQSOr+sYTobW0fPNBJyNJvV439QQM/yPui9zzVNQzHsfME+qLm57fibulJ6 HvBBMeeX1/gOZNOzqC8qJ50zU9lXQc8uvuhO0OK7Wy+x+WRf1PHhtvolQ+w+ +PxQjPn3x4e3l9CzuR+aXRrwGInDnl/jh/arhzWse11Jzyz+aMO0UKAOD3ae K/5IUSGPpkLF1vP90eiS/vWQ1np6XvZHAe+ejqc1Y7+vUwEo9Z/NTTTHFqx/ ABptN+XbzVWN9Q9ALWdGd6dxYfPlA5FkKdO19ZYNWP9AxHDqUVlVCfb+gUA0 9DZPoaccO79oEGoY+Z0vy/QE6x+ESHFVi1712HnJQahRqTqq/V/svviCUfak Cf9ExWOsfzBS5S63utqA9akJRs3Hn//LJ5eE9Q9BJWoub8Y6sPu8EoK+ynWQ HrOQsf4hSHTFv+sZ+V+sfwiSkeRPDEzDzncqFO3mHSx7mduJ9Q9F6mlhYqm3 sOfTQpHxjTeMxmpYP/kwZMTHfGgqoRvrH4ZSayt7E3Zhn8eBMCS8xiTbrrgG 6x+OImYy3FWN2rH+4Ug/6ESBZAJ2n+RwxLrri8UmPew8fBHIu+rD4BV57H7N I5AObUrGrgK7v5oIZG2xuF6wE/s8sUSiPfGjX5/dwvZfiUQusYKL7LZPsf6R aPD62PTStxysfyS6NcR9VKKiEPPgo9Ly088HSk1cwI/wO0zaoS9NwY/5EwNd DOrW4Md0zD7mq3eNwY/POpmJhsNXwA9D+fITqFAT/HixwbtXXdUe/MjbG1c7 vUEN/DBdLfRA2obwYzFuYCRsJRz8qLpQJNSiZgd+8L7w2EHNDwE/PPuaWN1d HMCPM3uvdN/jdAA/uHXnVngFXMGPcBG50th5T/Dj1+5VEcc/EH6skthmzrnX E/yIW5VS228TBn54ZfhOrxENBz9aH5c1KbqHgx868XZx6zX1wQ/2pNeqzqsJ P+5xi+hsZg0BPxStTMf3FHuCH8JPU77uMAsGPxh+vRDwSbIHP/xCJG1Z//LD 3/IwK1cX4YdrYT7z1b/8UHml9MjQIQn8cFJgzRppiwY/Jot/lnKYZIIfeiaO JvoH8O9vR/Tj3htaugbhRyepq040lfBDwbheISCHBH4IfWynuK/JBz+U32V/ rVXH/XJBmttJ8aRUwo/zYWkJt3hLwA/zhhMZwvrW4AejNTd5ZW01+HHymB+L 3IcH4MeL9U9rSmcIPxQoGuNO3oQfkgMS9R59AeDHK/lL45cYCT989cz9XQcJ P644cIdKVxJ+SHM4XPwgg8/3Rgm/kjIOxxB+bKo06/v8lx95gla3AgPrwQ/m 3iC+12wPwY+SV8UBN+wIP6zZ0KSyXBn4kTUmKmT+mfDjbKqO+y49wg+7lNXf azQqwA/xwZmGMG/Cj9l1cl1nJkvBj5x/g1ZzzhN+MJ0RjJmRrQY/fBxc434k E340Mn35XfWhCvxIX6Fm6Eo3gh/MGTaVFS2EHyobtybbMbeCH9WafNxk8Rrw I1usd9KOh/CDY9+M3WeNJvBjbsJS+L8+wo8F34Kjel8IP0YlLIaSPxN+7PO0 uNV1APczCPVu5Mn7L+0++HEg7oeElncd+HG3WSG9uLQK/Bg2ndSoVSb8ONLc nGD0ivDj6o/4dKv4TvCjwCrLLCquAPxwO1Hu2p5O+DH0/vPYT4Eu8CPQTkDJ 5X0y+CGptdr6mi3hx+HFZLn7DD3gRxWv1F6lE4QfmmYWBlo8j8CPG2Gig2RL MvjRH+320n+c8MPPb7Wk4nXCj/LEpeJAj0bwg8nnxCM+tXbwQzXy/aF2Vvzv h0g02jwkwmVP+CGd2un8bybePxKN8AQH9HzNBT+Keaefe/7lh6eu/tSrZA/w Y2te7ttj13AvDqLOz80ykouEH9p8JsE/o23Bj1apSyzMXjfBD47VmovvD5qA H0MvHY4UlPqCH+o/Bky/bzIEPy4b3z5ksMUN/Jid8EVSu6LAjyFW54HmKNwf feS7u8p/VXMc+NGoyuI7sxACfjxeP2x08Joz+JHPqLtpblMA+MEulJL27GYU +PFBjl1GvSIV/Kh7PBy744Yf+FFHvhgyF0H44UytGyzPTwQ/1HZEaxssxIEf Pv2aX37r3QQ/XL/cHTWfTgc/Ojaat6o8jgU/zmW3tskP4ee3QbS6uO/yOmng h6JFw/yxHmfwI3FZTpe8NRf8uOZ0+hptczD4YcjzNYeaWQJ+3FF/uTdgTS74 obQ0PnKjPxP8OPnk8sVfsvj3twP6b750n12zC/iRW5ebK/U0FvyQnqkwvyld BH784DmrNK+Fz3dGgtMK31TMH4EfX6fbZVwDMsCPDTTWGySWMvDjYZUCpzNP G/ghbvAzQDzbC/x4QmE7ubOnFfyovLhSY25WBX4sfIi3TvtYDH7IGsnLapxu BT/WHf5PuvNRAvjxUb1URTq9GvywOGlWUdSIz/dCn7p38qzdGQl+cO/MFWhL 7QA/6tX6nzCmt4If97VqxkbjC8GPpiTfV4UGXeDH5jQpXkkl/PvDB02dru7f j5rBD5EazuC6xnbwI134oD+KqQA/4lJqX3SPt4IfeQ3sER6Hn4AfarV+ByPc H4EfY0VuHCJazeDH+KOhM28jmsAPK9GCcJGQDvDj4pgrk1J2C/jhpdEqLEFq Az+2SrX1yZY8Bz9Kb34MutrcDH7wc1weX8vbB37kzs2fnBRtBz9qXPP0aEMt 4AdD+76iHTtegh8DW/idlP3x/oHoprnUUVX7FvBDSHr2dMfOV+DHsaMt7tmN zeBHLcPWgnUiFeAHY4Lynpfmz8EPlVzpmG3GneDH+/cDvaEO+eDHpgtM7vNd zeDHtNIaVrW2AfCjee/npz2pNeDH6hvKt+/114EfvT3di47Rg+BH2rzkLJNu EfhhY893dmd8B/jRferofjGhIfBj2XBMlPlUBfhRZZvxyZ6lA/xo9FUx5Ujv Bz/WtvFrXDJsAT/u+0dNcqk2gh+rAnmPcS3h/SPQluM8J706X4AfS9LeFf6Z T8CP1ginmpLkJvBjglHLmgG9Az9ITOoizufKwI+tn9zTOQsawI93xSI57y54 gx96g+ItLyg24EfyhXdbOPWdwI/eW1PNlGsk8OOTc3LjUTNL8MM1MvZ7gTfu iSa6uCB7bu4T4cc51QV/M2Nb8GO0995nK00S+FFDZXTxlIwFP168PPGen80T /NCU6m2LmCP84GaRuL2zJRT8YArYuvLmnA/4cXS0ynU2kvDjqZRJk1Iz4cfd P8Rv/k74YezLxZkSTfhR+vJs+P0mwo+PJhvJlTlJ4EePN5n3uwP+/8sfP1yq KKV2FuBHVpl1lANHBvhxZTbRYrEkDvywTDCW9y6KBj/2lzIIiahngB/MAz0N +fMk8OPlujvMq7cRfqTIODPIDhB+FHT4NU6PEn6YsaXz8ZIJP4R2X8hJIN8D P1QNWl7PHiD80OrXCdws5wp+nLvMnrrwivCDq4rzeoQ/4Ufl+KGny1Xh4IeX pADpWwLhx9vEUY6Mgizw49sDFmU3WcKP5zYx1SpjhB+hOlPOMz2EHzm0PF/P HU/AjzUjPQll9oQfg8/PkH3YS8APuVURCs2uhB96HqUTpwMTwY+Et/UtiXOE H/YiljrljO3gxzktJrH1/0SBHx2zRdsr6wg/WI0DPbkLCD8eipvU6mcSfshq bzUP4OoGPx5SQmdsVAk/EmmxwqF/+XHtyNCFT8od4Aff+eSUhSXCj13Rh/Y2 zRB+lAmGepxdIvzI8hk9ZppM+DHhlWjx5koL+GHDNrtyoI3w4+FGT3FlEhn8 2JJUsvqqYCv4Magke/DGwXbwg7bYO7WXvwf8WBQlC9d+I/yYkBj33BxF+OHY b0v7lUv4ETZe5OhHIfyg0RCzjUQ/+HHfyGnu5z+EH7yXBfen3yX8YMm4s2E4 ivDDV9zyecsc4Uf+YMXiT+ZK8OO8oq1m0DfCD8HowLISn2fgR3RC+c/neg/A D9uXLtl97wg/jn0q3EhBg+AH92/r+upuwo8Xdtry0WOEH3nbLsv3CQyBH0vL 29io7YQf+z6s8+psIfxgi+jbeWWY8EM4ZJDrwNZK8OPoiFT7tS2EH7T/rIXy DuP9w1E1YkrQySf8uP7OVeWLNuGHhkX4t2H/HvAjRfcAjYWxD/xwu/f+Umke 4ccrphdfd+cQflQd89hgcGQY/NCV3ri+aIrw4+jEfMByEeFHyQa3oqL1VPBD cuW0xCplCvgROHJU6YIGnpXQ2oDxkAeFFPDDYXTi2Mbfk+BHH5OxHI8fvq6J WEYC1dztKeDH6ak7y0JJFPDD1pNfK3h5EvzQyi3rUkb4ui7q/VLklKOL79dH c0z1kvP48/74YTN5SYvlAQX8CMkL48h5RwE/vrPbLQ1kUsCP648zo85aUMCP 868l2sWj8P2myMt3eDnvGr7/Jsq+eo6leALfb4Zm9q2NuD+M77dAC5zZrYwJ +H5LxHfa/F4Ofp4/fuQ8bHvNJEYFP9Y58Ff/uIHvv42Od2+a27CfCn70kcPz h+9SwI+yy0HKRaco4Me683uHldQo4Eeg2rCRvDEF/GAMeyqbE0sBP1KWyC0j G6jgh1N78UG7LVTww20wS0DIjgp+kFjq01vx5/3xo14n2LFkBZ/viJzFXgm0 8VHBj53HbdiSDPD5zmiTfpnU9kwq+CHuI1/4RRWf74I4jj15Wi2Dz3dFeySd m+7tmAI/dtnNDBxawOe7oVTPM3cXBKbAj7WKijoKC/h8d6TzcDS9v44Kfgg5 bdwrsYUGfpRbmXPkdFLAjzwmVvbfx6fAD34B0bfn1Wngx5ZeAf212/H53mik VsBQzIAGfghOedtQbk2BH51JdqrHRKjgh2q5uklP0DT4MaqvfFWsmAp+RKqZ fFrHMwV+MBQY8K5nnQE/qMLrfht1U8GPEOMATn4JGvjhM7d/gW3rDPihcY7G EC0+BX6oGc2kecdMgR/2nsHkZ+9nwA9LjlJ3o4kp8EMxujQ+oY0GfvC/1rLe zDcHfigOdnXWS9PAj9PaNh4e62ngh2+US9OhzXPgh0OY4AYjIxr4cbBxjK1m Eu8fiJKPnHpwHX/+Hz/Yo7Pa0tlo4Ic3xZTrxoEp8INcEF02YTkHfmgHuYst dtLAD9oZDsqDRSr4MS464SKTNQt+yLzR7T2FZsGPuBXJqHf6VPAj/p5ln0DU LPgxOhxv/8kY7x+CIgJUfc1VqOBH+cDaBRGHGfDjgq79O+7QD+DHbfa1Qc9v UsEPHX1ucbF10+AHa8xd7rv5eP8w9KHofkzzqynwI2LY8EfsM7x/OHogdTbi fQPePxwVrp0PkJLF+4cj35m5k8FFNPCD7Y3HKFP9HPhRmoCCN/Dj/SPQbk7p SAl/vH8kahfbOPObdQ78mOhpM3tGwvtHotvXvfZs2ToFfhivYjnovn0W/GD4 +/Vn/f/k/8f1/wFbPQzF "], {{{}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UczgwEABNBPjy6iExEkQvTeI3p00TthHPn/hxjPjMPb3fvGC9/5r9Ig CEr4/O+i+OHDfqfAG6+88MwTjzxwzx233HDNFZdckOecM0454ZgjDjkgxz57 7LLDNltskmWDDOusscoKyyyxyALzzDHLDNNMMckE44wxSpoRhkkxRJIEgwzQ T5w+YvQSpYduuuikg3baaKWFCM2EaaKRBuqpo5YaqglRRSUVlFPG3z+/8YEX 0w== "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwt0UVWggEAhdFfd+KWXILnKCZgN6KCgd2BIgZid3fjnnTgHTi453xv/ErK IqXh4iAIiqignB/jl29d4ItPPnjnjVdeeOaJRx64545bbrjmiksuOOeMU044 5ohDDthnj112yLNNji022WCdLGtkWGWFNMssscgC88wxywzTTDHJBOOMMcoI KYYZYpABkiTop49e4vQQo5suOumgnTZaaaGZJhppoJ4oEcLUUUsN1VRRSej/ lz/Cyj7f "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwlz8VWQgEARdH3MBAsVOxA7PoaPsGBQ/1Ou1tBRcXuxNwuB3vddYcnPT6V mYwEQRAywTTvTpExRhlhmCEGGaCfPnrpIU03KbropIN22milhWaaaCRJA/XU kaCWGqqpopI4MSqIUk4ZpZQQIQz/I37MN1988kHxr4k3XnnhmSceeeCeO265 4ZorLrngnDMKnHLCMXmOOOSAHFn22WOXHbbZYpMN1lljlRWWWWKRBeaZY5YZ fgGi4DkY "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxtc6ggEAANCfN/EARrbslRRFsndIQsnee8/elkvn4nzfqcoUU4XKIAgq yFItv/xR5odvvvjkg3feeOWFZ5545IF77rjlhmuuuOSCc8445YRjjjjkgH1K 7FGkwC47bJNnixybZNlgnTUyrLLCMkssssA8c8wywzRTTJJmghTjjJEkwSgj xIkxTJQhIgwyQD999NJDN1100kE7YdpopYVmmmikgXpC1FFLDf+/Rylb "]]]}, {}, {GrayLevel[0.5], Opacity[0.2], EdgeForm[None], GraphicsGroupBox[PolygonBox[CompressedData[" 1:eJwNxkVWQgEAAMCvN/FKHsGFSzmLLXYhgoKB3Y3YYnd3i7p2FvPeFBSFCkvy gyDIo5hS+eWPH3J888UnH7zzxisvPPPEIw/cc8ctN1xzxSUXnHPGKSccc8Qh B+yzxy47ZNlmi002WGeNVVbIsEyaJRZZYJ45ZplhmikmmWCcMUYZYZghBhkg RT999NJDkgTddBEnRidROojQThuttNBME400UE8dtYSpoZoqKqmgnDL+AZCQ UGc= "]]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.008333333333333333], Thickness[Large], LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}]}, {RGBColor[1, 0.5, 0.5], PointSize[0.008333333333333333], Thickness[ Large], Dashing[{Small, Small}], LineBox[{101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200}]}, {RGBColor[0, 0, 1], PointSize[0.008333333333333333], Thickness[Large], LineBox[CompressedData[" 1:eJwNz9c6ggEAANA/OyuRGepHKJ7GI/hc85xZ2ZS9Ze+9zsV5gBNOzkxMR4Ig mCLPLHPMs8AiBZZYZoVV1lhng022KFJimx122WOfAw454pgTTjnjnAvKXHLF NTfccsc9DzzyxDMvvPLGOx988sU3P/zyRyAZoYJKqqimhlrqiFJPA4000UyM FuK00kaCdjropItuekjSSx/9pEgTMsAgQ2QYZoRRsuQYY5x/YMU3Hw== "]]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], PointSize[ 0.008333333333333333], Thickness[Large], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwV0Nc6ggEAgOHfpbgAZCd7V7LKDFGyJXtkZWZzyb0O3uf5jr/aXDF5UBME QZ46UU8DIRppopkWWmmjnTAdROiki2566KWPfgYYZIhhRhglSow4YyQYZ4JJ ppgmSYoZZpljngUWSbPEMitkWGWNLDnWybPBJltss8Mue+xT4H9GkUOOOOaE U84454JLrihxzQ233HFPmQceeeKZF16p8MY7H3zyxTc//PJHFbQKJ2Y= "]]}, {RGBColor[0.5, 0, 0.5], PointSize[0.008333333333333333], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJwNxlVSQgEAAMDnUbySR3D81rOYiF0IiI2FjV3Yid2iYnIA9mNntrS8qqyy JAiCCqqlhlrqqKeBEI2EaaKZFlppo50OOumimx4i9BIlRpw+EvQzwCBDDDPC KEnGGGeCSaZIMc0Ms8wxzwKLpFlimRVWWWOdDTbZYpsdMuyyxz4HHHLEMSec csY5F2S55IprbrjljnseeOSJZ1545Y0c73zwSZ4vvvnhlz/+KVAEiHtOdg== "]]}}}], {}, {}, {{}, {}}}, 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, 991.}, {0, 1}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.709299173228026*^9, {3.709299217591552*^9, 3.709299240418005*^9}, 3.709299304355733*^9, 3.709299419637433*^9, 3.709302174462837*^9, 3.709302254142775*^9, 3.709303002954517*^9}] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, WindowMargins->{{-1457, Automatic}, {Automatic, -192}}, PrintingCopies->1, PrintingPageRange->{1, Automatic}, Magnification:>1.25 Inherited, FrontEndVersion->"11.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 28, \ 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[1486, 35, 297, 6, 321, "Title"], Cell[1786, 43, 365, 6, 103, "Text"], Cell[2154, 51, 139, 2, 39, "Input"], Cell[2296, 55, 710, 16, 132, "Text"], Cell[CellGroupData[{ Cell[3031, 75, 334, 10, 137, "Chapter"], Cell[CellGroupData[{ Cell[3390, 89, 116, 1, 80, "Section"], Cell[3509, 92, 1413, 45, 211, "Text"], Cell[4925, 139, 832, 20, 66, "Input"], Cell[5760, 161, 468, 8, 37, "Text"], Cell[6231, 171, 549, 16, 63, "Text"], Cell[6783, 189, 675, 15, 62, "Input"], Cell[7461, 206, 513, 13, 85, "Text"], Cell[7977, 221, 744, 21, 92, "Input"], Cell[8724, 244, 239, 4, 37, "Text"], Cell[CellGroupData[{ Cell[8988, 252, 521, 11, 39, "Input"], Cell[9512, 265, 2121, 35, 56, "Output"] }, Open ]], Cell[11648, 303, 194, 4, 61, "Text"], Cell[11845, 309, 642, 19, 66, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[12524, 333, 113, 1, 80, "Section"], Cell[12640, 336, 525, 15, 87, "Text"], Cell[13168, 353, 832, 20, 66, "Input"], Cell[14003, 375, 134, 1, 37, "Text"], Cell[14140, 378, 768, 16, 43, "Input"], Cell[14911, 396, 339, 11, 61, "Text"], Cell[15253, 409, 694, 21, 92, "Input"], Cell[15950, 432, 239, 4, 37, "Text"], Cell[CellGroupData[{ Cell[16214, 440, 596, 12, 60, "Input"], Cell[16813, 454, 2148, 36, 87, "Output"] }, Open ]], Cell[18976, 493, 194, 4, 57, "Text"], Cell[19173, 499, 696, 20, 60, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[19906, 524, 143, 2, 62, "Section"], Cell[20052, 528, 719, 11, 132, "Text"], Cell[20774, 541, 578, 15, 60, "Input"], Cell[21355, 558, 205, 4, 57, "Text"], Cell[21563, 564, 647, 20, 60, "Input"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[22259, 590, 166, 3, 136, "Chapter"], Cell[22428, 595, 919, 14, 85, "Text"], Cell[CellGroupData[{ Cell[23372, 613, 145, 2, 79, "Subchapter"], Cell[CellGroupData[{ Cell[23542, 619, 112, 1, 80, "Section"], Cell[23657, 622, 249, 5, 57, "Text"], Cell[23909, 629, 797, 19, 60, "Input"], Cell[24709, 650, 591, 10, 95, "Text"], Cell[25303, 662, 998, 17, 132, "Text"], Cell[26304, 681, 1937, 57, 103, "Input"], Cell[28244, 740, 444, 7, 57, "Text"], Cell[28691, 749, 1674, 40, 66, "Input"], Cell[30368, 791, 290, 5, 57, "Text"], Cell[30661, 798, 1069, 33, 102, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[31767, 836, 114, 1, 62, "Section"], Cell[CellGroupData[{ Cell[31906, 841, 304, 8, 60, "Input"], Cell[32213, 851, 964, 25, 87, "Output"] }, Open ]], Cell[33192, 879, 168, 3, 57, "Text"], Cell[33363, 884, 815, 19, 60, "Input"], Cell[CellGroupData[{ Cell[34203, 907, 1021, 26, 60, "Input"], Cell[35227, 935, 6035, 118, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[41311, 1059, 160, 2, 62, "Section"], Cell[CellGroupData[{ Cell[41496, 1065, 304, 8, 60, "Input"], Cell[41803, 1075, 3294, 72, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45134, 1152, 1026, 26, 60, "Input"], Cell[46163, 1180, 7837, 146, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[54049, 1332, 208, 3, 62, "Section"], Cell[CellGroupData[{ Cell[54282, 1339, 349, 9, 48, "Input"], Cell[54634, 1350, 1096, 27, 82, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55767, 1382, 1017, 26, 82, "Input"], Cell[56787, 1410, 21817, 375, 356, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[78665, 1792, 123, 1, 79, "Subchapter"], Cell[CellGroupData[{ Cell[78813, 1797, 111, 1, 80, "Section"], Cell[78927, 1800, 339, 6, 95, "Text"], Cell[79269, 1808, 1908, 51, 102, "Input"], Cell[81180, 1861, 187, 4, 57, "Text"], Cell[81370, 1867, 1937, 57, 103, "Input"], Cell[83310, 1926, 1837, 45, 66, "Input"], Cell[85150, 1973, 2483, 72, 143, "Input"], Cell[87636, 2047, 234, 4, 57, "Text"], Cell[87873, 2053, 1490, 40, 102, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[89400, 2098, 140, 2, 77, "Section"], Cell[89543, 2102, 652, 16, 60, "Input"], Cell[90198, 2120, 699, 18, 60, "Input"], Cell[90900, 2140, 751, 20, 60, "Input"], Cell[91654, 2162, 835, 22, 60, "Input"], Cell[92492, 2186, 860, 22, 60, "Input"], Cell[93355, 2210, 915, 24, 60, "Input"], Cell[94273, 2236, 975, 25, 60, "Input"], Cell[95251, 2263, 1040, 27, 60, "Input"], Cell[96294, 2292, 1103, 28, 60, "Input"], Cell[97400, 2322, 1151, 30, 60, "Input"], Cell[98554, 2354, 1217, 31, 60, "Input"], Cell[99774, 2387, 1289, 33, 102, "Input"], Cell[101066, 2422, 118, 1, 57, "Text"], Cell[101187, 2425, 2325, 61, 143, "Input"], Cell[CellGroupData[{ Cell[103537, 2490, 2378, 56, 183, "Input"], Cell[105918, 2548, 11538, 229, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[117505, 2783, 161, 2, 77, "Section"], Cell[117669, 2787, 704, 18, 60, "Input"], Cell[118376, 2807, 728, 20, 60, "Input"], Cell[119107, 2829, 810, 21, 60, "Input"], Cell[119920, 2852, 837, 22, 60, "Input"], Cell[120760, 2876, 894, 24, 60, "Input"], Cell[121657, 2902, 954, 25, 60, "Input"], Cell[122614, 2929, 1022, 27, 60, "Input"], Cell[123639, 2958, 1080, 28, 60, "Input"], Cell[124722, 2988, 1126, 30, 60, "Input"], Cell[125851, 3020, 1192, 31, 60, "Input"], Cell[127046, 3053, 1262, 33, 102, "Input"], Cell[128311, 3088, 118, 1, 57, "Text"], Cell[128432, 3091, 2327, 61, 143, "Input"], Cell[CellGroupData[{ Cell[130784, 3156, 2315, 54, 183, "Input"], Cell[133102, 3212, 10608, 210, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[143759, 3428, 109, 1, 77, "Section"], Cell[143871, 3431, 572, 14, 48, "Input"], Cell[144446, 3447, 713, 18, 48, "Input"], Cell[145162, 3467, 765, 19, 48, "Input"], Cell[145930, 3488, 714, 18, 48, "Input"], Cell[146647, 3508, 772, 20, 82, "Input"], Cell[147422, 3530, 1028, 24, 115, "Input"], Cell[148453, 3556, 1183, 27, 147, "Input"], Cell[149639, 3585, 999, 25, 180, "Input"], Cell[150641, 3612, 1168, 28, 180, "Input"], Cell[151812, 3642, 1211, 29, 212, "Input"], Cell[153026, 3673, 1195, 30, 245, "Input"], Cell[154224, 3705, 2272, 60, 180, "Input"], Cell[156499, 3767, 253, 5, 76, "Text"], Cell[156755, 3774, 302, 8, 48, "Input"], Cell[CellGroupData[{ Cell[157082, 3786, 2891, 77, 212, "Input"], Cell[159976, 3865, 31502, 550, 353, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[191551, 4423, 248, 7, 102, "Chapter"], Cell[191802, 4432, 416, 7, 106, "Text"], Cell[CellGroupData[{ Cell[192243, 4443, 107, 1, 98, "Subchapter"], Cell[192353, 4446, 718, 11, 136, "Text"], Cell[193074, 4459, 873, 19, 48, "Input"], Cell[193950, 4480, 13806, 313, 1057, "Input"], Cell[207759, 4795, 981, 17, 138, "Text"], Cell[208743, 4814, 10882, 283, 927, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[219662, 5102, 123, 1, 72, "Subchapter"], Cell[CellGroupData[{ Cell[219810, 5107, 112, 1, 100, "Section"], Cell[219925, 5110, 367, 7, 76, "Text"], Cell[CellGroupData[{ Cell[220317, 5121, 124, 2, 48, "Input"], Cell[220444, 5125, 800, 18, 48, "Output"] }, Open ]], Cell[221259, 5146, 1178, 35, 88, "Input"], Cell[CellGroupData[{ Cell[222462, 5185, 468, 11, 48, "Input"], Cell[222933, 5198, 412, 8, 62, "Message"], Cell[223348, 5208, 414, 8, 62, "Message"] }, Open ]], Cell[223777, 5219, 136, 1, 46, "Text"], Cell[CellGroupData[{ Cell[223938, 5224, 1028, 27, 82, "Input"], Cell[224969, 5253, 4451, 83, 382, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[229457, 5341, 1635, 42, 147, "Input"], Cell[231095, 5385, 7285, 128, 376, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[238429, 5519, 159, 2, 100, "Section"], Cell[238591, 5523, 367, 7, 57, "Text"], Cell[CellGroupData[{ Cell[238983, 5534, 124, 2, 60, "Input"], Cell[239110, 5538, 774, 18, 87, "Output"] }, Open ]], Cell[239899, 5559, 1476, 39, 66, "Input"], Cell[CellGroupData[{ Cell[241400, 5602, 569, 13, 60, "Input"], Cell[241972, 5617, 412, 8, 87, "Message"], Cell[242387, 5627, 413, 8, 87, "Message"] }, Open ]], Cell[242815, 5638, 136, 1, 57, "Text"], Cell[CellGroupData[{ Cell[242976, 5643, 1232, 32, 102, "Input"], Cell[244211, 5677, 4714, 85, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[248962, 5767, 1876, 48, 143, "Input"], Cell[250841, 5817, 8442, 149, 87, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[259332, 5972, 205, 3, 77, "Section"], Cell[259540, 5977, 367, 7, 76, "Text"], Cell[CellGroupData[{ Cell[259932, 5988, 124, 2, 48, "Input"], Cell[260059, 5992, 800, 18, 48, "Output"] }, Open ]], Cell[260874, 6013, 1472, 39, 88, "Input"], Cell[262349, 6054, 569, 13, 48, "Input"], Cell[262921, 6069, 136, 1, 46, "Text"], Cell[CellGroupData[{ Cell[263082, 6074, 1230, 32, 82, "Input"], Cell[264315, 6108, 4704, 85, 391, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[269056, 6198, 2080, 53, 180, "Input"], Cell[271139, 6253, 8270, 145, 391, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[279482, 6406, 122, 1, 101, "Chapter"], Cell[CellGroupData[{ Cell[279629, 6411, 141, 2, 98, "Subchapter"], Cell[CellGroupData[{ Cell[279795, 6417, 113, 1, 100, "Section"], Cell[279911, 6420, 1915, 35, 60, "Input"], Cell[281829, 6457, 762, 17, 135, "Text"], Cell[282594, 6476, 873, 24, 60, "Input"], Cell[283470, 6502, 133, 1, 57, "Text"], Cell[283606, 6505, 609, 16, 60, "Input"], Cell[284218, 6523, 160, 3, 57, "Text"], Cell[284381, 6528, 313, 8, 96, "Input"], Cell[284697, 6538, 275, 6, 57, "Text"], Cell[284975, 6546, 1152, 29, 60, "Input"], Cell[286130, 6577, 116, 1, 57, "Text"], Cell[286249, 6580, 503, 14, 60, "Input"], Cell[286755, 6596, 102, 1, 57, "Text"], Cell[286860, 6599, 311, 8, 96, "Input"], Cell[287174, 6609, 25228, 647, 1435, "Input"], Cell[312405, 7258, 134, 1, 57, "Text"], Cell[312542, 7261, 2010, 55, 102, "Input"], Cell[CellGroupData[{ Cell[314577, 7320, 662, 16, 60, "Input"], Cell[315242, 7338, 21976, 374, 475, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[337267, 7718, 108, 1, 77, "Section"], Cell[CellGroupData[{ Cell[337400, 7723, 102, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[337527, 7728, 39, 0, 60, "Input"], Cell[337569, 7730, 843, 23, 88, "Output"] }, Open ]], Cell[338427, 7756, 3870, 110, 183, "Input"], Cell[CellGroupData[{ Cell[342322, 7870, 798, 21, 60, "Input"], Cell[343123, 7893, 17406, 304, 447, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[360578, 8203, 160, 2, 66, "Subsection"], Cell[CellGroupData[{ Cell[360763, 8209, 107, 1, 60, "Input"], Cell[360873, 8212, 1186, 32, 88, "Output"] }, Open ]], Cell[362074, 8247, 10316, 293, 468, "Input"], Cell[CellGroupData[{ Cell[372415, 8544, 1971, 53, 183, "Input"], Cell[374389, 8599, 34116, 595, 447, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[408566, 9201, 115, 1, 77, "Section"], Cell[408684, 9204, 134, 1, 57, "Text"], Cell[CellGroupData[{ Cell[408843, 9209, 786, 22, 91, "Input"], Cell[409632, 9233, 464, 9, 45, "Message"], Cell[410099, 9244, 466, 9, 45, "Message"], Cell[410568, 9255, 464, 9, 45, "Message"], Cell[411035, 9266, 399, 8, 45, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[411471, 9279, 102, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[411598, 9284, 1181, 31, 102, "Input"], Cell[412782, 9317, 6233, 107, 483, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[419064, 9430, 109, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[419198, 9435, 1876, 48, 143, "Input"], Cell[421077, 9485, 8461, 161, 483, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[429611, 9654, 162, 2, 98, "Subchapter"], Cell[CellGroupData[{ Cell[429798, 9660, 113, 1, 100, "Section"], Cell[429914, 9663, 1760, 33, 60, "Input"], Cell[431677, 9698, 902, 24, 60, "Input"], Cell[432582, 9724, 133, 1, 57, "Text"], Cell[432718, 9727, 558, 15, 60, "Input"], Cell[433279, 9744, 160, 3, 57, "Text"], Cell[433442, 9749, 313, 8, 96, "Input"], Cell[433758, 9759, 275, 6, 57, "Text"], Cell[434036, 9767, 1157, 29, 60, "Input"], Cell[435196, 9798, 116, 1, 57, "Text"], Cell[435315, 9801, 503, 14, 60, "Input"], Cell[435821, 9817, 102, 1, 57, "Text"], Cell[435926, 9820, 311, 8, 96, "Input"], Cell[436240, 9830, 23534, 598, 1353, "Input"], Cell[459777, 10430, 1632, 51, 102, "Input"], Cell[461412, 10483, 134, 1, 57, "Text"], Cell[461549, 10486, 2060, 55, 102, "Input"], Cell[CellGroupData[{ Cell[463634, 10545, 662, 16, 60, "Input"], Cell[464299, 10563, 29451, 496, 477, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[493799, 11065, 108, 1, 77, "Section"], Cell[CellGroupData[{ Cell[493932, 11070, 102, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[494059, 11075, 108, 1, 60, "Input"], Cell[494170, 11078, 3194, 71, 152, "Output"] }, Open ]], Cell[497379, 11152, 3925, 111, 183, "Input"], Cell[CellGroupData[{ Cell[501329, 11267, 848, 22, 60, "Input"], Cell[502180, 11291, 45781, 769, 458, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[548010, 12066, 160, 2, 66, "Subsection"], Cell[CellGroupData[{ Cell[548195, 12072, 159, 2, 60, "Input"], Cell[548357, 12076, 2810, 77, 112, "Output"] }, Open ]], Cell[551182, 12156, 10378, 294, 468, "Input"], Cell[CellGroupData[{ Cell[561585, 12454, 1996, 53, 183, "Input"], Cell[563584, 12509, 27335, 483, 450, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[590980, 12999, 115, 1, 77, "Section"], Cell[591098, 13002, 134, 1, 57, "Text"], Cell[591235, 13005, 883, 23, 91, "Input"], Cell[CellGroupData[{ Cell[592143, 13032, 104, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[592272, 13037, 1181, 31, 102, "Input"], Cell[593456, 13070, 7084, 121, 483, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[600589, 13197, 111, 1, 66, "Subsection"], Cell[CellGroupData[{ Cell[600725, 13202, 1876, 48, 143, "Input"], Cell[602604, 13252, 11694, 214, 483, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[614371, 13474, 161, 2, 98, "Subchapter"], Cell[CellGroupData[{ Cell[614557, 13480, 113, 1, 100, "Section"], Cell[614673, 13483, 1760, 33, 60, "Input"], Cell[616436, 13518, 986, 25, 60, "Input"], Cell[617425, 13545, 133, 1, 57, "Text"], Cell[617561, 13548, 558, 15, 60, "Input"], Cell[618122, 13565, 160, 3, 57, "Text"], Cell[618285, 13570, 313, 8, 96, "Input"], Cell[618601, 13580, 275, 6, 57, "Text"], Cell[618879, 13588, 1166, 29, 60, "Input"], Cell[620048, 13619, 116, 1, 57, "Text"], Cell[620167, 13622, 503, 14, 60, "Input"], Cell[620673, 13638, 102, 1, 57, "Text"], Cell[620778, 13641, 311, 8, 96, "Input"], Cell[621092, 13651, 23580, 599, 1353, "Input"], Cell[644675, 14252, 1668, 52, 102, "Input"], Cell[646346, 14306, 174, 2, 57, "Text"], Cell[CellGroupData[{ Cell[646545, 14312, 1252, 34, 60, "Input"], Cell[647800, 14348, 56011, 936, 468, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[703860, 15290, 108, 1, 77, "Section"], Cell[CellGroupData[{ Cell[703993, 15295, 102, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[704120, 15300, 154, 2, 60, "Input"], Cell[704277, 15304, 997, 25, 60, "Output"] }, Open ]], Cell[705289, 15332, 3963, 111, 183, "Input"], Cell[CellGroupData[{ Cell[709277, 15447, 870, 22, 60, "Input"], Cell[710150, 15471, 56099, 938, 440, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[766298, 16415, 160, 2, 66, "Subsection"], Cell[766461, 16419, 16660, 461, 915, "Input"], Cell[CellGroupData[{ Cell[783146, 16884, 2016, 53, 183, "Input"], Cell[785165, 16939, 151322, 2517, 440, "Output"] }, Open ]] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[936548, 19463, 115, 1, 96, "Section"], Cell[936666, 19466, 134, 1, 57, "Text"], Cell[936803, 19469, 927, 24, 91, "Input"], Cell[CellGroupData[{ Cell[937755, 19497, 104, 1, 83, "Subsection"], Cell[CellGroupData[{ Cell[937884, 19502, 1181, 31, 102, "Input"], Cell[939068, 19535, 7041, 120, 310, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[946158, 19661, 111, 1, 54, "Subsection"], Cell[CellGroupData[{ Cell[946294, 19666, 1876, 48, 196, "Input"], Cell[948173, 19716, 12379, 225, 310, "Output"] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature LuTFi#rwMJ2ceC188KjU#qLT *)