(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 3779580, 82371] NotebookOptionsPosition[ 3713591, 81018] NotebookOutlinePosition[ 3714571, 81050] CellTagsIndexPosition[ 3714434, 81043] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Exact diffusion dynamics of a distribution in the piece-wise linear potential\ \ \>", "Title", CellChangeTimes->{{3.787728469290469*^9, 3.787728516750703*^9}},ExpressionUUID->"7de4687e-ca31-4f2d-bba6-\ f7aab0817087"], Cell[TextData[{ "Abstract:", StyleBox[" ", FontColor->GrayLevel[0]], StyleBox["We give time-domain calculation of P(x,t) for the Smoluchowski \ equation with piece-wise linear potential. We consider an absorbing boundary \ at arbitrary point and finite strength. This problem has been unsolved in \ the time-domain even for the delta function initial condition. The \ proposed new method overcomes the difficulties of taking inverse Laplace \ transform as well as overcomes the difficulty of treating transcendental \ poles analytically. The exact analytic form of the time-dependent probability \ distribution is presented, and the results are compared with the Laplace \ domain solution.", "Subsection", FontColor->GrayLevel[0]] }], "Section", CellChangeTimes->{{3.787728554620536*^9, 3.787728630205621*^9}, { 3.787728691118947*^9, 3.787728805046588*^9}, 3.787728840455268*^9, { 3.7877288924328003`*^9, 3.787729069321207*^9}, {3.7877291037744207`*^9, 3.7877291140079107`*^9}, 3.78782145420172*^9},ExpressionUUID->"75e5b042-8674-4d99-8ee4-\ e3cb5ac361a9"], Cell[CellGroupData[{ Cell[TextData[{ "Introduction:\n", StyleBox["Diffusion dynamics of a probability distribution over a potential \ surface can mimic various processes related to chemistry , biology , physics \ etc. The moelcular level reactions are usually understood by the motion of \ the reacting species along the reaction coordinate. In case of adiabatic \ picture, the effect of metastability on the reaction can be probed whereas \ the effect of inter system crossings can be studied through the diabatic \ picture. So far in the literature, these effects are studied in the kinetic \ picture in deriving the rate constants of such reaction-diffusion systems. \ There has been no exact time-domain solution to investigate the dependence \ of parameters affecting the time-dependent survival probability. However, the \ problems are following reasons: i) The Smoluchowski equation governing the \ reaction-diffusion is usually solved using Laplace transform. And the inverse \ Laplace transform has been not feasible when one adds even a single boundary \ to the equation. ii) For the models incorporating the metastability, the \ models are snot solvable owing to the complicated form of the potentials. \ The processes are studied through the following one-dimensional equation \ written as,", "Subsection", FontColor->GrayLevel[0]] }], "Section", CellChangeTimes->{{3.787729086261323*^9, 3.78772909418163*^9}, 3.787729813090188*^9, 3.7877392330879927`*^9, {3.7877396490477333`*^9, 3.787739778991027*^9}, {3.787739844262295*^9, 3.7877398443464317`*^9}, { 3.78773996512071*^9, 3.7877399749391403`*^9}, {3.787740015190959*^9, 3.78774004096327*^9}, {3.787740085872273*^9, 3.787740095593068*^9}, { 3.7877401449845543`*^9, 3.78774025339104*^9}, {3.787740290315048*^9, 3.7877402998573723`*^9}, {3.787740353068132*^9, 3.787740425891321*^9}, { 3.7877427536865253`*^9, 3.787742761019812*^9}, {3.7877436003689537`*^9, 3.7877436025818*^9}, {3.7877436664530888`*^9, 3.787743693164793*^9}, { 3.787743730118658*^9, 3.787743830743987*^9}, 3.7877439515936604`*^9, { 3.78774425261265*^9, 3.787744629591522*^9}, {3.787744881186225*^9, 3.7877451069033318`*^9}, {3.787745237532209*^9, 3.787745351212174*^9}, { 3.787745397920415*^9, 3.787745482198119*^9}, {3.78774554968762*^9, 3.787745678152631*^9}, {3.787745712248622*^9, 3.7877457487186317`*^9}, { 3.787745804006885*^9, 3.787745804026114*^9}, {3.787745962038094*^9, 3.787746207565258*^9}, {3.787746289796006*^9, 3.7877464286850863`*^9}, { 3.7877465189012737`*^9, 3.787746532305929*^9}, {3.7877467693279123`*^9, 3.787746836631421*^9}, {3.787746940332993*^9, 3.787747027148588*^9}, { 3.787747069237021*^9, 3.78774707523367*^9}, {3.787747139199849*^9, 3.787747139200123*^9}, 3.7877471772731752`*^9, {3.787747323118781*^9, 3.7877473312326927`*^9}},ExpressionUUID->"c87f93cf-0dcb-4f73-9f34-\ 8e8d383ad4b7"], Cell[BoxData[ RowBox[{ StyleBox["\n", "Subsection", FontColor->GrayLevel[0]], StyleBox["\t\t\t", "Subsection", FontColor->GrayLevel[0]], RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "P"}], " ", RowBox[{"(", RowBox[{"x", ",", " ", "t"}], ")"}]}], RowBox[{"\[PartialD]", "t"}]], " ", "=", RowBox[{ RowBox[{"D", FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], "P"}], RowBox[{"\[PartialD]", SuperscriptBox["x", "2"]}]]}], "+", RowBox[{ FractionBox["1", RowBox[{ SubscriptBox["k", "B"], "T"}]], " ", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"(", RowBox[{"P", FractionBox[ RowBox[{"\[PartialD]", "U"}], RowBox[{"\[PartialD]", "x"}]]}], ")"}]}], FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["k", "0"]}], RowBox[{"S", "(", "x", ")"}], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]}]}]}], ","}], TraditionalForm], "--"}], "-", RowBox[{"(", "1", ")"}]}]}]], "Input", CellChangeTimes->{{3.787747195544985*^9, 3.787747195573213*^9}, 3.787747466424735*^9},ExpressionUUID->"03c0ba70-5edf-4743-bdb9-\ 145b82710ec9"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["where `D' is the diffusion coefficient, `x' is the reaction \ coordinate, ", "Subsection", FontColor->GrayLevel[0]], StyleBox[Cell[BoxData[ FormBox[ RowBox[{" ", SubscriptBox["k", "B"]}], TraditionalForm]], "Subsection", FontColor->GrayLevel[0],ExpressionUUID-> "5eba71fd-09e0-4da4-893d-ef19cbc20bcd"], "Subsection"], StyleBox[" is the Boltzmann constant, U(x) is the shape of the potential \ well, and depending the problem suitable sink function can be chosen. In this \ paper, we give exact time-domain method to explore the models of each of one \ type. i) model A, U(x)=b|x| with S(x)=\[Delta](x-a), the particle moves \ along the piece-wise linear potential with a finite absorbing boundary placed \ at `a \[CloseCurlyQuote] . The model B is given by, ii) \ U(x)=b|x+a|\[Theta](-x)+\[Theta](x)b(a-x) with S(x)=0. The model is \ construction of piece-wise linear potentials with a metastable barrier \ separating two minima. as considered in [].The analytical solution for the \ above models involve complex inverse Laplace transform as well as difficulty \ in treating the transcendental poles. This paper presents a new time-domain \ method to calculate the exact time-dependent probability distribution for \ both the models A and B, The proposed time-domain method uses random \ variable transformations to flat potential to derive the propagator. The \ solution is compared with the numerical results and also with the Laplace \ domain solution [].\nLet us consider the model A, which is given by the \ following equations,", "Subsection", FontColor->GrayLevel[0]] }], "Section", CellChangeTimes->{{3.787729086261323*^9, 3.78772909418163*^9}, 3.787729813090188*^9, 3.7877392330879927`*^9, {3.7877396490477333`*^9, 3.787739778991027*^9}, {3.787739844262295*^9, 3.7877398443464317`*^9}, { 3.78773996512071*^9, 3.7877399749391403`*^9}, {3.787740015190959*^9, 3.78774004096327*^9}, {3.787740085872273*^9, 3.787740095593068*^9}, { 3.7877401449845543`*^9, 3.78774025339104*^9}, {3.787740290315048*^9, 3.7877402998573723`*^9}, {3.787740353068132*^9, 3.787740425891321*^9}, { 3.7877427536865253`*^9, 3.787742761019812*^9}, {3.7877436003689537`*^9, 3.7877436025818*^9}, {3.7877436664530888`*^9, 3.787743693164793*^9}, { 3.787743730118658*^9, 3.787743830743987*^9}, 3.7877439515936604`*^9, { 3.78774425261265*^9, 3.787744629591522*^9}, {3.787744881186225*^9, 3.7877451069033318`*^9}, {3.787745237532209*^9, 3.787745351212174*^9}, { 3.787745397920415*^9, 3.787745482198119*^9}, {3.78774554968762*^9, 3.787745678152631*^9}, {3.787745712248622*^9, 3.7877457487186317`*^9}, { 3.787745804006885*^9, 3.787745804026114*^9}, {3.787745962038094*^9, 3.787746207565258*^9}, {3.787746289796006*^9, 3.7877464286850863`*^9}, { 3.7877465189012737`*^9, 3.787746532305929*^9}, {3.7877467693279123`*^9, 3.787746836631421*^9}, {3.787746940332993*^9, 3.787747027148588*^9}, { 3.787747069237021*^9, 3.78774707523367*^9}, {3.787747139199849*^9, 3.787747139200123*^9}, 3.7877472349652653`*^9, 3.787747291441052*^9, { 3.7877473399791603`*^9, 3.787747354009569*^9}, {3.787747399072448*^9, 3.78774742814178*^9}, {3.787747474102401*^9, 3.7877476146462793`*^9}, { 3.787748038094496*^9, 3.787748162491819*^9}, {3.787748212953813*^9, 3.787748380745277*^9}, {3.787748650684573*^9, 3.78774877520092*^9}, { 3.7877488067472*^9, 3.7877488399362993`*^9}, {3.787748895660098*^9, 3.787748941968006*^9}, {3.7877491912058563`*^9, 3.787749428215047*^9}, { 3.787750294306991*^9, 3.787750309525334*^9}, {3.787750449195383*^9, 3.787750453962915*^9}, {3.7877506521719637`*^9, 3.787750671671875*^9}, { 3.787750708816619*^9, 3.787750710646696*^9}, {3.787750747523171*^9, 3.787750776213107*^9}},ExpressionUUID->"5d46f492-e607-4a8b-b76b-\ a0c22979af24"], Cell[BoxData[ RowBox[{"\t\t\t\t\t\t\t\t\t\t\t", RowBox[{ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "P"}], " ", RowBox[{"(", RowBox[{"x", ",", " ", "t"}], ")"}]}], RowBox[{"\[PartialD]", "t"}]], " ", "=", RowBox[{ RowBox[{"D", FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], "P"}], RowBox[{"\[PartialD]", SuperscriptBox["x", "2"]}]]}], "+", RowBox[{ FractionBox["1", RowBox[{ SubscriptBox["k", "B"], "T"}]], " ", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{ RowBox[{"(", RowBox[{"P", FractionBox[ RowBox[{"\[PartialD]", RowBox[{"|", "x", "|"}]}], RowBox[{"\[PartialD]", "x"}]]}], ")"}], "--"}]}]}], "-", RowBox[{"(", RowBox[{"2", " ", "a"}], ")"}]}]}], "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t", RowBox[{ RowBox[{ RowBox[{"P", "(", RowBox[{"x", ",", "0"}], ")"}], "=", RowBox[{"\[Delta]", "(", RowBox[{"x", "+", SubscriptBox["x", "0"]}], ")"}]}], ",", RowBox[{"--", RowBox[{"-", RowBox[{"(", RowBox[{"2", " ", "b"}], ")"}]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t\t"}]}]], "Input", CellChangeTimes->{{3.787751173487171*^9, 3.787751265214404*^9}, { 3.787751296244632*^9, 3.787751330280727*^9}, {3.787785764582769*^9, 3.787785783020932*^9}},ExpressionUUID->"c3c1292a-2949-4e4d-ba87-\ 3a5bac820c2d"], Cell[BoxData[ RowBox[{ GraphicsBox[{InsetBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwtxX0sFHAYB3Av0yx2XsahcIpMlxE2dqw9v5rVqpXIH5kptKahMVNsTCUr vWjtNi8tlU23qBahllaen3Gbkte7FDcUO5OKSopbS7V9//jssyE9J+GYjZWV VfQ//w8h5dzqqkpikbPiX75iUUksmlvDAheXVBKL8KB96TOfVBKLKJeysddv VRILMf3t1fUmlcQi4ULf/YgjKolFwUDZiYwOX4mF0egw15nmI7HwkTluUd7e EovHWd12TuPrJBapV8K+jpZ6SSyWtUXlTJ4Si3rFhFfNB6XEonZPWJ7horvE ojQ7rXDzbjeJRZHtvYK8L64Si7QzAwEjDS4Si8oX5praTGeJxbPJIMcHGxUS C39nsSPxloPEokVdnjk1bS+xmNQ/8ouMXCOxMAdXhvMTW4mFS0ljZIi1tcQi OHIhWLf4mzGdi/0y2F74izG5Jz68luTxnTG1/NQ79QTMMSadyVzxsWyCMY0V K2/fjJhgTArfXc3xU+OM6VRqw3A7jTOmneZMj0sWE2OanV+oU+eOMia1jaU1 K9nImA7Xq/WqtUbGpI1NHjE8NTAmy/nnyzFKA2PqdTi9zXFoiDG9U9tfTaro Z0wp8d5tpqPdjOnz4pLmZHcXYyquGmDFpi7GVGsq7d0+08mY2nqH9XFDHYyp 6Ue2/+xYG2Pq1/iFrq9tZUzzJYbo/SktjOmQa/6d49zEmA7GKGysX+oYk1af 75Wxt54xDcaZtvb11TGmGz0HOFxXzZg8x33m/zRqGdOW6TeaqpTLjCnQMbc6 JOMsY9LYhd59b85nTH8B0ybWFw== "]], LineBox[CompressedData[" 1:eJxFxVlMEgAYAGCECIJkyIKFDgiabOBK1yyHxnSlTAsdshxslqhb2MTKnBdz M93ssLl0ac5hLickuRyMWjEnWoIG1joMnZZ2aZdtpVkNckyrB///4dsnLDyt Pk4kEAjyf/4vI8da330sT964plXxyBDfAq/VGjuvx16F64r7S/xSE+zZ0Xih i9kDN7SLShMuW2DFVpd2gm6FfYHvEjKlHy4qkurvrd2GB2g1U+4KD9y9i+23 i0bh8yr782vP8CPtC48rJQ/hZaHSLX3tg8Uynv1K6lN4/I4u1dE4Ce+dD+PX a9/CO5cH/yS6F+EM88snWdoVOC2TRfp9NwA366br4pwh2JvFC1exwlI2/iZk 174wkeCK8piCZs5meHqOqdb7qHC+cf9nipIOe2ISLnnIDFi8xfXFks6EeS5D GvliBExYJfaVzbPgQPZQ3lj0Nng2XhcV3cCGSzXMCNEcB+a2fdBu4m2Hbbnd 1p/VXFgjP5vuG4qEHXknRYmhKDhIO0gayOHB6omkfbwOPkxLoo+4uvARy6vD R814XLWxoNOGMwTOJu4YPl6yZ4G9gqdQJS0MpQAOnglG2rJx+6z3RqYG59v1 g02FeCjH8olmxJ1mgZzSi58KX/L23sLFVcNqhQNvO3TsxDkXXvbD1Ery49Lc Yr55Bn8/Kus78AZXdcwM1y/iVOLNDOESft9QNfngF145pdDlr+K7kzlf19fx v/x1o1w= "]]}, Annotation[#, "Charting`Private`Tag$3473#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-8, 8}, {0., 7.999999673469388}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{{}, {}}], Scaled[{0.4920520231213879, 0.48988439306358456}], Center, {1.2302504816955688, 0.9479768786127165}, {{1., 0.}, {0., 1.}}], LineBox[{{1.0091522157996153`, 0.15606936416184958`}, { 1.0178227360308292`, 0.5780346820809246}}], InsetBox["", {0.9889210019267829, 0.11271676300578037}, {Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox["x", "s"], FontFamily->"Nimbus Sans L", FontSize->18], TraditionalForm]],ExpressionUUID-> "595e2f60-12d8-4196-9e4e-3445df98fc1f"]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "0dea080f-64af-41c0-aa95-bc1d97794ed1"], TextAlignment->Center, FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.9773603082851638, 0.07225433526011527}, { Left, Baseline}, {0.09826589595375722, 0.13005780346820808}, {{1., 0.}, { 0., 1.}}, Alignment->{Left, Top}], InsetBox[ StyleBox[Cell[TextData[StyleBox["Reaction coordinate (x)", FontFamily->"Nimbus Sans L", FontSize->16]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "ce4f09e8-f92e-4d4f-ac47-c8bfef8d5822"], FontColor->GrayLevel[0.4], Background->GrayLevel[ 1.]], {0.3068400770712914, 0.043352601156069426}, {Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ FractionBox[ StyleBox[ RowBox[{"U", "(", "x", ")"}], FontFamily->"Nimbus Sans L", FontSize->20, FontWeight->"Plain", FontSlant->"Plain", FontVariations->{"StrikeThrough"->False, "Underline"->False}], RowBox[{ SubscriptBox["k", "B"], "T"}]], FontFamily->"Nimbus Sans L", FontSize->12], {0.6970134874759158, 0.8757225433526029}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.6478805394990373, 0.7283236994219653}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.8299614643545286, 0.8410404624277457}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.7577071290944131, 0.9537572254335259}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {1.0062620423892106, 0.10982658959537561}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.48603082851637835, 0.6387283236994219}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.6594412331406558, 0.5520231213872832}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[Cell[TextData[StyleBox["sink", FontFamily->"Nimbus Sans L", FontSize->16]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "ceab8652-a50b-4f5b-ab61-423b7795d7fa"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {1.1045279383429678, 0.29190751445086693}, { Left, Baseline}, Alignment->{Left, Top}], ArrowBox[{{1.0178227360308292`, 0.3670520231213872}, {1.1045279383429678`, 0.3208092485549132}}], ArrowBox[{{0.6536608863198465, 0.11488439306358522`}, {0.6565510597302511, 0.9110805519298921}}], ArrowBox[{{0.025919143964129532`, 0.14782460796275687`}, { 1.3125283627668485`, 0.15027520901920377`}}]}, ContentSelectable->True, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{370.39999999999964`, 276.8}, PlotRange->{{0., 1.3333333333333335`}, {0., 1.}}, PlotRangePadding->Automatic], GraphicsBox[{ InsetBox["", {0.9889210019267829, 0.11271676300578037}, {Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[Cell[TextData[Cell[BoxData[ FormBox[ StyleBox[ SubscriptBox["x", "m"], FontFamily->"Nimbus Sans L", FontSize->16], TraditionalForm]],ExpressionUUID-> "834bca06-1a5d-4a36-979e-8b29c01ce12a"]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "9d672bbd-bea2-4cea-ba68-b634cd4f5394"], TextAlignment->Center, FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.8993256262042387, 0.15028901734104494}, { Left, Baseline}, {0.09826589595375722, 0.13005780346820808}, {{1., 0.}, { 0., 1.}}, Alignment->{Left, Top}], InsetBox[ StyleBox[Cell[TextData[StyleBox["Reaction coordinate (x)", FontFamily->"Nimbus Sans L", FontSize->16]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "a73eb218-e8da-47fe-a045-e505344fd8cc"], FontColor->GrayLevel[0.4], Background->GrayLevel[ 1.]], {0.32707129094412346, 0.054913294797697354}, {Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ FractionBox[ StyleBox[ RowBox[{"U", "(", "x", ")"}], FontFamily->"Nimbus Sans L", FontSize->20, FontWeight->"Plain", FontSlant->"Plain", FontVariations->{"StrikeThrough"->False, "Underline"->False}], RowBox[{ SubscriptBox["k", "B"], "T"}]], FontFamily->"Nimbus Sans L", FontSize->12], {0.6970134874759158, 0.8757225433526029}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.6478805394990373, 0.7283236994219653}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.8299614643545286, 0.8410404624277457}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.7577071290944131, 0.9537572254335259}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {1.0062620423892106, 0.10982658959537561}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.48603082851637835, 0.6387283236994219}, { Left, Baseline}, Alignment->{Left, Top}], InsetBox[ StyleBox[ TagBox["", "RawBoxes"], FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.6594412331406558, 0.5520231213872832}, { Left, Baseline}, Alignment->{Left, Top}], ArrowBox[{{0.6565510597302511, 0.11849710982659145`}, {0.6594412331406556, 0.9146932686928984}}], ArrowBox[{{0.04326018442655724, 0.1998477293500408}, {1.3298694032292762`, 0.2022983304064877}}], InsetBox[ StyleBox[Cell[TextData[Cell[BoxData[ FormBox[ RowBox[{"-", SubscriptBox["x", "m"]}], TraditionalForm]], FontFamily->"Nimbus Sans L", FontSize->16,ExpressionUUID->"a2f8d962-5edf-45d8-bc3d-3816f1ef5cbe"]], GeneratedCell->False, CellAutoOverwrite->False, CellBaseline->Baseline, TextAlignment->Left,ExpressionUUID-> "865f6c63-2df2-489f-92b6-607b7e0fa646"], TextAlignment->Center, FontColor->GrayLevel[0.4], Background->GrayLevel[1.]], {0.2909441233140664, 0.1286127167630089}, { Left, Baseline}, {0.21676300578034677, 0.13005780346820808}, {{1., 0.}, { 0., 1.}}, Alignment->{Left, Top}], InsetBox[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwdjGtIk2EUgJeXdAhzkWSRRpelm5TiDVPIM4rhBU2xsoS8a8IsFf3hQHPT LK3sR+pAp2lk5hWVRNKRng0veUshZ6ahm3iBFN33TZdzZl9v/Tg85+E5nHNJ mVGpFiwWS0DmH93hxAbDMHiv4JKGEDL3L5TumxlcMgRxd4wMdHV7uhBiQlpy 2PomA1788CRCTIlUDE3OMeB3rHiBEDPO2/ZUdzIgXKHHCVE2siL3jmcgquRL GyG+49TcSRv4A7nTxQ8JcbuO/WMq/xA0GrsNdeIhNrc4ah4PmsFZleng5/Qb A2RafsYVE/SkD1nbL5pRPFdqd0ZphIQyT2q+aB9VJ5N13dY7YCrPK0UwIXVx jyuVUtDAWTpVtfwLywIkaQlPN6E21DN75pkRs9yGR8Nd16HoQaJEELKLth+e LDfyliHPsjU3e8uA309H9lekz0GibJr3rZlG7lFTWNLLcYierw9cbKAxQX74 c+bqOIR6Zd1draPxDc+yRLQ9Bj6r3DJDJY3C6xw1P2IMbIOjdjiFNMpkPF89 dxQ67GfVQTE06syRzvmVw3BQtxDXx6axS9+yJa9RAbXXKlFZ0ciSdj63CVPB amRe+WeGQpmTOMJgQpiycBqZNVKoipEN9ioH4O392MuGZQqFmvY2UeAnCHbX HbgpKWSNWefHiz6CvH+tqlZMemqmv0tTK8RJFAV+qeSfY917bXgL8L0jUr7G k/vxyePVu02gbO71sL1Nurvbtt21RliqeDGSA6Trx0QrffXQdEPYzgkg/abr 2Wib15DFNr5q8SG9t9g8eksBFtK4WK2AeCF0dugrwVXsuRvqQPz/UgwUb31+ jUNcFzLZPfEI+rQKlLGJZ6Ov9EgOqCcEEn9r4lYeTbq1FPgLz79oiA== "]], LineBox[CompressedData[" 1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAAfWisD431778ABi+n4OVkP7yV26zY 5++/AERqJFMneD/ggK5DRNLvvwCQvyje3YY/cvYXD3rH778AxwR0+EKMPwRs gdqvvO+/AP+kXwnUkD8pV1RxG6fvv8A16qojOZY/ci36nvJ777/AUbogrIGg PwSjY2ooce+/gJ+Ls/LaoT+WGM01Xmbvv0DtXEY5NKM/uwOgzMlQ77+giP9r xualPwTaRfqgJe+/gL9Et+BLqz+WhpFVT8/uv6CW56YKC7M/ut8oDKwi7r9g BHI9P9W9P3w8Aa2aGO6/QDjsL1V2vj89mdlNiQ7uvzBsZiJrF78/wFKKj2b6 7b8Aaq2DyyzAP8fF6xIh0u2/yNGhaPduwT/Uq64ZloHtv2ChijJP88M/7nc0 J4Dg7L+QQFzG/vvIPyMQQEJUnuu/dL//9q6G0T+yKohq4uPovzhV31V2cNw/ 38WxIDY25r9CdJy+k5PjP+UslTK/tuO/NqbVmoGS6D8Rfqk2LgHhv94DrZKj /e0/LDbvLKXz3L/qZIhpLYbxP4NE7dC5eNe/vl2JF6ND9D8VVK6QWRfSv/bV qDdT9PY/svbFD8gkyr9Ugg78zXb5P6Xb5Y3phL6/i0RDzmIv/D/afBafnTO+ v2UwHUyMOfw/Dh5HsFHivb8+HPfJtUP8P3ZgqNK5P72/8fOqxQhY/D9G5WoX ivq7v1ejEr2ugPw/6O7voCpwub8jAuKr+tH8PyoC+rNrW7S/u7+AiZJ0/T9e oyrFHwq0v5SrWge8fv0/kkRb1tO4s79ulzSF5Yj9P/qGvPg7FrO/IW/ogDid /T/LC389DNGxv4ceUHjexf0/2CoIjlmNrr9SfR9nKhf+P11RHLTbY6S/6jq+ RMK5/j/s8/U5dcSjv8GgYKy4w/4/fJbPvw4lo7+YBgMUr83+P5zbgstB5qG/ RtJH45vh/j+0y9LFT9Gev6Jp0YF1Cf8/r/RsI+jalL9bmOS+KFn/P845IC8b nJO/Mv6GJh9j/z/uftM6Tl2SvwlkKY4Vbf8/WBJ0pGi/j7+3L25dAoH/P1M7 DgIByYW/E8f3+9uo/z+SxXQZZ0uDv+osmmPSsv8/0E/bMM3NgL/BkjzLyLz/ P5vIUL8ypXe/b16BmrXQ/z8Y3R3u/qlyv0bEIwKs2v8/K+PVOZZda78dKsZp ouT/PyYMcJcuZ2G/9I9o0Zju/z85BS+n4OVUv31orA+N9f8/97nvxg== "]], LineBox[CompressedData[" 1:eJwV0n001XccB3C7Et1GdxUdGsVOdx4qjqXmae8siaWSaex4zDacyHTnIcTk WNJh11Ba5szp3jxEHKflTi5fDxO3jtw8nEvuDFeyWVyWXOb+vvvtj+/5nPM9 n/fr+znn87WM/Nr/K46Ojo47e/6vznr2VRMvApARU7elYJkivdjrceyBBIwK Yq1L/6BgMlPLfrZPAsdQ1l4xTJF1ri5u0DYNdlX8z+8+oejanZdbzstGxthk XquEIueGVcKh73NQmQSrnnsUXm9Lg55tzkX/lvKHchFF78q8jZ5+Piw9g+ZU QoroaNuoJqYI3XVPfbkxFM3c9OHOJBECTlUPiHoZVOwzHmywEoN/7ylnuJXB Fb8G+U/9Ymi4y44b7zMIuKF6kmxTibJHHsUx5QzUlr6dtr9XY9J97NN9AgZ8 Z/OGIs96xO81Gm7ayUB2P9yzMe8X5G5KVMjitXCaesvichBBcxeUC9vX8Z66 ZdWlU4YV3R88LghX4SMa7TsZNICQ/dt+HBl8g6MntuouP1AgbDQ5U2/PawjD FVkOEiU+9Csh0eJF9Jw0N/TbOglBZPeL8LFXeGVpnDlwSwW+dFg3+PEskhLt zgpNZmCyo8Z9ckAFhZLnH9U7C3G+VBI1rkREqttLfd85ZJkZfTHRP4Auu0PX uvTmIT9SENIjIuBvks6KvdXI8uHYu9jcJubS2KN6Vxch72j5LCCrl+iscWoE U0vQke/wvr5NQVZOt4Z1s3Mqjy2nGZdOkLED4Tv35CwjbvDS+RLeDEkI5L1j pXyD9lAPz6sJc8S0ZDpog7kGjtayRgMXNakPrqj65+IqQiSHT71cXCKB7t96 97auoT6NKSxMXyaNYeetXNb/RWTrc89EzQrRcI/oNp/RQm18ZaOgdo34P3M9 aH6Tgfh2SpyLg5ZwXTd3SNk9bU82yU511ZIO8fPjISIG2T4PSn/10hKHi6ln y+oZRKiXOg+GaonRLkm+aTeDdz+KN/3gmpbI4hxVxksMika/fGQ3rSWHDWwK jXzZf8nz382+QzQXNGb1pynUKrUT65KGsZ47JwIpwiTC46xLLBqiWvIjKdzC +pJZl6yfEc9wUyk0td59rEskol3u+pUU8ceQxrok3nChp7KWQmk2LmQdwk9p 8/dqpPCdv3SHdUjJJ6Ex30kprK8/lLMOESzeKtYdpJiecnqfdYht8DkL0QhF QNOQG5sjk78513w8TtGZ940/myN+N0faLv9JUeHQmMHmiAGn2sdygYK3wa+Y 7SMkNmWo/TVFpmK+mu0jycNe4RFrFH/fLWhj78l+mPxFKUVI5t4htpL/ADnY Bgk= "]]}, Annotation[#, "Charting`Private`Tag$3775#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-2, 2}, {-1.9999998367346938`, 1.9999998367346938`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{{}, {}}], Scaled[{0.496387283236994, 0.20231213872832376}], Center, {1.2418111753371863, 1.0664739884393064}, {{1., 0.}, {0., 1.}}]}, ContentSelectable->True, ImagePadding->{{0., 0.}, {0., 0.}}, ImageSize->{370.39999999999964`, 276.8}, PlotRange->{{0., 1.3333333333333335`}, {0., 1.}}, PlotRangePadding->Automatic]}]], "Input", CellChangeTimes->{ 3.789351069382452*^9, {3.789355737289703*^9, 3.789355784977597*^9}, { 3.78935587209286*^9, 3.7893559685406313`*^9}, {3.789356103276107*^9, 3.789356154221051*^9}, {3.7893561847589197`*^9, 3.789356329012238*^9}, { 3.7898718635945597`*^9, 3.789871904986884*^9}, {3.789874192762022*^9, 3.78987423704144*^9}, {3.789874345062331*^9, 3.7898743504275703`*^9}},ExpressionUUID->"4498ecd0-f893-4cc9-8103-\ 1c0ba051be4e"], Cell["\<\ \t\t\t\tFigure 1: The Schematic representation of the models A and B \ respectively.\ \>", "Text", CellChangeTimes->{{3.789351104511093*^9, 3.789351139397399*^9}},ExpressionUUID->"e8392f6a-942e-48af-9c12-\ 04c7e1de8547"], Cell[CellGroupData[{ Cell["Let us consider a simple diffusion equation,", "Subsection", CellChangeTimes->{{3.787786079950625*^9, 3.787786120662539*^9}},ExpressionUUID->"dd726767-7335-4721-899f-\ 8c112a92c114"], Cell[BoxData[ RowBox[{"\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t", RowBox[{ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{"\[PartialD]", RowBox[{ OverscriptBox["P", "~"], "(", RowBox[{ OverscriptBox["x", "~"], ",", " ", OverscriptBox["t", "~"]}], ")"}]}], OverscriptBox[ RowBox[{"\[PartialD]", "t"}], RowBox[{" ", "~"}]]], " ", "=", RowBox[{ RowBox[{"D", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], OverscriptBox["P", "~"]}], RowBox[{"\[PartialD]", SuperscriptBox[ OverscriptBox["x", "~"], "2"]}]], "--"}]}], "-", RowBox[{"(", RowBox[{"3", " ", "a"}], ")"}]}]}], "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t", RowBox[{ RowBox[{ RowBox[{ OverscriptBox["P", "~"], "(", RowBox[{ OverscriptBox["x", "~"], ",", " ", "0"}], ")"}], "=", RowBox[{ RowBox[{"\[Delta]", "(", RowBox[{ OverscriptBox["x", "~"], "+", SubscriptBox["x", "0"]}], ")"}], SuperscriptBox["e", RowBox[{"g", "(", RowBox[{ SubscriptBox["x", "0"], RowBox[{"sgn", "(", SubscriptBox["x", "0"], ")"}]}], ")"}]]}]}], ",", RowBox[{"--", RowBox[{"-", RowBox[{"(", RowBox[{"3", " ", "b"}], ")"}]}]}]}]}], TraditionalForm], "\[IndentingNewLine]", "\t\t\t\t\t\t\t\t\t\t\t"}]}]], "Input", CellChangeTimes->{{3.787786135805632*^9, 3.787786162611486*^9}, { 3.787786222261174*^9, 3.787786385267563*^9}, {3.787808658362138*^9, 3.7878086869123287`*^9}},ExpressionUUID->"170d3458-057d-4baf-9d70-\ 0b524ef8bc9e"], Cell["\<\ for which the solution is known. After taking the transformation given by the \ following, The above equation is transformed into variables as given by the \ following,\ \>", "Text", CellChangeTimes->{{3.7877864894366426`*^9, 3.787786534818967*^9}, { 3.787789660488839*^9, 3.787789676007264*^9}},ExpressionUUID->"31762c42-5b4b-4b1a-98c5-\ dee879152017"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ OverscriptBox["P", "~"], "(", RowBox[{ OverscriptBox["x", "~"], ",", OverscriptBox["t", "~"]}], ")"}], "\[LongEqual]", RowBox[{ RowBox[{"v", "(", RowBox[{"x", ",", "t"}], ")"}], " ", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{ RowBox[{"x", "(", OverscriptBox["x", "~"], ")"}], ",", RowBox[{"t", "(", OverscriptBox["t", "~"], ")"}]}], ")"}], RowBox[{"(", RowBox[{ OverscriptBox["t", "~"], "\[LongEqual]", FractionBox["t", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ OverscriptBox["x", "~"], "\[LongEqual]", "x"}], ")"}]}]}], " "}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"v", "(", RowBox[{"x", ",", "t"}], ")"}], "\[LongEqual]", SuperscriptBox["e", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox["g", "2"], " ", "t"}]}], "-", RowBox[{"g", "(", RowBox[{"x", " ", RowBox[{"sgn", "(", "x", ")"}]}], ")"}]}]]}], ")"}], "--"}], "--"}], RowBox[{"(", "4", ")"}]}], TraditionalForm]}], "Input", CellChangeTimes->{{3.787807898211738*^9, 3.78780791202455*^9}, { 3.787808543829718*^9, 3.787808572799808*^9}, {3.787810110960661*^9, 3.787810114360881*^9}, {3.787820588953957*^9, 3.7878205913104486`*^9}},ExpressionUUID->"2d95f868-5b38-47b2-8854-\ 3e0ca733357b"], Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.7878078963825407`*^9, 3.787807896499991*^9}},ExpressionUUID->"26c043ff-b750-4945-82cd-\ af81fdb5e3fb"], Cell["the Eq.3 becomes,", "Text", CellChangeTimes->{{3.7877895802355556`*^9, 3.787789589178713*^9}, { 3.787789652543727*^9, 3.787789731460916*^9}},ExpressionUUID->"a6d71006-5530-45de-b490-\ e631b63590b2"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], "D", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{"D", "g", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}], ",", RowBox[{"x", ">", RowBox[{ RowBox[{ RowBox[{"0", "--"}], "--"}], "5", "a"}]}]}], TraditionalForm], "\[IndentingNewLine]", FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], "D", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}], "-", RowBox[{"D", "g", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative]], "(", RowBox[{"x", ",", "t"}], ")"}]}], ",", RowBox[{"x", "<", RowBox[{ RowBox[{"0", "--"}], "-", RowBox[{"5", "b"}]}]}]}], TraditionalForm]}], "Input", CellChangeTimes->{{3.787807850985427*^9, 3.7878078903425303`*^9}, { 3.787807921922451*^9, 3.7878080181546917`*^9}, {3.787808576426505*^9, 3.7878086063511953`*^9}, {3.787820574558923*^9, 3.7878205848418913`*^9}, { 3.789437751805382*^9, 3.789437773844179*^9}},ExpressionUUID->"1bf469c2-5ebf-486d-8c36-\ 6d1980c93651"], Cell["Here is the solubility test, initial condition test. ", "Text", CellChangeTimes->{{3.789785929636581*^9, 3.789786004318445*^9}, { 3.789786040649885*^9, 3.7897860414862223`*^9}},ExpressionUUID->"330dca57-b828-4c7a-9d69-\ a2759f309943"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"FX", "[", RowBox[{"x1_", ",", "t_"}], "]"}], "=", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], ",", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "x1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x1_", ",", "t_"}], "]"}], "=", RowBox[{"D", "[", RowBox[{ RowBox[{"FX", "[", RowBox[{"x1", ",", "t"}], "]"}], ",", "x1"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\0, x<0 and x==0\>\ \"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], "&&", RowBox[{"x", ">", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], "&&", RowBox[{"x", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"-", "x0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], "Input", CellChangeTimes->{{3.785632757982068*^9, 3.785632855284998*^9}, { 3.7856330792535267`*^9, 3.785633085434228*^9}, {3.7856331347908697`*^9, 3.7856331504826317`*^9}, {3.785633204452002*^9, 3.7856332953688793`*^9}, { 3.78563336495077*^9, 3.7856334902588453`*^9}, {3.7856335623034143`*^9, 3.785633690628846*^9}, {3.785633743174988*^9, 3.7856337444322147`*^9}, { 3.785633792708621*^9, 3.785633802287671*^9}, {3.785635311234034*^9, 3.785635446060808*^9}, {3.785636435039269*^9, 3.785636507646427*^9}, 3.785637234802437*^9, 3.7856373032748327`*^9, {3.785637343688703*^9, 3.785637387754346*^9}, {3.785637477677368*^9, 3.78563750437017*^9}, 3.785637623810625*^9, {3.785637757867784*^9, 3.785637758448173*^9}, { 3.7856377888022003`*^9, 3.785637789403664*^9}, {3.7857203172117434`*^9, 3.785720349835061*^9}, {3.7857205192246437`*^9, 3.785720562153432*^9}, { 3.785721347030547*^9, 3.785721375169553*^9}, 3.78573194730578*^9, 3.785732523829122*^9, {3.785732856866143*^9, 3.7857328928497868`*^9}, 3.785732942336735*^9, 3.785733020830922*^9, {3.7857331344782476`*^9, 3.785733139347808*^9}, {3.785733179144266*^9, 3.7857331907281857`*^9}, { 3.785733260298479*^9, 3.785733272635096*^9}, 3.785733958390733*^9, { 3.785734033066287*^9, 3.785734070749017*^9}, {3.7857341034149942`*^9, 3.785734158429043*^9}, {3.785734440598669*^9, 3.785734444565524*^9}, { 3.7857345931629066`*^9, 3.785734600263754*^9}, {3.785735771191293*^9, 3.785735781875618*^9}, {3.785736299210127*^9, 3.785736341340355*^9}, { 3.786235938715856*^9, 3.786235945889971*^9}, {3.786237188496251*^9, 3.78623718981398*^9}, {3.786237220821209*^9, 3.786237222475181*^9}, { 3.78642844035425*^9, 3.786428463901531*^9}, {3.78658349167275*^9, 3.7865835278068666`*^9}, {3.7865836843905907`*^9, 3.786583736086965*^9}, { 3.786583811331793*^9, 3.7865838444720497`*^9}, {3.787810524284136*^9, 3.787810524844487*^9}, {3.7878107295555153`*^9, 3.7878107399601727`*^9}, { 3.787820615949592*^9, 3.787820624482149*^9}, {3.789785929871751*^9, 3.7897859316464376`*^9}},ExpressionUUID->"a90f6498-81e4-4f7d-a972-\ d9276ed6c34a"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x0", "+", "x1"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "x0"}], " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "+", RowBox[{"x1", " ", RowBox[{"RealSign", "[", "x1", "]"}]}]}], ")"}]}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]]], "Output", CellChangeTimes->{ 3.785733141993784*^9, 3.785733193814595*^9, 3.785733275593708*^9, 3.7857339607261744`*^9, 3.785734119669127*^9, 3.785734161715191*^9, { 3.7857344471492167`*^9, 3.785734454853449*^9}, 3.785734597247999*^9, 3.785736273651311*^9, 3.785736351638545*^9, 3.785736583916731*^9, 3.7862361884816113`*^9, 3.786583643949974*^9, 3.786583741962907*^9, 3.7865837854298267`*^9, 3.787810604169701*^9, 3.787810791681319*^9, 3.787820679316695*^9},ExpressionUUID->"c51dc4ab-8063-4ae7-8f31-\ 5e6390763e18"], Cell[BoxData["\<\"Analytical check for the total solution in regions x>0, x<0 \ and x==0\"\>"], "Print", CellChangeTimes->{3.785736273666204*^9, 3.785736351659696*^9, 3.78573658394381*^9, 3.786236188492117*^9, 3.786583644016162*^9, 3.786583741967959*^9, 3.786583785434445*^9, 3.7878106041767073`*^9, 3.787810791702467*^9, 3.7878206793237963`*^9},ExpressionUUID->"eb994e69-696d-43ea-8474-\ caabbc103aa2"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785733141993784*^9, 3.785733193814595*^9, 3.785733275593708*^9, 3.7857339607261744`*^9, 3.785734119669127*^9, 3.785734161715191*^9, { 3.7857344471492167`*^9, 3.785734454853449*^9}, 3.785734597247999*^9, 3.785736273651311*^9, 3.785736351638545*^9, 3.785736583916731*^9, 3.7862361884816113`*^9, 3.786583643949974*^9, 3.786583741962907*^9, 3.7865837854298267`*^9, 3.787810604169701*^9, 3.787810791681319*^9, 3.787820679460783*^9},ExpressionUUID->"72c45172-0b99-4bda-865e-\ 54532f687bf0"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785733141993784*^9, 3.785733193814595*^9, 3.785733275593708*^9, 3.7857339607261744`*^9, 3.785734119669127*^9, 3.785734161715191*^9, { 3.7857344471492167`*^9, 3.785734454853449*^9}, 3.785734597247999*^9, 3.785736273651311*^9, 3.785736351638545*^9, 3.785736583916731*^9, 3.7862361884816113`*^9, 3.786583643949974*^9, 3.786583741962907*^9, 3.7865837854298267`*^9, 3.787810604169701*^9, 3.787810791681319*^9, 3.787820679624028*^9},ExpressionUUID->"e9482f88-d480-4e9b-b51a-\ 6755dd73f59d"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785733141993784*^9, 3.785733193814595*^9, 3.785733275593708*^9, 3.7857339607261744`*^9, 3.785734119669127*^9, 3.785734161715191*^9, { 3.7857344471492167`*^9, 3.785734454853449*^9}, 3.785734597247999*^9, 3.785736273651311*^9, 3.785736351638545*^9, 3.785736583916731*^9, 3.7862361884816113`*^9, 3.786583643949974*^9, 3.786583741962907*^9, 3.7865837854298267`*^9, 3.787810604169701*^9, 3.787810791681319*^9, 3.787820679733515*^9},ExpressionUUID->"901020d3-39b4-4c73-a086-\ a12d1895c83f"], Cell[BoxData["\<\"Initial check\"\>"], "Print", CellChangeTimes->{3.785736273666204*^9, 3.785736351659696*^9, 3.78573658394381*^9, 3.786236188492117*^9, 3.786583644016162*^9, 3.786583741967959*^9, 3.786583785434445*^9, 3.7878106041767073`*^9, 3.787810791702467*^9, 3.787820679737645*^9},ExpressionUUID->"c1becc4f-8464-41f1-919d-\ 34b87e1c9314"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]]], "Output", CellChangeTimes->{ 3.785733141993784*^9, 3.785733193814595*^9, 3.785733275593708*^9, 3.7857339607261744`*^9, 3.785734119669127*^9, 3.785734161715191*^9, { 3.7857344471492167`*^9, 3.785734454853449*^9}, 3.785734597247999*^9, 3.785736273651311*^9, 3.785736351638545*^9, 3.785736583916731*^9, 3.7862361884816113`*^9, 3.786583643949974*^9, 3.786583741962907*^9, 3.7865837854298267`*^9, 3.787810604169701*^9, 3.787810791681319*^9, 3.7878206797421093`*^9},ExpressionUUID->"a44506bb-9140-4fa0-973b-\ d538bb2f3ef6"] }, Open ]], Cell["\<\ Which is the equation for piece-wise linear potential centered at 0. The \ solution for the Eq. 3a for the initial condition given by Eq. 3b is given by,\ \>", "Text", CellChangeTimes->{{3.787808043598393*^9, 3.787808075325069*^9}, { 3.787808738548545*^9, 3.7878087418819027`*^9}, {3.787810121930847*^9, 3.787810158032304*^9}},ExpressionUUID->"4d7713ca-5633-47c1-bf8a-\ a8fac5f74dc5"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"x", ",", "t"}], ")"}], "\[LongEqual]", RowBox[{ RowBox[{ RowBox[{ FractionBox[ SuperscriptBox["e", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox["g", "2"], " ", "t"}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", SubscriptBox["x", "0"]}], ")"}], "2"], RowBox[{"2", " ", "D", " ", "t"}]], "-", RowBox[{"g", "(", RowBox[{ RowBox[{"x", " ", RowBox[{"sgn", "(", "x", ")"}]}], "-", RowBox[{ SubscriptBox["x", "0"], RowBox[{"sgn", "(", SubscriptBox["x", "0"], ")"}]}]}], ")"}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "--"}], "--"}], RowBox[{"(", "6", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.7878102180246887`*^9, 3.787810252599045*^9}, { 3.787820560908929*^9, 3.787820571009693*^9}, {3.787823785831874*^9, 3.78782378884521*^9}},ExpressionUUID->"4fc4d5e5-03cd-46a5-8363-\ f1478e38818d"], Cell[TextData[{ "As the random variable transformation from x to ", Cell[BoxData[ FormBox[ OverscriptBox["x", "~"], TraditionalForm]],ExpressionUUID-> "17a1aa0b-620f-4414-bbb5-8945a2b71864"], " is linear, the probability distribution of the new variable can be \ obtained by mere substitution. It is seen that the obtained solution obeys \ Eq. 6 and the initial condition. Let us compare the obtained solution to the \ already available solution derived by VM Kenkre[] (Analysis of Confined \ Random, JPC, 2016);" }], "Text", CellChangeTimes->{{3.7878105710248623`*^9, 3.7878106746975613`*^9}, { 3.7878108087418747`*^9, 3.787810823876123*^9}, {3.7878109981256933`*^9, 3.787811001592019*^9}, {3.787820542073069*^9, 3.787820553660323*^9}, { 3.787820690318684*^9, 3.7878207565955067`*^9}},ExpressionUUID->"03dd1800-322f-4f17-a77d-\ 3256bb286903"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]", "=", " ", RowBox[{"g", " ", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"d", "/", RowBox[{"(", RowBox[{"2", "\[CapitalGamma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u1", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u2", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "x"}], " ", RowBox[{ RowBox[{"RealSign", "[", "x", "]"}], "/", "l"}]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "/", "2"}]}], ")"}], " ", "t"}], "]"}]], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"u1", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x1_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "0"}], "&&", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"x", "\[GreaterEqual]", " ", "0"}], "&&", RowBox[{"x0", "\[GreaterEqual]", "0"}]}], "||", RowBox[{ RowBox[{"x", "\[LessEqual]", "0"}], "&&", RowBox[{"x0", "\[LessEqual]", "0"}]}]}], ")"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"u1", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Reals"}], "]"}], "&&", RowBox[{"g", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"d", ",", "Reals"}], "]"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}], "&&", RowBox[{"t", ">", "0"}], "&&", RowBox[{"x", ">", "0"}], "&&", RowBox[{"x0", ">", "0"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "[", "t_", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"u1", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Reals"}], "]"}], "&&", RowBox[{"g", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"d", ",", "Reals"}], "]"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}], "&&", RowBox[{"t", ">", "0"}], "&&", RowBox[{"x", ">", "0"}], "&&", RowBox[{"x0", ">", "0"}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"f", "[", "5", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "100"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "0100"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "50"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}], ",", RowBox[{"g", " ", RowBox[{"Abs", "[", "x", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p2"}], "]"}]}], "Input", CellChangeTimes->{{3.784973382531039*^9, 3.784973407571373*^9}, 3.784973453208873*^9, {3.784973490409239*^9, 3.7849734921292677`*^9}, { 3.784973545710374*^9, 3.784973602356927*^9}, {3.7849736983293257`*^9, 3.784973746897428*^9}, 3.784973819854829*^9, {3.785026408764818*^9, 3.7850264594395323`*^9}, {3.785026496758106*^9, 3.785026518152152*^9}, { 3.785027417601671*^9, 3.785027460436181*^9}, 3.78502756819534*^9, { 3.785027831554377*^9, 3.785027837743804*^9}, {3.785027925860183*^9, 3.7850279477960033`*^9}, {3.785028003590292*^9, 3.785028143302545*^9}, { 3.7850285026004343`*^9, 3.785028602905609*^9}, 3.785028648917377*^9, { 3.7850287222627707`*^9, 3.785028722468671*^9}, {3.7850287583685007`*^9, 3.7850287676496677`*^9}, {3.785028868729085*^9, 3.78502887158766*^9}, 3.785028959775721*^9, 3.785029517545167*^9, {3.7850310350106916`*^9, 3.78503109050181*^9}, 3.785031150483911*^9, {3.7850312476503*^9, 3.785031426328899*^9}, {3.785031457870286*^9, 3.785031518283785*^9}, { 3.785031550050127*^9, 3.7850315575623093`*^9}, {3.78505619124794*^9, 3.78505619444779*^9}, {3.785056228142838*^9, 3.785056239457501*^9}, { 3.7850563006278543`*^9, 3.7850563367276154`*^9}, {3.785057176361087*^9, 3.785057223154725*^9}, {3.7851119763789*^9, 3.7851119794376698`*^9}, 3.785112107305561*^9, {3.785112160930594*^9, 3.785112220391262*^9}, { 3.78511226102374*^9, 3.785112324706792*^9}, {3.785112411676384*^9, 3.7851124568522*^9}, {3.785112499958342*^9, 3.785112521820695*^9}, { 3.78511257406159*^9, 3.785112594376501*^9}, {3.785112759091453*^9, 3.785112771725696*^9}, {3.785112891478847*^9, 3.785112967776322*^9}, 3.785128631195838*^9, {3.785128673419428*^9, 3.785128718130724*^9}, { 3.785129211034388*^9, 3.785129242628829*^9}, {3.785132134922913*^9, 3.785132150729128*^9}, {3.785634531592461*^9, 3.7856346180432043`*^9}, { 3.785634707538208*^9, 3.785634908990693*^9}, {3.785635012424786*^9, 3.7856350522421923`*^9}, {3.7856351752812243`*^9, 3.7856352600180283`*^9}, {3.785635296039534*^9, 3.785635296247053*^9}, { 3.7856356459978247`*^9, 3.785635653886629*^9}, {3.785635786372293*^9, 3.7856357979671917`*^9}, 3.785635845432891*^9, {3.785635907515874*^9, 3.785636003045816*^9}, {3.78563603374844*^9, 3.785636064126713*^9}, { 3.785636141992099*^9, 3.785636180224424*^9}, {3.785636218236931*^9, 3.785636354503474*^9}, {3.7856363846158733`*^9, 3.785636392151882*^9}, { 3.7856365270924*^9, 3.785636568737977*^9}, {3.785637277035548*^9, 3.785637292128517*^9}, {3.785721669517886*^9, 3.785721746675473*^9}, { 3.785721945584119*^9, 3.785721973450729*^9}, {3.785722060867532*^9, 3.785722062284294*^9}, {3.7857221892177973`*^9, 3.78572219788245*^9}, { 3.785722301083561*^9, 3.7857223073680897`*^9}, 3.785736650349947*^9, { 3.7857366929116707`*^9, 3.785736698985981*^9}, {3.7857367993756313`*^9, 3.785736805846142*^9}, {3.7862379622275343`*^9, 3.786237964072608*^9}, { 3.786238009675112*^9, 3.786238019736559*^9}, {3.786430872501799*^9, 3.786430888852972*^9}, {3.786430923172402*^9, 3.7864309712856693`*^9}, { 3.786431055513076*^9, 3.786431062195993*^9}, {3.78643109406308*^9, 3.786431144919426*^9}, {3.786431228391535*^9, 3.7864312800845413`*^9}, { 3.7864314274970627`*^9, 3.786431437803944*^9}, {3.786431480898905*^9, 3.7864315163311043`*^9}, 3.786431999554407*^9, {3.7864321591198683`*^9, 3.786432203145091*^9}, 3.786432233154481*^9, 3.786432329576045*^9, { 3.7864325141372347`*^9, 3.7864325166680326`*^9}, {3.786583885409864*^9, 3.786583982393367*^9}, 3.7878111634679956`*^9, {3.787811239260401*^9, 3.787811317945141*^9}, {3.78782081288443*^9, 3.787820899045946*^9}, { 3.789871529270323*^9, 3.7898715483986597`*^9}, {3.789871578475595*^9, 3.789871608485785*^9}, 3.789871658006341*^9, {3.789871724606744*^9, 3.789871727643301*^9}, {3.7898743665707293`*^9, 3.789874371479278*^9}},ExpressionUUID->"39cb6a4e-0bdd-425c-9cb1-\ 323f213dea20"], Cell[BoxData["\<\"Analytical check of VM kenkre solution\"\>"], "Print", CellChangeTimes->{ 3.785636182275319*^9, 3.7856362205421133`*^9, {3.785636250969324*^9, 3.785636267487007*^9}, 3.785636303907385*^9, 3.78563636160163*^9, 3.785636393454886*^9, 3.785636552110074*^9, 3.7856372790040207`*^9, 3.7856461108999557`*^9, 3.785721755555254*^9, 3.785722271170827*^9, 3.785722312775125*^9, 3.785736704986473*^9, 3.785736810986014*^9, 3.786238057481389*^9, 3.786431289283312*^9, 3.786431439205982*^9, 3.7864314848973293`*^9, 3.786431517444957*^9, {3.7864320082675858`*^9, 3.7864320275437717`*^9}, 3.786432160653096*^9, 3.786432204122191*^9, 3.7864322343936253`*^9, 3.7864323306804132`*^9, 3.786432529727663*^9, 3.786584097097352*^9, {3.787811154241063*^9, 3.787811166092045*^9}, { 3.7878112868802433`*^9, 3.7878113190956497`*^9}, 3.787820909929674*^9, 3.789871611509471*^9, 3.789871659045909*^9, {3.7898717065725*^9, 3.789871729107555*^9}},ExpressionUUID->"21ff88ee-44cb-4674-8131-\ fbdb7048669a"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.78563618287321*^9, 3.7856362211505117`*^9, {3.785636251347095*^9, 3.785636267845048*^9}, 3.785636304278473*^9, 3.785636361691811*^9, 3.785636394058318*^9, 3.78563655273806*^9, 3.785637279625478*^9, 3.785646111536627*^9, 3.785721756488267*^9, 3.7857222720608263`*^9, 3.785722313617752*^9, 3.785736706510079*^9, 3.7857368115727882`*^9, 3.78623805847491*^9, 3.786431290305234*^9, 3.786431440078376*^9, 3.7864314860078*^9, 3.786431518347193*^9, {3.786432009232499*^9, 3.786432028532892*^9}, 3.786432161765634*^9, 3.786432205207759*^9, 3.786432235387581*^9, 3.786432331709229*^9, 3.7864325306261053`*^9, 3.786584097614246*^9, {3.7878111546906013`*^9, 3.787811166647397*^9}, { 3.787811287359997*^9, 3.787811319611458*^9}, 3.7878209138272133`*^9, 3.78987161525255*^9, 3.7898716626744633`*^9, {3.7898717101797*^9, 3.7898717326977873`*^9}},ExpressionUUID->"bf7a30e2-54de-472c-b9f6-\ 5aa721a2f571"], Cell[BoxData["\<\"Analytical check of Eq. 6\"\>"], "Print", CellChangeTimes->{ 3.785636182275319*^9, 3.7856362205421133`*^9, {3.785636250969324*^9, 3.785636267487007*^9}, 3.785636303907385*^9, 3.78563636160163*^9, 3.785636393454886*^9, 3.785636552110074*^9, 3.7856372790040207`*^9, 3.7856461108999557`*^9, 3.785721755555254*^9, 3.785722271170827*^9, 3.785722312775125*^9, 3.785736704986473*^9, 3.785736810986014*^9, 3.786238057481389*^9, 3.786431289283312*^9, 3.786431439205982*^9, 3.7864314848973293`*^9, 3.786431517444957*^9, {3.7864320082675858`*^9, 3.7864320275437717`*^9}, 3.786432160653096*^9, 3.786432204122191*^9, 3.7864322343936253`*^9, 3.7864323306804132`*^9, 3.786432529727663*^9, 3.786584097097352*^9, {3.787811154241063*^9, 3.787811166092045*^9}, { 3.7878112868802433`*^9, 3.7878113190956497`*^9}, 3.787820909929674*^9, 3.789871611509471*^9, 3.789871659045909*^9, {3.7898717065725*^9, 3.789871732702812*^9}},ExpressionUUID->"a1598f1f-e042-474f-a8b2-\ d8a951c5b3f8"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.78563618287321*^9, 3.7856362211505117`*^9, {3.785636251347095*^9, 3.785636267845048*^9}, 3.785636304278473*^9, 3.785636361691811*^9, 3.785636394058318*^9, 3.78563655273806*^9, 3.785637279625478*^9, 3.785646111536627*^9, 3.785721756488267*^9, 3.7857222720608263`*^9, 3.785722313617752*^9, 3.785736706510079*^9, 3.7857368115727882`*^9, 3.78623805847491*^9, 3.786431290305234*^9, 3.786431440078376*^9, 3.7864314860078*^9, 3.786431518347193*^9, {3.786432009232499*^9, 3.786432028532892*^9}, 3.786432161765634*^9, 3.786432205207759*^9, 3.786432235387581*^9, 3.786432331709229*^9, 3.7864325306261053`*^9, 3.786584097614246*^9, {3.7878111546906013`*^9, 3.787811166647397*^9}, { 3.787811287359997*^9, 3.787811319611458*^9}, 3.7878209138272133`*^9, 3.78987161525255*^9, 3.7898716626744633`*^9, {3.7898717101797*^9, 3.7898717328679867`*^9}},ExpressionUUID->"409fffd2-2a94-4356-9d66-\ 331ee40e1315"], Cell[BoxData["\<\"The analytical difference is\"\>"], "Print", CellChangeTimes->{ 3.785636182275319*^9, 3.7856362205421133`*^9, {3.785636250969324*^9, 3.785636267487007*^9}, 3.785636303907385*^9, 3.78563636160163*^9, 3.785636393454886*^9, 3.785636552110074*^9, 3.7856372790040207`*^9, 3.7856461108999557`*^9, 3.785721755555254*^9, 3.785722271170827*^9, 3.785722312775125*^9, 3.785736704986473*^9, 3.785736810986014*^9, 3.786238057481389*^9, 3.786431289283312*^9, 3.786431439205982*^9, 3.7864314848973293`*^9, 3.786431517444957*^9, {3.7864320082675858`*^9, 3.7864320275437717`*^9}, 3.786432160653096*^9, 3.786432204122191*^9, 3.7864322343936253`*^9, 3.7864323306804132`*^9, 3.786432529727663*^9, 3.786584097097352*^9, {3.787811154241063*^9, 3.787811166092045*^9}, { 3.7878112868802433`*^9, 3.7878113190956497`*^9}, 3.787820909929674*^9, 3.789871611509471*^9, 3.789871659045909*^9, {3.7898717065725*^9, 3.789871732873011*^9}},ExpressionUUID->"856530e4-792e-4df7-93c1-\ f70a77d19c77"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.78563618287321*^9, 3.7856362211505117`*^9, {3.785636251347095*^9, 3.785636267845048*^9}, 3.785636304278473*^9, 3.785636361691811*^9, 3.785636394058318*^9, 3.78563655273806*^9, 3.785637279625478*^9, 3.785646111536627*^9, 3.785721756488267*^9, 3.7857222720608263`*^9, 3.785722313617752*^9, 3.785736706510079*^9, 3.7857368115727882`*^9, 3.78623805847491*^9, 3.786431290305234*^9, 3.786431440078376*^9, 3.7864314860078*^9, 3.786431518347193*^9, {3.786432009232499*^9, 3.786432028532892*^9}, 3.786432161765634*^9, 3.786432205207759*^9, 3.786432235387581*^9, 3.786432331709229*^9, 3.7864325306261053`*^9, 3.786584097614246*^9, {3.7878111546906013`*^9, 3.787811166647397*^9}, { 3.787811287359997*^9, 3.787811319611458*^9}, 3.7878209138272133`*^9, 3.78987161525255*^9, 3.7898716626744633`*^9, {3.7898717101797*^9, 3.789871732885713*^9}},ExpressionUUID->"db9514cf-d0bb-43c9-a8b6-\ 0cb957974d95"], Cell[BoxData["\<\"The analytical difference is\"\>"], "Print", CellChangeTimes->{ 3.785636182275319*^9, 3.7856362205421133`*^9, {3.785636250969324*^9, 3.785636267487007*^9}, 3.785636303907385*^9, 3.78563636160163*^9, 3.785636393454886*^9, 3.785636552110074*^9, 3.7856372790040207`*^9, 3.7856461108999557`*^9, 3.785721755555254*^9, 3.785722271170827*^9, 3.785722312775125*^9, 3.785736704986473*^9, 3.785736810986014*^9, 3.786238057481389*^9, 3.786431289283312*^9, 3.786431439205982*^9, 3.7864314848973293`*^9, 3.786431517444957*^9, {3.7864320082675858`*^9, 3.7864320275437717`*^9}, 3.786432160653096*^9, 3.786432204122191*^9, 3.7864322343936253`*^9, 3.7864323306804132`*^9, 3.786432529727663*^9, 3.786584097097352*^9, {3.787811154241063*^9, 3.787811166092045*^9}, { 3.7878112868802433`*^9, 3.7878113190956497`*^9}, 3.787820909929674*^9, 3.789871611509471*^9, 3.789871659045909*^9, {3.7898717065725*^9, 3.7898717328911963`*^9}},ExpressionUUID->"f9346164-f157-4289-9626-\ 960105ee4f36"], Cell[BoxData["0.`"], "Output", CellChangeTimes->{ 3.78563618287321*^9, 3.7856362211505117`*^9, {3.785636251347095*^9, 3.785636267845048*^9}, 3.785636304278473*^9, 3.785636361691811*^9, 3.785636394058318*^9, 3.78563655273806*^9, 3.785637279625478*^9, 3.785646111536627*^9, 3.785721756488267*^9, 3.7857222720608263`*^9, 3.785722313617752*^9, 3.785736706510079*^9, 3.7857368115727882`*^9, 3.78623805847491*^9, 3.786431290305234*^9, 3.786431440078376*^9, 3.7864314860078*^9, 3.786431518347193*^9, {3.786432009232499*^9, 3.786432028532892*^9}, 3.786432161765634*^9, 3.786432205207759*^9, 3.786432235387581*^9, 3.786432331709229*^9, 3.7864325306261053`*^9, 3.786584097614246*^9, {3.7878111546906013`*^9, 3.787811166647397*^9}, { 3.787811287359997*^9, 3.787811319611458*^9}, 3.7878209138272133`*^9, 3.78987161525255*^9, 3.7898716626744633`*^9, {3.7898717101797*^9, 3.7898717328959217`*^9}},ExpressionUUID->"4cfc9dc4-daff-430b-bee0-\ 971484755625"], Cell[BoxData["\<\"graphical comparison between the solutions at different \ times\"\>"], "Print", CellChangeTimes->{ 3.785636182275319*^9, 3.7856362205421133`*^9, {3.785636250969324*^9, 3.785636267487007*^9}, 3.785636303907385*^9, 3.78563636160163*^9, 3.785636393454886*^9, 3.785636552110074*^9, 3.7856372790040207`*^9, 3.7856461108999557`*^9, 3.785721755555254*^9, 3.785722271170827*^9, 3.785722312775125*^9, 3.785736704986473*^9, 3.785736810986014*^9, 3.786238057481389*^9, 3.786431289283312*^9, 3.786431439205982*^9, 3.7864314848973293`*^9, 3.786431517444957*^9, {3.7864320082675858`*^9, 3.7864320275437717`*^9}, 3.786432160653096*^9, 3.786432204122191*^9, 3.7864322343936253`*^9, 3.7864323306804132`*^9, 3.786432529727663*^9, 3.786584097097352*^9, {3.787811154241063*^9, 3.787811166092045*^9}, { 3.7878112868802433`*^9, 3.7878113190956497`*^9}, 3.787820909929674*^9, 3.789871611509471*^9, 3.789871659045909*^9, {3.7898717065725*^9, 3.789871733831745*^9}},ExpressionUUID->"d3612ef1-f302-43f0-964a-\ ab0b8c7ffb34"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF2Hc4l1/cwHEjo6zv/loZJauiRBnf+z5fkhEJhYqMpGRH0UDZJVlFIrKS VaFEKj6kRFZEdlahUEaE8Hiu63l+nX/u63Wd+5zrnPf93y15wt3UgY2FhUWD lYXlf59+IwemV1c3A8v/jW+Xab+7//6zEeHLfMnCP0uoeSy7z/xzVXgsd/+3 f+ZW+CwGDf98+5ytwdWkf85j9cpk2fPPHA66SkLHN/1ncsdbl/QYyf9s+ibR Xq5OAn5KhcTqFdfxXP6JuUQPiUNV0Tb5jP7f9FKfRKcnB8WgizrMG2fVJ2kU ayaxclcUuDMDCwQ3rNuqm/zaSG9cGDyfabckmTgoZdVcbPeyFIL4suyXAjad e6yDb1ObsukwoSVsY5Sxi9GI5rgupNOh5G3V+kkbTQZasliUuEcHX7Mv36+l GjEkPEW+eEbRwXy9kdZC8GnGoE16Ns2bDqpj+5R5/RMZpiLrkirc6cC6pd9a 9WUW4027w03HM3TACz1CF12fMpRja64Q7enw7kv9EHYDGJkH5DzLrOiQnNDu 3EmoZ1DW3zhpb06HBjZNO66Sz4yQ6nFzXmM6nNLc0InmhhhzV4z0i/XpkOOa 8kbg9S/GKY0CDeu9dNBhynLD3BKjfY6owIXRQZKFQ2pSmwvTLfKSKNhNB0pd vOeoPhkrdW0jHd1Bh/iXEz60bnFMVm4PB5s8HRaCdpxxVJbHEoYT5nM306G+ GPrQRRVsferi2KGNdNA3ickPCdPELlla9fyl0SG1RpfoF2iIfaeVNz4g0EFQ ljvaUdACO9YiXmm0gQ6f/UkLjIwT2IebAU/n2emwf0r26s55V4yhP/QgdZkG maWSh3VWfbD8dfsS9OdpIIKPpHVLBWGikBU+/YsG8buPuFxxjcRuXub2S/pO g6VbihsLaAnYym4nd+1hGhBGM2v0VtMxt+kPdhO9NJAdAN+TnY+wvkfbD8d/ psG2M1a7ta1KsINnonTQRxqkezufN99dhYHUlOpoHQ0mR8IihvXrsR39pltj qmlgECbt0zjYhqUmPduoXk4DB1eXyo19/RjRgkYYKqFB8VG9K2HfxrBA0gW2 iEIaPLsbUC7bNINNN3TOKuetra/MuXFccQU7cV1jpDdzbX+FIbmRUU68VTu5 MzSFBiMuh1IOmBJxbZbVD4oJNFBMUf6aRxfGn720Le+IoYF9J15VeWszLuVT VRBwgwZntS1+9O7djscpSWXIh9CgI9FNek+dCs45GRLX6k+Dx9FnzS7JMXHv nJEw3ws0EDIqXlUd1MW/ndS/tMWTBs52PSWOt01wC4k8l0ZnGlzHiHcra47i 77t5bXwcaDA63fr3yacTuOodNxMJGxps2LP67expZzzbtHlv7REaMPz0WBV7 vXAhfqXdnqY0mCW3iX5+4ouH196SFTGkwV+2cd6Y9GB8Mfi3cPU+Gvx++bYq NfYm7sS04HNFNEgO5UgQEY3Du5dKV6lqNDgdMXMqhyMFNywRni5XokGLOauo qfYD/JWn7/DpbTTolko1LGF/jG9T6GsnSNNATs1PxUaoGE8eQ7UvxGmgY9m6 YyDiNc7/IO3lCaG1/jMpkqrJ1bi/LftjHjINtkiWxkRk1eMFTbqRn3hp0Dil 56BZ3IoP4hFuyZw06LpiesCPvRunPG42OsVCg4ljskDyHMR1NlIVFRepwIEN VywLjuEXIo4K/JmhgnSQu+IU2xSeu5T8EyaokKcy6T63MIf3OA02XR+hQneD qrfyjxWcv0u6wHSACniz2jaBsnWIqe8cLdJNhXdc1geanvAgz9InHsOfqDBS MCAe6kJCmTKzxo8aqUA5FOwg4CaI2uNVd3q/p0JBa6Cs3GYJxM3pR0RVVCg9 NHUoB9uC1M9XTnG9ooIBj202V/dW5DLM0dJcTIWL7OtK85WUUMqh/UV3n1CB ZndtMrFgD2quiow9kUMFefW9Ex9e4IhNqdVzawYVgo4febq7ay9STqMfmr1H BaTskIRH6aNTBKtdr+OpcNr2GG/2SWOUcCWVHBpNheXlR8FnZw6jusnhGaNw KqQJRRm7PDqG/h6X+0QPpsLgoWVRgXFbpNDg+qzfjwopT/yPZdg7IFtG0e0c n7U+8hX0rJ9OKDZv7pznWSr0H2XcWv7qgaqFNcw0nKnAZ7i42it+Hs1dv6Ky zoEKxh6nyjwPXkKyC2+oDdZUcJf0ceU5dBUdc+SeiztChQc/thuCQjCK+GzY bm1KBaY0T5NjzzVUoRPzXMaQCucqm726AyPRdHFb/K99VCgK+KLg8DAWSW0R 9nmBqKCqOxX5+EU8Mr9tbRGoRoXfe20LHOKS0DX2jD0Gu6jglvVC4/WjVFTm OUKnbKeCnznPY1/BTDQ+sPVPjzQVOqV+LmSJZyMxE4+OBxJUuBpVYYJ35SNj eFbqJrzWT+kz4dOOQhSouJCwh0KF+fPzvH2Oz9CzFOwiCz8VTppvrDkpVYq+ 8QUereWigl65fMJ7r1dI0O+dWiwrFVzT3ugaPgO0f3yDsOUSBRTxoyYQ/gb5 Wh5c3PybAv3sEqH0mnfocd2trvFJCszkWS7e8apD/WodZcWjFHBLqjX6ktiI SDmiSf6DFDhJ/dU9mPERaQvaXdbtoYB/x1JqstYn5B32wJLQTgFtoT8pAoqf UfbcmEZn09r7teyz19y6UJeDgmh6LQUEGha1JDj7EG+b51+nNxQQDzYRNlju R7h2Sc+u1xSw04w5LiI7hDyeLr36+5wCHgpmmlYhX1H6Jmby2wIKPDXPCr9J G0WfYoL9InMp0BCmIFfV8x1xstYet8ikQI6L5kJkxwRS9eDDJVIoEJAwsfA3 +Bdy+mIiNnaHAiKtOWIqqtPonlH8SmEMBVaHhd8acswilu3iFXtDKLC77s7O ktF55EvTtA7xXzvfrdqts3KLaH71xPI7Hwp4Px7fMhbwF022ZGnsd6KAfOO4 /eRTFuaZV++7bthToFy/af75HCtz+MH3iw1WFKh5qjx7nsHO7L6gUGp8kAJ9 iimWzW85mOYnjC1i9ShQKaMYf5Gdi9li4DnXqkkBhvsVz/2q3MwDKrfjqBpr PZs38/PbrWe+F3uubKFMAVNTplfUpQ1Mbe6O1oTtFFDZ/0M8O4CHWTG14Nkl TYHgepGvRl68TPVuEZKoBAWuNym/yjLkYz6vxgqPC1HAeiBKgY+Hn6n02Mb4 PokCcyUS32Xy+ZmP7gT87OehgE/ONcmp7QJM2YCMyE0cFLhxsciqKlKAmen0 dvvJFTIwH8qeOd4gwJQ4PFL/YJ4ML0cuSM+MCjCTsPUuI7/IcK4sZ1FmQIBJ k9nKI/edDCJBPvXU5wLMWMKBXKchMozMEs8ZOAow+Rfd9PN7yNAe9iir9g8/ 8/pQ9OhEGxk8s/PPLTvyM9c1FIUpNpGBqy87uLSMj3n1+Sfps+/JEDUapiPz i5e5dH/ubVElGeQoTo5veXiZ3tcFHWbLyDA7QhsyJvAwXa2sMnwekeF3b2ea WD83c3Sfv9aLrDWrxQY/LORinlRMHVi8T4bCxTOHbl7gZB5jGxb3jyXDgysd ORtn2JntPzgqKm6QoWJ0Km0gn41p0iZjzRpChj8dFCUxR1amXrbzvWAfMlwP I7H7dC2j6pibGu88yCBIUavR8FlC6PKTLi4nMtDmAryGZRfQbqMZwRtWZNA/ fft+f/ssKtpDLa03I4NVfh1f3edptF1yjwX/QTJMJ2U31c79QlKzl+JiNMmw Itam8F7qB0rtvafcqk6Gq7kFMhzio0ikpryVokyGA+t+vciz+IriC/o9zbeT QdPWs+hIwyAiJbKREqTJoPsuvIbs349uBkkVdoqT4ZnfRo7Wxh7E7apjLCK0 1vOimsB6vk4UbO7404pEBvHp+ydvFLShVRQemcJDBtIWbcXiohZ0SS5/e/86 Mpg9N1TI5G1Gc6TGeskVEkxvcfpb5vYBnf3709l+ngSBoUmXui1q0PhXIs+D XyRwaMvp5a55gxybduV+GyPBQbVT+6lPAA2VmunLDpEgNCL57CfOV8g63Wf0 TA8J3PU3Seh5lKCuG3fD8tpI8DOltdAg+ClqfSuRb9tEgrZCsYYt9gWofvVh M7WWBEXUvEgbpzz0Vk3xd10VCVpetA1kdWShcq/nQldfkWBL/32/oPl0VPII w1Wek2Awl3Xigc19VDBSfeL7ExIQvuhrZXfeRTmShmH3c0igbWvjxacah9It W/MOZ5CggT5+l+9YDEqKO9a8PpkElND58Lh9Eeh208BseTwJxOV6W1emQtHN 9WeEzkWTgL0wYNeRm4EodO8vTC6cBCx7N7gKDfmhK34+J/qC1u47z7k1e8kH XShZCb3lRwKGrWSC2jYvdHYqJE/PhwT91Y+D/153Q05b+ZqXPdZ6bKsaHFV3 RPYOt2eLnEjAOpah/VPaHlndFxFyPEkCw+ijV+/IWSOzznRsozUJokU3X3TO sUBGZPkTLRYkCOq7sMjib4p0DxSGhpmQ4OupIJPoD4aIGaaaxzAgQSvl9MZC Mx2kVlnRNKW9tt5mr6m8liZSWtKZzcJJsHP18wutWHW0VaVR0EqVBHnRzJtP bJWRlLsZRlQigf2fwx/wzYpoY06P3butJMC0tmjvfCqDaEP2oZe3kEC1Xogt 4o8kEtj4I3eH+Nr3KR80jJMWQdwWnk1fBUkweT7b9bUbBbHFLMwkkkggSbKM 18jgR0t1VwWNeddMW/9HeJATza7jxjg4ScA0e5c3zsmKJvEou7JVItgsKo4e xxfwkQu0UPcFInCSHplaZ07j/UXJuVIzRIiOLZKiu/3AO8elmjrHiXChJzj8 qfAw3iKdPxP5jQjj3w3Exyx78Q+2uwS1+4ngsGKuttOyDa9OLGMsdBLhl3zN XO9MI/76k6bd41YiZGYrZd4+8g5/zl8bYt9AhIn0yT1r2fEnesa5gjVE2MvK 92aJqwTPDvzc2ABE6DCPFUvxKMDTXlnPBJYRQescW1Se3UM8ce4rXfUZET4E +Tf4Rafit3a4MiYeEcFgvi4z1e4OHuE0a5v+kAgt7vveRnpE4yGZl0Ms0ojg XiIQ2M0Vhvv3seXyJhHBjNVWhUm6ivsIhjdW3ibC0DyPr+0Rb9zDlDjjHUmE NE35fWEzbviZiAT6tmtE8D/p6fHjmAN+4p04YyCACE2rQZcvWx7HLVke2sZf JgLLqRWyjfBh/LC6QojBeSJoatgL3XE1wA+cK85hcScCzcr77kqGFq7zmNFY 7EgEodyMq82YGo5G30w7nSBC7lXlIyGcO3HVTQZ0CSsi5FzwcQkZkMZ3WrVo tJkRYee+IoJDuhguH3/UNvwgEdgHxlqk3Cj45ub+YKRPBJUPQx2vt/Dgohsc c2a11ua3WrD/nmfFrcvrIzYxiFAmxJ/8vX8OS/Pc6WGsQoQYFv7tZiwT2LB0 /CF/BSLc28XkrzEcxKS7F3fnyxDh1ke/Vp6Vdswxyka4S4IIo6tiXxOr6rHc vdXLXMJEmLUztD01WomNz8sOqJCJcE09MPrtrueYYv7NanteInxzFWiLO52H edpOP4zhWOuxIMQS056KPaNY3KhYIYDjWHdv0t3b2Nz7l24T8wQwL1vUQ/Tr mKqfhKnIFAHaN5bP9Ln4Y5d2hqjofydAhn0UW9BxT+z11zFBnyEC3Is+u1JC OoWxJBr9zewhwNatvh+unDmGaRk9/dLSRgDbj/dEm70PYsFsgm9YmgjgorHr flC2Flbz3DdL4T0B6kyObR7g2o1tcB64blVJAM3Q5K6PX+UwQ3Ed1/AyAtRc FHiw7qAYFtmaa1z6lAATt/J4tmUTsY9hAsrf8gnAsu17ucnldRiFcY5OySJA 97Y/zhoP5xnmvzoWNe8ToMBumDi28wcjIRPrc08ggCjjpNl3iS+M7iPplckx BAjiHbK4++ojQ4yP68GH8LX7WDt7nBevZthWOl9bCCLAY7X9eqllzxnp55ud ZfwIoNi1575wVA5jWE7loJk3AX5qnBzenXyPId13VynInQBWbT9XAoajGGdi V6iFjgSY3aU71V4YwMjXsV/osyPA39u+tijCizG5WNPDa7nWoya/rfeKA8PT PibD8QABfC81M5/m6DN8laV2SigR4IC8T1+iGZEh9uhWgti8AHxamozGY+5q OKvIc3SLCgBDRs+sqOyOuifHi4feAgJg4YaEX/GFqV9q091PYhOA9A1HkzQO eKuHn3eI0h/hB83z9L6qxMPqucWpQqWF/LAreWhQv5igPqZCV4jT4YdXY4uX LL4GqJ3evc7ioAcf1EnWBggTTVXt9/Rlv3nDA4wqPf9H1CwV+Qvqq26Z3OB4 r4a/1TBFMa33UPVFTQ7Y9H5E73JisMxIAJWhK8gG53akbUs2ChAri5PdN2q+ XLE+RMWhrV2KvGOsc1Yxea7C1jJhIKTmBKd2Wff6ZfNfFf//f8sj58kfInno P5uf2pzW4lv7n6+9W2w+In7pP/8PmTscNQ== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+Sp7Biiw0j24KWD6YzifqUz0TorkBzif nSegMendNzi/+cE156LFf+H8DbPbAuo+MTrA+PmLUgSehLHC+XFZs2TbGzng /M7AMkvjOdxwPovI1Gf1v/jg/OunWz+08AvC+aHVSWazDgvB+Tncr5XORYnA +fKrj01jeyUK51fvcA7mny0O5xcsy9lmpi8J5/MwmSfpPZWC811zQ6ZqTZaB 8yV2yua7qsjB+ZOKOiYaXJeH84Pa/HXnblOA87WiW0KX1CrC+deecS6aHKoE 559LeuooJK8M5z9kWf5jqhKC/2VZxnpJNQRf8vVrGUVdBD+l+NN3fWsE/1fz /7W+4Qi+2lJJqc5+BN/S/fYFnskIvs/LOe0TpiH4hboKX6fPRfD3bFW7sGw1 gh90zLjtyHEEPzXjq43HaQS/gmv759PnEPy5flaJl68i+C+uOdg8eozk3gqm z6nPEXxe6SMrX75C8I3i3cU/fkTwXRk5z5V8RfAjFp9q+fEDwc9y7bGu+YPg 1z73/fT/P4IPACGMn7U= "]]}, Annotation[#, "Charting`Private`Tag$4165#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c81t8Xt/eez+Px2CFKssfz+VwqRIWUEcqmkFCp7JGGEIVEQ1KZJZvI EdGwV8hMtm/2jn5+/9z7Oq/zvue83+97/7hH3PGSmQsNFRXVn93l/3vQxInF f/8kwZWAF3JpaqmMBwis/PwrCQXr0/bBs7oqxlxDa6UbkiD3/qTakeCjKmKa 3tuXliSBp2mWbvCHhcqnqAdMw+OSEDWgdzGl4bIKk8IPEWiSBO6PkweFxfNU Eq7YHwtNlYRD+9TlVhzJqjnUlzOo1CVhnkp9fsl1VZXexUCJeFYCIqqv/klf yFfn7fnsmR4vDjOcNK7sodKaZrUpTnu/iUHv1ErbxTpfrYA5zDNuVBSanA4o WDAWaj9xUJ/UGRCFT1ZUm0+2S7QrOxSdF7pFwSUsmNe+7oP2Tqmkrdk3Ueg3 e+kUqFWnHR7KfJzvvShEX+kqeW3XpR3F3SWfHCwKNf8UGW291rRTlD1nnhNF wed7y9mW/VqUD69c3Ex5RSF14bOuG0KUfkG7USp2UbCXezp/IuMQReTvyZ8O VKKwvMdXxSzciJJep/5dckIE5LQjsSNvrSlZ5rQ5b4pEACK0Rumj/CnfGv5K W70VAdu56auWgSGUac3VdKZMEdCMfEN1Oyecsk9kKuVCqgj87BRvCdKKouSP N0fJh4uAnuz6tfzax5Q2qy8M/QEi4GLv5njixjPK4rea8OirInA3pU77N206 ReVdkf9/50UgPyh+q1Imi2Iu/nb1qaMIUNQ2nY4W51H8Hr7xNbYVAf6OkQcH 7r6nlF1LcX9nIgLR5VKajhfKKBLOPq96jopAN9cwMfpAFSXG9Ogw9SERKOKQ rz3nXUNZp4iS5LVFgPhhdONdZx3Fce+q+WkVEag5+keIfegLpZG/KS5ovwgQ uucOZr5toqjRZHx/LS0CXvK+7FpFbZS0P/4MraIiwFNgdFlQuIvC+vOk7gZB BDTIghVNsr0UvwbZQAkeEZgQGVbfWB+gDBf+KznGKgIXvA/yuPSMUIzSuheu 0O3ywz06w7AxSlF03r5n22QQy5yu59WboojcuOnWsEqG0dABvhm2P5S7Ljbp 83NkOMRPHBTqX6Asn1QaIE6R4ZOi3ryGxgrlHM5MOPyLDOrXlTaPKG9QvsgN m3n+JIMsL/tvrultipJgaUxiJxnaZukUDKqpsSe0sV8+NpHhserJl2fY6DHG eWfayXoyaJQuRn9aYsJ8+7VxbiADy35Ci2w8O9b/heeGVjkZlIY2pW+Hc2P6 xVOFTgVkUGi52NRewYflv4A/0TlkaNX8+XnsNgETin20tySDDOG+m6b8dGQs 0t/LeegpGRq0mj9Lyohj8656z5kekeHMkPGQrZ4UZn1KuO9gHBkWRiW+LC3I YHVoic/mLhmUMT+VRr19mMK+byY3w3f7ffxxnOGdIpZMeBGVF0AGPxEdV/e3 yhgt/fXP3VfIIH3wA8asqo55LRhTUXmRYTo9TIpirY31DOzR3utGBt91A903 wjrYoW9/r5rZ79ZTJFnxbBzCcks68gPOkEFRQO/nzml9TOBl9kyGGRlqvzkR 5PSNsLD7YdLNx8jwLJfx0cKYMTYbYOWwdoQMc2FK+1ZkzTCL8weeiOFkSHcq 5zpqYY7BaYYfhupkYM2mP8LEeQaT0x3gvqxIhqi+q/Sp7mexhP1Fx5/sJUPZ TWkmkUMO2D/ivdufJXb1x5rcaMKcMXcGx09/SLv+jWfd+FLhhnUuamwL8pNh /4ONtBvNHhg+xKmhy0GGUytTF0eOemOZ38d93RnJoO3uWVfHdRnjKavKe0hF hsMeRty5Jn5YUEbCZOWGMFi2uVqyEf2xyTgPyfFFYXio0dB2NSIYMws6dI5z VhjYjmQO3t59kZUXiI81xoTB5N+QD2/nTUzaYr7DYVAYUmkOdk2evIPFHWrg uPdDGI6JDbtYOEZjWwrPDItaheHQh0j+i7FxmCvp6s2Br8KwrppzyMT4IdbK eLyaoVYYlltjC2+GJmFayxKbByp38Ur59orqKVjG8IbKmWJhUJoMTT58+xnG 0dR6KfytMNTS8RGv1r3AbpS/yc55Iwy2WqNGtLkZ2O9XwWOdacJwUuLRrB1L Jmb8wFxs57EweAy4IZ7FHMxfidPQ4KEwvJXmtx5RzMdet3/xiYsWhhvj0WNN UIC1+4an9EYKQ5rFH4pkSTG2w0OplQgRhr0lx6f2iZVjcoUrMx7XhaH8/dOU q1xVmMWpd3zFPsKgS8vyMroJsPCl89iOuzBY6aSejPeoxfIeSrgaOAsDC0N5 vf+leqxHuT827qwwnC0kUDtPfsXoOhNLey2EYaGDvjtxoglTvGIyLGEqDK95 66PcddowWz5mZk9DYUgIvJRxdqwDu1P06WDxIWG4LmtWGjPXjRWdDrTe0RaG baNWiYqLfdjwsmqEgaow4LfQcpn3IMaWOJcTpyAMemyX9g9HjmAaqlmdvTLC oKHtNWcr9xtz7nLclhAXhmuEoROmShNY3FVhaU8hYXgQMLS4kjONVfJ3Gxfz CkPz2c3ViDd/sMni+9d22IRBpvBWVGnqAsZnYZhmwCAMxcfXBm00ljGdVZqv cf9I0GemmJCmuoZ5JFUu9K6T4Pkjhmbii00sSc1PSHKRBKhZ+q1q1A72qfvA Yc8ZEqQKB3pjYdT4H78pj+LfJJh4mBQ3wUGHCwm+TNgZIMFLrMzcaYMB1y+1 rTL4QYJrh9z6g0+w4L6WAuNxrSQI9fNN/UjkwJ+ttXD0fSXBLwYthmPq3Pi3 R3fVJWtJ8IxO/P2pd7z4qvphe89KEsh3BD6IDBHAJXr+3ikuJkFy7uLJ1kIi bny95P3OWxL0d1lLFZ0h4/4E7z6DTBLUWbtjWiCGvy7bSxv/ggQuK65emcKS eLvVqHxfCgmuXr9i9uv7Hnxn/clpyYRd/PodtYkeWXzvY4sgzxgSMNMZMYiZ 7sNPa3K9Lr5FAsWZVaZ6UUU8tPdr804ICajuo4c3bJTw3BsRawY3SNBol/SV 47cK3kPExOJ9SUCyDnC6W6uO01WsHu3zIIG0iGL6AXptXNE630fShQTeJ0LO vS/GcdvNCyme50gQ90C7JctHF7+TIllbbEmC+ndvHnO1HMaLtAZmdkxJYOYb 7ccVqI8P9yXxHTUiwWq7HtXXcEOcLcAUiz+8y39f8atHf47jGiQW1z4KCSSN LsSIuJrizh9qYyXVSFBdezCUNtEMj7MJKvU8QIKdEWHSP1ZzvHJLbbhYlgSa NEHy7J2W+GTqPNM/cRKMlMdewdascT5K9sGjJBJ059tf6gg9h+v0O1nH8+3e xwGd2iLcAfcMJEf0sZPA4zQjf3SQE54s/CNHkpEE4/qLca10rnhdZVynJxUJ 2JzT600GzuPztkbbxRtCEGUqHTnI5YkLb9NK/1sUgtNTwXp+2Zdwg6dVxkdn haBTIaVP7qcPPh/T/5duXAiSlMJmmtcu4ynBW9k1Q0JQYCnxV8fMDz98SehM cK8QOGW9ijdZuI7P2mkyancIgb690amw/gA8ydSqeK1RCCrGWJ7KCIfgSPea U1G9EFi5+XmW24bhkweTuH1ACBJsppyO2EXgDySKq/dXCEHRKP1l49RInMLb eXG6UAjubdXE0Avewcdol0hv8oRAtbzgqlZvFB67zP3N6Y0QxDx6nOc9FYNr jCleF3shBIFT/ktrb+LwX10m0gMpQlDiJhM5E/UAv1fv1fk4QQjCrGuDk9MT cJXSmHCLWCFg4ZR5E7mchA++yVXkvSMEIR3jVxpuPcbvJH8fbAkTguyysVvs 9k/wg3eno6MDhGBjX/DJ97ef4303mLUNrwrB+dAVttHwF/hNd9kp+ktCUNVc vz/R5yWuYGPw6NN5IdD7YW/dlPAK/3HMVS/EUQj67j3ARhfe4KGUyCVtWyEA 8+9shbHZuNz+jBfr5kLw6pjV2yyfPLyTXGtSbCIE96uOrUya5uNBHL+2fQyF 4K9V+jkf3gJc+h9VrsJhIZiK/OT1hq4Ib50TtZ6hCMH09rVvcntLcP9hnClT TQjiHWpDWG6V4ZJtZ0ucFYXAuVB+slnsA95YE+gsLicE/eXqtjf/VeF+Bak8 g5JCwJ644OSUALjYywpIIQuB/OoNwsTJT/jXh71eloJCsPT5sRhOqcN9b64L 83ELQebx4cvFlvW48FXB760sQpCys8Kzk/kFr3dRuxFDJwQy9YWxqqrf8UsW 5jJGO0Swk7ymPUfdjBMMrnQxrBOBij6M43lUK/5J/WFE7QIRfL7+/T6k1Y57 yhYcDJ0hwkfMN+AUfyfOT2wboowRwXnv+8nf5G78I/N8zMYgEc5ophZ0W/Xg 5zc5KCU9RJA48eP6t299OM/M/mnfdiLc0vV9+OX6AP7h5/HkA427MdcPBSmV Ydy50UN/9jMR2qtHY5+0jOAcVVHLmdVEaM2g+Ub/YBQvy8tKdyknwrnvf8mD wWO4w7MvphKFRDDgLN8z93gCZ7k/sTOYS4Qh35SqUxNTeFEIQ17qayJcrJU6 Fewxi5/z3mNjlUaEogdPXiP5OZzR4QgzfwoRut/8oJngX8DzTzqVtj0kAjlA L8K1fBG3PhTuEhtDhP3yiWNyEcs4nfIL3mO3iZD4Kmg6xG8Vz5OEGsYwIixm FGqsJK3jFnxDl+r8ieCHCzg7TW7iVPQ75LArROBd9DJa8NrGs1eEGzEvItz4 z2wsWpAKnRrX9t90I4JkDPzXk0SNXjfc6L5sQwRh7XrZ0m069FjJ73DWaSKM rTVEvhFgRNFPffMHTxCB8lUoztGRGYUwXSLzGRBBvdzhhPsYK/K97BFlqEME C9wu/XkGB3IZdFsL1iRCKQtvUUY7F7IydHYuUiJCsxDz3xg/HmRUZN82JU8E ne8+KWK6fAgTPYuL7iHCa6f6e/mqAkgx6kzOaREiPApDTl2WBCSxYk6IEiRC zI6m6KUcIcRvbxZZzUUElvAVwxwVMmL6bry4zEyETDcHd5Z1UbSlesxOjpYI IiWOv5WCxNGfNINGu78EgGeJn/3FJFGnn87rb38IMBjatO9bjzRqGKHwUk0S IGL+Bjf/siyqOK4ZqjpCACY2N3MmXB7llar+595HgPSdw8kOFftRmoSSdVoH Abau5Eo9UFNED2MUGroaCXCX35DbJO8gurUup8JaT4AKJfJ88WFl5NEsyeFX RoDaCpXb93vV0DlNsYCc9wQ4r7PjHzCogUwzhCeHswnwVvb2VWYObXSYk2gu kEGAzw6fFK56YEjNn//TsacEsG78CEqbCO0d4z4QlkSAI7kbm+vndJGwKceT kvsEcLGSGDIdOIRopBn9xMMJcOHKF/l5dX20Ekc7ahFAAH4slqmLcBRNbv0z ib5CgECiMMlH1Aj9dP1bWXNxly9LiIef8XHU3La+d82VAI5TTumfMo1RDWUl aZ89AbYTT+TkJ5uiojcLtI5nCDCn4q7RsHISPQ6aHmg8RoAMxuO0h6jNUfTk uBGNHgFiuNROuxZaoOBTo6Xq+K5ex/b8zkgr5PNxSOqiOgEa7/GblPpbI+e9 /fHpigT48O5nhlWCLbJM6Nn5sZcAmwTOSamuc8joX6cHuyQBmINaGrue2yPF ria96/wEoLGSkvE2dkKSOt8K8jgI4MXxWbTkmzMSyKkXHWUkwNO6c7NlDq6I WaA2mkC9y7eEtUWK/zz6G1q9cWJTEJjOvyyvHL+A5mY+uEYsCUJ++hkVmx4P 9MuirKNsVhAm2jiPLs1cRA373udJDgnCeKyo9lsdH1TxKE/oTI8giLAFGXyP 8EW5NNm3Y9sEoSGwkMek/zJ6fvH1cu03QdDR0rh87dhV9KAn3WGjVhAk8kjW 8e1+KPLw82aFKkE4w7xivOF7HV1/m6rtXCIIa1YvZ0gK/ujczQT+lkxBcGme rknaDELNaJXxerogoAvR78qmQxDastwUeyIIzw6rT3zfCkVivqQh3/uCcPii w4NstQgUtz+ojXRXEPoX7iY89byJqKcGa+vCBaE5yc9orTAS/bJLzxTwEwSu kacymv53kBmJLrX6kiBQfXdZGtm8i2q7XWLOXxCENFZsxzfuHso4sde3wlYQ HNT/BcvsxCI+5nvOThaCcEX7nqa0ZxyKrJu1YDMVBME+8wtvXeKRq3a+9rnD gkA+yN1oEvoQda9yKzBigsCTYfPmXnoCMii4LJavJgjEQ0UJ4R2JSHavOj2N nCCwJ5VHCjgno+TfyWvZkoIQJifbul73GDGnbU6dIguCzXx2sZh6KpoW+Nj8 iksQeF/Y6G2dfIas20VrjFkEwdud8w7/3+foe0xY4RqtIFw8jCGJgTSUS6eX bLgmAKQ/91/9qUhHu5NC1OK8AKTyy4NbxUsUE8AUlDotAMYZMQGXP2cgr8Xv Dv8NCABjPIfA8L/XaDBv/+mkHwJAfJ5Ox6eYiUwu3NdHbQKQ91g5JvRiFlIc NpOPrxOABH5d+w/cuSgttYis9VEAKrb6KBdu5CFuSwGu0VIBeB5cl84x/xYt NvUuq+QIgM39KgsGhvfI8a72xECGANxIucMq0/sedRx52nvrmQBgnWIyuUUF qOiD/ceeeAEYXXyl2RpZhPyyJm4HXheAn5fu3aB6VIbGnQ399/gKgG2ToPKn wnJkKZbj2ewhANR0we8/9VUgjUdeJ8XsBED3WyTnhaNVKNOs9fBXKwGotsre Cbv/ERE5lNR8zQSA9cx0YvVINdq8uSJUpycA2xop44dO1yB3HUv2i0gA2s72 i1dxfEI/t8r+8WsKQHuzlKtqyydU6Rv4222fAGQv+d686ViHgu1p37LyCsCf ga6KfV0NKL/FILaTTQBKdbVtfKq+oF94tNdTBgEo3JeVLZ77FemT+Q8c2OSH UK52N7qn3xFHn3S+2Qg/MHn4COg2tyAdQ4840k9+GGDwHs+92op8y955/+7k h5GB5/WpjG2oO0njoN8XfmhqOa2VqdqOnp0yKnj8jh/8Mk6Z36joRK2fYh84 ZvGDf3GgDNm5C9EodfjKv+SHFoZLHgTubuTKZatclcQPJ7vZ87au/EAKTReL hoP4gbbiuXWoUx+q1o8vkTnOD3EO700m3IbRYnFX0rweP8xutDIWdA4jqT1C 18oRP6yfbzubd2gE3aF9qX5MmR/S0ndOUEn8QqZQVOYlxA/iJWUuAbOjaFiz p6J4kg9i87fmO19MIJ4s4dTgX3wQWli2wCU0iY4QHAIM+vmgMv/PcbsHkyhz dUq7t4UPDsp5XuoJn0LehVuVf0t2z/M8NMqxn0FU+0WrD0fyQd7CpKLe5h8U KKB7LjKYD+poFXde+MyhtX+O2/XX+GBLRv8DmphDf9pfaxu580EZv6DHWdd5 9PO6QpmpCR/EPWd++wBfQBaOppYPjvIB9j7tcYjPAmo/5rvaocsHH7quhLG/ XEBfREpULFX4oEJjq6aVehEdYerpSN7PB6fDrOWmFBZR9cKGb580H5yr2qk8 b72ISuqw92eJfBBu/KnULXcRKb21M33OwwcPcQPnpvZFlPcobG6YlQ8kXY63 ua4tItmwl7ES9HwQorRsKSu0hDLcP+933uEF8iViL4P2EhI7PdH4ao0XBP0o tWtnllAqxuw5Mc8LcQL7CAt+S+gB14ls91FemKjdy9KTvYQ4Nr0Mc/t5IdgM qyiqWUJ3R+Mm/+vihfrP1nTXu5cQXVPB7QMtvGCWdZSfNLWEQks6pX2+8ELH SNKXRxtLaOv56ueCGl74D+3kTDIuI7+7BJflCl6QpbenYeZbRou+WnRqRbxQ wupUv0xeRhdtbV9ey+MFg+jc3Mw9y2hSL/hQ+WteWPhasEdCfhk5H0gb2XzO C+NasnZ2CstoiPAplPJ4tx7fzhG7A8vImua3aPADXnh5aTtMfDffPUNfXX2P F74kroa8lltGJ7tkzlFH8sKg3i23Oall1PjRcPtQMC/ky/mI7ggvo6OZHk9u XuMFq63EY108y6guPka73psXHhCvHbvOsIxQwLs+Rnde2G6x1ZhZW0IVzm03 DJ14QSKde1RpYgmpGS8R7tnywjsvrbbTnUuoQJ2/rNGcF5K9j2tZVi+h/eLq lhwmvPDMT5JON3MJSS37J8br8sLX0uj0qctLKG3giUqH1q4f5YTb5RZLiNTw sYNPhRfS/yOMPlBfQjwpNDzJ0rwQT7jXFLW0iGIipN73ivJCggpZvrp5ETFd 1DclEXf5U1U/kM1cRP9QVOwzVl74t/6i/bv5IvLfm7t/mI4X9t+PChGVW0Sr PM2N4js8sDhr0f7z7wKaHeNmfTXPA9tGvRn1TxdQ373Ht3O6eEDspHsldcs8 6vgslmvfwgP9rym6u7M2avz3ppX/Kw9EU9FydbrNo4+XS4ihlTwQklI+MbQx h9JtOnJOv+SBvtz0WivtP8hdnr1125sHFN+U366/O42cXBKWC9x5YOE50TqL axrZPicRzzvzwL+g32Haj6aQMa+cY7slD1zZs3O69eUkUtrSX36N8wATtzrB omocbX0LJZiy8YCXlIDSNt0oWqZjwugZeMB4IHefY/wv9Ae/71DxjxumGVMs Pov8QsMFT7OllrhhWSkqvo4ygupSKigbvdxwUaNw9DzHEKrq1HV427GbL+Cb 1dIaRCUcXyOdmrihWSYia/D8AMoM/9HcBNywwJd4dab5J4p2X7ZPf8MNzP2/ aneqe1BkRkCk5QtuwLlufj1O14OCB2my2VK54TyPT+rUsR/I24x7yS92t58m P6Y61oVOaylEHrvKDZJcbMo/dDrQiSvFWVSXuGFUJei6W1o70n9LaS4+zw2/ PfS++9K2Iw2JY4Jittygf/5a2lZHKxJmOZ+1fIgbtlnz9E5gTejcx8ZoCQo3 6CpQB3WQG9EL34PepqrcQN9wV9KM4TuS/rmplivDDbOf61sX/3xB5+/bCfWJ cUNRyh62//40oOzDdduMQtwQN5xgFbdajw7kxtQ5sXHDQ6r5vEvCn5Gv/eKb eHpuuPParNpPqw4V8Vneq97hAg/dm3ur7GqRRpCYGWmBC4yfNa7cr65Bh4wL h9q7uOB1p/He5BdV6CYNoZaqhQuqTgReyzGqRA0lga8VvnCBvDgoK1B9QMdF 9S9GVXAB9uXmPYf7ZSi2I9u0rJALTn3I0w49X4rabnOqjOdygctmQ8f08RJk Md+zqfucCwiROQUBakUoOQMbvJTMBRNLJz6waxein1bpNU/jucCmZc/lWsMC ZF/jcWcjgguIM1vY5Zv5KP1qq4dMEBccyYpbKLZ7h37vVTUx9+OCOWXPtogv eejCgx3+9+e5oPV2fPFgUzbK1XfaGHTggrUHKO3khSz0Z7Ohn82GC+DQd777 fJnI1yn+5fkTXHD40Y60UfIrVCS4eitJnws2GmV9qi5loLXv1u51aJfv2bWe 8dMvUaCK1EExJS5QHam+4aD/An2cvMNnLL+rfyG288PJNET99L+1ACkuiDLO 8ahqe4Zu0Zd+/CHABXtCL3Tb+KSiL+WkdHquXf9nPc4sDj9GLF6hkcrMXFDQ SF2XuPsfFMl7mCyyxglvQG+2KiMRveQ/a+c/xQmx9FOX39olINlgaenun5xA 78kWFCH/EB00KS+MAU4YNbwTtLgYh0pKw/2nCjjhbpvCvhN995GW2HFdvVec 8OTaZPX4dAw6sjDY/PcuJ3hf0i9+aBOFvp7JTLQK5IREdqFa1fI7yPiTj22R Fye8ML6rK61wG1k9pJv2OMUJsrXeUrfP3EQDW035DXqcYKDXxdDPHoEcnR9d k9TgBPce/QWDrjDkoSpH/1OYE+KUHqZoKocgX/ryN36cnJBy8O7bYqUg5N9l YMRDwwlJox9lBE0DUPir7tm8ZQ4IICsQuu/eQFFXXe4bTnCA4fWQBf/Ba+iB 3vLBsV4OGGev5n123A+l8Ed0hjZywACZ3mai/QrKLk4jlr3nAFGOvPBuCV9U EHmg8lQGB+hwvvLnn/ZGFeYfz80lcYC1pD5Y3r2EPu05QX3vLgfQrtv4cTld RN9Wfr6UDuQAfV/RymN2Hqj9s7v+Jy8OYHIsmyQEXkB9iRuTZx04YOq0hfTz Ujc0pSqokKjPAbaniJfHIpzRPP3rVkVNDjhssXDIidsJrXepXG6U5wAt9PIv b6kDonpdy39ehAOUOe5hdy/bIyY/szJabg4YHuTebo46h7j0R6yf03KAlU70 k28Wtogg4L2ttcoOkzfkxBKPWiPZkphDvj/Z4Uikua9/ggVSvCU8xt7MDkvt BE7z6dNIwyLndhawQ/Oin2fA2VNIR1pLTq+QHfQrnc34Z0+io6tfGodf7eJt 7JacE0yRab3lpcBkdujw/2B/L8sYWSWNcxPusYNEmUazueVx5KZGZ2nizQ4+ Vu4x4QpHkRfDw41pR3Y4l1b7I8ZMH/l1iz+5Zc4OE82PWuaSj6Dg1/m4xFF2 OB5YxHru3yF0yw+NVGmxA/+1z1feR+iiWP3miDP72cGP9ofXb0kdlCRwVnpF lB3GYj/JS1Ri6HWJv8c+enYweFxenamkid7eYub4ssYGxybVZ88qqKMSi+R8 p2k2YGlaOMB1UhV9lJY59a+fDaazaJiok5VR/WrxSkrLLp7rhtxzKiXUXH8k We0TG4zxFSxG3FHc/S93aLUXsUF3z53eEWsFNKa2EMKcwgYaUSIOhtF70SxD qMSraDbIOaZH0PeUQcvdHJ91QtggLD9Pe++1Pejv66du/T5swPnJWqA+SxLR XdvHct2ZDVKP+NyRoZZAbAYfcnkt2eC/PyuPo/3FEJ+gkck7QzaI+CZw/Zu0 CJIqdUsYV2CDcM3JCGkVItp3e1UtXJwN1q5B9BFGQaRiGdlL5mOD92o1MXuY +BFFhi+wnIENXpSW9VOUedGRtXQR8w1WuNYZEIEiudHxhoM18zOsIBfU1IJW OdHpR+AUPcgKgRtvLvBKsSNbNxMG2TZWGJ/9QV0Zy4Kc1Acza2tZYZAjzt7u IBNyzVS30C9lBflX322OyTMgd2I87ddsVnhgM/numTEduhg1nX/sGSvonvrG ppZMg7y3Dp9rjmeF/qAQfRl6anTZ8ynryUhW6ND1kAnY8w/3G1gt67jOCmN9 miyzgX/xwOos3l47VnD3ktMybl7DQxRpa2xOsYJz6qb/bPUKHv7C1mtQnxWS q3KjyQNLeCRPCclBixWir8wJ+Uos4nciOL+O7meF2CMVOpXR8/i95fN+ruKs 4Ejq+cuv9AePdfkkOcXHCpvp/EvH7s7g8d2kNg8mVlA6xknHKzSFJxhcDf6z xQI6hsoFn4fG8UdlzfI+cyxQGvPLg9j9G0/ZK9u79IsFuCNcmAkbv/CnKWG3 /LpZYLnyZRlRbwRPY/2pvPGVBXgjTNOCLw7hLwNVRgKqWOA9xxOGvsR+/PV/ MbE7+SzAlRU8GrXdi2efm9AOy2CBrIYgotHzH3hei84UbfJuXmL1sbZfF56v k5J06x4LnKwadRsP6sCL3i8dZg5hAfd6e9n9BW14qcSJhXu+LKDvsqhuwNmK Vzx8/YzDlQUqb3pdvyLZhFfRUR2PP8MCJgH0pzM9v+Fw9cwG7wkWsG6q9T62 3IDXjhe8TtJhAXbfSd/Nos94vSXbaaLKbqzTmVGbVYt//eJC/USGBai6Kgki zTV4o2b1WxESCxgmUrxHyIC3ZBNsX3CwwE6walCgXBXeTvJllqJhgdSN9NWL DhV4V/T3ktcrzODkvryi1FeK92xLOe+dYgZp3s/fFmKL8X6vYO7cfmaQW6Xo mPoX4kNDPz4qtDLDgev/GV149B7/ZXrQ830tMwRQmVPdrn2Hj9dEEVVKmUHd WyM+LjsXn1L6XV+SzQw9C3Zh1/qz8NmX2BXNZ8zg8qjnirvZG3yO75F4ZTwz HLq7kaXI8ApfjJxvxiOZoXJNBCcvpuMrq4aBNdeZ4fP828u03C/wdbeXe494 MoOye0+jZeUzfKvnb3e9HTOUtDdoJGan4juGFjcNTzHDFeL855nfyTj1h3cH G/WZYW7SvE3bOQmn28c8ZKzFDG1SNSwsEgk441PH6Lb9zDAz99DAh/AAZ+Go 1DwtzgyaVngI/6E4nCOEf6KbjxlevHpXdEAlBuee90o4w8QM2+uCwYIaUTif wxfd/i0mSAiQiO29fRsntIvPnZtjAp/lZ0R54UicdDjgycgvJrBNPh/k9Scc FynqNHTuZoJ3ZWNtL9dDcfE9CmvjX5ngaoHDk2L3YFwq6XbGhSom0Obrrj6G AnAZxpGTs/lM8P5XUJWw63Vc7rrWP68MJqgJ+XeH98dVHAaM5UaTmEBFyOz1 is1l3OKwk7nlXSb4y79HjVvGB5/NvBb6PYAJsg1vtJQ5eOHhHNE5yIsJnCet muTH3HHClbTuQnsmkJbdinFodMPf9hZRy55iAlWWtaqbbC74EfR13xO9XX70 O59GUx3x3owBSy4NJgCqcZEOH3vci2Ux/KYcE4zhyR572M/idN4Mb9eFmeBu paCLx+szeEqXUK8nJxP8GnidSHxpgStqH6AboWaCgR9Wp/asn8Lr0w4fMF9m hK4XrclFqSdxWwYr66/jjMDRoBD1l9kEX/TwjMR6GUGi+ryAjdUx/E5baP77 74zQOYndiuM7iouoJ/7c85ERVnofZx1Q0sOLnmQxpOQzQsGsxYbs60O4Ec3H gxwvGYFklnz2lasOPuzWbhueyAiLSvyxX7souF/T+O3V24zwy2vnio6FJs6m vFXg7s8ILljvnwEdNTw9mXNw0JMR1JL0Om3vKuPqO5LMp+wYQe878Uiv1EG8 0UlDpeEkI1jHN+87zauAO349bqd9hBGS66prAs/J4esKDlHv1BjBrfiZ3jZJ Bo9NuFosuZcRNASMfR1xKVxq8+7wIxIjCIwM36ktF8cr7J6xsnEwwhxj6/d9 jKK46ecCtVAqRrjUjWVw7SHh43INDsuLDJCenSdRUimIB8b9jD4/xgCWb5QC 71Xz4Tyrc6X9Pxig6lG1YIEYD55pQzdq+o0Bps0OmKZkceJ4DYHjcyUDEIu9 PXNesuKd0vs1Nd8xwPhfVq4JMhPuHq3rnPeCASQlXSqLmOhxqkXz++IJDLCo yyVlYUGDJ1q6VyTeYoCNPvs0+5V/mFxV8BjzDQYQ1asdUu3ewkDiIVewBwPY vZo55k5ZxyzuvNFePMsANw+88gsWXMFm//vg6mrKAHfVflstWC1i4ada4/sO MYAOnYct0+QcRij/XWmsygB67D8vsHyYwd6KbEx8kmGAmcQWsq7gJHbkJjuv uhADXJi9InNx5jfWNyWO57Dt6pE0nb8o+wvzNlG7IPqPHiLvSe1QhQ9hDMVG CQ8X6CGB1XCW9dRPLFXIrprx9248/+HFi3c/MMXQy9MB3fTwYVBbdT6yE6sf u80//4UezqKAEbv6Nsz22BMd5w/0cIXQ3JxS34wt5ud79OTRg4vn2SuPX3zD 7gh8TjqeRg9HAwt3xpgaMJHA3hp4QA+h8IzbeLoWKxr5b1Ylkh4mVlM55lRr MCMDGkLWNXqo7JqW7v1QhQ3nChwmu9ODclpPnV1uOebHI+8Vb0sPc2wMJ87J lmBs19FjehN6OPbhm9E1ciH2YuBU3Q1denjwq0EwNyAfU/qttNmpQg+lpZwX HxXkYnXT3IqKsvSQGWJKM7aeiZkvzLvcI+3yPfiicqTsFTa+1pI6zkEPvPwZ ciaj6di1nbdtujS7fmz36TW7p2FM9LGMT1fo4HdVetSx20+wx6wXsfVJOpBx J/mKNCRjcjzHL5/qpwOvmIETfBGJ2AeCfNbbFjqg8HyaO5/zADsuyjLEXEsH 3B7uiiZKcdjAnik+lxI6OPrXZMdVMBrz2vfFCLLoYC1N4yGr9R3sn9KbUNJT OpBe1q3mFYrE4jRvlfjF0UHl/h1xG4NwTFzHZbYtgg5MWJoc778JwQr0j0js v0YHura/l7ldA7DDJySt7rjTgYBbbMDHomtY5yma2NGzdGDRdmmpPfQK5mI9 UoufpINXyi3CS+U+2Ko9bDw+QgfsTjP0pS+9sNtuzw+sqNNBoNb0gvZ1d4zg FexiKk8HLCqebY0/XbHsK2dTc0To4FlT1XjMBydMO4DSxsBDB8o8bVT8jA5Y YxiJ0ZGeDn4KsTcr25/Fzt3ZpFSt00Lj8VBnh9NnsLnYXl/CLC389yKvnNhl joUmlmVeHqKF3zHq849azDDuJ48Gm9tp4Z7M4/2xyqZYerofn1w9LegNHXDK HDuGKWeZG0WW00Ie1/A1HZqjWN07ldDhXFroXptZiH9zBDMv4S3RTqOFJyKH c0RqdbHxysWZpIe0cH19eKPyLo5dq20TX7xFC7Mnn7ztxbQwpm/5lif8acHq P8JQWJQa9rj1fkzmRVpgiciyHrRWxuR+eNXSOtBCcsFX67EniljlwImNc6d3 8QsMx9fC9mEnfu87UGFACy38L1iOXJbFBqdZXfi1acHl3uCS9aoU5r0wneKt QAuO99++4V4Tx6jXv7Z+F6eFklHFzo0GEezBTiaDDD8tZI/8apeyFcIk6e9Q wploQedm0s+8OAGsiNXNd2CLBmY3L+cpmPBiejz6mRpzNFAGp6ktbnJh3YQ9 gw9/0UBbVKzjBs6GuYnS8c110cDHAjbVB1JM2PqeUUOjrzRAnd9dUZVGh93d 9ynkVSUN2NRwlyk9o8aElF8UU+XTgF/BUTWcf4eSoxk6Y/OSBtJGc/JCcjco FB078dIkGnCWkEtin1ihNOnjljxRNBDlulT1OG+Rcu4EOeZi0G49NalCrZ45 ytypv5++eNOAm8GKzVeJGUqo9c91SWca2DMWoGROnqBwO1QohFjSgIJ72/uI t6OUdLfHzn1GNCBxtflCAgxTlL2up6jiNBDSe7CtOqyfUnfFsjXuIA1UEvmH WvEeikWAGsOsFA3otdvzLj/ppEyE8VMMCDTwJXK+593NNgpL0Lu5hyw0IBdC 6xFv20RRuG74cvgvNSSI3qg7lPyFYnZ51GL/HDXkSIRnFD+qo/h5BbH4j1CD sonF33HtGspH5/c+vPXU8LZm3W+eVEZhsBnryc2mhkLD/SLmXfkUOYuQ6I0n 1GAXPurdJ5xLMT5J1NG/Tw1EnflTk35vKIkGJ94MXaaGsdHcbvKpNIqUSvFV HowaaKmVt7ov3accPWCy1+4ANdhHMKgqyEZRPOWm+nPEqeHdoqIya00kpUiM fESPgRq6tbhm3rEHUw6zR/Jcb6GCVNFz+Rm3PCmO46ffDThQgemdyBfWMoaU WyN/HOVOUwFn+DObZw1HKNn9dwSu6VNBTyfvnTRZXcpie2UQlzwVkE73a+07 p06hCTFMvjX5rzqM+3BHY8weCjo41XaS/V819fegwvRFakpFoqzepMV29SF5 7XymHyXaTDYTTtSU7erPx/cQbuQUaFuIvQ4XEt+ubvra3mkY/lZ7MVsSjs/8 rf56W2LL3jJDey+IaL8P+VutvCp7vmk7Xjt5mu+gf+ZW9WVdprp7Dzy0ryJq MtvmRvV5m7LTys1kbcWp3uUDT1era8RCmRqob2gdqfjJvG0xX0260bnRxLZP 0zvr3To372j1/o2QmQ7dFHULV8kX7YFfqy95rezdCthRvVO/2Wol6l+dHP/n 02MrWdX/AcNUSkg= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+Sr7wNn94V9/Sppa6R7cFDD9sb33hI5z XZGqRkxlondSJD/YF3hZReYk8Riw8wQ0Jr37Zv/VJd27fs9c3eYH15yLFv+1 f3We1fK2n6D2htltAXWfGB3YM/8JBm3o1shflCLwJIzVIdRcfc6jI8tV47Jm ybY3cjhwFJ77u+zbBaXOwDJL4zncDlEXYtIqNj6WZxGZ+qz+F5+Dxtu9tZH3 JshcP936oYVf0CHjpCnLA89AydDqJLNZh4UcIvdpytSYLxbN4X6tdC5KxKHh zZZ/Dp/5hORXH5vG9krUgTH4QP/q1HS+6h3OwfyzxR32vv4WvSfEi6tgWc42 M31Jh8smmUu9Pvux8TCZJ+k9lXLYtL72yMH7lxldc0Omak2WcWCAAomdsvmu KnJw/qSijokG1+Xh/KA2f9252xTgfK3oltAltYpw/rVnnIsmhyrB+eeSnjoK ySvD+Q9Zlv+YqoTgf1mWsV5SDcGXfP1aRlEXwU8p/vRd3xrB/9X8f61vOIKv tlRSqrMfwbd0v32BZzKC7/NyTvuEaQh+oa7C1+lzEfw9W9UuLFuN4AcdM247 chzBT834auNxGsGv4Nr++fQ5BH+un1Xi5asI/otrDjaPHiO5t4Lpc+pzBJ9X +sjKl68QfKN4d/GPHxF8V0bOcyVfEfyIxadafvxA8LNce6xr/iD4tc99P/3/ j+ADAFRS31c= "]]}, Annotation[#, "Charting`Private`Tag$4165#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVVnc01o8bRQjZ8/Ua79JQWUmUvI8oIxISlRGSBl+iQgpRpFBGVqVkRFRS KRl9HrtQ9s6WkaJkj/z6/fWce+65z7nnOee559Ic3c1PsrGwsGixsrD8f/qN HJhaXWWgu/qQyoPlPubwZfGZrmUGWmds09q3rZ9pItg7926BgelyFmp3Tvcz qTvPrbj/YWDJyePcfG39zNJb0Vx9wwx8uqtMdLBwgMml2CaLnxnYcSpj16Mn Q0yP0ke0B9UM9HLfeHHHyBCz0/K0nE8VA/fknteL2PSNmR2wIK9cwsDoDdM8 Qc+/MU0apNSS3zDwTfzPzjIcZt69YG909T4DnauKphP4x5grXPImNgkMLHTZ JKFsM8Z0TvptqhHLQIMgx+asrDGmemWQ5a/bDFxQdZi02P+d2SmR7mAfxMCG 9/H5JXfHmdTCMW/tMwxMSou01T0ywbx58JWvtDMDx7O29OnnTTCnBn395h0Z uORyTOWYyCSzjJf32ksbBmasdyp83TjJdLZTvE01ZaCWdZeqXs4vZjbr+TQW dQbeziC2fbCcYmocyuJMVGVgTpaUHilmilmZ1n9aRZmB7YZ8Aor1U8w+fVMF R3kGFjVEH4w1/sMUv63wtkyKgacrrHLumEwzg8ijVSEsDPz+QzVc+dIsU9CV spmyQsc/XMkN5qWzzKRiy/B3C3R0fzv8/jDvHDPfvsJ0dIqOW5KNb61NnWP+ fJLSYfiNjmMeHHtPdM0zj6jajvNW09EvfV2gue8Sc/j63QPplXRcFaK0FzYu Mc+31uRoldHRYOeMucrWZebtS7suuBXR0ezhu2jjgWVmGSGxUveCjvp/pNYk Wv9lKho38sfE0JFNae2a9FIWKEri9tgSScestgqumTkWMJzUbioL/4cdqC+G FFjBKTonfjqYjvb9E5+f3meFe+3hVEsfOm6r2i6x4s8GHCf1t0na0nGOWzrQ yZkdGu1UrMaP0nGp8FyNTgo7PDwidaXYko7W0Ua7K3vYYYfxZIWDKR3vJaJy 2VEOcFaNP5ql+08vsTGh3IoTPrKOXNXcTEdv1+28rhe54O5SfTrfRjomHxCO dyniAvuZgupeBh0Jmb2xW9m5YWH0tuh1mX/3OPg9cjGWGzbX78isFaQjx+gT lpVSHgh/GFJnO0fDA9pnXOz28sGRhHPTStM0PLnbselEAh/IRR+TZPtNQ/3N fWZGP/mgOFjxxJPvNKztT7H/lMgPE66tsxPdNKy7HBGAKwJgqrlB9mo5DXs2 tWbWXxICkfYK15QoGn524FPVahYF3PI49PptGv7m4Y+N4BMD14Arac5hNIzl 07T00BeDyg2qXzcH01Bkb4XLfJEY+F5MNnrtQ8NvSh4ftuSIw4Dw5c3lx2m4 of9Y8qlcEtxxttR7YvPPX5fdQPw0CXYXqDiGHqXh8dmbeZ4akhDnMJpofIiG fXMPDRRLJWH/y8PcLXo03MGheWasmwyvDiiPflOgYZBER/FXdRk4/ngd+8fN NNwZL53uHSIDvDPDlKyNNNz0pyKkrUUGnB8kWbnRaBhuyXvgp5cskMd5qmZF aXhuG10ztZQCQaHf0tcuU3FLrE3RuDYNzMvunZCvpuL3ZLvcKEs5kGse6qmq pKLEJFdofKQczA4pHnMuo6Lvxk529Ro5SOQsM00touLzwSsfDHTWQ5/huJZM DhWjxPb796lvgP/qNUlCd6n4inR5SU1nEzD7g2NyIqn45XdO462QTSA4Vcdv EkFFy/LkuaiaTfBGxIkjLOTf/tpNH4ut5GHRMnyK/RIVX+Y4xhT4bIbQ7q+1 87ZUDDxlP1DbsxWOTWwwiD9GRffxHQdElRRg6+q5MjUrKgbRb4pvvqoAdVSO Ak9TKhbtVTX8KKcI4k4KGT90qFiQqpLO7qMEqd/9Avs2UtE48kofWU4FLk9q uUYOUrCxbSWZ++B2eOCgPqrdTUGOeXVh66DtUNSk7PS7lYIuUdz9jLfb4e87 ho15NQWXU0MCKBQ1CLrKbSyaS8F04X2XO2fV4JZQy5YEfwqukkFB94M6ZF/7 kmHgQ8HU01J21xbUoXamirHgQUGL4BFbIzUN4O8skDp2koJT8xEbvV9oQHRK 8jppYwouGZ3vssnYCfdUXccfSVKwp/v+lN0bTShMP3nKVISCbzlL1qbOa8JX ieODLHwUlL5vtjdQazfILpt1ObBQsN7GQVDo025IKVevYYzI4v3GCo/kES14 enhNdsYbWaxZhqRamjbke987m3NQFlMOGpnJog7QnTzS2w1kcV9QmujELx2I MDXoY9WRxfyukPcqdF1wlJ89bLFdFg1aor1JIbqwrstszwJJFrPjbOr9D+0F OyY3SXdABiWHb46Ec+jBx8195q5dMpjqlPlAkKkH2yTeRcQ2y+CHEyQNkrce rP3ltGa08h+v62r/7rsevHyME+HZMjiQGB91qF0f1nD4VLRekMEwcTbTxc+G 4PbbhIXFTQavSRYEg8B+aO9eryl/SgadSoQ9yGb74dnbppeXj8qgL4u9bFzr frA8rfSAypRBC2ERjcpRI8isGfY8u1YGZ/OfrZK3mIBJ9GHq30Rp3HnBOU8v wQx8twkY6sdIY/eYy9jLUjN40vjRIzJcGo31rup4/zSDv8K7y+gB0sjkqiNL 7TWH5zF0Z30naUwcH0lqnDEH3tjJ7EhFaTxvFi770MUCNNSeNndslEbFuMNq sg8swKnFcYVOk8aUr83lHJ8toEis1SRPRBoHw9L1+ZUPg0tc0e+OeSk863r1 h+TSYaiOv6nOKJPCCAWjkqp0K5hV17V3LZJCs12Wg+RuK6C3L4fm5UmhcEnT QL/oEfAlnevUz5TCxNFf778EHwH5REs/1wgpzCe2Ve767yiE3mOU5VlJIcVY eEnikDXoJxWbGPwgo5Rm2GmWwOPwK+LrMvswGf3a9BPTy47DPf+lrJJeMvY0 qnE7rbGHH8d3rtVsIiPj9cdlXX17iKbnEQoFZLQ5JfCRvdEeejKeKYuEknG2 WHTv4B8H8Hp1X7iHQUY+2SdfZl2cgJpagPdkyNhtHWc1EusEn2I63KwkyCi0 dKyFgU4gfVGipp7nH1Ye8QkSOwml6jHXyn5LouyzAysDZSeBv/jWdCYhiVw3 d12MVzoFT6outZ63lsTZKjNWKb2zkLjNS/ephSSaFNbI9fqfhfAkz5c9ByRx F29oCH/+WfA873LLUFsSizQu3Mvd4gJaFFsmZb0kOmfVakuRXKHZS/tJ9QQJ O+rexwlyugHbhrVetCAStv0d2JAq4wEzkWsGLS+TcJ+Aa9TxPR4wurR6MPwC CdtTM6NsTnrAl4Z5+TlnEop/eVcl+cIDEv2+d9cakTCmXc8oW8cTlFs+7/MR I+FLwefo53Me7K7fFavLlMDi1VKpm5Je8AVm1/qkSKD92YUYsq4XwJLVIvWB BIplTsxNuHoB1VOq1/OOBO4IiGhwKPGCgeMpmeJeEvjz2viyz3/e4Kz5UtNO VwL5Vo3PvWv0AbepGoef3eJ4wszrdEPTZeh5rmAR1yaOVnN++s6cV+DgmTt6 0CCOFUc6xgx2XgHlPvMtUeXi2FRk2jf/6ApMfe6Y3p4tjp7r3S/wefiB19OR G1d8xDEye/+nI/QA8Ldf82KdiDie6ly5+tchEF7W6d9u5hVHD7bCusGAQBhg hrslcYrjc+/etdNJgaAnI6aktCiGNyw7hmM7A//l34aX5v1i2Dj4R3focBA8 PLT/VWKOGF4Sif/YaHENCL2otxuNxTBQIaZE9WIwTOW1xP3aJ4ZoVxT3OSEY 5NaTvd+DGM4xZv7GFwVD6JpUdSNVMWz5za5NsIeAKb7JdyOLYXMccdMmPgT6 drYX5I2K4vawRx6LFTeARYFC6AaLYpNIQAbH/ltwRXyPXbC/KHps0u1+5H0L 5lYdVyq9RdGbdI/HN/0WTDQ+0dx/VhRjzM12TLKGQZePYr7pQVE0OKOpMVgc Bm/LtXJtJUXRM/TOrJxOBPxnY5Pq/VwENw9aBzQyI2F0n7/O+yci+FHV1a7t aCQ4KSX3Lz4SQf3/VFtWL0TCMbYhin+0CLZEvV4szI4Eg0yXB9e9RbCGtKQ+ RI4CuWnf2Kg9IjjUn9DNyxINnWGJN7JbhPGaXfUh/+EYaKqgPrOvE8YthsIf 1rHfhdrVjHqxT8KocLGTVEi7Cx/Ov5W8WiSMf3aW/gmwvQsp1k3ZFqnCmH09 Pjit9S6c3cJXv3JOGOv503hd6mJhqfoqyZRXGL8rFNb6dMXDNDuXFgenMKpf mbd0WYmHCeYdh4JVIRSUFtQPoiRA36ukLLk/Qrj4ft1jGacEKL9XsHuhQwj3 eXxS4p1MgPCz0/YpGUKofvPlbNu6eyDNc/rptI4Q+pez9iQ5PAC7D7Xh9N1C GGgWN+kX9gAee6qcM1UTwvr2RvmwvAewoWtxx7ONQvj4YdtxBZ4kUHoWUX6C VwhX+ziLovOSQMfkdW9jiyBqux7rnBR9BGei/4rlnhZEERPeTsWlZHBR28zR JS2A5xrd5I0YaeDJ8T7DS0AAFcee+8RrpYFvi/5+YTYBnIzLbVu0SoNbF0/e MRzhxznDe584I9IgKy9ZMj+XH7UkHseqzqfBmJqEYqweP4bOFMr1N6bDqR3s VgfP8aGPvTVxIzEDTqj3ZJaVrcPhANuTri7ZsNln16pbGhfq2k+fmSzIhcfd h8ov7eHAvOJvwu9y38JIoNhufRIbBpp/9+ipLwQev5zJGB42LA4Xy5EYLQRF H8PUvmVW/K99+uCx1ULwcvPj8e1nxdkLLMtLCkXAaf2t/VkWKyZpbet8FVYE ctvzLgprsSL/tbHiVYNicBy2yOl2YMGMFcrFipoPUBC7ad+o5QpRJrZ+q/4K Apf1yAnW3SvEN2PamkM8JWBJfRJEpq0QNHOhktMSJTCVxUDj8WWii3Qk8ZVK CcijrGZuwDLx2Z8UVO5cAgnfRVV8M5eIwlyOKzxNJXARWGV4FxcIuzMp+Civ FErZUXN97wJh7vHZwri8FASr/Y8xyxeI8rAYTp6mUnhmsRx/7vYCUWyutvz+ VykMnZkTbqEvELe+xYjMbC0D87s/uR4azROBW4u2yj0tA+WxjmmlpFmi8O0s J/11OVz4pSAvcX2WaPthJ365rBzy5wJt/56dJU69F3CcaCqHPZybK2s1Zolu aVn39TPlYM7wjT/TPENw7bbiHdCogIu25F2p62YI3gxPNtbKCihwcnO7NTVN nL4eYLujvQL+upSmeHRME5EzI+0R3ysgxPfsOu2MaSLp/V/PdIFKSIgv+PpV Z5rY+srz+g3rSihoOBYg7vuHMLqRcO3xYiX8bX/xesX+D3Fz/7O7ewSqQKeP bXRI/w+hX10zyidXBTUTWaavxf7x1CimokkVfF23RDPNnSI+PlK5mpJWBav7 7pffHP1NBOX4MXmsP8Legi7uFctfROStZS+e6U/wIit9Z5XmL4LsLluoJFwN pPvuZ6Kov4gs6qm32crV0DrHGW3UPEnYuyvXPHerhvWXLQWTFieIwTfL8RyT 1VAaOMOrrf+T6PJ0v+HJVgtxjjddmwV/EhJ/934q21ALZ3Rlak93/iD8E/tS Q4xqQZBjX1jUfz+I/oKTrafjauF46F3uwZhxYk9mfn2rymdYvq3KGdI3RjAP JR1VCfwC9e5VJ8lZYwRu+US7+/wLpJpaV7w4P0Z4DedLhXV+gf3C1663cY4R F5D/Juyog8TYRjZ5hVHChu91PvdMHex44LFac2mYuEqwv9P+VP/vPziO2+sO E9cS73x5NVQP3baJH6Z5h4l7+zmUg1ka4DqlxE8m+RsxKnh0g9nOBmhKEVx2 qxwissbWPHid0wDnnubMC4kMEqndqY4bchtBmd/tmk7fALHvo896SkMj/Pbc yn/++QDxX1nZpeu/G8Fz91NGs/4AIcjafea+ahNcrEsxibvST7w48qtUvrgJ /nzfYqhW20uQ95oLHBlphgtvMu3inHuJSmN9lR/8LTDrt/7CHEsvMUqiknnU W2BekPLovVoP4UV9EjAe2gLLO4RntB59Jer+yi8HqLYC57X5ZD3PDmLrrvsl Q+ltcMP44tsM3g7Cg9VtUrqtDbjEp2q4MtoJuXyugDXc7cDzdHy2uquNoOv0 ig+7tYNAXY/xwX2tBPPzmL+RbgeQpCrmrUhNhLOGmSyPUBckDu3hf/+qkZgQ LDroadIF5BcfGOQDjcRiZtqLt+FdILMn3+RrYAOhvVeiu2/dV9D9YmlY0lpH KOXdHpQQ6wZLZ8bjxiufiBtKfU0Uy1645XE+NDrvI6Ejet7N8XEvFF8pczef qCLG1lBu5/zsBbmYE8zG45XExten9hbt7YMpIrWrQaeMaC7S0JMc6QNZVYOt KUIFhLhWUfWE/gAEG44u0q7lE5FnRGitXgP/+mfop8fTb4l29Y06Tk8GoCD8 o/PjtteETBGa+K8dhOe1UTp7NLOJkFmy/s+GQbi80NCrLZtJhEcbeZhwDoHh BmE/bdZ0ovaDrehZzSGoWZVzD7idRIzks+3pyhiC00fTn/pbxBOfijUoO3qH gP31+iE/chShzt1MsZT4BtqSxlqLGExoczuzM02/QWjlYv0Rii9RM3/ztZvP N/gfTUG1ng== "]], LineBox[CompressedData[" 1:eJwVVnc8198Xtvfe28fnUyqisjJ633tIISp7p+xCMiISFUIISTQkWYVCkkSp hDKSrJQ9M+JrZvPz++fe1/M6557nec7541wphwvGzjRUVFTPto//31G1q82W kpfx84npB2POI9hEsfNdhGYSnjlG+SlVNYxLf1mERgY9wOUH8AX3wGHM/nGS Um2djnNrSt69ODCMvV3cx6uTcrBA2L8bnNlDmIrq9ZZj5Rvca7ojfSN5AN8f 5zswbPAW1xn+MSZbDWCF1osOTl3lWIl11FlUbAA75SjVOC2/x+cL6O9ezerH TtLWNQrCVbisxqcjKrgPf2n8Fa1o8hW3P9+a2pDrxmcDfn+xka3DX1Bg58qn Lsy0o4sunLYet589N3XTogsfC+oOaXvVgCXVf947GfkbN+7p8/Hj+45dJnL9 25Y78dnDPi+6JlrwEOsOCkmyA6ven2v4z7wVK72izm2va8dM//lM0H5uxcQU N6nRrx3nPvDdtfdhGz62QBd57kcbnpi9+OSKfgd+ts/h+HhyK/ZIv3RX/Pkv /FrDK1HX4gc+9G/p1QGh33hGepccI98PzGYQ0HIk/Df+FjJtWP2jGb9YCuD0 tO3CyZZfE2QNm/H0ics3K9l6cG/s2ZdJRU24Mmv1aUtADw4rfRSpoNaE41Yv 144O92AZhoZrdz9/w/tygmg53/diN3XJioSeRlwWUllZqNKPV09yReTtbMDp uZvf3nr0Y/O3XFQfKupxVBvq+ZzRj9dtjV66mNRjS5kPaz85BrAET8dZy8g6 vNL+QZXqzwBWoa25KU39FavLfSo2TBnCR63LpcsP1mDlto7kyroh/Cx3s/ff eDXeH/T38t71Ifz+ZUma3qNqLF0neJjJfhiH3t4rSmasxrzOnq0fZEZwuFWE pOqfKvw3VXRBvnIUd4m/Expv/4j/HD7QmTozih/OSf78nfIRD04cfcdC+YMb ybEl+dYf8S9Vn/DRyD/432Mnjfc1H3Bt21e+NKMx/NE/8qjH6nv8mM1fmX1k HDu4Hgg/W1COH7yKEQ4SnMCNrLInQvTLcbL1k40xvQn8rqG2ZmX8LY591lhT XTCB0cmHIhyyb3GANsX8SsAk3suXEyP9/g02vtLsP8k6hQ322uSKib/Gxymj 1lZoCvfepCu2byrBuvVr6IvXFO5GiKvmWglGQrsYM9unMO8dtNkx9grLlgSn WD+exlNHZycraooxjT9/t5PwDL4QmLBkXliErc/ktZQpzeB6LrP+W+5FuPgY rmMznMF2ObwOP3YXYQfJc6UlETPYsukub7dBIa76+i6BbmEGP1/8eoxk8wKL vDKKtOScxdJBU0eDhp5jn0ejwc9lZjElwa/r5fnnmOzD5W5qP4utfV6J343M x2GiTkeymmZxn7Uxr3dzLu6mX9FYHp/F2VQeoiMuuVhp5paCAf0cLkgRZd7c fIaHq99ILmjMYbJvgDi90jOs7cm6ejh3DkeW1opWFOVguk/FBUNh85hOuK3i 2X+Z2DZfJ/vg43ls2TFUl/YoE5fc7X4YUz6PBYKOifYaZGInN4abirPz2OeF VdCOwgxcw2vtGGa3gG9RnFd0Qp9gic1pq5+BCziTn9d+S+0J9h8LM5S9u4AX V6rbf82lY+n3L4jWhgUs9++uxKhrOo5woRaiqC1iH5+Whtr3abjXMJnjkuki fvKod8QXpWEVDVn6hguLOEmZ24Ly6REe5TSb88lZxJc9vd6ea0zFR98+a6zi /YdPRXTZV648wIxshtcdpv9hLVnbDcXcFGy5y/qjCvMSFn+Qy2Ctm4LztJy2 WHYsYZe7Be9oxpPxicCA4FdWSzjlrfjnavlknDyaHkhXs4RnrFP4PBqS8Bh1 flln3xJuEXaqZPRPwurir5eery7h3YdqPVekknCvSZ2f2f5lrBPRKFIffAdL f5r1znm4jOucKtzuaCfigO61osuly3hS9vQNo5XbuH6JfubEj2U8HHqCGRXe xp7yIp5LDCs4IvFeT7zEbVz6UMtN12cFnzljHXifJQEf8b/jMKG7ilf7dGnJ e2Jx8u1HTyodV7FHw6d6u5IYPPb8aX9iyCo+3GDb5qsZg2OHKuw0SlaxC0/D K2b7aNxmOGwdK7mGi2gLmyVfR2Fpj+n7Z9TXsIyuD7vViSgcELncqWS2hp34 dCwUxyOxWCWbRU/0Gg449tL5JSUSO8kqm8j/W8Pk6njOnfk3cOlRnEjDvY5V efSy3hjewEwOej86ZNdxuaq2XflSOH5+79TJq/br+Jy7/I0VvXC8QB+h39y4 jiscc5SrN0NxWH/HYZ/MDZxZqPt7Lesa7n2rfz7g3QbOF7m+873jNax+52Ny SPsGjnu8tnCJcg3PHMkbj2bcxE7NJfop+lexXX5wfKb7Jv60PpTM7R6My8Pn ynLDN/EVbaPnLktXML+d62Dho028m8Yp4NKNK7iRy0j53fdNnMNCOVOcE4TV /Xd0tSluYbhaWNqzHoiTT96n6zLYwofqLEhnkgPx7G4O+QHnLUz13GXS40Ag fta1dG0qZQvfy9ZK4/AIwAKaDdIM61s4eECouX3OH6/Qq70VdaCC9E2bkO+a F3GOz/y3NE8qCDu8Uuc564tN+14MSgVRATHRon8kwxcXlZHZdidRwZe/o89u MPpiF3e200q1VLDO6er2s88b83XW+r5poYLdz68mvLrnjau0r0ep91GBk+wD 2ixjbywu8e8lLFPB0Xv3I1/WeeG25j664zLUUOvOGkuKuoBDiQfCzSrUwLeq dgKzXMD780zlTQ5TA/2ftGDdOE8cE1ZnYWVLDXl0ITs2Hp7HWiqv8pzjqOGN 0G1HmW/uuOhhhGHIHDVYcvS6VV47ixt4I/5wUtFAVc1lEX6Bs3g05kbIE3Ya OKb5ann/C1csdiX8efVuGuAjX2Z+2O+Co2xDmVhP08ASh6uFj40zzmy7/jjV gwbYzuddl910wpUG11XkL9MAj2qDiU+GE144dM3J6C4NJIpwq8T/54jPiId8 TGmggbhM9usWDx1w0N1giz2/aCA9e++7Jj0HnMwePF0+uv1eM/R9xoo9btwI EuulpoX+7jHPY6fssWpvYMAOVVqIocIsW4pnMNdjv/0vs2ghQypBdEbJFssK +n3RKqaFxJ1Z6WFlNvho/EW7tg+0wOJ0lGYfssFXrvrGLv2mBdXab6Z5J63x 2GnvMYKbDqalOeqORFti2k6vq98l6GD/y9OfcsUtsYShl4D9XjqoZPjOPVRs gU3hgna4Dh1E+F2bKx00xx9J59Prg+ngXqsrG6+FGe6653HQNoYO/tsvqm64 bIr/cXk0Td2jA8PyCwa7H5rivdTu61wldMCvTMsXN2KC7w2ctbSYoAPatto/ AbHG+EKGE9ewOT1YLBmauYob4rjA+6lxjvTgVihujkpO4gLDpt1qXvTQd1Hr Zcu+k3h686Bm3E162OUkHKIjdwJ72LD6qL6jB97SrprLYIBjFWBz8Cs9mERl mO6u18fPmf2ib7XTg8Ydi8G3Zvp48k1vxuA0PXjl3ppw8zmG3fiKW2OlGCDP KTdB9ZMujp4cPX1QngF4RGSk1ax0cV6V6N8BdQYYXbcPHp7TweNeN+gOmjKA 50/hXyRZHXz2m6XyQAQDUA1QVQQVHMEuEVvJyn8Z4CDdCwGXNS0ccUqJ0r/M ADTpp9R352vhHKVzhdH0jPCbr/a9sq0WHhls+dInwQid6dyiElWa2AnnLN80 YgShY71iKamAwwW6wpXsGOFSAuc9aXPAWVOc3H1ujDDoajXyiwvw0MPAPUrh jJBT+llBkRdjh2UD695SRmB5i+KouQgc+v36aNRnRrBWPHLGMekQzsgp9VFs ZgSHHecWa0UO4QFTUkzUOCMcDRRZ9ZHTwGdezlcoiDGBdmO+Seg5NWzn9kA8 8joTNJ/Tf0ilooLXfjE3zd5ighBxWZPGTmV8Ty8wxPYBE+wRGtAUCFbGP3Zb 9h14xQQ6ApnzbPVKWPsP/5PuYSbwqGzZGLqoiPvNbxjpzDIB24V64S2yIg6u XaAu3mCCs3aBgu4tCrg0u9UhUoAZuDNf5pKUFfAep9s7FHSZIYn1s7ov8wFc 20rVnmrKDBSZwv4bn/Zjh8NeNxjtmeFrxWPTT5f341TyydHuQGa4tvcVHwzs wxwDbM8i85lhb+yVN+stcnjhVJRsDwcLSDdw7GAWksEJ35a6dERZ4HX2nWrF 3D1YjnCNLd7FAgVhhx/IHNqDXcSOTkUCCxTpNP4+7bob//pNW6jgwwJK/xIe UVqksf8x39OPQlhgTvEP3YSXNOYpH+RkimEBQzlWhyPc0tjg/ievnkwW+Mi6 af3EfCeutLiqENXOAmbnWUxhnoJtvkwPzg2wgFaGW+XWIwpeVrG7c2qaBTJ0 vG0oxyj4gACxoMDICpt2YXHXcsg4q231dY8qK3TJOditeErhm0b+aoqprIDO x9S8uyiBExtlPJ7nssKzS8UJVaPiOFWnL23nG1b4uosm/aSNOC4idOmEWlhh Uvp1cYu+GO7cI/J9nZENcr7nHj6uJ4IHs5qo/fnZwPI3tZttkzD+Kxmm9B+Z Dcoubk4/MhPGVAJ/7w8QbNAt3bSW4Ca0vZcqnWp92cAiRyVH/oUAVgj2ScHX 2UA6Yo77i5YAPrQsXV8WxwZivR1dOr/5seF0/L78XDZwO8Ad0M/Bjy/9tl+N 72OD1JXj9pG3eHFtMX2ClT471Plmz0z84sLNcuVVLZbs8LhU0do0mgv/fua5 qO/CDneaesPkDnHh6bSf1ug6OyTk3wyX0eXEAjG5Oylv2MGqJClAkIkdkxjs LFOr2cHimrFxZAgblrnOE8Pfwg7lXV9nLi6xYnQpaIZxih3mB49Hps6wYGfH 4xV/yRzghqx2TW0yYc9e6mnn/RyQoVZULxzFhAOsSkl9BAdEXD8pd4GXCcee lIz4YckBJ64XCp7fz4hLNGYNS+M4oNjtg8KLUHpMx3d39OoqB+zoPqF6/RoN 5pkO4eBh5AQLoTviXXI0WOrrWZUsXk4wtFK3SOumxujKoYivezmBqW3pgy6i xoHDQzu5T3OC+S3j1GhuKhxV+e14pjsn6KWd1xW8s4WS773xUw7gBMXvEy0J 9FuoxCCmxuo2J5Q99lT5OLuBpksUnDM+c4K9cknb3Mga2ogTu6XUzAkH774V TDy7htjOMbyu7eYEp4fPJiynVtEe8d90k4uckPD2kpnqxgoqroIWYT4uqFz2 V9JWXkZ/Zca8HY5ywaO8xP0HtxbQgmDPjXwDLhB5jkE3fQGt0bXcXzDmgtSD KrEbWguIpa/iU8RpLphc0YlWvTWPdt2J584P4ILk008v7FeaQ/LXwncuhHAB jYHLr4yBWaRyPlCNuMEF3qGP2sISZpG2jqP999tccLGGujxgbgY5rKm8nM/b rrchy8V+6z90bky25tBLLjDnVWSP3phGXu2kXzfecEHdhZPaEV7T6GohC7VQ NRfYDexn/XFqCqU69hoe6uGC4ezch9Gmk+hnw42ZcE5uqNrwK5nJ/YOS0KMj ZgLcYDyiJpGl9AcZvyx5sFOcG4pWqJhufxpFTclD2rUy3MBiQq07NTCCau01 7zMe5YZn10hBdzSGUXib5fRPA26YDtQKW+wYQlo6XoefmXCDh9hwoebFIVS5 9/GUrj03aHuTSBdLBlHp0rpm9BVu4O+9ImVwbABddONLsQ7jhnWTtl6mhX6k 0CP7VyaaG5qEwjXcH/ejgirr5IYUbvDc+WaC5l8fyrlVNsH2ihuMrjjGwM0e lEy5eCd+fBvTON9fUPmFTJNjxk7PcIMc8THZoqwT8TBnEvuXuEG6yCJuz6FO FDf9408zHQ9Eh1yqmjz2E0W83XeIh8QD3eZ8fgVh7Uh7r87tQWkeiAzVnTQQ bEc0j+1Gi+V4gPdSpAfNizYUEn4rwUSDBwpGfa2ie1uR/8nJ4SRzHjh65Xva pmULUqqiUXc+xQMq//zbtdd/oDklkXhlJx7I/uBqYv7kB/IU0VPr8OYBt3a2 0LKZZuQyknNL8BYPyMATMknnOzILclB58JkHLht5aAdm16PkR3wMS3U8YJWt +bVduh51fKhtN2nmAfP96PC1vDpkTifrx96zzT8XB3fLviLLW/Ovrv3jgfXf 8zZZ07XoXmF2WM86D5Sjo3qm12tR5w8LE3VaXkgTOMBMK1CLrATezc1z8oKD Imum6pEaZP04/IDrHl4w/50dwFH+GT34pEJdvY8Xhtk22CptPqOuobFmkgov mGp2lO3aqkK2u497/dbihaabdtXM+lXo1Ev+wuO2vJAs+N9JxX8f0ZnPOXuV 4nlhiLX/wLtd71H6iOV6wl1eaPn0ZSv04Ts0wMjaOPWQF6L8P1L6uN8hB4ML 7k+f8ULsi4OjuxgqkGP7wTyRKl5weqqiVs76FmUtjQde+soLBR8t+ccTy9Cw cKpeWxMvXM7576qJWBlysqMav9XFC3u3LjW8VH6DXP583UW9yAv9TT/6gq+/ RjnMQUun1nihhH7pqrfwa/RHVu5LOTUfmO6R7TZ+VYLOet12ucjBB3bh9rwV f1+hcytW2X928YHv+pLBfr9i5ME6SW6y5oNNhQ+fNfML0WRgOR2rPR9k0WSm SfIVIrexm6M6rnzgoixG/elqAXKt2Z33yZcPRr0be0RPv0AOV10OvI7lA6Gb zyq6D+WjgSll3rlEPviqPr5+tTwPnbGlX5S/zwfFQUXWkep5yE4tq+xZ9vZq b2u7n6yZi6zmB3BqJR8kZgB3vNtT1Gn/UupXNR8MWs6V71nNQebN12gFGvjg TMDJN+0xOcj0heSX+J980GaQmK3xOhsZup46ETbDBxma6BaSzEJHuzpt3cj8 oCSp3/FI9wmq0XuGnu7mhywDwftyi+lIu+wSaVieH0qTbmTrZqYjzbsCw6c0 +EGuTI+Nji4dHTpp6m5kup0vrm2R9uIRqnhPOR5nzQ9Uwg6t0+KPkPreefmG M/zwe38900RCKjrInDinfX4b3/m8szDkIVL4/D1QNYIfdn0RoJMOuI9eHnhs 4xfLD8t0XLFX1u+h/emeRHEiP4TLPnEmhd1DcsHs1Hsf80P6L7eDO1NS0O6D +lGSZfyQaqHMRfPrLpLMr01mmOAHHkvnm0kVicj0cdnb+hl+WCj/u3DBMhFF 38nrjlviB8dPRldPLN1GC0FxZEF6AThzZUTyr/ptVG9gXrCLJABK6oEFci/j EZWm7o9JaQFgoD8jMs0Uj5SV1RcK5QQg795akKhTHEoXl1BX1RAACfGMc5d2 3EL+0yM1uuYCYMhHrrZriEbPB3+OsZ0SgMOk4yqFh6LRQEcd6w9HAXB9Rqoc L7qJDD68MLLyFoDiB79uDTyJQuQEv55zsQIwpm7wRT8rAn07QL8YXSUApudD h9wkwxCN9JLgyToBaH4fYL5YFopURcbVeZsFgC91YPqBaSjKoPl27WGPAHi8 PqvLlngdBbQmsT1fFoDxPf6XnHZcQwVfIvZ5bQnA1/eKH44+vIqGKgKMlRgE gePy8EXL2RB0Isv23jteQZDp9/k29TQY7fDbseObvCD8nXXlmDkUhKzPCejc VhYEq/pKNZG8yyj+FJOb2SFBYMnb+99xkcto9cjfwh49QaBV6Nh5hzYQNQuU aEw7CcKevBLN6SV/FFR22ITzoSCM3us0yrHxRQq2zTOnnwgC+VqTacqKD5rY so0rerqtJ8DVwuu+D7LW8a8zKhGE0vgO3de93ki94xlO+iYIlup+0wkhXmgu ULlnuHWbX4X5fa2MF8oTr7qs/Hsb65VfJ15eQMLOXa87Rrf5T0zwyfp4ouV5 9r3CVEKg3xpfECfkgYpSHtSdYxCCAoHp9vM33dFZjV2u5WxCYPuZ21d4ww11 hkKGjbAQNBrwHH/89xx6w+0rlKYgBHmTF70XJlyR/75OOoqzEJD+JlvQWzsh +VanDF93IXhdoilYNeuIRv1ncbW3EBxPkKmPiXFEZpUsQc4hQsC5O+6FeI0D UjpOzD5NEQJD2dMXZU/ao78zdXHLj4RAu0LNF/07g7KSzPfqZQkBnbZvIM/j M4iv+4LrRJEQnGjLXXo9eRrNu2X07K0Xgiq3WWFmz1Moj2NfUHCzEExmKdx2 67BFDsUVQk0dQiAen9jZoGmLWlbaTC4MCQGr0Dk/YykbVBzFWP9yXQhMTQo6 +6itkFeOR6nKPmFIuv8x24IwQ73fRe9yqAhDQnP6N4VaU3R8pd539JAw5G3S sTw2MkUyBnsOJB8ThtoAIff5CyZoeHYkf9FZGLwi7xgL1RkhY9G70d88hOGv 13QUg7MR+qStfS7bVxi6huytJGiNUFpKhrTZdWFQMliiTT1iiCyI009KUoVB LThWUrbmOKp14bgWmykM/+2xe79H/DhSSnhv55QnDCKtDi8aAwwQ15CoGF+Z MLDtLrlWpK6P6qM6k31bhSGm6WBWz6guUi2O9NP/LQy9aWIh41a66GmXiill QBgOMAwu0TfroHD5u9yt08KgFU0tIF9zFKE2o1gFFhG4Es9uGvRDGz3foHJn 4RaBWgvrRT0bbSS6q0hvUFAE7txZi3n+5zBaDuRgTNwpAtx28ycXGQ+jYsmG 67MgAo0styJEnTURSe/ymTodEei4mr/GTqOJ4n324CcnRMCbUU1D9gkgj5rI dUNbEXAIu6h9vgGjne7al4ouiUC9maJ6NjuBkpLmzaJCROCYkbpGqeshRFOZ oXTmhgiYTndcdq/RQL1c1HOcd0SgyO1jsU+MOrpX+t7jQoEISMi4Hu/Cqoih 30Nf57UIyHQZe8+VHER+zGIyku9EABrcnYXkDiJj28t/mupEIE9e3fK4tApi oznoID+y7ff+/VMp6kro7SVak9FJERCjk3nl/1URuUx9P5w2t42f2EZ8t1RE HzvP7uSgEoXdqwETb64pIN/CB2NTIqKgyyvAsTa5H5F2uv7KlhIFl+f3cjRi 96PGB4r1p3aLwulgxpO35fcj6YjG/G/KovDsLPtk6pw8+m276fnCUBTu5XtG fdDfiyJb6k87W4iCrXVsoly+LFLSTTEUtxOFkKiNQ2IcsihOcb/CLXdReN55 alq+dw/SZHFY9IgQhRpTarvd2bvQ9FX50R23RGH/0ac8KRK70IPF1Y7uO6Jw 4OEzn6UH0mih/06ZwRNRODLL8tIgdSd69qYmaO87URBMkbC+94GCzOQSPYar RGHfzmrxgRMURJNpdyq1bpsv4xhrZj8Z2cYtIbafonDiYD6DLSsZcTrvofk7 Kwra1OXtyldI6N3vxbnMZVEI3+1J+SVOQmcNq4ZstrbjFLSHFCaJqjRsahrY xKBoxGS/gIQE8ue5FZW/SwxsN2wk6UNFESXKKtBRXgy+ZD5UExsWQc0bO91E lcXAbDXkSaGeCJIZr9SP0RKDA4KuRzYlhFHvhxkO91Ni4ETILyvPCKAY5fdb ZCcxuFxglrLLQwCp5t+c+e0mBgHah5/QT/KjxGRyy7EAMRC7Fyx2dJYPHTlv elfmjhiYM70Y2inBiy4mVlBduC8GPDRs8aJveFDWG7LHq8diMHGOb03RmAfR 0MxqHXouBlYD71+nx3Gjj8m3Zo7XiIHAVZHTWJIL/VexYJPYIAb/mmIUUQIn khiw+dLxQwyMva81p45woGBZmbTTvWLgGODE9vcBO1L/WKvvvSQGYcfMdH7K saJzI3JvXm9s60/t/+/2AxZ0j+UueZVWHJKmJszsWFjQkqnjSiiXOHSYL6v9 nWNCJeNbOUl7xCHqvJWp3CgDkudVoymzEYfwZqfQL7q06JRq+vl1e3Fwq+ZU rOijQbGnGH/BWXGIPFXnPhhAgyafthfWXRQH/5JY5UcvqdGzQz6num6JA2eh hs0tDart/9avr5JJ4lBw+8atupotgjESlJweiIPuvJiigtAW4fKDg3UqRxzM 2P3dBr9sEBSX/LLND+Lg6fkfT6HhGmEcw7PjcK04lPCPrAtXrBKhRYHxkY3i oH3+Ukn+7lWif1XHheuXOHxOH/tHxb5CpMUP85LnxOG3oc/5V8v/iG8l+ldd lsVheubpVOLlf8T6r+KJvE1xoI2SThDbWiRsdlz/pMgqAZ/EXb4uci4SQm/F LxzZIQHzMjV12ifniU3Hp6LcshKgsRjtL9Y9RwxzHPjafUACFk3UCu+5zxFF TtpSF7EEXOZMWtJMnCV0uNxbM6wloLig5/v1lf+IvRULVz3tJcBEoGP1qPp/ BI9LyF71sxIgS/V2xOfqNNFbcfvGDz8JUGm4435fYIrwdy07SHVbAuYmfAID /SYIWx6t4YYUCTgbXFr5tWOc0HrfkJCSJgFFRQc/f9IYJzh4+8bln0uAtt6G li3XGJFTSZ966osE7NY7XLc2MELEnovX3dMkAcqhrOp2diOED5/w4kKbBHBq nylo7BkmkNveE7GDElBreOdPxMgQ0c5vQlWxsV1/6KddisAgUf6x+3kEnSTk adfUBOcOEOnuLlbGrJJA8pJJ/4sGCI9PgcXjQpLQURRWutu7n6A7n+4kpCQJ J/L+VkkO9RATgjLcw+qSwBtP9dtKvodornr1vlBTEkqbs67WBXcTqUJfBHRO SoLqpzNyf3Z3EUrVU1/93CRBT3/5UfSLTkLkwiU/TW9JSNxazugS7CSoRKjJ 7AGS0Ho84VL+jZ9E4wW+oKwbkmDgU//Kz72DcBTVkGtNl4TyhrHVhFNthG5t 9a+0p5LQr3X73suBVkLe+0SEW4EkHG8c/V12tpVYrbXvo34nCayS5jIHr7YQ iT5Rt/f/lIQX3431ZRubidXG52VRPZKge1J608ujmXDY9aOvf0gSVJj4vJo5 mgnFbmH52zPbfrT4M21fNRETGWYjy3Qk0HqFK06zNxISzX+WdzCRILqkR1zw fANhvBHIZsRKAptDW/pmzfVEhUWaYi43CborLfcJPakjYtn+XLeSIMHnt6HL L859IT6qBd69IUWCv359iXFDtcSCC2vuyx0kSB7uz3A6U0vYftrXzCxLgha1 U5mFDjWEnH+ARPlBEuiee7/AHPWZcMhkURhVJ8FzlcHAbsHPRHJz6hEeRIKi G4rKMnlVxKbMJw83bRKYVIypUXV8Ipr6mCtEjEjA9qNRZafeR4KGPbXpqCkJ iu14Nio6PhAq6vKDPhYkMCj942Yu+YFISzJmbjhFArsef/3cd++JC3oPLYLc SFDJanzZemcFkeUv5/70PAkqjowWZUSVE52ZH0JavUjg9KObxfW/twRsDmXL XiJBh2WGvcCXMoLr1d6FrrBtfWf/02V4VEpo91cyMkWSIOcrvwpFpJQIYDcS VYomwWG8Q1H2wWui39VPKzZhm+/pNY6KjBLipVhlwqFHJMhQSE7b0VZMjOoZ Zp1NJ4FCW/nXAZdiQuTS4JukzG2/3NWqXOsvidAfDH1/c0nQ+L5NNFruJWEc cVLuUSkJjB+HmtFbFBI5VjN6b9+SoKk08P6hrAJiZe9tl/Z32/28olhpv/iC SG9tecz+mQQhjItLEpnPiSmSOU/IdxIcO4GbJGXyCFj4J/+gZXv+nQwWwUm5 RNKXFP3S9m3MxT0pTZNLqHv+Cp/uIsGP16+0+f88JaIqbJfsxkgQ2zdX4Nee TXTHbfAGTZIg7ZHKUx3LbGKfQ9r+lGkS+LvU3+zpySI6mPrPfV8gwR9V5jLB 2UyCYu7YjamlgLP1TaiMSgbhv4duxYZOCgzk4+VDvj0h6tez+AMYpWDHLyoj iusTwitz9EQRuxQw9q+4yz9JJypnzn0iiUjBoebfNd2n0gieapbeQ+JSELHW oDtc8IhwTslftSRJgSW9pG0T7SOCDU0p3paWgrpfMUnzZQ8JqxivHGpFKTAO KSsiTtwnnttxfxZXkYI+6/UC7nf3CCqF4j41te36eu9zpeXuETmd80I+WArY riT+rBdKIRZ2XooZ1JeCrKobyXx8dwndFcFnmyekgFhmE2Z4kEQ8bCyrFjGW Aqtgx5kichKh5bu6YWwpBRR164RFjTtE/Mdgr89OUrCXY/nSk9jbxOAdiVt9 rlLQVJwnUCV9m1Bx/ZC75iYFpReHFWU+JxDd7NRDit5ScPn60eJHNAmEjE24 WVawFLxjCqf4Kd8irLxLeeiuS0HImaEfqsGxRFTk2HfHcCmI699QuVQXQ4y8 MjhGiZECrfSypn+e0UQ6Gz/OuCcFEvLmTrsmI4kmss46daoUVBruUx00iSQ2 VAPf2j+WAsP/fHYf/xhBWDv3KErlSMEkXYzQr8wbBH9l9u70V1Jw3nvrg+ed MEK77efIVun2vLKauQwEwwifCebM0+VSYHszXFMhLZRoFvAUl/wkBW6BnjVN JdeJ6AsqPGlNUoCUx3QsaK8Rb2+c/b7xQwpOOVvf4tC4Sow9fBB7ql0KWBXH bDwuhhBHvm4yiHdLgUJAXHzO4hWCSurL2sPxbf0c6O6A/GVi38GVsrW/UvDp S+Pav8hAwu64rL/NjBSsuWYUSY8EEBWB8TMiS1LApT3x8UL+JcK/xWLkPh0Z Qlmn/tI5+xFZYzczVhjJYL7bpUq7+yLRullx2oqVDBVyTO5D5heJ/bKk30I8 ZHgQQK4fN/MlJsPGmlIkyZD48afRdIA3IfJAJHaJTIYI4btZC0zehG6RgZ6F NBnuj0s4fHjoReR0F30WkCMDE018b3niBeKMcmDZXXUyDKvtiR664UHE6+f7 LRJkSJd8VZDa5E5U2vcomGmSwXBy3L9f1J0QjdN8wae7Hb+rMpn8+RzRMcqc cceMDHJqhwu+absStaY3U99akkHIa/TmtzIXorSKKaXPhgzzRCcD+34XIjmN MVbWgQxNpx12be1yJszM6f0/e5Jh43yA42sNR0K7Otxr3JsMZfRhESVfHAgl BTp3Tr9tv3USgS7mDgQfB+0ZmyAysPSVv80MsifaaqiOzUeSgWQlk1Lx5TRR rXhNWziGDLPXw3rvMp4mSp5sIRxHhvocE+1JfTsiKXhTMSaJDAN2z86lDdgS Jsrr4pQnZDDIGR5wRdaEVmaQkF7WNl/Y4zDLx1aEAvcaz4WnZHBEP0Wo6awI nqkVxooXZEh7kt1I7rQgWrKWZo3LySC48o/nTK4ZUcVz6W/AezI8/2oTX73T jCi+9m807SMZ2rJj8lC2KZFou9g1UUuG7lZGQdkXJoQR33xNaOt2f0u3OLd6 jQgI9fn4rIMM30L5P+zyMSL2z8yWN/0iw1r2Gb4+RiOCq3GmUKSfDK0Muiff qxsSzWHT94v/ksEoivJGN/A48XH2fFLnf2QY4T3IZVljQBSdnorbnCODMFua Qxa/AZGg8Tfs2AoZ6FgZHsdXHSNOzo+fH6SnwCbffAe3vi6B7M+dZWKmgBuv tZRLqQ4h/33MQZ6NAicS/nITO3UIjvw/Fpd5KMB00jFZkv0o0eQwoskjSYHm 1AaHaFptYoDu6fJdMgVylB2/Pr98mFjIOVsoLE0BHo99b9wXtQjhyUkxKTkK pEbT+59e1CScfOeW9mlQYCb3xb4MMSAu8ZcUvEIUuPjHjN/QFhPRb/ycD2pR QEn1vq/SDUQUri23ID0KtJTmVk3+OUSshm29OG5BAa7JrHHWKTWCXfqT0w9r Coy+DyxvVFcjSF9DRc3sKOAw56yme0uVOMLGcNPWmQJ7i9cUZvFBIiGJzcnd lwIKKz1+NZ1KRKZKk8h//tvYhIuXS0+JKO2M/+FzmQIpnCvecu8ViS4xXnz5 OgWCMysPXy5SIKSzhUVuxlOAvd3zyOuP+wk1na5mtjsUWLGNEJ4w2E8YjKdG JiRTIF1rx3n3sn2EtxxpMeURBaq7WKmCGeWJd6+lm3PyKfDuRl12/5gM8d1i LEKmkAKNHo+mHORliMGVXKKgmAIu5dzagwF7CEYkl//6LQVeqfIzG4vtJoxr FSOqv1DA78jQhaD7Ownns4uHdBsowDDJpuhMu5MIYHkz39BEgSLqrjAz7x3E oxPq9q3tFEi+mHCyx5JCjHXAocEhCngeM+B6ayJFrAbQzDv/ocAeLa4w6i4S wS5anTs+QQHfni2Bm84kQuG0juDsLAViVm3q1hgliSPUzE0XFylQ+rTR9vo+ CcIysz58eXlbL62pY5etOOF2JFbjyjoFzpo17x6MFyOC/xyf29qigASXGN2F r6LE/wCgxQmo "]]}, Annotation[#, "Charting`Private`Tag$4165#3"]& ], {}}, {{}, {}, {}, {}, {}}}, {}, \ {}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFmHc411/Yx1GirO/+WhklsyiR9f18zlcplIRCRWZKdmSkKFklWSEjspJZ aJCKm0iUEVFmVhlJRETG47mu5/l1/jnX6zr3fe739X6fv464jauRHRsLC4sG KwvL/+5+I4d/ra5uBZb/W98u0X53L/1jfcKX+dKFfyym5rbsOvOPq8NiOPu/ /WNO+U8i0PiPYy9YHbqa/I/zWT2yWFT+MbudtqLAqS3/MflzrVNGtPh/bPQ6 yVamQQx+SgTH6Dxt4Lr0E3OKGhKF6pLtspn9v+ll3kkOj46IQBd1mDvOvE9c P8ZYbCVRGDizrhXxb1ovp53ySl9nQhDcn2i1JhvaKWbXXezwMBOA+PKcF3yW nSoWQbHU5hw61O4VtNTP3M1oQnMcPhl0iKut3jhpqclAf00Xxe7SATf+Mn49 TZ8h5i70xT2SDiYb9fcuBJ1lDFpm5NC86KA6tl+J2z+JYSS0PrnSlQ4fJfot VF9kM1532N2yP7fWX+wWsuj8mKEUU3eFaEuHoC/vh7CbwMg6LONebk6HlIQO x07CewZl483TtiZ0aGTTtOYo/cQIrpkw4TZY69fc1InmhhhzV/R1n+rSIdc5 9TXfqynGGY0iDYt9dOBlSnPC3F9GxxxRngOjw8zqeolJLQ5Mu8RDrGgPHSgN 8e6jumSszLmddGInHTpe/PCmdYti0jIq7GyydFgI3HnOXkkWSxhOmM/bSofS p9CHLipjG9MWx45upoOuYXRBcKgm5mtm3rNEo0NanTbR75oeNk6raLpPoMO4 FGeUPb8pdrJVtEp/Ex2K/UkLjEwb7N2tgMfz6+ggNy19dde8M8bQHbqftkyD rDLxYwdWvbGC9fsTdOdpIISPpHdLBGLCkB32a4oGF/ccd7riHIHdusTplzxO A3KswuYiWgK2ssfBVWuYBoTRrDqd1QzM5dc76x+9NJAegMunOwuxvsIdx+I/ 0eDkOfM9Wual2JFzkQfQBxpEejl6muypxkBiWnW0gQYfRkLDh3XfYzv7jeSi a2hgHSrp3TTYjqUlP9msXkEDT2enqs19/RjRlEYYKqVB8gmdK6HfxrBrJB+2 8GIa9CQGVEg3z2C/GjtnlfJpEFKVe/OUwgpmc0NjpDeLBpPyQzIjoxvwNq2U zpBUGvxxOpp62IiIa7GsvlNIoIFuqtLXfLog/uSFVcXnaBrYduLVVbe34hLe 1UUBN2lwXsv0e+++HXicokSmbDANJpJcJFUalPENk8Fxbf40eBh13thXhol7 5Y6EXvahgYD+01XVQW3822ld323uNHC07im1jzXETcXynZocaXADIyZW1Z3A 33ZzW3rb0WD0V9vSo482uOodF0MxSxpsU1n9dv6sI55j1LKv/jgNGH46rAq9 HrgAr+IedyMazJLbhT89uoyH1d+WFtKjwRLbBHd0RhC+GPRbsGY/DX6/qK1O i7mFOzBNeZwRDVJC2BOEhOPw7r9lq1Q1GpwNnzmTy56K65UK/qpQpEGrCauw kdZ9/KX75eGz22nwXiJNr3TdQ3y7fF8HQZIGYmp+ypYCT/GUMVT/XJQGB8za dg6Ev8J576e/sBGgQf5MqrhqSg3ub7XuIReZBhziZdHh2e/xombtiI/cNKiZ 1rHTfNqGD+LhLikbaNB1xeiw37punPKwRf8My5rek9JAch/ED2ymKigsUmGB MVy5zD+G+4Sf4PszQwWRQFeFabZpPO9vyk/4QYV85UnXuYU5vMdhsPnGCBXe Nap6KX1fwXm7JIuMBqiAt6ht5ytfj5i6jlFC3VQo5bA43PyIC7mXPXIb/kiF kaIB0RAnEsqSmjUobKICx9EgOz4XftQRr7rL6y0VctquSctsFUOcG/yIqJoK hUenj+Zi25C6Z9U0x0sqHOKyyuHolkNOw+ytLU+p4LpufVmBoiJKPXqwJPER Fbisr08mFamgluqIGJtcKgip7/vx7jmO2BTb3OUyqXDx1PHHe7r2IaV0+tHZ u1RQVLJLxiN10RmC+e5X8VSwtDrJnXPaACVcSSOHRFFhebkw6PzMMdQwOTyj H0aFRIFIA6fCk2jplMxHehAV+o4uC/NNWCH5Rucn/X5r54/8T2ba2iErRkls rjcV2mUr6dk/HVBM/twF9/NU6D/BuL381Q3VCGoYazhSgUdvcbVX1BPN3bii vN6OCqZuZ8rdj/gi6YXX1EYLKniIeztzHb2KTtpzzsUdp0Le9x16IB+Ewj/p dVgYUUFdkqvZvuc6qjwQ/UxKjwpOVS0e3dci0K+n7fFT+9f8C/gib/cgBkls E/R+jqigqj0d8fB5PDKJtTC9pkaF3/usiuziktH1dZkqh3ZTwSX7ucarwjRU 7j5Cp+ygwjUTroeX+bPQxIDcnx5JKnRK/FzIFs1BIoZun++LUeFqZKUh3lWA DOBJmYsgFc4qfiJ83FmMriksJKhQqDDvOc/dZ/8EPUnFLrLwUuG0yea60xJl 6BvPtRP1HGt5VsgmvPV4ifj93qjFsK7lmf5aW+8JoIMTmwTN/lJACT9hCGGv 0WWzI4tbf1Ogf51YCL3uDXrYcLtrYpICc/lmi3c8GlC/2ufyp6MUcEmu1/+S 1IRIucLJ/oMUOE2d6h7M/IC0+K0vafdQIODz37SUvR+RV+h9M0IHBXQE/qTy KXxCOXNjGp3NFDhTv272uksX6rKTF86opwClcXGv2IY+xN3uvuTwmgKiQYaC h5b7Ea5V2rP7FQVsNKNPCUkPIbfHf18uPaOAm7yxpnnwV5SxhZlSW0SBxybZ Ybdoo+hjdJBfRB4FGkPlZap7xtEG1vpTplkUKHTSXIj4/AOpuvHgYqlr+hJ+ LCwFTSGHL4YiY3coINSWK6Ks+gvd1Y9fKY6mAMtXwVo99lnEskO0cl8wBZQb 7uwqHZ1Hl2maFsH+a/pu18vNyiyi+VWb5TfeFPB6OLFtLGAJTbZmaxx0oIBs 04Tt5GMW5rmXb7tu2lKgQrd5/tkcK3P4/vjFRnMKvHmsNOvJWMfs9pEvMziy 5rdCqllLLTvTxMbANEaHAlVSCvEX13EwWw+5z7VpUoDhesX9oCon87BybBxV gwJaLVt5ea03Mt+KPFMyVaKAkRHTI9J3E1OL83Nbwo41vQe/i+YEcDErpxfc uyQpEPRe6Ku+BzdTvVuIJCxGgRvNSi+z9XiYz2qw4lMCFLAYiJTn4eJlKj60 NLhHWsu7VGxcqoCXWXgn4Gc/FwW8c6+LT+/gY0oHZEZsYafAzYsl5tURfMws h9odp1fIwHwgfe5UIx9T7NjI+/vzZHgx4iM5M8rHTMY2Oo1MkeFCee6i1AAf kyYlxyUzTgahQO/31Gd8zBjC4TyHITKMzBIvHLLnY/IuuugW9JChI7Qwu/4P L/PGUNToj3YyuOcUXFi252WubywJVWgmA0dfTlBZOQ/z6rOPkuffkiFyNPSA 1BQ38++9udqSKjLIUBzsa7m4mV43+O1my8kwO0IbMiBwMZ3NzTO9C8nwu7cz XaSfkzm633/v8+w1VosJelDMwTytkDaweI8MRYvnjt7y2cA8yTYs6h9Dhqwr n3M3z6xjdnxnr6y8SYbK0en0gQI2pmG7lAVrMBnmPlMURexZmTo5jneDvMlw I5S0zrtrGdVE39J440YGfopanYb3X4QuPericFjjuQCPYekFtEd/hv+mORm0 z8be6++YRSUq1LL3xmQwL2jgafj0C+0QVzHlPUKGmeSc5vq5KSQx6xsXrUkG FtF2+bcS31Fa712lNnUyXM0rkmIXHUVCdRVtFCUyGKyfep5v+hXFF/W7m+wg g6aVe8nxxkFESmIjJUiSQedNWB3Zvx/dCpQo7hQlwxO/zextTT2I0/mAgZDA mp8X1fg28nSiIBP7n+YkMmz9de/0zaJ2tIrCIlK5yEDapqXwtKQV+coU7Ohf TwbjZ3ryWdwtaI7U9F58hQQL2xyWyl3eofNLPx1t50kQEpLs221ahya+Ernu T5HArj23l7PuNbJv3p33bYwERmpnDlIfARoqM9aVHlqrD085/3HDS2SR4T16 rocEnrpbxHTcSlHXzcTQ/HYS/ExtKz4U9Bi11YoVWDWToLNYpHGbbRF6v/qg hVpPghJqfoSlQz6qVVP43VBNgtbn7QPZn7NRhcczgasvSbCt/55f4HwGKi3E cOVnJBjMY/1x3/IeKhqpsRl/RALCF929OZ2JKFdcL/ReLgl0rCw9eFTjUIZZ W/6xTBJ8oE8k8pyMRslxJ1s2ppBAKGQ+LG5/OIptHpitiF+7X6a3bWU6BN3a eE7gQhQJ1hUH7D5+6xoK2TeFyYSRgGXfJmeBIT90xc/bpi+QBFfnN8jl/PVG PqUrIbf9SKBiJZ6gtt0DnZ8OztfxJsHnmodBSzdckIMcT8uyGwlct1cPjqrb I1u72NkSBxIsjWZq/ZS0Reb3hATsT5MAizpx9Y6MBTLuzMA2W5AgWHjrRcdc U6RPlrVpNSWBT5/PIou/EdI+XBwSakiCujOBhlHv9BAzVDWfcYgEbylnNxcb H0BqVZXN01pr+iz3Gcnu1USKfw/MZuMkkFj99HxvjDqSU27iN1clQX4U89Yj KyUk4WqMERVJcPTPsXf4VgW0ObfH+o3cmh97t2nteiyFaEO2IZe2kUD1vQBb +B9xxLf5e95OURKUVQzqxUkKIU5T9+av/CSY9MxxfuVCQWzRCzNJJBKIk8zi NTJ50d+Gq/wG3GtM2/hHcHADml3PibFvWMvH+E3+xAZWNIlHWpevEkF9UWH0 FL6Aj/jQQlwXiDBLLDSyyPqF95ek5EnMEMEzpkSC7vId75yQaO6cIIJPT1DY Y8FhvFWyYCbiGxH6xg+Jjpn14u+sdvNr9RNBf8VEbZdZO16TVM5Y6CRCv2zd XO9ME/7qo6b1wzYiZOUoZsUef4M/460Ptm0kQnvGpMqa7fgjHYM8/joi7GPl ef2XoxTPufapqRGI0GISI5LqVoSnv7SYuVZOhOMX2CLzrR/gSXNf6apPiPAu 0L/RLyoNv73TmfGjkAg28w1ZadZ38HCHWauMB0Rodd1fG+EWhQdnXQo2TSeC aynftW6OUNy/jy2PO5kIxqxWykzSVdybP6ypKpYIi/Ncl62Oe+FuRsQZrwgi pGvK7g+dccHPhSfQt18nQsxpd7fvJ+1wmzeijIEAIjSvBl66ZHYKN2N5YBV/ iQgTditkS8Fj+DF1+eBDnkTQ1LAVuON8CD984WkuiysRpM29Elcy9+IHHjKa ntoTQSAv82oLpoaj0de/HGyIkHhV6Xjwhl246pZDdDHztXk+3k7BA5L4LvNW jXZjIhjuLyHYZYjgsvEnrMKOEEFuYKxVwoWCb23pD0K6RDB4N/T51TYuXHiT fe7sXiJMyZqu+z3PiltUvA/fwiBCuQBvynj/HJbuvsvNQJkI0Sy8O4xZfmDD kvFH/eWJcHc3k7dObxCT7F7cUyBFhNsf/Nq4Vjow+0hLwS4xIrCziH5Nqn6P 5e2rWeYQXHsv1npWZ0arsIl56QFlMhFS1a9F1e5+hikU3Kqx5SbCN2e+9riz +Zi71a8H0exrfiwIsER3pGFPKKY3K1cI4DfW3ZucGIvNvX3h8mOeACblizqI fgNT9RMzEpomwOzmipk+J3/Md1ewsu74Wr1tJFvgKXfs1dcxfu8hAgRHnV8p JZ3BWJL0l7J6CMAnd/ndlXMnsb36j7+0thNgy4e7wi1eR7AgNv7XLM0EOKmx +15gzl6s7tnlbPm3BGgwPLl1gGMPtslx4IZ5FQE0Q1K6PnyVwfREDziHlROg 7iLf/fVHRLCItjyDssdr9bfzubbnELEPoXxK3woI8EluvMLw0nqMwrhAp2QT 4PL2P44aD+YZJlOfFzXvEcDXepg4tus7IyEL63NNIECfxmnjcbEvjO7jGVUp 0QSw5B4yTXz5gSHCw3H/XRgBLlg4unmK1jCsqhyvLwQS4KHaQZ208meMDM8W Ryk/Aix1qtwTjMxlDMsoHzH2IsBPjdPDe1LuMiT7EhUDXQkg3P5zJWA4knEu ZoVabE8AupL2dEdxAKPggO1Cn/Vaf+xlKxTuwZhcrOvhNiOAU11Be+8VO4a7 bXSm/WEC6Pi2MB/n6jIuK0nsElMkAKesd1+SMZEhUng7QWSeD9L/Tkbh0Yka jsqy7N3CfMAtpWNcUn5H3Z39+QMvPj4wdUGCL3lC1X3btQ+S2PigadOJZI3D XuphnnaRuiO8cNuT3leddEw972maQFkxL+xOGRrUfUpQH1Omy8cd4IWXY4u+ pl8D1M7uWW96xI0HSFvqAwSJRqq2Kn05r19zQWy1jn8hNVtZ1kd91SWLE8xS 6njb9FIV0nuP1lzUZIctb0d0LiUFSY0EUBna/GxgqZC+PUU/QKQ8Tnr/qMly pXGIsl17hwR551jnrELKXCXHiYSB4DqbDVrl3RuXTaYq//9/yy330R8ieeg/ NjmzNb31cv1/fP3NYstxUd//+H8AEj8cvA== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+Sp7Biiw0j24KWD6YzifqUz0TorkBzif nSegMendNzi/+cE156LFf+H8DbPbAuo+MTrA+PmLUgSehLHC+XFZs2TbGzng /M7AMkvjOdxwPovI1Gf1v/jg/OunWz+08AvC+aHVSWazDgvB+Tncr5XORYnA +fKrj01jeyUK51fvcA7mny0O5xcsy9lmpi8J5/MwmSfpPZWC811zQ6ZqTZaB 8yV2yua7qsjB+ZOKOiYaXJeH84Pa/HXnblOA87WiW0KX1CrC+deecS6aHKoE 559LeuooJK8M5z9kWf5jqhKC/2VZxnpJNQRf8vVrGUVdBD+l+NN3fWsE/1fz /7W+4Qi+2lJJqc5+BN/S/fYFnskIvs/LOe0TpiH4hboKX6fPRfD3bFW7sGw1 gh90zLjtyHEEPzXjq43HaQS/gmv759PnEPy5flaJl68i+C+uOdg8eozk3gqm z6nPEXxe6SMrX75C8I3i3cU/fkTwXRk5z5V8RfAjFp9q+fEDwc9y7bGu+YPg 1z73/fT/P4IPACGMn7U= "]]}, Annotation[#, "Charting`Private`Tag$4228#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c8lu8Xtvee7+v12iFKkhHe57mpEBUiI5RNIUmlsiMNISoSDStbySZy RDTsFTKT7Zu9o5/fP/fzOZ9z3ee6rnOeP+4j7nDZxJmGiorqz+7x/2/AxKnF f/8kQZ2IF3KpayiP+wms/PwrCQXr03aBs9rKhlxDa6UbkiD3/rTqscDjymLq XtuXlyThS9Ms3eAPc+VP4Y+ZhscloW9A51JCw1VlJoUfItAkCfc+Th4UFs9T fnrN7kRwoiQc2acmt+JAVsmhvppGpSYJ+tRq80suqyr0znpKxHMS0FB9/U/K Qr4ab89nj5QYcZjhpHFhD5ZWN6lNcNz7TQx6p1baLtV5a/jNYR7Ro6LQ5HhA wZyxUPOFvdqk1oAokM9Sbb7YLtGs7FB0WugWhc7bgbx2dR80d0olbUy+iUK/ Saqjv0adZkgw80m+96IQca2rJN22SzOcu0s+PlAUav4pMtp4rmkmHPKYeU0U hSvfW8617NegfHjj7GrMKwqJC5+1XRGi9AvajlKxi0K23Mv5U2lHKCJ/T/+0 pxIFWWlvZZMQA0pKndp3yQkRkNMMw469taJkmdHmZBSJAIRqjNKH+1K+NfyV tnwrAjZz09ct/IMo0+qrKUyZIqAelkF1LyeEsk9kKuFiogj87BRvCdAIp+SP N4fLh4iAr+z6jfza55Q2yy8M/X4i4Gzn6nDq1ivK4reakIjrIvAgoU7zN20K Rfldke9/F0QgPyBmq1Imi2Im/nb1pYMIUFQ3HY8X51F8nmR4G9qIAH/HyOMD D95Tym4kuL0zEoGIcil1h4tlFAmnK296jotAN9cwMeJAFSXS+Pgw9ZHdmEO+ 9rxXDWWdIkqS1xQB4ofRjXeddRSHvatmZ5RFoOb4HyH2oS+URv6m6ID9IhDV PXcw820TRZUm7Xu6tAg8lvdm1yhqoyT98WVoFRUBngKDq4LCXRTWn6e1Nwgi cJgsWNEk20vxaZD1l+ARgQmRYbWN9QHKcOG/khOsInDR6yCPc88IxSCpe+Ea nQjk4u6dt7ExSlFE3r5X22QQy5yu59WZoojcuuPasEqG0eABvhm2P5QHztYp 83NkEOEnDgr1L1CWTysNEKfI8ExRZ/7w4RXKeZyZcPQXGdRuKm0eO7RB+SI3 bOLxkwz/8bD/5prepigJlkbGdpKhbZZOQa+aGntBG/XlYxMZvFROp55lo8cY 551oJ+vJcLh0MeLTEhPm3a+JcwMZWPYTWmRj2LH+Lzy3NMrJoDS0KX0vhBvT LZ4qdCwgg0LLpab2Cj4sPxn+ROSQoUz95+exewRMKOrZ3pI0MoR4bxrz05Gx MF9Pp6GXZCjWaP4sKSOOzbvovGZ6RgadIcMhGx0pzMpUuO9gNBkWRiW+LC3I YHVoic/6ARkOYT7KjTr7MIV934zuhOzyffxxkuGdIhZPSA7P8yODo4iWi9vb Qxgt/c3P3dfIwHHwA8asooZ5LhhSUXmSYTrlthTFShPrGdijudeVDPbretoZ wlrYkW9/r5vY7dZTJFnybBzBcks68v3OkkFRQOfnzhldTCA1eybNhAy13xwJ croG2O1Ht6WbT5DhVS7js4UxQ2zWz9J+7RgZ5m4r7VuRNcHMLxx4IYaTIcWx nOu4uRkGZxh+6KuRgTWb/hgT51lMTnuA+6oiGYz6rtMnup3Dnu4vOvli726/ 7kgziRyxx/4RH977LLHrP8roVhPmhLkxOHz6QyKD6XjWrS8Vrljn4uFtQX4y 7H+8kXSr2R3DhzgPa3PszmNl6tLIcS8s8/u4txsjGTTdPOrquK5iPGVVeU+o yHDU3YA718gHC0h7Olm5IQxYm4sFG9EXm4x2lxxfFIYnhxvarocGYiYBR85z zgoD27HMwXu7f2TlReLzw2PCoP5v6Apv5x1M2ny+w35QGBJpDnZNnr6PRR9p 4Hj4QxgUxIadzR0isC2FV/pFrcJw5EMY/6WoaMyFdP3OwFdhWFfJOWJk+ARr ZTxZzVArDMutUYV3guMwjWWJzQOVu3ilfDtFtQQsbXhD+WyxMPBNBscfvfcK 42hqvRzyVhhq6fiI1+uSsVvlGdk5GcKgpzFqQJubhv1+EzjWmbSrT+LZrC1L Jmb42Exs57kwuA+4Ip7FHMxXiVNf74kwRErzW40o5mPp7V+uREcIw63xiLEm KMDavUMSesOE4br5H4pkSTG2w0OplQgShr0lJ6f2iZVjcoUrM+43hSH4/cuE 61xVmLnpO77iK8KgTcuSGtEEWMjSBWzHTRgstRJPx7jXYnlPJFz0nHb90ZfX +16ux3oO9UdFnxOGY4UEaqfJrxhdZ2xpr7kwdHTQd8dONGGK14yGJYyFIZ23 PtxNqw2z4WNm9tDf5fO/nHZurAO7X/TpYPERYbgpa1IaOdeNFZ3xt9rRFIZf Bq0SFZf6sOFllVA9FWHA76LlMq9BjC12LidaQRh02C7vHw4bwQ6rZHX2ygiD lKbnnI3cb8ypy2FbQlwYbhCGThkrTWDR14WlPYSE4bHf0OJKzjRWyd9tWMwr DPnnNldDM/5gk8WPbuywCYNM4d3w0sQFjM9cP0mPQRiKT64NWh9exrRWab5G /yNBn4ni0ySVNcw9rnKhd50Er58xNBOTN7E4VR8hyUUS0DRLv1UJ38E+dR84 6jFDgkRhfy/sNjX+x2fKvfg3CaqfxEVPcNDhQoKpT3cGSJCKlZk5bjDguqU2 VXo/SHDjiGt/4CkW3NtCYDy6lQTBPt6JH4kc+Ku1Fo6+ryT4xaDBcEKNG//2 7IGaZC0JXtGJvzd9x4uvqh2186gkgXyH/+OwIAFcoufv/eJiEsTnLp5uLSTi hjdL3u+8JUFyl5VU0Vky7kvw6tPLJEGdlRumAWJ4etle2phkEuArLp6ZwpJ4 u+WofF8CCfRvXjP59X0PvrP+4ozk0138+n3ViR5ZfO9z8wCPSBIw0xkwiBnv w8+oc6UX3yWB6MwqU72oIh7c+7V5J4gE/0WhJ7eslfDcW6FrerdI0Ggb95Xj tzLeQ8TEYrxJQLLyc3xQq4bTVawe73MnAZuIYsoBek1c0Sr/iqQzCUxOBZ1/ X4zjNpsXEzzOkyDosWZL1hVt/H6CZG2xBQnq32U852o5ihdpDMzsGJNA0zvC h8tfFx/ui+M7bkCC/nYdqq8h+jibnzEWc5QEmfuK3zz7cxI/TGJx6aOQQNLg YqSIizHu9KE2SlJ1dz61B4NpY03waOuAUo8DJNgZESb9YzXDK7dUh4tlSSBO EyDP3mmBTybOM/0TJ8GX8qhr2JoVzkfJPnicRILufLvLHcHnca1+R6sYvt15 HNCqLcLtcQ9/cmgfOwkszjDyRwQ44vHCP3IkGUnQqrsY3UrngtdVRnd6UJFg 2TGl3mjgAj5vY7BdvCEEnsbSYYNcHrjwNq30v0UhUJ4K1PHJvozrvawyPD4r BJ8UEvrkfl7B5yP7/9KNC0Gc0u2Z5rWreELgVnbNkBAUWEj81TLxwY9eFjob 2CsEBllvYowWbuKztuqMmh1CIG9nYHq73w+PM7YsXmsUgooxlpcywkE40r7h WFQvBHquPh7lNrfxyYNx3FdACMKtpxyP2YbijyWKq/dXCEHWKP1Vw8QwnMLb eWm6UAiCt2oi6QXv42O0S6SMPCEglBdc1+gNx6OWub85ZgiB17PneV5Tkfjh McWbYslCcG3Kd2ktIxr/1WUkPZAgBHmuMmEz4Y/xh/Wenc+fCoGHVW1gfMpT XLk0MsQ8Sgi2OWQywpbj8MGMXEXe+0Lg3TF+reHuc/x+/PfBlttC8KJs7C67 3Qv84IPpiAg/IejdF3j6/b3XeN8tZk3960JgG7zCNhqSjN9xk52ivywEhc31 +2OvpOIK1nrPPl0QAs0fdlZNT9/gP0646AQ5CEHfw8fY6EIGHkwJW9K0EYJU s+9shVHZuNz+tOR1MyGIPWH5NutKHt5JrjUqNhKCoKoTK5PG+XgAx6/tK/pC MG2Zcv4KbwEu/Y8qV+GoEAyFffLMoCvCW+dErWYou/H2jW9ye0tw32GcKVNV CO7Y1wax3C3DJdvOlTgpCoF+ofxks9gHvLHG30lcTgiaytVs7vyrwn0KEnkG JYWAPnbB0fEp4GKpFZBAFgLx1VuEidOf8K9Pej0tBIVg8PNzMZxSh3vfWRfm 4xaCxyeHrxZb1OPC1wW/t7IIQdTOCs9O5he83ln1ViSdEAjVF0apqHzHL5ub yRjsEEFb8obmHHUzTtC71sWwToQ/dLc5Xoe34p/UnoTWLhDhwte/34c02nEP 2YKDwTNEyMa8/Uz5O3F+YtsQZYwITnvfT/4md+MfmecjNwaJcEo9saDbsge/ sMlBKekhgsCpHze/fevDeWb2T3u3E+GmtveTLzcH8A8/T8YfaCTCXa4fClLK w7hTo7vu7GcifKsejXrRMoJzVIUvZ1YToT6N5hv941G8LC8rxbmcCKbf/5IH A8dw+1dfjCUKiXCAs3zP3PMJnOXRxM5gLhFavROqTCem8KIghrzEdCKcq5Uy DXSfxc977bG2TCJC0eMX6Uh+Dme0P8bMn0CE7owfNBP8C3j+acfStidE4PPT CXUpX8StjoQ4R0USYb987Jhc6DJOdyiZ98Q9IoS/CZgO8lnF8yShhvE2ERbT Cg+vxK3j5nxDl+t8ieCDCzg5Tm7iVPQ75NvXiMC76Gmw4LmNZ68IN2KeRLj1 n8lYhCAVMh3X9N10JYJkJPzXE0eN0htudV+1JoKwZr1s6TYdeq7kczTrDBHG 1hrCMgQYUcRL7/zBU0SgfBWKdnBgRkFMl8l8ekRQK7c/5TbGiryvuofraxHB HLdNeZ3GgZwHXdcC1YlQysJblNbOhSz1nZyKlIjwWYj5b6QPDzIosmubkieC yvcrCWLafAgTPYeL7iFCumP9w3wVAaQYfjbnjAgRnt1Gjl0WBCSxYkYIFyRC 5I666OUcIcRvZxJWzUUElpAV/RxlMmL6bri4zEyETFd7N5Z1UbSlcsJWjpYI IiUOv5UCxNGfJL1G278EgFexn33FJFGnj1b6tz8EmApu2vetRxo1jFB4qSYJ EDp/i5t/WRZVnFQPVhkhABObqxkTLo/ySlX+c+sjQMrO0Xj7iv0oSULJKqmD AFvXcqUeqyqiJ5EKDV2NBHjAr89tlHcQ3V2XU2atJ0CFEnm++Ogh5N4syeFT RoDaCuV7j3pV0Xl1Mb+c9wS4oLXj6zd4GBmnCU8OZxPgrey968wcmugoJ9FM II0An+0/KVx3x5CqL/+nEy8JYNX4EZQ2Edo7xn3gdhwB9HM3NtfPayNhY44X JY8I4GwpMWQ8cATRSDP6iIcQ4OK1L/LzarpoJZp21NyPAPxYFFMX4Tia3Ppn FHGNAP5EYdIVUQP00+VvZc0lAnxiCXL3MTyJmtvW9665EMBhyjHlU6YhqqGs xO2zIwBN3Kmc/HhjVJSxQOtwlgBzym6HG1ZOo+cB0wONJwiQxniS9gi1GYqY HDeg0SFAJJfqGZdCcxRoOlqqhu/6dWjP7wyzRFc+DkldUiNA40N+o1JfK+S0 tz8mRXG3P+9+plk+tUEWT3t2fuwlwCaBc1Kq6zwy+Nfpzi5JAOaAlsau13ZI satJ5yY/ARgtpWS8DB2RpNa3gjwOAnhyfBYt+eaEBHLqRUcZCfCy7vxsmb0L YhaojSBQ7+otYW2R4r+A/gZXb5zaFASmC6nlleMX0dzMB5fQJUEoSzmrbN3j jn6Zl3WUzQrCRBvn8aWZS6hh3/s8ySFBGI8S1XyrdQVVPMsTOtsjCCJsAXrf Q71RLk32vag2QWjwL+Qx6r+KXl9KX679JghaGoev3jhxHT3uSbHfqBUEiTyS VUy7Dwo7+rpZoUoQzjKvGG5430Q33yZqOpUIwppl6gxJwRedv/OUvyVTEJyb p2viNgNQM1plvJkiCOhixLuy6SCEtiw2xV4IwqujahPft4KRmDdpyPuRIBy9 ZP84WzUURe8PaCM9EIT+hQdPX3rcQdRTg7V1IYLQHOdjsFYYhn7ZpmQK+AiC 4MhLGXXf+8iERJdYfVkQqL47L41sPkC13c6RFy4KQhIrtuMd/RClndrrXWEj CPZq/wJldqIQH/NDJ0dzQbim+VBd2iMahdXNmrMZ79brM7v41jkGuWjma54/ Kgjkg9yNRsFPUPcqtwIjJgg8adYZD1OeIr2Cq2L5qrv5I0VPQzpikexeNXoa OUHgiisPE3CKR/G/49eyJQXhtpxs63rdc8SctDllShaEc/PZxWJqiWha4GPz Gy5B4E221tk6/QpZtYvWGLIIgpcb533+v6/R98jbhWu0gnDpKIYkBpJQLp1O vP6aAIj8efTmT0UK2t0UwhfnBSCRXx5cK1JRpB9TQOK0AJikRfpd/ZyGPBe/ 2/83IAAsMRwCw//S0WDe/jNxPwRA+HUKHZ9iJjK6+EgXtQlA3vNDkcGXspDi sIl8TJ0APOPXtvvAnYuSEovIGh8F4ONWH+XirTzEbSHANVoqAK8D61I45t+i xabeZeUcATj/qMqcgeE9cnigOTGQJgD+CfdZZXrfo45jL3vvvhIA1Ckmk1tU gIo+2H3siRGAicU36q1hRcgna+Ke/00B+Hn54S2qZ2Vo3Enfd4+3ANg0CR76 VFiOLMRyPJrdBYCaLvD9p74KdPiZ52kxWwHQ/hbGefF4Fco0aT361VIAqi2z d24/+oiIHEqq3iYCwHp2OrZ6pBpt3lkRqtMRgO3DCeNHztQgNy0L9ktIANrO 9YtXcXxCP7fK/vGrC0B7s5SLSssnVOnt/9t1nwBkL3nfueNQhwLtaN+y8grA fwNdFfu6GlB+i15UJ5sAlGprWl+p+oJ+4RGeLxkEoGRfVrZ47lekS+Y/cGCT H4K52l3pXn5HHH3S+SYj/MDkfkVAu7kFaem7R5N+8sMAg9d47vVW5F32zut3 Jz+MDLyuT2RsQ91xhw/6fOGHppYzGpkq7eiVqUHB83f84JNmanarohO1fop6 7JDFD77F/jJkpy5Eo9ThLZ/KDy0Ml90J3N3IhcvmUFUcP5zuZs/buvYDKTRd KhoO4AfaitdWwY59qFo3pkTmJD9E2783mnAdRovFXXHzOvwwu9HKWNA5jKT2 CN0oR/ywdqHtXN6REXSfNlXtxCF+eJ2yc4pK4hcyhqIyTyF+EC8pc/abHUXD 6j0VxZN8EJW/Nd+ZPIF4soQTA3/xQXBh2QKX0CQ6RrD30+vng8r8PydtH0+i zNUpzd4WPjgo53G5J2QKeRVuVf4t2b3P88Qgx24GUe0XrT4axgd5C5OKOpt/ kL+A9vmwQD6oo1XcSb4yh9b+OWzX3+CDLRndD2hiDv1pT9c0cOODMn5B93Mu 8+jnTYUyYyM+iH7N/PYxvoDMHYwtHh/nA+x90vOgKwuo/YT3aoc2H3zounab PXUBfREpUbZQ5oOKw1s1rdSL6BhTT0f8fj44c9tKbkphEVUvbHj3SfPB+aqd ygtWi6ikDnt/jsgHIYafSl1zF5HSW1vj1zx88ATXc2pqX0R5z27PDbPygaTz yTaXtUUkezs1SoKeD4KUli1khZZQmtvn/U47vEC+TOxl0FxCYmcmGt+s8YKg D6V27ewSSsSYPSbmeSFaYB9hwWcJPeY6le02ygsTtXtZerKXEMemp35uPy8E mmAVRTVL6MFo9OR/XbxQ/9mK7mb3EqJrKrh3oIUXTLKO85OmllBwSaf0lS+8 0DES9+XZxhLaer36uaCGF/5DOzmTjMvI5wHBebmCF2Tp7WiY+ZbRorcGnWoR L5SwOtYvk5fRJRub1Bt5vKAXkZubuWcZTeoEHilP54WFrwV7JOSXkdOBpJHN 17wwriFra6uwjIYIn4Ipz3fr8e0csz2wjKxofosGPuaF1Mvbt8V3890z9NXV D3nhS+xqULrcMjrdJXOeOowXBnXuus5JLaPGj/rbRwJ5IV/uiuiO8DI6nun+ 4s4NXrDcij3RxbOM6mIiNeu9eOEx8caJmwzLCPm962N044XtFpvDM2tLqMKp 7Za+Iy9IpHCPKk0sIVXDJcJDG15456nRdqZzCRWo8Zc1mvFCvNdJDYvqJbRf XM2Cw4gXXvlI0mlnLiGpZd/YGG1e+FoakTJ1dQklDbxQ7tDY7Uc54V65+RIi NXzs4FPmhZT/CKOP1ZYQTwINT7w0L8QQHjaFLy2iyFCp972ivPBUmSxf3byI mC7pGpOIu/qpqh/LZi6ifyg86hUrL/xbT27/braIfPfm7h+m44X9j8KDROUW 0SpPc6P4Dg8szZq3//y7gGbHuFnfzPPAtkFvWv3LBdT38Pm9nC4eEDvtVknd Mo86Povl2rXwwEA6RXt310aN/zJa+b/yQCQVLVen6zz6eLWEGFzJA0EJ5RND G3Moxboj50wqD/TlptRaav5BbvLsrdtePKCYUX6v/sE0cnR+ulzgxgMLr4lW WVzTyOY1iXjBiQf+Bfy+rflsChnyyjm0W/DAtT07Z1pTJ5HSlu5yOs4DTNxq BPOqcbT1LZhgzMYDnlICStt0o2iZjgmjZ+ABo4HcfQ4xv9Af/JF9xT9umGJM MP8s8gsNF7zMllrihiWl8Jg6ygiqS6igbPRyw6XDhaMXOIZQVae2/dsOblgu 4JvV0BhEJRxfwxybuKFRJjRr8MIAygz50dwE3LDAF3t9pvkninBbtkvJ4Abm /l+1O9U9KCzNL8wimRtwrjtfT9L1oMBBmmy2RG64wHMlcerED+Rlwr3kE7XL p86PqYx1oTMaCmEnrnODJBfboR9aHejUteIsqsvcMKYccNM1qR3pvqU0F1/Y jd11vnvTtqPDEicExWy4QffCjaStjlYkzHIha/kIN2yz5umcwprQ+Y+NERKU 3bwCdUAHuRElex/0MlbhBvqGB5ImDN+R9M9N1VwZbpj9XN+6+OcLuvDIVqhP jBtKEvaw/fenAWUfrdtmFOKG6OGnltGr9ehAbmSdIxs3PKGaz7ss/Bl52y1m xNBzw/10k2ofjTpUxGfxsHqHCy5p39lbZVuLDgeImZAWuMD4VePKo+oadMSw cKi9iwvSOw33xidXoTs0hFqqFi6oOuV/I8egEjWU+KcrfOECBXE4pED1AZ0U 1b0UXsEF2l/uPLR/VIaiOrKNywq5wPRDnmbwhVLUdo9TeTyXC5w3GzqmT5Yg 8/meTe3XXEAIyynwUy1C8WnY4OV4LphYOvWBXbMQ/bRMqXkZwwXWLXuu1uoX ILsa9/sboVxAmtnCrt7JRynXW91lArjgWFb0QrHtO/R7r4qRmQ8XLBzyaAv9 kocuPt7hf3+BC3ruxRQPNmWjXF3HjUF7Llh7jJJOX8xCfzYb+tmsuaDhyHe+ R3yZyNsxJvXCKS44+mxH2iD+DSoSXL0bp8sFG42yV6oup6G171ZudWhX77m1 nvEzqchfWeqgmBIXqIxU37LXTUYfJ+/zGcrv+l+I6vxwOglRv/xvzU+KC8IN c9yr2l6hu/SlH38IcMGe4Ivd1lcS0ZdyUgo9Fxe4z7qfXRx+jlg8g8MOMXNB QSN1Xezue1Ak70m8yBonZIDObFVaLErlP2frO8UJUfRTV9/aPkWygdLS3T85 gdmDLSBU/gk6aFReGAmcMKp/P2BxMRqVlIb4ThVwwoM2hX2n+h4hDbGT2jpv OCHtxmT1+HQkOrYw2Pz3ASfcuKxb/MQ6HH09mxlr6c8JsexCtSrl95Hhpys2 RZ6ckGz4QFta4R6yfEI37W7KCbK1XlL3zt5BA1tN+Q06nKCn08XQzx6KHJye 3ZA8zAluPboLel23kbuKHP1PYU6IVnqSoH4oCHnTl2f4cHJCysEHb4uVApBv l54BDw0nvBz9KCNo7IdC3nTP5i1zgB9ZgdD94BYKv+78SH+CA4xuBi34Dt5A j3WWD471csA4ezXvq5M+KIE/tDO4kQMGyPTWE+3XUHZxErHsPQeIcuSFdEt4 o4KwA5WmaRygxfnGl3/aC1WYfTw/F8cBVpK6YPHgMvq05xT1wwccQLtu7cPl eAl9W/mZKu3PAbreopUnbN1R+2c33U+eHMDkUDZJ8L+I+mI3Js/Zc8DUGXPp 16WuaEpFUCFWlwNsTIlXx0Kd0Dx9equiOgccN1844sjtiNa7lK82ynOABkr9 y1tqj6jSa/kviHDAIY6H2IOrdojJx6SMlnvXzyD3dnP4ecSlO2L1mpYDLLUi Xnwzt0EEAa9tjVV2mLwlJxZ73ArJlkQe8f7JDsfCzLx9n5ojxbvCY+zN7LDU TuA0mz6DDpvn3MsCdmhe9PHwO2eKtKQ15HQK2UG30smEf/Y0Or76pXH4zS7e 2nbJ6akxMq63uOwfzw4dvh/sHmYZIsu4cW7CQ3bgLTvcbGZxErmq0lkYebGD i6VbZIjCceTJ8GRj2oEdzifV/og00UU+3eIv7pqxw0Dzs5a5+GMoMD0flzi+ q8+/iPX8vyPorg8aqdJgB/Ybn6+9D9VGUbrNoWf3s4Mn7Q/P35JaKE7gnPSK KDuMRX2Sl6jEUHqJr/s+enbQe15enamkjt7eZeb4ssYGJybVZs8pqKES8/h8 x2k2WG5cOMB1WgV9lJYx/dfPBtNZNEzU8YdQ/WrxSkLLLp7rltxrKiXUXH8s XvUTG4zxFSyG3lfcfS93aLQXsUF3z/3eESsFNKa6EMScwAb7wkXs9SP2olmG YIk3EWyQdEKHoOshg5a7OT5rBbGBT36e5t4be9Df9Jeu/VfY4G+NlUB9liSi u7GP5aYTGzw4duW+DLUEYtP7kMtrwQa//6w8j/AVQ3yCBkbv9Nng6jeBm9+k RZBUqevTcQU2uK4+GSqtTET77q2qhoizwewNiDjGKIiULcJ6yXxskK5aE7mH iR9RZPj8yxnY4FlpWT/lEC86tpYiYrbBCp6dfqEojBudbDhYMz/DCnIBTS1o lROdeQaOEYOsYLeRcZFXih3ZuBoxyLaxQu/sD+rKKBbkqDaYWVvLCu0c0Xa2 B5mQS6aauW4pK8i/+W59Qp4BuRFjaL9ms0Kg9eS7V4Z06FL4dP6JV6xw2PQb m2o8DfLaOnq+OYYV+gOCdGXoqdFVj5esp8NYoVbbXcZvzz/cZ2C1rOMmK4z1 qbPM+v/F/auzeHttWcHNU07DsHkND1KkrbE2ZQWrxE3f2eoVPCTZxnNQlxXi q3IjyANLeBhPCclegxVCr80JeUss4vdDOb+O7meFsGMVWpUR8/jD5Qs+LuKs cIbU85df6Q8e5fxJcoqPFTZT+JdOPJjBY7pJbe5MrLDnBCcdr9AU/lTveuCf LRZQ1j9U8HloHH9W1ix/ZY4F8iJ/uRO7f+MJe2V7l36xAHeoMzNh4xf+MuH2 XZ9uFpitTC0j6ozgSaw/D218ZQHaUOOkwEtDeKq/8ohfFQukcLxg6Ivtx9P/ i4zayWcBrqzA0fDtXjz7/ITm7TQWiGkIIBq8/oHntWhN0cazAIPE6nNNny48 Xysh7u5DFjhdNeo6HtCBF71fOsocxAJu9Xay+wva8FKJUwsPvVkAd15U0+Ns xSuepL/icGGByjueN69JNuFVdFQnY86ygLYf/ZlMj284XD+7wXuKBYyaar1O LDfgteMF6XFaLEDjPem9WfQZr7dgO0NUZoFN1JlWm1WLf/3iTP1ChgXWOisJ Is01eKN69VsR0m69WIrXCBnwlmyCTTIHC4wEqgT4y1Xh7SRvZikaFkjcSFm9 ZF+Bd0V8L0lfYQYLt+UVpb5SvGdbymnvFDOQeT9/W4gqxvs9A7lz+5lBbJWi ZexbiA8N/fio0MoM0jf/M7j47D3+y/igx/taZvCjMqO6V/sOH68JJyqXMgPJ 63BMdHYuPqX0u74kmxl6Fmxv3+jPwmdTsWvqr5jB+VnPNTeTDHyO75l4ZQwz KDzYyFJkeIMvhs0342HMkL0mgpMXU/CVVX3/mpvMUDz/9iotdzK+7pq695gH Mxxy62m0qHyFb/X87a63ZYbn7Q2HY7MT8R198zv6psxgTZz/PPM7Hqf+8O5g o+4u/6RZm6ZTHE63j3nIUIMZqqRqWFgknuKMLx0i2vYzQ+/cE70rhMc4C0el +hlxZpC1xIP4j0TjHEH8E918zJD85l3RAeVInHve8+lZJmbYXhcMFDwcjvPZ f9Hu32KCp34SUb337uGEdvG583NMYL38iigvHIaTjvq9GPnFBPrxFwI8/4Tg IkWd+k7dTPCqbKwtdT0YF9+jsDb+lQmuF9i/KHYLxKXi7qVdrGICTb7u6hPI D5dhHDk9m88Ez38FVAm73MTlbmr880xjgpqgf/d5f1zHYcBQbjSOCZSFTNJX rK/i5kcdzSweMMEM/x5Vbpkr+GzmjeDvfkyQrX+rpczeEw/hiMhBnrt6Ji2b 5MfccMK1pO5COyaQlt2KtG90xd/2FlHLmjKBGMta1R02Z/wY+rrvhc6uPvqd T6OJDnhv2oAF12EmyKcaF+m4Yod7siyG3JFjgjE83n0P+zmczovh7bowE5hX Cjq7p5/FE7qEej04meD7QHosMdUcV9Q8QDdCzQQDPyxN96yb4vVJRw+YLTNC V3JrfFHiadyGwdLq6zgjcDQohP9lNsIX3T3CsF5GkKi+IGBteQK/3xac//47 I3ROYnej+Y7jImqxP/d8ZISV3udZB5R08KIXWQwJ+YxQMGu+IZt+BDeg+XiQ I5URSCbx5964aOHDru02IbGM0K3EH/W1i4L7NI3fW73HCL88d65pmavjbIe2 Ctx8GcEZ6/0zoKWKp8RzDg567PLH6XTaPDiEq+1IMpvaMoLOd+KxXqmDeKPj YeWG04xgFdO87wyvAu7w9aSt5jFGiK+rrvE/L4evK9iHv1NlBNfiVzrbJBk8 6un1Ysm9jCApYOjtgEvhUpsPhp+RGGFxePh+bbk4XmH7ipWNgxHmGFu/72MU xY0/F6gGUzHC5W4sjWsPCR+Xa7BfXmSAlOw8iZJKQdw/+mfEhTEG2J+h5P+w mg/nWZ0r7f/BADnPqgULxHjwTGu6UeNvDDBtcsA4IYsTx2sIHJ8rGWC7yMsj J5UV75Ter67+jgHG/7JyTZCZcLcIbae8ZAaQlHSuLGKix6kWzR6JP2WARW0u KXNzGjzWwq0i9i4DbPTZJdmt/MPkqgLHmG8xgKhO7ZBK9xYGEk+4At0ZQO/N zAk3yjpmfj9Dc/EcA9w58MYnUHAFm/3vg4uLMQM8UP1tuWC5iIWYtsb0HWEA LTp3G6bJOYxQ/rvSUIUBZNl/XmT5MIO9FdmY+CTDADOxLWRtwUns2B12XjWh XfzsNZlLM7+xvilxPIeNAYiSxvOXZH9hXkaqF0X/0YPrQ6kdqpAhjKHY4OmT BXp4yqo/y2r6E0sUsq1m/L0bz39ITn73A1MMvjrt100PGYOaKvNhnVj92D3+ +S/0cA75jdjWt2E2J15oOX2gh2uE5uaE+mZsMT/fvSePHo57nLv2PPkbdl/g c9zJpN3Yv3BnjKkBE/HvrYHH9BAMr7gNp2uxopH/ZpXD6GFiNZFjTqUGM9Cj IWTdoIfKrmnp3g9V2HCuwFGyGz0cSuqps80tx3x45D1jbOihj43h1HnZEozt JnpOb0QPJz58M7hBLsSSB0zrbmnTQ8ivBsFcv3xM6bfSZqcyPZSWcl56VpCL 1U1zKyrK0sONIGOasfVMzGxh3vkhiR6cDyZXjpS9wcbXWhLHOeiBij9Nzmg0 Bbux87ZNm4YeQrf7dJrdkjAm+ijGlyt08LsqJfzEvRfYc9ZL2PokHci4kbxF GuIxOZ6TV0376cAycuAUX2gs9oEgn/W2hQ4oPJ/mLuQ8xk6Ksgwx19IBt7ub opFSNDawZ4rPuYQO5P8a7bgIRmCe+74YQBYdrCUdfsJqdR/7p5QRTHpJB9LL 2tW8QmFYtPrdEp9oOqjcvyNurReCiWs5z7aF0oERS5PDo4wgrED3mMT+G3Sw x+b3MreLH3b0lKTlfTc62HGJ8vtYdAPrNKWJGj1HBwptl5fag69hzlYjtfhp OnhyqEV4qfwKtmoHG8+P0cGcwwx9aaonds/19YEVNTqw05he0LzphhE8A52N 5elgeXffbPzpgmVfO5eYI0IH4U1V45EfHDFNP0obAw8dSPC0UfEz2mONt0mM DvR0kCLE3nzI7hx2/v4mpWqdFhpPBjvZnzmLzUX1ehNmaeG/5LxyYpcZFhxb lnl1iBbaItXmn7WYYNwvng02t9PCQ5nn+6MOGWMpKT58cvW0oDN0wDFz7AR2 KMvMIKycFvK4hm9o0RzH6t4pBw/n0gLV+sxCTMYxzKyEt0QziRZeiBzNEanV xsYrF2fintBC8frwRuUDHLtR2ya+eJcWxExevO3FNDCmb/kWp3xpwfI/wtDt cFXseeujyMxLtMASmmU1aHUIk/vhWUtrTwvlBV+txl4oYpUDpzbOn9nFLzCc XLu9Dzv1e9+BCr1dfoFklmNXZbHBaVZnfk1acH44uGS1KoV5LUwneCnQgsOj txnca+IY9frX1u/itFAyqti50SCCPd7JZJDhp4XskV/tUjZCmCT9fUoIEy1o 3Yn7mRctgBWxunoPbNHA7ObVPAUjXkyHRzfz8BwNlMEZavM7XFg3Yc/gk180 wPowymEDZ8NcRen45rpo4GMBm8pjKSZsfc+ovsFXGqDO766oSqLDHuz7FPSm kgYCa7jLlF5RY0KHkoup8mnAp+C4Ks6/Q8lRD56xTqWBpNGcvKDcDQpFy1a8 NI4GnCTk4tgnVihNurgFTzgNhLssVT3PW6ScP0WOvBRAA89VpQo1euYoc6Z/ P33xooGXeivWXyVmKMFWP9clnWhgz5ifkhl5gsJtX6EQZEEDCm5t70PfjlJS XJ879RnQgMT15otPYZhyyPNmggpOA0G9B9uqb/dT6q5ZtEYfpIH/iPxDrXgP xdxPlWFWigZ02u14l190UiZu81P0CDTwJWy+592dNgpLwLu5Jyw0IBdE6x5j 00RRuKmfOvyXGp6K3qo7Ev+FYnJ11Hz/HDXkSISkFT+ro/h4BrD4jlCDmZH5 33HNGspHp/dXeOup4W3Nus88qYzCYD3Wk5tNDYX6+0XMuvIpcuZBERsvqME2 ZNSrTziXYniaqKX7iBqIWvOmkz4ZlFi9UxlDV6lhbDS3m2yaRJFSLr7Og1ED LfWhre7LjyjHDxjttT1ADXahDCoKsuEUD7mp/hxxani3qHiItSaMUiRGPqbD QA3dGlwz79gDKUfZw3hutlBBouj5/LS7HhSH8TPvBuypwPh+WLKVjD7l7sgf B7kzVMAZ8sr6VcMxSnb/fYEbulTQ08l7P0lWm7LYXhnAJU8FpDP9GvvOq1Fo gvTj707+q77NfbSjMXIPBR2cajvN/q+a+ntAYcoiNaUiVlZn0ny72kteM5/p R4kmk/WEIzVlu3rm5B7CrZwCTXOx9BAh8e3qpq/tnfohbzUXsyXh5Mzf6q/3 JLbsLNI094KI5vugv9UWq7IXmrZjNOOn+Q76Zm5VX9Vmqnv42F3zOqIms21u VF+wLjtzqJmsqTjVu3zg5Wp1jVgwUwP1LY1jFT+Zt83nq0m3Ojea2Pape2W9 W+fmHa2O2wia6dBOUDN3kUxu9/9abZo3t3fLb0flfv1mq6Wob/UDt7E/VwVk Vf4HLdVIFQ== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+Sr7mb6161eWSppa6R7cFDD9sb3cwZ4N 5T9UjJjKRO+kSH6wr91q23L8JbcBO09AY9K7b/YTdjY5lLjN1W1+cM25aPFf +0zb4rJQPkHtDbPbAuo+MTq0/lUOWObXrZG/KEXgSRirw3Tr9dYrS5erxmXN km1v5HBoCMt/8ODABaXOwDJL4zncDmGfddc8K30szyIy9Vn9Lz6HL2ybo/eu nSBz/XTrhxZ+QYc3C2fUaUoFSoZWJ5nNOizkEDE7cuExlsWiOdyvlc5FiTjw 7rq45PQSPiH51cemsb0SdXiy/On6fp10vuodzsH8s8Ud3HdsSfoi5sVVsCxn m5m+pIOZrEazyVo/Nh4m8yS9p1IOqxZ8CUrZcpnRNTdkqtZkGQcGKJDYKZvv qiIH508q6phocF0ezg9q89edu00BzteKbgldUqsI5197xrlocqgSnH8u6amj kLwynP+QZfmPqUoI/pdlGesl1RB8ydevZRR1EfyU4k/f9a0R/F/N/9f6hiP4 akslpTr7EXxL99sXeCYj+D4v57RPmIbgF+oqfJ0+F8Hfs1XtwrLVCH7QMeO2 I8cR/NSMrzYepxH8Cq7tn0+fQ/Dn+lklXr6K4L+45mDz6DGSeyuYPqc+R/B5 pY+sfPkKwTeKdxf/+BHBd2XkPFfyFcGPWHyq5ccPBD/Ltce65g+CX/vc99P/ /wg+AN2V3j8= "]]}, Annotation[#, "Charting`Private`Tag$4228#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Gc8lY8fxnFlhCLbOcc4C5VKVMgP52sUGUmyKlkhSYkKGUmlJMoOkewZ igal+5vDraKM0EIqiYxKiKL+/R9dr/frev5huvvZeC7m4eHRWsTD8/8N/7xt 8u9fNgbYZmpkzg9whkJlpt/Os/Hmt2G9Levfc6zE3v28O8fGS5cENS97v+cw dI4s+P1go/fYciGRl+85DTGJggNDbIx1PSj18f4HjqDaS0V8xsZMWb3/sgsH Of4N2czMp2y08a49pvV5kPPG3lspuJmNH94vNolb+YlTFjG3Sv0RG1viw4VP 3/jEseqQ07xew8Z1CT5vuDjEST7manHqKhv1B+Sn0kRHOAuCq6yc0tg4Hn5W Rt1phOOV9d16UwobrY7VvSgtHeFok6ftv11io1xq1YSt+RfOG9kCN9fTbHxc 1nX3UfIoh3F/JMjgABtLOnKdjB0nOBe23wqR92Lj9g/a70xvT3AmP4aEz7qz kS/aVX235FcOd9myM1VObBRI3VtX3fmV4+WsdolhzcYFP/MNJpXfOGWLjubz aLPRkb58/UP7Sc6mnaUC6Rv+eY/XFkrSJIfMf++toc7GGxI7RdXaJzkDptZr 3Vex0c7zuVWK5Q+OzKW1d7hybLzGCa+4bDXFOU0bbj7Hw8byy8oX1U/McMR8 6ar0BRYyPWLabRpmOFn19rF351jonvbknt2yn5x7rk3Ww5Ms7J+mX1iS95Mz Xpj72uwTC8sYd432vZ3lOG7YO7rsKQuHgw9H2IT85gydTd5WQLJQsSuw537n b87RnpZKfS4LZbMNd2ismedcOvHfscMPWPjOfSze8sM8h0vILrRVsNAxTWFR +p4/HDXLTtGkJBZuW9m6qKCBBx5kCfmvjmfhxMHTS6Z/8oDZV4MX3FgWmjt2 lQ+uXQQeiZVXpqJYqDMe31pydRFkvIpl2Aez8KFklfTCycXA72m6nrqXhao3 9SI8vPig01nDYXQXC22jo54Y5fLBNUe5sHp7Fj7Wsf2P7OcDLcuvTW7WLKwS r1Lj7uIHrw1XdpUas/CG10BKo4MAPF70+ZSuKgsVjhwR8j0uCMm/2wtEVrCw Z1Av+eADQXCdrnv6js1Caq9T4ho+IZgbviR1VoGFvCL9cb9ShEC1Xau4VYyF EbIWC/MNwhB77Vzb3p9MnL5gt995swg4ph2ZWjfFxJyZjW370kRAKXE3dfF3 Js7eSdtmMS4C9VFq+wq/MPHEKmWnJ+miMOHbMzPRx0Qb9tUQXFgO1roqiqca mWhv1lPQfkIcJF81+eYmMPFJboGafpcU4Oqc6LOXmEg5eTE+TkQafCPC8r0u MvGPeNYOf1NpIFU29KpGMVH2xITX7ANpCDl+3aI6mIkSCYza1ZUy8EEiVLXR hYmk0GT6/psUuOxlb1LoxMTyjW1vr0xRQK9Owz16FxNz0zorAjZRIdVtON1y JxMbnVMM1RqoYF5lJ9RtwsR0dqTbSB8Nbm1TH/60lol9vDE1vdoK4JKzlO+x KhNjfVOuBp1TgGXTQ/TSFUyc38cf/rJbAbwysxwOM5lo8rPLaDxQEWijws0z UkxM1Rxbl9dAh9PRnwqWzDPQdHXW7VEDJthwM/atesrAE68yihLslUCpa7C/ mWQgbZD/5JV4JZgZVNvtxWVg5ZbUX1otSpAuwLXOe8DAYL9b1VuNlGHAbFRf oZKBWty9AQPaKnCoXZcinszALsmJMU2jlcB5H5VUGc/AdapN3JhzK0Fssk3U Ko6BckN2wwktK6FG0oP/4jkG5sfI3Kt3WAW/7GMn+U4wMFAxL7IuWBWi+3pb Z/cy8LNjfWtr/xrYPaGy9cpuBrI1hLSl1q2FNX+PcDUdGLjc+tnfVafWQhuD vy7AmoHjhdYaj5XUQMZjbdGYEQPPx3bF8AWvg7wv4ZEDKxg4wePXTlPSgNCv +r7xH+m4r37TBaHtGyHTTXvYoI+OGx2G5naf3ggPXqh7fO+h4wrtlY/ZdzbC n7tsJ5undKz5EepJp2vC6VNCllI36Wgh8tD5zYwmxIh3r047SccJX4Glxg+1 oezM86KtwXSs96fqnpnThtbpZvacPx3D7sj+Z6G5CUTf1Mnt9qTjBg+pxUEV myAx9/pSeUs6GnT73HIq0oGMDb6j2VQ6guXhR841unC/wHO/tSQdjW4c7c6d 1YVeWZePPCJ0/LTQJxaprweK8zveuvHQcY163BuxJ3qQ26jdwv6siIfX9Gpd /6wPJXa8ZUU1ihh89deJVqYB3AvK8KncrojjIi2KimgELA//gldbFVF4bmhg /JsRxFlvHVhkpIjNzmfParCMwX3VjJ3txn9/1QRQzhnD0rc7DOcoiqhZK5Z0 cudmcOYIUYw/KKDY+7VZsfwm8Fh1wMb3rQJ+aA+1FuOYwHrZu3EpXQr4Qlrs i2yQCSz55sE7TCrglYkLone/mEBVDk7ElikgV9FPe+crU+DlD27qOaaAEj34 Ye6ZGRz+bsXDc1gB2xU7pWG5ObzqU9ZdtV8BezqP/qHuMIfyOy+qQncpIN8U ozClxxzsvddlMjgK2FVBVDcNW0Bxy1CAzxIFrJ4Ld6GttgKrRDvGn3R57P2q Y2CStgNC1i83M02Sx7qZMP+qhh1Q2PnYPz5WHhefftgcOL4D/kjocVkR8pg8 tzGDttkGbiSxvEw95PF7frNY57QNLEv5WhavJo9z/5UcyzpoC5s0S7per5BH x/mg8wqZtuDR7b7AYsrjM6NPEvzPbOGBdI/VbUl5THQwixNRt4ODqQ++v56V Q7MRCoP62w6eXrmgzebK4ZKNYS1kgQPMaBu7+j6Qw+0vn32m9jkA69V89O3b cpi658j7ASlHCKEceWNaLId8RX7lz6IcYVW6fbhvnBxGyeM1nUO7IDqDzb3t IIcv3ZTSZHbuAdOsequtYzRUn6Ue+HPKBb7F9c7zDdGQ93rvpTyuC2Sc/F36 6B0NzS97/nHndYUxF50lui9oGJG5f8jI1BUSWbeJtXU0LI9Zls7b6Qr9ReXq ktE0HCM0+t7/cIPAW1cl+tk0NJR793LqoAcw8uowQ4GGXtos+08pHvAk6fVh B1kaVqfzPGGiB8gfl21pF6bhqIWY/SlpT2jQTjrD/U5FQYOrpQNcTxCtj5kq JqjYFqB4J3ndfihsPtFzdA8VpVtaVsua+ED6+kDjElsqStwc3PT2pA/EZgVU 9W+jYnkQcUb4ng8EHD0YY2ZAxaCaPd43Vh8EffpeDl2ZivpX40pkKL7QFWhQ +HSCgoLVBpSlAodhscqSQOZpCsZHmOhkK/jDdDzvR/tQCn43UonbY+gPw7// bo89RkHFhU2Bjp7+8LxjdtVPLwpSL+wPk67wh/TwL32tFhR8H1KZXmgUAOrd z7YES1PQL7RIOTj4KDifTZZuK5ZF/YL1jEhqIDyHmSXBubIYs2nqkIRxIMBv h1+MTFlcXZBaOOQbCIwAuXcBl2XxnMCgyq5HgfDBJbdYJlAW088cSvY7FARe ulW6zsayOL5hYXd5ZzAcnmxxG++TQcGk1csaXoRC/421tqkvZVD8wf4Me4Ew 2H7gsgl0yCDxx+7LJp0wUB+wWZ3QKIMpP8e0hrPDYPLZ66mNZTJ4oQjcfx8J h8CSz+fDgmXQ3WTjBWNWBJx05a1YKimDzzuru766RUJVm+mlrmUyONCc+6or IhI+cGIPZwnIIMfldONgViSYKEivW/dLGvtS/QXOvYn81z+VKpv30viDJ0fm hd1puLbT/FZ6pTTK7hWufGh7BgiThDsrLKUx9vyiLZTjUTB5uzv12xZpZOsl Xr6ZFgVKyrSgWpDGkTVnfUIfREE0b562xQZpLP5KRufwnQNrrLl3mCaNbfmH fPSunIMBnVd1t4el8OCPiNGupvPAs5ZOGEdJYZrxizOdZjEQJmPoHHVSChVP lucfDIqBn3/dF8ggKUz3dry7uSAGJjoLdc19pPDQeZ7Mu4suwttgtXvW26Uw WzakqbD+Itxp1L+5lyqF1RfFY/sM4+CQk1Ne0A1JnOqQvX+dEw/DW04a1RZK 4mfD0cv5u+LBY93197+yJbHp4d+ZlmPxsHvxIP1koiQudJuORZXFw9big5ln gyRxvc210yW0BFCaCklJMJTErW+K85v/JsCbi+nny7olUNDzu67iUBK8aGKU u7ZJ4NCNytYS3mRo/VvULv1EAl/Xzm92YCbDw6N3qKceSKD7cT+g7E2G3D0v ymzzJDAv7WLWxp5k8Fkt0r5wRAJtyxMfDz9Pgd9PT1Gsl0ngNQuRM4/fXIEp PkF9fgEJLNYOuHV3/gpMcC671f0VR/vcEu0WxTQYuJVVqvRDHH2eZse47EuD xow6vbnX4ujRfksfJtIg1mfKNbdIHAM7Sp6NCGeAvLB3yZSROI6Vy5U5uWaC 88PWWJaeONZKpqhpxWRCToDGEWtNcWQmsWr1ajJB5e0vrfIV4jgQ5b2yQzAL 1pXHNe5bJo4Jn3ebUGuywMiq+l1ntxi6beiP2CiZDQcS/0jf9BbDkdj6kIW5 63BQU5X/rfxyfB1sLr+UmQ8B/LVFgcuX44ltQ6qWuvkQ0m1qLrF4OV6lK0vk 2+VDzHHPy2afRbHv66xPWkw+lN6+Tr13UxRrc6MNkqbzYURTVi3FRBTblu5u a28rgP1afA7bj4hgPH3bq70pRbBPu7+Yy12K9629x8h9ZaAa/N/fw/mCuMI5 zMK88ibk9O1sPGHIj3viFL++vngHPkdK65lSFqOLX6+7sPt9qEtZuWXYfoGQ ar3NfmqNoD7yempd1gxR0d/ZkFndAMe+rV0le3aGEHWqJAfvN8C9n5F7//jM EHS1HTorGhvAUECVbN00Q2SujDW42tUANuyQKwe6pokb340qOdMNcHwv7b+8 pdNEp8pY3wFNLtR17I6QCflB0Oy1vgne5MKfVxXVC64/CNsVORkx97hgNLB4 eND0B3H0QvEBfuRCy0SpdbX0D8LvW822oedc6F36m2l9c5KgLphSbMe48HfL 1cYLw98Jt5Eq5kvlRthc91Zowf4boaiDL7WTGqGitECnWfcbcfCXeLVjRiNQ rvodSGB8IxJlCmSP5DRCz0+BRIuurwSb8tDqdGUjKIfai2X9miAanJ5obWhp hIbI6WUGpuNEglf2qnqeJkh1v+DbJTZONG/bZ2e4pAkOGCu0er8ZI8hRyq77 Ik0gxr/lYsKhMeJC9Of6eFoTuEQnC31MGiX49ZRfEhuaYP7SBoFzAyOE8/ky MxWPJmj3a/aklY4QnJoRKq9PE+RZ72mqODpCXEqUp3f7NYG5xJmzLwVGCI3R RzmOoU2QntK5eNXaYYK6zCS8N6EJtDL9/7acGCJ26SQdanvQBEdKKmfFJT8S wkqvHioJk6AueviM0cAH4vy3m+kWoiR8D1gjevTGB+JI2FU5bwkSAvRK2F2m HwhNQef5SBoJx9tyrVLD3hNPD0hf3KRKwo8vq800W98Rl/TOvS4zJeFYTbFz qtc7AtcH+KpakDATrnzsJ887Ik50peU1KxJmxejZtZr9xPAJ/z5POxLmtSSm 9bN7iXFh5/tH3UkQODN73STgNTFryaN9LoSE85bH7xQte01IqXRtdwgnQVBm skWw6BUxuS/GR+EUCcIlozNP374k5svFUqKjSFje1m+5fUsPobZHw+rNZRLi 0/a4V73rJkwf2fLvTCRBwv1VkHhIN7H5zadrmEyC1HRH7ouKLkJS9ZlPSDoJ FLmmWQfKC6IirZLXO5eE9EFD0dpbnYQW59nB8/kk0CoesmnbOom7W/5kXC0k QcHwnlVvZAfBnVtplFtKgvFze7NHPW3E0eXqritvkWDiZn3szNI2YrcJ743x ahK2TpllbzF4TjwQuV9SdJsES5r+9JOSVkJLMrJ47h4J9l7snM6wJ8Qwuy5Q miAhxv9odOLtx0TVEsXfwUhCfRjXz2aimeBwXsd1PCJBKWkfp9OFJLT3p/a4 NZLgeK1aOTGticgyGYhObyLhYgmviE1HI9G4R9yIJEmYJPLedhhxCY7L/oY/ j0lQafnRkBDaQMTTd54TfkrCrh7j0h01j4jYR9XmS1tIwLGPwR3KSAg7ibWN tpIw/HU/suofEl7RNrEtz0jYLiB4OVetnijgS918/TkJihu2rskVryP2/nTK WdlOQpTZ8C/mmXvE0kOFxr3/POYS/SRn6g7hpBXee7aDhJ2BK9OYXreJUscx H1YnCXWxj71yXlYTc+9EJ2r+mZnnrck0u0UIvV/uqfeChOhaQb6cuioiKFS1 7d4/92fvKDB0rCCi35asVu0i4UZrgpGhbhnxQXfkRPw/h851vDNQLCbon3fW jv6zmYpEuMGiAkJDx3NEt5sE2Z02NIPBHCL7erFQ5D+3/FXyi7iURdzPrqXe /2fvXQUlJ22vEJ7PjKlf/pmvWnkwnJZACPcsFhTtIcGAaqn/C6MIaljDJ5V/ jiZ/tTvSQ4gnpzbe0vjn/wEXhXa9 "]], LineBox[CompressedData[" 1:eJwVV3c81/8TR/bee3xGqWwSUu/X64qiUpG9ZWUlhIyUIpGZirKykvBtykgp m5TsBqXsnZnNr98/d4/n4+4e97zn/XNHtj9/2omOhoYm4p/5v4+sX201kwrC erqNp0Ri6rHhnq9vIg7ewQ4eLjz75uuwt7P7WO2dPKzfNzV6d6QW09C82nKo LMW7B8/z71uoxvfH+JUH9cqxt2v2wW3l1Vilw9fesec1PiRXdz7kcjV2zFOt c1x+i43SOsWD2P5haYs6FZFq/Ctodd5Wvgo3fPx2c49hI371+F1OnOQ77BLw vcFStgmrbn9uTC2uxMzbe+jDt33AQ4n3iniPV+Jjwb2XO1824z12b/JnLr3F H3f3+fjxf8ZSXie4NGYqsIuWz3894+244Zz9ZDRPOda4P9f8x6QDb90fEph5 XYaZ//iMb6vpwPff7IvzdirDj1Mu7JRL7cTy6+nxlW9L8fisb9al4924qDeA gRJcgj0yL96VKPqGO9zXBDWki/GBv0svlYW/YzGvj8+G+l5idr2A9sPh37GA pl1USMpL/N9SAJenVQ8uiX7rbcf7Ek+fDIqqZP+BxQ6/Ns5lf4HLLldWPlX7 hXvOH5tv3PUMZz7e/FTu8QtL1jCP5vQ9xZGd6EdN9i/862dO6t7zT7GZzLu1 L5y/saaA3VZt4hO80vVOg2bkN/ZYViDxTBRhTfmqF/rJAzjz0yWhi72P8d7O 7qTKpgF8fba/NDTiMVYKngySWx/AxxSrbqUqP8bSTUJazGcGsfy0odDyzXzM 5+TZ8U5mCHd5B7gvHH2EJ9PEFhQqh3G9Tzeb6d9cPKKl/DVtZhhDZuMC/bNc 3D9+5A0rdQSPN7Nk3nHLxd80fMKHb4xggQUIPdmfg+s7G/kzDEax+6nzo/09 2fgBu/9ejqExvDMjuNhiMROnvIwWCRYax37lDdxzFZk4ySJrY/ToOL7f6HZL KywTx+R/rKt9Mo5pT9Kys/Nn4gBtqsmlgAk8/P3riYngDHz6Uqv/BNsUburo XSu0T8UnqMMW5mgKj14wwCSGVKz7YQ01eE3hawbDn+vzUzAS3smU0zWFGRK8 F1Ln72PZ4pBkiwfTGPZredMk38N0/gK9jiIzOHglYfEhTxK2sCtoL1OdwRB0 uObgu7v4xTHcxK4/g+fnNvLpPe9ieynXkuKIGfzlgQbzTMsdXN34JoF+YQbT TYiNzabfxmFijodzW2ZxubbeXa9zt3Avw8r+5bFZnOj3TPi97C2sOhOroscw h8de+JlujCfgwdpSqYX9c9j2ObFf1SMBa3uyrWo9nsPnpMvSAubiMH3ViycD YfOY/+wUm4Z/NLYq1Hmo/mAe84nahZZxROPiu72p0a/nMXk9j6007yZ2dGOM 2jM7jx292FNEfkThOj4LhzCbBXzQxKpi2CISRzjTClP3LeJepjJFl6Tr+Kd+ EudFo0W86c908ZLWday2X5ah+fwiVjhRylwzG46HuYznfPIWccIsUuw2CMdH yvM/VvP9xTf/zCdlSYVhJnb9q/bTf/HRk9XXzkyHYrOdFu/VWJZwXmnC+an/ QnHBIcct1u1L+Mu6ZrCTZyg+GRgQ8tJ8CZ9+cYRbdPAKThrODKSvW8JSFZyr NUyXsXTVrHde6jKeCso+ypoRhAN6154FlSzjKO+71R/Ug/CHJYaZk23L2JCr 5RJDRyD2VBD1XGJcwRyLem2dHIG4JPWQm67PCm5XsLqtd+ciPux/235cdxW/ 5Zmwd/zli5NupWdVOqxiCR9Ju8B4Xzxa9OhX4uVVLPhOPeMN9sUxAxU2+4tX sW5M0+abnAu4U3/QIkZqDZfLMFirBPpgR9m9hgp/1/CBDbfJcBMvXHIEJ9Lx rOORk4fvZwp6YWb7o23dsuv45+gBH4un53HRPetTV86s43jLeX+hck+8wBBx vPXjOv4ja+FL1++Bw351a/nkbOAH+U1XxMNd8c/y4+cC3mzgsAJ9L1lpV6x5 +33S5a4N7JouLBHZ5IJnDheM3WTaxJ8LEieF+V2wTWFIfI77JqaIfz4pVeaM Nf2393Tu2cI7Eg0bqRqOOOnUffoevS38OrN3RXDKAc/u4lT47bSFn1N3U4Ry HHB+z1LoVPIWlvaSGFHkdcCCB5ulGde3sOT28w1262fwCsO+cjF7GvgQWRma vWaL83zmP2V40gBRYzGxEGaLjfr+6ycH00Cfoc/yEoctflZGYd91hwZEylHU srQNdnZnt1WtpwHHY8MFWh5WuLO1j/6EDC1MaPhIAjbH14gUkVY1WhiJ4jOj /2WGlQqMFAy1aEF1ELVQr5nh6LAmU3MrWhAZI18488EUH1J7WeAURwvcOpIy Jm4m+FlqhP7lOVrgta+JPj5oiJv5Ika4aOhgOP2ToWGiIR6Ovn45i4MOHveM tmQdNMTil8KLanfRgenYgNFWzmkcaXWNmc2WDo49flyjftEA53RefZDmQQeM MTvq/ygY4Eq9q2oKQXTw/mS7UtOIPl44EOpocJcOXCLsv7dY6WM7icvvk5vp 4MnDrECbRydx8N0Q093f6OBio0TS0s6TOIkjZPr1MB18iswn3yo4gT9uBIv/ pN0G+g8bbue90sMaPwMDtmtsgzCJ69ci+49h7gd+Ss9zt8FjBgnaPwk6WFbI r+HQi21w5UrIh50KOvhIvK9N57ttcCf8ScjsxyP40pULMUvft0FyGa+iFNcR PGrrPUrw0IN3zVIy8VAbb/vqdeWzJD2ICPwcMDmpjSX1vQTPyNGDmBER3L6s hY3gvHa4Dj3UybF/+W6ghd+TzmV+CKEHqffp79L4DuGeex7qVtH0ILRZdkq1 4SD+y+3RMnWPHvTYrjXSXzqI5Wjd17mL6QGenlUixgDf++1iZjpOD9mNCVM8 ORifz3bkHjRhAI2j+YRV4X4cF3g/Lc6BAX5/XGVVI/bjJ/otu/Z5MUDlGttQ Wasmnt5UPxgXxQBeNbU8Wev7sIclm4/GGwb46TVhbnhWA8eowGZ/IwPouU6u fGTQwEUsfjdjuxggIPv1pfcP1fFE6c/s/mkGMBGxIW+NqWE3/hcdMWRGkPj7 bk47bC++OTFsq67ACN/fju1YktuLC6rFJn9rMkJcWilp5YsqHvO6Tq9uxAjJ gpervyqrYpdPZnt/RzDC/RrNkdAFFewcsZW0d5IRBgyickOeK+EIa1Xqr2VG 8PCoeETrqYTzVF2f3mRgAg0XM9s4WSU81N/e0CfJBIenzBMcDRWxI85bjjJg gtft2/EFB3kcLtgTrmrDBLunIteVJuVw7hQXT58bE1iu97nU+svhgdTA3arh TFD0p/G8/i1ZbL+sZ/GzhAlyHuYW4p7d+Nrnq8ORNUwwMMCQPum9G2fnlfjs aWWCrawGZk3W3fi3ESk6cowJ6Mo7QtLxLmz3fL5CRZwZnG+/E/75RhrbuKVI 3LjKDNtmaAR01ql47RtLy2wsM5Q1Cwx+L6Tie0cDL1ulMMOVz4Jb+VZU3LbL rE/5JTPMKNne/l1FwdojAlm9g8wwO+eocSSFjH+ZXDfQmWUGs13KM/KGZBxS v0D7YoMZDidfvyvHQcYlDzvsbwiyQCmnw06bcBLe7Xhru4ouC+Td0TmuvSmJ 6ztoutKMWEBo8oRqVqgkttfyus50hgX09rHPTdJL4jTKqeHeQBbQEC8K38Mn gTl/s+ffKGSBtbATfK8Oi+EF60jZH5yscCoqziNjXQgnfFrq0RFjhUbGcK2i FCEsT5yNebGTFbb33+1BmkLYWfzI1A1gheRrS/Q9IYL42/dtT1V8WCGRVnlY X1AA+x+7YJt+mRVIjoc6ht7xY97X/VzM0azwY/4WT4cbP9a7X+X1I4cVcpVa m7Nq+XCl6RWVyC5WOHxq3j3sBi+2bJjun/vNCoFfrsec2M+Ll9VsbltPs4Kv Xnuw7gwPVhYkFlSY2KCkqse60poH53auvvqhwQbpN5y45I9w4ygD/3170tiA O9gzsC6RHSd+lPEoeswGQ8qnP7vxsuM0nb6MHaVs0BZ0lP/gHTb8jNClF25n gzCSrJNlBiv+ulv08zoTO9j/mZfXa2bG/bkttP4C7OD4qXDhkiUznpQKU/1D YQdfMSXre1NMmEZw8v5vgh0m0o/Hegox4V10lY71F9jhp2j2RkUoA1YJ8UnG V9nBO6DtgqMUAz6wLP2hLI4dzCvzP5W/o8f60/GKhY/ZIazHPuMkAz2++P3M anwfO2xkRKnb5tDh+hcMCebHOYDn/UKW+w4a3Cr/urrdjANigib+3ijdQt/z PRePO3PAkcmktXrpLTSd8cUCXeWAqCOsrLXsm0gw+vEOaikHMDawpCQsriES o41ZWi0HnE42m4z0W0MyV3mjBdo5wDI8WP3N0ipCF4NnmKY4QIPeVv0/ulXk 5HCiYpLCCSYZW/zFysvI8yfttJMSJ7STz8Pl6iUUYF5C6iM4IUqa1VbTeAnF nJKKaDPjBEMrsbfOoX9R8f5Z/ZI4TpDK9s0snFxA9Px3h6+scsLFH9Q3SoJz iHf6MicvExcwLJ5k22iYReRGF7VcPi5odTvwlTd4FqFLByIa5bjASf/+KMPQ DAocHNjBY8sFqctfHv2N+4MiKz+dyHHngvqR6C5mxj8o6V6p394ALthZUspr c2UaFetF15nf4oKY3XWPiwKm0HSxilN2DRcYjb9o+Rk+gTbixGNVW7mg0i5v hp1jArG7Mr6q7+UCtv/ID9WTx9Fuie/0E4tcwKvcJmj/fAy9qIZ2EX5uEO36 4yq/PoImZUa97Y9wg4a3lqvA0CBaEPpxvVCPG04FfegOiBpEa/Tt9xdOc0PD GPmvg+IgYu2rqIqw5YaJgz6TpVcG0M7b8TyFAdxQ8zn4eYFyP1IIDd+xcJkb IJZ+OuP3b6R2LnAfcZ0bvp8ffjSe+Btp6zic+XyLG+oUtLHPyi9kv6b2fL6A G9jqVKSNC/uQ66hs3YHn3JCd72NxXaoPeXWRvl0v5QaUdu0pV9JPdOUpK61w LTe4kwS92W7+QGkOP/UP/OCGiI9ak3dietCX5usz4Vw8IM/XJiW88AXdQemH jQV5gMbD2f996Bd0+nlxyg4JHjjP69wewfUFtSQNaNfL8AAUVdPq7OlG9WcO 3mc6wgPqge+NExI7UXin2fQXPR6I/NZdSlHsRId0vLTyDXmAu+ex9M1PHahS 7sGU7hke2LGLKauEqwOVLK0fvHmJB/5YVlnn5LchXzf+ZIswHvib/Mtt9XQb UvkhOylzkwfaY9nII5ut6Em1RVJzMg98+Sbr6mjZivJiy8bZX/IA3aMAdUO9 FpRE9b0dP8YDAYGOdRqrTcgoKXrUdoYHapPZh3WDmxAvSw6htMQD1aq7PpRs NqK46baRVnpeUEsfYghlb0QR5YoHeEm8MJpziJJ5qB5py+nc6pfmBS2rtY++ XXWI7oHN8At5XlBAW+eM3OrQ5fDYBMP9vJDVYHSbM6UW+Z+aGLxjwgsxphZV 57hrkGo1naaTNS+YXejRvPeiGs2pisbvdeSFY5fEx6+bVCNP0aP7ur15wXDv la2onCrkPJQXKxTLC0PwpNzE4D0yDrZXS6nhheGa1ycZJypQUjo/41ITLwjr 19IUu1ag7nf1XYatvECZOSFZOP4amdDL+nH84IU092NnTsyXI7PY+Zehf3lB vDy5zkCyDN17+jDsxzovtFx7YrbvSSn62mZqqLmND25HuWyXhFJkLvhmbp6L D7j/lh9541qCLB6EK5/dzQdS3DGc1h3FKKVKjbZWkQ/kDtwsxD7FqGdgtJWk xgcyf2I3e3mLkdWuE17fD/FBS4IBebf5S2T9XODpCSs+KBA0odVYeY7savLk VOP5wHxjkUGd7inKHDJbT7jLB3XFfK15Xk/Qbya2j1OpfCBWONb84vd/yF7v vPujfD7YEDtS5dVchBy61AtEq/kgiPXspaNvClDu0ljgxUY+IB3+fMAGFaBB kbSjnS18cKOxhba0+jFytKEZi+3hg4U/2XTs7fnIeaRxJ+0iH5ypf2+pzPoI 5bEEL1mv8cFKtlzQ6fQ8NCIr3/Calh+ERkitbip5yMXrlrMvJz8YC4o2W9s/ RK4r5g9HdvKDiLzGlvXXHOTBNkFpseAHOoHC3/UCWWgi8DU92xl+uPRtW6VQ fSZyG40a1jnLD5MupQc6L2ais3W7Cqou8IPO6IvPU5UPkP0VZ+VXMfxwr/dH pldIOvo9tZdvLpEfGAcU8v3m05CdFcOiwn1+8Djf4DvnnoZs9uWW5T/kh7aW zw47HVOR+fxvnFbJD862BNnY6z76euY5+VstP3R/zrs8tXwPmbSGbhNs5oeA pKPOBWH3kNF/Ug3xX/hBRtw5zP1BMtI/a30ybIYfePSGPzP9uYuO9Hy1cqMI wEGOBV/ukURUdzQfPdolAE4GTR71sYlIu+wiaVBBAI6UGZ8UUUtEB+8KDlrv F4DW8O81AdG30IFTRu4GRgIwc+mgiIVuAqp4Sz0RZyEAynoj8o5/45Gm3LxC s50A2GumSP2yiUfqLIlz2ucEoIrV0IZFIw6p1HwO1IgQAG+4/biZJQY9V35g 6RcjAL4G7eTw8GiklOlJvEgUgKN2NHSPaaORfAgHrdwDAXhJyWVl33YT7VI/ HilVJgCI+LufkxyJpArrkxjHBSB2ynVKvyocGT0oK/8wIwADXoWXS4zD0c3b Bb1xSwLA0WF1HU2GoYXgOIoQgyA4jZ+tiJYKQx/0TJ7sJAlCvoSxwWb6VURz ULdtQloQku4cyjQ/dBXt3au58FReEJZPSazdGA1FmRKSmhr7BcE5Nj99n2Yo 8p8eqtM1EYSB1bsqKwMhqKj/yyi7tSCMxkry/dUJQb+7m9jaHATB7dBQF/fT S0jv3X8G5t6C4CqnPn4mIhhREvx+uMYIwuT7CMZW00D0SZlh8Wa1ILjrvcTP A/0QnfSS0KkmQZiS//L0G7Mf0hAd0+RrFYQAQx4tnRRflE33KTT1hyAUMzVo 19ZcQAEdd9iLlgUBkcSneZV80JOGCEWvLUHITegSVGr1RgMVAadVGYUAybyt P+DjjU7mWt17wycEeRdl3m9UeKHtftu3f1IQAt2bneqKHzyRhaugzq29QrB8 cd+h0zs9Ubw1s5vxASG4ZST5s+rGObR6ePLpj6NC0P3gqZj2aQ/UKli8f9pR CKyiuav42N1QcJmWIVeqEPiqmJh1MjgjFavWGdssIWh+p26kf88JjW9ZxT17 JASnxi9b9cs5IQsd/yaDYiHwOkM7TLJyRJrd+fjOJyHY/iBz53qbPZoL3Ptj sEMIQh74hIr52qMCieqgvd+F4OOzIRFGYXsk4tTzqntYCOwmBztEnc6g5XkO OREaYTDpvuZtyWeHniWnNLkyCsNxzzDvb9dtkcv+nWdfswtDFHrmzzNqg75e g2xLEWEwbBjoiXhljUp5LghnqAhDgGbep2UfS+Sv+JWe6iQMB5zV3C09TJFC h2P2BXdheBSwLOfz1wQN+8/iWm9hiB64qv35mgkyrmQNdrr8D2cFPVDKNkaq J4jZR8nCYPa0195l1RBNzjTFLacLg9rWZEnkXUOUe8dE7mjuv7g4b0uaiiHi 7z1/dvyZMHwI7roR5HMazbtl/5D7IAzCqxF5HMwGqIBTMTikVRgiXwke+/hc H9m/qBBu6RaGWKP2VHVrfdS+0ml4fkAYpk/4Z4x4n0IvIpk+PF8XBtMRz+mT jCeQV55HiZqiCFSzGqiolumin5/F7nKqiYCi/2mpLkVddGLlw4XhAyLwwMT4 ulmBDpLR262cdEwEfpOnGpoeHUGDs0OFi04icMDjQsybam10WuzuzU8eInBP q86h65Q2qtLWdn14QQS45V2ibfq0UEZytrTxVRHIFHYXiGPQQqaEbVZxmghY 013KYTx3ENU7c4bG5IiAVfiNB9rsB5FqwlsbxwIR8B4rEU78DxD3gJg4f5kI hP/hM7adxOhD5NekCx0i8Do46Eb6AQKhToMYFVZRYPQ7i+TDNFDRBo07K88/ 7L18RXlVHYntfHa0X0gURsmDkTt81dFyICdT4g5ROGedyZDhpYZeSDVfnQVR CDBOlJS5qYpIR4PsmnRE4fw+/WfbhFRRvM9unHVSFJxEtk6Z5u1BHnU31vWt REG6LztQ/aMK2uGuffHZRVF4UGg65rdHGd25M28ceVkU9pU/tShrV0J0ldmq dtdFgW0xH/H4KqGf3LRzXLdF4Us8ueBFoCK6V/LW4/wTURgO/1Sxq1kOMf7y OK7zShT0aPmzi3fJIT8WcRmpN6Lgk1q9Uhsli05bBY20NInC+q+936VNZBA7 nbq9wpAoeCoa6M4I7ELlF7cZDk+Iwu/CY4u8CTuR89RnrYw5Ubh1GGVyc+xE 77+67OCkEYO8WTlmOy5pdOFpyuiUqBi0BVgylezZjkg7zn57SBYDxeJbhwRq qOhjyp4P1rvEgFum4/IPIyqSjvhY+GmvGFy3k3H2u0JB3602Pf/TF4PkBtso lz8kdKP9g62TqRhIS0r6vUwgIVXdZH0JGzF4O0XtY1Qlobg9Siqx7mLw6rI/ uzqtFDrIar/oESEGque6l/6zE0f5pXXBcm/EwFBCrkijRggZyyd6DFaLAWvL EZcwQgjR5dhYpzWJQdiR1MLnrwWRVdwSYv8iBr06tmZBbwUQl9NuuslZMfjk 9mqXyAAfevN9cS5nWQxKTnSmfffhQy761QOWW2JAq5b7jZWBD1Xvt6xrZheH 6WtDk9eUeJE/b2xk4U5x0GWsOns+mxtRI80DHRTEwdAwlk1Lmxu1buxwE9sr DtvCCl4dbuVCMmOVx6MPiUP4ixO/i9050c93M5zu1uKgRp/Pt/GZDUXvfbtF cRSHlG0MHzhU2JBGYdTMdzdxeJLzzSQhmRUlJlHajwWIQ+o+i7oHHizo8Dmj uzK3xaEvPyr4zwEm5JtYQXP+vjgc59u2ZFvFiHJLKR4vH4jDyeCNKya6jIiO bvbQgSJxiDn2jpRtzYDeJ8XOnKgTh/187efNcrehPxULlonN//hzkE+l7d+G JH9bNnS3iUOn4h9nhi46FCIrk2H7Uxwqiq1BjJMOab6vP+69JA7nvr1Nlb9H g1yH5EtfbYjDwzmdAm9Mg+6x3qWsbpMAR7OuRu62LWLJyGHlGrcEZEiyl3GH bhLFY1t5d3ZLwK3X1vuLGNcJBb59dGWWEtBwHx98+miJsNbIPLd+RgJ46ljQ pV1LRIw10zdw+Vf/TERgvPAvMfGo62mTrwQo1l2a9n69SOQf8LHuiZUAS9fy mNqFeeLrmW+NUnckIDXf7MGuqHmC6QaoOqZIwGzNxYQGqXnCuY2TbSpPAqp+ 99XdMJwjqM6FZZvvJKBegzj6vWOGOB3Nu12rXgJ+FpLcewNmiGvPAuNvfJSA o1+tH1VLzRC/VnWcub9JwCWv3dRdw9NERvwgH2VOAszwSbZw60lCuFzi/OF/ lzXLr6u2xNAIsenwSIxHVhIMDm1+CzYbIQY5lRt7lSXhYv6U7njLMPHMUZvs iyWB/qbKW866IUKH270j20ISluNDv9zqHCDkKhaueJ6RBLMG1VEX2wGC1/my nKaLJBDdFcTYZD/xs+LW9TY/SVg8ZyP/mKuf8D9bpk5zSxJ2DXHkJ/j8Iqx4 Dw02J0uC/n9yKyI8v4hDb5sTkjMkwW5OMKbU4d9nz9c3plAkCaTN0uNF8z+I vEqGNOsGSSiPdT70ULuHiHGN193dIgmGr5xb72R/J3z4RRYXOiXhguuhOA36 7wRykzsZ0/9vnu6pFp32r0SXgCFNxYYkrO+Syz+R3E28ft9bFEEvBZRU8s0c 7m4i093Z/DSbFFwJyi7hiu0iPKoCX4wJS4F2vy3rYFwnQX8u01FYVQqEPWe2 sorbiXEhGZ5BTSkg/BdLP2q3E63VL98+PSgFniXkyqgvbUSacIOgzikp0F/M vXiFvo1QrZ1q9HOTgjQ+XcWUxRZC9PxFv4PeUkDTUJH+d38LQSNKS+EIkAIB bRVKasQn4uN5/uDc61JwOKoj2HzXR8JBbL98R6YU7PXaAwKpTYRufe23jEdS YKTRRBKmbSIUvE9GuD2RgsrZX8sFbo3Eav2ZPto3UvDLzWFNXreBSPSJvKX0 RQr2HDV9HipTR6x+LCqL/CEFlp+VP+x7WUvY72zr+zUgBf+VzfVGolpiT6+I wq0ZKUjufvb2mVUNMZ5tPLRMTwKbP9PHn7yqIiRbR5a3M5NAb0f7RKpBFXF6 I5DdgI0Eb7oDrpT8eU9UmGbsecxDAt9FZiEtlfdEDPvIVXNJEgiafy9ZynhL vN8XePc6mQQKhb2qlKU3xIIz2+Pn20lgrBB/dvH0G8KqSrGVRZYE3pPqM4cF Kgh5/wDJ1+okKHUWW/avLiPsc1hVhjVJcDsww7N5bxmR1Jp2mBeRwKtmm/Ke olJiU6bKw02bBD+amRRXskqIlj6WClEDEogd5ulIeVpM0HGktRwxIkHnf6af q/cVE2qaCv0+pv/4zL+SD61/SWTcOc3SbE2CtpwJ7WsjL4jzR1NNg91IsG2h bUz6yHMi11/e/dE5EgxmxLYEDTwjvua8u9zhRYKz6Dnj6rVnBGwOPJS9SIKY u9sP3E14SnC/lFvoCSOB6tK0+UhXEaH9q5KJ+QYJaOUld75TKiICOAzEVG+S QO2yLfP++ELi11m/QzEJJNDkP3mjxaSAeC5emXAgnQQh+YUFupz5xPBR/VyX zH/5bXnSlPBHhOjF/tI7OSQwFcrxZdnII661MfZNPibBrYihz2+XHhKnI07J p5eQIHlC5toSZy6RZz5ztLycBCpcsu2v0nOIFblbzl1vSBAUrGU6rpBDZHa0 P+CoIcGrJzqGoWbZxBTJhPfyZxJc6tk2sVSfScDCX4WUdhIYOTwq2DibSdxp SD5e0kUCttRqYwG2TELT81v4dA8JDmvamaY8ySAiK6yWbEZJsMk17WDDkUb0 xm3wBU+QYKZtZ/sOz1RC0T5DKXmaBN/yttO4tKcQ3cy/XD8vkICdL9CA++F9 gmri0ItpyWCiWck265VM+O+mX7GkJ0M9v0xd9EQS8WE9VyCAiQxxQ2K1vK5J hFfO8MlnHGQoXztz6qHHXaJyxrWKJEqGATeULH/nNsFby/rzgAQZxC3XlgO2 3yackgtXzUhkUKzqzdIoTSTY0dSeW9Jk0NQgPfk5cIswj/bKo91DhpUpwa8W ZglEkQ1PjYQaGaQCr6yXLMYTNCov+vbtIwNKYeroRvFE3td5YR/8j+/aHKfQ j1hiYcfF6P7jZNh4Y7hDXSea0F0Ryt88SQZ+hydJ9QU3idSPZbWip8mgpGCV 8oHnJnHowurGaTMyODAvvh8YiyTi34d41TiS4eqF99vM30cQ/bclY/vOkqGR V+5KJBFBqJ1993jNjQxnN1vS099eJ3o5aAf2eJOhk/mRnUZ9OCFjGW6cG0KG 2OKfBqFL1whz7xJe+qtkgCKXkY3Qa0TkjdHPDuFkYJB4/cyY4xox9FLvGDWa DIInVTZPKlwlMtkFcPY9Mkhn6bPtk7pCtFB01mnTyDCWaB+9z+oysaERWH7m ARkM1GeXptNDCAunH3vIeWQw9bh1n1HxEiFQ+XBX5ksynDr5X9ef8EBCu/PL 0FYJGZQtPzy6PxhA+Iyz5Ni+JkNftybbDt0AolXQU0Kq6l+/kKSD10QvEjfP q/FmtJCByPJl+T3mS5Rfd/m80UaGg1d6ZiScfYnR1JQY6y4y8GS6Po4dukAc btxklOj9t+8+Um7plA9BQ25YSx0jQ3FSd6Y82ZtQVF8pW5skg2jc2K3FYi/C 5oSsv+UMGdZH/KZsj3sRFYHxM6JL//Y9ys5duuVJ+LebDt2np8B/3/o9r7J5 ELmjUdkrTBRIdOvX+GLuTnRsVtias1EgfZAwCStyI5RkSd+FeSnwqddHx9fG lZgIG21JlqJAqsxQ9/ysMyGaIhqzRKFAp/wFDxU7Z0L3md5RU2kKkBgDguja nYi83mc1gvIUuLAwenrrnSNhtzew7K4mBVq6/CcoNfZE/PFCv0WCAhVX+xwz j9sTlWd+qBgfpIDPVPYC+5czhFjcwf/4dSmwVK3I5v7XjugeZsm+bUwBnm+j vs8LbIh6o6i0cjMKMF8w5K+btyZKqpmT+ywpsJxlbcBx0JpIymCKkbWnwLf+ rJjvI5aEsQmDf40nBf4aSWn9dDAntGvDvca8KdC9soOb5aMZoapC787lRwHZ 17rtL9XNCH7ObXaWwRQY5xpU1hAxJTrraI7N36DA9HftQz/pjInaPaHaItEU qI5N1xkJNyKKs7YQjqOAzjal6G8sRsSdkM090XcosGt4Yb+auCFhuHddgppF gctZAarsZwyIQznBwkdzKeDmIGt4b1mfUOFZ4z3/iAIeZTfoExL1Cd6pFaaK /ygQrfb2Pl/qKaI9d2n29GsK5AkfNrd6o0dU816cDHhLAdux8JvqXHrEi9C/ wxnvKbA68NdF2Pk4kWi12DNeT4Gdu5iNYqWOEQb883XXOv7p/aqe0lqpQ8A1 n/f53RRgiIoVOaOoQyjNzL5u+UaB4VLtg0dzjhDcH2eeiv6iwH3UuN565zDR GjZ9/8XkP73sLf1epmkR72fP3fn6hwKjzVSGmR1axDPbqbjNOQo8MLweOvf8 EJGwfzLs2AoF/Ab2KzC3HyROzY+d62egwmiTnVuNEhDojKsLMwsVdGMOH59P w4TC51F7BXYqyLxdbF/pRQRn4YhpEC8VGOObel3cCKLFfuggrxQV1p/Fa66V ahK/6R8t36VQIcAi53kJnSaxkOfyVESaCjvsN48rnd5HiExMiJPlqXBXudzw 96Y64XhhbklxPxUe9tpLb0bvJS4KFD95iahgF7DXyGVFlbhZ6uekfogKZasf yYVuqsTTteV2dJQKP7Qf6Bib7SFWw7b+O2FKBYH799fuWysTHNJVjm0WVHjZ /SiDMqJEkBqviRnbUMFjes+hpgtKxGF2xigrJyoY7luyPCCnSCTcYXd0v0CF tw5kwYgVWSJHrUX0jz8V7nVWXdmlKUuUfI1v8wmiwvc8ifQvV2SIHnE+HHSV ClM0jdu7RXYT0g9FRKPiqfBi7eLm93BpYp9OTyv7bSpUBDVoOYzvIPTG0m4k JFHhU53aFK3RDsJbnrSYnE6FhYdHPwns2U68eSXdmldIBfaswJ46CQrx2XQ0 QuYpFVSeTyvKZJGJ/pXHxJMXVGiaOEb7YyeZYELyha/K/+nx3n6tC5GI0/V7 Imob/vEdN/VLJksQTi6LB3SbqRAbEmBTZCZOBLCWzje3UCH5kOCayF0xIv2k 5pmOLioMX9xw9ZIQJUa74UD/ABVevXN4a+QiRKwG0M07jVChKGmB5UK9IMEh Vvt4bJwKvn4CygO7BAkVWx2h2VkqhIgI6hxe5SfMcj6ELy9TQfT5t8GUHj4i ZOTE3NYWFWgJZR+uj7zE/wDhPRwj "]]}, Annotation[#, "Charting`Private`Tag$4228#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw1lWk4lokagPksLxEjlE/6LG9MSJxkCz0PEpWliJgWxnYkRajI0jHWTypk GdtlKdvIlolSvG/ZIyoiKZKSrZJ9rDPnus75cV/33/vfLevkZeXK4ODgCPiH /zr4i/n0+jpJO5fFfV9fJ3AkcPNc/wpJiy1LKuiuEGjx0+BC9V8k3XAg7+Sl RQJldLxXvWZIWmHgYevkFIFPYxL4PoyQ9Jjg8O2+IQL5dvWy6Ock7e2hYVdZ T2Cin+Ph/6STdIj8W9otisBiTt87HFoknZZOJjwXIpDH1WQ385QcnTUY7XWU nxdF3zR65sbL0lteWFsqivOgVX2as+IzGbr1iPX+NnluDPyu7xk3LE0fUpT3 I+W48MHlNI8ySxatW3oyv1OVgRYJNjJrqVL0coyb6G5FTjTJrLUwnZSkFxbu JJ3+mQPzmwN6fE8w6Wa5hD1159bgdHiieGfhFlqf52qlsssKhDhylQqIbqZT UEvLIHgJOFSkKaMIMdotw+7zeNYivL2WGlX8ehP9qoDFz5k2D1Ib3ItmDUVo WcHyf1FVs3BWQ4mnX0qY3igz0jn2xzQ4aw0U1tcL0OePRfxeWDgFSv5718/f 4aNd6wfbWAlfIee9dUOAAQ/9s/7a0cbQMfgSKq5nIsGgy9wrhx5VfYaapB3G o7arlNdMxclraUOgNtY3q5o5T+mE8Njzkv2wv6aff9V2imIFdAskp3eBd1HZ oojoMPXVxVOpbLgJ1ITOhxl++Eh1vT+iVZXfBD98dgr5lnykHtlq7K890wQ+ ekVkt8lHim26dqrteyNc7My1SA4aohR2xsV/WW6AmXHlgxrtg9TpmcpFabF6 4A1bzD7g00dlcy1cl2XXQZTZxaoCwT7q/BxVoCpcB3ybp9v4Ct5Qel+in+gn 1cKGoon5Z/29VN8zyTn7nMcg3DlgZmncQ21K2Hcy4WENSGxtXDwu0UWFyUQq cY1Xga0bmfMqqJV6fkXpRmtSKcRc8I1OuN9C5X2b6inLL4HaoHovq2/NVJBT tXRy9V3Yfst53yuHJkr50P4Kp74/YJq63f/SsJ5iM093L0sVAEvddGeuSA0V 401qnDTNgoiDo0uyYQ8oHbvyph0emTDpEN2aM1tFjYK+3dy1dKiJbXHL6a2k jIWPB97oTIGS9nhDA91iirM05gltGweBf70cRFYh5aismi/5IxYOKmwKRs48 qm7JtLVyDxva1rd7Xb2RSV1JDRIeeRQK7vZ5RSHHUqjylztd19YCgbtS/lOw ZDx11tuxWC3SD5Bppr9ER1DmrB3DjZIeMPV7qsuPVB8qspo1eMzKFoIYiY0H tO1hl+ZhmWijfbArzblZTPMqWCrmXhascYIBZsU3AeFYmLiYOdf12hus1d88 jjRIBLXeM2U5Fv5Q1Xf8t6jANPDT1jzj1XwVNtITZMMv2fDOLDSelR0GF9zO jjUk5oNsqfnhSYlrkKujbNZYUQRPB9R3WL++Ad2CE6WNHXfhHnGd8d40HjLs NfY6h1eAjbbvoBFPEnBw3F93rquG1FRIFQnJgOb2vhh16xawuamNd9RKwN3/ bfMJ5VYor896TOwpBb7t/dzhXM+Af5FX56xWGRwKfBfSXdkGDuXjEsyscmhX HPS5KNYJYsyHIh/y7oG7kU9J//grCB634TpfWQWe2ZeTtt3tA4vrN0fYHXWw V+XJvSMpwxBwJrTH8bdmYFwSf+fCnALGrJnu3aNdQAgeCXX6Ng+v/Zr2XArv h7APPUY+t1dh9KH508stQ1CeHnkkZJoTs6NyHF3Yn8Er1+WnT7Y8KD1fLOqf PganPdK2RYXyYe896Vpd96/APnpJRz1DAK1SPkRPxE0Bt1jSyNUlIczIi601 S56G3raIqXBhEWScOPeVJ2AWbAKdNNPqN2G7Y1GBVfg8eApMyHX8Iob3N0qe WvBcBOnipmTecXGUT5MdJcyWIPCBkbVw+hZcuhS+Wmy9At75nlWaqkycXNoq VKi9BoIMLaddnyUx599R3VtJDjQ+dyxJ6ZYUxhm0xzLlOVHi4TYv4+0sFPIq NqwXZ2CCT3S8Wq801u1/UFslyYVWkZYqmVUyuHLOQdNWiBuVToTb3AmWxXXe V6nKq9zYM8Kfe8tGDveY+jw9xMGLHU6fDTZJk7jw7u6o+DQvDnEXLCbJkWjg 2RJnPs+Ls/nuZUwFEq8tD2tHLPEic2JCSlaFRJbkVvYsg0AX3+kFVV0SjY+z FbtECVwKWy8xP05iwktXjzgNAhXymJLsmySqNLEmNwQQqGPS/0LwFomXbfYm GgYTaDaWERWXTOKTTzZ6V0IJvKAiM5eSSeIxruuxY2wCH99XeJFfTGIgLu9s SSPQqkk9sqGZxNaa3nMRjwl0dZ/TM20jUfTQjHgtTaD/huqZtg4ST/UJ1c02 EJhpsffXrtckfl8wFnJ5TuBoD+p9HCZxs8afpYYD//T6M2Zcv5Do0NBpe+Uj gRu3NhSNjZNYZD2xVjFC4G4Hky0/fpCo5yNnKfudQGNO/g6/ORIjOfct2M0Q aHf7WfjiIokv4uyz4hYI9DCO1Q1aIZEpc9GkZZnA//0X///fvwEYRpcd "]]}, Annotation[#, "Charting`Private`Tag$4228#4"]& ], {}, {}}, {{}, {}, {}, {}, {}, \ {}, {}}}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-10, 10}, {0., 3.9887450223586405`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ TagBox[ GridBox[{{ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}, { FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["5", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.528488, 0.470624, 0.701351], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.3523253333333333, 0.3137493333333333, 0.46756733333333333`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/ AbsoluteCurrentValue[Magnification]}]], "RGBColor[0.528488, 0.470624, 0.701351]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.528488, 0.470624, 0.701351]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.528488, 0.470624, 0.701351], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm], ",", TagBox[#5, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.78563618287321*^9, 3.7856362211505117`*^9, {3.785636251347095*^9, 3.785636267845048*^9}, 3.785636304278473*^9, 3.785636361691811*^9, 3.785636394058318*^9, 3.78563655273806*^9, 3.785637279625478*^9, 3.785646111536627*^9, 3.785721756488267*^9, 3.7857222720608263`*^9, 3.785722313617752*^9, 3.785736706510079*^9, 3.7857368115727882`*^9, 3.78623805847491*^9, 3.786431290305234*^9, 3.786431440078376*^9, 3.7864314860078*^9, 3.786431518347193*^9, {3.786432009232499*^9, 3.786432028532892*^9}, 3.786432161765634*^9, 3.786432205207759*^9, 3.786432235387581*^9, 3.786432331709229*^9, 3.7864325306261053`*^9, 3.786584097614246*^9, {3.7878111546906013`*^9, 3.787811166647397*^9}, { 3.787811287359997*^9, 3.787811319611458*^9}, 3.7878209138272133`*^9, 3.78987161525255*^9, 3.7898716626744633`*^9, {3.7898717101797*^9, 3.789871734055707*^9}},ExpressionUUID->"01243c5d-ef8a-4a36-a545-\ 59d90790de61"] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.7898716802014513`*^9, 3.789871698890932*^9}, 3.789874384893725*^9},ExpressionUUID->"ec79c726-6dfc-4281-953f-\ 8a672ac7f2ce"], Cell["\<\ It is observed that the our solution is same except for a missing term. When \ comparing the solutions graphically, there are no differences in short times. \ For longer time, when the distribution reached the minimum of the potential, \ our solution differs from that of VM Kenkre. The process of \ \[OpenCurlyDoubleQuote]shape-shifting\[CloseCurlyDoubleQuote] is not fully \ incorporated. The shape-shifting occurs from the artifact of the following \ boundary condition, that is derivable from the equation.\ \>", "Text", CellChangeTimes->{{3.7878207659573507`*^9, 3.787820793173129*^9}, { 3.7878209215816174`*^9, 3.7878210984684973`*^9}},ExpressionUUID->"a71fba33-d29e-4202-afa1-\ 2905a03bc7f9"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], SubscriptBox[ SuperscriptBox[ RowBox[{"[", RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{"sgn", "(", "x", ")"}], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "]"}], RowBox[{"0", "+", "\[Epsilon]"}]], RowBox[{"0", "-", "\[Epsilon]"}]]}], "=", RowBox[{ RowBox[{"0", "--"}], "-", RowBox[{"(", "7", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.7878219506329947`*^9, 3.787822019218609*^9}, { 3.787823776139462*^9, 3.787823780430359*^9}, {3.787823865786213*^9, 3.78782386947159*^9}},ExpressionUUID->"7828c872-6a1d-4711-9ce1-\ dc1bd647fc48"], Cell["\<\ Checking the solution given by Eq. 6 satisfies the above boundary condition \ or not in the following section\ \>", "Text", CellChangeTimes->{{3.787822069866609*^9, 3.7878221061920633`*^9}},ExpressionUUID->"8c75f060-1cb1-4f0c-8094-\ 5bf42f82763e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]", "=", " ", RowBox[{"g", " ", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"d", "/", RowBox[{"(", RowBox[{"2", "\[CapitalGamma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"uplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}], "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"uminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"-", "x0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ";"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "\[Rule]", RowBox[{"-", "x"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "0"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"Pminus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{"d", " ", "g", " ", RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", RowBox[{"Pplus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", RowBox[{"P", "[", RowBox[{"a", ",", "t"}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Reals"}], "]"}], "&&", RowBox[{"g", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"d", ",", "Reals"}], "]"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}], "&&", RowBox[{"t", ">", "0"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "50"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "500"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "500"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p2"}], "]"}]}], "Input", CellChangeTimes->{{3.784973382531039*^9, 3.784973407571373*^9}, 3.784973453208873*^9, {3.784973490409239*^9, 3.7849734921292677`*^9}, { 3.784973545710374*^9, 3.784973602356927*^9}, {3.7849736983293257`*^9, 3.784973746897428*^9}, 3.784973819854829*^9, {3.785026408764818*^9, 3.7850264594395323`*^9}, {3.785026496758106*^9, 3.785026518152152*^9}, { 3.785027417601671*^9, 3.785027460436181*^9}, 3.78502756819534*^9, { 3.785027831554377*^9, 3.785027837743804*^9}, {3.785027925860183*^9, 3.7850279477960033`*^9}, {3.785028003590292*^9, 3.785028143302545*^9}, { 3.7850285026004343`*^9, 3.785028602905609*^9}, 3.785028648917377*^9, { 3.7850287222627707`*^9, 3.785028722468671*^9}, {3.7850287583685007`*^9, 3.7850287676496677`*^9}, {3.785028868729085*^9, 3.78502887158766*^9}, 3.785028959775721*^9, 3.785029517545167*^9, {3.7850310350106916`*^9, 3.78503109050181*^9}, 3.785031150483911*^9, {3.7850312476503*^9, 3.785031426328899*^9}, {3.785031457870286*^9, 3.785031518283785*^9}, { 3.785031550050127*^9, 3.7850315575623093`*^9}, {3.78505619124794*^9, 3.78505619444779*^9}, {3.785056228142838*^9, 3.785056239457501*^9}, { 3.7850563006278543`*^9, 3.7850563367276154`*^9}, {3.785057176361087*^9, 3.785057223154725*^9}, {3.7851119763789*^9, 3.7851119794376698`*^9}, 3.785112107305561*^9, {3.785112160930594*^9, 3.785112220391262*^9}, { 3.78511226102374*^9, 3.785112324706792*^9}, {3.785112411676384*^9, 3.7851124568522*^9}, {3.785112499958342*^9, 3.785112521820695*^9}, { 3.78511257406159*^9, 3.785112594376501*^9}, {3.785112759091453*^9, 3.785112771725696*^9}, {3.785112891478847*^9, 3.785112967776322*^9}, 3.785128631195838*^9, {3.785128673419428*^9, 3.785128718130724*^9}, { 3.785129211034388*^9, 3.785129242628829*^9}, {3.785132134922913*^9, 3.785132150729128*^9}, {3.785634531592461*^9, 3.7856346180432043`*^9}, { 3.785634707538208*^9, 3.785634908990693*^9}, {3.785635012424786*^9, 3.7856350522421923`*^9}, {3.7856351752812243`*^9, 3.7856352600180283`*^9}, {3.785635296039534*^9, 3.785635296247053*^9}, { 3.7856356459978247`*^9, 3.785635653886629*^9}, {3.785635786372293*^9, 3.7856357979671917`*^9}, 3.785635845432891*^9, {3.785635907515874*^9, 3.785636003045816*^9}, {3.78563603374844*^9, 3.785636064126713*^9}, { 3.785636141992099*^9, 3.785636180224424*^9}, {3.785636218236931*^9, 3.785636354503474*^9}, {3.7856363846158733`*^9, 3.785636392151882*^9}, { 3.7856365270924*^9, 3.785636568737977*^9}, {3.785637277035548*^9, 3.785637292128517*^9}, 3.785638329094943*^9, {3.785638360611292*^9, 3.78563841051889*^9}, {3.785638554999076*^9, 3.785638565138321*^9}, { 3.785639840750195*^9, 3.785639847278534*^9}, {3.78563990949445*^9, 3.785639917174841*^9}, {3.785639947900155*^9, 3.785640094861844*^9}, { 3.7856401703807583`*^9, 3.785640239451179*^9}, 3.785640334483719*^9, 3.785640592146513*^9, {3.785640912477887*^9, 3.78564092468081*^9}, { 3.785640988973144*^9, 3.785641034828171*^9}, {3.785641242980406*^9, 3.785641346418235*^9}, {3.785641385143952*^9, 3.7856414419911957`*^9}, { 3.7856461567202473`*^9, 3.7856461865689373`*^9}, 3.785648607202437*^9, { 3.785722371652977*^9, 3.785722388596908*^9}, {3.78572261442492*^9, 3.7857227942602243`*^9}, 3.78572294139494*^9, {3.7857230357556057`*^9, 3.785723038650399*^9}, 3.785723120406526*^9, {3.785723183716804*^9, 3.785723246333453*^9}, {3.785723492146781*^9, 3.785723505188427*^9}, { 3.78572358842052*^9, 3.785723598088272*^9}, 3.7857236373225803`*^9, { 3.785723671693953*^9, 3.785723682377574*^9}, {3.785723755628106*^9, 3.7857238037227087`*^9}, {3.785723835116816*^9, 3.7857238780588713`*^9}, { 3.785724328104003*^9, 3.785724343460092*^9}, {3.785724797953197*^9, 3.785724837582121*^9}, {3.785724872480411*^9, 3.785724877881205*^9}, 3.78572557068183*^9, {3.785725606500167*^9, 3.785725788318345*^9}, { 3.785725886412608*^9, 3.785725888719977*^9}, {3.7857292887390957`*^9, 3.785729293323493*^9}, {3.785729429097052*^9, 3.7857295172355022`*^9}, { 3.785729551530023*^9, 3.7857295641539288`*^9}, {3.785729626828261*^9, 3.785729631712079*^9}, {3.7857296843418627`*^9, 3.785729685307703*^9}, { 3.7857297176072807`*^9, 3.785729721678791*^9}, {3.7857297632809*^9, 3.785729792853701*^9}, {3.785729885714163*^9, 3.785729932807447*^9}, { 3.7857301489088917`*^9, 3.785730155181096*^9}, {3.785731296594646*^9, 3.785731298526113*^9}, {3.785731338466015*^9, 3.785731347459262*^9}, { 3.785731396185073*^9, 3.785731542835853*^9}, {3.7857316730999537`*^9, 3.785731692340695*^9}, {3.785732094338744*^9, 3.7857321294585447`*^9}, 3.785736896128092*^9, {3.785749450665338*^9, 3.785749473919091*^9}, { 3.785749512620008*^9, 3.78574954529128*^9}, 3.785749575556999*^9, { 3.7857496538559437`*^9, 3.785749677843833*^9}, {3.785750619215909*^9, 3.785750633500407*^9}, 3.7857507169524193`*^9, {3.785751022302621*^9, 3.785751026304657*^9}, {3.78575161190547*^9, 3.785751613682143*^9}, { 3.785804027361512*^9, 3.785804031171649*^9}, {3.785806379445835*^9, 3.7858063825344543`*^9}, {3.786097077585112*^9, 3.786097102615396*^9}, 3.7862345975748453`*^9, 3.786238119831876*^9, {3.78623816423006*^9, 3.786238187712056*^9}, {3.786238735106958*^9, 3.786238835846356*^9}, { 3.786239343645136*^9, 3.786239375188414*^9}, {3.786239488960842*^9, 3.7862394901949873`*^9}, {3.786239593408165*^9, 3.786239621275249*^9}, { 3.786239706839487*^9, 3.786239715528392*^9}, {3.786239763750646*^9, 3.7862397667570763`*^9}, {3.786239855216997*^9, 3.786239871750087*^9}, 3.78624016828012*^9, {3.786240323696919*^9, 3.78624035789079*^9}, { 3.786241337147925*^9, 3.786241394524354*^9}, {3.786241430209866*^9, 3.786241432718336*^9}, {3.786241520876589*^9, 3.786241526691947*^9}, { 3.7862416994151897`*^9, 3.786241740330049*^9}, 3.786241778620837*^9, { 3.786241959505136*^9, 3.78624196611828*^9}, {3.7862420057842607`*^9, 3.7862420274952374`*^9}, {3.786242148487522*^9, 3.786242176190484*^9}, { 3.78624221226576*^9, 3.786242241882431*^9}, {3.786242309638043*^9, 3.786242344297035*^9}, {3.786242421727386*^9, 3.786242430905657*^9}, { 3.786242539794845*^9, 3.786242545049514*^9}, {3.7862426403618813`*^9, 3.786242648030233*^9}, 3.7862426947735453`*^9, {3.786242778214889*^9, 3.786242846521072*^9}, {3.786242888081623*^9, 3.786242938299449*^9}, { 3.786243024643671*^9, 3.7862430836714373`*^9}, {3.786243332094623*^9, 3.786243489962751*^9}, {3.786243639537039*^9, 3.7862436676753063`*^9}, { 3.78624373042838*^9, 3.786243749238144*^9}, {3.78624378682434*^9, 3.7862438166338863`*^9}, {3.78624388317428*^9, 3.7862438860439367`*^9}, { 3.7862441225426483`*^9, 3.786244174352195*^9}, {3.786244221067224*^9, 3.786244224069893*^9}, {3.786244274814118*^9, 3.786244363129301*^9}, { 3.786244418855311*^9, 3.786244432124887*^9}, {3.786244606662636*^9, 3.786244654782085*^9}, {3.786244685358374*^9, 3.786244794485537*^9}, { 3.786244838309141*^9, 3.786244887031479*^9}, {3.786245418034975*^9, 3.786245455283634*^9}, {3.786245815855734*^9, 3.7862458299653053`*^9}, { 3.7864329446832657`*^9, 3.786432980091126*^9}, {3.786433020235675*^9, 3.786433070357012*^9}, {3.78643310071775*^9, 3.786433144687785*^9}, { 3.78643324179961*^9, 3.7864333591879253`*^9}, {3.78643343427116*^9, 3.7864334377230873`*^9}, 3.78643348312329*^9, {3.786433761188197*^9, 3.786433777975214*^9}, {3.786434863532064*^9, 3.78643490336158*^9}, 3.7864370320898447`*^9, {3.7864374024184933`*^9, 3.78643741671774*^9}, { 3.786437494116846*^9, 3.786437495954767*^9}, 3.786437531888036*^9, { 3.786437655100815*^9, 3.786437664079895*^9}, 3.786437774878483*^9, { 3.786438017735795*^9, 3.78643807926936*^9}, {3.78643836131601*^9, 3.78643838927759*^9}, {3.786438471193595*^9, 3.786438531406057*^9}, { 3.7864404261343613`*^9, 3.786440452614992*^9}, {3.7864404932141542`*^9, 3.786440701344627*^9}, {3.786584030567078*^9, 3.786584082073954*^9}, { 3.786584146130535*^9, 3.7865841897167273`*^9}, {3.786584425089847*^9, 3.786584570563345*^9}, {3.786584655670302*^9, 3.7865846589017267`*^9}, { 3.786584702528523*^9, 3.786584770361373*^9}, {3.7865848014924297`*^9, 3.7865848109126587`*^9}, {3.786584894139979*^9, 3.786584925876279*^9}, { 3.787822316567485*^9, 3.787822322692831*^9}, {3.787822353759581*^9, 3.787822381350556*^9}, {3.7878224293397703`*^9, 3.787822507965474*^9}},ExpressionUUID->"519492b8-0ebd-4897-a4e9-\ 9ca77539fb50"], Cell[CellGroupData[{ Cell[BoxData["\<\"Continuity check\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.787822522856667*^9},ExpressionUUID->"2b9a5c94-c2ca-4d67-886d-\ e8ba6bada002"], Cell[BoxData["\<\"Initial condition check\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.787822522860903*^9},ExpressionUUID->"1350f7af-64e3-426d-b4ce-\ a05595ec4d0e"], Cell[BoxData["\<\"Boundary condition check of kenkre through 2 methods\"\>"], \ "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.7878225228651657`*^9},ExpressionUUID->"546b73c3-4c6d-4186-8a7c-\ 028cf36d25a3"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7865844844715757`*^9, 3.786584776822131*^9, 3.786584815895084*^9, 3.786584860312608*^9, 3.786584926973483*^9, 3.787822523177746*^9},ExpressionUUID->"7151caed-1aad-4fd7-a206-\ 379528c96d49"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7865844844715757`*^9, 3.786584776822131*^9, 3.786584815895084*^9, 3.786584860312608*^9, 3.786584926973483*^9, 3.7878225232518263`*^9},ExpressionUUID->"a9cf5d05-2d06-49b5-95f1-\ 0df292a014bb"], Cell[CellGroupData[{ Cell[BoxData["\<\"Analytical check of Mr. R Saravanan\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.7878225232598057`*^9},ExpressionUUID->"8a6cb7e7-00d3-4246-a3ee-\ a6e8d18b7848"], Cell[BoxData["\<\"Continuity check\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.787822523702897*^9},ExpressionUUID->"896ce4b6-8973-4d0d-a972-\ 48f2e7b8e912"], Cell[BoxData["\<\"Boundary check of Mr. R Saravanan which leads to \ differential equation at x=0\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.787822523707238*^9},ExpressionUUID->"9cfaf94f-4af7-4ef8-b2f0-\ 3f8c8e5f754d"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7865844844715757`*^9, 3.786584776822131*^9, 3.786584815895084*^9, 3.786584860312608*^9, 3.786584926973483*^9, 3.787822523794883*^9},ExpressionUUID->"46d42c28-7d80-4d26-9bbb-\ 53bfd1c43a69"], Cell[BoxData["\<\"The analytical difference is\"\>"], "Print", CellChangeTimes->{3.7865844844012003`*^9, 3.786584776812274*^9, 3.786584815885933*^9, 3.7865848603030863`*^9, 3.786584926965489*^9, 3.787822523804495*^9},ExpressionUUID->"9e6a7a36-efb2-42b6-ab66-\ 33a07f484250"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]], "Output", CellChangeTimes->{3.7865844844715757`*^9, 3.786584776822131*^9, 3.786584815895084*^9, 3.786584860312608*^9, 3.786584926973483*^9, 3.787822523887891*^9},ExpressionUUID->"a5a82343-ff9e-4518-b1d6-\ 2206900ed033"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1nk01dsXAHCZx9x7v3cqZErlmso83Ps9t0wlyhAqUxGJDO/JlOSSKXqZ FQ0eJVODSshQu3CbXmUoKXOiDC+lcFH6+a31+2mvddZen7XPOnvv/46iZ5C9 Nz8fH1/j0vlvjv5oM/Xrlw7w/S9GoqjT3T9+ewehf7Zm7rcVjIJ/Bn377Ycp maIDI78tqvlmDTz/7ewj+7Zzzv12xYqQy3wGvy3kbam9yk172VhXy+GijE3L tm/K91J9unHZUZOsw+lDWsuuDc/3u7FT8/e8mY4Ki3nqy7a80Lhj6wRj2Vce RXaGuKgu2z0+m/KydP2yj+8TuC6BrVs2n4b8fdOEtct+l5qXVPFaadmy4r5l 37coAr9l6PrhE9aC/noMoW5ZebDc8OGd1S1+OS+DvtKmJhk4vEvdrqfmgyYj wvhX4GU6uBCLqn2fDhpB7w7GUC4dJHOP6U82Cho7mXo5Op+kQ/uKU5e9m9Yb x608VYEC6dDn531h99kA47eXe50JhnTo2eEoVJc/ZZzcxqm8+YwGYl/CyswP jJqsMcjpVrlHA2JmuegTD2Fm1fky4fxKGnivOuKf6qHMHDjY7hqXQwOFjs7r HukuzLDnI0kzSTTQucipCS4OY0rqLNzyO0qDGlqdzrGtmcyis9J9fYdpYMcf vWUP/zWmwaKymIMHDbZ66GvsucBl/uNlqPvIjgZzJtJ5I/aDTM8n1h4mZkt1 fVPPZ+R5Jk9zf8oNfRoMVUr4vrDCWKezQ+8oqy7103ppc1NCnbV2/uTAGRka mGdG/lQSNWPVeVyUkFxJg67i3bSENa4s25Zb+hw+GuyYlxW+dyCENcJ4tP/7 FBWuGS8yQ7elsI6ld5/yHaZCv3uvaX5sIYs0M1nT84YK4qgrtWS0mlXqIjhk +5QKu2Lub5kJf87CH9BXtjRQwUr0iQO54D3r1ToNI6MbVCCOdE1qKsyy/E5t PnCtkApjpNmickNJnG/KMU0xmwpxNnlNbeMKeI6zX11OIhVm6tsvHv+igzMa jw+LRVLBPfXx9WKqJQ5KWYTj/lSwTShs8TTfizsll5hMuVEhWqHu7DWPAHzi 33ofH1sqvHcxM5pR4uBxDq0Z77ZQYU/hbdKCfwZOv/uhYYceFaLqHZWuRhXh 19fMfXy4ngpigezaV2a3cbN4KcxgNRV2CrXE72pswt+NKuIVklQYiJDmzvZ1 4ME79Q/J/6JA0YaY24slQ7jwHavsrK8UeJYrjpnJfMPPrfa4L/KBAs0uArsX ET/ayAkZi+qkQPgZvQ4lRSLiDidRvjymQNOTKwvzZ+WR6/bz7AP1FEhrmDba eEkdTVVW+nddo8CxHt9Y+VgjlExtybX+mwJWixXESTsLtObY2weQSYHEfvtR 7iYHVDX474RuAgXeXeVLdDPch6ws+ell4RR4m5t7W/GLHxq4SjWV86OAMtVm k+xCKAojqQVmuFIA9gmkTRfEIskIlCe0kwJqamJA4aaiwl6H5sjNFFBKvKM1 w8lB2h+051/pLu3j5uz/7+sC1DxG3LhxAwUIUbFPs/VKkOPXL96pMhQ4kicw TS6vRCOzL8+NrKSAe2635R8ZNSh88XrbZn4KONi3UL4eAiQqdFrkwjQZuAaX VpnGc1GeRACL94kM5/qaMjv8XyAGyTrEoYcMeNlg/DbWK1RPVyu7/pIMDRen T/IS3iFrefF+sSYyvG9gRt+TG0S9KqNk72oy0JNi/2p8MIwC1R9bQRkZ5l+I 7K9mjqNf2iUcmQtkCCyJ1Yl9+gWlGyVWh6WT4WzNKr5Sr+9Ike090XaCDCHC B6V3evLQLQszJY1wMhRMDCh61P5ApjbKu5P9yLAjar7jYCkf+5UD/+khNzJ8 j/aPHRERYHvvHWzC7cgQKihgc/eQEHtmH8zlmZFByzybnlYnwk46WKA1bUCG tKAIKB0WY9MDj3vbqpEhr2FokL9Tgl1+xO1cxRoydBq3xhWFS7FNophtwiQy uCQ0x3yqXcn+J1ZGxFOIDHczvHL/SZVmuyfPMxt5GKg+zgkfHJFmT55++yd9 AoPgKyLlIlxpNientjSkH4PMuZvNDQxpNvH8mb4X7RgELFyoXZRZyS4qCiMz uBh4NVqoc4sl2TpljlYJdzGItOt9odIlzm6+ocsZuIpB4LBqtgpXlO1YjVWb /I2BvDf7dVi8MHukYWo8NwuDZp7gbYUNguzwpjbFqUQMbAUlbm1pWcEWfVrp bHMUg+NplXlSPYsorzXtr9IADAqMr9DLveYR401gk8B+DCb170ZeNppBDb02 c+67MGgP9k93DJpCNh/UteosMfDcpXf31JrPqG9MwptiggFmt84tyeQTCv46 lh+siYF9Mxo8qTOEVvCetD5TxKB6p945Aq8XZS6WCq+nYPC5YHfNOdE3SFko mRknioGHYa3/kaA2VCVx8M/eBRJcE5skC/x6gsxJFqWGkyQoeMbRRdQm1ElX 6ct6T4JV2UcH8vPr0UF5QfLkaxKceHwjtrD0NuKpDG2zekKCnxwXy/qsCnRS /WFMcQMJojXfCN6XvIRW6xTe4askgdB9z5zz43mowogz7nKJBO3JyWZy7hmI yfZQrMklQZXCoSs/xhPRcwvcmZRCgtcOdCufZ9HI3Ubur4BoEnRGlP5kkELQ pMOPh4+Dl+pfGzr8JXwRZ283T/kACfbbmTrYdrsh4v46zRhnEjy+p1tUuNke FR3MO/DOaum+SMmi9E9zpBMYka+Hk0B18WGJCcUYNR9xbk3fRIKUlvOXGyM0 kVOUvvDEWhIIPlSvu52kiD7GUpiWdBIkKHFV9vZiSDz6xmSWOAnWitYvnF8l hDQjtl0a+EEE2aA93iAwg9uHDDlpTBIhLCRarzZtBA8LjBY/OkgExuMQzrrq Tjz/EO0et4MIatWxRL5QLn7vwM0/MC4R5Fyi4ute3sHfe2xX2VdLhKoYbdfF F5dxYZfhrqvlRODkjheMxGThDKeYU3PnieC0R5c1PBWL77BbxbZII0JcKJYc YByM/2l9+1tmLBG4ldg5aocrnmNpU9IfQgRdYrDAKpVteO2Wj3vVfYgQSrPW bEjVw3tYsSsjdxPB/FF0vI+SEs5nJPOwxYoIYlMJ+yR/SOFrde+EklhE+Hx8 ROLIHh5rq9ZOVQ+tpff/FoljHB5iHWaM9lQoEiFtpfZgSNALVrrKiXQetrSP bSm+93ANq0pBzsxcmAge3w2PTlcVsrpkamYzeAQQ5ngz2ransH5Q7Sr6xgiQ F5InzNMIYSmQxt3VegnwRFXR1SLKhWUqlUCKeEkAL7GWzV1OpiwfUXlu8wMC FLclnHFvYLBSBO5GEqsIoC0kUiy3nsS6vmiv4X6FALL+Wa4p+jxm+9zEQPlZ AryU0/AxvNvPnPmemD2bQoChLYetHxxqZq7+orDVLJoAHd2ymqPPy5j4eN1C ehABDlVu89UXSmd6juy60bufAHLXZ79JpIQwEwc/ezJ2ESBKQ5p7wteZWd6T TA23IIAft62jMdWEOdXeEE1QI8B2rVYjXYyfyR+z7WziJ2m4EJ1t1yN70gRt Gm2zk5KGOXnB0oCkeOO6nA3mn5ykwFunoTGRpW4o6vLRawVTCpSGtF533BEw dFK4ErdaUQoCJZrffxPvNpgqVwbrcUl4XtXKNFVLNlCFNSY3YyQhycrIutCr X//sGHnT0VIJMPFtk6tQCNcLRSvkJOfF4M3JsQaJLW7aG0fffte6IAzCPNlq YtY0w6yuW+ynEx/0+sQEfy8eogeX3eARsW/3///fdPJRLmw/9nbZydz51t3y Kcv+DxGWLog= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S57Biiw0j24KWD6ZzifqUz0TookgwOM z84T0Jj0jg3Ob35wzbloMS+cv2F2W0DdJ0E4P39RisCTMFE4Py5rlmx7owSc 3xlYZmk8RxrOZxGZ+qz+lxycf/1064cWfkU4P7Q6yWzWYSU4P4f7tdK5KBU4 X371sWlsr1Th/OodzsH8s9Xh/IJlOdvM9DXhfB4m8yS9p1pwvmtuyFStyTpw vsRO2XxXFT04f1JRx0SD6/pwflCbv+7cbQZwvlZ0S+iSWkM4/9ozzkWTQ43g /HNJTx2F5I3h/Icsy39MVULwvyzLWC+phuBLvn4to6iL4KcUf/qub43g/2r+ v9Y3HMFXWyop1dmP4Fu6377AMxnB93k5p33CNAS/UFfh6/S5CP6erWoXlq1G 8IOOGbcdOY7gp2Z8tfE4jeBXcG3/fPocgj/Xzyrx8lUE/8U1B5tHj5HcW8H0 OfU5gs8rfWTly1cIvlG8u/jHjwi+KyPnuZKvCH7E4lMtP34g+FmuPdY1fxD8 2ue+n/7/R/ABUwufmA== "]]}, Annotation[#, "Charting`Private`Tag$12859#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1mk01V/UB3DjNXO5hsu95oqUIZTk/n6HkDJFpoqIkKGkDCXznCElQxIq lSmFEqLYMpQhU4gyiwwpU4jo6VnrWc//vDnrs9be3732eXUkHS4cc2Kgo6N7 QU9H97934Dejxb9/VYDu/86kv+CvL3/+szFxeLX893+WUPfcvLD0n9/G3mId mfzPrAqfxODDf072Pm0Qcvc/P6H3ekSn9p+ZnfSUhU8p/79JfQ3nshP3/L+P 1aWf2dmsBIG1W7xlR/fT+f/Ezt0cV4QnadFXlu/9Yq24nO5WdFQBArXbG1cG rhGNb1lIbN3ZDUkqqQ2x7VSyXuYb48Pf5SAnPMfo7o4psZx3fr1e1juBH/Qt hdHTbbYRyQLteTKgEL1r5U+esVzQacZnHKQdILQctzU7uaZAJy9eox25DTyI oZ/muulUPsfdiX7SIwUOVSV6Gkm1+6jsLvnLByWBZDLv9/T6M3X3vXLMX6ji wFhZ3GsxpUa7xPwq15dHHMS25gfozmrRrvbo6fMxiMPQtvSJKP0jtFgfpxtH vomBXBajUcStk7SCl/eFK0rEIGOq+8uD1wG055GKr80eicEi97qiVHYErdKi 2vZnqhgIxTQXH06+Tmv+9eXhjgAxuG3PbCSKZdG6GtwOvfUQgz57dy/Dm49p n1N+T52yFwOBifch8OIZbczpWtxvMzHI1FrPe9v5kja9V0gh5ZAY1Cqf52j9 VU2bZ87pUFIXA/vDwTq+cw20tR5Vr9ZdYiCh8lr7G307jS6nTsBFTAz8eFrO 9I710Fh9j1Uw8ooBX/FQY9enIRrx0OjJe4xigO49yxF5PkEjC3puHlgRheHx A/fdrvygSUxu3eudEoVepwp9LZtfNNmy6wcvfRGFpg3OjqyJTZpSFHWCq00U WIiZ1wnjTNh+yyfR+SAKErxhcQ5SXJjmjgNyui9EIUPwRXXPYX7s8Mr71pHH onA97jZdkjIVM2m0uhCQJgpsnSvPS29KY8dTJ3nJcaJQZ4219Irswk47+5S+ CBSFJBmjG3LVytjZfUxWRz1F4cBd1/TLI+qYByHp94yDKDwuDeaW7tHCfHsl M6IsRGF33cVqtZjDWFBOMS51WBTuOAvGtPebYFG+aPTNgX/5cur+2ylWWMKh tvAT8qIg3PVsB/cDOyxV8NSOX+KiMKca9Pd8hhOWNTn7/iafKHBbuDIY+5/H csquuu9mFoXEloD2PSRv7FkUG/f7VSrc6Gggzej7Y2WWacVnZqgQ35p1yCYy DKveIWP2d4AKu8LmcFZyDNa48vJXejsVXgT1pgSv3cTaGnXS9r2lglB9cqX6 TCrWm/rxQFcpFcaI9c/OjWdhQ84Og+dzqdBqe8/d/P0jbGLfQjBbOhX45zR+ Cc4+wb4TQqQex1Nh/7ecJIuK59hyL3eDZjAV1rHJ0U6eV9ifnMyzAxepcDBd Wda4BjCmy7vZrzhSwfX9k5MixxsxTr2qQpIVFY5csLYvefsB4xfSP1p0hAp4 v7EHd9NHjPqtb0GfRgWXrBCakvZnbFv52eRJBSqkIOz2RedRbHf0yr4wSSoY Tu++EMj0DVO1iuwX5afCoafhOpedfmA0Gf6AVwQq6D2zHVRjW8Z0VrPFLH5T IEIgbvi07Tpm+G5P7fwsBdKNdZLsjtHj5rfhTPwQBU6qWslvlhNwm7NHCbKd FGCxDK9jq+HCz6gN5dXVUaDVSbWmwZOEO+epWR4qp0B1m77Xtxky7iacyNhU QIH9oYr20+Pi+PnYmWKDLAq4607YXTy9Dffc0LZtS6RAy2aVoRmdHO51LpPD NJICKkz+teE3lXDfwZWKj1co4C1vajXPtxf3MzZxtjxHgVfBvB8vNBzAA2ry Sf12FBA3SNZ/vK6JBysx1lqbUeBswds4y1BdPOyBjcfQIQrI6X7YHqtsgEfy lVHsD1AgO4VSIL/bFL8WztM0Lk8BimVKl16uBR637OLrLEkBnYj4RmNtazzB 6a30ND8F9hRPJGyTtscTeymd7qwUqHjSwa8V7oQn6/kE/dgQgRvbN335Vt3w 2xVtuy7+FAF919Oak8OeePpO2f6lMRHI29HzrUTQB89MD43y7RUBStWjhEGT q/h9ji8qv5tEgGrXESbqFII/DFAd9X8jAgJDu/CvThF4ztz1hK1iEXglWvt6 v1UMXmD7TSP00b98eUUT+Qs38KftmtOMaSJgRaV4lF5Owos101Oj4kSgsFl8 roaUhpeWLGmzBYvA54sX+4arMvFyKaOFuEsiUPsyUlLCIhuvTMrJ4nYWgZM9 mEbkrRz8DROdYeIJEfgQc/+eDTzBwefEb5KRCKhcvW1WxlqC100+z0nVFAGS 48qs6Wgp3mjFaS6s+m+fV461IQmv8Kb3TvQZMiJA/K3fPq1Rg7eq1zwTo4hA P2XhSw93Hd5eQLZ5wC0CGcdlRJf2v8O7KJfYtjGIgOvHlpaDWq14T3xLWc4v YVBzf3mld2cn3re5zXHntDDk7rzqINnVjQ94BPEWDghD/bj0itn+fnx4+FO1 QocwRGhHeH8OGcLHTPacK6kTho2UjSJL9zF8sjZWWLVcGLLKF9RU903i08pf G8sKhGGoULu3oXoG//4Q81bPEoaVQEnSBmke/8l/W/J1ojDsw0PHLI2W8MXI +TY8Uhjseg8kOUiv4r9WjgTUXhEGAZeXxpzPN/C1sw936pwThhNNLkXz8XRo o+9Pb6OdMGxpDbicBka0dcQy4oiZMGzyHmE2i2FB9FVFe1oPCYPI+vjqIXpO xLSbbdj4gDCoSsycHcomIpZMh/hOeWE42Ons5fiahNi5X6ubSwrDfCpdzJfT Qog7WOBbL78wiFvLEUdzKIh33iP5BKswCHEYaO83l0D89u+1BjbIENGRtl6g JY3IXZI/bX+SITHkUm5v4Q5E0fbPGB0jQwfblWm1fDkkVtp9xLGXDOO9fgas RopIcrvC6mQTGd5Fa5xoPq6MtqVGP3J9QwZ+lU69Nr+9SIZl1PR7MRl+BK+o DQqrI7krB/56PCLDnhM5Wu4GGIJBY7nxVDIMHuuK1dfXQpbaZyysYsignuVP 7rTTQd/zLoe0+JMhWft077lVPRTGHf8EeZBhqSzL/Po2Q0T2vt/74jQZOIad /94OMkHP+kvpZc3IYH8h4xHJyAzpoKbdGbpk6AnezHsRZ4n6Hw1aEfeT4cDH HMbd+ieRB/tiWIQcGTwXTd0E020Rkyfh2RqVDMdPn7948509Su8R6T/HQ4YL MhZB9+45IiUNRaZRejLsMHdr8hg9ixrvaytaLAvBlU02n/h0d2RDOH6yaVII goRMLq/3X0CL7ucisX4hcHIy7Nx+/BK61hlSXNIiBEcS+UtHhHyQmFrKl+3V QkDqG+fau+8KKs3IJ6QXC8FSxdFK8Wp/pM9QvYf7oRDwDZ4Jyq4KRiNnu2zC UoTgxDaLyGnRMOT7YTJ6JVoIsCXNZu+cCMSpsvHc7aoQxFycdJYJjkbZaTxD Q+eE4I7HVqB5cSxS25JmM7MTAnbBluWlgwmo9cx+1XemQuATOtZvJpGIHJoM 7TR0hCD/QBrjyIkktKZgH1u0TwjEvG5cvfcxBSUk+7yU3ikEJfQUhfNJaWjb eszIbYoQwGkny6B7d1GlXRYHJ7cQ7PulQ3DYykImDc/3hdAJQScHy1yw9QM0 KffOfnlREPhaQnv0XR6igJtf4l0mBGHX6COhk/mPEd/Kz/KBT4JQEu6llimV h/KsmcZNmgUh0K5iQ6avAOG1ZO6G14Jw8GfDgELbU9S9Q15dvUgQOpKt7UIj ipFbvJbj0weCQDKMXI089BylWLlVpkQJwl3WvtjjWmVI7k3QBJufICzO9rs/ DapAIJVEDHIXBKWQi/QPpyuR5bVcjcVTgqC49rDDO+IN+j5X5exsIghPsYnz +bKAwsw6Ej8fFIRo+LBXIb8WkV99fW28VxDC7zegDzp1SCeCi6QmIgijigrp Up2N6PO0JP6EUxDuT8ty36h7jzyP7nMV/ysAsWw74vy7m9FdEbsalq8CIMwt saRg3o6UQrxm/HsFQMc/rm56tAM1TkQLzL8XAJHPnpa9O7vQYnGxe99TAagi 5bawznSja4INqYb3BeDi1M1qikMvEgvor4VbAsCrMbd7ZPoT0tdjIOdfFoBq r2hpBpkv6MGgWb2flgB83y0aeEt6FCl/VV7vVhWAMAf591KEMVQ/w6ukJPtv nuFAPv3cGJpcbb87yS0AGjFhmekNX5Ecn6GX2QA/fMywuXc5cQpVkXflP2vn h67bUbw8UdPIUJx9mK2OH6oHnQ50+c0gj93v9SGfH7YThAaLrL+j54d0pOQv 80P3x8pjjxZ+Im0j6ePX3PgBr046aOk4j7rNGBLGT/HDhsOuaLHWebRyGn7f 0eGHN4Y+aZ8SFlD02XuKv9T4QbrWlnNzagGRPYKcTHbxQzhD14lObBEVeJ+6 +0SMH/YMl8WuxS8iDX9aJ4GPH6Ll31RSehdRayiFxYGZH5QyNl9Ok5eQ7bV1 2ps1EihNbSYIWSyhnwn9l8jfSZAhmSJnH7uEQlIq8ryGSaDRdhBiKpYQb8bt obYuEnDl5RjZDC+h7GxffrlGEhRRJzeebC0hlXwL/chXJFjeM+9jLriM6otU Q0YKSWCYVq5wYMcysigjlWncJ8Hg+qNUfYVlNPl6cTY1iQSbV4pRwD9fruuU XIwigRY7/Gz7V8/aXGxldJUEOVXkBwZCy+hOx43reedJIJQ46slEt4zkPnnU MdqTQLf8mz//6BJ6PWj029acBB9mGQvuVS4ho6+7FSv1SLA+W+TSFb+EhmY4 nAQ0SDDzPNpi1GoJeS7MpHsqkGC+MqOflbqE6NeaOlok/71HQ15ZfP8iurWV R5ARIEHKSdPo8puLSJr5Gi2MlQQyva0qn7UWUSnH2UuDG3wgt2huYzC3gHrJ 24eSxvjg4t/lwHjVBXRWnIn/Zw8fbFP2y5TonEdr28eP6Dfxga7L6d2xrvNI ROXBS7piPsCkFmLYxX8iWyPR6+cD+aCPcDK+9/Is+hYqQNMj84GrWdIts/Fx xB5Y9DOJ/d+8aMPrTBNjSOHKkYcjf3iBc6zSZc/sKPL1CGS/OsoLsoW70gJZ RlC6q1B140deMOPZQ3HHhlC1Y8lFUiMvdKn71an6DSCC9URfYQEvZAUu9Q9T +pGcZXD87wxeCE5YkF0P/4SMTYU1D93gBY2zsWGjGz0oRc8od9iLFyxfJcwY UD+iioPfTu525oWe09tNZBo60QAWyu13nBe6TW1sw4M60DbVlz58GC9YjBtA v04rOqx4dKedIi8stN7S1RRuRufkpgeeSPJCZEqizyGu9+jm9vCbayReyDZw d8IlGlGphKiOLoEXalN6dtiZ1qM+Svlq4hoRzlm5Hnt/7y36I2j6ZGiGCLMc CgGR7LVImyuS70o7EXSymvtf2L9GzqzijfW1RHhYp6od3v0KxTK+8uMtJcKi hozy4cvl6NnWMXnbHCIMPgmAIr2XqOv395GCNCJcDzqz10H7BVpZjkpejSWC xoJKAotLCRKZlzisE0iENMm2vbedixA+W7lx8wIRGva5WtfpFiKHSfOiQXsi TBe5vuFxzUdRoz8c5MyJsF1AvoXUmoMKBq4JXj5EhFAubuFot0eo7ZNUc91+ ItBTHofoamajxa7XgcRdRHBo5Ig8duQ+Emyz3HNKlAiZtSMcFYyZ6EDT/Nd8 HiIcbQ9Iv9J6B9nWx6at0BNB2/cxy+pEKmIIPpIWNcUDn44cVX1wJBnp+wT+ Ff/AA2Eqmo7aC4ko0b3E+VUJD3CZR9gQn91AffYTH46l8kCqP9OhnzNxSOK4 8N7vV3ng1V+Ra7MJ15CLsVFGpB0P6G4sNobcjETFOqGM4jo8IDdlwtI/GYbW Drx0q5DlgV2G6emNMSEI7ZnuNOXigaLp6Nqr4wEoSkZUfXaBG145LXLeVvRD baKm9yN6uSH8qGKD9KwPEuSPZBGr4oak+cfbr7B7IVv2Vx7l97ihrpx3aj7M E+XQzfWYRHBD44F9OKScQ3MrEtiMCzc8l1YzXn/uglTnzB+FG3FDSdipnHwj JxQwfo1DVJkbqpk757ysHFB9/+tLZYLcEEsxy+qPskOcHfP9Rze4gN7v5K5F Dmtk3rhNa3qYC36wGfI477RCd18fzwur54I2b2vF+61maOx5PA81nwvK3Gy2 eCZMkFw++L68zgWLNdv2/XpniC7dWx40vsQFenY3GzKvHEaVKbK6U5Zc8MY9 a2GtXgexWn87Q0/jggKuHf6GOf/+dxI5YSKSXPC4Xu3D0gKGHk04PlAhcEHn DcHmTWt1tFggDYaznHDNEeOy8NyLND3Hhpw6OKGw1v1rr5AyStj7YDPoJSek LpaMxQQooIF1O2paOidMZ9qSJx7uRDtBTKMkmBMcB2/VL0VtR76RgyeaHTmh jnXnvXl2KVSvn3Fl/AgnOMVO1OnuEUN8ROvbfxQ44WOgQc2omjA63SNcJsDP CaZNn7b/IQigZ+l93Qq/OSDuz52zuSG86I/d7SW9IQ4oclR4ZiDIhfS3W/LZ 13GAzpkN2RoJVpQ2w7/nah4HnMhTL+tYZ0STRR+PJl3ngO9p+cdkIuiQqs8t j8JLHCCj9Mvc6uAGHnbA9HqD1T/z9U2/9V7B2//yFA7ROODSyV1iTy4v4tSG tuZVSQ6oExuxuHrsB+4We32ayMIBW8cvlZb3T+EVRw1Z5b6zw6/CLM835l9x ggCHjHYnO9jErvzuSR/BzT836dqUsYOkvqtbPOkLnn3vmqPPXXbAZb2q89h6 8XlHvfCEEHbQmOQOG//WieNyhOxcJ3aYilqQ4uD8gMf/rAfQZwc/KLAnRL7D P5eGD/crsoP0dX+1IYY6XPbqwa1FfnZwyD1zyeJZNe6D6EU519nggXrB6mhZ Bf6WCTS2D7PBqkGNbsnwC5zYHHQSr2cDf4fnbKZTRbjtDczPKp8NUIDx/p7E fLzQ/M9tzwQ2eOf4bivZ+xG+LlxVFuPFBkwKrGO/Le7jh4f9erKPs0Hy3e1T dJzpeOqj/ctVGBvIL3NnNlYm419dV/l6pNjAKechQebKTVxZsWzPDxY2iLTU fNskHouHLHubsMyxQsHeoFvsRRF42yuVCxJdrOAfTuWlngjBKcGL19XLWQE+ sRfptvrhLjolhccyWMEgcOPVrKk3Xsbm2eIeygpr2V+/3li+gDO1K8xEOLNC buBUqZGAK34seY41y4AVfhIIL4pzz+D3TxTKlCuxgmlsQCEd2OI/xNwPdQiw wrjFyQplxuM47etOp+l1FpCqUohlrTiGx+ZPhTOMsEDuiDuPtZQR3ueRm01p YIG9Y5e4RLMP4TtUnWtVC1gg7g1r5OXrWrj3720jRjdY4O2gpmuCvAZeWz2+ 5ezNAkZzliUy9Htx7ohs0ZATLKBfzuCapKqE2xyxp93BWSBzKpdmtyKLF3BL WD+XZgFLupZk4z3S+NrHIb8WVhaYkOgjHfIVxQ/dyUz7OkcA3wGJkxu3BPFk W5vyzS4CyFizj+vr8OJj0pRewQoClFxfeHzelh1Xmu5fVswkwLF8b/0EYSbc e15+p1AEAUJ/3LmCyf7FKlZDT225EeB+ZcdKC3UN+7PVkzhhSoCQoTeXFh8s YloEucbW/QQQFTj4tQ6+Y1FcQesvxAlwK4jt3MiOSayZv0vhLoEAbqih24l9 FOOm7jgTNscM3FKpKmnyn7Fj0ldvu3YzA9O3ovZuUjeWKtfWYlLFDFpaUTLq 0IZ92SNFtz+bGfp3mk3Ehb/DJNR9VcVjmGFsgui5vlSLOWo2uxA8mYF47rxr hl0VlqcnljlnyQxZu5gszXtLse/Glzq7MWboHHD5Tfe0CFOybGR+vY0ZCnID 9Paz52E+p0QOPORghhknLp9ctWys0tHDI3aRCa45c3vdTbyLbbm/zb7YzwQ1 9RQTle5k7KCX4KfjwARJ+ieQ1PkbWNRVNw7NXCYYUKYf5CuMxppDq5FMAhOc /dxu9+tDKMYTw+fN7cMEU7tadvBUX8XMbzrn/bJmgtfFs3+ecnljabcrBwYO MgH8vmX3hMUDG8ji5q3fyQTlb4q0g7ycMYkcB90nRCZwf3zZK/LtaczxaZnf rVVG4C+jv7Hzz3Esv5T9md8QI7x4EHrnQtox7EeV7djpBkZQZPV45frQAFOu ey54uJARRtnyHyiG6WC+zQQDxSRGIDIUdX8/g2OVnSeDBa8ygrVJJPNj/33Y Vt+zF5un//WrXoh+elcJOzjCMPVVjxGGbm36rgfLYlHfLKmtCoxQ7sf1UplD Cmv5UWDyQoARbH51hLyIEcGIK1sR6X8YYJ0pt9UjgISZbx57FTrOALoOig/h FieWxpQ759LMAAs+8v6zM0zYAMeGpEkJA5QftIE7yVs0CdJRS7U0Bkh8Xskz ZbpCcxJ5GCsWzAAXXmfuUdSZpxVIrlYzOzPA6mKP4qXCb7QfsgZL3w0ZYJ7u 0Y1AlVGastI9mW4VBlh68bo99FcfzVdtybpKhAHupnqH5vN30SpxvZvZ9Ayw klSSKSTbTPure7c+ZooePvgZzu79+pamY/RzzbOdHor42b/ZoCraNXNt+eNl 9HBOyrXvQ9YLWqv1bXuUSQ8Wy2rDdfsKacQzsyk7IughpXVC0lrrEc3cDTVz uf+zf5qYDHsm7c7FpK1lU3oo735KpTYl06RCNM7WidODdpLb1XKVSJpz9I27 BQR6aAwQHGJSC6IVJIy3J87RQYOYS4pRsA9NJTNu/+kqOpjvT/KJKnCi6VR+ Ydu0pIN1p4wmu0xd2rOCx+rvNOhAs/SeMFs8RiPfveCaKEEHjl8093+SVaX1 rhJuGXT/rdG9U30w8okUbbu/JTFzfatGLlJlrfXkX423ob84NfU2a3Q/tDet HC3V+JOgQoga+V0zkLJgM2ZA1vDML1rjJS3VZCi40tfP1qpbOks/6Arorzl2 8BqTe1XnvmuN6x3HxWNr3ALmIS5Oae//AJXF0yM= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S57N6mYhfUHhEytdA9uCpj+2b7uYFvC F9nLekxlondSJBkcgl/l+AuX8Gqx8wQ0Jr1jc2B6HL3h5R57leYH15yLFvM6 nDxqlfiv47nshtltAXWfBB3e/HprvYMjRzx/UYrAkzBRBzHno5M/iR3hj8ua JdveKOEQpM3U/PE4B0dnYJml8RxpBwYoYBGZ+qz+lxycf/1064cWfkU4P7Q6 yWzWYSU4P4f7tdK5KBU4X371sWlsr1Th/OodzsH8s9Xh/IJlOdvM9DXhfB4m 8yS9p1pwvmtuyFStyTpwvsRO2XxXFT04f1JRx0SD6/pwflCbv+7cbQZwvlZ0 S+iSWkM4/9ozzkWTQ43g/HNJTx2F5I3h/Icsy39MVULwvyzLWC+phuBLvn4t o6iL4KcUf/qub43g/2r+v9Y3HMFXWyop1dmP4Fu6377AMxnB93k5p33CNAS/ UFfh6/S5CP6erWoXlq1G8IOOGbcdOY7gp2Z8tfE4jeBXcG3/fPocgj/Xzyrx 8lUE/8U1B5tHj5HcW8H0OfU5gs8rfWTly1cIvlG8u/jHjwi+KyPnuZKvCH7E 4lMtP34g+FmuPdY1fxD82ue+n/7/R/ABaTC8ug== "]]}, Annotation[#, "Charting`Private`Tag$12859#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3k4lV8XNUdmMk+Xe91rqoQy3fc9IgqZQ0WEkimhUpQ5swqZSwOljCFz 5W5Dwq9kylhSJCRTIkN8vn/Ofs6z9ll7rb3/OOdIO1+wPMtAR0cXsb38Pwb9 MFnc2lKFFzadRmGi5moT1wT/DG+ogvfn55EqGVZqpjxfVqpXVcHuR29sZZ+t GkHT59+F36pwqkPim2WOk1pjXDLr6IQq+M7OqgbrXVRj3dMvCe9VYeyvnvPz 7jS1lEunjUPvqkJGDeFSgdQXtUL6i4/p1FUhVL/AdvGt+37ms4dVRE6pwMFb 1YWJvQkH+AfeeOUk7QM3Vfwyn8RNdcumLBf5dmVwnk8x98wO0Lg2h3klju0F +Ya/6wKCnpo1V7I8npvtgZnRoT+Dc5iWabI1YTNTCa6Oy+cIJvNqH85+bXpk RgGiX7pLiJG6tPPeBvRdtJOHT8elVYkml6iZKv56+cfkgWTPvlDa4k9NyPYr HTGRh68ujFVWCQFUv4uecYY68tCWV+B7gSeUikmdwqVk5SFR/eXx3ydiqb3+ Onnts3Iw/tut7p7JA+rbr1R+ukk5UN50H84Of0StO6oZuv+rHJwqnFTlSMul PpRROfmwRw7cB4Y3+IOfUT07iFz+NXLQxKVfLiz+guqgSbhWWCYHe+NyL9qc qKSaPxafHC2Qg9PKj38WDVRTDwQKNBpny0GditWli69eU8XNue5V3ZYDuJMZ thrVSGUg7/CXDpeDQo6uL2J8b6mT61tmCZfkoO/9la+mle+oHV1/5Vdc5UAr Ycnx1GAXtYH6J03ptBz4lP/+zDzRQ614usDofEIOVhWqrszs7qPm8c36pFvK QSsWv5ZbPUDNDJr+/M5YDjazO6L844apCZMTRgz6cqDH0koOKBmhBluNVavj cvDE42itueBXqm/9F9J5dTlIXQp76b1jjHpG/lNSjrIcVAVLcQopf6fapgxs 9svLgZrBbynntB9Uo61eT07iNt/BjwE8B6epmEfXgK64HJgHVFy6p/6Lqvzx vf5VATlYmzCdJh+cpxJ12suLueTAPi23jCKwSBUsbJEa2yEHuEuJ85j4EpVN sClBmF4OYngDnVZOLVM3QmmrJmsUKP0nKJ018pc69/Ola8RvCkwWPhAvfLJO /WZT01MzQwHeunnf5rpNam9Dhc7sdwo8k/5OpPDTY2+VyoqJXyhgAYmC7X8Z sLr0YtETAxQgRc1aePMzY0UMBdG3uijg2bczusFtB/bgfN5SUzsF1INlJXZu sWHJAzlOq00UGK1xmzzwmQOL1HvQsec1BYautmpdZebBrpbc1T5TRQGWYkU2 m1ZezFMk41nmcwqoxko7jr7kxxxupAh8eEYB03cDIui7ANaBlndczaHAg31J X32lhDG0brtGuEeBC6f/3c1KFsVKq2pn2lIpIFlNvGh6SAIj+Il98btNgRTV qhlrCQKWuDuoSyyWAss62rWq9dIY/dRIU3M4BRa1RgXOxxAxv8c6VeevU6Bk U9WcNVQW++aY80zQnwK0Pz2L5/MpmKUY013aBQrIIrl5XzYFrKnv7E03dwoU PZfJPfVECVNLfhvC60KBqUH22rXwvdhjE3m/OnsKjE9GJ5gd24ftYos/42JD AT4dxvl7XKpYZPOMDYc5BQj/fJuVl9Sw5RBTw0pDCuiBYsk+NnXMVbtU20GP AtIxqjIKlppY3zLvnh0YBTae5SXx9mpjh8svEkoPUOA/sZZzNik4VnP+I98J ZQoU/w33v/ROB5OTV2dmUKBAF0tiEvGSLpYxnrFSQKTA618z/c2HDmFsD9em rCQoYHiNfkVD1wALtLP/tCFIgcIxoQevfI5g04L1HU94KND01WtwvtcIO9kt 1WC6kwLNngui4xdNsP9uhr1YYaRA1dUt3lvy5hjVcOzJw39kEG0ycTR/ZYEV MelnGK6QoW+HSnXEZStMHPLiFufJ8Gj6DD8ct8ZuXmMNujtNhmx/ptsL7rbY 5gGPC4fGyTBhljDtWHwC8178z+nXZzKE23pVV1HssZHi3cfS+snAB5c0uUYc MDP32waoiwwFsq+j1qZPY0Ba0JhsJ8NQxIzl6zhnTHnUUjGpmQzMj7xssy3O YA/vVkho1ZOBu1GzWk3PFeO1FeQZqyYDf6Velo+LGxbOd5UhoYwMF0XkAjKq PLDF94NLaoVkwN99ZrU5eB5zjtX+8fkxGX6ld005MPlgPYeyB6PukyEZtRso xfpih+i2/tubsc0nT80SVLmIVbw8XT+QRIamI63MrgyXMdKVxtKw+G3/yf/p Fv/zx1JVSLkKkWRgK9ER7qQEYCyzkak9wWRQaBW13xl5DfPP/xF9/SoZdOai 4ldEgrGJM4aBsn5kyPyoFvH+cihmSyj06vAkw0/TiqCKrTCsdZjD8cpZMnQm e7M9K47ANNK9LQiOZFh0FFr6Gh6JPbPs1Gs7TgbPftl94+HRmAiXygE/SzLs ns3ZDC6LxdZu/BFt1ifD2B2NvRcKb2EeOrac5xEZ0vcKpgtAIja8XrMloEkG xJeXscc4GTtaLbpYr0IGb+zbvonVO9grv+vj55TIoDhrXuD4IRVT2jPSx0Mm g3yEkhXjh3Qsewq11UqRod+xwPTGRiYWfJqxhJ1/269U5VDUwn2s9MPhW70c ZCCYh54rGnyIfcMTvLNZyHD2QxybzYkcbFdJp6kr3XY/3N4YO6zlYgYSAnv3 rsmCosrN11m0J9jVhBPcf3/Lwvj38wwSRU+xgvXsOfglC93dNvnqTfkY1xC5 1PKrLEy2cReOh5RgOoaeiWLDsnA96O5Ya1op5lfz3Ge8dzv/y1QpB3s59piy ZF7cIQsTCzta1B68wPrSNPb5t8qCKHWu4Kd1JcbKEsSLGmWB8IgliF+lGtO6 3LCw45UsXDhTaN1+oBa7b2VUnvlcFs6/Xj6Q9/Y11tl4K9k5XxY+xpz/9Xw3 YAwqPX6KubIwWrk/yftOA6b2SMhq6Z4sBLPZudsJNWGuPPaqr9NkYS/XBNfi y2YsI+Qhf1SiLExxn9sajWjB2mfHf5vGbdcnSCZz+rVie96frxgNkoXY99aC X9+/w05Ty1Pyr2zrTbIeS9D9gCUXLl/y85UFpV30Um/+dGLNotrW2p6ycFcu tSDetRtbjg3Zz3RWFvybSujH//RgcqtNAu8dZCHsWuUeg7yP2Ek31uXU47Lw oDJtxC6wH6MZJFVRjspC0ca1+7aZw9hi5ce0eX1Z+PkpOa9o+jNGkhW9Uotk 4ZPQJQHTA6OYTYqDbbimLBx+02IakfQVi2HMVTdWlYVG0Z5iDrYxrM7vh9Cu 3bLQYGyhpfBgHJv5qvj3E1kWkrgveB+xmcDMoaLGW1QWQrhvEBRVprHwvasZ 6rtkIeuh99wb+xms4j4WQMe13b/GzQWBillsgjP8RNsOWeCid3LpyJ7HhINa NJPpt/kcz+5LXF/AjGZ2itqtk4BlMpXz+OXf2HU7szXiHxIoqgoyW3P+wUY1 B+oqJ0kguytsIfTRX4wvX/xu8DcS5JmarfzKWcMOCTtdO/yJBB/WYwT4329g /tFP7Hj6SMDMVj/FT9zCni1PaQ9+IAFp4wWfXC8dPnR2j3hOGwnSlj4tqioz 4Bwf/TY8mkhgZ+ar9PApI+7zYv3VRhUJppydWqQWWPAcGZ3sN6Uk+HKBT+vT W1a8N+lG0K0CEhBr5jgtmnbiLPRtp2wfk8Do7fczBhMcuIYPJ064T4JXN2wf 16hy4x5fLCSn0kngf058l3c/D37PNG2zLIkEww4TdxN38+F0u6VoepEkyKU7 Ks+uKIBfFzzoEBlMgvX5ntMmG4L4ypbzv5YrJLhpHvH57JIw7jd14x6rLwly jCsKAgTF8NnuPG0jDxK4sLd+mzkrgbu/ah2KdyHBtwV9v3MTUvj4k+mA9/bb +nlLRX6ZSOPDV/fUmJuR4CzF5d11OxJu42xum3xk+/wuwjw/PxnvNvZb7jlI Aq7arGPPZym4yf6UVAFtEsz5aC0pLMjjrZJVarZqJIidF/mVJaGEH2Id6MnY TQKtaOY8syt7cNrCqt8QmQTNBnpSv0KV8apmrOyUCAnkDuptxdmr4ioljuYP +EhAt/60VmlFDS9OD5sbZSdB3+p9y67yA7hcWO4tGWYSxEW+Md6ZrIE/9niz +8wmEcxCCkKz0rVwwrEf756sEIHRgLEqoIWK38XYvH7ME6EivfLcgDTCk3lM CjzGiED37ZIG8wFdnGvN27DoExH4H0oq6pTp4bFjiZO/PhLBocL/gLORPs70 vjx67wciXMpJ6ShnPIyHVvWSfVuJcHJ/BPb4yxF8/cHym/IGIijv9XzaN2qE +8cKn12qI4L960xdsZ0m+Hl7+9wrxUQYfarBnjpvjk/qB+vW5hGh8L9N/j4j S/zM3odf1x4Q4d/YXaFPNCv8i3BjKDWTCHFrx6LzLKzxkwzjUsHJ2/qbMmJP MNjifT+ZabR4IuTzJYXo9B7HLT5SHOgjiZB7fbyis+0kfuSZ570bV4igfsV/ /bGCI96cdFO7xYcIx4PXlr68P42ja8+HdngQ4XWjr664pDNed6YrwNCFCKeV lrHGaBf8gOlv4Xh7IpzvJ7wv5DiLl6sL1LyzJkLP7dqVnhJXfLe0ui2XGRGM GZckTvi44aSlwNSkg0SweVU4VH7SC3/4+Z5ajxYR3BuC++JivHGxt/U9u9SI 8FhxlG3igg+eVjrqZ7ObCHjtNEtVmS/Ol8XAl0EmArWthsuI/SJ+M4JUNihF hIsMzuctgy/hrOcNzMVEiPDgauzQPQ5/fAvF3brPToTOih7X9+EBeKB80e5R JiJ8SEnv+O19DV/m63gnvSkDdfQJul+Dg3DfjTlPlxUZuHO89J5AZQg+852X /cm8DKBly5cSO8Nwtw+qBRNTMrCn46BPqlk4PlZjbSg3JgPs5GyCf1EEPhSf GV34UQYeeqXaML+IwnveEIpOf5ABDp2F4bu6Mfi7raedAm3b9f778aNwJhZ/ o7n3T3ujDAgcNrcbL4/H6y9WiYS+kgEf60QqV/pNvLoYw/dXyYAb8ZEG193b eOmPZufp5zKgWnNB/OJoIp5j11N4LFcG+iLYxJywO/jd1JOdbNnb+v5KDFTG puApH74u1afJwP7HtevZP1Pxm2zuIpcSZYD2q4LF90w6HqU3j8nHycCb6oLu rD8ZeEjQFeeRCBkga6ZV3nuYhV+t3oy6EyQDB1kqK7jO3cM9FDk7//nIgN0e X4Fb5Ie4y9mUpXIPGWCOyXdR0XiE2z8QE3E7s80v3W6F2eXg1oM5mISDDDzK Zmp8nZiLm/IrOHfbysC12EHl7sHH+GGTsqhoCxmQid2Xm6+eh+tEaxRSjWVg 71hE2I3Cp7jKusFSHi4D9YjQmTNUgCvu7xC215CBqtVMaMkowkkXrDFeFRlo 9ErByvxKcIn8T04tijIgybL/NNP+UlxwzCXqmqwM4MtpLfo6ZTi3xM8CZSkZ KHzkEMhqX46z2vp9+C4sA6/8ja30Y1/g6+2hwuYcMpDjXT5nI16FLzGxYsws 2/PcxVF59kY1Povfdqrbkob+c9IqZxhq8R9XBaMurEqDtttZPCO9Dh8tzy4g /ZYGccdjiSf0X+GDM6QPgzPScMRB8RkfZz3eTS76fWtCGjReVb05OE/Dm7Pq qKuD0rA5fmehbEcj/rr3oFNJjzTQ9dZXOFKa8CqutkiX99Lw5EiltMrxZvxZ eH/He5CG9NM/LNQWWvBHrxx+h9dJg8Gt2eQgu1Y8a/m7kEaFNNjWZ3dLDbfh CR5Lp3OeSkOwodmWvtR7PPLxtUjbR9Lgl6Kl7zDRgQePMBRw3JWGqNmqnxsu nbiPJe9v/1vSYC/uNXrMpxt3T8gQUoqRhmozn/iLN3tw5xYp6tcwaWC4S+78 V9eLH9PaE2l8WRqe/cp/+ceoHze5VJlPd0EaxF5GxFg8H8ANSqgdlW7bfikc p5YpQ7iGjLEQwV4aVh9fMow++RnfZ9+t/dFaGvYhMev3gl9whbQTp+PMpOHK Il8Pq/8oLr7TLX9JVxpEI0PfBl78hjvUv0uQoW73o8RkM/PBGP7Ib5+P+X5p CL+ENAY+j+Pk4bUDRRRpUKm4Pv0l5QfudttRdIggDfdeLu8b557CC/Sa/+0Q lYZzTlYhwY+m8b1FN5tdOKTB02TzUDrnLO53evFpErM0CPb1fuuansMrdtnG 0zYJ4BIVpM21OI9rBBEsxRYIoFhl9S5F+DceuC9yv+E0AWykl+llDi3hr79P CV8ZI0AXeygrT9gfXNf0xZfuj4Tt+e8QHlP5i99gEG6i+0CAWbcyv678Vfxt 1fW8Pa0EyI7Gz6gdWMePShmcj6sjgOWb7uatO5v4rZ4C85oXBOjJGEiYV6VD XdHcahNFBBgtFuATUKRHNvMDawcfEIAr9s6J//QYUcZjbORCBgF2WbH9GXZl QsPHcxqykwgQJJDwTTKLGZ1u8IxZjSAAR8BwVY4aK8q53OlJCSIAS9/dPWXZ bGhcfr+ZtT8BDoW/+XdTlB25J28KlLkR4OYd+v3tVlyoyMBldcSJAJlR1TwK bDxodu3tJw47AjRNvNEMW+JBfi5JuW4mBDBZUv82uMCHKoSWo9IMtvFM6lEK 8y608t9Jj2ZEgKOP/1lJUQTQdTXSPoLKtt6W5fGNTCFUPxmzy1SRACd5Xp3y nhFG9Nm/Vq6RCCAQXvgvx1wURTFX1/cLEkAu3IvWZSGBWmvFcph5CLC+ciAo Z14S7fQOjVRlI0BWVuBuP0sCkiy+kyG5IgW7FVxvz8rJoFyBU46BU1IQ+Cik 5DSZiOSCyeS+YSk4TsRlapVJaJ9Z7YubIAXH3r9puOlNRlXV4YFT5VIQdr21 wTKXgrQIRw/qP5GCNSlvjcQfcujQwkjHRqwU1Ec4D1g9UkRtJ56lHr8uBSLO 5en2wruRaaOvfYW3FOxzmwode7QHHb/DNO1pJQUV3O5s31eU0ef196Vv9aVA bEjo0MrQPuR8Jv0KUUMKnB4oF3K2qSDP/QrMw+JSwBPgVYC3qiE/5tqn/txS oBn5JUbn434U+PGwER+DFLQ/23Aanj2A4i6fvW34QxJaBI3/MhtpomT9pX3f ByXhS3JsUXWCFsoSiOgNfScJXhfU7hqMaKOCyociNWWSEJ+1v/p6KY7KI/e+ snosCSXB9101RXRQnXW9w1yaJEhUlBMXv+mg9j/DueTrkpDyS7eYM1kXdb/x MGj0loRaeif5fVf10FDq6uQpJ0noOK09ccftEJraL7Qn1UASdrcHZ9a7G6B5 5rxOZU1JsLkp4Oty7TD6+1Ht4jvF7fpj1GD6zCOI1d+yhpFXEqQc7B0514wQ j8HXkw8YJeH2Y93zV/CjSFjQ55/WsgSEFAyc6Ek0QXJVN3X9hiXAWtZRuFnZ HClHiX/n7JCAmrIqutB5c6RhUxidDxLwuSVzyKrGAh1Zbn03+kQC7t8+Rbju ZIXOHWCyNfORgNs8YeM/ZGyRN8ud1WlnCSB6WNF7KR1H/n3S96KsJaD0427p VzonUJQ/+vpaSwJuKJ5gNo23Q7cMOiJO7JaAoMqzY6ca7VGa4CnyHykJEJEI F+hjdkB5VYGeSswSwGzxJ2zkxGlUEsXG1boiDhFMzqqx3E6oyiaj1GVaHG5J sjSbvnNCLcuVf7I+iMPTIUMRor0L+n5gIYQtSxyCV9RJ4p9c0QxLqMyTBHFo 80ljqu86h5b6uN7ohIhDLo8Xf2anG2K6orTz6hlx0Gdcpyr99EAch18W8duK Q7yQXn/YDi+0S8jI7LmhOPAwuhYa7zmPSNXnUib2iEOR+2HXhHsXkFL08oFw aXGI1u2mHvfzQWq2kYMSu8RhX69rqoW4Lzq0kiNpvSoGZRGO8eXhfshFfeRZ U5MYDC0uyPvdv4xcn6nbGFSLgUGjAp+8mz/yEElibCsQg1AsqtBW4wryWddz 6EgSAzIv2813M1fRRa9sdotIMQiOn997visA+X9erum5KgYVjg+0tF4Houu0 fP5BRzEotukzESq8jkKUGRvsrMRAVNjVKKY4CIU/svceMRADdWhK+1EdjGIi uNvGdotBn245532/UJRy+HLw7LoovG1s6F/vCUfpNR2KvnOicGuHt2jrlQiU JS83+PubKCz38Us6EW6gh+zDqqttojA3t9rnGRqJij/oTDFmiAKrbt8b0ZAY VKqTlRYVLwpFYLEcejQWVZT91mMLEYXfAVbPc6TiUN2dvPtcrqJQ8EyWL70/ HrXYchwTUROFBvbN7vak26it9Sz9PYooLMqXrR05kojeadJKJMVE4b/qD2Mc /yWibjE/NhKDKFBcJEZXh5LQly/99Xs6RUAyLjn8KDkFfTPf51XWJAKX6js6 UhtT0ERDnIhatQgc86n5r905Fc3kYpc074vAi2h1V/Q8Df09lyt/yEsE2Bbr K4wDM9H6wEZfi6MIXNMJ9Z9Wz0KbhjY3DK1EYPWlrD/zWhZiUmL7YqolAi5C u5hX4+8h3nnvlBOsInBc08CvZ/IB2uXUevDTujBQiuOj5VwfIuFu6TmHOWH4 Vhg4d37oIZKs6DU80ycMxNF76qXtj5DCVa0t78fCoCRRtpvtv1wEn00VxtKE ofvFglvwqcfIRs/F2jZWGHRpzFzo92MUzpVQiLyF4Udr98Q7uTw0+PizLY+G MGx00i9ovn6GvHcuht9QEIbqHWnXFDzzEZMPS8lfcWGoa3xxrUq8AClr72X6 Si8Mhq1iP5rjClFMV2hp2X9CcDJRlT7/TgmSVE8dlq0XguFDyg5nHJ+jinv5 LFmlQsD7JJglWKgUjZ7rtg9PFYLoM0e8fs2UIvVNIpuVoxA8rZ49FfS8HE0o vHVaWhSEHMuTlwxSq9D1xOEEt++CENT0blZOrBrxLc9Vf+oXBK0RmZ2CudUI bxDmevNqG79NeMBVW4NSbT3qUqME4cs7RSeHf3Xo0A1OfnVRQTAId1vL/k5D Q1PSeCGHIOjJcM8U6wPyMTvgLrUlADFn4vmCMgHdFXWk7RgXgObMrr5RvQa0 WFrqOVAsANeXwqrP5jaiR5+tmgMOCsDPutt6THFvkMq4ylqvmgCwvIz/3jL2 BjVP8yorywnA4Xf51tJ4C5pY+XB3gksA6MS8+uKWWpAC39GLVp92gfDXl98e n2tF5QaHZHZf2QXiO/umSc7/oebnaqGjRfywqm+RHve6E1lX8VdpP9zet11N EJvtRBOvFn+m3eGH9jc/bG9JdiHW9lJbk0B+cC6rGGIN6UIm40p76w7zg649 /mUY60Z9wrIjd77xwVD2YWXt5z3onBTTrrmPfBDXUS80M9yD/sqOGRq18QG5 7bOxFmsvElV9VElXygeutdqHsx17kYOJxM3zQXzwbbR4nYntI/oRJkA9LMwH K36pP5/p9qGdQc/n7uzkg3YmrWPqHn1oz1XD3NENXki38NdnTOpD/t5BOwO/ 8oJzsZ+Jzqc+xGL3faCogBcUwnP3/OfWjxRsQhJW7/FC9K2v9xti+5GphYiO wW1euLn2e6Azvx+lHjZ5+uUiL4w4IV75H/2IpFZ5mQ/jBeGpSl9LmwF0ZK+Z vONeXnA9W+v48MIA8lKY+lQozQsDbVIfJqMHUAVB4pA+Cy8MDbYdt68cQANi 1StJf3kgsez0ybD2AbQhaFE4Ms0DxORTxSkjA0iPM5Lv6gceiBDkTrvGOIhc WaVamht4ILLz3G6jXYMojrE2gLeCByyYbov+Iw6ikk3L3Q55POAYqaKdrDKI uldnRgsyeGDkG/udHTqDaHkpKmUljgcuvLQ6and0EInOE44cCuIB9iClmnjb QYT/rFtPvMADOy4wmaU7DSLniWPPPzvxANOP2dLrHoMo6uuss8IxHrBKWHqi 5TeICj7FCF4x4AGFxJOSnVcHUUe/THuTxnZ+86gKNXgQLXa/CuJR5AGBwGVS cPggEuyw2XdKggcoUhMOqZGDSKttfjyfmwcgZOViWPQgcmiOy1im54G04hiC bswgYggxzIia5Aa/IAmj/m3c6HLQltR7bvDMOLulEzWIkjzLXGvLuCFTUvNq SMQgGnD6/t4yjRssPsUL3AkZRITjIvtnArlhXcDW6XrgIHIzNbkX6cgN5QsB XNRLg6j0UBij1CFueBmT+LfbaxD91ar0qJHjhq3iBqLumUGE9k11WXByQ0JA xKu4k9v+KRKaPxe4QLvIRqjEbNuvhMXDG31ccJQ+oLRYb9vfrsgdki+5YDTq lmL8gW0/O2u9qx9wwYSwrtURuUGUR/fro/kNLlgV/yz8Q3gQ/VomYNNuXGD8 sO+OO+sguj4Wwy6hwgUexDdNMuMDqHnwlV+VIBcodUg6O3QOII7O+UGzdU7Y efdGdPTLAXT31fFn4c2cEMH6qrn41gD6Vp7ALZ7PCd7xJV9L/QeQQj74V97k hDnjtFvFpwZQXaqc/qQNJ2TNa/E8khtArHY/XOipnNDguFpN5BxANoS8cFFp TrA4tzpVNd+PFguIcPQnB/j//nJVorIfyYOkdlkIB3R7WLfZqPYj/8jPJ9rP cIBS10R4K08/aja6d3XMkANcz1/19PjVh05/FKkS2MUBnQZLJuaP+1DG9K59 gc/Y4TRRVJ7I1ocmnveY3bnJDs+r+5JSRj8itcvJ3kV+7PCj347Nrvoj+rDF XTRCZYfkMsLrNeePiEWAnaLXtRPYjEizPC960WVEL8GxxgYNhkrqfNo9qJEJ tGW/sMGPGzm5qjt7EE978Em8mQ2k6zJENwa6UdGxjXSfW2zwcIG2M/1yNxp3 X+H7KMMGjm3KZ6MKu5Blyi/W+8ascOfGM/VGrk6kPDW4tDebBbTN77+3eNaG Ls3vlhe6wQIjh+J+8hm1oZqVsFObHizgPxX+S2OmFR1kUWh5p8ECczMXDNv3 tSJLYmC6ey8zrM+/KslsbEGXT4lq5bIzw3NM5JXqVhOqO+PtHbfIBLxNdNO5 +U1o07Mxx3eQCVLbnWebjjWhqEAPdp2nTMDhecxeurgRZaTXffqkywQBRa/3 Fro2oLqukyGCgYxgkHDW7Mnma7Q5UPLi32lGOL0juHKv12ukO8owOX6YEa7t e6DlPvwK/TdbYP5CgBHy40Osl+pfok/s69LmZQyQ/yRb9FlWLSLwm9moZzDA Tq6F+GmBWnRWNDdOMoQBykfbj/5MrkGzcsa/Z44ygJH53TWF5Gq0pX+3OXaS HqaVkluLn1SiQyZzf30+0INMJi/H3J5KFHNMb/fxKnpgleItm6utQDwuP1PJ N+hB7K7PjOLHF0gmVPtckxQ9lI5wtV0glKNDdcNs/2zoQPPV6NN9vCWopOCJ 5lttOmD3cjoxY1SMhO9ecE8i0MElopHj1Zgi1LfCkmzcu0VLtreXHOcqRLLX bHiy1zZp1d+EvIWPPEN/7aYv7GvepIW4KHJ5P3iK3lGDP7y5uUmr2G/lZbKW hy5tPrk1S9ikKdankcLqnqDGsD8cOof/0RpPEQszXHJRmnOsVy/PP9qfqZ2T In05yF1P4p3b0AZNJ2mJo9M4B/Ew68cnnd+gnRNX4CnReYQcY1LYxu6s054X cPJ+y76PVNzl3K+cWqflyU13V7zIRixGr1rZKeu0PZLb/60P91AJ+3i0Wt0a LSjCTXRN8C7auKXKEjW6SouI5WF4O5GOOi+8PStasEpjNKPJplHSUa653ZuS i6u075c7Fe3OpyEjvogb/SyrtBQ/rhz3HakoM7WbQX73X9qI2mUe3ovJyMvf 1fn18gptZNayYsdgEtKxXWuwgBXa60/WpVS9JDQpLBMWaLVC4/GOKWQlJaID 93y3/gtYpmUmqpBi5BO271Nmx9N6yzRjD2Pf22rx6POpzPoljmXaPLA8qTWI QzekGoIkHv6hXa8M2Ne9/V4+Tmf9ucz9D42em/nahbxopPR1kmqg+ofWOZ6T fLMnCvXk8Gx4tyzRFI9OPX2uE4nyIh7bMSYu0e40tlS6ht5AgWc0XqafWKKd jjtcxdQSgWTIpwNh5jdNkb+zwMk5HPnkP//Ly/+bdupJ3bprdQhS5vKO0B1d pJ1Lraz+9DAYLfgpcV0sXqSpX7/tXZUchPyo+cTew4u0Vxc/HGu8dQ2pPjpX wiSwSGtSTf+XkBGIlpjJmvu/LdAWa+xSZvID0OUPOaZp1xdoYgLGGk++XUEH 1JwGWwwXaE4mvp3ZbFfQcobUmRXBBVpLyS1PD3V/dMX5XsDxsnnaMI++e2ve JfR7WtFw/7s5mvXrY05vPviiSxXPHNJc52gZmh8bIuV80XKQ7KUVujlae9XL XY1RPugvj9SD2v2ztIbMOkvZPG8UMHS3QrTzF228r5urKuw8WssVbr/m8Yt2 MgKJcJ/zQhsH+P5gD2Zo7480O26YeKAguts7H2jO0Bq09auZzdzRZhs7ga73 J034yEpcw3E3RH+K2biR9SctcLfponGkK2KJ+PvQwG+Kpjy2vDWi7YKij16u esoxRTsu0BTz+JozYhVc/I/16STNYO9CjmajE9qZ/3O5ffgHzXdZXHnD+TSK 93PjUPL/QaO74l4SEeCIOKjfpW/ybOOdO4a4NB0Q94eRo2b6E7TL7519c4bs UGKGnXPpl+80Wxtsx/zLk4jPeeAKb+B32sJ3qHn79ATa9acrp6dknKaytau6 LtsWCYu9+WsrPEabc75OV71qhTLHD3LVln+jSSWd4DtKtkKiJfVEUZNvNN3a IxYLJy2RxMEa009hX2mH812rjg+bo/s795/BxL/SxkTipdLI5kiqtyzgftUo bWMxy7RiwRTpddgYNvR9oaXLsROZXI4iAyfzSxHsX2jTXjL6X/cYoyNLhg/0 dUZoKpRUjWUWI3RUFPvTlv+Jtj/21y+RocPIxpX4qPv6IM1AlMHhCP0hFOd7 MSa5coCm3x7MzSmnh15fb7pgOdtP0/iyQ6zQVheR7rjg3Y59NHtbrxrUqYOO 338hm5zxkXZypM0xV1gHxeczclp29dI4joVNXurC0SItd7hLt4cWXBTmtYRR Efm/341J17pp9wb3/zJk00Yn+vQKLCq6aCcmj53n+qaJYGbsapdsJ23ntfp7 xDp1NDl3DmRed9Ae/ZnnfFhzAJmxsN7O2fOexhi+a/Jb434kqXpEKYe3nZYq 3tp7eFUVRRpOrklHtNIOC7TkviSpohnHmLZHSy00DV6rI5knVVBdQqvro/4m mnBl6xu3cWUkneu2X9qwkfbz+6nULnVlFFPLyvSoDmhKVQInSPJ7UfG7JN2D 2i9pygx7d17tVkLXVru+6EjW0Ejvh25GNCgiQzJfkA59JS19WPxjaYMCErKy FNUZL6MdeTYdW9Etj/7bIl0IuVVMc1Sc1jVZkkNuJ57kBx97SkuSDC7XI8sh phey40Gij2jrBj2fPNwoSEfkKLYGqbT13RbWD+vIKKZlrfO4VByNR0i48a0R Gf0PnPliaQ== "]], LineBox[CompressedData[" 1:eJwVj3c4le8Dxo/DsbNnQkaUFQ5Z7/s8j8xKUjLTsKKSJInsnZVkVEZZKWSE FMkIyUiSUZGRldmxOdbv+/vrvj7X/bn/uMXsbpxxJBIIBC0aAuH/ee8TtdNS NAoeUaLlmOWRhKbkH9Xh2jlQ456oOSOnGKz4aREc4ZMPl6Pk2H1KReGeuhmJ RusS6LHCr3HSVRjevHxtqjGxAvLD6wyPbARhloasUdPrSugXv+FUE8kPu1ln ipo6qiHDPo/p3D5eSD+cz/lpphb6WSq+5NblgWlWqpr2ofXQJ/RW/Vw7F1TV Sbo2ytUABw39Z7TdOGGH3EqafWYjvDLmdgDIcUAC4c2ufU0zDPvyapTwlQU+ meJRGjNqgcP/RkJdmpmg8ncPO4f+Vsh+zHdmaIwBtlV3J4xdaYeB/qOJnyXp oUOuSpPD+hdobzJ3ty6UDm7HJa6OhX+FB6SeH4om0sI2jJpQGtUJv/Nb0XGn 0UAHKesmZcEu+HCRO/u66g5QFGIedB/ugrdznLhfrG+Cbfaq1dIX36EGqNU1 G98ArXRX2Zdcu2FMT+RU1PoaSN4QPEg+0gP5Zi+p3D+8CuzmW9Ct7R4oeo3H uSdiGSiMeluVNfZCs62HGbS7i6C5/WcU2fQHNAxPWb6hTQHOXr+az8n+hI/r FlViB+cAo2Q/XSjtLyjz0UZ088YMyPvar/2q/xd86mz1cVt5Chz3GfDvLuuH 7efltyolJsG01O/3W9EDsGaH4v8MjIPort/rkg6/YVrYLSP7wFHQfmjI/TbP EOSjfUBIdhkGLj1DxemzQ/CeUtElTYlBEI7cVu3shuGMgq2n2fN+YJ5M4bnT MQyVPxgVcpz7CaRn3cjRmiPQ5l3xc3PUB9a1F04/yx2BF50fF9id7gGfH910 K+P6A1t9T7+oivoOnHXcC/un/8D3dNEjlVc6gfqTxbZ/5qOwKFFiwo67AzD+ c5+mbRiFy+2zLwVi28AP3SVGgcNj8KXCvp0FrRaQl3JLWi51DOZou/9+KdQM 7lKW9BDDOFRrPH/o5MEmcFzfw+HsrXF4IPOhELjQAKYXPDJ9T0xA03pPvxn1 OlBlsFL74O0EJEQz8foVfwBR6bcHcyQmISv9xjDx4HtgvbSy9S5uEurLK/el 9L4Dssc8hb5sTkI1kvDtnxUVYOvpqsaI01/4QrohvbCxHLQve1qufP8LA8KV 7lttlYK042ueTGgKMna/tnaxfg1cMu4kCb+agnZFsT133hYDbHWtTElgGq70 C/fUUF8BViOvLr3QaUj8WnH6rHc+GMhcp1hRpqFpe0/ZSYWXoHDNi93VZgaW Mie4SvHmAv+TG/LBn2egtH3zzNtDOcA429soWWUWTt8t5Vd2zgIiGxtX8zNm 4Z1a2UCeLxlg3vhuZA3rHPTnvb9+Kv8pqMmhvujymoMTF4/lLFBTwX3q3U8T Y3PwPm1rVlb4E3DBZHOMajIPj5/oLr1i+AgczvWhZf8wD6Ux9/AKrSRA2NoU kzj0D7pEtxpb2SSAztO+SC3pHzweSrN4NzcedJr6Fz8nUGC2gMRgEt8D8M6/ pqb4CAWyDgj8GjwTCzLydr5UulCgiqRtmsS7KHCvG/xuyKJAr+JvfTEW94Db rv/slx8UmJITGyYmFw4sZWo3+9gWYNBeGV1TpVCAzHaZ/+guQMuVqpQVu2Bw MBDunb27AEMFu+dVPwQCjoKAQ6slC3CtnB8e9PYHGz216oTJBdiurnLz7Xsf 8IdAMGQWXoS9JWfttTBv0CqLLHhMF2H4zIfzZiueoNQ88LJI5CLcIb11E/rj AVKC6m4frF2EHdzjNWw77iD4FSFMeWURVoDH8Vx6N8HVPpSIyS5BnlFu48+X b4AzxKBsfdslWMIcZyEV7QI05etLTR4tQU9wJnuFcgWodvcm17QsQbWuDTvN Sieg6DN7V25rCR4fXQxRfu0IZMWJF1MUlqGe5fHC+W57INXCr8NouwzzX3TR fdtvB8Tc5KU9E5bhzihzVXj8JbCPX4dlrGkZEuOAOJ3hBSBQY/nv9PoyVG3N +TyVfw5wO7p+r5VZgUrreQce6VsBNtbQt/LnV6C7tVeeCZ8FYC57kpoatwLn qj79+MBrBkjWxQFMH1egQJKyzQgyBQSaJvs7yytQmHm3iDPxNNh88ctgXGoV 9rwh2i6ymIBVY4qsqdUq9N76V9d//CRYWCFx1EevQqu/d4Ivvj8OZtOElhVq VmGKZuY/4GAIJnWUfqRRVmGTkv1OBdIHf6b1q5kl1uA5lusfrxjpgsF4mwwv szX4u7OabB5yFPxUdw+diFiDTK0TaZ0jCHQPRTifrVqD39m3DdY+A9AZnm70 cXYN2mNijSEcGGiTL1NUFF2HF0vZtp4laoBP3Z95np5ehyT580EiJmqg3mdw nSV0HVax5ilqA1VQLb484F2xDt3tAuhLrMngbQtT/eTfdcgbX/PaLVMJlLqJ PjcT2oAm9Le7B9kUQSG/amTDyQ04uG+w9RiUBy9rjl9XCtyAogIuJ65lyoAc x0unn5VuQBWOQCwGHATPWD1V94xvQP8zFNUHnFIgpSxa0IefCg25tJVbeSVB snXm9t9jVDjSnA+X9MVBPM3bEXNfKjyxYr8slrkfxLxsb2ososIfqgzyYdoi IOLUnzzlESrsjxDoEg0TAsGra7EZ3JvQRixHTJBBEPil73Fn09+EOi3LTNR6 PuClK2Hu67UJvy0k7zaU8IBbM+qa0/mbUEztS+tEBxdwfWgsYvn7Pz/+jbya ACe4quFA/MS+Bbfcd7PaOdmB47D3BPnoFvx8Zb17SZMVXIqIa8302IK0IvKM Uc+ZgI3C8yL2F1vwz6HtLx9PMACLnqqHfj+3YH/Ze0HTgyRwxrfTc4ZlG+6E LctePkILTkpMWFuBbXhnQsYl4SYNMGzdBM1u27BYtUczv2AX17nJKaGavQ3R mPLb3ZotHAhIM2T3bMOta/2Zt/mouEYtNsPBuAMlk2IOLhSs4SqXz3z119yB Bu3VuiPeK7jiHueyWZcdaBK/0qLss4TLlvs9sn62A8vkPL30ChZwqXMJPp+/ 7cDsLLudERIFFyfmXTxCtwtvcvC8sGWbw4XzanRyjuxCDsWxKnuLaVzApFua 68oufCdflHRleBLnXptiCUzdhbbxdgo52eM429Pdf3NfdiH/hLxJS+ooHprF PC1PIKDyDOo8Q+MITvTkHXAQJCAW6QG/bf5h3PpSftc7FQJyezNhkTE1gJce hy2sJgSkIXHivMPaT5xZtbv20jUCGrvE67Vi0ofbiV6pKA8noPtSQr7f5rvx KqadV4xZBBT0QLZRqbUL51p+mG3zgYDsPw0pbgx04lcHpVNKfhDQRCbnGwOd Dvzj5+oHdMsEZLPQkOom1YbvLTsdYclOgyac35z3sP6Mu6dP+L2SoUFfhfUR 1teEt0b4eBD0aZB2iW2WX1IDLu7Oce2sLQ1KMbylkHu/Hr9r89z2pS8NGj5z fzjBuxbv0te03HpEgwbPzRyVUq3GZZS+GpuU0SBRylF6J/1KPETIQS+ngwbJ 9EJYlFOBD5A2tNanaBDva8UcRcNyXIUSq2xEIqLCzOTpqUOleMwv8UMZ+4mI f0ZEK1KnBB9rfCu6rEVETD15XLUihThWbMRnaEFEbD8PHH3GkY8nPhlhTXMn In0d+sAA0xf4bIgnLSWWiKw4OmUEh3JwXVcWqk4eEU2qD7BsFmThaZYZlEeN RNQVtnvQoywDXz6qOjkzRER2z3ZO0Qyl40byrb/hJhG5WnaK3XyTgufwX+xO 4KNFnXpmwYHDj/AtmuXWSSVa1Nzt1+ZhkYSfnb1Xr3WSFn1uYin05ErAX/UK v4tzpkVfGpxtfZjjcbr60qLREFrUo22jd8n9Pm5TYPBc7Rktim2qP/VVKRov TxpIja6iRZeovv+4jt3DWQNvPhzq+Y9zn34iFYfhDlfpI8kLtCjIpWTb/VwI Xn02NSCClQ5dz/Od3NYPwnmgome/NB3qz5GTEuj1x10ONbkc1qFDjz/QitiH +OBN3Nb2IRfo0NNfcUYg2gsX2Zm36vOmQ967km2SY7dxz78hJrJJdMjH+ZHn /bBbeEeXgEFACR1q/3mIp9fpJi71oRD/3kaH2MYiJXQZb+D+L46qSE/SId3N G+DZy2t4b3yfjA+RhCrFvFtqnzvjCr4uYl+FSUjt2TPtjhVHPPwyjYCEBgmd feezQY2zxwdNktnunCUh0jjph52LLX5ES5bUdoOEQvJ/vZ9juIjfP1C3KRJN Qh99b5xtzziHT7CbLbrnklDD3+8+PI8tcUCd+vupnoSSgl5G5o+a4clj/kN7 f5NQ40r5hdC7pvh8B3ev6zoJcXv6DMScPY3rV75s/8hNjyyNnR7z9BjjT7Px Br7D9Chjbvcbm8sJfDW2q/LqcXokzZcc72dniBt7OZXUONKjRky+naNID8+1 28rlCqJHTmtOUg/1dPAdo/j0y2n0aPXwn2PN+7VxczWpxKq39Ej5sdyzIjeA F4m9j2L7To8cg9cHHFm0cAZWkyC7eXrkLut+YoekjltKW9cdYWJA9HH3OQdt VfH8ow67zJIMaHEoch1nIONb513BEGBAM1e/nVKfV8SNvb38yqwYEOufU9s+ ogp4RmJwdYQHA1Ld7GUltMngi8Uxm+fiGNDfwbqSiu/SuG5bsqZiPgOqpA0L jT18AE+eyPCma2JAx/dTbof1iON/aQre/RhiQN7996qTPuzHNYXfrL2iMiC+ 63KFEvXCeIx67ZEgXkYUN/jaS9JtLz5o2nLbTJERPU2Toqv15ccVb3wvP3SC Ef1Kv3G6doAHD476vbTt+J+/qtrMHMGFdz+fVO4KZERYTQMIvsWBS9Uv3MxN /a/XKHftUN2Dew1sltytYETXhrYqIuaY8NY1EsX4GyOqUo/ZW0BkwPdxcxyW mP1vz/3KZekqHe6qsNd1jZ4JMaTYAw1hIl53TLKwTYwJqTCbHz7LScC5HBVm n2FMqLnedHcnYAtzCFSX9bBgQh9sYvhD9DawitSjVw3dmdBBnivNBU6rGONb o7x9sUyIu1vAjTywhFl3mf+lvGBCW9mi75efLGCv5i5JN31kQuZWKdXJSv+w HcZrl5/8ZkI6f3ZdKVkzmInk7efX15lQmE9sG4fPXywLBoxpczOjg7q1wv5F 49iydaQEnwIzkhvh4qQlj2J6ngl204bMaPz95WPRu8NYcnx6Zo09M7om+/AJ g8Ag9vfVi+GH/syIow8v9Mv6hWl+fi3q9IQZcUqvXX8T34fFjL6/oFXOjMzJ mT3mv7qxwZ2mdPavzKj6SofuSfcuTHFv58DoFDPiYZ6ayDbpxIJVfwm9o2NB 50yfzrb9ase6TcasY0RZUFhd2AxdSAvmFbH+Q8WMBd2N7SxqnW/A9tWwWvyO YkEkrT965vtrMdeffMmvn7OgpkWJFJmA91jd8v6esDoWhHQebxsce4c5yKqa KqyyIOUY3Ybyf6VYhT58SORkRdXSOlYBb0swRrtj33plWdEjt/Rq3+BC7NXj 86cCbFnRkhrj2nFqLrZMCj/R2c6KuvTvUeQ6UjF9sQdROZOsSPjaIhWGPMYe YyktXsQ9KGqx4YRyahKG3SoyEFPfg/zTXhvxNz/AQoZ7ddyz96AWWqESMaVQ bLDyxHWv6j1oxMU8lDoXhGkm1CX79+xBch+0VdV6AzCKXv5UFAMbmvK1dL/B 641dKPCLy77GhsIaZ7IP8t3AND0l+7vJ7GjedfgWpcwC2yBpVArZcaDk4mr2 D59lsJLUcBP/RU50OTeTfD6oQ+tGlgPHmDkvGsPPL9lUrWleuJoiHBEkgNqN PHjTR8Q0I097apDThFB2SZViXaa2Bh1P0kQAVQSNexm4D30B6n1tYZRQdjFU esByekYMqJn52B1JaRBHbyr6hkV4+Y+4sMyId1hLopzL++uaL6yoiBZ8Sqaf PoAmhBN5dxzbyD7vdEzZU6XR3SMFvHx5d5Tdcl0qjhw+hCJfidguJsgpsRLV 7BTGZdCToaqXxOjyw3rXzybJJMghwbqLlZmBZAWBSuEbepIK6Du1iqeYu0bu ofu9eMW+w8gsYMPmaT6/7JnwU/LpFYrIyCRp1dA08JDMuVCzHD8llKhcgnOZ jkj3TjBlJZgpI2qFHVXkAIdUh924NpcoGfVniYklhhlLjtC9WE8SJ6PTl6QM atL1JJdznYsFpchIeo/LcF0akBScmdknJk9G9/tjOLmLFCQdbi2uHdYio3Pv C2Vpa9kkqSG7hSctyOiEwwLntycdElLPBfdGxpHRcNwZNhXspISGQX8nawIZ /SsrZ0lN1JUwmkqLeJBMRg/3+qxfWcckbsrvX3mUTkZ/jF+7lhXLSVS/kerM LSAjTT2Na5IcrBJnPpHDG5vJKLaTkOqW3iru6LyCGbaRER97OXW98KO4F/Pb pbYOMhIVtlcXV6sSTzfWtP3eQ0bUCOMN2y954n97EfZn9L8/jmrnL1PuiVO9 iEuOk2QkvzV+fe/dIPE9Qo15U9NklFtQE5Di5yWufNGAf2GBjGh1lpy0GJ3F 9WiYOjxWyOhTjW6kdPclccvs1tD19f/4XYxh8AML8at6MVq+W2Skf96potLf RNxv8uTi7i4Z6R35lvSSz0D8fw3kMD8= "]]}, Annotation[#, "Charting`Private`Tag$12859#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlnc4lo8Xh+2d7D1ee28ZeZ/nMUIieydkh2STFRlJlJHRtjIjMpLkPUIR 2RnZIZKUGRK/7++fc677Otc558/7I+By1dydhIiIqOK/8v8evXx+8/hYCdTQ PieXegv8t0i2nclDJfD3Z2i6omCJN2aY/fNqXwkO9F8LZtVa4nHq/v+ubinB KcKl2Mg3Vvh3KZlUc9+U4EXIZgX1ng2eSnaMDz4pQfltLQc+8Yv4e8HOhrEP lUDgHP/dnkx3fCVxUDGRqhJwqg2yp+WH4cnd9RU5LyrCSbEiMVQ2Hz/kqGDz w04RzubPzdvk5OOf2HJHvbVWhGELu/iTxAV4FaNfnZdMFaHofI/eo5kCvIdS rl2FjiKU3v36nK+lCN9FvByrIakIll5Cut8Zy/CpT5L6L/5RAJICTlWT5Vq8 bZ7/tty2ArzpD3KLt3+JF8605yTZUIDbPwaIHg+8xL9NlHUtWVWA+Y6+uz2d dfh139Hd9WkFYNmNV0RHG/CmGqJ8sR0KcCXnKNO/sBnPc4pBx7xNAb7F/SUd Pf8GvyJ74CncqgAMeV7ZKf/e4OME+2q7XinAa9S31dT7Lf4ldaguY6UCrDdy O+iggGce7/QtzFCADcETUSv97fiIkHzDunAFGGSn39Jl6sJ/ZYqU7HBSAPUM 5R0W7BP+XI0V9Wc9BZjbf1Ph1DGIf3lefmVJRgGGJA5wOjmf8R6PHtv4CSiA rPMtcv+eMTzXD5oPuywK8ESV467P6S/4PvVwletUCqBp7RnB/30KfyN56Rnl oTyQq+c4MMzM4lXGzFnTf8mD8mmOtyrp8/hVEUjgWJAH6+YkPkaHBfyTYJnt /FF5sBJ5/Xrbeglv3v7AVeKjPLxQeqJTm7iMv0/RblrUIg8UM9WqucKr+DmD HwjvC3nwuyVFgdL/xIumMUvlFsiD3Ooz6miR3/grAxocjPfkobX2fg3F5ga+ ntmN/HaSPOTtI+TzG1v4A+vUTbJr8nBF6OR4u+Qu/kk47rtWoDwgVwyI7jj+ wWs9qJ+N8ZGH0YggdpqiPXzy9FTv3kV5KG4i+dd+6S9e+ti//ZSNPByrz8z+ mT7E9+PImwNN5WFc11arx+8Iz+YmU7qmLQ9Mt3m6fL8TIa8T2x5L4OXB4+mM neYIMeJQanXP45Q8qCkVtQ70kCBFq9Fxc2LysOhtgttZIEP06JjCeQXk4QTR hCwVBQWyKlPiZ8/1H49e0h1TpUTkA/oujNDJQ3/VH1f+PmpkJNPFnJFCHqpZ WZ4GKNMi614/Mx4dycGVJb8HStV0SOQvxDd9QQ6Onfc5zs+dRFqG5d02RuVA dUv5lUUrA3L0SsjB/KMchCwu8KzlMCI3YqmNWGrl4Nfd0vTYy8xIh9uhTkix HFztYDt44saCUBj80hjNlQPvhiVqP19WJIXxs1RejByUZTFxvCpmR3p3Pgjt B8gBxV+jt5mjHAj9l2Zue3c5+JrdpLjAzoVkFubT8hjJwd7zs9fpenmQOpYH N3t15YC4ZDqfLIEXGUnKIo3G5GCVmYb1niYfwuaT9Hda8b/9LgOyXx/4kQdK vj+ecsoBr+jXV1G3BJA3z9w9TZnloDsSP5O4L4BMsTstEJ2QA1pf4y57X0GE 79Bs8hKRHHxxtfv0wl4IKexQ7RFaloWfqx8j2R1EkHYVBf2ROVnQ9SyrTF0U QRbLJNsTvsjC4Iu7JZf9RRHRNN43S59kQVAm+e7LTDGk3Iq0srReFjw+XbAj I5NEPn44FLWtlgWrX52BahWSyKr6biFVmSwc1E9eyrSUQqT5vj+4/FAW1l1o vAUbpZGab30pUjdk4QyJQHP7Czlk0LaLYipSFop6P9lzIvLI5se2G6khsrDP 5nN9rFgeUX5RH/HTSxYiab7XikcpIE1hD7xfmMiCg55u6qGhEiLoFvBs/Kws dERX8zYPKiFppmfniLVlIfWI4inbBWXERWLXylJZFsputMYxXjuF0E6aae1z yMLi+THT/UVVJPSDeJQgkyy8zNC7ei9FDZmrO240pJWFnmB3u0pldaQ+tUr6 yT8ZuFsX1tCdcxpxRKk5dL7KAOe9nV23HATpkpwz952UAYUHF0xCXFFEkf1V WvaIDBRzzq0zqWAI5W830pX3MmAz2RB1NlQTqSmA9dRKGQhHkoKTzbQRrju5 Eo3FMnDHxbQoZkAbSYzwc5t9LANBVtJdi+Y6iL0FzxeFdBl4N6i75OxyBiEl D+8cDZYB2lROwelqPcRvw5iIyE8Guv3rg5mN9JHxaRENCU8ZWOuk87r9Ux95 3jhcE2knA2SvzY4aEQPE2kvuEQ6VgUp+p0hvNiMELCnGDFRl4LlqJo5twgiR 1JpmDJKXAep2hIKy4DxyzHn7ZqegDIwublQbapkgZT3fAr0pZeDZu4r0flcz hKnpbVUWkQzUqjqHWU+ZIdHF91Za9qUh4IltC87WHDGP1nY8uSYNe1mVIV/s LJC/sk8M6gekYZbqZkB8shXiwR2SMN0tDUKLl2jf8VojA5RGBIp2aRiesqen fWWNFM/tK9s1SEPIhRV2mV0bxDjTCnd0XxrK9j5abJbbIxGKJw30s6RhOYZM xNrpAlIy1BWQnioNN8YSNm5zOiBHTPh2wevSwKJ/OWnj0UWkKkvQQ99NGqY8 S+JeBzgj40pTd9IvSsMIC0dZ7rwzQjaS/WrCWhoINVuf/SwvIQ4s1NS+BtLA 9jS10U7HBaHL/lWZLisNVvbD1yLOuiFqp8pHJsSkoYKfHAkdckPcPrv8ExSQ Bi/SN7U8zu5IC+uocQOzNNxWZRLoS/JAfHJaNib2pOBLjIppGdllJEcllEto Uwr8Lf+Efqm+jLwbldPx/SEF4TZmQZkXvREu9qJ7R9NSwHqWZfBktw/yMfeW qlC7FBR9kHMbmvRDdlV1nH1bpMCUaoMZqq4iguOHyQ0NUnBOnW0rX9sfieDw /6JfJgVHlqaXPgkGIBL3raN906SAZOHuTTKqIMRSnaGkIUkKtNlE/KJuBSGx E919R9elwHD9Dqc7fTAyzongMgKl4LdPzr9vgiFI8gOh9gYbKViZ8w11uxaG 1J+e/nFkKgVir0MXWDnDkbkvOSxnz0kBu0RzHfnbcESNm8bjC14KzmK4tyxM EcjKw99UxwJSIKCYbHRuOwphwVconOWWgnak7oHO62hEc8rVPoNFCm56i/0I j49B8njGKoUopaBKtyOCmSUW0X/81vjsmiTkApmn3WQc8jtt6pDsmyQcCSxq pxvdQB7E/K1om5WEOxC8eg9uIGtO6pQaw5JgECItYVIbj2QKNhBkmiWBIyn3 RvarRATPPHJltU4SVI0bf+pqJSFLpFvcpVWScDpez8ypLwlRW5IPxxVIQlz8 Drnw1k1kpvS5PHOyJBzbrR0HX05BkvN6ZvrjJCEjyjbyO8NtROHWampqpCRI lLwvjW+5jSR4i38nvyoJnIoFy5m4NERSprhgz0oS/F5G5mWdTEdGeNtNGkwk ocf/503PkHQkmv7rvwADSTigsmZqm05HBn7x2//AS8Jn+wBz3cYMJPTlQ6YZ IUmovblV55OcheCKmuEBryQEzafQ65DdQ7qzJvxs2CXhMdWLbKn4ewhPCHvP AI0kSDdfvxKTko28U82Kb9+QgJfz4+3ebbmIr/hLhdgfErCAGQ5S2uYhrJyD s/glCSC7SNLttJmHeB3Q4xvHJaDvbGrJU8UHCP3blO0yggQU7dwn4158hDRV lRe6v5aAws23PvoPHyOXnnSZCtZJwFH3iPQ/6ydI/XWKqoclEuAbsnM9fOop Yq99w/1OmgRk++wNxmYUIGRKBcyGNyXAi1+zaoGoEKkSgjbKOAl4zdPyliqo ECEiP+KNC5aA6UDphVmnIqTkw7XRoAsSsHkuffbDxWfIfcVQnXJLCfhz5XHR 8O9nSOrjwJqZ8xJwAX/sPnyzBAkM8kkx0JQA1t3RIJ53pQjCfxHlF5EA03r7 8n/eFYh8il2lJZ8EJJzD4j7hKhHBHSuOFHYJ8BS3fhg7WYlQ9RhvblNLgOMK Hy2HcxUyEqpZ8nFdHMhGJ6gOLGuQD/N4ZqIVcehVyuB17qxBmo3UY0/Ni8Px bcXWHrVaJF9Q0T5/WBxy7OkuUUq8RHz6hOhDm8QhZovnZoRCPeKojousrBWH YR1ccVBLPWJazLMyVyEOxY8a5SUMGxCVCNZ3ho/FQaSYWEghuBEhEaUMFbgh DuUb/ns1f5qQnXTSBetIcSj9sp+WWPQaWfl7bJIaLA72903q9yyakb7BPYk/ HuLwTLS66XT7G+R+9Op0r6E49BlV/5qZaUVSV76dI9EVh9lM50aLOgISY7Hw ShUVh9pPP8wJeoC4SUxlFMqLQ1pYZPFHiTZE/vMn3XBWcfhLX6VaydqOCGl+ fFlFLw7Q80yc9H47wlb5nn+BUhyuulhTLvB3IIexhP3zB2IgXcJ9+ZFaJ/JB urZKaFYMzjMUmnXlfUCac6u47MbFYGMybEtGowt5TlJx886gGGRNqJ3emO9C MscLL+23i4Hji+x6auQj4phwj7W/TAwWXw29P5b+hPRhu5ThhWJAffir6uzK JwT7a3OAeyQGCxSzvTplfQgukHs28K4Y8Ob4kLlzDyBfnQrL2ELFYDCu5Wl3 1yBizk32kHBVDLJVcSObp4eQ9lH3NK/LYlDMvfZl78UQUnxeIrDZQQzeOJ62 XiocRjw0ajQcdcTAaPqyinP1Z2R0l1GWEhGDYeVHgmnqo4j+yyBcjYoY8J05 ClLtGkXEJVTJSSTFYILseYDj7zFkla217xmDGIibZxqk+X1B7If424xpxMDp Yy6bOsck0pMWV/eHVAy4md7RiL6fRJ6T6eYZ/BGFrY5BKwW5acRvs+fSz2lR eEfpIPSQZw6ZqZKxzBkThdIL/N2UCXOIyeW7etigKFQIjVrRrc8h8nPmUhkd ovDz8rwI7uM8svlpYlu5UhQK79M9cypeQFxuaSxPF4uCAPGVdyGCi8jwmccT SU9EYVElE2soWkTq3zi3jmeIwm+xh9QkNUtIaPnyzahwUSjITVuR2lxGvrkZ RIgEikLYBGfN19sriA2u0rfPRxT6g8zkgyW+I2q5fmY4J1EYlg7dSPFfRQ4S drg6dEWh7kPsKTeFn4i3ps2JK5goXL0h5ta99hOZ/Nt0zKouCsZbYbHzz9eR lsCoRU9pURj6krozyPsbiXEmraZlFoVAxR/eYT0bSE2//p0ROlEgZwrK8dHY RL6iqX6PKUQBTyvGhaveRPR4WeXkDkRg7a/CyMlHW//lcdEa83kRSPTcEKJ5 tINoGvikc0+KQDn7kfGR0C4S2PTCf3FEBF67xQwYvNhFRnPUFEK7RECsTsRf Y+AP8sTi3Mv7L0SAZ9t4fxc5QAbe3cl0KRcBETZtLYaFA4REcThQqkgEOkl8 8WqpfxEPBgeltzkioJsQTMX94xCR/XSlfi5aBBoucPHyzxwjzviX98rDRMCv Ujra2IIIzazcDQ4MEIF+aw1usmYidPfW9VNk7iKA1DS8Z7xLjBL0MhrFjESA wCfjFGdHim42fM75rSsCq6W7ncgwKSoswhX2GhOBTDUmhj0TMjSZtEjVUEkE WGgq6F+ak6OmUN/kxyUCueYvEryuU6I35PbzVFlE4DBapR1hpkLrnyDXiOhF wDJ9nKWhggrliH6vnkksAmFmLL+WFqnROfXx5oYVYeAjv/h8O5kOZSrneRjz VRhusRLvRuBPoGc4LkXqTwnD1yrGBu/tE2jZ7neNiX5hoKZKN9gNOIn61/1t OWwUhsSU56HXLBjRQkHNx501whDepdAaAYzoSEZC9J0KYbBtqxiQkGdC1fxP oLgnwhDZPiX5mZ0ZJZLhJ+gkCgPttYqzFjSsaBSblmNijDBwiLyN4HzAiv45 dvn3PkwYzmyE8DfKsKHrQyUa57yF4ZqDs92UMzs6GS7bZGoiDPK90v+W9zlR axdTm8yzwoBg7zK9KrnQIcPA3WGt/+b2PCwll7jRLr5GZRtlYXByV1f7MsWD NnYgtRc5hWG5Ma5kmwqHKlY7mT5lEoY7T7m+J4Xi0KrcuF9ztMJg+qPuG/ky Di327pRxOxICZCQ7lWtQAM1kOF/hvSAEha5XE3/3CKH0B34Gz6eEoPIvnkfV Qhi9tZC+8vOzENyNV2XmmhFGYxtHRAO6hEBK1DaK41gEveLgUBT2nyQ7tf7m jPiLoyu6MdqvS4SgjpFLYYxdAnWTy58/eCoEOPFDMpN2CdSeZJE/JvM/1vEm 5RSXQs+W+TxKCBOCNyH58FRaFu3ISNN47y8ENLzX5AYOZFEs8sUXSm8hCM0q To/rk0NVjLc4bjsIga73N6Pr7fKo8HZEdoaWEExshnQ75Sui+dOPlIdPC8Hb Uj6nUn4llPtD6zCLshCwHCC1loVKKNMDEqY8USGwW2GjQF8qo8dYyp0ntEJQ P1Qd/O9IBY2QeC4zRyYE1Veyx3GPVNFdpr5egSNBcMsTJQ5F1NC1JUbaZ78F AUm7RS2Rpo5+uX3/ZuVnQchRjh0nd8Ojw5245879gnC/qWl5ngNBe49LB1i7 BSHM4Cc3OoSgrUGNnLEtgnBGw9J21RxDCy8MV1oWCQJVz75vrb4W+jDbfoD6 sSB4o4KU7xu00Hv989utOYLwOSHwa66oNpqk8xuRSBEEd4e3ea8ZdFBvqRMD //wFIf9dQO4+lS7q6n5v+6W3IAwtjK3t39FFHZ5yc3q5CcK/O9+WTDj0UGNm SZchG0FwjbPRNj+ljyr+1dsuQQXBI305XOShASp1qo/DQU0QzsafRs+g51Dh q1YIo6Ig0KoNigYunUPZFlyTIkUEwdfHMsRV0wj9+zGWw5ROEAbnH8TdlzJB t8moEHKK/5hUMkdy0wRdR+9eaj4WAGLUw3jU0RSde/m4QnhLABJrP3AQK5qh HQ+a8fsTAvB2k/ZZz545+nZE61L1sADoc5PrlwZYoI303YmunwSgLBY/lPDT Ai27Mdb3CQSArmkbMtct0VTvbefCUgHYT7AXVeCwQROLIxNtCgRASNrnpGml DRozQ1JB91AAVroy5Di0bVF/c8at0DsCQPPFcYs40g61PC2baBgiALtmius/ eRzQ88EN5URXBYAIn8FNPuCA6lXj+xq8BMC2cU084+ZFVE3QkB3nIABcxDVi EWROKA+NV/m2tgCcvpPE4MtzCXVs7U0VxAuAi9Qbj7rMS2hBoIK/6SkBSIvM tpSmc0FFJw9UnosJQPFdshlaaldU7nlahyudAOyQT2ozybijgc6bpRnkAsBh uUUcRHBH61lsbhOOcOD67/69D1YeqFo0zpx7AwcZE/ynm+94otrGdbNDn3Hw TEOVb1PZG00g4Wgn6sdBoYGOEueqN/qhMapEtgsHLrb3o4SLfVAjfr0rKc04 YNxbH7kqdgW1/j1+oPUUB1eXZPJdVf3RvGJk5moeDuRYYz9Glvqjk7aFbY8z cDDX+KP3AVcA6tzmk7wfj4NU68UHWjSB6OXMI9ZaLxy8lK8pyGcMRp/rue7P XMLBWa5QDvtHwej6wYcpugs4eGrkGTkkGYIGumYUeZ3HAV3Fy3NeFqFolLKw Ak4RBzFhAZKSo+Fo60oyi7EUDh5MPowdj7uGEj/++SdSGAcejYqZEooRaBL5 q9YxNhwk8v3eUC6IRPmqsvL4/vBDaa9MXXlLDFrEetEp4js/7GSyowIZ11Hx GFHR0Ul++FqGvq44FYsqmLyuSwN+WGja7ejmiEPPbMz0Hd7iB6vfg7tE5PFo t11Ztm0UP3zYzM65lhyPGr8LcKj34wdjVu3jmJMJqG0W2aqPBT9kMmYdZoon oj6nJMknefhhrKs05vWtm2gg+evS0JP8kEQ6espbIhmN+Kx/jomEH7QeN5tb f0pGU0Lc7xos88FWFIedpWAKWtGQz9lUyweWVn738WRp6MtEuRaLYj6wOIsP 5+hOQ5utWh1/5fBBWSTNslTWHfTjzmSRaBQfXK7SP2znTke/n2KXzdbjgxEq P428rxnob/KSAXl1PliqFWP/dSET3fusHNQrxQeL0+Xi0eOZKFWoeRMpIx9Q Os525ExmoeKNadqBk7zwZYKR6ixdDiqfxLN0oo8XTvEtLE0V5KBq1pU3y4EX XjbG3fPSyEXP7nb1zj3jhbtfBKoHIvJQTxUyGxN/XlgMXB4hkX2I+lFk7a+6 8MKemWai17eHaOiowKMkK144S4Odri16hCaFYvNvT/NC0Nt0+QCZJ2hJY4SP NDkvOFA1CL+DfLQ6iZq+6w8P/HEsfeatWIA2WufVuK7ygOHXVYyttAB9v9uw 86CfB6YE6qm67xeiSyob16kf8IDVq0/UhyXF6BpFrOCzVB6oUU6Y5VB6hm6P 0ndqXueBWeuEs2vvnqFkYdI04W48ICYTo8OzXoIKv/K89032v/tGDIZpIeWo 9M1dlRsCPPDshC5BT7ACVbZJnOBl4QGC+ATFveEK9MyfQj6rfW4wm5fj9jzz HHVVnSlrb+cGc8/w/VsuL1CPMlVrvVfcYGHO7xHOUoN6c2aQdldwg5S28Cpf RA3q/1fHsS+DG4jambJJz9eiUYRy5gknbrjCHFe9w1SHXpcnbbtgwQ0/OpCH t27XoTcKHPxm9Ljh7rFfJztlPZocf7J7QYYbuEsvZPlRNqD39ENi1v9ygaJ0 CK2S3Cs0t6lPKuAXF3TbqXW8a3uFPpAQn9j6ygX4NenD3zZNaD7tpNJ+Nxdk t63+S7j7Gq3q1/xOmscFqj3CZ+RlW9AazQc5Sbe5gD7yUMFqrgWtr93Sob7O BbJeonpzOW/R5qySJ/QeXKB5xfJTHiMBfW9DZ8mpzAWLuiFc7rg2tLvLnfiR GBd8lz5lXp7ahvaqE6r5uLngw5/6rft/29Ah7kBqYRIu0KWhvNYx/w6dnR1r lR3gBIPrR8WKgx3oV1MF39p2Toi2qIvusexEv7WlcCq/4oSSxmh88WQnulaE BKs/4QSy8g+cXlvv0T3PIokzvpyQyuYld/98N/p3/HD0vRMn7LTjXqX97EaP DKwTDCz+447QyyEZH1EyaepZ49OcUDDs23tjqQdl/O13z46KEyaUNtzC2/pQ lktdWlN/OSC5+zLpUnw/yjEk8MvxFwdQRWnZ3RUZQPnqRwzcRjlgRiGgXn17 AJUMP33sV8wBz5szhJhqh1CYNpZcyOGAVP/CaAeFYdRax9XK5hYH5JcZX2Rv GEZv0KdWYn4cwFt48S3yYQSdKJ62YVDjgEbLN2M0nGOoH83mjQRJDrjjd0SZ 9WoMJfOnqN7j4YARq3/nL9iPo/IacmTzxByQ5VmfJVA1gSYPxtbU9rBDuuqM 8UrKFMqnmj0p0soOGsy3DPuNp9H6R+UUD2rY4dFo7eQu+ww65znkcCP7P85c m81rnkVVj4SoLZzYgdmQlfN54Tza66qm/MGMHRzzgzIaub+iLt1GThpn2OHy WNan49yv6J17IQ1CEuzw9EuvVtmDBfSb5IdL25tswBIbf3b54xIalT6Z6rXE BsYlb7gjnL+hTLu/Xk2NsQFrrEzyyYNvKNrGQd/ZwgaGycvEteoraLaNd3N2 EhvMdMoTiNZXUcm3MUvU19iAeYK3/XPJDxQEsxhifNig3fKu01O3NXTt5xsP D1M20PCKsrn/6yd6JuEEsyoXG3xpmW9MK/qNfvkugFbSscGFZBWZNtYN1N9E 5TL/MSscpGiGkN3eQB9yOREoF1mh9Xcl58nrm+hmTY3PeBUrpGj9DX12dxtN ZuvMMcpnhU6dlMQOnh2UL2qiDTJZgZjGUPJ51Q56Tp+EozyMFb7OnepCJnfR gmmLjmtarADxvY5+Xvuo4qLiwYgyK3D+1XCkpz1AO1YZ5eXFWWF8oFWLUHuA fvvT//AbPSvU79QFt9AeopJMRkEWUyxQZBItLLZzhL7hkCqv7mcBEZ/1NKM3 x//5mmaWup0FSnwVuJV0iDA/6a5zUM4Csecebx6wEmMv9c4IyoSxwEWyk8Mc UySYznkh22RvFqB+kmbbb0mKjViQ3Fm4yAJcZNeupwyQYrvOsH//DAv0HRgF OgySYRqR+EEKJhZg0JBbqzigwHrjuCldyFmAfNzKgJBGiTkmH+Df7jHD25Yq mjhhKiw2u6ksaJYZHE3NQn0uUmMdL5Rj554zw/rI1vy9Y1rMqpG5USOfGZIj Gby7X9Jh31o2f+RkMYN7T/FOuPcJjOpjjc35CGYos55NaFmmx84vSss16zOD joK+TRY9IzazSuvOqsH8n/+OpwmRjJj/xuoDf9n//rn/kCz9wYhlHpVRiLEy g3Hepctrw0zYKIfITNZXJtgOudZj3cWCefKTsfz6zASLLIu/L5xnxfZEFgzO dTNB55mY6PrPrBiXUkEDUQ0TlHyyiGj4zYY5nudNuxLNBBXk7JZXzDmxXxaH 77r8mUACtxUVu82JxdpP7gm5MUGbXgBZwQMurNDzvtuXc0zAsWB2L3CLG1uO Y8XrczBBlo5Xo80XPowm+sWvLBom+O4ueuZ2DT8mG25QNHfICNd/eO3r6eGw UL9omoh5RnDrbr1jJiWAUVxYGn9ewQgnLHM0Z7iFMEnr66n7jxhBUrF9Mjlf CDM249TUu8sIXXO7ib3iwli2/vnS2SBGeJSs/zT+jAgmrNwQwoQwQr7VV4q8 SjHsrJyJhJMcI9BSi7T/NBHHfCW/T1UKMMJOWKJP0544Vo/jPaNLwQhi6o+4 JWwlMZ0TiUzh/QywFBYTw2Aug3lQ8b/vaGOAhaseufm8slgK6etrjPUMYJss t9OwLosN7a/NVeQxgGBYsC+5mTzm8s3yxfQlBqDnOdu2Iq6IJc2vu0haMkDU Jvm9wxJFrGIqmS1MjwFmPMlfRYorYZtDLdEMUgwgfrogiVtFGSO5bpCXtHIS kFb+xKIYFexcSPQx/6eTgNvhH+7nUsUyfGo9XteehIk+cle1N6oYzpbz1FrE SeiOUa5TplbHMIXvg2YnToItf+rXM9MaWJIYr/qPDXoQzF3tbnqCx/p4zfIT RumB/51Sp487gjnSvPZ79ZQeDlvTSwRIMSxqIZmWV5EeAuJF7cm0tbCOiZbA RjZ6KEomlvr8WgujG/g9YfL3BKzK7Q8tKWtjD1tsy250nAB6vadxAqd0sOZs cd0V6xOwHHDxeoGzLkZ1YdmVGH8CRlVoEZNNXcwaV3KDS+AERHuaNk3f1MM2 K4TA6AcduOcpmlIS9DEJ4NOovU4HJ7uYrZ84n8NCE6ftPrrRwdMPbpWOLIZY x7lH4QsGdEDsrfRrudcQc/7M2cjKQgf5gfx3xo3OY3mrLAoRZbQwnJGR9U/X FPv2YtgkK40WNqg4ORfqTTHlkEy/54G0wED80KpF1AzrPz75fAZPC6H8CtsP mM0xClZaMZ1BGghWYMtzZLHELL906zo00gBXpgCP8mNLrPBpslvIQxo423jM Xi1hhaGSFIWl7jSg+HTl8tZ5aywEI+alO6AGsRMWnM/e22LvyEBDZJYaKBi1 CyKv2mEMH2Ps0Q5qOE/L8HqAxx57bnmY63+HGtKjr/4ISLyALV7+w/RZkBoE xxMT+DIdMUW5RoV1SmqY6GkyC3RxwmK3g00pf1JBE0XlojiPM8Z9fTNN/RUV DKikbTw7cMbM7/2kemJIBVSu2JL+lAuWb/dc7JU8FZgU3y/tc3DF1vl89AZY qeBpbe+ZtjlXLKV8JZ5kjhLMy/791t9yw9paF448gimhULxs9a6uJ0afUMgb a0cJfi/FzoguemIOBpfw91FK0Bb5ZL6T5IXtDc9c66GiBFzFN/faicuY/PeJ bbnHFPDrnO25vUZfLPi3jAR7AgUQRCpfXLhyBWv6E3fxyJsCrI600nXF/TAt Csn3vWoUMFOiE4R7fhUzF4rIvTxCDpeCP0NhWACWI9nXY/qGHKxFvFyzvwVg kwqCRGqF5EB0uPbmrG0g5qb50YvCnxysXrqvq54JwkIucp0uoiWHCK6BaUQz BGt28/NL2SQDasZPw2ofQrAjn3eFARNkQMFQIZJmFoolRXjTapaSwa24fxG5 /mFYXm7z1JQ2GRQTBaSUfbmGTT2hZ+yQIIPBbfPouZgIDFfiolvJQAbP7V/f kBKLxMrraaqvzZCC0/7rdZeEKKx50P46WwQpzLePGloFX8eOxqvr/jmTgmPA 6a6TfLGY9hzJyqI+KQjXYL5XE2KxnvUK0zpWUhivMMiZto3Dpmj/CpjWksDV T0Ne+oLxGI7ZxFo1jwQ4G/r/M2U85s5VlMJ3nQSCAoKvOXAkYOvihltrRiRg 9l7ep48rETvWfdhxa4UY7lfV/jTSv4mdOf9rz7+fGC7l/ekXn7yJJVvqyNg2 EgPNX4PJF4HJGIPrj2zRBGIwf3lGhbfqFiYYq+HZzk8MOI3b1aLmqZjHzbsP KyiI4UmLYD01RRpWcWehP+MnERAZ3jBzbU3DlB7fVnN+QwQ8aOCVNfxd7Ezz JPU/ayIo7z+Zb3w6A6uueKb+QYMIQpY/45hqMzCOh1cvZ+CIIPiTxwUqqUxs 9A9FpuHIMWFrQO39kngWJhJpzfD44IiQuOzFsm2cje1dWL2q0HFEiN8Y55yY z8Z68TH9nWlHhMm4kPcvw3Ow4KNnd9ZxRwT01Iml2pe52Lu4HTpN/X8ET3FT EZoLD7Acl1u+Iwz/CCfMc8KbGR5il3V4e72+HBLmr5aZmPQ8xBjIdW9nXDkk WKm3Xqg2eYw5Jd+jXsj6S9BO+hH6X/DBFC+LXw67+Jfgz6+psNWSj1Gca+mi FftL4KZiS7CWL8CqaRdvKjcfECKVbmwm4AqxwztKFElz+4SjF1bIT/FibODq B3euin1Cr8F5s+W6YqzI9EJnddA+gYvxdNhT7WfYOab4hDGKfQKpx+3pWp8S 7H72EImEzB7BsnjH0PFXGeYb6uHydvcPwY4CzdB5WI5p2hy0mcEfgvaYzVi3 YQW2wiEYF2Hxh+De6vpN/U0lpvIo4Ljn2i5B1nue+OJY9X/+JXdy1tklHKta Ze1XvsCmL95v3abbJZCa314V06nBEvjbonnzdwh96ZvSbqK12HAhw6Hf+21C pbZgOoGpDiuJL75Amr5NuBdcuqWRU4dFuKm9ybXbJsBD1k5t3npMUNQ5Ata2 CAfPaw7NVBow//IXe4zMWwT2WY1HRrmvMHl6v3jtuU3CWNfae2K5JmwjUJo+ qGqTQC/qcCvpYxMWiC8XGtHfJAgfK0RcOtGMhfQXGudEbRDuKU58U+xswVSU L028N9ggZKa9yFaJeYvt5vG7/WHbIKiVsNDNabRiYS6PrtnW/iboM7s/etRJ wLZWpQxO9f4iMD7fB47bbVhwfZljjscvwpTI7Mj3v23YbrRI8B+iXwTJ6CjP 9KvvsD0G/qevT60TyNI3XUud2rFDFaYd5OkaIXfaLI7DvROLJrpL81R9jcAx dsWger0TO+qmxRGN/CAovqsaa4p8jxFfJDd8R/WDkPkuuSUx/wNGEb+Xrxf4 nTDxufl3OvtH7KZRSGMp3XdCV4zj9QuEjxgV22YPVekKYVnjKfNFnx6MpvzH 7sfJZcL0qVWPwIFe7GT/jJGJ7jdC41rDTaqhfiw974JLzewS4XeO8QdLkwGM yWU8jDFiieCcSqap2jSAsewMFg5XLxIYlATztjMGMQ7uzj0bjgXC3SYan9Oe w9j9RS361y+/EhZCCU7Ei8MYV3WrENf5rwSWPdO3q64jGK9Wk/FU3Dxhr4T0 c8iVz5hOn7VB2+gsAc+2GfaufAzTu2QaHE87S9jp9rRb1xrHzm4bPNXVnCHc ZafsW5sex4y4kJ3u8imC4UG1S4fAF8zaQ6hgKGqCQFXUZtQ4OYWlBAQlZzaM E/793vB5kDGNvY1qv2q+PkbYTR493DOcwYSzXNEhp1FCdqfnidy+WWyTUDQ5 qD1McIQzROdvzmOiPVvvMiKHCHJFhcxdO/OY3ahOhVn9IEFVazj2r8dXDNYW wgdFBgi+H5e8BswWMD6ls9KFjB8JiG1ZpYzhEpZosHIgEN9F+OQjdOg6uISt OSV3F2y/J9B/Fzu9Yv8Na07t8igYayds8JibyYYvY1W9GdpaGm8IRjO2PJwz 37HI/cFZTb4mAr/8coFQ3CpmIMoUrUncQBDqGehWEP+B9RwLX71+p4rwru72 SOuNNczL7ll5jGUp4UPAV6VAlZ8YWZ3IYjRXAcHfIVMlc/0npslphBxANiH+ 0k3C6cp1LPn9wYAtfwrh5oTJWLnCL+x/EiBWRQ== "]], LineBox[CompressedData[" 1:eJwVV3dcz98bbW/tPbT3npLP+30fifgWmrT30FAppSFaol00aCNJRXtTSUNF mpSW9k4lSoOf3z/3vs7r3PPc8/xxX/c8gnaeBo4kREREjf+W/+/32vd6Tfij UUjfxS8vFL8jQ+Xh15En89AEx2e8K3ENVY9cDrsbVIicMYLAytdVdKR5RbjV rBRlZGi+d5VcRdec3JZak6sRPiAYxTOwjJ4cl9ZtK6tDiV8WOjnlltEg3cqr tp7XKP/iBa4jcUso01RVwz7iLbpOW7oUcGkRERFV/bVv7EAsBM/wcdZ59GiJ VXFWtxMxpoYJUsXNIaWB63YOo13oYmqlgR/VHHLIV2lz2P2IxKI2H32kmkUO YmZtSlz9qMk/SddQdhop8NBMeH/rR39UVGLD3kyhQ4b6X+XPB9C30NkcW70p lPqbS0JZbQgtx4TErgV/Qx0fRqKVDYeRWhmPLd3aOLri/7XDXHoEJZNf9okR HUdUIqNkEaRfkdz4ciTBfgz9FzR2a7BiFFm5V9IXrX1FHyQnvX1ZJ9GkzLCV +Ilh5D40WZK1Ool2q2ofZT36giLB65ed3TdkEBPw+uzBZyS+6qUcozGF6iSC tXs+DqErp7xfji5Po7B8Zdny7AGk/mir+/ulGSQpbkk6zzOAqL57L5O+m0Gn prj7QzP70Yt0H3GZjFkUfD2AN+15H1revP74ps48spcwPHjb9gnVa/9sSqyZ R3zzLyo3N3tQdJbvRJ7wAroaT3/7mXAPkj7nx/NxfwHZbPpLUKZ9QO65N1L4 ipeQWaC20GJdJyL82qlQ5FxGPsnl1U70nYhO17//dMQyKrRvfmbh/B693PFn 8LBYQScS4aS6WAdavxAY1Ui3hlS+CwRmDraixry95/3+ayj5fS/WeK4Vxe8F ts/PrqFd6YqO4JZ3SD4/iJThzTpy/t5n7dfYgmpvNTaWqG2gV6Vv8b7xZpT7 4s/HOvcN1KRWrGJztRndG8TH3z3ZQLy3sXt1f5uQiVTT/hf6TbQe53z8iVkj +j3UpE60sImmMilGzug1oGkiorM0fFtIhuG4sUJ6PeqShsushltoYepq7ZfF OpQe2uwr0bSFfK0vJ08/qEUasm/L9dJ+oC9y6fL5fNVIdfBzamPnD+Rc0zS/ 8aAKKQStBsoc/EDtTmOsKUeqkFgnxykq220URVBdSaWpRCyOHgNNUj9RZ0Bu z2XJckRPF1Eja/kTLdXeHzxZW4ZoKh5lZCT8RBenuolWz5UhIuI2+xvbPxHD z4JKgm8pWs3k2ZZr/IXkwoKMWQZfooVTisOZG79Q7PTf1cvcL9H08pnXNMI7 yIOamVTQsRiNqHtHzN/dQfzS0UO9lEWoffA9a7b+LioQvvj0za0C9DZoYpc2 Yhc1tS83HJt/jl4LbY8FVO8i+T8r0c76z1G5F/8zY57fSLe63jdWKR/l0Pmp Hpn7jbQpyS7f5ctD6RUxXEEceyiKtHv8TO5TlGr2+HDx3B766DSgwyz2FMUW fGhrfbWHpla/e4dqPEH+WsKXbvrvoz3R78e7InKRz4q6xnLhPupJPz6/zpeL PO5fOGoyvo/0UBq9hE8OcvwWMK+seYB0vqp5n9rIQgY3e/1WaA8Rm6oqq4Vg BjovPG9mih8iodjWqKv+6ehs1z7e4XWIFq2bp9IHHiGcU5zy6dAhyvA8HzqT 8hBJVwanmeX8QTrl34IitVORmPmDoPd9f1CKi6jPh9cpSIjkhbUa2V+UuLWv 7q2agjj1BsWZXf4ivdq0giiFZETixzbmwEUEP9vRxQad+8jMprC/VoUI+n7t /2ffm4TK/0OddHpE8Px8U+9/JknIjt+lujKSCJIuIL/Qa4mo5f3rRLJtIvjK HkmcFh+HuCv075owEMP6mSc9hh2xyDtrPrhYihjMWip/XSSPRULejG5Gtv/w leTWgMRoFM7jcDqvhxhUgnoF1yfvojHy3yd2l4hBGTeu/Y3fRSobcUq65CRg EUd+RfNJJJptreHfPkECNTHKkVy+d5CWB+3eqRck8O7Ww43Vs+Eo0yR3I62V BKq23PeX2sPQtqbqwsokCZygHAs3PBuG8jisBx+wk8KY3XFjRuNQRPa2/NVM OCmIsnyRyxW/jSyKtJ8dyyEFof5WlzTjW6gyZSwjpp4UEkOVs9mjgpGDK0WU 8iYprOuTd3AS3URtLGb24VZkUE8V5GUkFYCO/lk3/RJABjdlBtKKQ/yR32K4 nnQKGezDbMjN0RtI7M1LbKCbDKrc2BZps/1QpBMxp/BxcshyfxvcY3gdTeil 0t8wIodVzwj91i4fpHZCmrzbkxxmU6PILp32QfMMxlve+eRAdey12aqWNzpT V/ChhYUC3LJ/7Nm5eaHsp9g7dnkKyNDfiLX77Yl+xfXXuf5HAVw2hwUDgp4o 3+4gnzmUAnSryE6mhV9FlHR6oXbrFDCTzMKbFumKTMTNmtWoKcE378ipg88u qFDT4S+NCCU8jS3aWpF2QRcC/IMrTCmBRVrG+8e0M0qdzw0ga6OEi43+tFFh jmiRuKh2eJIStvs0RoW2HZAGX9VO8R4lUFJ9tnZzcUAThp2+xgpUQPQo6Nlz K3sk9nbzWn4GFdSH9Zmdu2aL/Mf2SwOrqUBkNfBK76EN6toh37jQRwU/Xe8v GsbZIA85bo8dCmrYGCuzJnW1RtUZmq5nvakBI1fKHjtngahqdF/wxlHDWdKl M6nx5sis/9LixnNq+PR2t0582Az9oXJzejRODbTV88kGAabotN8Du+WzNCAp MnM9YOMSSk3KetxoTwP3j6SVZppcQovFz7/dv0UD+4pk2i9bjVHsTIPViUoa 0BwpU5QvMEKDerNmsfy00Jas40GZboDE3Ncf2WjQAjfW8XfqqAHyv7s7rGJM C7SJS70r+fqIt5Hu8ng0LaT+tHI53qyHHKRVDeV+0YK8EbM7v/QFVH0G3Sdh ogO5U1FHnO3PIyq7c32fpenA5JP9+HCuLip+aHnxti0drLtai1VI6aBt8kid 3g90MOh/3avB7yw6I5gYnbdAB5QMHVwdg9roISG905/kCLDUhayRHNNGBJ9X 2oLqR+CbJN1sJuUZFP7t8ynvp0dgWQiNB38+hSbqdK76v/6Ht8m6Z8xPIY0H zam3ho6A6+6wO5rVRBunC5eiKemBkrqCOeHwJLIqCk546kYPL9PZfxbqAaqP 2Kp9EUEPOYU/Cou/IMRm5TxdkkUPMxbDdVPMCH1g1Fd9/YkeClJ1hDzTMKTh JzI6qMwA/AaF138PaaDUi4/IRnUZgKO5qohfQQNtStDLTTkyQLOt1Lcz8cdR wehOyFoaAyjblEyqXlJH7Ce7xSgOGKCm76oqBbMaUj8iIBFJwwga9y9u50Sp ovmArwRqDkYIyh0sjiBTRZqGF50YFBhBqSJWcIJUBf0mP17HY8cI+rc1kqvE lFC+94+P2R6MsLA2QnyvWhEZTb6cFgxiBGu/VzUM5xRRaa0QnUQyI3zkWfM6 8FVATm501irtjHCENb7t6KgsYh1u96npZwQr/+vd6UKyqEUr9J7GJCPcFF6T iPGQQXxHf5XBLiOoPb7vZ84ijQZ7J8nOSzFBDR/tnW9xEigMS+fqVWOCH9Yi 9wV+iSOFQiM5w1NMUJolcYPGThzFhHdeNrVggsI3z1pDtcSQplpFoWM8E4Q9 A4V8RRG08eRq02I6E5xy22scrhRG2QwSg27PmeAmaWgG/Qlh9Hsx8/BaMxNU iX5Q1dATQqUZkXq3tpjgs8jE2acZAqibJXKBgYgZNJku3rkmI4DmY+7cenyE GaKaj/rphfAj3psRxa0SzMDBfcyJ9BsfumcRRkVrzQwuKU0k7RPc6OlgaE6m OzOQUeyvTkhxo0bdUDW5QGYYr7A0Lg7iQtuEEAf9FGbg9iXyXpDiRDZ8t5rT upmh9eWzyJzXbCgoJfiy5AgzyA7ZE3FIs6HUI8Hr9fPM0FLXPGqRxYo+HAbx ThCzQNchg896LAtSnwjwF1FnAfWfh4/vpTAhw0sBDNWnWcDiNvvbj/xMyKPH P1/bkAVOlV3hEX/JiPIabwy6erDAsNJpmajHDIgxx1ehLI8Ffu9+V2fzoUPS HL4dmuUswKz0VD6jkhadSbhuNdjEApdilbx492nQzds+sTtfWUCMo1YrNpX6 3798bRFjYoVAuWCaMlJKRDrsdfvTUVYgnQyoTnehQEf1vNhtZVhhbt+cOnaA HBmBp1aENits3Pvoxl1BhpoFruZ2BbNCSO9F7qPZJGj0ofsxixhWILM72nZD kAT9YnTvWXvICjvGAX9ZCoiRDLHbAWMlKygnpTu9aSRCD6eumFxeZgUB6qt7 4vx/8ArTK98Xd1ihoPHddJDxId7T5xwZSM4Gbe7L1OxJBzhZi1NllgAbuPHI Nydy7OOeTxwYZy+xwbRi6eS+5S4eH/AoM96eDZSPuzbFt+3gr/R6JI57sUFn qDjvqMIOvv7n2Mn4KDZQK08pPsX8C3c3p/VWf80GFybU55YPf+CxSvBn+j0b PNo2x8ZCfuDF1L7RcUNsUEisMDFK8QNfqZl4Mr3OBv5hAft1PFu4K2v5QKwg OxwS/VTdcdrAo1fmrY/JsQP54JHfFkQbeGELz+qUBjvsmZznjVL/ji953SE7 ZsQO6vT8hVXVa/iVjyaqU5HswKA/XkS1vIzfy4t7G/OAHXaYOKuKTy7jBUEt 59Vy2eGopsD81awlfEFSximmjh08CUteUzaLuFPk31TVVXbItiy0nmGdxyMt VYS/7bIDO7uZZkv0HJ6v4lISTc4BbDUKysRkc/jcdH/H5FEOOFpqeFGHaBZ3 QPm7UfocMDf6l3mKbxqPYB+NULHiAP3TmxBXPIXnrTEwTbpygCpfzuU/2BQ+ kxEgqRLBAeNxN22Xr3zD7XZ1zSaqOeBny9AmVj+Oh30Knb/3jgMWyE52niUa x5/kV3sr93JAc73uxMR/Y/iUkUDMvSUOqLCcbz6x9hW3KfvRoMTLCVOxCmYd 9sN4yD2Js+MSnGDaJ7qn2v0Fz7W2HLyryglvOCZ/W6l9wSePdKyOXeCEXz4h duH/Zlwr13S+u6Gc8NGgiLiYZBDfH6Hu2YzjBMrIIKbvdwfwh+cCblmkc8KM 4caOEOMA3idhMqlYwQnEHcWJbJL9uNYC2+OxWU4QbuqM0g7qxb9duqOvvckJ zo0n38iz9+LB7dvE5YecUGhrRknl/AmvfjZgd5edCwQmlT3clj/ikg5JIkpn uYCXPMDSWawbbx8gGso04oL6TwGFk7e7cLtTXncobbmgVyLZxXi8E88Uujg/ FsAF/moa3788fY/TT9EV3C3igicr+X9LLNrxIr2bJls1XHBGmCowcqANP9u8 QmXZygUjzppa+efb8NCcLhelcS6ong54ck2nFd+2vCc9Ts8NjMM+cwJuLXji x51RbR5u2PzLXSW+9xaXxZxjy8W5QSWnxG8m5i3uxHtm7S5wg7Ww0odjNc34 yFfSEiVvboie6+tVu9yI+/3nY511ixvK85pp+bLe4Mz10wxUMdyQHsjwzn/h Na776K3X+FNuSDl0XxSOasAbL99Wujf073y240ufw1rcvGN9emuKG4Z1irKl HWrxXTWrB5br3PDqUV1jQk8NrsiObStR8kBQm8QeyatqPG9wr2pcnQfUWe8s oZRKHLRcnc6e5gHdjPnFv+yV+HjFCHuFPg8kMUeca8+owNkf1N6458oDLBN/ rvC+Ksej9P2OK2fyAFPJDyqS7VL8/gcp9+IXPGA+pLp/LrwUz9SezBat4YHo hAOb22yleCl2loyznwcK3fhNuyJe4cOS3J8OKHmhwMCtSdW/CJ/+F+b92Hgh +uN4ftLbQnyVP1zluxAvUBveWixiKMSJ2FcfTWG8YNfxSTi7rgCXIGl0aPfh hQgU/En9ZD6uFOydhkJ5YWB/fhhePsMJu2JdtfG88GLds1KA7xmut54gX/SC F6oHXlwiocrDb3y13UuY5IVnvBolhZRP8BBjdlnqNV44+Qbv60x4jEf3dlmH 7fHCEZ4pIgqex3h2u3LbdTY+UNMt0wrXyMXby8kTTXX4oPS/Iy/H1bLwXtn6 ln4TPqB8wTyUcz0T/1rg8VPHiQ/u7hX7X63JwNezv5jhoXxg81Z8/plOOs4e 80JUuIYPhGfau9mK0nABCiuTzFY+IKD10ZojabhUKHMMWz8ffPspccLreiqO 3wjaoFzjA+udu4s151NwR/vzDatCR0Ezyy9uSOYB7jFBvO6ocBTIc575Xn55 H/c3rRaYxI5CaW8craTifTz2In9kn8lRqJu832KvmYRXntjUq44/Cmk2ldgs UwLeWP0sXD7zKKj08VPonYrH3yuaVRe8OAp5U0X6XIFx+Jj4O56M1n/1LxBe qe3E4GSsKfO3944CicPTknXpKJx5/RY9MyU/fFNbfp+XcA8XfH9FLY+FH46f qtUS3bmL4zcJke9l+EGva6RPvC8SD5idEWWy5odhgUW/d68i8HuNH88/deMH WZpfhSZyEXjqwxpfVX9+yA9TUaEtC8crdWPaTJP44dgDEoegpjB8vVLJ8ck7 figTnC+6+ycEP4znjVPp5Yc6P+k40pQQnM6Foqp9jB86KSvv08uF4JJ8X8lW fvKDx2j2a9FPt/DyFujnYhWAUr36PKu1ILyuRHXejlsAWl4MNOyiILw5U2qv SEAAUmvSvTpSA/FPfqxCuKwA5KGe6XS9AHxVavGa3RkBIDV8NOi45Ydvc4zf KdIVAAe2HIFVez98n6z/0baBAKTly9IuDPviNJMNbyOtBWDs2I7H3IfruPiD BKYifwGwjf/R0f3VG5cLiRDdviUAZ646JNQ7euNqVwOOY3cEYCYsQjnkxzVc S9ve9lOSACw1iO6f47iG2+2rlf0oFIDmkOkEqgMP3GVRuo1QJgA28oliz094 4F5DAiN3agQg+oLqsY3bV/HbJTTEnK0CQNuQ8ZCe3R3PtJ/QI4wLQPrhj7Cb vi54nt6Aw52Zf/4+yK64fLmCF2Hv/XuW/uljb3fKYFfweo7yXJtfAnDBdF1r kMUZ/9J9ZyOCQRBm+Gd1lVcc8GQ867QxuyB8lBi1irFywA3KKtNF+QShNVFJ OWXIHu9JndFqlxIEZjWVq+Y9dni77clHlGcEIYBlplVo0QaPGDRZ/6IrCKsG H19f97PBNbW9ThUYCkI5kRPrO0obvFEmZ+2srSDQqSWq0ThZ4dU7ByejbwpC TuVaCZeROX7dlTXNLFwQtKWXAk0yzXClcelVqWhBqPvKP+C6ZIq/ajFL7U4T hHBaX7WoJBM8P652ma5CEL7E7KYYsV/CHYh60XidIETeDDbqCzXGhXwWkl82 CwJTvc0LlU0jPNuEHV3oEYQ8q+9jZ0YN8VTh6w8SlgQh2vzr1bkRfdwoNWbR ekMQXCf/9I3b6uPM1E8xhR1BeBTHdPZwVQ+PX+9b6CUTghMfhmUt6fTwyDp5 ArOAENQTRyvPfNXFtWS0k6bFhMCv9rb1BKcuTpJjNV8uKwQOo494t8x18FsR cYmGJ4RAzctNcHTjHO53cWU2+ZIQnIzyvChtoI2rtJBoOFoKgaeSia1F1Rl8 S4U7QdVBCPwnqPqKeM/gHtznjn++JgQf5pkbj+1o4U5z+XEccUIQs64tJTmi iYuYNE4vPBAC3dpo2atmmvh019Cx2vR/fl/euUw+eRK3KiWbNikQgodm23Ij m4AbB9mppb8Tgo4Y7d6QGziemsVKsdMpBHFnuuppazH8c1P7kGGvEJh2fO48 d0jAL5FJ+x4ZFwL6UqNVl5QTuEncj4qQX0Jg8Lj4r/RvdfxhybPw8QMh+HTF KYhgoY4P91021CAVhrmHIC3+7hhuyv566weDMMy+aFySylTDzXIiFJ0lheG4 XGCRq78Knv5WjbhVXhhkjwsf69hRxkdnFnsF1ISBs+m8iG6gMm4hcd7rq6Yw sN36jULuKeGWZWwl5y2EQdL93Gx4hwKePdBxq9BOGLTYVvWZrRTwiZ8BFyhd hOEUdu6Nx7o8bqUxsdbsKwykRAKXqe3kcJt3+TIqCcJAcZ0QshcqjefOmRwk pghDHW/GB74hKXyKkvbDWoYwDHwtsLstI4Xb6Xq6PS8QhrKaOZcHCxK4/dCx Qu4WYWhk/pBBiBXD83aWAm68F4bA4kaBmD+i+CxX5rnBHmFI0lllNLouijtY ES3FjQpDtoXuhT8uIrjTwntx4p/CcEno/flrQUJ4PnXQjuW+8L/323dBl1II X5CW7agnFoHF8s+yxKmC+BWvJKfr9CIgtsShW9YggLv8Nn22IC4CvHWze7m6 R/FCHjpfLTkRoA58bXA8ng9fxhq1HquIwIf7xEq3Bnlx1zChWbOTIuDIMNTy 0IMHd6ddEeoxEwEXAn6M8jMnvhJQT0ZrKwLS78pO7RE4cdfFqHltZxEwQRcC M59z4M5tEoVvfUT+5UdRweS77LjdbSfFqlgRIGLdMvzlyYpPramybN0XAdmj FKVkWyy4jQX5T7lHIlB1SVGa5wYLbnU8r7bgmQgE0L5WY49mxk1/TKHMRhHQ s1EA4z5GfNi2THCkVQRGdgsWylwY8Uu9IaTs3SKg/npGPY6METd6yd+R8EUE CuGnF3k4Pa7nbHkhfEMEtCxX6J6+pMU/DckoNP8SgctKZieZSWnxC1oHTIcH InDnmVlCpgUNriOYMeRHLQr1xk8nsnio8TOjwxauQqJAlGzsUNlOgbedK8Cf S4hC87kealMNClyr9obArJwopKn/zbEqI8dPprDPWp4QhaaYs5+PvyDDCReN 3PSNRMFFg+gyVSMJ3vBG+Hy8mSi8e+Dy7t5/JLiGzA+5bhtR2HeW2ugdIcaP Ud/f0roqClr1nW7XiYhxpXefAtQjRUGE5hwePvwHK1PMMfeNFYVzIUsBV7n/ YAq5Hlj5fVE4wf+Uc8XmEJMNPkIskyMKG+tNdgr7+5jEMZ17/LWiUBZfeHPH 9jf2/Bm3q0WjKJi93ZGObdvFxFiXdR61isKxlPKOWZldTGTzHgNLnyj4W/wM u0Oxg/EXtadSLIvCdzvDDr6Zbcwop7aua+Ofv/Sh03mXt7HoB4Vj8TuioK73 jrfn0w9sOyheiINcDOqJ2s4VdW1hXbqXXokLiEG4xKEbzeIGRnTybN+KmBhk L9f1id7YwFRVNbZLZMUAru8yKFNvYLl8RzXUT4hBoePvmRdu65jf+lzb2Uti sPv9aZqV1QpWPP1lkc7yH35mY5v1fBmb+txJ22cvBuz68RG5P5cw3aaX+qbX xOCmjbCJb84iJpToO+4SKwZrTRglk/g8ZhLhTCT3QAxcd/8aizyYw+L8TYW3 HomBg+qyCwvpHLZrg7kEPheDQar+4KPrM9hHRfKf0S1isPK6+SysT2EkYjsc FzvFQO583rsIvylMnXtJg6VXDHrJPrcsEk9hT0g+hmSM/6tPcdzjteA3zH8g ma54Vwweq7jSD1OMY686IuW9/orBdPAVZ7LTY9hMg7+BCoU4hNnMUaF7o9iF PIuHr1nEIXzU7MCE7ysm4isi8lFOHK4bhCbl3fqCmbmwayepisPTqvQnb6c+ YwmWVK7GBHFosqrR+3X2M7Z3erVk/Jw4kMmlrR4XHsJ62StPrDuIQ8S1gGkT sgGMgjbfqtxNHJSEy60s7vRjJ/6mhfp5i0O/ifmnEup+LH8hqOPPbXGQN2oo WOfpw4JqTxkyZIjDabWYKarOHkzJonfD+rE4nFiRqyKm7sGW/1rElz4Xh1NW by8VnP+ImWn7depXioNyUud+9Gw3pvG5ACV/FAfmUDuf3NOd2FaA6vjsgDi8 p/0rdvj8PVbI1xKo+lUcvl8jFVWkf49xOY5WfZ4Xh5k3RM1Nc+3Y7o8jMlxE EkAUczvtoLEVK01L73ShkAAmTofgZKwVu3JC3LmeTgJE9r8nGza9w4bD4Ik5 lwQQp5eI/+5uwWqYfDizlSQg7F5QxTDlW8yj6m/VuroEuFW/CMrKasbETGMN EZKAzMVj87uqzVhq7rP4bzoS8IKGcdZprBHzkx8mE3aUAMt8PmGOXw2Y3IDD Ex83CchP/M/rpXYDNu+3iVqvSUAe53hheFY9ZtxIE+R4SwJec3PciTSuw1TO Y5vP0yTgb+d7B/Htamx1ozN+N0sCKEPmd387VGN5yZdkzuVJwPMXTnnnRqow 1jFP5+VSCaD7yttI/aES++H6ZFymSwJYEpKtPnwpxwrp5YOCeyXgE22D7Cm7 csyuvIGz57ME3JIfF0r7Xob1/x409JyRAM9BosAE5jKs/B5lV9mBBODEJGR9 319hrjLJziSkkhD1XmD9i9wrTKhXgNyQWhJEbKRi7nu/xJI4NGCbTRL2/yyc ekVZjHnlu1eryUsCN/O7u36OL7CJTzwp9GqS0JbWM7BbV4Cd/93lM0+QhPLt LUFilgJMSldSMfU/SbAffeAg1Z+PzW7OFf10lIRdd7uhutA8zIAnJfqjuySo zF5+CDtPsbdaWi7PfCQhTNLRxcPrKZad9kTMOFQSjjlLqlhefYJdxqwfV2ZK gp/C7NhBfC7W7kQfEvtUEiTlD2tl+HMxlcQ3Vg6F//yaH1PPccjBGGd4eFlr JWHqT3EB3pKFdd0bTvUZ+KevtLhZ/iYdUy+/66vzVRI+ln26IECdjj0fVTMS npKEupY0H33TR1iEXArTwLokhNygXAimfIjhg/qxSjRS0NTy+2hJWgpWfEjk RsMkBQG75pvfyFMwHvHSc9McUuDpSWe0ciMZ2w2gp7wvKgVpzboPhZwfYOX8 3aGbIAWnZHu4PTyTMIFzgTad2lKgGCjnWP47EUvwlkSPL0hBeVl6KdPdRMy9 7e6BnoUUiIVVrmUYJ2Ciblo3Sm9IASgoaklIxGLJyT+M792SAqb3FtEUrjEY SeMTFZs7UuCaL1W+WBqNTTASbzE8kALpLi02pfNR2MPqN+6er6Tgi9bxRfPX kRjFN3cd7SopUI50dRkSisR8qXml+F9LgU2OfKZ53B3MwCJwoadTCgrU8q8K ekRgdCTH7OTmpMAgfCzgrXkYVneD1HB+RQpO+8t/JJsOxZzWPp3K3pKC9J9W tp5uoVjz8BVReiJp8LD9o+R8NwTzKUlfXOOWBhID11Lvd8GYgKjzyDNBabDk 4pVi+3MT+5Cu3GUpIQ3JD+ccBrGbmFjkh6KPqtJAQ33bQehDIPbV4o/HSz1p SDgz4Bgs4I/d7e+ydrwsDTwmRhdDQm5gKmfT9PispOHJx6sCBbN+WLyyglKc mzQwtBWf+l3ri52ksfvpHikNQkQra93xPtj6bbl5kThp6D1+7TjPER8s/efe 57EH0iDWTRbeHu+NbX97UKv7WBoeq8lGDWdcwwpq2oJkXkvDJVJ+E0KVJ2Ys e999tkUa7EpsV35Pe2AkT60sMzul4V25d7MkuwdmEb+D032RhiSm8Bd6se4Y g6MkyeqmNJSnSX4mrnTBXn/9ufV0VxrcNUd2EqldsCt6LTPmf6Xh7FaaXrT9 FazlhHlbN50MXCQluqgt4oz5McfdKxKXAaI/1Dfmhhww4XumAfZyMvD7M2lN g44D1nso6sqjKgN3Ns+IiLXZY1JLjToxmjJgpT6rZtpih000bdC7WcpAoabB o7YZGyxG9c1fIQcZKNUt4233scHUi6I2vrrKQN8dQ92XFDbY/VSh/v/8ZcDm 8VBAu4sVdvqqUYrUAxm4Ma01PG1rjl2/30Dk+UgGThOoXMxrzbC8GiH3ihwZ eLGjkbDGbIaRkGxqEoploFfNv/T3gAnWnBq3cb5NBhgkbBwYwy9h3xu2ze93 y0BIySoq3THGjk6Zd3zuk4H+YC/iEk9jLFhaKtt6QgZ2EyRwPxcjTKO5Xefa jgzktZ1yIwkzwFzmZGuqDv/p79gmuTMYYA9pUoT2SGVhzSxQKDNHH9sxsv8d xigLb0b1L1K+18Mql/7mJ0vKQqPwLdp4jwvYDL0z84i8LLyLEzARLT+PMav0 BPOpyUKDwACfzp4udu1WplG+piw4DtSu9KXpYHIsx0lqzWXhpHFJ0zeyc5il eu7VA9t/93WxkO27nMViLSlH4IosHH9YoD3Yr42tPB8q6bwuC6YiNanOJWew AoK35WicLFwtTb1TmKSFDduOvOdPloWHvdiIPrMWRnkXVBzSZaEo0OrRkdRT mFMfPe1avixENFEk+uVrYsJORbV/mmSB+PrjadYlwAximEVOtctClYJJm10I YGGlAQl3P8iCG5Y/rM4N2Lc9bSfGEVkYe1wXdKsQx7ITZlmEtmRhg0d9Rarn BPaxUue2064sbAqmMJMLncAORsqXC//IwvIuDwV1oAZmLhL6VplWDsyl2b6I qx3HOOv4PE+LyAGxbc0I25ga9sf+OQ+TtBxoTLDFvtdUw2bpFd+PKcoBR3SY /u2Xqlipg5bgdSQHPLMajPHxKpg2o9vAEzM5MDZ7XulyUwmTadi+7WErB4S/ k+LXiJQwZqdbMhpX5CBFYW2v5q4iNtGQdKfPVw48H/OqvsxRwPyca48RJclB c9a3++tzspgFs+Zsd5ocmAzerrjKJ4tpvulOTMuWg29X+L1lzWQwepbJJbli OahfD+qdnpbC8hvJMy075IC18eGjcFkJLNYl4axkz7/+hP1crWPEMW9Wrp/b g3Jwi6wrJXBNDMNdZS7ETsuBAuXHrsM3otgQmyFRw6EcyCeU0Z6NE8bqm8eK I8nk4S8l531JGmEs183J1IBWHsJ6T1wJjBbC3N8GlC9xykPTylAgfYogRnY1 14FTRR786ha6IYcfW+aQYprVkIf844UXFbqPYr0tFW9KTsoDTYjO75cHfFgm Zwe79kV5OKEtUtHkyYuptK6993WVhye/FMsc73Nh3J43fE9ek4caKjGJxXlO jIibWOiIvzw4JW4XLSJO7IMna1DeHXmIlzsjtPqHHbPnOSE7kCsPOTNneqde smJy1y5Eur6SB4stelKJTBZsr912kvi1PFTBS++Uh8zYfe97SQpf5OE917QJ SR0jZifeN/ltRh6UF08yHgwwYMpjXHJJG/KQZF26vHuOHlt+Yjy3S6YAYuOX 8uU9aDGDwwA6fVoFKKQ3Us7ipsEaLmcrv2BSAMXXGt5+X6iwWLqFUNOjCiBU n/vm7G0KbNuJ9kWZiAIQSkLQ+yvkmMVb+V5q6X98cpxXkzUZJuvnf7T+mAKo iGEMYT4kWGpv5mlmXAE62i8OcyQQY3+k3rq7aikAHvNcq66KCOuZpG7g1lcA ilE7B3KtPwQ1Dblp78sKMOL0LNj04wEhO9mAuttSAWxGXnV3X9kneJ7LuBzk qgCi/SzVyf27BPgz80z6hgKcXuP5Ohb4i8BYIbM9Gq4AprkKZxvNtwnfnH01 YxMVwKxoP3HKc4tQxtuYSMhSgJiKBAOv8g1CWB/F5OoLBQh9tsvKjK8TDCIv ymZVK4ABqTbvFfsVQu5Af86RdwpgmJ5Kzf51kbAmcIn51icF4GG5TzwfO0/Q 8BiJWB/9xyd/tD/jN0u412CxY7WoABslvqmSSdOEz1TfXD5tK0Cdj+aH38Pf CMKX7McQsSLEZdwf5nkwQfB6On+h9IgiOAkUEaPGUULjhstbAW5F8Hn4RTJc ZoRgGuOVT6ysCBfrmxeF6wcJ26I3YqZ1FIE7mFXpK2MfIaE52OudgyJkinvN nOT+QJAyjzDOC1YEwmnHFG/hDoLptWpmslBFUBF5eck0qp1w7+7iJ/sIRfB0 MbTU/NFGmKvQ/U84RhGIjJwFy/pbCbl0bOjJQ0WYIB6uhTctBLbGZxK5FYqQ /4uy3dSskaA1+GXub7UiCIizO/7LcgTvZeqn1vWKcGIr/ox+92tCL7sHH/9b RfAqTH7SrtdAiPZUY87uUQQKbh4l0pRaApFgx37GkiLQ4sdD4hYrCPLHftfu r/7r39pffse+gmB1XtrPfEMRQq5KTA1MlxMaAhI2uHcUofULE0nMchnBr//y 3CMyJZhufN2bxF9KWAlf7EnjVwI6GaqxXL5Cwud56icPjJVg5UgxOZvgY0K7 UVRmnYkS+PxH8yuqOpdQ3UKVNmmuBHw6X9JSLuQSUrMpY6XtlCBLNHLYli6H YHyJ3O+dhxJU0F49lS6cSRhsI/rvx10lCNRcyBznTSP05+1sGtQrgfzBJZY6 +QRCj93cSWZ+ZWi9OmbUaX+TMEX2fDdFSBmabhgybWUHEbbzr5RwiSnDoxr/ h56TgQSulRVeQVllOGxSlfnsGUBw8NnakT+hDJdYv/wN7/Ij7IX/fXn+sjIU HQwXz+l4E8SecXFHJSjDwTFtv/9SnAnHtUd76R4owxPhrIL2TSeC7lLm3cRU ZbBx/J5SauBEuCYr8DMtSxl0RUueGgo6El5XifXmFymD6g3j9ZfrdgSDduXI 1g5lCPom09HgaEVwvPKTcLb7Hy9+8GL3viXBn6bmR3ePMghy208ut1kQsi5o 2A4MKYNFkjSZAcGcsPgZCNMzyhAhWLzJ6WxC2PMn+eG4oAxktn0n599cJhzh aX2xtKwMwq8Mq85yXSYoWWtzbG4qQwjTfteFcWPC6X9D6PWfyjDkIOtVddqY YPK0K2J3VxnM25iUj5UbEVxPx564eaD8b354m1EjZEQIXji/9fevMlRT1+xw pxkS/gejebET "]]}, Annotation[#, "Charting`Private`Tag$12859#4"]& ], {}}, {{}, {}, {}, {}, {}, {}}}, \ {}, {}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1nk01H0XAHDZdzPzm02yJzVZyr7M/L5TRIkKoRKKyJ6eyZZkyBY92WWp PLTYWpSyq1uYtqcFJWVPlCilLCG9vee8L/ece+75nHvPPffPq+x+yM6Tn4+P r/FP/rdGfrCZ+P1bF/j+F8MR1Mmu+SVvI/RNV/9cspJx0K9D35d8PyldtH94 yaJarxXg6ZIzj+zbys1fcvkyzkU+wyULeVrqyLroLBrrbPEvSlu/aLumPI81 j9ctOmKc5Z86qL3omtA83+vbtZbuTXdQWsjVWLTlucZtm8cYi778ILyD47xm 0a6xmZTnJeqLPr5P4JoEtmrRfJqKd83iVi76bXJuQvkrlUWvEPcu/bFRGQ6b BasPnbAW9NNnCHWtUATL1e/fWt3kl/cw7C1papID/50att3V77UYYSa/Ay/S wZlYVOX9eMAYerYxBrPpIJl9zGC8UdDE0czDwekkHdbzn7ro2aRuEiN9qhwF 0uGCr+e5XTkBJm8u9jgRjOhQtc1BqC5vwiSxlVtx4wkNOsZDSjcdGDFVMMzq UrtDg6G0MtFHbsLMW2dLhfMqaECVPeKX7KbK7D/Ytjcmiwaf2jquuaU6M0Oe DidMJdBA9zy3OuhSCFNSd+6m71EaVNPqdI9tTmcW5cj09vrTwJY/cuNu/qtM wwVVMXs3Gmx2M9DcfY7H/NfDSO+BLQ1+msrkDtsNMN0fWbuZmv/pG5i5PyHP Mme09iddN6BBQ4WE9zMrjHU6M/i26hoazGk9t7khocFaOXuy/4wcDTalh/9S ETVn1bmdl5CUpkHnpV20OIW9rB0tNw24fDRwn10hfOcAhzXMeLD/xwQVrpos MIO3JLGOpXad8h6iQp9rj1ledCGLNDVe3f2aCuKoM7l4pIpV4iw4uOMxFXZG 3d04FfqUhd+jS7c0UMFK9JE9ueAd6+UqTWPj61SYHeoc11KaZvme2nDgaiEV VLHpojIjSZxvwiFFOZMKh21ym1pHlfAsJ9+6rHgqTNW3nT/+VRdnNB4fEgun gmvyw2uXqJY4qGQQjvtRwTCusMV90x7cMbHYdMKFCjVKdTlX3QLwsc/1Xl47 qNDmbG48pcLFY+xfpL3dSIXNhZWkOb80nF77vmGbPhV86h1UrkQU4dcUfn64 r06FhQB2zUvzStw8VgozXE4FC6GW2J2NTfjbEWW8XJIKHWEyvOnedjxou4GP 4m8K5K6OqlwoHsSFb1tlZnyjwJNsccxc7juev9ztrsh7CtxwFti1gPjROi7n U0QHBQLP6LerKBMRbyiB8vUhBSofXZ6bzVFEe7eeZR+op0BKw6TxugsaaKKi wq/zKgUOdXtHK0Ybo0RqS7b1PxRAC+XEcVsLpHDszT1Ip0B8n90Ib709ujXw eUwvjgJvr/DFuxjtQ1aW/PTSUAq0Z2dXKn/1Rf1XqGbyvhRQoNqsXzEXjEJI awPT9lKgfp9AymRBNJIMQ7lC2ymwdq0YUHjJqLDHvjl8AwXU429rT3GzkM57 ndmXehRodnHy+/yqADV/Iq5bt5oChIjox5n6xcjh21fPZDkKHMkVmCSXVaDh 6ef5w9IU8MjusjycVo1CF661buCngL1dC+WbDyBRodMi5ybJwDO8IGsWy0O5 EgGsmY9kyO9tSm/3e4YYJGuOfTcZ2KUDsVtYL1E9fW3ptedkuHt+8uRM3Ftk rSjeJ9ZEhncNzMg78gOoR22E7FlFhuUJ0X833htCgRoPraCUDPPPRPZXMUfR b51irtw5MgQWR+tGP/6KUo3jq0JSyZBTLctX4vEDKbM9x1pPkIEjfFBmu/sM umlhrqIZSoaCsX5lt5p5ZGajuivRlww2EbPtB0v42C/t+U8PupDhR6Rf9LCI ANtzz0ATbkuGYEEBm1ofIfbUPviZa04G7U2Z9JQ6EXbCwQLtSUMypBwKg5Ih MTY98LjnjrVkyG0YHODvkGCXHXHJL1cgQ4fJi5iiUCm2aQSzVZhEBue45qiP NdLsf6PlRNyFyFCb5pH9b7IM2zVxltk4g8Gah1mhA8My7PHTb/6ij2EQdFmk TIQnw+Zm1ZRw+jBI/3mjuYEhwyaePdP7rA2DgLlzNQty0uyiohAyg4eBR6OF Bu+SJFu31MEqrhaDcNueZ2qd4uzm63rc/isYBA6tyVTjibIdqrAq038wUPRk vwqJFWYPN0yMZmdg0DQjWKm0WpAd2tSqPBGPwXZBiZsbW5axRR9XONkcxeB4 SkWuVPcCyn2R8ndJAAYFJpfpZR6ziPE6sElgPwZfDWrDLxpPoYYem5+uOzFo C/JLdTg0gWzea2jXWWLgvlO/9pTCF9T7ScKTYooB1XaVS4LpRxT07VNekBYG ds1o4KTuIFo28+jFE2UMarfr5xNmelD6QomwOgWDLwW7qvNFXyNVoURmjCgG bkY1fkcOtaJbEgf/6pkjQYXYOFng9yO0iWRRYjROgqInXD1EbUIddLXejHck kM082p+XV48OKgqSx1+R4MTD69GFJZVoRm1wi9UjEvziOlvWZ5Sjkxr3oy41 kCBS67XgXckLaLlu4W2+ChIs3HHPOjuai8qNuaPOF0jQlphoLu+ahphsN+Xq bBLUKflcnh+NR08tcCdSEgme2tOtvJ5EIlcb+b8DIv/Mh5X8YpA4aNx+/v7D IBK8+tbQ7ifhjbh7umZUD5DAztbMfkeXCyLur9OKciLBwzt6RYUb7FDRwdwD b61I8EikeEHm1yakGxiWp4+TQHrhfrEpxQQ1H3F6kbqeBBEtZy82hmkhxwgD 4bGVJJi/p1FXmaCMPkRTmJZ0EhxW4ant6cGQeOT18QxxEgiK1s+dlRVCWmFb LvTPE2EucLcnCEzhdpxBR81xIvhxIvVrUobxkMBI8aMDRFB4yOGuqurA83xo d3jtRFCqiibyBfPwOwduHMZ4RJB3joite34bf+e2VW1fDRFuRensXXh2ERd2 Huq8UkYEbvZowXBUBs5wjDr18ywRHHfrsYYmovFttrJsixQixARjiQEmQfhf 1pXf06OJwKvA8qnte/EsS5viPg4RrIlBArJqW/CajR/2aHgRIYlmrdWQrI93 s6Klw3f92fcgMtZLRQXnM5a732JFBLGJuH2S81L4Sr3bwSQWEb4cH5Y4snuG tVl7+xo3bSJU/iMSw/AfZPkzRrrLlYmQIq0zwDn0jJWqdiJ1BiOC0I4SfI9/ NeuWkrz5JmEiuP0wOjp5q5DVKVc9nTZDgM9RnozWrUmseaptee8nAlzh5ArP aHJYSqRR17U9BHi/RnmvRYQzy0wqjhT2nAChYi0bOh3NWF6iirzmewS41Bp3 xrWBwUoSqA0n3iKAjpDIJXl1Euvagp2m62UCjPlm7E0ymGG2/RzrL8shwHN5 TS+j2j7m1I/4zOkkAgxu9Le+59PMXP5VabN5JAEKu1ZojTwtZeKjdXOphwjg U7HF20Aolek+vPN6z34CTF2d/i6RxGHGD3xxZ+wkQISmDO+EtxOzrDuRGmpB gPW81vbGZFPmRFtDJGEtAdS1XxjrYfxM/qgtOfEfZcAvMtO2e8VJU7R+pNVW SgZaFQVLAhJiTeqyVm/66CgFr3UbGuNZGkaizh88ljGl4PCg9qv22wJGjkqX Y5YrS0GgRPO77+JdhhNlqmA9KgkBt14wzdYmGq4BBdMbUZIgsNXYutCjzyDn E3n90RIJ+O7dKl+uFKofjJbJS86KweuTnxokNrrorBt580P7nDDsmV5RRcyY ZJjXdYn9cuSDHq+ooB+XBulBpddniNj3u///Nx29VAvbjr1ZdCJv9sUuxaRF /wccjjZu "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S57Biiw0j24KWD6ZzifqUz0TookgwOM z84T0Jj0jg3Ob35wzbloMS+cv2F2W0DdJ0E4P39RisCTMFE4Py5rlmx7owSc 3xlYZmk8RxrOZxGZ+qz+lxycf/1064cWfkU4P7Q6yWzWYSU4P4f7tdK5KBU4 X371sWlsr1Th/OodzsH8s9Xh/IJlOdvM9DXhfB4m8yS9p1pwvmtuyFStyTpw vsRO2XxXFT04f1JRx0SD6/pwflCbv+7cbQZwvlZ0S+iSWkM4/9ozzkWTQ43g /HNJTx2F5I3h/Icsy39MVULwvyzLWC+phuBLvn4to6iL4KcUf/qub43g/2r+ v9Y3HMFXWyop1dmP4Fu6377AMxnB93k5p33CNAS/UFfh6/S5CP6erWoXlq1G 8IOOGbcdOY7gp2Z8tfE4jeBXcG3/fPocgj/Xzyrx8lUE/8U1B5tHj5HcW8H0 OfU5gs8rfWTly1cIvlG8u/jHjwi+KyPnuZKvCH7E4lMtP34g+FmuPdY1fxD8 2ue+n/7/R/ABUwufmA== "]]}, Annotation[#, "Charting`Private`Tag$12924#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF1nc41m/UAHDzsedjPDyPXUhll/B8v3eyyoqsiqyQUVJGyZYRSclIVqUS UighiiOjjKwQZYuMlE1Eb+91vdf7u/+5r8917vuc65y/joTT+WMudDQ0NC9p aWj+9w7+brz4968K0PzfmQwUWPn65z+bcA+vlf/+z+Lq3lvnl/7zu7jbzCOT /5lZ/rMofPzPyb4OhmEZ//kprc8jGrX/zOiiryx0Svn/TexrOJuTqPT/PlaX fnpXsyIE127zlB09QBP4Czt7a1wBHDJiLi/fW2GuuJTuUXRUHoK12xtXB65x m9y2FN++uweSVFIb4topJP2styaHf8hB7tVc4wzpKdHc9wG9Pja7gA8MrITQ sx12kcn87XkyoBG9e/VPnolciAP9czaiNBxdur49O7kuT7NXrEY7agd85wr/ PNdNo/Ll+t2Ypz2SkFdVoq+ZVLufwuqWv3xIAoim8wHPbjxX99wnx/iVIgb0 lcW9llNq1IuMr5/4c4mB6Pb8AM0ZLeqVHn0DXjoxGNqRPhFtcIQa5+dy88h3 UZDLpjeOvH2SWvDqvlBFiShkTnV/ffAmiPoiSuGN+SNRIHNtKEjmRFIrLavt fqWKgmBsc/Hh5BvU5pWvD6WDROGOI6OxCJZN7Wrw0HvnJQr0Tp4+RrceU7+k /J465SgK/BMfwuDlc+qYy7Xrv81FoVlrI+9d5yvq9D5B+RQ9UahVPsfWulJN nWfM7VBUFwXHw6E6/nMN1PUeVZ/W3aLgoPJG+zttO5Umt47fTVQUArhaTveO 9VCZ/Y9V0POIAm/xUGPX5yEqt97oyXv0ooDuPc8VfjFBJQl4b2msikDOuMZ9 j8s/qeKT2/d6p0Sg16XCQMt2hSpbduPQxa8ikLDJ3pE9sUVVjKZMcLSJABN3 1g3COAN2wOppTD6IgDhPxHUnSQ7soLSGnO5LEbgm8LK65zAfdnj1Q+vIYxG4 cf0OTZIyBTNttD4flCYCLJ2rL0pvSWHHUyd5SNdFoM4Ga+kV3o05uPqVvgwW gTAZ45ty1crYmf0M1ke9RUAjwz390og65kVI+j3jJAKPS0M5pXq0MP9eicxo SxH48+5CtVrsYSwktxiXPCwCd10FYtv7TbFofzT6VuNffjn1wJ1kayxBr+3q ib0iINT1XJrzgT2WKnBKekVMBOZUQ/6ey3TBsidnP9ziFQFOS3c6k8BzWG7Z Fc89jCLg1hLUrkT0xZ5Hs3B+WKPAzY4G4oxBIFZmlVZ8eoYC8a3ZerZREVi1 tIz53wEK7I6Yw5lJsVjj6quV9HYKvAzpTQldv4W1Neqk7X9HAcH65Er1mVSs N/WTRlcpBca465+fHc/GhlydBs89oUCr3T1Piw+PsIn9C6Es6RTgm9NcEZh9 iv0ghEk+jqfAzu+5SZYVL7DlXs6Gg6EUGMUmRzu5XmN/crPODFygwKF0ZVmT GsAYLu1hvexMAfcPT08KH2/E2PWrConWFDhy3sax5N1HjE/Q4GjREQrg/SZe nE2fMMr3vgUDKgXcssOoitpfsB3lZ5In5SkQgbA7F1xHsT0xq/sjJChgNL3n fDDDd0zVOqpfhI8Ces+u6lxy+YlRZfiCXhMooPLcblCNZRnTWcsRtfxNhkj+ 68MOdhuY0Xul2vlZMqSb6CTZH6PFLe7A6fghMmirWu/dKifgtmeOEmQ7ycBk dbWOpYYDP602lFdXR4YKF9WaBm8i7pqnZqVXTobqNgOf7zMk3EMokb6pgAwH whUcp8fF8HNxM8WG2WTw1J2wv+CwA/fe1LZrSyRDy1aVkTmNHO5zNovNLIoM UgyBtVdvKeL+g6sVny6TwXevmfU87z48wMTU1eosGbJDeT6db9DAg2ryif32 ZBAzTDZ4vHEQD1Wkr7UxJ8OZgnfXrcJ18YgHtl5DemSQ0/24M07ZEI/iLSM7 apAhJ4VcsHePGX7tKlfT+F4ykK1SuvSfWOLXl938XSXIoBMZ32iibYMnuLyT muYjg1LxRMIOKUc8sZfc6cn8r9+nHXxaV13wZH2/kJ+bwnBz55Y/75oHfqei bfeFX8Kg7u5wcHLYG0/fJdu/NCYMt6V7vpcI+OFZ6eHR/r3CQK56lDBoegW/ z/ZV5XeTMFDsOyJEXMLwh0Gqo4FvhYF2aDf+zSUSz527kbBdLAzPRGrfHLCO xQvsvmuGPxIGg70KpnvP38SftR+cpk8TBmsK2av0UhJefDA9Nfq6MBQ2i83V ENPw0pIlbZZQYXhz4ULfcFUWXi5pvHD9ojAUvYqSELfMwSuTcrM5XYXhaA+m GXU7F3/LQGOUeEIYimPv37OFpzj4nfhNNBYGySt3zMuYS/C6yRe5qQeFgei8 Oms2Woo3WrNbCKkKA9dr59qwhNd40wcX2kwZYVhcN2if1qzBW9VrnouShaGR vPC1h7MOby8g2T7gFIao4zIiSwfe413kiyw76ITB9lNLyyGtVrwnvqUsd0UI pD1fXe7d1Yn3be1w3jUtBFm7rjhJdHXjA14hPIUDQlA+LrVqfqAfHx7+XC3f IQSu2pG+X8KG8DFTpbMldUKwmLJZZOU5hk/WxgmplgtBcvmCmur+SXxa+Vtj WYEQDBVq9zZUz+A/HmK+6tlCsBosQdwkzuO/+O5IvEkUAik8fMzKeAlfjJpv w6OEwL5XI8lJag1fWT0SVHtZCPjdXpmwv9jE18883KVzVgjMmtyK5uNp0Gbf n95GeyHY1hpwcwB6tH3EKvKIuRDM8xxhNI9lQrRVRUqtekIgvDG+pkfLjhj2 sAybaAiBqvjMmaEcbsSU5RTfuVcIDnW6+ji/ISJWzjfqFhJC8C2VJvargyDi DOX/3ssnBDw2ctyjuWTEM++VfIJZCATZDLUPWIgjPscPWgObJIjsSNso0JJC pC6JX3a/SJAYdvFJb6E0ImsHZo6OkaCD5fK0Wr4cEi3tPuLcS4Kl3gBDZmMF JLFTfm2yiQTvYzRPNB9XRjtSYx65vyUBn0qnflvAPiTDNGr2o5gEP0NX1QaF 1JHcZY2/Xo9IoHQiV8vTEEMwaCI3nkqCwWNdcQYGWshK+7SldSwJ8OxAUqe9 DvqRdymsJZAEydoOvWfX9FEEZ/xT5PWvflm2xY0dRojke7/3pQMJOIdd/94J MUXP+0tpZc1J4Hg+8xHR2BzpoKY9mbok6Andynt53Qr1Pxq05j5AAo1PufR7 DE4iL9bFiEg5EvgvmnkIpNshBm/C83UKCY47nLtw670jSu8R7j/LRYLzMpYh 9+45I0VNBYZRWhJIW3g0eY2eQY33tRUslwXh8haLX3y6J7IlHD/ZNCkIIYKm lzb6z6NFz7NRWL8guLgYde48fhFd6wwrLmkRhCOJfKUjgn5IVC3l685qQSD2 jXPs238ZlWbmE9KLBWGp4milWHUgMqCrVuJ8KAi8g6dDcqpC0ciZLtuIFEE4 scMyalokAvl/nIxZjRGEQ0sHm31zIxG7yuYLjyuCEHth0lUmNAblpHENDZ0V hLte28EWxXFIbVuKxdxeELgFWpaXDiWg1tMHVN+bCYJf+Fi/uXgicmoystfU EYR8jTT6kRNJaF3eMa5ovyCI+ty8cu9TCkpI9nsltUsQSmjJ8ueS0tCOjdiR O2RBqHNwsQq5l4Eq7bPZ2DkFQXNFh+C0nY1MG17sD6MRhG42prlQmwdoUu69 4/KiAPC3hPcYuD1EQbe+xrtNCMDu0UeCJ/MfI97VX+UDnwXg1VUftSzJPJRn wzBu2iwAEfYVmzJ9BQivJXE2vBEA/V8NA/Jtz1C39F519SIB6Ei2sQ+PLEYe 8VrOzx78y28UtRal9wKlWHtUpkQLQAZzX9xxrTIk9zZkgiVAABZn+z2fhVQg kEziDvEUAMWwC7QPpyuR1bUnmounBEBh/WGHb+Rb9GOuytXVVAAKsYlz+bKA Isw7Er8cEoAY+LhPPr8WkV5/e2OyTwCu3m9AH3XqkE4kB1FNWABGFeTTJTsb 0ZdpCfwpuwDcn5blvFn3AXkf3e8u9pcf4likrwd2N6MMYfsapm/8IMQpviRv 0Y4Uw3xmAnv5QSfwet30aAdqnIjhn//AD8JfvK16d3WhxeJiz75n/FBFfNLC PNONrgk0pBrd54cLU7eqyU69SDSovxZu8wOP5tyekenPyECfjpR/iR+qfWKk 6GS+ogeD5vUBWvzwY49I8G2pUaT8TXmjW5UfIpz2fpAkjKH6GR5FRdl/9YwG 8mnnxtDkWnvGJCc/aMZGZKU3fENyvEY+5gN88CnT9t6lxClURdqd/7ydD7ru RPNwRU8jIzHWYZY6PqgedNHoCphBXns+GEA+H+wkCA4W2fxAL/R0JPde4oPu T5XHHi38QtrGUsevefABqk46ZOU8j7rN6RLGT/HBptPuGNHWebTqAL/v6vDB WyO/tM8JCyjmzD2FFTU+kKq1Y9+aWkAkrxAX0918cJWu60QntogKfE9lPBXl A6Xhsrj1+EWkGUjtJPDyQczet5Xk3kXUGk5mcmLkA8XMrVfTpCVkd22D+nad CIpTWwmClkvoV0L/RdIPImRKpMg5xi2hsJSKPJ9hImi2HYLYiiXEk3lnqK2L CBx5uca2w0soJ8efT66RCEWUyc2n20tIJd/SIOo1EVaU5v0sBJZRfZFq2Egh EYzSyuU1pJeRZRmxTPM+EQY3HqUayC+jyTeLs6lJRNi6XIyC/vlSXafEYjQR tFjhV9u/98zNxdbGV4iQW0V6YCi4jO523LyRd44Igomj3gw0y0jus1cdvSMR dMu/B/KNLqE3g8a/7SyI8HGWvuBe5RIy/rZHoVKfCBuzRW5d8UtoaIbNhV+T CDMvYixHrZeQ98JMurc8EeYrM/uZKUuIdr2po0Xi3zwa8sri+xfR7e08ggw/ EVJPmsWU31pEUozXqBHMRJDpbVX5orWIStnOXBzc5IXdixa2hnMLqJe0cyhp jBcu/F0OjlddQGfEGPh+9fDCDuWALPHOebS+c/yIQRMv6Lk57Ilzn0fCKg9e 0RTzgqbkQiyr2C9kZyxy41wwL/QRTsb3XppF38P5qfokXnAzT7ptPj6OWIOL fiWx8oJsjNENhokxJH/5yMORPzzAPlbppjQ7ivy9glmvjPKAbOHutGCmEZTu Lljd+IkHzLmUyJ7YEKp2LrlAbOSBLvWAOtWAAUSwmegrLOCB7OCl/mFyP5Kz Co3/nckDoQkLshtXPyMTM6GDejd5QPNMXMToZg9K0Td+MuzDA8dfJ8wYUj6h ikPfT+5x5YHPDjtNZRo60QAWzhlwnAd6zWztroZ0oB2qr/x4MR6wHDeEfp1W dFjh6C57BR5YaL2te1CoGZ2Vmx54KsEDUSmJfnocH9CtnVdvrRN5IMfQ0wUX b0Sl4iI6ugQeqE3pkbY3q0d95PK1xHVuOGvtfuzDvXfoj4DZ06EZbvjJJh8U xVqLtDmieC+3c8OR7Ob+l45vkCuzWGN9LTfk1qlqX+1+jeLoXwfwlHLDiqaM 8uFL5ej59rG9drncMPg0CIr0X6Gu3z9GCtK44WbI6X1O2i/R6nJ08locN2AL KglMbiVIeF78sE4wN6RJtO2741qE8NnKzVvnuaFhv7tNnW4hcpq0KBp05Ibp Ive3XO75KHr0p5OcBTfs5N/bQmzNRQUD1wQu6XFDOAenUIzHI9T2WbK57gA3 EMiPw3QP5qDFrjfB3Lu5wamRLerYkftIoM1K6ZQINzyuHWGroM9CGk3z3/K5 uOFoe1D65da7yK4+Lm2Vlhu0/R8zrU2kIrrQI2nRU1zw+chR1QdHkpGBX/Bf sY9cEKFy0Fl7IRElepa4vi7hAg6LSFvu5zdRn+PEx2OpXJAayKD3a+Y6Ej8u tO/HFS54/Vf42mzCNeRmYpwZZc8FupuLjWG3olCxTji9mA4XyE2ZMvVPRqB1 jVceFbJcsNsoPb0xNgwhpelOMw4uKJqOqb0yHoSiZUTUZxc44bXLIvsdhQDU JmJ2P7KXE64dVWiQmvVDAnxRTKJVnHBn/vHOy6w+yI71tVf5PU6oK+eZmo/w Rrk0cz2mkZzQqLEfh5SzaG5VHJtx44QXUmomGy/ckOqcxaOrxpxQFnEqN9/Y BQWNX2MTUeaEd4ydcz7WTqi+/83FMgFOiCObZ/dH2yP2jvn+o5scQBtwcvci mw2yaNyhNT3MAT9ZjLhcd1mjjDfH8yLqOaDN10bhfqs5GnsRz0XJ54AyD9tt rglTJJcP/q9ucMBizY79K++N0MV7y4MmFzlAw/5WQ9blw6gyRVZ3yooD3npm L6zX6yBmm++naakcUMAhHWiU+2+/E8+NEJbggMf1ah+XFjD0aML5gQqBAzpv CjRv2aijxQIpMJplh2vOGIel9z500HtsyKWDHXJqPb/1CiqjhH0PtkJesf/b 10rGYoPk0cCGPSUtnR2ms+xIEw93oV0gqlkSyg4nB2/XL0XvRP5Rgyeandmh mHnXvXlWSVRvkHl5/Ag7WMZN1OkqiSJebps7f+TZ4VOwYc2omhBy6BEq4+dj B92mzzv/EPjR8/S+bvnfbHD9z90zT8J40B/7O0v6Q2zwwFn+uaEABzLYacXr WMcGe05vytaIM6O0GT6lK3lscCJPvaxjgx5NFn06mnSDDb6m5R+TiaRBqn63 vQovsoGw4oqF9aFNPELD7EaDNRvI8PZNv/Ndxdv/chUOUdnA/eRu0aeXFnFK Q1vzmgQbvBIdsbxy7CfuEXdjmpuJDbaPXywt75/CK44aMcv9YIXZwmzvtxbf cAI/m4x2JysYxa3+7kkfwS2+NOnalrECr4G7RzzxK55z75qzXwYryMj6VOex 9OLzzvpXE8JYQXmSM2L8eyeOyxFynriwwlT0giQb+0c8/lc9gAEreEGBIyHq Pf6l9OpwvwIrSN0IVBuiq8NlrxzaXuRjBe0npy9aPq/G/RCtCPsGCySrF6yN llXg7xhAc+cwC6wZ1uiWDL/EuZtDTuL1LGDj9ILFbKoIt7uJBVjns8COIJMD PYn5eKHFnzveCSzw3vn9drLvI3xDqKos1ocFGOSZx35b3scPDwf05BxngYCM nVM07Ol46qMDy1UYCwguc2Y1Vibj39zXeHskWcA89yFB5vItXFmhTOknEwtE WR181yQWh4ct+5oyzTFD6r6Q26xFkXjba5Xz4l3MEHiVwkM5EYaTQxdvqJcz w+PPrEW6rQG4m05J4bFMZlAL3nw9a+aLl7F4t3iGM0N/zrdvN5fP4wzt8jOR rszwJHiq1JjfHT+WPMecbcgMvwiEl8VPTuP3TxTKlCsyg1lcUCEN2OE/RT31 OviZocXyZIUy/XGc+m2Xy/QGE0hWyccxVxzD4/KnrtKNMMH1EU8uG0ljvM/r SQ65gQn2jV3kEMnRw6VVXWtVC/7F3zJHXbqhhfv+3jFifJMJ3g0edE/Yq4nX Vo9vu/oygdqcVYkM7T6cMzJHJOwEE6iX07knqSritkccqXdxJsiaekK1X5XF CzjFbV5IMYEOTUuyiZIUvv5pKKCFmQkmxPuIev4iuN7drLRvcwSwHxA/uXlb AE+2sy3f6iKAjA3ruIEODz4mRe4VqCBAyY2Fx+fsWHHF6f5lhSwCYPm+BglC DLjv/N5dgpEECP959zIm+xerWAs/te1BgPuVHastlHXsz3ZP4oQZAcKG3l5c fLCIaRHkGlsPEICG/9C3OviBRXOEbLwUI8DtEJazI9KTWDNfl3wGgQAnUEO3 C+soxkmRPh0xxwhLEqkqaXu/YMekrtxx72YEhu9F7d3EbixVrq3FtIoRtLSi ZdShDfuqJElzIIcR+neZT1y/+h4TV/dXFYtlhLEJbu+NpVrM+WCzG8GbEb54 nnPPtK/C8vRFs+asGCF2N4OVRW8p9sPkYmc3xgidA26/aZ4VYYpWjYxvdjBC wZMg/QOseZjfKWGNh2yM8NmFw++JWg5W6ezlFbfIAGddOX0yEjOwbc93ORf6 GeBpPdlUpTsZO+Qj8Pk4MECSwQkkee4mFn3Fg+3gEwaoV6Yd5C2MwZrDq5FM AgOc+dJuv/IxHOOK5fXl9GOAqd0t0lzVVzCLW655KzYM8KZ49s8zDl8s7U7l wMAhBsj5fdv+KZMXNpDNyVO/iwHK3xZph/i4YuK5TrpPuRng5ONLPlHvHDDn Z2UBt9foga+M9uauP8ex/FLW5wFD9PDyQfjd82nHsJ9VdmMODfSgwOz12v2h IaZc90LgcCE9jLLkP1CI0MH8mwmGCkn0wE1X1P3jNI5Vdp4MFbhCDzamUYyP A/dj233PX245/Puvej7mWYYidmiEbuqbPj1wJW35b4TKYtHfrSit8vRQHsDx SplNEmv5WWD6kp8ebFc6wl7GCmPcq9uR6X/oYIPhSatXEBGz2Dr2OnycDnSd FB7CbXYsjeHJnFszHSz47Q2cnWHABtg2JUxL6KD8kC3cTd6mihOPWqml0UHi i0quKbNVqovwwzjRUDq4+SZLSUFnnlogsVbN6EoHa4s9ChcLv1N/yhou/TCi g3maRzeDVUapyor3ZLpV6GDp5Zv28JU+qr/akk2VMB1kpPqG5/N1UStx/Vs5 tHSwmlSSJSjbTP2rm1EfO0ULiwFGs/u+vaPqGP9a926nhSI+1u+2qIp6zUJ7 7/EyWjgr6d73MfsltdXmjiPKogXLZbXhuv2FVO7TsynSkbTwtnVCwkbrEdXC AzVzeNJCSmCaqAxrFvXuhaTtZTNaKO9+RqE0JVMlwzTP1InRgleSx5VylSiq a8zNjAICLdAFCwwxqIVQCxLG2xPnaKBB1C3FONSPqpJ1/YBDFQ1QviT5RRe4 UHUqv7JsWdHADtfMJvssXerzgsfq7zVp4GDpPSGWeIxKyjjvnihOA6++Hjzw WVaV2rtGuG3Y/bdG9271oainktSdgVbcWRvbNXJRKuutJ/9qvgtfYT+ov1Wj +7G9afVoqeafBBVC9MjvmoGUBdsxQ5Kmd37ROg9xqSZT3p22frZW3cpV6kFX UH9N2qFrDJ5VnfuvNW50HBeLq6Fdc7V66aO4738ATVzNDA== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S77x8xm32UThUytdA9uCpj+2f6A0dsL Hecv6TGVid5JkWRw+PkjIP4oB68WO09AY9I7NofkSP2y06H2Ks0PrjkXLeZ1 mGj2i/m+83PZDbPbAuo+CTrIGwssU9+bLZ6/KEXgSZiow//CeEvrp4f547Jm ybY3Sjg8VNiq/LOPg6MzsMzSeI60AwMUsIhMfVb/Sw7Ov3669UMLvyKcH1qd ZDbrsBKcn8P9WulclAqcL7/62DS2V6pwfvUO52D+2epwfsGynG1m+ppwPg+T eZLeUy043zU3ZKrWZB04X2KnbL6rih6cP6moY6LBdX04P6jNX3fuNgM4Xyu6 JXRJrSGcf+0Z56LJoUZw/rmkp45C8sZw/kOW5T+mKiH4X5ZlrJdUQ/AlX7+W UdRF8FOKP33Xt0bwfzX/X+sbjuCrLZWU6uxH8C3db1/gmYzg+7yc0z5hGoJf qKvwdfpcBH/PVrULy1Yj+EHHjNuOHEfwUzO+2nicRvAruLZ/Pn0OwZ/rZ5V4 +SqC/+Kag82jx0jurWD6nPocweeVPrLy5SsE3yjeXfzjRwTflZHzXMlXBD9i 8amWHz8Q/CzXHuuaPwh+7XPfT///I/gACJC7wA== "]]}, Annotation[#, "Charting`Private`Tag$12924#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlnc8198Xx5MR2WSvD59F0yrh835fUYqyC0VkJElIJWTLCAnZURkpRMhO PifrS8neGkSSZCUy4uf3z72P+zjnnnOer/O4Q9rW1fji9m3btvlvDf+ffb/r LWxuKsGiaYduoKih8sRtwT/D60rg8ulliGKyibI+z5flihUlEJ3suVvWZ6ZM UHX75/pbCc63SXw1zrRRrouIYx2ZUIJrMzNKflrXlVn390vCByUI/6tl+7Ir UTn+xoWTAQ+VQLCKcCNP6otyPsP17G0qSiB8LM9s4b/LB5kvHlcUOa8IpdEV +TE9UYf4BxqdM2MV4KMSfpNP4p6KcX2qndw7ebCdize8ku51+PYs5hwzdgDk 3v5dExC8olp5K9XppcF+KBoZ+jM4i6npx50hbKTsBc9xuUzBOF714+lv9E9M 74aw15clxEid6jn/efVdt5CDj+bSSkS9G7QURQ+t3NNyQLJkny9q8qBFpbsX fdaTg132jOUmUV409+tXInQ05KAlJ++aK08ADZM6j0uR5SBG5bX577N3aT0e GjnvZmRBZtGxOk3vMe2/URr/tklZkN+4PJwelEGrPqUacHBUFkLyJ5U4ErNo T2QUzz3ploXDA8Pr/H7PaVfaiFwelbIwyXWsRFj8Fc1KlXA7v1gWDkRkXTc9 W0YzzBafHMmThRj57J8vBipoh7wF6k6my0K1osmN6zVvaOKGXGnl92UBHqQE roTW0bZTdnhIB8lCPkfnFzG+/2iTa5sGUTdkIe3DrVH9slZaW+dfuWUHWVCL WrQ+P9hJe0v7k7j3giy4lfz+xDzRTSt9Ns9oe1YWVnaX35re10fL4ZtxSzKW hWYscjWrYoCW4jv1qfWkLGykt4V6RAzToiYndLcfkwUtlmaKV+Fnmp/JWIUK LgtPnU5VGQqO0q7VfiFdVZGFhMXA1y47xmj2ch9jM+VlYcRPilNI/hvNLH5g o19OFpS1f0vZJn6n6W72XOEkbsU70uvFc2SKhjl1DmiKy4KhV+mNNJVfNPne D8c8BWRhdUJ/inJkjkbUeFdSwCULlolZxVSBBZpgfpPU2A5ZwO0KbcfEF2ls gvVRwgyyYMHrbbN8fom2HkBf0VulQtE/QenUz39psz9fOwT/pgLhxWPx/Kdr tK+mld2V01TgrZ671lC9Qet5W6ox840KVdLfiFR+Buy/vcUFxC9UMIIYwXd/ t2PVSQWiZweooBo6Y+TCz4y92J4XFt1JhaC+nWFvHXdgj6/mLNa/o4KKH1li 5yYbFjeQabNST4V/lY6Thz5xYCFaj9v2v6HCkGezmiczD+ZZ+FDdvpwKiy/2 sJk282JXRJKfp7ykwrm70tYjr/kxqzvxAu3PqWDfOiCCvglgbWhph2cmFSoU YkevSQljaM1slZBGBbUL/x6mxoliReVV0y0JVGCoIF7XPyqBEdzFvrjfp0K8 Uvn0GQkCFrPPt1PsLhV2HFGvUqqVxhh+fK5vCKLCgtqIwNVwIuaerVF+1YcK hRtKhqwBZOyrdeZzQQ8qPPvTvXA1l4oZizE9pLtSgYxk566x7cbq+y7ec7xM hRcvZbLOP92LKcf9589rRwW2Ifaq1aADWLaenHu1JRWWJsOiDE4rYLvYIu3t TKlA0mCcS+NSwkIapk05DLf68e9ag/yiMrbkr69TpkOFfbCnUIFNBXNQL1K3 0qICa7iSzG5jVaxviXf/DowK689zYnl71LHjJdcJRYeo8F6s6ZJpPI5VXu3l OytPhbS/QR43WjUwWTkV5u27qUBniYkl3tDEkseTl/OIVMj9Nd3fcPQoxvZk 9YeJBBV0bjMsH9bUxrwtLD+uC1IhbkzocY3bCWxKsLbtKQ8Vno86D8716GLn uqTe6u/c0uPKvOj4dT3s/b3AV8uMVCj33OSNljPEaDpjT5/8owBbvZ61YY0R 9oLpWLLOMgX6dihWBN80wcQhJ2JhjgIZU/b8YH4Gu3eb1ffhFAXSPZjuz182 wzYOObkeHafAhEHUlHXBWcxl4b3Nr08UCDJzriinWmKfC/adTuynAB/cUOX6 bIUZXL6vjTopkEd+E7o6dQED0vzhyXcUaA6eNn4TYYvJjxjviW2gwPwTZ7N0 I3vsycNSCbVaCnDXqVYoazlgvGaCPGMVFOAv00p1s3PEgvg8t0cVUyBaRNYr udwJW/gwuKicTwGL1k+spkeuYrZ31b9/yqbAr6TOH1ZMblj30fTB0EcUiEPv tPfevYYd3bb5/kDyVjw5Wqqg4nWs9PWF2oFYCgycaGZ22H4TI92qKwqM3OKP e69Z8M8DS1AkZe0O2dKrUEO4g+qFscyEJHT7UWB3s6jlzpDbmEfu9zAfTwpo zIZGLov4YRP2Ot5kdwqk9CoHf7gZgJkR8p3brlDgP/1S39LNQKx5mMP61kUK dMS5sD0vCMYOJ7kYEawpsOOC0OJoUAj23LhDq8WcAlf6yQrjQWGYCJfiIXdj CuybydzwK76Lrd75I9pwjAINDw4fcM2Pxpw0zDivIgokHRBMEoAYbHitclNA lQKILyd5/8k47FSF6EKtIgVcsK8KEysPsBp3n/FLeymwZ8Ywz7o9Adu7/3Mf D4UCcsF7TRjbk7D0H6ilSooC/dZ5+nfWUzC/C4yF7PxbvFJlQ6Hzj7Ci9uPR PRwUIBgGXHox+AT7ike5pLNQ4GJ7BJvp2UxsV2GHvsO2LT0cG09arWZh2hIC Bw6skuGI4r03qfSnmGfUWe6/v8nQ+u3qdokXz7C8tfRZ+EWGqi7TXJX6XIxr iFJkPEqGyRbu/HH/QkxD50qM2DAZfHwfjjUnFmHulS/dxnvI0PXlRxEHewmW TV00LGgjw8r8jiblx6+wvsTDCh7NZBClzeb9PFOGsbL48qI6MhAyWHz5FSsw tZtv53fUkMHVPv/Mu0NV2CMT3ZKUl2QweLN0KOe/N1hHXXScbS4ZesOv/nq5 D7Dtit3ue7LIMFJ2MNblwVtMOUPIZDGNDH5sFpcthOoxBx5LpTeJW/m4JrgW Xjdgyf5P+ENjyPCD+9LmSHAT9m5m/Ld+xFZ+gmQcp3sztv/D1dIRXzLc/XBG cPRDK3aBVhKfe2trf+yZsSjNdiwuf+mG+zUyYLsYpBr/dGANoupn1K+Q4aFs Ql6kQxe2dNf/INNFMnjUFzKM/+nGZFfqBT5YkSHwdtl+7Zxe7Jwj61KCORnC yxI/W3j3Y3Tt2HLqKTK8WL/9yCxlGFso602cO0aGnx/jcl5MfcJIZNFbVYgM H4VuCOgfGsFM463MglTJYN7YpB8cO4qFM2apnFQiQ51odwEH2xhW7f5daNc+ Mrw9aaS2+/E4Nj265+9HChliuV1dTphOYIZQWukiSgZ/7juEPYpTWNCBlWSV XWRIfeIy22g5jZU+wry2cW3pV7cxL1A6g01wBp1t2UEGLgYbu7b0OUzYt0k1 jmErnvVFhZi1eUx3eqeoxRoJWCYTOM1v/sZ8LAxWiX9IsEdJkPkM5x9sRHWg umySBORdgfMBGX8xvlzxh35fSZCjb7D8K3MVOypsc/v4RxK0r4UL8H9YxzzC nlrw9JGAma32Bz9xE3u+9EN9sJ0EpPVXfLI92/Chi/vFM1tIcGfx44KS/Hac o9d93ameBBYG1/Y+ecaIu71aq1kvJ8EPW5smqXkWPFNGI72xiARfXPnUPv7H ivfE3vGNziMBsXKW06h+J87C0HLeLJsEuv99s9ee4MAPu3HihEckqLljll2p xI07fTGS/JFEAo9L4rtc+nnwNP3EjeJYEgxbTTyM2ceHb9snRdcKIUHWtlNy 7HsEcB/BI1YhfiRYm+u+oLcuiC9v2v5rukWCe4bBny4uCuPuP+6ksV4jQebJ 0jwvQTF8pitHXdeJBNrszV+nL0rgl2uahyLtSPB1/pj7pQkpfPzplNcHSxK0 8RaJ/NKTxoc991caGpDgItWu1ceChJvaGprFnSCB3S7CHD8/Be866b7UfYQE XFWpp1/OUHG9g/EJAuokmHVTW9w9L4c3S5YrmymT4O6cyK9Uib34UdaB7uR9 JFALY84xuLUfp8+vuA9RSNCgrSX1K0AeL2/Ais+LkEDgiNZmhKUSrlhobfiY jwTb1p5V7V1WxguSAmdH2EnQt/LIuLPkEC4bmBUtw0yCiJDGkzvjDuPZTo37 7DeIYOCfF5CapIYTTn9vfbpMBEZtxnKvJhr+EGNz/j5HhNKksksD0giP49HL cxojwravNw4zH9LEuVZddF58JAL/E8k9GsVa+N2xmMlfvUSwKvU4ZKt7DGf6 UBJ2oJ0IUZnxbSWMx/GA8h7KtWYinDsYjGV/OYGvPV5qLHlLBPkDV571jeji HneFLy5WE8HyTYqm2E49/KqlZdatAiKMPDvMnjBniE8e89OsyiFC/vsN/j5d Y9z+wJPR1cdE+Df2UOgj3QT/IlwXQEshQsTq6bAcozP4ue3jUn5xRHhfn3z3 7HYzvO8nM50eSYRcvlh/jR5z3KiXasUQQoQsn/HSjpZz+InnV9Lu3CKCyi2P tezd1nhD7D31JjcimPutLn75cAFHt18O7XAiwpu6a5rikrZ4tX2nl44dES7s XcLqwuzwQ/q/hSMtiXC1n/Ahn+MiXqIiUNl6Zsv/ftVyd6EDvk9axYzLgAgn GRclzro54qRF74TYI0Swr8kfKjnnjD/5lKbcrUaEy2/9+iLCXXCx/2q7dykT IXvPCNuEqxueWDTibrqPCHjVFEt58TWcL3U7XzKFCLSWSi5d9uv4vWBS8aAU Ea5vt71q7HcDZ72qbSgmQoR4z7tDaRwe+CaKiH7EToSPpd0OH4K8cG+5F/tG mIjwKT6p7bfLbXyJr61VekMGqhmiNEf9fPFr67NX7JZl4IF5UZpAmT8+/Y2X /emcDKAl49cSOwNxx3alvIkfMrC/7YhbgkEQPlZ5Rkd2TAbYKekEjxfB+FBk Slh+rww8cU4wZX4Vinc3El5caJcBDo354Yea4Xjr5rMOgZatfO+/f8+fvos3 qh74865OBgSOG1qMl0TitdfLRQJqZMD/TAyNK+keXlGA4QfLZcCRmHGY6+F9 vOh7g+3USxlQqnQVvz4Sg2dadOefzpKBvmA2MRvsAf4w4VwHW/pWfX8lBsru xuPx7aOLtYkycDC7ai39ZwJ+j+2yyI0YGXj1q5Tlmn0SHqo1h8lFyEBjRV5X 6p9k3N/3lu3n4K34qollaU9Scc+KjdAHvjJwhKWslOtSGu60h7Pjn5sMWOy/ JhBNeYLbXYxfLHGSAebwXDvFwxm45WMxEUd7GaBLvzPBLDLxM4OZmISVDGSk M9W9icnC9fl323aZycDtu4PyXYPZ+HG94tAwIxnYd1chK1clB9cIO5xPOykD xLHgwDv5z3DFNe3FHFwGahGhI3MoD99zsE3Y8rAMlK+kQFPyC5zkegbjVZSB Oud4rNi9EJfI/WjTtEcGJFkOXmA6WIQLjtmF3iZv8S8lNh3TKMa5JX7myUvJ QH6GlTerZQnOaube/k1YBmo8Tpocu/sKX3sXIGzIIQOZLiWzpuLl+CITK8bM stXPXRxlF+9U4DP4fZvqTWnovyStaL+9Cv/uKRjquiIN+xwv4slJ1fhISXoe 6bc0iFufjjl7rAYfnCa1D05Lg7nVnud8nLV4F+XF7+gJaThcU954ZI6ON6RW 01YGpWFj/MF88Y46/E3PEZvCbmnY1lNbak2tx8u5WkLsPkjD0xNl0ormDfjz oP62DyANmRe+GynPN+EZNVa/g6qlQTt6Js7XohlPXfomdLhUGi7WpndJDbfg UU6LFzKfSUOUjsHmMakPeEj27RCzDGkIilc7ZjXRhvt93p7H8VAaQmfKf67b deBuxry/PaKlwVLceeS0Wxd+OSpZaG+4NFQYuEVev9eN2zZJ0UYDpeFvKqXj X3UPflptf8jJm9Lw/Ffu6z+6/bjejbLcba7SIPY6ONzo5QCuXUhrK3Pc4qVy nF+iDuGHZU4KESylYSX7hk7YuU+4gmWXeu8ZaZBGYmc+CH7BdyeevRBhIA2u C3zdrB4juPhOx9xFTWkQDQn4z/v6V9yqtjVKhralR6HeRsrjMTzDXcHN8OAW zw10eODTOE4ZXj30gioNiqU+U1/iv+OO961FhwjSkPZ6SWGc+weep9Xwb4eo NJyzMfH3y5jCD7y412DHIQ1X9DaOJnHO4O4XFp7FMkuDYF/P186pWbx0l1kk fYMAdqG+6lwLc/hhX4Kx2DwB9pSbtMYL/8a9FUIO6kwR4IL0EoPM0UX8zbcf wrfGCNDJHsDKE/gH19R/9aWrlwAnrHYIjyn+xe9sF67f1k6AGcdi987cFfy/ cp+c/c0ESA/D7ZUPreGnpLSvRlQTwLixq2HzwQYe3Z1nWPmKAN3JA1FzSttQ Zxi38sQLAowUCPAJ7GFApnMDq0ceE4Dp7oOz77UYUXI29tk1mQC7TNj+DDsw oWHzzLfpsQTwFYj6KpnKjC68vRK+EkwAYa/h8kxlVpR5s+MK1ZcAK70P9xen s6FxuYMGZzwIcDSo8d89UXZ0OW5DoNiRAPceMBx8Z8KFXmjbrXy2IUBKaAXP bjYeNLP630cOCwLUTzSqBi7yIHe72CxHPQLoLap8HZznQ6VCS6GJ2lv2FNop KvMutPz+nFMDIsCp7H8mUlQB5KNMUiAoEoDQtDS+niKEaifDd+nvIYADT815 l2lhxJD+a/k2iQAyQfn/Mg1FUShzRW2/4Fb9Qc70TiMJ1FwllsnMQ4C15UO+ mXOSaKdLQIgSGwFSU733uRsTkGTBg2TJZSnYt9vh/oysDMoSOG/t/UMKvDP8 Cy9QiEjWj0LpG5YCcyIuUyVPQgoGVa/ugRSc/tD49p4LBZVXBHn/KJGCQJ/m t8ZZVKRGOHXk2FMpWJRyORzzXRYdnf/ctn5XCmqDbQdMMvaglrPPE8x9pEDE tiTJUngf0q+7ZlnqIgUKjj8CxjL2I/MHTFNXTKSgiPsy27dlefRp7UPRf8ek QGxI6OjykAKytU+6RTwsBTaP5fM5WxTRlYO7mYfFpUDAyzkPb1ZG7sxVzzy4 pQAP+RKu0XsQefce1+XbLgUNz9dthmcOoYibF+/rfJcEEDz5l1lXFcUdW1T4 NigJX+LuvqiIUkOpAsE9Aa2S4Oyq/FD7szrKK3siUlksCQ9SD1b4FOGoJORA jUm2JBT6PXJQFdFA1WdqrWYTJUGmtIS48FUDvfsznEXxkYT4X5oFnHGaqKvR SbvORRKqGGzkFDy10FDCyuR5G0lovqA+8cDxKPpxUGh/grYkUN/5pdRe1kZz zDkd8qqSYHpP4Jrd7ePob6/y9dY9khA5RvNjSDmBWD2MKxl5JUHKytKac1UX 8WiPnnvMKAn3szWv3sJPIWFBt39qSxLgnzdwtjtGD8mW39N0H5aAM2Rr4QZ5 QyQfKv6Ns00CKovLtwXMGaLDpvlhuSABn5pShkwqjdCJpebWkacSkHL/PMHH xgRdOsRkZuAmAfd5Ase/y5ghF5YHK1O2EkB0MmFw3muOPPqk00LPSEBR7z7p Go2zKNQDjb5Rk4CIPWeZ9SMtULR2W/DZfRLgW3Zx7HydJUoUPE/5IyUBIhJB An3MViin3PvKXmYJYDb6E/j57AVUGMrG1bwsDsFMtkp3uW1QuWlykd2UOERL sjTot9qgpqWyP6nt4vBsSEeEaGmHvh2a92dLFQe/ZRWS+EcHNM0SIPM0Shxa 3BKZajsvocU+rkYNf3HI4nHmT+lwREy39u70tBcHPcY12t6fTojj+OsX/Gbi 8EBIqz9whzPaJaRr8FJHHFgZHfJP7r+KSBWX4if2i8OLy8cdotJc0d6wpUNB 0uIQptlFM3d3Q8pmIYMSu8RBocchwUj8Gjq6nCl5ZkUMioOtI0uC3JGdyufn 9fViMLQwL+f+6CZyeK5iql0hBtp1u/nkHD2Qk0gsY0ueGARgoflmh28htzUt q7ZYMaDwst1rnfZE153T2Y1CxMAvcu7A1U4v5PFpqbLbUwxKrR+rqb3xRj70 XP5BazEoMO3TE8r3Qf7yjG8tTMRAVNhBN7zAFwVlWLp81hYDFahP/F7hh8KD uVvG9olBn2YJ5yP3ABR//KbfzJoo/Ff3tn+tOwglVbbtuTYrCtE7XESbbwWj VDnZwd9fRWGpj1/ShnAHPWEfVlppEYXZ2ZW+KwEhqKBd4wdjsiiwavY1ivqH oyKN1MTQSFF4CUZLAafuotLi31ps/qLw28vkZaZUBKp+kPOIy0EUSp6T+ZL6 I1GTGcdpEWVRaGHf6HoXex+1NF9kSKOKwoJc8eqJEzGoVZVeKCkmCu8r2sc4 3segLjF3NtJ2UaDaSYysDMWiL1/6a/d3iAAxIi7oFCUefTVUcC6uF4EbtW1t CXXxaOJthIhyhQicdqt8/842AU1nYTdUH4nAqzAVB/QyEf29lCV31FkE2BZq S096p6C1gfW+JmsRuK0R4DGlkoo2dEzv6JiIwMprsgfzaipi2sv2RV9NBC4J 7WJeiUxDvHMu8WdZRcBcVdu9e/Ix2mXTfOTjmjBQCyLDZB2eIOEu6VmrWWH4 mu89e3XoCZIs7dGx7xMG8kiaStG7DLTbU23TJVsY9koU72N7n4Xgk/7usURh 6Ho17+h3PhuZatmdMbsrDEfpzFzodzYK4orKRy7C8L25a6JVNgcNZn8y4zks DOsdDPOqb54jl50LQXd2C8PrHYm3d1/JRUxuLIV/xYWhuu7V7XLxPCSvfoBp lEEYdJrFvjdE5KPwzoCi4vdCYB2jxJD7oBBJqiQMk2uFYPiovJW99UtUmpbL klokBPxP/Vj8hIrQyKUuy6AEIQi3P+H8a7oIqWwQ2UyshSCvYua878sSNLH7 P5vFBUHIMj53QzuhHPnEDEc5fhME3/rWGVmxCsS3NFvxsV8Q1D/L7BTMqkD4 W2Guxpot+33CY66qSpRg5lSdECoIo617bKz+VaOjdzj5VUQFQTvIcTX9Gx0N /ZDG8zkEQUuGe7rgGCA3g0OXpTYF4K59JJ9vCqCHotb0HeMC0JjS2Tei9RYt FBVdGSgQAJ/FwIqLWXUo45NJg9cRAfhVfV+LKaIRKY4rrvYoCwDL68hvTWON qGGKV15eVgBOtOaekcab0MRy+8MJLgFgEHPui1hsQrv5Tl03+bgLREZff82+ 1IxKtI/K7Lu1CyR29k2RbN+jhpfKASMv+GH1mFFSxJsOdKacv1z9yda6xTNK bKYDTdQs/Ex8wA/vG7+bRUt2ItZ3RWZ63vxgV1w6xOrfifTG9x6oPs4PWpb4 l2GsC/UJkz8/+MoHQ+nH5dVfdqNLUky7Znv5ILKtVmh6uBv9JY/p6LbwAaXl 00k11h4kqpRRtq2IDy5VqR9Pt+5BVnoS96768sHXkYI1JrZe9D1QgHZcmA+W 3RN+PtfsQzt9X84+2MkH75jUTqs49aH9njpZI+u8kGTkcYwxtg95uPju9B7l BfsCdz2Nj32IxeLbwIs8XtgTlLX/vWM/2m3qH7WSxgvh0aOP3t7tR/pGIhra 93nh3urvgY7cfpRwXO/Zl+u88NkG8cp970ck5bKbfBgvCP8ou2ZsOoBOHDCQ sz7AC5cuVlk/cR1Azrt/fMyX5oWhFqn2ybABVEqQOHqMZWs92GJuWTaABsQq lmP/8kBs8YVzge8G0LqgUf7nKR4gx50viP88gLQ4Q/g823ngjiB34m3GQeTA KtXU8JYHQjsu7dPdNYgiGKu8eEt5wIjpvug/4iAq3DDeZ5XDAzYhiupxioOo a2V6JC+ZB0a/sj/YoTGIlhZD45cjeMDttckpi1ODSHSOcOKoLw+w++6tjDQb RPjP6rUYVx5gc2UySLIZRLYTp19+suEB5u8zRT5Ogyh0dMZ292keMIlafKrm PojyPoYL3tLmgT0x5yQ7PAdRW7/Mu/rDW/4NI4o0v0G00FXjy7OHBwS8l0h+ QYNIsM1U4bwED8hKTVglhAwitZa58VxuHnjrv3w9MGwQWTVEJC8x8EBSQThB M3wQbffXSQ6d5IbrvhK6/Vt23Zu+m1IfuOFq8sVNjdBBFHul2KGqmBtSJFU9 /YMH0YDNtw/Gidxg8jFS4IH/ICKYixyc9uaGNQEzGx/vQeSor5cWYs0Nr+a9 uGg3BlHR0UBGqaPc8CY85m+X8yD6q1bmVCnLDZsFb4ma9oMIKfzoNOLkhmiv 4JqIc1v8VAnVn/NcQHthKlRosMUrYfTkTh8X6DN4FRVobfHtCtkh+ZoLvoZG 74k8tMWzs8ql4jEXTAprmpyQHUQ52371Gt7hglXxT8LfhQfRryUCNuXIBaee 9D24zDqIfMbC2SUUueAKsbFeZnwANQzWuJcLcsHeNklbq44BxNExN2iwxgk7 H94JC3s9gB7WmD8PauCEENaahoLoAfS1JIpbPJcTXCILR4s8BtDuXPAou8cJ sycTowvOD6DqBNljk6ackDqnxpMhO4BYLb7bMdA4od56pYLIOYBMCTlBotKc YHRp5Uf5XD9ayCPCqZ8c4PH7i6dEWT+SA0n1Yn8O6HY602Kq1I88Qj6dfWfP AXs7J4KaefpRg26a55gOBzhc9bzi9KsPXegVKRfYxQEd2ot6htl9KHlql4L3 c3a4QBSVI7L1oYmX3QYP7rFDUUVfbPxIL1K+Gefywp0dfvRbsFlU9KL2Te4X n2nsW+eD8GbVthexCLBTtTp3ArMuaYbnVQ+6iRgkOFbZ4LXOXhU+9W5UxwTq 5C9sMHInM0tpZzfieed3Dm9gA9HqZNH1gS704vR6kls0G8TP03cm3exC45eX +Xpl2MCwRf5iaH4nMo7/xfroJCs43XmuUsfVgeR/DC4eSGcBIf1HH4yet6Ab c/vkhO6wgK9mxE8+3RZUuRx4fsOJBdomgn4dnm5GR1h2N7UeZoH0H6467xSa kTHRO+lyDzMM/6wpTKlrQjfPi6plsTODn4JIjdJmPaq2d3GJWGACr7JtU1m5 9WjjSl3mtUEm8HhtO1N/uh6FejuxazxjAmPz05bSBXUoOan640dNJmi+/+ZA vsNbVN15zl/QmxF8WS4aPN14gzYGCl/9u8AI9e6+ZQec3yDNke2T48cZwTnq kdrl4Rr0fibP8JUAI5DB78xi7Wv0kX1N2rB4OzS4pYk+T61CBH4DU5Xk7WBa MRs5JVCFLopmRUj6b4dg+5ZTP+Mq0Yzsyd/Tp7ZDvE/K6u64CrR57GHD3UkG sHe631zwtAwd1Zv969bOAJQILo7Z/WUo/LTWPvNyhq37hrN4tqoU8dj9TKDc YQAzd+fpPb2vkEyA+qV6KQZoTWdtcSWUoKPVw2z/TLeBUm7DMwXeQlSY91T1 P/VtcEtS8+y0bgESfuh6OZawDT5gVGvP8Beob5kl7mTPJt2TUUFynCsfkW+b 8qSvbtBdiL1XhU88R38tplwVGjboJryjnC6Pn6FWml97470NupbnNme91Rx0 Y+Np9Axhg56O5EmB1U9RXeAfDo3j/+ill0Pzku2yUKLtXecenn90JXvL7yJ9 meiylkSr49A6fShCkaPjZCbiYT4WGXt1ne7grMZdqJGBrMPj2cYerNHpaUpc X9MfIcXLspdvnV+jt/rT20tfpSMW3ZpmduoavUxM1E61PQ0Vso+HKVev0rnp /IKrgg/RerQSS+jICr1INXCtaSIJdbj+d1E0b4XuR/aSTKQmoSxDi8bC6yv0 hHE60eJqItLlC77Tz7JCX1ojJ1/ekYBSErq2y+37S89IDmfgvR6HnD0cbN8s LdOVZVqzdgzGIg2z1bdGsEyPyWJ7RNOKRZPCMoHeJsv0WGOJBFZSDDqUdm3z vdcSvXFsx2iYXNTWe8psfUFriS7ynol6XzkSfTqfUrvIsUTvlv1uXKUdge5I vfWVePKHflJe5kPn1n/ZfNuZT8WX/9Cfk2U4XHPC0N7RSZq20h+65SlJ4Xvd oag7k2fdpWmRvkvpCt9LjRCUE5xtwRizSFfaeMnjEHAHedsffp10dpG+LWpz k7EpGMlQLnjD9G+6s2Bp6wXbIOSW+/IvL/9vek1r+GX7Cn8kz+USrDmyQO+s CZ8YfOKH5t33cl0vWKCncvibv4rzRe60XGLP8QV6VA5zRm30baSUcamQSWCB Hir0ejY82RstMlNUD36dp09asJEmc73QzfZM/USfebqZJn3i8ddb6JCyzWCT zpY9wH4jie0WWkqWsl8WnKfvOiLJaa/igW7ZpnmZF8/RT8lutkDODfR7ao/O wdZZekp99O3q9mvoRulzq0SHWfqHKvsBL9lraMmXfGN52yz9zvlF7rJQN/SX R+px1cEZ+hPSHRpLjgvyGnpYKtrxi/44lVMkPvAqWs0Sfnfb6RfdtcacYcrB Ga0f4vuDPZ6mf9P8QOzQc0K+2+7vfKw6TfdjYHLu1b+MNlrYCdt6ftKlFNi7 o8wdEcN55pN1rD/pFCsHKmeIA2IJ/vtE2/0H/XUIF3+ouh0KO3Wz/BnHD3pa D3eM1m1bxCq48J712STdP0V4sv2tDdqZ+3Pp3fB3ug+7zz0/2wso0t2RY6/H dzrrSlzfNU9rxEH7Jn2P5zs9YqL3+riKFeJu/3zK4NgEfb8cVUdj0ALFJFvY Fn35Rt8MmTzhUn0O8dkO3OL1/kZnFRbOIuacRbv+dGZ2F47T0xZ7q5ofmiFh sca/ZsJjdAHlL87rSyYoZfwIV1XJV3p5R67QaaIJEi2sJYrqfaW/KTyYW25m jCSOVOp/DBylW52+zxfWb4ge7Txoj4mP0ktGr+93lTFEUj3FXo/KR+jtE3Xa BZP6SKvNVOdt3xc66886/Jz5KaRtY3gjmP0Lfeps8rwu8SQ6sajz+JjGZ/pa 7P2b1qs66JQo9qcl9yO9hFZ2H70/jkwdiBldPoP0o8ODxdnTWiji2vXwuLIB +n6VwrqXvFrojU+9q/FMP33m6lGyG9JEpAd2eJd1H/366aO5na80kPmjV+S4 5F46g3Hcr5LfCEXmMnIad/bQhwL+pP4XjaMFetZwp2Y3XVWYat0+q44o73/X xd7uoqscoZ4vK1VDZ/u08oxKO+nmFwM3QkJVEUyPeXaSO+gx7kaUdX0VJKl0 Ym8m7zt6HE/TwUIHJRSiM7kqHdxMn+7SPYqFKqJp6/CWjMUmenqBqvmxlwqo OqrZIaO/ni58Dq89KS6PpLMcD0rr1NH9Gt9eOkDfj8KrWJkyqoH+7z4xcvbM PlTQGqt5RP01vU62q8umeDe6vdL5RUOykv6momHi8w05pEPh89VgKKN3Tj6o EtGWRe83Sa7+0QX05KaDUSncFOR49mmu3+ln9LUR6YfdLGTE9Io87iuaQffp zD5UxkZC4U2rHeZSEXRMsl7h2E0Z9D9R50Mn "]], LineBox[CompressedData[" 1:eJwVy3c41e8DxvHjcIzjGKGIUkZm5onC+TzPkxHZQqRplSShCFlJRDSssiUj EkJWMgqZkZ0dspNx7PX7/v66r9d13W8BqzvnbPE4HE6RBof7/z6p22wzPxIC rU/l+N6ER6Exubc88HQqNKxcTx1L44NFv8z8gx5kQZ9JM+PjeQchS9WsUI1F HnSR/MrHP8gNna/fmq6JLILalza9O6K4YIqSpG7tx1JYzuS4c+0wJ+wkzebU /iiH7ONMqSKV+yD9SNa+utlK6GS2HH/Zgx3GX1BQtg6ohvdcrq+VRrJCBbWo W2Mc36DGvdtZMpYk+OP4Srz1mxoYYGX0V9GUCHG4T3vWFd8hZvG6+3wmPYyZ 5pIb122Afz1UKsLoCFC+456VTX8jnOcg4sK8aWFTeWfE+M1meDg2kUuTAw9t 0k/U2qy3QI75J2k/q3Bw53nk6nhgK+x+OBJcx7oHmiibEfkhbbBLLCoipX4b 2IhY1MofbIcKb7WSdIrWgSwfcchlpB2SDU50+Iyvgh22stX8jA6YoLdmLXti BTTS2bMtO3bC9jP55gxvl0H0xkExsmIXDGWuz+2QXgJW8w3o7k4XLOb1znza tQCkxzwuFNR0Q97ENu9wiX/ge/OvELJxL9R9xGvw7eMMsHPv+35R8hdMMuio CA6eAozC/XQBtH2wsa+xej50AmS29p/O7u+DC2fNP0aVjAPtBwM+nQX9EDgC HyumMTAjMvh5++kAzOPV3rrn9Rs8bR9cF7YZhI53GbyF2UZAs/iwiyvXMKzo 64y15+wHDl3DuQlzwzCkIUD1Tl8vCEROq1ZWI/AY8YqvcGs3OB+9wHX/xwjU jr9AWPnbCUTnnMhPlX9DU/73GS/JHWD99KJRUvpvmCFBFpyL/wnqXzk7FXCM wglVCTV50TZgp+byoX9mFE5eKJ6IFGsCp2KWmv6dH4OB06XWW+P1gPGfywzt tzGYQBAn5rbVgV71ZUYemXGobuXyZ3qyBmTG3hU9HjcO7890yciJfgOeC8sa iOEP5J/5lWTwtBpon7lnY3L3Dzx9lFvAcF8VmFm898ZLZwK+TydIPVsoA2Wa K5UviicgLXvrjc53JSAkwXUoVWgSVo45aTx8WQQslle2S55PwuCB1c8Z6YVA 8qwbX8vWJHzjV3UlazwfbCeuKv2+MQWtintOKWh9BM1UN/OVjin4bHNA2Sk+ F8Rrr7kxoWl4Tqmj6etkNnBIvh91OHsaRnsuScjfzgKU1bUCOZ4ZaE9682ld 9B0g6bq3awTMQKdLYu35nOlg4M36woWF/xwroWZ2PBV8WHNnc7w0Cymqteyy jinAR29Dyr9+Fs4V6W93dCUD/bceutEn5mBhVesUqkoE/Bsb9lnJc9CEI3fv Blc8mNf3DK4g/YUTK5nH21NiQEXqZka7+19IV7+/IuX6K/Bs07NuYvwvxHvc iLW6GAWuGG6NbxrOw5JBL9F1rwggk/6Alu3LPOwx7m9P+v4S4La3BITE/0F/ ky/Sf06+AG1GXuhk1D+oo2AupxQVBtqMfXLTcAuQdfNWRdlGCCjxqajIVVyA f5SkytZfPQHJmbstpQ4LMJavlIb1ViB40gkGv6UswDs6j5y9HQOA057PXEvv AvTh3OcmnugPzCUqt3pYF6GO6RNN3VU/gEz3iKPqi3CPq/vx7wkfIOYHeec8 F+FZlYzMHmEvwP7eV3w1bxFqdAx3Zid7gI2uylO4yUWY4ZZSzmZ6H4zicFrE w0vw9sZIjgDmCholkRmX8RLsKd4TvG1yF+Sf97vOH7wEt6KTSIPRziD2YZWr WOUSLFKy+F2IcwL+2bjH8itLsNimPpDj8G1g34MiKZLL8Fy94hMXT3twDv/w 7RnLZfi9idm2jdMOKEtV5xu+WoZeNFZd/8ZsgUJnd3RFwzLMYE4aSaK3AbIP 5jyPby/DyviYiNNGVkBSEH81VpoKW36UEsOqrgGRBm41Rksq1HfyJWynXAEC TlKibhFUqOsAGRPwl8AhbjXm8VoqXJmm/TcWewHwVJj/M1qnwhq9bUWBG2aA 09axo1JiBfLV+L2jtzYFrKSAYqnLK7AQxMUnhRgDYkFMXNzzFdjBQRk422cE CBa5vkxfV6B8412WXH1DgKOptb5PXYHn/7Rqejfoga2MPs0/IqvwlzYxypCs A1b1FySNL6zCR/aXPD90aYHFFQJ79dNVWMXwkbP7/RkwF89Hla5YhUpJRlZO H9XBpJpcb/zCKpyOdgM+o6pgdOZMOVFoDe6+iZ81VTkNhl5eSnY3XYMqrMcC FZ0h+HXKJWAiaA1O7Gm2u+RQQOdwkJ1J2Ro891iXrkxMGbQFJuh+nVuDlFBq 2WDfSdAkVSAre2QdRu195OWvUgB1nfVciUbr0Gt0uPZoJxlUPxhaZw5Yh9N+ S2FTHPKgXJA64FH03/+tSGuLuywobmCqnpxahxXTqe3zdNIg3+lIminfBlRn pol4d0ESfOBWCP6mtwFPag8vSsyIgXcV2rfl/DZgfsO4ntFHEZBqe80oKX8D stMual7PEgZJJDcFlj8b0MT7dTDvT0EQW/D04APuTRig66PjJSAAoi3e7Eyd 3YSEyGieYZkj4CVN8e/zXpuQ5G3VqWd1CIS+a66tydmEdjs4YeXOgyDIYDRT /vcm3C9UcOewHzfwX10LS+bcgs0Bk4dmru0H3gksLqxntmCFeoItjQsncFcX Ou/lvgVpr/4mSOTuA3dnTynPZG3BT61COUFc7MAxXJ/ffHALpnzeNhHBWIC9 kg2+jm0bKnq/uCYSSQS2Ix4TZNVtiIaoTyTFGMG1oOeNb+5tw8/11EudywRw STothy1jG+54lPUoLtECs66ycO9f2/CgHKbQzY8H57za3GaZd6CLsHJyjCsO 6AlNWFwAO/DY9E+DoD87mFbjFvjutAOBMkdf57EtTM15n5DC2x0oJnN7fiRt HQM8ogxvu3agqJ3J2e2rq5hSJWWWnXEXhkkaGqzpU7ET18+1+ijvwlqDZmZu xyVMlsWuYM5hFzJu6fEzly5gkoXeryySduHMYgRdg9k8JnIx4kH9z13YkT0I eANnMUF85lVFuj2YddtSyG91CjucWaGWqrgHB/75kwlvJzAew05Rjpt7EE+q NlAJHMc416aZ/eL2YOGY+JRM3CjGmrj372/LHhypn5SxHBzBAlKIM1I4HFIX xrzsXg5heLf9AzYHccih/hR7b34/ZnEtq73kBA7JiZO2z4z1YvnasIFkiENR js9OFF3sxogKnZXXbuHQ50O8JqT9nZjVkZtFhYE4xKj/xnaEsR0rY9rNZkzB obUmf+JNuTaMgxr+9tIXHJoL+2rfx9GC2Q+Jxub14lBdqEGmA08j9rW+/AUd FYe4U0KjGG59x3gLjILM2WhQ66UQiT18LeaSMOGdLUGDTl5TYLH79RVrDHpw D3eGBrnd9Fyim6rCBF3Yb5lY0qABk83wW+cqMM9LaZbvvGjQBJfLXpvMZ6z9 jLL59isa9HDby/nA1RJMQq5V37CABuU7PP6w1/MJe8Rno5H6gwbFGnXYCUQU YAOEDZX1aRpEFVWcaA7+iJ1YCJPXJeDR9VlLtq1buVhon6B48lE86mNo0Hkh nI2N1xQfoargke3DTLrX5EyMkqt7QMsMj9q4VC9qv0jHImN+k+Jd8OhnZKNX lXwqNvfIjXYhDI8ShwKdhzhTMHVH5k21TDwKURfihFLJWLx58sKrGjxSlX44 q7YUj1FVFSZnh/GIc5tBrGg8BtOVahyEW3gU77t47InYKyyV+2pnxAFaxL2j /vfyp0hsm4baOClHix4/TtAsfBSOmcw9qVbRo0XhOnz8TaEvsOzuwyXP7WiR cC/zP6GoMIyuOj9n7BEt6t1jqjl+JwS79F4z7WTSf8Yy5KYSgrDCqIG4p2W0 SIWh2DWM5zFG8nMOH+6iRc1kv26lHn/Mxp4+mLxIi6r7FZx/tfth5SZxvkEk OqT1QiJbmOiDcUFZt35ROhRdxO5s3eaJOYjXOsio0aHPM/a7CvP3sVpOC+tH V+jQ63MdTM4Wrhj/7vyFHg861MOUWdlPuou5TT0ylIyiQzGjRvu4d52wH+08 mr55dOiLQvkWq4EjJvLlA9bRRIe48r4e96e/hflkqJ4QnaRD76e6ibPcdlj3 yx6JB3gC4uA51PLdwxaT9nIQaD1MQDziOb6RQtZY4HUaHiElAuIfNp7MY7HE hgyjWe+bEFApfdP+cKsrmKKKJKHpDgFFht7H/NgvYs+OVW3xPyWgO99OS6jw mmMTbKZLLukEpLvlq7TuaoqBzempumoCut20VkTlNcaix32GeQf/M3Xd2YLG CJv/wdntuE5AZrtlqvrq+tiZ0nfNXznp0YPUurjj89pY4lvs2wEZesTNvI+W b0UTWw1rL7XXpkdpVDH8fgMNTN/9Rl6FLT0SYn7/SWRZFUu32k7neEiP2EYb FQx/IWxX92XC9Xh69L5bbqqHimHnT4pElhXTo3/lCf4yycpYjsDnENYOeiQn Y3ELZZ7EGEiGD63m6dGN2BHPAYICZi5qUaXIxIDGSauOmsXyWJaqzR5RmAH9 7u3urn0ni21fdgTDgAFtpuqVLaZLYfoe7t4FFxhQjo3R7H0rCSw50r886B4D unr0WK2ghyi2lBu6dfE5A2K4Vucu8FsYU2+KVpbNYkCVsZXPc14KYtETyR50 tQxocla1e9n/KDZF876kd5gB+ekaXB69eBhTPvxpLXuTAfkaidM18/Bioacq FR/uZ0S5aYmcnnLc2JBxg6upLCNKKBS6QY3jwmTvdBSK6zCiL3IsHSYGHJh/ yODyji0jYh9U48lSY8c60ybl2/0YkYxxQM3nMRImUr3onB7HiLrO7O0oZzBh 7gNbeZ5FjChP4NS+kDp6rHGNsKD/kxHV/FvwjTlJhx3iZJcRmmNEmiwHyp0W aTBHaV7HNXomdDO1PPFo7x6l6qzwhyYBJqT/S9EkB21TOGyl55IoTGjX9lhI F9sGxcbvlOQ9MyaUmf05Sk15lVIUp2qv5cKEfpLIxNFPyxTGYt3MQ2FMiN3u 7JtCj0WKRfv5qYUMJmTjMhnsujVPyf57TbT2KxNydlf5+M51lrLLeOt6zCAT ik0a6jxnOkUxFHZNu73OhBrE9LfFnv+hpEDf8dOcRCReF3Ce/+AYhWoRLHRA moh+am0mnp4ZoWi4RVjNaBGRdiW3K2VlkBL9MuFNhTURRVUl6p8O7KNMZWeM hPv819u2NGx59lCU6z8euRFDRNaU74wq9Z2U0LHPV1QKiaht6bU0yaadIsvb NjA2TURdv7QM8Y3NlE7DcYvQI8xIfFjzfnhAHcU9aL33hCkz8s+ccf4aU005 VEEyGwxhRrjNqT9dPp8pjr8ORH9MY0arV2Z7tHRKKFXUo12Pq5jRgNfGS0W3 TxQbSQVj6VVmtFsiUxD7JY9SdAaG4/eRkGuvVAfxxQcKo9XZn92SJNQeVhUu dDCLkv36soGvJQkNlbHLaZmkUqiEQJ22ZhKaTniU/zzxNeXRSLeay1sW5FB7 VeXb5EPKUKnObfdyFrRazvezpcWXohxRFe3TxYJKuYrcazAvyoJG1nQIAyuS O/vYX07VjXLlvffzt7dYkcK6Suj72FsUZTfh/k4yG/rKB17c5TSlbBCUSvms 2FFRyMmrJSOilLy4QEOfpX1ogWCdSjBpUrmTYsM+fn4/MqMN5PS/t6J8xT72 cNBDHsQ7fJGv6uxR5WAjNyVyPB8yK5UauCaOlOi4oiZ8N/lR9n4bS/EblFM9 TY8XAtgEkKxOOT/vrMpJ0wdWirHfBFGznKCThdd+RQfmWcEfFsLoYuS90I21 5RNH3tdF088cQ/qhN+pO5zWQH5SoGbPFiaKMovC2pdNu8k7pDkWKMuJoulnJ zmdFQo6EP2kl/UcCUWc6NVodC2Q0bptESUQcR6mygoYPfeSleUoP39EQlkZk qRF/lqjy4+EuT17K9sggjrXHhwqDD0ieCzSQSiiSReUWCTzuIr7iEhcDTFO9 5ZCcc8tBrWcjot0TTCkRpvJoglFUPGuKVeSH1Z/THEfIyHIN90RZVU/4N13G epQgGRW+5kkdKlEXpqbb5R4UISPpB5Y/W80x4YOzs4cEpMiow+1cTf1NKWGb u0trMipkdJiSWFDtySK8+Wjvg54ZGb1Z9DZ6at4iJJJ2kDf4ORmVPGPhpiHp Cilp9reRIsjo6iLlTmSFmpDudHzQi2gyuqggCvSbVIScpY6uvEogo0fHVPVG HksKlX8SaUt/T0amdBe07/wlCp2rIwfWfCejV6PuF5dDGgRt7VYoWk1kNLC/ TtDxb7WgO7F4uekHGV0PKHVkFy8VTNBXtuzoIqOGfHLswLd3glPdiDI6Rkbq XjU+xgtBgpvu+GXbSTJy2SeWU1nnJ8jCV5M5PUNGCgqXWW763xeUv6rJvbhI RjgDNnpajhuCGjRMP+6tkFFjDmt1p+g1QfO3jQHr62QUs6kNzJPOC9prhKp4 bZPRz1/bR/HZBoLek3pLe3tkFCTD3ZIkcUbwfwUCCnc= "]]}, Annotation[#, "Charting`Private`Tag$12924#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwV1Gcg1Y3fgHF75+bYZDtCklnJ+coWGSWRSqTsjMjIiLoVuSWzUJlFyCiy kt9XFIlEVtkjkUodssfzf15drz5vL0knHytnOhoaGi5aGpr/b/g3c+r2thqO ZzCY6nwa1poO5f87uKGGqhVJvBvmI1oWXKPL1atqKH/k/mBR24iWhKbvps+C GnYeq3lP0zaq9To2iWVsWg33JFCja36PabEo9Ythhxo+PbKh7w+TWimXHY9E 3lfDkrkV5cGOGa1iWv9HNPvVUGRFh/1+wqIWo7OxqpC9KnqmXYxwD+Ck8Ay8 uZibqIKPOVIM06tlKFZNGefl25Sx3Y7nBphpUULn4WLC5F5sUHBq/6F7nFIT lOFRZqmEFUPhgXbM7hSLpBMSW+mKyCi3khrlcI1i/PCVxeEfCpg6dYDrg809 Sn7LlT7/0/J4fkFU/ffyU0q6aqB+obU8Hn6+28XQo4QS99CvfMRcHlnH/RZt Rkoofv6esSY68ihn4t3+7n0pBcTttcXJ8jgv1qVre7ac0hOok9/2Sw4fnwz4 43z1OYVOljlQ8rocjtTRXo66V035m0A/aRMqhyryJK/fC9WUmfVty7jLchhr STOIx2ooH7pW5Jdd5LAlWvHII+5aSnr49+H2I3Ioki5lzZlXR1Hu7TAM5vuf L+29GMLdQDkblcLX+WQXdhckpI3KNFFctMq1zurvQp9P5RUHV1oo3tT3534O y6K+brnmwkYHJbDwW3RYsCxaF+ZYXm3oplx1pC9l55HF/5K6c2bc+ymcX2TL rcbJmDXdRw4T/kLJPG76PL2MjMVCePq14DBFqcOrciycjB75WfNF+8YohFFi 1S4zMo6Yt2iMcU1QjmJljbcwGfOgTdpUYooypjlQ92JGBhm3HXY3e0xTfCvW 6zeqZDDUvPjW+6UZCs0ecUL/hgwq/hk6m/B+jjIYrFRz1FIG7Q4KskdqzlOq muGZvZAMxq3yjozH/KE88niz58KWNJZwyqX0pFApSVzmRR6T0rh19bvi1fIF iteZM3lBJdKYHHAsOEd4iXKKbkr8apI01tRYm5E8lymHn3g+iAqSxtLe743y nSsUmcWQ1ERdaZzrOHFspG+dQsqgI6XJSiPp2mzlz7BNyvah2PhMdmlsmMiV itXapnz5Lz26uFcKf34cyeaIooUG/yqhyHopbJfMDHYMoYPc05+KrfOksGK7 8sVWOD147N7xcdNXCvk9anQXyxjBgkfBqdtWCm1fDtl9HGUC1XWjxXxtKXTe uelEK8EC622Rgkc5pHCslO3OaA8bjD1/WCSzIIlORVzObkc4oDmjjrL6WRIn Copxq3cHxHksOuYWSOKlSqpKeyoX+FpxLwTGS+KVcPtM3zBusD6odONIgCQ2 tYrwO/mQYCebW+GiniQ+UMXrLWG8kOOn4ntUQxITbtcbtvHygezg2r6nuyRR uEGuTuIZH+x9erv5PIckdsTTWhgu84OeRcVod68E8gr0LDK+EoKWqrB8pVYJ ZA6qvaoZKgxm4kZesXUSqCLjpNWlLQI2vwfWdLMkcNu2ZKilbye4J23xPXOT wKLDTTPSuyTg11rLEMdpCQyUu7eDKVMC/M4n5rmZS+AnA2U9fUFJCFOXUZFQ lUCSvnOukoAUiJUkp4kti6NVdGFHnK4MyF2Vle0bFMcgZ+Z6pj4ZULGsrbiN 4uhHs8RR4k0Ggz8jHzZuiaNG8XXvv09lwVNDgXFwpzhekI7hGneUh5BeY1MS nTiqQH/OC34FiA1wvmPyTQyDXjXPxXQpQNGLbKGaZ2JYy59kW2WjCLMaAkqp RmI4/J9l9O68vbDSq+7fvlsMxV1Z3IP0lIEl0KqGnlsMWxs2Un2qlEGu6rae 36AoLpb9nVgpUAHXfQy2lr6iKBIT1D5VoQaBfZIPbp4QxW82v6/9OKQONwMP jb86KIrVCt3NzZ3qkF8V4qnIKIruAazzlusa8HXfnwjWjJ3YMt412Rd1AH4w RUo9jtuJv3nnWFkHD8BiH+cbnYidyB2nfueCqiYwBCmyBV/YiRrqe0ILpjRB pto1ZVppJ6Z9NuL7YKsF5/ePPGlqEsEttwnNE2Ha4PJkv41RtQi61AYH9I5q g4dQIv27IhH0zGc8lWJwCHzX9c9+SBTBT8YJX3+x6EAYUcjz2UEE3eHlAPOI DqQYB1z9tS6M13ZZsFoU6sG9mg+7L80L4/lAgRvrX/UgQ17u88KEMN688ivB Q1ofstkH1VbfCaO2aUDP3Wx9KOnUmaVPE8b1X1eYLj4ygLe2HNZC6sIYHlk1 qttjBO9anWkf7BLG9D97/NTFjKFdkygVExHGI/JR69zuxtAt4scqQyeM8TVZ 7um0h2F0tL9B6aMQdpgmje3WNoEV1zx5g4tC6BJ7Mptz5gisD2z0vXUQQlnp 30dF9Mxgy8QmyuS4EHKIeNIYPjQDBkXWUYuDQtiwm6SxaWMO3L+9U+xYhDCz L1rjwoAFKAQf3PZ+JIhsMX+Ok9mPAQ5bKEzeFUQJmnrpdKNjYKN//oTtLUGc dmGwGrh+DK5zxhUf8hbEf1nPBDdtHoPPj4ZtuQ4I4vDhucz0TSuI6Yosf/Ze AFfob/C+23UCxPanDpIbBPAeWZzP6NIJqHxQyJRRLoCfjs05vnp5AsZcu89c TxVA2g+k3wXHbWD/ljTrcQcBtFJOHW+7YwvTCi3nFqn8yG3/M+IM5RSEJQzG uX3lxyHFhmbRe6eAtDRfPdTPj3xE1XvSwinQbhTkfFPPj8WlITJPSk9Dqq1H XepNfvQYjt6iqtuDQdQOnv3C/Kg1eY7hm44jfJmV1C7m4Ede08bVyWBH8LXc 5y6+zYd03rrLD585wn1hB4J5ig9/RjzptSKfA2p5uedACR9Cj85FJn4nyBk+ 3nxFlw9PxN3OmRC7AKpTqms96nyY/n0yw8jhAjR/51ZWluPD2nrXG5ezL8D0 cuf9aU4+bPdpndpPdgYFkpn/8SFe5LCRdss94ALPjQyk9gTx4rOZEHuzW26g by59MsaDF1fsakOv97tBz3G6+El7XnwUfWb8qaw7LDniaroBL9Iksu373uIO WqGULiYSL0qbrQ6c4veE5jL1yLGnPDhQvJT18asXnKjiqdLK5sH81YPL9Qbe MF1PnbubzIOyRu3xHx95A0tbua15CA9GuLkmh7r5gPmU4t46Yx70vNA0IxXh C32C5JHkCRL285jQhqr5gas4A+98LwkvxTVksXr5wQp50sT0HQkHyNzRpgV+ IKyW84KmnISBoj4Fc6L+cNZc9LZXOAnPyZR3f+O5DN+u8VGMBUm4HM/g9Vom ENjCy+aT2UhYv9A5etY3EJSCTfLGNrhxYJ1j90p9IAR6h7OFjHOjF82CjpJd EDCd/jrwtIgbQ5SHvRgzg0FG/UUACbjxrkJFtOeZUDi811LeYS83vioXyPKt DYWLCrNDxZLcyDzNaV8sEAaVEqIGhkzcyCI4n9bVHwb6O26Qgju5UIlG29PK 9So4TVuXDZ/jwofu/I1ek5Fwc/yXk4I1FyrHyK7d23kNioZi+IOMuJBD7nl2 hM01oHbXh3Pt5sLRPv+ehPZrQBdhknZz5h+Usm3s3268DodUZruO7fgHU6P9 Iqx6ouDmLlHNuT+cOMWMgVHCN+CD6LHsqD5OBJOalYfnbsBZtlrv6ixO7C3s sUym3oCwyRh2UVVO1IkYOjAoHg11qXKGMzY70GY4jTOr6BawnP52npayAy/+ +Zkst30LbCTyrwtL7kBzC9rU19axQC2SRrM5DnRzeBmuQf8fyKOY1rMIDiyb yjgZ5BUHad95VUKesOPYPKdSUsgdmC77ZJl8mx3zyjflOsbvgHpAkvdTP3Zk DmctkycnQOf2P09HKOzYfPrAyJM7CcDEx75Lv4sN+Qxdg99cTISAQ7SiHGus aFJwJ8XBJBleM6AWeZQVj0K+zcmYZOBqu3pKu5kVVQdCDgq3JsNT6417vvGs mJjSS6E3TYEp92VSrxQrWpkwF5bbpoJVyk+WzCMsqFeYXPn2wT3Itnu6q1qZ BX+fXiuImb0Hv8Q8jT7ysWDwM4F87f1pEFs48y/dGDPuPXc0N6k3DRobJrdc LjPjwRyVF3vFMkB59vPi3odMaPrhPJVx4gFc/r1HXiCKCcf2heuqaD6EmuVr 9lseTOi9q6nbPvEh6DIpvG0/wITiHWS7twaZYCUdcs+9hxG9v7RyytVkQYC9 8ME8dkbcjB9x++OeA3UXvL1jqQzoGJ7EdzgzB7Y8X+de+syAdvnt8Qc+5cDN EA92nQIG9Pph/fGndi6k3asbGtJjQOeJQbpB0Tyo6zoVwR9Cj6Ey4YZn1h/B 1kBpxaYjPY540/nKH3wMemN0M1PG9Eh+521XeuUxvP9VdLSCjx51lt1yvq09 hiH2dcmjz+jwhVPEJyumAtg2vN98a4YWD5fIvfyrVwgG5vMrvp20eOFFZalu fCHEWOvvOVlFi9d3sq27fSkErvNzqbJRtOivWOd0PKAIpCK1XJvEaZGD385s +EUxGNQNsm7a0KAaZqWxXyiF0qLHmi1aNNg9MSL59U0pCN73cU+UoEFyx+dr VLky6FtmSjrSs02UuTCnVFPLgBxqw/VwbYuQObV8q6itHF5f+8uhY7xJnDk0 wqBw+zncdbp1sYdrk+CKzfTNan0O7vqi7W5fNoiHpjnMnQwVwMVo+F+i1waR GLiZ5RxRAQ4xKayTyevE3vK2I+XhlbARr8Z0c2yVkPiW0/0xuwo++rQ4Cxet Elo8iW50s1WQd/T0m1L/VYILehZ5VavBlPRvVD/TKnHafn/+t7fVkJ7aTSe/ Z4XIjs+QSVivgX0PLm2/v7JE1NhpBXknv/zfrxgdHPWXiMufMgnauZcwbJ/e sMixRDRd7nvwSL8eosQbw0Wz/xIGvpwL5JV6+JTLteH9dpGg3VGv4u/dAL6F ZSvcPAvEaAUN8eAdgjKn9796Y1RC1mv+q/Q6wh8/RU7/Eirxs3arUnNPI/hR CqV7jKnEYc7YRIHkRgjozLW4G/aHGHypLfHO+TUsfN9totE+T+y2e8Z3Ra4Z Llc+OXvXZZ6gmtwQLT/fDEvh5MvLNPME47nbvxKymmGFSzyrVuMX8WAy7pSt 0BvY2Ef6C1k/iAENk1BFvrfA9O9KtpHfLEGIFpCf722FaLOAqgKOWWKRqhbi E9gKLPzU9ywFM0S/+FrV0qtWYCucW2ob/EawTdyq9LR8B/90jphZGk4THxVP ZSqFtYGgyJsVW8FJwnJzzkt6ux3Sp3Q5a59PEPazM53JxztAuLRBWth8guD3 mBdafNIBoro1FkPXxonro/vb420+gP4HG5PGvlGit/znVuCrTrBxkc7pDvtM 2AazJGuf7YLYS/4xSS8GiE6fjqWMO13wKqzJx+pXP1HYFqka2dgFMsnntbsd +gh39dm177LdQCXyBrv0PhHsjWqynivdIKZ2WDGXu404mCb7n1d1D9wwmVmT /LeVuF3LL7qD2gM/HGLe5Sy+Ja64WgVb7OmFurhWl5z+JuItQ7jdq8e9UNKe qKer9ZJwVX3nFpbZB6GrXaM6YjVEsv5o66mRPjCRJYXr0L4gWloiGWfF+uH9 toxPRHwJ8f2yceDO3H5ws3tceNW6gPix7uT6ZqofGCrIU+HCOYQOlbOMLDcA OkJmsIaphBg9/YFDFwcg5u3ax5PiscRx6tF/9j8YgP8DlhA9FA== "]], LineBox[CompressedData[" 1:eJwVzXc8lg0bxnEyQ5nZ+0ZGWbes+zpdJxoSRWSlYVYSpTJSdgihZEVJ5Mko QuippKyMkCgrOzsRIor3ef86Pt9/jp+Uo+dhl010dHQUejq6/29k3WqbjUQU uft83KBCTBdYULtehetnk4d1kpv8Or9AWbd1SIR/HjmZe/ueZdgX2FI1Tamx KyLdJyo0SI0vcMH17GTNnTLSx9+oelfyZ6Cje77hVFlPZqlf4Bwy7oDUST61 UZMGkunT8FQaUweof7rk6NzbSCqcDjpFvv0Ezjkatc4rH8gdj1UOatD+s5xd rbpQO3lQ55NqmE471Dd3R1EtusjhiPJ402NtcNq3p/6oUjcp4qTCEC7ZBqwy vYxhDD1ky7l6OZ2GVjD27wvoKOkl43Z3kYX9LdCsMOB1mW+AjLAxS3MQ+wCn Db2e9E4Nk1K7eDy7RxtAO/Vn0w+rEdIwO2D1UFgDsP7wmmKoHiErrNWfycs2 QO7di9t3pI2SsYZPXs64vYep+UuZVw+MkbFkQYcWcz24P/BJFCuYJBNrfzh3 +tQA8Wu5RE1wigyrmG4ilGqAw8S3fU/YFPlz+YNp5UA1PFn25fSwnyYT1H1f bByohtmDV25UcnwnLSZOjHCqvYOKgMrKQs05si09VURFsQoe5K5/eOE+R2YN jy9973kDkR16X6sfzpH7mHRL9JzegI3im7UvW+dJnv3Jrzf7VcLvzjfadOPz JK0JWVIrXoHuzrfFZskLZHqYcsWVkBewq+NzUmXDAmkQYu36VP4FqPrPXNnx Z4F8LbOGQm0VINcgYMjqsEjSf/n+K1S6AnhdPD69UVwiA656VxOdZTCTLrKo XPmLLEhQWxryKIVxQ7Wu9LlfZLegxrFSuVIYntr7io2yTC75vHsfPFAC3dpe YWMRy6SK8RNjOssSqOt4z3fffIUcLo1sVDUqhgwO711bvv0mPzHImOfaFcHd kmghf4FV8mt4J9czySJIssv8O7F/lVxqV9/L3FoIMY+ba2uerpIO06s9v2af gu9uitVV3zXy5k2Lp9/wCRy+2uY9zf6XNLr0rDpJPg9MKWN2tnp/SRkFseLo plwwalzTqz//l7xYUxZW55kLeoLbWbI6/5JNqeE2f14+BqXSa8l2Gevk8p25 gHnHf2CT97Y+ZyE6vFhaK+w9ng12J/PaKzTocK+exLZHSdlQbEw2cJjRIV1x Uw3LvmxwlDhTVhpOh/PxuWZW+Vnw7v2reMZFOlwk05nvBz8E4RLzCBtOelwd Pyw5p/MQvO6NXStQpMehIuZ8i4VMkPbiOmvpQI89qjkC5JlMCBVx3pPdQo/l glvv6To8gD6m37SVSXp8m3SZki/1ADTmbqqbMG1CfvU7amJ1GTBaUy6xSNuE T14WKeHH+7Dbg33VMHcTltvJaQj9TQfGt8VPR0IZkMgx2HfsUSrY5+97pJXB gN/68u9f0U+F0sS+tOh/GVBFgFQVGEgBZzfmG9R5BjxJ5+tXLp4Ctbx2TqHH GZGVveb82tMkEF+ftf3ix4gfuhZbfK2SwHsi1EwpkREDpLlOG28kgtzrJ/Cp iRHPpTWSny0TIdyVXpCiw4T+R3ciK+cd6DdL2upjyYR9Wwdz71clgCZNianJ kwmrf7JzOV1MgDHOIz+9cpiwt8133anvNux98bj5HS8z/vbX2/Xh5S1g4TAL dpxlRr+TvXsO2saBzXa7Ks3NLFj146j3jcFYyDNw3mCTYcHLw384487EwkE/ 32sltiyo+1u5vT/oJiSNPfBjrGVBnj8Mir3V0TBBn1/RNcCCMUY6USU20aAr 9ny5YJUF6cUdT1F+REG/RcPlI6qsqHFT8MszySiQezt/ISeNFb9KnFwfT4wE 3761oitlrBhic124RzMSGpeZ5g5+ZMWljng7ze4I8FAW9lhm3ozrV09LCEpH QFmagZuR12aMFdT4Nld9HfZ4JzhOGbHhO86DxHPDUEi6dS+z0okNrVpNniyt hMBEwT+DtwPY0KDjxE+LwhCIGXl5nFbKhuVB+Zq2EiHQYTZqFyPBjoHb45/z cQSDnPts6klddmTpanb+2BAEvhErXRpH2HGlY2wmOjIIRCs5rL9GseO6qsf9 adYgcFbaZaH8ix2jk3r2DyoEQNle8vYmbg4MNIvIO1t6DVgd93/8rMSBY6nB HS/wGhSkHDsU6MCBlnfb/4QevwqLTOEH2po5ULzZSl/k6RUIHfxs6JW1BT3J jl0byT7Q/+LAOd9XW1BTJXFsUd8HdBOqkgI6tyD7HO+AxHdvmNuTNxnFshX7 nPNTGfd5w/H8a3FZZ7dicuv7LYmsl0HXW6a3g8qJ0+5rS8ffeEHSoVTGXhNO PMJsw1p/xQvm5bcqD7lwYjDP6RA5LS943Lsc9D2ZE3N/qf19XXwB+PWb5Jj/ cCJj6Lb2+dLz8JtJ54WIIxfSxoorzWrPQY7Xwof7HlwIzSEMrDbnwHLgybCU PxfqRvY1GM+4Q1GFNIf8HS7Uennqm72QO7ie5TihUceFmpMMzWLX3aCjbYDR VJEb70m1/ci8fwpC4K5QmyY3Bk6fr8zedwpU8yyVLQy58VkHvefIvCtEhzZY 29pzo7jxyb5Nxq5goFmS5xLLjaKdPlyHWV2gKC3cLODnf153s8t64QhNvOHj nHQ8mBrZX5/j4Qhj0dcDMrfw4NL7L4fbZRxB9GpYQY08Dw6WUT7G3XGASPsQ VvYTPEj/LjlRMfgkZHUEZ6S782DVsHfqot5JqDQJ1lS+woMGhhtCN9ZOwCIR 5GyeyINtUQ/+bf5zHE6KBVQlN/HgkROcZtH8x8A/8Zq1QjcPKu74G/go0x6S tlyb/XeMB5uV/67FKttD819/0X56Xjy+cKWgxPQoaPf7+cpo86Kok8jdsAe2 wJVxWfVZNi8O59D33bttBUoCl+sNinmx3UNJJ1HLCvbGXTre8YYXvStDCn99 PQJXAy/GLPfwomLI4ZYh5SMwceLCBHDzoUera9W7QQtg6Dof2CrOh/zJ+dqX 4i1A3Ow8v8MOPtTzLy120bcAS/TcHbaPD9lEOUSWcg5DleS5B43X+JDyffEr BplDb4q7ln00HwrOZP1x1zGHX1zuLd9T+LDnenB3yYIZ7KA/+4erlA8bcvr9 g86aQcrQaRvrKT7MlxyIJVsPgudDZ65Rq23IJ9gruCZ6AGL9UtNjnbbhrrIa N0qZMTw1a5HXOb8N302lxzSbGcPsupZ+7I1teMd1QTY6aj+4H2X30n61DSl3 d5lTOI3Aja/4U4wUP1Ib+JeNbfZA1PTYCS1lfvzJcomem2UP5L0TmRnS5cfO 9xrrLOW7YfL8dUYtS350fPqY5iO8G05/sNk1FM6P5o4rWiOzBuAavpG0a4Yf G0wqw1wbEcKPaVAGV/jRba6DahKFkKNxpjCKSQADR4xtKQcQvg231w+IC6CE +04p1QwSnMmclRvmAtjBqnvWtw4gjL83TOO4ADZATVC6JUD2d07uATcBjM3j VfEYJWAkzU9BI0wAh91VL9JvJsBxxcSuv0wABzf3HtFz0YWQ1uCxyGoBzBE/ tl+WThce5pR5UdsEsBSvm0el68CQpWR05KQA6vxevVjRrQ0nny28VBcVxO/e FK2tLlpw3O2uWESwIK4zmCbIv9SAte7NLfM3BfEi/vt06zkNSNnvF2B/VxCL norLCkhqwEd5mwG1EkFMDtsfF3CDCrvHt2X2jQqi75vMWM0z6qDgfEtG3UgI PzOkuC3YqIKj4fnrLA5C2JrpefbOKxVIlz401ucnhPf2RG/YtSjD1iGOxxH5 QjgRup3iwrwTFo9FKn3dKoxug07fhKsVYCeciineLow7g+i1qPQK4Cq693sE CmOR2GWTmd3y0N3DUKjuJYxT2jCS3icHldaB6pGdwlgm0SrwykgGVjSPJxyb FcZR9/L9SYUUUOOHRXUWEez9Icw2JkyB7I7V51+1RXAh4tVPp3UpuGHurUNN F8HsKQ2TlSkJSN83cF+2XAS9KC5WG6PiUARGjILtIsi3dfCc+bgYdCkIt/5h EcXO7ifBrQyiMCMRqvFDWhTPNN6duComAnT8M6lDIIpi78p5fPWEQX5TpXPd RVH00hT38EwUBGJFrrEiVhR7g3UW1xoFwGw2TiU/VxRHgzybfjELgE+Pw2rc gCg2/B6Nd7u1DeqKmeJtD4jhBbkpWZZpHuh57LF0wFUMe20NecoP8sDs/S92 esFiyGnt5uNYzg380bmylHIx5B95dIojmQsUg3mit7WLYdnxz06VW7hAz8d/ juW7GH6/9vjQI25OcHEyfTkjLY48Mv3GSgJbIOaQRPhHG3Hc+yXrYyzBDqW0 ebOyWHHk+CXB1hm4GRj5EscCV8VRxWSpuNyGGfSuEuHvd0ignrHC7eebmMBv dESW+4QEZghtHB2vYoBSk+ha21sSuOVbp5XE7U0wW6ru8rBaAg3EtivoX6YH BbEexuklCZyX/9iHZ+ig+B22C/FJ4kAh75BhzzoxozhxwXGvJNrnhge/0l8j 2AZevg0/IYkJQuE7Oe7/JrYnxHHn+0oi26nKBVPeFWL3PieH1luSWBIXN8L2 4BfhuKb5bCFPEmu3i78fMlgiAgvZ6AVrJPE+CE5dX10g0p36zYiv//17nBt5 XfuT+NJ0fS6MUwp//6Ndd+z2HNGSNLK7TlEKB1X3Z6f8niXqHPRTWfZKoeeC oo/9zxmickfGdyMHKSx8rFL/kmOaKFv+ox91VQqrnFWc4/dOEjk3K6Y4SqQw 1ob+SAHXGJFEuZQQNymFjp8jszkNRojwFyoEj6Q07tQo6B39MEh4H5oevWMl jQ1n/pXqMP9KuH7LuSlwUxr3Sin2B97uJo74O2rerZZGLgVLzWsmnwmbmwsl Qb+k8Wz8nbRt9z8RdhlhaqcUKLheYuBrrf+RuPtWk75GhYKPqh50bay2Eb0j E22SmhScsI5NqX7eRtjLm57vMaBgvsVybrRyG3Hs2bZCU3sK7qrVHjG1bSFO Vufs0Iij4GSKRRZHYSPhOv5+O/0SBWn6Itw592oId/Zp6RY7GXy5xjAe3fGG mPb7l5HdQQaZPa6fk7V8Q7hN3Bjbd0oGf/qXTFR2VhKnauXz3l6Uwdwr/9i0 978mHANd1Z7HyCBNO2f1EcsrwnZhiEyvlMF9oSG3nj+pIPb2dtm7ScviqiEh HSJeQtTuf6z3j7wsqhTxbsy0FRO7K3wkR5VlkaV3hScurJjQT+QfPUaTxeAQ ywKXH88I4pDlWXNLWaSd7DLpaS8i1Ktb/bTDZVFqY6cW990nhER+XRLzlCzy L8h3Mo/lEJYZFS8a52TxoGSmTFlQDhGVkNcXuyyLQitNuZJiOcSif6y0AJMc FjFcDNt89BHRaGL1dLukHN7Wv5dzciqL8J79VmtkJYdpo+n9WuaZxAc1pqWo d3JY9nHFzlrpLuFfYWjBmbYdE3NfF0w33yTO57iXaaoo4HCw6VpK5iWCY5OW o/I3RdRJTBE5V2dL7DlnmaiYsAOVTDMlHmgiIfhCzHOPjDJqLqzLHaqRJW57 Rd5S/aKChw+086ruZyMOhx/aea9MFc+tGB2//muOpng07Ej2NTVUzG/7rij2 mfZ5bPPDhCPq+OZUIktRzwtai+M3fR4JKjqx72bQpj6gDTH+s5IoTUXtqvzO w28yaIs5pwuF5Kho/JFvPFokgyY0PS0qtZOKAblk1Ouv92jOF38uq9CoGOSp wW8XkUZbDd14YmpNxVpbsaHDjsk0uUdCwjfiqFi96VmjRV88TWdfbxtHAhWp RTEnesLiaSaT6RHxSVQ80HmnXlolnnZhp+RS8j0qfgua7MnjjqO9ei7XlpNP RUf31lvZGTG0w3XU8Jp6Koba+JudMY6kuZxeIoyaqGgNsoVMzRE0X7byhaaW /9yuO7PTLIJ276Cuw6dOKpZmyWnMnginTXxGYnjkv37qP4Ef08Joq76bFlzG qejPl+LjoRpG2yJSkzs5RcVjggtimvWhNPUT+wTm56n4tyDbTGgthLaHfnPL pSUqRkgOHpFICaHZZDWGraxQMVFN8reMVgjNbU8M7eofKp71uPpXoiuYdm3c 9OfGBhWb5BnsmP2Daf8D9u45iQ== "]]}, Annotation[#, "Charting`Private`Tag$12924#4"]& ], {}}, {{}, {}, {}, {}, {}, {}}}, \ {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-20, 20}, {0., 3.9877347319207}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ TagBox[ GridBox[{{ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}, { FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{3.7865844844715757`*^9, 3.786584776822131*^9, 3.786584815895084*^9, 3.786584860312608*^9, 3.786584926973483*^9, 3.787822525151251*^9},ExpressionUUID->"1ec8b475-1281-40f7-8bd2-\ 48a052d180fc"] }, Open ]], Cell["\<\ From inspection, we find that our solution rather obeys a boundary condition \ given by,\ \>", "Text", CellChangeTimes->{{3.787822545760069*^9, 3.7878225660877438`*^9}, { 3.787822859615327*^9, 3.787822865733716*^9}, {3.7878229463324957`*^9, 3.787822965729631*^9}},ExpressionUUID->"35775a33-0f3d-41a8-8593-\ 795cb0e29893"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], SubscriptBox[ SuperscriptBox[ RowBox[{"[", RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{"sgn", "(", "x", ")"}], " ", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "]"}], RowBox[{"0", "+", "\[Epsilon]"}]], RowBox[{"0", "-", "\[Epsilon]"}]]}], "=", RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"0", ",", "t"}], ")"}], "--"}]}], "-", RowBox[{"(", "8", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787822970060884*^9, 3.787822979392825*^9}, { 3.787823462695278*^9, 3.787823463938899*^9}, {3.787823767562459*^9, 3.787823770486599*^9}, {3.787823875214284*^9, 3.7878238770329933`*^9}},ExpressionUUID->"7bdaaefb-0963-47f5-8ad8-\ cfdc82e75ef0"], Cell[TextData[{ "The attempt to address the missing term can be either to solve the P(x,t) \ of the above equation. Another way is to assume a function ", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ SubscriptBox["P", "1"], "(", RowBox[{"x", ",", "t"}], ")"}], " ", "such", " ", "that", " ", "the", " ", "total", " ", "solution", " ", "is", " ", "given", " ", "by"}], ",", RowBox[{ RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}], "=", RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"x", ",", "t"}], ")"}], "+", RowBox[{ SubscriptBox["P", "1"], "(", RowBox[{"x", ",", "t"}], ")"}], " "}]}]}], TraditionalForm]], ExpressionUUID->"0e188257-55e3-471f-a4d2-de212357dc64"], "such that the function ", Cell[BoxData[ FormBox[ SubscriptBox["P", "1"], TraditionalForm]],ExpressionUUID-> "c28c1290-adf6-4556-bfa3-15dc7ee70e4a"], "(x,t) nullifies the extra term which can be expressed as," }], "Text", CellChangeTimes->{{3.787822990710232*^9, 3.787823091312639*^9}, { 3.787823441939555*^9, 3.787823454478408*^9}, {3.787823810154395*^9, 3.7878238385491743`*^9}},ExpressionUUID->"9571580b-cd2f-4f28-b4f2-\ 0df512131fd9"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], SubscriptBox[ SuperscriptBox[ RowBox[{"[", RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{"sgn", "(", "x", ")"}], " ", RowBox[{ SubscriptBox["P", "1"], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "1"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "]"}], RowBox[{"0", "+", "\[Epsilon]"}]], RowBox[{"0", "-", "\[Epsilon]"}]]}], "=", RowBox[{ RowBox[{ RowBox[{"-", "D"}], " ", "g", " ", RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"0", ",", "t"}], ")"}], "--"}]}], "-", RowBox[{"(", "9", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787823848117009*^9, 3.787823881922917*^9}},ExpressionUUID->"c664313d-9a71-44db-9c97-\ 1af8a704ddb8"], Cell["\<\ However solving the Eq. 8 is much simpler. Let us simplify the Eq. (8) \ further to get,\ \>", "Text", CellChangeTimes->{{3.7878259158844767`*^9, 3.787825967200035*^9}},ExpressionUUID->"977d60d3-ce6a-4fb0-8c33-\ 0f92559fac0b"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], SubscriptBox[ SuperscriptBox[ RowBox[{"[", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], "]"}], RowBox[{"0", "+", "\[Epsilon]"}]], RowBox[{"0", "-", "\[Epsilon]"}]]}], "+", RowBox[{"D", " ", RowBox[{"g", " ", "[", RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{ RowBox[{"0", "+", "\[Epsilon]"}], ",", "t"}], ")"}], "+", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{ RowBox[{"0", "-", "\[Epsilon]"}], ",", "t"}], ")"}]}], "]"}]}]}], "=", RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{ RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"0", ",", "t"}], ")"}], "--"}]}], "-", RowBox[{"(", "10", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787825989702375*^9, 3.787826053922017*^9}},ExpressionUUID->"d6235ad4-a5b9-4c31-b2c4-\ bd870cdd1131"], Cell["\<\ using continuity the above equation simplifies to the following\ \>", "Text", CellChangeTimes->{{3.7878260915432253`*^9, 3.7878261087219667`*^9}},ExpressionUUID->"3aab463a-8a25-4edd-8c26-\ 9d7f7160bd04"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], SubscriptBox[ SuperscriptBox[ RowBox[{"[", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], "]"}], RowBox[{"0", "+", "\[Epsilon]"}]], RowBox[{"0", "-", "\[Epsilon]"}]]}], "-", RowBox[{"D", " ", "g", " ", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"0", ",", "t"}], ")"}]}]}], "=", RowBox[{ RowBox[{"0", "--"}], "-", RowBox[{"(", "10", ")"}]}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787826069425902*^9, 3.787826078448494*^9}},ExpressionUUID->"62a3abd4-6c4a-4993-991d-\ 4d89e5ed5a3a"], Cell["\<\ The above solution can also be derived alternatively from the following \ equation,\ \>", "Text", CellChangeTimes->{{3.787826228553466*^9, 3.787826251511574*^9}},ExpressionUUID->"97336d5c-8375-4141-9b85-\ e3b3ebb92c4b"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Input",ExpressionUUI\ D->"d21345ca-013f-48af-a3f8-e9d8d98c1c0a"], Cell["\<\ For which the solution is readily available, adding this extra term to verify \ that the solution passes all the tests. The upcoming cells present the \ soluition of the above PDE in the transformed form\ \>", "Text", CellChangeTimes->{{3.787826317568413*^9, 3.7878263560393963`*^9}, { 3.787826534152481*^9, 3.787826542039212*^9}, {3.7878265759934072`*^9, 3.787826592205895*^9}},ExpressionUUID->"eacfa4b4-8b23-4569-a79c-\ 173836620ac0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"DiracDelta", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "//", "TraditionalForm"}]}], RowBox[{"(*", RowBox[{"eq", ".1"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"g", "*", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"DiracDelta", "[", RowBox[{"x", "-", SubscriptBox["x", "0"]}], "]"}]}], "//", "TraditionalForm"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["P", "1"], "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"2", "d", " ", "g", " ", RowBox[{ SubscriptBox["P", "1"], "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"DiracDelta", "[", "x", "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{ SubscriptBox["P", "0"], "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"DiracDelta", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{"D", "[", RowBox[{ RowBox[{ SubscriptBox["P", "1"], "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "//", "TraditionalForm"}]}], RowBox[{"(*", RowBox[{"eq", ".2"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["P", "1"], "[", RowBox[{"x", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"g", "*", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"DiracDelta", "[", RowBox[{"x", "-", SubscriptBox["x", "0"]}], "]"}]}], "//", "TraditionalForm"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], RowBox[{"(*", RowBox[{"multiplied", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"g", "*", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], " ", "to", " ", "the", " ", "soluton", " ", "of", " ", RowBox[{"eq", ".", " ", "1"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox[ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pdif", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["\[Epsilon]0", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"g", "*", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"d", "/", "2"}], "t"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]0"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "\[Epsilon]0", " ", RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"d", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"x0", ",", "Positive"}], "]"}]}]}]}], "]"}], "/.", RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]0"}], "]"}], "\[Rule]", "1"}]}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]1", "=", RowBox[{ RowBox[{"-", "2"}], "g"}]}], ";"}], RowBox[{"(*", RowBox[{"multiplied", " ", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"2", "g", " ", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], " ", "to", " ", "the", " ", "soluton", " ", "of", " ", RowBox[{"eq", ".", " ", "2"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pdifanother", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", " ", "g"}], "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{"2", "g", " ", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{"4", RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]1", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]1", "^", "2"}], RowBox[{"d", "/", "2"}], "t"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]1"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "\[Epsilon]1", " ", RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"d", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"x0", ",", "Positive"}], "]"}]}]}]}], "]"}], "/.", RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]1"}], "]"}], "\[Rule]", "1"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P0", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P0", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"Pdif", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"x0", "\[Element]", "Positive"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]", "=", " ", RowBox[{"g", " ", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"d", "/", RowBox[{"(", RowBox[{"2", "\[CapitalGamma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"udif", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x", "]"}]}], "/", "l"}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "/", "2"}]}], ")"}], " ", "t"}], "]"}]], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"udif", "[", RowBox[{"x", ",", "100"}], "]"}], ",", RowBox[{"Pdif", "[", RowBox[{"x", ",", "100"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "40"}], ",", "40"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", "80", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sign", "[", RowBox[{ RowBox[{"-", "g"}], "+", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"d", " ", "t"}]]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "40"}], ",", "40"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], ")"}]}], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7856623217970667`*^9, 3.7856623942457447`*^9}, { 3.7856625216907787`*^9, 3.785662628618373*^9}, {3.785662741045452*^9, 3.7856629900097647`*^9}, {3.785663024717948*^9, 3.7856631155276546`*^9}, { 3.785663159165319*^9, 3.785663165084166*^9}, {3.785663205431918*^9, 3.785663296688836*^9}, {3.785663333996038*^9, 3.7856633462070103`*^9}, { 3.7856634363825073`*^9, 3.785663443248333*^9}, {3.7856634988518543`*^9, 3.785663528503641*^9}, {3.785664153109846*^9, 3.78566429463276*^9}, { 3.785664369473814*^9, 3.785664379429935*^9}, {3.785664633870777*^9, 3.785664656845866*^9}, {3.7856646924533663`*^9, 3.7856646963591537`*^9}, { 3.785664735549466*^9, 3.785664781069085*^9}, {3.785664813020865*^9, 3.78566482800504*^9}, {3.78566515060152*^9, 3.7856652004445467`*^9}, { 3.785665233489869*^9, 3.785665239836935*^9}, 3.78566530987776*^9, 3.785665539760021*^9, {3.785665754364406*^9, 3.7856657799645042`*^9}, { 3.7857507658281393`*^9, 3.7857507660998774`*^9}, {3.78575084067413*^9, 3.785750854530298*^9}, {3.785751677047467*^9, 3.785751733285768*^9}, { 3.7857517788645363`*^9, 3.785751782208929*^9}, {3.785812729539938*^9, 3.785812783744376*^9}, {3.785812813755994*^9, 3.785812866120245*^9}, { 3.785812928280114*^9, 3.785812944558531*^9}, {3.785813014017537*^9, 3.785813047070732*^9}, {3.785813119584302*^9, 3.785813312048449*^9}, { 3.785813346645369*^9, 3.78581334716264*^9}, {3.785817452294012*^9, 3.785817492581915*^9}, {3.786072439466486*^9, 3.786072439907051*^9}, { 3.7860724719886713`*^9, 3.786072529544685*^9}, 3.7860725845421047`*^9, { 3.786072905070915*^9, 3.786072955559154*^9}, 3.7860736927655573`*^9, { 3.786073731755363*^9, 3.786073786435857*^9}, {3.786073834024809*^9, 3.786073879489996*^9}, {3.786073966305423*^9, 3.786073996079054*^9}, { 3.786074107265605*^9, 3.78607413321423*^9}, {3.786074173617741*^9, 3.786074209472452*^9}, 3.786074562275654*^9, {3.786074806289939*^9, 3.786074840136262*^9}, 3.7860748936048107`*^9, {3.78607502357227*^9, 3.786075050583591*^9}, {3.786075104449547*^9, 3.7860751576265287`*^9}, { 3.7860752447724667`*^9, 3.786075283858899*^9}, 3.7860755182124643`*^9, { 3.786075571032261*^9, 3.786075581533778*^9}, {3.78607577356243*^9, 3.786075774078723*^9}, 3.786075838587202*^9, {3.786075894032572*^9, 3.7860759041585703`*^9}, {3.786076204780044*^9, 3.786076256910019*^9}, { 3.786076295800536*^9, 3.7860763623706427`*^9}, {3.786076685101351*^9, 3.786076700286868*^9}, {3.78607674398563*^9, 3.786076754751896*^9}, { 3.7860768966200447`*^9, 3.786076903637609*^9}, {3.786076967505783*^9, 3.786076993156705*^9}, {3.7860770252649097`*^9, 3.7860770320845137`*^9}, { 3.786077074152479*^9, 3.7860770829149303`*^9}, {3.7860840203388147`*^9, 3.786084024763186*^9}, {3.786084067306425*^9, 3.786084104400756*^9}, { 3.786234704771557*^9, 3.786234706604556*^9}, {3.786584983854369*^9, 3.78658504335923*^9}, {3.786585233591837*^9, 3.786585286462479*^9}, { 3.786585332329324*^9, 3.7865854718708*^9}, {3.786585517740286*^9, 3.7865855198796997`*^9}, {3.786585578022241*^9, 3.786585584097144*^9}, 3.786585640121719*^9, {3.7865857075958433`*^9, 3.786585708772025*^9}, 3.786595496282769*^9, 3.7865956141950293`*^9, {3.787826636839313*^9, 3.787826640052022*^9}, {3.7878267258425817`*^9, 3.787826978471219*^9}, { 3.7878270513066187`*^9, 3.787827092515316*^9}, {3.787827128315577*^9, 3.7878271329807863`*^9}},ExpressionUUID->"0433282e-a2e3-48b9-bb9c-\ 6c90064f71ba"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.7878271337947617`*^9},ExpressionUUID->"53f8c7a0-2d2a-4b19-b0cd-\ 9ef91ff11ea5"], Cell[BoxData[ FormBox[ RowBox[{ TemplateBox[{RowBox[{ RowBox[{"x", "-", SubscriptBox["x", "0"]}]}]}, "DiracDeltaSeq"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"g", " ", TemplateBox[{"x0"}, "RealAbs"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}]}]]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827133865136*^9},ExpressionUUID->"845f520c-1ca3-47f0-9f93-\ 101bee519317"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{"2", " ", "d", " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{ SubscriptBox["P", "1"], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "1"], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox[ SubscriptBox["P", "1"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.7878271338724203`*^9},ExpressionUUID->"54ac7fde-315c-4619-8e71-\ f8485ecdcbb0"], Cell[BoxData[ FormBox[ RowBox[{ TemplateBox[{RowBox[{ RowBox[{"x", "-", SubscriptBox["x", "0"]}]}]}, "DiracDeltaSeq"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"g", " ", TemplateBox[{"x0"}, "RealAbs"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}]}]]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827133878518*^9},ExpressionUUID->"e689d103-89e8-4ad3-b6bb-\ 3cc979236a1d"], Cell[BoxData["\<\"For which we know the solution to be\"\>"], "Print", CellChangeTimes->{ 3.785662631360647*^9, {3.785663182192411*^9, 3.785663297483659*^9}, { 3.785663337642178*^9, 3.785663347496359*^9}, {3.785663444764429*^9, 3.785663461800976*^9}, 3.7856643374424753`*^9, 3.785664380292493*^9, { 3.785664636830742*^9, 3.7856646580409613`*^9}, 3.785664699325981*^9, { 3.7856647371527452`*^9, 3.78566475537919*^9}, 3.785664831112216*^9, { 3.785665168720737*^9, 3.785665201957657*^9}, 3.7856652413838453`*^9, 3.7856653119157352`*^9, 3.785665541437107*^9, {3.785665755580125*^9, 3.785665781133388*^9}, {3.785751710001974*^9, 3.7857517342794857`*^9}, 3.785751783058159*^9, 3.785812877149736*^9, {3.7858129356008463`*^9, 3.7858129458239307`*^9}, {3.7858130199564657`*^9, 3.785813049012176*^9}, { 3.7858131236610737`*^9, 3.785813147523046*^9}, {3.785817476732822*^9, 3.785817494676968*^9}, {3.786072518957102*^9, 3.786072531301033*^9}, 3.7860725874016237`*^9, {3.78607292342723*^9, 3.7860729562529297`*^9}, { 3.786073851427853*^9, 3.786073880646158*^9}, {3.7860739702103662`*^9, 3.786073997375308*^9}, 3.786074134565639*^9, 3.786074213747389*^9, 3.7860745642098093`*^9, {3.7860748197447147`*^9, 3.786074842586112*^9}, 3.786074895042783*^9, 3.786075051989153*^9, {3.786075112383027*^9, 3.78607515890057*^9}, 3.786075298218725*^9, 3.786075583215518*^9, 3.786075783972581*^9, 3.786075839987269*^9, 3.7860759058160677`*^9, 3.786076368869779*^9, 3.7860767051975307`*^9, {3.786076755881206*^9, 3.78607678460275*^9}, 3.7860769056084833`*^9, 3.786076999612443*^9, 3.786077055042688*^9, 3.786077089629833*^9, 3.786084116634779*^9, 3.786234720227446*^9, 3.786585524953228*^9, 3.7865855875121317`*^9, 3.786585642323859*^9, 3.7865857099150333`*^9, 3.786595497712729*^9, 3.7865956169432993`*^9, 3.787826691600769*^9, 3.787826732310464*^9, { 3.787826957418331*^9, 3.787826979699457*^9}, 3.787827052310667*^9, 3.7878270937362967`*^9, 3.7878271338864307`*^9},ExpressionUUID->"4644b2b7-4a76-4581-8815-\ 9654965ece1f"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134181925*^9},ExpressionUUID->"c3585adf-0a66-4edd-a8c0-\ 71a6a4ac5862"], Cell[BoxData["\<\"An alternative solution using another PDE is\"\>"], "Print", CellChangeTimes->{ 3.785662631360647*^9, {3.785663182192411*^9, 3.785663297483659*^9}, { 3.785663337642178*^9, 3.785663347496359*^9}, {3.785663444764429*^9, 3.785663461800976*^9}, 3.7856643374424753`*^9, 3.785664380292493*^9, { 3.785664636830742*^9, 3.7856646580409613`*^9}, 3.785664699325981*^9, { 3.7856647371527452`*^9, 3.78566475537919*^9}, 3.785664831112216*^9, { 3.785665168720737*^9, 3.785665201957657*^9}, 3.7856652413838453`*^9, 3.7856653119157352`*^9, 3.785665541437107*^9, {3.785665755580125*^9, 3.785665781133388*^9}, {3.785751710001974*^9, 3.7857517342794857`*^9}, 3.785751783058159*^9, 3.785812877149736*^9, {3.7858129356008463`*^9, 3.7858129458239307`*^9}, {3.7858130199564657`*^9, 3.785813049012176*^9}, { 3.7858131236610737`*^9, 3.785813147523046*^9}, {3.785817476732822*^9, 3.785817494676968*^9}, {3.786072518957102*^9, 3.786072531301033*^9}, 3.7860725874016237`*^9, {3.78607292342723*^9, 3.7860729562529297`*^9}, { 3.786073851427853*^9, 3.786073880646158*^9}, {3.7860739702103662`*^9, 3.786073997375308*^9}, 3.786074134565639*^9, 3.786074213747389*^9, 3.7860745642098093`*^9, {3.7860748197447147`*^9, 3.786074842586112*^9}, 3.786074895042783*^9, 3.786075051989153*^9, {3.786075112383027*^9, 3.78607515890057*^9}, 3.786075298218725*^9, 3.786075583215518*^9, 3.786075783972581*^9, 3.786075839987269*^9, 3.7860759058160677`*^9, 3.786076368869779*^9, 3.7860767051975307`*^9, {3.786076755881206*^9, 3.78607678460275*^9}, 3.7860769056084833`*^9, 3.786076999612443*^9, 3.786077055042688*^9, 3.786077089629833*^9, 3.786084116634779*^9, 3.786234720227446*^9, 3.786585524953228*^9, 3.7865855875121317`*^9, 3.786585642323859*^9, 3.7865857099150333`*^9, 3.786595497712729*^9, 3.7865956169432993`*^9, 3.787826691600769*^9, 3.787826732310464*^9, { 3.787826957418331*^9, 3.787826979699457*^9}, 3.787827052310667*^9, 3.7878270937362967`*^9, 3.7878271341874313`*^9},ExpressionUUID->"03aa69d4-0fd6-450f-835e-\ 75be0ed14dd5"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", "g", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134448176*^9},ExpressionUUID->"e2f0f882-988c-4c29-8897-\ 5bc8ad8cf911"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x"}]], " ", "g", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x", "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134455504*^9},ExpressionUUID->"95afb65e-a819-464e-b120-\ ed724548e103"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "g", " ", "x"}]], " ", "g", " ", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "-", "x", "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134463336*^9},ExpressionUUID->"6fd9cb47-ff1f-46fd-86bb-\ 830181e44c28"], Cell[BoxData["\<\"Boundary check of the new solution\"\>"], "Print", CellChangeTimes->{ 3.785662631360647*^9, {3.785663182192411*^9, 3.785663297483659*^9}, { 3.785663337642178*^9, 3.785663347496359*^9}, {3.785663444764429*^9, 3.785663461800976*^9}, 3.7856643374424753`*^9, 3.785664380292493*^9, { 3.785664636830742*^9, 3.7856646580409613`*^9}, 3.785664699325981*^9, { 3.7856647371527452`*^9, 3.78566475537919*^9}, 3.785664831112216*^9, { 3.785665168720737*^9, 3.785665201957657*^9}, 3.7856652413838453`*^9, 3.7856653119157352`*^9, 3.785665541437107*^9, {3.785665755580125*^9, 3.785665781133388*^9}, {3.785751710001974*^9, 3.7857517342794857`*^9}, 3.785751783058159*^9, 3.785812877149736*^9, {3.7858129356008463`*^9, 3.7858129458239307`*^9}, {3.7858130199564657`*^9, 3.785813049012176*^9}, { 3.7858131236610737`*^9, 3.785813147523046*^9}, {3.785817476732822*^9, 3.785817494676968*^9}, {3.786072518957102*^9, 3.786072531301033*^9}, 3.7860725874016237`*^9, {3.78607292342723*^9, 3.7860729562529297`*^9}, { 3.786073851427853*^9, 3.786073880646158*^9}, {3.7860739702103662`*^9, 3.786073997375308*^9}, 3.786074134565639*^9, 3.786074213747389*^9, 3.7860745642098093`*^9, {3.7860748197447147`*^9, 3.786074842586112*^9}, 3.786074895042783*^9, 3.786075051989153*^9, {3.786075112383027*^9, 3.78607515890057*^9}, 3.786075298218725*^9, 3.786075583215518*^9, 3.786075783972581*^9, 3.786075839987269*^9, 3.7860759058160677`*^9, 3.786076368869779*^9, 3.7860767051975307`*^9, {3.786076755881206*^9, 3.78607678460275*^9}, 3.7860769056084833`*^9, 3.786076999612443*^9, 3.786077055042688*^9, 3.786077089629833*^9, 3.786084116634779*^9, 3.786234720227446*^9, 3.786585524953228*^9, 3.7865855875121317`*^9, 3.786585642323859*^9, 3.7865857099150333`*^9, 3.786595497712729*^9, 3.7865956169432993`*^9, 3.787826691600769*^9, 3.787826732310464*^9, { 3.787826957418331*^9, 3.787826979699457*^9}, 3.787827052310667*^9, 3.7878270937362967`*^9, 3.787827134469471*^9},ExpressionUUID->"87d09495-aa2a-4c18-98e3-\ 5337eacc34f5"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134927579*^9},ExpressionUUID->"41b23063-10fa-4ce8-9739-\ 0d1a85d839a4"], Cell[BoxData["\<\"The extra solution is compared with kenkre's one\"\>"], \ "Print", CellChangeTimes->{ 3.785662631360647*^9, {3.785663182192411*^9, 3.785663297483659*^9}, { 3.785663337642178*^9, 3.785663347496359*^9}, {3.785663444764429*^9, 3.785663461800976*^9}, 3.7856643374424753`*^9, 3.785664380292493*^9, { 3.785664636830742*^9, 3.7856646580409613`*^9}, 3.785664699325981*^9, { 3.7856647371527452`*^9, 3.78566475537919*^9}, 3.785664831112216*^9, { 3.785665168720737*^9, 3.785665201957657*^9}, 3.7856652413838453`*^9, 3.7856653119157352`*^9, 3.785665541437107*^9, {3.785665755580125*^9, 3.785665781133388*^9}, {3.785751710001974*^9, 3.7857517342794857`*^9}, 3.785751783058159*^9, 3.785812877149736*^9, {3.7858129356008463`*^9, 3.7858129458239307`*^9}, {3.7858130199564657`*^9, 3.785813049012176*^9}, { 3.7858131236610737`*^9, 3.785813147523046*^9}, {3.785817476732822*^9, 3.785817494676968*^9}, {3.786072518957102*^9, 3.786072531301033*^9}, 3.7860725874016237`*^9, {3.78607292342723*^9, 3.7860729562529297`*^9}, { 3.786073851427853*^9, 3.786073880646158*^9}, {3.7860739702103662`*^9, 3.786073997375308*^9}, 3.786074134565639*^9, 3.786074213747389*^9, 3.7860745642098093`*^9, {3.7860748197447147`*^9, 3.786074842586112*^9}, 3.786074895042783*^9, 3.786075051989153*^9, {3.786075112383027*^9, 3.78607515890057*^9}, 3.786075298218725*^9, 3.786075583215518*^9, 3.786075783972581*^9, 3.786075839987269*^9, 3.7860759058160677`*^9, 3.786076368869779*^9, 3.7860767051975307`*^9, {3.786076755881206*^9, 3.78607678460275*^9}, 3.7860769056084833`*^9, 3.786076999612443*^9, 3.786077055042688*^9, 3.786077089629833*^9, 3.786084116634779*^9, 3.786234720227446*^9, 3.786585524953228*^9, 3.7865855875121317`*^9, 3.786585642323859*^9, 3.7865857099150333`*^9, 3.786595497712729*^9, 3.7865956169432993`*^9, 3.787826691600769*^9, 3.787826732310464*^9, { 3.787826957418331*^9, 3.787826979699457*^9}, 3.787827052310667*^9, 3.7878270937362967`*^9, 3.7878271349329*^9},ExpressionUUID->"1fe16a11-6be2-435a-aeeb-2cb04dc86561"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827134939465*^9},ExpressionUUID->"96002f7a-afdc-426d-b8c9-\ 1da6e608940d"], Cell[BoxData["\<\"Checking the equality graphically\"\>"], "Print", CellChangeTimes->{ 3.785662631360647*^9, {3.785663182192411*^9, 3.785663297483659*^9}, { 3.785663337642178*^9, 3.785663347496359*^9}, {3.785663444764429*^9, 3.785663461800976*^9}, 3.7856643374424753`*^9, 3.785664380292493*^9, { 3.785664636830742*^9, 3.7856646580409613`*^9}, 3.785664699325981*^9, { 3.7856647371527452`*^9, 3.78566475537919*^9}, 3.785664831112216*^9, { 3.785665168720737*^9, 3.785665201957657*^9}, 3.7856652413838453`*^9, 3.7856653119157352`*^9, 3.785665541437107*^9, {3.785665755580125*^9, 3.785665781133388*^9}, {3.785751710001974*^9, 3.7857517342794857`*^9}, 3.785751783058159*^9, 3.785812877149736*^9, {3.7858129356008463`*^9, 3.7858129458239307`*^9}, {3.7858130199564657`*^9, 3.785813049012176*^9}, { 3.7858131236610737`*^9, 3.785813147523046*^9}, {3.785817476732822*^9, 3.785817494676968*^9}, {3.786072518957102*^9, 3.786072531301033*^9}, 3.7860725874016237`*^9, {3.78607292342723*^9, 3.7860729562529297`*^9}, { 3.786073851427853*^9, 3.786073880646158*^9}, {3.7860739702103662`*^9, 3.786073997375308*^9}, 3.786074134565639*^9, 3.786074213747389*^9, 3.7860745642098093`*^9, {3.7860748197447147`*^9, 3.786074842586112*^9}, 3.786074895042783*^9, 3.786075051989153*^9, {3.786075112383027*^9, 3.78607515890057*^9}, 3.786075298218725*^9, 3.786075583215518*^9, 3.786075783972581*^9, 3.786075839987269*^9, 3.7860759058160677`*^9, 3.786076368869779*^9, 3.7860767051975307`*^9, {3.786076755881206*^9, 3.78607678460275*^9}, 3.7860769056084833`*^9, 3.786076999612443*^9, 3.786077055042688*^9, 3.786077089629833*^9, 3.786084116634779*^9, 3.786234720227446*^9, 3.786585524953228*^9, 3.7865855875121317`*^9, 3.786585642323859*^9, 3.7865857099150333`*^9, 3.786595497712729*^9, 3.7865956169432993`*^9, 3.787826691600769*^9, 3.787826732310464*^9, { 3.787826957418331*^9, 3.787826979699457*^9}, 3.787827052310667*^9, 3.7878270937362967`*^9, 3.7878271349453382`*^9},ExpressionUUID->"1ec2f90b-20e3-4505-8b54-\ 37730477c9b3"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlnc41Y8Xx2VlZ2dzcV2uvcP9fD5WRPaKFCmhlGSVPUODSISS9UUokVUq 95AVspKsUGSvbJJ+/f4553k/5zzPeb3PH+c5uPPXrC5SUlBQUP8L/8+hM6Zr f//qQUPN5vUaMo/KdDD35si+HuQrLdBksQmomLGOb9fu6kGns2MJ/RdhFREN 7z/X1vXgCqPZwJUb4iqNdx7QTUzrgVisW1zlrIIKndxXIfikBxdCDnwuURuq PPQ7dzLisR5EEndfE7j8VUoP+f5Hoa4Hfrjep9E/e1RoLhoq8Z7VBSfezYCr 7MmqHIPNV/KSdcBAK12woQxVs/qQeUGqXRsyNQixxS9+qAWvIFeSJjGgqN2S xeC++usbmZdfmqPQgHZ7zvhLHTN7YCtykEGCtR3PShf5jmOGWe/NTixqwudI 9fD7Dhc0ClsDB3wdNWBkpbjoIHtBwynmIVf3M3Vo5zcQHP50UzPsHFUZI4ca BHbZUlCxb2tSyAqT9W6pwILpPHdErJfW8N2MuNIvSvCGaYiwJDKrJcDgUbyh qwgHTU6XxZhtSU71nfdESYrQhK1+bGiwI+X6KHpbqCoC68iq9KkMe5LEyJ7a c4IiVFeeu/Hy3RmS/POEpgtMivCcflqTI/0CSdescrzviwKEjmzoRUv5kC49 OOCq8FAAr58CZ1U+J5KeG1zYHXNRgBHdO5YBOUmk5b3WUSZHBUj7y/czZiWZ 5HMhOd/DVAHuWXs4dH17SApREVcUUVIABsllcsmxJyShFynpQtvyoBA9pez5 tpiUz3XWOWhOHsa8Vh0Jb0tJkmESEgMj8tCS5FBL+PGCpGj+pjIB5GEl6aU6 g0MFSf/XWNf+bXmgb9Wu+HW2lmSfQj3vaS0P/YUhs5bXySRPVSLNiIA8XLG7 pCwg2kzyoXlTFHBEHu6vvHbMft1CCvpiaMxOKQ/XjvrkmVxtI93xv3jfaEYO ru6WCeA1O0mZXNH9EZ1ykKV9r4Jg1kMqqc7hfV0hB7NOtXNKX/pIdbb1Titp ctBZpCWhSP5Cat8cyZcIkYPGJONUFv4h0nDq7uxZFzlIdu+wWdkdJc2pHpVL NZADodMjVg21E6SdLyq+ndJyUHfUh1XRaJJEF2D1mopNDnjYdi0wdJrEavD9 dDaVHDRQGWVU/pgh8XB7/9HckoUN2z9XugrmSJI1Cbo+I7LQ55898StpiaQQ K/CTuUsWhrQX74+9XyEdsyuNKwZZqGcIHsmm/0XSltAkHq+Uhd08zYk/Rmuk E1ttnRMFsnDX+ndHWu46yaLl1LWQdFlIXcqU4mTfJNmnTbPx3JWFn4wbCUjW FsldjfqUubcsSF56lWPLuEfyok3ZnT8vC8hsolro2m9SwADuSaytLMTdufKg df8PKaywHBU9IQvy5jVep7kpkNgA7Pt7zX98jb08gbqHkESDrmgHWVmI9td2 lIuhRNK4z0psCsuC8ZXWQMpvVEhhTZCnDI0s3DmWdb9ymBYpi6VnaduWgeKK AU6laDqkxi69/MK8DCQxTjVwGzMg9RIE67+jMlD+VME/TpEJadmq3szsloGK B+rOPVosSFeLfrpaowz8NjOyqlRlRQbSPmv2VcnAmNLXNH8XNuSn2q9w+kwZ uFaOH3m0x4Es0kaIFtyTgaHnqBKnJxeyMcDSrB0uA6VZcpMfNrmR/cIs99Hr MnDCvdY79AkPQn1DhuGmqwxYklLm1V34ECbDt885TslA4I+PeGYDAYTzqLH5 SyMZEGbX4CeZCiHite4Pp+VkwG1fkU3NDYfIxG2pReFkwFNQQWvsP1FE5dSt IUFOGYiTUwqj2RNDSATOkDe0MnBymnaF5I5H9LfzhGx3pcFZnkJOcVkCMWlV bFhdkAY1H1v950mSiM0juHBvTBqS2pxyH1kQkQvqY88+fJAGTfqmdhZFOcTt mbqdQa00mMcuNGwfVUAu8yZTfSyRhnJ2WXs2SUXk6p358pNPpaGyRS5t2kgJ 8f6t59SVLA3CRS7Wj8OUEd8rWYyWt6TBM9595mKrChLwbev155vS4HGV3ioJ r4aEkIs5hpyloXU55EIaQQMJV6BqcLSWBtwbPPh2aSJRuWe8xgykgblk4lht Egm5xV7D76IpDad7czlw3igSH33k46SsNChwMS0YqGsjdzc8Atxw0jCb6U21 b6CDJF5sFJvjlIaHwYI0iIcu8tDQP2z5NxHkF0aUlyb1kUevu6SvrxAhtrs+ t1vbAMmUkhxa/0GEsQLvZokqQyQrMzI2YIAIQpN2Sc6YEZLDOKK8+5EIBhI+ HX8mjZH8EJXvwe+JwNshGJGVb4IULiUkHpQToZH3fcBGuBnyolt7jiqdCCwG p3o5T1oi5dqZabF3iRDGPedz6LIVUlWxrkcfToQkkcYMg8fWSK2o6a+7PkT4 TvPsKtOEDVKXUviUxY0IdIVN4Qkadsh7agqTZAcieMz5LBwtPoWAv8MuhykR KL4GxbMoOCAtp5hseFWIsFVXxKF15wzyse3ioScEIghuDcuUnHNCOjXIZUL8 RMiIq3cKJZ5Dukt4zuSyEOE1V/7mLRUXpI/fh16ckghIjrLGVfPzyJd7HTWF m1JwWlVbQyfkAjL4R9xVak4KojyySkXeuSLj41/r5XqkoPNkj+BAoDvyw0Lx SsUHKTh7X0vBYM8DmW64w6tSKwV2qmqKOw8uI3NKUy01JVKQF/wmxuv4FWQx H/HTeCoFWYRNHT0OL2SF8xHuXbIUDMex5EkdXEPWbq12obf+zb/o2LhNdR3Z cc+X0r8iBXwiO4RVzBf5Pbg/0OIsBX34+TTBQD/kwMguxshaCvxIBumLzf7I obcvFTsNpIBrZKQjhXADoZahHzfTlIKbcl71Z7JvIoezzt/rlZWCk68ymQrk ghAGlncaNjgp0GLYTBsfCEbYVr0eOtBJgWJixIrHzXCE06VNZ/S3JOjURQzc rotAePpwK04rkvCV/+rb6rZIhF8v+Mn3H5KQ4uXJWzEThQhV9Ru5DkiC4EHC RjRPDILDy21Pf5QERy6REwZnbiHiaXH/XXovCTf11PdEqmIR4k3Nv17/SUJD V0qjYMFtBL6ZESfTJGH1TvLmoutdxE7vgu2p25IQMcOTNqKbgCw+uxHRESwJ drj3DHPa95EolnulmJckcMo843hcnoTw+OUMVJ6ThK1T1CVUn5ORsqGqQ5LW kjD2t8tzki4FGfrv2ynWY5LgwLzGpFeVingxrEXFECUBthbVH8k8Qqi9act2 BCShueHBPnN9OpL5hW/oyhFJQFcbGMwvZyIKWvLU3w9JwtRTo2RB5SdIS46e vO0GAVj/0FGc5nuKnKG1P/1xmgDpiOr6IbYcJL43oryigwBffG5R5JvmIULq qSP4egLcjXtQ1xyfj1Q9KabNLCdAotUP6Br8DzGmrFdkySdAkcjjcX6sEJlw 7zsTlUqApnKeq7j3RUjAp+m4rTgCPMwye+1pU4wwKf9+dTmIAPJR3Ik5tKWI +oEYvbUzAcbK503nG8uQzgvHVFotCdDXZl1yxaMcOf/RxFlLnwAGfYLXqyMq kB05lzsv1QiQlGtpdK30FZL40L9aTIoA1h5Ez865SkR87/bEI34CKN11ymNH qpE656eMTCwEIJp8uf2ksAaZJra6bKxJwNJyfa9t4xskJGnknsdPCSh32C4s u/EWYd9aqR39KgH+f97jco3eI88cqSct2iXgnu2uDo0mGUEbeFia30kAX9L9 KI8CQPolZDU0XkpAj3ugGDO5Abl8T8f1Ra4EXFvccmZaaERST12uS42VAFO5 WrmfYc0I8X3YT/pACahbFN63mWtBQDSFNcxTAuDDVwszzzbELr5Ia+2sBCxc NFm2om1HFpfeurlZSIDJhWtL+287kCjrnuRhXQkY3sB0KRI/ITxvpt6ZqUoA nQ3XKZmwbkQ/hplDnU8C6D/VHfaY6EWG53BoKZMElApeGSEzfka8zdUuCf/F wx39YGY3436Ettr4YcovPOz6bY48zPqCPOZzJh+ewkNQR5FaJu1XRCHCdz54 AA+Zyklbg7GDSMvPOK7VNjwwVOtLtgsPI2vl5Z6DL/AQ7VPrIpz3DYnnbk4z ycGDdNqa7q/EcUQoZKgBHuBBSW5As+TTBFL1fWlR5RYeXpiOF+VPfUeMDSl5 im/gwdN3c9OXeRKZeM6tJ3gZDw7iASxaRlNIALu0V/IZPJiOniETM34iud+s mwJ18OBayoGWBs0iSlNKe/0qeODmQxOM1+eQpnk2BQVJPJhkY5+0ohaQ6e3u x9MseCgPmfjuNLuM3Dgo69WhxANqXpun7LKK0NEkHs7aFIeQbcfgY2d+IUR2 E1/rUXGYSdd1SglfR97ySBeXdYsDhZxO+cviDcREmGGc/oM4rPVTPT39cxPx kmkzhmJxKHQiGoen7iB/lYoi+LPE4byKzjsFpj0kSSO2JiBJHLT4Hy59T/+N vDLQF5W9IQ7pYd8dvHYPED1TMfv4y+KQJ1FreNiDAu23pkycPCsOmg7OFoIu h9Ctc7CboS8OMbkXO/rDqdA492z5TXVxeP4irFihiBrl8Qq7aCEtDh7rTPlt 4zSoVjCpl5ZdHOb62ydexdOhnZH8h8/TiMOYRcGGzG961Cl+j/R+RwyWalI9 VaIZ0YjU1898x8WA31k/bWWQBWV78misq08MntAcTyi2YUXz8gI4iS1iYHbR a9DKmA1teqkSMfFcDKhpY3elXThQ2xqOGq0cMSjcPK1GF8OJTr9bW0hLEQPu hMYjNbVcKF17+SnTIDHwsDAquGzLg2b03E94dlUMYnuNqmMbeFHiV68PVC5i MCiy/CRHlx81nZKRrzMUA2YaWe+CeCF0bJ7xIpeWGLgYC21wSIqg3r/mM73l xOA262buIg8OfXDwjJbAJQbjWhbsM+JiqBhNPCmKTgzsbD+fLdARR6sY3X2+ /RaFmkyyS7UXHh3gwY+l/BCFiRcTd+P/EFB3YWrOlS+ikN04YG/iIoXu4CeN jD+KQtoT5WLXISLKp5xbTVEuCouPtLuPMcqhpRoRC475//oXTeyut8qjJG1n XG2aKERQuX4K6VJAnUwFE66GioIZc/Kp8U4ldMV6v7HNWxTaW/em6H4ooxGn R3bEXEVh3o6V/ItWFc1zz3AdNhaFHU7P4dRodVTZ62amKioKjIR1U61vx9Am v1M9SYqiwNM6MORvrInORHKRDHlEQfl5WQOfK4IyhL5cSWEQBbr7nqt76hgq d9Mof2IfB9eT2PcMH2qjVr6TdrIrODh4N+Dc8VgHDfAKZQj6jgP6kz1evpW6 aOalo/Utn3FQp89zSHNUD613rbjO0YKDcR6FYcLR4yit48/B5yU4WCFRWS62 GqJEu/B7u09wQBmNUyBoG6FmlrzaBvdxMF11bdy62xj1MalcfxCJA8ktnbXP ASZoqqFp0bgvDjo0qv8KHjNDX+vOnJZxw8FCw/FrzgwW6CgSyRJoj4PWG2WB soctUXGVan92BAfHxDQ02+Wt0RPy5lLO8jjgLvfLCztrg14hzo2W4nCgvsiR G5pliybho5N2OHDgoNUUMr5qh1aJCOofp8XBBnU/8yd7e3SQv3Y7eUcEYm33 qyMGHNB9bsvSsXkRYN4OcjP0dET1mG+x3+wWgU+T1ykLxp1QNzrhlqYGEaAN pTgl5HIOvUP1JpCtSgSKtoTKN8+5oGUHVrJOhSIQsIMoqXmfR/t2FydK0kWA u/vQvfb7F9CtjdiH23dEYJzIoF4KrijfqsgJ/VAR0LLmPz5O5Yaen7Z5+c1F BGIeWS6WNnugsd+XzxNtRKCyzS4y3+AyWjIaz33DQATcnuu4lo15omt970JZ pUWggXAu+7bDNZS7y07xrOA/nqMjjCXZ3qjmx9Wp4iMiMJdDaciZex2lDDdK j50Vhp2UU6lrfb6osX/oX+FPwpBffG5Un8YfTfascHtTIQyDFc1Hho0CUBF7 XtXFIGFYUjvZSmQJRD3MTJ/cchYGKYsQLjQpCC3Xj6QS1hcGls/QflwqBMUU 53otmYXBcxn3pLQgHI0lCGos/BIC1oT+7v3mCLRL0DInZkAI7hAQgfutkagT wxuv2mwh4AhyTbywG40WUix9sYgRAm9VjqYQ6Vvo0pYIMu8hBDaI6nj5tVg0 ZDKeUVBJCELe5IdWK91Gm4be+dRwC8GhSKr1z5V3UKae1SHz34KQNPSUofTk PfTxO/tnUU2C8Ec3c3my6T7649W9IwLFghBVtMH3sD8JJRZDQHWCIJw+Y6q4 1Z+M1qVKHp+1E4ThitDir1QPUTrHmQuHSIJwpDIo2UcuFbUTKYziwwlCs8l/ mM7lNHStRAxMFgTg5bOCbl/eDFTb+8fYxR4BcOHw7NpJzEQTVXP/hFULQJG0 /dVN3ieoFAhpVYQLwHRQ798T/tlowK1vDu2uArAW9NFC7L8ctMn4yc1JIwFo I7Hl0TzORc994a3h4hSAHv2wRPqqfLQsc7Bfbpcf3DLxQb1f/0P3nR+tG47x wwzZttWYqRBNn+dUDHrGD7uLjbMSpc/Q6ZefzVMS+OGrlCL/o6MlqIr/A6/n PvzgkO+1059einb/PfJ8jMQPt3VHSGFjZahAc1f7No4flP2Cgt5alaOX7yTM sR7mhyJy75qMXgVKy8VI0OvlA/a0qfmfppWozfDH42dq+P69JyxBHy5VoXnZ 8a7+j/mAbCvj/yG1GkWJtHlFF/nA138iaQj3Gr230gRgzAcVjygMZqPfoMNV 0eND8nwg+P49PdNeHeqPHRJk2uMFeVMWPglCPdpIDVr4cV6Yb9GSvz9BRlnb w06jTbzgOLvqGDQE6HOb/UfeibxQzse5pNjfiO7xvq257csL+EtNP7RmPqAn xgO/5NnzwnBp4K1u+mZ06tI2+xdRXhhDv/TxRbaiSvI1isuHeUH1ymxK9dc2 NGLDz+LwEg+kKJ1IzdVpR/nD1xI0anmAR/AcS5f1J9RDv+K51RMe2GXQp3E7 6EJr6L07PCN5QB6n9jv8XA9q9XCJ7ulJHjiUoC/Sb9SH5jg8J9Qq8IDlGz2i ufVndFnI06CHiwdiy+cOKj370TvFs9GUE0chWCPtTEbnADroVZTH33wUHnTr 8sxwD6ISKm4NKiVHYSbr5qk63yG0oX7ywM3vKKBy94qELo2iLDF5ghEOR0GW r+HeAtUYesbIhZSBHoVMA0S3tnoc3fk8FthBdxS+aFy1elfxHTXIyEqfWuKG JmnbJN6KH+hDpzO1f/q4QfhRL927+klUYW5oQz6LG14PD9PT0k2jfquyUkdj uGF/Plo7UX4Gfb0defbgMjecLd/guu42i+rQEls6j3GD7XhBQTDNAhrLHLZX KcwNc7MSzvbXFtF2zj65x7TcEBx4t2NvYQm1Egt6dKmfC6LtQ/PeJ62iacSu Dou3XLB079J1da9f6IiiKMWxPC5o2663Jp5aQ1212z1ovblgm9nKYNx0A31m KJS1ZMcFnUwZlDNnNtFFM5/efoQLxOrCd9YDt1D/s3ya+YxcsLVpHUH3fQet c/XyurPGCYNn1BKzZPbQA8/GvOtDnGA9+6nN+vZvNDboMqN2ESd014UbVQYe oO2R9RghkRPMm499yjlMgR25ze7H4s/5j29KfmyUAkt/VDc6qssJEg+u1808 o8RGn7KwNUlxQkvJi5aRHCpMpPD88VLWfzpENSmtgBorrmIoCxzjgAwiZT3t IC22/Nbpx7lmDti72seJP0yHKX14xX3i+b/6EvOv0eP0WF3v6XDuIA74gZsp tdlkxA4Gyyr/nOMA29a+lk53Zkx3gnJ2ypADrPKNN8yXWLCO5RKLSi4OuG1+ yaKKjw1j3TqIydxnh1KBwVDGP2yYzR+rN5GT7DCKvHt9aIEdG2X8jbOoYAeR LalkpUVOTITD3E49nR1kfHOCqii4sYt8+XeEwtnB5LPPgKvYUWxZ8uT6ogk7 SAz37KBpvJiSQjahX5kdmL4yNm3P8GEB6uuOb/nYwSCznPrAWAD7e/xx0+1Z NmiRC9K9dUIY0zdd2fHuZgNTHharAB8RLN5GT9a+hg1OrLLXqZ/EYawXFlIl YtiAzah0KUlIDLO5jLUze7KBgMGoqCWfOJZxPeVgw5IN/nImPl4VxWOiEVru H4TZgAMrC/A7S8Dc4u4/LqFlAy9PWc7GJEmsJHGyO3mJFV5NPjVp/CyFKWfd PXbuLStUfloQ4r4ng938b/yKYR4rrCNyP3FUcti7UuVcudusUPcqqMIyQR7T rxuh/2PHCilfNYZjryliZSUFGq1arJBIdJQQ91DCeB5fu5Qswgrh2Q/94ryU sYFt2gcn+49AcBb926oiVaxkMPPXeNYRqBDlthUfVcPC3shZ+rkfgV9sUpcK cccwfLAda9YeCzwK7u55NamJ7TjOX1NsYgFloa9nDM+TsE5SWHdzAgtwa1hZ Um8hmN9BQeKyCAtYF2g8GSzXxk6MayxHzTMDGWHf4Hiqg/HDJ9OjVcwgbYNI eabrYo2Rm0zahszwn5iZ1ulafSzt/O0r/azM4BesGxf17Th2SU+w02OYCdrp 3r+a5TDEWGmO302+ygQMM+kyLNVG2NTPwXm8OhN4cN01eY87ib1uuWJcR8EE L9gT7e/mmWDO8Q/pJ1MYYdSo4BHFT3NM6ZLkpRtnGUEwf7E/tt8CozV+18ZI YPy3r6YHVB8ssTLGqTiVOgbY3Sq6I9FmjUUt3phpi2YA4xiWhhMTNpjtJ0bD s6YMwFcbpzF82A7bT1SmjZ2gh7ar6mt18fZYz7XWi3wl9KCrYZQ6MemA5Vs4 Npf50sNkw/k0MStHzJg9OuYrLT3gV1Qp9a44YULr3FOePXRQldc5oMR8Dlv7 XKJHkUkHzCMTK7yr57CM1D5KKVk62GxJT2EcPY9dCXA7/37rMFittviFTV/A tE/tNVjCYUh/ZtuZ/tcVm+URjQyyPgwbjEW6tC7u2Lvd6gkWwcNQqJnseLTU A7s/bKSdP00LPMuyYqaHL2NqT67/7QikBXYbnJv83hWMIZTG+ZweLZQ4NPdS pXhh385m1G8w0UKdebMcAeeNxQg3hArm0MBmRefP3I3rmD2F7beKSzRgeAQ/ 2vnLB5P5PksyUKaBhvbvU2P7vtjnPNZ9rxZq8EFbZ7uwAKww+j9HqiRqELCi jLYOvIEFuR57+8iBGvpP3MhhbrqJiUqcC4JFKjBXx41vJAVjW7QbQzY1VBAt ULEpwxWKfZyJ05gLpwJTxwebFWVhmHfxyx02DipYeezzWo4jElNg8Yr+d3Og jYnrrux6JPbLR4bF9wUlzHjFRWWPRWE+pGKxfkNKcPb6/VpzOAZTznUvo+ai hIq8eNvChVvYBo2EhuqPQyDh+DaLgTEO8+/OM0sLOQStN6mNcwJuY2oqLkMt RofAykP/1+mmO9hWurDrNvchOB3zuxEndg+7cf5JoH0FBcxrhsQ6HL2PHWs9 TX07jAJY1J/w2Z5Kwnakee+/OUkBn55VjFyQTcbW56WNVDv/ku2L7O4M7z3A /KqeOaW5/SU/pbbgcF9PwbZC8X7bFP+0VcFm/s5DbIdVOPuN6gF5i6/p8Sfp R1jg8OMqvp4/ZLdpTjNhx3RsL5+nPfjyH3JQgzrPYkYGtq/Gvolk75N9XnWi UkZPsFCK+wzZGvtkQY3AA5O3WdjBR0YRiv7f5AERm5fW2tnYobM0JxvpfpNx xA/UN/VysSiJqHNi+XvkfXePCyb4PIx69cA/Btkjw4TmVgF7PkYbvZNj4LNL FhP6cNOIvQCLM/GvKWLaJR/t0jb9ii/E6LjXOuiKdsg/RJcXfAyLMIbiha32 kW0yr7szc11tMXbXx4NJJmCbbPF6O2f1cCnGRPqJS2DdJgv2kHlNLj3HjnSP mZgf3yJXgKD77/MvsaR0x/Pl45vktHViQnpYOcZ+fvAGW9Am+b8tJgtJuwqM c7M373PZBlm+u+xnl0Qlllpv9lrFaIPM9+d7GiOuCuOO7/iUOrlORvTKi+gl qzEe/uadUzzrZMHQDykLTrVYxpQOy5tXa2Ru0ZJR1aTXGF9ZvRif6Ro5f+6h 7pHeN5igzmuz0chfZHJTJktBzDvsKYOqKyLwi7y/RpvNvfseE+6vCHxas0pu bJiuioogY3pddkYNAyvkNI7qk3xuDZiBi4VfNOMKeZG+vt3QqBE7sWGUfVx7 mfyZTtCN7tgHzIQP2fxYvEie9djiLNRsxsxeqIncG1sgh0eOm7eZt2CW2gon zTgWyP6/uT/Q+bZidm5iuX0hc+TwrPTyT9MfsTvXfeMfVM+Su3xfhbIpdWDv Qz5cs1qeIXf6ux0eS+jExFMuoH3O02RGvKmbR1A3Zv+0Ev8g/SdZF7zNA2J7 sLvFVMxWvVNkTj/R2g8Ovdg/5yO9upPkYnS9N07kMybRsd6YHPyD/GFQOp6d qx9zGNArsaz6TjazM1Xv5fqCweLkzV78BHmi+2yMC/oVm11xB9H3Y+Tvw7m+ Ue6DmDkt3f08uW9kz6LajwHZQ5iQ8gmZPLZhcsNxXr1BdBS7ZTS7h4seJB9w R38YLfqGLTrHf8zdGCAf8PxwnBIdx+rutbnlfv1M7nLjZ7OQ+o7h8j1UcUZ9 5NSqpxm51D+w+Dd01Ll1PWTOHTxhav4H9qIzWVdHq4Ms6JlM5TM8hQXv9o5r C7WRsxYzluamfmJGEuyh2oeayZ/8hD4+35/GOv6KXwtPfE8Ooz2W1Gg3h3k4 FBSH2dSSY9bxz6My5zHqSvxUKF8FOfJuyrbH8gKmzWuC7EEB2XB/PF3PegmL b9nrsRfOJItxXfIetlvG/geVI3fy "]], LineBox[CompressedData[" 1:eJwVl3c01/8Xx83I3nuPj70/hD7v9+vqY1VIRkYiQgoRWYmobFEJKatIVsmI qJBQIdmVbBIZISHz9/39c+95nud5nHuf/9xzrriLj4UbFQUFBed/5f89tnWz y1b0PpLkPuc7eGIRWWp8fR2tV4WAHP4VYA5Vf7O5FhNah9T21j/lrs4i5sY5 yWb7RnT9c9eJppcz6KK752zz3VYURNL7aeU9jR7pKJi0lH9EAwT00NnhB+pj mnvW0tmBto1DQt1tp1CmnabumRvdiCnTCs1emkCa5FTPSY5eNF9yfETv7jjq VPybeeZhH2L4HXnCqH4MUVC82DtT/wWp7FO/XHZ6BGXMcqlNmXxD8Zvl4ROL Q0i995KL6/dB9E/C9nRh0nfkWkBscd0YRhqEGsbcva9oJ/nu2lT0KKovW3bW //wFtZM2Uyrix1C+oO8bp6cDyJVg36LOP4H0JDK09e/0IVVBhhG/sQnk/+az Smt6L9phrVureDKJMqy4uVWLelDaP35ZDa0fqOMjjc3VhS7ksvgR/Hd+IHch dg8b0S6kPBliV9k8jVapz9ttvOhE7zu+xWtYziC1yFifou/tyCN48P1JhVnU /c8p76hXG6KX+k5zg/oXMvh4UHeA9SM6EjoU3lc5hzq6yOc/JbSiX4ThV9sJ 82hj/utHb5cWlNAzvCHluoAsFn90ORg3ow65Ub8Art+oh7NpgAE1Ia/+0bKs +d/oncEVbWuztygafNdcXJaQiHL+DvX5RiQz76uRoLuMdlmlQrhi36ANveXj OQXLyHrlC7sH1Wv0If2ibyXHCnLKk2PuuFWHPMh+T7//WkGfOfcelf+oQdoZ K+2/T/xByQ0ib48UVyP6336/qN/9QZF40Lz41Reo6L6/jOKDVYRGdpOxE5Xo 8tIfA6D7ix557CaunahARwwvuVr5/0Uzd1Oi+13L0a/lSw+vHF1DJTwXJyqO lKE6o78Nt2rWUPmhTI8rT5+i+KyAkXzJdRQyuuKeLF2KFA4HCn7aWkfOTRpH 8eNFaDt7TWf87Aa6WZvf3EtViDpWA23/9m6gVmktz/yWAuSVG5QqXPoP1WmX 5weG5iPS2nqlGt8mor188UafVx5iMgnuMbixib642exJeT1CT9eDWS84bKGA b0/m3t/OReGm/5SufdhCs21Uqje9c5BZXohJGnEbldwObxHpzEKLZpfj6pl2 kFTwivfZzvuoPn/zSU/wDspp2jqz4ZmBkjYvt05P7aAkM+a+z4L3kEpBKDXr m12k0jXfdP9ZKqLY3hKXlNtD8eE/F7qS76Ku41fgQOoeqjkm97T7agp6GV5f X6ZFAaQKrmbVuNsot2j3U60XBVRTZmcRHt5CsX348LtHFPDKAATl45ORrXzD 1hcWShDKjkz46pCIwHqPYUKfEgY/el1x+RGPZCOQwPxlSjgTnV5nEhmH/vU3 aFP8pATZ5rpv5r+j0QQFhTGDMBW8jyWY32mIQm0KYMNlSQUdKiwLkTk30P3I xgDZBipQt/Ev0k24hq6VUkSp/6WCKflnblGpkej8F7hLUqCGfOUw34jSCKSr 9LbCPJ0avrW4eExthSHNvoG0+o/U8HAupNw09gpSDZ2/rLhNDY3WjfuKCKGI 8JGXTO9MAxl/JHLbUoORuK+STGAKDcSVWl746xqEhHjJjFMtNKB5JdFh8FAg 4nS70NsgTwtjH47K08heQixMN2qUTtFCwEHvw+tK/oihMuPBg2RasPp8QpMC /BAFZcuZoFVasG/vf0Ub7Yu2ngwa/SDsg9DcnxqDF33QmtmSgqXdPtgq1MbD 57zRfKbgqnL9PvBhbySE83iin2S1r5lL+6AwTXeWo/Ucmvhl+JpBkg6ih+IL FqI80DdtvxvTMXTAfutdmL2GO+objfGwqqODx4UjLEGibqgrOsukaZ4OOBSJ uQt8rqi17wNX9nF64BOsynVQc0FvQ0c2GG/Qg9uL3HCJY87otcTqUEg1PYQa 7FweCjqNKnxFH1sL7ofOFmYtha5T6CmvZtw70/3wrjjVVP2UAyqsP+KtFrEf PHKI9Orb9iiHKVCT+cd+KIwh/yv1skX3KxP4Q3kZwFdjGxJINijN/uHOzGEG GIj0M5ERPIESCztamp8xALNzyZf3lFYo5thEkfo4A9C0p4eH0Fuia2vrN3M5 GeG7U/+ZQ4IWKFhf8sSVYEZwVK7yanMxR/5z2rq/ihnhvqcYy0/FY+jCHTMR 22FGSLesxlkKTZHbWMi0xiEmiN96sMI2cASdjklue3iJCYZPZmpJxRxGDsqP n7E+YQJxY6/By8bGyOJKV+AcIzNc5kOz/RsGyFRy2t4OZwa3vmPUrtP6yLht C3/vywwsGxtLRuNkhPPJ0OX1M8MZ+6SN69t6SKeBNMdGzwJ3i47tFQrqIaK7 xedwXRb4vLW+8toAkEJVWLp9DgvYFwd5alzEEOFkSuiHbhb4vVALnyhISIKq yEmLhhXS1jgkrB7pIj7zPhmOc/9pYf+hWl5txLk+yxjxgBU2ZYvCtma1EEv2 3u+FT6xwV1jg5WKbJqIK5B5y5WcDuFkxxVetgexPF/e8JLJBMVv5Tl+xOqo4 gj4ymbNBtvfv5CdP1ZCL6Lnqqmg20KkoNTv8QgXV7d8tpX/EBrdYDp+Z3KeM OFbv5Dm8YYN3hbSh6j6KqOnD61s0q2xwzEmaWfeqHBKoPB5jy8oOlk4R3+ql ZJFf1nRYqTw7fKA8V5o8REASfmyeVs7skLKZpXT4qhS67PDYufAKO5Syxlp7 ekiiHkNd2+10dugO3ydz9LQEui7oapDfyQ6YsO0PjRAxNET77+DGLDtk/a2s zVQTRcSlm+omtBygLDNKdztWGE0114iuHuQAz5M+4++DBRCpzITH2IYDSr9d yHjFyo/uZowzZfpxwG9osvxcy4v0LzBukos4oAWpsDuQuVGmbe5SejMH8KGL IxtiXGj1kObPuVEOmNP7MrbFzInyeZ36Ung4YUwuNHyPgx1tU662/VTjBBcf LusIOTZkNR/79qApJwjHJVz6dI8F0byteDZ5nRN+PpYiZZ1jRA4lRo8P5HAC XYPlR82V/agqdehBQh0n8Nwxed+URI9cz++L01jmBFHycf5be7TotdWDqzFM XNDWmKM10k2DuJBq4HcZLnC71D+pW0WNWjjtz1x35AInyQ9GLY8pkcjuot2X EC74dFH9hXMlBQqcuW6ukMoFesoRM90P9nDCm6dYbzsXuHvYtdObbePhTw4R ZX5yQV/Swnjxh0184PYX+VAqbtAX4RPisv2HR7tT8knqcENI5Q+Piedr+Ih5 GkuQFTcEGyiJoeC/uNZBBdp2H274WBBab26+ik+zWq/4FXBDnlyGHofKCo5v zs60vuWGRYtPh0WJy3jaVPiowDA30Bn6Gtw3XMINaws7mjh54OKpayR2iQU8 Ow97x6PCA4ciktqsk+fwtZs9teeP8EApDM2pcPzCC1y2CzgieYAvNXBI0Oon vmtyO8s9kwf6SkiIlX0aP3GAcLeuhgd0q0Pf2Y1O4XRM5pEuizzwhT5a3ax0 AreVsW/U2s8LtCsXxoefjuPFh1z3GKR4Ia8lTnP49RhuFhIcVmnHC9aZwgUt FCN47t1rr2Mu8cLfuAjQPjuEr5Qlbp1M5oUSunwzq8lBPG06N4SmhRdMdy6Y M/J9xWcoS15+HeUFby2Kl4mdA7iu8Iv10k1eWFRRWrmW1o+PWH4MsFblg+dB YpiyTS+u6tNbJXeUD9Sas2PVzHrwa/HDf3bc+IDhj+mIvmU3Tni7fLHgAR/s ZDtcd9z/GQ8e2np+uZoPro7XN5k7fcLb1mmXzLr5YOy3h8Nsezt+QVngwvo+ fmC77et4YuoD3nhY6mm7OD8kxX61X7v5HudwU57PIfFDxLUlnZ7DrXj1g0Pn jf34QVyIRdN39R1OX2NSJHSTH/KC/h7yHG/C7XtOzCw9+U9fPPKeY/gtvkvv 6Z4xzA8TtOKSTzcbcHOpgMfeG/zgyNEpQ69Xjz9CV6f0OAXgtWbL3G72a9wg MMXll7EAEF9TqH7OrMXTbmc9rD8jABNfV0vtdF/iM6VPxu6EC0ASKlcY+1WN J06+cjxYJQC2RNb06YgqfGS3JYv1swBQpVmHxbtW4qoCXUOTswLgg0uu+dpU 4H3mU/aJooIgkcrm0X32OU7wWsw4rSsITGcptO7RleHBMRtfidaCQCUS4clp +xQXqmeyGY4XhBjCSLsfVoxf+MaTVv5YEILrD+0tfC7EG1fF+qMaBeG33W99 wcAnuKuCpqXymiA8an9/1e1fPl5tiO5QsQvBA50q9jt9eTi9y+HuAQUhYEuQ v5zU8AgvvXfq2FVnIbgSwiKf+zYX3608m2R5RQjUnjv4mTzLwc0/X/wkky4E jg3sVLUrWfgqbfTRrg4haE+wlbJuuo8bit+Kz/8pBNriOr1URzPwe6T7H4Op hCF8UdWQcSYdJ/k/MxLXFoabXWwL3+1T8aSkl9F/LYShk/GmWa7yXXysqKnl o7cwbN+yMarmSMGvjw2Q/fKE4ZSuZr4T/W18pPaod/BrYfh5luonq+wtXDel MS28XxiYAjienChIwpcMimfj6URAjTo26tWdBNxEVJTztpgIKDy78ew9IR5/ spFCStcRgYt5j/e5fYrFHUvCkvM8ReAY4ZtSjlk0Xndj5WXRDREI+vPn5FWZ KJzb8exEWZYIILKoWSDrDbyD7bjm688iwFLYcDF//zVc9leLY9OMCPwrPp95 USASv/5ON/YDpSgEh9bFRxyIwHUDpb73aYiC8q2PESMyYXjasQya7yai0POq rsk8PxRflmVRHncThWGRXLdi4mW88Pt6xEK6KAieLBLjvhmE07zwKv7zXBSq lPrbDS0Dcaek8d5/H0WBRWypNkcuAOfRayfs2xYF/X2/M2Oo/XFtZjHZaAYx 8B/oqbhF64dPhwyS9vOKQZAZk0EV10X8kOUxd1ZVMSh8h50yLbuALzXsD71D EoPfXaUHL3J549mKzcnch8Wg5L/3tC/JE/9Hq1Mr6CIGd86YfmFt8MAL/P58 yr4gBoM8phem/M7iVqNPJ8RDxUD1Vrzj8gF3/PlLCSbZu2KQWxBRfmDlDO4o PSxWkisGtWLxw50/XHDGO+mayk/FQHMf84DtT2fc3ZPJidgqBs/MZa/5sp/G ub62+tf0/LefxeIl64uOeJN+ZKzuqBioi71+7TTggAuLrJXDhhiMcAq9zBq1 w9vin7e+oxGHjav9ccWRtnjw+vnvhuziwMcnt7yjaYP3dY3SmMqLQ+sLh7v1 3Vb4New+f5eWOExJbbJ511jiqsVWypZkcaAfT/GeLLHAE65/tLFzEAf2LVpf iXpzXHvputeQhzj0RPYsUr44hk874JFOAeKgp81/OJ/WDD+kVVnsliQO+tbn sitnj+BLj7wbZu6Lw51S62/9lw/j2ayyfZ5PxKFPXJZsKGqM/5vJ3LnYKA5C l2YKBLIN8AJrG46/HeJAd6w/Mi9QH7dqYpcJ/iYOJ29K7zY5kvHnD6LNw1fE IVRMgnzLXg9v54z+yUohAR5uE88xO8CnE6LCHzJLwAV2J/mjn3Bc6MqN0mZZ CaB4TyNcY3UQP7B6nXxCSwKeBBie0a/XwS28rg/+JP/HD9vjBKSNxzpco2d0 kgDjw6Y3yyI18by+yJxMLwk4PtfhMAtEvN4kUkv5sgR0HBD3us+hga+SIlyP p0pAd5ryZ2xWFWd9cXVr4pEE7Pvxsjzqqwour3T1zqXnEhD5budLy5YSflo4 vDG9XQICGTCuEynyeGhqmI3cNwnIf/OoI51GDk9jDlusm5aA6xRlekuJMnh5 1JUok1UJSNyXbsasQMA7dkKFRiglIWTk+1zZsBT+MyC00odVEoQt5oRL8iRx qsXLRyiFJaF83+DKRKgErj0SEiylLQlX286RZxzFcMsTIazVBpJAW+d+KfWz CH6hM7jAyPI/fjfIQGpXCI8zDMa+nZaEAye6pvqMBPH8+qC+8xckARPZs+Ut 4ccbtII8t0Ml4cViyTk/Ah8++CyQKilOEuKrZGyvveTB2XICVMvzJUGvepA2 TZALV+ANeH+oQhJcnQeENX5x4IbJlxz7GiRhv9JM6Ys2dtyZ7tJft0+S0BJM GcH1mg2/ctU/cX1QEmKqaYRKLrPi6et+knEzkuAYNqkt8IAZr/DxqxNYk4So 7B9jtV8Y8RmnizMYuxQYBBVO8uTQ49Rffa9+FpGCePOY7T4CHS5i7svjrCgF 8/wOQU3NtLjOB5+nKzpS4IzFpd4NosGtwEf/hpEUqFyNy+bEqXGflxe+c1tL QVMstPPzUuHxqhf8nrhIAf9KD9yhpMQbxbxz28KkIPj6g91i5l3s+z2vAw4J UsD+tj4lCm1ja2xenQv3pCAn/61ne+Imxh7n6Xa1QApEjruRxv9sYIqUntts VVKQMCwdS/Zfx4xCzqc8evsf37v/UNT+Ncxl+Zw88bMUJHLzR5m9WMXujXvY 2vySAm762MLLxitYpZ3H75l1KZDn71tPVFrGOrvPRl+mlYYRxaXU65JL2Ozh s8JMnNLwvfg5X4PFIkbT5F6VJSYNLemBIc5X5jFRXfejKsrSIEC1wyTf9AvT rXCbaDwoDUYPLJcvSMxiPo9c2aZOSAN/VPkmKE5jSSEZmUlnpOFJLtEaZqew Z+adsjq+0iDvQlnp/nISW9w9oJcUJw1mIf/YVeLGMZYBr0/aadIQXXDl91rs GKb09KHd5CNpcMvm4zutPIp5nWT0034tDZd6lU/crfmOJarD7sQHaXj7Ee93 Fh/ESvcHxN/slwZmosQZwqOv2FzNyKOJxf/mefxZjJrsxxiSOVVubkmDscKR jpaHfZi8u/GrA/QECH3Yk6jv14ud56roTRQngLM7N8W6QTcWPzftdECZAGGr b9WPGHVhxU2C8+O6BPAXeB+u8awTm/WNojlgRYCiVrxiCWvH6I3rbo2fJsB2 b24te8lHTFb0t1CiNwEmBwO+Kat8wDw+2WqORxNgquzPjF5QCxabf/NtQgoB FgQTVL5oN2OFoU2mWrkEiBgx1H/M9A77KafonlBLAEQ9rzw03Yjto3Re0Wwl gIJUrVHTQANG+JoaPtZDACppR8mS7TeYe/RemuY8Afb0TgY9vleHRZ8iSo5t EMCukleimrEWKyCeK4unlQGtF4nZD1NrsB8TPe9HRWQgn+IPYXamCqOpo7OK V5ABjUTbqYmySkzqNmmMqC0DKgj1LsVWYK6oYCPuuAyUVW2c1PZ+jt3g+X6D 6CgDtKpHCgUXnmH5C6zso+dl4MvnDPyk0FOsuVk/Ky5IBsb6beYT3UuwyQch csQbMnCoyKZVuq0Io/J/9mLklgysewdolBsUYhJHJvXismTANbv76ecvBZjL hon9SLUMvFs/y1Wsm49d+xw5HftOBlh/2rLt25+HPSqo9tPokoH56ytKGrMP saawud3hIRm4/5p3TH4wFxu3EkuInZWBmwFhDHMvcjAKRWtejTUZCDjpJmHZ n4WJUcfnDVPJwiTXmah+tkzsdPmfV+pCshATpKjyrv8eFhErazwsKwu3CdIn NB3SsVynU30xmrLgcthwuWMjFWvUunNa/ZAsCBw0fqBXfBcbZX4/P2QmCxs7 7tWnfFKw3amt4JiTssDJSH9qx/AOJvJalVbdQxZu+IQ5M6vexhzP3xeOiZQF 9a9SN/dck7Ctb/s7l2/KwtL5KdnlzETs3uGQcIf7skCrJylw5Hc8RqydUX5f IAvHlP0XYuzjsG5Z21G1SlmQkkvYw4ZjsAv33idnNsjCszRFQ67AaIyB/gDQ dcjCGVFJ+VbJKEz/J/fDoSlZ2J5s06atvYaNnYg6brQsC793r22dzo7EwlpX KSt2ZEHikFKRxt0ITEDLtUKIQQ7G+6xvcWtcxaof97rE8MgBQW3WmPpkGGbJ TeZckZCDuJUZzsjsUGzpRsU7BxU5OEnI4dzYCsHkXG9LqRvLQT+p5M3MbiDW 2kvRn2klB0rWzfZ5DwMwF7JvFJ2zHKzXCD4bsL2E7VWMavp5y4HCwQP2lpL+ WKbEsemhEDnQ+6Blu7V3EdO+U59mFC0HMVveO40Lvlg/pbJRxR05eNw0JGzy xQdjGWcqjCmRg/wdWu6Dsl5YifkV25UaOXixNCSxEnIeM26coz/VLAeX7dID 9//wwKZUTta+75ID/hDekn0eZ7HInLZz6sNyUBUeIRJF6Y6JsOoKZM3KQeit +RfE565YXXhRG92aHHwQ+17x1e8MtnoqVmGYRR78JlgJbirO2K1P69+NBOWh eJTJUkHmNKaEnU2skJEH86HRfvyUI9ZWOkASJspD7FEvi9I4B8xdyHAhBv7z o890TnbbY9SJL7JWTOSh/VhzEZloh+VuSZmdspOH3TWmy4fKbLBvg9Rl6n7y YCG2KuIxa4UFHvF3ygqXhw8WZO7Zx5YYR90EK32CPPj8Mx2pC7DAyuQsGv3S 5WF6J7m31uY4ZpLx1nc4Tx4ivaWP9h4xx2bo1cSNn8sDGyHy4P5MMywqOLe7 4rU86FbkBlQ1mmD1NlfVY/vl4f75Q5V9pw5jJ98vTqyMywPH72eq1L1G2IaW Y8qpxf/yxIxo/nIyxO4WfCJ/2JQHQy0LW3FqA0yNB1tVp1OA1enHptavyFhn VGl+FqcCNNVmVhjGHMLO/xW0phdTgJwZpqkPbnpYft/mi2FtBZjf8ew3LsUx 0D/vbmygAORj4ZHL7SRsuPIbT+VxBXC+vkWfT38Quyx5+L2wowK4PFO9kH9a B+NJeRkUe14BZLmopsx7DmCVVLKyfwIVYFbHz0jMQQsz90v/euq6AjAxPijL 3SZicccDdTQyFUD9Yfue7RV17E6HvFdpkQJUz0aeEtdTwzKNRrOlaxTAVr46 qFhAFStoSunOblaAN5utrpqsythzzJiGr0cButfyTU8xK2J1L7e1bo8qQIdh VYCPkjzWrFF+jmFBAWgf+2VpestiX+UEPm/TKUKbmyNVLVkam8jvpAzkVoSZ B2PUNQOS2LzodeJvCUVQCBewmY6UwNbuHzjroaoIeaQbNuVkcYyCZz5jHFOE 28tJOZkCYhjD7dwO+6OKcD27oDqeQQTjYrLe67VVBDOlYq8GGiFMlqretdX/ Pz9hzcfYkQ9TD/NLR5GK4PM8slunlgcjbRDaXiYpglWccAZZlRsz9P++rZap CEdtukMT3nJi5ovJKiVFiiDfxsh9wpMDsz+n7yJVowiVUQWzNIrsmOvUxt2s ZkWo00IJXFRsWNCg82byqCLIjnM3x3czYhHWPEr7FxThOdtYcdnCfiy+q83p 2qbif/eaScdanh67e/TqnS06JTBsEN+ziNqHZbdqtFziVoKuTNb2/G0arFBv Zn1BQglqhFmOeSRRYxWvM+XPqirB55rlxUFtKqy1gvaW3VElSP/i8qT40R6p S6muqcdWCb7X6699CN4hDRZe+HvUXQl2dT2ZHS5tkaYkJWVb/JVAl5bh78Sd f6TF7C/2eKQSjMSsMNL1rJM2+BNv1iQpwajvKf0MlTUSVSo0qmYqwat4g6Tk olUST0KRtGSNEphuniyXn1smie1ztM1sVoJLv2udncqWSPKRHAncPUqwsC/M X4bjN4m43fomaVQJfsu/LihemCfhQaFLdAtKkHfWbuDu4i+ShfeU9SadMoBN sXrliZ8ktzOmr+YllIEgdnjwsPYUKdiuWmwUUwYFbcbVkOvjpMRjotHdtsrw IKj03KTVCCnXIHbunb8y3JM9k2RxaJBUdXDZvDpJGdjaqe3M6wZIH9TsqwuL lIHaQpcjv7iXNCTzTvBBszIkUaR+96fuJi0JK0beHFWGDzXmugven0g0XKnT VzeVQcffqMnJ7yMJv0KK/qCoAntV1rdZzrwjhUxNSrM7qUDtG0XlL9ffkGLr P5nmearA3eOBN5/eekVKu1cToBmsAlUTfiyS9bWkKpOEFrvbKrDoZ0+d41dN WqxSd3v0TgUyODkffGUpJ+0kCd0kdqlAyFSSlca3MhLTuX0vWodUYEng5bnx uqckOeFBmrm/KtDenqa0PV1EqmiCHn4uVdjc1SiTL8gjzcvPXHQxVAVPiZEt laQ00irvcFSJiSq00j1uqtufStqi6clYtVAFrQidJvGcFBLD6Ku30U6qEH5U 6EcX222STEoye0mwKvDzq48f/BRHctnSKv9TrAp+yTRuSefCSF/ao5ZusKoB HacBze6MC+kunmVgzaMGvpNr9D4RziSL8qr70sJq4OHOKRyofprUmTap3yqv BudYrFiPvTlJanXWy6AzVINu3tN9/JZWpOr1bb34K2oQRGF7WvStASlN8lJK 8qwaTBsyPVvKlCVZh7po3X+nDu3nMmzG/y4c9GKck+i0JwL/jt+vMIbLB0VL WtP2/dKEjjEVueI26oOhL8mWrA8OgFjF05bRf2G6vgVe1VoqOiBw+10ZvdCm DhPVARflH7qQ/sua/DPaTcfA2ypVPoUENWkG2mTo1OarFfYxkMJBmkg4cfez jvYdv9jbql8QZP/g16W4k3LAIvqYUlY1QJqv50O2+BUt+ZM3rPPD9IDeterR yrNjWgPT+x+lWB8CVanRRtP8NM1Olx96HKJkmGXWXGFy+UEcp3mykSpBhnt2 KdZaRRPE1QKPMn4CGZYDNPaajceI/HNzQuJKZKhQf5h3u/0r0dV/ZV3lIBkG IsTyK2s6iJvX956a2pCBOq7fQl2tkkh4zC8Ql0yGI4RAubPTEUQdo+9dTClk GDXNyDH3DiOazGbG3EojA6ToWitmhxAvKon9Tc8iQ8fE+QHhc/7E1y8IXQUl ZDg+YDp/Vd+daNGqEd38ngzX3U8qkzRMiW4ef0nG7WS4YhcwaOV6mBjMUPOn vZMMxljlPQKXITHLTNe5t58MDY/WuM49B+LMAJAmJskQzpeh9INZg7gZTPXH 7ScZ0LT7inqyKpFZsLlo9hcZNkVv5VS/VySqOxnxLi+TQeza0Y/xddJEA8r9 nZf+kmFNKGzo7ZgE0Tav7cbGBhmkjd74nnUXI543SDx4ZZsM0f36HTzhQsSw n6Yre3tkeFv992J1Ax/xf2kg63I= "]]}, Annotation[#, "Charting`Private`Tag$16499#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxF1mk0lV/UAHBz5syZubiGa56n+zyPEJEpsxQpGVKSqcxCaCASITKFUCJT Kd1tFiKShFBknjKT9Pau9a73fz7ss35rn7PXPufDWQd37orlBQoyMjKqf+F/ 57AZ07W/f/WA7P/GdAjX5sj+fzZjGd+u2/3Pwpo+f66s/+em2/dpJ6b/M63c F0H48J8f+J89EfnoP5eR+z0hU//P1BcMlXjO6P6/2YdaL+UnH4UrkbmT0qEa apbNmeelOnUgwBNnxpnzQy1kBbmUNInB2zRZdQ24p/7qWubFF+Yo6H+xIpsM kNIwu28jfJBBhAeXjR64yHdpGGY3mB1f1IIUN/Lwew7nNYvagwb9HDWhNuFh 8UHOgqZTzAPO3qfqcEr9mMDwh+ta4WcpyxnY1cCkx4aMkm1bi0xWiKR3UwXG Tea5ImO9tYfvZMSVfVaCZcavEkvCs9r89B4lG7qKcLjV6aIokw3R6V33XRGi IlRhq+8bG22Jeb6KPhaqiiA8siptl2FPFB/ZU3smoQh9VWevvXh7mij/LKHl PKMivKKb1mJPP0/UNasa7/+sABdHNvSipXyJnvcPOCs9FMDtJ/8ZlU+JxGcG 53fHXBRgQvf2ycDcJOLyXvsoo6MC5Pzl/Rmzkkz0PZ9c4GGqAElWHg493x4Q Q1XEFIWVFIBccplUqpFFFHyeki64LQ8K0VPKXm9KiAWcZ5yD5+Thp/eqo8Sb MqJkuLj44Ig8QJJDncSP50RF89dVCSAP80kv1OkdKon6v8Z69m/JA127TuWv M3VE+xSqeS8reWgvCp09eZVE9FIlUI/wy4O/racyv0gr0Zf6dXHgYXm4v/LK MedVGzH4s6ExG4U8uB/xzTe53EG8HXDhntGMHFzcLefHa3UTMzmjByK75eCR zt1KCbOPxNKaXJ5XlXLw06luTulzP7He5p3TSpoc9BRriyuSPhM7N0cKxEPl oD7JOJWZ7ytxOHV39oyLHNxx77Je2R0lzqkekUs1kAOBUyOWjXUTxJ3PKn7d 0nLw9ogvi6LRJJE20PIVJasccLPuWmDoNJHF4PupHEo5aKA0yqj6MUPk5vL5 o7UlC+s2fy71FM4RJWsTdH1HZKEvIGfiV9ISUSGW/ydTjywM6SzeG2tYIWrY lsWVgCw00oeM5ND9IuqIaxGOVcnCVr7WxB+jNeLxrY7uiUJZiLP63ZWWt060 aLO7EpouC0lLmVIcbJtE+7RpVu47sjDDsJGAZG8R3dWo7Mx9ZEHS82WuDcMe 0ZsmZXf+nCwQZxPVwtZ+EwMHcVmxNrJw+/al++37f4jhRRWoyHFZkDWv9T7F RYbEBmLfG7RkYaSpjztIlxxJNOiJdpCVhZgAHUe5GAokjeuM+KaQLBy/1B5E 8Y0SKaoN9pKhloVbGtn3qoZpkPJYOuaObRl4VjnIoRRNi9Taplecn5eBFIap Ri5jeuSduITV31EZqH6sEBCnyIi0bdVsZvbKwPP76s4ftZmRnjb9dLUmGdg1 M7KsUmVBBtM+afVXy8CE0pe0ABdW5Kfarwi6TBm4VIEfebjHjizSRIoU3pWB z89QJQ4vTmRjkLlVJ+JfvWy5yeZNLmS/KNt99KoMGLnX+YRlcSNU12Tor7vK gAUxZV7dhRdhNHzzjN1OBsJ+vMczGfAjHEeMzV8YyQCOTZOPaCqIiNW5P5iW k4EL+4qsam44RCZuSy0KJwOeAgraY09EEBW7m18FOGTgppxSOPWeKEKU4Ah9 TSMDZtM0K0R3PKK/nS9osysNzvJkcorL4ohJu2Lj6oI0qPja6D9LkkSsH8L5 u2PSkNzhlPfQgoCcVx972twsDZp0LZ3MinKI21N1W4M6aTCLXWjcPqKAXORJ pnxfKg2VbLL2rJKKyOXb8xUnHktDdZtc2rSREuLzW8+pJ1kaRIpdrB6FKyN+ l7IZTt6Uhsvx7jMX2lWQwG9brz5dlwb3y3SWSXg1JJRUwv7VWRo6lkPPp0lo IhEKlI2OVtIg9BoPfj1aSFTeae8xA2lgKp3QqEsiIjfZavlctKTBvi+PHeeD IvHRh99PykqDIifjgoG6DnJnwyPQDScNs5k+lPsGR5HEC02icxzSkBoiQI14 6CIPDAPCl38TQGFhRHlpUh95+KpH+uoKAWJ63+X16hggmVKSX9d/EGCs0KdV vNoQyc68ERs4SAChSdskZ8wIyWUYUd59T4Dj4r5dfyaNkYJQle8hDQTg7xKI zC4wQYqWEhIPKgjQxNMQuBFhhjzv1ZmjTCfAYQO7Po4TJ5EKncy02DsECOea 8yW/aIlUV67r0UUQ4J5wU4bBIyukTsT01x1fAvygfnqZccIaqU8peszsRgDa opaIBE1bpIGKzCTZgQCec74LR0rsEAhw2GU3JcDBYHA8s4ID0mbHaM2jQoCd +mJ27dunkfcdF8izJAjAtzUsU3rWCenWJJUL8hEgI+6dUxjhLNJbyn06j5kA rzgLNm+quCD9fL50YhQEIOYqa142P4d8vttVW7QpBY6qOppHQ88jQ3/EXKXm pCDKI7tM+K0rMj7+5Z3cRynoOvFRYDDIHflhoXipslkKTt/TVjDY80CmG2/z qNRJgZ2qmuLO/YvInNJUW22pFOSHvI7xPnYJWSxA/DUfS0GWxOZRPXZvZIXj Ie5tshSMxDHnSx1cQdZurvagN6Xg1AXHpm3Kq8iOe4GU/iUp4BPekVjF/JDf Q/uDbc5S0I+fTxMI8kcOjGxjjKykwJ9okL7YGoCQv3mh2G0gBVwjI10pEtcQ Khm6cTMtKQiW8353Ouc6cij73N0+WSkwfZnJWCgXjNAzv9W0xkmBNv1m2vhg CMK66v3AgVYKlBMjVzyuRyAcLh1HR39Lgm595OCt+kiEux+34rQiCV/4Lr+p 6biB8OmFZH3/IQkp3l48lTNRiGD1gJHroCQIHiRsRHPHIDi83Pb0e0k4zSl8 3OD0TUQsLe6JZ4MkXNdT3xOujkUI17X+ej+RhKaelCaBwlsIfDMjTKZJwq/b yZuLrncQW73zNna3JCFyhjttRDcBWXx6LbIrRBLscQ30czr3kCjmu2WYtyRw yjxlf1SRhHD75w5WnZWETTuqUspPyUj512pySStJGP/b4zVJm4J8ffLNjkXj 336mNUa96lTEm34tKoYgCaStRfWHMg8RKh+a8h1+SWhrvL/P9C4dyfzM+/XS YUlAVxvpzS9mIgra8lTfySVh6rFRsoByFtKWqydvsyEBLH9oyU7xPkZO09if ej8tAemI6jo5ay4S3xdZUdklAYO+N8kKTPMRQfXUEfw7Cbgbd7++Nb4Aqc4q ocmskIAEyx/QM/QEMaZ4p8hcIAFFwo/G+bAiZMK9/3RUqgQ0V3BfxjUUI4Ef puO24iTgQbbZKy/rEoRR+ffLi8ESIB/FlZhLU4aoH4jSWTlLwLeKedP5pnKk +7yGSvtJCejvsCq95FGBnHtv4qytLwHH+gWu1kRWIjtyLrdfqEnAvbyTRlfK XiKJDwJqRKUkwNKD4NU9V4WI7d2aeMgnAUp3nPLZkBqk3vkxAyOzBBBMPt/K KqpFpgntLhtr4rC0/K7Ppuk1Epo0ctfjpzhUOGwXlV97g7BtrdSNfhEH/z8N uDyjBuSpI9WkRac43LXZPUqtRULQRm7m1rfiwJt0L8qjEJABcVlNzRfi8NE9 SJSJ1IhcvHvU9XmeOFxZ3HJmXGhCUu0u1qfGioOpXJ3cz/BWhNAQ/pMuSBzq F4X2refaEBBJYQn3Egdo/mJh5tWB2MYXa6+dEYeFCybLljSdyOLSGzc3C3Ew OX9laf9NFxJl9TF5WFcchjcwXbLEDwj366m3ZqriQGvNaScT3ovoxzCxq/OK A92H+kMeE33I8BwOLWMUhzKBSyMkhk+Ij7map9BfPNzWD2FyMx5AaGqMH6T8 wsOu/+bIg+zPyCNeZ9KhKTwEdxWrZdJ8QRQi/eZDBvGQqZy0NRQ7hLT9jONc 7cADfY2+ZKfQMLJWUeE19BwP0b51LkL535B4rtY0k1w8SKet6f5KHEcEQ782 wn08KMkNapV+mECqvy8tqtzEw3PT8eKCqe+IsSEFd8k1PHj5bW76MU0iE8+4 9AQu4sFBLJBZ22gKCWST9k4+jQfT0dMkQsZPJO+bVUvQUTy4lrGjZcGziNKU 0t6ACh64eNEE4/U5pGWeVUFBEg8mOdgH7agFZHq799E0Mx4qQie+O80uI9cO yvuOUuABNa/LV3ZZRWipEw9lb4pB6LZjiMbpXwiBzcTPalQMZtJ1nVIi1pE3 3NIl5b1iQCZ3tOJFyQZiIkQ/TtcsBmsDlI9P/dxEvGU6jKFEDIqcCMYRqTvI X6XiSL5sMTincvStAuMekqQZWxuYJAbafA+Wvqf/Rl4a6IvIXhOD9PDvDt67 B4ieqah9/EUxyBevMzzkQYYOWFEkTp4RAy0HZwsBF3J06yzsZuiLQUzeha6B CEo0zj1HflNdDJ49Dy9RKKZCub3DL1hIi4HHOmNBxzg1qh1C7KNhE4O5gc6J l/G0aPcNvkPnqMVgzKJwQ+Y3HeoUv0ds2BGFpdpUL5VoBjQy9dVTv3FR4HPW T1sZYkZZsx6O9fSLQhb1sYQSaxY0Pz+Qg9AmCmYXvIcsjVnRlhcqkRPPRIGK JnZX2oUdtallr9XOFYWizVNqtDEc6PTbtYW0FFHgSmg6XFvHidJ2VtiZBouC h4VR4UUbbjTj472Ep5dFIbbPqCa2kQclfPFupnQRhSHh5axcXT7UdEpGvt5Q FJioZX0K4wXRsXmGC5zaouBiLLjBLimM+vyaz/SRE4VbLJt5i9w49P7BUxoJ TlEY17ZgmxETRUWp44lRtKJga/PpTOFRMbSawd33228RqM0kudR449FBbvxY yg8RmHg+cSf+jwTqLkTFsfJZBHKaBu1NXKTQHfykkfF7EUjLUi5x/UpAeZXz asgqRGDxoU6vBoMcWqYZueBY8G/9oont1XZ5lKjjjKtLE4FIStcPoT0KqJOp QMLlMBEwY0q2G+9WQles9ps6fESgs31vivaHMhp5amRH1FUE5m1ZSL9oVNF8 9wzXYWMR2OHwGk6NVkeVva9nqqIiwCCxbqr9TQNt8bf7mKQoAtztg18DjLXQ mRucRENuEVB+Vt7I64qg9GEvVlLoRYD2ntfqnjqGyl03KpjYx8HVJLY9wwc6 qKXfpK3sCg4O3g46dz06igZ6h9EHf8cB3YmP3n5Vumim55F3bZ9wUK/PTa41 qoe+c628yt6Gg3FuhWGJI8dQGsefQ89KcbBCpDy52G6IEmwj7u5m4YAiGqcg oWOEmp3k0TG4h4Pp6ivjVr3GqK9J1fr9GziQ3Dq69inQBE01NC0e98NBl2bN XwENM/SV7swpGTccLDQeu+JMb4GOIjeYg+xx0H6tPEj20ElUTKUmgA3BgYao planvBV6XN5cylkeB1wV/vnhZ6zRS4S50TIcDtQX2fPCsm3QJHx00g47Dhy0 W0LHV23RamEB/WM0ONigGmD6YG+PDvHVbSfvCEOszX5N5KADus91smxsXhiY toPdDL0cUT2mm2zXe4Xhw+RVisJxJ9SNVqitpVEYaMLI7ARdzqK3KV8HsVYL Q/GWYMXmWRe0/MBS1qlIGAJ3ECU1n3No/+7iRGm6MHD1kt/tvHce3dqIfbB9 WxjGCfTqZeCK8q4KH9cPEwZtK75j45Ru6Llp6xffXIQh5uHJxbJWDzT2+/I5 grUwVHXY3igwuIiWjsZzXTMQBrdnR13Lx7zQtf63YSzSwtAocTbnlsMVlKvH VvGMwL9+jowwlOb4oFrvV6dKDgvDXC6FIUfeVZQiwig9dlYIdlLsUtf6/VDj gLC/Qh+EoKDk7Kg+dQCa7FXp9rpSCIYqWw8PGwWiwvY8qovBQrCkdqKdwByE epiZZt10FgIpi1BONCkYrdC/QSmkLwTMn6DzmFQoiinO9Z1kEgKvZVxWWWEE GishoLnwSxBYEgZ691sj0R6Bk7kxg4JwWwLhv9d+A3Wif+1dlyMI7MGuied3 o9EisqXPFjGC4KPK3hIqfRNd2hJG5j0EwRpRHa+4EouGTsYzCCgJQujrgrAa pVtoy9e3vrVcgkB+g3L9U9VtlPHj6lfz3wKQ9PUxfdmJu+ijt/ZPo1oE4I9u 5vJkyz30x8u7h/lLBCCqeIP3wUASSiiBwJoEATh12lRxayAZrU+VPDZrKwDD lWElXygfoLSOM+fJiQJwuCo42VcuFbUVLorixQlAq8kT7OjFNHStVBRMFvjh xdPCXj+eDFTH58fYhY/84MLu1bOTmIkmqub9Ca/hh2Jp+8ubPFmoFAhqV0bw w3Rw39/jATlo4M1vDp2u/LAW/N5C9Eku2mKcdX3SiB86iKz51I/y0LOfeWo5 Ofjho354Il11AVqeOTQgt8sHbpn44L4vT9B954frhmN8MEOyaTdmLELT5zkU g5/ywe5i06x42VN0+sUn85QEPvgipcj38EgpqhJw3/uZLx84FHjvDKSXob1/ Dz8bI/LBLd0RYvhYOcrf2tO5jeMDZf/g4DeWFejF2wlzLIf4oJjUtyajV4nS cDJI6PXxAlva1PxP0yrUevj9sdO1vP++J8zBzZ7VaH5OvGvAI14g2cgENKfW oCiBJr/4Ai/4BUwkfcW9Qu+utAAY80LlQzKD2ejX6HB19PhXeV4QaGigY9yr RwMwcgHGPR6QN2XmFZd4hzZRgTZ+nAfm27Tl702QUJbO8FNoCw84zq46Bn8F 9Jn1/kOfRB6o4OVYUhxoQvd43tTe8uMBvGfLD+2ZZvT4eNDnfHseGC4LutlL 14pOeW6zfRbhgTH0cz/vjXZUSb5WcfkQD6hemk2p+dKBRm74Wxxa4oYUpeOp eUc7Ub6ItQTNOm7gFjjL3GP1AfXQr3xmmcUNu/T61G4HPWgtnU+X1w1ukMep /Y44+xG1fLBE+/gEN5An6AsPGPWjuQ7PJOoUuOHkaz2CudUndFnQy+AjJzfE VswdVHkNoLdLZqMpJo5AiGba6YzuQXTIuzifr/UI3O/V5Z7hGkLFVdwaVUqP wEz2dbt6v69o47vJAzf/I4DK3S0W9BxFmWPyBSIdjoAsb+PdBcox9LSRCzED PQKZBohuXc04uvNpLKiL9gh81rxs+bbyO2qQkZ0+tcQFLdI2STyVP9AHTqfr /vRzgdDDPtq37yZRhbmvG/LZXPBqeJiOhnYa9V+VlToSwwX789E6ifIz6Kvt G2cOLnLBmYoNzqtus+hRGkJbtwYX2IwXFoZQL6CxTOF7VUJcMDcr7mx/ZRHt 5OiXe0TDBSFBd7r2FpZQS9Hgh54DnBBtH5bfkLSKphF6uizecMLSXc+r6t6/ 0BFFETKNfE7o2H5nRbBbQ111Oj1ofDhhm8nSYNx0A31qKJi9ZMsJ3YwZFDOn N9FFM9++AYQTROojdtaDttCAM7xaBQycsLVpFUn7fQetd/X2vr3GAUOn1RKz ZfbQA6+m/KtfOcBq9kOH1a3faGzwRQadYg7orY8wqgo6QDtvvMMkEjnArFXj Q+4hMuzwLTZ/5gCOf/1NyY+NkmHpD+tHR3U5QPz+1fqZpxTY6GNm1hYpDmgr fd42kkuJCRedO1bG8s+hqklphVRYSTV9edAYO2QQKN7RDNFgy2+cfpxtZYe9 y/0c+EO0mFLzS67jz/7ll5h+jR6jw+r7TkVwBbPDD9xMmfUmA3YwVF715yw7 2LT3t3W7M2G6ExSzU4bsYFlgvGG+xIx1LZdaVHGywy1zT4tqXlaMZesgJnOf Dcr4h8IY/rBi1n8sX9+YZINR5O0r8gU2bJThN86ikg2Et6SSlRY5MGF2c1v1 dDaQ8csNribjwi7wFtwWjGADk0++g66iR7BlyRPriyZsID78cQdN48GUFHIk BpTZgPELQ8v2DC8WqL7u+IaXDQwyK6gOjPmxv8cetdyaZYU2uWDdm8eFMH3T lR2fXlYw5Wa2DPQVxuKt9WTta1nh+CpbvfoJHMZyfiFVPIYVWI3KlpIERTHr i1gnkxcr8BuMipzkFcMyrqYcbJxkhb8ciY9WRfCYSKS2e7MQK7Bj5YH+ZyQw t7h7j0ppWMHbS5ajKUkSK02c7E1eYoGXk49Nmj5JYcrZdzTOvmGBqg8Lglx3 ZbDrT8YvGeazwDoi9xNHKYe9LVPOk7vFAvUvgytPJshj+vUjdH9sWSDli+Zw 7BVFrLy0ULNdmwUSCY7iYh5KGPejK57JwiwQnvPAP85bGRvcprl/YuAwhGTT vakuVsVKhzJ/jWcfhkoRLhuxUTUs/LXcSX/3w/CLVcqzCKeB4UNsWbL3mOFh SO/Hl5Na2I7j/BXFFmZQFvxy2vAcEesmhve2JjADp6blSaotBPM/KExcFmYG q0LNrKEKHez4uOZy1DwTkBC2DfbHRzE++GB6pJoJpK0RKa90XazpxiajjiET PBE10z5Vp4+lnbt1aYCFCfxDdOOivh3DPPUEuj2GGaGTtuHlLLshxkJ97E7y ZUagn0mXYa4xwqZ+Ds3j1RnBk/OOSQPuBPaq7ZJxPRkjPGdLtL+Tb4I5xz+g m0xhgFGjwodkP80xJU9Jz2tnGECgYHEgdsACozF+28EgwfDvvlruUzafxMoZ puJU6ulhd6v4tniHFRa1eG2mI5oejGOYG49PWGM2HxgMz5jSA29dnObwIVts P1GZJnaCDjouq6/Vx9tjH6+0X+AtpQNdTaPUiUkHrMDCsbXcjw4mG8+liVo6 YsZs0TFfaOhAfEWVQu+SEya4zjXl9ZEWqvO7B5WYzmJrn0r1yDJpgWlkYoVn 9SyWkdpPISVLC5tt6SkMo+ewS4Fu5xq2DoHlapt/+PR5TMdur/EkHIL0pzbd 6X9dsVlukRvBVodgg6FYl8bFHXu7WzPBLHAICrWSHY+UeWD3ho10CqZpgHtZ VtT00EVMLevq364gGmCzxrnJ713C6MOonc/q0UCpQ2sfZYo39u1MxrsNRhqo N2+Vk8D5YDFCjWECudSwWdn9M2/jKmZPZvOt0pMaDA/jR7t/+WIy32eJBsrU 0Nj5fWps3w/7lM+y791GBb5o+2wPFogVRT9xpEyiAn5LimiroGtYsKvGm4cO VDBw/FouU8t1TET8bDAsUoK5Om58IykE26LZ+GpdSwnR/JWbMpxh2PuZOM25 CEowdby/WVkejvmUvNhhZaeElUe+r+TYb2AKzN7R/94c6GDkvCO7fgP75SvD 7PecAqa946JyxqIwX2KJ6IAhBTh7/36lNRyDKee5l1NxUkBlfrxN0cJNbINa XFP1BzmIO77JpmeIwwJ6883SQsmh/TqVcW7gLUxNxeVrmxE5WHro/zrVchvb Shdy3eYih1Mxv5twonexa+eyguwryWBeKzTW4cg9TKP9FNWtcDJgVs/itbFL wnakee69PkEGH55WjpyXTcbW56WNVLv/kuyLbW8P793H/KufOqW5/SU9prJg d19PwbbC8P7bZP9sWbhZsPMA22ERynmtekDa5m159EH6IRY0/Kia9+Mfkts0 h5mQYzq2V8DdGXLxDym4UZ17MSMD21dj20Ry9km+L7tRKaMsLIzsHn2O5j5J QDPowORNNnbwnkGYbOA3aVDY+oWVTg5Gfob6RBPtbxKO0Ex1XS8PixKPOita sEfad/c4b4LPx6hWDwJikD0STGhtFbIVYDTRO7kGvrskUcHm60ZshVicSUBt MeMuibtHx/QLvgij5Vrroi3eIX0XWV7wNSzG6EsWtjpHtkk87s5M9XUl2B1f D0aZwG2S+avt3NVDZRgj8ScugWWbJPCRxGPi+Qw73DtmYn5si1QJAu6/z73A ktIdz1WMb5LS1gkJ6eEVGNu5oWuswZukJ1uMFpK2lRjHZl/+p/INknxv+c8e 8Sos9Z3ZKxWjDRLvn+9pDLhqjCu+60Pq5DoJ0asoppOswbj5WnfsuNdJgmHN KQtOdVjG1FHm1y/XSFwipaOqSa8w3vJ3oryma6SCuQe6h/teYwJHX5mN3vhF gpZM5sKYt9hjelVXhP8XaX+NJodrtwETGqgMely7SmpqnK6OiiRhej22Ro2D K6Q09poTvG6NmIGLhX80wwppke5dp6FRE3Z8wyjnmM4yqZ9WwI1Woxkz4UU2 35cskmY9tjiKtFoxs+dqwnfHFkgRN8bNO8zbsJM6CifM2BdI/r+5mmn92jFb N9G8/tA5UkR2esWH6ffY7at+8fdrZkk9fi/DWJW6sIbQ5iuWyzOkDwFuh8YS ujGxlPNov/M0iQFv6uYR3IvZP67C30//SdIDH/PA2I/YnRJKJsu+KRKnv0hd s0Mf9u/kI326k6QSdL0vTvgTJt613pQc8oPUPCQdz8Y5gDkM6pWerP5OMrM1 Ve/j/IzB4uT1PvwEaaL3TIwL+gWbXXEHkYYx0vfhPL8o9yHMnIb2Xr7cN5JX cd37wJyvmKDycZl81mESHOPRG0JHsZtGs3u46CHSAVd082jxN2zROf593sYg 6YD7h+OUyDhWf7fDLe/LJ1KPGx+rhdR3DFfgoYoz6ielVj/OyKP6gcW/pqXK q/9I4tjBS0zN/8CedyfrHtXuIgl4JVP6Dk9hIbt94zqCHaSsxYyluamfmJE4 W5gOeSvpg7/g+2f701jXX7ErEYkNpHAajaQm2znMw6GwJNy6jhSzjn8WlTmP UVXhp8J4K0k37qRseywvYDo8JsgeFJIM98fT9ayWsPi2vY/2QpkkUU5Pn2Hb Zex/AO1XVK4= "]], LineBox[CompressedData[" 1:eJxN13c012/4P3CbkL33fHt721t6v173haySFDISEVJRRhnJqmyRrIZVSVbJ jvpIZhHZlYyMjIyQkJFvv3N+59v3/uO6zuPc1/Pc17+3uPPFY65UFBQUnH/L /+vRLZtdNqL3kCT3Wa/B44vIQu3Tq0jdCgT6IZ8A5lDVZ+trUUG1SGV3vSNn dRbtrZ+TbLKrR9c+dB1veDGDvN3OzzaltCB/su60pecUerhPzrS59B0aIKAH TvbfUB/z3LPmzvdo2zgwyM1mEmXYauicvtGNmDMs0eylcaShn3p+gqMXzRcd HdFNGUOd8r8yTj/oQ4w/wo8b1X1FFBSVu6frPiIlOtUrJadG0N1ZLpVJ088o brM0ZHxxCKn2XnJ2+TKIfkvYnMpP+IJc8tSbXTaGkRqhmiln9xPaSUxZm4wc RXUly04HPnxE7eTN5LLYryhX0Os/x6cDyIVg16zKP450Je5qH7jdh5QFGUd8 vo4j3/8+KLWk96Id1tq1sicT6K4lN7dyQQ9K+81PVNP8ht6/o7EOXehCzovv wHfnG3ITYne3Fu1CihOBtuVNU2iV+pztRmUnan3/OVbNYgaphEdfLPjSjtwD BltPyM2i7t+Ojw55tCEGqS80N6i/I8N3+3UGWN+hg0FDIX3lc+h9l/65jrgW 9J0w/HI7bh79nv/0ztO5GcX1DG9IuSygY4vfuuyNm9B72VGfy1w/UA9nwwAj akAe/aMlmfM/UKPBVW0rszcoErzWnJ2XkIhi7g71uXokM++lFqezjP6wSgVy Rf+HNnSXj2bnLSPLlY/s7lSv0Nt0b69yjhXk+Eh27/tbtchd3+fpl+8r6APn 7sPSb9VI++5K+4/jP1Hia5E3BwurEMMPn+/UjT9ROO4/Lx5aiQru+crI319F aORPIna8HF1Z+mkA9L/QQ/c/8WvHy9BBw0sulr6/0ExKcmS/Syn6vnzpwdVD a6iIx3u87GAJqjX69fpW9Roq1ctwv/r0KYrNvDySK7mOAkdX3BKli5GciZ9g x9Y6cmpQO4QfLUDbWWv7xs5soJs1uU29VPno/aqfza/eDdQqrXk+tzkPeeT4 pwoX/0a12qW5fkG5iLy2Xq7Ct4lor3jf6PN4hJhNA3oMbmyiT67Wu1IeD9HT 9QDWC/Zb6PLnJ3OtSTko5PBvhWtvt9BsG5XyTc9sZPYo0DRNfRsVJYU0i3Rm okWzKzF1zDtIKmDF80znPVSXu/mkJ2AHZTdsnd44fxclbF5pmZrcQQlme/s+ CN5BSnlB1Kz//UFKXfMN956lIortLXFJ2V0UGzK90JWYgrqOXgWt1F304ojs 0+7QZPQipK6uRJMCyGVcTcoxSSin4E9HjQcFVFJmZRIe3ELRffhw40MKeGkA gqTYRGRDer31kYUShLLC4z7ZxyOw2mUcP0AJg+88rjp/i0XEMCQwf4USXCLT a03DY9Dv/tfaFNOUQGyq/Wz+IxKNU1AYMwpTQWs0wfz26wjUJgfWXBZU8F6J ZSE8+wa6F15/mfiaClStfQt04q6ha8UUEaq/qGCS9Mw1IjUcnfsIKWQ5ashV DPYKKw5DOgpvyszTqeFzs7P75FYw0ugbSKt7Rw0P5gJLD0dfRcpB81fkt6mh 3qqeroAQhAjvePUZnGjg7k+JnLbUACTupSDjl0wD0cUWF365+CMhXn2myWYa 0Lgabz+o54c4XS/0vibRwte3h0g0xEuIhflGtcJJWri839NkXcEXMZbfvX8/ kRYsPxzXoAAfREHZfNp/lRbs2vtf0kZ6oa0ng0bfCHQQlDOtNuh9Ea2ZLclZ 2NLBVr42HjLnieYzBFcV6+jgIns9IYTnPJrWV/mUsUQH+Wk6sxwtZ9H4d8NX jJL0EDkUm7cQ4Y4+a/vcmIqiB/ZbjcF2am6obzTK3bKWHh7nj7D4i7qirshM 04Z5euCUV89Z4HNBLX1vubKOMgCfYEWOvYozehM0ssF0gwFcK3NCJI44oVcS q0OBVQwQZLBzZcj/FCrzEn1sJbgHOpr3asp1nURPeTViGg/vgcbC1MOqJ+1R ft1BT5WwPeCerc6gum2Hspn9NPZ+2wP5Ufq/iz1s0L3yOP4gXka4qLYNcWRr lGb3YGfGhBEGwn1MZQSPo/j8981NzxiBxanoYyulJYo6Ml6gOsYINO3pIYEM Fuja2vrNHE4m+OLYf1pP8BgKOCB5/GoAEzgoVni0OZsj3zltne+FTHDvvBjL tPwRdOG2mYjNMBOkW1ThLPmHkevXwCk1PWaI3bq/wjZwEJ2KSmx7cIkZhk9k aEpFmSB7xcfPWJ8wg7ixx+AVY2N07GqX3xzTXrjCh2b7NwzQYckpO1t8L7j2 HaF2mTqAjNu28FavvcCysbFkNKaPcD4Z+kf9e+G0XcLG9W1dtO81eY6NgQVS Co7s5gvqInW3Yx9CdFjgw9b6yisDQHIVwel22SxgV+h/Xs0bQ4QTyUFvu1lg caEGOijISIKqwFGThhXS1jgkLB/qID7zPhmOs38t7DtUw6uNONdnmcLus8Im sSB4a1YTsWTt/ljoYIUUYYEXi20aiMqPe8iFnw3gZtkkX5UasjtV2PNCnQ0K 2Up3+gpVUdlB9I7ZnA2yPH8kPnmqgpxFz1ZVRLKBVlmxmUmlEqrd86eY4SEb 3GIxOT1Bp4g4Vm8/sv+PDRrzaYNUL8qjhrevbtGsssERR+m9OqGySKD8aJQN KztYOIZ9rpMiIp/MqeBiEju8pTxbnDhEQBI+bOctndgheTNTwSRUCl2xf+yU f5Udilmjrc67S6IeQx2b7XR26A6hkzl0SgJdF3QxyO1kB7KwzTe1QDE0RPt7 /8YsO2T+Kq/JUBFF6ks3VU1pOUBRZpQ+KVoYTTZVi67u54BzJy6OtQYIIHKJ KY+xNQcUf75w9yUrP0q5O8ac4cMBP6DB4kMNLzpwgWlTv4ADmpESu70+N8qw yVlKb+IAPuQ9siHGhVb1NKbnRjlgTvfj1629nCiX17EvmYcTvsoGhexysKNt ytW2aRVOcL7IZRUmy4Ys56Pf7D/MCcIxcZc67rAgmjdlzyauc8L0Yyly5lkm ZF9k9FgrmxPoX1u801jZgypSh+7H1XICz23T1oYEBuRyji5GbZkTRPWP8t/a pUWvLO+HRjFzQVt9tuZINw3iQsp+X2S4wPVS/4ROBTVq5rQ7fd2BCxwl3xo1 P6ZEIn8WbT8GckGHt2qlUzkF8pu5bi6XygW6imEz3fd3ccJ/T7Hedi5wc7dt ZzDbxkOe6KnLTHNBX8LCWOHbTXwg6SMpiIobDojwCXHZ/MYj3Sj5JPdxQ2D5 N/fx52v4iHkai78lNwQYKIihgF+45n452vaL3PAuL6jO3HwVn2K1WvHJ44ZH snd1OZRWcHxzdqblDTcsHuswEVVfxtMmQ0YFhrmB3tDL4J7hEm5Yk/++gZMH vE9eI7NLLOBZj7BGHiUe0AtLaLNKnMPXbvbUnDvIA8UwNKfE8R3Pc97O4wjn Ab5UvyFBy2n8j2lSplsGD/QVkREr+xR+XIuQUlvNAzpVQY22o5M4PbN5uPMi D3xkiFQ1Kx7HbWTs6jX38ALtyoWx4adjeKGeyy6jFC88ao7RGH71FTcLDAgu t+UFqwzhvGaKETwn5dqrqEu88CsmDLTPDOErJfFbJxJ5oYg+18xyYhBPm8oJ pGnmhcM7F8yZ+D7hM5RFLz6N8oKnJsWL+M4BXEe4cr14kxcWlRRWrqX14yMW 7y5bKfPBc38xTNG6F1e+2Fshe4gPVJqyolXMevBrscM/d1z5gPHn4ZEDFt04 4c2yd959PtjJsr/usOcDHjC09fxKFR+EjtU1mDt24G3rtEtm3Xzw9Ye7/Wx7 O35BUeDCOh0/sCV5ORyffIvXm0g9bRfnh4ToT3ZrN1txDlfF+WwyP4RdW9rX Y9KCV93XO2fsww/iQiwaXquNOEO1aYHQTX545P9L7/xYA27Xc3xm6clfex9s 5Rh+g/9hOO92d5gfxmnFJZ9uvsbNpS4/9tzgBweOThkG3Tr8IQqd1OUUgFca zXN/sl7hBn7Jzt+NBUD9FYXyh4waPC0p80HdaQEY/7RabKvzAp8pfvL1dogA JKBSua/fq/D4iZcO+ysEwEadNX0qrAIf+dOcyfpBAKjSrIJjXcpxZYGuoYlZ AbiIS655WZfhfeaTdvGigiCRyubefeY5TvBYvHtKRxCYz1Bo3qEvwQOiNj6p WwkClUjYeU6bp7hQHbP1cKwgRBFG2n2wQvzCZ5600seCEFCnt7vwIR+vXxXr j6gXhB+2Pw4I+j3BXeQ0LBTXBOFhe2uo6+9cvMoQ3aZiF4L7+yrYb/c9whmc TboH5ISALY50JeH1Q7z4zskjoU5CcDWQhZTzJgf/U34mweKqEKg8t/cxfZaN m3/w7pBJFwKH1+xUNSuZ+Cpt5KGu90LQHmcjZdVwDzcUvxWbOy0E2uL7eqkO 3cXvkO+9C6AShpBFZUOmmXSc7PvMSFxbGG52sS18sUvFExJeRP46JgydTDfN chRT8K8FDc3vPIVh+5a1URVHMn7964C+zyNhOKmjkevIkISP1BzyDHglDNNn qKZZibdwneT6tJB+YWC+zPHkeF4CvmRQOBtLLwIq1NERL2/H4aaiopxJYiIg 9+zGs1ZCLP5kI5mcvk8EvB89pnPtiMYdioITH50XgSOEzwrZZpF47Y2VFwU3 RMD/588ToTIROLfDmfGSTBFA+qJmfqw38PdsRzVefRABlvzX3rl7ruHE780O DTMi8LvwXIa3QDh+vVEn+i2lKAQE1caGaYXhOn5SX/rUREHx1ruwEZlgPO3I XZovpqLQ87K2wTw3CF8msiiOuYrCsEiOa6H6FTz/y3rYQrooCJ4oEOO+6Y/T VHoU/nwuChUK/e2GFn64Y8JY7+93osAitlSTLXsZ59FtJ9Bti8IBuh8ZUdS+ uPZeMWIkoxj4DvSU3aL1wacCB8l7eMXA34zZoILLG9ezOOLGqiwG+Y3YycMl F/Cl13uCbpPF4EdX8X5vLk88S74pkdtEDIr+fk/7Es7jv2n31Qg6i8Ht04c/ sr52x/N8fnZkXRCDQZ7DFyZ9zuCWo0/HxYPEQPlWrMOylhv+/IUEMzFFDHLy wkq1Vk7jDtLDYkU5YlAjFjvc+c0ZZ7qdrqH4VAw06PYO2Ew74W7nmR3VW8Tg mTnxmhf7KZzrU4tvdc/f/Y4tXrLydsAbDoRH64yKgarYq1eOA/a4sMhaKWyI wQin0IvMUVu8LfZ5SyONOGyE9scUhtvgAevnvhiyiwMfn+zyjoY13tc1SnOY JA4tlfYpdd2W+DXsHn+XpjhMSm2yeVZb4MqFlooW+uLAMJbsOVF0DI+7/s7a 1l4c2LdovSTqzHHtpeseQ+7i0BPes0hZeQSfssfDHS+Lg642v0kurRmup1le 6JogDgeszmaVzx7Elx56vp65Jw63i60+918xwbNYiX3nn4hDnzhR31DUGP89 k7HjXS8OQpdm8gSyDPA8K2uOX+/Fgf5If/gjvwO4ZQO7TMBncThxU/pPg4M+ /vx+pHnIijgEiUno37LTxds5I6dZKSTA3XX8OWYL+FRcRMiDvRJwgd2RdKgD x4Wu3ihuIkoARSuNcLXlflxr9br+cU0JeHLZ8PSBun34MY/rg9P6f/PDdjgB aePR9tcYmBwlwNjk8M2ScA38UV94doaHBByde28/C+p4nWm4puIVCXivJe5x j0MNXyWHuRxNlYDuNMUP2KwyzloZujX+UALovr0ojfikhJMUQm9fei4B4Y07 H5u3FPBTwiH16e0S4MeIcR1PJuFBqcHWsp8lIPe/h+/TaWTxtL3Bi7VTEnCd okR3KV4GL424GmG6KgHxdOlme+UI+PudIKERSkkIHPkyVzIshU9fDiq/yCoJ wsfmhIseSeJUi1cOUgpLQind4Mp4kASuPRIYIKUtCaFtZ/VnHMRwi+OBrFUG kkBb63Yp9YMIfqEzIM/I4m/+j7+B1B8hPMYwAPt8ShK0jndN9hkJ4rl1/n3n LkgCJrJrw1vEj7/W9D+/HSQJlYtFZ30IfPjgMz+qhBhJiK2Qsbn2ggdny76s XJorCbpVg7Rpgly4HO/lVr0ySXBxGhBW+86BGyZecuh7LQl7FGaKK9vYcSf6 S79cOyShOYAyjOsVG3411Dd+fVASoqpohIqusOLp6z6SMTOS4BA8oS1wfy9e dtGnVmBNEiKyvn2t+ciEzzh6z2DsUmDgnz/Bk82AU3/yCv0gIgWx5lHbfQR6 XMTci8dJXgrm+e39G5po8X1vLz5d2ScFTlhMaoo/DW4JFw/cMJICpdCYLE6c Gr/44sIXbispaIiGdn5eKjxW+YLPE2cp4F/pgduUlHi9mGdOW7AUBFy//6dw 7x/syx0PLfs4KWB/U5ccgbaxNTaPzoU7UpCd++Z8e/wmxh5z3jU0TwpEjrqS x35uYPKU57fZKqQgblg6Wt93HTMKPJf88M3ffO8evYg9a5jz8lmS+gcpiOfm jzCrXMXujLnbWH+XAm6G6PwrxitYua37j5l1KSDx963HKyxjnd1nIq/QSsOI /FLqdcklbNbkjDAzpzR8KXzO9/rYIkbT4FaRKSYNzel+gU5X5zFRHbdDSorS IEC1w0xq+I7plLmO1++XBqP7FssXJGaxiw9d2CaPSwN/ROkmyE9hCYF3MxJO S8OTHHUrmJ3Enpl3Evd5SQPJmbLc7cUEtvhHSzchRhrMAn+zK8WMYSwDHh3a adIQmXf1x1r0V0zh6QPbiYfS4JrFx3dKcRTzOMHko/1KGi71Kh5Pqf6CxavC n/G30vDmHd7vJD6IFe+5HHuzXxr2qkucJjz8hM1VjzwcX/z7nvvPxYiJfowx kVPp5pY0GMsdfN/8oA8juRm/1GIgQNCDnvgDPr3YOa6y3nhxAji5cVOsG3Rj sXNTjlqKBAhefaN60KgLK2wQnB/TIYCvQGuI2rNObNYrgkbLkgAFLXjZEtaO MRjX3ho7RYDt3pwa9qJ3GFH0h1C8JwEmBi9/VlR6i7l32GiMRRJgsuTnjK5/ Mxade/NNXDIBFgXjlD5qN2H5QQ2HNXMIEDpieOAxcyM2LSvvFldDAEQ9rzg0 VY/RUTqtaLQQQE6qxqhh4DVG+JQa8rWHAFTSDpJF2/9hbpG7aRrzBNjVPeH/ +E4tFnlSXfLrBgFsy3klqphqsDz1syWxtDKgVRmf9SC1Gvs23tM6KiIDuRQ/ CbMzFRhNLb1lrJwMqMbbTI6XlGNSSeSv6toyoIRQ71J0GeaC8jZijsrAs4qN E9qez7EbPF9uqDvIAK3ywXzBhWdY7gIr++g5GRj4cBc/IfQUa2o6kBnjLwOj /dbz8W5F2MT9QFn1GzKgV2DdIt1WgFH5PqscuSUD656X1UoN8jGJgxO6MZky 4JLV/fTDxzzMecPUbqRKBhrXz3AV6uRi1z6ET0U3ygDrtA0b3Z5H2MO8Kh+1 LhmYu76ioDb7AGsInvszPCQD917xfiUN5mBjlmJx0bMycPNyMONcZTZGIW/F q7YmA5dOuEpY9GdiYtSxj4apiDDBdTqiny0DO1X686WqEBGi/eWVGvvvYGHR RONhIhFuEaSPa9inYzmOJ/uiNIjgZGK4/H4jFavXvH1KVY8IAvuN7+sWpmCj e1vnh8yIsLHjVnXyYjL2Z3IrIOoEETiYGE7uGN7GRF4p06q6EyHiYrDTXuUk zOHcPeGocCKofJK6ueuSgG193tO5fJMIy+cmicsZ8dgdk8AQ+3tEoNWVFDj4 IxZTr5lRbM0jgrmi70KUXQzWTbQZVSkngpRs3C42HIVduNOamPGaCE/T5A25 /CIxRgYtoH9PBBdRSVKLZAR2YJr7wdAkEbYm2rRpa65hX49HHDVaJsLSn2tb p7LCseCWVcqyHSJI6CkUqKWEYQKaLmVCjLLwtc/qFrdaKFb1uNc5ikcWCCqz xtQngjELbn3OFQlZiFmZ4QzPCsKWbpQ12ivJwglCNufGViAm65IkpWosC/3k ov9m/vhhLb0U/RmWsqBg1WT36MFlzFnfK4LeSRY2qgWfDdhcwnbLRjV8PGVB br+WnYWkL5YhcWRqKFAW9N5q2mztemPat+vSjCJlIWLLc6d+wQvrp1Q0Krst C48bhoRNP17EWMaY86OK/nqHlns/0QMrMr9qs1ItC5VLQxIrgecw4/o5hpNN shBkm+6355s7Nql0oqa1Sxb4A3mL6NzPYOHZbWdVh2WhIiRMJILSDRNh1RHI nP07f2u+Uv25C1YbUtBGvyYLb8W+lH3yOY2tnoyWG2Yhge84K8FVyQm71bH+ xUiQBIWjzBZyMqcwBexMfJkMCY4MjfbjJx2wtuIBsrA6CaIOeRwrjrHH3IQM F6Lg733k6c6JbjuMOr4yc8WUBB1Hmgr01W2xnC0ps5O2JNhZY76iV2KNfR6k LlH1IcFRsVUR91lLzO+gr2NmCAneHdPnnn1sgXHUjrMyxJHgwu/DI7WXj2El ssfqfdJJMLWT2FtjfRQzvfvGa/gRCcI9pQ/1HjTHZhhUxI2fk4CNEL5/T4YZ FhGQ0132igT7y3IuV9SbYnXWoarR/SS4d06vvO+kCXaidXF8ZYwEHD+eKVP3 GmEbmg7JJxdJEB01ovHd0RBLyevQf7tJAgPNYzbi1AaYCg+2qkovB6tTjw9b vdTHOiOKczM55aChJqPMMEoPO/dL0IpBTA6yZpgn37rqYrl9m5XD2nIwv3O+ 37gYx+DAOTdjAznQPxISvtxOxobLP/OUH5WDU9e3GHIZ9mNXJE1ahR3kwPWZ 8oXcU/swnuQX/tHn5IDIRTVp3qOFlVMRiT/95OD7Ph8jMXtNzNwn/dPJ63LA xHS/JGdbHYs56rdPLUMONB6079pcVcVuvyd5FBfIQdVs+ElxXRUsw2g0S7pa DmxJVf6FAspYXkNyd1aTHNRvtrhosCpizzFjGr4eOehcyz18cq88VvtiWzNp VA46DCsuX1QgYU1qpWcZF+SA4bFPpoYnEfskK/Bhm14eWl0dqGr0pbHx3E5K P255+Hb/K3X1gCQ2L3pd/YeEPMiHCFhPhUtga/e0zrgry8Nj8g3rUn1xjIJn /u4YJg9JywnZGQJiGGNSznu7Q/JwLSuvKpZRBONittrttZEHc4VCj9c0QhiR qs6lxVceIuLWLho78GGqwT7pKFwevJ+Hd++r4cHIG4S2FwnyYB0jfFdfmRsz 9P2yrZIhD6bW3UFxbzgx88VEpaICeSC1MXEfP8+B2Z094CxVLQ+VEXmzNPLs mMvkRkpmkzzUaKI4Lio2zH/QaTNxVB4UxribYruZsDArHoU9C/JQxPa1sGRh Dxbb1eZ4bVMeZq8z77MiMWAph0Jvb9ErgOFr8d1jEXRYVota8yVuBXifwdqe u02D5evOrC9IKEClMMsR9wRqrOxVBumMsgL0VC8vDmpTYS1ltLdsDylA8kfn J4UPd8ldCrUNPTYKMFJ3YO1twA55MP/Cr0NuCrClc36v/aUt8qSkJLHZVwFw WsZf47d/kxezPtrh4QowFLXCRN+zTt7gj79ZnaAAX7xOHrirtEamSoV65QwF qIs1SEgsWCXzxBVIS1YrwJHNE6WkuWWyGJ2DTUaTAvj+qHFyLFkik8I54rh7 FGCaLthXhuMHWX275b+EUQVYI73KK1yYJ+P+QUv0CwqQd8Z2IGXxO/mY56TV Jr0iIOtC1fLj02TX04dfzksogpiYyaCJ9iQ5wLZKbBRTBKI202rg9TFy/BHR yG4bRcj0Lz47YTlCzjGInmv0VYQU4umEY3qD5Ir9y+ZVCYrA0U5ta147QH6r YleVX6AIO0d1OHILe8lDMo2C95sUIZEi9YsvdTd5SVg+/OaoItRXm+sseHaQ abhSp0I3FUHb16jB0ecdGb9KjnwrrwTbFVZJLKcbyYGTE9Lsjkrw7D95xY/X /yNH13UcfnReCe4e9bv59NZLctqd6ssaAUpQNe7DIllXQ64wjWu2TVKCDR87 6myfKvJiharrw0YlyObkvP+JpZS8kyB0U71LCa5MJliqfS4hM5+lq2wZUoJd gRdnx2qfkmWFB2nmfinB+/Y0he2pAnJZA/TwcykDxa5aCSnvEXmeNOPtbKgM 3hIjW0oJaeRV3uGIIlNl6KR/3FC7J5W8RdNzd/WYMmiF7WsQz04mM46+fBPp +Hf+kNC3LrYkskxyIntRgDLw8quO7e+IITtvaZb+LFSGS4k0rglng8kf2yOW brCqgACnAc2fGWdyCp5pYMWjAu4TawwXw5zIx0or7kkLq4C1G6ewn+opcmfa xIEWkgoks1iyHvnvBLnFSfcuvaEKNPCe6uO3sCRXrW/rxl5VgUMUNqdE3xiQ 0yQvJSfOqkC5IfOzpQwi2SrIWfNeoyoQzt61Hvu1sN+DaU6i004dtCl9vwcz XtkvWtSSRvddA2g7lGQL26j3B73Qt2C9rwWHfxQ1j/4O1vHK86jSVNoHpYZN JQxCm/uYqbScFb/pwM4tE/3pSNd9Bp6WqaRkMvglHTfRh05tvhrhiwZSOLhk f6JK+rBP+7ZPdJLyRwQcSZqS1UnJWscijyhkVgHQaNU0odAVTdKJG1a5wbrA u0XfaPLSXHNgas/DZCs9oPj/p9P5my6HqP7/eozmyUaqxD+v5rmX8BP+mX9u Tkhc4Z9dfFfWlfb/8+b13aeHrf+Z8JhfICbxn/cZfeliTv5n09mMqFtp/+yt IPYrPfOfX1USuvKK/vlYi1pkU+s/u7r/Ihu3/3MAY/XP9s5/zjTTcert/+eZ ASCPT/yffQOofrpO//NewaaC2e//rOpoxLu8/M8GlHs6L/36Z5tHbTc2Nv75 nEH8/qvb/xw8fXhld/ef/wcwKZMK "]]}, Annotation[#, "Charting`Private`Tag$16499#2"]& ], {}}, {{}, {}, {}, {}}}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-40, 40}, {0., 0.9481022067563213}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.7878271354265547`*^9},ExpressionUUID->"f80c937a-a4c2-4bf7-86a6-\ 72c7e7c45378"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQAGIQXfvc99P//84HGMDgg/2UkgTvhtkI/mrG4iUM5gg+ a6q7kWSsE5wvfONozqKJjnB+0OFZyZqnHOD86ve2ORMe28P5O8pnZa33t4Pz /SaFKvybaQPnu8/d6+fxxgrOX3a88lpxtCWcH9cyRfT8CnM4vy6BeR23sBmc z6Arv9+51QTOv9U9s331VSM4X4YrY+UXJ0M4P9tUi/W2jD6cn2x+b8Xhw9pw vlaF1f+8JRpw/sK7wUcqHVXh/OeNojbuEkpwftKzkPV3ExXg/F1TNVxfhMnC +Z9WKR/weS0D52sekLPeWI/gH/GaU/HYE8FPuCq5TVQEwV8368YVvZ/SMP7+ P/HTP7vfQ/C9VMOEEg8j+DNeiRhWrUDw2US51Z0vSsH5pfaMsjy/JOH8oClv OeZ5S8D5Bi9vftGfKwbn77oYVS9WJQznu+y6zfk3TADOL1i5/oegMDOcH5am vPBSzcv9MH7HsV8XIuRnwfkA3drRtg== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGBQB2IQ3XHs14UI+Vn2DGDwYb+V7sFNAdOZHWB8pjLROymS AnA+y8FN6x43C8P57DwBjUnvxOB8tYMfC5fNloDzXcsmJ73ykILzrwQ8ieqR l4bzU7RNg/W+Ifjb3OwnMQnKwPj2HEmeF69pI/hRtcECq90Q/DUzYv3rExH8 gPOFZ9WnI/hfWNu8L5xB8G2K17krWsjC+c0PrjkXLUbwf7Ja7pROUoDzN8xu C6j7pAjn5y9KEXgSpgrnx2XNkm1v1IDzOwPLLI3naMP5LCJTn9X/0oPzr59u /dDCbwjnh1Ynmc06bATn53C/VjoXZQLny68+No3tlSmcX73DOZh/tjmcX7As Z5uZviWcz8NknqT31ArOd80Nmao12QbOl9gpm++qYgfnTyrqmGhw3R7OD2rz 1527zQHO14puCV1S6wjnX3vGuWhyqBOcfy7pqaOQvDOcr7ZUUqqzH8Gvfe77 6f9/BB8A9tSwrw== "]]}, Annotation[#, "Charting`Private`Tag$16541#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-40, 40}, {-1., 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.785662395326638*^9, 3.785662631293892*^9, {3.785663182170855*^9, 3.785663297421031*^9}, {3.78566333761908*^9, 3.785663347417699*^9}, { 3.785663444736421*^9, 3.785663461728157*^9}, 3.785664337414968*^9, 3.785664380268825*^9, {3.785664636746859*^9, 3.7856646579781303`*^9}, 3.785664699265383*^9, {3.7856647371339903`*^9, 3.785664755311468*^9}, 3.785664831043294*^9, {3.7856651686978483`*^9, 3.7856652018951063`*^9}, 3.785665241360462*^9, 3.78566531184659*^9, 3.785665541354974*^9, { 3.7856657555591307`*^9, 3.785665781106882*^9}, {3.7857517099620667`*^9, 3.785751734250792*^9}, 3.785751783032239*^9, 3.7858128770662518`*^9, { 3.785812935589147*^9, 3.7858129458122177`*^9}, {3.785813019941722*^9, 3.7858130489953737`*^9}, {3.785813123647093*^9, 3.785813147510545*^9}, { 3.785817476703265*^9, 3.785817494651051*^9}, {3.7860725188736*^9, 3.786072531277564*^9}, 3.786072587377696*^9, {3.786072923396265*^9, 3.786072956175934*^9}, {3.7860738513310966`*^9, 3.786073880625705*^9}, { 3.786073970183874*^9, 3.78607399735367*^9}, 3.7860741345351954`*^9, 3.7860742137200117`*^9, 3.786074564093543*^9, {3.786074819723336*^9, 3.7860748425609694`*^9}, 3.786074895018869*^9, 3.786075051958893*^9, { 3.786075112354312*^9, 3.786075158874197*^9}, 3.7860752981274443`*^9, 3.786075583187911*^9, 3.786075783898313*^9, 3.786075839953185*^9, 3.7860759057915783`*^9, 3.786076368768818*^9, 3.786076705152726*^9, { 3.7860767558506403`*^9, 3.7860767845028687`*^9}, 3.786076905402052*^9, 3.786076999577209*^9, 3.7860770549127827`*^9, 3.786077089536735*^9, 3.786084116589965*^9, 3.786234720134109*^9, 3.786585524844763*^9, 3.7865855874924393`*^9, 3.786585642302332*^9, 3.786585709892025*^9, 3.78659549768684*^9, 3.786595616908979*^9, 3.787826691568611*^9, 3.78782673227948*^9, {3.7878269573155117`*^9, 3.787826979672*^9}, 3.787827052280365*^9, 3.787827093707336*^9, 3.787827135568487*^9},ExpressionUUID->"20a90935-f46a-4c89-b346-\ ddc3b7b95e4b"] }, Open ]], Cell["\<\ Similarly the the piecewise linear potential with the sink at origin can be \ written by,\ \>", "Text", CellChangeTimes->{{3.787827526133507*^9, 3.787827556273655*^9}, { 3.787827595368606*^9, 3.7878275965529947`*^9}},ExpressionUUID->"6c38682f-5c61-4e20-9c71-\ 67a326b5dacd"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "-", RowBox[{ SubscriptBox["k", "0"], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787827577889145*^9, 3.787827589204165*^9}},ExpressionUUID->"0859e302-5871-4da2-ab4c-\ 80c84372ec60"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", RowBox[{"k0", "-", RowBox[{"d", " ", "g"}]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "0"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{"k0", "*", RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"0", FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]]}], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7878275102886753`*^9, 3.787827520740869*^9}, { 3.787887788759419*^9, 3.787887810236244*^9}, {3.787888082027096*^9, 3.787888085323352*^9}},ExpressionUUID->"89793c84-3cc5-4e8e-9302-\ 86990e29a642"], Cell[BoxData["\<\"The solution is\"\>"], "Print", CellChangeTimes->{3.787886526571848*^9, 3.787887863949749*^9, 3.787888086424155*^9},ExpressionUUID->"623e21d3-0a70-4ae1-8cb6-\ 5e8baadd06c1"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "d"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]}], ")"}]}]], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.7878880864292097`*^9},ExpressionUUID->"f664c165-ef91-4bdc-8729-\ 1ccf90fa52b3"], Cell[BoxData["\<\"Solubility check of P3\"\>"], "Print", CellChangeTimes->{3.787886526571848*^9, 3.787887863949749*^9, 3.7878880864382477`*^9},ExpressionUUID->"95df09aa-3929-4382-9d98-\ 607344c3232d"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.787888128833243*^9},ExpressionUUID->"801c191e-9bcb-4fd9-80fb-\ 7762d6aa09e9"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{"x", "-", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "d"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", "t"}], "+", "x", "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]}], ")"}]}]], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.78788812885036*^9},ExpressionUUID->"09e7fc22-5d29-4ba0-9fa9-f2bc8feb08c7"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "d"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", "t"}], "-", "x", "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]}], ")"}]}]], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.787888128872212*^9},ExpressionUUID->"8fc410b3-8ef0-44b2-8a45-\ c0ee538fe4b2"], Cell[BoxData["\<\"Boundary check at x=0\"\>"], "Print", CellChangeTimes->{3.787886526571848*^9, 3.787887863949749*^9, 3.7878881288769083`*^9},ExpressionUUID->"3cbb9dce-c0ea-4770-8fde-\ e4d88d71007c"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.787888129464333*^9},ExpressionUUID->"6f70ed43-086e-4ade-84c7-\ eae723a00490"], Cell[CellGroupData[{ Cell[BoxData["\<\"The reduction test at \\!\\(\\*SubscriptBox[\\(k\\), \ \\(0\\)]\\)=0\"\>"], "Print", CellChangeTimes->{3.787886526571848*^9, 3.787887863949749*^9, 3.7878881294689083`*^9},ExpressionUUID->"3d83d346-cd7d-47b1-9330-\ 6f90bbc6afdd"], Cell[BoxData["\<\"Boundary check with k0=0\"\>"], "Print", CellChangeTimes->{3.787886526571848*^9, 3.787887863949749*^9, 3.787888129472768*^9},ExpressionUUID->"c550d8de-0a3d-40bc-95c1-\ f655640f6bbc"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.787888129648821*^9},ExpressionUUID->"f51cbda6-ac66-42e0-a198-\ 4a44ff0ee64d"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "g", " ", "x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]], "Output", CellChangeTimes->{3.787886526581061*^9, 3.7878878639607353`*^9, 3.7878881298662157`*^9},ExpressionUUID->"7892a596-3b6d-43fa-b079-\ 550bbeef05a2"] }, Open ]], Cell["\<\ Let us rederive the Swapan Gosh\[CloseCurlyQuote]s result of piecewise linear \ potential;\ \>", "Text", CellChangeTimes->{{3.788056038033697*^9, 3.788056065729147*^9}, 3.788075072565543*^9},ExpressionUUID->"5ee8f633-bcfe-455d-bc59-\ 6877090e06f7"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{"C1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", "<", RowBox[{"-", "b"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"C3", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"C4", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"0", ">", "x", ">", RowBox[{"-", "b"}]}], "*)"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"x0", ">", "x", ">", "0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y1", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y3", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y3", "[", "x0", "]"}]}]}], ")"}]}], "==", RowBox[{"k0", "*", RowBox[{"y3", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}]}], "]"}]}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}], "}"}], RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}]}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "b"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "b"}], "]"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "b"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "b"}], "]"}]}], ")"}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"y2", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y2", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y2", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y2", "[", "x0", "]"}]}]}], ")"}]}], "\[Equal]", RowBox[{"k0", "*", RowBox[{"y2", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"L", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "p"}], "-", "w"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}], "+", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"w", " ", "de"}]}], ")"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"2", " ", "p", " ", "x0"}], "]"}]}], "-", RowBox[{"w", RowBox[{"(", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "-", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"w", " ", "de"}]}], ")"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"A2", "=", FractionBox[ RowBox[{"p", "+", "q", "-", RowBox[{ RowBox[{"(", RowBox[{"k0", "+", RowBox[{"w", " ", "de"}]}], ")"}], "/", "de"}]}], "L"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"B2", "=", RowBox[{ FractionBox[ RowBox[{"p", "-", "q", "+", RowBox[{ RowBox[{"(", RowBox[{"k0", "+", RowBox[{"w", " ", "de"}]}], ")"}], "/", "de"}]}], "L"], RowBox[{"Exp", "[", RowBox[{"2", " ", "p", " ", "x0"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"C2", "=", RowBox[{"A2", "+", "B2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Simplify", "[", "C1", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Simplify", "[", "A", "]"}], ";", "\[IndentingNewLine]", RowBox[{"Simplify", "[", "B", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"w", "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"q", "^", "2"}], "+", FractionBox["s", "de"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"C1", "-", "C2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"A", "-", "A2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"B", "-", "B2"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y1a", "[", "x_", "]"}], "=", RowBox[{"C2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", "<", "0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3a", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"B2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", ">", "0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1a", "[", "0", "]"}], "===", RowBox[{"y3a", "[", "0", "]"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3a", "'"}], "[", "x0", "]"}], "+", RowBox[{"w", " ", RowBox[{"y3a", "[", "x0", "]"}]}]}], ")"}]}], "+", RowBox[{"k0", "*", RowBox[{"y3a", "[", "x0", "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3a", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1a", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3a", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y1a", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "+", "1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Rho]", "[", "s_", "]"}], "=", RowBox[{ FractionBox["C2", RowBox[{"p", "+", "q"}]], "-", RowBox[{ FractionBox["A2", RowBox[{"p", "-", "q"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "x0"}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["B2", RowBox[{"p", "+", "q"}]], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "x0"}], "]"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", "2"}], ";"}], RowBox[{"(*", RowBox[{"w", "=", RowBox[{"2", "g"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", "=", RowBox[{".2", "/", "2"}]}], ";"}], RowBox[{"(*", RowBox[{"de", "=", RowBox[{"d", "/", "2"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{"position", " ", "of", " ", "the", " ", "sink"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k0", "=", "2"}], ";"}], RowBox[{"(*", RowBox[{"Sink", " ", "strength"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{ "position", " ", "of", " ", "the", " ", "initial", " ", "condition"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "x", "]"}], ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y3", "[", "x", "]"}], ",", RowBox[{"x0", "\[GreaterEqual]", " ", "x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "s"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Q", "[", "s_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{"f", "[", RowBox[{"x0", ",", "s"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "[", "s", "]"}], ",", RowBox[{"Q", "[", "s", "]"}], ",", RowBox[{"1", "/", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", "NumericFunction", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], "=", "\"\\""}], ";", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "failed"}], "=", "\[IndentingNewLine]", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "5"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{"expr_", ",", "s_Symbol", ",", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "F", ",", "z", ",", " ", "x", ",", "M", ",", " ", "f", ",", "g", ",", "fg", ",", "gg", ",", "ff", ",", "fgm", ",", " ", "f12", ",", "g12", ",", " ", "m", ",", "mmin", ",", "mmax", ",", "mb", ",", "meth", ",", "res"}], " ", "}"}], ",", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"mmin", "=", RowBox[{"Min", "[", RowBox[{"15", ",", RowBox[{"Max", "[", RowBox[{"5", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmax", "=", RowBox[{"Min", "[", RowBox[{"20", ",", RowBox[{"mmin", "+", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meth", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], "]"}], ",", RowBox[{"meth", "=", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Rationalize", "[", RowBox[{"expr", ",", "0"}], "]"}], "/.", RowBox[{"s", "\[Rule]", "z"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Rationalize", "[", RowBox[{"t", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", RowBox[{"NumericQ", "[", RowBox[{"F", "[", "100", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], ",", "expr", ",", "s"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"And", "[", RowBox[{ RowBox[{"NumericQ", "[", "t", "]"}], ",", RowBox[{"t", ">", "0"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], ",", "t"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f12", "=", RowBox[{"g12", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "mmax"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"M", "=", RowBox[{"2", "^", "m"}]}], ";", RowBox[{"mb", "=", "m"}], ";", RowBox[{"ff", "=", RowBox[{"fgm", "=", RowBox[{"fg", "=", RowBox[{"gg", "=", "False"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"FT", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "f", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"f", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"f12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fgm", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"GWR", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "g", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"g", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{"res", "=", "$Failed"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"m", ",", "mmin", ",", "mmax"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"g12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"f12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "\[Equal]", "$Failed"}], ";", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"NInverseLaplaceTransform", "::", "failed"}], "]"}], ")"}], ";", "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GWR", "[", RowBox[{"F_", ",", " ", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"M_", ":", "32"}], ",", " ", RowBox[{"precin_", ":", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ "fv", ",", "w", ",", " ", "wm", ",", "wp", ",", " ", "best", ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "t"}]}], ",", " ", "prec", ",", "k", ",", "n", ",", "i"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"precin", " ", "\[LessEqual]", " ", "0"}], ",", " ", RowBox[{"prec", " ", "=", " ", RowBox[{"2.1", "*", "M"}]}], ",", " ", RowBox[{"prec", " ", "=", " ", "precin"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"prec", " ", "\[LessEqual]", " ", "$MachinePrecision"}], ",", " ", RowBox[{"prec", " ", "=", " ", "$MachinePrecision"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Precision", "[", "tau", "]"}], " ", "<", " ", "prec"}], ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{"SetPrecision", "[", RowBox[{"tau", ",", " ", "prec"}], "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fv", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"i", " ", "tau"}], "]"}], ",", " ", "prec"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"2", "M"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"Table", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tau", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}], "!"}], "/", RowBox[{"(", RowBox[{ RowBox[{"n", "!"}], "*", RowBox[{ RowBox[{"(", RowBox[{"n", " ", "-", " ", "1"}], ")"}], "!"}]}], ")"}]}], ")"}], "*", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", " ", "i"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "*", RowBox[{"fv", "[", RowBox[{"[", RowBox[{"n", " ", "+", " ", "i"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "M"}], "}"}]}], "]"}]}], ";"}]}], " ", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"best", "=", RowBox[{"Last", "[", "w", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{ RowBox[{"best", "=", "$Failed"}], ";", RowBox[{"Return", "[", "best", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "M", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{"k", "/", RowBox[{"Differences", "[", "w", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"wm", ",", "1"}], "]"}], "+", "wp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Drop", "[", RowBox[{"w", ",", RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", "wp"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "k", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"Last", "[", "w", "]"}], "]"}], ",", RowBox[{"best", " ", "=", RowBox[{"Last", "[", "w", "]"}]}], ",", RowBox[{"Break", "[", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"M", " ", "-", "1"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{"best", "=", "$Failed"}]}], "]"}], ";", "\[IndentingNewLine]", "best"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FT", "[", RowBox[{"F_", ",", RowBox[{"t_", "?", "NumericQ"}], ",", RowBox[{"M_:", "32"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "np", ",", "p", ",", "r", ",", "s", ",", "theta", ",", "sigma", ",", "tab", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"np", "=", RowBox[{"Max", "[", RowBox[{"M", ",", "$MachinePrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"SetPrecision", "[", RowBox[{"t", ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", RowBox[{"M", "/", RowBox[{"(", RowBox[{"5", "p"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"r", " ", "theta", " ", RowBox[{"(", RowBox[{ RowBox[{"Cot", "[", "theta", "]"}], "+", "I"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"theta", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"theta", " ", RowBox[{"Cot", "[", "theta", "]"}]}], "-", "1"}], ")"}], RowBox[{"Cot", "[", "theta", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "r"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "r", "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "s"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"I", " ", "sigma"}]}], ")"}], RowBox[{"F", "[", "s", "]"}]}], ",", RowBox[{"{", RowBox[{"theta", ",", RowBox[{"Pi", "/", "M"}], ",", RowBox[{ RowBox[{"(", RowBox[{"M", "-", "1"}], ")"}], RowBox[{"Pi", "/", "M"}]}], ",", RowBox[{"Pi", "/", "M"}]}], "}"}]}], "]"}], "/.", RowBox[{"ComplexInfinity", "\[Rule]", "0"}]}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Total", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"r", "/", "M"}], ")"}], " ", "tab"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "f"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ab2", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"\[Rho]", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ab1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.788056192034629*^9, 3.788056199731413*^9}, { 3.788056244531969*^9, 3.7880562950806503`*^9}, {3.788056838528564*^9, 3.788056955669786*^9}, {3.788056987835147*^9, 3.788057066272481*^9}, { 3.788057118073531*^9, 3.7880572301351967`*^9}, {3.788057320483851*^9, 3.78805734106304*^9}, {3.788057372094355*^9, 3.788057388062233*^9}, 3.788057546823501*^9, {3.788057608132949*^9, 3.788057642618616*^9}, { 3.788057677608107*^9, 3.7880576943406267`*^9}, {3.7880578282190723`*^9, 3.788058090212081*^9}, {3.78805835497805*^9, 3.788058357360572*^9}, { 3.788058444487495*^9, 3.788058448405012*^9}, {3.7880588488492928`*^9, 3.788058851891403*^9}, {3.7880593051376657`*^9, 3.788059416149577*^9}, { 3.788059801371348*^9, 3.788059811596106*^9}, {3.78806059607576*^9, 3.788060658201324*^9}, {3.7880607113286533`*^9, 3.788060725934977*^9}, { 3.788060914221888*^9, 3.7880609157968493`*^9}, {3.788061085267823*^9, 3.788061205945606*^9}, {3.788061424313571*^9, 3.788061427342733*^9}, { 3.788061470307473*^9, 3.7880615217796717`*^9}, {3.788061574827039*^9, 3.788061576751183*^9}, {3.788061630405567*^9, 3.788061636112185*^9}, { 3.7880616879814873`*^9, 3.7880617488099833`*^9}, {3.788061807087852*^9, 3.788061809287177*^9}, {3.788061848459311*^9, 3.7880618891925592`*^9}, { 3.788062663838139*^9, 3.788062809853059*^9}, {3.788062843626727*^9, 3.788062878616061*^9}, 3.788062975953841*^9, 3.788063292045973*^9, 3.788063324600562*^9, 3.788063539105547*^9, 3.788063723620541*^9, { 3.788067659796298*^9, 3.78806777342837*^9}, 3.7880685529693823`*^9, 3.78806859955396*^9, 3.7880741847952623`*^9, 3.788074289881352*^9, { 3.7880744892816963`*^9, 3.788074554698209*^9}, {3.7880746065682173`*^9, 3.788074623214691*^9}, {3.788074660713984*^9, 3.7880746657555428`*^9}, { 3.7880747089182034`*^9, 3.788074861834564*^9}, {3.788074892677354*^9, 3.788074947810196*^9}, {3.788075094052971*^9, 3.788075128019041*^9}, { 3.7880752465852547`*^9, 3.7880753147979727`*^9}, {3.7880762942758636`*^9, 3.788076309273829*^9}, {3.788076413744184*^9, 3.788076545395049*^9}, 3.788076586160384*^9, {3.788076646714054*^9, 3.788076763960737*^9}, 3.788084941695026*^9, {3.788084981106442*^9, 3.78808498710632*^9}, { 3.788085071972089*^9, 3.788085184614349*^9}, {3.788085254822304*^9, 3.788085271182269*^9}, {3.788085323885532*^9, 3.788085332964841*^9}, { 3.788087258592862*^9, 3.7880872635614758`*^9}, 3.788087439171802*^9, { 3.78808756037947*^9, 3.788087563424889*^9}, {3.788088213438527*^9, 3.788088216804654*^9}, {3.7880884525861177`*^9, 3.788088466488627*^9}, 3.788088597668151*^9, {3.7880886818076553`*^9, 3.788088731338129*^9}},ExpressionUUID->"36570522-2a19-45b6-887d-\ 7ca2071ac4bf"], Cell[BoxData[ TemplateBox[{ "ClearAll","wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"ab2\\\"}]\\) is Protected.\"",2,86,6, 24550605387735951083,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788152094607088*^9},ExpressionUUID->"69c7e7d2-56fb-43a9-81d5-\ 7fe7e2bbd0cb"], Cell[BoxData["\<\"Check that the coefficients matches between both\"\>"], \ "Print", CellChangeTimes->{ 3.7880849451044703`*^9, 3.788084990643733*^9, {3.788085102805291*^9, 3.7880851297526703`*^9}, {3.788085162309063*^9, 3.7880851889039803`*^9}, 3.788085274828418*^9, 3.7880853345310307`*^9, 3.788087278365449*^9, 3.788087333043243*^9, 3.788087440941463*^9, 3.788087574112262*^9, 3.7880881462636547`*^9, 3.788088242175948*^9, 3.78808846910645*^9, 3.788088605439806*^9, 3.788152094735735*^9},ExpressionUUID->"ceba38d4-46c9-4d1b-9e5d-\ 52fb63c3b870"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152095524629*^9},ExpressionUUID->"8bbdc71f-ab76-4409-b3f5-\ 02e4f90030f3"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152095644312*^9},ExpressionUUID->"7772aca7-1be9-4509-9eab-\ 39b7df955404"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152095860797*^9},ExpressionUUID->"31a76c4d-5005-4f57-9c58-\ 232642ad58c7"], Cell[BoxData["\<\"Boundary check of Mr Gosh\"\>"], "Print", CellChangeTimes->{ 3.7880849451044703`*^9, 3.788084990643733*^9, {3.788085102805291*^9, 3.7880851297526703`*^9}, {3.788085162309063*^9, 3.7880851889039803`*^9}, 3.788085274828418*^9, 3.7880853345310307`*^9, 3.788087278365449*^9, 3.788087333043243*^9, 3.788087440941463*^9, 3.788087574112262*^9, 3.7880881462636547`*^9, 3.788088242175948*^9, 3.78808846910645*^9, 3.788088605439806*^9, 3.788152095865149*^9},ExpressionUUID->"8e261b38-9bc9-4794-9e14-\ b3e5b7b543ec"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152095869153*^9},ExpressionUUID->"aca62929-70fd-4820-a64b-\ c59f05940527"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.7881520962240963`*^9},ExpressionUUID->"57ffaed1-58f4-44f0-b11f-\ b5290ffb509b"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152096307502*^9},ExpressionUUID->"ee732956-126f-4958-8c29-\ d03ca34f0c51"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}], " ", "x0"}]]}], ")"}], " ", RowBox[{"(", RowBox[{ FractionBox["w", "2"], "-", FractionBox[ RowBox[{"k0", "+", RowBox[{"de", " ", "w"}]}], "de"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "w"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}], "-", RowBox[{"w", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k0"}], "-", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "-", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}], " ", "x0"}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", FractionBox[ RowBox[{"k0", "+", RowBox[{"de", " ", "w"}]}], "de"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "w"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}], "-", RowBox[{"w", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k0"}], "-", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}]], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ FractionBox["w", "2"], "-", FractionBox[ RowBox[{"k0", "+", RowBox[{"de", " ", "w"}]}], "de"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "w"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}], "-", RowBox[{"w", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k0"}], "-", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", FractionBox[ RowBox[{"k0", "+", RowBox[{"de", " ", "w"}]}], "de"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}], RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]], " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "w"}], "+", RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}]}], ")"}], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["w", "2"]}], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}], "-", RowBox[{"w", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k0"}], "-", RowBox[{"de", " ", "w"}], "+", RowBox[{"de", " ", RowBox[{"(", RowBox[{ FractionBox["w", "2"], "+", SqrtBox[ RowBox[{ FractionBox["s", "de"], "+", FractionBox[ SuperscriptBox["w", "2"], "4"]}]]}], ")"}]}]}], ")"}]}]}]]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152096326909*^9},ExpressionUUID->"ea5bdf9b-42e0-4aed-b76e-\ aee649b5f3b8"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.22920869870325714`", ",", "0.048130806679502806`", ",", "0.02636489479836805`", ",", "0.017160446847633713`", ",", "0.012089836561833081`", ",", "0.00892269742907208`", ",", "0.006791940187175087`", ",", "0.005286015466183043`", ",", "0.004183623222458296`", ",", "0.0033550824168773006`", ",", "0.002719464676644958`", ",", "0.0022237799559908923`", ",", "0.0018319926870882862`", ",", "0.0015188364643061837`", ",", "0.001266144301893613`", ",", "0.0010605760197961126`", ",", "0.0008921595027448838`", ",", "0.0007533254752503277`", ",", "0.0006382519501577412`", ",", "0.0005424088142498926`", ",", "0.000462235129685982`", ",", "0.0003949064549002223`", ",", "0.0003381644589803635`", ",", "0.0002901904188318154`", ",", "0.0002495101276813088`", ",", "0.00021492161380924334`", ",", "0.00018543964067021404`", ",", "0.0001602526999018267`", ",", "0.0001386894054800051`", ",", "0.00012019203254674541`", ",", "0.00010429553539678111`", ",", "0.00009061080249186596`", ",", "0.00007881121322327297`", ",", "0.00006862178593069634`", ",", "0.00005981037299914067`", ",", "0.00005218048304659882`", ",", "0.00004556540375367464`", ",", "0.00003982336990547559`", ",", "0.000034833575543966324`", ",", "0.00003049287098179632`", ",", "0.000026713017884483448`", ",", "0.000023418400953157677`", ",", "0.000020544114617064888`", ",", "0.00001803435883180643`", ",", "0.000015841090523526835`", ",", "0.000013922887139655087`", ",", "0.000012243986711901798`", ",", "0.000010773475228248765`", ",", "9.484597272976961`*^-6", ",", "8.354170080021432`*^-6"}], "}"}]], "Output",\ CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.78815209837747*^9},ExpressionUUID->"1ec0008f-0904-4a72-bfda-\ cd15b42e567b"], Cell[BoxData[ TemplateBox[{ "Set","wrsym","\"Symbol \\!\\(\\*RowBox[{\\\"ab2\\\"}]\\) is Protected.\"", 2,123,7,24550605387735951083,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788152098485999*^9},ExpressionUUID->"7a874270-0287-4168-a0a9-\ b3be7567cade"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJwtyVtIEwAUxvGpA4tFU1osUDbdXKlzMed1ubZv7moXzeUlJpmYGiGtLLTC HmxklIW1BTNtkAxJH5I9lCAVU3QZFkmWRRoFa3Yxs8ywNjKWsXPgcPidf2L1 UVNtJIPBkK3u/xueRdXFyYavA2VPVfSA4a7C19nTR14DscMtrAt1kWPQmfuH a7XbyBy8TJPUto9cIG+CWZAhidFbyfGoL3FfeTvZTE6Aa3gmMH6rkSzAA/nA xGtBAzkJU3HSZN6ZevJmzFtTmhMNdeRk8HWfHnblVJNTwYvdL/4eVUlOQ+ap XYqm9/vIW3F4uYN73VNCluJI6PRUVVUxOR2q3ss/gnm7yTLcfOYVmt1GcgZS uXu7WV+05EzsMQnZ68fU5Cw0Zb0ZZe5UkrNxboFVZPHJyTmwvRva0ZiSTc5F XvlYhYOZQZajWOx6tdEsJW+DTeTvsovTyHmIHi2tNhUmkxU4fmA6SxohIm+H PbQ03yMRkJXIvnGo9udZPlmFg2XXereUx5GBlfPe++PD3LBbgHsKc+m3Pg51 NaY9ssLEv7HU1Qh97vA6K9jU81FT9txzqYJFPR+tzCiz2x9NXYPgSZGd4WNS 1+DX7KM2oyaSuhacDeXCymBIGe5a6FoszsHIlbAZOgRgyS9pD1BfdWzThLdt mboe6x6P3GHPLVHX48UH14ki5yJ1AxaSbq99IlugbkBCi2nwWP8cdSNMM7yU 3x0fqRuR3n+VHzHrp16A7iFHTXyrT/kPJyLTMA== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 0.010423930454716002`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0, 0.010423930454716002`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Goshmy\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152098582986*^9},ExpressionUUID->"7981c0de-33f6-4446-8703-\ a8bff27c434a"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2292086987032572`", ",", "0.04813080667950282`", ",", "0.02636489479836806`", ",", "0.01716044684763372`", ",", "0.012089836561833085`", ",", "0.008922697429072082`", ",", "0.006791940187175089`", ",", "0.005286015466183044`", ",", "0.004183623222458297`", ",", "0.0033550824168773006`", ",", "0.0027194646766449575`", ",", "0.0022237799559908923`", ",", "0.0018319926870882857`", ",", "0.0015188364643061833`", ",", "0.0012661443018936124`", ",", "0.001060576019796112`", ",", "0.0008921595027448833`", ",", "0.000753325475250327`", ",", "0.0006382519501577406`", ",", "0.0005424088142498921`", ",", "0.00046223512968598143`", ",", "0.00039490645490022176`", ",", "0.00033816445898036295`", ",", "0.00029019041883181494`", ",", "0.0002495101276813084`", ",", "0.00021492161380924293`", ",", "0.00018543964067021366`", ",", "0.00016025269990182635`", ",", "0.00013868940548000474`", ",", "0.00012019203254674512`", ",", "0.00010429553539678083`", ",", "0.0000906108024918657`", ",", "0.00007881121322327271`", ",", "0.00006862178593069611`", ",", "0.00005981037299914046`", ",", "0.00005218048304659862`", ",", "0.000045565403753674464`", ",", "0.000039823369905475426`", ",", "0.000034833575543966174`", ",", "0.000030492870981796186`", ",", "0.00002671301788448332`", ",", "0.000023418400953157562`", ",", "0.000020544114617064783`", ",", "0.00001803435883180633`", ",", "0.000015841090523526747`", ",", "0.000013922887139655006`", ",", "0.000012243986711901724`", ",", "0.000010773475228248697`", ",", "9.484597272976898`*^-6", ",", "8.354170080021374`*^-6"}], "}"}]], "Output",\ CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, 3.788152104213172*^9},ExpressionUUID->"f02da7db-6e79-4a3f-9e9a-\ bc5e71422809"] }, Open ]], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], PointBox[CompressedData[" 1:eJwtyVtIEwAUxvE5BxVGc2EsUJxurpw6WVve1/zm7llKy0tsZCLNIMuS0C5G 2cAKDasFW04fwqT5kOyhBCOcspY1IskQS6NwaRdN0yzJUbGKnQOHw+/8E6uO GS1MBoMh/bf/b3iW8ltH6+b7yp7n0wOG+/JAe3cPeS3S7W5BdchJjkZH9i+u 1XadHINXaWJLm/cyeTPMfJk4Wmslx+Foifvq29FGcgJuD02u+u/Uk/kYyOkb ec2vIydhLFaSHH+2hrwFc1ZRY6KumpwMnubTY2dWFTkFcZz9qYuRFeQ0SE/t kje830dOR/WKg3vTU0KW4HDo9Fhl5R7yNuS6rnwL5u0mS9H+wicwufVkGYTc vbei5tTk7Sg0CtgbhpXkDBzJePOIVaggZ+LMQlRxbSCHnIVL7wZ31osyydmQ lQ+b7SwZOQeG1K7xTSYJORdW4bTTlppGzkPQW1plLEomy2E5MJEhiRCSd6A5 tPylW8wnK5DQccjy/QKPnI+ishuureWxZGD2ou+hf4gbdhPgkptKv/bEUFfi qUdalPiHQ12Jqc8OX6eZTb0AurKXnlZzFPUC1LAiTe7pNdRVCJwU2hgBFnUV pmaetOhVTOpqzG8sF1QEQ4pwV4PXVNvZz/wdNkODcdQWlLStUtdggtMw4mtZ oa7Fot97jz27TF2LBx+6ThR3LlHXYSDp7rpn0gXqOvw4b+w/3jtLXY+UyXjR T8dH6nqs773Gi5iZpm7AuUH7wbjmgOIvxgbUQA== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 0.010423930454716006`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0, 0.010423930454716006`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Gosh him\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Input", CellChangeTimes->{{3.7882439841994743`*^9, 3.788243985519527*^9}},ExpressionUUID->"9a05d70d-95a4-4791-b02a-\ 39e41cb65219"], Cell["\<\ NOw let us the add the effect of arbitrarily placed initial condition; (NOTE: \ It matches the above solution under limits and all boundary cnditions and \ initial test)\ \>", "Text", CellChangeTimes->{{3.78808879096377*^9, 3.7880888176867933`*^9}, { 3.788244153757766*^9, 3.788244189335516*^9}},ExpressionUUID->"466127d5-d6a2-4ed4-b603-\ 0eac5425bd27"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{"C1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", "<", RowBox[{"-", "b"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"C3", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"C4", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"0", ">", "x", ">", RowBox[{"-", "b"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"x0", ">", "x", ">", "0"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y1", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y3", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y3", "[", "x0", "]"}]}]}], ")"}]}], "==", RowBox[{"k0", "*", RowBox[{"y3", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}]}], "]"}]}]}], ";"}], "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "b"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "b"}], "]"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "b"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "b"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"y2", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y2", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y3", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y3", "[", "x0", "]"}]}]}], ")"}]}], "\[Equal]", RowBox[{"k0", "*", RowBox[{"y3", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"w", "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"q", "^", "2"}], "+", FractionBox["s", "de"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{"2", "g"}]}], ";"}], RowBox[{"(*", RowBox[{"w", "=", RowBox[{"2", "g"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", "=", RowBox[{".2", "/", "2"}]}], ";"}], RowBox[{"(*", RowBox[{"de", "=", RowBox[{"d", "/", "2"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{"position", " ", "of", " ", "the", " ", "sink"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], RowBox[{"(*", RowBox[{"Sink", " ", "strength"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "b", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", "5"}], ";"}], RowBox[{"(*", RowBox[{ "position", " ", "of", " ", "the", " ", "initial", " ", "condition"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "x", "]"}], ",", RowBox[{"x", "<", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y2", "[", "x", "]"}], ",", RowBox[{"0", "\[GreaterEqual]", " ", "x", "\[GreaterEqual]", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y3", "[", "x", "]"}], ",", RowBox[{"x0", "\[GreaterEqual]", " ", "x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "s"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Q", "[", "s_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{"f", "[", RowBox[{"x0", ",", "s"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "[", "s", "]"}], ",", RowBox[{"Q", "[", "s", "]"}], ",", RowBox[{"1", "/", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "*)"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", "NumericFunction", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], "=", "\"\\""}], ";", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "failed"}], "=", "\[IndentingNewLine]", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "5"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{"expr_", ",", "s_Symbol", ",", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "F", ",", "z", ",", " ", "x", ",", "M", ",", " ", "f", ",", "g", ",", "fg", ",", "gg", ",", "ff", ",", "fgm", ",", " ", "f12", ",", "g12", ",", " ", "m", ",", "mmin", ",", "mmax", ",", "mb", ",", "meth", ",", "res"}], " ", "}"}], ",", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"mmin", "=", RowBox[{"Min", "[", RowBox[{"15", ",", RowBox[{"Max", "[", RowBox[{"5", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmax", "=", RowBox[{"Min", "[", RowBox[{"20", ",", RowBox[{"mmin", "+", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meth", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], "]"}], ",", RowBox[{"meth", "=", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Rationalize", "[", RowBox[{"expr", ",", "0"}], "]"}], "/.", RowBox[{"s", "\[Rule]", "z"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Rationalize", "[", RowBox[{"t", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", RowBox[{"NumericQ", "[", RowBox[{"F", "[", "100", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], ",", "expr", ",", "s"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"And", "[", RowBox[{ RowBox[{"NumericQ", "[", "t", "]"}], ",", RowBox[{"t", ">", "0"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], ",", "t"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f12", "=", RowBox[{"g12", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "mmax"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"M", "=", RowBox[{"2", "^", "m"}]}], ";", RowBox[{"mb", "=", "m"}], ";", RowBox[{"ff", "=", RowBox[{"fgm", "=", RowBox[{"fg", "=", RowBox[{"gg", "=", "False"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"FT", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "f", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"f", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"f12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fgm", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"GWR", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "g", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"g", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{"res", "=", "$Failed"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"m", ",", "mmin", ",", "mmax"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"g12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"f12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "\[Equal]", "$Failed"}], ";", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"NInverseLaplaceTransform", "::", "failed"}], "]"}], ")"}], ";", "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GWR", "[", RowBox[{"F_", ",", " ", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"M_", ":", "32"}], ",", " ", RowBox[{"precin_", ":", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ "fv", ",", "w", ",", " ", "wm", ",", "wp", ",", " ", "best", ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "t"}]}], ",", " ", "prec", ",", "k", ",", "n", ",", "i"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"precin", " ", "\[LessEqual]", " ", "0"}], ",", " ", RowBox[{"prec", " ", "=", " ", RowBox[{"2.1", "*", "M"}]}], ",", " ", RowBox[{"prec", " ", "=", " ", "precin"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"prec", " ", "\[LessEqual]", " ", "$MachinePrecision"}], ",", " ", RowBox[{"prec", " ", "=", " ", "$MachinePrecision"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Precision", "[", "tau", "]"}], " ", "<", " ", "prec"}], ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{"SetPrecision", "[", RowBox[{"tau", ",", " ", "prec"}], "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fv", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"i", " ", "tau"}], "]"}], ",", " ", "prec"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"2", "M"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"Table", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tau", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}], "!"}], "/", RowBox[{"(", RowBox[{ RowBox[{"n", "!"}], "*", RowBox[{ RowBox[{"(", RowBox[{"n", " ", "-", " ", "1"}], ")"}], "!"}]}], ")"}]}], ")"}], "*", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", " ", "i"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "*", RowBox[{"fv", "[", RowBox[{"[", RowBox[{"n", " ", "+", " ", "i"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "M"}], "}"}]}], "]"}]}], ";"}]}], " ", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"best", "=", RowBox[{"Last", "[", "w", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{ RowBox[{"best", "=", "$Failed"}], ";", RowBox[{"Return", "[", "best", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "M", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{"k", "/", RowBox[{"Differences", "[", "w", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"wm", ",", "1"}], "]"}], "+", "wp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Drop", "[", RowBox[{"w", ",", RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", "wp"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "k", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"Last", "[", "w", "]"}], "]"}], ",", RowBox[{"best", " ", "=", RowBox[{"Last", "[", "w", "]"}]}], ",", RowBox[{"Break", "[", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"M", " ", "-", "1"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{"best", "=", "$Failed"}]}], "]"}], ";", "\[IndentingNewLine]", "best"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FT", "[", RowBox[{"F_", ",", RowBox[{"t_", "?", "NumericQ"}], ",", RowBox[{"M_:", "32"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "np", ",", "p", ",", "r", ",", "s", ",", "theta", ",", "sigma", ",", "tab", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"np", "=", RowBox[{"Max", "[", RowBox[{"M", ",", "$MachinePrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"SetPrecision", "[", RowBox[{"t", ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", RowBox[{"M", "/", RowBox[{"(", RowBox[{"5", "p"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"r", " ", "theta", " ", RowBox[{"(", RowBox[{ RowBox[{"Cot", "[", "theta", "]"}], "+", "I"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"theta", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"theta", " ", RowBox[{"Cot", "[", "theta", "]"}]}], "-", "1"}], ")"}], RowBox[{"Cot", "[", "theta", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "r"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "r", "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "s"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"I", " ", "sigma"}]}], ")"}], RowBox[{"F", "[", "s", "]"}]}], ",", RowBox[{"{", RowBox[{"theta", ",", RowBox[{"Pi", "/", "M"}], ",", RowBox[{ RowBox[{"(", RowBox[{"M", "-", "1"}], ")"}], RowBox[{"Pi", "/", "M"}]}], ",", RowBox[{"Pi", "/", "M"}]}], "}"}]}], "]"}], "/.", RowBox[{"ComplexInfinity", "\[Rule]", "0"}]}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Total", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"r", "/", "M"}], ")"}], " ", "tab"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "f"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"g", "=", "1"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ab2", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "+", "1"}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.788056192034629*^9, 3.788056199731413*^9}, { 3.788056244531969*^9, 3.7880562950806503`*^9}, {3.788056838528564*^9, 3.788056955669786*^9}, {3.788056987835147*^9, 3.788057066272481*^9}, { 3.788057118073531*^9, 3.7880572301351967`*^9}, {3.788057320483851*^9, 3.78805734106304*^9}, {3.788057372094355*^9, 3.788057388062233*^9}, 3.788057546823501*^9, {3.788057608132949*^9, 3.788057642618616*^9}, { 3.788057677608107*^9, 3.7880576943406267`*^9}, {3.7880578282190723`*^9, 3.788058090212081*^9}, {3.78805835497805*^9, 3.788058357360572*^9}, { 3.788058444487495*^9, 3.788058448405012*^9}, {3.7880588488492928`*^9, 3.788058851891403*^9}, {3.7880593051376657`*^9, 3.788059416149577*^9}, { 3.788059801371348*^9, 3.788059811596106*^9}, {3.78806059607576*^9, 3.788060658201324*^9}, {3.7880607113286533`*^9, 3.788060725934977*^9}, { 3.788060914221888*^9, 3.7880609157968493`*^9}, {3.788061085267823*^9, 3.788061205945606*^9}, {3.788061424313571*^9, 3.788061427342733*^9}, { 3.788061470307473*^9, 3.7880615217796717`*^9}, {3.788061574827039*^9, 3.788061576751183*^9}, {3.788061630405567*^9, 3.788061636112185*^9}, { 3.7880616879814873`*^9, 3.7880617488099833`*^9}, {3.788061807087852*^9, 3.788061809287177*^9}, {3.788061848459311*^9, 3.7880618891925592`*^9}, { 3.788062663838139*^9, 3.788062809853059*^9}, {3.788062843626727*^9, 3.788062878616061*^9}, 3.788062975953841*^9, 3.788063292045973*^9, 3.788063324600562*^9, 3.788063539105547*^9, 3.788063723620541*^9, { 3.788067659796298*^9, 3.78806777342837*^9}, 3.7880685529693823`*^9, 3.78806859955396*^9, 3.7880741847952623`*^9, 3.788074289881352*^9, { 3.7880744892816963`*^9, 3.788074554698209*^9}, {3.7880746065682173`*^9, 3.788074623214691*^9}, {3.788074660713984*^9, 3.7880746657555428`*^9}, { 3.7880747089182034`*^9, 3.788074861834564*^9}, {3.788074892677354*^9, 3.788074947810196*^9}, {3.788075094052971*^9, 3.788075128019041*^9}, { 3.7880752465852547`*^9, 3.7880753147979727`*^9}, {3.7880762942758636`*^9, 3.788076309273829*^9}, {3.788076413744184*^9, 3.788076545395049*^9}, 3.788076586160384*^9, {3.788076646714054*^9, 3.788076763960737*^9}, 3.788084941695026*^9, {3.788084981106442*^9, 3.78808498710632*^9}, { 3.788085071972089*^9, 3.788085184614349*^9}, {3.788085254822304*^9, 3.788085271182269*^9}, {3.788085323885532*^9, 3.788085332964841*^9}, { 3.788087258592862*^9, 3.7880872635614758`*^9}, 3.788087439171802*^9, { 3.78808756037947*^9, 3.788087563424889*^9}, {3.788088213438527*^9, 3.788088216804654*^9}, {3.7880884525861177`*^9, 3.788088466488627*^9}, 3.788088597668151*^9, {3.7880886818076553`*^9, 3.788088731338129*^9}, { 3.788088875660728*^9, 3.78808893004109*^9}, {3.788089009618414*^9, 3.788089098888692*^9}, {3.788089175934958*^9, 3.7880891778011713`*^9}, { 3.78808922692647*^9, 3.78808923102988*^9}, {3.788089264890517*^9, 3.788089273337569*^9}, {3.788089305556172*^9, 3.788089307296673*^9}, { 3.788089345188335*^9, 3.7880893475060997`*^9}, {3.788089389670918*^9, 3.7880894000298233`*^9}, {3.788089566469057*^9, 3.788089613602799*^9}, 3.788089699605945*^9, {3.788089738130728*^9, 3.7880897424898977`*^9}, 3.78814781638575*^9, 3.788157089469173*^9, {3.788157288458703*^9, 3.788157305396837*^9}, {3.7881707861650143`*^9, 3.788170790930197*^9}, { 3.788243928334834*^9, 3.78824394048555*^9}, {3.78824404914707*^9, 3.788244049928754*^9}, {3.788244136118635*^9, 3.788244140654496*^9}, { 3.7887686746645327`*^9, 3.788768684057474*^9}, {3.789193946929597*^9, 3.7891941518068533`*^9}, {3.789194248137947*^9, 3.789194290755478*^9}, { 3.789786128810161*^9, 3.789786139368631*^9}},ExpressionUUID->"f0cde5fb-e859-418f-9198-\ 297c5a070caf"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.789194292783045*^9},ExpressionUUID->"3b14167e-4e13-4da1-9059-\ b59bcab6621c"], Cell[BoxData["0.1`"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.789194296697309*^9},ExpressionUUID->"8fe8f72f-f3b6-4933-964f-\ 0b012796916b"], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.78919430689423*^9},ExpressionUUID->"07cabde9-4ecc-4238-9919-\ 31015d95235e"], Cell[BoxData["0.8`"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.789194316652444*^9},ExpressionUUID->"b1a510ec-1c99-418d-81eb-\ 54fa7d3cd464"], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.7891943266758003`*^9},ExpressionUUID->"c5e78234-2b17-472b-b9bb-\ 6e57e8b97779"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {GrayLevel[0.5], PointSize[0.011000000000000001`], AbsoluteThickness[ 1.6], PointBox[CompressedData[" 1:eJxVyVtI0wEYxuE/4UUYNBUNaaumqVTUSl3lsm3vNnXaYZYtMqhomh204RyD yMDVLqJlFxFCYd3UXOZsWaZJjVVmLUobzBM5M90km7VqFUsF0Qy/Gb7w8fHw iysozStawDBMysz9+7MLiOd/BvO9EOXu6Zn9IEdAd8Qe/O9oGPTqsYk5x6Ky lJ1omDMH/HVD/ZLJkLkoOF8Www6EHA/tMxNrpyvkBJRwZe/6q0JOAqfCxtcl h7wK5o6EiL03v5PXYJt6fZPX+428Fu3tvYL0cT+Zhwdt8TdyRr6SN6DF18fY Hn4hJyM/rP436/goOQVKwcS0J9xHTsW+qK4ilWmEzEehPCgOS/tE3ohc4znT AecweRNqtfsXLyrxkjdDUyP0tUV6yGlgF3Zdb704SBbAHq66EGANkLcg7ljl 8kCzm5wOV43ysL7iPXkrcjm/JrTFvWQhxk9G+b2nu8kiFKfs8OTd7SSLIW0R TXYzLjLQwFJWK/zOWZ8Fpoet9ddiOqhL4OipForK31CXYOWrgz2OJa+pS3FU 4Ug0f35JXQrPskbu9tEX1GUQNfAUgthW6jKkWvacivY+pZ6BM51luuCQjXoG gvfMkYNJj6lnQsi98vGn9RH1TFy9pNfWaZqoZ4Gv/eMeONFIPQtTwbGlbVX3 qcux61ad2tlnpS6HYcWU6tAHC/Vs2N8+v3x79R3q2TBa9JrmJ2bqOdhtFuXz jCbxXyr97Tk= "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"g=1\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], GrayLevel[0.5]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], GrayLevel[0.5]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0.5]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0.5], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009, 0.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], GrayLevel[0.5]], Point[CompressedData[" 1:eJxVyVtI0wEYxuE/4UUYNBUNaaumqVTUSl3lsm3vNnXaYZYtMqhomh204RyD yMDVLqJlFxFCYd3UXOZsWaZJjVVmLUobzBM5M90km7VqFUsF0Qy/Gb7w8fHw iysozStawDBMysz9+7MLiOd/BvO9EOXu6Zn9IEdAd8Qe/O9oGPTqsYk5x6Ky lJ1omDMH/HVD/ZLJkLkoOF8Www6EHA/tMxNrpyvkBJRwZe/6q0JOAqfCxtcl h7wK5o6EiL03v5PXYJt6fZPX+428Fu3tvYL0cT+Zhwdt8TdyRr6SN6DF18fY Hn4hJyM/rP436/goOQVKwcS0J9xHTsW+qK4ilWmEzEehPCgOS/tE3ohc4znT AecweRNqtfsXLyrxkjdDUyP0tUV6yGlgF3Zdb704SBbAHq66EGANkLcg7ljl 8kCzm5wOV43ysL7iPXkrcjm/JrTFvWQhxk9G+b2nu8kiFKfs8OTd7SSLIW0R TXYzLjLQwFJWK/zOWZ8Fpoet9ddiOqhL4OipForK31CXYOWrgz2OJa+pS3FU 4Ug0f35JXQrPskbu9tEX1GUQNfAUgthW6jKkWvacivY+pZ6BM51luuCQjXoG gvfMkYNJj6lnQsi98vGn9RH1TFy9pNfWaZqoZ4Gv/eMeONFIPQtTwbGlbVX3 qcux61ad2tlnpS6HYcWU6tAHC/Vs2N8+v3x79R3q2TBa9JrmJ2bqOdhtFuXz jCbxXyr97Tk= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 1.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], GrayLevel[0.5]]}, { Style["g=1", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-0.10000000000000009`, 0.6}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.7880849450918427`*^9, 3.788084990617097*^9, {3.78808510278067*^9, 3.7880851297251987`*^9}, {3.788085162283279*^9, 3.7880851897150393`*^9}, 3.788085275652676*^9, 3.788085335355742*^9, 3.788087279240625*^9, 3.7880873338610353`*^9, 3.7880874419643383`*^9, 3.7880875749060707`*^9, 3.7880881470273952`*^9, 3.78808824290841*^9, 3.7880884698690567`*^9, 3.788088606172039*^9, {3.7880890349440613`*^9, 3.788089060186407*^9}, 3.78808910628754*^9, 3.788089308545034*^9, 3.788089353999997*^9, 3.788089410047101*^9, 3.788089615380596*^9, 3.788089746633047*^9, 3.788147848873322*^9, 3.788157121877664*^9, 3.788244071377635*^9, 3.788244143920555*^9, 3.7882572562923307`*^9, 3.788299587775811*^9, 3.788768688649522*^9, 3.78919406133892*^9, 3.789194154461685*^9, 3.7891943357648153`*^9},ExpressionUUID->"707e5370-d2f9-4433-90d5-\ d116e185779b"] }, Open ]], Cell["\<\ We saw that the solution constructed for sink placed at the minima of the |x| \ potential, it satisfies all the solubility, initial condition test, and \ spatial boundary conditions. Let us compare with the numerical results for \ now. And then proceed to calculate for the arbitrarily placed sink. Following \ are the numerical tests: 1) Compare with Swapan Gosh inverse Laplace \ transform, 2) Compare with NDSolve.\ \>", "Text", CellChangeTimes->{{3.787888299301597*^9, 3.7878883308749332`*^9}, { 3.787888384314559*^9, 3.787888450832822*^9}, 3.787888615293911*^9, { 3.788055963380858*^9, 3.788056017340102*^9}},ExpressionUUID->"73ba6bc7-0eb3-420e-9aeb-\ 518339f380f9"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Protect", "[", "ab2", "]"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", RowBox[{"k0", "-", RowBox[{"d", " ", "g"}]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"RealAbs", "[", "x", "]"}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "-", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}], ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P2", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"RealAbs", "[", "x", "]"}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Qt", "=", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "+", RowBox[{"Abs", "[", "x0", "]"}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "g", " ", "x0"}]]}], SqrtBox[ FractionBox["1", RowBox[{"d", " ", "t"}]]]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]], SqrtBox["2"]], "]"}]}], SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "g", " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]], SqrtBox["2"]], "]"}]}], SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]]]}], ")"}]}], "+", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]1", "+", "g"}], ")"}], RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{"d", " ", RowBox[{ RowBox[{"g", "^", "2"}], "/", "2"}], "t"}], "+", RowBox[{ RowBox[{"\[Epsilon]1", "^", "2"}], " ", "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"(", FractionBox["1", RowBox[{"\[Epsilon]1", "-", "g"}]], ")"}], RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", RowBox[{ FractionBox["x0", RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]1"}], "]"}], "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{"2", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]1", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]1"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]1"}], ")"}]}]}], ")"}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"d", " ", "g", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", "b"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{"Qt", ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p0", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "+", "2"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P2", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "+", "3"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"S", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1000000", "/", "\[Pi]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000000"}], "*", " ", RowBox[{ RowBox[{"(", "z", ")"}], "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dThick", "=", "40"}], ";"}], "\n", RowBox[{ RowBox[{"dTime", "=", "50"}], ";"}], "\n", RowBox[{ RowBox[{"eqSimplee", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{ RowBox[{"RealSign", "[", "x", "]"}], "*", "d", " ", "g", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "d", " ", "g"}], "-", "k0"}], ")"}], "*", RowBox[{"S", "[", "x", "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"eqInie", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "0"}], "]"}], "==", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1000", "/", "\[Pi]"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqBlefte", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{ RowBox[{"-", "dThick"}], ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eqBleftg", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"dThick", ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mol", "[", RowBox[{"n_", ",", "o_"}], "]"}], ":=", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}]}], "}"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eqSimplee", ",", "eqInie", ",", "eqBlefte", ",", "eqBleftg"}], "}"}], ",", RowBox[{"{", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}]}], "]"}]}], "\n", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07"}], ",", "1.03"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Dashed", "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p3", ",", "p4", ",", "p1", ",", "p2", ",", "ab2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p3", ",", "p1", ",", "p2", ",", "ab2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.786234512085548*^9, 3.7862345247351837`*^9}, { 3.786234621517902*^9, 3.786234622088496*^9}, {3.786234761565926*^9, 3.786234838263521*^9}, {3.7862348841658077`*^9, 3.786234886681718*^9}, 3.786585785246129*^9, {3.786585827129085*^9, 3.786585830120859*^9}, { 3.786585867458398*^9, 3.786586075075933*^9}, {3.7865861109798193`*^9, 3.7865861236507196`*^9}, {3.786587311667014*^9, 3.786587320793603*^9}, 3.786587495655919*^9, {3.786587971691868*^9, 3.78658800432727*^9}, { 3.786590302131323*^9, 3.78659032200646*^9}, {3.786590443337406*^9, 3.786590587520706*^9}, {3.7865906610093393`*^9, 3.7865906946907663`*^9}, { 3.7865907363955307`*^9, 3.7865907602025127`*^9}, {3.786590799319624*^9, 3.786590874998519*^9}, {3.7865909665617867`*^9, 3.786590998211128*^9}, { 3.7865911432841682`*^9, 3.786591146635816*^9}, {3.786591188896797*^9, 3.786591252736274*^9}, {3.786591321583304*^9, 3.7865913613655787`*^9}, { 3.786592691541176*^9, 3.786592735926796*^9}, {3.7865928010657988`*^9, 3.7865928021797028`*^9}, {3.786593324790238*^9, 3.786593352475008*^9}, { 3.78659389487425*^9, 3.7865939403184566`*^9}, {3.786594001356838*^9, 3.786594005621223*^9}, {3.786594648023904*^9, 3.7865947058825006`*^9}, { 3.786594857068789*^9, 3.786594860964031*^9}, 3.786598953028186*^9, { 3.787888759140098*^9, 3.7878887663705473`*^9}, {3.7878888629783697`*^9, 3.787888964300095*^9}, {3.78790587939181*^9, 3.78790588121846*^9}, { 3.787907188175215*^9, 3.7879072026626863`*^9}, {3.787907259399053*^9, 3.787907280676426*^9}, {3.787974674460191*^9, 3.787974684014986*^9}, { 3.788067802253969*^9, 3.7880678251061907`*^9}, 3.788067869678789*^9, 3.788068643920993*^9, 3.788068764080475*^9, {3.788071480530313*^9, 3.788071494084299*^9}, 3.7880716234149942`*^9, 3.788089200031513*^9, { 3.788089763400683*^9, 3.788089763988603*^9}, {3.788089925713738*^9, 3.7880899406488237`*^9}, {3.788090066495439*^9, 3.78809006713629*^9}, 3.7880902242451887`*^9, {3.7881477030794153`*^9, 3.7881477067281237`*^9}, { 3.7881477802655888`*^9, 3.788147787357782*^9}, {3.788148001336527*^9, 3.78814801073829*^9}, {3.78824456818996*^9, 3.788244571954259*^9}, { 3.788252403868958*^9, 3.7882524071832743`*^9}, {3.788252455970817*^9, 3.788252688485714*^9}, {3.7882527463985443`*^9, 3.7882528425822477`*^9}, { 3.788252884167048*^9, 3.788252905743249*^9}, {3.788252972034357*^9, 3.788253022082547*^9}, 3.788253077461918*^9, {3.788253127004387*^9, 3.7882531458089323`*^9}, {3.7882533616893663`*^9, 3.788253364633855*^9}, { 3.788253424262909*^9, 3.7882534352846127`*^9}, {3.788253802023301*^9, 3.788253841015147*^9}, {3.788253880551792*^9, 3.788253890369608*^9}, { 3.7882539295248327`*^9, 3.7882539515248423`*^9}, 3.788254193832465*^9, { 3.7882542344808273`*^9, 3.788254353719159*^9}, {3.788254664987286*^9, 3.788254671402973*^9}, 3.7882564397779016`*^9, {3.7882565065040207`*^9, 3.7882565130428467`*^9}, {3.788256547943963*^9, 3.788256571839779*^9}, { 3.788256610154553*^9, 3.788256615744955*^9}, {3.788256810785593*^9, 3.788256818781505*^9}, {3.788256852180307*^9, 3.7882568749853487`*^9}, { 3.7882569063541193`*^9, 3.788256971079167*^9}, {3.788257007151318*^9, 3.788257009323401*^9}, {3.7882570590527763`*^9, 3.788257070851548*^9}, { 3.7882571056808853`*^9, 3.788257232669517*^9}, {3.788299375009295*^9, 3.7882993998572197`*^9}, {3.788768402756022*^9, 3.788768450014387*^9}, { 3.7887685221036158`*^9, 3.788768628195365*^9}},ExpressionUUID->"a974d6de-e232-4606-9464-\ e35ed9522bd1"], Cell[BoxData[ RowBox[{"{", "\<\"ab2\"\>", "}"}]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.788768709399472*^9},ExpressionUUID->"a614dc93-2352-4841-b77e-\ 970d67fd0ad1"], Cell[BoxData[ TemplateBox[{ "ClearAll","wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"ab2\\\"}]\\) is Protected.\"",2,132,40, 24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.788768709415513*^9},ExpressionUUID->"f3bb6877-74aa-488d-bbc1-\ 942cb2044f46"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,149,41,24554672211970007265, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.7887687102739067`*^9},ExpressionUUID->"d246718b-5547-42f5-897c-\ bc18bf1146a3"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"3.281871665621295`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.2731284085919573`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"9.462523666450841`*^-7\\\"}]\\) for the integral and \ error estimates.\"",2,149,42,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.7887687102984953`*^9},ExpressionUUID->"5245eed9-393e-4542-967d-\ 8101ee7a4a9e"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,149,43,24554672211970007265, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.788768710319344*^9},ExpressionUUID->"98304d6a-2669-4e7a-889c-\ 6a561f527636"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"1.9537466656212952`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.24912646398682714`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.000016934495345104338`\\\"}]\\) for the integral and \ error estimates.\"",2,149,44,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.78876871034461*^9},ExpressionUUID->"e442d955-4406-4c56-8efc-\ 9c4fa0114166"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"0.7037466656212952`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.23315193410975427`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.0002451476140426359`\\\"}]\\) for the integral and \ error estimates.\"",2,149,45,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.788768710367515*^9},ExpressionUUID->"9f1b5545-e520-4182-a3df-\ 1c01254d6eee"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,149,46,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.7887687103903847`*^9},ExpressionUUID->"f4ec9d5e-e521-4929-95ca-\ 6ef89ea51f52"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.0000000000000524`", ",", "0.9999999999997369`", ",", "0.9999999980730327`", ",", "0.9999996516994448`", ",", "0.9999900598002062`", ",", "0.9999056175448869`", ",", "0.999525148885253`", ",", "0.9983997569030303`", ",", "0.9958814068749031`", ",", "0.9912364886817516`", ",", "0.9837803676706719`", ",", "0.9729820907018345`", ",", "0.9585201905449122`", ",", "0.9402934771041296`", ",", "0.9184003152171754`", ",", "0.8931006804976`", ",", "0.8647722212256005`", ",", "0.8338676890218583`", ",", "0.8008777962972222`", ",", "0.7663011921372003`", ",", "0.7306217544188631`", ",", "0.6942925660714648`", ",", "0.6577255633404001`", ",", "0.6212857417636173`", ",", "0.5852888591628819`", ",", "0.5500017042969325`", ",", "0.5156441560860541`", ",", "0.4823924138783565`", ",", "0.4503829200645699`", ",", "0.41971661668749904`", ",", "0.39046327647048057`", ",", "0.3626657273116824`", ",", "0.3363438502781195`", ",", "0.311498277339656`", ",", "0.2881137492786061`", ",", "0.26616211887742225`", ",", "0.24560500174555405`", ",", "0.22639608874886188`", ",", "0.20848314136390533`", ",", "0.1918096955128602`", ",", "0.17631650141307645`", ",", "0.16194272736632273`", ",", "0.14862695472228166`", ",", "0.13630798985650677`", ",", "0.12492551718268535`", ",", "0.11442061517365877`", ",", "0.10473615523769962`", ",", "0.0958171011842845`", ",", "0.08761072498244872`", ",", "0.08006675260587023`"}], "}"}]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.7887687119523563`*^9},ExpressionUUID->"731eb57d-21e3-4689-b79d-\ bea53bb293d0"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"Q[t]NInt\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, 2.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 50.}, {0, 1.0000000000000524`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.0000000000000524`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 1.0000000000000524`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Q[t]NInt", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-1.1, 2.6}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.788768712169816*^9},ExpressionUUID->"6d7c792c-9b43-4f61-b62c-\ 02bb47da6441"], Cell[BoxData[ TemplateBox[{ "NDSolve","mxsst", "\"Using maximum number of grid points \\!\\(\\*RowBox[{\\\"10000\\\"}]\\) \ allowed by the MaxPoints or MinStepSize options for independent variable \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\).\"",2,164,47,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.7887687122274027`*^9},ExpressionUUID->"ce770f79-29f9-4cd1-9b93-\ 4ca752f4ff05"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "\[Rule]", RowBox[{ TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "40.`"}], ",", "40.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "50.`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "40.`"}], ",", "40.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "50.`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-40., 40.}, {0., 50.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False], "[", RowBox[{"x", ",", "t"}], "]"}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.7887687157963533`*^9},ExpressionUUID->"5ad150b7-c66d-44ec-aba1-\ 7bc94d80db10"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1nXk4Ve8ahqk0SZlSIiFJkXme9jKGlJRoLpkqKVFSNElJITSpVNI8z5ok lUhpUJIypEkTEZImzs+2nteync4/57ru853l3ffe3r3W43u/lGYtGOfTSUhI yF5ESKjzf/9tcEz8cXOzTWb41d97tn5/YCnE/ifTobdioopVB77tYb9yh0Tz DvyEqNSqgGLDDvwW/zo6Hfhp/nrVDvwCn8sQfyQXLP++/O2O1v+1y3XB9Smt 6xlBfrD1+h349dZ6OvAjrfV34Imtr7cDz2j104GzPv/FM9eqLbzhlNiLEUpZ ouPi0DQEnsG9w8a/W1Dvqg7P4J/Kl30tfHhPC57BG/rtDz52gqcPz+BODpcK si4eMoZncPnbzn65nd6bwzO4ZU9mjcn3dB48gzfNUT+53CzGEp7B4yM1l/z1 DzSFZ/B7U/qF5KwUM4Rn8D7dPL/ILN6lA8/gcbcLRqm7Dx4Bz+CBz28EPXA6 rAbP4I99ln1xnjZMBZ7BS/1j8qX2P1GA59iwrEeOifKMEHMhvuvwpxrwDD7s 4us+suY9deAZfOMoxsf42Qx9eAavWG3xyVbhpBE8gy/xKzSLXfTZFJ7Bs6+/ 87ER+2gBz+BZX49VTlI+S57BS6MLFsfHqvPgGfxqz4g4f6MZ5vAMnjd0iEav 88NM4Bk8SMZfemDDKwN4Bt+g+FC684+NuvAMfrBik7DWen0teAbvVb1yYaJa sTo8g78ZflTUyHXfUHiep/Nx0KWAIYzQEbHC1PPLtOAZvGRDxfFmv1F68Axe oXxr6MAMPUN4Br89Qq/XVV9JE3gGP76w/4kKmedm8Az+Yu4E48SudpbwDN41 Kf7g8twD5Bl8yd97C651mkSewe3F9/3eKzrEAp7Bey7SWbrba4EpPIMPbvy6 9c/ZLUbwDP7HPlF4WfRpfXgGVzBfJhzsd0sHnsGP2d0csnfGE014Bp/68mTh C+e/w+FZYshXD8dEDUZo9pcvTgVuOvAMHpaVKFdiV6gPz+ALfg/wFdk7zwie wWUSiraWzmwgz+CrdUJXSXp4mcMzuH5TdkhI3ELyDP4x36P2w48d5Bn8tv2u r5vuzybP4GIPSivlh20lz+BbB4s0jio1MYNn8AaJG8d/GF00hmfw+HW+8+9M UjaEZ/Dl11ZHmGVF6cEz+HpXN9WYMZ+14Rk8/O6y31GO3iPgeUqvXzkBxTqM UOXWD5VnVHXhGfzH7J0BD8ZuM4Bn8Dfx5oVnxKWN4RncJftGlPy15abwDP7h y3ip8alXyDP4i0U/LW5vjCLP4PK2+32T4+LJM13n8+y5f8oDyDP4WPuiPCv1 F+QZ3GLZnKZatQvkGXxx84vlumvcTOAZ/Ptyl092H4rJM/ik9x6hG6Im6MMz +IkBfm/UbubowDP4Oa3uRV1TXfA5z9Ts+vdtWoABIxQYWtDJKYc8g1fPDtu4 22aYITyDV+6conW4bjN5Br8Xpt5127w35Bncy95/VJFWA3kGn2xy7fvJ/M3k GVzKLFpq+Py15Bl8XExI2POIeeQZ3HNNoY15766W8Aw+9Kfc1qpXfczhGfxi z8lNUywekmfwu0VPhmssmWMEz+Bau2TcsnXryDO4xrbFY/XLFurCM7iad820 pnfCWvAszH8dJv/db1yzKfMbpA/P4DFiFb+qU1WM4Bk846aw+eHnJibwDF6k 6pE95761GTyDTx9t+nr3TmULeAY/7VK2MH//DvIMfq8x9PCk3uHkGVzNKDxG vcGPPINHrakNltNWIc/gAx98FXKWm06ewaMzzr5YozvNFJ7BnwrFDnn9wdEY nsFlxlwv9s3TMYRn8PeLB+Q/KOmrD8/gjQVFMbbjxPA5zyz42Une8b/rCd19 kCQqspk8gwcYHWt8GBZLnsETne0i5i9IIM/gB5VH39qdtpo8gztZB7ruabYi z+APEhSyJGSTyTP4Yf99qXvXBJFncKlDF1Mc02eRZ/AZlxUnjp5pTJ7Bn3RR GuUuspk8g5cVu8l3SzpJnsErFJfuFNc5RZ7BtZ9c1ZwtvJ88gxuPDpknkZpI nsGVyiZ59/uYQJ6ftnBJhhGa+fNp4JYa8gx+LHNN3I3v5eQZ/N3g/B6WGc/I M3jUzbiye0vPkWdw3T/Ns9dPn0iewX2T8vv12bmLPIN37ZFaKpwwmzyDf32R 1D1YYip5Bn/5au7a6sH25Bn87u++z8aPTifP4Ip1tabrxarIM7i4+4wk6/l/ yTP4sPd5hU2iTeQZ3NND9N4fse/kGXzv5uy60PG/yHN6SJdjAcVWjJC2dIPZ WZ4BPIPbqWf08Jk4xBiewXOL99nnKfYxhWfwmhMr7e0kX5Bn8GJLW/OsmDnk GVyteaGMvFpb3wC3vDU/NcN5JnkGn3ym8OHjSDfyDJ564dSTUs+x5Bn84o3Q +MM3S8gzeHDxpYm1zxTN4JnWp5SvbtjOM4FncM26alnzGkcjeAbP+h7x+kuq kwE8g3sq7uinEOGOvp15sE7EOPGADSOkNsjrdlwUeQY3vK8TxRR5k2fwQX1+ SI2TtCLP4CbhlX4fev4iz+D+U6Ye2tS8mDyDCx8RdRe9v5U8g+vvj3wddHoC eQY/kTTzZKrfaPIMLhFkXXX3hht5Bh9d7XfuwOoG8gz+uapwbKcro8kz+Hlv 0R5KesvIM3ijq3NIoH8CeQav9fh2OVtiJ3kG37FQunsft5PkOS6wW3ZagB0j ZDxEXbo+hzyDfx98fESSUzJ5Bp98e8/UZ5v9yTN4QbCe3AWXvubwDD4vUflK iMkq8gx+9e/vHd0MEskz+MxDU3IOyowmz+C3veLf7T9oS57BtavnLjwzy4M8 g7u4N9tl2vaygGfw5r3zH485G0yewXlnFc33pp4iz+B5IxQWDvryiDyDv/0b ty/99BvyDH65vnxBvmUXPXheUtXdrdhw5H/P3T4Tg7xkDeEZfHHN/nDN98/J M/izY9G6Bm82k2dwlYnjq/xiNcgz+PeY7p+CjdaSZ3AzKe81aptiyTO4kUrF fqVkG/IMbvx6357PW83JM/jjkGedumpNJM/g+7IkO8l6DSTP4If3bR7/tHkr eQa/a1XmOzjsLXkG9xiv9WbhsAHG8Awec3fm5EMb7A3hGXx4Sde7ZZdWkmfP uT3fNDc7MELhuolJ1yaQZ3DRMbecfR26m8Az+GA3Lx2PyxfJM/ik8lf3VPoz 5Bm8WnpqaLpBNHkG36B67n4f/7bnFPBhhi/TdOeakmdw1RuRqSeO6pFn8Kzq ztPqFrd9nsGVKvJn8wyGk2fwXbmvv2j6nCfP4EVbhg5Y5CJuCs/gWrIFp47s Hk+ewbO7bs4MKtpInsGbOgnn6a/I01u2tE+jQ6J15uKIe3ucE//wCn8aGKQb 6Q6Gf3Chooe3FYrODWLXM+Brl3RfIiSxaQCuD55pOr8/IyHeD9evPN5jV4Cc A/NKcp6FwXJJY1wfXCgwMmSzo4Uhrg/eg5d7VFQv2gAc9X/vultdtfkAeId8 Fev/wel9/KNspjXywTDUQz9XuEvn38JnzugVSYh7qzjaZLoZLp82NrGSZ9Lj 5qfhsxqkWc6Ap5jfvVnq7tcd61VFN2SkxTow4TM9ov0GnTbCevDUYzbqKaJD 0Gfo+kITAw8ZZ9pJYr1g/bg+6mf0TruW9b9ihPpx/XNKu5MWpGVS/f/Kb/Fz c8vTtLVOpImgHlxHKDBuWcJlJ0PUg58baxP1eMsbHYOvW3oXNq9sy3V/9Et8 dNvfRd2luf/l5maLDj8XHOsvqpXoKsllad0qkM5qbjbumKuzHOu7VNut/3xf j72v0/vH69Kj9ZP5+fA247H8nzuiw3pwrL+rUjdAM/KRuSH/OoNp/Sd+Pn97 BzjWT+3Vkicn84z4XIrWj7n8LvSu9+sd4Fi/r/nO7UT3K2zfKE8XrEevdX2H 9x3rcZ16Nq/GevAzfD7VUr+1zg7XAcf6UH6+PdZ0TKuHDuvBsT4rMiHp2aAG g9br6P3j+nq0Xpifh2/Uudn6PnZYD471c+pzFdLU+49o/bkW/6jHoi1Xf91H ZkDoPjX2c9hhPTjW95IVHbNfR1UFn1vKjVe8r9pa31UHn0/wM8Y1oz6/8tDH 5xDcZGG2xBfdVCN83ihX5+fkL03xuQKPivOPqe3xxAKfH3CNEZVfJykn0OcH fFqJifim5pP0OQF/yubneN/BZ8e38N/0voNv4efqPHO8j+B3S+WUHO2lTPB+ gXvxc/VHBnhfwMcWCFV5LlutC//glS88IuzzNLXgGVzxm8vgVbefq8Mz8t51 V+akNf8aqQfP4Cv0919T3z3CEJ7Bw37yNs0W6mYCz+Bvglpy8hwzeAYv3LzK rThayxKewe8Evdq3IjeSPFOO7TLmxFjHVPIMPp/Nz+EZfKJf6X98GA+ewbvL tOTqIhbwDH6r3/sBaRs8TOGZrsPP1SON4Bk8aN5vpvLifn14BjecbBShseua DjyDf5XvYXVc6rEmPCPvrfFXTFJc/lQfnsG9eFt62S7xMYJncJXMMb+lf34h z+Au01ty8vHm8AzOO2Z97uyEyeQZfNBx7YHffywlz+AZtjl6svLbyTP4VTY/ h2fwx7bmdZvuG5NncOfOryrlhy0mz1T/986/Gn0Gm8EzeH+5llz9oDE8g6do CN0zrJExhGdw8zGv92k8Xa0Hz+Cjc6L3Xe3yQRuekfeWyn24cX7dZgN4Bl/3 brJVD9nexvAMLv3recG3LUGm8Ax+PGeC1PjUo+QZvHZ+2IInRxaSZ3A1JYfL N+ICyTP4qqaabTs+xpJnqpPNz+EZvHzsqlt/yi3IM3HvD3lW6lfIM/jMLnuX z7PYQ57Bx8m9XK67xtYEnsGz0/LPbgzMJ8+Ut3+1enl4yFh9eAYfbTQgu3Nu Fj7nlFc//y36cpicqiE8g59e3SNnWVUseQZf8SQt6lq35+QZ/Hr4olFFWhXk mXLv6yFNkVeXk2fwzX+T/6bM9yHP4L3v1sWEHVhDnsEd2PwcnsFnDxZ5/yLC nDyDdx9saGveu4I8gyd6PNeq/fCDPIOvCWzJ1TPIM/i141EGPwpmGMEz+Ilv SiuG5VWSZ/Ab2Q9iim0X6MIz8t7Xo6J/J/RWNoJn8PPvOwdc99QzgWfw0H0N RrYrjMzgGVwybO3r3TslLeCZ8mr7TzalpmvIM/gUF6cJsX2mkmdwhd2u6t9E l5FncEU2P4dn8BST9Z76DUbkGXy95J0QOe0ulvAMXpH0XGjpFntzeAb3P5fx Yo3uaFN4Bn8SEnapUpsxhmfws2f2OO48N9wQnsGVh/6Q0VeSgn/KqzfWbJGd kBdNnsGLXBfcHjJ0A3kGX5n4S9dOJYQ8g+ue2DhuT7MOeQZPlpfq9lByLXkG 19wd8qgmchx5Bo9PmuhQM30heQbvxebn8AzeOO5n/fR0XfIMXn/Z23f0zP7k Gdx2pd1C4fXh5Bm8vFewfLek3eQZXPxZ4sxjZankGfzWW3l7+Yhk8gwes+aD 5aPR8eQZea9Jgq9Jn1Ol5Bn88QSfqFNjHpNn8FMngrdZ9D9MnsF/zd8TsH66 A3kG3/KSZxJ7PpI8g+fZ9nJJ2uxAnsFXT1jypJHnR54pt2fzc3gGj9eYsS5T QoM8g4eWlp2uHqxKnsFlutSVN5kcJM/g2x6NMFsvVkqewW1e2u/95F1LnsHd qxWUmtc3kGfwwMpcbYt5teQZee8nn3WzJ55UNoZncNvrvQ12TOxmCs/gItNe JhW6PyLP4PGeDxyyYiaRZ/CXagW9ZcsiyDN451JxnwEuDHkGrz8qn/ZBZgZ5 Bh/P5ufwDP4x6EOYzVoV8gxuerxOrcxTmzyDJ/79fcoi4Q55Bp8o+mNi7TNx M3gG317Ek/iVoWcCz+Aye5dJjVhkYwTP4N22j/OJGzOSnq+R95YnjAoxtphF nsGNR8orhO0yIc/ga49m7ntsX0Oewd9Y+2VuavYhz+BiqT4zXSauIs/gK+8c qFt/3oA8g7v3H36m6ZEbeQZPZfNzeKZ8O2Ha8DuzB5Jn8LHD3X/n3tAnz+A5 xUEbzF6Xk2fwt+uOuHa6YkGewaWYmwfrZwSSZ/CHa1aeVVPaQJ7Bv2k8fR37 aBt5Rt679cb3oXY3k8gz+LXDp0XKT3mTZ/BCjW0q+/b3NIdn8FO/br4NMQkk z+ADvR+e2usSRp7BRXwMji0dOII8g/e07LRxbXdn8gyezubn8Ex5+3ZDpy+H pMkzePL3kn7nZxmRZ/DPrg+ZeL3v5Bm8+oJX/pizXuQZPNAla+3+IfvJM7jY uE9bPGpyyDP4cIVpYncmlZNn5L17gvqcXP+xgDyDXz8am+fyNJY8g8uu7t04 s0iJPINf1bCcsshoMXkGz/tW/CFUPYQ8g/fNWRF2Yt9g8gx+a/l42T/frMkz uCabn8MzOKPtdHtTUi/yDC4+dO5aUS1j8gweVyxWOq5nVwt4Bu/RtbP70+a1 5Bm85J6uVeWkIvIMnrP58Zy+e6WM4Rk88bT0JtcrNujblBPmfSpa52vYyQSe wcfdyvOxcjpDnsHVf6aLaCrok2fwU55lS68bLCXP4P5636b4x7c9p4AP2JFd 8itoAHkGt49yqVdKNCHP4IPY/ByewWd+UY62ONGZPIPXpP3W/ru47fMMXuA5 4Eb1YSnyDJ506Hu1ps9+8kz5f2mykqtXF1N4Bo+KOtl1+bzR8Jx5WXP+fmGh HoyyyfLCw1+dKOf8oO8fdTlApEOeKWM2239BsXCH3HI9m5ML5pNv47J8rwZ8 5wnmkEvZnNa7Z/u8ceaeNy89Ekt4TnNbcz/4DL+6a29LDrZ65hTbbX/djeDz Olt/t9kJ8b/T55nC52e2/rf8fK+rIXz2Y+sPPiA/XnNYgg58RrD1J/H3tUqN gM9itv49/FwuQQ0+g9j6v/D3tfag/O1w0y2rIbkDOuRvGatvnhcSku2QvxV2 yRxSYtivQ/5WFZWx/VJAXyZaIH/rInq9x+YDUoyvQP42IO5a2PxiCeZJTcs+ 1bb8TUfiapWjpDhj4PtKfdTEtpx20z9y16Ns/WpX7dvlrpls/TuP/HjVzMlX Uf9/nWawk8JvylG/sPVP/vG7yeRHmC58dmLrvyESGGGfp6AFn7Js/br8/avX kLMxqF9WvWX/6sKh8Pwz6EORSrRKh/wt8kJFQuKBwYyXQP4m3vDeSShTmeEJ 5G/JRu87zy9WYq4tbJ+/DV36Lr24QZHxVWyfv527+naxo6QikyUtdWw5J38L a7wzbf4UBSa3cqesYt9T5DnxHznnL7b+mpd+Idyccy1bv/lMy03cnBP1H5IT 1eTmnLvY+re47xRR4uScqmz9mqXnJj3m5JyoP3Tq/kyRb205Zzhb/5KS9Nw4 Ts65x7dK/NJJ9Q752/AjlbkqucOZnebt87eLn75EJL4bxsy52D5/s1L/YiYk NIyJ02mfv+XN+1wfIKfGPNs4vF3+NvHUp5PFhkOZcVHfP3/i5G9vqz/6Oo5T ZWKuXRN/79mWc87/R865l62/6GevpdycE/V/5Zn/4eacaWz9B54ZKHBzToat vyEi9So357zP1p8o5Bn2lZNzerD15x1yGeTJyTlRf+UKOXtuzql8cukBlTkd 87cPo3+uKm7QZma8aJ+/nfwaOi0xUpsRKmmfvwVvajRxlPxvfdX4dvlb0Mwa DSFGi/mkvHo+N3/7u6/6fcAUTWbkwPCEo5z8bf3br3uKQ0YwLmFp7+drt+Wc 0v/IOVH/3RPn7OM5OedHtv5xlx9VcXNO1L9z7tx2OSfq73xa8wQ35wxk6/ef sLpdzvmHrd/MlUnl5pyo3+lu+5yz/lB4ZsBv/Q7529WRf5JVovWZ0Nnt87dV H8OWFsvoM8yU9vmbffTvCYkH9JgR3v7t8jfR4WG6jrp6zKwRO75x87f8e796 C2XqMvLfn6QFcvK37f7LvqSN1mU2+i9dcKS0Leec+o+c8ztbf+PqH0+bODnn Nbb+QNtnj7g5J+rvNddgBTfntGPrv13VawU350T9Jcu+tss5Ub/OvfHtck7U v1Ag58xJWVmSFmvMvBLI32Ktmi8HyBkzE12F2+Vv49+s2Kpy1IhZWlvZLn+T XdO0sNjQiDFYZNYufysbvGJMYpYhE3B6gjw3fzuQ9Xe44zhDJm15SthITv42 12d5N6FyA8bne9gImVVtOafWP3LOu2z9l+MixpZzcs44tv7MG4ou3JwT9c96 5a3PzTn7s/XnfbHqP5WTc6L+aL2z5Y2cnBP11264bjSBk3Oi/q6fQnZxc86d OyMamweZM+sE8reZZp2epZ00Y6K6zW6Xv6mWrD4bYGbG+HV93S5/qwwXjlPJ NWUyxda4cvO3swNXzy12N2WUQnesfsDJ35ZkCI1MfGfCqN8KGvuUk79ZzFg1 2DHIhOmlv7XX+MtLyXOnf+Scu9j6hd7dKGc4OacnW//LyGXx3JwT9Ze9HCfC zTm/sPXHli8p5eacqN/amrnCzTlRv51RzShuzon6pw1rn3PO27JW2vEcj9EW yN90DUS+NfN4zMe+09rlb43PIh+kPbBkitIM2uVvGS15yBRLRuds7Bxu/hbZ L3Kdyqf/njs9X4jEcPI3p8udvYpDLJjO85yNDnDytz6T1vASu1gwTV0S7S9J teWcz/6Rcwaw9U98lDQjkJNz6rH1Xz7f/SQ350T9527eWcrNOVG/8oFOityc E/WH29Z7cnNOR7b+nnJzRnJzTnG2/qmR7XPOQSNt+zumWjGvBfK3iJbrz7Fi zBb90ufmb+8/3K5v1rJiPldotcvfHFp+bgPDOIZutuTmb8fX2+SnXWeYA0ON G2U4+VvvlnoiGebn3yKpCZz8beGw2ycDRjFMhW7xKc0c3/Z58v/JORXZ+mcn H734npNzon75B/U6NZycE/Wb6rt/5uacqP/1t/eW3JwT9W8pCkrh5pyo3/D2 13Y5J+pXqmqfc3bPsjsU4G/DFAjkb/4tnxNdG+aO1feB3PztofedCJWf1oyd qmi7/E2n5fNzw5q5X5lygpu/bRGxm1G8zpoJ84ta4czJ3360fK5GWzNniu76 Dr/Qlr9NPpRllihtzSws7ZeTM3U6eb7+j5yzB1t/jcYEsVmcnBP1f5x3q5yb c6J+VZ2vGdycE/XH8JqmcHNO1N8Q8lCSm3Oi/oRIW2luzon6KwVyzm/MSP1E fTtmhUD+5iYRlRrw25bZ5RDeLn+79Dpb3PGWLXMrw1eZm78NONd1pUq0LaPe VS2bm78tj7CvanaxZY5nnVfdwcnfysetm1IsY8u8/7zrS75CW/5mMzg7N63U hunad/ftMpu2nPPQP3LOWrZ+7byuUp85OSfqjwi9sPk+J+dE/V+3+u/h5pyo /9jWlRO5OSfq91ZRPczNOVH/hZDd57g5J+rX1Gyfc7687nAr7a89EyCQv1nE rddOzLJnth4suc/N31Km390TsNGeUYz7Wc/N3zprdRdzHGfPmH0/LMXN33yb R4apyNozlYtnHAvi5G+5j6I+Nb+yYx6/ubHue2pb/qaRkuNRfMiOSXWZfFnL YlTbc/c/cs5itn7jje9CGjg5J+oP3Ntcd5GTc6L+RvGV/tycE/Uf0dF4yc05 Ub+cfvgGbs6J+j+MWrqTm3OifjHV9jlnlqnT2OJsB2bkJI3GCZz8bSi7v26M t3K7/G1Dca5GopsDs0RscfMITv5Wxe5LTLuQ8Dmdk7+5hDv2cHwzkrFZJTPd l5O/nXOOXqJydCRTECbq67C4LX/rOzD3ffOCkcze4wkmxl5tOWfoP3JO1D9R jFkbxsk5UX+jxYPCPpycE/ULNUUpj+fknNhXmdb3rRc350T9Qd9qRnJzTtT/ JEYhgJNzZlbubs270vn7VCUHw783m4OV8PejLhgAfoTNu5zydp35KTKYcidp 1oP4Z5cnGpX5lKPCzwqLH5s8PzL0vXCb9RCspTNt6ptI4sgJ9wRu6ePfxv95 zsA5tp5qdp8k9luCN1+S9TFLaxiC/czgeZHHxf8syqG5ePAfFzSH9L1kRnPx 4FYzFE17vdpPc/Hgl4d7mQbOekNz8eAN3YvGte1L7HIdPOPP2h9iF9bTXDz4 H7/W/BD7mcFdA92iHj7qQXPx4CMq6sUWdU2iuXhwefXJb3y+KNJcPHhEiV9W sOcBmosHl2H378HnVTZnKxv56b7kyc401wPePKP3ix438jTgE/wwmyvCJ/g8 pa+nzhcepPl38AVqryvnPH9L8+/gQz8OfPCjxxuafwffbzD2iUS/C+QTXM7U VLzmuArtDwfvXv/tWPwcD5p/B3/J36c3mObfwZ+NHftoa+Nzmn8H90va6WL9 M5Lm38Eb2H168AnuUDfoWcD0App/Bx+XuTzhyc8dQ+G5N5un6V4IvN+saEX7 88HzNty9Y3cmUAuewR3UJYMOnFSj+XfwxJlVV1tyRXgGL/KrFblbkkfz7+B3 g5Pjp8eb0j588H6JvxrPPj9KnsFfF3h/8agcS57BfY73HmnjMoDmhcE36XwT sdnjRfPv4NG8z+lhZdE0/w6+TrSJv08Pnqn+J0U3XYQv0fw7+LDtOtXrfmTT /Dv4siMaqt3H1g6HZ0s2NxuTZT+sxC4b82vEow3dK50KbOk8B3DvlLLSbnun 0vw7+KubmdpDPSvIM/hli4d1u2eNp3lh8Njj+dcdtLzJM/gKZvqjy29SyDN4 xizmacihtvlK8OF9nmnoj19LnsEHVtVIjywbRnPZ4PONLIv+GB2k+XfwTUI1 sXcmSdJcNvgx3SNrzLKW0Pw7uNvqaaoxY17S/Du4ZOew31GObiPgeT6bj2k0 +ER5ZKyiffjEj+xuXC0ioQvP4Jdv9qz7pdREnsHnDL6/bMxsX5rLBi9MXdNt yO/95Bl8Vcil0JJ94eQZ/Lp8/W7/wG3kGXysd/fdSefnkmfwa+sHJx+OyiLP 4MNsN1zru2IPeQZPcE+81PuJJc1lg4eUFSweV5NFnsH7iGyN3KrK0Fw2+D6p Dbqz8s/S/Dv4YLFTCZ+vGGnC8yM2Bwt9vPeGjE8PzKEQn6aouq7blMPkGTxu bJnVC61FNP8OPvPXpLONCrfJM63vJPpqZNNL8gzufGHinKMJG8kz+Df95wqL deLIM7j1+BOawdFt5wyAn959uGbRimryDG71dZnmm9c15Bl8h+roEQsunyLP 4DWPzkh12+dI8+/goqU1v79YPyXP4Dnh927If3Cl+Xfw1PfGNyo/vybPfmze daJUvyBlfz3NSTXz/2PMrGLn3+Ef62UtK6e89aumfo711Xtb5+jxvmD99X1b UhJ+9aB5K6w/IzBHj/XDPnbWcnokbQaO9Q8F5uuxflbf5ASLTp0twLHeXWDu HuuVk3k+tRu3WIJj/QmBeXysZ/Zv8ndaHckDx/onAnP6WH/Kavtfq2/+xLF+ uMD8Ptan1rstjvAWo/slrF8pMNdP6xdn/xm8QZe+97G+l8C8P9ZP+Hl81+Tk EfQ9hfVLBc4BwPrNpz01j32Wpb6K9XcEzgfA+qOS9VYL8oSpD2C9mMC5AViv 6Tqj5kHJe+rDWP9C4DwBrE/s5x5rO66U+jPWf2TPGcDndjubcwZ6JSYcKoym zy2477pwJY8j8fT5BD8y0kD0RXIcfQ7BVSYpXrvptJI+b+CzejmHrHRj6HMF HhVdeGXOvbb5d/Bx08zfNlwIps8DuGmoZtlaLy/6PICvzp3ibbfdkN538Ds3 M2TflMfT+wsuWrs/3bjTMXofwfVupy95s+QYvV/gWn47rU8dTKH3BfzJoX1F G8bGk3/wq680jZ9O2kSetdg80/17Wt224y/IM/iy40MnnO/yiTyD96nxsZq3 5TF5Bp9e/2vYgCcnyDO4t8jX/i/XuZFn8MzCd7ceXWnzDJ5ivsEo4VTb7x14 RMgDGTP/6eQZ/KOltMvfQzbkGVw6NsLWbW4aeQa/GH3YYR1TQZ7BrwaFS0m7 NJBn8EClJd+ETzeQZ/BN1Z9ceVeryTN4pIPJw4jHdeT5HZtbir8ttu+8TI7m H8ENQrIUGF19Om8HvNOPnVvmLu1Cc6zgeppVYwt988kzeNyhySYXor3JM3hK 0XfD55I7yTN43p99RR6+XuQZvH7lygOxkzzIM/jlxbNkH+U4k2dw7yi7bQ4p BeQZ/LjBUVeJ2TI0xwrun5KRsmmBPs0Lgx+YfjXGMZ6huWzwpN8uXn/fMTSX Da6aPrl7ykJnOldHm80ny08+eJ49wp08gwfnPrIeHRNKnsGfangWTe+iR57B L+plT00fWkOeweda8N40zlpInsG3PrVM27x0O3kGL5bSkQpVmUKewSevuC3p muxKnsEnbm6c8TR+HHkG1x20blvvc1XkGXxqUEQw7wdDnsHPzh+2MEVjHnkG j86X86g1jSDP4IkL/vYrq9hAnsFjTPMbB3XfQ57D2RzylPJMo/Sl68kzeL9J A7wNH54nz+D6Iy8c39FlMnkGP7683FtrUHeaywavPfT0yZPPS8kz+NC7a6tz g7aQZ7p+X7c3FcLjyTN4YaSk8lsFJ/IM/iclP+NV+gTyDK5sJpQ4KlWY5rLB VWPrQ9/O8SLP4PucI7bVS+wiz+Dym8YNVTp6lTyDH/DIDW0Sf0iewRebKWdE rKkmz3fZvHFoN30Rdb3r5Blc93qguVvqb/IM3lvfzuCgyQryDF5pLS4aZq1A nmm9hLxIQ+hq8gx+ftWn28cmJZBn8Od2KzK6XHYiz+C/1jG8xt425Bm8f8Kd Z3e2ts2/g0cuzJocVytBnsEfOtcZ+c2KIM90/Vkq1vtMcskz+Jah9wrCh/4l z+A+4XU6b+cOpfl38M/i44uO95+pB8/IAzXKP4YvSaqgcxvAIwZ9VhlgnUw+ wQ/MjzlWsUabfILX/639ZX6p7dwG8EPPAuYdvBdDPsGlOz/fyTyyJp/gP8wV Xs0KNSOf4NV2cqfe9ms7twE8N6hTWSdlRfIJbiwpOSOwNpl80uvt1nfDjpM1 5BM88cHd1ff6aNF5AuC6p3tnxb6cRT7p+qMjM8NSt+nV+fZ3VnG0oFzxPptb 9jggVemQaNQhtxz0undMQHFbbsmwueVcc+mJKo5qHXLL4QF9tYvTZDvmlr1a XlfFDcHc8vNLiSNpAUM65JMzz4hdSAvQ7pBPjgqWlE5U6ZhPGhj2WxRQbNYh n9z0R2yuSi5DvB+bT3adLj6g5e9D4Pf2jbu6u/6+gh//dRlTTujP5o3L+ecS 6BJPelDOzxuH8F/vMOJu/H2MbyxS+O+XPPGlvkJv150/yivkv78NN8DFc2uK YxV287poD4hPC9CifE/u1ivNHhn1BlV8PwbE+/dW7Tn2Z6Tu890y3RNVzIiv Oj2Vnx968r0xxB3Z/PA5ez6AYH74ks/1KK/rG6fgkVKSZ/aKf3114gl35mYb OphaSvHrHERcZ1pf8dLfO3hP+J9DYeI93aYbpJ7cyYu3ljAvTtOnPE3a8376 zsYcg2UiMslpAabE6y9u8z73a5GurrdYk4MkQ/yMb/6VTpGDtI7c6XMqrcqa +CkVzwlCM7LUd/I9a1AO9rNzTkhInKdlNr8eJeIHvWJ2fvwRzbvJ99+V+CLn ZQcM3bfxBvLfRxPKo5KH7qtdGb1Xvxv/9fKIBz07Zlbid05nKXt+BXjqBLcx e2fc0lzN58qUF02paUr8/iyUd4pfZy/ihg+D88L3JfCObpdVKU6zpHzG2Zjn 7XRxuZ7TiD7WxYbWxL9erN/eb2G59mP+65KgnOTHmBMS/fds4Mnxf0/bcgkX twdHyx7f1Ln1j5xhxz/ygdP/yAHuCDzvu7HP+2kCz/Up7HP9TYHn96vtnt9l 6DndiX1O3yzwPC4kVLOo5Xl8r8Bz93//Z++W5+6rAs/X//HZkf89Xx8UeI4W Elpl2PIcvUngeVlISLuk5Xk5XeC5WIgZyH8u1hd4/hUSykxoef79wfZPPK8Z j/3pJbwmzkSM7Z/ghtrdpLc0rzBTYfsneKZqdO8JK3kWQWz/BP/haxVfvTXJ 0pTtn+BSPwxWGesF8taz/RM8RWt5oftsP95rtn+C99ZdmyanXW8xle2f4F0K ng5wltM0H8n2T/ALJ+Xr1+iOMNVm+yfVueSR/esPssaxbP8E/1M58Y9vnrBh F7Z/0vq6ljzhvd5ctn/iOUtxbNHoM2nHzVax/RPcde7bMRX24yw02P4JXjK/ ZPHG81ssz7D9E7y697Skn/Nm8Xr3au2f4MndNtRPvuvFa9Jq7Z/gMv27uruL BJt/YvsnuIbB9KHdkmJNn7L9E7wg5fpBcZ044xls/wTXlEgxnC28xvAZ2z+J e7acExikX8z2TzzvrL8iPvp79QyLt2z/pOe4t+GMStAmy4Fs/wQ/JuzzYfNM N14F2z/Bu19c+eE2bwYvju2f4N/qh+io3ntmGsr2T1rfc0LDWckKYx22f4IX KNoMaV5fYXiY7Z/g9hISWr+3vNLfzfZPPEes0DoQ1fv+Wsu7bP8Et+9p7yVy 1o73iO2f4IEfs0cfPuTBk2P7J3hluNm6hu1aJiJs/wTvr6E70LzGxCiU7Z/g Gn9bzqkzNYhg+yfutzdoOvXxLjDgXWL7J/iVxgdRafNceUfY/gmuXb53q3P2 WiP0T/D7L7fpyY+KN0D/xH1mXePEo1e8HKl/0v1qsnvtzm4lBux9At3POFxu /fsv7q8E7x+6setx36VkcdnCYHkt5TbgdVqzk6WHqxmy6+k+Lf1J41FRvTkG 1ezfqXF9KXaeZTj7d3/wX+zfeQe21t/h761jsR9Y4O+qF1s90P3AXQWjk8vN 5llqsfsHwNPY+QjnVp/0/Z4r0/p3xpOt/omnHj+3sOXviVnsfglwA3ZOYXXr +0jf418vLp2ocUyaF9L6vhOXFNY+Hj9npPkodt8C+AV2XiCMPScK379L+OdO Z+v3av28Effjnzs91Uip9fNJXJp/7nSFiRG7f4P+jsbu59/S+jmn73eHTQMX XuvkyGv93lEiXn6v4Pde0b4Wca2/R8S7BheF7faaYarL7q8A77Smdb/9sdbf R7ofOPtQT3Jn+ioD/dbfX+Ku/H3yTUYrW3/fiecWPPKZ4OxrurW1PxA/VLti TIbJfnN3dv8J+CN2n/yB1j7T9nco13N1wU3TeX/4/XMQce1rrmrewRssClr7 GPGev5XCXIZrmxW09j3iY2I6bf++9pjxDXbfCP3dit3fjnOucH9Sxj9XuYeh V2u/JT5oV8u5ysHGpa39mfiu5S3nKt8yrWvt58RX7G3Zr15oLt56/0xc/9nX hpP5wZbm7H4b8Mr61v3qQa334TzwkMoSn+uzfXlrW7936D5qT/3rSQvLn1j0 b/2eIp65KH35PItTZktav9eIzwopT7+fNcbEs/V7kLhtfu8Fi6oKDEex+2fA Ldj95+gbyOFd+Pdp9YaJrd+/xO/y79N6mJi1fl8TlzZuuU+TNHNt/X4nfmCq 9X/3abXmfq33A8Qre5xLyt8/x/Jn6/1DGy9auS1S3JnnxO5HAg9i95kr8L1V 8MCvfPO7EF47m9er9b6l7e8OigXXFjl3tpzSep9DXMG26k31W1Hz/q33RcTj 7txffWbxPZPOrfdRxNVkj1XaO/gaVbXedxGfcebXktC8Gv1Kdp8PuAq7n7yG 7Z+4Pwlg95PLsv0TvIjdpz2I7Z/4fv+ScmfC3sAXRm5s/wQvZPdFH2L7J+Xz TkfNJqdb84ay/RNc5ULrPuTRbP/E969Y2gjnFacGGJ9m+yf4zEzVEysXdTa9 w/ZP8IfsfmAftn+Cf/2ckzlczI63iO2f4E+d6r/U7dS2dGD7J/hkdl8u+ifl lvzzXd2M0T+J+/yRGiepY6rM9k/wnOvDZ3/o+dnMmO2f4OfYfbMr2P5JfPfe uPeRtrwrbP8EXzjyokaZJ2OJ/gn+gZmw9/DNPHMdtn+C72X3taJ/4vu9eTKj XGu01tiA7Z/0va+YIFJ+ys0U/RN8QLLy8LgfzWbon+Avwq0Mdd1nW6B/gkew +1G3s/0TPPrCTMPnM63Z+89BxC3itZ5cq3a0fMr2T3DriuwqMeVKc/RP8MOb fRbv22xtloFz2FgexO4jRf/E/Uk8//zSS8bon+BbN5TpGrwJNi1h+ye4nPjK Wr/YXua1bP+k69ypmL3IyMcC/RM8wfKu1qRNAdQ/wQ+w+0I92f4JviGpTCSu 0ZIXzfZP8Pnbk+912eBqKcv2T3C/uSt58XoiFuif4GWXIy0aogPM0D8pRz0/ LfDHz0Mm6J/gP9l9nuiTuI8a5COk73F5rakp2yfBnzy0K1HpL24+lu2TdN8V 9HT7DYNJFj5snwS/srbU5YC/h2UD2yfBU0eM/tUnsifPlu2TlDey+zZV2T4J vmt8johJZxOeJNsnwZPvuBwfMmyC5XS2T4JHdV7z5WKarMUAtk9S3iin/qWI t9lMhO2T4PJu5r8zRF+bfGX7JPGaQ4dt3skYV7F9EveNU9n9luifWL+d3VeJ fbBYLzg3DS44Nw0uODcNLjg3Dd5d4JxG8ElN0zZ/uXSR9sGCX2DzQ+x3BZ/B Py+RoXle8BT+vwdURfO84BZ31mvnb4+k8w/BI9m5adrvin2bDxY8WjVwN51n CD6e9Qk/uH8WnIMG3yAwBw2+TGAOGvzKbfV25xCCixncClhZf5b8gEuw+xjh AXwz/9/r+WkMD5QH8s8VvEHztuCT+PsVF9G8LeWf/H+vR4XmbcGnfq9eN+Xn Y3W8Xty3iwicBwi+eUz7eWTwLJufQ7jnAYL3crrcHOlxmF4v7etj9xPidYHP U6ja9eesN823gtfeThZeFr2J5lvBD8xpOcfvOM23gp/l//s4tzRRP+7nL03X ajfnC261efqhKs6cL3h+nXp56qc9VD94GrtPD3WC262KqbwzqdYAdYK7nnkY aZblR/Oh4GXz7sp/uvpUG/XgPrxy4B7rk5x5WPByj9xO8oVb2uaOWW7H7mfD zwUf5HlAyWrjEJrjA7+/o7xO69ZhHVwf97dfb1olZfvF0PXBjdl9XLgOuLLX IC2RGiuaB0T+JnjuGbjguWfggueegQueewYueO4ZuOC5Z+CqAuee4f7zULv9 SOXpWK8sMCcIfkHgPDRwP4Hz0GhfkMB5aJSjCpyHBn5b4Dw08N0C56GBy7Dn ocEz7pNPn/BvN3cJvqR3bbu5S/CtkY7tzj0D/6zpWcmduwQ/2fj93RfO3CW4 +Ya69SPjg8gnuC67nwfewEP/jt0+wlyCvFGOGpx+XLshmLyBW5hITJs7bxt5 A7/29URYo9Me8gZ+U6wk4Mi97eQNfPTVIe4JjRvpHAzc/w+a7tRuXhK8r/g2 f+68JHiiuFMGd14SXP+w0shkzrwkuFz0DI310+a2zf+yPJTdhwMPtP9ndNLK 5g+J5AE8/OeIk90/PCQP4M+rcvRDNlaQB3ATj8QlXSZ+JQ/gJ2T9BmWGfKb7 ATx37KpVsuLOLYIrqok/7MeZWwRfUbUo3Ygzt0j56iYrCbGDs+j10nMQux8G rwt8gdqtd2EODfS6wLedMZupOkKJ5lnApfpu6LVYTZ/mhsDPm/Ae8pTMDFA/ nkeaeQMkR3PmAcGdnqRvreecxwXetL7wdWe7yVQ/+AR2nwnqBH/uNHzCpl6u VCd49iwR40U9g6lO8FjZm3PmzYo0oPOx2eeIz8NmbkzizM2B9/QcmlW4bFzb edcsz2f3Y9A5zyzXOJ1fqux3kH4u+NUiYTXFK1kGuD7uz732ftF7JeZE1wdv YPch4Drgn7TX9VAc1d8Q63FfWsv+nR39UzD/xPeFYP5J5yEI5J+4DrjZU+t2 58OA43wYXB/3A1dWtuafuD74y1VP+PnnrX/kn/i54AfvWLQ7LwU85Y9Cu/NS wHFeCurB975H1oshLfkn6gF/++DPvq57p9J5JuAjdyf+qZ5ZQeeZCOafqBM8 W23gYu55I+DOUd3bnTcCLi4TM5B73gg4zhtB/bh/KI36vqDp+io6JwR8etM0 ST+FJqofvMfNnQVrPXzp/ArwM29WBs+buZ/OrwAvYvNPvC7wB87C/bjne1Be Os2j3fke4Pnzrdqd7wHe/Z5ku/M9wHG+B14v7nNez7GNiZjRg56zwKWluyfc lVtE53WAN1+7NSXnzi16veCRmSnhf3Of0+sFL64yyd5zYSn1JXBD9rwOeADX /pY96S/n/A1w8cmvH3DP36D98COK250zDL4hsq7dOcPgw9+9a3f+BrjA+RuU N+qP2x4ftb+e/ID3qv+Tt72mB92HgBe9v6KqVytF37PgGcpRf+Mqf5EfcFMV 2+n3Xdv6NrjDnrRpytc8qU+C+7L5J7yBJ3168Ogl5zwN8PwP3ey552mApwdl anPP06B94y4FXbjnaYALvfh8m3tuMOXDGdWTeZzzNMAFz9MQzD9RPzjOqcB6 fI8PHpWhIhf3gu63BfNPXAdceMehNwGccxjAcQ4Dro/vU8mCfQ4ahnI01wxu s3z0gdD7nWneFvwJm3/i54IHh5f2LeacSwC+epm9PPdcAnCcS4B68L1pdPGQ jU/RBKoHXCRXM2SiqC7VQ+vV1qSLJn+hzxt4Jpt/ok5ww9LNdW6cuX7wU6uX 7+fO9YMvyLx+jTvXT/s82fyT5ljZ798pW1T1fj2Jovppv2I+b47LGw+qH3zc lnvCKhadaX4ZvObFBFmZwgC6TwM/z+af9O9fsPzLsXu/Czhz9OBzXNfm3OPM 0dM+0hXzt3Hn6MEb83PduXP04Jijx+vFfYLUqWybwrHp9HrBmUMPoofnLKPX C772/dCI7bYy9HrBa39cCFt8OYheL3inwEh3jTdLqD+AV7D5J52rw3LR0piw r5w5d/DYNR9FL3Dm3MGj81+7cufcwUfV5TzjzrnTdRI/refOuYNjzh0ecL8U 43i4KMZxO3kAN+9aMCN7nCp5AL/UW2plV6MQ8gC+L6T6SlDqIvJA+aS1tYfa fEXqk5SLsvkn/ID/Smoui+HMp1OdEw5a9OLMp4Mf7Fv3mXsOJ+3b7BE2iTuf Dt57RJANdz4d3Dl+iT/3HE7wje3nxylvHMD+nf1/yYUl9w== "], {{ {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[ GrayLevel[1], 3], StyleBox[GraphicsGroup3DBox[ TagBox[{Polygon3DBox[CompressedData[" 1:eJwtmXfgjtUbxp/znPPlJ0mUkcrIKgplZkUlpaRoUilERTTQ3tGeRkOKKLQo FW2lnaKsRJSRjIhoj9/ncj1/nO/9ee/v8z7rPee+r/s+tfoM6T44z7LsDv5E 7GH8uQU7H/tnyrID8VfD/sGoD++D/Z1RD66K3c6oDlfEhhK+D9eCb+b7H3Ce M+Ecf1P8B8D/MRrDNbAZ/iZwTfhfRiO4OnYbY3+4AjZyTDO4Npzg5nAduARu AdeFS8Et4XrwLVz3Q07dE/6VUQd/ZewORk14b+xvjLpwFewvjBrwXtidjNpw JezenPNMuBn8D+MQeH9sNfwXwq3h0dh5XOv9kGWL+TyKzz107xxzCdwObg9P hM+Bj4anwv3go+ApcF+4E/w83B/uCD8Fnwd3gCfD58J/Mw6G98O2xf8EfBbc An4IPg1uDY/P/ewPMmrBr/I+9sM/BG6LryX8MHw63AZ+HO4Ft4Ifgc+AD4cf y/3bNYfHwqfC7eAJ8NnwHdHPrnuriP9k/IfBFeCT4EPhPeHj4CbwadgbOP4K 3tXp8I3wlfA58Ej4BvhU+Hp4ONwTvhm+Bu6Ve05eC58F3wpfB58Nj4Cvh8fA n8MfwIPg0fA9cH/4Pvg2uAd8LTwU7g5fA18OHwUPgvvBF8EPwnfBp8DXwcPg vvDd8K1wP/geeAR8PnwvPBLuA98F3wLvxbOfweemye/vC/wfBv9W8+GP4H05 RouvDcfcyvv8KPNvsQf+DvgbwUsZT8K9sXdGP6PmRmWOORd/C3gf+AL4cLgS 3BtuDleBz4NbwpOwy/nuQq5bGn8rPtfHXx7uCDeGR3L+TzL/vvfpvPhfxjeC 8XHm+XYb/Gnm+bw7323PMQfD5eAj4EPgMnAb+CC4LNwObgjvBreFG8BHwk/D fbQusBdzzvO5t2Yl/i1PwX8Y/ADcHZ6YfM73uP6TyeeZC09KPv/78JWM1zMf P0HrAf+7+N5OnmffwndHv3+tuznJv+sqfO8k/34r4VWKcdzLf/BTyc/1ITw+ +b3NgZ9O/o0+gsfCh8KvwQ8nx7o34MnJ7+cDeBR8ADwLvp4xJ/MaHM04CP9s fI8lx7F34HHJ8e1t+KHkuPo6/K3iGvf2D7wC/hn+G14CP8ox2+B1cGm4BPsD 439wKeyPmlvw/7DvJs/j7/Sbw5fD6/U7w5fBP2g+whfD6xRTk9fVWnilYijX /RfeoDmEvwx2k+ImXBb7ja7HMX9yzDJ4PfwH/JZiGM/+CLxWsZvPCfu24iv+ R/GvVm7gc479XjmD7wbsRsUU/Lth1ygHKGfpuZPzwlt895HkfPEmPEXzDP4Y Poi5NBI+Dl8T+D74JLgxfC/cDb5O8yBzLG2E/x78Jyruljg/nqA8AN8Nd4Ub wLfBXeCG8O3w8fBWRlW4PLY+/pvgznBN+Aq4g+YCfBV8JFwXvgHuBNeBr4eP huvBN8LHwLXh6+CjNNfg++GTFePhK+GO8DV6v5nXTnX8l+JvD29RLID3wP6k 2AGXw85gnAAv4HuvJMfHxfANjHcz54LXk2PxMp07OeaugF9Njo9L4NlFfP8a npUcx5fCU5Nj6yfwtGKdfwq/mRzHl8ObFbPg3bEvJ8flRfinw8fn1iEvwF0U Q+EX4a7wl/C1WtuZc9NMRjf8C/E9A3eCP4Nfgk+Ev4KfgzsrT8DPwsfA8+C7 ouNzn2K+DFR8CD7HYLh/8LFD4AHB2uEcXTdYX5ytdx6sHc6CewTrl1PhrsHa 4XzF1WDd1FtzLFjv9FcsDdZZ5+mdB+f5foq3wZrrXMWK4Dl1MnxssJY5Az4J 3k15Bm4Ib+dZ9oRfwleR0RpuGqzRToNPDNYFx8FHBq+tlnDj4Bh2puJnsCY6 He4WvBZbYZoE56LP4LnB8awLfFRwjOkIt4I3MCrC/zIOjc7j+u0UJzrDRwSv 42PhDnDT6JyuefgDn8vBe2E3Ko/CGXYTY2/dCnYzoxKcguf1SXBneCt2HWNt 5jl1IrZTcCzsALcMjjdHwC2C4253uEtwXDwGbh8cV9rDzeEGcA/4+OB10w0+ JjjOdYWPhsvAh8ENdL9wG7gZXAE+XJoa/pVn+wq+LzreKNe/HbyOlXPnBMck 5dl3gvOe8uy7wfFGWvrN4BjwKvx8cHyS1n0rOOc/rPMH64JH4PuDtepExdtg PfuAtH5w3FKsmxUcF7WOXg3WC4/CDwTrgqvhS4Pjn2LCa8HxTHn2xeBYNQt+ ITj+Ka/NDo5br8EzgmPbbHh6sE6ZAD8crH2mwI8H69Op8BPB+a0xXC84Dx8K HxhcNwyAe0s7KUbCbYNzURO4vvRYch5RPlHOqQlXwZblczP4YHh3uDl8CFxN MRVuE5yvasFVg7XPkXDr4Dj9IjwtONbOgKcGa/xp8ITgWPsMPDE4xk+HpwTr 4jvhm4Jz9YFwzeC65wL43GC9fAd8I7xO9wdXwK7VfcPlsWu0zuFy2BUMpcj/ GEOT19tjzKshycc9BA9PXjOPw8OS19J4+LLkNaY8e0nyNR6GL02+tvJyDXLH cK0TfFdjn+Q647TGS6ypDsQ/mLEa31iOHwSvgsfAA+GV8Gj4IvhbeJS0mXIP PEHxgHM8yzknaT7gX675jn+AdIPWBHxh8nM+CF/D8ZM4/jG92+T1/4TqVPzP 4Z8crFnGwaPgofB4eExwrhgGDw7OdUPhi4Nzy+XwoODcchk8MDhXDIeHBOeT K+BL4GPhS+ELg3PIJfAFcFXeyQDFR+5rIHYU/ruDddMY+F74Lngm/Bx8K/w8 /BQ8DH4cHhusvx6DRwfXkW/CLwdruvfgN+Dnijig2vpO+CX4Wfx/SX/weV/s g9g38M/EfzWft2EnqhYv7m8NfEdyzpgO3wYn3ROcYxvw3dp85x9GPbg6NuA/ CD4g+Hz7wHsEf+9guC78N6MuvD824m8I14F3BOu9vbF/MmrD+2J/0RqGK2K3 MKrAZbBHlLhW6V3MBTD7K/McUX/iH0bTEtfeqrW/07zEVzp4flWGSwXPx9Jw SfAcLFEaCZ6zZeCywfO0FByx2xUL4D31Phl14P2wO4PjSWXstVxzMjweHpH8 vp7lpq5Lfs7J0iTJzzYJvic5B7+kuiM5H7yo+J+cJ2bCI5Pf13P6TZPj1AzN +eR7elK5Mfk3eEa1Q/I9PQUfjq8P99OTz38wDoCrKcbwsCOUX6Vx4GWKkRx/ f3K8ewW+Kfk5p8I3Jv82U6T9ks/1tNZp8u86Db49Oc+9AL+X+1qKOW8k1+ff SNfl/k0VT9YW8VnPcmx0DFQdurnIrdJ7P8HtMtcLx0THQNWza4qYrPnZWdfO XM+uL3SI9P/WIqdL066DW2Suazbk1jZ6zxdFr4XN0hW5dY7qlC2FBpAGXl3E eT3X9kIPqOa9jDEX3ootHa211KeSvlqd+X1uw/7B2MD4mfE7Yz3jveS+wPcc s1u0JlTv62vVM8ppirfR63oLthXjqsw9k5bROVe9lN3hXpn7acprzypmYd/B VshcW83JrfdUW11crAedX9epqncV3Ie4H74dHhgdW37C/lJoG82Ho6J7JtLk R0bHMf2mHaP7IdL/nxbxQXPyvOj4swF7dHSsU13QJzrWbcR2YozNXHd/VWgk zatFRS7W3Gsf3Z9R7fBNbr2qNbWs0E6a8wtz61vNz+9y6wHVs335/DK8SfO5 0Feqfz8p4pXi3kGaB5n7G5vwH5953W3MrV21Nlfl1g+ql+9K1gellbty6xDV p9Jeir2KwSsZjTLXnvOKGKi1/3NuDay6b3luHah1fXW0Zv5ZtoiNig+fw4dk Xssr4LaZ4/BryT0y9Y6O0LNl7kMuyK1P1Jf4vZhzCzUvo+sI9WE2ZdbB0sC/ FVyesUZzLfPc/YXjq2PHYTcX5/lBsT66TlGvRn3BpfAXit/R9Yj6NuovLoE/ l57h836af8n9wsX45wX3Jr+G58PPwHvAlYKvs764ltaN1s/3WhvRuk69o+kc /53WY+7/a239qHsunkXPNyN3XpimY/nOvyHbJYh2Fuf8qRjbiu/qN9M1d3Cd nYz3C95anLd88W62Z7tKjV3f21nc26/F/+TfUbwrvbNxnHMR9jP+UTG6plMv entxvN63+qwLsB9zzFZGfbiGNFly7JaOmo+tkbmf81HuNat+TjVG38w9tKuS c+Rf+CpH14nq3am3qrlxFf/7IrfWVU/mluT8nRXvRrGxEXZpbv2pvsqS3Pej vsrWYq6odno+WeuoZ7t3dO2pvvqW4l1sLN7BjmLured/5Yr1sqX4v+aYet7f YL8M7hkvgxcE95i/hD8Jzku74ljmPvcK7CJ8e0bX1+rz3xt9vHrj6ot/Cy8O 7h2uhJfo+aRjMtf+e0TX49ovUH99Fbw0uO+uefU1vDz599D7bB7df1Z/oE60 Jlff9b/cdaX2O4ZF1zjqEQ2PrmXUO7oiusZRH6Ykur7W/sWHubWTtO6p0XWZ eu+nR9dl2hf4m2NOyLzXUCq61taeyAXRdYT6RQOi6wv1f86IrsvUz5mdWy9J b0fGKZn3BVJ0z0H7FBJL6hXs2rvJXddrL+Ce6DmpPYiy0b0O9RVn5q7Zpb37 Rddl6kH1jq4f1ad6JXcNLk3+au4aXNp+THKdLP1Zhs8XZu6F5tH6RL3NWbm1 meqCl3PX9dL8pzEeytwD/y13T0B7NJdH17nqvw2FX8ncc/sgt86U/n8guQ5U /Pknd72vPZ0h0fWa+nVfJmtuaaHB0bWbenTSR+qVvSKtHl2vqY/3a+4ehfaD BuF/IXPPcAf+Tpn3pM7G/0TmPt7O3H0D7X+pDpD/IdUR0TlXPfnPkrW+6qn+ 0XWuen3nw09n7ump3tK1nua7c5P3LVRTjCtil2LYX7l7DtrPUlxVjJcm+Dd3 X0L7cdpHUsxT/OwWXe9rr+pPPvfM3H8+J7oGV8+wUfS+jPpg3aPrLNUIPaK1 rvq9+0TXPup7L0yuZ6SLFueuo6UPyxXvp53iHJ+vzNwb/zy5fpMeWJRcnygP 9oyuAdVnrh1dc6lPfgrjqcw957Oia6UfFbOT92ZWw12j6ybpq7rRNZr68/tG 13Hq+VeK7tepfz4vuY6VVvk0uT7UOU+Orm11zhrRtaH2FN7Prf9VO9eKrh+1 v1Aluu5Tf75XdO2pnvn+0bWk9iZOiK491VdvE71npJ7q67nrJtXLzaL3rdTD LB+996T9gnbRe0nqnS5Irm+l075Irj2kc1pH7zGpRzo/uZaWvq0QvYeivvcb uWsZ9QH2iu5hqjfeMHr/S/3YQ6L32tQjbRy9H6e+6FfJtaV0qXK7YssJqpej 61PtlczNXcepn9A2ei9MfeAu0TW49lAaRO+vqfd+cPQ+mnq/qlP7wr045/8B wLbCwA== "]], Polygon3DBox[CompressedData[" 1:eJwtmmXAVcUWhs/MnA8RO1BAaSxC7A4Eu8HCBsVCBbswERs7sbEVC1EJu1Cx +5rYGNjtNe7z3DU/xr0fZ+/DOXvPvGu9a31d9xg5aERuNBoH8Z8mx6VLo7E/ x/7wzfyPnvAB8AD4Fvgx+BB4eGo0roWXhQ+CN2L+dvhPeAH4L8Y78OKMbTnf guv/4vwd5i+Ez4IfgFsYy/nvwp9x/kj9vH3gK+EX4BPhI1N8/qPwwfC+8FVw b3gEvAH//m3wA/X77sn8ZfDD8Eh4b/gKuE/lDbl+Avw2fAF8JvPT4FaM5eFl 4M85f5z5Q+H94fHw79y3CdyV4wXwS8yfDI9i/i74RXg0fAx8J9y3ft+Nuf4O uANjILwJ839y3ov5A+H1mb8V/gOeH/6T8TbcDt6D89WZvxr+mOOKcBuOZ8Ar Mn+4zxeeCC/C2MLnwef/yvk8jHXhVeFvOJ+bsQ68Cjyb8wUZG8Lrwj9yvhBj I7gf/BPnic8f5PPg8y+C52KsDa/M/Nect2asAveFv+D8Pa6/GD4bfsj3zX29 4MLxVPh95i+Bz2H+YfgL/v/q8AIcx8JfclwDXpDj2fBXHNeEF+J4DvwB918B X8D9j8DzMvrBq8Hfcr4AYwN4HfgHzv/D9efCp8JT4Lfgc+BT4Mnwy/AY+Fj4 bvhH/p0BcAeO58E/cOwPt+d4LvwJx5XguTieCb/G/afBJ3D/JPhd+CJ4LPwg /AY8Fj4Zvg9+FT4VPh6+B34TPhseA98Pz8dYz/cNf8f5Tozp8MPwGi2Nxi7w M/Cj8FrwMdz/IHwh3+cN5l6BT4GPS7Ee2jO2dv3Bf3C+MGNjeD34Z87bMFaD l4e/4nz9+v12y/F+OjK2g7dk/m/OB9TP3zXH++3E2B7eivl/OF+L+ePh7XI8 33aMrdQH5n/3t9X9snOO/d+/Pv9dcjyvRRlbuj+5/je1oerNpjn2U2t4R78v fIlrET4B3j7H++1X999OOfZzZ8YO8NZ83r+cr8H8sfA2Od7HRxxXgOfkeDq8 BGN3eAeub+H5rsn1x8Hb5ng/K8FH+DxyvL+V4SP9/Tne/zpVr3aAp8Krw6Pg QfC9akvVk81y6MWcjFXh5fj3vuS8LWNz9QD+hfOujJ39vnDi+ywJD4EHw63g LvBgeCDcgHvAu/k84CbcHd7V9wEXuBu8i78HzvAKfJ/D4M1zrP/X4bPg0Sm+ 7yT+P/+r8S68r3oJ94Qzx1PcXznWT4Pjx66/HPr5O9fPdK3CS8Pfw++533Lo /W/wB+ol3Bf+FX7f/ZnjefwLf+T+yKEv/8Afwj/niCeLc/we/iXH+uyYY78f zZd9QH2AX29GPDvG9Q7Px+99P4f+tXD8pK6vk9RjeH7mT4Qfhy+H32R+k/o8 9sihN7/mWO+dcujlPzme9xI51uvMHHrbiuOn8OwcerxwDr10vbm/W+eILx/m 0K85csQ/9dD9OX+O/fhZDj2bh+Ms+PMcej1vDr1dlXFmfV+L8v1n5dDv+XKs p9UZ58FnMN+e+TXg82u86wB/l2N/LpIjPqzUjOdh/FqY+W9z7Me2OeLFyozT 4ROZb8v89zn0ZdEc+rsK4wz4JOYXaQn9NN61y6FnfRnDfZ4p3se/Ofbbkjn0 4e8c67VHjvg1sOYL+8NPuTeqfu8FPw5vVvVzGPwYvGnV2z3hR9W+Gt+Hw0/C g6o+HwBPh7ep8epA+Gn3GnwVfBg8Q/2Fr4QPhZ+FH+PYFf4iRX7zCNwFnpUi Xj9Y4/kweBx8q/sC/opxtxrme+P8S8ZdnO9Y49khnD/D9VM5toM/4v7/wP/N sV+759CDg7l+EnwW/Bq8HzzB9w+/VPVxX/Ukhx4Yv4dyunSOfMPNrH4slSMe mM+oH11yxIPfcuhl5xzxv3D9nnAv+L/wHPA+cN8cetoK3hteNof+t8B7wX1y xIs94BvgY+EX4aHw9fAo+AX4IPge1yP8qtoGX+f6g5+Hn+a4FPwdz+NduMn8 MLh3jnxyOHw7fDL8MrxsM37/UK6fV31rxv4/BF4Q7tWM77cbPBf8FPctAn8D H8Xcs3AH+Ed4VNWv9vAP8DHGR8bN8DVwD+5/jvnF4Z/h45jbgHELfC28BPMb ugbg8fCS8PNc3xH+BT5evYWXgP+CR8NPwm3h2fCRxkfGePUI7sb9M5hfDP4J Ppa51+Ae8H/hk6r+doP/gE+AN2LcBl8HL8X9rzLfHf4TPtF4zLgWHgd3bQk9 XwZOHMcw17MZz3tX5tu4nprxPrpUfc7N0PeuKfT/rxLrd+6q93v7neAZ8Abc P5r51+Er+PzbGc1m6P9SKfSy+A7VgxT6vFQz1u+O8BzcfwX3d1Kv4EPVIvg5 fx+f9Rb8A/xq/ffU7wGMm+Cr4e7cv0wz1vMu8Jzw31zfWf2q8eefEvu5XY1P /5bY7+1rPFuHcXkj8s9O3L82PA4+H+4IP8H3WBj+Gj5C/WFMce/DyzG/BXwf fAfcB94Svh++E14WHgRPg++BV4A3g++Gb4V7wVvBk9UOuC+8s3sEfgResyX0 Y074Y3gEcw/B88Cfw4fAvZuxX3eH5+b6Ps3Yz0PgeeDN4YnwbXBveBr3t4E/ gUcy9wA8F/wpfJB6B88NfwYfDC9vDIYPhhfg/oFqGjwRXh6ezPVzwDPhA5hb k3EpfC68GPP35vCh78H7cdKPcQ18GdyF+Yn5/6lG4x14H58d0Ar+AN4ffhxe SL2FD4fXYlwGnwcvzv335f/LYuN9eDhz78K94SbH0+BNGHfCNzO/DBdur8bD U+BV4B3hp+CH4NXhwcYEeBq8GrwpfBd8C9wT3gF+FJ4Krwpv6zuB74dXgreD H4Ynwyu3RHxZ0PgAH+a11d/uBV/ejN+vv34b3pDrn6z+70D4+mZoyhIpftPz NSbrjcw5jNVqmHvVPau26bH12nritiXW7GIpNMK1rCZ2TKFRaqWatHgKzVGr 9OB6cT37oiU0sEcKz6c2miOukMLjmTuqWd1T5JBqmZ5cb+5vXKiEh3kixZ7W 2xgDW6dY01NrDrRsipzQ3EiN7pZCs9TuJ+BL4KvhLbj/FfjeFB5pf7UCvhG+ Qw0oEfP0Qnp6Y+GN8MgUOX73EjGnTQpNMxYZr3zfZ+TYH2p27xSeUC3Xc+m9 xjTCm7fl/Gv3i3sqh2fQ++mh9BLPcT7b/Vk10TXfSLGG3Quu6WaKmOBad83m FBrjWlYD1UJjyl7N2OMLp4hJ7v1DS6zXsTn0xhz+n0asMXN7PYveVc+nlzm8 hN88O4ceGVN6pag5GGtugg9K4XmWKLEHrfW4Jl2bI0us99Nz6JUxpmcKj2Xs MSZZW9EjGKtc42qrGuvad892SBHD3MtqRKsUMXpy1fhX4Xcaof3tS9RIrI1c 0wwPoPc3R9YbXAcfkMJzdSwRk4xN7ev61zNaGzCn1Eu6h9xLeqLOJXIGcwc9 nF5OTVPbzClWLVETsjakR12shCewlmIOrle4AR6RYo92LeEBrJ3oQWbXHGhC ihzI3Mgc8/oUOZ25pzHR2Khnmllzer2inmtWzZHUajXb3MmYZGwypzS3VPPU PmPUDiVilLHKGDa4RA5vLm/OvmEJDVaL1cztSniuzilivl5MT6A3GN0Ir60n sJak59ErdGb+0hSavSvzK6q5KTRvFLyumgU/7x4q4TmsTfVrhBdZmvmbUmjw ASU89Gkpajh6a2toR6Xw2NbWfOf7paixuRYuhndKUTPLJWqU1iq9xmvVzFtr DJlYc9rNU3hKc93WxtQUOUKHEjmwtTA9mbnx+fBm8DbwT+bMXPMk5w+myGfU aLVaD7CAa5PPOz2FB9uyhMccXteL3lMPu3YKj6e3XYj5o1N4sHVLeDS9mh5G L2OMXTBFDmjsNSbPW9ezsfpsrplp/OJ8APeeBr8NXwuv3RJrwPx0ZI61YY5l rmUOpjferUT8OjJHvPUd+i6OqO929xL5yFE58kXXkPmt9WPXljmUuVSXRnh7 16D558E51qbPwLWxT45ns1WJ/HPfHP7UNeLauCjH2rHmN4DP27QRtUD9/QzO z8+RH7lGzcctYrt2rRn2r3puLfHXEn7rjhz5528l/JhrwLXgMx0P75fjWZ/j modvgddviTXo2j2lrk01R+0ZD6/TEvUB99LQHP57DPwmfFWOet3JxjT4yhz5 wnHwi/AlOeL9sfAL8MU58oFT4Lfgq3Pkc2PhD+Cb4P7wWfD78I3weq4NNQ2+ Ae4Hn2rMhK/JUR9Us6wPDMyhZea07areWoux3mF+Pi5H/jKz6nG3qs+uQdfu 4Lo21Ty1YuscWng8/BJ8aY78SA1RO3bPoS1qhPWGHat2bFxCi4bkqA+cAL8M X5YjP1LD1LKjc/gdc8z5U3gyc09rJEvX+GHtRP9rvnxSDn9jjfCYun/cX9a0 rO2e3IhalzUIa6v9G1GbsKZn7dWagbU+exyHVr2392GNUS+pp9RbmyOulKIm be5oj+SQGg+sNV3ajNqGNY55zKdK5Ofn5MjXrYlae7ZmYa3UGpu1mzNrfNFz LV/1XS/2RIlYZAwzlo2o8ct8xHzIHoS1Pz28+Ys19hVT1NCtvR9Zol58bg7/ YU/E3og9nrmYuxAelKKm+keOmqi1amte1krH1vxI/bM2Zc1yVNV/a5n2UI5I UfO1t/J5je/Ge2tdH9d8c5n6e6yh2/sYWJ+/HrJLzUet/e1Twi+dkMM/Dyvh j47L4d/2LuF/js/hv/ct4S9OzOGvjzKGwufl8Bv2VA5LUfO112LPZI36/u2l WEN5IEXNz9rKiBL5/mk58nd7SoenqAHba7IHohcd2ojayul1Pa1Xf689KntV 1qTtjVnT0BuYM5o7Hlgi3z81h7+wh7Bmip6DvQV7Dpum6LnYi7BmcnuKmo+1 FGtSN6SoeVircg+dVNePe+uiErmSOaO548Xwoo3IocylpvCZrd07xihz5RKx wzXl2rqwRK5pjmmueX+JteEac6294XOG/3ZPwfeViIV+Z7/7ZHinRqwp15Yx cn14sRo7LyiRu5rjmuteWmJvG8OMZUOboYfTU+jbns3Ql2dSxLM9mqGfT6fQ w8tKxEI1Qq0YVyL3NUYaK4c0I548lUIfd2tG/Hg8hX6fXyLXNic2Nz6vRG5s Tmtum+vv65kjt5hSIrdwDbgW7i3xrlzTrm01UK/4aCO0UY3X27mm1H41dlpd b2qvmje1rg+10BigN3SNGBuMcdYCrGkb+4whek9zdGOLMc1ahzUPY50xx16R mmMsck8bO7vleB8TS8RG97R7+54S88ZMY+eEEtqhZ9O73Vlir7jGXeu3lfBy apRadXsJLVRz1J474LUaoZFq5V0l1rZ7zr03Cd6sETHd2P6pcdD1x/Es+O4S 68U94d4Y1oz48GyKeOw79927JoyNl5fwPnoevc8NJbyvHlQv+n0JL+n7th/w YYn67kUp6sXflPCGk1LUD2eXeNY+c+up35Z4V74z9/LXanYj9qR78zv4iUZo iFryaYl655Up6stfldi75vjm+p/BN8JXpag360n1omNyeNWZJerNF6aoXz9f QkvUWLX2uRJaqyapTU+V8Kp6DL3Grs3Qv8dS5HvTS3g1Pa3e9tkSWmiMM9bN KKFtaqRa+TR8VCM8nl7vmRKx0BhnrPu4RH3WeqT19E9K1HOvSFGf/7KEl9GT 6E3Gl9B+Y4C1h6tK1Bb0eHq9K0vkGuYcesHrStQG9PR6++tL1BKsGVg7uLXE etFz671vKeG99ah61ZtLeFU9p97zphKxyJik97y6RO3CGoe1jmtL6Jk1Dmsd 15SodVjjsNZhjcBawuE5agfWFPQie+eoNXxU5y9O0Y/4or5PNVqtnlVCq/V0 ervPS3g767HW+6fn0Odv4aPhqczv14icw9xjWolYbU5hbnEj3KcRNR5rPeac o2u8NhdVI9VK94xeQA1VS9VMc0drftb+rPl1K1HzG1Lzmx4lep72Poe4p0r0 UPUf5nDmcvYU7S3as1mwRE9Mv3l5/fftKWxc47u9Bmuw6tMrVe/+rPF/UI2f 7kn35oyqb/ac/dsAezL2ou0x+7cE9mzsPdsjtrduT8jesT3QwTUeL1Kip+zf luiX7DWr+Wq/McVc2Z6Az9ZnvGSJHpTP1mds/mZPwN6ANdIuJWrOar2ab53B HpW9bHte9q7sydirtcdnr0YNmVT12t6EPSB7Qf5Nynwlenpqpxr6RfU8Z9Tn qxeyh+TfflhPsbdksdLYaww2/7TnZGwyRlkvsQfo317YM7U36Jpybem59F5q mFpmjmyubM/X3q89tnlL9Nj8WxF7fPbe7GHae7cnaG/THot/u2OP1d6LPR3/ FsAeqL0eez72/u0Z2QuyR22v2p5VmxI9Invv5qf2juxB24u2Zzp/CY1T66xX 2Luzx2CvYS+4U4kavbX6Ye7JEpqj9oxvhHezRmXt3JzQ2pU5ob0ZPa65oh7C 69UsvYWar/arsfYO9Qw+rwn1+ahhV9Tr7T2ac9o70GOai5pjjq/P19zTHNVe jx7Y3FXPZi3enFsvpwfzbzXUZL2ZmvxYXe96c3MQ178xSm9pzjqxvi9zWWOE scKYYq9SD2Ht3xxZb2FOb2/BHNhc3xqfvQVzZmt/xiBjkRpt79OapdqsRpuP Wr+w9jiL8UsJDVPLjJH2WtWkTik0cnqN0WuliNHG7nO55ptGeGzzD+uRE3LU O+3VmGPOmULjptSagrX8axtRa7CGMK6+T2sL93DNJ43w6D+W+Aw/6zPGTyVq Ru+qpzlqSebQ1uqtWZhbm7Nbe7dGYS5vDdLeiZ7S2qQ5a58UMeSN6vGfrfqk 9/8fdGTLiA== "]], Polygon3DBox[CompressedData[" 1:eJwt13W4VVUaB+Bzz7kHpBEQUEkppURJaWlpaUklDUKkDFJCkFBEBR0FDKxR dAYJFYQRAVFKJUQMxhzbMUcQmfd7Nn/8nrW+d6+zz7071lqn4tBxPcamU6nU x5KVgbmp1CqwPyeVOqKem0ml1ko+Vp3VZZ/or2PFtfVYU/aN/j/Y2dpLWWP2 lX5f51uhfYPtZ9ONGcRWswPsPTaP9WHL2S62j01jz0t+VoPVY5/qv8AKaGuy +uwz/f4++7B2LzvEZhtzFXuI7WEH2e3sRTmXNWat2U/6q9i36lwpyXawf7Ji 2rqsCftaf4DzrdTuY4fZHGPWy3msCWvDftbvZ9wD2t3sAJthTCkpKdUca+TY w9rH1b8YU0LKGreHt+bTtM+x9WyEMW3YdLaWbWDD2RVsHtvAtrDRrAWbzJ5g a+QtdUe5g21Uv2rcGOOas/HsEfY068dasVvY0+wFNoTVZf3YfHaHvKSuJ1ex Beq7jWth3OXsZvYUe54NZi3ZFPYkW8sGsfPjWslFjjWJ79e2lRn6zxu30biR jrdns+JZiu9k17JGbBRbzu6X7erGch17QL3auG7GXcauZSvYKtaVNWHxgK9k T7A+rAOby9azF+VtdVMZF8+D+knjehtXnw1hd7HlrD1rx2bGc8g2sVGsGbuR rWZPsb6sIbuGLWUPsA6sAbua3c1WsHasrJSR6vE3OPaotry6nNTQb8Ye01ZU V5Ca+s3Z49rn1Ln6VZyvlvN9EPeQ/RnPlFRlh9jfWVpbidVg7+s/yzLayqwm O6b/DMvRXsCqs6NxX9lJdRmpwg7GM8b+UJ8nldg7cT/Zf9WFw9nu+F/YT+qi cj57M/4X9rO6WJyTvRXPCTsRY6Qye5d19v8t0L7EtrFxxtRhV7Bb2M3ynPpi uZyNV99i3EUxB0lRqexYfcce1PaW+/V3GrfXuKmOr4p3Wi6M5ynun7YILyyV 4nmP50tbPOYDqaLfgP1Ne466hFTVb8ge0lZSXyC19FuwNdpOMl9/k+/d6nvH Or5Gfo35RsqxvTFnGneldhZbwBrG98X/ILUdaxnXXXuJdNefadx84xo53ovd x3awPew29j/5tzq/5JMxxnSVxcZtUe8wboIx+6UTG80mskvVx2Qgm8bmstbq vfFusmvZeHaxep90ZDewCewS9UHpwSawqayx+m3pwsayyaye+qj0Z7ex2exy 9QHpzMawSayu+h3pysaxKay++kuZwO5lD7MB6s9kNFvM7mM91Z/LGLYk5g3W S/1BrD9sOpvH2qj3xHvNRrEbWW31u9KN3RjPGmugfl8GsKlsDmulPiQ92UQ2 jTVRvxfrGZvCZrLm8V659qfVF0sDdtjxNEtp67CGukdiIWZ/qWvHOx3XJmqf /12/WnzekH3GnY57rL5Q6rAD7BT7Ld77+Dzbz06yH9Tl41mLd8T5/mQ/6leI cxq3K508L8fVeeWsWJeNO8J6OzZZPcO4ZurD8byxSWw6a6r+Qm5iy9hDrL96 g1RkrVhH9of+q1JY/5mYk2SE79gY70ysfcZ1cuyE/r8yyft4VjZZM2LtOCH/ MaZ0/N3GbXX8U3aDdhG7l/VQfyRD2Wy2iHVUv5ZJ1px82WSujTl3WyZZi/Oy 0vrnyvZMMgfnzybzb8zDr2aSdz6bTd73eO+3ZpJ3Pk82Wddjff9e7oz/y/eu 873j4++View+tjL2VnEvZGHMv7H2sJvU38rtMTeyZ9n1cX/kHraObWa3xvwq D7JXYg1ks9TfyNTYU8S6z4apv5JbY55ij7Fr1F/LbTFPscfZUPV3MjvWkphL 2Q3qN6QVG8ZGs+rqXZlk/ins/62qX012ZpI5rlA2maNirnpL2rKRPjvOZ2vF MyXD2Vy2hHWOeUlGsHnsLtZF/bEMY3PYYtZJ/aEMZjNiD8Laqt+UNvHssLGs pnq3tGbDY55jNdQvySWsB+vP8qlflktZjr85v34BeT2TrLEFssn6Guvsjkyy xhbMJvN5zOufyPVsofMtc74r1VsyyfqSm03Wh1gnNmeSdSOTTdagWItekbrx vmeTtSXWmE1yEevofD1jGoh3XI6qT6iLxv5U/UfMd6xUvMNsm8+U9N5U1vZi A9lJ/XtiblOfPrOPXx/7jJiz2Em1bmodG+qzT2gP8w/Zwrju7El2hH3EFsU9 Y0+x93KS3waL2VI5pj6VTFOpF+PZjnvHsjFvsE0xL8d7qM7EfMI2ppNrHdf8 gtzkWqyIvZU8qr/duNelRVwzdj5rqm4mP+Ym+7U56WRfG/vbC43Lywqmkzky 5sov1YWcv2Dcw9zkPi/XLovnyPEcyeNv2cDvj/upLhDrI3s51v54H2JMXGu2 M96peG/UKSmh2c6udM67tdvYG2yKMT3Y0pi32G52M+vO7mJb2S42OZ5l9gh7 mx1ld7AubBHbHNeATWQ92b3p5JrEtTl05lo9xt5VvyNHYi8ZvyPYQfUxn13g s9ewNewQ+4DdyVbGPKFOyzns9ZgHYp5Q/6UuLq+lk+9dlk72xLE3rus6Lzfu U/1Ccb2MeyX2ROxz9dnhbEvssWIdUBfPSeb4mOtXsM/URaQg25xOflf0TSf7 t9jHFc8mD9OpM+tTrFPHc5PfM5PSyX4/9v3ljSsf+z02RD3Sx/I4fwVWh13N RrG8rByrzQazEfE+xBrCarABMR/EHkFdRmqygeph8Y6cGVeddWKd493JTdbQ 73OSfVTsp46x82LfaFw/9dWp5AUrzaqyPmww+ku/FKui7c0GsVP658ReMa43 G8D+1C/LamkHseFxSWJNYtVYXzaEndYvHr8PtN1YH/abfglWQdud9WW/6xdj 5bRdWW/2a3yGLYl1mO1kk2J+YmVZF9aL/ZJO3q1C6eT9i/dwYbxrsedlbdVd jPs23mlWQtsmrhX7Lp3s0Ttor2PXS9Fs8vttZDr5HRm/J0tnkz33ZenkXsQ9 ibW+ECvJ2qm7Ot/3+kVYaW0H1p39GOsQK6Vtz7qxH2LNZkW1LVl79mWsz+ws bSPWkh2PeZlltfVjfmEfpZM5p0w6ud9x35eqcyUPa6BubtyHsR9hhbXNWVv2 eewp4jeDtgVrx76IvQLLq20Ycxr7ONbE+L2mXSvH2RLX/v//BfoF "]]}, Annotation[#, "Charting`Private`Tag$20211#1"]& ]], Lighting->{{"Ambient", RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, { "Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{0, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, { {GrayLevel[0], Line3DBox[CompressedData[" 1:eJwt0rsrhWEcwPGX485xSVaykIFRBkYZmCQDGxkYKBkYDWKz8RewktgVm/v9 fkuS2+J+jc9Thu/7+b2dp87v6Zzitp7G7oQoiob0qjA/6lIziVGUy3kWcY0V PGUNH9jAb7YyKxZFcXWZyzjAKo6wjuNs5iQ7OMc+LvKF13zXlp51ryULbXOZ O1zhLle5F3biPtd5wA0ecpNbOjJv85g7POEuT7nHM+7znFPuccMPXYSdwh01 ardNDnKBvZxlOyfYxDHWcpiV7GcpS9RpTmcLP31HPe9YzWOWh3uxkE/OXfFN OeE9nFWBHbOZzzjzmBXOMJNxZjCT6UxjqtLMyWFmjCnhN2Yyf5Wkn/CZvmSN aNrj9v//8AfXm0sB "]]}, {GrayLevel[0.2], Line3DBox[{690, 1010, 1015, 1350, 689, 1127, 912, 691, 1128, 913, 692, 1129, 914, 693, 1130, 915, 694, 1131, 916, 695, 1132, 917, 696, 1133, 1016, 1240, 697, 1134, 918, 698, 1135, 919, 699, 1136, 920, 700, 1137, 921, 701, 1138, 922, 702, 1125, 1139, 923, 1011}], Line3DBox[{704, 1017, 1241, 703, 1018, 1242, 705, 1140, 924, 706, 1141, 925, 707, 1142, 926, 708, 1143, 927, 709, 1144, 928, 710, 1145, 1019, 1243, 711, 1020, 1244, 712, 1146, 929, 713, 1147, 930, 714, 1148, 931, 715, 1149, 932, 716, 1150, 933, 717}], Line3DBox[{719, 1021, 1245, 718, 1022, 1246, 720, 1023, 1247, 721, 1151, 934, 722, 1152, 935, 723, 1153, 936, 724, 1154, 937, 725, 1155, 1024, 1248, 726, 1025, 1249, 727, 1026, 1250, 728, 1156, 938, 729, 1157, 939, 730, 1158, 940, 731, 1159, 941, 732}], Line3DBox[{734, 1027, 1251, 733, 1028, 1252, 735, 1029, 1253, 736, 1030, 1254, 737, 1160, 942, 738, 1161, 943, 739, 1162, 944, 740, 1163, 1031, 1255, 741, 1032, 1256, 742, 1033, 1257, 743, 1034, 1258, 744, 1164, 945, 745, 1165, 946, 746, 1166, 947, 747}], Line3DBox[{749, 1035, 1259, 748, 1036, 1260, 750, 1037, 1261, 751, 1038, 1262, 752, 1039, 1263, 753, 1167, 948, 754, 1168, 949, 755, 1169, 1040, 1264, 756, 1041, 1265, 757, 1042, 1266, 758, 1043, 1267, 759, 1044, 1268, 760, 1170, 950, 761, 1171, 951, 762}], Line3DBox[{764, 1045, 1269, 763, 1046, 1270, 765, 1047, 1271, 766, 1048, 1272, 767, 1049, 1273, 768, 1050, 1274, 769, 1172, 952, 770, 1173, 1051, 1275, 771, 1052, 1276, 772, 1053, 1277, 773, 1054, 1278, 774, 1055, 1279, 775, 1056, 1280, 776, 1174, 953, 777}], Line3DBox[{781, 1175, 954, 779, 1176, 955, 783, 1177, 956, 785, 1178, 957, 787, 1179, 958, 789, 1180, 959, 791, 1181, 960, 793, 1183, 1184, 961, 795, 1185, 962, 797, 1186, 963, 799, 1187, 964, 801, 1188, 965, 803, 1189, 966, 805, 1190, 967, 807}], Line3DBox[{806, 1294, 1070, 804, 1293, 1069, 802, 1292, 1068, 800, 1291, 1067, 798, 1290, 1066, 796, 1289, 1065, 794, 1288, 1064, 1182, 792, 1287, 1063, 790, 1286, 1062, 788, 1285, 1061, 786, 1284, 1060, 784, 1283, 1059, 782, 1282, 1058, 778, 1281, 1057, 780}], Line3DBox[{809, 1071, 1295, 808, 1191, 968, 810, 1192, 969, 811, 1193, 970, 812, 1194, 971, 813, 1195, 972, 814, 1196, 973, 815, 1197, 1072, 1296, 816, 1198, 974, 817, 1199, 975, 818, 1200, 976, 819, 1201, 977, 820, 1202, 978, 821, 1203, 979, 822}], Line3DBox[{824, 1073, 1297, 823, 1074, 1298, 825, 1204, 980, 826, 1205, 981, 827, 1206, 982, 828, 1207, 983, 829, 1208, 984, 830, 1209, 1075, 1299, 831, 1076, 1300, 832, 1210, 985, 833, 1211, 986, 834, 1212, 987, 835, 1213, 988, 836, 1214, 989, 837}], Line3DBox[{839, 1077, 1301, 838, 1078, 1302, 840, 1079, 1303, 841, 1215, 990, 842, 1216, 991, 843, 1217, 992, 844, 1218, 993, 845, 1219, 1080, 1304, 846, 1081, 1305, 847, 1082, 1306, 848, 1220, 994, 849, 1221, 995, 850, 1222, 996, 851, 1223, 997, 852}], Line3DBox[{854, 1083, 1307, 853, 1084, 1308, 855, 1085, 1309, 856, 1086, 1310, 857, 1224, 998, 858, 1225, 999, 859, 1226, 1000, 860, 1227, 1087, 1311, 861, 1088, 1312, 862, 1089, 1313, 863, 1090, 1314, 864, 1228, 1001, 865, 1229, 1002, 866, 1230, 1003, 867}], Line3DBox[{869, 1091, 1315, 868, 1092, 1316, 870, 1093, 1317, 871, 1094, 1318, 872, 1095, 1319, 873, 1231, 1004, 874, 1232, 1005, 875, 1233, 1096, 1320, 876, 1097, 1321, 877, 1098, 1322, 878, 1099, 1323, 879, 1100, 1324, 880, 1234, 1006, 881, 1235, 1007, 882}], Line3DBox[{884, 1101, 1325, 883, 1102, 1326, 885, 1103, 1327, 886, 1104, 1328, 887, 1105, 1329, 888, 1106, 1330, 889, 1236, 1008, 890, 1237, 1107, 1331, 891, 1108, 1332, 892, 1109, 1333, 893, 1110, 1334, 894, 1111, 1335, 895, 1112, 1336, 896, 1238, 1009, 897}], Line3DBox[{911, 1014, 1349, 1126, 910, 1348, 1124, 909, 1347, 1123, 908, 1346, 1122, 907, 1345, 1121, 906, 1344, 1120, 905, 1343, 1119, 1239, 904, 1342, 1118, 903, 1341, 1117, 902, 1340, 1116, 901, 1339, 1115, 900, 1338, 1114, 899, 1337, 1113, 898, 684, 1012, 1013}]}, {GrayLevel[0.2], Line3DBox[{251, 474, 1127, 252, 1242, 488, 280, 1246, 503, 295, 1252, 518, 310, 1260, 533, 325, 1270, 548, 340, 1282, 563, 1176, 355, 578, 1191, 370, 1298, 593, 385, 1302, 608, 400, 1308, 623, 415, 1316, 638, 430, 1326, 653, 445, 1337, 668, 460}], Line3DBox[{253, 475, 1128, 254, 489, 1140, 281, 1247, 504, 296, 1253, 519, 311, 1261, 534, 326, 1271, 549, 341, 1283, 564, 1177, 356, 579, 1192, 371, 594, 1204, 386, 1303, 609, 401, 1309, 624, 416, 1317, 639, 431, 1327, 654, 446, 1338, 669, 461}], Line3DBox[{255, 476, 1129, 256, 490, 1141, 282, 505, 1151, 297, 1254, 520, 312, 1262, 535, 327, 1272, 550, 342, 1284, 565, 1178, 357, 580, 1193, 372, 595, 1205, 387, 610, 1215, 402, 1310, 625, 417, 1318, 640, 432, 1328, 655, 447, 1339, 670, 462}], Line3DBox[{257, 477, 1130, 258, 491, 1142, 283, 506, 1152, 298, 521, 1160, 313, 1263, 536, 328, 1273, 551, 343, 1285, 566, 1179, 358, 581, 1194, 373, 596, 1206, 388, 611, 1216, 403, 626, 1224, 418, 1319, 641, 433, 1329, 656, 448, 1340, 671, 463}], Line3DBox[{259, 478, 1131, 260, 492, 1143, 284, 507, 1153, 299, 522, 1161, 314, 537, 1167, 329, 1274, 552, 344, 1286, 567, 1180, 359, 582, 1195, 374, 597, 1207, 389, 612, 1217, 404, 627, 1225, 419, 642, 1231, 434, 1330, 657, 449, 1341, 672, 464}], Line3DBox[{261, 479, 1132, 262, 493, 1144, 285, 508, 1154, 300, 523, 1162, 315, 538, 1168, 330, 553, 1172, 345, 1287, 568, 1181, 360, 583, 1196, 375, 598, 1208, 390, 613, 1218, 405, 628, 1226, 420, 643, 1232, 435, 658, 1236, 450, 1342, 673, 465}], Line3DBox[{263, 480, 1133, 265, 494, 1145, 286, 509, 1155, 301, 524, 1163, 316, 539, 1169, 331, 554, 1173, 346, 569, 1182, 1183, 361, 584, 1197, 376, 599, 1209, 391, 614, 1219, 406, 629, 1227, 421, 644, 1233, 436, 659, 1237, 451, 674, 1239, 466}], Line3DBox[{267, 482, 1134, 268, 1244, 496, 288, 1249, 511, 303, 1256, 526, 318, 1265, 541, 333, 1276, 556, 348, 1289, 571, 1185, 363, 586, 1198, 378, 1300, 601, 393, 1305, 616, 408, 1312, 631, 423, 1321, 646, 438, 1332, 661, 453, 1344, 676, 468}], Line3DBox[{269, 483, 1135, 270, 497, 1146, 289, 1250, 512, 304, 1257, 527, 319, 1266, 542, 334, 1277, 557, 349, 1290, 572, 1186, 364, 587, 1199, 379, 602, 1210, 394, 1306, 617, 409, 1313, 632, 424, 1322, 647, 439, 1333, 662, 454, 1345, 677, 469}], Line3DBox[{271, 484, 1136, 272, 498, 1147, 290, 513, 1156, 305, 1258, 528, 320, 1267, 543, 335, 1278, 558, 350, 1291, 573, 1187, 365, 588, 1200, 380, 603, 1211, 395, 618, 1220, 410, 1314, 633, 425, 1323, 648, 440, 1334, 663, 455, 1346, 678, 470}], Line3DBox[{273, 485, 1137, 274, 499, 1148, 291, 514, 1157, 306, 529, 1164, 321, 1268, 544, 336, 1279, 559, 351, 1292, 574, 1188, 366, 589, 1201, 381, 604, 1212, 396, 619, 1221, 411, 634, 1228, 426, 1324, 649, 441, 1335, 664, 456, 1347, 679, 471}], Line3DBox[{275, 486, 1138, 276, 500, 1149, 292, 515, 1158, 307, 530, 1165, 322, 545, 1170, 337, 1280, 560, 352, 1293, 575, 1189, 367, 590, 1202, 382, 605, 1213, 397, 620, 1222, 412, 635, 1229, 427, 650, 1234, 442, 1336, 665, 457, 1348, 680, 472}], Line3DBox[{277, 682, 683, 1139, 278, 501, 1150, 293, 516, 1159, 308, 531, 1166, 323, 546, 1171, 338, 561, 1174, 353, 1294, 576, 1190, 368, 591, 1203, 383, 606, 1214, 398, 621, 1223, 413, 636, 1230, 428, 651, 1235, 443, 666, 1238, 458, 1349, 685, 686, 687}], Line3DBox[{459, 667, 684, 444, 652, 1325, 429, 637, 1315, 414, 622, 1307, 399, 607, 1301, 384, 592, 1297, 369, 577, 1295, 354, 1175, 562, 1281, 339, 547, 1269, 324, 532, 1259, 309, 517, 1251, 294, 502, 1245, 279, 487, 1241, 250, 473, 1350, 681, 688}], Line3DBox[{467, 675, 1343, 452, 660, 1331, 437, 645, 1320, 422, 630, 1311, 407, 615, 1304, 392, 600, 1299, 377, 585, 1296, 362, 1184, 570, 1288, 347, 555, 1275, 332, 540, 1264, 317, 525, 1255, 302, 510, 1248, 287, 495, 1243, 266, 481, 1240, 264}]}, {}, {}}}, VertexNormals->CompressedData[" 1:eJzEnXc81eH/94nsWUZImRnZe56PVWZGUkZEilIZIVkZGZVUdiF775XtHEpW ZAtJyh45ZIa4ndPpOnj8+n7vx/2478ftD+r9+Dyuc12vz/tzfa7reb3f78N6 1e789UM4ODhnD+Pg4OGAH+/9fxeg/192BE4IXKz0arRCtZrj8Z/8TP+/+/N/ yz4XSv1bUZIm/ZBOjEaApmraX/vyT53rj/weZpfUe8Yz+r/K/mu3NxS5q0Ty O/+r98yxsWWqgr/2gFXSm9WkDiXsSHyTx7neJX/tykR+0hzk/eWetfz5vqe+ lf+1pwpQEsGtaGoici8PTcPJa/7arzdv3X+k0IqQmA8rsgl8Djn6VX1eE0NC C9kZgryJUzBqelzP0OAseIDb6s7ODhL68PDm2qJ0oownD297bkBq5d92Dr9+ YQtlQhLv+ZyuLm1qlf61PzxNngoraRO+b6tNWZ49UvjX/iPc8NQwjgG/XrtH 9BTCJvevvTwoga3+8gA36cztRrPoxYy/9tOdkQzSWSYc1t9PKX+yd0r5a3dN ripi+j518khKDukF35Pxf+0qzTImmpHTuURur4cHzdZz/trXf1Q7PIGJFxbf eyIMXREC/WHS7uw7nvK4RD7gdEGU1EOgZzaH1uRxkU9lnNkTpxJvdZT9tQe+ wPtw4hpNVbpSs4x+PFHVX7va2xsvaXAp4cXMVI6VvstA58IHhr3nYyoQvxpN 3K6/ewjxLF4Xf9SHhEJW+rutFwKgfjND5Y8qPIhLIVQ3PHZ1rj4xf5biSaBc kO8vtTODrtV/2/F4/v48+eUL0tRcPcfTCbUq/tojnv6IG88nlhAO2i57RoQH 9GdM3WG+Elcq4tQt60yrX1j01x4krMp6NctcMF2oUcAW1zj/rz34+ZeOLXoC viPUTPcm7XGBbtWG3z4cOlnG3RPZYfLYsSH9r/3FMAPpue6QAqvEkywjg8mg HTLz58eIbRyLzUXa4KRP7hb/tfteIq9NLTUpFcrG33FYuQj6uUIujy97Xrpi 0ZRnlTZYCIyruXGEq3fxdxXNrQfyqvnTQOcUB4rzCr3X4BfUzCL8qSD4xs4O 2j8HQlWYfpRmI95eesun7HkPulQwVPxladf+OZU871IJlF8oukNOByGcP8eK HptAQj+OmE6PQRrysWYjH+t6RcD9ujwY30hgHiEjKjQ0WnXlMfBzA3P/0qX5 akldBtZnWfmlwB80HxVEa2r2iX06bvN+IKwH+M87y57FAf4ZYTyX2nHuthng b6z57ksichsCCu5n2jV7tvLAuF78VL76/Chfg6DoeUNJbjAPhFl+DbFqv1XU yU9C8PDkTWw7fDOp745uldQWuUkifk+Dz/V2yP+80htStvRekkjjvBfo57J/ d7AsL1Nl+A1RbSeZw2Bct8qm1qPz/atXUyPNbjPdBP5GOhdGNxn7FD7oHnln ic8YLoLR2SbeABEJJSBOMlixuubYQKfLl0J6NpHQCM1sU3jDO8g64xprk5YY Qun5r6Lk10hIe/A7Ts7DUvkKcXEG9s0IoDNrWSC75pKZbOmrUmmNlrPg/uJE Go9snRuU8pDOo4l60gDmsTyxodZjR1UlNi258o4fFwf+U+KrSPjzWJ4ovsuo QbRLLPA3P8Mpn6UKKmEdS3/fcVYcoFucik4HJ527wOKd74n4iq5g/nkTh9vZ oAkrrkyfGvpMIQeeF67hkfpO+ao3vCN0txqeZr75a29ZkUm/uShZ3vxqGtI7 wQH6ee1J6eGF+YRKDi3YLfIzgUDniGLfuHvIgeoWvvijkyZlQGd96obzMY8T 4PrNBT3HYq7CSzf/6MyJmxZbMhGGUH35roPd2BzivoOssNtGQhNVg2QWzxqh t6cyadOFiRAljgRLNE5IiLnryeb1/DV560AvY4PDnUDnHv3RVR/bPtlXG3Sv jBmrgc6LSoW0PLL3paXqywOW7C3Bc+fX/J2MdBFH8m5xUqDL8jzQ2SXrtv7b J25iR3SuXbPitwH+BlcMVPF9/kM4Hy/d8EfCMNC5ErYtQnriuqB0z+fz9qLX gZ8zFFI38B77WnxGJzFukPUj0Jng+7m5Bkrt0t8MF+7oWAqCz/U08A8NXCst f+EKfxS5Hgl0Pid9yylkAK/qctGnBOqtb0Bndv/JGCkbmhrkaedOVspZoHPJ 78tDJF0Z8IaTF4rbZc3hl1f/6KzQMKQQQ/EY4Xf+a1xF0gXo2uV+U4td+/eA GOnztxqgc3K8YQQRJyAaPZ9kUx8kxE2wFdn0lA02Z8/8ys5nCehMs/7mkGKs kJxPXODQ87tk4HNvLuEplJ5alK67UXrk28cOoPMvrmRNOupnksbvUx8R0duB 51T80AN9Wn568Y2EVZGN+HWgswVruvaL4QiRi2yLoZqxLkC3ppl7enpj9ELP iML0mo4RgXl4pvN8qPqa2JtXuz/q8xygnXhEzoLimkqZG03eUZEgXvC5WW2x QshZo4pc1W99IddhoJ+Szp+eldNdrXq7wt2/dlgR+E+/SN1bCnKo5psbzQnt XCqgQxR+yNRPzVz4XIx9TcvIeXjkzz86mxGLiEBHvBGbh1hJF+Q1IC+4ah18 165uVnOP6utbiE+v5LfdMS5oe3UizC0NCXleUT8pXwGD0eSp+nj9IIT/bT8y t8hITshDri/ZXv2Q5SWgM0kEgY8llafM7oepnzxnDvzhHu8KfB6ykdrt52qt sS7wH3MDNRp+7vMSu+3w8D+TBP62+tw6hsNCQoz4U/IL4jhmoNu27u6bJpQd NQ2Sy7LQAD83qrs7v3ot8426644x0bk4cP2hO63mK6y5ZScNOAfw3cOBzicM UruiOgoqyJ2vIcWpw4DOeJ2DdO+OJVQJDn7DJzd3BTovM/O7Z7eY1ISXm466 KnABne3SbmqVf8iFny0+ydRQLgBnw+gsW1tP0jXihDBf9z7SSakInTVuvj+2 a78j+AOuGloD1WcwJl16cwqahRd78jQjoeiNnu00Aj1Y4uInY9vko0DnZ7oG Xy4VFshZsPT+aLUOADpHfw6+ky3QKqPyEDdDiiUX6CzioTLam9Um5Xca8b4L UQx0Nv3yNstn6a3E+2dvSQOu5AKdXwcGXy2qKhITFFZnpt2JB7qNMOixOE2l iyjNxj3ScU4AOhs+cO6mYCcoLWm7qakhNwOuz52w4R43xymX9spQnL80AHQm L5Lvjj27XJFnbl51drIV6HzsAm1X8nx7FeN9XKuq2iTs+u1XqWn2c4car8Wl 0Ot2kkDnC7LOAnWB2fAzNOU8WiLyMO7lPzo/cJeVNDS8haC9zH3xhYsEdP7U HeHlXfsjWY2IEv5SyC1er7bpCDuUkW+8LPINCR0J32IPyLgMww0N+tq5QQ/f xrxPFdtx8NydPsmNJ20gfwdkAJ0JhTu1bySQyDYqe24LCn8HOn9djhbNFzwu PVl08vjOtRWgs3TI86yJW8ySJM8Zhi55rAGdyUVTQhy+0YhPhPj7ZHIsAt3E nIrFmcKoReHfW9Lk1laAznKBnbSnuA1KcfimOXK4FMH7ztAHbtV5SqW8ZIhs WlKZHXwuIYL4iNkpvkqzY3Eav+Sx6wqX24Iy8RXLVdwSLpTay++Bzp/qPcjf a/rUpDeU45uzKwGdwy1OqcR/SYcvV36pJ7ylCWNc+6MPXWK65sKsBUIsw7ZF EkcAMl4Q/rGxa8cVOn1VRqoAwuVBqA+EM0NXG5ICniCR0KmywD7aFkuYxycr l54wOrA+zLukaRiZsirnKMRItmRYD3TePvPm2tMOeVky3dQsOWca0E/nCWq3 K36m0gNfTzVduSsD/MebPFVVY/aG5NrIpsDhGQ3gb+48Z5258GzEkQ78+SSM ukC3OmGcQU1yW9GizUn6EB0zMG+HOJ21WXSML53kC+0v7vcF1995bhuiKfWw HKfVixzP1xToPPzRXG1gzLQyW6SktFFbFOi8TnP5q28YTbVSvcoCBc4o6P+H w90eoYxPa5hlEB8tMs8Cna25FS2Ju5LhzOPF3TNLOrChX3/0uazdfxM/6hLi 4/tTweF57BBx4L2237t2ky0DZS35dChGWujr+FM6SEnGOOrZGhIaPCfC7xZq DWPIyI+foaSCr2N0Nn3cWKLXRyUvpHLhvH7fANB54YbSdofFTdlD1HpNfGIw 0E/ju74pWgNR0nLICHypQAegM4ch/pmUmwWSdFxFnOqsQUDnSiXkBd+jFeIi nIdS5s5EAt0eeLIcEQl/J5pVM7ag9zwL6Pz9SSWT1+bXUrPIq8mW2h/B9bZc Al8f+VWU4wVdutskFwF0RniS/vC3Dazcbjq0ctXbBOj8zDaRJvCkULVLJ6+R evUv0P/7/Z/k6NPCalYSXpluOqgCnes3TusenYqH39yxfvR8RgdGsPVHH+KK rTdJNjqIDhHTPpleBuhcQQoByn73Gz+jtE4CJNHYHe5ZQgWp1nBXfdpdV7/p 1/V/J3gTFvGd9foHw+2aVYzOBvZfhehYOORrZtfmiI/MAJ11ks7fX1V4Iav8 tegu+SkL0M98srMK2tIfpC1VlRtayVKAzr/vcc5uuP+QLMkpiJcV7QQ6h8QI i9oG40r8jiVky7q6AnSTpaFi7CdkEjP+klO0RsAL1tu63ylN+paEyl5LhAQK OlGB+ecjia6Z98vl8qVjonYB/c1AZy2/K6IaogWVHrnLjMme3kBn1yHjquJs lerSdUb68ETsOsorwyLts/vLmnc6TMSuF1WAzm/Gph93kb2CpxTi45iEnIM9 /f1HnxayOpG31GcQHKGfWCsMqCG8yv7nKPuac+zchxeREB8rfur9QkKo2TOn 8tDuulow4Zjt8y83YB+jxKJDRa4DnWMH7HtVl0Tl2ZyTDo9Er4D+ELt7xUdb F8ourBxqqz7pDXSGzZuf/fgCRyb2Ss3jkZfdQOeToS9fHN6RkMrmpe9nF6MC OnSxBZcb0F6TuI9k50SmKQDdXv2Uk0/gixAzFrODzcLcgc4Mj3m0v+HdKRMb lhWI8zwDrhc8ukkarMVRoVWhHjNZjH0v3PRqMfOh7aykicGfsJ+LAzp3lD8o lDG5WP1oqmjBt5YRjOuuV2V76VBMDQ8RJXcZlzzQebyAwoZDKQz+lUhNzq5a HfZ0+48+h2aKBMgl5BC3pe04s8UJISa7qjaU/cmXX51nCZ5DN6aWFjWCcSAy xq/GlLv2em2nuE/81jB/fsFmhrhV+b/zRsnIhhojrqL8alXt/XKVbdCfzRy8 50bP22R9TdoiSg1eAp0tLhnTnhvilXFNOTvU9GoT6ByTG7PD1WAv5eHWnquJ owx0uLPxOKBNKUOCZPhue3ijB9Bt7OSZHtvDo2K9+tPxZGZwoHNK+VjxdLx1 sqhieOp8cnjyX3vzN4YYJHdzAvVHCrVUI9qEv/Ye3zSVPI56xmy9lgrtV4vR f+3mIu/02h05jwkEnaSBid2N+mt/gOSb+F0mWH7TkC0tIY0Y9DO31+neuWD9 srOCSjCDIxKgnwokBSrBnGnilgzvWKJoA8DzKCFpqUB5/a34XALDEBEzdj78 8/d/n09KIwnu/Fw6U5715mraZvAx0J+JQh6zBtUGMY4jCYFbvHlAnx0To6aY ZLGI3X9vcqfcivhrz1CSoVH1TyXCwRFDSLV9e/TXLkplZkH+rqUs/QvrWq9B EphnmCR/GF16qCS+Fqfz6saJ46D/5F01ybdJTMN2/zPC/bYq9L/1n58qoro+ oLfM4wnT1QanDNC+15PzD010+8REv7pFjXuUFv+3dgw2qiTvnflIgIOjILda Jhzw115ZjNDy6LMoc87ktOWlwT6nbNdNuyF7HXHv2TDG87/YQP+jl1MN1476 ZLOTPdN0uRCZfeBzD/wsQCZvU3sLG1fyL9Vd4bxoR1zw364XWdZ+mK19vWSV t6Fwtt+p5L9dfwHNh5vKH6P5cGf5f7uetoGOjDl6u/qM75nrgjqr4HnsR/N5 pWhrNJ8nB3we7jx92OJqDuK5pqGMUK4dNCEswXlpCQkljsBP2V4xj85L+TrW L8oLrt/m3+BMbW5CBJ5XSM3MDIKOhtK38FxD/rM//7JPYXg1MYZXB2J49cD9 zF17OQxnGWV3g88M/Jln/tVOEZpv+8hcRvNtfzBP/uv6POe5UCScS8Kb9dPj 1Wosj/rX9U5oHl4jbI/m4R2F/+36k5Xz+bSKGvzBuM/MF8vMc//b9e9urDOE He7mJrzCfvqZ9UzGf7t+c9VydVHMkOMIwVvj6u8OgKvDdP3ZKyJFCmt1iiLz 0vhAP2M2jifSyj4sua6u+Gi0xwP42zj/SdaU7daydYME+8cB9eC5i0Jzcvyq SjQnX8fqGap9t11hrYaT/2UOff0weL+UuR9aCE58hSgTu3ZbrMkSuk3F23Pj NxJy/p1AjUdVioCq7VRNFH0gvbl7OTK7+6nHGH7efoCfJx8S4Ly7cBFa0ZxP GFD5BecNTVpErWMT0FzdWs4ezdWNgD+zXOLeOvoEJi3DHG9Qc1gcvEceo7n6 L3FuNFdfAs/1pWde46tnckQ0mp50DaangnWmWsuMcNiOoeC9a7TJR3z0AYcJ +1In8fsCHl+XaT5FhP82mAeOOXmuNG7ZFx97unS2RcoezEvVuCS6W00XSj28 lb1opfSAX/Xqab1vThOsqHlT7GhSwAH66diM4uQ/qiTvoDj5AHg/aivQuY9A OnDBMkKha1pc8B3Me1afJy19ujwI8U3eo7/vwUXIA7nwTX7XHtYdLv9TIBmR xxp0QdvJEbL6GdLGtYGEujH8PBXDz+9h+Lme5LCVu5EfZMbVjtN+jBKhvvXW 5eVuO02MKK7OK49/A8XVj4D7qzpWRnuYyFtmjWN8ppXQEfhDApqr50hGobl6 GnY/lXXZ58TwBzG+lHqJjvJm4G/9GlecLZNGhTWMdHOGGcaw+1Zpsoic5VWB tg+XDd5K/wK80XyKT1gzZL3E9nKQLiF8ArTzgT+weaH2SRn8E09AmacL+FwH mRSp6xtUlf7atRbUjzeAzu0/UJzcuXpxA8XJsf6DICPRy3V2hicl2oWWJirD RzE6+xsv9VMreCNC3SjL1nM0oKWXyuo1u/buRtypL0Y+iE7hXy3rVNZQmW70 rZxd+yCGn1tg+Lkyhp9PdE2cgrWFQU/Tbg/G6eMjqB7bDbrsrlfDz43h5DyM lH9hKMnAvukMdOaYSTW+L6Eqa02pnl1GLwz8wTMRxdVbpHaUUVy9FMz/TqpH cb5+kpNQVSocYLfkBf5Gx+Hg/yY0TVQhxqa22CgC+OfT2IvsNmfIheF3bqbo yW6B95RIg8pT+r6yN7z4Ja/5TdLA88IP3ZanXBEuf+A4/NWV/wT43J+6HIQ5 vBGVUUwUDbp0nsAf/Dv94u4hm6vdaZOOTpqkA51ZOwS3b3x8BBecNDibOqUJ t8LoDLvA6nd20hExdXXD8IixAlQt3bgxsWv/bE1Vb5dwH3pc/IlJMfIyRMxO P9m3ax/G8PPKA/xci3L5RO6rKIhEbdREV74frna2cKlrd/7pT4nZvJ7/Sf5I TLixweFCoPP6Gq/rt65aWY3tzp/vjqYCnRuvobj6DWm2URRX1wf+0+XP1HGO f0XiZ8X7khbDUaCz38MQOPWUoxgjpPmBLMkS+OeJy6ubIV+mhfnZQ3PbWweB n4fy11N8PKdRWh+Z6TV+7zRo5zTlWG6qdGH56MyzCXuZEKCzW0hA50r7emUn NwUxnXsf0PmXw2KMlA1+zVHuwE5Wys/Ycx92IpFHr0PhBAQpHWVGavBUzDq/ Ylnk2hDlTYR39u3rt5LEoKqhXzSru/Y4Cn8uuZUAqJDXgC/xwnnI/mvUjBvK nzH8XOkAPxe0ye0hc46EBuEjaTxJ87C2hYJYwl1/Ds2/EtX09BBMgKXplZ1P N9D5SNJRP4uZY3Isl26MzxqsAJ19BfEVSk99k55MQ3H1WqDzJZKzyNwWX8mW XGuD67aW4LlmCIzbbregFo/dlkrbdPkJdOZR6FKBs4WJHNoOZXmb4QTmcw6X l0VGhkplS3pSnR+kuUA7AtL3r6Huq5AqnwV/qwT4XGLSqCKr2ItVF17BPjqr ioN+Fk3pvaMgF6zJzoo9oZ2LA8YVaUPusboeAXdllS8T0ZODM2N0vn0tcSLl qDlCUWui7ZE8LyRCdH12c9ceKiovIVEaCM0TZFgeKlOFyjv0v9/dtStj+Dkn hp/vYPi56m/b2oGxUEis4+EN45NrMB3r0a3oXZ0TbEI55CtOwFo/kj3x+jEJ +hN90UaZn+O6XLysfJniE0XgDz9LjvpYUt2RucRPpHHynC7wH7Kky5Ir1uZS Mvhxog4OKsDfTmvZxSnLaUpUXaD7mpglDPzzxKdNQpwIUbGTl5+bqc0wAP0J yUpLSj0zyx5m4cBSZkOAziJqO1WjUpkVLD9YJjtePQU6C8OzhpZOhFfd9tM/ S1VuB3S2kRDyzG7RrFGpfDzhqkAPxrW9KK3zwTASTse5kFJIQg8nx+hcUK7j mzB6AWEjK9RUTckKhTAcU91GvQcX1H8wOPlBR00Y8G6egyDpiunTUbv2axh+ XoPh53MYfh7T5s7QFxUMzR0LyDKoWIV9yPpIxrl7vdWWEWk6gTBsKsXRwzYZ e0507PvTVjySV3IGrotFA232QOerAdl3sgWqZT4f4smQYnkNdJ6Zos57/+St lMCGtEtjfgbQeX6D21vpTrUEcqb3UQphGtCZx0CeTu5agRguaYKryE4M0Nkt tpYgJHOrzMzO0XWBrw/ojD83Jzd7c77CZzmczDn3PdDZnvuJ5amVd1U4T/uh GfsooHN7W4lF9nOLGiWdC7HX7bDnEXhvNBK7U8PhXgykPTHjnLCLGJ3fKw0/ f2iqiTCdb3SbdqGDpAQ7lFB2CneOi1Ji3tDn8BMwniEx6F4LswLqPMgHw8+d MPw8E8PPkS8vdpILBUB8IaOcLjRLsGsq7HN+u9cv4BvbBGTIwTz839zt2lgD /XH8qqF8OapO7nOntTPseijQ2fAFsc6NhA2ZavKMbUHhLqCzxzdN77bX1NID ctKjMPgM0FlhfGFnjopO8rYT/bji60WgM+FXhyvKZ46IayAyk7hx5oHOspuz 0muJiuW8irOzHYMsoJ0T92KCG45zVhJmH11YGdoBOvfyXyMmnJqusp3VD7dw qAI6e4cP0L/XdKh5R5PLaM6OjU9IMmsZlJsIgVeq2nIJvhCD1WJ0HiJcsrBZ UESIzO0U+eBSQD3zWXkoe83F+NHS6PvQdqNBgiATHyRGEsE8uGvfFPzDz9e4 9/Pz7kc55tzS3tBoja3ZeMQPWNCEjCjqvjDLW5rRtSjDPBNqrvSFrYL+ZLU+ rbffHJELmA16eds/D+h859Lp6087+GV9GCiz5ZzxwbjcRkxzqu6el7Zy5/vi HoiN9xjVePvGpeCqZNmKyuhDQRXgn7OciQFv31qJmwY+Lwrl1wLrCu9otZNK nd7lr7ras992GgGd35ParSbdulhJpaseenqVD9zfuz2vXlqWE1cfM+TMO1L7 CfQnlnQjNZTRo2beGcF4NVMCjItayzP1ZFUwPDSL7EP3qiSMHbPe6D/O5e4Y J4n4PLQjR1OAB5XfqhtC2WdpDnl20tyFPn549Y0tiQ0ylooOmkWttzH8POwA P282U9Y4BHOBYrJySY8HT8DeX8yXG969PnNVvc49VBXmoPrVBUm5APqj8pUh yk3xlxyVj2Ag3Pwd0FlNFHenw8JI1tHvZjOfmAAYV7dmT1t8e7D04vGxwwTT 14HO8+Rh1vfiMiQVanWHVg39gM5W0EWSI4tvxJ+M+FAKeoYBnc+YG75b0y8t b3hFdk0wIhTobJ2+6TAW6lM5SUwvpZFwAejcfGrr8w0ujmrpVu3BXNoF7Hnx soEnfdrDmvZZ99NbDtjztVkiOCnXfCDc6EP3pY9ISZgDRudzYVyzr+4JIgaV g35J9f+CbXqZLaDj0MLtdnwQNyGKi98e+BYegxYX6xJXUOebGH4ujOHn6hh+ rvHdyslLxx7yc1KE+ZeMwHxs7lxB7l5fiWug2SioDht+L+T90xC7D3W7nGDK KkQh/9SHJzAwuBvoXHGbz3VVwVuWIGfJkfyUHhjXCK7hVAdenfRLLdn1HcpX QOeUtDtCW8cnJI2biu0GWpuBzscvpAx4l22L22U2fLlQ+hPofGox/bz94Z/l x0u1Ep1fY+NePElKziG1MirvNclnOlXfx56vtasUJPRJV6eux4dvjeGCft46 i9Accn9UoxQi1u12UQyMa2ZT0be62RduIDPXPcMnAcvA6Bxv9JySi4kT4Xz2 bdsDw0XYyIW1dZTdJUYhmGTFAsK/YygjlUYFeUUdWUGduy1g+Dknhp+3YPh5 urDnKlGIFdQqrgFPLPwEU978TbKOOr97oT8d+UUNdsfq4qBoyRnQnyG1nNnZ OWb5D4KP+bjFRkD/m8NDEqOtE2V/Ud9rrz5pD3SeYn/Yj/tmWZqHB5lzzKsJ 6Cz/MppPBRKWKjG5Xi+uTQR0o8p+gZsdaiEhN7rtzcYhD+btb/e+uO7cPVFh uXhXiUB1AVy/HuhEqZTQXNlRNJx7QTgK6MzwKM+G+KdmdYk70Xe9cirQz9e8 tuLlQ0E1N+sF+2u4+MG4aKm/nvUY9YBPBFuKKZ4ThbVidB6h0O96oHIcIZt7 0ueBzCQs72H/FnpdXVT87PGgIeT0PSiyyJwACjL7GIHiFV4Yfn71AD/HVT46 +YjgCmSPO1ieHtwBq796U35r125xWO3KGL8qjPXd4U346z55oHOBWVm6D498 B7N8z5PiCdB/4drKCKPnNbK5bcWxpQaPgM73alkFCppZZM7zvnjCrLAIdI58 3rIjy3NTCu8ir7+DtxzQzX1uLar1rGf2C/24tW72MMA3/sUz/8Ut/8Un/8Uh aWz/8Eb51D+8cQ7DGy1d/3C/Fwe43+wn/vA55keSVa3Or5fYnoHnsSBt3d6a M07GYEyFtr83CXs+guZ7khLxaL6HPWeRk+XmSn/xVpiVhO1oWl8P2Jeto+Na z/CboeNajQGv60VzuXfcLGguNwi4nBo6rlWWwxMd13rh/5i/jWH4268D/C0C w9/KD/C31pA//C2Lbz9/y2S2GEPxt4c9QkEo/vZOjw/N3wbwzc7efd2E0I1p lcCPD4LonlK9v2iF/Cd3XSTN+cNdw47t09/pHcnIkrSPTMm2/8n8PXw1I6zO 8dbb0xLm+JIFidLYOBwFpEdAdFyayOK5ra5o/USwL3MmPSwStqMmqK1imHzE Rxlwtjx0/OrEaQgdv/oN+CG+ESp+NZD7RBQqfjUSxK9S/oO/ZWD4m80B/uaL 4W/3D/C34cY//O3Urf38LTKLFs3fjEsJ9vG3QZuuvvHyIIS8WpTt0IOL0PkB ju8o/jZDif95ZbwYAaeEZHNFfaDkzMtsPyb+zTmRntJoznl1YiURxTm5MZyz 3sxWFcU5W2tD1Pdyzrv58hQ0T2DSXZOtlns55/DOxRtT+b/Ee965aoTs4Zx6 0jHrYWdzRFp5vRPdM7Ccc+3M8LV2BiPBn5lj8xOvsZzzgw+8sVeKiO9wAeHZ 3D2cM3nif+Zv6rx/+NuDnv38rU70D39rUNrP39zL/vA34rT9/G0ZD6mL4m/q zML7+BvDDpMmjoI3wnrttgFNrgbk1dKB5m95a+kneT/EIqxIXqlsvnCEFmCZ 3Vlb/+acNrfcrFGck4W94RSKc1Kt/uGcjxroZlCcU+74zfa9nPP+5nt6FOf8 vpY+t5dzfgvJHkNxziVx+eS9nPOQSbE+6/AHMZKRK08793DOWO2z035Jo8J1 n8U/zu/hnEzKDUaU66sCFnN+hns55423/zN/M5P6w9/KrfbzNwr+P/xN9Sv5 Pv5m9MYXzd98BeP38bfXGRJbKP4WuKQK7eVvsXVZ4hSTjogTX89MshkrQLxN 5zdR/E39w+ccxxeOiMGS0MBTxtZQ747rs6//gXP+ftF4GsU5rV4xhyTo4yMa Gm3RnFOFaAEXxTn7HQIY93JOqsUTJijOucGVtY9zap74juacOqS8tHs5p5lv EZpzXjqnPbiXcxKZT6I55+Lx8X2cUyxoB805qe32c86PnP8zf+PF+cPfYJ/3 8zc5oj/8bSGefB9/o0yfRPM3usfO+/ibFqP6KRR/K5jWCN/L33qEBrbvU95E IJGDPKZJYpD5gCotir/dnGSxD6Rygl7m3lE0mrkMcaQ5h47+B865eOeMDIpz 3gzs6fWX74e7y+WgOSf3iYxtFOdsUeE13cs5ryh4ozmnylnOpb2c88j1H2jO Kfn50z7O+QCCoTnnce7+fZzzqlk6mnPeJr60j3O2ylNsoTjnmQOcs4ArCs3f Fg/wN41oZzR/a1vh3sffyi4Eo/nbNXHRffztZN67tyj+ZltJt4+/UfMIyqL4 25cIp2ShPfxtfL1C0O6oOYLB+5uKpDwvdF7VG83fOGdHzlLleUFxnlUXrjqc h9rZyhYR/4FzqhT1nSR3joQcvocsryXOw4xrk9GcM+/4s0QU5/QrSs/ayznD H8Y8QnHO8A7Pmb2cEzHDfg7FOfN5qNn3cs4pWu7mvBZfSaUKanurPZyTmPnd lQkLanGjx0oqDPexnLNOtgs/mStM5DFTMu9ezpk2VoTmb94H+FsOzTqav/G0 0O3jb30soWj+FlzDtI+/3dfUc0fxN7+OxNG9/I1mDBnQYhgJz4vJwInfw9+a u9sCw0cvINZWV4OvUrJCzDBGNH8LbDhcp0zqBZmuP1H4UaAKlYc0SL77D5wz 0NVceXAsFDo+0/cQOrkGKzrSgeacY1ameijOWU3jVb+Xc05o5aqiOGf2w8Sq vZyzDFnlh+KcuhsuWns5Zw4FizSKc7I/M5bYyzn1V98loDgn322ab3s5pxCn KzGKc8qY7+ecTPxVaP5meIC/pe4Mofnb1blH+/jbG3ddNH9L2Hq0j7/dRkia ofib+c/H4Xv5m0Di2/XO1HA47ejvyKw9/M3aV0J7wVQTIUCY+9HShQ6qudeC 5m+LREfJGhjcoNG6NBp/KgiyZUoT7P0PnPPMpMmVT1HBUJnvW+ezFauw+J4q NOd8ckvkDIpzcozjzu/lnIYM53tQnFNakrJ8L+e823nUAcU5GdjzsvZyzhtD t/JRnNO9Re3+Xs7JaHnXB8U5DalMHu/lnB52TWjOmXOAc97/MoHmb2wH+JuJ wSM0f6OvnEfu5W9RHi1EKP4mVmgTtpe/seS7U6L429OVG8R7+RtVyHNhmYkQ eHMngYDkHv5G9FZXjXFREQEztRiaxKGAttpS0Pyt0fctEa27E/SQqSQjOFIM 6uynzBv/D5zzU7koHqVQADSx2EfhQbMEQx6iQ3NOsoRi0cAMORiOyffG7j2c U6ExRBPFOQ8rvPfeyzmnq33Oozhn2fMPuEJ7OKf3yC0fFOekeZE7vpdznmyo wvlBRSc594FmYi/n7P42ieacvHX7OSfHEUU0f3t0gL8RsWii+Vv/8aP7+FuH vmkUir9p5Efk7OVv7r2CgSj+Jv+oeMxiD3/zmJAbO1YVDGeYfHZ3YA9/0zxl 2r0WL4koLr/U9SUfD2JdqkbzN7fPpWosbbbQx7sKVV8zT0N11Vysi/+Bc7Lg BInxSHtD5s5mW0cif8DKBcXQnHPzSrwNfYsyrPlepM7AHs55PoW2C8U5n3hP le3lnMdeZdugOCfeCcL8vZzzJn1vLopz6n42Hd7LOfms/EpRnJP+GHIf5+w6 LBOI4py8j/ZzTk4zdTR/yzjA327cbkPzt7MuzZJ7+VvjffZBFH9LjBHo38vf rExu6aH4W8PQq8zNPfxt5Ek1Gct8IHymJux8+x7+9vnqio23qyCih/DYoHT/ L9iHVJOFP7wCNlauZQUtL2rcPq/CBnVBueLr/4Fzvhak30FxTl28mxaXgidg MPVcNOf8dk9iyTNUFfbV3NFqeQ/nZCltK0NxzoILcRl7OadjNdXhTgsj2Ysu l7r2cs7beVYdKM4pQrBCtJdzUpnE30Bxzmc/F4f3ck7GVzykKM55eHI/5zQg DkTzt+E3+/kbgug4mr+RKvpl7OVvs3Ua2Sj+dmKk8vle/va9/uvEZ/dHNTHR v/tc9/C3HRcyl9JmX3i57uPFiT38zVhlULWCmRNRpZ7HW2a4CONOWkHzt6yy Fi4+yyuQL/FITj/tMUgg+AXH1n/gnEmVdroozkkuO6haWTICqyz+wzmjm4Jw Pgiqw7SX6sTJjLD7fV9+gwQU56xOMHy7l3PaEMd4ozinl46Xx17O+fOl+xyK c6akTf7exzltLcRRnPMjvMhxL+fUZuEfQ3HOmpz9nHP2+dqd0bsnKo7ENQZu nMXyN+4FQwoUf7PkLMvZy9+28KfMUfzt55XAgb38zZz5mHPZUFANa5BideUe /lbKU9XjOOoBf1p1AldmD3+7azHb06d2HPF4TP+OhOwkzDf4E5q/UenEG0V8 NIC0U6W5x0WpoFBxW/bt/8A5pQMqPQhDrKDRJlXyxcJPsOjDO2jO2XJxTiD2 ixqM/jjxD4EpLOdkJFjVn5tjli+7MeG5l3MGJf7IQXHOi4Ptg3s5Z8N95WEU 5xzq1ireyzmVGt0EUZwztKiqcS/n9EPHqaom06HjVJ1AnCr5Q1Q8agrjEDoe tRPEo7YdF+7OQlzgeKBfOaaUaQu403qG3R1ofL5cfXbqzoer70D7CQPydYUs ZhISP2yv0W9KgffCj1aNvJMiSRK9pRZplRHOwM5RvfqYb9cefCi+/P0eO87/ +LMARWLiJE8ciJO0uBy9+f08Rbqi+3JZyn1FkC9/lXyOfePGr/wAi+jTz3PI wb7MBtlT9rjnTolnktqVAkFP7HlcoH6RF2lv+WeqF0XX8IbBuDrUyFUnBqhr vtN3JpARkmDPWcoJiQqbmxBafZftSzODoEFRRVFUXOK2esk0fvA4rO6NBf+I bDq8/c062q+SMfzw3AF+eO0x3Ju+RFaCL51z1emyOtDhaMCtjtLfzcLnFZsZ ffm+gP2Ojm+wxVvz8/zW4vyBs9bWgB8qumnFnRbu4w57tT3E+XEe8EOCtT/x e4wH4veWrsVktX8RLCQt0mkZfsYN2v9Jd9uvXGg0159p9RSH6k+Q3x2G4YrG B7iiN5NrbsT1zrJSHONKh8Qm8FyLMgQICURSVF3HP3b7gcsh4Lc1EbmpAwqE 8Gki31vi9fPY59GRms+yoBZxYxnJEFkdAHVX4NY9r0BCjhIxguPiPpCkg26h 1gYbovca/Y83u3pudyi/eZLuI6csOLFabOkInhd5dJyetrQ+Ok7vDHgu7HhE JOeU8SSaOn4f7Xu6BeaZ7iqvi42rBSL8NQOCCVuZYL+jg4nT8zgQp5d5Oi32 dwgOX/QrbmETng3gh08PTR9TulTIfcJhCD+9rxbww98SJWZBKjeK7ZR98p7x WQNuEG04co5FLaCA6CkX98vOl6B9ImWDl1zn9Uof80h7fSzC1kngzvhO0pIm WPHt5WrKXq5omcvYrlz2s4rx8y3nQvIRoLOBmklKmLUxfOoc+ZDluCj8N2Z+ gx+/uhyuUoSAnyljK/juAYkbMtydnkFCZfJbx3FfZkMqkX6NRwSkEBpOThv0 y0joZq+gtscNBfmVb588bzzF7iN67fvvEJc/kYmhFuTPKfPCxgtFq+ob0hZJ Hua/KxphkgP8gWrKHB2nlzjauC9OL7qeQzLj8oiwks7L59K12PoP/uf4++Ov LwjQ3gmyyMf/CfjVRzFkj4wjEV/FJsJK4MwJoL+4+IWKd0fnSmRanl1G/B4A 7f/6fSfUqt2kqOOzKuHDk0agfa82hqi1Xp+ygjPh73XOY/NqxyMRfQm8pJVD DKOl6zIrQOfWdI/RMLhztRlHTyqTOJYratQHRTBNe8OJCF1uPlnXhZdjdJb8 gaP3ejMVUV+uYUgy4wDRlH8kNVtHQvQrNojxtRro+OjNz8yl0ohzpaVJOY1I yCH8Tcvp8jR54TJ7FrezAdj3gvAye+Kytuy9T07iIx8kwP2Nf0h/HF+7Reqx 98PbSXv41bcPd38dOyopQf7hHg7zcU7gPzrmY0Q/j8WJHj8ubxTt8hT44bPJ eZ+lChxhx7Yw33HWBTBP9oei8t9vCWQKjibiK94E88z32MXhZ/Ypb/I9FZNj T2PXRZXTbyVmK04Vn65sZWEh4wTP0amvCoxJG6zl1Os4UcqSFKCfK/R43Zcf Pa685NrBqv/MAfhPD3MMvrNWfTW5ys0nO15JQOeVBrY3coYR8KKUQ/U2umZw ccx+KjOLoJWlIQZhc0JmvrjNCioySb64vIWEDObfRB4VeQ+FqwcGmKeeRkh4 cA1OPkNCcX0Vc73+o/IuMfkP5deqgc4PpuiiQn7Vyt7xs8ip0cLyqwcUmoJR YlelBY76Tj2UPAf8IU1I7PnpO9MSpXLiJGkyn7D8qulwOWzaUown8rwLT7I+ 8EMTv6lVNb4+4UUTJwP9Xw3AD1/ayci+zNURLJ00r0tr0wF+LiO6kpYsJVDq ZxZRu5JPCdqXuCsQMyqAKObKuT21oJkHdNYkcG83gaLK6Zfk7bUcXIDO5Y35 JfUpY5XDr4cVtY++AzojCBIGTqj+qr5ge0OudaoT6BzYelq8LCYJThZv9PQs 3lV46MYfnRu/1OSOUIQihk4Z5//IN4XuWYXble6uc4hxRHEzzzRC59fs0z73 9sGPO9uO3nNBQhM0ur3PbElhEkEPPpaxjQCdl+PVGO0yqeWm3n8zJqJFAp05 CM9UWdt1Sp+rGW4MUC4EOst1NN+eVraVNMmVQ4476oDnNCFM7vpvhTUxE8lg LVhjP9CZqMf7ZNq0s4h//JKKSvEloA8pSVaE3NyaoBF/53ge9xTQ2Uuc+QrN Ok2ZM/VgC/nTDaBzOCb//daB/Hd9r7V1rTX8N4W+58a15pfBc/QVk0f/7EAe fYHEF1MWGt6KlHDd4fpgCjCuWEwefeyBPPozgmEufkpiVVTBte8f/z4C9BHA 5NdXHMiv/xY57lRdyFIT7p07eIZ/GdzHFkze/eCBvPvIB6NfVC0y4ac0fTrr 683gcyt/7m84Jh9/+UA+vridrQ01MhBhd8X+g1KRPjRwKO+MHYr/YPL08fH+ 5Ol7Y/L0lRY+shFtvIdkEv2+2KqwQGUiQRbGAUhIC8PleA5wOZEv8x8eTHPB 1PI0AxLJsLzCAZPXT3Ygr3+Cw+G6VqWenJx2Xh11LD8YbwAm37/lQL6/YUGD x91H52TkHtSZLgUKAf/fCP9TB2D1QB2A33bXX0spy0jBl4KknC5judANTH2A /gP1AfIzcaUkudkkBhhskZLPCIH/XMTUDWg+UDdAhiy3jsOCQGzeeKWCOO4H 8J8ZTD2BX3376wl8QZ7DwQlbEn5w8QKFLMsYmJ+XMHUGlg/UGcgRzzYQeZRZ thjhT6L6E8tp238TjUbIp72xXzj8PelRNGg/c7EzfiUgtwL3kuWGIvwFtr6H poxGgWNsVb5SmjL7/XvY9dvDLz5wdaMaDvXuR5AlJ7hfYqHz8YiqXHgoXySJ 3DcJuDDGf3jcZETU1O8hkogVHSLElaAES/GkkV27kNdgmNhLOKSYyAejfHsK iu42zlN/j4Tua01TSpXpwNRsQwL7c4+A+/6SvrqEMT1Xrg+mYHRl/SG4v+mn TC0n3jfJNJyP6PwQmwnu42lr2RMxh1qklHR92w7rFoL7VRGW7x3zqlZi52V4 7/2KTHBfgpXbZYisC8Run+ySmTgUC/QZWjm79elHikjMZxeJ9vZYoHPTT4v0 mA/rZfnLSfXD+t1AZ6eQANqCYpxSbqMzzZ3To6CdpDcOm3YL8xUMt/Gqt880 AJ0pc35TBC43Vb3R051mKHuNjTdjWHfv67hTw5uTZBPjjuUDLBd/rsCP5cDz j02YJFCIwLKW/ui8Er/dkP3TFqH5JO9shIU0dHo9fmQBxcHm1+oNCMuh27jQ j+5NdqjDS8i/9zMSysotMqaoNYKNZ5ptr4/RgfXh7QXaWoekLjlOrQGlqg/J QGf2491TRDfxZfMWN982iwwBnYNr3Y4wXKGV/vhWIAFujN2nh4oo4vVI0Eka FPAu4vRjOWGgtSwi0YVSnOOH7+2tVWw9Il2vXJUQJxLRPmue44bRC0BnBw79 B1Qr0uUdBIP3aXOw+YY/M2WWcdc0Ss1KDpNr1YqDdUjJJh+nRhBb5QIbxbz2 FDbf85bqnWtWE3NVfBrOpX4rcGx8eBhOeKSYR83Q3UPM284QNg9lCW/rlnwm POvYFzb92LMwMkwdmHcLlz2inK4jzK8ZwCdbhaFP+QOVqH29Q+mkfYRTEfS1 2/Bj93UWaCI5TyF/d10tLdDTOlFjAbN97fTAkZEevoXRWZzXxavZaEHuSNXJ 215EcKDzIcbkpKFvorKmV3kNuFVJsc9dp3fjAJO+NBVJ3acBQmFs3ZW8YMWU viuSsIpFlfJjisAPPRtwtmO9zcVpr3he2tRXAfrckv5WQfT7qugr/tnHuUf0 wfvR1WUwvdzNqfyRdSKJzYwONi+goXNc2vJF6WvESLTArCO2zgOenn9XiW5l 3grhSMAqJ/AH8oXJ3Jk64ur6EDYnNs9+bJ7RONf708UBNRY41dPmVti8bJL3 xfo9n1LhdB1qWq7552BB63/0earalXy3zBTBh6+obvWJG3LbUX2I4lriK/1m vJ+yIaQVaRUHNSOU9zv9/LclJOR16AuuWt51WCsUFPRV7yj8F0ZnpSuDGi5e BPJCeUK3rXC7gM4p1ANPvjOZynqIeP6qycCeC5e+YI8NLXwsLWx6DNdMAFvv KNBbMWpbKFHy2Hji/el2D6DzuuOrFzGjmeJntpa1g1UDgT4yDx4pWpOViLr+ Tnb96BMDdP45ynRPhCOtnDelPRQu64uty3GTQTjPoaVU/rJzY7loOTY/FE5/ PQ12r/KJ1WDCVIYG0Nlp4Iw43J+tupqe1EiBH7uO2vze5Rl56kVNHovetZhl bD2Hc+tUns1mSXBCO5eoGws6sArMuu5F8vtzFkkXEEczz03Rc7JCZGuJeiiu Nf6xioctJQWastRw/GxCA3lM5B659AsJzdXJ5znz34DFzYXYBNUTw9cwOtNq pLzBi2OQLz4X9bZm4BvQ+bjxug8ut7csXdd52sJwLCc0nJ3KnOcolx77ftOg siEE6LzewPHZM7dfkmLe7ZTjbBXQ2Zfxjnu2+py4XW2FlKnrCNCH+IIiUQ7x YbHxd7Zzt9OOgvcpdxE3kbHFQLnfKnFbxmQB0Lk54bJuguORslyn78OPNLFx LLe7lW9Xb72s7CnvlWhqswE6c/ic4ve6I1Fd3ioRiNOOA8blqiVz6dHn8JpM MrcmxmyszurOMSeUhePguHw6VkoXdGD2mHoOGZ6IVzY9Woi4wt+3jd/QQziH 8AXQ+5fCBVdGpjhoPOzjGN8mBZRn3G3nvLt/CW/x9ZJgugkLLOAbhr1fBXUG SHHNn5dQ88hfPh3ktGY8D/pT7VTjqv/ytexlZuLRs1u3sfFFVLY/n2aPSxtG 013IZa4COsvSptClvmWQwtckIkDcWQI6H7m39H11UkWCK+3CMcEMNjBvt7AF vS/zdBYjvSnoEppvCnRWe6aQv82NVxEgqRmXx90HdLbvNoxNLCutDILRL5Lw BAA9GQV1FkhzVavh+td0fWsoQf9N3z0lXZt8WaPdd9+YM04Z6Ak9mH/vof8S /uJ4cGAN3TlYAaZuA0sKX+2MiAoCWZVacDmOCuI5MfcSHc/z3uYpY34EVBjg 177aSgAtOQwjeHb3KXh0HE4v02/AjJ2PNk3pN8j/9dvwe7h3ON+Iy2/KE9Aw FWDjBr/d0833jCuVpZjv7RcR9gN6Mm4pEn2eI5XpP5w5kfFzGOjpcmfYtrJX Q2rkq4P/SiR23dg0lPyQOsBbopLrF2F3jgFWz6cszr5SeWI93/2uaAiHAz0t /gu39DjALWUw3HLwf5NbMogaPJBsaEIE2TRX9KYGQWv0V88ZXENCh8T+cEuy uP3c8l988giGT+od4JO6/+CTChg+GfoPPsl0gE9GV5I1hGd+P0nuXkeESKQH dTu9/sEbmw390bxxa5FuH298g45jJIQHoeMYsbyx41TTNItUMUKx/PhmSZYn tN1EfDNrCgnRTNP3+rFnIAL52Tt+hthCZH52Zr2rSGikn+Z9dCqHhP2S65HG s0JAB2OKeKG+1QKRGxsVw9/38MNHJAtofmhfz7aPH2Zh+GHcAX4Y/A9++MVj Toqz7GfV3CG7gKd7+B4lRajVCxJjuNQPY099G1FQJ0rFLXzESz8R4XLoo6Lb idtQVqu/r9ImEpJbuv36S/8jaFHAQQLP+BZ05fOzFSPUuc+vlSKk8pK467Cw 79DTOTAfnhDAY21bSxARLyCVLN9+BcZVI5YjVOurLjiBYD0hRa0CxqXHmdh5 3IyKL7o9xvgc7wwYF9cmqj6kB9wwH1UfUgP+95zlWuHDwt/QC4RX5gOm47nG kLCnPsfK7nP6qz0nq7UxE5K0mh9JunwdOvW+OSV8BQmJNX801dFsEJN4O/r0 c1g98H9iR/u6KwKDwsw+F+/cbMPGBd3Y1mRQvzQjMOYVMKXZMwf2+6+4K+ru DXoiFKi257UC1SDl2PY3jaj4hMJOfkeVTMj1IYKEKckcelGhZIyze9/rtGXO RLUnia4ir9+rbQkBz+kbyPSa/RS+8MnaU6NmvMvgOS2e3SRP//UaKhKhZ1dj NIIK/Dd63Hbn81/SEcWJpyeEN5U8DxWt94F+hv2DM/yLD/BjOED5AQ7QgNnv 9x/Y7wdg9vXfD+zrL2L27z8O7d+/Q5h9uuuBfToOjoIUaj+O4825bz+++ysP te/e/eu8d9+9+4vm2u7+evfvk737691fXah9NA6O987efTQOTgd6v7z7H969 +2WcWhv0vhhHIX3fvhjn0p/9726/qPfufw2vJBYQ39ndz/5wEabMx+5nA1h3 rA1Ox1YlfT5zjVQMu5/9uPOB9KKeYc1tv400G0MOoBtvabyG4pEseFz8i6t5 33jhFhhOUkr40LFP5S4iSF48J+2zPHTHVGJuZte+4xPz+n5KBTRybPy75kMh aPBCam9rHxLSaGQLl6+ggAmqnzjh/eMTaF/Kz+SunJCW3ELv3NVDllxAtx6q rWhLqnMyDf2qJifPYXkFjvbJkXlIRuopVRNlnTH2/bLeRiXOz80mcYHYzoJ/ D3+YOkWLRHEGbnjKi72cgYoh9MvGz8aqy+sEDAyssdj8lP4uMp9LNjUqzrEC T8OEQT/vqdxh7ExNgX/qlpEsHReHXcLUAXsfX3q30vfa7pbfRy9zQAgKG/I2 +bVrv5xtRRCmVwAlrZSsaF4XhIYD9HouIpFQr4ve5KXCF3KR+G6brdZWYLxx NSfvZwvkyChZEhZIsQSD8ZIsac33ZuVKyXicaulChIHxnroRVeSzlCSRoi10 JOBKMDbefqjKrqgqVIxICVUn0AvL3zhNzpfGOdfcYLpFLJWDjRvhI8uoJOp9 DWd8wnVvhE0RFoBZp9k0BppK3riIyGF+oyldywa9fH0HH7UerqVs3bBISYZE as2NaI7zQk8E3NnXd9fD9WEVkPb6kkxJ8s7hJvUPoP/Gmy9t3rEflqa6pGWE IB0B/Rc8vYX3g4pAskibaUbx9TfQ/xtOg5a853fEJu6oKW2XYs8vfG6LlJJ3 hcFDvukX9C9BMBcM957E87qFE62KcC2gdzuUfxTqNpNxRNmN3Ajwuk9GQgas h38vp3BApJsetnS78+prHb4HV/zOSR8lDvpw5S4vNq7bs1FDY9ZQMiGuXvjw jAx2HShx2o0Lz1hcyxlVp04BvBdGocnW05GSCMd0h3enLfAgkaEhdFyNmlJ1 2Kv4AEiolrluZ/gE5F/cRuCN2scVzFwi90uRNOsPqWpb9gbtbwXJIa8a5otH 9h5qs/4UBNrPxcXV+hXnCHWSBSZaXaSDXl1Wm59E5Y8Tr1lwXtgQD632f7VD vACu/3v+O3Hg/Pdf64cKatHXluWU5Tep/dMS0qaxcYxXzJnp2RTKaJ6uOVSL sYL7gmeVQJjLGSCetTbLEkVrhd1HY/JZ/A/ks/zrnPdf563h/zhXhX3MEuRN bIKZjZN6hgY/gWda/7nvoZj8iP4D+RGUUsXoc8b1B977zhmLLhKhzxN3et8/ 2Hue6ITJU7A7kKdgTvOy3ljMAXILK53MWDqCaFFLf/ADlddJeOPNk3QHObmQ jdViS0vw/D7C5At8P5AvwIyuOz1XUoOuO431Zw903Wmfsll03WnsudtPdN1p 0spQdN1p7LnbTUw8/3Lq/nj+jI+KtoQmKdDlX17ifEyCCA3Ole/+u8+j/6/o 6TFIRl5kiby9rpcNPO+ClSrNBOb+MpkDKuNVV1yBbouYeHscif3x9uFpGfqm tilv6Lj1OsJ5sOdcF9Fx8qzlWeg4eex5Vlp7CNENq8eVvBW2VC2O2POsJqLv qy8d31WPXivT/uGXCPp/HxMnb3ogTl7qmeEJxcZyiPJQq5u1HQ+C44Wt5eMB JGQ3ZIYbxZEjD+vq+zrrGoTlrqeNVikM9WVxw8yahjzkwHw+YX+LDG7fIaWZ KjEox18N+nkLE99ueSC+/SS6rrJA6SS6rjL2vKkaXVc5spzODVVX+R6WC8mi 6iqPVh4tRdVVrgPjzZxBxasvV1Mr3+tkpfwAxvv27odhkq5H8KIouup2WQUw 3teYePW3mHh1C0y8OklyEfuFsjrIPamVgk3kEOLhCH8tVyESSng24/H03aL8 VVphIpxHzdi6BKmyrt+6OmQHSL7/fHf0DdChfkO/w4zvrvRwIYfGHR5T4FfX TG6Fvbj5SyL6YkOqkeQkGK8DJv7c/UD8+TX0Oo2mjB+9TsOeE71Hr9N4KhDo dRr2fOfYY9Q6TaQqnZhnd51Gjc23fdG1u06jrJGV5Nhdp2HjfHLb8IWWND3h qi4qUq0jbPAPGH0qDj/p3qLRRfxq7zIVk2OEmM3zNlDvI5zpP3HmuQfizO8/ p4q7mvoOeucyT/aylRGijL0xMR+3+14+G+wnKMsCmx4sSVOkXgS6wYtF3jtQ 88uVHnX9Jj9GBPozNKm9BMebl46d7B0jtmnD1s1waW9Z0n4iaV7X3Msldgs7 fz5PGPBUpRGXjIitIn66AnTrxsSTvz4QTx6MiSe3OxBPLuT2J0576kCcdtXT hOpLIetlpldghT9xsbz9ISYuWuNAXPR8UYnT7VevIfbNhpG8SgLIAJepKGx3 Hd6HiUP2OBCHrH7artZfSLq8/6ju6GEaLGd2TFD9sBHFWpm1rfraJRibZ+SN iQdmOhAPPJD+VUcsNQESaL78ij6RDPJ3ibLL3t1/dZiJkV1/cAaGy8cmemIL F6yfTTBxuawH4nJviTmEaEo5lm9/QNV3PYflhN9t1AbGzlVCPTWljdrs2Phz i/CvvmH41SzVrxYocLpBf0wwcbMcB+JmfcL7FH9IJ0B4OBQ7I1HkkM9L4xff d/vZrSJjSteiD8sga6XpCyMA+WjiClvXIlMm5IbPijEtGZaAfspg4loZD8S1 NjrcTrdiTy5/ofswm++zF3aeTBlxGAt1qJT5NSGpkaAC+q9Ox5ygIXisOlfl Kr7kOWx92r6gEgp2V88ai4ei4x4R2HVpNSYeteFAPOqL4CtLbBSvoQ9PXBJf CJNBs+SH4ot373vC7E4mg4spzMRbq2LyKD447wjl4BWYID0sXyamx7LM2QHG NVb3Q+lM5RVZCuoVnNgREdCfQEwc6dkDcaRWhDfMvF/2lKswoOqXZoLxfqXO EdUQfVHJzejElOyJ3QcFRyAQxdkc1Y3Mt1jDE+dA+7d+f7Yecr9fQyf09q77 Rex+pChG0IOc3BV+9dWRLJoQftgApv98mLjQCExcKA8mLpQpUbvLyOUldD+0 e1GJkhgKfEWgl/kbCUl8i1TuHr0KM7kV8vP129WaTUw7bO9KjVmFTsi/zh3w CQweBTqQcyWUO1g8kiUL/ClEU2EE+ilrQ1O8YVMvTbPswC96NA7oUIKJ8/x+ IM7TnJ/Uwoc2sdJwPXvWfs4WWy/Xrb9NxuRUtUqyDe/D2hnQvlKHukHV0K0a 0Vh78Q4u7PfR1MlTtbUrWcItmteHR6oYYH/rNgfpc2WMWpAhylpT66OVPsG4 vcTQdi/tP3Gb+gfiNjmvXFnpgIdBF6bfpdpU4UPcFeS0brvzjLOZGdFw3XUY oTiZc2fY1Zq/5wjt4ae+DzsJy7fiMlD7Tf7ExqUkuEVrO+fJ+lpL2TyR9AD9 X7iu9PvG7y1pq/I3rvWcndj8oxziEY6TYlK/8VaqYCZkwE9GMPGWMQfiLdsw cZUmB+Iq/1/nTd93+pM37Wv8J296CpM3XfAImu/RfI9gj77/ir8+EPrQdRmm HIyEljFxj2UH4h5fouslOsjIouslOoP7/ikW9X1AJyVi0N8HxAfGFTbSvCmg WiqckrpCF47bDNbJo5i8aZUDedPReWqnV4rbuf051FxXcSYAV/yE0fPpAT3/ lQcdicmDrjiQBz2LyYNePpAHTUTINofKg968mXEPlQc93PGnDmFhBS0f01AN 4oxQ4ockeT/I/DG7dl4jErqFiWMUOBDHeAH9fT0c0r9Pob6v5zg2jxVdV3Ba nBldV3AUrD+b0PGKCSIn0PGKWC7ng/6+Hl3BKPT39WgALme2RHN46/XmabXe RH3WthWwT1Fu+pOPnHUgH9l14k8+Mh3z/nqA9BpyiMnyIATVu8fJAw8uQjfG SND5yJfTeX1+Hs5B/KDLfdD6xRWyV2h99mzXT7Iw8YQyB+IJ4y5x1S7NP5Vc 0lGJyMoPwNZvwauI1tQsFYNi7d8PhJUAvzW7hKrj1y1MbYmq44fNo1dEfz/O jIAy+vtxsHyP+fYyOs+XO05+X57v4l0KTgIFb4QAezILaa4GRFaZiM7z3SL+ eP40XzjiGllVU9dJe+jqs6YGw915gAQTp0dzIE5vJl3Ci+EovcRD2utrzMcP A7/lOhtI8vPYM1Ge5sjL0S4eYP/FmTat9IPulxDX9Jhyv8gUeE6ZB4++pJ90 RLCvjHKwGCtAw/6y6HxYIx6JVyO1JoiniODhpHfXoGkcNkXUevgcJp4t4kA8 2/K0vPS95xpiyH6f/1XcucdDlfdxPDQ9beXaRCmtUYRaFDOzLs2RssZtI+Se S9nZLI0nKspW7hSVkFuRS+vJNbeMMWZE2go7RYSSnsSmrFsajPB0jrNzzpzX q+c1fzyv1/Pv74+Z3/m+Zs7MfH6f93vwPTsNBHMzOp7Q8uRK285/E1MWtHPZ grmJFy928O6dAq4lHfDeS3MFmD+qPO758vjicI+rF+5xKcE9LtMsl/G6KZ9d Xpt4PKPHZv9375k/7D0zgb1nurD37BLsPZuGvWe1sPfMEO4j6WL6SKZwzknA 5JyOsA9NFuNDC4B9aMUYH9oZ2IcWjfGhPYV9aKYYH9p8zpIPbRvGh6YA+9BK MT40OdiHJo3xodFL5yDuMv/FRiHusj4uF+IuW0eMhbjLkjOMUJC7fMbhDqK5 y6Mq27eB3jOxgDPvS1DcZZycQUTWgD3HERfKLpEmAAtBS96zhbM7NjRwIoCO XeNi9a3GgHrzAXLWl3U1uM9jgOnzdDmUe/Cq1CmrtCsPaWWMIb4+bllDz9VE o3N+l9fO99EQf/smC2eCe7XBmxybuUMbrgnm1lwg276uuf77or0N0d89yUP+ t44mvuNkbQ1J41PBgVSvXMHcdFUWXm75tliPMqueKiGRhvgEqg9DvGRDWJ4Q L3njB54HyEs+VaanoXlJfMnp6fZbyWyCb3ZdDoqXvC1uyy1wt+TwLfEjrFPy gJzZHxAvuXk46PnGzLOAf8+vYgkPyMB4wV82zV/WTeEejg+mh0OMefZJra3M qI5qQTreFyaYw8Y2xRV2h0cM7o4diNOVuC+Yg42LI/tYBk4/z83xQ/1tJFfU lTQtr6qRJAdst53qnEB+zwZzulxMgVXEnFjCmvaSQYR/VE+SBblFl/laSTS3 +DZU0sRwKJGtoaczo4viFnlvCQ6N43s4Dfl3ftcTkwICXhVA3KKJ9qUt1l0n AUvb+PSkXh1gQTrfAeT3/eA+TA+mD/PngmSj89BaQzy9rqjU7IPgus6lpn/8 BW+s73dNsfJ5IPI5OKv+UGnR047Mzzwx6c/SE9xnuqNqNgecdyEmiVcUBVsj +SQtWZ6iWJfATguSsu1G8YDng296nswmczYqDn4aK5MAygPYUG7p0Hherzg+ ABC/s6hBaNkGPCz+1D36ZV0L7pm8w/RMKP0tEUcM6PoZx0ymuVuogn06sFKH nWYSya1a7Ja4s8cE+7Typ80xs/KIk8enVOXuhgn2SW2YL1weos2JNCqqArm5 iG/dIG5u4lS/5ySVBrhnqcRZJykDv1ycDJ/+sv4a7mMMYPoYZ618W5b1N5Gf pAJS9IBbiJ/WfsxrKnyAmF1B9/TZ04XMx4Gc7L7cEwBwuxyGcApAZjp7Drx/ 5sI9hFeYHsIKLQmpNCaRFOAetZp+Gy94XeHhc/YSzDn7/yr/fFRSBPlhahzX ieSHkXizlH9OiglzFlw+Aco/tcxGRMo/VUgkyJdSnlII+VI0YF8Ke8EJ8qXI eQWL5EsZrwipAvNP1/vmdkL5Z/aRWl5nWE0rbmjICpV/al2Qem2vuZo5aO/x c4oo+WcIGfKNtL04Lw/6RupmlnwjN950Q17lZxcMhXwjOU1ukG+kss1aJN8I CTdweXNAfvW97H3Feqiev/7RKFfaDIGhNMGxdtZF8k+vWie1+cA45vP2FAva WST/bOnp2DGT1cSKTgzatrUGyT9j4fzzNCb/bF2cVwf9Hg8c6dey7ZZzDEhL HuMRTV/I76E3+ErIYzwYMwp5jJ1tI4T8HgpAA+T3OLNhtUh+D6m5iF3Pdmrd Xd/h4a6dh+Sfx1s6fHy3pTLWK7PbpM2RXn1GWAJ+O/CWyddwnSiLaRRc78op Lk7nGx7rRstwZRa/DemTHBrY63fxCtuAMrvVLc6cPfr3fRXOP1ePC+efTpqN aqB/o+93qzyP3d3s5s4yyL9Bbcv+DPo3+Or/dEX7N0bx1pB/g/rjRyHP8MgR LuTf2OHxUMi/YVq8C/JvHJZoF8m/QTQ/uJ83ja9Rzb9AG0Xln6pTazPyV2rW xhLXJFHDkfxTd+fm32ztdesOhJAmGapIjz3D62Wmm5ZC/Z6jt1v57cj/0axS XUcUZyWx1ygd/E18ah/7NDyf4E30hVuJRzjL7D6XRrzWAXobX9mC54yRsGfj Bib/dNru2w96gyeaaAkquaOUIKkyyKehoCCXDvo0/pRMu472acxmzkHe4Kxc vyG0T8N2s9Ve0KeRbtYmj/Zp9DGGyKBPw8ztZiXaGyzbrqP9wkuWyG/afWKV CD6NS1/JP7/mqbgPiFWElM7UrCwcZ77TRPLPKDj/tMLkn5wdf+iAHoaMwFc5 1FoeJSyK/V89DLSn5cPxlfqMruqD131CkPyTiE+mrBsmMOnVegy8GNKnjYTz T2VM/tk/wy2S0okGuvjVBafxHynnWjdAXoK+O1vlQC8BJx53WRQvAUPN2FtJ M4hRuMzZ0sYG6aMGB0VrAAX7mbNvvS0LcrcK3ncWphodm/pxrEsTZ57aeTwT 7IcO55/fY/LPxIn6HtBfqil+gb6Y8hfFTYYMcf0rFomyINeP652x70Zx/UeK Pbkg17/lUW65KFx/7U9XNwRcuMVYzE+PvtscJth/l3XmEyfPIKZhjlyhNEAV 7F8zNtRxu70SK3axm2Mg+Q7pczZznw4A4fXSewdMOwGExx/+Co9vzmhMBTl6 R8qVEGLCECX+RCnE0TeTjHtDr5pR1O01xiZQHP3DWUYhyNF3tVIy0Ry9em+8 BMjR3+BvfCIKR+9trHuPmNLNIBmcimvcjfQtTd7VlX6Qusa06PHornOnCa53 TjUiuthLh6WbnHjZZ3pa8Pi9LxUrZmWi68lNRmKGb4mId27++r+iz0eyf9ia u1aviURJha83EM4/uZj8s3ifsi/Iue8uSfRJrnpN8T+3xLm7pLNiHmqbUyQ6 V8vNoXyev8rvDwY5d7+pziw05y5bNxAKcu6Nv+oHozn31J8UP4Cc+81Yic+i cO7e9h3S3MIKpsWJe5q534QL5lAb9J2ibQ/AKrYbbnu/DCd4XrXQdfJr7ePq nbPGTnQMIt/P32lZ8mUcw9h4mfk3ZWQipfrvfCNcafejbALnUFLackXeCEU5 cP0cuL4f5tZtMPln2lRUA+jh/JRUI1dS/pxiQ1iA+PR+V5PHqX1USlXko4o+ FsKnb+qMWQby6fx/cI3QfPps6s/5IJ8uE2nVjubT+97794J8urS3VBmaT+eU rdIC+fQtMTIP0Hz6XTjnpGJyzkD4nP0i5pz9PyyQZ88= "]], Axes->True, AxesLabel->{None, None, None}, AxesOrigin->{Automatic, Automatic, Automatic}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, Method->{"DefaultBoundaryStyle" -> Directive[ GrayLevel[0.3]], "RotationControl" -> "Globe"}, PlotRange->{{-40, 40}, {0, 50}, {-5.847849401681964*^-184, 0.11311683134412306`}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.7887687174448957`*^9},ExpressionUUID->"1f93e492-2703-45ab-97f2-\ 1cc75ee1a3cf"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"4.84499333124259`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"1.000014212267661`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.0001948072242838575`\\\"}]\\) for the integral and \ error estimates.\"",2,166,48,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788256584103333*^9, 3.788256821111826*^9, 3.7882568793304462`*^9, 3.788256913473728*^9, {3.788256951615925*^9, 3.7882569724787827`*^9}, 3.788257010135181*^9, 3.788257271602351*^9, 3.78829937797477*^9, 3.788299409437017*^9, 3.788299603886606*^9, 3.7887687195332193`*^9},ExpressionUUID->"ea6d0f21-9a2f-41a5-be6d-\ 083327e9d3af"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, Annotation[#, "Charting`Private`Tag$20275#1"]& ]}, {}, {}}, InsetBox[ TemplateBox[{StyleBox["\"NDSolve\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, "Charting`Private`Tag$20275#1"]}}, {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]]}, { Style["NDSolve", 13]}, LegendMarkers -> None, LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-1.5, -1.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.788769036655476*^9},ExpressionUUID->"f2be29c7-767b-498f-930a-\ 131145be1f65"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, Annotation[#, "Charting`Private`Tag$20275#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, Annotation[#, "Charting`Private`Tag$15574#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"NDSolve\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Q[t]NInt\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, 2.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Qnc[t]\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, 1.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Q(t)\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, "Charting`Private`Tag$20275#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, "Charting`Private`Tag$15574#1"]}}, {}, {}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]]]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.788256583963928*^9, 3.788256821011814*^9, 3.788256879312819*^9, 3.7882569133307056`*^9, {3.788256951536759*^9, 3.788256972380045*^9}, 3.788257010031747*^9, 3.788257271503909*^9, 3.788299377846841*^9, 3.7882994094311037`*^9, 3.788299603778726*^9, 3.788769037024868*^9},ExpressionUUID->"fc895e65-77ec-4109-9b0a-\ 050e64bd52d4"] }, Open ]], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, Annotation[#, "Charting`Private`Tag$20275#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, Annotation[#, "Charting`Private`Tag$15574#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"NDSolve\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Qnc[t]\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.35847840103159245, 0.7044710907769045}], ImageScaled[{-1.1, 1.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Q(t)\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3662153449387492, 0.47496272357833824}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.5493230174081237, 0.5375559146324926}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->{{45.2, 4.6}, {42.8, 3.8}}, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666454081633`, 51.041665625}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, "Charting`Private`Tag$20275#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, "Charting`Private`Tag$15574#1"]}}, {}, {}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.788769050970358*^9, 3.788769075381014*^9}},ExpressionUUID->"4c9ba015-9855-487e-8b09-\ df09e1b53f40"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "+", "2"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"p3", ",", "p1", ",", "p2", ",", "ab2"}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7887685138986588`*^9, 3.788768540661631*^9}, { 3.78876915281562*^9, 3.788769161285967*^9}, {3.7887692029554787`*^9, 3.788769215428335*^9}},ExpressionUUID->"46e2c455-6629-4fac-aebf-\ 4dbe0c601401"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,170,49,24554672211970007265, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788769217108925*^9},ExpressionUUID->"fa215a79-56b0-444c-ac7e-\ dce6a1931a66"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"3.281871665621295`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.2731284085919573`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"9.462523666450841`*^-7\\\"}]\\) for the integral and \ error estimates.\"",2,170,50,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.78876921713271*^9},ExpressionUUID->"978f8cff-831c-463f-bab0-37a49ab5ba89"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,170,51,24554672211970007265, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788769217155645*^9},ExpressionUUID->"c1b49694-b58e-4d00-8b57-\ 902d40c37e27"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"1.9537466656212952`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.24912646398682714`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.000016934495345104338`\\\"}]\\) for the integral and \ error estimates.\"",2,170,52,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7887692171788273`*^9},ExpressionUUID->"02c5cc0a-acbd-49d1-95a3-\ 3f4cdddb07b5"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"0.7037466656212952`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.23315193410975427`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.0002451476140426359`\\\"}]\\) for the integral and \ error estimates.\"",2,170,53,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788769217201226*^9},ExpressionUUID->"692e9c3e-9fc7-4cd3-9e9d-\ d92210a28dea"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,170,54,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788769217227709*^9},ExpressionUUID->"71db3ef9-79fe-44dc-87ae-\ 76b70b14f941"] }, Open ]], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, Annotation[#, "Charting`Private`Tag$20275#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, Annotation[#, "Charting`Private`Tag$15574#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"NDSolve\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Qnc[t]\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.24242424242424243, 0.6794338143552427}], ImageScaled[{-1.5, 1.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Q(t)\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.35847840103159245, 0.48330848238555846}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.5338491295938104, 0.5083457588072202}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->{{45.2, 4.6}, {42.8, 3.8}}, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666454081633`, 51.041665625}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, "Charting`Private`Tag$20275#1"]}}, {}, {}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Point[CompressedData[" 1:eJxFyXtIkwEUh+GPFVGS2MByNLFpQ0S3oS5vTd1vF+e0JChBTAoTDCq6qZQE ieU/aq2QRbBoUaKjWoxUxioiGzqk0paprRWRrtnF5pRJqHOyDM9nBw6H57zx Vaf3V3MYhklf2X93dWblPrr0gCgQXpkZ8kbUmwxL/70FpQtTtaE1R4Mz0fD0 /pp5yORlHBQus47FtOGiJ2aOtQDWP7/naz6yTkCk8lbF+XbWQuzMuvfpSiHr REQ4q1x77X5yEoaztwrKIlkn48gZcDaJp8kicH+E1z8W+sgSCA8bLM3BKXIq tNd3VDutv8hpmNVcGg0f+klOhyR0Ulwc/E6WYuCAuTenbZK8C/UN7240JXnJ GQgthAYD/R5yJt7HxLceOz5BzkLH2eV5P3+cnA3/o9HOFtsXcg6E+nwXU/aZ vBsyVblXy3OTZeCniI21oQ/kXMRKzbKhdWPkPNj5Ny9zJSPkfPh77upnLgyT 5RDEdcsrvznJwAsuI/G5hlbdCJwYCZbM5L2mrkBdhGXQ9WaAugJzQXXLq2sO 6koE06IrFE191JXo617UOzrt1FUotxk93sle6io4pAmnNjifU1fjSeB2chfz jLoaba17Xi7W2agXwJReur0k0Uq9AEtxX801UT3UNQjmjhuvpnRR10DMc78V +SzUC+E2H63rHzNTL8S+Rl1qyuYH1LXgVOosxc0m6lqci36oa1d1UC/CnW1R RfLsdvlf1EvulA== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJwl1nc41e//B3Cksh3n2Ns5ZqEoM9wvMk5LRlqKbPGRj+yVWSJUNFUaZKX0 yR5FpVRCySg72etQRnHkd7+/v/PP+3pc7/u67uu87/v1fL3knH1t3NhYWFhU WVlYiCd3mC8PK8ssSiKAnxbmXhsb/ltCKx/X8I+B4shubCkua+i66v+/b+do d4npXQc8Fn//997zfLC5AScHrJvR/59NOdalhbFxgjJd4y9h2fOpvRUrnCDM YGUS5qMfWHc4hAtYfTWWCTM3iqsszXPB2W35S4R/jTKrzbdxw4VZvkXCEw39 ltf8uMF0SG2e8EDuq+/DRdxgpr86R7gz4WGA1gw3aK39yyDc7HF+41lVHqjr Dp8iXG/hndHmxQML0aRxwnXlPS7MRB5Q8FEeJVytZKkmn88DEnJSw4SfbdSo 8x/lAbnuywOEnwQ/SLy1gRfGfHj6COePUmxfK/DCP9Qj3YSzD52VnDTlhR2f A78SvtewOEx25YVSHYd2wrd1PIv043ghRojUSvh67rcQ5we8UMJMaCacmlDD /WyAFx4bVr8lnLSk1v5tjRcUTfxeET7rcTeTVYYPmkt6nhOO7iR5qhjxAblh pYJwhEWshvVxPmhR/FBMOKT813JIBB8EXDB5Qthfya3+3i0+cF1yzCPstZF+ aPYbH5TxhNwi7B5cKSv6hw8qyJ5XCDuNbppAovzwvGM0mfDhBt7Iiwf5Qfha dAThAzpR5uWB/FBSlexPeH/uLH//FX4YKSR5ETZP+PJA/Qs/1HGdsCP8bUr/ d+UcP8yTDu8mrK3yOYfKQYKK1CIjwh9SdZmPFUlwvs5RgfAV46mcX1okaNPM EyHsMH/XWs+MBHqftnAS/nlkY269CwnEKN/G/2LX8FRbc/mT4Bhp9Cvhc7Wn mPtjSdCRyNdAWFyhw7r7HgmEn0fdIzzUmciUfUoC/kPFFwg/STLMda8lwaag tkDCJrPZzLleEuhIFJkT5sk6nKszTYIDY/vVCHfY8dhEMklQrPmITNir2j+X Q0IA5IKPfVvF3n5KycZyE/bDq1WE/8p2M9P1BKDq/P4MwmnnTGxkDgvAFSlu O8LH9BaZrh4CwFE+sYWw4lR+bkGQAFTHcXMSrrIWWNW6KgB96m9Lmdjx7G9y w7MFwIK6I5GwZXmIzctiAZiKzjlKeFByIHdvqwBs8SAtrWAXtqTbpH0XgDY0 /JJwUKzFauesAMTFHksizDX2xMaFnwzpP7oohNsynFfzpMnAKVnctoyduU84 b0aNDJF5n9IIaxZHrobuJYP4RPAGwkw3jbxaezIc3NxU/Qf7reiwzXpvMrgd YTlF+OiZvXmXEslQNJPy7jd27C4J29y3ZJi05bFdwt7LbF6daicDl6XQ1CK2 cFFsnuYwGfR0N8YQLhCcWH2+jgI3T0tkLmAHNNzJW0ehQH3VogJhozBr211U CnxyVsufx27tr8hrAwqUUsn3fxH1l/aPrbgVBZyv+wsRdjeT/evoSIG5i2nx P7GXCxJsJyMpIGrpYTOHLRd08C9rNQUCT2XlzmBbPc/kSG+kwGg2tXeaqD/2 UbJ8DwXGyO+4CA+kBSuZr1IgrzNh3yQ2qatWo5NXEPqSZJwnsEGOw8BTWhBO OnX6jBP5UHTDKgkJwqn89JOj2J8WB45KWOH1/hxHRrBZjFTcCk8IQmVCtNEw tuPHytDmGEHQyKZPDGJLj3c9INcLwrG6SzW9xPlvpT3OahOEV2sRtj3YZ4K9 y7cPC8JI9mBvF3bvembjwQ1C0HCmqLGTuM/7TDtGhYVgjsVJvQPb4EryQIiS EBxwl4hrI74XVWohgy4Epn2qrJ+xP550W9t8RAg0V2pUWojzfvqY8/lJIQip aTRpwrZHRtL9SULQnPHK9D1Rb8ccLWhNQtAotSeiDnt3Vq51Sa8QCCEeqRfY YRMMe7MZIXjD/62gmsiHkOh/PfiFYfdy8YUy7BtX7998ZC0MjP6JA4+w3/WM Zxk4C8N6qUSrPOzfNM0nTaeFYUuZkdZDIp+evXrFSBcG7yct5ZnYIi0/Jrd1 CENYgnLaJSKPhFUX60eEIZ5HsyGZuP/HA1gOLgmD+tfOgfNEPU+yC4WIisDi i/TaaOxrHIpGNUdFQCQxQsyXuM/7T9H3eYtA0wd1Zy/sxWtlNn3hIuBlEZjk hm2nYOHBckcE3EvJwfbYgiael0z7ReC+PHpshr2zvC+9akYE+r8U7wTs06p2 17f+FQGdEqFKfezPwiaZklKiMKana7SF6AeTEoXzR0XhsMHTe8LYz0+kFXl5 iYKioJ0UCXuqnaN4IFQUFC4O+3Ni76lbqPx4QxRe/VQqXPnLQBxXWxqyO0Sh KvKgdh+2Dpd5o/iIKKTzp/p2YLtH1TRfWhCF/CuGkc3Yb07mt0cIisGeA4qU F9ixRnE/DtiIAYdxmeAtbOao9hp7sxhsW7z2Zg/25uOP2cJ7xSDU/cUUYB9t pW2YmxKDNyDVo4VdWUPi7eUWB6NsVZIMdtDlCfHSXeJwyZpSNrPKQA83OElv PiIO0b2+Gwex28I75e57ioN+rbZ4O/Y293rllARxuJ18JroKe1Y/U9vtjTg8 8RvWjsWWeSqo390mDtSoK2H+2JYKFwyth8ThroF/iCv2Y/4QU8N1EgA71t81 w/YasrYRMpYAk8WRCHbsHynrT72pkQDvn2/u+zNxv7xO+nyuSQLmfMd9HLD5 7ktsp/dJgLxrdDsdW7dEY/nDmgSo5tT7SWIndx0/98lEEo5bqlS+WMF5MeQ5 ftlWEgrlL+zIwS6b9t9r6yoJfkY3LFOwB1iSyB1nJeHnA1W5o9jblcoyu99J QtDRJauZZQZ6v/Ul651vkmDmkqDRiu2g/9HVYUISNG+EXC/FPr9vcNN3bilo HyqdDsPu8ecrH7GUgk8P8zPW/uD5oM69Za5NCq6t8OYzfuP6++CnWTwsBc8U QL0R++mXiKsBi1LAltslm4PdNZJmvyQiDYU3BOhHsdV5a0eZR6Xh/mDG6eol XA9HRFg4vkvDDYe/XxwXGcjbheryfk4a7KQm/TSwWXzU3iaxycBW7qcubNib oncm88rLgJzhNoMHCzh/cnxFKR4yQO9rSfs2z0BKvxq2Sk/LgBnd6YTCL/x/ lpqOXF6VAaaWf/zUTwZaWD1pzLZRFkLvvht7hn2Q7V+vQBFZYAg2eBtii3FH 1NjrykIwW6barjncjySvnFAOk4Xvxp2a+gw870mLLDjFyoJd3a3r8zMMtCab kXgrSRZ2SQZSn2CfULj3jO+WLByKrs+SxqapF7IvVMsCVclDcWGKgfJQfd7L VVk4rDBQFjTBQF+NLQxX1stBi4V/KRWb0/TD5+18cmC+J6C2aRzfJ/qn5Vxp OeAyEWDIYqtZ9+xNRXKQz+hIqR7F86Pz/OzRGDmo/vHApm4I1+9Zeb15diq4 v6HRmb0MNJNptPseDxXG1mj/pGJLVxy23ytIBfatPCky2GcmkiOzaVRIrtlR Z9SD+8f+hZcHTKgAEq1v/+1ioFeib3eXRlFBcIGm+qADz0MaA/ZOCVQYKXOO omHT9iz/w3uRCsoP3Kqy2vG8EKl+0S2TCknXogfvtTGQ2eC1L0LPqbAmVt6R 0orz9ZHHsaBlKhzzqFLXaMb5Wh/jQ2WjQUXkLpd7TQyk0nfrTDMnDU57CHrz YSeRPt1TFKPBul12jJFGnD+BusMdOjT4Ox2Zm/gen4cR5ymdQBpkx83UXanH 9f25IOo3gwZtU+OSlZU4j7Quwu7fNAj8fLxktoKBMm74s95mkQfR/g81ithO jgZxSEAeIvRei6eW4e811XTunKY8dLusDe4qxvnGMZciGCgPgvGungGFDGRo pHN767I86FykPL9wB/fX+xLHY9kUYM7ifn3qbQZiX88i3calAPNc68mXbuF5 s/Hd3WAJBdgU6BqachP3jyNHs14YKMAx06DD/ldxPgdEFuyNUoC6l837JpIZ KKfgdYUnuyJE/92iGhmG74MCWlTlUYReW1Yn+1AG+udu1bY5iiJs+hq0oBOC 56Mr/z0JpSmCjoC0/lQgA72IvJudZKIIP5wOShr74fqyCr9UGK0I7zov3bzl wUAbljQ9Z5mKUP2MFMhny0An/Z48LGFXgvZ7BVvLrXH/nVT5EcKjBGMFPloO Vnh+HJB1YJVUAuMdvKK5+/D9+cB3gLxDCXranTTk6Xi+vjOBtocqwR5zQ51G A5z3Ox+IhCwogX9qwOo7eQbaskNCV2hVCS62xJYY0/B5a145/IxdGVr4E8sq 5PD5Us/dnKIogwDPxoz70gxUxOol4aSpDK/PfGlzEMXrazVkdvsqAyhxt5zj xusNXipKjitD+0RhS9LsDHqsNaBV16MCNDmn/EOlM6ggmLZh3bAKLCzscNAu nkE5le4dZtMqcGc+iY3y3wzKNJwOalxVgeHueLG3hTMo1Wy5vEN6E3wV146h ZM+gU3aC+tMnNsFLZX3YkzaD1APpRuLDm+BkaC91i88MKip5ah4wvRmCHB3D v0ji/XgvpKssbIYBAcfwY+J4P3e3gT7mZmhoFKn+IYL3ExUP28WjCpfjSStT 5BmUEhH3WHqzKiiMkxImOGaQt+lBwfeeqvDnhDk1bX4aKbWtfJcaUoUyb6Rz 7cM0uvvLPLKhSw1KOR2/XPCbRrtqfXPOzW2BLJ9T26IyppDhz3ALtLYVBDSv jU0XTqKmoQfNXPMaAJOxSvTqCVQlRdmfvKoJTXayKaezxlGmtrvz8YVtMJfE cIu7PIb6r7L5DrFqwSw554qA4ygaum/ZncCpDXrLlJ8xqiNoICWyK2xNG+L9 i+AZzzDSq1topXHpws1Xx1ub23+gxFYrB8l1epB/7nUEtXwQ3blsv0tjSQ9W 0n6p+GV9R3zXi9SYa/pQ4nF6v2r0AAqKGMkWXtoBJ57S6hR/9iGDPHehUTZD UPp4Sx+aetCb6GvDXziNQKR672TT+y5kppdPJ60ZwQhZzpd/7SsSuB1rE8MO UBhwVsdWsROFc1N3P4gGGOz4w3o1vh1ZWN/0s14G+EdiMEuBtQ2Z6JdetT9j DBn1gkW6ga1IN90kLuWPMfwbnsR2XPwzOn4xwEc8ygR+NnZ4Jge0oMgVEbmW FRMY7j2rG8rXhNYM09nJQTvhUEHMwP3uD+gprXioaHknnOxOcJXKeoeOhZqm BgaZgjqlVV6k7C3SOR22/RrTFNpurHzPeluPAozPc5lFm8EfCmXSZv1rVBi9 sUBixQwqQixVXGNeIorLZvN90ebwsyywzedPLQosrXuUwzSHiS4jgRX750iv T804NcgCGpmGZ/hXq5BqAfryadkCboQl52tnViDxkVfqO4LocOA3y3m5q2Uo be+IsXMIHWI4FKknk8sQdzGnXWIYHd43aQwVx5UhZpRVeOcZOuw3pfbYnC5D vWJ9Df4JdHDSE4sq21+G7u37c6LwBh1czfL/o3CXIYXSLelS1XSIjvHvlI4v RZkStjmmz+kgZf815n14KRKODar0rqWDXkHI9mD/UrRh//P+ytd02Lnv6pNu 51I0NrZb9eBHOtBzX3S9My5FBZLub1J76XD65Cu9bSyliBqX+LW0nw6Xvnr/ 4v1dgm6NF072fKcD99a3DycZJSi57JfA5hE6PKL9mC3qL0E+VjEODTN0+Myd sf5YbQkaKcv2m5mlw8oeXS/L8hLkIPUuXugXHQZ7Jmt3FpUgywm+Ry5LdChW zNPXuVuC3lppvkj6Q4f+d63Hta6XIFRu9/m/FTosb9Y9pX2xBFVIhQ59XaXD Psc5L/2EErQ1/vbS2hod6vpZbI2jStD/AbJcVVs= "]]}, "Charting`Private`Tag$15574#1"]}}, {}, {}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJxNyVtMEgAUxnFmPjTbQp02l1jElFUrSqKSDPgQFC1zzmij60JzZcpUYmv5 IOZDy6ytlQ/N6qGQphhdSLuxLKMs09gUdamZgmVYVFRDo1x24WCd7ezsd/6L cotz8kMYDAb/9/65gfFKpv/OJwk9EPwH7myUDfzfw6Hbc8/3z1Go1Gsm/TOO QXVxbELljFkQLB8ZlE4FzUbukdLoWG/QHBy4b2Bu6go6HoVs2fPBmqC5iCu3 CnSJQS+GsTM+fMuFj+Sl2KBZ0eRyfSAvQ0dHnzD5m4fMw3Ub51zG2HvyStx2 9zOsN96RE6EKbfzK3DdO5kMp9E87w9zkVVBFOvLVhjGyAHkKnyQ06Q15NbKr Dht22EfJa1Cv3Tp3TqGLvBYldSK3LcJJTgIrz3G29dgwWYiWMPVRL3OIvA6c vdULvM0D5GQ46pS79eUvyOuRzfri1+7vI4vwvSjS4zrUQxajiJ/pzLncTZZA fks81cPoIgMWprI2y2MPuAIIeW1uPBPdSV2K9t5akbisnboU3Mc7e9vmPaGe goKstgTj20fUUzAaZ2FvHH9IXQbpVV6WMKaVugxC0+aDUa4W6nJUdJfqfCNW 6nL8uGKMGObeoZ6KFPapV5/NN6mn4vxxvbahpIl6GoTaiYGhAgv1NMyamJxv q7lGXYFtFxs09n4zdQVOLPyp3vXSRD0dT589OHlpST31dJw26Uua7xqpZ2C7 UaziVRkkvwB2h/G0 "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.788769224074355*^9, 3.788769239725587*^9}},ExpressionUUID->"04e35d71-74c9-4460-afa3-\ 277dc7a29808"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"p2", ",", "ab2", ",", "p1"}], "]"}]], "Input", CellChangeTimes->{{3.788149929642173*^9, 3.788149935984384*^9}},ExpressionUUID->"c9c3ebcd-f12e-4755-91b7-\ 42345425408d"], Cell[CellGroupData[{ Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, Annotation[#, "Charting`Private`Tag$16304#1"]& ]}, {}, {}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxNyQlIEwAUxvFpGZZESou2EGrhZpe55Ta1te2bus1gYLMGgZo0HRESxpZB hrkochhsgkGUlR3YYbpCdGWS0NJ0WGqhq61WpnhUmmTOEkaH+GZ98Hj8+HP0 hZmGUAaDIfh7c5+GX7/nNimfZzgknv8diePCUv8/M1FvyH87u2AWnh0o05oX HA1XXE+BOBD0OrSMRmZMTQa9HsXsou8jvUHHwM071R51LmgeTHetYg4/6A2I WezNy67+St4EsyrenjAwQd6C/GPRMy+nx8lbsVGmrY4b/ELmQzP84HHA/pks gO3aWKBd/4m8DU2tIgMvbIycgNJ7ISUZl0fIQoiTd31zCIbJIsjenRFOdAyR xehvU2dV5A+SE2Hf55jRRnwkJ+HkofOqqBMfyMnwN3I8tkU+8nbkbM4p99/x kiWw9GQKAsY35B14xOb7TLlushRuRVfZ4cI+sgyVQ6MHjddfkeUYKA91Wn70 koHTVXUl773d8zYDiQbjuCbsOXUFzBdZnhUFLuoK6JZ4j9SFd1BPwd5bzoeV 3jbqKbgUG5sr9jmpp8LXsIzLXP6Eeip+2kI01het1NPAjF+zktXdQj0Nkiyz 1LaqmboSRxl5/cwrDupKzCa5BFx9I3UVpgKm3ReyG6irIGrer7tpuU9djc7X az2Op/XU1eg6O90k7aylng6ljq3Zs/o29XToq6xXI2prqO8Et6+oYmnxDfkf MiTrAg== "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.462], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.012833333333333334`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.5517241379310345, 0.5}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3574212893553224, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->{{25.2, 1.3}, {26., 0.5}}, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666454081633`, 51.041665625}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB3DKXtnZe+drfJOK6rwpXETDSEZkKxVSSiqbjBQqfSt1bTIi I4QolIREZWRERrjXXhm/8+n31308H/fce87r8/58znl/JB0vHHfZQkNDo0FL Q0N8SsWtpyaLFR7QDhk6+S/NNCpjUhQ/5x6HRNhbv25uUlHtlfw0BfenqMXD fJNwguawLfvtTLT6PPOvG9S83RjcC1DefN5f34/XO7AWW4b0c8f++n1MO2nB rQY1Sa7//3tYzJ+LbUSqVhx49mn0QSukfNKtFS1bkf76wQNTN2rsN1TcIffX TXd7vMfc+hHTmvpfC7z1PzgVO4pKRU7/tVEVo+mIGxUdnff/a4n1ssfrmstI dvDeX39i12Sms6OBcsHLf61EWVnMPbkFyLb/d2RL1bCFJR2Y/fn/ekqrn9rk mNODu2PSBrHeX/lB7RvHGeBV285VwmsZs+yK7QyQvvlrkTDvUydDs2OMQCof niUsISziNnaHEQ6dl54mvONBR+j1Nka4zhM0SVit8wUPaZoRwjjsfhPW5IlN 4eZkAp6cLWOEdeP03mQeYQI7s7yfhAONirPbzzPBCaG3/YSr6aUT1mOZ4Bl3 Zi9hrQAaV7NmJuik7e0kfGX3hSM3JphAWkWlnXDp7I892SzMELJ4tIXwTo9K 1k0SM6g3sDQQ9pFRWlB0Z4aRLam1hF/0J/WZRzDDWX2OKsKU/xjf38xghss7 TF4RVra8XJhTzwz/eB5/SfgM16//OoeZYZ//6zzCWc1moTR0LJB05mom4ZGI unM7pFngVELUM8IyB9VPWOqyQJnRTBJhx42nEHSaBd6M5N8h/KycQyk3kAWe Vr2LICyiNrlGW8MCrr4bFwlbT1iPKPexQCKNrAfhpIwPrSfWWUBKItuOMJ9o ZkqeNisMe7ceImz+nS/muzUrnDrqu5twfELopa3+rPBWKECRMAeLI+nkK1b4 9rGclfDh+jb10G+s0Hxq9s8GdlQgEi5YZIWdmgkThBmWRCh0u9hgLWDzPeFD RdHfVM3ZIDroSwnh4HOrb6wvssHdHV3PCL9R8MgJi2cD9TruKMIbQ98SXhSy QUhMsDfhfU/1r/e0sUHmZ6UThP2tS1wZptmg6ju7NuGltvi9tirsoGgYu75O 3C8xtNIRJuzwBlR6CfsaeLEVebJDLT9POeHpKpN+xufscMG/8BzhsRymsJfy HNA0Gli3hi3n6ne+T58Dxh4GJhB2lhw5wezKATZOXx0Jp/Sa62iEcYBOdKga 4YEHb5Xs0zigTcd77Q+2mNm/vFFvOSBKnvcdYVsO8nrxTw44n2kfTrgr9EYb i+Q26DBfX13FFoCp8l2wDVZnLPIIW/6xSXWw3wahTM7WhNu9914ufbINGILy 0lawOf/Jsh98vQ2Sj1N1CJuO8Ruy9W6DroC5rmVsF9VVdnV2TgioOLK6RNSr JyJdQIwTnI+5XCGsEcG3n0aVE9ZySNOL2HT9ap6tRzkhWKfl0wL2ZFT11rLT nBBadmUn4S+ahx8l+3ACl5dAwjyR/7Zb07lETqAVJsEcUX+thdMW6Zzgoz8Q O4vtPRK8sq+UE1LkbnTOYMOBZAW275xwxK/n+DS2wu8db+bGOGFUIjWSSuS5 X36iZ4UT7GYCX1Gw+6c6wnOEueDmVMOWKWL/fOgoFq/MBTYjt7gnsfP1pkuu 7ueC9JBMrgnsG09Yf5HsuWBaT7xvDNvV8GGAmhcX7HkV93wU22RBjlcgiAvc PCLcR4jnxUT34GgKF/BJ7y0cIvKvtHa3vOSClivM+39iT6TZ+ZS+44KlzNhX A9gVa1fIYSNccEOq98YP7JO5BZvSStxwaLbD8CuRz2r/A1ZtbqhavWbeQeSj +6gyZ8wNUSxqR9qxl21G7OrOcUOnZ65fC3G/MPouZN/gBoaVnfrN2I0vaWPv xnFDfhEzfROx/7OKvnYo5Iak3GazeiJfWY4ZqY4bFs62DdUR9XXaM6H6hRss yJ2Ob4h6VpoJbc5zQ3iD7EYFkc9tsHCEngcW1vP5XxH5eC4YtvDzQIvqZ9YS op5noq482cMDFxXGo/OJfPwCnGGGPMCuO8T/nKhvXXqmpzUPvP5z40Ymsf8J 1X7VDuCB8fnUoafE/tJgel46lgefD179j7B1fHrpWZN5QOV4cvkDop5NSxrd NTwg50FLF0fkvxTWXNvGA0s9Wr5RRH0leZyzB3lAxkGmNoyo51WVhCtbeUFZ UmzmGlEvRZcZfgNe2Axqz3bFXo2+VPnDkhdC91SePk3sn5SwsDRXXqAkz63a EPmKMwT/DeeFPYHWn49iF/GXDS3f4wU9KQFmY2z7q415Nem8kG1wllmPyHtg TMeknhfSpy1P7cF2Jy+z8nbyQpFlaZE6sT/SMX/tHuaFM/bRn5SwvT4onnGn 44NiQVlLEWJ/MD8bH3KQD6zDZwrWNqioo/SarZEZH9Sc6tOYxw4SjJHjcuKD P862Nyewe/tyK5KD+eBIzUPnLuwED8rP8lo+cGZe9SzChuaN3MDPfJCaf1Q4 C5uiss3PYJAPzFnMbz/BNppXZe2k4QezbEptBDbNTe+d04gfxobMbE9i5w8G rZce4Yct4iE7TLBtDsU3XrfnhwZG7WTALmV+acN6kx9+zdsckcP2TJwPkavm B05T287JdSoSWqIznfqE/0/ZyvsHduNJPoHiH/xwUJ2a+glbSlwzV2edH4wi bT7mYndl+3XY7tsOUoHyAq7Y4WyRydKHt8ODR4t2ZtgaF5Lcf9tsB7Ekrd2A fUejfM3v2nbYy307RQBbv2ZVJqFiOwgK2x17t4br1XH90oc9AnB/q2cZA3ZW mLPjT0MB8Cyw7vr9h4qSNY2P/LEWgLbxU74t2FFJAor/XBcAv+kMnkRsJ9uX vXdqBSDN7+WwALY1+38fstsFQCldO2R5Ffc91YGldUMCoDCabfINe5+E6Z15 ekH4qSbrFI/NOzx20MpIENoFGUM2VqiI5V6rmreNIHQvOpz9hk2jXyoa5SkI Sf/5Xy3AnswMWaq8LQgBdV1b7bDrz4o9F/8iCExnairzlqno8pwZ96iNEMh8 GGGVXcLXO01rc9NTCIKDF+aoi/g8t5CcFLghBO93Xl4oxzYto9QbPRMCZ5YK HWNs+Wu3ruYPCwHF7u244wI+T5S9XBsXhKAitytCDpv3h6XZAIMwsLBp7x2f x+tDMv9wKwpDXOTH9rPY37fUDFw6JwyOKvsTnOaoqOVl+qfbN4QhMDjTUQz7 nXNMRWacMKQkPad8m6WiwoaTiV2FwjA+EaJpgB0VNW+wf1EYDlrcsuGfoSJt bqUCupsisMUj8vklCv4/WusPn+JEIFU9d48otsPMraH7z0QAvjD7vZ2iotC2 8e2KdSJg3tdIy4bdcjs70IReFJ5Up8rHTuDxrIrH70eLQuPmhL3pGBXNrlp5 2j8WhdhMC8uBUfz735HhCnmiUHvhW7MXdvaHsYqKFlEoeZPSHTOCx0dkSfdz icEc3+aewmE8nk5hQT5JDEo9mTazBqiIf/7EtpksMVizoO6UwM4ailCsKBcD ASOfzHv9VPSpbtTucI8YxKWJ61zrw+ODMhu8xMSBdKp/Q60Xz7cul1SeJg5r b5VTDn3D98uUZVFwiTjkTz3IS/6K8/SGNxs3iAODx2T7YideT+UITd+oOBhn yDiSO3C99n/RCOKTgIeHm/f2f6Yitz/xT9KtJMBCvYFv5SMVJZpOvr3qIAFx /i37APsNWe+3ibsEbCZT7oc14X6AtKy56CcB5FbjJywf8PtBol2b/gMJuBD/ fnS9nooUVRS2jnVKwLzRe82IGtwvBAUpvv4hAR2dml4F1bi/6ug+cueXBNBd T0jrrKKibv/Yx3sWJMAptWdO+DWub+Psrlu8kvDqF8OvuFf4vHOoclcyk4So qfoO7kI8fzF/3Ia1JHx/KBol+AL3b4xeJe2OkvDp/CUusQIqepwnteWajyRU 8v2OlsjD/cVqxKOPdyVBa0p/jCWbivISjrd4tknC9e5JZd9nVHShYXRngYkU 3NsRzZwUi/NC7lllSyngv/NLVzsGnxeVXqnZp6TA3HE5pycK99cFK9xpF6RA 7t/wZZ5IfH2TWGeT7kqBS/6qpGMwfr7Oqr4I7pSCmngmX+/LVBTA6adsaScN dw4oWunaUlFzlLbzFxdp4Ks+XxZqTUWi9DSPj56Xhsq+CI13Vvj9YCWS1fim NCRWq1/VssDPz9B/vxFZGvT5Td5uNaWikJLqLMVf0lDBO8HFgPD1smaQXfeU AY4GVrMCMSo6oMa2OO4rA2kau64ViVDRDD1349cAGThwObGsSIiKrApFPV7E yMCh4CqHHH4qkmXaleeUKwMmynvFL3Pg/CVOu5omZKB0f/uzgHUKWuSs1Xtw RhbcWu1e2XVRUM5IA3+ojyy0d6nepftGQXavm0e9/GWBh2ecnNVBQe/cvt8y ipIFXgN/h7FWCrpbTf20ni0L3ArLjPoNFKTsKWbpPC4Lj11cCvyKKMip8Zqr urscVEdLfSdHUpDzPjnTxQty8C83t+5yGAW5FrbtqvSTA795w3zjEApyfyRL rxchB496k0LGr1PQ+QutqVYZcnj/+dFDc5GC/LdLD94cloNxzXN8+bYUFO/W ZNPiIA/dPAbN0ioUVMsoeOzsSQVIDJ+clPgwhUZSVYy6TitAaJrM5+D6KcQG hw4anFGAi7VqToO1U8jqyoVd0tcU4Npn98jEiilEHasX7HmsAOzaXx63P59C ok0+P40GFKCv3F0wN3YKXY1pvqjkpggPH+sYyB+ZQupcgffHfZVgeZJcOv9h EjnM7Vc29VSGwa+bwhnFE4icXC+yFKsCkSlf6c+7/EYvb2v1tB9XA12xjvek LePIt2L/0SeH1aHNmqq6kjmKaprSZ2/Z/AvfzcMP75AfQR4Ge6s8rHYC+H3/ JV89jB5nqZecPaMBZGMRlxmtIXR3rirIy28XxNN3rKU0DqKRnEuX3X00wdBj RPrdlQH0Tj8+KTh4N5wu+pqmurcP0R7p/hkXuAeKeUlS8LkH0eiU0j67uhfY 1q4z1Cd2ocjtSybtEVrwrJT0wuXoN+Rl7VS3FKINL+Uv9/lZdKLBIA1ndG8f 0GWM61md/IJ4Ex523yLvhyKUHjUb/RllcCpdbXx0AG5nBCuF0rShWh9xPfnn CDSHdcpaJ5pRssQzkf3mAPc67Ok/GzShqoBVGvc2gDdmg9RjvxuRpDHjmvQJ HeCVHfqydrceFbcqRnd16IDxm8xJyztvUUzDhpqEnS4+f6yz2JJqUcLF8TMO vbqQGOAX2/ilBgXwiW2TOnkQmFXPSD/5/BplK9I3+Q4cBPloF/F9veWIYZ5W sPbUIWC9b8hgcLIMZaoV3kgePQT2kHp64GcxUnTMMV0/pwdhYwlt20uLUI9h eZHFhB74mjlave9/gdpT/f9BF/XhnWLnFlG5fLT88tg+qVl9sFrV2W4s+Rxt vvIpCT9vAOaat5MD/LKQsZq+XsCCAWjUF5Xc6klHjXaqHmcvkoCeX/lRZk4q 4nZyr3xyiQTpn/wkHMmp6JQ7mb3NjwQKm6PMkkmpaNGHp0gjgAQldznocsNS kUzk0up6KAnY6k57LzqkosCimpg790mQURa1zVYgFWkxHn1RUk4CtFvL4nRU Cu6Pbm0Zq8TjuXkG0oNS0GeuOnOhahI8ufQ1nXIlBbmLaKzcqCPB76SF3hi3 FPRAXUCX9BHP/yS488+hFDRvM/Clu5cEbnS6rSk0KQhOC8qx95NAV1rpvNIy GUW7Hr+CBklwtN1+ZymVjKS834mk/SLBSErMju4+MjoWnuVyjkKCGeuufLMq MnocPVj2dJoE3iRh27ViMhq7I8TSPkuC74a2stm5ZBT4KCZfc4kERkbFDNse k1Hzs3oajxUSQM5ukfcJZLQ9Y+P4oz8koB2IJ4VFk5Hj893pn9ZJsFUkIEo/ hIzyX3gtbW6SoPh29gDrNTL6HwSMotM= "]]}, "Charting`Private`Tag$16304#1"]}}, {}, {}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.012833333333333334`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJxNyQlIEwAUxvFpGZZESou2EGrhZpe55Ta1te2bus1gYLMGgZo0HRESxpZB hrkochhsgkGUlR3YYbpCdGWS0NJ0WGqhq61WpnhUmmTOEkaH+GZ98Hj8+HP0 hZmGUAaDIfh7c5+GX7/nNimfZzgknv8diePCUv8/M1FvyH87u2AWnh0o05oX HA1XXE+BOBD0OrSMRmZMTQa9HsXsou8jvUHHwM071R51LmgeTHetYg4/6A2I WezNy67+St4EsyrenjAwQd6C/GPRMy+nx8lbsVGmrY4b/ELmQzP84HHA/pks gO3aWKBd/4m8DU2tIgMvbIycgNJ7ISUZl0fIQoiTd31zCIbJIsjenRFOdAyR xehvU2dV5A+SE2Hf55jRRnwkJ+HkofOqqBMfyMnwN3I8tkU+8nbkbM4p99/x kiWw9GQKAsY35B14xOb7TLlushRuRVfZ4cI+sgyVQ6MHjddfkeUYKA91Wn70 koHTVXUl773d8zYDiQbjuCbsOXUFzBdZnhUFLuoK6JZ4j9SFd1BPwd5bzoeV 3jbqKbgUG5sr9jmpp8LXsIzLXP6Eeip+2kI01het1NPAjF+zktXdQj0Nkiyz 1LaqmboSRxl5/cwrDupKzCa5BFx9I3UVpgKm3ReyG6irIGrer7tpuU9djc7X az2Op/XU1eg6O90k7aylng6ljq3Zs/o29XToq6xXI2prqO8Et6+oYmnxDfkf MiTrAg== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.78814997683762*^9, 3.7881499822780237`*^9}},ExpressionUUID->"b3a2e6c4-808b-436c-829b-\ 25d0feb8f19f"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, Annotation[#, "Charting`Private`Tag$658440#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1y2tI01EYx/GphVHqzG6DNijTkHC1LLf+ednPuYvJsNheZCkmhSa27I0K Ol+EaVg2J6QGsWJRRNBaNCRips3LJEiTotoqtdWGXeYuBSaozQqf/4HD4XO+ z7P95DlNRTSHw8n4d/+/KycstY77rz9NCEvpAy2/l+cfmkPkNfCts/clDbNO RGnHZm7NBdYbESWZM56NYvd5OFE4/76tiDUfnFmRIdXAzm/DEWtAK1OwPRkL 90M2yyrWKVhf463iqdj5nZjKvLXQ0Mk6DZ7DjgpeHutdKOlr+Xmbzzodx4ZD 9uyYIHk3XDFT3FRTgCzCL81Ycad1lrwX9rj26PRWPzkDPY7TXOfED/I+GPZc re0q/07eD0vx2p4EzTdyJqYKxOPXlF/JYvhElUNxZTNkCRI9sg3JMz7yARiZ yrvqiJfM4Er9gwHnoy/kgwgud1iqn30mZ2GpscHJsXrI2bC15gRMf6bJObg8 KAkr4yfJuTj+KWJJ2vGRLMV0/82B9m43GSgVqOqXdK4VnwcWzzBp6sK31PMQ q4vYX8a8oZ6HLuHWe411r6nL0Fxt7PLHv6Iuw7uMozZ92wT1fJiNjCu7eYx6 PuRutV8geEFdjoi3JOWS/jl1OWT6TbElHaPUFeCNhPvKnCPUFWjiBzTu4SHq SrhD5e7e8kHqStyJfGDEqx3UVTDlmkcXi/qpq9A0adVe9NupFyAr6BJ233hC vQBCfd0WRvuY+iHoqk5FzdX2Sv8CMzftpQ== "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ RowBox[{"Unevaluated", "[", TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], "]"}], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, "Charting`Private`Tag$658440#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJw1y2tI01EYx/GphVHqzG6DNijTkHC1LLf+ednPuYvJsNheZCkmhSa27I0K Ol+EaVg2J6QGsWJRRNBaNCRips3LJEiTotoqtdWGXeYuBSaozQqf/4HD4XO+ z7P95DlNRTSHw8n4d/+/KycstY77rz9NCEvpAy2/l+cfmkPkNfCts/clDbNO RGnHZm7NBdYbESWZM56NYvd5OFE4/76tiDUfnFmRIdXAzm/DEWtAK1OwPRkL 90M2yyrWKVhf463iqdj5nZjKvLXQ0Mk6DZ7DjgpeHutdKOlr+Xmbzzodx4ZD 9uyYIHk3XDFT3FRTgCzCL81Ycad1lrwX9rj26PRWPzkDPY7TXOfED/I+GPZc re0q/07eD0vx2p4EzTdyJqYKxOPXlF/JYvhElUNxZTNkCRI9sg3JMz7yARiZ yrvqiJfM4Er9gwHnoy/kgwgud1iqn30mZ2GpscHJsXrI2bC15gRMf6bJObg8 KAkr4yfJuTj+KWJJ2vGRLMV0/82B9m43GSgVqOqXdK4VnwcWzzBp6sK31PMQ q4vYX8a8oZ6HLuHWe411r6nL0Fxt7PLHv6Iuw7uMozZ92wT1fJiNjCu7eYx6 PuRutV8geEFdjoi3JOWS/jl1OWT6TbElHaPUFeCNhPvKnCPUFWjiBzTu4SHq SrhD5e7e8kHqStyJfGDEqx3UVTDlmkcXi/qpq9A0adVe9NupFyAr6BJ233hC vQBCfd0WRvuY+iHoqk5FzdX2Sv8CMzftpQ== "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{3.787888814635577*^9, 3.787888845573687*^9},ExpressionUUID->"110d1508-47f4-449a-9c25-\ 377394342e5c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "]"}]], "Input", CellChangeTimes->{{3.7881575133286047`*^9, 3.78815752257959*^9}},ExpressionUUID->"6bb366ad-7f76-490e-908f-\ 74dd2311016d"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, Annotation[#, "Charting`Private`Tag$658440#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, "Charting`Private`Tag$658440#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.786234861252247*^9, 3.7862348936027946`*^9, {3.7865858781911182`*^9, 3.786585920695506*^9}, {3.786585972713812*^9, 3.786586021397546*^9}, { 3.786586058396543*^9, 3.7865860762517548`*^9}, {3.7865861120614147`*^9, 3.7865861247176647`*^9}, 3.7865875009560833`*^9, {3.7865879868247337`*^9, 3.786588005305369*^9}, {3.786590305488812*^9, 3.786590324430642*^9}, { 3.786590447393676*^9, 3.786590588348343*^9}, 3.7865906622212477`*^9, 3.786590695743114*^9, 3.786590761084384*^9, 3.786590808735655*^9, { 3.786590857612487*^9, 3.786590876009832*^9}, 3.786590967634021*^9, 3.786591147642356*^9, {3.786591219554637*^9, 3.786591253429737*^9}, { 3.786591344853108*^9, 3.786591362057863*^9}, 3.786592742238055*^9, 3.786592802768786*^9, {3.786593328241938*^9, 3.78659335369277*^9}, { 3.786593884209353*^9, 3.7865938966846933`*^9}, {3.786593927278536*^9, 3.786593941983594*^9}, 3.7865940092738028`*^9, {3.78659466402131*^9, 3.786594706755332*^9}, 3.786594862247802*^9, 3.78659895689473*^9},ExpressionUUID->"0dc29df8-1e4f-4a69-b6c7-\ 84aea7ea6889"] }, Open ]], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, Annotation[#, "Charting`Private`Tag$658440#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3894261766602193, 0.4833084823855587}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->{{45.2, 4.6}, {42.8, 3.8}}, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666454081633`, 51.041665625}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13k8VVsbB/BTkXk8hmPMPN0GlVSm9ZRwIpIp4yWEypQGkkRIRIQb3VDm IUNkiJKIxBUyJEMhJRnOKZnHd+3ev87n+9lrn71++9l7rWdLOnqZnN5MIpFU NpFIxK9UzFpGqniJlnrIqNUe0k9Uyay4zcMtBolytH/Y2KCjOr+iTAW3h6jt jNkG4XjVr7Ycd3LQ8uOcP36jfN51q1sxKpwt/ON7cTpaq9GVSLdg/I/fRnVS 51xrUYvk2v+Pw3zR7+gmtMuSE1/9J2pWC6macm1Hi5bUP05MNHKlR/eism65 P265O3B+3HUIMa/u/mPKa3/t6ejvqEL01B/r1zAZjbnSkfGs/x9LrFUmr6ku ItmRf/74HYcqC4MdCaqELv+xEm1pvsBqM6TZ/t+32mq+mlswgNnK/+dT8fKh Tb4ZIzg7Jq0T8/1WFNy5brIVSjr2LhNezZ7hUOzcCikb3+YJ8z10Omp6ggl6 K77OEJYQEXUdj2WC26LSPwn/ldgdeq2DCfoZgqYIK/c8IVN/MgHtis0EYVVy dDovNzMwXCaNEz4co/Mq5zgzXL6X94VwkH5ZXqcnM3D7vxwi/JJROn4tmhkG /dIGCasFkFxMW5lBcV93D2G//V7HAyeZASnKdhKumPl0II+VBTKzdNsI7z3z nG2DygLRmWuNhH1klOYU3VjgkV1CHeEnQ0mfzcJZQIF9/QVh2r9Mb69ns4CP gfozwtstLpfkN7JAW7fWU8Jneb792/OVBeS4cwoJ57aahpIYWIGZ2zGH8Fh4 vcdf0qwgrHT+EWEZ7d0nLQ6zAktZTxJhx/WHEHyKFfy23I0l/KiKU6kgiBXI npnhhEWVp1Y31bKC4+THC4StJ63Htn9mBde8VTfCSdnN7SfXWEG175odYX6x nPRCdTbo+JpyhLDZR/6oj9Zs8OMc2k84Lj700hZ/NvB4rq1ImJPVkWr1jA2o rP5shI81duwO7WWDubKilXXsyCAkUjzPBtmBBpOEty6I0hj2sQOoFb8lfKT0 du8uM3YY+BxYTviGx/Ir6wvsYCwf9IjwK4Uz+WFx7KBkVR5BeH20N/5JCTvM VkmcJ6zxUPfaQAc7HIxpsCDsb13usvUnO4SIZ6gRXuiIO2i7kwPsgoXW1ojn JWqTdLghBzAOlw8QvqjnzV7qzgGjnPeeEf5ZYzjE9JgDPH4reRAez2cOeyrP CTwXxupWseVcfD0/63LCU9pwHGFnybGTLC6c8N1ltyPh9EGzQyphnKAl2b+L 8HDiayX7TE6QP163soItbrqHL/I1J5i9//s1YVvOtLWyL5wgsCMrjHBfaGAH qyQXqB87uLyMTYHpqn3ABUzXogsIW6zYZDjYc4GBY6IV4c7zBy9XpHABm2xf xhI2945c+5EXXDDrJXiIsNG4wFH2QS7Yp0/pW8Q+vWuZYzcHN4SHey4tEPUa CM+iiHMDt3awL2GVcH5N0i5uOKLuSJ/HZhhSdm835oayzNHWOeypyJdbKk9x Q6l+1B7CXarHHqT6cIOlvVLcLJH/jmuLRwI3yGudRL+J+qvNnTLP4gZWTVrU DPb5sRtLGhXcIMh3u/sXNmilKrB/5AaFsrETP7EVJv569XucGyZKCsPpRJ57 VScHlrjhxK/IShr20HT3zXwRHpi/175pmlg/7zuKx23ngbfusTxT2EU6P8uv aPLAm8x87knswBS2b1R7Hrg7K/hpHNvl6P0AZW8eWHELzv+ObTgnx0cJ5oF3 i96uY8T7YnhY+3s6D6xKcz0ZJfIvtfe3PeWBGZFu9S/Yk5l2PhUNPBA3blA5 jF296pcWNsYD2gsh1z5hWxUUb0gr8cJ0gyb1A5HPUjORTZ0X7AS7TLqJfAz/ 7fxtwAuzzy4admIv2ozZ1XvwgtC29kttxPPCdHEuL5AXtIoOH2nFbnq6Kfpu DC+E9m7Z0kKs/2xiLxxKeOGcYPKJRiJfZb4ptZ4XomoiRuqJ+jodmNzVxQvS QX4Or4h6PjcV3pjlhUftKSvVRD7XkZIxRjIEtfLyPSPykb2OtgmQoT9QkqWc qOfZSL+UA2Sw9OeLKCLyCVC4w46SIWF9lfyYqG99Vo67NRnuFIVfzSHWP+G6 D+oBZNjMHDX8kFhf3hh5SkeTYb2OOvgA+5DPICNbKhkoLq4ViUQ9WxZU+mvJ UFBbQIoh8l8Ka63rIMPHol7vSKK+kmTnvBEydJtX14QR9byyM95vCx9s9kuc vkrUS/H0LwE9PrD24c12wV6+fen5Jws+2Hp92u4UsX7SwsIyXfggl4OyYEPk K8sW2nOTD8ZjHN8ZY5cKVI4u/sMHRU94GA2w7a80FdZm8UGqjwWjDpFXa/yQ YSMfvG2WtT6A7Za2yMbXwwc+Or5Fu4n1kYHlQ/9XPpCJ1WpWwvZuVjzrxsAP f3lUnRAl1gezc3Eh2vywo9bk8eo6HXVXXLXVN+UHV4u9yrPYwUJRcjxO/BBm nuU/iT34uaA69QY/bLH6z74PO/4M7UtVHT+Y8JHcSrGhdb0g6D0/DEccE8jF pu3k8tUb4YfQzboRKdj6s7vYekgCUN7y7kU4Nun6+b0/kQC8Nuc5aYVdNBK8 VnFcAEZZNeQMsW2OxDVdsxcAPcepJMCuYHlqw3ZdAFIZ1o/KYbsnzIbIvRSA jLCh9qk1OhJeYDCaficAfGVd5z5hN1nxU8o+CcA6t1PqO2ypbaoFh9YEwPLQ q8YC7L48325bDUFwmvDkdcG+yX4rVfqYIOQuq1qaYqt4JblN2AhCDdfF3YAd q1K16ntVELz2VidTsHVrl2XiqwVBrt3boGEV16v72qXmAxQ41GxdshU7N8zZ 8ctRCgjP6XRNrNBRqqrB8RVrCmRT9DzbsCOTKIo7rlFgUTOSIwHbyfbpYGwd BV7dj/tMwbbm+Lc5r5MCBXbC1xaXcd/zMqiifpQCXZy39HqxNSSMYmcZhcCo dZNdHDbf13FtS30hUDs3GrC+REes/7Qrn7cRghtxGqd7sUm6FWKR7kJwwN38 QjH2VE7IwvM7QqDSVrpmi914Tvzxti4h6PBMKC9cpKPLv015v9sIg+r+MkbZ BXy/M9U2NtyFQUarfpo+j/dzc8kpSqAwnDE7TK/CNqqkNeo/EgYp3TB1A2z5 qxFXir4Kw5zDnVHHObyfbPd2aZoTBgHGrGA5bL5PFqbDW0Vgfmzr3h+zeH5I ZgevoggcW0lqPYf9cXPt8CUPEWBi4Ix2+k1HbU+z3t0JFAEf+Su24tgNzlHV OTEiwMkSON47Q0clb6wS+kpEgDx2UlkPOzJyVk9zXgTuSzmYC/yiI3VepWKG 66IwFeiUdYmG/2+TdfO7GFGQyg7fI4bt8Cti9N4jUYDkb96vp+kotOOHoGK9 KCQoZ66wYbfdyQsyZBQD2/tBktGTeDybosm922KwNFRlZTRORzPLlu72yWJA QtLGw9/x+RO3bioUioHkzcw33th5zePV1W1iwPjJsztqDI8Pz5Ue4hGHp0bN e0q+4vEMCnPySeIQatK2mDtMRwKzJ7l+5YqDbVzZDgns3NFwxeoqceDtUk37 Z4iO3tV/tzs2IA7SWV/Urn7G44Nz3niLb4PhwtRF5UF8vTW5pKrMbfDUceTB kV78vExblN4o3wa0bv2c1A84z+DNVoM320A0KKV1vgfP5/kY6fP3baDd/t4m rRvXS7NLJZhfAvTueu8dek9HritxKVmWEvD3qB3X0n90lGA09fqKgwQMROeq AvarNJ0JQzcJyI0KjQ1rwf0AdVF13lcCwm2H77E24++DBLsO3UR83MtmZK2R jhR3KmwZ75GAeAcb5fBa3C8EByu++CQBXgdbzhS/xP1Vd//x2G8S0KAun9pT Q0f9/tHJB+YkoEbDe1rkBa5v08y+CD5JyChO+RzzDO93DjVuSqaS4Gjh2MZb gq9fJhCzbi0JXI3VIUJPcP/G5F3e6SgJ67ZkNvFiOkoulNp81UcS7t+KCJMo xP3FcviD/+5KwnGjHyOseXRUGG/S5t4hCSuscXIXH9GR15vve4sNpeCd6erm pGicFwrObbeQgkP2xhrqUXi/eO6dkfe3FGwOsc0ciMT9dfESb6aXFFCWB36R b+H7m8Q2k3RXCmTndok43sDv17ldT270SEF2PM39/GU6CuD23W5hJw1ZLGB8 2JaOWiPVnbtOS8PxT77FodZ0JMZISjb2lIbRqJDtDZb4+2DpFpvBdWmw3kM+ r2aO35/RfydQmjRU+a1WbzGio5Dyl7mK36TBiUGLZSvC98t6q+yauwykPCo/ WixOR1rK7PM/LsqAwrGe86WidPSLkbfpQ4AMxNcrFZUK05FlidiZJ1Ey0EuB k/kCdCTLvK/QqUAGdubF81/mxPnLnfa1TMrAh6Mf7wWs0dA8d51O4llZeE2v K7Tro6H8sTcCoT6yMB8beZOhl4bsXrR+9/aXhbILaom53TTU4PoxQj9SFi7s rTIfb6ehuy/p79byZIGRj7ym84aGtruLWzj/kIWXFI1M31Iacmq66rLbTQ7g r+DWtFs05KwhZzTvJQf7KGdVF8NoyKWkY99zXzmw93uQbhBCQ24PZBl1wvH4 jE++P67RkKdXe4ZlthyICLF2kC7QkL+g9Mj1r3LgceUiS5EtDcW5tti0OciD WtymV9I7aaiOSejEOSsFeCwpNyzRPI3GMnbq951SAJKmTcONxmnEDke09c4q wHFfZ4uRumlk6ee1T/qqAqTIJl5NqJ5G9PFGoYFkBRD2WYzpfDyNxFp8vugP K8B7cgh7QfQ0uhLVekHJVRF+6TiqyR+fRrt5gu79uKgEH+/F5M02TyGH35rb jdy3g718Lmd22SRKS20UXYjeCWLraNHj9AR6ekdtoNNEGe7ud3tO3fwDXazW NE45thsonC1SSznfUW1L1kyEzR7gvjiA/pIfQ2f0DtacsdwLrPZ9ffIvv6Lk 3N3l586qAHlE2/qX2ii6+7sm2Nt3H/DeKJlJbxpBY/mXLrv5qMLbFmfhBr9h 1KAbl3Tjxn7gu++RsOvgZ7TpeP+XmKADMKuyzgfvBxDpUMWmR1cOgs+zt+sN CX3oluCCYWe4GuyP9C8+bdyLvK2d6hdC1MEzrfeLr3kPGglWcUb/aMAh78vH La26EF/8/f6INE0YL6tKnLn9HmVzK11peqAFruHmB0NJHajOZ5uO/GME9f1T H9onW1GqxCNRTTOAU3ts5d7rtaCagGWSWwfA27gTnCYTTUjSgGlV+uQhuN3S MrJ6txGVtSve7us+BJsSDv6yiH2Not6sK0vYHYZb7d9S2JPqUPyFH2cdBg/D tKuhQVNXLQrgF+eSstIG54U9PcnvX6A8RcaWi8PakMHiXqM+WIW2zm4Sqvv7 CHxgY0vRtapEOcolganfj0DSiS0rQ1/KkKJjvtGahw60bzf2FqwoRQNHq0rN J3Wgspa81jT0BHVm+O9AF3ShhTPAQ1SuCC0+PaEhNaMLhUwvCvUlH6ONZz7l Nz31wDZn2TLANxcZKOvqBMzpwfyQTGzEQBZqstt15twFKswrHb6bk5+BeJ3c nqdcosIGeVnAMS0D/e2WxtHhS4UzDT0kyaQMNO9DLlUJoIKyyvuVx2EZSObW wvJaKBW22TWenXfIQEGltVGx96gQCWzstpQMpMZk/KS8igq3i4xPnopMx/1R xObx51RoZLz6JSs4Hb3nqTcTfkmF8ok7uTS/dOQmqrIUWE+FCwLHhqNc01Hi bsph6n9UmNjM0r9yJB3N2gx39Q9SgSV5riedlI7glJAcxxAVmC+LX1JaTEO3 XUz80AgVRl/Fq1XQ05DU+QbRzG9U+HFKY2//5zR04mbuaQ8aFf777FNpWpOG km+PVD78SQVhwynn1bI0NB4rzNo5Q4W2FKedeQVpKOhBVJHqAhUMHspwcyWn odZHjaQzS1S4XNAv+zY+DQlmr5s8WKHCgJmrSdjtNOT4eH/WuzUqPH4TlKAb koaKnngvbGxQgUP50wTb1TT0P3QFlcE= "]]}, "Charting`Private`Tag$658440#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.7865948715550117`*^9, 3.786594873980124*^9}},ExpressionUUID->"02b3d94c-d199-4760-bc0f-\ 04165355a71e"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13c81d8fB/BLZO+ZvRJaJL4hnXcJt6VBtiJ9rayKr0hWpMxQ8S3Jyihl 80VZhcjKSEZG9ro3Msv4nY/fX/fxfNzzuOfzOu/zOed9Ja+4XPiblkQiqdKQ SMSnVOR6SoJY7hGNu8MmB0g/UTGjvLiTXSQSYWv5urlJRVW33qbK2b1AzfYG m4RjVEfM2SLS0e/X6VuuVbxuu90uG71ZeLPlJ9HaR9bCi5FO1sSWP4W1kRdt K1CD5Pr/v4elt7/C69B+Y3Y8+09Ur363ZMa2Ba0Yk7ccG6tnSw3vQgUdsltu iOq9PmE7gBjXlLYs+MFLazZ8HBWJWG355HsGvTFbKjq34LVlifXi+HXVFRQ5 9HjLTWyqTHQWJJhyu7VlBcrqUpYJLZQzxGz5fvP7kYuGdJBT+f/5i8pfmL0y oIdlJ9Wt5x1969+2cWE72Awq/yG8ljbPJt+2Hbp/KqwQ5n1hfUL/PANEDXou EJYQFrGdeMgAbj3UOcK7YzsC77QywDvjWAphxc4cHvJPBkjmfDFDWJUnPJmb kxHM+92mCB+L1K5MP8sI3izho4T9ThZktjkzglht/w/C5fTSMevhjHDhPe0g YXVvko1+IyMci/zQTfjWXy5nfaYZYcHPaqt+RfPfD2UyM4Hs9/Y2wsr2ZSyb ZCZopT30mfANGYVFeTsmIA8r1BHOGYjrNwhmAgnzhWrClKcMn3zTmGBo5VE5 4T2G/+S+qmGCZD1SKWEHrtGnnSNMUHm4t4BwRqN+IImOGV6z8mUTHguudtot zQzxdNkZhGW0lIwMjzHDN4dXSYSvbLwAfytmeBrE+JRwYgm7QpYfM+x81hBF uN/tDk/XC2bIm5u7T1hEcWaNpoIZAlt8fQmbTpuO7elnhh4vd3fCcWn1LUbr zEBV63AgzCeanvxGgwWsWdv0CRt84wv7ZsoCalk3dQlHxwS6b/NigaZbd9UJ szNfIZv8xwL7c+fFCJ+uaVUK7GKBW5kGnIRD/JBw9hILeI7L0xDevixCoVNh BWCVHNrAPp4X2rXfgBUGt5m3EA5w+l1pepMVrE0nyghXytm/CopmhZ4Dn9II bwx3xeTkssL5nPVIwodf6NzpbWWFrsUQD8JepoU223+ygq/sDQvCy63Raub7 2MC201CGsGoYjXTwGTb49K8xPWE3XVfWPEc2COh8N7KO/fP9mQGG12xARoUJ hCdeMQbl72KHjNykzTVsWRsP534ddgjY/qud8FXJMSMmG3ZQni5OI5zcZ3D0 YBA7VAfMexAejP2gcDmVHc49CdElLKZ/gDfkAzucmBDnIWzOnrRe8IMdjicW dv/B7g70aWWW5ICLcRQjwoIwW6ICHOCxLY6DsOEfsxTLyxyQo6BX/Ru77bra P0XPOUAqeUWQMOfejMtD7zjgkuPEu1VsvQn+E6x9HNB7cc6M8N/7f7MpsXFC bJ9p6ApRr97gl4JinFC1nYeb8MFgPk3Sfk5oKeONWcamG1B0bDnHCT7ajIFL 2DMh5duKrTjhCAfNwiJ2u+rpZwk3OMG0Vv8S4eQI2wanR5xAW8YvtUDUX33R 6uJLTvivK+L2L+zrYwGrh4s4QTjRtWUeG44kyLF+4wTyvJ/NHLbc1O7KXxOc oGlWnPmTyPOkxKh3lROU99mOU7EHZjvuvRLmgpy3uXoU4jz994pY9B4u+KSr 5TyL/Vb7Z6GnJhcouyv6zGD7PGcZJV/mgr/ukF2msG1O/Out6MoFFu3Xmiax zyzK8gr6c4F/dUDyBJE/qeD1ZhQXVF1etB8n3p8zx7TGk7ngUM0+qTFiPVZb eprzuUB2RO3zCPZ0qsWNoo9cMPJG8u9h7NK1W0lBY/h5eJyvDWKbZGVvSitw Q9poxcduIq+xZiyLBjdQ2AcXu4i8dJ/3/TrFDS7WBwW/Yq+YjVlUO3EDncFL xTZi/zC4LWb6cMNGW5dsK3ZdPk14VCQ3MGs5sDcT9wOL6DvLXG7Y964nt57I W/xKn1zNDQcymp3qiHpbH5re384NDecndtQQ+cr0hTYXuOGEylm+SiKf7VDu GD0PRPWyW70n8vG4nGjm5wF9o6DQUqK+DiG3nh/igbyxZO8CIh+/IGfQCR5Y oz+nlUvUu/pluqMpD4hxV068Ic5HoaqvGt48YM642JJGnDe1es7S4TwgtVHB lYJ99EYfPUsCD8ismBx4QdS3YflgTwUPaHIycMYS+d2DGqtaeYCkLtEUTdRb kudq5hAPXPHltY8g6uu5L+bWNl4wcHuqGUTUT/7vOX5dXnj8ytXkOvbvUPey 74a8cO/sIXtH4nylBAWl2vBCXqqquS2RryBtx4F7vPBdeWjaHDuPv3h45TEv rPmb3TXCvuxZ96biJS88LXUcO0/kPTJx9EwNL9w/Jcqsg22XtMLC28kLgtcf NCDivKRj+tozwgtydPUGatiu9fIOdnR8wCu8u2Y3cV4YXIu+q8UHh0cjeNmx O4pum5/U54N2p36x7dj+O8Jkuaz54PTm0tz6BhX19WeVJgTwQeRXkfkZ7Bh7 yo+SKj4wC3E2+oQNjRtZfl/4YDRc7WU5NmUfh4fuEB/kNZHKCrBPLuxn6STx w49nokcSsUm+15V/In5wT/vwwg377ZD/etFZfhiMa5KzxzY7Hl135zI/jPRr m1pgFzHlm7H48gNLg37scWzHRwt3Zcv54VhIpgs7ttAynd5sEz8oLcfMbK7j /WjCJ1jwnR8MPAXp57ClxFWzjq7zQ+pdT4Y27O5Mjw7zwwIgKGapG4l9j/V+ gvRpAWBPHnhyB/ugS5zdlJkAHPjE6nsN++HBkjWP2wLwoGpVQAdbp+K3TEyp APR3/rBaWsP16rjjXn9IEEZ/8tJpYWcEXb3y44QgOI84pMphJ6ieOvvHVBAu DPp9ZMMOiROU33tHEEaSOQO+/qEia/P8vodVgsBebThkhW3K9rQ+s00Q1H1/ qmhhnyv3K6oeFoSXTmvl0tiHJfQeLtDvgMTQsGs/fuP+ZWRCy/jkDmAI8RQy xGZ+3KJ43WwHfAxeolfCJukUiYY47gCniklBFuyZ9LvLZRE7IEyJ99O7VSqq uSb2Wrx9B0wsXf2LH/ufX/rc42ZCcKrQoCRxGa93Kr5WHYWADcYOOGNfuSg5 I+gjBF6ZBS3q2HrFlJqTiUJArpd3/bJERbtuP/B8OyIErtxWhxYW8f2yx9Wm blEI4u1qikuxeb8b6g9uFwa5zUwDP2wSktnLLS8MGgl8I4zY32grBt2dhMF4 0JqLbYGKmvNfNkX4CENc8rzA519U9PFqWGl6pDBs9DqPBWPn1po86s4VhrYu /871eby+IQu6mkvCkD5zrqNnjoo0uBWy6XxFYEU/lN+Yin+PxrS+KVIE5uwq 7m3Dtpx7MPwkUQSmvU4UvKFQUWDrpIB8tQh4t28e3ZjF4yMy/c7Qi8IivRHt wxk8nkX+wpNQUbj3Wq7DbZKK5n8bO16OFwUHRZVbLNiBU/fvyb0RBQ0n0czE CSrKrJ8oLW0WhVubX87VjuPxwRnSA1xiUK5P8toYxePp5BZ3xYlB5Vc+HYkf VMS/YMQxlyEG2iSOlfghvJ+Gg+VLS8SACUyWBLCbqsctTveKgXk6VwvjIB7v n17rKiYO/8bZ5Hd+x/Oty8aVpIpDlYS2qVA33i+zhnkBheKwQL+t3usbztN3 r/FUrTikPe6w7O7Cz1M2RuofF4cgk2HaqK+4XprtB/35JKD6iHrhZDsV2f6J fv7SWAIKjBpLNJqp6JHezAdPSwnYHe30+kET7oeStKfO2ElAXXpcY2cj7g/I K6pLHhLwu/tZjN1n/P/hkUWrTqwE8EZVUzw+UZH8PrltE50SIEH6laVRjfsH f3/5d98lgCefxulaFe63OnrOPhyVAH2Bbwf/raSiHq/w+EOLEnDUfvoLpRzX t25e5QGvJDy0F1zzL8P3neV7OwV9SRCOnh3WLsDzF/BHbphKwqS47pJBPu7n GFwL265IgpxK2oRVHhXFv5GivX1DEoKuBVq75+B+43fws89RkuBzZK9jQBYV vYm50OzYKgnwmilBOZWKXGrHlbPPSMF5uewQahTOC1nX9hhKgfmyn+fzh/i+ KHNNybwkBZoVz1LJkbj/zl7lTnWRArU6lPQkDK9vHMt8XJQUWMeebOEMxu/X tf05AZ1SkK2c99XrNhV5c3rsMbSQBkvbk/asV6ioMUTjavvf0nDA0vKCmSUV idKT4s85S8PIRUvr9Ev4/8PqfZZTvtKws0uXomqG35/hp1MoSRrqQ78hZQMq ultYniE/Kg3x0cIxz7Xxeplu37nuKANnKzZoxWWp6Igi69KkmwxM3vgjsV+G iuboueu+esvA3jFFi8NSVGScK2qfEyYDcUnKMnpiVLSTUeWNdZYM1AYJxOnx 4/yF1ioN0zJQ13r+ZiU9FS1xVmnHOuyEWOGhbJ8fFPRqrJY/8MZO8BovjFIe pCCLd43jrl47wfV4We7odwr6aPvtwcmQnWC7pyzpaDcFRZVTm9Yzd4I8J3m5 q4WC9jiKGV6d3Ak36Uxkvd9RkHXdbRslO1k4H+pM+zCGgq4eltVbcpEFnj7J uYWHFGST26pS5iELKapr44YRFGT3bCe9drAsiBbIjnA9oCBnl5YU4zRZMPI2 arX2oSAvAekh3xFZ+IBIjMF2FBRt22DWbLkLUg3d6abVKaiKYcf5ayZy4KZz yvZz1ywaS9l3sttKDhRoCuo1O2YRKxzX0nWQg94h+d6s1llkfMtFRfq2HLTY Z9D6188i6kTNjt54OWgfGdhFUzaLRBtu/Dg5KAf6bPlTl57PIs+wxpsKtvLg yFP36MflWaTE5fdk0k0BYm7/k1rWN4Msf2nu0XPcAzbUphDuz9MoKaFGZDl8 H/hYjeVZ+06h/Aj13rYLimA1ceWMvPgkcivVPPf8tBJkZiff2143jioaXs4/ MDsAUb8msxd1x5C9rtp7e2NlEPKNKlkfGEHxGUqF1xwOgpKDyjFji2EU9eu9 v6uHCvBOkbL5pobQ2Cv3f+xuqEKh3a6sb08H0Ued6LiAgL9gtY5ZZ/B2P6I5 2/Mj0u8QVMZFLK9y9SHS0SKaRE81uCSl+kylvRvdF1g+0xasDieHqu/ShHUh V1Pr6uW7GuD4x5tFPaITDfkfvIoeH4YEtc7bgxHtiDfm354HSZrgKnX/i0b5 F5TGqeBZ9+wI+H2IDWnc34qqbohr73qNwLuWX3JMqwklSCSKaBoATAxrf6F/ 2oDee/8m2bUCaBj9E0/71yckeYphTdroKAxEuZBmvtWgghb50O6OoyAT6DMp 3vYBhdVuKEpYHANL7r4PcR1VKObmpINl3zF4JOE/XSdZibz5xDikTLRgbYOj o/rQe5QpT9/gNqgFOruFhxPVS9H2BZodVZeOw/EjLs1L2cUoXTHXJ2H8OAhp LdA2KBUi+Suv9NadtIGvtsxiZj0P9Z4oybs4rQ3O21JXfCRzUVuK1150Uwfa vNX26Tx/i1byzx+WmteBvie0p0fCX6PN/24U3nPWhaX8Dy9CezLQKUUdbe9F XaCdL3GQUklDdRb77a/dJIPgvW6PvWspiNvaruy5Oxn2nLbzrZlPQZfsktha Pcig9dpixWoyBS3d4Mk76E0G6vcjahlfU5DM/eXf64FkqCza22afm4L88irC Hj4hQ8mxCxqVtilIneFcTmEJGVZ2Xa7I6UrG/dED2okyMjwSZHHoaE5GX7iq DYTKySA3e8B8rSYZ2YkcXPWpJkPU9H9cJgXJKFZJ8Bj5MxlW+3/Ga0clowWz wfaePjLkZL1knzqVjMBqhyzbABmKCwdizmslo1CbC7fQEBnkyYmn3qsnI6nr H0VSR/Hz5HmcSZJPRufvZfztRCHDJmpzf8aQjOJDh4pf/CTDNtUYB5nNJDTx UIi5bZ4Mexktg3OXkpDfs7C3qstksJgaUP42moQaE2tI9qtk4Dy7UHn9exIS SNu48OwPGfTUulw5OpPQldd/vWxaJ4ODvtqx3MYk9DbHdXlzkwz/6X5WNvqY hP4HwX24zw== "]]}, Annotation[#, "Charting`Private`Tag$603966#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.5, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3481624758220504, 0.4707898441747278}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->{{45.2, 4.6}, {42.8, 3.8}}, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666454081633`, 51.041665625}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwl13c81d8fB/BLZO+ZvRJaJL4hnXcJt6VBtiJ9rayKr0hWpMxQ8S3Jyihl 80VZhcjKSEZG9ro3Msv4nY/fX/fxfNzzuOfzOu/zOed9Ja+4XPiblkQiqdKQ SMSnVOR6SoJY7hGNu8MmB0g/UTGjvLiTXSQSYWv5urlJRVW33qbK2b1AzfYG m4RjVEfM2SLS0e/X6VuuVbxuu90uG71ZeLPlJ9HaR9bCi5FO1sSWP4W1kRdt K1CD5Pr/v4elt7/C69B+Y3Y8+09Ur363ZMa2Ba0Yk7ccG6tnSw3vQgUdsltu iOq9PmE7gBjXlLYs+MFLazZ8HBWJWG355HsGvTFbKjq34LVlifXi+HXVFRQ5 9HjLTWyqTHQWJJhyu7VlBcrqUpYJLZQzxGz5fvP7kYuGdJBT+f/5i8pfmL0y oIdlJ9Wt5x1969+2cWE72Awq/yG8ljbPJt+2Hbp/KqwQ5n1hfUL/PANEDXou EJYQFrGdeMgAbj3UOcK7YzsC77QywDvjWAphxc4cHvJPBkjmfDFDWJUnPJmb kxHM+92mCB+L1K5MP8sI3izho4T9ThZktjkzglht/w/C5fTSMevhjHDhPe0g YXVvko1+IyMci/zQTfjWXy5nfaYZYcHPaqt+RfPfD2UyM4Hs9/Y2wsr2ZSyb ZCZopT30mfANGYVFeTsmIA8r1BHOGYjrNwhmAgnzhWrClKcMn3zTmGBo5VE5 4T2G/+S+qmGCZD1SKWEHrtGnnSNMUHm4t4BwRqN+IImOGV6z8mUTHguudtot zQzxdNkZhGW0lIwMjzHDN4dXSYSvbLwAfytmeBrE+JRwYgm7QpYfM+x81hBF uN/tDk/XC2bIm5u7T1hEcWaNpoIZAlt8fQmbTpuO7elnhh4vd3fCcWn1LUbr zEBV63AgzCeanvxGgwWsWdv0CRt84wv7ZsoCalk3dQlHxwS6b/NigaZbd9UJ szNfIZv8xwL7c+fFCJ+uaVUK7GKBW5kGnIRD/JBw9hILeI7L0xDevixCoVNh BWCVHNrAPp4X2rXfgBUGt5m3EA5w+l1pepMVrE0nyghXytm/CopmhZ4Dn9II bwx3xeTkssL5nPVIwodf6NzpbWWFrsUQD8JepoU223+ygq/sDQvCy63Raub7 2MC201CGsGoYjXTwGTb49K8xPWE3XVfWPEc2COh8N7KO/fP9mQGG12xARoUJ hCdeMQbl72KHjNykzTVsWRsP534ddgjY/qud8FXJMSMmG3ZQni5OI5zcZ3D0 YBA7VAfMexAejP2gcDmVHc49CdElLKZ/gDfkAzucmBDnIWzOnrRe8IMdjicW dv/B7g70aWWW5ICLcRQjwoIwW6ICHOCxLY6DsOEfsxTLyxyQo6BX/Ru77bra P0XPOUAqeUWQMOfejMtD7zjgkuPEu1VsvQn+E6x9HNB7cc6M8N/7f7MpsXFC bJ9p6ApRr97gl4JinFC1nYeb8MFgPk3Sfk5oKeONWcamG1B0bDnHCT7ajIFL 2DMh5duKrTjhCAfNwiJ2u+rpZwk3OMG0Vv8S4eQI2wanR5xAW8YvtUDUX33R 6uJLTvivK+L2L+zrYwGrh4s4QTjRtWUeG44kyLF+4wTyvJ/NHLbc1O7KXxOc oGlWnPmTyPOkxKh3lROU99mOU7EHZjvuvRLmgpy3uXoU4jz994pY9B4u+KSr 5TyL/Vb7Z6GnJhcouyv6zGD7PGcZJV/mgr/ukF2msG1O/Out6MoFFu3Xmiax zyzK8gr6c4F/dUDyBJE/qeD1ZhQXVF1etB8n3p8zx7TGk7ngUM0+qTFiPVZb eprzuUB2RO3zCPZ0qsWNoo9cMPJG8u9h7NK1W0lBY/h5eJyvDWKbZGVvSitw Q9poxcduIq+xZiyLBjdQ2AcXu4i8dJ/3/TrFDS7WBwW/Yq+YjVlUO3EDncFL xTZi/zC4LWb6cMNGW5dsK3ZdPk14VCQ3MGs5sDcT9wOL6DvLXG7Y964nt57I W/xKn1zNDQcymp3qiHpbH5re384NDecndtQQ+cr0hTYXuOGEylm+SiKf7VDu GD0PRPWyW70n8vG4nGjm5wF9o6DQUqK+DiG3nh/igbyxZO8CIh+/IGfQCR5Y oz+nlUvUu/pluqMpD4hxV068Ic5HoaqvGt48YM642JJGnDe1es7S4TwgtVHB lYJ99EYfPUsCD8ismBx4QdS3YflgTwUPaHIycMYS+d2DGqtaeYCkLtEUTdRb kudq5hAPXPHltY8g6uu5L+bWNl4wcHuqGUTUT/7vOX5dXnj8ytXkOvbvUPey 74a8cO/sIXtH4nylBAWl2vBCXqqquS2RryBtx4F7vPBdeWjaHDuPv3h45TEv rPmb3TXCvuxZ96biJS88LXUcO0/kPTJx9EwNL9w/Jcqsg22XtMLC28kLgtcf NCDivKRj+tozwgtydPUGatiu9fIOdnR8wCu8u2Y3cV4YXIu+q8UHh0cjeNmx O4pum5/U54N2p36x7dj+O8Jkuaz54PTm0tz6BhX19WeVJgTwQeRXkfkZ7Bh7 yo+SKj4wC3E2+oQNjRtZfl/4YDRc7WU5NmUfh4fuEB/kNZHKCrBPLuxn6STx w49nokcSsUm+15V/In5wT/vwwg377ZD/etFZfhiMa5KzxzY7Hl135zI/jPRr m1pgFzHlm7H48gNLg37scWzHRwt3Zcv54VhIpgs7ttAynd5sEz8oLcfMbK7j /WjCJ1jwnR8MPAXp57ClxFWzjq7zQ+pdT4Y27O5Mjw7zwwIgKGapG4l9j/V+ gvRpAWBPHnhyB/ugS5zdlJkAHPjE6nsN++HBkjWP2wLwoGpVQAdbp+K3TEyp APR3/rBaWsP16rjjXn9IEEZ/8tJpYWcEXb3y44QgOI84pMphJ6ieOvvHVBAu DPp9ZMMOiROU33tHEEaSOQO+/qEia/P8vodVgsBebThkhW3K9rQ+s00Q1H1/ qmhhnyv3K6oeFoSXTmvl0tiHJfQeLtDvgMTQsGs/fuP+ZWRCy/jkDmAI8RQy xGZ+3KJ43WwHfAxeolfCJukUiYY47gCniklBFuyZ9LvLZRE7IEyJ99O7VSqq uSb2Wrx9B0wsXf2LH/ufX/rc42ZCcKrQoCRxGa93Kr5WHYWADcYOOGNfuSg5 I+gjBF6ZBS3q2HrFlJqTiUJArpd3/bJERbtuP/B8OyIErtxWhxYW8f2yx9Wm blEI4u1qikuxeb8b6g9uFwa5zUwDP2wSktnLLS8MGgl8I4zY32grBt2dhMF4 0JqLbYGKmvNfNkX4CENc8rzA519U9PFqWGl6pDBs9DqPBWPn1po86s4VhrYu /871eby+IQu6mkvCkD5zrqNnjoo0uBWy6XxFYEU/lN+Yin+PxrS+KVIE5uwq 7m3Dtpx7MPwkUQSmvU4UvKFQUWDrpIB8tQh4t28e3ZjF4yMy/c7Qi8IivRHt wxk8nkX+wpNQUbj3Wq7DbZKK5n8bO16OFwUHRZVbLNiBU/fvyb0RBQ0n0czE CSrKrJ8oLW0WhVubX87VjuPxwRnSA1xiUK5P8toYxePp5BZ3xYlB5Vc+HYkf VMS/YMQxlyEG2iSOlfghvJ+Gg+VLS8SACUyWBLCbqsctTveKgXk6VwvjIB7v n17rKiYO/8bZ5Hd+x/Oty8aVpIpDlYS2qVA33i+zhnkBheKwQL+t3usbztN3 r/FUrTikPe6w7O7Cz1M2RuofF4cgk2HaqK+4XprtB/35JKD6iHrhZDsV2f6J fv7SWAIKjBpLNJqp6JHezAdPSwnYHe30+kET7oeStKfO2ElAXXpcY2cj7g/I K6pLHhLwu/tZjN1n/P/hkUWrTqwE8EZVUzw+UZH8PrltE50SIEH6laVRjfsH f3/5d98lgCefxulaFe63OnrOPhyVAH2Bbwf/raSiHq/w+EOLEnDUfvoLpRzX t25e5QGvJDy0F1zzL8P3neV7OwV9SRCOnh3WLsDzF/BHbphKwqS47pJBPu7n GFwL265IgpxK2oRVHhXFv5GivX1DEoKuBVq75+B+43fws89RkuBzZK9jQBYV vYm50OzYKgnwmilBOZWKXGrHlbPPSMF5uewQahTOC1nX9hhKgfmyn+fzh/i+ KHNNybwkBZoVz1LJkbj/zl7lTnWRArU6lPQkDK9vHMt8XJQUWMeebOEMxu/X tf05AZ1SkK2c99XrNhV5c3rsMbSQBkvbk/asV6ioMUTjavvf0nDA0vKCmSUV idKT4s85S8PIRUvr9Ev4/8PqfZZTvtKws0uXomqG35/hp1MoSRrqQ78hZQMq ultYniE/Kg3x0cIxz7Xxeplu37nuKANnKzZoxWWp6Igi69KkmwxM3vgjsV+G iuboueu+esvA3jFFi8NSVGScK2qfEyYDcUnKMnpiVLSTUeWNdZYM1AYJxOnx 4/yF1ioN0zJQ13r+ZiU9FS1xVmnHOuyEWOGhbJ8fFPRqrJY/8MZO8BovjFIe pCCLd43jrl47wfV4We7odwr6aPvtwcmQnWC7pyzpaDcFRZVTm9Yzd4I8J3m5 q4WC9jiKGV6d3Ak36Uxkvd9RkHXdbRslO1k4H+pM+zCGgq4eltVbcpEFnj7J uYWHFGST26pS5iELKapr44YRFGT3bCe9drAsiBbIjnA9oCBnl5YU4zRZMPI2 arX2oSAvAekh3xFZ+IBIjMF2FBRt22DWbLkLUg3d6abVKaiKYcf5ayZy4KZz yvZz1ywaS9l3sttKDhRoCuo1O2YRKxzX0nWQg94h+d6s1llkfMtFRfq2HLTY Z9D6188i6kTNjt54OWgfGdhFUzaLRBtu/Dg5KAf6bPlTl57PIs+wxpsKtvLg yFP36MflWaTE5fdk0k0BYm7/k1rWN4Msf2nu0XPcAzbUphDuz9MoKaFGZDl8 H/hYjeVZ+06h/Aj13rYLimA1ceWMvPgkcivVPPf8tBJkZiff2143jioaXs4/ MDsAUb8msxd1x5C9rtp7e2NlEPKNKlkfGEHxGUqF1xwOgpKDyjFji2EU9eu9 v6uHCvBOkbL5pobQ2Cv3f+xuqEKh3a6sb08H0Ued6LiAgL9gtY5ZZ/B2P6I5 2/Mj0u8QVMZFLK9y9SHS0SKaRE81uCSl+kylvRvdF1g+0xasDieHqu/ShHUh V1Pr6uW7GuD4x5tFPaITDfkfvIoeH4YEtc7bgxHtiDfm354HSZrgKnX/i0b5 F5TGqeBZ9+wI+H2IDWnc34qqbohr73qNwLuWX3JMqwklSCSKaBoATAxrf6F/ 2oDee/8m2bUCaBj9E0/71yckeYphTdroKAxEuZBmvtWgghb50O6OoyAT6DMp 3vYBhdVuKEpYHANL7r4PcR1VKObmpINl3zF4JOE/XSdZibz5xDikTLRgbYOj o/rQe5QpT9/gNqgFOruFhxPVS9H2BZodVZeOw/EjLs1L2cUoXTHXJ2H8OAhp LdA2KBUi+Suv9NadtIGvtsxiZj0P9Z4oybs4rQ3O21JXfCRzUVuK1150Uwfa vNX26Tx/i1byzx+WmteBvie0p0fCX6PN/24U3nPWhaX8Dy9CezLQKUUdbe9F XaCdL3GQUklDdRb77a/dJIPgvW6PvWspiNvaruy5Oxn2nLbzrZlPQZfsktha Pcig9dpixWoyBS3d4Mk76E0G6vcjahlfU5DM/eXf64FkqCza22afm4L88irC Hj4hQ8mxCxqVtilIneFcTmEJGVZ2Xa7I6UrG/dED2okyMjwSZHHoaE5GX7iq DYTKySA3e8B8rSYZ2YkcXPWpJkPU9H9cJgXJKFZJ8Bj5MxlW+3/Ga0clowWz wfaePjLkZL1knzqVjMBqhyzbABmKCwdizmslo1CbC7fQEBnkyYmn3qsnI6nr H0VSR/Hz5HmcSZJPRufvZfztRCHDJmpzf8aQjOJDh4pf/CTDNtUYB5nNJDTx UIi5bZ4Mexktg3OXkpDfs7C3qstksJgaUP42moQaE2tI9qtk4Dy7UHn9exIS SNu48OwPGfTUulw5OpPQldd/vWxaJ4ODvtqx3MYk9DbHdXlzkwz/6X5WNvqY hP4HwX24zw== "]]}, "Charting`Private`Tag$603966#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 49.99999897959184}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.7865933666967783`*^9, 3.786593368589651*^9}},ExpressionUUID->"20c969e6-4e14-4475-8141-\ bdb18c833951"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"ab1", ",", "p1"}], "]"}]], "Input", CellChangeTimes->{{3.786588046355707*^9, 3.786588050625951*^9}},ExpressionUUID->"390fe8c7-d75f-4490-8aba-\ e99fb9b428ce"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwd13k01N0bAHBMu0gp1BshOwnTJvHcaKHwVkg/lSIiRRsyKEJRWYaUpVeW ylKEskQlpOxLJERZx27GGMOMsfzu1x9z5nzOvXPOvc9ynzMytldP2Avw8fHx 8If4jrtju0zT7pneJee8bD6+cShrkja2lKaA5O9rSoQXvhf5S0s/ALWqz/yE hSPysla1RoCqmNbIwgID4opDtiyVjgHrmnUxxLoawy50wSEeJLpG6cT6H+Hn 87MtSSCUbjlPWC555a4Z3iuwPaE4TPiKrpvz9JY02H1GkkN45rJxB9MhE250 WU4TPlAbLj/V8g7qgn4vejD6cMnkpRwQnnzDJRxsN3eGxcsFMjV/irCGxnsO MyQfTPRfL7qJ5xg5vqUANg9PLSXO514upcHILgTmsuHF+2x6/LN6zOATbFo4 OEvsL7J+6DDa/Bn6pUgzhG1VEGnE4Qucby5YPP/PLgvJyYMlwO/sykf83iNd sGCipRRaypsXiPVig1vjDN43KP0dtLh/eXuP4tiWSmg4Frm4vu6/CgFmSyO4 0KsXnVgVf31kSxvECcQu7j/kUN3byG2Drhv/myM8Spq2KGz6DZy4gzzCEQmy FYkZ7aBV6bIYrz26pnsfBHZAWIgji/AjQTuW92QHaDWsHif8t42Sfs3mD7yj zSzmSzM1zN6u7g/0rNwzQDjA/ZXUKZ2/8MKjsptwy4GPLUdT/8KwcXY7YRXR H1TY0AkDHWt+Er7d3W9E9usErVGTKsINmbMCioxO8LRwK1q8H6y0FlLvgmus sCzCOgqRewPtuqA4ISWBsJ3QFnH+Z12wcc/3UMKhk2kszx9dkGIU7kn4Q/uO hsnl3TDZ+d95wt2lX9Jd9LpB4NQ3PcKrXh95MOjaDb/DLcQI7whvtrd90w0q 7pz+eWxrj/P6Hd3d8GikOItw4LkRqZMSPXC7teQm4axD7rx60x4I3SqsQfj3 Nv5Wo3s9cOL9B9ocNmlDcM7Xjz1wzOVnJGG1WbFw3YkeyHkSoEP4ZG+ic75S L1iZqtbPYvtUqR3RPNcLJ5pPmhJOzc5XePOkF+ppugU87MZofZJ8TS+s1BEX Iczzqe18LtAHGtSNZjNEPzic+iSh3QeeCV5+XGxT097oiKt9sEnR9TkH+9ZO F7fVyX1wsFM7ZRo7YTP3+P2OPlAJIMVNYVeRAtT5RGkgbjNIYWNPDgsLehrR INzeUHkSW7IxZoDlQ4MOSlTaBFFfBXJlznk0qLjEzxvHvpaQmTAwSoNdrgti hGMD99622doPMtOecnTsry7f/tf+v35YKd/IGcEW021fV/+9HzjCd8gD2Eju IsNwrh9sHHJD+7AvCTKrS8kDYKCdk9lN1OuEV+o+pwHQVfG+9Rf7U9uye3kJ A2DCq+z7jd1fHG6j0TIA4tX207+w16Ru1nstNAh7P4hnNhL95641Hec5CFL2 f1dXEv1+9nOTePYgyNv6v/uKnXvAMCt8YBBEp61nPxP1rtoULCg1BIH62sP5 2CtErS/dMx+Cm+9ULLOxtWYGDy48HAIH+jeR19inu2/KUkqG4E3KmQ1J2G8z H7RfUR8G5p0mbhj28Lrh4CM2w7B9T3TQfWxF9yN6SpHDcOZIlqs3kY99gom9 3GFwbNA7fxG7I/7yiRK1EXh91eGsFfZGUg0p/twIvCs6/N6EiEdl8EWrbyMw WvrYTgu7Tm1MfA9nBAJeZH/eii1INancoDoK+Q9HnNZjG7IyPFlnR4F5rgwt Ifr1pLDaD+oopL+fHpqYx+9Ngcuft19HIYB537YLe25zfWjw1Ci07c5PrcF2 7w1jHj4zBrcs10QlYr87NJ4kHzYGN51LdB5iM9KOmZNKx8BpqXLKdWzHa2vz ixTpEL9jW/U+7JdN1x3/s6LDsxXmvtLY3bsaN3qG0IG/9QBbANtqLsJ7J4sO d3uixcvmGPD0PGubqAIDzKzulyRhN3016xw/hete+cYmX2zjh+v104sY0C43 d2IndtCYK+sBkwHhEVtXCmHbpjo1kteNAzmprqpnlgHxgtX+aw+Og1f6nXNB 2Hq6Xmd8rcfhc9qQ8insDhfVnYxb46Bo+ooujy3R+Ki/5vU45If/tvjIY0Ae ad8XnbJxuEUuZPhhm+8cjXr9Zxz+u5t3wxA7PNrYKEiECcZKP2RrZ/D8qJqV mVZmgoe/xeFg7Dpe+oy9AROurslfboS96pxQuoE7Ewb92siFXAb4y9cJL7Qz ITc028STwwBZyzsDzmwmFGasFNiKXRykXtwhPAFXM60+VEwzYHYk9Hrh/gmY 3ye3ShA7VhKOKJ+egH5tnScpU/g9/5chG+06AUFuN4P1sd3e/fvTLWUCYu1/ /73EZsD6voX0vuIJeC+wNpM7ifO5Ieue2e8J2Lw5teseNt1DZLemEAuuGZgY PmExwAF+xIzeYEH73hXed3Gc+ZKmCtsfseDS8SXn2OMMiF6yuaPqJQvMtD+Z 2WNXVF6USvvFAq0DcpL7GAxQMp9Nst87CSmWKUvfj+L75MmUmZtNgny75K5l 2Kc2HqYZXJkEp9MK4hYjOJ9/wxVln09CyUZyIW0Iz2tHxfS//Gwok/gm9aOf Ab7VxrW1m9jQxZNBfNgS6jfon8hsqHDw81GhEfX+SeOZPRu4b2Ykr/UyIO32 iVzLSjbIvfTbX9TJAKeI20UN1CkoE3WIsGxhgAA7qfNL2hRsUt6Qq/kLx9Oy gi+zdAq6f61Yx9eM38fNogYhk1PQd9528GkjA1RTUsuNTk2DCXq806eWAWUr 6wb3XJ8G10sNHOUaBpy5wlqp9HAaLDqefqirwu+Npp7xsk/T8DHv2PDSCjyP PzY1lG7hQMytR00KpbgfpbjM7D0cMGx7Ex1fzIDNd6VEE49zYHz5rJ74F1zv hy5Z+PhzoHGd+8LARwZkNMy36Qxw4KJ/0pY9uQxwoSn35rzlQmaf0/6gZAZ0 WbetKKnkQru0cpzjS9xHrUHqtX1cUNJX6kZJuD6qByi0TTMQ0mlS1RqH51X2 KxGxwBmw3jn98UUkzqe3jN6tczxgV5dPRPjiep1quODvyQPna+dDB27j+X3V 90HYEx5oaVz+oOWF+82282dKNQ/4AuzyM93wvDOMu9y6exaSfRKDDjkxoER0 Y4y2yBw81eXotBzH8zakouig6hwEZclrJZoyIHmZR9/xQ3Mg+W/Jgs1RHC/u r+1O3nPQ2LyqpfwAnpedkd9jB+dA1+Osi+xu/J6+FpnkFc8DdYXiUtImfD6Z AMXOPXzI7NdDtRVtdKjYF779zkE+tEMo5QDnJx3un3q+W/IEH8oxfG7d1UAH AeqHw6cv8yH9nCa76Ao6zMyPOrTE8aHMN2Zmyfl0GOmwSK0X4Ee+pbsub4+k Q020onJxDT/qzaXJ5R2mw8OcHZrn2vhRoZHJ62x9Ohg27Neep/EjiTMJba90 6VC2/IzRvgV+FCFWJOFBpsMnd+qlD5oCyDi2+uhXKTpkmHPTsp4KoEPOPoF0 1hiEilSrJJ4nIeGnkQH6MWNQsFsy19SFhBL/XZvdGzEGfdZXYdaLhKgKJfa3 g8dAJ0PU3DKKhJwz5mxifcZg0OjMbaE6EjrxqvS2p/0YGPiP1VN0lqDTpRUZ TdvHgMNe43ZCbClKisobiPsyCrbt5l9INcvQS7pgPbV2BK5/C7C9qrgK6bZO UI8XD0H2tdVmEkZCqOCthuPnvAFI9Lo8rGEpghqtHZbIedHAL372+OToWjR2 hb/rxs1e4GvqQp88RdFhVYUovrBuUHC96GGusgH5C3vVGh/phD521EnBz2LI o+ZjK0WgA47QnG5HXJdAtl33jbvKW8G0j6oqJbUJFcwN6VuMNcPwV1vfiox/ kH3qsdcjQU2gvvaXpME5SWRIft9dv+MHrAK2TQdLCmlEJhbS79fB4TGraVkL aSR4U5jFqKiC1lI7fis1GRRUHXw8+UE55AaVWUuzZRDJr+RybnsZXFzq1lVX J4uU68LEZo+WwoUbXrmrY7eijOY/InkaxbDdQbXO2EYOZa1I788o+AT169QE 3bTlkbnTRws9vQL4+NbvmRpJAdXIr9+pbJMHXvwqx2r+KKCBwZVuwq/ew6oO T0OXHEW0vnAoTtg0G2jJMpHx3kqoqNE1r6HgLUQqbVxSYKGMXjieNRwXeQPU 2IvlNtIqaG1yUMgPsVSwijxbt3pABdk7NSay3V8B58ArbnyRKnq7/wN12XAS 9NL0PUoD1dDJNU+SmzoTIElX859am20okffkgVZrHGTcc1vrsE0dlZxub4n0 iYVAiwtHSWx1NBUjGstMioKdHYlpgbXb0bpDp74fm4iEaOVnGbVHNRDv7s7v LzMiwKc4JPpogQaSnzmiGXedCib/WLyqktNEGkoXHg/KhcB+l/LTax9oogbN Zht/oYcQv9lWroatichpBSNh0/dB7mvKU9PTWugt8/EdrnMAULeVqjQWaSGD +Hhx+d1+cJG15EelChndeOGR7bHKF2yzJ6QfhJFRe34EdX+QN1zxM5s9Ek5G 3+4lpNlSvMHNLKdl9WMy6glkBj9y8oYgtlso9SkZ/SNDC5o09oa32lxeVBwZ Pb1ZRZZd5w3ckoVfyW/I6MP0UYPeOC+gNq4OKSsno+eukvnvCz0h9oWz4/1K MrJWcxEoTPeEF651BobVZFTUsb/m+3NPyBOjzlTXkVHtlplslp8ndFiJOjY1 k5EMz/5FzFFPUOzdaNDTS0YR9kOCQn8poJHjKfWSRkbXyk9dcG+gwN577Vz7 ATLauOTyY1opBYwV47KGhsnIZRmfeXMKBW5clpZiMsmoZubFDu51Cnjvu8t9 xyIj3ny3OtWOAveEen66ssloQ33jWzVLCkRnvnjE4ZBRVLW5mPs+CiT5LnEo nCGj/ZPKQ7LbKfDmuL2+9ywZOXZrSzTLUCBH9ruk3jwZqYcrxASvp0ARSwH/ zyWjVP4IG6PlFPg/aJBX+Q== "]]}, Annotation[#, "Charting`Private`Tag$369612#1"]& ]}, {}, {}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxdyUEow3EUwPGXkxvFYWoHY7GkxR//DeP/tp9t5Oai3ChHucguDjsqWbvv 4qIdFDk67rKb21qRE6uVZHJVQh6176vX6/O+kZ39jd0eEfG+9+f+zltw5B3c 1z87gT207DLJw/U/9+rzSd3vcy/mfm36r5eVs7Z5UK82W/ls7dEc0vBoczx0 82AO6/bQ+97FR8M8rM4VT+8Kt+YR3RqIHidKNXNUz58i1ULp2jym0jUxeAKe hOPwFDwNe/AMPAvPwT6cgJPwPLwAL8IpeAlehgNYu12EJY0OSwYdFocOywo6 LFl0WHLosOTRYVlFh2Xt318G30Y1 "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, InsetBox[ RowBox[{"Unevaluated", "[", TemplateBox[{StyleBox["\"Simulation\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], "]"}], Scaled[{0, 0.5}], ImageScaled[{-1.5, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, AxesStyle->GrayLevel[0], BaseStyle->GrayLevel[0], DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->GrayLevel[0], FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {21., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {23., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {25., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], FrameTicksStyle->GrayLevel[0], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], ImagePadding->All, LabelStyle->{FontFamily -> "Helvetica", GrayLevel[0]}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 19.999999591836733`}, {-0.07, 1.03}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}, TicksStyle->GrayLevel[0]], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwd13k01N0bAHBMu0gp1BshOwnTJvHcaKHwVkg/lSIiRRsyKEJRWYaUpVeW ylKEskQlpOxLJERZx27GGMOMsfzu1x9z5nzOvXPOvc9ynzMytldP2Avw8fHx 8If4jrtju0zT7pneJee8bD6+cShrkja2lKaA5O9rSoQXvhf5S0s/ALWqz/yE hSPysla1RoCqmNbIwgID4opDtiyVjgHrmnUxxLoawy50wSEeJLpG6cT6H+Hn 87MtSSCUbjlPWC555a4Z3iuwPaE4TPiKrpvz9JY02H1GkkN45rJxB9MhE250 WU4TPlAbLj/V8g7qgn4vejD6cMnkpRwQnnzDJRxsN3eGxcsFMjV/irCGxnsO MyQfTPRfL7qJ5xg5vqUANg9PLSXO514upcHILgTmsuHF+2x6/LN6zOATbFo4 OEvsL7J+6DDa/Bn6pUgzhG1VEGnE4Qucby5YPP/PLgvJyYMlwO/sykf83iNd sGCipRRaypsXiPVig1vjDN43KP0dtLh/eXuP4tiWSmg4Frm4vu6/CgFmSyO4 0KsXnVgVf31kSxvECcQu7j/kUN3byG2Drhv/myM8Spq2KGz6DZy4gzzCEQmy FYkZ7aBV6bIYrz26pnsfBHZAWIgji/AjQTuW92QHaDWsHif8t42Sfs3mD7yj zSzmSzM1zN6u7g/0rNwzQDjA/ZXUKZ2/8MKjsptwy4GPLUdT/8KwcXY7YRXR H1TY0AkDHWt+Er7d3W9E9usErVGTKsINmbMCioxO8LRwK1q8H6y0FlLvgmus sCzCOgqRewPtuqA4ISWBsJ3QFnH+Z12wcc/3UMKhk2kszx9dkGIU7kn4Q/uO hsnl3TDZ+d95wt2lX9Jd9LpB4NQ3PcKrXh95MOjaDb/DLcQI7whvtrd90w0q 7pz+eWxrj/P6Hd3d8GikOItw4LkRqZMSPXC7teQm4axD7rx60x4I3SqsQfj3 Nv5Wo3s9cOL9B9ocNmlDcM7Xjz1wzOVnJGG1WbFw3YkeyHkSoEP4ZG+ic75S L1iZqtbPYvtUqR3RPNcLJ5pPmhJOzc5XePOkF+ppugU87MZofZJ8TS+s1BEX Iczzqe18LtAHGtSNZjNEPzic+iSh3QeeCV5+XGxT097oiKt9sEnR9TkH+9ZO F7fVyX1wsFM7ZRo7YTP3+P2OPlAJIMVNYVeRAtT5RGkgbjNIYWNPDgsLehrR INzeUHkSW7IxZoDlQ4MOSlTaBFFfBXJlznk0qLjEzxvHvpaQmTAwSoNdrgti hGMD99622doPMtOecnTsry7f/tf+v35YKd/IGcEW021fV/+9HzjCd8gD2Eju IsNwrh9sHHJD+7AvCTKrS8kDYKCdk9lN1OuEV+o+pwHQVfG+9Rf7U9uye3kJ A2DCq+z7jd1fHG6j0TIA4tX207+w16Ru1nstNAh7P4hnNhL95641Hec5CFL2 f1dXEv1+9nOTePYgyNv6v/uKnXvAMCt8YBBEp61nPxP1rtoULCg1BIH62sP5 2CtErS/dMx+Cm+9ULLOxtWYGDy48HAIH+jeR19inu2/KUkqG4E3KmQ1J2G8z H7RfUR8G5p0mbhj28Lrh4CM2w7B9T3TQfWxF9yN6SpHDcOZIlqs3kY99gom9 3GFwbNA7fxG7I/7yiRK1EXh91eGsFfZGUg0p/twIvCs6/N6EiEdl8EWrbyMw WvrYTgu7Tm1MfA9nBAJeZH/eii1INancoDoK+Q9HnNZjG7IyPFlnR4F5rgwt Ifr1pLDaD+oopL+fHpqYx+9Ngcuft19HIYB537YLe25zfWjw1Ci07c5PrcF2 7w1jHj4zBrcs10QlYr87NJ4kHzYGN51LdB5iM9KOmZNKx8BpqXLKdWzHa2vz ixTpEL9jW/U+7JdN1x3/s6LDsxXmvtLY3bsaN3qG0IG/9QBbANtqLsJ7J4sO d3uixcvmGPD0PGubqAIDzKzulyRhN3016xw/hete+cYmX2zjh+v104sY0C43 d2IndtCYK+sBkwHhEVtXCmHbpjo1kteNAzmprqpnlgHxgtX+aw+Og1f6nXNB 2Hq6Xmd8rcfhc9qQ8insDhfVnYxb46Bo+ooujy3R+Ki/5vU45If/tvjIY0Ae ad8XnbJxuEUuZPhhm+8cjXr9Zxz+u5t3wxA7PNrYKEiECcZKP2RrZ/D8qJqV mVZmgoe/xeFg7Dpe+oy9AROurslfboS96pxQuoE7Ewb92siFXAb4y9cJL7Qz ITc028STwwBZyzsDzmwmFGasFNiKXRykXtwhPAFXM60+VEwzYHYk9Hrh/gmY 3ye3ShA7VhKOKJ+egH5tnScpU/g9/5chG+06AUFuN4P1sd3e/fvTLWUCYu1/ /73EZsD6voX0vuIJeC+wNpM7ifO5Ieue2e8J2Lw5teseNt1DZLemEAuuGZgY PmExwAF+xIzeYEH73hXed3Gc+ZKmCtsfseDS8SXn2OMMiF6yuaPqJQvMtD+Z 2WNXVF6USvvFAq0DcpL7GAxQMp9Nst87CSmWKUvfj+L75MmUmZtNgny75K5l 2Kc2HqYZXJkEp9MK4hYjOJ9/wxVln09CyUZyIW0Iz2tHxfS//Gwok/gm9aOf Ab7VxrW1m9jQxZNBfNgS6jfon8hsqHDw81GhEfX+SeOZPRu4b2Ykr/UyIO32 iVzLSjbIvfTbX9TJAKeI20UN1CkoE3WIsGxhgAA7qfNL2hRsUt6Qq/kLx9Oy gi+zdAq6f61Yx9eM38fNogYhk1PQd9528GkjA1RTUsuNTk2DCXq806eWAWUr 6wb3XJ8G10sNHOUaBpy5wlqp9HAaLDqefqirwu+Npp7xsk/T8DHv2PDSCjyP PzY1lG7hQMytR00KpbgfpbjM7D0cMGx7Ex1fzIDNd6VEE49zYHz5rJ74F1zv hy5Z+PhzoHGd+8LARwZkNMy36Qxw4KJ/0pY9uQxwoSn35rzlQmaf0/6gZAZ0 WbetKKnkQru0cpzjS9xHrUHqtX1cUNJX6kZJuD6qByi0TTMQ0mlS1RqH51X2 KxGxwBmw3jn98UUkzqe3jN6tczxgV5dPRPjiep1quODvyQPna+dDB27j+X3V 90HYEx5oaVz+oOWF+82282dKNQ/4AuzyM93wvDOMu9y6exaSfRKDDjkxoER0 Y4y2yBw81eXotBzH8zakouig6hwEZclrJZoyIHmZR9/xQ3Mg+W/Jgs1RHC/u r+1O3nPQ2LyqpfwAnpedkd9jB+dA1+Osi+xu/J6+FpnkFc8DdYXiUtImfD6Z AMXOPXzI7NdDtRVtdKjYF779zkE+tEMo5QDnJx3un3q+W/IEH8oxfG7d1UAH AeqHw6cv8yH9nCa76Ao6zMyPOrTE8aHMN2Zmyfl0GOmwSK0X4Ee+pbsub4+k Q020onJxDT/qzaXJ5R2mw8OcHZrn2vhRoZHJ62x9Ohg27Neep/EjiTMJba90 6VC2/IzRvgV+FCFWJOFBpsMnd+qlD5oCyDi2+uhXKTpkmHPTsp4KoEPOPoF0 1hiEilSrJJ4nIeGnkQH6MWNQsFsy19SFhBL/XZvdGzEGfdZXYdaLhKgKJfa3 g8dAJ0PU3DKKhJwz5mxifcZg0OjMbaE6EjrxqvS2p/0YGPiP1VN0lqDTpRUZ TdvHgMNe43ZCbClKisobiPsyCrbt5l9INcvQS7pgPbV2BK5/C7C9qrgK6bZO UI8XD0H2tdVmEkZCqOCthuPnvAFI9Lo8rGEpghqtHZbIedHAL372+OToWjR2 hb/rxs1e4GvqQp88RdFhVYUovrBuUHC96GGusgH5C3vVGh/phD521EnBz2LI o+ZjK0WgA47QnG5HXJdAtl33jbvKW8G0j6oqJbUJFcwN6VuMNcPwV1vfiox/ kH3qsdcjQU2gvvaXpME5SWRIft9dv+MHrAK2TQdLCmlEJhbS79fB4TGraVkL aSR4U5jFqKiC1lI7fis1GRRUHXw8+UE55AaVWUuzZRDJr+RybnsZXFzq1lVX J4uU68LEZo+WwoUbXrmrY7eijOY/InkaxbDdQbXO2EYOZa1I788o+AT169QE 3bTlkbnTRws9vQL4+NbvmRpJAdXIr9+pbJMHXvwqx2r+KKCBwZVuwq/ew6oO T0OXHEW0vnAoTtg0G2jJMpHx3kqoqNE1r6HgLUQqbVxSYKGMXjieNRwXeQPU 2IvlNtIqaG1yUMgPsVSwijxbt3pABdk7NSay3V8B58ArbnyRKnq7/wN12XAS 9NL0PUoD1dDJNU+SmzoTIElX859am20okffkgVZrHGTcc1vrsE0dlZxub4n0 iYVAiwtHSWx1NBUjGstMioKdHYlpgbXb0bpDp74fm4iEaOVnGbVHNRDv7s7v LzMiwKc4JPpogQaSnzmiGXedCib/WLyqktNEGkoXHg/KhcB+l/LTax9oogbN Zht/oYcQv9lWroatichpBSNh0/dB7mvKU9PTWugt8/EdrnMAULeVqjQWaSGD +Hhx+d1+cJG15EelChndeOGR7bHKF2yzJ6QfhJFRe34EdX+QN1zxM5s9Ek5G 3+4lpNlSvMHNLKdl9WMy6glkBj9y8oYgtlso9SkZ/SNDC5o09oa32lxeVBwZ Pb1ZRZZd5w3ckoVfyW/I6MP0UYPeOC+gNq4OKSsno+eukvnvCz0h9oWz4/1K MrJWcxEoTPeEF651BobVZFTUsb/m+3NPyBOjzlTXkVHtlplslp8ndFiJOjY1 k5EMz/5FzFFPUOzdaNDTS0YR9kOCQn8poJHjKfWSRkbXyk9dcG+gwN577Vz7 ATLauOTyY1opBYwV47KGhsnIZRmfeXMKBW5clpZiMsmoZubFDu51Cnjvu8t9 xyIj3ny3OtWOAveEen66ssloQ33jWzVLCkRnvnjE4ZBRVLW5mPs+CiT5LnEo nCGj/ZPKQ7LbKfDmuL2+9ywZOXZrSzTLUCBH9ruk3jwZqYcrxASvp0ARSwH/ zyWjVP4IG6PlFPg/aJBX+Q== "]]}, "Charting`Private`Tag$369612#1"]}}, {}, {}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxdyUEow3EUwPGXkxvFYWoHY7GkxR//DeP/tp9t5Oai3ChHucguDjsqWbvv 4qIdFDk67rKb21qRE6uVZHJVQh6176vX6/O+kZ39jd0eEfG+9+f+zltw5B3c 1z87gT207DLJw/U/9+rzSd3vcy/mfm36r5eVs7Z5UK82W/ls7dEc0vBoczx0 82AO6/bQ+97FR8M8rM4VT+8Kt+YR3RqIHidKNXNUz58i1ULp2jym0jUxeAKe hOPwFDwNe/AMPAvPwT6cgJPwPLwAL8IpeAlehgNYu12EJY0OSwYdFocOywo6 LFl0WHLosOTRYVlFh2Xt318G30Y1 "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, AxesStyle -> GrayLevel[0], BaseStyle -> GrayLevel[0], DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> GrayLevel[0], FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, FrameTicksStyle -> GrayLevel[0], GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 19.999999591836733`}, {-0.07, 1.03}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, {Automatic, Automatic}}, Ticks -> {Automatic, Automatic}, TicksStyle -> GrayLevel[0]}], Placed[ Unevaluated[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Dashing[{Small, Small}]]}, { Style["Simulation", 13]}, LegendMarkers -> None, LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-1.5, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.786588051291669*^9},ExpressionUUID->"c6803e4e-d6fb-4883-acc9-\ fee7e9222ec7"] }, Open ]], Cell["Let us generate some useful graphs for the analysis", "Text", CellChangeTimes->{{3.789192634127215*^9, 3.789192647830059*^9}},ExpressionUUID->"5dab84aa-25b7-41da-98d2-\ ae149e2381be"], Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", RowBox[{"k0", "-", RowBox[{"d", " ", "g"}]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", "b"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Qt", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], SuperscriptBox["\[ExponentialE]", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "+", RowBox[{"Abs", "[", "x0", "]"}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"1", "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "g", " ", "x0"}]]}], SqrtBox[ FractionBox["1", RowBox[{"d", " ", "t"}]]]], "-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]], SqrtBox["2"]], "]"}]}], SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "g", " ", "x0"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]], SqrtBox["2"]], "]"}]}], SqrtBox[ FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", "t"}]]]]}], ")"}]}], "+", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]1", "+", "g"}], ")"}], RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{"d", " ", RowBox[{ RowBox[{"g", "^", "2"}], "/", "2"}], "t"}], "+", RowBox[{ RowBox[{"\[Epsilon]1", "^", "2"}], " ", "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"(", FractionBox["1", RowBox[{"\[Epsilon]1", "-", "g"}]], ")"}], RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", RowBox[{ FractionBox["x0", RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]1"}], "]"}], "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{"2", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]1", "-", "g"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]1", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]1"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]1"}], ")"}]}]}], ")"}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"d", " ", "g", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Thick", "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", "h"}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"f", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p4", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Dotted", ",", "Black"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "+", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p4", ",", "p1", ",", "p2", ",", "p3"}], "]"}]}], "Input", CellChangeTimes->{{3.789192690261546*^9, 3.7891926927410707`*^9}, { 3.789192731016477*^9, 3.789192731530755*^9}, {3.789192780239463*^9, 3.7891929391106977`*^9}, {3.789193283373022*^9, 3.789193288696582*^9}},ExpressionUUID->"e864a20b-e0fc-4fa5-9eb9-\ 791349dda1ff"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{{}, {}, TagBox[ {GrayLevel[0], AbsoluteThickness[1.6], Opacity[1.], Dashing[{0, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwl13k4lO/3B3Bky5Z9C9kqJNmyc86MwUTJWrZSyU7ZIiIiZSkkH/tWiRYK WaIIIakUZS0pIQmj7LL8xvf3z8z1uuY813Pu99z3eWYkTp21cKajoaHZTX3Z fJdMXLuTK1amJ76TCpoZaL/x2XfcdQi6+f7fxnVMpmOuFJB8sL6xsUEB0phP c+WnPzCrPvg/D08Nnjw/Pwv2Y+T1Tbfv09x6P2wOGgwZ1zZd7ptS2s8wD2aN /1Y2XchNpP97YB5uMsUvbzrzCeUoS8I85A3VL246wSrnoWTXPPjwXZrf9KV5 4w0t/gVYUnr+d9MBqUsWlnYLkHvUgrJpN/XCQs/cBZCOlP69aYc+y5Wo4QU4 XMo2tmmzYFrT7F2LwFk6NPS//oUf36rwWIR4ZY++TWs8c5h/+2gRmkb93m9a 3oHlwOjfRcg/VdW8afG16uw1tSUYEZ2o3jRvrvMM34UliBd5em/TzMBDUnix BOaiL1I3vTrUkGa4ZRmO/0i6tGlKxJnfx42WYa663O1/eUmIQFD8MsicyTDZ dE/T6+TE98sQEfxQ9n/5OQWNFfGsQIaHNt2m6+l3ajUcXQFe5fhP65t53u26 3pe1ApYjLXmbLjSM+D4ztAIB22mdNp35c+/+rdL/4LK+tuimE2I+x0i4/YPQ JZt3a1RHysZ+0Sz+B4FFEn6bDmxXU7SY+QctVkSWTXt4jkR5qK7CQzRMWaX6 GFtyb+T5VcjjzuTYtFkJ7Ml6vgoWXNFB/zbzNJ26+IRmDaYT9rxb2cyTktn1 hrQGLXtj2Tctn0TeNRKzBiQdX7XlzTyVFoJX365BBke8wdJmnl133vFyrYPw sLnG4mae/uYSe63XIe87B9vCZp48GwEGGeugtP65bo7qmYritmOD61DxL8d4 luoRazuRQIkNkLeme/yH6r4FJp8E5w24wxr+k0L1m7TKl4X3N4Ah0mxmajNP DSeBF1MbYOoR0PKb6n6vmMrfgjRY1H7/1C+qLXUdhxa1aFBO4+zLMarfsatt pT9GgzXxG8M/qO4y4U7vCKVBlRNsc9827xc7vSsjmwYlg6+8HKT666v2Sqfn NOhW/+PgwGZ/DEUkhS80SMd+Ir6H6gn9qI9L/2iQVeFfcNfmei45nnq5nRaN zUN4OjbXuyYQYWNPi+Ox9ErNVNPpzHFIXaBFqQTH+/Wb+YR8yJnKpMVZIlQ+ pZrjabH801padGzcZVpONc9CzLPIAVo0fWDj/ZBqQVVn40MrtKg9+oG1gGox P0K/gDAdCqOhZDbVctPLC8W2dLhN5E56HNWK8j3RQcF0+DPj5ngE1Woe5bzE DDrkeZKUFEi1zr2EO2w1dCj/evyqJ9XEMQ/l3j5q/ensFkeqydJGjbeW6NBC wAktqTY9JWXmJbgFCSxF0wZU23797E1rswUHLbvqZKg+LvJ09U3QFrS/ytEu SPVpu5T41LQtKNt89hsT1T49B+/v6d2CVWcX14fXqfuVV1ZjYWELvrWknemg OtSC4VUDPz2adK48r6E6pqNuxPoIPZ7U2l0TT3UCW6a/eCA9Vr550+FHdYpx IN3v/+iRLYd43YbqvFYF8Yhuenz5dl/HDqoL6FkfG8/T45EHRaq0VD8g/tTl 42PAsspF1u9rFKiqz7N/YMWAnCrdnVlUP1+9MBEQwIAjyXS3A6lu0rIJhhQG DJgwLDxMdUcVZ9qnjwx46ocY6+oqBT7NTe7Mm2VAsRd0Ju+pHlB+XeHOw4il L3LD8qkefXSpa92CEV8vXgvUoXpi8tjJ136MyFb7T4iJ6hk5rZmbyYxoWmDr 8f4fdb8U/mWX7WLEj9War22ophvtyJ79w4jM5i/Lhahmlnq4p56LCXsDTTd6 V6jnLc/pgKU5E+Zkvw44SLXwIPSJ+jLhYePuQDqqxbeLuI4nMeE8l3BC5TIF 9qR9uhz2gQnjQvmLuakmJho0FB1mxsa+KLfCRQpEGFfc7zrDjEfVzbtJVNcz SN1cu86MtyrDu4cWKKAVSuNi+ZYZSUxFeqxUn1c/e/jib2aMJqZczJqn5vl3 UOM+y1bkMHq7sZtqFfdnrBvkreg6Fum3f44CftJy87JuW9FE8Ydm1SwFSofS v1pd3Ypb4qymlamWPxJY9qBlKwpKzbTt+EsBaX2lo0eILBh+SfNXM4UCp9bz 8NJJFlzRk66XpDq/hkOuOIIF1zm6uy5MU0BEcXKV9gULfrsf7rRjigJ8okW3 S7RZ0U5PrVp2ggJWfXzX+uxY8Xzj6g7HXxRIvnn53JYQVtTZeV4gcZx6/lhO kW2fsuKkf5bt1zEKMC6KTNPvZ8OtkVLP1X9Q52N5fO8+KzbclqQjD8PU+eu9 0mDnz4aslV7B+J0C6z96b5aWseEs10sLxSEKLH5I1nRQYMdeS57MpgHq+btG K3X1EDs2BHjEp/ZTn39GPmzlXuxIvPPigVMfdT/UHRpiesiOvgEaor+6KTD+ gDn6yW4ObFeMu5D7gQK7XILOfDXkwAxJ1yua76nnS2Ls6FYXDrRriON7944C 39JeyjkWcGD68KL3YDt1Hl6++IFFYhuWKPO/zW+mgPO+FXYldk78/pd5KL+K Agc/X70rKMaJiVI8SjcqKKB6lU+XZh8nbit0JAaVU4B+SNHrvRkntv5OMJR+ RIHbCa7t3imcuCCk4LhRQIE4rfmT1nc5UcrxlErWbQr4jkUu61RxYnjmQz75 fAqgXq4MWx8n2vA4lclnUWBo6tOVB9u50M6zkrMoiQKtGafEkuW5sJLQLfbr OgUeGcxUButyoT2xP3tHPAUu5rCOkh25kBwXmuceTf1+DxH1f97mwqOMfF1n g6nzp/jxhpQcN2bXlOSoOVLvZ6ObxqrNjV3Mn9qr7SkgQ/9GYdaEG335Mzzk bSiwZD92rMmbG8OGmjooZhRIZRV9fqKMGwlXbvYMEijw0SPufI4GD551WQw4 JEGBWn5BzugDPNhr/DyaRpS6/qa7RV52PDhiwe9cKEjdz8KNPdqhPPg1/Itf +zYKcLYvqg684EGJG8F8/mvTcEjW+Q+/ES8We3JTCD3TsBJ/7tngEV5MVSzz DOqchnvT0dEFLrwosZApe+vtNNBXFAopX+FFs7Jkp86maajVGyccauFFSmVZ ZcGjadhl5Zkcpc+HL18bv+G/PA004b4qM8CPJXC/SnXXNDz6fmmt6jA/xkbz b5vbMQ32pORXYY78aGRzdLJIaBqqtj6xZw3nx5RO4YNTbNPglTIXtaueH0W2 vDKm/J2C/vtBnxx0BFAgNU2x5/kUlH8KO/daQxAtXaJp3MhTcC/69KnhA4Jo lK52SBKnIFfN5PA/O0EczSs7+kF9CuLSBWX3hgniA3riINPuKXByePIlqVEQ q4X3q4/RTwHvyLi+jbEQ/ozZxu1dPwmBs5bcP+2FMcn2jRW37CRoc8s9pg8X wYINHsnEbxPQQWv3+l2iCGblX7Cb6p6AE39if6Tmi2DZ1OyC/psJuPzhl4Bs kwhyDjAWDlRS6xPuRxxiEMX7pOXhx3HUelZZi9R4UVyOLuNkUaHW08vM704X w9ibLePrF3+B67/knLs24vivmO/BONM4nG39qfKYurIQIqjpKo5CnB3jzjUv afwt+eEtjfgwOL264KLktguDFK5VdQ98hUYmIXNPWxmcsd3uGsw8AEpcEam/ AuSQpWPIh969G07M6sqbesljaUxI4PHHncDOTfPhU4A8StJO0vrld0KtYpO/ fZg8Kq5GdCXe6ATeM4bP3BLk8efMgNqEfye0jZsaR5XK43bBsQohzU5Q/Oro 9nROHoc5YitOtHwAmteXCiTD9qJuV3TzVPt7uJXbIrJ4XQGNnPz8RqPfQraD fK91qgIyRvRUeXq/hXThmzcqchWwUKdkYYv1W0hIPcHo91gBXz9fMPKQfgsh Cf8okx8UMOxclTF78xuwuKj0cphnH+5s0Ll+l/EN0B/Pce/I2IchKtwTP9Jf w5MErc9dFooovjM9uZzSCqeyOBhqjyhij0iKZueXVuC+N6xwy04RZfTNbq+9 bgWfxrjIs6cUMeHzSFZ4QSvIzw3Isvkp4kELN6fddq1QYHvhvMENRUy/5Pdt 41ULpEg/53v6XhHf9LE53ypphoBaXbOcg0pormbuzJ7XBJV2r+j6zZQw0rle mzOhCRZWzCp5rZUwdSVvu0RYEwRrnxa+dkwJ7+fPd3nZN8HF53EjIWeUsCJ1 ReyhYBNcre89b5OkhA8nh+Se/dcImU2+t3g+KeGwkIP/r4wGeNF+92+svTJ6 OXc+4blRB+WCH3zDHJUx6GTTw9NBdVDgsjLj46SMszyKmu3H6iCO7jDlqKcy Nv23+qVLrg6stJZ+77ygjEb9Qi19Lc9h4r7xaGOmMh6pHmZ/uPEMeGMpvcv9 yuj58rgpS2QtuBtp1rnbqKBnUpTu2/pqmJYRailzUMFnmeJGQveqwY9l+e3y CRUkmb3IDLlRDaHvnn6JdVdBluyqb8GnqyHJUmP1fogKXiqb3evOWg1Vjura E9kqGH1aR3TNoQrozu+v8fiugq4HmuMTOCoh+55SpaeHKmr3Mg7y3SuHtn6n trwzquguW06ySC2HOZbUzx/9VLH/Pf/D3MvlYOK9QqtzQRWtC5XQ9WQ5rCi9 NGW7poo7n6pKVW0vB9tnVuPFJaqYTvh4C26WAX9H0PbpGVWUESv8eP96KdyY rbvkE7QflXZ8vnHWrgTOdCWddLiwH7OjrBhZqVPsYJkTgRy+H6cVpcTqdpYA 49mttOJXqaa/PHP6TzGETlhFvE/dj+zZroqNscXg8v33RYWq/Xj6REhDdv1D 0HkvFDo5tx+5KXK5rhoPYOzBuUA3PzWkzmbJErciOCK6/vVeoBp+4gtcu21e BC2JV4x+haiho0l+7iOtIigISBP0iFLDe3Y844zsRXBKr6bWM0UN/4vMiqwp L4SvnavrZ6rU0NPByIGfrhC6l6KunltRQ/fcS417Swug2TA5PTJSHW/q3d9Y NrgNoy7P3oVcUUfKm5OaTPtvA+PVETr/OHW06OO/LSV9G8iv1LydktWR0Kb7 LpbuNrw1+kwg3VZHG6HynSwNt+AjWfo3Q5M6Ch5g7H+vewuGjat0Y2k1cP1K FqMQKR9oDw8MJ0ZoINvMMQ7Rv9nQVm8tFXBZA/uS9txK782GJIVOJ5sYDSzJ YmzdU5cN4hxtI+JJGoj9AoHpMdmA7yrHyvI08LawlUGseDZEmNyY+FivgaE0 ghHVVllAQyb/FVjTwKX9X881vMsAGkIVbX6wJu7/QX/l8noq2JF+tveFaaIM ocgl+mcqVBgJpnBFauK+XMOS7A+p4GYasisqThN78h4LctxJhU57PROXLE28 R7ddeoWcCrcDW1Pk6zQxNXKfxGj6f0Aq7tldQ6OFfJ8kp0PIKRAjsHio66oW fq19JhE+fANS2tp+NMVroUTn0x1POm9AXnBm8JNELeSQEYxZaLgBVZ9176ak aeHHtpUTD/NuwGje5dUjRVp4/sSDp2+O3QCiDPfDz61amN7x3eTzlyRY1djL PMqgjQqK0sTKN4nAPLGe071VG4NcRe40lyQCT9YHlVZ2bTS9q5dJSUwEuTV/ xyI+bdSwJf1Ks0oE28baKved2rjtpLLjvqEEqDpAdp4maePehcDU08vXwcfO qWkxShuHX10q1SdcA468iW86Mdq4ozcz30H6GhT/8N24dE0bq3d6xiQzXYOf XhE6bP9p482d3R1WHfFwPDynSrxQG51ogmUVj8XDwYLeBwfatJHgKUcjFxEH MtMmN7PYdFDkzPD9MwMx0Kr8sewbpw7mMriu/mmIgdNBdh928umgqYf1bEJR DOTRuLOXiuqg5O/H7nznYoCf58rVZgUddHhwvtGcKwboNRouTJnp4C+WXw/9 TK/C90uqp+E/HeS9uifs0UA07OLnSPDJ0MG+xX/m+c3R4PHgZ/WtHB10YX66 5d6jaJjrymSlL9TBrPGue0uR0cAsTfukrUoHA0udy7Llo0Gh9R2tRZ8OcjF/ LBmMugwhLK55p7frovKd0PoqQhS8yMXX/+3QRQ9P2kYdhSigVxGebZXSRQ7a aYke4Si4bv/OUFZeF12v+lQQ5yIhv1hlekpHFwN4CVy09yLhlSmNbtBxXbwk Z5ZBxxMJvDczBmJv6WKn1OqLrIUIYOnm6fS7q4uvvYbYk8cigEYg4ZX9fV1c GQVyWk8ETGVGVuwt00VGEaWDHVUR0HrbM6GzQRcF+OwEp4Ii4Hy5LlHoG7U/ 4ysGzcvhMNj5/f49MT0Mbfxdmyt5ET7xOOTfkNTD//wOFvMwXoR2657UkF16 yGlSA3d+hUFVf3vUQQU93CdpOMFVFgZJ358cm9HVw4xbW0vkCGFA/BPNpXFM D8WUtHj3u4RCIadc8KssPUwyu87J+jIEFMZsl+jz9TBW2rc/sigEqp/FBhEL 9FAXIZH/Wgi0ufw6V1esh5g2bX7DOgQmnt/ze1Knh6/I9kqdv4Jhr/tur7wh PZw//DzvlEAwVDRKOwZJAR66zVLNcyUIdNKsvlbsBrzZzGne7R0ELV6Xj/3d A8g4wp782DoIegRG7L1VAU9G7Csq2RkEi953bJwMADPnw/3ftQaClrCkxWFX wFDz4wlX2AOh0W+Hwe6HgKqOk6baxQGwMk9JEnlMvT7hwF3T9ABQDW74wvUE cOenlj8BlwPgXvjJgNVawFdTibtWHAIg6dqdO53tgNf673ONcgTAicLddKET gOE/X7bsDfSHjck0x3FeRDGPs768Fn6QK54vomuFGHL/jkyVtg9wxCm17T2C iHdVNKzkfSB8tslfzAZR3nqglEbUB060jrZv2CM6234z37p2FiS99gQ3OSF2 6LBeOXP5LBRWV3Ub+SM61L4IC0o/A49M3yVYJCNOTbradn3yArGnx7X0UxBv BrfwB9V4QaLEzKhKKuKZo0xR+3O9wGeOW5cvE1GoaBvdhqsXKGfa/O69hWjs Oc/TtOoJVaM/jI6VIfIoMMnPyXlCXegKjdsHRKm/WR/cM9xh4fHYTGQXol5t 4DamcHdQ/NH1LecT4ojqosaL0+5QcOBhw8c+xOAfUt/DFd0hjt8hAr4jdmVk pMBrNzhSWrfB/xfRzK/O5daGK1B+RKy38BCw6ovXsFa4C8gIeE9/4yMgb2Q+ 0xY3FzhlbPv1nwABr0j+/Tls5gI9pUr1SiIE5AifDv4l6QLPw4bDcqQJ+LSG h7ytzZk6n0lrAfsJmE76s+M+vzNImDCtSh0loMCv+TeBzU6g2q3fJWxLwGar TFPXMicwdIy4x2VPwIpnXxg9cp3Aw3/ZauM4AV01Sj7ePe8EFVm/SwZcCMjK t0Qzv5daP/ne8UYgtT8t2eXhrFPgcT395fp/BLR+JjYad/kkhAp0Z8ynEfB4 wyrdbf+TkHCLy2cyg4AXzL4efn3qJDypjBMZyCEgffSAKplwElYHQ89V3iWg myg5lmHjBCQqnNztVUnA3ccsSb5hJ6DivWx8/ycCfhSt2WfK6ghJUo13V3qo n/eaXW+fOA6eQTYN2/sJSHeWv9St/ThI7rg6f2yQgAWzNs+3xh2HxDMjjsOj BFy5wyTxmeU4eLDnqf5eIGCTxtYrOdzHQNyE9+uqIBEtbsw/rtW0h9Xch0ui 24lYPfeLd5+oPfT+JfKAKBFJ2z/LN9LYQ0KmL/mSBBEvFc3P6rbZwb9fHeUM ckT0jhr5L9XGDnpiYq9yaBNRZs8wz4OLtnCtdV1R/BgRJ2vYDRKHjgL6jimJ OhKxJNJqRKbtKMxt71AWPknEvGMqhv2lR8HBN0eV15mIu3l518Iij8JeER0N Zm8ihs9Pfvy06yh0+AbDTCgRc3LMnO76HwFO0blDDdlEZK7QkEVRa2h+9dm0 LpeItFNMhrHM1nDe7+Xh2nwiGms9TxybtYJvr5LNKwqIeGK6zX6w3QrK/JSs 7xUT8aTMdF1NsBVYtJ1xSHpOxMEfTBsiny3hpv8vjxNfiHj3icJf1mILEDYM 8bX8SkT6x5P7uDMt4LYg63nDb0TMP5+TIxtjAeV18tHyI0TMdWl8FX/aAj4w +eQt/SaireOZhO1iFsCRvfAx6R8R22T61+1SzCGmeYtuo7A+Oun0Tk1eMwPO tBT9ChF9FGSgPF0JNYM0953GRWL6eCfnRYuAtxkUchgdvS6pjwLGt3zCD5lB i02cr62cPlZMZgVu2WYGdFOchX809ZGRKFFyR/YwhPKJbZO01ccXf5VGTY8c gndlW+3AXh9ZtvMK3VI/BGKm8wUOx/QxklZ9D4/QIXhx5a1W2kl9tLwo5Hfk y0GgWwpxYfPQR7WNyEXr0wfh6kBv3UKIPuL1tFaREBNIzrvh9SZbH9drqlMo zw7AD+2w6vFcfQzwZW2nuXUAVPvc6Bhv6SNB2YZe4coB6ObEdLyrjz1KWZxf zA6AYOT0y8oSfRRbeuwX9ZMMuadNtufX6yMDvXjJmBAZ7ssytAd808eYt+PS kGwIXSKEf97D+qgXMLuwN9QQVreFybuOUPvrpNNTdjEE04W5BNtxfbzu29cR omUIc00jlnoz+sj3X3j/1hHqg8GheZCJhoTRTz7XsmsbQF9C1J/MHSRkra+j k1rSB7rIF5IpEiS05fuSnzGiD3vO/bO8LkVCk2uy+lKd+nDR3r8qfDcJy7z2 GZ99oA/SMk4XTu8joUPAT+PxY/pwtpHIoAAkPNNKDjVtIwLjHK1Q43ES7qaV POH7gABLpekJIydIOK+25lCRRoDf3vvomZ1IaNN2W5I1mgAffjpQTF1J2L9f uXDWkQCZn6tbvpwl4aHpWO9H/ARQeOnttxRBQoXvWco1VxGOJPe/2XeHhJYH zzxSpegB+bAPwfIuCYVpiEvHO/RAm42pOrCIhA8O1Mw+LNED8Suqt+sekvBG eoljiZceTAQnnjepIGEy125p40lduHjSYKdrCwkD48St3v7RgSLFsou5P0l4 ds5ChY5PG87w/Vmu/kVCF5Ng7+YlLVBdUTzX+ZuEO6qVaAu+aEHDy1JP+hkS 8lxTSKgt0IK+I6U2HkskPPeghEBU0wLmsMfKalsN8JpoK9Pt45rg9rpk7J2c AXrt8e8ceKkOCo+mTv6UN8Al4YYyjofqMJe8d5BmnwEm4rylQ7I6RDiUfFRR MUAfmbwQ0kl1SKcUN2RoG2CAwcwBAxp1aOMrznQ+aIDxmioOf4lqIHvqgema twHe0qlaPjCgCm05WqV/z1KvF9ZXWmlRBZf+dq5xXwPkVeoXrS9ThQKz35+6 zhlghgBNc0SsKoiDvP29MAO843pUiaKpCvwij1wtrxvg4v5Q+xO5KkDXUxZx v9gAeeL9ovjOKcMtLuJw7iMDHBgUvSvopEz9IdOln1JqgLrnh7T3mitDWPNf xvAKAyzsUQ6P26sMS+Uq162eG6DMCb0inp9KMJ1YmbHxxgBVaP+tmB9Tgs8H asqtfxvgXW3OZI4jikA8XGBzbsoAG0vefHpNUoQHVonrKRQDzHedJqWpKEKI o7Pxp1kDlD6y18mNSxGEz3ENW6waoDP/E+GXWfvAJt+dy4zdEPsm10v1UhSg Z0HIx3ifIb6i1fyRkisPeqv0/B5KhhjU27vLLEIeCmlnnsWqGOL521Ime07J QyBbK9NrdWp98Yka3CUPfJJ+eUZoiPuKxpNGHu8Bq0PtHSRzQ7zK/yt9tk0O uu6E7AV/Q1SdlMs055IFbpqqGq1zhtjBkqVwfUkGLB3+GKgFGWLuFoa934dk 4BOv2/G9Fwyxk0I/0PlIBnqjrRO3Rxni6s3Qlo+HZOCLq+KfxWRDfG2jy2mQ tBtG94xVlJYbok1HoSjs2gW7YiQIxRWG+Ny1wtqOcxe4jDi8K6oyxN6z0vzx KzthPPvjaG6tIV5/pMu59/1OmGBv5L/eZIgyief5fYJ3wjQl67x7lyESaddr v3VKw9ITcx3Jv4ZYdepH79ANKWDTUOvgmTNEWuuh4bGLUiD+XPgEw4Ihjm57 bEzjJQXk5h9R48vUfuUIH9wNpSDj07k3j2iNMLhGuZtvVRK05jPstLmM8MOj 8dgmD0kIVRs+b6VohDw9p58vW0lAUm0ri6GyESrsx4tyJAko0HuYra5qhHem J0M8VSTgrWFAg7CGEbamWqyLckuA6FFG5u9ghILO4pb6H8ShPkguzfuwEUpF Jy1eOiwOG0/9Kq+cMcLuYN26d+Vi8IWxPP62jxGunE71uZgsBrVWf07W+xmh s4+HiLmfGATMnOVYCDTCwrXUMHtlMRjf7e3qHG6EW1pecdFWiEJXqqsQKckI HXtDv/vUicDdAIcw2nIjNGlenV/6KQyRTVmWohVU/03xK3gjDCc4P8tqVhlh evnpN96PhUG42LbHp9YIe52FD9gGCUPCjyP7vjUZ4VNXjeJEZmE4b2H+vf6j Ef6X9UX7hKIQmCgaGoTOU3eYmyBdU4oA0HR30wYsGuEQR8Xnm2ECUBXsXO+5 bIT2g712oS4CIPnysrr9mhGGuPLp3dAQgBXrl7JaDGScWOobeDXIDw8uIMcS Lxn7BQ3SrOX5YesrrV5/VTJe/+/PZcd+Xqj3bL/pqUZGrX8eG1+beSGA087M SYOMG1V1OX6lvPDNNvi1hQ4Zo5zKP3Zf5YWnk9XPlEhkJN1NUI9T5wU37v35 FEsy0qJieUYmD7w6ts/d05+MifMlDp1nuIHbye1Zzjkylu90mkyx44bjbrfY PwSR8UP336Izhtyw4MdTrhpKxuMybRKnxbhBOmZxZe0yGZ0sBzut3nNBRPmL a0mpZGzNtKjR2M8FWkxmpZU1ZFTvYdXz4OSEK2yxdOPPyMjKUNMYv7YNOrma rITryRi3oV7pPrAN3ERUly82kbHkZu22jJRtkKYkSCS/IWOvuwBDA8s2mLP/ 9nHgCxmHiR2JbOvs1D9GQrvYh8hYHFk2ITzIDvEuFufhOxlDC5PMDz1nB0nf ZpGCUTIqSIwyi11gB/Mr95y9p8k4/eJrtfsKG2THf6/OmyHjFstH/ikDbDCe JMzS9ZeMer6X9g7XskFE1rVHaovUfls6X41eYIO3+S007stkLDMRM8hyYAOB wnWLrH9k6v4p4vHXZYNTD9Xvvlsj43O5n9+9xNjgUanP4sYGGVMG0jpjNljh /wCgegtR "]]}, Annotation[#, "Charting`Private`Tag$124384#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ {GrayLevel[0.5], AbsoluteThickness[1.6], Opacity[1.], CapForm["Butt"], LineBox[CompressedData[" 1:eJwt1wk0Vd3bAHAzGa8xZB4yJFR4RdpPhJuiiIhUKMlQ5qFkypipyFCJBiWU SjImQ4MGU5IkQ0l4u9e9psyX/z7v9+21zjrrt9Y+a5+z9/M8ex9517M2J1mY mJiW8EXcFdIZd/Nlnu5kZiLaJPpw5bvf+KkhxPr/tqjntBo9RUfn14hGR8MT Ay6hf2eQlsP/WY5RlcfQW0DFDcP/+SWbskGj/RIy6or5z868GV9jQlfQex/L VcIal8kbRxIZSGyEi0F4RXgt0PTaKrI9wLJM+GPO81f3i9eQr+6PecJtfHrr 2JyZ4MaJTTOEe5NoG6/lMQHH+O5JwiPsRbs1+5kgp6qLSviPycXPC8tMsPnD 4B/Ck9HHXF9tYIY4asP4f+Mx1kc5ODFDgMPfX4RZdszyK55nhmFDk5+Euc51 3py4zgxJxw8PEuavfqhRXcsMEho63wkLzyXWxfQxA6234ythcZ2TFpZLzDAQ qNpNWMZ/17f1kixg8GN7J2F12uLcw8Ms0F0X1EJYW6MnLiSMBV6tZjcT1vMs FzG+xgK+FUfrCe94kHaXt4YFvr1rqSJsPOq59WsvC4zMtD4lTFYyb7q9wALn qz1KCVu5Kh7wFmeFcLesQsKHB7/7MDuwQkVyUhbho1LVKx9DWCE+eXcq4ROO V5Ozc1iBNygklrBnrq+kSxUrnAndcJ6wb8++4k1fWcHwkpof4WARNf25OVYI cb3uTjjchr2lUYwNPp13dyKc2F4/YneIDcKVp4wJp/FeD5ALZoNMvwJdwlct glkoWWzwNTBRhXDBW025qC9ssGI9xkW4kI3nscVfNvAeslhYxS4xHjMSFWWH qaTXo4QrXxY4ldiyw2RtVyPhFyvn/wQGsgPHN5uHhJsNHMLQVXbwMW7MJtxe Scrp/swOypv/8SDcPUtVLphhB1VJ9f2E+7a+rzgtzAEaagM6hH+XRXet2nBA b9jBFQYRP1Rnl/f+HGBPZwwQnlQ3mMzM4ID+Cb2XhFfuT/OpdXHATI/sOcIs v9vzZqY4wPx5hR1hLsXSTS8FOWGB9Y4WYZECtz0HrTmh4sW+wRVsyQHUK+3H CYd6qOWE5TZInRq/zAnxDSVxhDfldMde6OSErbuMlQkbp5s2Fu3nAhea7N5l 7CiLiuKuM1ywLVqJRPglu2ImI5ULlLf1dy1hG4QzuR9s5QJ1WwVrwqH/nN0f QeECi440XsKV0wP6xdzrQCPG880i9rbTdTxr5HUw2q+qRdhfSf2vmsc66Lk0 NrSA/WQod9A2YR2cu9CWSljjUPDTkjfrgBzzGicoHSmZbLE/ZMwNKTfMXOaw XVcLINqFG5IbVBf/Yt+q4Vd/GMUN7DHZqYSltKkrzA3cUH65uXQW25HiOKox yA0O8va6hHPvv++wZ3BDep9i3Qy2qHTRnUeGPDDRI1A3jW3bK5rS68gDYVms uoQzMmODWM/xQFlgb8kUka/cruTD1TxwRrM1aRKbY16KxqbLC6sSR4Vo2LvL k79q2fLCdcqgxwR2jM9So2MAL+x/kVhLxV799TXzyVNemEmct6Jgz3dmbD+i yQe1pbnbx4l8TWFWTLDkg76yGvcx7EBzX95ybz4Y2Y/SRol4qbcc4izlgy8U odYR7PESrrhnKvwQzcTL9BN7o3vImUEzfnh8/SJjiMhH+VH7de78oFN9eXYQ +0fOK/VjhfxwRIK5ox/7W2xEJ7e8AIyJW2ztJeoNTNToggC0h0Qs9mAfWna6 e/yYAOTJ+dZ8we7y2x5ceVMARL9JKX7GPqm1xLeFjwSNgZevt2Hv+55wT1yG BDtGMtlasXUSRI2YtEiQIMNy8gM225C2d8cBEpjVpXK1YN9JO/XB5yoJKBdd exqwLxn8dbG7R4IvCi/p9dh+ozGLOypJoKd/bLUOG3bmq/L2kqB8x8BSFfbQ RHd8yQZB4Ayp8H6M/faaq0yGhiBEG6hqPMIuM518HmYkCPsCKodKsCNu8vwm HxOEvKxkhftEvFgam4zdEYQSp3mhPKK+PXy8pqguBGf1nl6II8ZzMMrhMRQC 5W+CPjHYqmwfNWf2CkHjlKZVJPaC06hzs48QzLzn+B2Knc0j/eL4U2wRLhcv YryqkoPkZiEoslPpO0XMl5s+ReuzEEjrdpucIOan7qDk2qwQuHHA+BHsz56X Qm/qC4OoqImfJXatmDgpbo8wtKuXe+4h5qv5XpG3ozD8Log5aErkk2RTj2G4 MPiVlE/vwCZ9mNfpaxAG2aPgtgnbUu3klJi5CNhGDVHZsJeSg+oGDomAwIyT IhP2A1pcXKG7CFQKu+5ZXsXrU3FfYmu8CMzSst2msGt3ju+yfCMCnh9D2/qx N9p6ZVw0EQVT7fVHn2B3V54/YnFQFG59rI4swY6WSNko6CYKClNS6YXY/YMP a/NjRGE24WVwLnbmadpwTZMozDzwcI/EZor02zaJxCBM6/XjPdhlP6MZlfvF QFHj+y1jbKfdGS0XjomBnDNXhCF25bpnTjyRYlBwdOeKBrb31dmLG1+KwbMv VuwC2N+KQ7qP7FgP0smSOh0MOirvvhD0Xl8ccvdOOCHsB3EnXIf3iEOec2m7 Dna+3t79y47iEHsgfqM69qVccbXNF8RhkawcJ4LtduRZ/+UmcSAh4eWxFVxv R8ZNHCwkYKH+UXkSNndWh7afkwRM7nzneQGbyaxS+pK3BLy4cozDD5tadHG+ Lk0CWF3vjtljv/GSKZX9LAF+Hj/3K2EHzxwUGnOSBN39o3eqlvH3FBqsrXlL wipnW0IxtqudPFU8QhLWlTVZ3cC2qqK9sbiFXRsZE4Gtcj4prGxEEtq3c0Sa YPeyNPwI8tkAARnZtS1LdGQopP6YLVIKVnY5Vlcv4v2L2fF9W7oUqF8r4ivC Pj6V9Cv7lhQclvthkoUd2/nverVmKaiI7rXxI/qnFUdZskvD71X7RRWiP4+a TXayNNBsCo+kL+D+bKp/VXJlYE3UVNlsno7EZu0Fph7IwIam5ght7Ae/EtRq a2Rg5MT9KknstuYx533fZcCHM6yFNof7Rxe99ZWRBZZ206NZ2MWMjbk1hbLQ ZvH6eP9fOjq1nHHznoMcRBpUx1jP4v3eivoq7LgcOErcD9qO3Xjb9I+lhxyE CJ3YK48tTl7QmwuRg+jWnQWTM3T07qpzp1mOHI6PxbFUbDVNVdbxL3Kw/FN5 qXmajijH6z3UD8oDuyyFe/0Ufr5CLH3VUR6ODPNaL0/ies7p+7zLVR7u770Z NoSd90iB5by/PFR7svoXYe9bSrjx8Yo83CiqXdPFfpRp0+7dKQ8SLK9SLel0 dPbt2LbHlgqgWXDhrPsEfl946KVxSAG0XC4d3o1NqvO9W3xUAeKNX8opYD95 vChUeFYBos/lmw1Q6Wg6l2c694oCyJg7TVpjB3tpPYn5ogClhsMvdCj4vEQK 0TjkrAilWlbmP8Zx/DpyKDO8leBuSsr7jl90tFObd+7fQCX4VDc9VoQ9xS7U 0hOuBHFGxeOR2A5PpU8/SVECFUvxK1rYyly6j9weKgF3QGhE6jB+3+duuh8o ShBWpN1h8pOO5khNpjmeyuCZOH/6+iDOj5bz7ls8NoLdb9KjyV46auKUsPY6 rAozRjor6a10tEUwKvvfQHUQX3Prt6nH8TNjpGHlrQGtMl2RCY/o6Hb+G6n5 VE2w25d37Mt1OnqWZvC9y0Yb2rwSOTgT8P5Xa3Tg5r4twIhMT3AJoKOGD/em k5y2Qv3moQ1/jtDRafPt9acdtoGs2fjQnBlenwdbnnt56oCZmW2TviYdXZmp j/YN0QUnvdfTAqJ0NFoSFOzhrwdXUwtMRldo6LVZRm5MzD8gv7z0hHOYhpj3 9w2nR+lDEH9qvMs7GmLaVcl8K2w78AgIn31dRkOJ6+ctuxIMQHcwdOFiBg35 Oro1z180BJFtvtRXITT0M1rnBMraATfyzMJPOdKQSOa1vqTbRqAS5d0ORjR0 n6Qe1nJjJ1An2QI65GmoyV/WVKUUgTNT1vsOVhrKl7slZWQLYJPEXndzbALV hy8xeXQCiKuGZHd9nEDyezlXFO13gRWDfTn20QSq6FBL/ta9Cx6qC+xRuDKB Ut6uass5G8NcW1Kaif8Eygz41/N4vzEonG2+62w3gcJFZQQUDpvA+7JnVcv6 E6hYjf1D4A8TyJnfjM+wE4hjllmi6ehuiBX2d3NmUFGR9tOI/LHd8KlxIlFl kIrUXEusGD6mcMArOD22gYq+76kpt6OYgnloj8fsHSrquntuMwowg5KKPiXW WCpaeGa9Q2HaDFIeWmqqnaKitWr/5/FnzCG1w1yfYkFFe7XNTMP/mkPkHzVr Ow0qanHWOu0VQIYt7pnafQJUJOTmUXcziAy1ndyqTthHPW7zdYaQYVKmRa6f n4rm/IXLdcLJEBVOEhvkoyKlxPklRiwZ0j7OCgzzUFFUeUPK5WwynEgM2fWH k4oMOA88eV5DhhHrxfzlNQqK501iGa8jA43E2xiO/Umw2VbyJRmqmAOHGasU 5CGlsxjRTIbxQNNNTNg5W8SNyR/J4HFhpZVthYJmnX587usng4a1mjX/AgWB i8RGviEy6Dh8SEifp6Bkd5tQ9JMMM17vGkjYCn6vpQp/kyG0eGCb8BwFWcc/ OOlDI0MN8zkN8VkKykv+WVUwSYaKWdKZazMUNH5Zkrtrmgy2HVxPJbGjbqSU 6c2TIU5Z2lB6moJab71hOr1Ihogsg5j8KQpaf3/V5sYyGQR7aj/IYruW/nOv jUGGleP5IrcnKajsiS/+7yXDp8e/jylg/w8Vy/mF "]]}, Annotation[#, "Charting`Private`Tag$124225#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.9, 0.36, 0.054], AbsoluteThickness[1.6], Opacity[1.], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJwt13k4lN0bB/Cx77JvSbYWki2VxHvurJOiopItRYQ2u/SqRIWSZAkVkWRN hZQRQoiQBlFCZA0z9n34nee9fs8/c32u58ycmfv5nvuckXO8ZOHMTCKR2JhI JOJV/j4jLVnmzT/cJOKaQPUPOj2Hz/Yguf/btJTDfPAsHbWMr+GLjvrGu05f np1G1j4j/1mW8e4JY9cCKrovu0KYEwkbqpYvoLdqh5cI04Mujp40WUSHfGrn /3u/nDTyv7uI5DO3zRH+XlkXff/rIqqY3z9DuN7JfzBDeAl1OUhMES5j3aTz 0WoJtb++Syecn0691/F4CdUExY8RfmEc1DvRs4RsmFVHCD8a2r6TS3EZTU2g AcKRYZ1hcq7LqMbnw2/CwUrhv/bkLiMmRlQnYb/6XeoWE8uoQTGrjbD7uf4Q d60VVPaA1kTYnje6PfjyChJtJdcSPvwSbXv8YQV92ZtURtjQfPxaAYmBvEub Cglr0x9RvxgykFNVaRZhlSjy5v4wBqLxkpP+q5fGXMBKAwMJhJLvExahpjWK CK6i+xvjr/9XP+8jctuPraJXSZwXCa8Ir/kYJa6i0YCLNoQnCnM/23fh8XkP DQn3H7OR9pNbQylRB1QId8xxeEQ6r6GSJEtBwl/i31a9yFpDfy09p1eJemo7 iZePr6EsZicq4R/nw96OSpCg+3HfS8KWeg498zokIN1Ov0W4kW8XF6s9CT5e srMmTD0glNAUSIJZHkEVwh3htM2JT0hg6JG7xMDurq1/6/SBBG+4+z4R7mfL MFT9RYIsxdN3CP81CGlZWCaBXXWrKeGJGw6OVeuZwC/qDxvhFYZ40AlbJijx Pe6+gs2sO8Ov8C8TpL+bECLMeaU5afwRE+RpRhcuY/O/z1V5T2GCmYw6c8LC c2ElwT+ZICpftncJW0LL2dRsiQkmnq8/R1jGa98PcSlmuH5xz9gitjJtcS7X mhnGoku/LWCrq3y/5R/ADGkf2XYS3uWeL6KfyAzZmlr35rF1MyPTeIuZoUom 58cctv6gu2Z7BzMUZ9dIEiYrmlSkLjBD2ZdfB2exzR0VDp+XYAF9NT2vGWzr 7s4LTCdYYKvfctQU9knp9ytf/Flg5VJH2CT2GZvYuw/jWaAlnXFpgshjgofU 6XcskDWTaETH9vh+MGtbOwskO7Zx0oj8iihpz82xQL3At/dj2IEWbLUfxVgh Qz7j6Ch2WFNp/7HjrBBXsOXgMLEeeB95y/qxguBMX/ogdqypH/NoHCtwrCQO 9WM/rVGVDWpjhdezDTK92M9ZeV6ZzrKChf5GoR7sbP0hPVFRNpiakhz5hV1U 9tQ2+ygbZAs76XVgf1j596+PDxvkTx9434ZdqXMiAMWygTe7kFALdlORQHxr CxsssorbN2K3zoxtejrNBoreBQfqsX9q1hW6CbODiMCwcC32QN4N6qoFOzB7 BG37SORnzP50nRc73DdhvfyByI+yzkRMNDto+55KeE/k58UUnxKVHeq87pm/ JvIz0PRkepIdxgehN4fIj0LOtjJBDuBbfbAvg1h/T532Wx7hAHXHa2eSsKW6 UMcGTw7QtCtXSCDW63rps8NRHJBjP5IVjb0tvvXm1WYOqOeeZAklnv99o48Z hzihj7pUch47yLQwi3qREyY7h587E+uNTSGGcY8TgqnV5JPYOoEkF8sGTuBn ohabY1/efenQtVFO0CzcEWJM1HOqSzuLmwsKL4ys6WHvcCvhWSNzQXfTJR4V bC9F5VklVy74Q4aH8tivexK6j4ZyQcaDMw0SRL857vcmu5oL2MWdNVmxFQ00 rI7rcwOqlM/+vkpHjqtP4cZpbuiLTTxaj51SzK+cG8QN4SLGiaXY0upjK0zl 3JBYYzz8DNtm1GZQpZsbJEUFabHYCS/qvloxuGHLFcbN29iiGzKevdzLAwaR E3au2Ec7RCM6bHjg84xh4gns6JibvixXeMBa0MqejM3P7Ui2fs8DbU3rvTdj s89L01h38oJDKunBLwbup/l329WO8sKsvV7tZ+zgC0sfbbx54ZV5nGch9uqf 9pjXb3iBe8Rf4g72fHP0HjtVPngl6HRWFXtXBJNCqBkf2BpMzIli+5h48Oaf 54NN06sDKys4L6VmPRw5fEBXFOv4jD2czXmrYAs/XLlQVXECe7OL/8VuY35w UeJm2Yt9Rm7QisuFHwY4/SOlsX/HVyk7POeHY7VDl7uWcf+8ea2ZW24deE0W HTqOLQHjxTthHZhfa47TxD6+bJt2ymEdCOxTEuDHpnru8StKWgejG0MfVi7R kbPaEp8GnwAoHtz7RA77YGdouoSMAKREWcdOL9KRVqioHklNAJbKDII/YbP2 qJ//elgA8pJ3azhhP4s8W38hVgAe3HjhH7NAR3d0Zk8fSxeAb7Y7KHbYnoPB i7pFApC2e6VNERv+Sd7K2yEAMZTlO2/m6ahnvPV29npBKMwcvf1hjo5qEh1l olUEwflElFogdp7RxNsAPUEIbViM1cG+lsQzQHYQhJuXZ0MLZnFezPQNhp4J QpzFUE7cDO5vua/WFJSFwNhEs0t8Cs93Qi+eZ68QNId8fVkxSUdbWb+oTh8Q AkrzAxZ37AXbQfvKC0LQkLqiXjRBRw95Nnw49UYIJLnO7dSl4/neZVuSK4Wg iyr17QcN18tJe1StRQjKhfa0+2JrlVhKrc0IgTAjVzRrHJ9T3O9cTtIWhvyO BtLKKB1RxCQEbu0XhoORanER2M8q0zPO2whD6ZzRlfXYXlIV3/cGCkPKFlZl rb90JFA/r/WzXBh65bjqDg/TkZmS86SYiQhs0HFx0Oqno6W7viVdx0XgHpvZ zJs/dJRJu3XruYsI7F9eGtqOzVr4QlLztgjspAT3yfbh+f8Z3mdWLQJ+17gH pnpwvo6eiw4xEIUUs4taRp24/xX9a2dqKQrDHPU5GT/p6IZkxGZBJ1EwKNF1 4MT+1Z1LSQ4WhcndVl6fOugoxo3WV1whCl3J04JbvtMR6brnjgkkBiKdL+7E NuPn1XuDUXRIDIxfanb++EpHtobRtVcdxAA9yN+/AbuIq8CW57oYCIjnBCQ3 0tH52JmQzWViEBljMRdej/Oc5d9qpysOJLNvCyyf8Hmr9apvnbYEwKV/vgW8 xb/31hnHvv0S0KCm8Nu9kI6Sdx04tGyD7/N+DrYuwPlLkFDaflUC3LY9vqr2 ho6c7Ap+RVVIwI+er/Jlubjf9g8bnDCVhA9f3vM4p+H9a9pSaMhWClyEzdK+ ReLv81xnbe28FNzl0enyuof71TG5MYlrUvDu26ZwwQi8n76jVZumSAHHwDEt k3A62vJveEBevxTQ9btqYkLweYS5/LfvhfXglr7V+Y0/He0VUn7Fel0aqLK2 I8v2eP9hsqlrvC8N7QKRnhZ2dHRqMvzPwxRpWMvlDHhhQ0c3m0fElSqlQdGm hc3ECo+PzAoyY9sA8pFZ4u6H8XgeJYuHdzeAZnmdhrY+Hs+6dXZLggyYmG+v mlWgI7EZq3WTmTKQQRsKXpHD9foTqkQploGdh9/VkWTxeapyyP5gpwysJEbQ mKTx+BsZNR4yG0FF+EnaoDAdZTE2JxQ/3wjBLc90dFjo6OxydFL6CVnY2h9X yv+bhmLNx6oCTsnCkOST77QuGvqYavTXzFUWqme6Oxs6aUiCvLBrzl8WHp0d fxncTkOfY+2bjeNlwSDM/mZbEw0pqW5lGW7D9wd0nkmU0tDoqVJXZUs5kDgV pCuVQEOXaoZ2vDKTBydO6m9dMv58yD2nclwe2lc4OF2MaEigxCMt66Q8nB4f YbqnT0OvXy0KPb8kD0smMt6tujQ0lcAzlfBAHh4/CvPcr0FDfufUXge3yUOr 7xmRRkkaChTwVzlurwDhZIdfhiPj6I4N+ybGeUWQSfIpJAePI6faf100XDfD k5CyMuVXY6iCQ/LIOeutkHksjzmoYRRpCAY9HPFRhpdtjr091X/RqWk9FfPz KtCuKMRTXT2CUpOrpefvqYLIB+7kvMxhVBCp00m1UIfLR5T2qN0bQj4UvcNJ BzVArnp3c9DNQVRenz4VbqsJs36mj0vPDiA3kz2lbid2gBifkIawYz96kqnx 9py7FhSbPtOpOfgHPZguveHhvxMmdT4Lqhr2ocFsXz9Xr12gmJnqK3qsF30y jk4IDt4N/Kab2JltfyOmQz/77gdpQ6BSQ9nG2W5E2lfElBKwBw5I3QkNMe9C YeLzZtRQHdih9M2uL74Tedg4Vc6H7IXSvdIROoI/Ue8NrTMoThcC7llLcV/r QCIxiT/DU/VgIpUhY83ejl4IKAfUPv4HqkIjWm4Xt6EKr41GW3IQzI8Zlxg5 taJk2RRpvaMAq/oZyzVaLag0cInk2gzwo+5vVPJ6KpI7wLGiYLUPJuJoFzYs N6PCr0p3f7TuAwnL1bDyxa8oomZVXdZeH9xVuBTyJhtRjPeI+6lf+vAj+/I2 0tYGFCgqs07e2gD+HmdfMwyqR1lKbPU+vw1AXjeiX//rZ8Q+wyRZcdIQqNuP 2vZa1KIM9TfXkocMQVGNemDn12qk5JhtzrhgBCEsrIek3D+hzv3F+cdGjcCr 0jqrTb0KUdOubEfexnBmWfZQ8mQFWig4ois/ZQyM255BlT8+orX3Xm9vXzSB 3uc1znN55eiAurFR4KwJuOV6191MKUW19mpu57zJkCjIyuXUUoKEnFxLknzJ 4FSS4xb/pQSddE3la/Ynw3rn1dHGqhI05yWcrxVIBq5znpb7CkuQYtj8EuMm GbRHVZP3xZWgoPzyiKiHZHA46ZmZYVWCdDgOv35bTAaedwUVbN0UdJs3nHm4 hAxlt3bvv/qdgr4JVh6VKiNDVSpH71wTBblKay1eqySDj4gbmiinoHgNCX3y FzJoFetmLqdS0Izt75afv8gQxzyW7+NCQXBacjNfDxk+6umv8TpQ0F0Xi8uo lwyWTk6WGVYUJO/5Sfr5ABm8rf4K9JEp6MjtTOcLNDLs1z1IvbSNgp7c7X33 dIIMrJE65hKKFDQcJcVNnSJDik9ZY6U0BQU9jsjbNU+GtJGLbRv4KaghpZrk tkgGncD7dk3sFCT+YtXi8TIZOoe3DwStFSPHnN3pjQwy0G59urhzoRjlvfbA /+vJEFHXuDA6UYz+BwC/OUs= "]]}, Annotation[#, "Charting`Private`Tag$124278#1"]& ]}, {}, {}}, {{{}, {}, TagBox[ {GrayLevel[0], Thickness[Large], Opacity[1.], Dashing[{}], CapForm[ "Butt"], LineBox[CompressedData[" 1:eJwl1gk0Vd/3APD3zPPPnEyZkqGBkkrpbPNLpkKEpidDpgyZIpkKkaQBhWgg UooSSYaKKJF8DVGGjJV3iWd+/M/rf9e6667Pumfdc/e+e+915amnD7qwkEgk Oj6ZV4UrjHvZss/2WrFhkCZR09UevzG3PqS9tIoPAplWcVqMuBFINub/bTji ++5F+xSSuj7zz4MT30+E0KfRipjvP5f4XX/azU5HyQ/sV5iOopuu6ojPItuW W0tMu+/Iy/PMnkWsB4QXmLYKJVtkKs+hSxfN6P+eL1mc+9xjDlHbPv5lemel E/3Tkzn0/foHgumNTjz7hv/OofoO9T9MyzFeZjK051FjRc8o06LZLpNiYfNo tufVINNcSMRwc/U8mkrL72V6ua8mzZh1AR2SDf+PaSLS5/dRkwU09oy/+V88 8tIoOHEBbUra+JbpjrrG1CstC4jt692XTDc5B4/kiyyi9Q1ahUy/YVuvU2O3 iPak3Ln1L/4HbZe7bi+iIImMeKbzjCMHJvsW0ZmElgCmb41u2s6ttIQ26445 Mp0c3xMv776EngaeB6ajVRN6dxUtodykDfJMBzVpaxycXEIHTrozVrA9PIdi PLSWUefdN+1MH+FL7YwOWUZvR27lMW31GKnffr2McqeO+zNtaDERUUpioHIz tx1M7yRutX00ZKB3A/QZBjOfKRTloXgGSokxKmRaTnM2dPkTA8kfOn+IadG2 e82iQiuo0LlyfpmZz4AD8ptsV9BeJ1IK08siq2eMMlbQtLS+FNOTz4s+HPm+ gi4fPZGxhD1k6yAdJL+KPh9T42a6a5bTN9llFV1xsjm1iP0x7cXbvIJV1Hg+ snyBmc+dzmuqJ1bRw5Kd9Hnsbq/4F78lSNBqScgwba17rG9OhwSS1QyNOexm fm1utiMkGFy6t3EWu22/cPrncBJw69Ur0Jn7JdCUMzJJMCpjSp7B/tHQ9ML5 NQn8FqLq/zLfjz3fcHMvCczGC3ynsH8ZxHydXyKByZFRBsGMJ+oY9a0UGT5Z UbxozHgZayLtHclwXkVr6Bc2y54ZAcUwMvj0Hh8fY+bnbGvWxC0y+G2brh/B Figv2lj+igxjhWFnh7BFZuMro7+RISryNHkQW0LLxdR8kQz0KpXDfdiy/nrd ayRZII06HNGLrUZbmC06zAKbtL+qdGBrbOy4EBzKApcSJvPasLU9SkT1M1jA Y3ps5DP2nofJ9/gqWGC5xW24CVt/xGNrZxcLbGlcyK7HpiiZ1ObOs8DjeD7B OmwLqqKVlwQruO2laVVhH/7R4022ZwW6evmlEuyj0uXLH4NZ4a1XZmkR9kmH 64k301ihmMskMg/bt8OsQL2TFbJjIqbTmfUqqrpzdpYVDD1XU65ihx9kb6gR Z4PLjptrErDjP1cN2R5iAxUR3poQZv3z3QqQC2KDPcNZF09jXzcNYvl9gw2q Yh82uWDfqd8sF/kfG/R+DnxhhX2fjbfYlM4GPVd5DhhhF+qP6oqJsUOeYKX1 LuyyN3ccC23Y4UlnWtA67NfLYb/OnGGHcFL0JSHsOh37UHSdHdZ9ZZ1gwf5c JpjW/pUdSp1bY36uEKh95s/6O9PsMFpVX9iG/W1r4/NTIhzQwlnEXos9/CSq beUgBzhVKe++jf3rz5ETjf4cYEY7zBmHPammM3ktlQOk1Mt/+WEv5/3lV23j gG3n6rsMsVmGP2dOT3HA+yH+9o3YXIqP1N8IcUKXc3GDCLboHed91gc4IefE l+AfDAJJfkddMn6csNfsj2IdtpyUtNtYCid86r+Zfx9bPa099lwrJ3gaR4u4 YutfMarJt+QCXvKt+O5lAkWaPi9o8+GCu1TWulLsN+yK1xiXuUCTan0rCVsn nORq/YkLgp102XSwQ3actoz4je9vGI0RwC77+31nAQ833JZJjxhYItC2U5W8 qxRuoDO0aqKx/ZXU6Kru3HDk0LkZK+ynfek/bOK4IbTmYoQM9sZDQc8K33ND u3KJ97NFAikZaNod0ueB53Z8BW8XCERduQNRJ3iA0yclPAY7p0JArSiSB1bU s+z0sKU1/iyTq3nA7uzkUtk8gcRk8u8+3s0Luwfy++LnCGTTJZbU5cAL6fYC bTuwU6/FBrKe5YWEdW2hQ7O4/3iolMPlvOCu7letjc0xJ01j284Havd/LlbN 4PlYkti5xYYPNls7+R7GjvZerHEI4IOYSgPjv9MEWvnZee3pMz5oDrYfk8Ke a03d5bSZH8zDrTvNp3D/JZEV48z5IbJGXeHrJIHOmPjylXjxg4M4PcgWe7LK vI/zET/wbB8VPkAQaKyQ60LpBgHIjhMYUpggkLJrsM8PYwEweaJnceUP7i/5 ETtuVwFwf3HRc/43gfrT3qoduy8AJ+oXrtX8wvMwNqKVR/5/4OBq6rNhjEAu Wxb5NfkF4Wzm43GjQQKZ9cQ9kJAVhOL3GsOuAwTSihPTJW0RBNnYbq2YfgKx 9Wl4tVgJwvjjutuPfxDobrJbk/d1Qch+n7v2wzcCXdKhn7B9IAhbkjJM6roJ 5DcSvbCnTBA6m9+feNlFINibrcLXJQhdSWoqqR0E6ptov1goJQQyrr13uNoI VJ9BlU3dKAQs/fe+dLUS6InR5ItQXSFQa6xIutdCoIgs3mHKMSHYJid5WqUZ f19zfYPRu0KgkKubSWvA86eoeFVRTRis11wtor7G+9nrpvHuFoa+2BzhjlcE UmH7uHl6vzDY3KRaGlQQaN5x5EidtzAsvLNS4i0j0E1emdfHnwkDi+HEesti An31uBSStVMEqpf19HNyCPRKXELwwj4RGBRSvVqUjeOve5Dv5SACMrn3FUoy cT1L1nbsDheBzqz+Pw/TCSTYNKf1rVoENgXc1zdMIZC5qsuUuIkozHooxKlH EGgxMbDy+yFRcJCMDZ0KI9BD2oUL911FoXofh9qzUJzv53lrt14UhVKqSIlM IN5/75ie+XtRWLV901voib+/jWdqjIEY+FR4jV61w/OnLMzJ1FoM+GzrnkzZ 4P+ntUnKQs5iEPL4z1/TgwTq/VH0KjtaDG5o8Q2PmxHo2inaYEWtGJC2GMt0 6xGIdN5v2yQSB+MhmYyzajj/A1GMMktxCK7wH/HdQCBHw9SGc8fEodQhJuG4 Eu5v7lJH3vPisCYxoUldlkBe12dilN+IA23GVchfCNdbQXC705410Edb/vh6 loZK2s8FNu6UgOeLr69SXtPQwwsnqYP7JID8uW9ctJyGsrX3Wy45SMCnA+fd uktp6FK6hOqmcxKwKfVxt+kjGnJ2Ku1NqZWAcZpSc0sGDYkOjRnYm66FTcbf fjoH0lDQtLXwqKMk1JYV5jYq05DXfZ3VVS9JsPvcWnFHnoaotvJ/JCIkofxb g6OPNA1ZvKS9N83B/lpkSReioQ1hCaFPhiTB74neucLlCdTFUt0f6C0FrbUx R8paJ9BuYbVitvPSEH5OUycsYAJ9Jjs0Nl+RhpMfWrYmeE+g41MJP2/mSIOc u3FBitsEim0dX6NaJw3J+XSVJEe8Prkg0pxdBsacfJW1DfB6XtWDNxNlQIom 2+EohNezqdA3pMvClv/Ex2QK/iC3pdSsB/ZykJJeGS/64Tc6XT+6rdhcAYwL dvh1zYyjSw4c6xleSvAzLU5VpnkUOTeEuWq6K8PZC9TMgPJhVMu59oDnYRXo /53Ce+PpT6QpFHlz/IwaTIs4yNclD6Dj07obLbw2QghspwYc7kO52e+l5y5v hq2uCrJKyT2oNFmnp+2gBoR7nWl+qNyFzrzStcoy04S4Bk2f40b/oeqmB38T HLeC7+kqLiKoDZ0y2VV1yn4bVLk1CPrLt6LMh5ovPD20YFn1sodu40d0dboq yjd4OxTr3+AMJBrQSGFgkLu/Nmib3+Ms/fAOvTNOTY+O3gGenb72Hz7VIrLl t8ErkTthpbE0bH3tG0TSKyPnhO6CWbYOTf7MVyh+zZx5W5wOsHdt/2pSVoZ8 HZzr5mJ2Q7pCj8a3q6VoIErrJLqxB4ImjL9cvvsUiV7L+JaQqwt659ostA8V oTxBtdCG23vhdJjJyYrjD1Gt/zqjDY8QvNul8ej30/soWy5HWtcGYIGc91vl TS6qCl8kubcC7Jv5z0kxKhvJ7+dcVrTTg+jst0I2fRnoeYtqYne7HvxM5uVV 3HQTJdWvaMgd0Yf8kIZjG2pT0bWAcY/jvfrwQav80gxnCgoXk/2fwmEDsImI OrQuLBEVqLI3nek3ADmOD4qxunGIY4a8tvaoIXi1HGt1/RGD8jWeRWSPGsJg Go9NTF0kUqUWWjC8jaC11W36uUM46tlXUWL72wiKO14ZrIEQ1Hbv7CYUYAwX l0PX1QedQfOlB/Yo/DUGy/5HwuQgP7Ra7v/ioo8JJJCrpK4NeqP9GsZG4XQT sDinRRrYfQo1HNlyyjOAApVOdVNFiS5I2Nm9MiuQAnrq/XXh4S7oqHsuf2sw BY5r+O+y83ZBs/4iJVrhFKjL2rygbumClOLnFhmxFNh6NJZuLeKCIkuqk1Ju UsCMIR6dlnUS6XBaPX1RQYENY55zryqc0UW+BJaxSgoYTIZEfnnkjL4I1dlI vqGAQ0Hhx6ksZ+QurbUQUUeBnNNvL1tGO6M0TQl9ykcKyNG5Wc/vd0Yzjv1f v/VSoIqL0Z3fR0VwYq0yfx8FeDpnT9i1UVGi68EQNECB1dFWPcH3VKTg9076 /jAF7uaU0rIKqejAxYcu3jQK/BA/SVEJoqLMxIGXdyYp0LbPu1v+FBWNpUjy tP2lwOPtZ5OVnKgo8nbSE+05CljOipkZ6VPRp5z3pFMLFNg2UG3ivJ2K1uSt HLy9RAEVfVOLSypURH2040EzgwKy1baHX0lR0ZOnvnOrqzg+n5fUaQEq+j+b 17Tr "]]}, Annotation[#, "Charting`Private`Tag$124331#1"]& ]}, {}, {}}}, { InsetBox[ TemplateBox[{StyleBox["\"g=1\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}], GrayLevel[0]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3232841565105836, 0.38375894372034103}], ImageScaled[{-1.1, 0.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TagBox[GridBox[{ { FormBox[ TemplateBox[{StyleBox["\"g=0.1\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], GrayLevel[0.5]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], GrayLevel[0.5]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0.5], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0.5]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0.5], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]}, { FormBox[ TemplateBox[{StyleBox["\"g=0.5\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.9, 0.36, 0.054]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.9, 0.36, 0.054]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], TraditionalForm]} }, AutoDelete->False, GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}}], "Grid"], Scaled[{0.28736369467607437, 0.11391363449970426}], ImageScaled[{-1.1, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"g=0.8\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Thickness[Large]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Helvetica", GrayLevel[0], FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"AbsoluteDashing", "[", RowBox[{"{", "}"}], "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"Helvetica\""}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.2822322001282873, 0.35469867965042634}], ImageScaled[{-1.1, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0.00005340229308708092}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox["\"Q(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->FrontEndValueCache[{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.4, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.6, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {0.8, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-0.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.25, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.3, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.35, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.45, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.55, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.65, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.7, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.75, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.85, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.9, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {0.95, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.05, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.1, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.15, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {1.2, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}, {Automatic, {{0., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {30., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {40., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {50., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 0.}, { AbsoluteThickness[0.1]}}, {-10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {-2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {22., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {24., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {26., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {28., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {32., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {34., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {36., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {38., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {42., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {44., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {46., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {48., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {52., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {54., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {56., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {58., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}, {60., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 0.}, { AbsoluteThickness[0.1]}}}}}], GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{43.6, 4.6}, {41.2, 3.8}}, LabelStyle->{FontFamily -> "Times"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666666666667`, 51.041666666666664`}, {-0.055499186468525315`, 1.0555525887637227`}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{{{}, {}, Annotation[{ Directive[ Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}], GrayLevel[0]], Line[CompressedData[" 1:eJwl13k4lO/3B3Bky5Z9C9kqJNmyc86MwUTJWrZSyU7ZIiIiZSkkH/tWiRYK WaIIIakUZS0pIQmj7LL8xvf3z8z1uuY813Pu99z3eWYkTp21cKajoaHZTX3Z fJdMXLuTK1amJ76TCpoZaL/x2XfcdQi6+f7fxnVMpmOuFJB8sL6xsUEB0phP c+WnPzCrPvg/D08Nnjw/Pwv2Y+T1Tbfv09x6P2wOGgwZ1zZd7ptS2s8wD2aN /1Y2XchNpP97YB5uMsUvbzrzCeUoS8I85A3VL246wSrnoWTXPPjwXZrf9KV5 4w0t/gVYUnr+d9MBqUsWlnYLkHvUgrJpN/XCQs/cBZCOlP69aYc+y5Wo4QU4 XMo2tmmzYFrT7F2LwFk6NPS//oUf36rwWIR4ZY++TWs8c5h/+2gRmkb93m9a 3oHlwOjfRcg/VdW8afG16uw1tSUYEZ2o3jRvrvMM34UliBd5em/TzMBDUnix BOaiL1I3vTrUkGa4ZRmO/0i6tGlKxJnfx42WYa663O1/eUmIQFD8MsicyTDZ dE/T6+TE98sQEfxQ9n/5OQWNFfGsQIaHNt2m6+l3ajUcXQFe5fhP65t53u26 3pe1ApYjLXmbLjSM+D4ztAIB22mdNp35c+/+rdL/4LK+tuimE2I+x0i4/YPQ JZt3a1RHysZ+0Sz+B4FFEn6bDmxXU7SY+QctVkSWTXt4jkR5qK7CQzRMWaX6 GFtyb+T5VcjjzuTYtFkJ7Ml6vgoWXNFB/zbzNJ26+IRmDaYT9rxb2cyTktn1 hrQGLXtj2Tctn0TeNRKzBiQdX7XlzTyVFoJX365BBke8wdJmnl133vFyrYPw sLnG4mae/uYSe63XIe87B9vCZp48GwEGGeugtP65bo7qmYritmOD61DxL8d4 luoRazuRQIkNkLeme/yH6r4FJp8E5w24wxr+k0L1m7TKl4X3N4Ah0mxmajNP DSeBF1MbYOoR0PKb6n6vmMrfgjRY1H7/1C+qLXUdhxa1aFBO4+zLMarfsatt pT9GgzXxG8M/qO4y4U7vCKVBlRNsc9827xc7vSsjmwYlg6+8HKT666v2Sqfn NOhW/+PgwGZ/DEUkhS80SMd+Ir6H6gn9qI9L/2iQVeFfcNfmei45nnq5nRaN zUN4OjbXuyYQYWNPi+Ox9ErNVNPpzHFIXaBFqQTH+/Wb+YR8yJnKpMVZIlQ+ pZrjabH801padGzcZVpONc9CzLPIAVo0fWDj/ZBqQVVn40MrtKg9+oG1gGox P0K/gDAdCqOhZDbVctPLC8W2dLhN5E56HNWK8j3RQcF0+DPj5ngE1Woe5bzE DDrkeZKUFEi1zr2EO2w1dCj/evyqJ9XEMQ/l3j5q/ensFkeqydJGjbeW6NBC wAktqTY9JWXmJbgFCSxF0wZU23797E1rswUHLbvqZKg+LvJ09U3QFrS/ytEu SPVpu5T41LQtKNt89hsT1T49B+/v6d2CVWcX14fXqfuVV1ZjYWELvrWknemg OtSC4VUDPz2adK48r6E6pqNuxPoIPZ7U2l0TT3UCW6a/eCA9Vr550+FHdYpx IN3v/+iRLYd43YbqvFYF8Yhuenz5dl/HDqoL6FkfG8/T45EHRaq0VD8g/tTl 42PAsspF1u9rFKiqz7N/YMWAnCrdnVlUP1+9MBEQwIAjyXS3A6lu0rIJhhQG DJgwLDxMdUcVZ9qnjwx46ocY6+oqBT7NTe7Mm2VAsRd0Ju+pHlB+XeHOw4il L3LD8qkefXSpa92CEV8vXgvUoXpi8tjJ136MyFb7T4iJ6hk5rZmbyYxoWmDr 8f4fdb8U/mWX7WLEj9War22ophvtyJ79w4jM5i/Lhahmlnq4p56LCXsDTTd6 V6jnLc/pgKU5E+Zkvw44SLXwIPSJ+jLhYePuQDqqxbeLuI4nMeE8l3BC5TIF 9qR9uhz2gQnjQvmLuakmJho0FB1mxsa+KLfCRQpEGFfc7zrDjEfVzbtJVNcz SN1cu86MtyrDu4cWKKAVSuNi+ZYZSUxFeqxUn1c/e/jib2aMJqZczJqn5vl3 UOM+y1bkMHq7sZtqFfdnrBvkreg6Fum3f44CftJy87JuW9FE8Ydm1SwFSofS v1pd3Ypb4qymlamWPxJY9qBlKwpKzbTt+EsBaX2lo0eILBh+SfNXM4UCp9bz 8NJJFlzRk66XpDq/hkOuOIIF1zm6uy5MU0BEcXKV9gULfrsf7rRjigJ8okW3 S7RZ0U5PrVp2ggJWfXzX+uxY8Xzj6g7HXxRIvnn53JYQVtTZeV4gcZx6/lhO kW2fsuKkf5bt1zEKMC6KTNPvZ8OtkVLP1X9Q52N5fO8+KzbclqQjD8PU+eu9 0mDnz4aslV7B+J0C6z96b5aWseEs10sLxSEKLH5I1nRQYMdeS57MpgHq+btG K3X1EDs2BHjEp/ZTn39GPmzlXuxIvPPigVMfdT/UHRpiesiOvgEaor+6KTD+ gDn6yW4ObFeMu5D7gQK7XILOfDXkwAxJ1yua76nnS2Ls6FYXDrRriON7944C 39JeyjkWcGD68KL3YDt1Hl6++IFFYhuWKPO/zW+mgPO+FXYldk78/pd5KL+K Agc/X70rKMaJiVI8SjcqKKB6lU+XZh8nbit0JAaVU4B+SNHrvRkntv5OMJR+ RIHbCa7t3imcuCCk4LhRQIE4rfmT1nc5UcrxlErWbQr4jkUu61RxYnjmQz75 fAqgXq4MWx8n2vA4lclnUWBo6tOVB9u50M6zkrMoiQKtGafEkuW5sJLQLfbr OgUeGcxUButyoT2xP3tHPAUu5rCOkh25kBwXmuceTf1+DxH1f97mwqOMfF1n g6nzp/jxhpQcN2bXlOSoOVLvZ6ObxqrNjV3Mn9qr7SkgQ/9GYdaEG335Mzzk bSiwZD92rMmbG8OGmjooZhRIZRV9fqKMGwlXbvYMEijw0SPufI4GD551WQw4 JEGBWn5BzugDPNhr/DyaRpS6/qa7RV52PDhiwe9cKEjdz8KNPdqhPPg1/Itf +zYKcLYvqg684EGJG8F8/mvTcEjW+Q+/ES8We3JTCD3TsBJ/7tngEV5MVSzz DOqchnvT0dEFLrwosZApe+vtNNBXFAopX+FFs7Jkp86maajVGyccauFFSmVZ ZcGjadhl5Zkcpc+HL18bv+G/PA004b4qM8CPJXC/SnXXNDz6fmmt6jA/xkbz b5vbMQ32pORXYY78aGRzdLJIaBqqtj6xZw3nx5RO4YNTbNPglTIXtaueH0W2 vDKm/J2C/vtBnxx0BFAgNU2x5/kUlH8KO/daQxAtXaJp3MhTcC/69KnhA4Jo lK52SBKnIFfN5PA/O0EczSs7+kF9CuLSBWX3hgniA3riINPuKXByePIlqVEQ q4X3q4/RTwHvyLi+jbEQ/ozZxu1dPwmBs5bcP+2FMcn2jRW37CRoc8s9pg8X wYINHsnEbxPQQWv3+l2iCGblX7Cb6p6AE39if6Tmi2DZ1OyC/psJuPzhl4Bs kwhyDjAWDlRS6xPuRxxiEMX7pOXhx3HUelZZi9R4UVyOLuNkUaHW08vM704X w9ibLePrF3+B67/knLs24vivmO/BONM4nG39qfKYurIQIqjpKo5CnB3jzjUv afwt+eEtjfgwOL264KLktguDFK5VdQ98hUYmIXNPWxmcsd3uGsw8AEpcEam/ AuSQpWPIh969G07M6sqbesljaUxI4PHHncDOTfPhU4A8StJO0vrld0KtYpO/ fZg8Kq5GdCXe6ATeM4bP3BLk8efMgNqEfye0jZsaR5XK43bBsQohzU5Q/Oro 9nROHoc5YitOtHwAmteXCiTD9qJuV3TzVPt7uJXbIrJ4XQGNnPz8RqPfQraD fK91qgIyRvRUeXq/hXThmzcqchWwUKdkYYv1W0hIPcHo91gBXz9fMPKQfgsh Cf8okx8UMOxclTF78xuwuKj0cphnH+5s0Ll+l/EN0B/Pce/I2IchKtwTP9Jf w5MErc9dFooovjM9uZzSCqeyOBhqjyhij0iKZueXVuC+N6xwy04RZfTNbq+9 bgWfxrjIs6cUMeHzSFZ4QSvIzw3Isvkp4kELN6fddq1QYHvhvMENRUy/5Pdt 41ULpEg/53v6XhHf9LE53ypphoBaXbOcg0pormbuzJ7XBJV2r+j6zZQw0rle mzOhCRZWzCp5rZUwdSVvu0RYEwRrnxa+dkwJ7+fPd3nZN8HF53EjIWeUsCJ1 ReyhYBNcre89b5OkhA8nh+Se/dcImU2+t3g+KeGwkIP/r4wGeNF+92+svTJ6 OXc+4blRB+WCH3zDHJUx6GTTw9NBdVDgsjLj46SMszyKmu3H6iCO7jDlqKcy Nv23+qVLrg6stJZ+77ygjEb9Qi19Lc9h4r7xaGOmMh6pHmZ/uPEMeGMpvcv9 yuj58rgpS2QtuBtp1rnbqKBnUpTu2/pqmJYRailzUMFnmeJGQveqwY9l+e3y CRUkmb3IDLlRDaHvnn6JdVdBluyqb8GnqyHJUmP1fogKXiqb3evOWg1Vjura E9kqGH1aR3TNoQrozu+v8fiugq4HmuMTOCoh+55SpaeHKmr3Mg7y3SuHtn6n trwzquguW06ySC2HOZbUzx/9VLH/Pf/D3MvlYOK9QqtzQRWtC5XQ9WQ5rCi9 NGW7poo7n6pKVW0vB9tnVuPFJaqYTvh4C26WAX9H0PbpGVWUESv8eP96KdyY rbvkE7QflXZ8vnHWrgTOdCWddLiwH7OjrBhZqVPsYJkTgRy+H6cVpcTqdpYA 49mttOJXqaa/PHP6TzGETlhFvE/dj+zZroqNscXg8v33RYWq/Xj6REhDdv1D 0HkvFDo5tx+5KXK5rhoPYOzBuUA3PzWkzmbJErciOCK6/vVeoBp+4gtcu21e BC2JV4x+haiho0l+7iOtIigISBP0iFLDe3Y844zsRXBKr6bWM0UN/4vMiqwp L4SvnavrZ6rU0NPByIGfrhC6l6KunltRQ/fcS417Swug2TA5PTJSHW/q3d9Y NrgNoy7P3oVcUUfKm5OaTPtvA+PVETr/OHW06OO/LSV9G8iv1LydktWR0Kb7 LpbuNrw1+kwg3VZHG6HynSwNt+AjWfo3Q5M6Ch5g7H+vewuGjat0Y2k1cP1K FqMQKR9oDw8MJ0ZoINvMMQ7Rv9nQVm8tFXBZA/uS9txK782GJIVOJ5sYDSzJ YmzdU5cN4hxtI+JJGoj9AoHpMdmA7yrHyvI08LawlUGseDZEmNyY+FivgaE0 ghHVVllAQyb/FVjTwKX9X881vMsAGkIVbX6wJu7/QX/l8noq2JF+tveFaaIM ocgl+mcqVBgJpnBFauK+XMOS7A+p4GYasisqThN78h4LctxJhU57PROXLE28 R7ddeoWcCrcDW1Pk6zQxNXKfxGj6f0Aq7tldQ6OFfJ8kp0PIKRAjsHio66oW fq19JhE+fANS2tp+NMVroUTn0x1POm9AXnBm8JNELeSQEYxZaLgBVZ9176ak aeHHtpUTD/NuwGje5dUjRVp4/sSDp2+O3QCiDPfDz61amN7x3eTzlyRY1djL PMqgjQqK0sTKN4nAPLGe071VG4NcRe40lyQCT9YHlVZ2bTS9q5dJSUwEuTV/ xyI+bdSwJf1Ks0oE28baKved2rjtpLLjvqEEqDpAdp4maePehcDU08vXwcfO qWkxShuHX10q1SdcA468iW86Mdq4ozcz30H6GhT/8N24dE0bq3d6xiQzXYOf XhE6bP9p482d3R1WHfFwPDynSrxQG51ogmUVj8XDwYLeBwfatJHgKUcjFxEH MtMmN7PYdFDkzPD9MwMx0Kr8sewbpw7mMriu/mmIgdNBdh928umgqYf1bEJR DOTRuLOXiuqg5O/H7nznYoCf58rVZgUddHhwvtGcKwboNRouTJnp4C+WXw/9 TK/C90uqp+E/HeS9uifs0UA07OLnSPDJ0MG+xX/m+c3R4PHgZ/WtHB10YX66 5d6jaJjrymSlL9TBrPGue0uR0cAsTfukrUoHA0udy7Llo0Gh9R2tRZ8OcjF/ LBmMugwhLK55p7frovKd0PoqQhS8yMXX/+3QRQ9P2kYdhSigVxGebZXSRQ7a aYke4Si4bv/OUFZeF12v+lQQ5yIhv1hlekpHFwN4CVy09yLhlSmNbtBxXbwk Z5ZBxxMJvDczBmJv6WKn1OqLrIUIYOnm6fS7q4uvvYbYk8cigEYg4ZX9fV1c GQVyWk8ETGVGVuwt00VGEaWDHVUR0HrbM6GzQRcF+OwEp4Ii4Hy5LlHoG7U/ 4ysGzcvhMNj5/f49MT0Mbfxdmyt5ET7xOOTfkNTD//wOFvMwXoR2657UkF16 yGlSA3d+hUFVf3vUQQU93CdpOMFVFgZJ358cm9HVw4xbW0vkCGFA/BPNpXFM D8WUtHj3u4RCIadc8KssPUwyu87J+jIEFMZsl+jz9TBW2rc/sigEqp/FBhEL 9FAXIZH/Wgi0ufw6V1esh5g2bX7DOgQmnt/ze1Knh6/I9kqdv4Jhr/tur7wh PZw//DzvlEAwVDRKOwZJAR66zVLNcyUIdNKsvlbsBrzZzGne7R0ELV6Xj/3d A8g4wp782DoIegRG7L1VAU9G7Csq2RkEi953bJwMADPnw/3ftQaClrCkxWFX wFDz4wlX2AOh0W+Hwe6HgKqOk6baxQGwMk9JEnlMvT7hwF3T9ABQDW74wvUE cOenlj8BlwPgXvjJgNVawFdTibtWHAIg6dqdO53tgNf673ONcgTAicLddKET gOE/X7bsDfSHjck0x3FeRDGPs768Fn6QK54vomuFGHL/jkyVtg9wxCm17T2C iHdVNKzkfSB8tslfzAZR3nqglEbUB060jrZv2CM6234z37p2FiS99gQ3OSF2 6LBeOXP5LBRWV3Ub+SM61L4IC0o/A49M3yVYJCNOTbradn3yArGnx7X0UxBv BrfwB9V4QaLEzKhKKuKZo0xR+3O9wGeOW5cvE1GoaBvdhqsXKGfa/O69hWjs Oc/TtOoJVaM/jI6VIfIoMMnPyXlCXegKjdsHRKm/WR/cM9xh4fHYTGQXol5t 4DamcHdQ/NH1LecT4ojqosaL0+5QcOBhw8c+xOAfUt/DFd0hjt8hAr4jdmVk pMBrNzhSWrfB/xfRzK/O5daGK1B+RKy38BCw6ovXsFa4C8gIeE9/4yMgb2Q+ 0xY3FzhlbPv1nwABr0j+/Tls5gI9pUr1SiIE5AifDv4l6QLPw4bDcqQJ+LSG h7ytzZk6n0lrAfsJmE76s+M+vzNImDCtSh0loMCv+TeBzU6g2q3fJWxLwGar TFPXMicwdIy4x2VPwIpnXxg9cp3Aw3/ZauM4AV01Sj7ePe8EFVm/SwZcCMjK t0Qzv5daP/ne8UYgtT8t2eXhrFPgcT395fp/BLR+JjYad/kkhAp0Z8ynEfB4 wyrdbf+TkHCLy2cyg4AXzL4efn3qJDypjBMZyCEgffSAKplwElYHQ89V3iWg myg5lmHjBCQqnNztVUnA3ccsSb5hJ6DivWx8/ycCfhSt2WfK6ghJUo13V3qo n/eaXW+fOA6eQTYN2/sJSHeWv9St/ThI7rg6f2yQgAWzNs+3xh2HxDMjjsOj BFy5wyTxmeU4eLDnqf5eIGCTxtYrOdzHQNyE9+uqIBEtbsw/rtW0h9Xch0ui 24lYPfeLd5+oPfT+JfKAKBFJ2z/LN9LYQ0KmL/mSBBEvFc3P6rbZwb9fHeUM ckT0jhr5L9XGDnpiYq9yaBNRZs8wz4OLtnCtdV1R/BgRJ2vYDRKHjgL6jimJ OhKxJNJqRKbtKMxt71AWPknEvGMqhv2lR8HBN0eV15mIu3l518Iij8JeER0N Zm8ihs9Pfvy06yh0+AbDTCgRc3LMnO76HwFO0blDDdlEZK7QkEVRa2h+9dm0 LpeItFNMhrHM1nDe7+Xh2nwiGms9TxybtYJvr5LNKwqIeGK6zX6w3QrK/JSs 7xUT8aTMdF1NsBVYtJ1xSHpOxMEfTBsiny3hpv8vjxNfiHj3icJf1mILEDYM 8bX8SkT6x5P7uDMt4LYg63nDb0TMP5+TIxtjAeV18tHyI0TMdWl8FX/aAj4w +eQt/SaireOZhO1iFsCRvfAx6R8R22T61+1SzCGmeYtuo7A+Oun0Tk1eMwPO tBT9ChF9FGSgPF0JNYM0953GRWL6eCfnRYuAtxkUchgdvS6pjwLGt3zCD5lB i02cr62cPlZMZgVu2WYGdFOchX809ZGRKFFyR/YwhPKJbZO01ccXf5VGTY8c gndlW+3AXh9ZtvMK3VI/BGKm8wUOx/QxklZ9D4/QIXhx5a1W2kl9tLwo5Hfk y0GgWwpxYfPQR7WNyEXr0wfh6kBv3UKIPuL1tFaREBNIzrvh9SZbH9drqlMo zw7AD+2w6vFcfQzwZW2nuXUAVPvc6Bhv6SNB2YZe4coB6ObEdLyrjz1KWZxf zA6AYOT0y8oSfRRbeuwX9ZMMuadNtufX6yMDvXjJmBAZ7ssytAd808eYt+PS kGwIXSKEf97D+qgXMLuwN9QQVreFybuOUPvrpNNTdjEE04W5BNtxfbzu29cR omUIc00jlnoz+sj3X3j/1hHqg8GheZCJhoTRTz7XsmsbQF9C1J/MHSRkra+j k1rSB7rIF5IpEiS05fuSnzGiD3vO/bO8LkVCk2uy+lKd+nDR3r8qfDcJy7z2 GZ99oA/SMk4XTu8joUPAT+PxY/pwtpHIoAAkPNNKDjVtIwLjHK1Q43ES7qaV POH7gABLpekJIydIOK+25lCRRoDf3vvomZ1IaNN2W5I1mgAffjpQTF1J2L9f uXDWkQCZn6tbvpwl4aHpWO9H/ARQeOnttxRBQoXvWco1VxGOJPe/2XeHhJYH zzxSpegB+bAPwfIuCYVpiEvHO/RAm42pOrCIhA8O1Mw+LNED8Suqt+sekvBG eoljiZceTAQnnjepIGEy125p40lduHjSYKdrCwkD48St3v7RgSLFsou5P0l4 ds5ChY5PG87w/Vmu/kVCF5Ng7+YlLVBdUTzX+ZuEO6qVaAu+aEHDy1JP+hkS 8lxTSKgt0IK+I6U2HkskPPeghEBU0wLmsMfKalsN8JpoK9Pt45rg9rpk7J2c AXrt8e8ceKkOCo+mTv6UN8Al4YYyjofqMJe8d5BmnwEm4rylQ7I6RDiUfFRR MUAfmbwQ0kl1SKcUN2RoG2CAwcwBAxp1aOMrznQ+aIDxmioOf4lqIHvqgema twHe0qlaPjCgCm05WqV/z1KvF9ZXWmlRBZf+dq5xXwPkVeoXrS9ThQKz35+6 zhlghgBNc0SsKoiDvP29MAO843pUiaKpCvwij1wtrxvg4v5Q+xO5KkDXUxZx v9gAeeL9ovjOKcMtLuJw7iMDHBgUvSvopEz9IdOln1JqgLrnh7T3mitDWPNf xvAKAyzsUQ6P26sMS+Uq162eG6DMCb0inp9KMJ1YmbHxxgBVaP+tmB9Tgs8H asqtfxvgXW3OZI4jikA8XGBzbsoAG0vefHpNUoQHVonrKRQDzHedJqWpKEKI o7Pxp1kDlD6y18mNSxGEz3ENW6waoDP/E+GXWfvAJt+dy4zdEPsm10v1UhSg Z0HIx3ifIb6i1fyRkisPeqv0/B5KhhjU27vLLEIeCmlnnsWqGOL521Ime07J QyBbK9NrdWp98Yka3CUPfJJ+eUZoiPuKxpNGHu8Bq0PtHSRzQ7zK/yt9tk0O uu6E7AV/Q1SdlMs055IFbpqqGq1zhtjBkqVwfUkGLB3+GKgFGWLuFoa934dk 4BOv2/G9Fwyxk0I/0PlIBnqjrRO3Rxni6s3Qlo+HZOCLq+KfxWRDfG2jy2mQ tBtG94xVlJYbok1HoSjs2gW7YiQIxRWG+Ny1wtqOcxe4jDi8K6oyxN6z0vzx KzthPPvjaG6tIV5/pMu59/1OmGBv5L/eZIgyief5fYJ3wjQl67x7lyESaddr v3VKw9ITcx3Jv4ZYdepH79ANKWDTUOvgmTNEWuuh4bGLUiD+XPgEw4Ihjm57 bEzjJQXk5h9R48vUfuUIH9wNpSDj07k3j2iNMLhGuZtvVRK05jPstLmM8MOj 8dgmD0kIVRs+b6VohDw9p58vW0lAUm0ri6GyESrsx4tyJAko0HuYra5qhHem J0M8VSTgrWFAg7CGEbamWqyLckuA6FFG5u9ghILO4pb6H8ShPkguzfuwEUpF Jy1eOiwOG0/9Kq+cMcLuYN26d+Vi8IWxPP62jxGunE71uZgsBrVWf07W+xmh s4+HiLmfGATMnOVYCDTCwrXUMHtlMRjf7e3qHG6EW1pecdFWiEJXqqsQKckI HXtDv/vUicDdAIcw2nIjNGlenV/6KQyRTVmWohVU/03xK3gjDCc4P8tqVhlh evnpN96PhUG42LbHp9YIe52FD9gGCUPCjyP7vjUZ4VNXjeJEZmE4b2H+vf6j Ef6X9UX7hKIQmCgaGoTOU3eYmyBdU4oA0HR30wYsGuEQR8Xnm2ECUBXsXO+5 bIT2g712oS4CIPnysrr9mhGGuPLp3dAQgBXrl7JaDGScWOobeDXIDw8uIMcS Lxn7BQ3SrOX5YesrrV5/VTJe/+/PZcd+Xqj3bL/pqUZGrX8eG1+beSGA087M SYOMG1V1OX6lvPDNNvi1hQ4Zo5zKP3Zf5YWnk9XPlEhkJN1NUI9T5wU37v35 FEsy0qJieUYmD7w6ts/d05+MifMlDp1nuIHbye1Zzjkylu90mkyx44bjbrfY PwSR8UP336Izhtyw4MdTrhpKxuMybRKnxbhBOmZxZe0yGZ0sBzut3nNBRPmL a0mpZGzNtKjR2M8FWkxmpZU1ZFTvYdXz4OSEK2yxdOPPyMjKUNMYv7YNOrma rITryRi3oV7pPrAN3ERUly82kbHkZu22jJRtkKYkSCS/IWOvuwBDA8s2mLP/ 9nHgCxmHiR2JbOvs1D9GQrvYh8hYHFk2ITzIDvEuFufhOxlDC5PMDz1nB0nf ZpGCUTIqSIwyi11gB/Mr95y9p8k4/eJrtfsKG2THf6/OmyHjFstH/ikDbDCe JMzS9ZeMer6X9g7XskFE1rVHaovUfls6X41eYIO3+S007stkLDMRM8hyYAOB wnWLrH9k6v4p4vHXZYNTD9Xvvlsj43O5n9+9xNjgUanP4sYGGVMG0jpjNljh /wCgegtR "]]}, "Charting`Private`Tag$124384#1"]}}, {}, {}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], CapForm["Butt"], AbsoluteThickness[1.6], GrayLevel[0.5]], Line[CompressedData[" 1:eJwt1wk0Vd3bAHAzGa8xZB4yJFR4RdpPhJuiiIhUKMlQ5qFkypipyFCJBiWU SjImQ4MGU5IkQ0l4u9e9psyX/z7v9+21zjrrt9Y+a5+z9/M8ex9517M2J1mY mJiW8EXcFdIZd/Nlnu5kZiLaJPpw5bvf+KkhxPr/tqjntBo9RUfn14hGR8MT Ay6hf2eQlsP/WY5RlcfQW0DFDcP/+SWbskGj/RIy6or5z868GV9jQlfQex/L VcIal8kbRxIZSGyEi0F4RXgt0PTaKrI9wLJM+GPO81f3i9eQr+6PecJtfHrr 2JyZ4MaJTTOEe5NoG6/lMQHH+O5JwiPsRbs1+5kgp6qLSviPycXPC8tMsPnD 4B/Ck9HHXF9tYIY4asP4f+Mx1kc5ODFDgMPfX4RZdszyK55nhmFDk5+Euc51 3py4zgxJxw8PEuavfqhRXcsMEho63wkLzyXWxfQxA6234ythcZ2TFpZLzDAQ qNpNWMZ/17f1kixg8GN7J2F12uLcw8Ms0F0X1EJYW6MnLiSMBV6tZjcT1vMs FzG+xgK+FUfrCe94kHaXt4YFvr1rqSJsPOq59WsvC4zMtD4lTFYyb7q9wALn qz1KCVu5Kh7wFmeFcLesQsKHB7/7MDuwQkVyUhbho1LVKx9DWCE+eXcq4ROO V5Ozc1iBNygklrBnrq+kSxUrnAndcJ6wb8++4k1fWcHwkpof4WARNf25OVYI cb3uTjjchr2lUYwNPp13dyKc2F4/YneIDcKVp4wJp/FeD5ALZoNMvwJdwlct glkoWWzwNTBRhXDBW025qC9ssGI9xkW4kI3nscVfNvAeslhYxS4xHjMSFWWH qaTXo4QrXxY4ldiyw2RtVyPhFyvn/wQGsgPHN5uHhJsNHMLQVXbwMW7MJtxe Scrp/swOypv/8SDcPUtVLphhB1VJ9f2E+7a+rzgtzAEaagM6hH+XRXet2nBA b9jBFQYRP1Rnl/f+HGBPZwwQnlQ3mMzM4ID+Cb2XhFfuT/OpdXHATI/sOcIs v9vzZqY4wPx5hR1hLsXSTS8FOWGB9Y4WYZECtz0HrTmh4sW+wRVsyQHUK+3H CYd6qOWE5TZInRq/zAnxDSVxhDfldMde6OSErbuMlQkbp5s2Fu3nAhea7N5l 7CiLiuKuM1ywLVqJRPglu2ImI5ULlLf1dy1hG4QzuR9s5QJ1WwVrwqH/nN0f QeECi440XsKV0wP6xdzrQCPG880i9rbTdTxr5HUw2q+qRdhfSf2vmsc66Lk0 NrSA/WQod9A2YR2cu9CWSljjUPDTkjfrgBzzGicoHSmZbLE/ZMwNKTfMXOaw XVcLINqFG5IbVBf/Yt+q4Vd/GMUN7DHZqYSltKkrzA3cUH65uXQW25HiOKox yA0O8va6hHPvv++wZ3BDep9i3Qy2qHTRnUeGPDDRI1A3jW3bK5rS68gDYVms uoQzMmODWM/xQFlgb8kUka/cruTD1TxwRrM1aRKbY16KxqbLC6sSR4Vo2LvL k79q2fLCdcqgxwR2jM9So2MAL+x/kVhLxV799TXzyVNemEmct6Jgz3dmbD+i yQe1pbnbx4l8TWFWTLDkg76yGvcx7EBzX95ybz4Y2Y/SRol4qbcc4izlgy8U odYR7PESrrhnKvwQzcTL9BN7o3vImUEzfnh8/SJjiMhH+VH7de78oFN9eXYQ +0fOK/VjhfxwRIK5ox/7W2xEJ7e8AIyJW2ztJeoNTNToggC0h0Qs9mAfWna6 e/yYAOTJ+dZ8we7y2x5ceVMARL9JKX7GPqm1xLeFjwSNgZevt2Hv+55wT1yG BDtGMtlasXUSRI2YtEiQIMNy8gM225C2d8cBEpjVpXK1YN9JO/XB5yoJKBdd exqwLxn8dbG7R4IvCi/p9dh+ozGLOypJoKd/bLUOG3bmq/L2kqB8x8BSFfbQ RHd8yQZB4Ayp8H6M/faaq0yGhiBEG6hqPMIuM518HmYkCPsCKodKsCNu8vwm HxOEvKxkhftEvFgam4zdEYQSp3mhPKK+PXy8pqguBGf1nl6II8ZzMMrhMRQC 5W+CPjHYqmwfNWf2CkHjlKZVJPaC06hzs48QzLzn+B2Knc0j/eL4U2wRLhcv YryqkoPkZiEoslPpO0XMl5s+ReuzEEjrdpucIOan7qDk2qwQuHHA+BHsz56X Qm/qC4OoqImfJXatmDgpbo8wtKuXe+4h5qv5XpG3ozD8Log5aErkk2RTj2G4 MPiVlE/vwCZ9mNfpaxAG2aPgtgnbUu3klJi5CNhGDVHZsJeSg+oGDomAwIyT IhP2A1pcXKG7CFQKu+5ZXsXrU3FfYmu8CMzSst2msGt3ju+yfCMCnh9D2/qx N9p6ZVw0EQVT7fVHn2B3V54/YnFQFG59rI4swY6WSNko6CYKClNS6YXY/YMP a/NjRGE24WVwLnbmadpwTZMozDzwcI/EZor02zaJxCBM6/XjPdhlP6MZlfvF QFHj+y1jbKfdGS0XjomBnDNXhCF25bpnTjyRYlBwdOeKBrb31dmLG1+KwbMv VuwC2N+KQ7qP7FgP0smSOh0MOirvvhD0Xl8ccvdOOCHsB3EnXIf3iEOec2m7 Dna+3t79y47iEHsgfqM69qVccbXNF8RhkawcJ4LtduRZ/+UmcSAh4eWxFVxv R8ZNHCwkYKH+UXkSNndWh7afkwRM7nzneQGbyaxS+pK3BLy4cozDD5tadHG+ Lk0CWF3vjtljv/GSKZX9LAF+Hj/3K2EHzxwUGnOSBN39o3eqlvH3FBqsrXlL wipnW0IxtqudPFU8QhLWlTVZ3cC2qqK9sbiFXRsZE4Gtcj4prGxEEtq3c0Sa YPeyNPwI8tkAARnZtS1LdGQopP6YLVIKVnY5Vlcv4v2L2fF9W7oUqF8r4ivC Pj6V9Cv7lhQclvthkoUd2/nverVmKaiI7rXxI/qnFUdZskvD71X7RRWiP4+a TXayNNBsCo+kL+D+bKp/VXJlYE3UVNlsno7EZu0Fph7IwIam5ght7Ae/EtRq a2Rg5MT9KknstuYx533fZcCHM6yFNof7Rxe99ZWRBZZ206NZ2MWMjbk1hbLQ ZvH6eP9fOjq1nHHznoMcRBpUx1jP4v3eivoq7LgcOErcD9qO3Xjb9I+lhxyE CJ3YK48tTl7QmwuRg+jWnQWTM3T07qpzp1mOHI6PxbFUbDVNVdbxL3Kw/FN5 qXmajijH6z3UD8oDuyyFe/0Ufr5CLH3VUR6ODPNaL0/ies7p+7zLVR7u770Z NoSd90iB5by/PFR7svoXYe9bSrjx8Yo83CiqXdPFfpRp0+7dKQ8SLK9SLel0 dPbt2LbHlgqgWXDhrPsEfl946KVxSAG0XC4d3o1NqvO9W3xUAeKNX8opYD95 vChUeFYBos/lmw1Q6Wg6l2c694oCyJg7TVpjB3tpPYn5ogClhsMvdCj4vEQK 0TjkrAilWlbmP8Zx/DpyKDO8leBuSsr7jl90tFObd+7fQCX4VDc9VoQ9xS7U 0hOuBHFGxeOR2A5PpU8/SVECFUvxK1rYyly6j9weKgF3QGhE6jB+3+duuh8o ShBWpN1h8pOO5khNpjmeyuCZOH/6+iDOj5bz7ls8NoLdb9KjyV46auKUsPY6 rAozRjor6a10tEUwKvvfQHUQX3Prt6nH8TNjpGHlrQGtMl2RCY/o6Hb+G6n5 VE2w25d37Mt1OnqWZvC9y0Yb2rwSOTgT8P5Xa3Tg5r4twIhMT3AJoKOGD/em k5y2Qv3moQ1/jtDRafPt9acdtoGs2fjQnBlenwdbnnt56oCZmW2TviYdXZmp j/YN0QUnvdfTAqJ0NFoSFOzhrwdXUwtMRldo6LVZRm5MzD8gv7z0hHOYhpj3 9w2nR+lDEH9qvMs7GmLaVcl8K2w78AgIn31dRkOJ6+ctuxIMQHcwdOFiBg35 Oro1z180BJFtvtRXITT0M1rnBMraATfyzMJPOdKQSOa1vqTbRqAS5d0ORjR0 n6Qe1nJjJ1An2QI65GmoyV/WVKUUgTNT1vsOVhrKl7slZWQLYJPEXndzbALV hy8xeXQCiKuGZHd9nEDyezlXFO13gRWDfTn20QSq6FBL/ta9Cx6qC+xRuDKB Ut6uass5G8NcW1Kaif8Eygz41/N4vzEonG2+62w3gcJFZQQUDpvA+7JnVcv6 E6hYjf1D4A8TyJnfjM+wE4hjllmi6ehuiBX2d3NmUFGR9tOI/LHd8KlxIlFl kIrUXEusGD6mcMArOD22gYq+76kpt6OYgnloj8fsHSrquntuMwowg5KKPiXW WCpaeGa9Q2HaDFIeWmqqnaKitWr/5/FnzCG1w1yfYkFFe7XNTMP/mkPkHzVr Ow0qanHWOu0VQIYt7pnafQJUJOTmUXcziAy1ndyqTthHPW7zdYaQYVKmRa6f n4rm/IXLdcLJEBVOEhvkoyKlxPklRiwZ0j7OCgzzUFFUeUPK5WwynEgM2fWH k4oMOA88eV5DhhHrxfzlNQqK501iGa8jA43E2xiO/Umw2VbyJRmqmAOHGasU 5CGlsxjRTIbxQNNNTNg5W8SNyR/J4HFhpZVthYJmnX587usng4a1mjX/AgWB i8RGviEy6Dh8SEifp6Bkd5tQ9JMMM17vGkjYCn6vpQp/kyG0eGCb8BwFWcc/ OOlDI0MN8zkN8VkKykv+WVUwSYaKWdKZazMUNH5Zkrtrmgy2HVxPJbGjbqSU 6c2TIU5Z2lB6moJab71hOr1Ihogsg5j8KQpaf3/V5sYyGQR7aj/IYruW/nOv jUGGleP5IrcnKajsiS/+7yXDp8e/jylg/w8Vy/mF "]]}, "Charting`Private`Tag$124225#1"]}}, {}, {}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJwt13k4lN0bB/Cx77JvSbYWki2VxHvurJOiopItRYQ2u/SqRIWSZAkVkWRN hZQRQoiQBlFCZA0z9n34nee9fs8/c32u58ycmfv5nvuckXO8ZOHMTCKR2JhI JOJV/j4jLVnmzT/cJOKaQPUPOj2Hz/Yguf/btJTDfPAsHbWMr+GLjvrGu05f np1G1j4j/1mW8e4JY9cCKrovu0KYEwkbqpYvoLdqh5cI04Mujp40WUSHfGrn /3u/nDTyv7uI5DO3zRH+XlkXff/rIqqY3z9DuN7JfzBDeAl1OUhMES5j3aTz 0WoJtb++Syecn0691/F4CdUExY8RfmEc1DvRs4RsmFVHCD8a2r6TS3EZTU2g AcKRYZ1hcq7LqMbnw2/CwUrhv/bkLiMmRlQnYb/6XeoWE8uoQTGrjbD7uf4Q d60VVPaA1kTYnje6PfjyChJtJdcSPvwSbXv8YQV92ZtURtjQfPxaAYmBvEub Cglr0x9RvxgykFNVaRZhlSjy5v4wBqLxkpP+q5fGXMBKAwMJhJLvExahpjWK CK6i+xvjr/9XP+8jctuPraJXSZwXCa8Ir/kYJa6i0YCLNoQnCnM/23fh8XkP DQn3H7OR9pNbQylRB1QId8xxeEQ6r6GSJEtBwl/i31a9yFpDfy09p1eJemo7 iZePr6EsZicq4R/nw96OSpCg+3HfS8KWeg498zokIN1Ov0W4kW8XF6s9CT5e srMmTD0glNAUSIJZHkEVwh3htM2JT0hg6JG7xMDurq1/6/SBBG+4+z4R7mfL MFT9RYIsxdN3CP81CGlZWCaBXXWrKeGJGw6OVeuZwC/qDxvhFYZ40AlbJijx Pe6+gs2sO8Ov8C8TpL+bECLMeaU5afwRE+RpRhcuY/O/z1V5T2GCmYw6c8LC c2ElwT+ZICpftncJW0LL2dRsiQkmnq8/R1jGa98PcSlmuH5xz9gitjJtcS7X mhnGoku/LWCrq3y/5R/ADGkf2XYS3uWeL6KfyAzZmlr35rF1MyPTeIuZoUom 58cctv6gu2Z7BzMUZ9dIEiYrmlSkLjBD2ZdfB2exzR0VDp+XYAF9NT2vGWzr 7s4LTCdYYKvfctQU9knp9ytf/Flg5VJH2CT2GZvYuw/jWaAlnXFpgshjgofU 6XcskDWTaETH9vh+MGtbOwskO7Zx0oj8iihpz82xQL3At/dj2IEWbLUfxVgh Qz7j6Ch2WFNp/7HjrBBXsOXgMLEeeB95y/qxguBMX/ogdqypH/NoHCtwrCQO 9WM/rVGVDWpjhdezDTK92M9ZeV6ZzrKChf5GoR7sbP0hPVFRNpiakhz5hV1U 9tQ2+ygbZAs76XVgf1j596+PDxvkTx9434ZdqXMiAMWygTe7kFALdlORQHxr CxsssorbN2K3zoxtejrNBoreBQfqsX9q1hW6CbODiMCwcC32QN4N6qoFOzB7 BG37SORnzP50nRc73DdhvfyByI+yzkRMNDto+55KeE/k58UUnxKVHeq87pm/ JvIz0PRkepIdxgehN4fIj0LOtjJBDuBbfbAvg1h/T532Wx7hAHXHa2eSsKW6 UMcGTw7QtCtXSCDW63rps8NRHJBjP5IVjb0tvvXm1WYOqOeeZAklnv99o48Z hzihj7pUch47yLQwi3qREyY7h587E+uNTSGGcY8TgqnV5JPYOoEkF8sGTuBn ohabY1/efenQtVFO0CzcEWJM1HOqSzuLmwsKL4ys6WHvcCvhWSNzQXfTJR4V bC9F5VklVy74Q4aH8tivexK6j4ZyQcaDMw0SRL857vcmu5oL2MWdNVmxFQ00 rI7rcwOqlM/+vkpHjqtP4cZpbuiLTTxaj51SzK+cG8QN4SLGiaXY0upjK0zl 3JBYYzz8DNtm1GZQpZsbJEUFabHYCS/qvloxuGHLFcbN29iiGzKevdzLAwaR E3au2Ec7RCM6bHjg84xh4gns6JibvixXeMBa0MqejM3P7Ui2fs8DbU3rvTdj s89L01h38oJDKunBLwbup/l329WO8sKsvV7tZ+zgC0sfbbx54ZV5nGch9uqf 9pjXb3iBe8Rf4g72fHP0HjtVPngl6HRWFXtXBJNCqBkf2BpMzIli+5h48Oaf 54NN06sDKys4L6VmPRw5fEBXFOv4jD2czXmrYAs/XLlQVXECe7OL/8VuY35w UeJm2Yt9Rm7QisuFHwY4/SOlsX/HVyk7POeHY7VDl7uWcf+8ea2ZW24deE0W HTqOLQHjxTthHZhfa47TxD6+bJt2ymEdCOxTEuDHpnru8StKWgejG0MfVi7R kbPaEp8GnwAoHtz7RA77YGdouoSMAKREWcdOL9KRVqioHklNAJbKDII/YbP2 qJ//elgA8pJ3azhhP4s8W38hVgAe3HjhH7NAR3d0Zk8fSxeAb7Y7KHbYnoPB i7pFApC2e6VNERv+Sd7K2yEAMZTlO2/m6ahnvPV29npBKMwcvf1hjo5qEh1l olUEwflElFogdp7RxNsAPUEIbViM1cG+lsQzQHYQhJuXZ0MLZnFezPQNhp4J QpzFUE7cDO5vua/WFJSFwNhEs0t8Cs93Qi+eZ68QNId8fVkxSUdbWb+oTh8Q AkrzAxZ37AXbQfvKC0LQkLqiXjRBRw95Nnw49UYIJLnO7dSl4/neZVuSK4Wg iyr17QcN18tJe1StRQjKhfa0+2JrlVhKrc0IgTAjVzRrHJ9T3O9cTtIWhvyO BtLKKB1RxCQEbu0XhoORanER2M8q0zPO2whD6ZzRlfXYXlIV3/cGCkPKFlZl rb90JFA/r/WzXBh65bjqDg/TkZmS86SYiQhs0HFx0Oqno6W7viVdx0XgHpvZ zJs/dJRJu3XruYsI7F9eGtqOzVr4QlLztgjspAT3yfbh+f8Z3mdWLQJ+17gH pnpwvo6eiw4xEIUUs4taRp24/xX9a2dqKQrDHPU5GT/p6IZkxGZBJ1EwKNF1 4MT+1Z1LSQ4WhcndVl6fOugoxo3WV1whCl3J04JbvtMR6brnjgkkBiKdL+7E NuPn1XuDUXRIDIxfanb++EpHtobRtVcdxAA9yN+/AbuIq8CW57oYCIjnBCQ3 0tH52JmQzWViEBljMRdej/Oc5d9qpysOJLNvCyyf8Hmr9apvnbYEwKV/vgW8 xb/31hnHvv0S0KCm8Nu9kI6Sdx04tGyD7/N+DrYuwPlLkFDaflUC3LY9vqr2 ho6c7Ap+RVVIwI+er/Jlubjf9g8bnDCVhA9f3vM4p+H9a9pSaMhWClyEzdK+ ReLv81xnbe28FNzl0enyuof71TG5MYlrUvDu26ZwwQi8n76jVZumSAHHwDEt k3A62vJveEBevxTQ9btqYkLweYS5/LfvhfXglr7V+Y0/He0VUn7Fel0aqLK2 I8v2eP9hsqlrvC8N7QKRnhZ2dHRqMvzPwxRpWMvlDHhhQ0c3m0fElSqlQdGm hc3ECo+PzAoyY9sA8pFZ4u6H8XgeJYuHdzeAZnmdhrY+Hs+6dXZLggyYmG+v mlWgI7EZq3WTmTKQQRsKXpHD9foTqkQploGdh9/VkWTxeapyyP5gpwysJEbQ mKTx+BsZNR4yG0FF+EnaoDAdZTE2JxQ/3wjBLc90dFjo6OxydFL6CVnY2h9X yv+bhmLNx6oCTsnCkOST77QuGvqYavTXzFUWqme6Oxs6aUiCvLBrzl8WHp0d fxncTkOfY+2bjeNlwSDM/mZbEw0pqW5lGW7D9wd0nkmU0tDoqVJXZUs5kDgV pCuVQEOXaoZ2vDKTBydO6m9dMv58yD2nclwe2lc4OF2MaEigxCMt66Q8nB4f YbqnT0OvXy0KPb8kD0smMt6tujQ0lcAzlfBAHh4/CvPcr0FDfufUXge3yUOr 7xmRRkkaChTwVzlurwDhZIdfhiPj6I4N+ybGeUWQSfIpJAePI6faf100XDfD k5CyMuVXY6iCQ/LIOeutkHksjzmoYRRpCAY9HPFRhpdtjr091X/RqWk9FfPz KtCuKMRTXT2CUpOrpefvqYLIB+7kvMxhVBCp00m1UIfLR5T2qN0bQj4UvcNJ BzVArnp3c9DNQVRenz4VbqsJs36mj0vPDiA3kz2lbid2gBifkIawYz96kqnx 9py7FhSbPtOpOfgHPZguveHhvxMmdT4Lqhr2ocFsXz9Xr12gmJnqK3qsF30y jk4IDt4N/Kab2JltfyOmQz/77gdpQ6BSQ9nG2W5E2lfElBKwBw5I3QkNMe9C YeLzZtRQHdih9M2uL74Tedg4Vc6H7IXSvdIROoI/Ue8NrTMoThcC7llLcV/r QCIxiT/DU/VgIpUhY83ejl4IKAfUPv4HqkIjWm4Xt6EKr41GW3IQzI8Zlxg5 taJk2RRpvaMAq/oZyzVaLag0cInk2gzwo+5vVPJ6KpI7wLGiYLUPJuJoFzYs N6PCr0p3f7TuAwnL1bDyxa8oomZVXdZeH9xVuBTyJhtRjPeI+6lf+vAj+/I2 0tYGFCgqs07e2gD+HmdfMwyqR1lKbPU+vw1AXjeiX//rZ8Q+wyRZcdIQqNuP 2vZa1KIM9TfXkocMQVGNemDn12qk5JhtzrhgBCEsrIek3D+hzv3F+cdGjcCr 0jqrTb0KUdOubEfexnBmWfZQ8mQFWig4ois/ZQyM255BlT8+orX3Xm9vXzSB 3uc1znN55eiAurFR4KwJuOV6191MKUW19mpu57zJkCjIyuXUUoKEnFxLknzJ 4FSS4xb/pQSddE3la/Ynw3rn1dHGqhI05yWcrxVIBq5znpb7CkuQYtj8EuMm GbRHVZP3xZWgoPzyiKiHZHA46ZmZYVWCdDgOv35bTAaedwUVbN0UdJs3nHm4 hAxlt3bvv/qdgr4JVh6VKiNDVSpH71wTBblKay1eqySDj4gbmiinoHgNCX3y FzJoFetmLqdS0Izt75afv8gQxzyW7+NCQXBacjNfDxk+6umv8TpQ0F0Xi8uo lwyWTk6WGVYUJO/5Sfr5ABm8rf4K9JEp6MjtTOcLNDLs1z1IvbSNgp7c7X33 dIIMrJE65hKKFDQcJcVNnSJDik9ZY6U0BQU9jsjbNU+GtJGLbRv4KaghpZrk tkgGncD7dk3sFCT+YtXi8TIZOoe3DwStFSPHnN3pjQwy0G59urhzoRjlvfbA /+vJEFHXuDA6UYz+BwC/OUs= "]]}, "Charting`Private`Tag$124278#1"]}}, {}, {}}, {{{{}, {}, Annotation[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Thickness[Large]], Line[CompressedData[" 1:eJwl1gk0Vd/3APD3zPPPnEyZkqGBkkrpbPNLpkKEpidDpgyZIpkKkaQBhWgg UooSSYaKKJF8DVGGjJV3iWd+/M/rf9e6667Pumfdc/e+e+915amnD7qwkEgk Oj6ZV4UrjHvZss/2WrFhkCZR09UevzG3PqS9tIoPAplWcVqMuBFINub/bTji ++5F+xSSuj7zz4MT30+E0KfRipjvP5f4XX/azU5HyQ/sV5iOopuu6ojPItuW W0tMu+/Iy/PMnkWsB4QXmLYKJVtkKs+hSxfN6P+eL1mc+9xjDlHbPv5lemel E/3Tkzn0/foHgumNTjz7hv/OofoO9T9MyzFeZjK051FjRc8o06LZLpNiYfNo tufVINNcSMRwc/U8mkrL72V6ua8mzZh1AR2SDf+PaSLS5/dRkwU09oy/+V88 8tIoOHEBbUra+JbpjrrG1CstC4jt692XTDc5B4/kiyyi9Q1ahUy/YVuvU2O3 iPak3Ln1L/4HbZe7bi+iIImMeKbzjCMHJvsW0ZmElgCmb41u2s6ttIQ26445 Mp0c3xMv776EngaeB6ajVRN6dxUtodykDfJMBzVpaxycXEIHTrozVrA9PIdi PLSWUefdN+1MH+FL7YwOWUZvR27lMW31GKnffr2McqeO+zNtaDERUUpioHIz tx1M7yRutX00ZKB3A/QZBjOfKRTloXgGSokxKmRaTnM2dPkTA8kfOn+IadG2 e82iQiuo0LlyfpmZz4AD8ptsV9BeJ1IK08siq2eMMlbQtLS+FNOTz4s+HPm+ gi4fPZGxhD1k6yAdJL+KPh9T42a6a5bTN9llFV1xsjm1iP0x7cXbvIJV1Hg+ snyBmc+dzmuqJ1bRw5Kd9Hnsbq/4F78lSNBqScgwba17rG9OhwSS1QyNOexm fm1utiMkGFy6t3EWu22/cPrncBJw69Ur0Jn7JdCUMzJJMCpjSp7B/tHQ9ML5 NQn8FqLq/zLfjz3fcHMvCczGC3ynsH8ZxHydXyKByZFRBsGMJ+oY9a0UGT5Z UbxozHgZayLtHclwXkVr6Bc2y54ZAcUwMvj0Hh8fY+bnbGvWxC0y+G2brh/B Figv2lj+igxjhWFnh7BFZuMro7+RISryNHkQW0LLxdR8kQz0KpXDfdiy/nrd ayRZII06HNGLrUZbmC06zAKbtL+qdGBrbOy4EBzKApcSJvPasLU9SkT1M1jA Y3ps5DP2nofJ9/gqWGC5xW24CVt/xGNrZxcLbGlcyK7HpiiZ1ObOs8DjeD7B OmwLqqKVlwQruO2laVVhH/7R4022ZwW6evmlEuyj0uXLH4NZ4a1XZmkR9kmH 64k301ihmMskMg/bt8OsQL2TFbJjIqbTmfUqqrpzdpYVDD1XU65ihx9kb6gR Z4PLjptrErDjP1cN2R5iAxUR3poQZv3z3QqQC2KDPcNZF09jXzcNYvl9gw2q Yh82uWDfqd8sF/kfG/R+DnxhhX2fjbfYlM4GPVd5DhhhF+qP6oqJsUOeYKX1 LuyyN3ccC23Y4UlnWtA67NfLYb/OnGGHcFL0JSHsOh37UHSdHdZ9ZZ1gwf5c JpjW/pUdSp1bY36uEKh95s/6O9PsMFpVX9iG/W1r4/NTIhzQwlnEXos9/CSq beUgBzhVKe++jf3rz5ETjf4cYEY7zBmHPammM3ktlQOk1Mt/+WEv5/3lV23j gG3n6rsMsVmGP2dOT3HA+yH+9o3YXIqP1N8IcUKXc3GDCLboHed91gc4IefE l+AfDAJJfkddMn6csNfsj2IdtpyUtNtYCid86r+Zfx9bPa099lwrJ3gaR4u4 YutfMarJt+QCXvKt+O5lAkWaPi9o8+GCu1TWulLsN+yK1xiXuUCTan0rCVsn nORq/YkLgp102XSwQ3actoz4je9vGI0RwC77+31nAQ833JZJjxhYItC2U5W8 qxRuoDO0aqKx/ZXU6Kru3HDk0LkZK+ynfek/bOK4IbTmYoQM9sZDQc8K33ND u3KJ97NFAikZaNod0ueB53Z8BW8XCERduQNRJ3iA0yclPAY7p0JArSiSB1bU s+z0sKU1/iyTq3nA7uzkUtk8gcRk8u8+3s0Luwfy++LnCGTTJZbU5cAL6fYC bTuwU6/FBrKe5YWEdW2hQ7O4/3iolMPlvOCu7letjc0xJ01j284Havd/LlbN 4PlYkti5xYYPNls7+R7GjvZerHEI4IOYSgPjv9MEWvnZee3pMz5oDrYfk8Ke a03d5bSZH8zDrTvNp3D/JZEV48z5IbJGXeHrJIHOmPjylXjxg4M4PcgWe7LK vI/zET/wbB8VPkAQaKyQ60LpBgHIjhMYUpggkLJrsM8PYwEweaJnceUP7i/5 ETtuVwFwf3HRc/43gfrT3qoduy8AJ+oXrtX8wvMwNqKVR/5/4OBq6rNhjEAu Wxb5NfkF4Wzm43GjQQKZ9cQ9kJAVhOL3GsOuAwTSihPTJW0RBNnYbq2YfgKx 9Wl4tVgJwvjjutuPfxDobrJbk/d1Qch+n7v2wzcCXdKhn7B9IAhbkjJM6roJ 5DcSvbCnTBA6m9+feNlFINibrcLXJQhdSWoqqR0E6ptov1goJQQyrr13uNoI VJ9BlU3dKAQs/fe+dLUS6InR5ItQXSFQa6xIutdCoIgs3mHKMSHYJid5WqUZ f19zfYPRu0KgkKubSWvA86eoeFVRTRis11wtor7G+9nrpvHuFoa+2BzhjlcE UmH7uHl6vzDY3KRaGlQQaN5x5EidtzAsvLNS4i0j0E1emdfHnwkDi+HEesti An31uBSStVMEqpf19HNyCPRKXELwwj4RGBRSvVqUjeOve5Dv5SACMrn3FUoy cT1L1nbsDheBzqz+Pw/TCSTYNKf1rVoENgXc1zdMIZC5qsuUuIkozHooxKlH EGgxMbDy+yFRcJCMDZ0KI9BD2oUL911FoXofh9qzUJzv53lrt14UhVKqSIlM IN5/75ie+XtRWLV901voib+/jWdqjIEY+FR4jV61w/OnLMzJ1FoM+GzrnkzZ 4P+ntUnKQs5iEPL4z1/TgwTq/VH0KjtaDG5o8Q2PmxHo2inaYEWtGJC2GMt0 6xGIdN5v2yQSB+MhmYyzajj/A1GMMktxCK7wH/HdQCBHw9SGc8fEodQhJuG4 Eu5v7lJH3vPisCYxoUldlkBe12dilN+IA23GVchfCNdbQXC705410Edb/vh6 loZK2s8FNu6UgOeLr69SXtPQwwsnqYP7JID8uW9ctJyGsrX3Wy45SMCnA+fd uktp6FK6hOqmcxKwKfVxt+kjGnJ2Ku1NqZWAcZpSc0sGDYkOjRnYm66FTcbf fjoH0lDQtLXwqKMk1JYV5jYq05DXfZ3VVS9JsPvcWnFHnoaotvJ/JCIkofxb g6OPNA1ZvKS9N83B/lpkSReioQ1hCaFPhiTB74neucLlCdTFUt0f6C0FrbUx R8paJ9BuYbVitvPSEH5OUycsYAJ9Jjs0Nl+RhpMfWrYmeE+g41MJP2/mSIOc u3FBitsEim0dX6NaJw3J+XSVJEe8Prkg0pxdBsacfJW1DfB6XtWDNxNlQIom 2+EohNezqdA3pMvClv/Ex2QK/iC3pdSsB/ZykJJeGS/64Tc6XT+6rdhcAYwL dvh1zYyjSw4c6xleSvAzLU5VpnkUOTeEuWq6K8PZC9TMgPJhVMu59oDnYRXo /53Ce+PpT6QpFHlz/IwaTIs4yNclD6Dj07obLbw2QghspwYc7kO52e+l5y5v hq2uCrJKyT2oNFmnp+2gBoR7nWl+qNyFzrzStcoy04S4Bk2f40b/oeqmB38T HLeC7+kqLiKoDZ0y2VV1yn4bVLk1CPrLt6LMh5ovPD20YFn1sodu40d0dboq yjd4OxTr3+AMJBrQSGFgkLu/Nmib3+Ms/fAOvTNOTY+O3gGenb72Hz7VIrLl t8ErkTthpbE0bH3tG0TSKyPnhO6CWbYOTf7MVyh+zZx5W5wOsHdt/2pSVoZ8 HZzr5mJ2Q7pCj8a3q6VoIErrJLqxB4ImjL9cvvsUiV7L+JaQqwt659ostA8V oTxBtdCG23vhdJjJyYrjD1Gt/zqjDY8QvNul8ej30/soWy5HWtcGYIGc91vl TS6qCl8kubcC7Jv5z0kxKhvJ7+dcVrTTg+jst0I2fRnoeYtqYne7HvxM5uVV 3HQTJdWvaMgd0Yf8kIZjG2pT0bWAcY/jvfrwQav80gxnCgoXk/2fwmEDsImI OrQuLBEVqLI3nek3ADmOD4qxunGIY4a8tvaoIXi1HGt1/RGD8jWeRWSPGsJg Go9NTF0kUqUWWjC8jaC11W36uUM46tlXUWL72wiKO14ZrIEQ1Hbv7CYUYAwX l0PX1QedQfOlB/Yo/DUGy/5HwuQgP7Ra7v/ioo8JJJCrpK4NeqP9GsZG4XQT sDinRRrYfQo1HNlyyjOAApVOdVNFiS5I2Nm9MiuQAnrq/XXh4S7oqHsuf2sw BY5r+O+y83ZBs/4iJVrhFKjL2rygbumClOLnFhmxFNh6NJZuLeKCIkuqk1Ju UsCMIR6dlnUS6XBaPX1RQYENY55zryqc0UW+BJaxSgoYTIZEfnnkjL4I1dlI vqGAQ0Hhx6ksZ+QurbUQUUeBnNNvL1tGO6M0TQl9ykcKyNG5Wc/vd0Yzjv1f v/VSoIqL0Z3fR0VwYq0yfx8FeDpnT9i1UVGi68EQNECB1dFWPcH3VKTg9076 /jAF7uaU0rIKqejAxYcu3jQK/BA/SVEJoqLMxIGXdyYp0LbPu1v+FBWNpUjy tP2lwOPtZ5OVnKgo8nbSE+05CljOipkZ6VPRp5z3pFMLFNg2UG3ivJ2K1uSt HLy9RAEVfVOLSypURH2040EzgwKy1baHX0lR0ZOnvnOrqzg+n5fUaQEq+j+b 17Tr "]]}, "Charting`Private`Tag$124331#1"]}}, {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0.00005340229308708092}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {{0}, {0}}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["Q(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0, 50}, {0.00005340229308708092, 1.0000000000021103`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ Unevaluated[ LineLegend[{ Directive[ Opacity[1.], GrayLevel[0], CapForm["Butt"], AbsoluteThickness[1.6], AbsoluteDashing[{}], Thickness[Large]]}, { Style["g=0.8", 13]}, LegendMarkers -> None, LabelStyle -> {FontFamily -> "Helvetica", GrayLevel[0]}, LegendLayout -> "Column"]]]]], { Scaled[{0, 0.5}], {-1.1, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.789193299751466*^9, 3.789193312099243*^9}},ExpressionUUID->"425361f3-0cd2-4af5-b7a6-\ d8c1da9d03a6"], Cell["\<\ There are some term missing from our derived solution. However that can be \ catched by using Laplace domain and comparing with ours. Now let us solve the \ difficult problem of arbitrarily placed sink.\ \>", "Text", CellChangeTimes->{{3.787889514834791*^9, 3.787889527537431*^9}, { 3.7878896616566772`*^9, 3.787889753296858*^9}},ExpressionUUID->"23a319dc-56e7-4452-97d8-\ b3d6a99c2859"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"d", " ", "g", " ", RowBox[{"\[Delta]", "(", "x", ")"}], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x", "-", "a"}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "-", RowBox[{ SubscriptBox["k", "0"], TemplateBox[{RowBox[{"x", "-", "a"}]}, "DiracDeltaSeq"], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787889786332515*^9, 3.787889823219748*^9}},ExpressionUUID->"59caf7f0-9ee2-4006-98ed-\ f1a2477f3773"], Cell["\<\ THe model is similar to that of the Oster-Nishijima\[CloseCurlyQuote]s model. \ And the solution is already derived by us.\ \>", "Text", CellChangeTimes->{{3.787889993471612*^9, 3.7878900398691177`*^9}},ExpressionUUID->"87e1778a-3752-423f-866b-\ 0ddd68406bc5"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "d"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k2", "=", "k0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"x", "==", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Heaviside", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], "}"}]}]}], ";", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", "x"}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pebminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peaminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", RowBox[{"-", "x"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "a"}], "&&", RowBox[{"x", "\[NotEqual]", "b"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"xc", ">", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"b", ",", "t"}], "]"}], "-", RowBox[{"Pebminus", "[", RowBox[{"b", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"Peaminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"b", "\[GreaterEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Peaplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Peaminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Peaplus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"b", "\[GreaterEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pebplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pebminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pebminus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"(", "k0", ")"}], RowBox[{"Pebplus", "[", RowBox[{"b", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "b"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.787724239301915*^9, 3.787724439032062*^9}, { 3.787725252810832*^9, 3.787725403501436*^9}, {3.7877254908688097`*^9, 3.787725589803688*^9}, {3.7877256222830067`*^9, 3.787725667896348*^9}, 3.787725885538319*^9, {3.787725916801529*^9, 3.787725955298053*^9}, { 3.787727298518117*^9, 3.7877273793196297`*^9}, {3.787727614111464*^9, 3.787727618307177*^9}, {3.787890430683075*^9, 3.787890450474593*^9}, { 3.78789049457628*^9, 3.7878904969464407`*^9}, {3.787891158111464*^9, 3.7878912233284817`*^9}, {3.787891352738803*^9, 3.787891405858856*^9}, { 3.7878915358420877`*^9, 3.7878915627077227`*^9}, {3.78789165511304*^9, 3.787891657542087*^9}, {3.787891772550102*^9, 3.78789178150486*^9}, { 3.787891996402706*^9, 3.787892022173147*^9}, {3.787892063211853*^9, 3.78789210163763*^9}, {3.78789227432786*^9, 3.787892291917388*^9}, { 3.787892497949029*^9, 3.787892498900003*^9}, {3.787892812357595*^9, 3.787892822325021*^9}, {3.787892856697106*^9, 3.787892858432178*^9}, { 3.787893194989965*^9, 3.7878932053829937`*^9}, 3.7878932695064096`*^9, { 3.787893342106287*^9, 3.787893347269134*^9}, {3.7878937261363993`*^9, 3.787893728479949*^9}, {3.787893921680998*^9, 3.787893933553364*^9}, 3.787893979780238*^9, {3.7878940671573277`*^9, 3.7878940947561274`*^9}, { 3.787895029545772*^9, 3.787895069782339*^9}, {3.787895100817169*^9, 3.7878951266139803`*^9}, {3.787895176451211*^9, 3.787895202226337*^9}, { 3.787895277740058*^9, 3.787895280941153*^9}, {3.787895831280883*^9, 3.787895862899506*^9}, {3.787896660210415*^9, 3.787896687185294*^9}, 3.787897003074835*^9, {3.787897888120762*^9, 3.7878978936172028`*^9}, { 3.787898726435932*^9, 3.787898731116373*^9}, {3.787899127716875*^9, 3.787899185490629*^9}, 3.7878996525630503`*^9, {3.787899754668879*^9, 3.787899832251108*^9}, {3.787901619623411*^9, 3.7879016544013853`*^9}, { 3.787902274064395*^9, 3.787902279690015*^9}, {3.787902312008164*^9, 3.787902323254816*^9}, 3.787902372534678*^9, {3.787902412629204*^9, 3.787902415914041*^9}, {3.787902682639326*^9, 3.7879027484083014`*^9}, { 3.787902845476487*^9, 3.7879028572705097`*^9}, {3.787902988784219*^9, 3.78790300013446*^9}, 3.7879032734246264`*^9, 3.7879042177628803`*^9, { 3.787904291781335*^9, 3.787904292870923*^9}, {3.7879045255203114`*^9, 3.787904548521678*^9}, {3.7879046112054777`*^9, 3.787904674240094*^9}, 3.7879047361773243`*^9, {3.787904907482234*^9, 3.787904950193898*^9}, { 3.787905047011168*^9, 3.7879050637236853`*^9}, {3.787905242131549*^9, 3.787905242566861*^9}, {3.7879052752913427`*^9, 3.787905302793956*^9}, { 3.787905384130639*^9, 3.787905484503026*^9}},ExpressionUUID->"15e70779-b49e-4ee2-8813-\ 283e92c7febd"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, {3.787905471554381*^9, 3.7879054861499968`*^9}},ExpressionUUID->"117a5d11-8050-452e-b3b9-\ 30d57796914f"], Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{ 3.78790363702934*^9, 3.7879042255667553`*^9, 3.787904299434808*^9, { 3.787904529583116*^9, 3.7879045510745564`*^9}, {3.7879046208996763`*^9, 3.787904675612248*^9}, 3.787904738125602*^9, {3.7879048904632587`*^9, 3.787904951291234*^9}, 3.787905049969771*^9, 3.787905146751836*^9, 3.787905250636401*^9, {3.787905288777174*^9, 3.787905305903872*^9}, 3.787905438078128*^9, {3.787905471632154*^9, 3.787905486231052*^9}},ExpressionUUID->"ddc1b612-9ef0-4da2-8699-\ 465ca28faaf3"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k0", "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"2", " ", "b", " ", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"b", "-", "x"}], "<", "0"}]}, {"1", RowBox[{ RowBox[{"b", "-", "x"}], ">", "0"}]}, {"0.5`", RowBox[{ RowBox[{"b", "-", "x"}], "\[Equal]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "b"}], "+", "x"}], "]"}]}]}], ")"}]}], "d"]}]], " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0", "+", RowBox[{"2", " ", "b", " ", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"b", "-", "x"}], "<", "0"}]}, {"1", RowBox[{ RowBox[{"b", "-", "x"}], ">", "0"}]}, {"0.5`", RowBox[{ RowBox[{"b", "-", "x"}], "\[Equal]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "b"}], "+", "x"}], "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k0", "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", "x", "+", "x0"}], ")"}]}], "d"]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "b"}], "+", RowBox[{"k0", " ", "t"}], "-", "x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["k0", "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", "x", "+", "x0"}], ")"}]}], "d"]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", RowBox[{"k0", " ", "t"}], "+", "x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "-", "x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "b"}], "-", "x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", "x", "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{ RowBox[{"a", "-", "x"}], "\[LessEqual]", "0"}]}, {"1", RowBox[{ RowBox[{"a", "-", "x"}], ">", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, {3.787905471554381*^9, 3.787905486247088*^9}},ExpressionUUID->"7a8f7855-e7f8-41a1-a8ed-\ 5c8950c6ecad"], Cell[BoxData["\<\"Solubility check of Pe\"\>"], "Print", CellChangeTimes->{ 3.78790363702934*^9, 3.7879042255667553`*^9, 3.787904299434808*^9, { 3.787904529583116*^9, 3.7879045510745564`*^9}, {3.7879046208996763`*^9, 3.787904675612248*^9}, 3.787904738125602*^9, {3.7879048904632587`*^9, 3.787904951291234*^9}, 3.787905049969771*^9, 3.787905146751836*^9, 3.787905250636401*^9, {3.787905288777174*^9, 3.787905305903872*^9}, 3.787905438078128*^9, {3.787905471632154*^9, 3.787905486254262*^9}},ExpressionUUID->"a6292d87-b558-4786-b8a5-\ dd06bb028b35"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, 3.787905471554381*^9, 3.787905842447249*^9},ExpressionUUID->"5b4cd467-30b3-45b0-bfcf-\ b3360160e8ed"], Cell[BoxData["\<\"Continuity check of P3 a, b\"\>"], "Print", CellChangeTimes->{ 3.78790363702934*^9, 3.7879042255667553`*^9, 3.787904299434808*^9, { 3.787904529583116*^9, 3.7879045510745564`*^9}, {3.7879046208996763`*^9, 3.787904675612248*^9}, 3.787904738125602*^9, {3.7879048904632587`*^9, 3.787904951291234*^9}, 3.787905049969771*^9, 3.787905146751836*^9, 3.787905250636401*^9, {3.787905288777174*^9, 3.787905305903872*^9}, 3.787905438078128*^9, 3.787905471632154*^9, 3.7879058424648247`*^9},ExpressionUUID->"df8ba4c9-2edd-4cc0-becb-\ 848816f56a4c"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, 3.787905471554381*^9, 3.7879058424703827`*^9},ExpressionUUID->"f99bceaa-298a-4535-b5a4-\ 30737fc313f1"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, 3.787905471554381*^9, 3.7879058424772577`*^9},ExpressionUUID->"3b60f29e-ccad-4ff3-9475-\ 8823983b99e8"], Cell[BoxData["\<\"Boundary check for Pe\"\>"], "Print", CellChangeTimes->{ 3.78790363702934*^9, 3.7879042255667553`*^9, 3.787904299434808*^9, { 3.787904529583116*^9, 3.7879045510745564`*^9}, {3.7879046208996763`*^9, 3.787904675612248*^9}, 3.787904738125602*^9, {3.7879048904632587`*^9, 3.787904951291234*^9}, 3.787905049969771*^9, 3.787905146751836*^9, 3.787905250636401*^9, {3.787905288777174*^9, 3.787905305903872*^9}, 3.787905438078128*^9, 3.787905471632154*^9, 3.78790584248442*^9},ExpressionUUID->"f05db77f-9e14-4c9a-b0db-\ 82fc784c822e"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, 3.787905471554381*^9, 3.787905842764436*^9},ExpressionUUID->"1f8adfff-910d-4c97-9c54-\ 5d2f3bcbd917"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787903636939746*^9, 3.7879042254782124`*^9, 3.7879042994*^9, { 3.787904529487693*^9, 3.7879045509748507`*^9}, {3.787904620812151*^9, 3.787904675598778*^9}, 3.7879047380477057`*^9, {3.787904890347207*^9, 3.78790495120794*^9}, 3.7879050498878117`*^9, 3.787905146675839*^9, 3.787905250554862*^9, {3.7879052886920233`*^9, 3.787905305811228*^9}, 3.7879054379858513`*^9, 3.787905471554381*^9, 3.787905843039693*^9},ExpressionUUID->"bb2ae28f-f14f-4a87-a083-\ 8b9b4c93472e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"E", "^", RowBox[{"(", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], ")"}]}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], ",", RowBox[{"d", "\[Rule]", "D"}], ",", RowBox[{"\[Epsilon]2", "\[Rule]", SubscriptBox["\[Epsilon]", "2"]}], ",", RowBox[{"\[Epsilon]1", "\[Rule]", SubscriptBox["\[Epsilon]", "1"]}], ",", RowBox[{"Unit", "\[Rule]", "U"}], ",", RowBox[{"x0", "\[Rule]", SubscriptBox["x", "0"]}], ",", RowBox[{"a", "\[Rule]", "0"}], ",", RowBox[{"b", "\[Rule]", "a"}], ",", RowBox[{"Heaviside", "\[Rule]", "H"}]}], "}"}]}]}], ";", RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"D", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"D", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "D"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k2", "=", SubscriptBox["k", "0"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}], "*", RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"TeXForm", "[", "%", "]"}]}], "Input", CellChangeTimes->{{3.788266954895303*^9, 3.788266989236218*^9}, { 3.788267024407132*^9, 3.788267026155208*^9}, {3.788267058347681*^9, 3.7882671714559307`*^9}, 3.788267202544626*^9, {3.788267236983618*^9, 3.788267329485957*^9}, {3.7882673981172323`*^9, 3.788267456090089*^9}, { 3.78826751026759*^9, 3.788267513363097*^9}, {3.788267547901919*^9, 3.788267559249989*^9}, {3.788267613354024*^9, 3.788267619270338*^9}, { 3.788267710462269*^9, 3.788267712196899*^9}, 3.78826778619098*^9, { 3.788267909836444*^9, 3.788267916925356*^9}, {3.788267962215809*^9, 3.788267965706739*^9}, {3.7882680029972963`*^9, 3.788268109640362*^9}},ExpressionUUID->"8dff77f7-2224-45f9-8d4d-\ df0507995574"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", SubscriptBox["x", "0"]}], ")"}], "2"], RowBox[{"2", " ", "D", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "+", RowBox[{ RowBox[{"H", "[", RowBox[{"-", "x"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", SubscriptBox["x", "0"]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}]}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "-", "x", "+", SubscriptBox["x", "0"]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", SubscriptBox["x", "0"]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "+", "x", "+", SubscriptBox["x", "0"]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"t", " ", SubsuperscriptBox["k", "0", "2"]}], RowBox[{"2", " ", "D"}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "b"}], "-", "x", "+", "x0"}], ")"}], " ", SubscriptBox["\[Epsilon]", "2"]}]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "-", "x", "+", SubscriptBox["x", "0"], "+", RowBox[{"2", " ", "d", " ", "t", " ", SubscriptBox["\[Epsilon]", "2"]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}], "-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "-", "x", "+", SubscriptBox["x", "0"]}], RowBox[{"D", " ", "t"}]], "+", SubscriptBox["\[Epsilon]", "2"]}], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"t", " ", SubsuperscriptBox["k", "0", "2"]}], RowBox[{"2", " ", "D"}]], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "+", "b"}], ")"}]}], "+", "x", "+", "x0"}], ")"}], " ", SubscriptBox["\[Epsilon]", "2"]}]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "+", "x", "+", SubscriptBox["x", "0"], "+", RowBox[{"2", " ", "d", " ", "t", " ", SubscriptBox["\[Epsilon]", "2"]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]], "]"}], "-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", " ", "a"}], "+", "x", "+", SubscriptBox["x", "0"]}], RowBox[{"D", " ", "t"}]], "+", SubscriptBox["\[Epsilon]", "2"]}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"d", " ", "t", " ", SubsuperscriptBox["k", "0", "2"]}], SuperscriptBox["D", "2"]], "+", FractionBox[ RowBox[{ SubscriptBox["k", "0"], " ", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "b"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "b", " ", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], ")"}]}], "D"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "b"}], "+", "x"}], "]"}]}], "+", FractionBox[ RowBox[{"2", " ", "d", " ", "t", " ", SubscriptBox["k", "0"]}], "D"], "+", RowBox[{"2", " ", "b", " ", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}], "-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ SubscriptBox["k", "0"], "D"], "+", FractionBox[ RowBox[{"x0", "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "b"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "b", " ", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], RowBox[{"2", " ", "d", " ", "t"}]]}], "]"}]}], ")"}], " ", SubscriptBox["\[Epsilon]", "2"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.788267575276887*^9, 3.788267620708006*^9, 3.7882679235255213`*^9, 3.788267967246291*^9, 3.788268116226829*^9},ExpressionUUID->"47658d6e-e074-4508-8ad1-\ af7514a537bb"], Cell["\<\ e^{-\\frac{1}{2} d g^2 t-g (x \\text{sgn}(x)-\\left| \\text{x0}\\right| )} \ \\left(H(-x) \\left(-\\frac{1}{2} g e^{\\epsilon _2 (2 b-x+\\text{x0})+\\frac{k_0^2 t}{2 D}} \\left(\\text{erf}\\left(\\frac{2 \ a+2 d t \\epsilon _2-x+x_0}{\\sqrt{2} \\sqrt{D t}}\\right)-\\text{sgn}\\left(\\frac{2 a-x+x_0}{D t}+\\epsilon \ _2\\right)\\right)+\\frac{1}{2} g e^{\\epsilon _2 (2 (b-a)+x+\\text{x0})+\\frac{k_0^2 t}{2 D}} \ \\left(\\text{erf}\\left(\\frac{2 a+2 d t \\epsilon _2+x+x_0}{\\sqrt{2} \ \\sqrt{D t}}\\right)-\\text{sgn}\\left(\\frac{2 a+x+x_0}{D t}+\\epsilon \ _2\\right)\\right)-\\frac{1}{2} g \\left(\\text{erfc}\\left(\\frac{2 a-x+x_0}{\\sqrt{2} \\sqrt{D t}}\\right)-\\text{erfc}\\left(\\frac{2 \ a+x+x_0}{\\sqrt{2} \\sqrt{D t}}\\right)-\\text{erfc}\\left(\\frac{x_0-x}{\\sqrt{2} \\sqrt{D \ t}}\\right)+\\text{erfc}\\left(\\frac{x+x_0}{\\sqrt{2} \\sqrt{D t}}\\right)\\right)\\right)+\\frac{1}{2} \\epsilon _2 \ \\left(\\text{erf}\\left(\\frac{x \\text{sgn}(x-b)+2 b \ \\text{Unit}(b-x)+\\frac{2 d k_0 t}{D}+\\text{x0}}{2 \\sqrt{d \ t}}\\right)-\\text{sgn}\\left(\\frac{k_0}{D}+\\frac{\\text{x0}+x \ \\text{sgn}(x-b)+2 b \\text{Unit}(b-x)}{2 d t}\\right)\\right) \\exp \\left(\\frac{k_0 (x \ \\text{sgn}(x-b)+2 b \\text{Unit}(b-x)+\\text{x0})}{D}+\\frac{d k_0^2 t}{D^2}\\right)+\\frac{e^{-\\frac{\\left(x+x_0\\right){}^2}{2 D \ t}}}{\\sqrt{2 \\pi } \\sqrt{D t}}\\right)\ \>", "Output", CellChangeTimes->{3.788267575276887*^9, 3.788267620708006*^9, 3.7882679235255213`*^9, 3.788267967246291*^9, 3.788268116458866*^9},ExpressionUUID->"bf51bf5e-f635-4ac4-83d0-\ 187f538ef201"] }, Open ]], Cell["We have got to check all the tests, Now numerical test", "Text", CellChangeTimes->{{3.787905849533945*^9, 3.787905865678347*^9}},ExpressionUUID->"ce26b2bb-55c0-41ab-9905-\ b31aac01386f"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Protect", "[", "ab2", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "d"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k2", "=", "k0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"x", "==", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Heaviside", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], "}"}]}]}], ";", RowBox[{"(*", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], "}"}], "*)"}], RowBox[{ RowBox[{"Pnc", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "-", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", "\[Epsilon]1"}], "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], "}"}]}]}], ";", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Pnc", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Qt", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "-", "x0"}], ")"}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "+", RowBox[{"d", " ", "g", " ", "t"}]}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "g", " ", "x0"}], "]"}], RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}], "+", RowBox[{"\[Epsilon]2", " ", "x0"}], "+", RowBox[{"g", " ", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], " ", "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", "*", "2", "b"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], "+", FractionBox["1", RowBox[{"g", "+", "\[Epsilon]2"}]]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "-", "g"}], ")"}], "b"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"b", "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"b", "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"\[Epsilon]2", "-", "g"}]]}], "-", FractionBox["1", RowBox[{"\[Epsilon]2", "+", "g"}]]}], ")"}]}], "-", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"-", RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"b", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}]}], RowBox[{"\[Epsilon]2", "-", "g"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}], "-", "b"}], "]"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"2", "b", " ", "g"}], "+", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"d", " ", "g", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"\[Epsilon]2", "-", "g"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"b", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b", " ", "g"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]}], ")"}], RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"2", "b", " ", "\[Epsilon]2"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "\[Epsilon]2"}], " ", "a"}], "+", RowBox[{"g", " ", "a"}]}], "]"}], RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"a", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"2", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "b"}], "+", RowBox[{"2", "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], ")"}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "-", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", " ", "2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}], " ", "a"}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{"a", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"a", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{"-", "2"}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "+", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "a"}], "-", RowBox[{"4", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Qtnc", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "-", "x0"}], ")"}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "+", RowBox[{"d", " ", "g", " ", "t"}]}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "g", " ", "x0"}], "]"}], RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}], "+", RowBox[{"\[Epsilon]2", " ", "x0"}], "+", RowBox[{"g", " ", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], " ", "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", "*", "2", "b"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], "+", FractionBox["1", RowBox[{"g", "+", "\[Epsilon]2"}]]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "-", "g"}], ")"}], "b"}], "]"}], RowBox[{"(", RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"b", "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"\[Epsilon]2", "-", "g"}]]}], "-", FractionBox["1", RowBox[{"\[Epsilon]2", "+", "g"}]]}], ")"}]}], "-", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"-", RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"b", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}]}], RowBox[{"\[Epsilon]2", "-", "g"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}], "-", "b"}], "]"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"2", "b", " ", "g"}], "+", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"d", " ", "g", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"\[Epsilon]2", "-", "g"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"b", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b", " ", "g"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]}], ")"}], RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"0", "\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"2", "b", " ", "\[Epsilon]2"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "\[Epsilon]2"}], " ", "a"}], "+", RowBox[{"g", " ", "a"}]}], "]"}], RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"a", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"2", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "b"}], "+", RowBox[{"2", "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], ")"}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "-", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", " ", "2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}], " ", "a"}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{"-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"a", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{"-", "2"}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "+", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "a"}], "-", RowBox[{"4", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xc", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"-", FractionBox["\[Epsilon]1", "2"]}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"RealSign", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]], "]"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"RealSign", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]], "]"}], "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"RealSign", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ex", "[", "t_", "]"}], ":=", RowBox[{ RowBox[{"\[Epsilon]1", "/", "2"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "a"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"MaxRecursion", "\[Rule]", "20"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"p1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Dashed"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "->", "\"\\""}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qtnc", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"e", RowBox[{"(", RowBox[{ RowBox[{"Qtnc", "[", "t", "]"}], "+", RowBox[{"0", RowBox[{"Ex", "[", "t", "]"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"p2", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", "Brown"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"m", "=", RowBox[{"l", "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"l", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".15"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"Method", "->", "\"\\""}], ",", RowBox[{"MaxRecursion", "\[Rule]", "20"}]}], "]"}]}], "\[Equal]", "1"}], ",", "l"}], "]"}]}]}], RowBox[{"(*", "\"\\"", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"m", " ", RowBox[{"NIntegrate", "[", " ", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"Method", "->", "\"\\""}], ",", RowBox[{"MaxRecursion", "\[Rule]", "20"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"p4", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p4", ",", "ab2", ",", "p2", ",", "p1"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"p1", ",", "ab2"}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"S", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1000000", "/", "\[Pi]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000000"}], "*", " ", RowBox[{ RowBox[{"(", "z", ")"}], "^", "2"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"dThick", "=", "20"}], ";", "\n", RowBox[{"dTime", "=", "50"}], ";", "\n", RowBox[{"eqSimplee", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"RealSign", "[", "x", "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"2", "d", " ", "g", " ", RowBox[{"S", "[", "x", "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{"k0", "*", RowBox[{"S", "[", RowBox[{"x", "-", "xc"}], "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}]}], ";", "\n", RowBox[{"eqInie", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "0"}], "]"}], "==", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1000", "/", "\[Pi]"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"eqBlefte", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{ RowBox[{"-", "dThick"}], ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";", "\[IndentingNewLine]", RowBox[{"eqBleftg", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"dThick", ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"-", "1.5"}]}], ";", "\[IndentingNewLine]", RowBox[{"ys", "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"mol", "[", RowBox[{"n_", ",", "o_"}], "]"}], ":=", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}]}], "}"}]}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{ RowBox[{ RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ "eqSimplee", ",", "eqInie", ",", "eqBlefte", ",", "eqBleftg"}], "}"}], ",", RowBox[{"{", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}]}], "]"}], "\n", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"Flatten", "[", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "21", ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", "ab1"}], "=", RowBox[{ RowBox[{"ListPlot", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ab1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07"}], ",", "1.03"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Dashed", "}"}]}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "ab1"}], "]"}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Beep", "[", "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.786234512085548*^9, 3.7862345247351837`*^9}, { 3.786234621517902*^9, 3.786234622088496*^9}, {3.786234761565926*^9, 3.786234838263521*^9}, {3.7862348841658077`*^9, 3.786234886681718*^9}, 3.786585785246129*^9, {3.786585827129085*^9, 3.786585830120859*^9}, { 3.786585867458398*^9, 3.786586075075933*^9}, {3.7865861109798193`*^9, 3.7865861236507196`*^9}, {3.786587311667014*^9, 3.786587320793603*^9}, 3.786587495655919*^9, {3.786587971691868*^9, 3.78658800432727*^9}, { 3.786590302131323*^9, 3.78659032200646*^9}, {3.786590443337406*^9, 3.786590587520706*^9}, {3.7865906610093393`*^9, 3.7865906946907663`*^9}, { 3.7865907363955307`*^9, 3.7865907602025127`*^9}, {3.786590799319624*^9, 3.786590874998519*^9}, {3.7865909665617867`*^9, 3.786590998211128*^9}, { 3.7865911432841682`*^9, 3.786591146635816*^9}, {3.786591188896797*^9, 3.786591252736274*^9}, {3.786591321583304*^9, 3.7865913613655787`*^9}, { 3.786592691541176*^9, 3.786592735926796*^9}, {3.7865928010657988`*^9, 3.7865928021797028`*^9}, {3.786593324790238*^9, 3.786593352475008*^9}, { 3.78659389487425*^9, 3.7865939403184566`*^9}, {3.786594001356838*^9, 3.786594005621223*^9}, {3.786594648023904*^9, 3.7865947058825006`*^9}, { 3.786594857068789*^9, 3.786594860964031*^9}, 3.786598953028186*^9, { 3.787888759140098*^9, 3.7878887663705473`*^9}, {3.7878888629783697`*^9, 3.787888964300095*^9}, {3.78790587939181*^9, 3.78790588121846*^9}, { 3.787905947367526*^9, 3.787906032249243*^9}, {3.787906132588065*^9, 3.787906157248863*^9}, {3.787907160041634*^9, 3.7879071693613853`*^9}, { 3.787907817815731*^9, 3.787907839635578*^9}, 3.787907881499124*^9, { 3.787907935346382*^9, 3.78790796559842*^9}, {3.7879080866232643`*^9, 3.78790809396069*^9}, {3.7879082034917316`*^9, 3.787908315067223*^9}, { 3.787908395997707*^9, 3.7879084154703083`*^9}, {3.7879085427539682`*^9, 3.78790857410467*^9}, {3.787910041883245*^9, 3.787910064958201*^9}, 3.78791012615247*^9, {3.78791087122878*^9, 3.787910895542054*^9}, { 3.787911224117077*^9, 3.787911276125622*^9}, {3.7879113598861723`*^9, 3.787911388352386*^9}, {3.787911461826805*^9, 3.7879114786572847`*^9}, { 3.787911568654293*^9, 3.7879115858647127`*^9}, {3.7879119033892117`*^9, 3.787911905246201*^9}, 3.787975039343327*^9, 3.787975107697978*^9, { 3.787978635884685*^9, 3.787978675311903*^9}, {3.7879787289172373`*^9, 3.787978739748933*^9}, {3.7882667885463448`*^9, 3.788266796660768*^9}, { 3.788266839551939*^9, 3.7882668776461773`*^9}, {3.7882992783471622`*^9, 3.788299301473322*^9}, {3.788299771572201*^9, 3.788299792829132*^9}, { 3.788299930056218*^9, 3.788299938448662*^9}, {3.788299974653599*^9, 3.7883000070943413`*^9}, {3.7883000462182827`*^9, 3.7883000701370068`*^9}, {3.788300130298026*^9, 3.788300145887601*^9}, { 3.7883004881381607`*^9, 3.788300524784721*^9}, {3.788300565765645*^9, 3.788300620131628*^9}, {3.788301388018507*^9, 3.788301433418274*^9}, { 3.7883017915850563`*^9, 3.788301801133346*^9}, {3.788571975196599*^9, 3.788572094429583*^9}, {3.788576545191702*^9, 3.788576563382401*^9}, { 3.7885766822304983`*^9, 3.7885767806208363`*^9}, {3.7885768121348352`*^9, 3.788576943259259*^9}, {3.788577042450734*^9, 3.7885770732854767`*^9}, { 3.788577162887924*^9, 3.7885771909310017`*^9}, {3.788577306144731*^9, 3.788577308137763*^9}, {3.788578000870903*^9, 3.7885782510437593`*^9}, { 3.788578362509694*^9, 3.788578363772345*^9}, {3.7885789308608932`*^9, 3.788579193234768*^9}, {3.788582315631221*^9, 3.78858244472908*^9}, { 3.788582481121517*^9, 3.788582511605654*^9}, {3.788582570665926*^9, 3.7885825826391487`*^9}, {3.7885829305952*^9, 3.788582930890357*^9}, { 3.788582969542911*^9, 3.788582971002965*^9}, {3.7885830040395412`*^9, 3.7885831068919277`*^9}, 3.788583162303665*^9, {3.788583241041319*^9, 3.78858349431426*^9}, {3.788583619602065*^9, 3.788583766341859*^9}, { 3.7885839731289597`*^9, 3.7885840924599943`*^9}, {3.788584561691409*^9, 3.788584608865797*^9}, {3.788584639451139*^9, 3.788584761710487*^9}, { 3.7885850351525908`*^9, 3.7885852062863607`*^9}, {3.788585268297593*^9, 3.7885854004210367`*^9}, {3.788585448904503*^9, 3.788585466407477*^9}, { 3.788585652279697*^9, 3.788585669465557*^9}, 3.788585704978249*^9, { 3.788746231995841*^9, 3.7887462350754957`*^9}, {3.788746269213526*^9, 3.788746269738188*^9}, {3.788751225686611*^9, 3.788751271940218*^9}, { 3.788751303145547*^9, 3.788751329181264*^9}, {3.788751371821191*^9, 3.78875137272153*^9}, {3.78875141548977*^9, 3.788751420544568*^9}, { 3.788751480416643*^9, 3.788751488257403*^9}, {3.78875154653544*^9, 3.7887515515565453`*^9}, {3.788751607296939*^9, 3.7887516140419493`*^9}, { 3.788751687552737*^9, 3.788751752176543*^9}, 3.788751812092301*^9, { 3.788751925092794*^9, 3.7887519839559813`*^9}, {3.788752018987443*^9, 3.788752100501401*^9}, {3.788752218045705*^9, 3.788752242329606*^9}, { 3.788752471316972*^9, 3.788752530439742*^9}, {3.788752591509413*^9, 3.7887525986668043`*^9}, {3.7887526476551647`*^9, 3.788752648958304*^9}, 3.7887528666380653`*^9, 3.788753027720558*^9, 3.788753091915331*^9, { 3.788753172552264*^9, 3.788753227737399*^9}, {3.788753258348199*^9, 3.788753303886333*^9}, {3.788753437453088*^9, 3.7887534539150763`*^9}, { 3.7887535060463533`*^9, 3.788753510457189*^9}, {3.7887535531164913`*^9, 3.78875356990184*^9}, {3.7887536019871817`*^9, 3.788753679242766*^9}, { 3.788753714299664*^9, 3.78875374125799*^9}, 3.788754051372032*^9, { 3.7887541521351147`*^9, 3.78875417052567*^9}, {3.7887542180536757`*^9, 3.7887542432511053`*^9}, {3.788754305939321*^9, 3.788754319682074*^9}, 3.788754381545948*^9, {3.788754548699876*^9, 3.7887545699624033`*^9}, { 3.788754625486314*^9, 3.788754643087842*^9}, {3.788754735212995*^9, 3.788754807816349*^9}, {3.788754862117947*^9, 3.788755035377762*^9}, { 3.7887550742189913`*^9, 3.7887550970272913`*^9}, {3.788755443117755*^9, 3.788755447492766*^9}, {3.788755484764056*^9, 3.788755583974434*^9}, { 3.7887556281415777`*^9, 3.788755647798807*^9}, {3.788755728476796*^9, 3.788755758975503*^9}, {3.788758845563291*^9, 3.788758850512981*^9}, { 3.7887588857796307`*^9, 3.788758890846241*^9}, {3.788758933309205*^9, 3.7887589388797817`*^9}, {3.7887590242808857`*^9, 3.788759111166501*^9}, { 3.788759205548711*^9, 3.788759239331352*^9}, {3.7887592867657537`*^9, 3.7887592967707577`*^9}, 3.788759374359754*^9, 3.788759405591497*^9, { 3.7887595516716213`*^9, 3.788759573591258*^9}, {3.788759660790543*^9, 3.788759802780752*^9}, {3.7887601273918657`*^9, 3.788760131588458*^9}, { 3.788760307302176*^9, 3.7887603840429077`*^9}, {3.788760508774455*^9, 3.788760540270376*^9}, {3.788761170981189*^9, 3.788761192729145*^9}, 3.788761247298134*^9, {3.788761323190646*^9, 3.788761346661965*^9}, { 3.788761443347652*^9, 3.788761444418336*^9}, 3.788762069993574*^9, 3.788762104548073*^9, {3.788768138728651*^9, 3.788768160012272*^9}, 3.788768195854138*^9, {3.788770167905777*^9, 3.788770168155293*^9}, { 3.788770216737488*^9, 3.788770217995014*^9}, 3.7887703210128403`*^9, 3.78877042913027*^9, {3.788770464120842*^9, 3.788770467616363*^9}, 3.78877056811668*^9, {3.788770608696623*^9, 3.788770620353963*^9}, 3.788770674362438*^9, 3.78877092411349*^9, 3.78877098204416*^9, { 3.788771026063654*^9, 3.788771080767804*^9}, {3.78877113094494*^9, 3.788771134231551*^9}, {3.788771184319292*^9, 3.788771187453561*^9}, { 3.788771358733107*^9, 3.7887713591789227`*^9}, {3.7887714615056458`*^9, 3.788771489293137*^9}, 3.78877159978528*^9, {3.7887716479787283`*^9, 3.788771677221286*^9}, {3.788771757785462*^9, 3.7887717745892973`*^9}, { 3.788771952418742*^9, 3.788771974821938*^9}, {3.788772046535206*^9, 3.7887720828443127`*^9}, {3.788772174025504*^9, 3.788772208054749*^9}, { 3.7887722470125837`*^9, 3.7887723199843187`*^9}, {3.7887724415938053`*^9, 3.788772457310536*^9}, {3.7887727136219177`*^9, 3.788772742750721*^9}, { 3.788772780727209*^9, 3.7887727936648684`*^9}, {3.788772826395165*^9, 3.788772830045888*^9}, 3.788772861121496*^9, {3.788773602324895*^9, 3.788773630542385*^9}, {3.788773745905867*^9, 3.78877374783498*^9}, { 3.7887738910868673`*^9, 3.788773897446382*^9}, {3.788773945742633*^9, 3.788774032413879*^9}, {3.788774082986455*^9, 3.7887740855016212`*^9}, { 3.788774151601576*^9, 3.7887741727159157`*^9}, {3.7887746733307323`*^9, 3.788774683664926*^9}, {3.7887823615975847`*^9, 3.788782447760563*^9}, { 3.788782525380584*^9, 3.788782557077978*^9}, {3.788782592179236*^9, 3.788782637124398*^9}, {3.788782698867188*^9, 3.788782712062954*^9}, 3.788782785109137*^9, {3.788782939043729*^9, 3.7887830178453817`*^9}, { 3.788783051712723*^9, 3.7887830599977503`*^9}, {3.788783133529731*^9, 3.78878313395035*^9}, {3.788783281003489*^9, 3.788783330972033*^9}, { 3.788783537651651*^9, 3.78878353804493*^9}, {3.7887837765235357`*^9, 3.788783784491239*^9}, {3.788784032484168*^9, 3.788784044957717*^9}, { 3.788784114054758*^9, 3.788784149571477*^9}, {3.788784293607449*^9, 3.7887842958318253`*^9}, 3.78878517916282*^9, {3.788785289397697*^9, 3.788785299253975*^9}, {3.78908929973151*^9, 3.789089302345935*^9}, { 3.789095714285614*^9, 3.789095728095557*^9}, {3.7891152711397867`*^9, 3.78911529455835*^9}, {3.7891153329799967`*^9, 3.7891153854033003`*^9}, { 3.789115696217888*^9, 3.789115733313819*^9}, 3.789115840571944*^9, { 3.7891173406337337`*^9, 3.789117341718404*^9}, {3.789180965330387*^9, 3.789180977449808*^9}, 3.7891814196356792`*^9, {3.7891816668348722`*^9, 3.789181679592491*^9}, 3.789380900004579*^9, {3.7893809875925827`*^9, 3.789381007603569*^9}, 3.78938104639576*^9, {3.789381145132712*^9, 3.789381146124065*^9}},ExpressionUUID->"66574953-dc9b-4d7e-b282-\ b47a3418cd6a"], Cell[BoxData[ TemplateBox[{ "ClearAll","wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"ab2\\\"}]\\) is Protected.\"",2,1941,88, 24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.789181682016683*^9},ExpressionUUID->"a217d4b7-517f-4a0b-bd8d-\ ae2fbbe35809"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"21\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.19650099559827444`\\\", \\\ \"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"-\\\", \ \\\"4.925721785479717`*^-7\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"7.209307049793805`*^-7\\\"}]\\) for the integral and \ error estimates.\"",2,1963,89,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.78918168524078*^9},ExpressionUUID->"aff866e6-3080-4846-bd8d-\ ed8d7499c157"], Cell[BoxData[ TemplateBox[{ "NIntegrate","maxp", "\"The integral failed to converge after \ \\!\\(\\*RowBox[{\\\"1000100\\\"}]\\) integrand evaluations. NIntegrate \ obtained \\!\\(\\*RowBox[{\\\"-\\\", \\\"8.364521818936304`*^-7\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"6.653261834430483`*^-7\\\"}]\\) for the integral and \ error estimates.\"",2,1964,90,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.789181688466125*^9},ExpressionUUID->"291a92e0-b7a3-4141-a053-\ 5dc9499648fe"], Cell[BoxData[ TemplateBox[{ "NIntegrate","maxp", "\"The integral failed to converge after \ \\!\\(\\*RowBox[{\\\"1000100\\\"}]\\) integrand evaluations. NIntegrate \ obtained \\!\\(\\*RowBox[{\\\"0.00014011297661203068`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"1.84316111840803`*^-6\\\"}]\\) for the integral and \ error estimates.\"",2,1964,91,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.7891816916117992`*^9},ExpressionUUID->"53185c83-ae47-4c34-8b34-\ ddd96d2922a0"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "0.9981759989061881`", ",", "0.9578296901337824`", ",", "0.8664009870601905`", ",", "0.7562484458903378`", ",", "0.6480170778448028`", ",", "0.5500024813264015`", ",", "0.464511338785691`", ",", "0.39133351073612366`", ",", "0.3293111449514315`", ",", "0.2770192062944528`", ",", "0.23305114459721993`", ",", "0.19612942124106955`", ",", "0.16513846846325678`", ",", "0.13912408061811082`", ",", "0.11727932494262666`", ",", "0.09892614993548336`", ",", "0.0834967888618151`", ",", "0.07051666553703072`", ",", "0.05958938568431322`", ",", "0.05038388134524462`", ",", "0.042623553233728254`", ",", "0.03607717517600679`", ",", "0.030551310288152087`", ",", "0.025884003731877173`", ",", "0.02193954349535663`", ",", "0.018604109854928334`", ",", "0.015782162024789388`", ",", "0.01339343531458414`", ",", "0.011370443784111952`", ",", "0.009656401294164195`", ",", "0.008203489161535111`", ",", "0.006971411115553024`", ",", "0.005926186667470905`", ",", "0.005039142505231666`", ",", "0.004286068573369783`", ",", "0.003646511254455898`", ",", "0.0031031808237958806`", ",", "0.002641454164470158`", ",", "0.002248957292966009`", ",", "0.001915214276315171`", ",", "0.0016313521018576568`", ",", "0.001389852015643014`", ",", "0.0011843402232963722`", ",", "0.001009411395084642`", ",", "0.0008604797015241308`", ",", "3.547494412358827`*^-10", ",", "3.5686077582172653`*^-10", ",", "3.592660143153136`*^-10", ",", "3.625780186993207`*^-10"}], "}"}]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.78918169297544*^9},ExpressionUUID->"054eb921-24c0-4780-bde7-\ 3ccc1aaeb4ff"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[ 1.6], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJxVyWtI0wEUxuEpNoI1kVyjJEpnmJfMnHZxbu7dnHMrJc3wQwmuhYxuipgm GLSVy2Y2TKUsTXFmNEIxQcI/Uo62pGzCxLHELg77sFTKQNqiFhU7fejA4eXh F6etOlIRzmKxhH/+74ZuVfr/srB47f2ryK9fyOvxsEJV0/zgMzkKUVZeq3ls mcxDxy/PalqGj7wZO7+3HTaPfyRvxU/9hLPnjpccC0Nyqv0G844swOn07tEu zhx5Bz51VHOrot3kBHgNc8+HGBc5ETHtKSM9s05yMqT2MLc95iV5FwrFQwuy eAd5N/h9KRrXtI28BwXxsTcj2E/J6eCkPtZmlYyRhfAbG6wczSg5A561wqMn uCPkTIy91QUvXR4i70V5stS4NGUl74NAdHybbWaAvB8mK3v7aL2FfACmugTG o+olZ+G+diO/1HCXLALjz/QUX7hFzobNentwbUM7WYw2J9svTGolSxAMk9dG VF4n58Drbok7qW4iS7Ei5uSMv7hCBp6YDg0GX+tD1gOC5cAy13yRugyBTbM9 kcp66jIklSU2rvSfpy5Hy5t7DoW5mroc04uWGfWHc9RzMVU23+g5c4p6LrYU hfua+iuoK2DrejahO6ulroClsvdRUFNOPQ8LRdIfWuYY9TxwOtdJ6hyl1JVg aof7GnQl1JXwMVezJ01F1PPRLR3gi4QF1PPBK26pcWkCklBXIbquM/KbkaxX Ya5gUq0c/tfVOJg2L2peCkh+A3EE3/8= "]]}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, LabelStyle->{FontFamily -> "Times"}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0, 50.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJxVyWtI0wEUxuEpNoI1kVyjJEpnmJfMnHZxbu7dnHMrJc3wQwmuhYxuipgm GLSVy2Y2TKUsTXFmNEIxQcI/Uo62pGzCxLHELg77sFTKQNqiFhU7fejA4eXh F6etOlIRzmKxhH/+74ZuVfr/srB47f2ryK9fyOvxsEJV0/zgMzkKUVZeq3ls mcxDxy/PalqGj7wZO7+3HTaPfyRvxU/9hLPnjpccC0Nyqv0G844swOn07tEu zhx5Bz51VHOrot3kBHgNc8+HGBc5ETHtKSM9s05yMqT2MLc95iV5FwrFQwuy eAd5N/h9KRrXtI28BwXxsTcj2E/J6eCkPtZmlYyRhfAbG6wczSg5A561wqMn uCPkTIy91QUvXR4i70V5stS4NGUl74NAdHybbWaAvB8mK3v7aL2FfACmugTG o+olZ+G+diO/1HCXLALjz/QUX7hFzobNentwbUM7WYw2J9svTGolSxAMk9dG VF4n58Drbok7qW4iS7Ei5uSMv7hCBp6YDg0GX+tD1gOC5cAy13yRugyBTbM9 kcp66jIklSU2rvSfpy5Hy5t7DoW5mroc04uWGfWHc9RzMVU23+g5c4p6LrYU hfua+iuoK2DrejahO6ulroClsvdRUFNOPQ8LRdIfWuYY9TxwOtdJ6hyl1JVg aof7GnQl1JXwMVezJ01F1PPRLR3gi4QF1PPBK26pcWkCklBXIbquM/KbkaxX Ya5gUq0c/tfVOJg2L2peCkh+A3EE3/8= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0, 50.}, {0, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.789181693227669*^9},ExpressionUUID->"d381c125-75a7-4156-8e0e-\ 6137409cd95a"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"21\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.19627714916267183`\\\", \\\ \"}\\\"}]\\). NIntegrate obtained \\!\\(\\*RowBox[{\\\"9.715100031238268`*^-7\ \\\"}]\\) and \\!\\(\\*RowBox[{\\\"7.579291072638465`*^-7\\\"}]\\) for the \ integral and error estimates.\"",2,1966,92,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.7891816962248783`*^9},ExpressionUUID->"377af4d3-9241-44ef-82fc-\ 1eb17635037c"], Cell[BoxData[ TemplateBox[{ "NIntegrate","maxp", "\"The integral failed to converge after \ \\!\\(\\*RowBox[{\\\"1000100\\\"}]\\) integrand evaluations. NIntegrate \ obtained \\!\\(\\*RowBox[{\\\"-\\\", \\\"3.49349200325956`*^-7\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"6.663147782861314`*^-7\\\"}]\\) for the integral and \ error estimates.\"",2,1967,93,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.7891816995805273`*^9},ExpressionUUID->"40c45b6e-ec38-4893-a2fc-\ 6fc0de238661"], Cell[BoxData[ TemplateBox[{ "NIntegrate","maxp", "\"The integral failed to converge after \ \\!\\(\\*RowBox[{\\\"1000100\\\"}]\\) integrand evaluations. NIntegrate \ obtained \\!\\(\\*RowBox[{\\\"0.00014633053496820533`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"1.8343013673357`*^-6\\\"}]\\) for the integral and error \ estimates.\"",2,1967,94,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788754171503721*^9, 3.788754276739887*^9, 3.7887543072502337`*^9, 3.7887543828034477`*^9, {3.788754550312025*^9, 3.788754571437872*^9}, { 3.7887546268907623`*^9, 3.788754644633844*^9}, {3.788754764151052*^9, 3.78875479282273*^9}, 3.788754837662672*^9, {3.788754875962021*^9, 3.788754905211553*^9}, {3.788754949807844*^9, 3.788754962225094*^9}, 3.78875499755744*^9, 3.788755037494656*^9, {3.788755075106717*^9, 3.788755098308752*^9}, 3.788755450266158*^9, 3.788755507666194*^9, 3.788755541446102*^9, 3.788755585258584*^9, 3.788755649974276*^9, 3.788755730308961*^9, 3.78875885134765*^9, 3.788758897255179*^9, 3.7887589400521603`*^9, 3.7887590255024633`*^9, {3.788759073746476*^9, 3.788759117381001*^9}, 3.788759246187455*^9, 3.788759298201056*^9, { 3.788759379210478*^9, 3.7887594070148687`*^9}, 3.788759577986047*^9, 3.7887598050718*^9, 3.788759887748308*^9, 3.7887600693245583`*^9, 3.788760170307873*^9, 3.788760395912381*^9, 3.7887605416188593`*^9, 3.7887612650329847`*^9, {3.788761331068108*^9, 3.788761347355794*^9}, 3.788761445782086*^9, 3.788761639828516*^9, 3.788762070709216*^9, 3.7887621055093193`*^9, 3.788768197696616*^9, 3.788770340196597*^9, 3.7887704308140182`*^9, 3.7887705695562353`*^9, 3.788770718422776*^9, { 3.78877092801632*^9, 3.7887709567044163`*^9}, {3.788771033968087*^9, 3.788771084332984*^9}, 3.788771135720726*^9, 3.788771190506216*^9, 3.788771361220882*^9, 3.788771463134108*^9, 3.788771501161683*^9, 3.7887716869274387`*^9, 3.788771777350191*^9, 3.788771978766448*^9, { 3.7887720496620407`*^9, 3.7887720845916357`*^9}, {3.788772184433728*^9, 3.7887722108803053`*^9}, {3.7887722751283913`*^9, 3.788772291797597*^9}, 3.788772459172256*^9, 3.78877274428438*^9, 3.788772799372734*^9, { 3.7887728334749537`*^9, 3.788772862534374*^9}, {3.788773603890634*^9, 3.788773631893571*^9}, 3.788773749076519*^9, 3.788773993008655*^9, 3.788774033692359*^9, 3.788774087388546*^9, 3.7887745199918127`*^9, 3.788774686824642*^9, 3.788782829804287*^9, 3.7887832261839247`*^9, 3.788783354056438*^9, 3.788784056505471*^9, 3.7887842980290003`*^9, 3.7887851848259497`*^9, 3.788785301424593*^9, 3.7890907431741447`*^9, 3.7890957293487177`*^9, 3.789115387956821*^9, 3.789115698143293*^9, 3.789115734313919*^9, 3.789115842119275*^9, 3.7891173538032913`*^9, 3.789180992436143*^9, 3.789181328357545*^9, 3.7891814225153103`*^9, 3.7891817027800837`*^9},ExpressionUUID->"7e243081-5773-4b83-ba0f-\ 4e7aed475d0b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.9999999999999999`", ",", "0.9981759989064056`", ",", "0.9578296901357823`", ",", "0.8664009870513042`", ",", "0.7562484458526902`", ",", "0.6480170777711862`", ",", "0.5500024812188543`", ",", "0.46451133865041816`", ",", "0.3913335105796958`", ",", "0.32931114477830525`", ",", "0.277019206109901`", ",", "0.2330511444064224`", ",", "0.19612942103994535`", ",", "0.16513846826202022`", ",", "0.13912408041043745`", ",", "0.11727932473162006`", ",", "0.09892614971959518`", ",", "0.08349678864431469`", ",", "0.07051666531226429`", ",", "0.059589385456668024`", ",", "0.05038388111340272`", ",", "0.04262355299661562`", ",", "0.03607717493541928`", ",", "0.030551310043723107`", ",", "0.02588400348158663`", ",", "0.0219395432407871`", ",", "0.018604109601246744`", ",", "0.015782161762840155`", ",", "0.013393435044035007`", ",", "0.011370443506758537`", ",", "0.009656401013642367`", ",", "0.008203488877728524`", ",", "0.006971410826533191`", ",", "0.00592618637023061`", ",", "0.005039142200338596`", ",", "0.004286068266187291`", ",", "0.0036465109493521203`", ",", "0.003103180504566333`", ",", "0.0026414538439360515`", ",", "0.0022489569614640107`", ",", "0.0019152139510345769`", ",", "0.0016313517646845226`", ",", "0.0013898516720494876`", ",", "0.001184339884013428`", ",", "0.0010094110490476173`", ",", "0.0008604793647331768`", ",", RowBox[{"-", "2.7143824902430313`*^-12"}], ",", RowBox[{"-", "2.336869090339057`*^-12"}], ",", RowBox[{"-", "2.011481708140598`*^-12"}], ",", RowBox[{"-", "1.7310998608500638`*^-12"}]}], "}"}]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.7891817040964737`*^9},ExpressionUUID->"7ae0ca2f-3044-40e1-830c-\ 95ac5e11dac4"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.6, 0.4, 0.2]], PointBox[CompressedData[" 1:eJw1yWtIkwEUh/EZZsFSCvsgsQ+1QjJCc5eaTd3/3aZuEOQFhxWhLmyFLRMn DQqbmc62GovBKoMJSaZUY4tGbG2Bqeu6xOFwUV6CishRWjMss+tOBw6H33k2 qBvK65axWCzen/17EzMr+fVvPknoAZN18kna3H+vRMpNRZOp9yN5NTTH0q0W 7wx5Lb6Nhmdz+O/JGWC97Nxt8b8hc5DkdYccl1+T16NjccXQed8EmYtHuY2e K+wX5E3I/8mkNqRHyJngP+wddPpGyZsRcD5wO8ZC5C3o5NnGhtY9Jm9FsEsy zWwcJmejr9lbPfp8gLwNIq7Impxyn5yLWGiwNq/CS+aBXXuuj13jIfNxN6yq qE29TRZgSta0eOq0kyzEDxXT9uFpP3k77CNlnIHwNfIOjHTNczz6q2QRFpq+ eMYV3eQ8mC8Nr1G1dpF3YmZfJFx23E4W49a8uD++ykbOR9zf8ZmXZSUXwCD+ Wp981EwuRJtwecYBpZEsQSygEfiDbWQgI9Pcs/TMkLABaNdyoqmWk9QZuL4f NKUV66kziHYLGmI9OupSXIy0uuSWRupSKJPu9CmntNRl6NUvVo3XH6YuQ2d7 /J6xp466HIKZHJvmiJq6HOqosHypppp6EW5MWB1q317qRajcY5tsHlZRL4bV rJWf0FRQLwbbdOhV8Gwp9RK4uC3783i7qJeg4G1soXDaGEh0Bd5dqCrNspxJ 2KDAda1YqnO3UldiLs3OZOtaAr8BiojrKw== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {-2.7143824902430313`*^-12, 0.9999999999999999}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {-2.7143824902430313`*^-12, 0.9999999999999999}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"nocorrection\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.7891817042661657`*^9},ExpressionUUID->"ef21d290-0dbe-414e-b63a-\ b4321b73df8c"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVVnc81f8Xvi6uzd3JHqlIw4iM+3l/iihFkVCSkRGVClltIRFJySgNkpko ybj5HLOlkJIU8bUK2Xv++v11Xs/rOec8r+ef5xxFl5NWbmQSiWTGQyL9v57v Mx9bXtaCE82xDT+5rnm9Z9mTPxa04HKmRHZbmUeeBfXX9KtZLUgPS3+fp3os T0Hv1OLJcS0QPFvHFH9/Oq8yMk6wo/cfNvi2RzHsQp7ghm9y8FELXk+m6R04 cyfvtp/Trkt3taDt8qE+Z6u3eTk8vo9JulpAaAsXBoWrP+N3M9Vc6aAJh5ad eMN28OUzWmqOp97UAMHbrM/C/PX5VlXJR1TfbwLOLh6FbfO3Cs4Oc47Hdm2E wl8Kv81SvJ4XByR7PduzAVbsrN96VULrhUXcfoWlJHU4iPOeJumLFpqmvLbY MagGvgVD3VvudhY+eRPU7GuvCsNuH84n3c94eTj0Nqs+cw3A0xc6250vFV1w 4s0TYayGtznnpT28d7wirZcnjMJWQanKgwMXn4sXt0YlXc35qgQz31j820a6 imWEj2ZNbFOEqsmrN3xbc0qObVbj/yEjD8XJx6/pyIaWHtFtz6yqkoYX8dfn +gPtytQC9Ze9H0tCl3KoRABZgQttFmpddySBrC876B2qxLUxOrLf9pok1GQk LE54qXBDxK/nIG9JUF5Nm1fOUOd+f9xmS90iCRX62rkTaXrciMZL+QUfVoCg b03Y7ghrbq/aG+eJMTbI7x1P1d0fyT0X++P60R42ILN1rxTOxHDpU8Ovfn5j wyHKbnGdlJtcrEJSvIbLhpCTFftdYxO48bZepfHhbBj6SV7nwErnqr2+0CMU xIbVfsFHZpwzuaB0i3rhGBscjJXP8mnmcgf/lrm772VDeOlmJjQ/54bsa7jZ uo0NW4ufeaCql1zJkm6uxWY2nNNKjqHLlXCNQ8UYulJsCNUoyxNOBe6pPTqe 8sssEK3XXpeWXMO9K+VICHSzQLb12bqAgPfcTZd8+882s6D/xh9Fq4IP3Nqe q6yRtyywli0vX/R/zz206x7uWsYCwdiNZ17KV3HH8vOPtTxlgV9x/rVymVvc CHbNnd0PWfAuYPqI/6NGQ7lz3ysgjgVHB3tDogcHDAs7/w5qh7HgPs8LdRUD EsfMlCyZFcACVRXhyL4+Kqcjl20k68WCLr7foZQcBY4/fZ33zUMs2LUQ5SlU u5EjGoiS+PewINC/p7Uuh8N51LavOmjrv/nnx2N1LXZxNLs1575os2Dk2JmB oE5bTnU/bdOmtSxY8r4XhRe7cvaPjrhFSbNgMn/NKbXW05ze6fq7veIsOJtV mDB/8wInYCmvcSuZBc1i433R/JEcQf4YgZRJJnw9MPPwEeUOJ0nkBGfmNxOu Fa7VEIhK5ajRd/vu+8mEdi2hc1fEn3HKJNdl5dUzof7d2A/tXyWc3fLCv4Sq mGDDE+W2dKqG06byh+lWxISy6/nc7KeNHG/1t2aQxYRShzYil9TGWdbMuCSd wgQdoYYiy5w+TqxeeJF/LBMCMnbTe3XHOYq422DjFSZUeNxb6BNd5jw3MVZa H8AEvfs1jz9OCGJG5sp2EV5MwJ2uKf+cYGBf9pFjuhyYoNlBOm5SIY+5Heys wiyZsFXm1dW/SqrYlBPMJhkz4c6AZcLgBy3sqseDjZO6TGBw5LbrUBAm6X3B be86JrQur6Y3btyBZfs53M2RYwJq10mESivM4KxhI4XOhOd6Uek9E4ewusvS Ai78TEjfmnaiycAdOxwxZ/h6hgHHPZVzdBdOYcMx330kBxmwVrL261BjEHYp vjjT9xcDnJfdftwNv4LR7iW0f/rMAPLfI4O9ztFYaqo/U62WAU3Q+PjrUjym lbXfLKyEAaMbXpS2OT/Eqp9pX+rIZYDPXhGFZNNMbH8Ro8jgIQNC4m5q5PYW YL3csYE7txjQHft9x06jUiygqlFxLJwBjdF/LcfVqjDB9/m25sEMWLilqufS /AFLargRnXmCAXVHPnhmyXzB1L55V/E6M+D2GzH7mT8/MW6b+exhawbQA6I3 1j/txsy71TeWmjLAoyb31Y8Tf7H2fhE3lgEDXlqwHd58ncBOjfYnn9rAgDMl U6vUDy5iPDPvGj4oMuD6WMvljXF8KG4pk7KGxYAnZsuEQr4oUuaPMAwRZIAM N9VFpo+BCkU8fNrm6aDDduX8DpJG2+kmmVuG6fDIfHNCQbsSapZUab/1Hx2m fd5ee/JOFXnI8zGHv9Kh2MqzRylCA82odO00e0eH6BefbF680kXX1CsvpnPp MHNizYbQQYSktB69JOXT4eHal+I2TttRjt6lAfs0OjQw507ePrsbGeKOiq/u 0CGfL0rJrNMKfTTBbOmRdAhsltbA+uzQYXPZ6BPn6WD6if3WztYJDe9bqHx7 ig59DxP0vWzc0KWDP2aUXemw66+1eELxMURzLt1w0ZYOjokSY/H9p1GqR5Jr q9k/f0URug3CAUjLOzB5M0YHf+f5Ys6586jaz7YhVoMOsSvis2RqQpDNWR3K 4Kp/egImssO1V1HfZZahqSQdOF/FVDuno5Hw+WfDt4TpcD1XqXODyi20IXBn WscCDYa05lxNLBORlW+XzfphGnBcUgqOFd5H/t7nhYM7aZAUoO+5bXsaSvZc UV7bRIPiJlWPOpFMVO5acJpRS4PjIRVLIl+eov8cd6k4FdOA33HlWkPX54hi 39OSm00Dbd3Q5JaoIqRmc/H67D0aWN5990shuAxZWK7ETW7Q4NVck4FYOiCf 3S/G4y7ToPWr2FNZ0WoUb2qe8cuXBuafO6WWSW9R8ba+g+ruNOiJ/eWSG1eH fnIuiwfZ0SBt5lgf3+8GRNKTrqwxo0GX0iNyRVcTWqX98gydQ4MnbnPhZkbf 0I6Ne1QdN9KgIsY89anoD3Rc7c/PHEUaxDVvC1g2/oViVa7EzjBoIMyY5RGd 6USFCrLG2yk0+NOgm6sS0Y1apF9N35yhQphfly19Xx9aYFvmtPdTYTE9bBXD rh8ZiYXRA+up4K4f+OHjlRHkLihfW11BhbRNT9fY7h9DkbwlQbRCKvRHHZL1 MpxAn2cHO7ITqWC9g51z13AGufRaP2tzpkL1Hn/9EkTCwzuHXNSs/+ldcmPc xnjw7J8R7AATKny3YvdEapHxT9+U3ldtoULsHZ/E29K8+Nhn7nnqOiqckbw6 +macF2d/stFwkKVCSmpIhXcJH67/bqQ7S4IK/p50Q0kvfvxwdWTiFA8VXMRc iCxeCk6+uDMx/LcEmEUf8TwRSsHNzpxflv8oAS7DD37LDlDwm8cK3EsKJCCw rpE2rCOAtzj3fLS6IwE97g+64zwEcAW7lZsHgyXAhsDr9c8L4EctzO+FOUpA Q3j52vhAATzf+DKvvLEEzL55xPPmoAA+o//Sq3itBMRZo5suKgI40vjTaCkm AT+MjTIPtlLw8DWyegOj4jDOs/x0/CwF/yRr+TC0WRzcZH5UPRel4GxmmIBc mTgcGNEv3nXjnx/hEu9XD8RBVuZJQAyFH39C+vt1b6g4+F3WzbQ+w4f/nVLg 9B8Vh/Dr2dRT7bz4ua4IEVlNcVBcdSrbPZuMV3/n+hSx//G6jm6b6WRctGHk +555MdjHtfFWu8CDW9eu2vrnlxikpaiOq4yQ8Ltcu8yQajGoHp1pIjxJ+H/P r0vIZIlBxn5JqaiWZaSWBf4vo8XA72XNgN/oEvJ5MNFm4SMG9eKiaoXyS6g0 fu323zZicDZj3HeL6yIStO87wmMoBrYpV1rxygVko/AkRErx3/6knyXaOgvo cY/rIy2KGDQ+MP5RTsyjsWxl2D0gCjezkpSxw/MIP/Vfu1uDKLS2GlY0UedR zOZHixdeikKXI5nvdPMc+jnnKJOYLArFshFB3U/nkCrIGRRcFIX8U5JLPfFz yD+s7cB7V1FQF98UoRg9h6rN7gV27fyHd9ddw+PmEJ1qn7CwQRR2fp74Opo2 h5y+rixiMUVB1L9daATmUF5yy5cNsyKw++yqq5Tfc2jBMWHctF0ETq4sXsGS nEdmKjZ05yoRSP5udoi+dx4l9jM1gjNFoFrQZJ3YjXnU+6xpz61oEfDIkxVa /2UeaZ+J8871EQEJ0r6uArkFVL8skdtuKAJ2KfGVhysWkEzNp/fTiiKQvjlq 0l9yEXlFRv+hCojAY7shuUafRURhiawxahSGHf4RReMbl5B167vth4qEoUfh wzbtuCWU+iDC9cxdYVj3Pc89bWoJYWqU1Aw3YVB7NCDrX7OMziAeWdE5IXDZ /F+yOpeEV/KBgcovIah0X85MnCDh1PcXDmLVQpCippfTuJ4Hz7VeSDgVIwTM mh23MlJ58G7PafpXJSEg7x3YNx5Pxq1u/xW8v0sQfsTziz54zIc/PJC75tUm Qaju/PzmSD8fPiR3zKSBJQhGqDOCqsGPR2b9vkLuEICyGMV76yr48YryriV3 PwHQ7Nw5kD5IwTf9+T6xMYUCuWTJ56I+QrjfyHrVFaEUSJiMCnOqEMKLpy87 LHlRoLazwjySJoxvpajV1m2hwMrS7ifWhcK4lXJwgucXfjDR/Ytv5xXFzzhI 6aeJ8INRxuFKVrk4Xurq7R05xgePU3Z8/syWwJeOVaae/s4HW684RIWclMDD g71E8Aw+wHM224pRqXhiQunPn9v44HfzvnZLLhX/eV+cVq3KB6tz/dZW91Bx hScu23Oo//gzaJeROA3PKhTOC2rnBXKCo3aePQ0fKjv8n1MN77+8KAjUvETD Naues3fk8sLA5iDHiVQaXtp48CI7mBeSeTJWav5Hw5da8l4sOvGCXIxBsfIS Dd/WQf7dbcoLgQcH+rAVdDy8z0ambgMvhKTmvtFeT8c/DGXvfcHihdXVi9ov EB2nTi2FJi+QYbTXfr+bBR23XrQqudxFBj7TUGzCjo4n8mX8PfqeDM07rMoF HOn4T5F5xb0FZDgxZ7nN1ImOKzD22OgmkuGepmn7wUN03E0qLVLuIhlCYebk oBUdz1acLud3J4PV4ci2TCM6PrR21/jgbjLImdz32rqBjmtuerDmixYZer84 yZ+g03F/3XH7MikymBy5YdA//M8vZhqbykOGWdPIvIu1NHx5+93qa795QM7l 3vWleBpubD48c6qeBw7YdgcaHabhEdZG6+2KeEDNHuZ05Wl4nX2CM0rhgf1H 9rxsaqHi1CMD8atDeaBn860A2Sgqbu2F3osd4wGPAj4ZdR0qnnT61tKEJQ+0 fKcctiiUwJUuGXhUyfPASsutdbnS4rj71Rt3syk8EDZQF3XYUAzPjumqv/mX BLl3tlcEW4riWilRW5zKSNAena7455Awblz6Q2jRhgQHgmxnmFIUPC87Xe+N AQnqKlpWJfXy4ZJ3T3reVCCBT1gW+WYBL948TYnb9WWZsLEdS9pl9u/etSSP /kpZJgp/XN+bK03CL5RssPTzWCYuuTeQHHoWkcpZG2rK3BKRwCHwuydn0Yx9 /0mN6iWiwCm2+IDlNKozvFBfE71ETFxOZ+zbOYkeytI3HrRdIt6mGt/wOzCO /JbSY4YUlghGe/Nb8yujaMcvvaGQ/kXiE+7yWi52GEnDR/MVhYvEtqoEfIXl IKq8PCmKmy4SxoJeT73P9aI7LteOf6H+6+8IF8js7UKeRrJ1R1sXCMEdx0El ohMZripYt5i2QMwVnqA2l7cjKv/2qJsnFoiJ+4oY7Wsr6u5p6VfRXSCin+qU Hrb4hoprj5uVkhYInk9n58JUvqDrGaRsi/fzRFOH8p7v1o3IMeK2UNeteWK9 d7nUi9yPSNNzrWeAwzxRuY5Ff2b6DlHMuG9F1swTd9SDglW8a1Cr2t61D0fm iD46bpvFqER5It1XtUvniHRjqUglu3IUMhjQ9/bKHLGGT38Zsy1B+z+KmDqY zxEv+8efGIu/RGvzHjwZZc8RfCeHbKSOFqCFGC1KeMcsMe+h7a+WmosaTr5x k8qeJdbrDIkreGegtL32NXm+s4TcLdGNf+lpyF9jeJURZ5ZI7qB3yvbcR2b0 K6HfKLOEPV9LoVZ3IpIbZ3cfa5ghlr1dxAzHb6GxpmwjUvIM4Z7YWcXTcAPV FmJpt4/MEEx1pKZhcA0lxX8mq66fIV7/t1Ay33cFHfd3d3k9NU3ME7L0cOwi wm3nKixhmphivmntOxKImFtiFHuvTRMo2cFuz4gP+i2pdDl43zRR1qjzRWPr CcSdfdkhLjtN1NxuPOka5I5utO7E03qniAhF1XADdWfkUtb2QDd/ihBpX1Vj J3UQ6dw7vfwhaIq4tCTQubts379/mt/RyWiKyG14px2WY47aHJLKJ0SniJad 97VebTRB+dh6uWvNk0T05phe6Us4CpWvOC/7cJJwdhn/NHV0C7Ij7W8r8Jwk QnbrKFMnNZB6529DE61JwnRf3MV3JmqIVHnuXuvCBPHJlzcmX04ZNaVSF7xr Jwis6eNV1Vxp9OTKY3ve2AlCyV+F5tbPQMGuW8oSDkwQpNPp/Nohoshie52U uvIEYYWfvNlsxoeUVjsFw+A4kfQJ7b9duoBNUSa+WxeNE3QDk31OehPYu76r en8ujhNxj4Yfr7QcxO69lU46v3OcmBBcSWks6sJOZT2boTHGCXvib9iW3T+w TeLeV7Z1jBG6717v+GLchI36qIv7Ph0j1qePW2rSP2DPv/UnpgWPEWlB/OaR g5WYj2GW8hfTMWJt2bkOfetSTOuRRx4fa4z4arg+QUz/OTbBv1pv83+jxB9G GbdDJgsr9Oqucns2SpidvnbOSPcRdqY+1eLOuVGCUeLghs4nYDrazt9rd44S 5efks527b2BTifKu0+xRIl1+Zbt3VBhWtNg2tKZ7hPja5cU4MX0OC3C5F2RX MEIovw5puuHki215c5Dv2oURYmZXNa5f54nNrFt5o2TXCJHaUjxfwHbGoicf FWDaI8S6vqaTC9qHsP8BQff5ZQ== "]], LineBox[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAA5hS8nIKX77+YZY6iu7NHPndHoolY m+6/rd1yCX4xMD74EB+fuTXuv+cIwNDt0yQ+edqbtBrQ7b86N5OZG6gaPvqj GMp7au2/wH1+EmX5ED57bZXf3ATtv8tpNGW4ggU+/DYS9T2f7L8OtxYf8B/7 PX0AjwqfOey/wErRenwE8T3+yQsgANTrv3/0iYlNP+U9gJOINWFu678JFJ2b pGXaPQFdBUvCCOu//1UjuPdQ0D2CJoJgI6Pqv+LDobgQEsQ9BPD+dYQ96r+z 6DWR+JC4PYW5e4vl1+m/9uETen3rrT0Gg/igRnLpv6CkwYowIaI9h0x1tqcM 6b9u9kUNotyVPQgW8ssIp+i/Q52dqzw7ij2J327haUHov3x0aCReUX89Cqnr 9srb578XmpX1MZpyPYtyaAwsdue/a8fTjzL9ZT0MPOUhjRDnv9uKPATt3Fk9 jgViN+6q5r8JmMM8mEROPQ/P3kxPRea/uIs2S5OfQT2QmFtisN/lv0QUwLN+ azQ9EmLYdxF65b+lNd4U0oonPZMrVY1yFOW/DVDkQrYBGz0U9dGi067kvwqH r3qK0w49lb5OuDRJ5L8pbJkKWoEBPRaIy82V4+O/UbYX9zbI8zyXUUjj9n3j v95IRIFMPuY8GBvF+FcY4793tY76x+LYPJnkQQ65suK/5jB9o/+zyzwarr4j Gk3iv+/t9Q5ir748nHc7OXvn4b/RvhTctOiwPB1BuE7cgeG/SUEh1cqKojye CjVkPRzhv6QQ8AA0O5Q8H9SxeZ624L8odih3tfaFPEPOVknB1t+/rae0XdF/ aTxGYVB0gwvfv7BdUy3SRFs8SPRJn0VA3r+V/60B1gNNPEwaPfXJqdy/ymKo TNctMDxWZiOh0nzZv+5SPXOA8fI7inFziJK12L9y0yOhUrfjO718w29S7te/ k3A6pdhr1Dskk2M+0l/Wv2xERNecl7U78r+j29FC078XpqLkrcZ2Ox4zSCyi Ecq/9OE2AVIU9DqIxvrQWB+KvxEH5+JIvdk5xe+Srg== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S57vQa9iQr6mhpWugc3BUz/bL/foHCX 8GdrcaYy0TspkgwOi077r3xVe5uTnSegMekdmwMDFDQ/uOZctJgXzt8wuy2g 7pMgnJ+/KEXgSZgonB+XNUu2vVECzu8MLLM0niMN57OITH1W/0sOzr9+uvVD C78inB9anWQ267ASnJ/D/VrpXJQKnC+/+tg0tleqcH71Dudg/tnqcH7Bspxt ZvqacD4Pk3mS3lMtON81N2Sq1mQdOF9ip2y+q4oenD+pqGOiwXV9OD+ozV93 7jYDOF8ruiV0Sa0hnH/tGeeiyaFGcP65pKeOQvLGcP5DluU/pioh+F+WZayX VEPwJV+/llHURfBTij9917dG8H81/1/rG47gqy2VlOrsR/At3W9f4JmM4Pu8 nNM+YRqCX6ir8HX6XAR/z1a1C8tWI/hBx4zbjhxH8FMzvtp4nEbwK7i2fz59 DsGf62eVePkqgv/imoPNo8dI7q1g+pz6HMHnlT6y8uUrBN8o3l3840cE35WR 81zJVwQ/YvGplh8/EPws1x7rmj8Ifu1z30///yP4AF4Dqcc= "]]}, Annotation[#, "Charting`Private`Tag$57481#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVl2k4lX8Tx63HsSTLwbEfKYTsKpz7/t2yRZQi+leIbCFpoQjJ3qZkTSlL ZCl7QnJGZEtIEpElUVT2NdLjeTXXXHPNZ77feTPXyDidOeTCwsTEdJ+Zien/ Mei7xey/f5oQ15AVpad9r3DssvBC35omNKrsG4ntfVC4n29w6cWKJvjKFb2x CE0rpOn4/D0zpwnLNw+aVjzKKnx9/S55aEwTuG9tv5Bzs6SQrPJJCt5pwpLM pH6++dvC+Asn9oXc14TbB+wFo+/8LcxnPv+YaZcmPH8UPGlm41jE7mKiIWqn ATp21vHtT3YXC/a88cqIVYfOKZ1g188sJYfqUk5ub1GDqCdBqqOmTSWXpzCv OyOqwMUzpf9HOa204mKKR+EBFXC+/43rqJJb2f67h2nr95Th3YCHSYe8/nOT 1Ff79/5SBJWCsqoWV6Hy7Eb/7vPHtoOWRWv5+vP+cvvweKH2HHkoPapLKI6X vgg+wVrALSgHUzuCPQ8UBFUw7ZBmGERsBW8+oxT5Yi+dzzfuReV/3ALE+VIn o7Z1XQku99z5PTKwoKGK/Zsj6PY1rTe30GXgiYBXfyXViJ5+Tt3HUlsGnB+0 U1/SzehyfX92PpWXAbNb/YaYvjVd9emt+pM8MtD47W6K03EP+p79pYOdH2lg J/AwLt0ylh7OQq1jaqeB7wlQ2+uXQG8sD8xWaaJBforJl/LAFLq5tPHp61U0 4GAyVX3wL5Me8yHPsqKUBuK3TzFNFuTQ30dt1hp7SoMXPNOlCkcL6DbTPX/0 H9Fgdbvmj8yBcnryY2zgTPIGf0zefpW9mt53JKM2NXZjvrbOqJlKLV1qE0fW 2+s0GD/rNs7D94Z+otYzeiWMBte65vxT3zXTM3w7POWDaCDXGic3lNZO/7Zd +8BhPxoUFk+9q7X6QJcbuKcRdoYG6SZUskLWJ/qpu+tCxe40OOH0va1irJ/+ 1PjkyoAjDVRqR68/fjxMn/zT2M9zbIP/7GDAs+ujdLVCZdC1psEjZ0vzaaMJ +rmTsZnuFjRYSBGs1mebppeJLEYmGtNARPBO0/GwOfrS26Me9YgG8pN1b+3q lui6IQyL2d00SDu4J81+Yo0eqLVVnaZBA8ecukufE5ixmh/RlP1KNDicUttv foIdY079vXR5Kw3sKaGF2cucmOHBQ325kjRwH7b8+idqMxbJ/qLmkzANOgdE zj6REcSaKsUz2PloUKQgrbFfUwTj8g6J0OSkgfHukE90KQnMfMuouyMLDQKf S6ee5JDBpJ7FJUstSYPaTcty69StWKaQnUPAuDQYLFzbkTCtgCkEy8l190mD c8m3TW3yKtjTsalf6m3SkB7Xke+xWwNTP1BZegukQTenOFCeeSdW/iI0YLxE Gry0aY0at3UxXZq5vlGWNDxs/czex0ZgjGghcnqSNMw8vNbRccAAM5wZaFu7 Jg0Zv08yRRuaYM3/5SQcCZSGJW5x9ig2c2z/67PHy7yl4ZdAfFJHnyX2QVFP ls9RGrp7jiWXGFtjR+LYJjytpOFNmIivscMR7Mvqu6JGI2n4z92Yx8DEDnNy Troou1sa7APwIw5xjthY6wn8iqI0cM+3R1YJu2Ce2orsfRLSMKS0T4lsdgo7 x175xG+zNEwoDPtZa3tjAR9NzARYpGFlSd9MkXwOC83q/vVsXgoufhtJawvz xa77utw2/S4FBmESyjNP/LG7RvPqo71S8El52KwgLhhLEQrrCmmVghNv/CsG tEOxjFH+ixIMKTgSn5BX+iwCy3ueJlpRLAWL7361DLRcw0oiVKutHkuBWJmJ 8pn8GKzqcI39VKIUpHKbljnr3MVeb7NgvnFNClJIXZ/3ZiVgLQt9mXKBUrCp hWI1XHwP63zjYfzaWwpiDshJz19+iH1OWPlh5ygFuzguXs8SyMC+ukTfWLGS Au1PkzubPbKwcW0RlQRjKcjOHtPIscvFptmzO9R0pIDDJv9uNKkAW/6odb5V SQrq38rFF74uxpiy64TcpaRgL2dPf8u/Mozsd6iClV8Kmho+lgZ0VGB8xsNH H7FKwVyS48CR/a8wqrDPX91FSfj4toqau68Wo42tP+r+IQke1avMO9zqMYXy W3vO9UlCU+uXaSneJkwtUmJ0U5skCI+e+7TvSCu22yY/KhckISJA+l1lUQdG yOkqGpVKgpMa8C0+/oDtXWxqHcqShJLqlqAC8U+YZYPtmcBkSairVvdvVezD jiSO8VNvSMJPrzH11p+D2AlX37LSIEng22yYL1fzFXPbyWZ7wEcSortXfhz/ N4p5k+JWJpwkwcespzb03Tjm1y3zIPKwJIgNRXx8gyax4OwifMteSXA02Lsz rGIGi/RDw690N/qrDvZpwTwWY9wW9t8OSVBUPfyVyXQZSxS2k1uQlgRnZXeV Rrc17OHYz6Y7ApJQT0m/YZPChGeXB3gqs0vC3U/3ldpcWPGCSE7epiUJqO3I 0PDIJuHlNslFJyckIEiKdqnJmwuvkZO3+tcvAeciXu107uLFGxafL6S0S8C3 FOUw5mV+vK3BMHnnawmIZZsroE5R8O7ED7qdZRLw/qz4qR8OVHzA1enL6ScS ILPtia6dnQQ+unPmCmeKBES5KTA9DKbhv0ghW7JuSkBOjXW1kbIsPt/N+4a4 ssH31dQnGcvha9mpbv1nJSDh93CgY/92nO2iMtclZwng6SdV7mVRwXlMXj4V tJWAmlOKMVWu6jhFxOxAoakEJMapS7oqaeES33tmzOgSoJ4iRjtltwvf+sIt fkxFAryLwmqENunhylGLO0NlJIDqFJQmYoFwLduIXkmKBEQ0b4o9KboHp8tT AitJEvCjxrLB4KchbriUIXV4RRwwVPWJqrgXN29Ur53+KQ5yj/5qN4zuw62T 4OTNAXGwzQ7R06Za4sfdDpAU3ovDDU6ytM3tQ/jJXQM5dXXi4J2lFkZ2Poy7 5uyyMX4hDkMTynyrbkdwD9FY1uY8cbDOCorS+3gMP319omjfQ3H4nJU0k1Xp gPusGti3xYrDoLbfQ08BJ/y8Vyr3wQhxqHK8/lY93hn3+7JY8eGSOCRd8Arn 9HLD/fdbutp4icPm5wMhAlkeeCAjV7DXQRxMIK/l3T5v/Ioaa+0xK3GYbC5p k911Fg9NP+49YCwOR2d91rfEnMcjBMrFHXXFgYd0gKjR9MOjwzY3j+zY4F17 Mv1V3R+/Me/u5yojDtSmf9PFcYF4jMtr2XGKOMQMeNx+rxGCx3aLv/cki0PA lkvW3UdD8XgT3+DJVTEwsLxm/aI5HE+qaFM6OyUGiqx/XqhHR+Ep2xV6576K Acftb8Fcadfx1JSrkX7dYsDZHSykLBGDp3H3aa40i0Fv+Y3wk2yxeGag1vDl V2Igm2ou/FInDs/+fStmvUgMirQM9UufJ+B59t/1rj4Wg9xrOlm1Icn4s3Zi nDVZDKYD2vZZPb6PFxEpiZE3xOCun4DPd8VHeFnxnAHnFTHo5LK8InwnHX+x xWLmxjkxUP0xHxXblIlXxWU/5HUVg1DjroNSxtn4KzYm89j/xMD9nOdCHV8u Dr7/rQhaiEFl3IdKL/WneN1YSXYiIQbdQezNf4sL8QZbHmtRLTF4Elp0r6Kt GG9ucmF+IC8GPKcq9Fb+leKtOowCKXEx0PGPGAk+X46351GPp/OKgZVwk2yt WiXeKX6OcyvLhp7M2UZWohr/ePNtefaCKDS8GzzsmcfAe/5udd4+LgolrS7V nK9q8X7vYP6n/aKQN3qbIfilDh8c/FSj0rGRy/fcCNZrwL9aqnsV14kCv6si gzrYhI/VXhfVeiEK6dFPspzb3+LjGt8ayvNE4VmgSUwupR3/lYld0HkoChl/ F6xZj7/HpyhJMtWxohDEjrfUOX7AZyOm2/AIUaCkD1pLpn/EFxZNA2sviYL9 e/asrbQefNktc7uhlyiIut8Tuzb6GV/tWetucBAFz9v/CWQuf8HXTW3CTa02 5jlqldUWDeHMLwvVW41FQW3mtWxo/FecTZlzcL+uKOxS7ig4/fQbzpHqdPP9 DlHgffe3sfvvGM7FW61jLSMK68mHt92NGcd5rwh976aIwlivtyGLyy+cf9o7 /j+yKNg8ifksGz2FUxyb9PtXqdCo8Cjt3ZUZnNopM2U/RQWFYYdLw6fmcHGD yw+Gv1JhMvD4rS+RC7hUWZepczcVnlfvpr/qW8JltqksjTVTIZQ5WG369B98 a2LU41OvqODafFTK2eAvLs8xfPBXERXYbbbeN1FnQoqXdP95P6ZCiqN6ITbO jODLfsWRRCo0zN0yjV5mRTYGJw/bXtvQ03TWSVmfhH7lXAx5e3mj34IRxtJM RqG8N/ORNxXyFN/Z+iRyI+qFtO7SE1T4+WOt6kIRLyroLWNWsKKCsbDz0aOb +ZEhalZ+YESFlw/VS+vnBVDv4y+2fLup4JvYGcyxSQh5c82GhitSYbt0hZ2Y nQhi8yEVLEtQodqmiNdtQhSlfBTr9dpMBRHxqNTOKgmkpqfKNsxMhbP7ujUb u6RRQ5qB6uF5Edg2aW326JEMOk46crR5TAT0AyayxkJk0aynVwTWKwLXa9kt bO9uQ9HvQ4qK34rAM/Wrce498khqV0LfthoR8H98VX/WVhGVPcglpRSJgCPL a9AU3oHMWGrUeTNFgEPo/pfTPGpoyK3zeGiCCIwzzYqQS9WR37uxqMUoERCY 87iqF6qJeDRXSzwCRCA4ITzyUZA2ykjePDDgJQLPeVJ6KLm70K51WU4rBxEY oogGtZB1UevJ3VqNB0Wg2fqHrEE6HTk1mzvoGYrAorZF49GLCC2rOF4v3CkC NJPGfXJ79VFMvO9z2e0i8O8altK/vAdt/XNtKElcBPwaztzv7jBEVQ4PuXl4 RQDp/2K3/mCMxhQbHednhaFrDn/J47oPBd7pu+k+KgzNmgKFHOsWSGBx6kX/ J+GNf+9SCcndEuUcYxuxbBGGpD/HZ49OH0R4LZX3TbUwmI5eO+6bYoW65Hbo 6BQKw8+pS40L7oeRx01952fpwoA9ZL+aa2+LEmw9qhIihcG8MtW78+0xpPgq eJTTXxgG8k4595vaI9gSxxfsKQz3WyZMtwafQDbRT/Rm7YSh+Kq21cU5R/Tr 90tXV0thUBPjWZ6JPIlCrTpiP+8RhtqXsdoMXRdErfxWvV9bGCQdA0eU+N2Q YfgmwV1iwiDSd/hhs6on+jwug+fzCEOIqljfvqDTyOfAzlPS/4TgiJu2quDy GUR6bhYfNyMEr78HjiQePIvuizkwOL4JwW5u8+oJOIfUQs5PXO4WgnsTQq8q 9l1ADaNRQtNNQnDp/P5NrXO+aLaoyLPnmRCELhyV98j0R9HCbxLN04SgRZnt DbnwMpIK7K2Fu0Lwo7KXX3goCJUN//6lFSEEJ856TZ+RCEFmJizU3ItCQCXF //fD7ioaeipsIOkhBIk+rEYVz0ORn4CSd+xxIVCK7unV2BaO0r9Y1fvrCwFH /8lnry2jkMY3jT9dWkKgMdRTLzkTjeon+NXUFITgfKX5Ffn862hsqf3+GK8Q vP1c1ZB1NgZdXC94r88iBJ6Fg2a+xB1EZo/hSF2gQHIfjy/DNhYpCpift+qn gGf6hJ1LRRx6SVXKLWinwLn6HT4OrAnIXJprkLOOAiVpDDbcMRF5KzeZQS4F ehY0O9X/u4f+aTwJEU+lwIenQnySCynojk5kud8dCkiM/uhKfvIAlRgbbtlx kQIWXZxakoppyMBC9ki0BwXqR/807FRIR11WLDEjdhQIbS0YzNLMQIsnYOWe IQXC0wpTyy88RlFuj1QXdlFg2/5C5J+fhajewS6WShv61uK1P8xkI73L9Pck AQosKEVYFhXmotar4hxO7BRoqz/O7aWQj+yj/9BfLQtC15UwZrXSpygkoSLn /KAg+GTnQAFTEeJ/kDTQ1ikIz14KB3COFKGMDD+KYoMgtN9s4CprL0b1hVoh Q08FIYD3TMz+5lJ0uFywXC9NcOMfPb/tZ3cZGque/ZkYJwhJSfoP1aafI3JL ka1FgCCUrNBtKSYV6F7H7Vs5pwVBr19LwCmiEil+8q5jdRQEAQXL/150VCGL b8qqVSaCAILWlO7br9DABLeLkJ4gsH/JlLdgYyCfmYkUH5UNXoyYbZwBoLvr OSR5IUGwdQqrz+2vRd3UbQNxXwWgcdSw1tjrDXKTZqNMfRQAx6QswRvODWh5 24ipWbMAcLemOyGXRiSmmf6cqUgAPrm3d4aFNCN7C8lbp4MEoFMy7dhfmTY0 ZbX2uslHAERU/GbNHNtRyNG+ZVlnAXhYL5G8at2BMtzuOX82E4A7OVc/DOa/ R9+vCtFNqAKw+nd3nndcF+IKKpyK4xKAnm1HYgw8PiKVS6aZQ2v80MlfIvjJ uBv5eQdxBQzzg/Sz3ap6/D2IdGy052kePwS8a2mNmehDW7We+wpg/PDal8cy 9tBXtFf1wHYHVX74q+6R9Wn8K/JSHO/Pl+GHMG6Zd+FhI6iMJmloROKH5aIH w+2vviGDTRECl9r5IGvNGVHNvyOnMevCL458EP8kcY1S/QtFDk86KVrzgRrz +yEWn98orz9a+KIxH6gaa+4Y3zqJZjurg/iU+OChvcB2tdgpxHLFNDnyx2b4 ORRWZ757BiH18fcHN20GJqF/q+6i86gqQcHoh80myLjbedM4dgWRj30/yUzf BNMDMiGvhleQDS07VExmE/gfTH56Wf0Pms2TBfOfPDAatfKppe0P2g5SesVX eGAH6+TLOqY1lDxBUQ/I4YY0exGtSMN15IuYJXn+cEJ6nNHpl7rMxGs20Ns2 yAmzGlvnTx1jJvhago/i9ZzgI7lTUziQmXhqvZbkE8MJoze2UnxfMRPfTi0J fNzCCdcNkjRTCRbiUPxv8sN9ZGgdDXfFzFgJtfHeedVUElwedd97z4WduDC9 Y7tIOAmOZWemnQ9nJyqWrtqte5BATWvXfYlMdkKfpNjQupsEpX5z7xmD7MQh 2YCkU13sMNQ+vzf0MIlIVGx7a/mSHdLG5Wu4zpGIPvUtTLsz2GE8mEtOLoZE OBMt7iQfdviAqofn6kmEr52YbiY3O5xqVMmdV+Igqpy9va/PssHFhvo6aUMO Yt3zdcbZXjbwKO/dl3iMg4gM8OAmnrABSuxgI6I5iJarNUg+hg26Q39ZnEjl IDZfE7jA68sGkfIYnl3MQSQnVfX372GD6LYjRNAnDqL/IS9//XY2iMg1urL6 g4OgZTsZ5fNtLDXdttl/hYNwflbuf3eJFUanZL9OkslEbhlXgf8AKyxZceUc FCETky/tv554wwpdbVTRe1vJhEZdifDep6zASfltW61GJvxaSPtU41gh8+ed ohI9MlH1/ugV4QBWSK7bn3reiEys9xSU/j3BCu65l98uWpCJPUMsP76ZsILj sCZN6zCZiPxuI9GqwgqDlhyvZI+RibeTeZalQqywPn2XrcaBTPAtroenrLHA i6tsj1adyIT130OVV0dYYKAyIvijM5lIZnvy272FBU5o3xwxdCET/dyrMpbF LCDnxe1osFGnCR6w2ZXMAh1skUMtjmTCRSzzutQVFlgbXs36aEcm8mSWathd WcDQtsTK/siGX4V9c7/MWeAPU9dvh4MbftUeyXdpskB76+iXj3s3/O6aO/ZS jAXIXbyLL/ENv7jJnQxmFlB5pXaBV5NM/DO6X3/tBzMonG9ja9lGJgwtppZ9 2pnhEZXx5qcwmYi2NthxpJwZduvm7z1LIhOtx5IcUSoz/LE7lHBknoPgO/kz QS6cGS6pJimlDXEQ1h6oZZMnM1RkW7KbvOUg7p2NW58/yAzD+QNJ5mUcxJYQ Pbc6aWaQ1vdWuXCVg3CNun0/j8QMH3qfxia5cBB5MSPtsb+ZwEst57TEXg5C M/XG7hMvmUDHTKfpEJmDuPR40MskgwnmP1tmcI6RiOp8zXSVa0xwxjIiX/k1 iTCs6uP8a8MEe26f9m30JREFeVk6jXpMwD35ePCdKYmg3j9zKpbGBGXYHhKf BInoXiLd3df1jzEyEWri+pKd2HbZhi/1zzojhmvoq/UYG7F8bOKMev06Y/Vt wGuVZ2xEKz24/c2tdUZt73h27Dk24sJ6VswkbZ3xOLqrRnaFlXh9dYGHMPnL 8K9xlPi1yEIkOl3z6uL7y7B/QzYIKmUhThlItrp/XmMk/GO1YD/DQvCxG92I Pb3GcAy+MbRrhJlwiI7nHIlbZeiePXhgtJaJWIvRJEUOrTDyVOhZd96toY4z jS5ieSuMzUE/9ldpraFMy2NvCs6vMDhNW8j991eRmUBY+CfSCqNof+VIpMcf dC+hk2X7jmXGu91vxnp4ltHOB2f/vfVfZIQL/I7VD57buAfsDicMFhkNm4Mk Y2dn0Re7ezXzPIuMHZROjmj3WRQuXRskmbbAYDd3C638bwZ9yOBb826YZzTM lGjSsieRT27hMr/gHKP8u9KF8KPfkRqvd9ieoVmGnkP6jcG4MTRzTpn3/LNZ RpZSUrzr+1F0jp4r22UyyxAyY07l+e8b8m3P2J8YOMOAllKZ5ZRhtFPLsbfB dIahqqzbsrYwhBaTpZ2XhGcYyxMVvRqHh9BFpwf+R4qnGZkVEaN0YgDdWkgv xrWmGUZmh+wDLvSh/wEDozmF "]], LineBox[CompressedData[" 1:eJwBoQNe/CFib1JlAgAAADkAAAACAAAA5hS8nIKX77/2pUl9NkTZP/Z9JXT3 AO+/vrOSzV7F1z/4EB+fuTXuv54QrjJ429U/edqbtBrQ7b+LqTIK5vHUP/qj GMp7au2/NGgUzsMP1D/8NhL1PZ/sv2dG7ohVYdI/fQCPCp857L/8L84ZypTR P/7JCyAA1Ou/Cjx++S/P0D8BXQVLwgjrv3gUH5mOsM4/BoP4oEZy6b8XE1ME jG/JP4dMdbanDOm/A1Mi/Nk9yD8IFvLLCKfov7zoPcvMF8c/Cqnr9srb5781 YzJHde3EP4tyaAwsdue/q3Y+u5Towz8MPOUhjRDnv2Q4B9cs7sI/D8/eTE9F 5r8bIvCRmxfBP5CYW2Kw3+W/eH8WSN06wD8SYth3EXrlv6eucBTczr4/FPXR otOu5L9w/Y9gsba7P5W+Trg0SeS/FMXFu0REuj8WiMvNlePjv3+g1ak14rg/ GBvF+FcY47+X4NCVAk22P5nkQQ65suK/Py/5z8wYtT8arr4jGk3iv/oI8VHR 8rM/HUG4TtyB4b+kUeVbfs+xP54KNWQ9HOG/A05YkifRsD8f1LF5nrbgv37z LCcZvq8/Q85WScHW379Y1eA5TzusP0ZhUHSDC9+/aZqrUeaaqj9I9EmfRUDe v8bV7jBLD6k/TBo99cmp3L9y2zJ0EDOmP06tNiCM3tu/4snousfgpD9RQDBL ThPbv7sroYv6n6M/VmYjodJ82b8DGgDzvE+hP4pxc4iStdi/n5Xj2wZEoD+9 fMNvUu7Xv+nvMKeIjJ4/JJNjPtJf1r+A1rGqAeSaP1iesyWSmNW/hDtC3300 mT+LqQMNUtHUv94Fyfbcm5c/8r+j29FC07/oOxbBoKqUPybL88KRe9K/L3AN XshPkz9Z1kOqUbTRv/ScMQBYB5I/wOzjeNEl0L+v4BCQDlOPP+jvZ8Aivc6/ znAa+UYkjT9PBgiPoi7Nv8l2ZdI/Eos/HjNILKIRyr9DXD6F4jyHP4VJ6Poh g8i/I1AbX9t1hT/sX4jJofTGv4OKFVYwxIM/uozIZqHXw78a+oKZ2JmAP63M kUJBO7u/bjNnz4TwdT97+dHfQB64vyRk5sgIVnM/SSYSfUABtb+oh8GyOspw P8v/JG9/jq2/0Dt6JlqgZz9oWaWpflSnv12oLyr7tGI/BLMl5H0aob8Ik+yL S5JbP0AZTD36wJW/mCOEtbWpUT+IxvrQWB+KvzhN0tOLWEU/hrHecA== "]], LineBox[CompressedData[" 1:eJxNzns41PkCBnDkHmuJk0myJDZ3JnaY37fvz4Ms4bhXaosxxUrFYJjIOaSx 2E1MrpFLljWRW645ZBvk0qx1v8UwLhmS22Anrd3zPOfpd97neZ/3+fz3qpNu uV4VERISov7d/+4PHYK+82qJcPxG1K/5eZ3ADT/aTLcsgsI2zt4Kyi9B3di5 2PhIJtwAkcFTYi+A7Mvl4yyvSih9ycV9pqwOQMZTOiu8BmZzSWt00RoQfO36 EuthHfQl3DD2mq0Ahea6Du1VjfCV1De0xTomGJRZftbOboZTdqU6hleKgTiH Kd+x3AotrvRsdTcWgpwLpha+cW1QpTVA+KBHHjC1SrvOVXgF5yxTdI7hswFb j5/jW8CC6T79ZQXzacDvHx5srmEHTJH7aPzcPhUICdXu+7Z0QoXvfnqenHQf ZC0pGs85dEH2h6OWj+8kAJOBUBJ5ohvqSQ/9fsjqHuhpHmTMfd8LU0JL+iYa YwC5+FQ7efcN5K19cSIr8Q74lPxwe47+G/QT+dYkJzsC9CACRnViH7y86860 jgwFmcbMsg2X36H8PPEXhnQwIGt5tZvg+iEnuO+IyPlAYKQiPUXh9MPw//S9 Jib7gU9yTdvVJQOw2dK6ujrVF3SLBsht3hyEgtLi9+2oN0j/A/c13mwIxlzb +Tld4AVIq11oyKchGO081XzZxxMYcGkXaljD8EJFHS/ovisQjJykbCaNwK5R B7P8NifQ2TuWiHcbhYueUYRBmh3wjxjvvKg7BsWEiYSINmsgqTkhGndgHHZN Pw4LW0BB6W8TlmUT4/CGg5dUWAwR2EdORg/WTMD5H3XLWy+bAZ7W2xd7SZOQ N1xq/NrABCT1v93VJL+FUswzzLuJ+kAvesrUEZmCMyUb/IaP2qD35DQlTHEa OhEbr1WFHQeBQ9MVuSvT8MF4dvvNZDVAR4O2SSQOJNQ2hXAYOOCZvqYYzubA xbtd1on1ikB7JQifZDEDF5xSKr5u/xLsWq675BXPQK8R2jZV4yB4nREcVKMw C0Xi3Umxa2Ig8/36/c7oWehuzlqhNwkDfytK+QRvFv4S5aOaWbiHELI2ej54 cmG3zIph9dEdRPIDhXfgFRe6Tn6vUVe0gYxab0oqG87BU5nt6m5yq0hpdoi2 3qM5GKe2omdIeIfcXtu0QSXm4SNOVkbuv7mI/ZlQsnvIPNzzyCK3+04jR3K2 Yv2n56HWeKizOhxDeOuhBVFnF+CbkUpx87ODSJMtv/VB/QK8biX+Z7ZjH5KY GzZVdHwRaneEiY/pdyNem/y9huRF6PTVPo4p3I7o2lFV3nxchN6BjNrM0ZfI 3uNt8xm/d1DvT/FD80IvkN4t6nn+wN9m5RXZFdQiOfY7VCl0CcpPcJz7nauQ wPzwNNWyJciYii/Rrn2KINs7NcbKPJhDK5do0C5GZBwi+m3ieJCWQDGKfF6A lO9EyN28tAzVLj00W0lNR1adbie0yLyHrTauyxcJsUhDdEtLhdkaPLVqVWqs dA6x0G+rds7YhCYfDgu/vy+EmA4Op7d0bcIT+VBEIUBANIpcua23twn9fJ0s e77gE7W6DltJ+mxBJVtKTXMjj3jo6s2BVh0+VDCwz39CHiKu5KhsGbRsw0lx vB3axiTmyVBNZef/gBm2YtQQgStRhKo0ScYJobSqpZjjk1kWEjLOMaRVcfTU sw7C4jiHcJczbEV5Iouetnn3XenpHbPKR3Tn6A151A1/klIiIWR6q5D85Zyn EkqurLTjmxabXA7IVo2PUUZbdFl29XNWRgkuVHN8jgq6NOl3TzauVV9UMW3h X4JjqMQ+lTVKY+uM9Nxbi5NTR6vOxgqUxaa1PSJJZtmvNNCfmnNXC1JpmoEH lzXYXpqoy9Ly6YPMo+pqTzvSxXknUFRerveJRYFqZIOVm9wjbdRTrPuEt0sR Lqg4sM7M8CT6K66MwUtqUpIR+YZkMK+D1nvXinDpZ+Rtbrin6TD00NjK8LRj 96pklBtVb9loGqBGJaqOkEuQTKX8kGI0YojSkp/5gmjdA670f+rn1hmhQv+L zsU4j6I7xp89vCBVyPAw+Ww2ad5SQQ3/2TOiJbtpGpi3iv0rcFqYccvLR9X1 MZNDNnYMiZgFd/fLHc9h1voZdyQhGbO57USfDAOzw1JO/IN0zMH6X/EzcjE3 12r1FT/F7NqBp7M6MV/15yPf9mCOkK7f7GFjznWy8BkYwvxuGEVmuf/3N0Jk 8+oiZlkVVukSD7PJFdvD6+uYbYSl2KF8zOefdMft7mIOsPmRGLWH+c6i48b+ Pua/AHKYKwg= "]]}, Annotation[#, "Charting`Private`Tag$57481#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c41t8bli2y9+a13mFkj/fzOZVKKhJ9qUhCGYlSRohIUiEkiUiK7FFW Gu8TklHInhHZM0RG/Pz+Oee6r+e57ue573NdzzlHxt7D/Dw9HR2d//by//3G mMnC1pYG7NbNTXQZt9Mf9Rf807uhAYcqB6XpD9rrm3IPrJStasCeHWIK8TQH fWm9y/88FjXgtn1ZyQcuJ/3Ke7Gsg6MaUKTda7l4yUOfVaVTEr5pANcRxKot eUM/7prdkZtJGmDvv7m7EhL0c3ZcfUmnowEbO8wPaWt/12c6b6QuckYdfqym LIVN7zfg6/rslhazG6SGZnzsaosMzKsSHYj1avBHZ1j1QRMv1X8Oc4seVgUn DqEX+Qne1KfndMb39KuCKpmXexerL/V9q5rj7w5V0HM5yHwx6jp1s4xgY16v Clfr/9h0jgRQQ26yHeUvUoXWz67N6d4h1Hs87eSEQFUQlWqvvMQXRU3UcJt6 JqIKQ4XvGJwqX1DfpZ93MuNThbvd5auray+pfUJnh+l2qQK1J/nUo4MZVMmN 473n6Lb5GvM574hlUdOqdRoIYyoQKeh989VgATXrP4acV8UqQFcaZ/zk+Vtq /ZcNhZP5KnDTbu+m7+531Em95TTWTBU4dFn3v/+631MpkhOJLknbWNU11ckA qIWjjffIISrQ6/ppdvZeNVWzoNhvxlkFFhaXX1PW6qjlPomuBcdUwCv42KvT Ls3USLNDgzv2qUBaT42F/7MWqj1x+b8Tmipgq7FTPUW6napN/7IhQ0EFmo8M md9Z7qSy9x7fuyqsAlcolmm6lF7q4Jut0iPsKhCE2pQlG39QiyPyKCn/lOHO 74x1Ua+f1LvnrdPm55ThSWS+DaF2mGqLswkbDilDy0i67k6XUaq6UFnkozZl +BA//Kbl3ASVZd6RYbxGGY4HhFd8+jBN9ewzwHlAGegTO4Ka4mapfbW81/Xf KkOngO+Xqv3z1MLnMBuRowwZ39nulLosUEWjHhNLXyqDjppGr2n8IvW2n7vj QLIy9O9TYa9sX6LOXzjwjPWxMoQY0gfrEZeppy3Ee3ZHK8Pmm4ym+ZgVajVa 5Le+qwwx9wtLtHlWqSqU+mOhIcpQkjDI5J65RmVg8v3ccU0ZJDl0LmXKbVLd f5vS0bkrQ1rVro7LzHRYV7+8AdFJGWz4ys9+YNuB7avf8DK3U4ad1PVkRQl6 LLe0tdD/lDLUvgoLy9nLgAm+yJ56aa4Mqyb5O074MmLBD4IVGo8oQ74NLkCt ZMIsnVWfSuPK0JppLh8Zx4rBCeZOYx1lONotWxwqtRMj7e3nuaqmDKxeoxG9 lexYnHLx0adEZbgnLzvHfnMXtiVy/85nWWXI6zJ3zjjJhbky21fOiikDZ4J7 JfEVN9a2oPtPSEAZjG6w+7gW8WCZDaOerizK0JF8Xvz3Ch/GW/4h7yGdMgyW fXmMawtgN17Gjb9fpYBzwVwtc7ggNh59kTC6QIG7IXYBXrNCmPmNfbZc0xRw kPHY+uIqgr13EXmiO0KBlOssV0w3RTEFy/nWcz8oYJ01mO2WLY6tq6QYFzdT QCAm9IEmURq7IOYV2l9HgSxD00MflWSwZpajNOYqClwg1GnU68hi+kuya6rv KXCMh298vxUBezm4qnmqhAJbPPeblcLlMM5vzR4h+RTIOO3xLbBBHrv+9lV2 zisK+CamOJ6VVcRMY/+T3nxCgT3++gXXuEiYnzqXsdFDCrSXl0iGppKxjJba K9ERFHDdo/htn7EytslLrZINokCMsmZRwVU1jPTmz9RFXwo82ukY2+exG7O0 KOAvuUIBhdY2nh9+6ljeQ9kLRo4UUOb6lNMJmliXRl9U9BkKHHgh2ZnzTwtj bHtU1m1JgcgTn1Q5TXQwG342NjdjCnRRhR80K+pj4cWVu0v2UcB0i9UnuMQA Kz4RcHrTgAK5JElWx9MYxvFoLidahQI1gWYM0T57MF2trLZuRQqEjczdmbm8 F3Nst/8nK7ON27/G1fjuw94LdJiW8FGAWU2k1rBsPzZe8sBnk4MC8l29p17P HcD4LY1TjZgpoH94MFZd3wi7GP/+d/dfMkTe9Fh4wHYYi9f2FiUskLfn0X3z jOgjWGWHqqHbFBnET0h47FMxwUSFXsRt9pNBlbIlKHrKDDtYZvPBqJMMXYG2 G+kmxzFPK8HR6GYy8K9tjuqYmWP1j+/qEKrI0De7Z39qyAlsWcfQzu09Ge5G ZJhQiv/DZLs2wktKyLAZ3lpLWrHE/IQv9xhlkkHEV6XuWskpLKOcyBDznAyP x6/J/lC3xlpODpN7Esnw2/u+0MpnG4z4xPKGWyQZOpr8uLlE7LATetwZJWHb +Tcw/RHmc9jN7rrGzSAymMbmWKvT22NdIph0jCcZXrKy1+vKOWKMFcuHei6S ITEm1yD66HlM7XThFcJ5MnRf6uN6evsCFp5IqCqxIkM9S9XxKGUXrFi/f2rT jAw9XmHc11JcscGeeP5Dh8ng9Ge/OqecG6YrtvNCD5UMKTkX5zeueGCO76qi CNpkYOWvFHNMuYxFW98oc1Mlg0rH1LWk6CvYeNI865YMGax3OFlapVzF+KnZ uw+JkSGr5twVu3fXsD19Dqdj+Lf94p+4dGDcC0sQ78whsJCh2mQ2meDli1W/ j25zoyNDqtIUZb3jOjZvc/hfySoJmk5RHrsd9ceMkj+YHpomwShmRefmHYjN R/ZtMI6S4J6r1L1QlptYYuB69qcBEogkNvAe/3ETmz6rx2LQSgLu4L9jYXkh WLzZyZKVryTIF70bwvvqFob2+jgU15CgLWnpzLm8UCxWtoSmXEGCcoFV3oGh MIzK13Zp8g0J0gsDLl3iC8dGGBbFXuWRIFGfsS3Q4i6mO6LmK/2cBDvc8+SO MkVgQ+3HFPoTSeBH8DhW5BuJ3a9xb3sSR4Kl0Nzl6c0o7MerXDW+cBJYfxa1 6iLEYOEJDT+agkngrHTRUYI5Ftt9dzIiwp8EDETGw82LsVioq9IEkwcJTodw jtcuxmEq1kaPK51JMP9hlOMASzzWeeTCgSB7Egh2M0Y9VXqMkZRfPv/7HwnS PjjJpT5+grVJVB0rOUaCjQfP2ypHE7EbnEP/rhiTQOFRwUj+wadY85zU6Skq CSjDw7gO9RnmN4izZmqToGh/TmKDSypG+H6m1FGNBC7yvR4v0XPM+3US7w8C CVxTfLha2F9g0i8qIFGCBBeeG89qM7zE6h52u1sJkYD+eL39CHM6Ju4l1NC8 c/u84ma17mq9wmrOa1+PZCRB+9uTQjXnMjEPy/8UD28SIWuT1bDvaRZWqfPw VtVvIsz5hMgF7MvF3JRe7745RYQImZBPD/LzMAGR7wPUESKIkOqNYigFmPMa J7W0iwi1dz9tzKgVYbxTypOeLURYMVTdE7TrNfau92iC6lciNH+aOfZz6TXG +eHeUiaNCD91ZJ6rjRZj5XlZaeffEqH6A41b/3cJdi6l1kz2DRHUvPypJmxl WHEQc15SBhH46SIW+B3eYraX5a1PphLhWrmPq2RGBcZybj+bQCIRevlUiH1/ 32Gn94Wcj4okwkt763bf5o8Yo8ZzviN3iDBCf13blwxYHgE+sQRv91vMpKv4 FzA6pk2J4GtEIJHbAvMKKrHsP+JfMXci1OSb3bieVIVZjBr4rTkR4cLAg2dp sdVYxpfrHVetiWBHb8annV6DPVH3Nsw6QQRNFhZ1x54vWESyZ+EPEyIInpq3 K5SqwzyvXrxnvIcIMV7GjH/6G7DzP5xWAvWI4E5sYi46+Q07aezoWKxOBNoF LSrfWCOGSZ3BpeS361uMFDjLfMfU7p3KOSG5Xd/y7SUlthZM9s9/wveEiDAx zXd5YKMFY20wXVhiI8LzuwF0L3e2Y+taR86SGIhwApPQ+iffgc2mGn09u6EE cdip8pFjnVib956M+lklsKXW/DnZ0o19+UnloxtXgqsrlzm8KL1YxVG9m1o/ lcDMpYVjf0Ifliqrfjq1VQm85NYvRWYOYA8jVb60f1WCa8d8w7xfDWJhf0ma 7DVKcJQLRZ+//RO72Ejg9C5XgifBbp1ZDsOYrZ60f06REqw06UnKnf+Fmb0U Hx/MVgLNyNcWmVdHMG0/gcojyUqwt9/M1aViDCOO8KgGxytB67rIAMvSOCZu xvm09IEStHQVk65hkxi9Aou3TIgS9Gn4n+2hn8H+RDMMW/orQUjdun/gzVls fH3rWMQ1JThHWOpPY53HGr//Ja5c2I4TnaQYyn9jn6h/4il2SjDR425Ll7qA Fb/6zWB/SgmGyzUWox8uYk9uTPZ/PbKtp3b/xOtnf7CI8dHD9AeUIIZbke76 22Us0GK4TAdXglCOXj/qzxXMkdgXk6amBId8Sgx8z6xhVnFdm51EJWg20Qp1 eLOOHd5qu7iLoAS8TJPL6qL/MLX2bwd8BZSgC0ZGhjnpcMKe+td5nErwX5fw MfkfdLhgTo3UMMs2tr5TGF+2A9+4SVs1WVMEjgO7CPT3GfC5qXcXbi0qwuOG fZYsYYz4kGV5a/m0IlwdQ6YWkUz4F0pRHmFAETqdemLFq1jwisd5oqe6FGFn 9LE/3QuseC599p2o74pgX/5+wnb3Tjy2K+3capUifA7r/vewnwO/bfisUeWD Itgu2uyvOsqJ++YnGTiWKsLmjwTi229cuG1onEBTpiJQd4eUKIfy4I1omcU3 TRGCqvp/dpvz4mjdak36qSJkZvRc+0biw6U9xQY8HygC6OqMK//lx6OVb3wX u6sINwTYAnxmBfAdEz+qqkMUofiDskHlnCA+dDYtU9BbEXqffX9vLCCCm4sx JtE8FOEk/e6Oe/qieFXH+UhnF0VINOTS7nATw1+aED0rbBRhNOrXp5Y1CfyC QaGBraEilIsbMfSMyuAdyzwqLJgiYM8e9OuWyuJGr69KF2orwm8d9fC3UQRc iajDRE9ShOfJwtbFNvJ4wq+ElWyCIsxoenEyWCjgbKlrExYSiuBK37ApfkIR nxT82JjOrQgm0eS8SF8ifrpF6pPpTkVQmTxv+OMpCW+IDH6zwqAIVQJXyLPf yHgu44EE4xUFgP++8vqdVMHdFxrOzfQrQG/nCacxLnX8R57yifhOBQjybyDs 7VfHj7k8OIi+K8BkXX2D7xsNXG3QnBxTrQDm+TgDfYAWnppULKH/UQFUCVVu Eh7aOI+VIPdwmQIIfXCqznbTwRe+dS9p5ihA5JDa6f5wPdz+rsFY/0sFiP3t wO6RqY+37k/uDktRALbeN1NH2gzw4nd2H7tiFCCD8I+0bI7j3lljdwJ8FUBr rii75d9efNTR2E/eUwGuKAe13qrZh1tJ57g1XlQAARNz6zePDXHdx+7Hpc8q wN+iK/l/ThzAM82bDetOKsDTAuKtz3sP4iKc6tqe5gowtH+UK0rXCF8L/SNa fUABijmnOvIOGOOue6x2XUIKIKiN3v20OYz3rpdvCegpwP6/yRtfgo7g7z0D fjlRFCDkQxE5ftIED7RjyGfn2/YL//3Luug4XthkFNXGoQA6sw69HB7m+BAe 4Z7MrACm50R2XdW0wA9KCKiqrsmDPPGES0LnCdw34hTX30V5kLbNyFsv+Q/P Xk+egxl50DDMSLBJtsQ5exQKzX/KwxEzk+8h4SfxPcYXo8V65eFYV/AV5shT uGd5weVfbfIwIO2TzPj0NN4Rr7vbu1Yerl893SvQa4OnWBx+/aRAHrQkfg+t LtnhzZVRsfZZ8uBapUU2eXUOp1dv9SS/kIf7Oulzb+3s8QvcNhof4uUh2XlI Y23CAU8ISuULi5aHf0mnnc9VOOL1s78WTe/Jg5Sc1mu2h+dxlW+XigdvyAPb jOSwg60Tbkd9HZflIw/WHvOhcNwZj81ZvuZ5RR7MwyzH35i64Mt3g7QYz8tD 4l+Rv50XLuK0gzGlikfl4XW+odmjXZfxhZL2+PkD8lC1X/KQ5JvLuJy8qM9b JA/CWHK82NkreDjDC50jGvKwmXNOzr3BE6/wHBPiV5aHvYqLEQcjruLTP8l/ +xS2/Q3Q//LkxDXcDIrL3UW39e6ntH7f8MJDVFcTdPjlgZu/5L1JvzdenIJd p+OUB+bid+2eNT648I0avdgd8nBLcdObqfg6PqjXVVEyLgcxLrRTPMyBOG+W eFLgkBysZJ8KCdcKwvcLn/M36pMDy6aX9w/r3sQzlycMupvk4NlQxbGHt4Px nvMq4ml1cpAn9K6gVisE52j33HCtkoOxr2eK86dD8Mtv1t9vlMqBlVTDmbse oXia7J7kz4Vy0GA4P7WDehtviwm9EZUtB2zmKUIa3GG47uVduHSKHIRZq+j+ bL6D0ylL0Qxvy0EiU6X81Lv7eIDgXtvbgXKw+VF0wmk0Al/Zsv9X4yMH6gNh f3dIROGzLRkGh13lwK2Xwd7gZDTu8r62576DHDxofJyvxBKD/0qfvP7NRg5y BMmZch9i8F5flXKzY3JAvkwLd0APcUt7M6vYQ3LQ9bTHT58jDm854rnculcO 4htmzx76GYfXSpZqWmnKgU56rZJZejxeWo0VnRGRA/Fyibn8lERcPf+s2TNe OZAp3GtdV5qE5z0OnhtklwNHjKNmo/sp/tL1s7LjJgFW9L0r7Q2f4dInxr6m rxDg0W2zfOqBVDwJY3MbmydAc7pPhu5cKh7LbZLtOkwA/bm3zIFWaTjnmrtx bh8BLD/+7Dws+AK/Oxw9PtNOgDVXsumDvhf4zdI2hSu1BHBJ7YHUm+n4JRub Fz7bj7C/zXNvzqtm4eMHAve9zSCAxZuBRVv1bNxRNfXn2jMCpDn6jJ1GOfhp +l9SgbHbeChutNs3D++YYqLR7hOg+4XltFxGPn68XdF2x20CbBofa6MfKMAP ZV58GupDgAXVE+GP9Yvw6phIg5rLBDDSC71eNFGEI/+CHhZXArzrSLvn9+w1 rm26KHzfhgAHl5QOCUoX43JLfo9i9hJgjtUmsjOgDE/tf6rZqk+A1SuPi2nO 5bjYl4+t/JoE8HCLEYo48xbnTaTnTVAgwGPvymviDu/wyFtyRd1SBBgYIv2L uPYeZ7100ExMhAClbZUcBtEf8C10LyqFnQCD6gOk+jEa7kfMVR5kJAA62oB0 YwFf5m38KrMpCzckXKI8tD/h0yM87OnzsjBIz/DJPqYS77n/5E5Ouyx8Ykrb yn38GW/9LJ1r1yQLH1W3CjZtavCvW6+aBepkwcNTMpGH+AX/eLVU5OZ7WZB/ bVdh21GLl+VhuFapLPgvNJG4yuvwwrFq+8kCWWC6MO5w6Xk9nmbdmnPihSwc 3NmtqRnxFU96dLqZLVkWzASj9slGfcPjmn4ufYyXhbbunzJ1CY14mOE8Rrwn C427uNOLHJtxV/Ku5n+XZWGDVpgm2tyCO5yPW3rtul3vzcw7gm8rbvNMTMTZ URay9CJD6uTbcFM+kn2LlSyIXdKRfBHbjhuZFIXdOS4Lqb6XLmmbd+B77ujm UI/IwpnbRzzlhTtx9fWDSxm4LJTye2ePlHXhZK1GYRtdWQhAHftkY7txOY// MB51WVgx578Sc7UHFxx2CPOXl4VuAx2z+aN9+Hr9TWEzDlngL7/doqM2iC8x smJMzLIgbCSb5PdhEJ/FH5yr2JKBEmv+f5bHfuKDr5Oz5RZl4ELWdx2P4CG8 e1quqXtaBnI/UvhWZIbxFoXcxahRGWBz70gq/DKMVydWUFe7ZUArBxHOEEbw D217z+W3yoBNJZdFevcIXspZd9vhmwyICOam1T0axTNDOhu/gQxoWgk22UqP 4xGuS3Zpr2QgOTVuiCt0Cr/90v+21XMZ2N3+ei7UfRoP/EGfzZEkA+z6nCGu djP4ZXOeRe8oGcCmPLIvWc/hLhEJQpRwGWCUNTwYrD6P29dIUX8Gb/Od6zPz fzePn9BXuX3ESwZ0DfHJwJ7fuMm1kiw6j229TvSCDZcX8IP51MYSZxk4raUn 85V9EdeVPSIkbSMDG38lAwPMlnDxnc5ZS/tk4Mz7t3nvhVdw249fI2SpMuBv /euL5sQK/txz92UzLRkYYmZyyoa/uELvmnauogwkpKw4et5ew50fnBXtkZaB H2uZggZX1/Fsw+p/LKIykKefuHPWeQNXzY2sduCQgX9Pjq/zXtrEPe0WXsUw yUDFC9tvbAFbeDG/1X3apjRY/eKyWDOmQ7o3pM3FfkvD5z6ehSGPHWif6ZuB lnZp0NK8Otm2woBC6YWr6JqkQTNFSM/wFSP6UhqQoVIrDdf4KYFONkzoqNTB S/cqpOF7VIRuWBczimrNNit/Iw0l34PYfzxjQd/vcGmO5kqDO8/R5xmXWJHl fNfa3mfSMFv8schCYidKeIn98EiQBt7gnfdSt3ai3pNpn5JjpCFpUG1RZYId 2X26GL56Sxre+Tlk/27ZhVxiNwWKnKXB7/R9k1oGHpR70GH1xzlpmFIxr1N7 xINm1770cVhLg0UONVONzIs8HWJeOJtIw/tmhcch5/lQsdByWPxBaTi1YMAj sZMfrTScdq1G0nDL+UvjwBt+FKApt1taXRpsdg2sXxcSRB/Hw/lNydKgnCHC mPZdEO1Inlnxl5OGFNFzUQ9jhFAYU9nHTsFtvabCkTcJIkgy72GC5IoU3J8s 4AmJE0cvBM6c9ZuQgt0z0bazwRJIKVBBoaNXCiivlu6keEui3cfevokEKdB3 lRA1M5BGpWUhfhOvpSC6TpRT7ZM00pc+uvdAuhQoeA6fkT4ig/b//tG4cVcK 6AulIjIvyqK6U5mPTgZIwalHqo9u0BOQaeUVm2J3KTj37PzJ/mQCOvmQcfKi hRRwLO9GMCSHLmqRmHrFpeAs2ba5O1MReTK9feXNJQWds4Ef9B2VkF+70WFe eikQaoj25JQnonte5x8Yj0mCroHTl/QyEsouSRUpL5KE2nFQn5VTQa9vq763 eCkJYtgtQz1uVVTx30fbuXhJuH3GrEpqhxqq/9P7QiFAEtQ+ixQn/lNDE1pC Ko8OSsJAzalpJoIGmmfKaFbTk4SVMbKaTqkG+tuuefUrWRI4l2tqIkw0Eau3 eTkDjyRkTBt18d3VQkqlkfs8eyXg0Crw0LR1kVqY+MiuRgm493ifMHVWF+la 5tzJAgnw7Gwe/5qthw4t134dTJeAmD2bBgUaBshJm9Hq2GUJWPe19zQKx5E7 88PVSXsJ2GlQd03FDSHvDpmnYf9JwFJA/iE58h4U5o1+ftCXgLfPetp6JPei jFK/ixQmCfAbtgvboWqI8sPYOGtXxOHo2w0T5veGqNQyodBhUhwiejlR89H9 qGa55E9ikzh4XvfI5/U7gEa0fwexJYrD2FOVAlbmQ2ia+aZseoQ41Hvt05p8 cwgtdXB+3hMkDuUrenRnLhgjRh/KTl9HcTjiLURx6j6M5Mqc4kZVxKGzL8fy wLoJotxZ1g6REYcDkl6+v5pNkabV7W4JfnEorXoVxZx7DO1fSZP8b1UMFuKu nM99a4YcdH5kVlWJgRi1IZAu3RxdyNSxPFgmBp5bufrtkhbIVSSGoS5bDLTy 7ljcS7JAl9cNbRtjxCDyJMdaW/IJFEDL4us+KwaECreQ8i+WKEiN4ZO1hRik b6lGnD5thUKe27j/OCgGzgZtLxzmrVD4La66YeVtvngHhyWFUyjOyCtwdl0U +kK0p+TAGj0ubyRfmROF5ZOmYzyXbVAiUal7cUgUaLyyxTvkzqBU9l6N1TpR +HqxyQNPsEV5TXsmGBJEYWR38l7jHjtUuCcxPuy+KGwIpNUEGJ5DxUWLhmxB otA+dMuZveAcqniYkcJ5QRQOhp/NcY20RzVWHCdENEXBUOZJeoyzI6qrPb/j qaIo9Gickvg34oi+6tHyJcVEISu6KJF04TxqEfNkk6MXBWPTs5YMHhfQwEDn R5VmEfD322rAXzqjIbPdbkVVIrASUNN+RM8FjX66J6JZJgLv3uT7Rn93QdMv sGt6KSLASJ6hp+O4iP46vSDudxOBbkL0v33Zl9B610ZHzVkR0GH/9av9tDva NLYMNbYQgW+xKsoKXB6IkcI2YKovAnGiYt4v9l5GPPPucadYRUApPb6o9tsV RPLV33J/KQz3si4MfTL1QtBvShqOF4ZX6uUD661eyNLQ4T+ru8IgNDvbp2jj jUI4I3KQuzAIOF1yj/byQd0v+624dYXhkzDIHGm8jtx3LoSEkoRBtejshwo3 P8R4mTn/r7gw2MQo5Dzm9EdqBqqMP3cIw4Gc25W9NgEo/PvNwqIGIVA5/37a VT4ISeo86pX/KAR8MV8vyfwMQsVPs5gTC4Ug/xW9rrPZTTTo1GIT8kgIirX8 9u8WDEY6mwQ2i7NCIDNDFdd9F4JGSV/OLS0IQo7B1zsLV8NQQHRvhPPINr50 vUxvOQzxLs+V9XUKwh61zjuy/ncQ/kmY8/N7QRArzAxgiQxHj6xcKx6FCUL7 9yE7t5Z7iPQhcITtuiCM3XqnsevifQSyD7kDLwqCbJjavULmCDQ98+7CBTNB cLS5QFI3ikT7Q3fx6YgKAmuj5o7Y2QeoZ0IGz+EQhBR6VTNrs2h0+Zi2i9SW AJgWB52Vy4lGSaJnaSy/BODswxzmlfMxaKGw8GJXngAwRe4TcPkdi573W1Rf 3ysAe9aclkUvxCP1X+prbZoC4D+XxMvcEY+qJ3nU1JQEgO9213i30WM0utKU NMopAHKXOwSsdicgEu/RqxZ9/HBo/K+xq3gieidMzspv4od7M15JZ54mbt+/ OwfYqvjhaPih5SuSScidUnsYsvjh/sXrCmLEp+j1wf2yyj7b+c08j/acSkGG JoST4a78wG+UOsQxlYLaLOijhs/wg5rCbJJ20DO0bAerT/bzA1FUvcfOKhUZ +FO/M/Pyg7uNXUv9o+eoukDz5mAuH+g3HnEoPP4S/VfKV2qQyge1eX4dzgUv 0ej7han4h3xQp9J3IJYzHbHWF1qZ+G3nyxkVGH9PRya/KKoVRnyQUrtq8sX5 FeoQlv/xcIgXOJsffPw7nI2cpBj559p5gdq3cvfH6Rz0V37Y+HAd7/b/1ic7 sDUHiWo8L6Er5AVjlnSBHfW5yNZEIvLSDV6Q5Zsee/Q1H40FC1CNhHnBfXJo Ri6+CO28UTD3cCcv/MlRnm0ZLUIqvsYvBjd4YHZkt+Qb3dfI2/3GTr+fPBDk LjYtOPgaMVuPdOVm84DsxYS3NVgxktMs8eLFeIBc1yz6TKcMHVI9RjyrygN4 Ezv3n6dlyI000ZcjwwN9AhbaRQzlqFhaYv8BZh4w8B+UdGkvR4a7bvP6NnHD zmZfB/V7Fch+9ERB/zlu+ICzKv8z+IjCfs7ak05ww9zj8X96bz+i7L5wQZ+D 3FBPNDfm1qWhhZb3N7jJ3NB3KKnnsAQg+iDjhLBxLhA4Of41l/gJod0T34/v 4oJnPrct1C5WoTBFCb2p35xgYOTTYlpWhRoljqeGdnCCa2T1reOM1ch251v3 smecYLxvqZP1eTUKGA5nl1DnhAC+7NcOI59RxSOlA+OWu2APfd1yb2ItYrUe c9hB3QW9XB9IxKVaZCmdESIqswvm5sseOJrWoYVsAhyd4oA6HcXYLKZ6RARJ g6IgDiAM6LuGBjWghEn+3X6Z7HAwoIlKeN6IRgtajz2MZAfLiaXlQrYmpOkV 657ryQ45K/m9OlebUNMWV+4PKjtsrtpYPJFrRswC7IqG33dCoxPXPk+678gL 7ZDgWGMDzpvj+3KaWlAlIxjID7BBK3fB0xr2VsRdH3gar2aD4V/Ja7aHWlHu iY3Hl6PYILj2ER1zVSv65bLC2y7LBtYpU8cUPrYh87gZ1pQjrBCpJ5t7tqED qU10L6kmM8N0MnnaA+tF1+aViUKhzKB09Rsn5VYvKl8JPrPpygzBm+r39tb1 or3MpJqvusxgbqsheM2yD5kT/B67tDHBuHmdfse1fuR1RlT/BTsToMTCdAcY QBXfTwcJ+jGAaf2T+VuGQ2izK//NPzsGKCU8iApyHUL7BunHfxkxwHHB6uD7 MUOoYTbb7I0AAygqaBObBoZQH/u6jFkRPRATCdwDAcNo60BS9d3xHfAnnTbZ UvYL7a/oZftnSQcjXuKe7+TGUH52ut4XAzro/eyk8slkDAknebjESNPBZrkF Kc57DHWsMMceaduiVZVcr4/7Mobk/S25k9c2aZOdU/zPL4yjyuA/HHuM/tG8 iCzTWY8mULz9Xbc27n80aX08o/XtBHIxlPjq3LNBG2q38Ijsn0DcTAfux1za oLVcQL9TCJPobHgc2/DDdRpPbWF5cdYkUndRcvE5s05jiuJ80FM3iZgPv69l V1ynKf0queYyMYny2X/d0axYo81MM2zmKkyhjSgN5rDBVZrum+QmlSdTqNnj y3nR7FVazlG75zuKp9ALM+vP+VdXacxbzKVcjVPoMO+t0E7mVdrNmNyQ6q0p JLko+Oti819arCrVylZoGi20ZhvSJf6lyY4kZYioTKMnj1roicp/aQX9pwO7 T04jN+8L9h+WV2gfvrPyN7tNoz1Wa5+Owwrt1tVO7GvQNOLXjZIZvbtCI/Pf yqyJmUbjwrLBfhYrtKB9ib1ladPo/WrJIKfECm0i66tuwutp9KDHeM+L0WXa s1rt9bOfppH9u/5nOoXLtGCvbG2Wpmmk/fTKVsP1ZZqI3FLH7d7p7XnFdNbO cJmmMSL+rHV0GvWfefJxiWOZhgtmKY3PT6NCXFnybscf2sH81qGK1WkUKvXp hkTqH9o0uYbHcMcMOkn3X3+Ryx+aLde3bz4sM4jyc5x6UOMPjasrnN6MYwbR VQY87dlYojWFiLlXcs2g1jTuDfeaJVq3p3nqZ54ZlHHrpTVD9BKt5fPX1WO8 M8jPUffd41NLtL0skjlW23HTA19FKYQlmrL6zJsWzhkkq2DnB9OLtCs7uIdK d86gZeal7hOli7RPQWnNq4wzqG7sjt5E0CKto150LPrfNHpaK/bkhvEiLYT9 1MkrS9PoclbBXx6+RZpixBuZ6IlppMbpfmvf4AKtOlxk4Ev/NPrtSeG8mrdA 2xhbue/YPI1ed04mvPBboH0eNiuw2fbTk5pFaDNaoEXkRL3MKJxGGs+d8hkF FmjL1bWJuinTaIlJQU9r6DctsII5jvXeNPJqSjOND/hNy0vvLtKz2fZf81x3 jfFv2sry2YXb+6bRcoKU44rgb9ofCeQ2qjCNfOyfXj9ZNE87XmOmWj4xhXS/ nGa8GzhPu5bPsouvdgr9JYs8eHtknqYmEnDkv5dTKPLP8yJcc56WFuz5SPjh FPofSXYW/Q== "]], LineBox[CompressedData[" 1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAA5hS8nIKX779mJ8l/QG7rP3dHoolY m+6/KWw/jdNw6z/4EB+fuTXuv864M/nBb+s/edqbtBrQ7b+Prmq8b23rP/qj GMp7au2/Nf5FWtVp6z97bZXf3ATtv7nr/DPrZOs//DYS9T2f7L8lMASIqV7r P30AjwqfOey/q2RzcQhX6z/+yQsgANTrv6L1Z+f/Tes/gJOINWFu67/yjmW8 h0PrPwFdBUvCCOu/yQa0nZc36z+CJoJgI6Pqv8u6uhInKus/BPD+dYQ96r9c VVl8LRvrP4W5e4vl1+m/mv49FKIK6z8Gg/igRnLpv2rrOOx7+Oo/h0x1tqcM 6b9ZSo3tseTqPwgW8ssIp+i/KII/2DrP6j+J327haUHov3LFYEINuOo/Cqnr 9srb578y61eXH5/qP4tyaAwsdue/DJInF2iE6j8MPOUhjRDnvx5+sdXcZ+o/ D8/eTE9F5r+01Fd9IinqP5CYW2Kw3+W/GwbLqt4G6j8SYth3EXrlv9g6GZ6d 4uk/FPXRotOu5L+wXblU+JPpP5W+Trg0SeS/l5+B3H1p6T8WiMvNlePjv/TU bbHZPOk/GBvF+FcY47+YYKKd5dzoP5nkQQ65suK/gG5E332p6D8arr4jGk3i vxa8AsG8c+g/HUG4TtyB4b/1Lshl/ADoP54KNWQ9HOG/gKxZnePD5z8f1LF5 nrbgvyscSVw+hOc/Q85WScHW379jBcndGP3mP0ZhUHSDC9+/njvkQX215j9I 9EmfRUDevymzh24ea+Y/TBo99cmp3L92Vg6/3c3lP1ZmI6HSfNm/XSqBgbBv 5D+KcXOIkrXYv2xMYD9EEuQ/vXzDb1Lu178aRlrlu7HjPySTYz7SX9a/GPC4 +xjn4j9YnrMlkpjVv2ngEs/efOI/i6kDDVLR1L9nN3NOSQ/iP/K/o9vRQtO/ a621Jsop4T8my/PCkXvSv2WfFrq+seA/WdZDqlG00b+3DGdsFDbgP8Ds43jR JdC/kT6/CTln3j8eM0gsohHKvz1Tv9RAANo/hUno+iGDyL/jQQCmQdLYP+xf iMmh9Ma//tjfgNqb1z+6jMhmodfDvyFZUWgzFdU/rcyRQkE7u7+DtVhU7TfP P3v50d9AHri/hg4iwGFMzD9JJhJ9QAG1v5YJdsJfTck/y/8kb3+Orb8LIvro ihPDP2hZpal+VKe/cfW9MPuvvz8EsyXkfRqhvyOwp9UJD7k/QBlMPfrAlb9S 9XHXf0OyP4jG+tBYH4q/Q7SFczbXqj9DWf0w "]], LineBox[CompressedData[" 1:eJwVlnc41n8Xx5G99x638ZOMwm13f7+fIzNJ9krJSJEkKyIyskIZUaKElNUg MwnZlWSXlU1GNhE9Pf+cc72u93lfZ/x1RB2vmJ6nICMjo/4X/p+jm3c6rUVi kWtJnWLwyTRkRhyoidTMRTR6XM/uUaSi8m9WYVGBBejGI+9Edq97iKluXrzR 9hUaJD+mtjGZgq66XJprTClHLa6hZ3N6klG2uoxh0+sqtPt+z/+ESTLqYZx/ 0dRRgz4vs0ewf01CGTbKGk4R9ei57pkD1d8SERlZ2V+n2ha01sft+YzpLnow x6kwadiGXCNn7HeP3UGK3T6OzoPtKHNQ1nbmSgJyzlNqct7+jKRLmgzovsUh Z0nbJkW+LhRtHzjpNBWD5AXoR7x+dCHNNDKBLWIM2mOp3ix51o2emaklL0VG o9TffFJElV4UQ1w8kacehVo+fYslmg2g69aOOWlfItBF/+8tp2W+oYKiOIMo xQhEKzFIGXHgO+rnt5xreBCODAKHgntKB1FAj9L51z5h6NOhUS9fzlHklSKv mWxzE7n3jr7MXBhFTT/LkhkrQ1AkeG46Ov5Aj4gJ8RsfgtHBBU/ibY0xJDRZ acO/HIQuankVD/4cR+fuhcQtpQQgtQerH39ZTqC6I/WF4p/9Ee0vr58HPkyg DJSSSMfgj/LTvQ/KPpxEdk+LPIzT/NDPFZ8nQSem0aUTwDyw6I2q9Tbe362Y RgMy+unpp7xRbKbvSK74DDKQE3XZKPNCMsf9BD7vzqA+N8+KzTtXkXvWtXtC RXNIxSbh3ad5D0Ta3CpV4P2JtJYihPRWLyNGQ/8unYifKC5i31Kc7DIq3vJn 8bCbR/ol7FNEhUso+ORvubDWeeQqwplPae6GjHICDFOVFtAv9JbH84YrWjK6 HlPLuIg8yRn+OzNxAdXm7jzr8l9EOkJU9REiF1DCzvXm6clFVFB/fSPJwQUd yQs8wPJuCcVzclm93XRGlcG1tS9VltFqjc3k6DlHlJW//7nKfRm9q463G2hx QNE9+PCH7GXkwyZhFkZ0QNbS73f7mVdQkKODhyPvOQQWf+nHtVcQ7YaKTrGY PZK6ifgXrq+g0wy0PcuCZ9Hv3vdqZDMryHTz0tGUQ3ZonIxMn15oFZncfxN5 4+hp1C4DVpxmq2jtRHJ7j7ktSg+t85V6v4oMObSYVzKskYZcfYlx2hrKv0l3 WPaGBVLu6UutbVtDRY3B7rOd5kg+cOG67J+1f03Dtt8fMkeSbTxatA7ryFTl d5P8T1Mk6il30C95He3phKpHmJgiQR4thsmmdXRIlM78wjsTxHHeo/u99Aba 0/KJsc02RsyMERVyZzYQ88/wehkBY0Rf+uDhwzsb6HA6ebaQ/ClERt7kdG19 A71Wur4hffQkWsgQWD9cu4kuF6Vrq+UfRzNaCgMZy5uolacPH+zVR+M/dWvo xbfQeMDI1hqtPvqm5hUxHbWFamdjK9pCdVHPaNRF8+otxB1r7ybTooM6IzMN Gxa2kO/aiIQhuw5q7mnlfGSyja6vGBFFq7RQfeDINkPENlp+XpsVzqmFasTW hwLKt5GC8gMNct9jqMRT5KmFwG/kbt3HXq6tiR4z+ikzTf1GLUa/aORVcJRe epsvkGcH5VvaNb1VwVCq7ZO92eP/+IjWExNEQnHPPzU1vthBA/Eqmc8vaKCo U+P5imM7iHc84Px6pDoK29yKz+LYRZTanyPti9WQv7a4ZZD/LnIdflVVzayK vOfVNH4W7CIw76E5dlwFeSQZCVsP7yLyNuDkiVVG538ETBOP/UF1unmVs0JK yDSo02+eYQ/dz8p+eihGAZ0Un7a1wfdQQmm+OueKPNJv38VbPPcQ/YwB9/wZ eYTzHqTJ6d1DnIpd1NG3DyP196R5Vtp9tLsWQLV9Uw4puZh+CdbYR2olLxV5 Q2SRzJsbabaP91HYgmq/VYo0kjydHNj6dR/RTZhmrRUcQmIU+fYqlH/Rqdfm BLU2KcRr3HOQ3fUvkrEn3m4VOIgo/LiGnPnIwErhbHETuwSyPVfQValEBulX TSfyTcRRiQFqYzQmg/VDV6ZC08SQo4hr+ZtIMujq9TMXUBVF1XT7RbTZZBDk 0Z598S4Bsa8n5di9I4MPKSaNYaMiqKG15i7lOhmMtqjohYUIIf5SkyhrFnLI lvbopzwniLwyp28USZPDGR4TWZoTAkjMi/WSuQM5OLeyTfMgPhQu4KyT20EO rA63pH/e40JDVL+Pbs+RQyLLVFZPHSdSWo5XNKSigC89UlY5axxosrFCZP0o BVBaHCR0XWFHpJeG3PpWFFDbwO5WUMmGUh6MMWZ4UUBGlg3JipYNaXsw7Gjl U4CKbUqBhx8LyrDOWk5rpIA8zWb/2aPMaP2Y8sz8KAXE+9ClKjAxoVwe+55k 7gNgW5CsEP6VHlHWl7yYCD8AmqY9nyT7qJFdod5T1ccHYFE8LpDiFxV6c2/o 4e3qA4DySUoFrFTI2Y06hrhyAJLHWHR5Lx9ANeYPQ6IYKUGB6ffUsWcUiBPJ +w0epIQcupgl8jly1MRh6xR+lhL4l39ViYWRIeH9JZv+AEqYPtzyYef1X9xv NtxY5h4lGFA8lqxx38cl3xVj3R8pAbFYnQ6g+YNHupDziqtTwd+JqQ7npi18 xDiV+Zo5FahWX80e69jEVY7KUH28QgVoysWGbHwDn2axWPXKo4K5n/bFb8TX cXxnbra5ngpOsgtxPjRZw1Mng0f5h6mgup2/qjFqFdetev6pgYMaPCLn53MZ VvBHOdgH7iPU8KVyTq7RehnfjO+qcjOghq8TsW2/bH7heY5/8thDqUFoKKKI u3sBp2E0DnVcogatvSn6MetZ3PqgbZ0KHQ38jXhCsW87gxccc/5LL0EDIbNZ /nwXpnGjAP8bpTY0wCD+4dnHh5N4VkpYTZQPDdi6nF4u+DCBr76M2z19hwbO 7DE/4Fsfx1OnswIom2igTGq/yebyGD5LXlg5MEoDLaZnj8SX/cA1hMq2inZo oJovL56D6gc+YtbmayFPC0oby5VbV4dxyfqVq3kPaYF5w2Pq97cB3H9o99X1 cloI3i4fXujsx9u3qJaNvtJC5KsNu7tdfbjHYX6PLWo6WI97LaK13oPXHZco /ihKB8/aSnVjOHpw9vOHFx6T6EClyM1n8Wg3Xv7wmJu+Fx2Quf7ofJr3Faet MMwXjKeDB49+XT4524nbdlnOLj+jgyseyq+qFDrxfdpLLg+G6SC/bf6cWdln XMcv2fGnPj0UypP7cO204qmJmU9qnejBRfHDYOtcCz5b9OxHUjA91Ay1R1VP NuNxE2/PHn1DD6fn/r5O3GnER/abMlm+0MM4xeCdR5yNuDx/59DEHD3A43YR NbUPeI/xpG2cCAMsT/XfjEuvxyXdlx6c02AALnIMEgbqcP+o7QElCwa41pis VyBchwvWMloNxzJAI9m76+3h73BnGWWzw5sM8Nno7ynqykq8XBclUbAxAn/j O1J5bgVO63j8a58MI5wytImhySzHi+6fORXiwAi2RdEURS/e4PulFxLMghgh uT9lnK+lFDf+cvXzwTRG8GokO3x2rgRfp4o80fmJEeqsfhR9Of4a1xW9G5s7 wwg3TzP2qEe9wu+T0tv8KZigjct8f+bBS5zk/UJPVI0JnlXQSG+NFuEJCZWR G6ZM8OdKQJTug0L8R35DU9tlJnBKGvB5dK4AD//Rp+WVwwSZ9UEveHie4yNV Jy771zDBt6ijTXI8z3CN5LrU4F4m8D22P5Eqmocv6xTMxdIwgwj13oNWs1zc UESEI5HADM6lv8k7rufgz7aTSWnqzBBwZefj44Js/GzhjTs5l5ihv1cg/rj4 E7w6YrUyP4IZlGmGzK5fysK5zl4Yf5nJDOHaJW9N/B7jn1hNlGu+MIN7yd69 p6MZuIafxGAPkQXO9XKTh5y8j6eeekA5aMgC1bYRJ+x00/AVKebDY+dZwPrk wwpmg1T8+eDWzcU0FuBSODN61DMFpyxzL1h7xQL+BVxZU4nJuH3CWPfvNhYQ KhEkNdQk4dyaHyWp/7BAEHULMVM2EVdjIkhF0rOCq72v6pznXXw64DuJjocV rhKZj1Ffv4MfMzvlwiLPCnun19br++Lw31TqVQKOrDD3dOqTo0I0nue19vmR Byt8XHwjEi4ZhZuPFo+LBrICecw7mgHJSPxVpRijVAor7AqY9Z/Si8DP/jdM KMxiBT01U71Ul3CcISlN+XAxK+wr2FNa3wnDXS4x2is1s4JRw5HfDbs3cc6B Zu+KLlZojzpX8wq/iTdoh0ZrjLJCuPMbOR2OEFxIePM1bLNCCfdgT6R7EN7T OUp5UpoNwqMJgwyN1/AwLJ2vU4UNVL2rWpir/HD5AvPDZlpsEG9872xIlS9+ O7zNysaODfxPJ401f/fG1ZbD3YcussEieczDyh0vfNoOD7X3ZYPMD5c1Tkp4 4cdUSgvOJ7BBhZGXRHOSJ76cffn9bDobvLg+FdNZfAV/xCLVc+kZG7jT0mmb 6Hrgv2cz9q7WscH92vvJZk8v4XkWVuwbn9hAicbkepybG27ewHbQ/xsbbEb5 LV3BXPFXDyONg1fZ4C9F2osFugv4R47IGRYydtCT+bZXsXAen759K/gJEztE aiYN7Qw544JBEUWNUuxQTxfe7D3hiKuuh2tZqrDDj7OWoaHbDripe/j3GS12 kLW+ereM1wGPtgujZbBnh+tuFzsYV87iOT2hjzPc2SH86ZyBjccZvNYwVOXw 9X9+IUtdnv3T+DrpprPJPXaoLDExDDexwVnKQnbHs9nhfsrJ6DQOa1xaLiTJ 5xU7PMi1+Tg7aYmfEwquS/vIDpMsJgevlpjjgfduWB36xg4skcUU5sVmeCrT jaXqaXZ4W4JK2t+Y4p/2AgVHyDkg779uOaEZY3zGN7D0CgsHSKzXtI+wGuMU S9cNyIU4gKJ6L3I/xghXGwnwl1DjgHDvmNpvKSdwM8sAlnIdDigo2L2apWyA e3T45+mZcYC0emBZ0Iw+nlt7rcfNgwPEPbs7IFAXf69y7dKfQA54ould9PS0 Dv79hR9FQgwHePgfN+Ez0MZZH/vKv87lgC/Tz4dvGR3DZXh8W46VcID6q6oB 3EkT173jc7bnPQec5+ZjigwHPCjEO27rOwfsKrzFBNswPG3LSzxmlgPsYg7G xuuT8JIrXtX8m//6OYviv79r4LP2V2cxNk4I4Dk+Iaqshh8Y8Az5IswJObmx o9K7KriwsSe3gywn7FrDmaZOZdwcrmhH6HFCbZtMUOkzIn6l0mOQy4IT1trb ux8/U8Rj5T28njlyAp+Sj57RGwW8jnA5q/0GJ1SQsOLf40fwwfvuqna3OYHD lXSqQPMwvsnq3rF4nxM2kjWf4GWyuCz5pT+sbzghU9F3hab/EK4X4JacXc8J fovTrpbhUrjjiqu00hdOKAvucqqGg/j9sYvWVj85gfO/nhbPeQm81Obir9kt TmBOJwUT+8Xxjq8XIq9TcYHA+327+U4xnLLB5U0mgQua2SNKbs4TcBENlxNH DnOBHaWKKDcDAdcoOT9ed5QLhu8yvxdxF8avZDuzTlpygYyL38KMlQCeEPAg I8Hpnz9CmFXvAD/+wrhDSt2TC0y8j6tP1vLiS/uqmgkxXJCsGnvhmxM3ztzn /lktlQs6SydjWk5w4XLFT2wmsrmgxdfuoIgmJ+5+msFLrYYLCI01QQkm7Hic IuyPt3IBP7Os2PVLbHgRnW9sfC8XHF/o9/e7y4rPV4xkjy9xwcIe6av4GhNO f4fjSPwuFxQrpfR4BjDi0i76b1VpuYH/YEHrLhsD7sZZ0h0nyg1nGMlPO/rR 4rHz0/aqh7mhf3HCNxto8IIGgYUxDW6Y3ONOmeWjxuc8b1GqmnPDxMvWB282 D+C0+tV3x85xw2ERVeXpbQpcSuSXYNxlblBlPxLoQ0OBX/xsrTwWyQ3Nm3Li pnpkeHRufP3tZG4gk++vYf21jz0PbDipksUNTA0dhZ1Oe9jMIVmX21Xc4G6s qnM1cgejJndYVW7mhq61Z62hir8xyYF7wT+6/tUrF7hp/9rCXCL/piovcEOM 4ODPkrQNLPKMkviPbW6wCxL7Oxq6juUpub6MpeKBnGqe93UBa9jUeFfLqDAP sJcZcP+9s4JRVtOYx8rwwN1XoCtavIxJJJJ+KKnxwPP5MOLfgl+YM8rbjjH5 x5M1TxJvL2AR3IMRSmd54Npah9A5vnksd5GFbdSNB+7HK3GnVc1hEw8DDilF 8ID5n1jvErkZjML7RdnIXR7Imgitmf87hYkZTGjGZPJAR13NcZWxScxx29B2 pJwHVF05Ojk7xrGwL6HT0R944OTzri/HB8aw7LxyL2InD+QRigy/Lv3AxswJ t6PneKDq+4PkqaARjEzWgoe4yQN0jy7rflsYwggHYnOGKXjhSt/01i/PQezc 67W3ioK80PvfXuD91wPYzWgp/WEpXvAuZLln4t6PZdmf6YlS5oWnP49wB6r2 YaNMLQtDRrzQ/u5Q3fRuN7Y/uesfdZoXfqy1BD9d68KEa+SpFC/yggfb6Oin 7a/YWbd0oahQXnjte1mhRKoT2/1G17ESzwvxa2aVT4o6sPvHA4Lt0nlB18CD e0rwM/ZVynpUoZQX3G+PTbmptWMe91vuZLznhXPFhLWGsVaMnlYVaD7xAs+4 CPeJjBZMe4brydAkL3yJ9LmWrNmE/bC8ZaK3wgsvP4oZ1Es3Yjea18lL9njh bde202/RD1j5027HKG4+yHN+otuuWo+ZcWlxrIrxQWlrpyCfRR22HFHywe4I H9hfyWN9u1uLHXJOlFDU54OooIZIltG3WHM3WW+GOR8MGNcn1HpUY45anrdo HPhgwohPU5itCssQOzU9FMAH8j3HIjVjyzG1pNpUvUg+CJe1fmxgX4b1kh/W K0nig7h+gnWC1huMeYzxeVQhH6iOUfxpUCnBCo2DrFcr+MDooiWDgfZrTL9u nvZMIx/ciwgTVD37Cgt93O6qOMwH+YONdemuxZgwiwZ/5hwfHFF69zHzRyFW HZzfTrPJBweOj+d/ulSArZ+Jlhlm5ofmvlr+/Opn2N3PW4N6AvxgrnFm0jso D5PDLsSVHOSHyA/m5TlGTzEXQd3FKOAHrhZbxnlCDnYgrixz1ZAfhvz46/xF srGsXQmjMzb8MP3Y/rulzBPs2/cDLxW9/um9ajMvOx9hfgbe9pnB/PDW2nLL Wz4TY68eZ6G9zQ/8LOSm3U8fYoYP6j2Hc/hB3K5FkO7zfWyWVkFU/xU/HPut 19kTlIbd8s/6WlLDDwGvvv+WwFOxWqsQxeheflA0ULnUspKMnW5ZGl8d44f3 z6sdPceTsG2Vs8lnlvghTbuP3WAsEVPgxtYVaQSg3JMwUkx9F+u4VZSbySEA 17XFrtZYJWBuGwIWtAQByHtGV89VFYfl9uyUDasJAMlzxO1ATQwG2m4u+joC 8DHjKa/L6WhsuPQbd6mJALhzBcfaMUVh3MmV16LdBCA88PZ91acRWCmFlNSa nwAEDBWfM48Jx4y90gbOhAtAn819Bp+gMCzGxE+dmCEAwoVl7/PibmJJn6Td i/IFoMfGkL9XOgTL0Bt99F+FAKhuiB5qtr6BvcL0KXm7BKB6/0ZrwoHrWHXl H5XEUQF4ppNwwvuGP9ZIfO1KvygAJmMXqgeYrmEDh/i//KERBPFH+EPByz7Y eG4HuR+XINxwzPmYre6NLYiEK/0SE4TGWkuvLR4vbDNd9cJFeUFI8tL7wE1z FSPjXngwhgnCrVKPUAZqT4w+MeuT7QlB6Ns2cBo66IFxMlr87bYWhKbPQq9b 7d0xKYpa52ZvQbjC0PDqrZArpnjDKw2FCsLObsPC56wLGGlbsr0yQRBi6y4U Cmi4YLreg38UMgSBXFtn6cysM2a8dOdIYb4gcEpaKZwrcMJsXbUdJSoEoWXD 1PlvsCPmPLmdktkoCPo6J1elzjtg17477NwZFQTmewM3jzaexW5acMvRLQqC tm16oOCSHRbb2W4ftiMIl2gXl3OIp7GUEyFJuzRCcGoiZEU12QZ71Exs8uES ArL7YXMWDNbYc83ZrUUxoX//6zuTxHRLrKQmQ/qCvBBIevF4JyELrLmE6q7N CSGIn/UWn20yxTrlqhu6rIWA6Wu/2HyuCfb9ucfGCRchCPKZfsN8zxibFBeX avIWgsU3z7ufSp/Clh712+KhQrBw7DpD/PGT2DZfXHxFghAc72CyZrx1AqO4 B3XyGUJQVy8ud23wOMZ9O/8/8QohwJ0/mfR36WIE6rPWGY1C4JTIFzTnqYNJ h7Lf5uoSAm2RfFNhCW1M6U/zu4RRIYglU72lOn8Mw68FLtMsCsGfyj5FuiZN TH/1iHjojhC4uAgN+78CzPTypMUOjTBElr3q2bZG2Hmnk28XxITBbIXpTHPu UcxjhHzpvLwwoD5Bsu11dczfppwwiglD3dqLexL2alhYj5uZ9QlhkP8S0F4/ poLFnRKJ/GotDLbbGcZ2gcpYant3pYGLMBz+IRCfKq2EZelEz3/wFoYoc1/r g0uK2JujK8blCcJA+5EGoorlsdryp+FHMv7pRvFcYHQEa1WwLX+eLwxeL/09 NR3ksK4i5jnRCmHIWNSjkE2SwYYOfhB42CgMJSetRpRHD2HT2deMOLuEgb/Q ie2VrhS2LCQbGj8qDOkCimxULZIYJee96ZAdYUi7VJtmzyiBsS8FM7PTiAB3 y7doiwkxTLT1okouxz9u4q2Cj6IYHkSKbJUVgaRyDSmXFBHspKXkC1t1EVDx ntpdrRXC7ORZ+xZ0RCBn7qSrM6UgFjA58R+bvQiUxI9abX3jxaJrP5/MuSQC 4W/4p4wu8GCp9yt8lf1FoCEss3edjht7Y3i7ySZRBNKzEm5fjOXAGiR9F+cz RcDq09vh/fPs2Fcye67gAhFIXSvu9jJlw5beKJ7P/iACB6Y6NCzfMGN7CYLx Sp0ioMb9JMdmhhFjdKUuax4SgZ/+d8bolRkwfq3lIes5EXhtWESYfEiHHRL6 Tjm/IQIehoKBvvy0WMauQypOTgAyf9oGp5fUWM6sZUEUDQEC+SKtLthQYSUN 0MXH+Y8VeSznZyiwqpfK0478BBB4WDKk1E6O1WVI7xQSCMAkkkIn8Y4Ma40R Yd6QJACXiuq3qJC/pC9+nGK4HAHSG3YWbLP3SH1OdCpRRAJE3Z1wZhrbJY0Y 7x/vVCcAc1AKF6XGDmlBevaqoy4BUlqoVxqVtkjrPMO3Cg0J4KUecbG1e4O0 S9n1YN2UALia1ImbUeskitXmYsyGANHeH79VGa2R6Eff1kfaE8DI61yfmdQq ibfq6RyvOwGwxaZPvszLpIPJd9gK/QlATWcVJeu8QFK5HKCO3SIAKq5Nj+Kd I2nrOTl8SSTA28KHwnly0yQz0ZMxDo8IoBejvp14f4LkuKvyeq2AAP4l17oT To2RPHsJ325VEGCzt5fhV/IIKeQlPTlv4797MRy9hJMNkhJi1qUKOglganC+ 8lJfPynDacSYNEwAKr7/Uuzpe0mFWKt/xxwBRlvZX9gndpGqeUqyzm0S4C7s Lcw4dJLqKZ+9yf/zb99bMkISzR2k1pWHrasUorDTTV3GMvOJ1P/x1nIEiyiQ zF9VRN1oI3WkTmg3S4tC82H9bCGXD6RmB80HNLqiwFSkmO4T8o4U0WO91G8o Cm9VvVrtYt+Sjul5aj03E4V7MWk8hPIqUq3s40V9B1EI2PeUGLhQTirf+qMZ GyQKzx+++5NC9prk48aZZhsuCuuV0S0Zb1+SFIdlFqRjRSGhS/2nT0Yx6UWD berHNFE4zcEjf70ln5QXX/mTsVQUildoZC0ic0ip4j7Jd+ZEIZA0XzxhkUoy T709a78sCm1ReFVrVwqJnS4Hk98SBRomhehU12RSwtLXmU5KMaC8Gm1yeOQu KbLqCImdIAZM7bfeb3vHkPxOzU+mWIoB1+a70+RTQSSLQEeV9A9i0MYz8rHm giMpNZOTeqtNDBJHtOcNlR1Ife+be806xeDQ17GtZO5zJEtKGV+mYTE4Pq6a VCxsR7KOXyu9uSkGGrvVkbF+FiTbxxEKFw6Jw+K3SmrKVX3SuQ95skp3xMHz c6Cc5At5kjvDvFiHrQRc5d2+xpT/56hIYXMq9c//YJ1lOfttU/LRwEotM5aH ByE2pJCpNVDoqGeee7nKkUPwp3fA9cvicw1GClXHw1PSoPf1vLTD0H8aOpfN 70kny4L6SLGXRU2WOm+V0BUdicMQns928GmKsHqSV3SifP8RmDgUwygWfVvN NPKUXGa5PChq5YTXnN5XlT4dYZF7QwGOhbNIRLd4qPZN02UnWyiC0w8DG2v4 rNLhOKXJLkKE31tMe2TjCipjlM+274kRwYOfqW609ojKet7Fl3ySRMg3Dc/b kJVV4ZufFxSVI8K5F+nxXfKSKs7eq1tHjhKhMbOyTT5MQGUn/G/xSSsifF9/ 4hLPTqUi+ZSPP+YOEX7mbN0e8xhQVtcb7GRMJsJL4pmz2bm9yoZzGVF3U4kg 8pLiRI5Mt/JVOcJGWiYRAlDiAxWODuWaMsnOvEIi5Fx59O79jQZl02ZiZGML EfDhEmWVH4XK5y9ukPQ/EkGeTjV+teC5sj99xdrHDiK8ltSyHOh+qpxppOHQ 3UuEsugGdnPuJ8qzfUAanyACS7fAptFiivKOP8Xa+RkiCPPoiJwLS1JmEmjM n/v5bx4adeaXZ+8qK9rr8aysEIG+ZdD6TnqMsg45XYfPBhHayF5ZDuREKlvn tEdsbxPBtelI9BPKCGU3nbijQX+IcE1wUmG4JFT5xszJ1b9/iaC6luukfyJE +X+8K515 "]]}, Annotation[#, "Charting`Private`Tag$57481#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVVnc81d8fFtmyt+y9rnuvVXHOR7hWGckoKiUpKonMMpJ8VTKzirJSKSMh Sd13yKpQRgiJkhYZ2ePn9895v87reZ3ned7Peb/O68i6n7E/xsjAwLB/Y/l/ DftuPb2+rg1iAvpB/ce+Gsps9109M6MN9P3cHmwZY4Z1V5PZhse04Vw06/lq 5h+GxwYqBOz6N/ZMk4wSlb8M2UgfpeCdNvCs7VveVDxh+DBiUZX8ShtObTlV GLz019DmvYRuToU2HHVrNM9onTacksNGvPe1QdryovmZN7OGN84d3hV5Sxu8 xRhcmRjnDT2zp+y2pWrDg3iatar2gqF+Y5TT33htmBr0txjwXzTsF7l75HCU NpyXfvuWV3nF8JGR3nHRC9rwMiGCm7i1ahjm1XSqI0AbRCzN6hzk1g1lnv8I MvLShocVzHuj9Tah6dHQsAV3bVgaCeFwFmNE9Vxcl8oOaIPZArftXVYm5HmI FC9jpw1utotJm9mZkf5/9JReS20ok1p4YyvJgtjK7DITTbRhetvjF9cIVvRw k38Bg/5GP173efPK2FFjwZcTFLI2tHvvimCW4kTD5naa7qrakMKic/nQHS4k HK9ZVS+xoWdbdc1ihAdRKFmhs4La8Hvbl3XBTl60u4uDUOTWhiNLT2r3vOJD UeLjTTEMG/nuu2y4/7UAyn7hFPd0kQrFi1PRCQOCqPrwa7vxaSrozjm2/GAU Rn8K8/osv1HBaxHTbSJFUehCn8HIFyowTLvq+qiJITYrvtuhQ1QwoolQRfrE kNyfCPeHHzf4xM7TIk0l0D7tg7+4WqmwWvHUT9dZCo1F37C+20iFdBPJODlV aeTf86YU1VNh+q3spz0MMig+ZMc5n1oq5PeKKV8YlkH1dJHV9hIq7O1+NpH9 Wg7Z8dm6nXhIhaa7FoYc5vJoyD3mFcN9Klhzkemjb+TRAvO/y5RcKmjRI7fv GFZApN0fuFNSqHBH4JuBmJ4yqs1mP6ueSIWiyrSUhG5lZDlp1FkfR4VqO6f6 HSEqyCO5NH328oZ/qvz8nXeq6GZvnIxTMBUKXF1Dh4s1kIpaQ9TEOSocaCi7 r+2niSrPL3+NOUsFsvbU81IDEuqQ8n7w1JsKVxJ2tDwc0kLMx8ypYgepELr7 d7N9BQV9OERx/rWfChLZVzJXFKjo9j6JCy+cqGBQKLzmmUFFersnXx+xo8IP wizq1X/ayFM7fX+RCRX6yVU7Iq/qIqrmxfALRlT48+14s5SAHlpTOplvgzb0 QuUaee/ooXRx4s+0HhUedDtNGb3SR82bvkcaqFFh5kRZsBplB7qx3HF3izIV goWnWp/17ECH/9W0fpanwh6ZPAfrSAO0OB4vGC1JhbXYxaTRz4ZIrUPv/lte KkiyHOC900mguRaZd7e3UOHLINmRx8YI1dVzTPtyUOFqd0vi8woj5Pp0yEBo 8wZfP1/8jSs7UdztmPaD8xTgTPvzccneBO3L8J3VmqVASNZWNpu3Jkgh2UWM cYoCkbyrAdctTNGLy6SjhT8pEGzxXlfUioYmTvXMTQxSwGClbsLT3xzVeILE q34KNJg9XJRjsUAxh4uMUj5SIG4Xb6tHlgWSdgi/qv+eAsKvlMntnZbIzkBJ KrKBAnee3HR57LsbbdXlNbF/RYFFikoqh5w1GictHVd4SQGzPs+R3I/W6KJc 2+PmpxS4SFkhpmxtUTl7II3vIQVmkyR0NhnuQeFMh71H71Ggrmjio8S9Pchq 1TKhsoAC8v4uvA2C9mjkr2Tf/tsUMFrkqlmat0cCva9P5SVRQDTug2v9ZwcE 6rmx0fEU2OFpyhJ6yBGdirhQ4HmNAsv+DuPyw46oUUl7QO0yBW5eoj1O++2E QgNydj0JpkCUuN3qjPp+pNxy/nhqAAW8jD8EoYb9qGur86UgPwpwVQl78xx2 QaSGLc8NTlHAu/HJ+Tt5rmiE/7xagxsF8tISl985HkIJnk5mhQcoIFG99qaS yw0Z1lDcY/dv+Im4Jd3b5IbSjoxn7t5LgaZOo6j0u4eRVZkje7cZBbZ8X5o8 b+qO5pkoik9NKLC3Z7/MznJ3VODMtTPTaCNPtafl1+WOorW1uuCDOyjA1K3w bp7DA5Vbk8e/aVJA2dCD7eXKMeSWy7m5WY0C/Td/2XhHeiKuf2PSRcoUYKs+ 7LmV9TjyzMp29pGlwC2dWr5eyRNI/BdH05wgBYLuvUgq9vNGTXhspJePAjyZ N1hieE+ic8mv1mq4KcDLs/Bh6fFJ1LY9WC+CjQIKvafecjGcRlGx3+6yrpDh lOfhl9pvziCtAXj1Y4EMH9QLy5RMfdGAVtbgm39kiBIN2v6pwBfpfbQXSpwk w63275v+nDqLfipCtOgoGYofmL+TFPNH6SG3cpY+k2GpLfqX3VV/ZPousHZg gAyysk+2Ca/5o9vnNGdzesjAdLnUIvnPOWRff/OoaisZYla0B9b+BCKFrq9D TY1kOJDnGs99MQjNfSW5eNaT4Wlbj91zkWCUyVJvl19LBh3bE3dodiFo2PIX kiwlw9+1B1klf8+jchfdZ88fkuGEwbU4nfwL6NLJCB2X+2TYxZTBL+YShpSu C6in55LhtFV5o1d3ODrdYSDKd4MMfj7z8TmMFxH+cjmlNJEMSnczfL77XES8 0+3cNtfJ8G35j9CHwYuoQsCD+VoMGb7K7ynsrI9CS05x05tDyHA1TaLtaHk0 enu853R+ABmWb146kad7Gd0Olvmx048Mm/LwT97ay2jnzYrP4SfJkMft+vjN hxgUOzjwduHgBr/HWvSs6hXkMqFkke5CBvHmD/G/mq8gjXXfel1nMrRE3Pld c/IqapdhrvGzI4Om4B1voxfXkLCH5r3fxmS4oosaU5Pj0fi5ILlrBBmsDGI0 lu0T0LPLr7JVDcnQqXk9fRNXIjpwz/GGpy4ZTJp2tun2JqL8n2EXh5XJYNh1 IfZXfDI6t9y0Eq5ABun4/YwmTCnIjIs/WFKWDBUULfVjoSnop2ahj4s4GTxH Gritz95A5LNtrl1cG342BbZnXkpDjFGiH/3YyTBxkeELlTcddSW72/OxbOSh YE1SyUlHEyf+JGWtaQFf2aRXcGsGOj+JTiWOaoHP7Ht9hl23UNYR/XGjQS1I 287k4PDjFqrtJHtM9WiBmxumalzLQmtP5Q/Yt2rBNEdfc2VfNoqKZN8t+FgL fLWoPPr2OSh/mrG5oUgLEqSHcq+X5aAGjxWTgAItiKvbv3uJNxexWE4a9KRr wbfPjodMe3PRVb5u9YxwLajl+pI7cTEfPbzUds8iWAu2H+89bz6dj97+a5Jf PKsFYzoxy2LHChB3f42EyzEtOOke/cHd/i5Kzsvh3Lp7Q69fK0PQ+h66qX3q 1x0xLWgW+GVzueMhen732HE7AS3411bDfu3MIzQg4jbKsEULGrrlBjn4i5HU yp5PRxi0QO7zO5vXR0pQXoP+G/nvJNh1LqdVNb0M1etRzLuGSVA+kPa+6F8Z +npfrT66nwSacKp1h9PjjXmWfP7tHQnCedKKKyTL0QNHpof3KkgQo7Nss7/p CWptWlHaV0IC2dbvXpn6Fejn9rk8tvskGE+lMVkWVSANqR83vW6RYCKxvU89 vRKVjbVdVY8iQbxj6YdLiU/R+33NLAPnSXBulr/5lVA1mm59FRUXQILN1Iil 4exqpFNaEfrnBAm2N2qUbXr6DFUH3fQutSUBj3zC2A3uWiTncfZurwUJtvz4 uM5cU4uu21kMbzImQX+1NVOw1wvkrjrn6KBDghDhwK7arpeI89OenYuiJPgX IvqpdhJQYJPKBTl+ErjX5R1qd3qFhp+sV+3iJMGMKmuIObxCFXHFGrdXNaHu eG1Ezs06dAizi5qMaAL3ekN/gk8DalYbtj/1SRNS745wHP/ZgKgiT6+ndmnC WKa/w1av14j1rwfTeKMmeLG0zB0904jKcmEi7qEmbLaOrLHNbUbi8emqVQWa oLhPI2ZVtwVdDvXx+JytCe/u+nwXbWtBLnu39lMSNWHkrsnQd7Y3iIk5+HXP OU1wa7VIVH/4DvlM2TAw+GiCwf4aodiDbah3UNFA9bgmsPipfF0RaEePqjrL zu/XBKVx1l+NZh3I6YRWlgzWBBVV28H1/vcIHFg+WuprwqYRntEx2gektnOQ z5+sCRytKIp48gGti13777WcJswGk4vDUjvR/Tdjft6smpBh7TvZFNKN+Ktf FKcwaMLa+60znYvdKKzgxnjtogaMTOzma73Qg+zDjA/x/NaA6fQZ/PTaR7RM um1Z0aEBL69lWVxo70OeEgHRgy0a8G72Wf6LE/2og3U3naVeA7rS5bYGM39C BcOLOvsrNaCW6PW5ZzmAbJIdZdYyNWBuXomPsj6EQqk8luYpGhCELftEn3xG hR+azybGacBeB2WHcN1htMZvWC8XoQE2MqXBsTPDqDhFztPcQwMOPJk7EnJl BPVqD8QnHtSA75VnpO7MjqDNXalP+5w04IWRK13WfRQdEGRnP2WpAXer/yye Nf2KuFInHyaSNECgbOvEc+UxtE33QVefsgboXbJNN703hjy63VflZDUgI7RN +qbqd1Qr1GNTKaABuh71ET/0xtHJtNqpvgV1uHYxP+VTwE/Umn5FX75eHbp5 Jvp33phEc/omh0/VqsNt2V9epgp/kVzvSmxlpTrwNIprHIr8i0JFffvN76tD xzV+xzt4CqlmOoWduq4OZbua4hK7ppHDdt7Cyhh1iC7ew5dNzKDIvpa2tQh1 eMwWELz8aAb1iiGZJD91oLabOA7Hz6LYm/L1lc7q8C5jqfmZ7xyq2DH4a81O HbouBarUT86h4f40QQsrdZD+3k29enYebZPg8Ow3VAezS7uux4UtoPFbf9nW ZdXhJ0PxKf5nS8g8+4WNxW81eP5JemvV23X09/rAyuYxNTgYU/UsbjsDvhm+ XPTqsxrQ3QX+esYz4N9u21kNOtWA7aa7iB7ahJPlKumaNWrwTktyVKuMERsK dJ3++WSDT/3eyVQ+JvyNaUbiXrEaCHGQxn6cY8LbvpGDZXLV4HywgmTMzs14 6N4jskCsGpD7DtPzZphxbMabofaLaiCzYteeeowFU678jIs7rwalHCxRLX0s ONpb5QfzGTU4GzjnJt3CitU0C3IXHNXgkhqqbW5gx4Hlt/iH5NXAxmTx9K8d 3FgmvwZuSqoB9cN9p7QebtyS0ufjLKIGAgcSXG0CePDWAJE3HRxq8P6tWyPv IV5cp59yqX5KFRzshyIuVfPhUyrllMhfqhDySv3xMQF+LCT2/rPhN1U4elJo eYsvPz6xxG1Y1asKQkIRQZ0kAcz94ursfboqsLkl+mnWC+Lq4gd5x56pQrip +NMdmkL4yO1mO7knquCh9j7TOVMIV0SwFN8qVIWRv36m40HC2MU46lj8dVUQ 290y9J+tKC5sCunxd1WF5t87SkP9tuJMaqDJAwdVaD8xcHeEWxLHZfuVDVmr gmPvakNCiST28z951dJIFb7eoX1YnZfCSPogllZUhZIQJavr/TKYfHX/Qwcp VeiV8gh7pyeL5f45il4VUQWWxlTZxRuymO2NzfQsuyr8t2JZuMNZDncFGhW2 TqhAa+o10Suz8rjpi6EAw7gKhOklrtCOKOCa3dsjdb+ogP7PCU+TDgWcI0d1 yelUgYxJXQ9SpSI+2SbPHVitAunlJbMiWcqYUYk1UDZKBSiFsVPZP9Txv0Sm UafzKtBbssdiX6QGHl9et407pwI3NQcV1cQ1cdv7BdV5TxVgy7Wu2+tMwplh Pwff7lKB/ZOlfq8vkHHc+JgVI00FtrGeGTvWTcbhe0ef6mMV+M/XILpbi4I9 VAeS8sgq4Fu8TcT8JwWTu9/RgoVU4EPqQFxEoDaWN2otL+ZWgS91DYIFQ9pY +GGj9CirCkQtiGwbs9DBK5H0ReslZRCK0CNNyOviJo3HxfKflUHc6ViQ6T89 fCj6hlD7fWVQMwyLiuAxwG3EHGtwnjIEs79Vd041wMSy85JMljJw2meMPpY0 xDJ+Ep/9EpQhMPVBoLQewiNuefeFA5Whmms9V+s/AttLbL5FP6MMJyQ+em3n M8L1Pceun/BShvhidjObw0a4wFrVr+aAMpjs7a//zbgTexqUGRwyUYaST3lH wMUY98zxkViRMqz1rfa8rDDG5uX+MmV6ynDKw6fUi9cEq6jqMzOqKcNX5SeX Rt+a4J/CL9vu8ipD+JslLQtXGvaZfnPkz6AS1Kl1D+3ptsBDxZoOaR+VoH5H 7DqjjSW29UowI94rATmy3eRPsyUmD9urJzUogd8uydnU11Z4+l3frM5DJah1 J9jcPu3G7lcMvg8WKMFnlwqNdU9r3Gma3RdzWwn0GK7dIf2zxhXPD7/sTdrg sywV9xazxYEPvv93IVgJ7jVkP7J/ZYfHPCxDFf2UACsM0tj492BnmYen2k4q AYeh+4Cexx68Ld1nj4ybEhz0Nq4S22KPl6L/iTfQlODkd9Gwp2f34vDDTCWc AkpwbK6juz7OCZe1m8d3cSlBWcGFAbM5JzyC43yyWZRgYFum3f0jzthMUkhL a0kR8KMDh5XxPszdr1Rm/0UR9lZYfmHiccFGlicTJT4pgl6BmebxWBfsV13q +7VLEQ6BtukEkyvuSdtGCWxWhP4wRdPrmw7g23utyjNLFSErqmWPpOgh3FEX n+z+QBFU+HXLH+UfwozUTj/1fEUYoQ/0lVDcsCfvAe0XaYqwXOXNfUvtMCa9 O10xHKYI6Sy9lnUHj2C6WVKV8m5FkEiLiSlh9cDTld1pf2mKoDrlOfP8qAdW UBQPekYognxE/Bv3Vx44lilff5e2IvitD1hkXDyG7aCi2kdcEax+2V71Ej6O o7QWM/QFFSGwf7qALfI4rriNQhi4FYE3K0H//K/jWDSscXvyJkXYvNmTa6np BB7e3ltTOa4A40u1YUYZ3pj/wdZb4SMKQAQcunKA7yQ2FT1y3nxAAWRUbGav x53E9+d+GPS1K8AbFt3jDldOYd8ny7UrVQpg9H5N1zfbBzNoStNNLivAsb7z h6lZZ/EF4Z2HLocrgDo6sRo0fRbPr7uvNgYpgJNIPZOTlR+e+FBoYOWtAKbV T8MX1vzwp2BStZ2tAlh8y0srunAOO7nbOSdbKMAsYw5fzPA5/GGX31znTgXI 8+Eq1TcLwM1SVTrOOgpgq3q7GosE4qoG9PigmAK8dm349K4jCFNL3Ozu8CtA k9btXbtMg3Fx+sXJYU4F+Oi3GvDtWTAu8H6t6bEmD7LkXNW0hyE4mde6yHtU HkbjmH1WH5zHpw8cyA8qlgd9m8S/HNyReJwWbvysUB6ij7cvibpGYg+tnC9L d+Rh/Xl6/bUHkdiF8at0eLI8KAaK+lVbXcQW909mRQfJA7Y/aTxyOwo3JF03 aPSVh6CApPiW+ShMnC/tZ/WWBz+2g1JW9pewns2M6LUD8uCdX3NMmysaK8yG pibtlIfIoJBq/xuXcc5glk7nDnmI3W0QNrV0GUs0vewU1JEHkkvxIdOjMZj/ JiN/hpI8NKxsfn1l+394nbgaf5tTHsaYVyourMbi/muZ/z3slgPe8rSg1z/j cOdrmUeH2+UgpHOi8oLXdfx2/V6HUIscWO4dTrb6eR2/9K8Si6yVA672k+y7 p+NxnmvnQ4d8Oeht+SF9Oj4R30p16WDPlgNW4+K5rJ5EfKP9y+zLNDnY1/i7 dFk6CceY/EWqV+XgtQH74L6qJOytvqVj1VcOiqrgkcR0Mj567MZsubccTCuh e7tMU/CBOxJiJzzkgFmaNfFDegq2EVBz/+AsB4L1T/KWjG9g6rLZbCGWg4SB v9E2Ral4uTVS1I5LDowucB6VrcvAs5vZEDOLHIxeVePz1cjEEzjhSM26LPQd 7XUMyMjEw+XZRQozsuB60aT2ZcBN3HCzxnCxTxbcT5w25TXLwi+6dh4p6ZQF w1+vjHteZuEq7pbLR9/JQp1C2qNr27Px/aiPbe9AFv5ximmM6tzGcd6zh/Pu yYJkxugij1wOvlxw/rJz7gZubtCV7ZmDw4cYi7huycJAwbqpyaMc7GvPNxMY LwuknMC5bztyscMO0uVdAbIgnCZynNkzD2/lOPFg1lgWXgov8D2bL8CHXr6N kzOUhb/nhEv2Od/FuX4UXzvdDXyZfc/N6rtY6dOS3iNlWRiZn5mRiizEWo+u NxzlkoWYpEPJ0/L3sd/h6XtJzLKg3fTghmfSfVwh6HyNviYDwz6fFyoZHuBt YTL2ElMycGlPVDnztwfY2ObJ5w/dMnC2nSRi/vohjmYUrWdol4F7bfSr/saP cFPVhUJSswzsCS8Xqn31CO+WNjt9tUYGCG2s1tBYjJ3+9i7tvCMD2n3tz4t+ lWKv5DWhxydkYDIk0CXOoRw/Mju6OHREBh6Ov6ORC8vxxFLTAJerDFRvsqJr LZZjv6NJ+SesZUA1ocjVOf8JvqCjQJGhygDbm8yW72yV+OV4rKCNugxY05tU WDwr8absP/PnFWRgPZkDlzRU4hjmpy8/CsvAzN0A44qYKixVnJIhNS8NCYaO nZZS1Thf6KBb6A9p4Fp573k8thqrhCsp9XyShsyYkf+MZ6sxxfbZk+sgDS41 ghTr98+w6dRQ28oVaZgwmV8/n/scn9RVY/60VRpkxy5ZfMyhYz/mZ/cCeaRh v2DHpSEBwKHd5lb8jNJgEnTd7+g+wFcDjiVYfpcCocmSf0++Ai6qzBGrfiwF xweVRMY46nD5Za3avQVS8GpGO8nNuQ7XOL48NJkmBZttchO33K3Drf8+5Std kIKJ/9wvipnW4x+6IqRUMylQm+w9EZDUgP8yF3aQt0vBco7xkPB4A17o1vF/ qy4Fpd+YdgkYvcZsgfbVTHxS8O1raixl9jVWqbpu7PdJEsK54v6lnW7Cx/U2 O9v6SgInZ/Tq4INW7MOSsvjTXRIygss4akXf4MAe2awYR0lguFaZZHvlDY4J JL682CEJoeTlU2Vn3uLCqtCTGsyScPSnUDWPfRsuiWHnbp7fCmbWbYdt29tw lVNG2dGfW8GC1B8RYtOOG+cq/91s3wq7Y7PvOah24G96UxHsN7dCrvCxjznb 3+PfLJFyd+O2AuFv42cb+R7P9nC/NorYCiGL/WW8ze/x5iANjmCPrdA31/Gs 3+UDVnh6/MYYaSsYUXsMV6934qP6Q/fr6yVAeXR/iBqpB3ve13cyeyoBiZ3s 5IGLPdhbLImppUgCfMZLDat7erDvssmhtiQJOHfLqX/t0kd8gf5AoM9NArxH Gy11//TiG+YB4RPL4nBJI7jr++onnF7dpn52UhySNo1uVfUcwDdVVfpmRsRh Z4zN7t72AZzD+Ul7sUUc0M0jLCn3BnFxu9EPpgxxaNob5r9+4jNudOZyENMR hwfJPWGsWV9wS/OxTVnK4nDE92Dui4Ev+O12eomUhDgUxdvivVIj+IOEH7sC ozis3q3gVCkYwZ8/f3xJ6hCDUIcXDU01o3jheL6q6SkxCPN34A4RHsPLvSs9 jW5iECJdqx/jOYbXLJ2iLfeKga5UATX/6RjerMH+2WaHGPjemRkWO/gd8/31 ubGfTQxQSOjyvspxrBa8Y92nQBTOMjj1aN/+hWHQRm00TRR4Cicjzdl/YyeT o47OV0Shked1w1DAbxzFHfeQ8BGFUAkbuUd7/+C+gkFn3m2isG+ff/4euUkc +z6y7PEbESisNR7dHjuFpfRTPym+FIFdHvcdt76ZwhVZD1hulonAgW3CbL+5 p/Hw8Q8HolJFwGp7rphb5jTWX5Nn3+smAnOB0ZQfz2bwmFrTkdlpYdjJWfPc XmMOX0j8FHfimzAYO/XJR0bMYf65yacDH4UhqSTeuq1zDuNXotyva4Xhs03A fH/EPE519q5JjREGzbItMuJjC9g0eouAvrgw3OZlkvabWMb9P2TxQy5huLUs O+ThuIJ9bfW8pNeFILzKcrjixQq+Je5GZ/0qBDTnx1Jhyat4uqzsZG+xEJSc f9ksb72Ocwf3NoTsFAIWluEkq8ubCOpX6lKXjhBwkE64nYFNRMNPPjJZRQia kgI+WK1sIsbm22+NcQtBkKH8Ec1ARkKNf7f/3gFBSFbuZe/1YyLKzUzlNIME oXKfiVhsEjNhYi2/L9ZbEERkbmuw9jETXXsZ40cPCkKoVeitg7IsxNxhWMw0 FYRm1T0WmRUshMF5w/cs/ILgcNHoz5VvrERDqU7k8CMBuN1wxdXGn4NwrBKo MsgRgNNOrI17WjiIsdrpX2kpApCt6eq6R4aTYGstc7YOFYC0joAWm/echPVX Da0acwHwF6r58R+xhegRVRxKGeGHK8In124o8xLHpTcLTnbzA9eYVga3Ky+x oDhqadXCDzRL0yfiCbyEuHZuJUMZP1RbtryZXOAlDllLXj8dxg8PGpmjnnTy Ed8vChmai/ID+XN0ZU+hAMERVjqZwsEP+6wcwOSHAEEKtswfXuEDe3Nf8SAN QSLQJ4wj9AsfaHx237qtUpBgcf3W+6iIDyLTDTydO4QIBZ3KAH7EByFDpLTH JFHCQstW1U2LD55kPa/wCBclTqn9GHgoywc8Tkt+K22iRIWMpCmNhQ+e5zxN ++InRphsucwf3M4LjsvHNJ+9FifcxxxKB4/wwnC9YY5jpiQR82XCXc2BF851 Gw+iBUmiaCBWOMiMF0ok9NXU9kkR0x9qw3jVeSFwXKJHWEKaYIywzIgZ59n4 P5fUPXeSIQjKj/d7tvDAn6sWdcxMckRNqgpt3GkL2H4nSY60KBJsrt+PbjLc Ar/23prCHEqEk0xhlLjsFhA7Ov1Ud5cSMV0kD7t/cUHI40MKs21KhCpIGTyO 4IKSP9NiLYPKRMZPQUrofU7YKRWEToupEWOlnbYp1zkh4Xdi1IujaoROQLLP Iz9OOEQO2F1eoka0r/M8GjLkBJ6ZqIhrZuoEixCnssl7DrDubSlnD9cgAohN klxL7LCF07Y+jkuLqNsMBoqf2cF4+nCC8xEtgrc13AU3sIP2+rr/2yot4pHD SrpvPDt01sRc6KeQia9e8/zdcuzQWrlZ+tUImbC/8Yft9i42eHuRZWuYA5Ug /+ib1cpmAb5HOaqWgbrEub+aqiLRLCD+vOdj5D1donr+4sE1bxa4x2uFlnt1 iZ0sao1vt7GAR7jzQKWhHmEvH5ru1cUMqttYy8ms+kTAQfEd+ZzMsCWWlyP9 3jai5r1LhHAoExx4sEY34zEk1npLnqweZoKu/eJqcuaGhPEw4/hXcybg6nNb kIwwJN5MFNk9EWKCX2uH352ZNCQGOJdl7R4zAq/6+LjFe0Ss0241XBnfBK+f HzjOnkEQpjWf2FedGOAQszD3jsSdREnR3e1NBgyw62CvhHXJTkL01hmvJBkG 8K1Ui9r5difRM8+SvKtrnb5rOTW9gdWYUDzvxJu9tEYfej9v/vuCMVF38R+X kfkqfTJ56oXtQRMizf3KqS7eVfoezrKH1GATwstE8u2J/hV6Z+CTqOZkE4KX mXYt6fQKPbSwtX+t0YRwi73BPpqyTNfJvm2lpW5KUL1UvIIOLtM//9giY2Ji SrBY1TZzKi/T6+w+5/1yMSVKOL/+p1OzRCfp7lz4EWtKrMRrs8QML9LFlJ+8 lv1sSnScaTomXrRI387dcOnIjCmRb+f6usR/kW6jxSPKz0ojrPgvRX9kWaTv S+RlLNegEVIzwl9PdizQ357O0k3HNGK6s8iE4eYCnadRc6nXlkZkpn5gVNVc oCsKk5oP+NKIU4Ge7i/m5umklOiulAgaYeS89GoPzNPvptYF8sXTCMFt8bJj V+bpe26ZjrffohHjonIXQ/fO04c7Kk1b7tOI2sXKYW7JefrbhJQr8xU0IqHf 0ih/bI5uZVya6gA0wv354B39sjn6GecSlf5WGqGXdXb9Tcgc/Ztb7MjFLtrG e8Psdthkjp78gsmENkgjBg9mvpzlmqOLzWs9kPxGI8qwptSVnn90FDpkv/k3 jYiWfhUmmfOPPpQgdmB6ikbsY3AcfOz1j76mnPlyeI5GaHwZNzTT/kff+1N3 T/MSjWCou5DVvzJL/7LXpSl3lUZ05vGu+DTO0geyz5YdW6cRhZcKXJkSZ+lT rI5BXAxmRKjHtufp+2fpj19VHYnfwG1ob8U15GfpDCLXEkY3zsspHQ6F3zP0 O+jMEtMyjZhjme1zqJqhTzhxB3zf0G/5/t/2HxEz9NcC0UWXN/xlNUtkhlnO 0EkuLyR7ftII3welC3wCM/QX9T0qHSM0gsztc8l4eJpu/FU1XaifRkz5aXD7 F0/Tr0XUxct20Ijyjz8z8kOn6a86Tuf9bqARfoYP5LvMp+n5GRymZ6pphHbu 8ZLNQtN0rt/cDblFNGKWWWm77sgUfZ85154LG/cV0J5nk3Zhiu7l2H6HPWQj f50jfY2WU/S11g7eR8c2/GdIe8wLT9HJwka/u+1oRJB7Vsi+x3/pvWNMFdly NGJbk8vmK+F/6ffkbTXU2GnEgrpYwrNdf+nCnGOKEhOmxPV/uY+xzl/6uyt2 KVxfTIn/AQFt83Q= "]], LineBox[CompressedData[" 1:eJwBwQM+/CFib1JlAgAAADsAAAACAAAA5hS8nIKX77+FaBM6xsdEP3dHoolY m+6/JXKTgEzQRD/4EB+fuTXuv9aOQDc10kQ/edqbtBrQ7b8mfzfYNNNEP/qj GMp7au2/WqotekXTRD97bZXf3ATtvxQJ5Rhh0kQ//DYS9T2f7L9NycWUgdBE P30AjwqfOey/wsd3sqDNRD/+yQsgANTrvxw2eRq4yUQ/gJOINWFu67+pdbVY wcREPwFdBUvCCOu/ob8Z3LW+RD+CJoJgI6Pqv9FhKPaOt0Q/BPD+dYQ96r8p JIvaRa9EP4W5e4vl1+m/98CjntOlRD8Gg/igRnLpvwCxGzkxm0Q/h0x1tqcM 6b/kWnGBV49EPwgW8ssIp+i/R06FLz+CRD+J327haUHov4DMJNvgc0Q/Cqnr 9srb578/nZP7NGREP4tyaAwsdue/1vUT5zNTRD8MPOUhjRDnv5ZobdLVQEQ/ D8/eTE9F5r/RcoDR4hdEP5CYW2Kw3+W/Fx0Joz0BRD8SYth3EXrlv3u8C+8a 6UM/FPXRotOu5L/egkjqOrRDP5W+Trg0SeS/67PCN2yXQz8WiMvNlePjv803 LTv9eEM/GBvF+FcY47+La8sBGjdDP5nkQQ65suK/cuMMM5MTQz8arr4jGk3i v4LxQvVG7kI/HUG4TtyB4b9otUtSN55CP54KNWQ9HOG/KnOCGWBzQj8f1LF5 nrbgv1qqUMmbRkI/Q85WScHW3798ORxsIudBP0ZhUHSDC9+/yGh/N1i0QT9I 9EmfRUDev/wQEpt2f0E/TBo99cmp3L+Dx/TxQA9BP1ZmI6HSfNm/ByHHOMwT QD+KcXOIkrXYvyZxkhTQoD8/vXzDb1Lu1784n0/bTxU/PySTYz7SX9a/39lL QcnvPT9YnrMlkpjVv6HCvKuSVT0/i6kDDVLR1L+yEcjNQ7Y8P/K/o9vRQtO/ s7a+p/hnOz8my/PCkXvSv+rm+x7JuDo/WdZDqlG00b85ONjJGgQ6P8Ds43jR JdC/zNBw2NaJOD8eM0gsohHKv+b4cZquTjU/hUno+iGDyL9+l+g0iHA0P+xf iMmh9Ma/g1utXwKMMz+6jMhmodfDv0gcLNpfrzE/rcyRQkE7u79FT//1s0gr P3v50d9AHri/f6QghasfKT9JJhJ9QAG1vxE3+ejp5yY/y/8kb3+Orb9GqljM K0siP2hZpal+VKe/3yMvMErLHz8EsyXkfRqhv3e+35Sh4Bo/QBlMPfrAlb9p bDpwztUVP4jG+tBYH4q/SnKbNmo9Ej/qpd05 "]], LineBox[CompressedData[" 1:eJwVlmc81v8Xxm2yV/aet1127vvz+Z5EKBpGRnZSoTIiElGSMiIhEpE0ECEk SSLZu0gyQ1ZWkYz/7//knAfv6zrn2fW6JF3Pm5+koaKiEvhv/H9HfVzvsBG/ RVjDHS4B4R2EhUZfVeTeHEJCW/9NticTUdZvffVG8HPCxFFnr48oE8FWMyNd Z1dE0OuEuYh2MBI+7p4/6+6WEfubc+MYdBmJ7D1KpvUvXxNtH5WKiDkGood1 5kV9WxWx1uqedOgRA5Fuq6V3IuI9ITRcP/+Di4Ggonq1faK6gfClUt1Xv0ZH pP7k3T1u2kg08V75ElBKR6h3X3B1G2gignzy1ua96Qi3XM16t7VWIqfK6qLS LC3hJmdXry7YRZx0n+PNnqEhGlr6b2lY9BGTn5+arLBSE6cDvzYcV+onwjOK Jc+2UxFMMgN0EbRfibZ7Pcwv7lARB4K/hfaUDBCpIH/lijAV0aIw5OvPO0TQ 9TMUHfTawqf3+RYMTI8SrcUHEs4I/8O6qUvNv46NEXcX0pi8ytcx0y/fadoP Y8SsoF3NW8t1/CzNT175/jhRb6jVQyT+xdOLF7IuH5wguKwYbxwTX8NeDy8m ieb/JG5vqu176v0bU/6sluwWmCbaCxJop8V/Y1bTwC7DiGmCJa9aXb9jBRes BnKcs58hWBI4q0maK3j+0KWb1axzBG2XmuMFpmVcEVpdXai9QCisJkSYDS/g h8+2Wl97LRDWfN4ulzMXcFQPHvyQvUAYeIo+indawDaK7/59YV8k2Hb8Va6q +4X/9r7TpZpcJKa8FTWvjM9hPZX3xUdSlgklO0vZZJ9prNXzObm6cZmI+vKK +y/nNN4VPHtJeWOZIO3/Q/vo5U8s18i/j8llhbhk/tq36s8U5jl5rvud4m+C psNY+f7tSTybLryiWv2HuFwwv96zNo4n9+3uS1/4Q0yfbCdmno/j0en9VczS q0RyaMgou+M47tf1jZi4sUpU/q0Q8mkYwx97PvFmHF0jTk4e0DTKHcWZrAFa bD/+EkFHBTmvJwzjtJJowWD+dUJmes/VNfNhnGyXtTllsk6oaRnfNd45jGOe ttTXvVgnFvdssU7qDuFAA+ljlwP/EW3c+oVHzwxi88sdATMsm8Rh0o/xZN6v 2Ex6ws4WbxIhiT/n7hX1Y+Omf7jBe5P41y53juZQP8YC8oyPejeJASM5q78x fVipNCTFLnOLiBO+t3tN6AumCdj5zU2QClS4k4K8/XqwnfPzrgpNKohUP9BF Fu3BxQeIRtYjVJBDG0Tr8Kkbu4qfKSuNpIJg6cizsVLduPZTVTzdChX8yos/ KDnRiYVKjt6w4aCG+Mae4Z1pndj3wURIviI1uNjyjuod7sRSvpyeli7UsGmm nUj3tgNfE3YzzGmjhkTxhARk2o6/0f8lr/2khpV/0gOUj21YcyFW3ZSeBhKS SxNs9dvweF25+AqZBqjmUrKaoRUbnGNZ3/eMBmbMOR5WWjVjuvfFL8au0UI/ RaLXrr8B2+cZPdbJpIUnPA+Jlz4NuDTp2/3oSlo4pebJWczSgN08GG5qLNKC C/eeM6kGH3E9j92Ja450UOZzw+NoYx0W25q3/RJEB/tpJL+anqvDAVPXjigl 0UGP26/597x1WO5tAepupoMLXCa6NO4fcKQ7tYD0Hnpoyzq/SQjW4u9Hktkv WtJDvVd9hVfje6xNVqJvPk8P8YNxwZOX3uMJDqsl31x6YInmKi0eqcH7Xz9t qeVhgLu1p9wUL7/DjKxHwl3nGaCYqPIcOP4G28jb1WjvYASnscT2F2OV+Lm+ 2zazDCMIKdEqBp6txIeCAkNKbBlB++FFrrbI1zh54mEQXT0juG3P979qL8dT 1HkVfUOMQAz72p5yL8d6oq9W89cZ4YzMKbWerTL83aLR32oXE3iYovA6zTIs 937RJ/c+EzSmXM80LC3Fgd/+FV0qY4Kpl6+o+G1KcdMq/cKhTiawv5x76fxm CT6nKnRulWEHcN27ffyBaQkuu6/vYey7A5Le3VQy2niJDQMSXaeNmcE9Wyi7 T6cQJyc8yKo+wQz75qau0eS9wFP5T4bvhDLDw4pfW7ckXuCYsTeO5FJm8B9y NU7gLsA9R8btYsRZ4Ez3i09nufKwnNd8qrMeCwyGP2SNTH6OA2+s9WlasYDO I62UEtHnWKSa1XrwFgu00tmeUFZ/ht2UtCxU/7CA431ZmQLfJ7hsP3GHhosV XKWKNiMZn2AmV5POz0qsQPv2gaRWRi7Ov+dw+IoLKwxcfsW90PEYr9BHHuxo YQWaY+8DeQ7m4GvDn/f5PmIDQ9FfFjQxWfj764NnA6vYYCj66hMyZGG9xJrk 0F42cGZw8n3x+yFeMHz+8xYjOwQJvkcqbg+xY17I7Uee7PBAZ7+LUEYGroxY qngWwQ6ue05FiQlm4J2Op0YLH7BDYi+ts2nyA9zCeVSrqp0dHokL/KNJScd6 ATIDPRocEKbFWr1clIaTD6fSDZhywOnKv872lDS8SGJXHTnJAWeHv9wuaEzF TwdWw+ZSOKDK8YLOzM97mG9vsxzDBgdkyCy400MK/ku/57WwKycEp7Q13afc xbm+y60Z5zjhb6gT0hlLxJZDBaOSwZzQlpa5YRadiIsqpFhJdznh1/3qoN6h O9jdk9VJ8yMnVD7qYnuemoB5+z76lXdxQpO41vDlgwm41iA8Sm+IE5qVgv0e bMVjUbE/L2GNE/xbDr0oPh2PezqG6MwUueDpdeU95JQ4fBWlCXZoc0Gs9j7e dPY4vOu5parFPi648oGz1igqFkdfa7S2teeCr00bO+2uxmB97ZLnJ+O4QD9V hd4r/hYuuh95JHSJC2Ye7DN/z3oDN/NETnJQccP1i2efbd6PxBPR10Oz2LhB 5OCStplKJBa5HJFfR+KGYsWlAqpj13GU/VUmFiduyKwufVNVfQ0/6gnPTPfi BvmmK5ZJDtdwtWm4tuolbpB7vBGht3UVr1DC3I4mccPs2jHxJoOr2Fk0tCal mRs27ikvS06E4eCkEGuFfm7o5fOlu3onDCezhcxXTnBDI/MfJh8Iwy2bwSLf qXkgjWhnfbf3Ctb9HhQoo8sDZ51pgi5PXMacmf67XubwQE1GlXZtUSBW4vdv 0C/mAUUe0mt1rUC8//YFx553PPDv+QeGtTcX8eUrfjGrX//T+ycuWXUE4Ckn nynExQtTqVEjZB5/TNvnfaVdjBeY6yZ1VZ9dwGJHvPlclHkhMTZkWnrvBWwJ 5w0ijHjhoWngzHKAH66ROPuwKYQX7gf1Wij89cED97x07KN54UC2MdLN8MF/ OL3a5u7xAqP+rje0hj5Ymdpzg7OUF0aTHy0UpnjjeyOnbayneeFWfYwAbdY5 fD7bjXP82E5gmGKT1+XxwHFBqelxJ3aCeNjT2EfJZ/CLI22kPd474UzVgzuH RM7g+S2dvXE3d0KoSEEGWfU09jrO4qtbtRMeTltvnvB0xzHqsDX6aSeUPnF2 ebt9Eufv8L8V27sTJM49HGZOPolnyr9nj87vhG2zEXunT27Yg7e4O0aSD1oM gxNp9p3At2YmnHRU+SDl7ccdnBOu+Hmt8OyIHh8Eb17Mar/lin96X6fTseQD ffkLzfv7XfDpVhutkUg+iGRhI4xuOmP3yO1krVk+CHgx3czuZI8jHTSlh9f4 YLppxKGt5zjO1TxTeIueH1i2jsYLmR3HP0a7GobE+GE4NTNJ0dAOuxG5azeP 8gPNup3JwlEbHME3EKHpyA8ZZu9Tvn61xjlzHFxDHvxgyvVp++9Jazx2P0hB M4IfWrTnewqvHsOua6Z238v4QSw6ZfdkjyW+2h4+EfWBH45Jez87fc4SZ+eW +Wp08IOUySum7h2WeMRSIjrqJz8YXbrsQ+y3wM4vl9+oiwjAWzS/frPnKHb0 SBO9ES4AVapT52euHML/+ne0LcYKQNiUdo3LjBm+ZxIUap8mANSvfWeTbM1w J8lmaHeJAPzzS/pNj02xweTOrG/jAqDWLXS+RPYAHj52/ajRogBUW8e+qn9s gkM+rlAXbwpASxIpUIdkgssed7ve4BOEjhRjJnZNY6zgliCjbiwIW+UunS7u +/HHbqredEtBCOtZEDRZM8Su+7yvM7oIwt6yG/UoxhCnSx2e+BYkCOlMtZEK lQaYfYT16Y08QbAakopmUdmHVxyilAbZhUCvYe5C+CnA8a2rA0bCQrC6+Y5d lg+wCjoVUyz/H6/p9sqKIbC7yP65GyAE/yZDvI2OYdz/lbZQ3fc/LvnFZYGF ggMO+Dk9CBUCp4mMVa0wMuauHOVgihYCtge/hCRW9bBp6nvvwUdCQG7pfFY0 uwdXW19Rj+oVAvXBx7b+v3Xw8Yb50aURIXjiUqUdH6KD17QdEx3mheB1m67z EqMO3s2HVtQZhcHIVrnNRVob5/SsvxrUFQapnGzeFj9NfPNowB6NdGGoeT/4 8rjvbnynRdEr/5kwqNlHnv3GvRunGw1lyJYLQ3uqb6Htq124CBnTCXQJg/a2 xpwE1S7cpyDUvsEoAk/vHKvPsFbBo/+VsYCdIuDbxv+dKFPGs+LXNH9JiYBi vkcmCChjKr7Z1BEkAnJDN48LTyhiEk2120c/EUiW4nR0fkLC6iG+KUS4CMTZ rg3LiZMwZU2uqSJOBCg9i5JNqfL4yPxttbxnIhCRNOHomSKHL351Wb89JALR RirhUcUy+GMxfbztQVH4nbNDLN5eEneoVNZ22Yj+l19ZOlX/JPDXp+d+H3QX BQWRmGN/0iXwfMYXOxwuCgcuCSx3NYljvuhnstLlokD2OyNqLiSKJRgcbdLr RGEuIvq3/kURrBjOHb2zSxS8n7z+V/BFGOOLwQuMc6Kwu2RE6lm2ED55wuzN rJQY1LmKKO93EsDnvlPPn9wlBjk3XHgEPvPjQNsyiSEkBr37dkd9PcyPYw6L R3baiIGoXX/x0kE+XEpePFIWJwZL/06kt7jxYjrepIkr62LQXI+dqNi4MPd8 KDs3ozgI8xRMJhZzYslPp7VzeMSh0FSX858tJ8aXKZGflMWhz/+zFWHPgYPG x2S5nMSh0rGBN6WXFUdVt5o98hQHW0eNHCYKK06+V+6vFSgObyihAymPWXCp aXS9bYI49CtExnSEM+P5UvWT2R/Egf2aywM6Bya8GScSq9khDr/ZDw9XfmXE rGcYXn38Jg5la3SzAscZsYLoV7qZ3+LQXX4hP/kEAy6uhS5BXgkgtCNA7Q4d nlWc8nHdLwGXR87Smh+nxiv8g9fzTCXgxpL10TebVPgfXVfqirkEtC606XBl U2HmoTfvI50koIaaxF0+vI3kE29z5QVKgIbArcYPBptINSxCdiVUAraYHl8w zd1A2meD9qDrEnBz/VenEMsGMjA64dKeIAF/6f9FG35fR67/tF8uP5cA18Hl QI5na+jMlFI95aUECBU6tmxLrSHvXon+6+UScCSU+F6euYquFDJTC9RJgJX3 wl/DrD8o/cT3I5RBCSjP/PTe5sMK+tJ8fSGCQxIKqcysFAIX0V38wNCKTxJY VjP8L3IuIvOXpWmyopLw5r3ytljeAmpLHjP4qCgJ68Lvh2+1/UIfXfamMu6X hJjPu1uFlmdRRI/N/BdTSYjsyyiM2D+L9I289z21kITvrlpS3x7MoGrlzDlj F0m4lLv4Y916GpWtbuy9dVkSnPSFMnNWJ9EFD94Uu2uSYKw+rC1zehKpDyrN Kt6ShIZn7ypmBibQi1q75OYUSRjxV/nF2PoD5cZWTLOWSILqzbbc8O4x5EbV QQy+loQdKpcEDtiPISm/ybsFNZLgW6B5qX1yFGXY8BGH2iSBmOyP7mIYRcnS FxJv/5QE80MTJP4Tw8gyOXrKaeE/fz7lmyTVMOLe8QjtWpWE/SYtNNN4CMXN d0520EmBmNJgZFjjIIp8rUbhlpCCasfbX/i5BpCBslHCqJwUfK0tLFry+opo Mh0nilWkgGxdfPh+Sz8KjYiNtyBLwelGFe2t5D4UcHhm/O4xKUizv/70ndVn pFlLo3fSQQom1XwVKlt70ZKm0G0tNymwSjBWGzLuReeETPZ89pGCXY6hwU7G Pcj9R24sf6wUSJLvWh3y6EIyNtWjk4lSYCcvsq/wbycaberVqUiTAoX1v5Ti 6E7kWEQ3avNUChZy2/lcyjuQVbCrdtoHKWCtOjAbb92Gkh/wMqw2SgHXYf35 c89a0ed3H3stOqTge8cHMfHtFnSMTsmfbVAKJuy2ErNfNSOb2OWSsD9S4Hn6 cwa9WSO6V/j42uCGFJh7p5bsffMJ9XVaW+jRSkMzurNcovwJ2fJVLS1zSIPA n6awFYEGZJcZsfuUgjQwpzSysO2sR2nvtanr1KTB6kEZlfj9OjQwNtUhoS0N j5IUL41J1yF7kpn3V31psJxZijVGH5DDy52FZvbSUJcSFb0S+x5ldDeEPneV BkPjpbwdpPfo+++gQ4xnpGFIW+Gwa10NctT7PlfjLw0ty0NM+bQ1yPlDrrLm bWlQtBcrydZ+ix7+sNmIT5IG7pQwR5eYKjTCyNIyd18aRlhrqGd/vEGupuc9 nzyVhlKR1F7OnEp0olfnuVCtNOjYnd12PVCBclZ/Bl38JA0ndtKeNa4qR+OC 6SY9bdKw/91FG/vd5cjNkepn7IA0qJR2FnySKUPuk5/kqX9Lg4VMhesX1VKU uyN41eGfNGwed2YyryhBk0oqDZXUMuC9VlQcYFCCTnsnuF9gl4Fh61PuV92K 0Zm/to8n5WVgcLeSGk9tEXouzOpvoCoDezpx5EGnIjSNqg2yNGWAciuXPWSz EHlclRq32ysDZZuDdQZRL5AXy4xUm50MdEatf5Rqz0MzQZV0LC4yUPGX7NSk koc8pm5OGJ2Sgf654BTG+OfoVD3p+Xs/mf/y1CJ82fEZcr3ivvtVjAw0yvAV XZZ5gkbmtHiW7siAV2Hak9cPcpGzPf1v1VQZGDmssbUqmIsc9+RUPH0sA9rv Oha1hB8j2+URIr1aBs5/73j7Bz9CfS4vJfvrZMCtufZbcFs2OtYRRsvXLAM/ T8WkXHfORpYF4g23v8jADH3kk/noLHTklMOhawsy4FicHkzZzETtvcq7av7I wDOvvfJpezPRIYMNrs0NGVDStNFSu5WBDkre7w3YIQtLtpdWHso/QPsH+uw9 pGQh8Uymh0JCGqo3eYqfkGThpeDNb3Urqcig4qLEuKosqL2tdpg8nor2JvGN O5Bl4Rx7jqKv5j1EOWzpedRSFjg2/n27xZqM3ryVNouzk4X8XxmJRreSkJ7y smqzsyw0P7lyYJU5CensuLNkcFYWTNrk+ed47yL1D+1BupGysH84s8DP5A56 uTvzuH+MLDSRm/YyDiagXQ/PoeI7smD++U4al18CUglho1bOlIWzLBHl5rnx iKRzMEq84j+/gKuXxJE49OSxkId9tSzIMQin1N6PRXK80wdT62SB+U3un/CZ GCSzGMXB0ykLLCemn6wnRyPxvI/JDNOyID3MbO8sfBNZZla8blqQBVFWkYnp wCh0K/H5t7hVWQgJvLwv5OsNtBIcJ8VPLweN8b4FVs8iUZPpsRfyEnLw5w2T O9kvAlHtNe6ckZODjbYGC/f5a0hLS2+lUEUOXs/GGQ17XUMPRcX0dMlysNf3 z9Y5v6soYP5HvfExOTiCzX915YSh/NEvU6wOcuBiJPXSTDcMjXxuZOk8IQdX HPNdttKvINN3BUdtfeSgULfW8jp9KJKK9x88EyMH+tGGdhzcwcgm4hSVauJ/ 999HsY05X0KxgbbSS6lysJhyKVihNAitOaMzl57Igc1IGmPmqUDUupv+961a OQgh3z9huO2PaORW+Q83yoE1L/Pl2nP+SFfopx5PhxxE6iQyjY9cQNk0rWH3 B+UgVcC9s6LLDwV232XNX5OD/nnVNcNvPuhFQ6Sa97YcJFnt8Lni7oPG3gSa azLIg42sWnfJsjc6lGN/r4pHHr6U89LV8nkjGX8ZmVZVeVi6vLZvY90L2Z3h M0rQkoemsgIxJbIXuu3A5GFFkQf3AAurPWGeaN1wtnDQRB5mzV9qBQp4oA6+ UvK8mzyUCp2fNgo9hRhYch2LPeWhsOIURXPUHZG3U8IDfOXhxfq3s8IH3FHu ZHDD1hV5kHjHw+ovexIFV+yz4LgvD7+CSOUvGU8gdfuOBacseTh9LdZSIcEV TW/bxxU9kYcPJpbhAaKuyM4ooPFoqTwYp3e3mGEXpPf5KXG3VR7kBkPWj2En tBSkNTjeLQ9vJ9Z5OYMd0XPR2ktaX+VBl9LSGFjlgARPDrz6PCEPlZ2v0qZM 7dHaMpuyIBUJPH4l1Ztn2aKilLTGMwwk0AiM6L9LZYtOk+VPVbKSIMPh+o9X J2xQ31XIPi5IgkGzpWIdLWtUzuUnkKFOgjPsj64201ihc6+2X83rkiDv7au3 d0ItkZxtjAVBkEBkPI46ZtMCJT98HDd8kASCN3m8GugsUIBaH530SRIYnWRn ctQ+ilS73bL9PEkQesT84ovGI2giYJGo8yGB207N4iynI8iqmjn4ZCgJ2DV4 9FzkDiNNM7T4JIUEvjr6RbdUTdHsQmPc2gMSEO5McxvBB1HO3WPKJjkkKJfL z2loPYB4v50/NV1Egiu8EW83QkzQskf2oHITCZZvWppJsxuh5+xqwSEdJFit V7p5J3g/ci1+I9D2mQQX1D1kkmcNUdffHovzYyS41NnJQNtvgIqjGJtebpCg WOJziVK/PvJQvnuKhlYB7mTo2S056yOpDgl6ix0KQLFKMs2b2YsS+PVgZacC lDT8+JK3Yy/yzvUq01ZTAOOugdfMLRh9bxdOYtdWgDYFBoeCPwiZ/W3ym6Ao wNVdUsSWHEKKpgq7kw8ogCr1RhjPPTIaX/yR9/ukAsxtl+aKVegic+GkW61e CqDx7HoNZtVF7w0Mzjz2U4BDS4wv/7jpoIyUbDmrcAVwVXxiXiKtjayRU1Zp ugLsNYv6oNatgT66s4fFPFIAa3bdH33GGkgz/q2j23MFePyn+49OrTriHBMW 4a1QgNl9OXal73ajpqi+ZL9uBYgbO3pE8qMa0i2+4X/wqwKMj1J4MiZV0ZMB bUvpEQUYck46K8ChiiJUk7i65xUgdTM43u28MsI9R2PUmRXhnPXFJkUfBZS/ SeXJzKUI07+U6uyrSUhYvshklF8RyCIN2Sc4SWgtiJ3xjqwiGG/3nTtbK4eK xZvDF0ERxNzzq9iOyyAJk0vOjUaKcK2gkzmkWRrd9lUgsg4pwpSMs2gnIY28 6m9sHLFXhMODXT/eakghWU+Di0UXFWF/9Pczs4YS6O7dZauoUEWoYag1DH0s jmiqszWdryuCXlzvj9P1Yug7J/USR6Ii3Es+PubKL4rulb31Ov9CEc4Hzf0O 3hZEDMNeB41eKcJZo9K8nv2CyH+HiKJ4lSLM8J9q1E0UQOb2lybbGhVhIlDw cKoeP2Kl0XFV/aEIK/E3OEk1vMh9rn1fxpIi9PbUCyVn8aCavtOy7FRKUCFv o0jc4UZ+hWlTc0JKEF4k9UUkgxO1pGk0OZCUoPDvr56i8xxILrIlr1VLCQLq rrWUv2FDX+23zhUcUYI91+JuONxjRprGKUdEHZXg03/dM01uB4rT2KUe66kE pEH99YefGNFeZtffXpFKcLfS9sL8PnqU9nv987dEJdgk7+I0FqZDK8OJFaZZ SuD57iR7PA0telpeH6xcpQT5bOaZKZtUiOaRo0N6oxJExKhNfOKgQvZxq5j1 ixK8sOUpTnLYonCcVKCZXVSCynujL6Qk/1FOH6kdO76tBFQf1CdIOX8pteTj 9c2symAhkjj2ibxGCeCOjcqTVwZxL9gfnvOboviz+mC0vjLEpNHX77JYpnx/ t8Du6aAMRxc74uJhkXInWarrQKAysOHLp3e3zFMMz1omKSYqAwfFr6U/eIZC Q7OoT8lXBs5L7cNjr6YoNcmxC2b1yuBk39eWoT1BCVFSzHD6rgw63F55gqtj FL2ajwd9VpXhy/WESxyLI5RVyxN/r3KqgHrK99bPYsOU0p/buXcVVOAAae7L 4z/fKD6h6Za5+iogcPvd6xbarxRVnj00FcdVYFdu2oVW+y+UpxRfh4FYFeDf S75L39tFkXbPq9h6pwI3lAOviVi3UTJuj/NILalAV/tMQprXJ4rAa9HzhjKq 0K4hNMSR+4GydeKJMJeSKoQce26Qy/OBMs6++9O33aqgbvmzx/t6LaXIzUDy AvEf7xu/qOD/nmLE6dmdbacK+nZ/ESfdO0rAqQodqgRVCL0oNzbqX0Gx59Yf b05RhSBDYThXXU7Rf9scn5KhCkX+14WNWMsp7DxDP1XzVcFjKyLbqPwVJbea Pt2hQRXQu1qf6P0llN6dFlRvNlXBWK/Al+34C0plzbf8SDo1OG2159+UfwHl oae7rTmLGoQMr9ufT8mneL0PKv4poAaU31nSlXPPKXRnH7oJaKpBPo+l397R JxTNurlP/h5qECOgsfHrYzbljm9Uwq4vanCdruuRBSmFst6SXxE1qAbLNV3V 368mU1zlO4eGx9TA9ANf09pIEkXjm6BqwoIaKKQO5R0vuEuZzrb6sUa3C17U MXTd879DiWGdDLcV2wVHPakHsk/HUtqGdrwROroLFBlNYsIzr1LMIw+rPCjb Bc59lEO7s85SFI9HWOWE7AZj8YpKgy/6lM8TO7ITrdThw8N9PWOxPJQ21x97 ucU14N1JsRNS+ybII3RP1pKkNMDvR0lP2NUf5JXc04WCchogaN4UeuTTOFlw ZkZEUkUD3gq3s3m6j5Hd/JZW1cgaILeLu5Vmcpi8fm27wMxaA97MHdRkf9xP lnssKHTztgbElBiF3vdpJe8xGuhgTdQAkwJ1j57zLWTTn+k34pM1gNEhdOlj QDPZR0Xid8oDDZBpMpEsetBIrnol15GbpwFCFyZ1N4w+ks0/akTWNWjAWVnm nQN9NeSTp39TjJs1wP9bfXCYQQ05kLl8ublNA3iH7tG6e7wjPzik59LdqwFs zLJasgfekqc+A2V0TAMsY27/yLrwmrweSLN8clIDnJ2vrHclVpDZhOue/ZzW ANrj1G4vK8vJ6k5G/IuLGhB1tPfDObEysiH1jrYLvzVgrfhrcLvdK7LNo6aI tbX//pmMTAw/KCV7GMaQL29owFZdM9uZyRJyyKTZ0va2BnT2Hp5W0ykh/w8d khN2 "]]}, Annotation[#, "Charting`Private`Tag$57481#4"]& ], {}}, {{}, {}, {}, {}, {}, {}}}, \ {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-20, 20}, {-7.686257045290921*^-16, 4.594021831754259}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.789181705447239*^9},ExpressionUUID->"f744efcc-31e0-4870-b53f-\ 9348266dbb21"], Cell[BoxData[ RowBox[{"{", "0.14886896080672762`", "}"}]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.7891817054536963`*^9},ExpressionUUID->"d9319029-0c7c-4fcf-bc03-\ 4e80f691440d"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.9999956854031684`", ",", "0.9997037960283285`", ",", "0.986446529858508`", ",", "0.9390037286573152`", ",", "0.8612190862766972`", ",", "0.7673211911841604`", ",", "0.6695453806316138`", ",", "0.5757115510605526`", ",", "0.4899456542426297`", ",", "0.41393937498609173`", ",", "0.3479392431914464`", ",", "0.2914123101270937`", ",", "0.24345634740810027`", ",", "0.20304294257870265`", ",", "0.1691439745777453`", ",", "0.14080191409646`", ",", "0.11716139621525977`", ",", "0.09747323410961661`", ",", "0.08109331038565745`", ",", "0.06747531252838183`", ",", "0.056156894831274215`", ",", "0.04675158162932427`", ",", "0.03893559784836309`", ",", "0.03243900277010144`", ",", "0.027038220847148502`", ",", "0.022546525982907146`", ",", "0.018809777791627003`", ",", "0.01569968492031675`", ",", "0.013109987915016707`", ",", "0.010952576127692468`", ",", "0.009154566455012246`", ",", "0.007655167193667365`", ",", "0.006404304891911919`", ",", "0.0053602779608427995`", ",", "0.0044883996001675`", ",", "0.003759979244200127`", ",", "0.003151117958620899`", ",", "0.0026419552307397603`", ",", "0.0022159544331807886`", ",", "0.001859396650103127`", ",", "0.0015608007732519922`", ",", "0.0013107243992809127`", ",", "0.0011013197755547223`", ",", "0.0009252304858803087`", ",", "0.0007777791059951936`", ",", "0.0006540611625511722`", ",", "0.0005502026323199327`", ",", "0.00046298803221806356`", ",", "0.00038971966349971016`", ",", "0.0003281507651041561`"}], "}"}]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.789181709267411*^9},ExpressionUUID->"829710a0-53c0-49cf-aea5-\ 330fe465cdbe"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1yQlI0wEUx3ELtwklGoUdikeIZtkxzTw23c+5/6aV5VFGjQwGk0RzZKuY KXOLFYzCuQkTBjI15ooiCgdCZWJ2T9pE7IBUhiOd6Ay1gmWr8Png8fi8b4JM USZfHxISkvZv/9/VWRDcK+9Y/BH0C+gBXWyvy7iy5jBMjMWV/DKsORIdP1Nv lW6cJ29BdkByIrpllrwNR3Mde7y3p8kxOMOKV/hqveR4RGmudubUesg7Maqr D2WkE+RE1Hh0pkDTF3ISfInW5S7RGHkX9Jeq3WrbCHk30vURX00pH8ipeNzK 6Tm+8pa8D+W5BrXW9pJ8AIqohEgna5DMxf6k7eGH/zwjp8GufNq8bqmPnI75 Sc7vm4O95IO4/qp9KkL8iJyBipYmR/vAffIhvOgTDY34e8iZWKh0j5/1d5Oz UFPJLvlksZKz8V4YVzT90ELOwXL3Qr8iykzmoTj6o3tcaCLzsZeXwmrbbCDn QqUdenf+s56cB3kw3VNcd4MsgJMRxXQ+15IBbvTkEbZUvepmwPCAo6niNVDP h2/OarcvXaaeD/7oN/MFWT11IQJZVY2C4TrqQsTOqo3nXNXUC8CXhfna7sip FyA4x2/gJsuoi9A6I12cuFJJXYRQxrFJZTxNnUF/jdJiUp2kzoDter2D2VBG XYxwk7NCXnqMuhhbQy/OXGssoi7Bm8wB2906hroEujR/soIjpF6I8qnvStup POqFCBaYM6r12dSL8ETsHVZqMgR/AXWu4Hs= "]]}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"NIntegrate\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, 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, ImageSize->{269.9999999999998, Automatic}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 50.}, {0, 0.9999956854031684}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJw1yQlI0wEUx3ELtwklGoUdikeIZtkxzTw23c+5/6aV5VFGjQwGk0RzZKuY KXOLFYzCuQkTBjI15ooiCgdCZWJ2T9pE7IBUhiOd6Ay1gmWr8Png8fi8b4JM USZfHxISkvZv/9/VWRDcK+9Y/BH0C+gBXWyvy7iy5jBMjMWV/DKsORIdP1Nv lW6cJ29BdkByIrpllrwNR3Mde7y3p8kxOMOKV/hqveR4RGmudubUesg7Maqr D2WkE+RE1Hh0pkDTF3ISfInW5S7RGHkX9Jeq3WrbCHk30vURX00pH8ipeNzK 6Tm+8pa8D+W5BrXW9pJ8AIqohEgna5DMxf6k7eGH/zwjp8GufNq8bqmPnI75 Sc7vm4O95IO4/qp9KkL8iJyBipYmR/vAffIhvOgTDY34e8iZWKh0j5/1d5Oz UFPJLvlksZKz8V4YVzT90ELOwXL3Qr8iykzmoTj6o3tcaCLzsZeXwmrbbCDn QqUdenf+s56cB3kw3VNcd4MsgJMRxXQ+15IBbvTkEbZUvepmwPCAo6niNVDP h2/OarcvXaaeD/7oN/MFWT11IQJZVY2C4TrqQsTOqo3nXNXUC8CXhfna7sip FyA4x2/gJsuoi9A6I12cuFJJXYRQxrFJZTxNnUF/jdJiUp2kzoDter2D2VBG XYxwk7NCXnqMuhhbQy/OXGssoi7Bm8wB2906hroEujR/soIjpF6I8qnvStup POqFCBaYM6r12dSL8ETsHVZqMgR/AXWu4Hs= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 0.9999956854031684}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 0.9999956854031684}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["NIntegrate", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.789434834802927*^9, 3.789434851575717*^9}},ExpressionUUID->"903c59e3-c9ce-4fb8-b5ad-\ d832a0f2bdb9"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw1yQlI0wEUx3ELtwklGoUdikeIZtkxzTw23c+5/6aV5VFGjQwGk0RzZKuY KXOLFYzCuQkTBjI15ooiCgdCZWJ2T9pE7IBUhiOd6Ay1gmWr8Png8fi8b4JM USZfHxISkvZv/9/VWRDcK+9Y/BH0C+gBXWyvy7iy5jBMjMWV/DKsORIdP1Nv lW6cJ29BdkByIrpllrwNR3Mde7y3p8kxOMOKV/hqveR4RGmudubUesg7Maqr D2WkE+RE1Hh0pkDTF3ISfInW5S7RGHkX9Jeq3WrbCHk30vURX00pH8ipeNzK 6Tm+8pa8D+W5BrXW9pJ8AIqohEgna5DMxf6k7eGH/zwjp8GufNq8bqmPnI75 Sc7vm4O95IO4/qp9KkL8iJyBipYmR/vAffIhvOgTDY34e8iZWKh0j5/1d5Oz UFPJLvlksZKz8V4YVzT90ELOwXL3Qr8iykzmoTj6o3tcaCLzsZeXwmrbbCDn QqUdenf+s56cB3kw3VNcd4MsgJMRxXQ+15IBbvTkEbZUvepmwPCAo6niNVDP h2/OarcvXaaeD/7oN/MFWT11IQJZVY2C4TrqQsTOqo3nXNXUC8CXhfna7sip FyA4x2/gJsuoi9A6I12cuFJJXYRQxrFJZTxNnUF/jdJiUp2kzoDter2D2VBG XYxwk7NCXnqMuhhbQy/OXGssoi7Bm8wB2906hroEujR/soIjpF6I8qnvStup POqFCBaYM6r12dSL8ETsHVZqMgR/AXWu4Hs= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJw9yXlI0wEYxvFhZBFI0QFqk9K2UrHl1nKHtj1u7iovUtLStOU0x8g0UZCp qJFoPwfSqHASDboIaVk5K42SBppK0xJb5FHOSKXI/ig0UszwtRdeXj7vN/jU 2SO5PiwWS7C8/+7K/JCLF5eWZ1ZOD/imPDMv/Pd6ZAmyj5t+rnoTvCM9A0zF qrfidtmgI0z6neyPP3N++mHRNzIbRu6J3ktPZ8g7we4rHzOsmSKHIKibG1ak +0zmoMn6O6HAMUHejWu2SkuaZZwcigZnvNAr+kAOR1SR6e6E/h05Ar+EqUvT 64bIPNT4jUTXBQ+SIxFy0TPcpukn8xFQGGqM9+0hC1DnfzPz4WkXeT/6t09u Dj/aRRaiaYOC8Zg7yQfwkeez+CDwMTkK3flznnnjI7IIX+vzOe8TW8liyC+w 7xUZWsgS8Curp52sO2QpPtlfvh5NvkGORuuZtwK92E6OQX0Ao9LKmskHEekM Lr88cYUsg92mt2eJrWQ5XniSnvdyG8nA0NVE0b5dzIqrAF2jtNjjrqUeixkv szY74jz1WEymyzIDd1RRV0BVk1q2EGSmroC72prgGiilroQ7wGvo5BdTV2I2 s8Bl2VNIPQ5J/NzFWYGJehxutX9pY0/lUVfhSTuzRXIoh7oKLSXz+cBJ6mrY 9qbXGHIyqKshuR6z0bEtjboGHaPjInVpCnUNGvo4b/KMydS1GJ8vOVZx/zB1 LeYUY8y5DA11HXi1HV2vnEr5X4zi4dA= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0.6, 0.4, 0.2]], PointBox[CompressedData[" 1:eJw1yWtIkwEUh/EZZsFSCvsgsQ+1QjJCc5eaTd3/3aZuEOQFhxWhLmyFLRMn DQqbmc62GovBKoMJSaZUY4tGbG2Bqeu6xOFwUV6CishRWjMss+tOBw6H33k2 qBvK65axWCzen/17EzMr+fVvPknoAZN18kna3H+vRMpNRZOp9yN5NTTH0q0W 7wx5Lb6Nhmdz+O/JGWC97Nxt8b8hc5DkdYccl1+T16NjccXQed8EmYtHuY2e K+wX5E3I/8mkNqRHyJngP+wddPpGyZsRcD5wO8ZC5C3o5NnGhtY9Jm9FsEsy zWwcJmejr9lbPfp8gLwNIq7Impxyn5yLWGiwNq/CS+aBXXuuj13jIfNxN6yq qE29TRZgSta0eOq0kyzEDxXT9uFpP3k77CNlnIHwNfIOjHTNczz6q2QRFpq+ eMYV3eQ8mC8Nr1G1dpF3YmZfJFx23E4W49a8uD++ykbOR9zf8ZmXZSUXwCD+ Wp981EwuRJtwecYBpZEsQSygEfiDbWQgI9Pcs/TMkLABaNdyoqmWk9QZuL4f NKUV66kziHYLGmI9OupSXIy0uuSWRupSKJPu9CmntNRl6NUvVo3XH6YuQ2d7 /J6xp466HIKZHJvmiJq6HOqosHypppp6EW5MWB1q317qRajcY5tsHlZRL4bV rJWf0FRQLwbbdOhV8Gwp9RK4uC3783i7qJeg4G1soXDaGEh0Bd5dqCrNspxJ 2KDAda1YqnO3UldiLs3OZOtaAr8BiojrKw== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], LineBox[CompressedData[" 1:eJxVyWtI0wEUxuEpNoI1kVyjJEpnmJfMnHZxbu7dnHMrJc3wQwmuhYxuipgm GLSVy2Y2TKUsTXFmNEIxQcI/Uo62pGzCxLHELg77sFTKQNqiFhU7fejA4eXh F6etOlIRzmKxhH/+74ZuVfr/srB47f2ryK9fyOvxsEJV0/zgMzkKUVZeq3ls mcxDxy/PalqGj7wZO7+3HTaPfyRvxU/9hLPnjpccC0Nyqv0G844swOn07tEu zhx5Bz51VHOrot3kBHgNc8+HGBc5ETHtKSM9s05yMqT2MLc95iV5FwrFQwuy eAd5N/h9KRrXtI28BwXxsTcj2E/J6eCkPtZmlYyRhfAbG6wczSg5A561wqMn uCPkTIy91QUvXR4i70V5stS4NGUl74NAdHybbWaAvB8mK3v7aL2FfACmugTG o+olZ+G+diO/1HCXLALjz/QUX7hFzobNentwbUM7WYw2J9svTGolSxAMk9dG VF4n58Drbok7qW4iS7Ei5uSMv7hCBp6YDg0GX+tD1gOC5cAy13yRugyBTbM9 kcp66jIklSU2rvSfpy5Hy5t7DoW5mroc04uWGfWHc9RzMVU23+g5c4p6LrYU hfua+iuoK2DrejahO6ulroClsvdRUFNOPQ8LRdIfWuYY9TxwOtdJ6hyl1JVg aof7GnQl1JXwMVezJ01F1PPRLR3gi4QF1PPBK26pcWkCklBXIbquM/KbkaxX Ya5gUq0c/tfVOJg2L2peCkh+A3EE3/8= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { InsetBox[ BoxData[ FormBox[ TagBox[ GridBox[{{ FormBox[ TemplateBox[{ StyleBox["\"NIntegrate\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}, { FormBox[ TemplateBox[{ StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], StandardForm]], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}], InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009`, -0.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}]}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 0.9999956854031684}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 0.9999956854031684}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"nocorrection\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.789181709681756*^9},ExpressionUUID->"9539c292-2e17-4ef7-b19e-\ 10aed63d16d2"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJxVyWtI0wEUxuEpNoI1kVyjJEpnmJfMnHZxbu7dnHMrJc3wQwmuhYxuipgm GLSVy2Y2TKUsTXFmNEIxQcI/Uo62pGzCxLHELg77sFTKQNqiFhU7fejA4eXh F6etOlIRzmKxhH/+74ZuVfr/srB47f2ryK9fyOvxsEJV0/zgMzkKUVZeq3ls mcxDxy/PalqGj7wZO7+3HTaPfyRvxU/9hLPnjpccC0Nyqv0G844swOn07tEu zhx5Bz51VHOrot3kBHgNc8+HGBc5ETHtKSM9s05yMqT2MLc95iV5FwrFQwuy eAd5N/h9KRrXtI28BwXxsTcj2E/J6eCkPtZmlYyRhfAbG6wczSg5A561wqMn uCPkTIy91QUvXR4i70V5stS4NGUl74NAdHybbWaAvB8mK3v7aL2FfACmugTG o+olZ+G+diO/1HCXLALjz/QUX7hFzobNentwbUM7WYw2J9svTGolSxAMk9dG VF4n58Drbok7qW4iS7Ei5uSMv7hCBp6YDg0GX+tD1gOC5cAy13yRugyBTbM9 kcp66jIklSU2rvSfpy5Hy5t7DoW5mroc04uWGfWHc9RzMVU23+g5c4p6LrYU hfua+iuoK2DrejahO6ulroClsvdRUFNOPQ8LRdIfWuYY9TxwOtdJ6hyl1JVg aof7GnQl1JXwMVezJ01F1PPRLR3gi4QF1PPBK26pcWkCklBXIbquM/KbkaxX Ya5gUq0c/tfVOJg2L2peCkh+A3EE3/8= "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9yXlI0wEYxvFhZBFI0QFqk9K2UrHl1nKHtj1u7iovUtLStOU0x8g0UZCp qJFoPwfSqHASDboIaVk5K42SBppK0xJb5FHOSKXI/ig0UszwtRdeXj7vN/jU 2SO5PiwWS7C8/+7K/JCLF5eWZ1ZOD/imPDMv/Pd6ZAmyj5t+rnoTvCM9A0zF qrfidtmgI0z6neyPP3N++mHRNzIbRu6J3ktPZ8g7we4rHzOsmSKHIKibG1ak +0zmoMn6O6HAMUHejWu2SkuaZZwcigZnvNAr+kAOR1SR6e6E/h05Ar+EqUvT 64bIPNT4jUTXBQ+SIxFy0TPcpukn8xFQGGqM9+0hC1DnfzPz4WkXeT/6t09u Dj/aRRaiaYOC8Zg7yQfwkeez+CDwMTkK3flznnnjI7IIX+vzOe8TW8liyC+w 7xUZWsgS8Curp52sO2QpPtlfvh5NvkGORuuZtwK92E6OQX0Ao9LKmskHEekM Lr88cYUsg92mt2eJrWQ5XniSnvdyG8nA0NVE0b5dzIqrAF2jtNjjrqUeixkv szY74jz1WEymyzIDd1RRV0BVk1q2EGSmroC72prgGiilroQ7wGvo5BdTV2I2 s8Bl2VNIPQ5J/NzFWYGJehxutX9pY0/lUVfhSTuzRXIoh7oKLSXz+cBJ6mrY 9qbXGHIyqKshuR6z0bEtjboGHaPjInVpCnUNGvo4b/KMydS1GJ8vOVZx/zB1 LeYUY8y5DA11HXi1HV2vnEr5X4zi4dA= "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, LabelStyle->{FontFamily -> "Times"}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0, 50.}, {0, 1.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJxVyWtI0wEUxuEpNoI1kVyjJEpnmJfMnHZxbu7dnHMrJc3wQwmuhYxuipgm GLSVy2Y2TKUsTXFmNEIxQcI/Uo62pGzCxLHELg77sFTKQNqiFhU7fejA4eXh F6etOlIRzmKxhH/+74ZuVfr/srB47f2ryK9fyOvxsEJV0/zgMzkKUVZeq3ls mcxDxy/PalqGj7wZO7+3HTaPfyRvxU/9hLPnjpccC0Nyqv0G844swOn07tEu zhx5Bz51VHOrot3kBHgNc8+HGBc5ETHtKSM9s05yMqT2MLc95iV5FwrFQwuy eAd5N/h9KRrXtI28BwXxsTcj2E/J6eCkPtZmlYyRhfAbG6wczSg5A561wqMn uCPkTIy91QUvXR4i70V5stS4NGUl74NAdHybbWaAvB8mK3v7aL2FfACmugTG o+olZ+G+diO/1HCXLALjz/QUX7hFzobNentwbUM7WYw2J9svTGolSxAMk9dG VF4n58Drbok7qW4iS7Ei5uSMv7hCBp6YDg0GX+tD1gOC5cAy13yRugyBTbM9 kcp66jIklSU2rvSfpy5Hy5t7DoW5mroc04uWGfWHc9RzMVU23+g5c4p6LrYU hfua+iuoK2DrejahO6ulroClsvdRUFNOPQ8LRdIfWuYY9TxwOtdJ6hyl1JVg aof7GnQl1JXwMVezJ01F1PPRLR3gi4QF1PPBK26pcWkCklBXIbquM/KbkaxX Ya5gUq0c/tfVOJg2L2peCkh+A3EE3/8= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJw9yXlI0wEYxvFhZBFI0QFqk9K2UrHl1nKHtj1u7iovUtLStOU0x8g0UZCp qJFoPwfSqHASDboIaVk5K42SBppK0xJb5FHOSKXI/ig0UszwtRdeXj7vN/jU 2SO5PiwWS7C8/+7K/JCLF5eWZ1ZOD/imPDMv/Pd6ZAmyj5t+rnoTvCM9A0zF qrfidtmgI0z6neyPP3N++mHRNzIbRu6J3ktPZ8g7we4rHzOsmSKHIKibG1ak +0zmoMn6O6HAMUHejWu2SkuaZZwcigZnvNAr+kAOR1SR6e6E/h05Ar+EqUvT 64bIPNT4jUTXBQ+SIxFy0TPcpukn8xFQGGqM9+0hC1DnfzPz4WkXeT/6t09u Dj/aRRaiaYOC8Zg7yQfwkeez+CDwMTkK3flznnnjI7IIX+vzOe8TW8liyC+w 7xUZWsgS8Curp52sO2QpPtlfvh5NvkGORuuZtwK92E6OQX0Ao9LKmskHEekM Lr88cYUsg92mt2eJrWQ5XniSnvdyG8nA0NVE0b5dzIqrAF2jtNjjrqUeixkv szY74jz1WEymyzIDd1RRV0BVk1q2EGSmroC72prgGiilroQ7wGvo5BdTV2I2 s8Bl2VNIPQ5J/NzFWYGJehxutX9pY0/lUVfhSTuzRXIoh7oKLSXz+cBJ6mrY 9qbXGHIyqKshuR6z0bEtjboGHaPjInVpCnUNGvo4b/KMydS1GJ8vOVZx/zB1 LeYUY8y5DA11HXi1HV2vnEr5X4zi4dA= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0, 50.}, {0, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{ 3.7887541721005917`*^9, 3.7887542774810047`*^9, 3.788754307787771*^9, 3.788754383639646*^9, {3.788754551033463*^9, 3.7887545720302*^9}, { 3.788754627570269*^9, 3.7887546453368683`*^9}, {3.7887547648164787`*^9, 3.788754793596624*^9}, 3.788754838449253*^9, {3.788754876567635*^9, 3.788754905915079*^9}, {3.7887549503946342`*^9, 3.788754963152912*^9}, 3.788754998290156*^9, 3.788755038342247*^9, {3.788755075829163*^9, 3.7887550989969587`*^9}, 3.788755450853948*^9, 3.7887555082221613`*^9, 3.788755542107704*^9, 3.788755585943789*^9, 3.788755650601475*^9, 3.788755731087324*^9, 3.788758852001636*^9, 3.788758897926928*^9, 3.7887589407348537`*^9, 3.788759027511145*^9, {3.788759075932816*^9, 3.788759119627516*^9}, 3.788759248333899*^9, 3.7887593002928343`*^9, { 3.7887593810561237`*^9, 3.7887594088798857`*^9}, 3.7887595800316687`*^9, 3.788759807118526*^9, 3.788759889661715*^9, 3.788760071171019*^9, 3.7887601722545347`*^9, 3.788760397799625*^9, 3.788760542993773*^9, 3.7887612663527613`*^9, {3.78876133248942*^9, 3.788761347761058*^9}, 3.788761446682325*^9, 3.7887616408048*^9, 3.788762072394059*^9, 3.7887621064003963`*^9, 3.788768198048585*^9, 3.788770341451274*^9, 3.7887704322019987`*^9, 3.788770570289776*^9, 3.788770719240302*^9, { 3.7887709288069897`*^9, 3.788770957571*^9}, {3.78877103505025*^9, 3.7887710851166983`*^9}, 3.788771136446183*^9, 3.78877119135402*^9, 3.788771362024431*^9, 3.788771463904819*^9, 3.788771501988675*^9, 3.788771687823647*^9, 3.788771778216967*^9, 3.7887719793194923`*^9, { 3.7887720502473097`*^9, 3.788772085217523*^9}, {3.7887721849249897`*^9, 3.788772211430686*^9}, {3.78877227568292*^9, 3.7887722923065233`*^9}, 3.788772460758233*^9, 3.788772745862774*^9, 3.788772800801495*^9, { 3.788772834841618*^9, 3.788772863942114*^9}, {3.7887736053988657`*^9, 3.788773633394252*^9}, 3.7887737502129583`*^9, 3.7887739943040953`*^9, 3.788774034848147*^9, 3.7887741008388166`*^9, 3.788774530891039*^9, 3.7887746978938704`*^9, 3.788782839553129*^9, 3.7887832371253633`*^9, 3.788783364407058*^9, 3.788784067752534*^9, 3.7887843080019817`*^9, 3.788785195908965*^9, 3.7887853113633537`*^9, 3.789090753912848*^9, 3.789095740114827*^9, 3.7891153886388597`*^9, 3.789115698621014*^9, 3.7891157569550123`*^9, 3.7891158622817717`*^9, 3.789117365079173*^9, 3.789181001673744*^9, 3.789181337755702*^9, 3.7891814336043873`*^9, 3.789181709907701*^9},ExpressionUUID->"3673c5b4-c145-4d65-9f18-\ b8616f090426"] }, Open ]], Cell["Different attempts (ignore)", "Text", CellChangeTimes->{{3.788783418665526*^9, 3.7887834306625147`*^9}},ExpressionUUID->"1fb9ea6e-92df-49c2-8669-\ 944100248811"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], Dashing[{Small, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJw1yXlIEwAUx/FRsiKbyRQLO9Qp0WTNnJXtcr+5w41sWoaFUc6FSlkO7XCi oLVsVjQ2FooHExopi81CWOGQSnJZ2YKVsfyjCyLExAOCJFiW7Png8fi8b5rB eKRyDYPBEPzflRudBdnf5ZWZl9EDP9o/v45bXPV6rK3SXLjZP0eOx9xAos06 /JOciLJIeCErZ5q8Bfx4R5F15Dt5G1LqnwWdXd/IqXiZvXvstv8TmYMMd6+v J3aKnIHOjjqWMeEDeScm+FPPB/0h8i5wbbwh52SQnAl1aHlyLPkVmYe23MGv 8vQAmY/eZp4+9HaUvAeKDo49hvmEnA1F40ODsGSYLIC2vdkdq/eRc9C1SXe0 gjVE3ouFvKpIy9VB8j5w70jaZibc5P04VHR8x+i7e+RchFM3pPhMd8kHsC6L 5w9r+shCzKhikkqvdJNFYD8Shw83dJDF8NQ88P7a6CBLYDyR9FvAtZGlKK5U X4qpvUXOw1CCMe201kKWwdG7OW/khZkMbK9QeCNvWqNuBfp1sbMsazN1Oa5b 7M44tYm6HI9rF82zrovU8zHP1gWU1jrq+WCLst5rv5ynrkBTS/K1cM0Z6gqc LSyftrgqqSsBP+9p9TkDdSWOtdR7Ivpy6iqcSjj5x+Avo64C575XfDlQSl0N 5cd0V1N1CXU1MhsbROM3iqkXoMfC3ioSFFIvgPmgL8zMWZJGuwYyGdM910du 1WBxwCToFK52LSSeoGvcviT9B2Wl2xY= "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9yXlI0wEYxvFhZBFI0QFqk9K2UrHl1nKHtj1u7iovUtLStOU0x8g0UZCp qJFoPwfSqHASDboIaVk5K42SBppK0xJb5FHOSKXI/ig0UszwtRdeXj7vN/jU 2SO5PiwWS7C8/+7K/JCLF5eWZ1ZOD/imPDMv/Pd6ZAmyj5t+rnoTvCM9A0zF qrfidtmgI0z6neyPP3N++mHRNzIbRu6J3ktPZ8g7we4rHzOsmSKHIKibG1ak +0zmoMn6O6HAMUHejWu2SkuaZZwcigZnvNAr+kAOR1SR6e6E/h05Ar+EqUvT 64bIPNT4jUTXBQ+SIxFy0TPcpukn8xFQGGqM9+0hC1DnfzPz4WkXeT/6t09u Dj/aRRaiaYOC8Zg7yQfwkeez+CDwMTkK3flznnnjI7IIX+vzOe8TW8liyC+w 7xUZWsgS8Curp52sO2QpPtlfvh5NvkGORuuZtwK92E6OQX0Ao9LKmskHEekM Lr88cYUsg92mt2eJrWQ5XniSnvdyG8nA0NVE0b5dzIqrAF2jtNjjrqUeixkv szY74jz1WEymyzIDd1RRV0BVk1q2EGSmroC72prgGiilroQ7wGvo5BdTV2I2 s8Bl2VNIPQ5J/NzFWYGJehxutX9pY0/lUVfhSTuzRXIoh7oKLSXz+cBJ6mrY 9qbXGHIyqKshuR6z0bEtjboGHaPjInVpCnUNGvo4b/KMydS1GJ8vOVZx/zB1 LeYUY8y5DA11HXi1HV2vnEr5X4zi4dA= "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3500912652152667, 0.6529854303099409}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox[ "\"\\!\\(\\*SubscriptBox[\\(Q\\), \\(e\\)]\\)(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{45.2, 1.738776}, {41.2, 0.5}}, LabelStyle->{FontFamily -> "Times"}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666666666667`, 51.041666666666664`}, {-0.02150537634408602, 1.0537634408602148`}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], CapForm["Butt"], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJw1yXlIEwAUx/FRsiKbyRQLO9Qp0WTNnJXtcr+5w41sWoaFUc6FSlkO7XCi oLVsVjQ2FooHExopi81CWOGQSnJZ2YKVsfyjCyLExAOCJFiW7Png8fi8b5rB eKRyDYPBEPzflRudBdnf5ZWZl9EDP9o/v45bXPV6rK3SXLjZP0eOx9xAos06 /JOciLJIeCErZ5q8Bfx4R5F15Dt5G1LqnwWdXd/IqXiZvXvstv8TmYMMd6+v J3aKnIHOjjqWMeEDeScm+FPPB/0h8i5wbbwh52SQnAl1aHlyLPkVmYe23MGv 8vQAmY/eZp4+9HaUvAeKDo49hvmEnA1F40ODsGSYLIC2vdkdq/eRc9C1SXe0 gjVE3ouFvKpIy9VB8j5w70jaZibc5P04VHR8x+i7e+RchFM3pPhMd8kHsC6L 5w9r+shCzKhikkqvdJNFYD8Shw83dJDF8NQ88P7a6CBLYDyR9FvAtZGlKK5U X4qpvUXOw1CCMe201kKWwdG7OW/khZkMbK9QeCNvWqNuBfp1sbMsazN1Oa5b 7M44tYm6HI9rF82zrovU8zHP1gWU1jrq+WCLst5rv5ynrkBTS/K1cM0Z6gqc LSyftrgqqSsBP+9p9TkDdSWOtdR7Ivpy6iqcSjj5x+Avo64C575XfDlQSl0N 5cd0V1N1CXU1MhsbROM3iqkXoMfC3ioSFFIvgPmgL8zMWZJGuwYyGdM910du 1WBxwCToFK52LSSeoGvcviT9B2Wl2xY= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJw9yXlI0wEYxvFhZBFI0QFqk9K2UrHl1nKHtj1u7iovUtLStOU0x8g0UZCp qJFoPwfSqHASDboIaVk5K42SBppK0xJb5FHOSKXI/ig0UszwtRdeXj7vN/jU 2SO5PiwWS7C8/+7K/JCLF5eWZ1ZOD/imPDMv/Pd6ZAmyj5t+rnoTvCM9A0zF qrfidtmgI0z6neyPP3N++mHRNzIbRu6J3ktPZ8g7we4rHzOsmSKHIKibG1ak +0zmoMn6O6HAMUHejWu2SkuaZZwcigZnvNAr+kAOR1SR6e6E/h05Ar+EqUvT 64bIPNT4jUTXBQ+SIxFy0TPcpukn8xFQGGqM9+0hC1DnfzPz4WkXeT/6t09u Dj/aRRaiaYOC8Zg7yQfwkeez+CDwMTkK3flznnnjI7IIX+vzOe8TW8liyC+w 7xUZWsgS8Curp52sO2QpPtlfvh5NvkGORuuZtwK92E6OQX0Ao9LKmskHEekM Lr88cYUsg92mt2eJrWQ5XniSnvdyG8nA0NVE0b5dzIqrAF2jtNjjrqUeixkv szY74jz1WEymyzIDd1RRV0BVk1q2EGSmroC72prgGiilroQ7wGvo5BdTV2I2 s8Bl2VNIPQ5J/NzFWYGJehxutX9pY0/lUVfhSTuzRXIoh7oKLSXz+cBJ6mrY 9qbXGHIyqKshuR6z0bEtjboGHaPjInVpCnUNGvo4b/KMydS1GJ8vOVZx/zB1 LeYUY8y5DA11HXi1HV2vnEr5X4zi4dA= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 0.9999999999999998}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0, 50.}, {0, 0.9999999999999998}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.788774722139765*^9, 3.788774726040307*^9}},ExpressionUUID->"8a69919b-840d-4463-ac54-\ c333057f6b4e"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[1, 0, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1yV9IkwEUh+FNCBdiW1qiomFmMqzWt6/pNnXzt81/s3mzlQZ2kdk0M9QM rJCV1UilqaPhqLQWRRchCY60htDEQVGwmWEEmdUsy7KW0cLIcBk7HjgcnvNu PtigN0ZwOBx2Zf/f8CzkCUThSw9YHGMtf0PfyTxkbwxW1QVXLcCgQDzSa1r1 BqiPd90w5gTI8Tj3cL7fp/xKToLJPNzc6PtMTkHFSeG0U/SJnIoOvi9hzvqB nAbWUh4YiJ0hp2NTsCKpovstWYgWaSdTfXiKnIEo3sKvhqGX5O2ofvXiXUfT JFmE/tiZWd7lCTKDeFuinyP3kcWQ79zt/DH/hMxiSnZmQZf5iLwL1ZY3MY4I D1kCPndCuaweJWdiPV8bWeUbIWdBr9+2w+i5T5YiwFZmSUrvkWVwJV5nueWD ZDmUAxkPaq/dJWdDOr5WVqK9Q84Br2ey5or9NjkX7mhHDL/+JlkB87oExnDC QVbiqLzEbnp9lZwHzdh0Lxuwk4G2WrdNY7OF3bpi8RCTPmylroJdV2zwt1uo qxDpvRg7vr+duhrJoQuqLK+ZuhrcxaLSrZ6z1DUIlWlzo8tOU9fgueG3v3Du FPV8FETsLTmW0kw9HwcudX7J/NhEvQBRcXuWn6U1Ui9AkOlyxfXUUS9Em8X9 tNtaQ70Q5m/1+zSph6gXgftYP8tIKqkXwTW1Rtc3/EcR7sUQL95KGv1Jbi2G U5i+JS15iboW5/uOBLzvlxT/ABSy1og= "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {RGBColor[0, 1, 0], PointSize[0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxFyXtIkwEUh+HNiBKXVl5SMprNNonK/DS1i9tv7tvmRi40s5Ep2ZSyTEmH c6mV3Rhk5VAruyiF1tKCAv+IFCMVlVAcWZELWotpdlkLBM1AzfCMDhwOz3nD DhWm5npxOBxmfv/dhfklSZuamx+3hB5Qhw1N/vdSWHVGffesx8thKRvTMHaP AzDTq22o3eVxMJjccpfA+yc5FOG7v6+XrflB5qPRHFD2u/0reR0CZ1s3reB/ IYcj0lbnPnrSSRaiu9rgULsc5AjYrpq8Dq62kzfg1QW/4PEBG3kjBBmG6eHJ d+TNcNUUJPdcHyZvwXPxtD/3oZUchb4clXxOOkBmUMi9nO7/rY8cjaoInvpS TA85Bhkri5ubeS/JW7EkRbGqpLODHItbmlM+gbHPyHHwNY5y67PbyPHQBTE3 lcKn5G0YiXqb7h55RN6Out4x1iCzkHegyfLgjc/hJvJOLG4ZFN8R3SUnwNm6 tubP+9tkMYKy9rWZpDfIEhQ74nyv5NaSgQljqTFeZF7wGcAdMmkesFVRl0Ij meF/lJuoS+E32PuJl3+eeiJKFj3pPBZZST0RQ10FoS2ucuoyaM8mcFL3l1KX oaLVOL6nUk+dxQeBtdHJnqDOgrnfznCCj1OXI3Mq2qo+d4S6HFZDRb/OkkNd gYKLduXjvGzqCiwTCc3VBzKpKzH64vXpe11a6kpM1LN5pZ/TqCdBL2CLrjWk UE9C/15HXH5HMnUV2JisIu8QleQvz6bfFw== "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.198], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[1, 0, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[1, 0, 0], Editable -> False, Selectable -> False], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.3060869565217391, 0.6088069233014421}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, 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->{{13.7, 1.3}, {13.935565, 0.5}}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.0416666666666667`, 51.041666666666664`}, {-0.021505376344142332`, 1.0537634408629741`}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJw1yV9IkwEUh+FNCBdiW1qiomFmMqzWt6/pNnXzt81/s3mzlQZ2kdk0M9QM rJCV1UilqaPhqLQWRRchCY60htDEQVGwmWEEmdUsy7KW0cLIcBk7HjgcnvNu PtigN0ZwOBx2Zf/f8CzkCUThSw9YHGMtf0PfyTxkbwxW1QVXLcCgQDzSa1r1 BqiPd90w5gTI8Tj3cL7fp/xKToLJPNzc6PtMTkHFSeG0U/SJnIoOvi9hzvqB nAbWUh4YiJ0hp2NTsCKpovstWYgWaSdTfXiKnIEo3sKvhqGX5O2ofvXiXUfT JFmE/tiZWd7lCTKDeFuinyP3kcWQ79zt/DH/hMxiSnZmQZf5iLwL1ZY3MY4I D1kCPndCuaweJWdiPV8bWeUbIWdBr9+2w+i5T5YiwFZmSUrvkWVwJV5nueWD ZDmUAxkPaq/dJWdDOr5WVqK9Q84Br2ey5or9NjkX7mhHDL/+JlkB87oExnDC QVbiqLzEbnp9lZwHzdh0Lxuwk4G2WrdNY7OF3bpi8RCTPmylroJdV2zwt1uo qxDpvRg7vr+duhrJoQuqLK+ZuhrcxaLSrZ6z1DUIlWlzo8tOU9fgueG3v3Du FPV8FETsLTmW0kw9HwcudX7J/NhEvQBRcXuWn6U1Ui9AkOlyxfXUUS9Em8X9 tNtaQ70Q5m/1+zSph6gXgftYP8tIKqkXwTW1Rtc3/EcR7sUQL95KGv1Jbi2G U5i+JS15iboW5/uOBLzvlxT/ABSy1og= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], Point[CompressedData[" 1:eJxFyXtIkwEUh+HNiBKXVl5SMprNNonK/DS1i9tv7tvmRi40s5Ep2ZSyTEmH c6mV3Rhk5VAruyiF1tKCAv+IFCMVlVAcWZELWotpdlkLBM1AzfCMDhwOz3nD DhWm5npxOBxmfv/dhfklSZuamx+3hB5Qhw1N/vdSWHVGffesx8thKRvTMHaP AzDTq22o3eVxMJjccpfA+yc5FOG7v6+XrflB5qPRHFD2u/0reR0CZ1s3reB/ IYcj0lbnPnrSSRaiu9rgULsc5AjYrpq8Dq62kzfg1QW/4PEBG3kjBBmG6eHJ d+TNcNUUJPdcHyZvwXPxtD/3oZUchb4clXxOOkBmUMi9nO7/rY8cjaoInvpS TA85Bhkri5ubeS/JW7EkRbGqpLODHItbmlM+gbHPyHHwNY5y67PbyPHQBTE3 lcKn5G0YiXqb7h55RN6Out4x1iCzkHegyfLgjc/hJvJOLG4ZFN8R3SUnwNm6 tubP+9tkMYKy9rWZpDfIEhQ74nyv5NaSgQljqTFeZF7wGcAdMmkesFVRl0Ij meF/lJuoS+E32PuJl3+eeiJKFj3pPBZZST0RQ10FoS2ucuoyaM8mcFL3l1KX oaLVOL6nUk+dxQeBtdHJnqDOgrnfznCCj1OXI3Mq2qo+d4S6HFZDRb/OkkNd gYKLduXjvGzqCiwTCc3VBzKpKzH64vXpe11a6kpM1LN5pZ/TqCdBL2CLrjWk UE9C/15HXH5HMnUV2JisIu8QleQvz6bfFw== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.0000000000026183`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 1.0000000000026183`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]]}, { Style["NInvLaplace", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.788774049417635*^9, 3.7887740511273737`*^9}},ExpressionUUID->"f10c3706-c504-416f-8947-\ 562a9ff2bba7"], Cell["\<\ Comparison with the swapan gosh for parameters (sink placed at the minima) g=1; d=.3; x0=5; k0=3; a=0; b=xc; xc=0;\ \>", "Text", CellChangeTimes->{{3.788768221614225*^9, 3.788768231655242*^9}, { 3.788768289395969*^9, 3.788768328128647*^9}},ExpressionUUID->"0b972816-3d9f-4b9f-b254-\ e9482cb6d7f8"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"p4", ",", "ab2", ",", "p1"}], "]"}]], "Input", CellChangeTimes->{{3.788768241210404*^9, 3.788768247815235*^9}},ExpressionUUID->"141994e2-56e4-4785-9981-\ c024a50e07b2"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9yWtIEwAUhuE5leyPSGUoBWqYWomtuTRruU83N1NWYzD8oUEsYpWVYWzB ohLNQHNIObTcvEBjpi67SLZs6qKrU8IN0/JCalrDrJax0HKa4ZkHDofnvBHy POkxJoPBYC/v/7syLp7Gda7QZ/nSA2Uy9wnmqgMwL+oz+a46CH9cN8Ufl36Q N0AZlth6Y8HrEHQ9K4q3Tnm9GbWta+536LwOR5FO3163+J28BVeNzes7Pd/I kTiSNCZm62bIUeCxtIa4L9PkGJgPuxdG55zk7bA96B83Oz+TY9H91yNb7J0k x8Eg4Z0cfDxBZqGwyVT/sm2MvAsc/0Z3nXGUzMbTtoDygqghcjykw1992b8G yBwkvK4RCAL7ybuxMKXJPa6ykxPAzdnpipa8JSdCIfNcG+HayHtgyK6s8Lvz ipyEbNZ7+8/i5+S9CGGMX2D0WMn74CNpD54btJC5mI3sCKu2mMn7UTpdcyiD 9YicjNCJo0p5xEMyD0OcdEfZUgsZkLPZF2XqphUXAPmBflmmW0bqKZiZvdss Ft2mngL/BoekIq+eeioU1Z33epl66qkodfJr7cNV1PnI6jplVEm01PnIbN0a fjnjOnUBpAXWTOFpDXUBXjyJUQWvLaGeBi2/MbnnYDH1NNg2ioIc2wqpC8Gf nL8y0H2JuhA5b/o2aWLV1EUob6mq1PNU1EWwOKN1n5z51NNRG6g9v2PdWerp GPmtPlMiyaV+AB/eOZShCQreP46K7Ds= "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJxVyXtIkwEUhvElWUlNJ6WTUrqXk5Wl6dTK792cbm1EUHQnLCvRRMWYqZSW WRZzfwwmm3NJNJSag4UUOWWQ0QgG3QdBVGO5dZu7mANZNK3EY9GBw+F3ntVl tXtPx7BYrKw/O3NnZ5yZ/jUzIYYeiP7nRdAeiQv/MwetC6Td7/96GRbyK9Qr o3NOwfOqk4Vyz5xTIdbX2AWdc16F47cZlzMYJK8BV2Wyt3gC5HVIqnQk+ev9 5A1I4D5MfTDoI6fDa9QdjX/0lZyBT41tiaH+z2Q+wr0uZVeHl7wZzSucrh+K UfIWGCLfQ8cUbvJWZKaxJ3XrP5CzwB/itdSa35Kz0bRpJEd58Q15G76Iy7XT Ric5B3uYw6qxpa/IubhT2qceu/GMLAA7kCPgGhzkPOxLPOULJD8h50PraPCp 5j8mF8DueNfAPzRC3g5hRnc6i20j74B1qP2nJ85K3okTQtvoNc19ciEOOs1L CroGyAzyJGuFGRwLGTD36F9/NJlmfQkQxliH1d4+6kJcsJTtzu43UheiWjNo Zr+4SV2ElDp3VjvXQF0EflisMHN01Ivgtqb1iG5pqBdhUD7RePmemroYsZN1 pfJKFXUxvnHbehN416kXw1ztj+iVV6gXYznXtHjjuVbqJXg53M6zWZqpl6Az OXPqbn4TdQnOD0ijVbX11CVQ2JrGO3LPUpdiKjJP83SihroUsvj947HyM9R3 QXY1WCE7UM78BoSf69c= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], PointBox[CompressedData[" 1:eJxVyWtIEwAUhuFpLCzURpjO0nBZOmxYOV0u1/x2V0sLoT8uJBZKS2ZgUUMt NpmRYuSqgRtoghdKazaojGihJEqmpVngddkKlZlmPxpRXip2FnXg8PHwcjRn cgsCGQxG0u//s75bSv9/GTi57l8HYctijHdt7QuZhY7iS7qZvw6D2yOwpK34 zYYiojxbO+93FK5VbOJ3OvyOgXhpjZcj8HsHYqur+DbtInkn1B+koQOZC+Q4 iCtLWMrpeTIXxTfD2pdFHnICNmzeXqgomSPzEDlw+uFn8ww5EQJP0I+r7Z/I e9GVXJYy9dJN3oc40yyrZnmanISQlt744CoXmY9bvLfM9qMT5GRkr77I4h4b Jaegyept6qh7RxagOWt3665tI+T9iO0xqvvHh8ipKHe9ri69M0gWghlxt6t/ Yz/5AE5N8FzG4V5yGvq6V1Ol356TRXBoZLY2XTf5IM7PbU2IK3hGFmPMsOdx kf4JOR2y8ZWn5vWdZEDLexXMDnzgswE457yf05DvoC5BrnXyex/HTl2C2cvM E4boNupSWBsTQ7gNrdSlyBd6887eaKIuwwVnpPTjYiN1GcJFjW6Rqp66HMaK 4SjLYSt1OVpqb2sGxyzUFfiqrrMcmbpOXQH++4Aeu6qWuhILAY8qR8JrqCuR Zx5iFwqvUFfh3uhPe5nbRF2FNzqO3mZSOX09A9GT3oSLarnPhgyU6kLjj9dL qGdCbztUNKQXO38BqybhJw== "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"NIntegrate\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}], InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"NInvLaplace\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0, 1, 0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0, 1, 0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0, 1, 0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0, 1, 0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009`, -0.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}]}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.00000350480377}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 1.00000350480377}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Analytical\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Input", CellChangeTimes->{{3.7887682577672577`*^9, 3.7887682595835876`*^9}},ExpressionUUID->"786a1b7f-b00b-4823-acdf-\ d4f3d68f4757"], Cell["COmparison with the SK Ghosh answer", "Text", CellChangeTimes->{{3.78943796875134*^9, 3.789437980862009*^9}},ExpressionUUID->"ed9f64cb-98f7-4d1e-af8d-\ ceff1a7ac5b0"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Unprotect", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{"C1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", "<", RowBox[{"-", "b"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"C3", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"C4", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "-", "p"}], ")"}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"0", ">", "x", ">", RowBox[{"-", "b"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], "x"}], "]"}]}], "+", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "x"}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"x0", ">", "x", ">", "0"}], "*)"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y1", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y3", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y3", "[", "x0", "]"}]}]}], ")"}]}], "==", RowBox[{"k0", "*", RowBox[{"y3", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "A", ",", "B"}], "}"}]}], "]"}]}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "b"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "b"}], "]"}]}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "b"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "b"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"y2", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}]}], ")"}]}], "+", RowBox[{"w", " ", "de", " ", RowBox[{"y3", "[", "0", "]"}]}], "-", RowBox[{"w", " ", "de", "*", RowBox[{"y2", "[", "0", "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"y3", "'"}], "[", "x0", "]"}]}], "-", RowBox[{"w", " ", RowBox[{"y3", "[", "x0", "]"}]}]}], ")"}]}], "\[Equal]", RowBox[{"k0", "*", RowBox[{"y3", "[", "x0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"C1", ",", "C3", ",", "C4", ",", "A", ",", "B"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"w", "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"q", "^", "2"}], "+", FractionBox["s", "de"]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"w", "=", RowBox[{"2", "g"}]}], ";"}], RowBox[{"(*", RowBox[{"w", "=", RowBox[{"2", "g"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"de", "=", RowBox[{".3", "/", "2"}]}], ";"}], RowBox[{"(*", RowBox[{"de", "=", RowBox[{"d", "/", "2"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "=", RowBox[{"-", "1"}]}], ";"}], RowBox[{"(*", RowBox[{"position", " ", "of", " ", "the", " ", "sink"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], RowBox[{"(*", RowBox[{"Sink", " ", "strength"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "b", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", "4"}], ";"}], RowBox[{"(*", RowBox[{ "position", " ", "of", " ", "the", " ", "initial", " ", "condition"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "x", "]"}], ",", RowBox[{"x", "<", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y2", "[", "x", "]"}], ",", RowBox[{"0", ">", " ", "x", "\[GreaterEqual]", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y3", "[", "x", "]"}], ",", RowBox[{"x0", "\[GreaterEqual]", " ", "x", "\[GreaterEqual]", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "s"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Q", "[", "s_", "]"}], "=", RowBox[{"FullSimplify", "[", RowBox[{"f", "[", RowBox[{"x0", ",", "s"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Rho]", "[", "s", "]"}], ",", RowBox[{"Q", "[", "s", "]"}], ",", RowBox[{"1", "/", "s"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", "NumericFunction", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], "=", "\"\\""}], ";", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "failed"}], "=", "\[IndentingNewLine]", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "5"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{"expr_", ",", "s_Symbol", ",", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "F", ",", "z", ",", " ", "x", ",", "M", ",", " ", "f", ",", "g", ",", "fg", ",", "gg", ",", "ff", ",", "fgm", ",", " ", "f12", ",", "g12", ",", " ", "m", ",", "mmin", ",", "mmax", ",", "mb", ",", "meth", ",", "res"}], " ", "}"}], ",", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"mmin", "=", RowBox[{"Min", "[", RowBox[{"15", ",", RowBox[{"Max", "[", RowBox[{"5", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmax", "=", RowBox[{"Min", "[", RowBox[{"20", ",", RowBox[{"mmin", "+", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meth", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], "]"}], ",", RowBox[{"meth", "=", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Rationalize", "[", RowBox[{"expr", ",", "0"}], "]"}], "/.", RowBox[{"s", "\[Rule]", "z"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Rationalize", "[", RowBox[{"t", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", RowBox[{"NumericQ", "[", RowBox[{"F", "[", "100", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], ",", "expr", ",", "s"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"And", "[", RowBox[{ RowBox[{"NumericQ", "[", "t", "]"}], ",", RowBox[{"t", ">", "0"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], ",", "t"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f12", "=", RowBox[{"g12", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "mmax"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"M", "=", RowBox[{"2", "^", "m"}]}], ";", RowBox[{"mb", "=", "m"}], ";", RowBox[{"ff", "=", RowBox[{"fgm", "=", RowBox[{"fg", "=", RowBox[{"gg", "=", "False"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"FT", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "f", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"f", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"f12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fgm", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"GWR", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "g", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"g", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{"res", "=", "$Failed"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"m", ",", "mmin", ",", "mmax"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"g12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"f12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "\[Equal]", "$Failed"}], ";", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"NInverseLaplaceTransform", "::", "failed"}], "]"}], ")"}], ";", "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GWR", "[", RowBox[{"F_", ",", " ", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"M_", ":", "32"}], ",", " ", RowBox[{"precin_", ":", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ "fv", ",", "w", ",", " ", "wm", ",", "wp", ",", " ", "best", ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "t"}]}], ",", " ", "prec", ",", "k", ",", "n", ",", "i"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"precin", " ", "\[LessEqual]", " ", "0"}], ",", " ", RowBox[{"prec", " ", "=", " ", RowBox[{"2.1", "*", "M"}]}], ",", " ", RowBox[{"prec", " ", "=", " ", "precin"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"prec", " ", "\[LessEqual]", " ", "$MachinePrecision"}], ",", " ", RowBox[{"prec", " ", "=", " ", "$MachinePrecision"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Precision", "[", "tau", "]"}], " ", "<", " ", "prec"}], ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{"SetPrecision", "[", RowBox[{"tau", ",", " ", "prec"}], "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fv", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"i", " ", "tau"}], "]"}], ",", " ", "prec"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"2", "M"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"Table", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tau", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}], "!"}], "/", RowBox[{"(", RowBox[{ RowBox[{"n", "!"}], "*", RowBox[{ RowBox[{"(", RowBox[{"n", " ", "-", " ", "1"}], ")"}], "!"}]}], ")"}]}], ")"}], "*", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", " ", "i"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "*", RowBox[{"fv", "[", RowBox[{"[", RowBox[{"n", " ", "+", " ", "i"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "M"}], "}"}]}], "]"}]}], ";"}]}], " ", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"best", "=", RowBox[{"Last", "[", "w", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{ RowBox[{"best", "=", "$Failed"}], ";", RowBox[{"Return", "[", "best", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "M", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{"k", "/", RowBox[{"Differences", "[", "w", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"wm", ",", "1"}], "]"}], "+", "wp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Drop", "[", RowBox[{"w", ",", RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", "wp"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "k", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"Last", "[", "w", "]"}], "]"}], ",", RowBox[{"best", " ", "=", RowBox[{"Last", "[", "w", "]"}]}], ",", RowBox[{"Break", "[", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"M", " ", "-", "1"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{"best", "=", "$Failed"}]}], "]"}], ";", "\[IndentingNewLine]", "best"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FT", "[", RowBox[{"F_", ",", RowBox[{"t_", "?", "NumericQ"}], ",", RowBox[{"M_:", "32"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "np", ",", "p", ",", "r", ",", "s", ",", "theta", ",", "sigma", ",", "tab", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"np", "=", RowBox[{"Max", "[", RowBox[{"M", ",", "$MachinePrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"SetPrecision", "[", RowBox[{"t", ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", RowBox[{"M", "/", RowBox[{"(", RowBox[{"5", "p"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"r", " ", "theta", " ", RowBox[{"(", RowBox[{ RowBox[{"Cot", "[", "theta", "]"}], "+", "I"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"theta", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"theta", " ", RowBox[{"Cot", "[", "theta", "]"}]}], "-", "1"}], ")"}], RowBox[{"Cot", "[", "theta", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "r"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "r", "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "s"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"I", " ", "sigma"}]}], ")"}], RowBox[{"F", "[", "s", "]"}]}], ",", RowBox[{"{", RowBox[{"theta", ",", RowBox[{"Pi", "/", "M"}], ",", RowBox[{ RowBox[{"(", RowBox[{"M", "-", "1"}], ")"}], RowBox[{"Pi", "/", "M"}]}], ",", RowBox[{"Pi", "/", "M"}]}], "}"}]}], "]"}], "/.", RowBox[{"ComplexInfinity", "\[Rule]", "0"}]}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Total", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"r", "/", "M"}], ")"}], " ", "tab"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "f"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"g", "=", "0.5"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ab2", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "+", "1"}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", RowBox[{"g", "=", "0.8"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ab3", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Black"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "+", "1"}], ",", "h"}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "g", "]"}], "\[IndentingNewLine]", RowBox[{"g", "=", "1"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ab4", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotStyle", "\[Rule]", "Dotted"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "+", "1"}], ",", RowBox[{"h", "+", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}]}], "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"ab4", ",", "ab2", ",", "ab3"}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.788056192034629*^9, 3.788056199731413*^9}, { 3.788056244531969*^9, 3.7880562950806503`*^9}, {3.788056838528564*^9, 3.788056955669786*^9}, {3.788056987835147*^9, 3.788057066272481*^9}, { 3.788057118073531*^9, 3.7880572301351967`*^9}, {3.788057320483851*^9, 3.78805734106304*^9}, {3.788057372094355*^9, 3.788057388062233*^9}, 3.788057546823501*^9, {3.788057608132949*^9, 3.788057642618616*^9}, { 3.788057677608107*^9, 3.7880576943406267`*^9}, {3.7880578282190723`*^9, 3.788058090212081*^9}, {3.78805835497805*^9, 3.788058357360572*^9}, { 3.788058444487495*^9, 3.788058448405012*^9}, {3.7880588488492928`*^9, 3.788058851891403*^9}, {3.7880593051376657`*^9, 3.788059416149577*^9}, { 3.788059801371348*^9, 3.788059811596106*^9}, {3.78806059607576*^9, 3.788060658201324*^9}, {3.7880607113286533`*^9, 3.788060725934977*^9}, { 3.788060914221888*^9, 3.7880609157968493`*^9}, {3.788061085267823*^9, 3.788061205945606*^9}, {3.788061424313571*^9, 3.788061427342733*^9}, { 3.788061470307473*^9, 3.7880615217796717`*^9}, {3.788061574827039*^9, 3.788061576751183*^9}, {3.788061630405567*^9, 3.788061636112185*^9}, { 3.7880616879814873`*^9, 3.7880617488099833`*^9}, {3.788061807087852*^9, 3.788061809287177*^9}, {3.788061848459311*^9, 3.7880618891925592`*^9}, { 3.788062663838139*^9, 3.788062809853059*^9}, {3.788062843626727*^9, 3.788062878616061*^9}, 3.788062975953841*^9, 3.788063292045973*^9, 3.788063324600562*^9, 3.788063539105547*^9, 3.788063723620541*^9, { 3.788067659796298*^9, 3.78806777342837*^9}, 3.7880685529693823`*^9, 3.78806859955396*^9, 3.7880741847952623`*^9, 3.788074289881352*^9, { 3.7880744892816963`*^9, 3.788074554698209*^9}, {3.7880746065682173`*^9, 3.788074623214691*^9}, {3.788074660713984*^9, 3.7880746657555428`*^9}, { 3.7880747089182034`*^9, 3.788074861834564*^9}, {3.788074892677354*^9, 3.788074947810196*^9}, {3.788075094052971*^9, 3.788075128019041*^9}, { 3.7880752465852547`*^9, 3.7880753147979727`*^9}, {3.7880762942758636`*^9, 3.788076309273829*^9}, {3.788076413744184*^9, 3.788076545395049*^9}, 3.788076586160384*^9, {3.788076646714054*^9, 3.788076763960737*^9}, 3.788084941695026*^9, {3.788084981106442*^9, 3.78808498710632*^9}, { 3.788085071972089*^9, 3.788085184614349*^9}, {3.788085254822304*^9, 3.788085271182269*^9}, {3.788085323885532*^9, 3.788085332964841*^9}, { 3.788087258592862*^9, 3.7880872635614758`*^9}, 3.788087439171802*^9, { 3.78808756037947*^9, 3.788087563424889*^9}, {3.788088213438527*^9, 3.788088216804654*^9}, {3.7880884525861177`*^9, 3.788088466488627*^9}, 3.788088597668151*^9, {3.7880886818076553`*^9, 3.788088731338129*^9}, { 3.788088875660728*^9, 3.78808893004109*^9}, {3.788089009618414*^9, 3.788089098888692*^9}, {3.788089175934958*^9, 3.7880891778011713`*^9}, { 3.78808922692647*^9, 3.78808923102988*^9}, {3.788089264890517*^9, 3.788089273337569*^9}, {3.788089305556172*^9, 3.788089307296673*^9}, { 3.788089345188335*^9, 3.7880893475060997`*^9}, {3.788089389670918*^9, 3.7880894000298233`*^9}, {3.788089566469057*^9, 3.788089613602799*^9}, 3.788089699605945*^9, {3.788089738130728*^9, 3.7880897424898977`*^9}, 3.78814781638575*^9, 3.788157089469173*^9, {3.788157288458703*^9, 3.788157305396837*^9}, {3.7881707861650143`*^9, 3.788170790930197*^9}, { 3.788243928334834*^9, 3.78824394048555*^9}, {3.78824404914707*^9, 3.788244049928754*^9}, {3.788244136118635*^9, 3.788244140654496*^9}, { 3.788301649018136*^9, 3.788301765896996*^9}, 3.788759437351939*^9, 3.788759535354412*^9, {3.7887599923374243`*^9, 3.7887600012486143`*^9}, 3.78876067962693*^9, {3.788761544259366*^9, 3.788761550176085*^9}, 3.788768093300378*^9, {3.788770051047799*^9, 3.788770053837831*^9}, 3.788770482070499*^9, {3.7887718673445187`*^9, 3.788771883170597*^9}, 3.7887723556455317`*^9, {3.788772480178021*^9, 3.788772491552923*^9}, { 3.788773727925508*^9, 3.788773732167918*^9}, 3.788774182012908*^9, { 3.78918130406161*^9, 3.789181306571246*^9}, {3.7891951477975197`*^9, 3.7891951796671047`*^9}, {3.789195255035934*^9, 3.789195378961073*^9}, 3.7891963443247223`*^9, 3.7891967943946743`*^9, {3.789196857854473*^9, 3.7891968628050337`*^9}, {3.789198005600587*^9, 3.789198018818183*^9}, { 3.7891982009712048`*^9, 3.789198226954368*^9}, 3.7891984731848097`*^9},ExpressionUUID->"080509ee-a2db-426a-938f-\ 6b677f9a69b1"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "p"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "p"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "q"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "q"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "w"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "k0", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "p", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "p", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "q", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", "q", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["w", "2"]}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", SuperscriptBox["w", "2"]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "de", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "p"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]]}], " ", "k0", " ", "p"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["p", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "q"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "de", " ", "p", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "p"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], ")"}]}], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}]], RowBox[{"2", " ", "de", " ", "p"}]], ",", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "k0"}], "+", RowBox[{"de", " ", "p"}], "+", RowBox[{"de", " ", "q"}], "-", RowBox[{"de", " ", "w"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "de", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "p"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], ")"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"b", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]}]], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"de", " ", "p"}], "-", RowBox[{"de", " ", "q"}], "+", RowBox[{"de", " ", "w"}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", " ", "de", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "p"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["p", "2"]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "q"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "k0", " ", "w"}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "p", " ", "w"}], "-", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"2", " ", "de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", "q", " ", "w"}], "+", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}], "-", RowBox[{"de", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x0"}]], " ", SuperscriptBox["w", "2"]}]}], ")"}]}], ")"}]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.788302332450807*^9, 3.788759453431663*^9, 3.788760002485477*^9, 3.7887607209134207`*^9, 3.788761552929145*^9, 3.788768098130444*^9, 3.788770062712969*^9, 3.7887704866752977`*^9, 3.788771888928567*^9, 3.788772359044937*^9, 3.78877249583426*^9, 3.788773456960229*^9, 3.7887737678336763`*^9, 3.788774183961523*^9, 3.789089368613078*^9, 3.789089591759083*^9, 3.789090180359198*^9, 3.789117017166629*^9, 3.789181038146968*^9, 3.789195387092896*^9, 3.789196354750257*^9, 3.7891967960691833`*^9, 3.7891968644180326`*^9, 3.789198024480104*^9, 3.789198228899336*^9, 3.7891985995454597`*^9},ExpressionUUID->"da0d6ad0-c5eb-48e0-a305-\ 4962a173901c"], Cell[BoxData["0.5`"], "Output", CellChangeTimes->{3.788302332450807*^9, 3.788759453431663*^9, 3.788760002485477*^9, 3.7887607209134207`*^9, 3.788761552929145*^9, 3.788768098130444*^9, 3.788770062712969*^9, 3.7887704866752977`*^9, 3.788771888928567*^9, 3.788772359044937*^9, 3.78877249583426*^9, 3.788773456960229*^9, 3.7887737678336763`*^9, 3.788774183961523*^9, 3.789089368613078*^9, 3.789089591759083*^9, 3.789090180359198*^9, 3.789117017166629*^9, 3.789181038146968*^9, 3.789195387092896*^9, 3.789196354750257*^9, 3.7891967960691833`*^9, 3.7891968644180326`*^9, 3.789198024480104*^9, 3.789198228899336*^9, 3.789198623756509*^9},ExpressionUUID->"3145ebe2-995a-4a5d-8b9b-\ dc321bf4c393"], Cell[BoxData["0.8`"], "Output", CellChangeTimes->{3.788302332450807*^9, 3.788759453431663*^9, 3.788760002485477*^9, 3.7887607209134207`*^9, 3.788761552929145*^9, 3.788768098130444*^9, 3.788770062712969*^9, 3.7887704866752977`*^9, 3.788771888928567*^9, 3.788772359044937*^9, 3.78877249583426*^9, 3.788773456960229*^9, 3.7887737678336763`*^9, 3.788774183961523*^9, 3.789089368613078*^9, 3.789089591759083*^9, 3.789090180359198*^9, 3.789117017166629*^9, 3.789181038146968*^9, 3.789195387092896*^9, 3.789196354750257*^9, 3.7891967960691833`*^9, 3.7891968644180326`*^9, 3.789198024480104*^9, 3.789198228899336*^9, 3.7891986505736732`*^9},ExpressionUUID->"db6239c5-3879-4c20-8d30-\ 932366b48ca7"], Cell[BoxData["1"], "Output", CellChangeTimes->{3.788302332450807*^9, 3.788759453431663*^9, 3.788760002485477*^9, 3.7887607209134207`*^9, 3.788761552929145*^9, 3.788768098130444*^9, 3.788770062712969*^9, 3.7887704866752977`*^9, 3.788771888928567*^9, 3.788772359044937*^9, 3.78877249583426*^9, 3.788773456960229*^9, 3.7887737678336763`*^9, 3.788774183961523*^9, 3.789089368613078*^9, 3.789089591759083*^9, 3.789090180359198*^9, 3.789117017166629*^9, 3.789181038146968*^9, 3.789195387092896*^9, 3.789196354750257*^9, 3.7891967960691833`*^9, 3.7891968644180326`*^9, 3.789198024480104*^9, 3.789198228899336*^9, 3.789198678214082*^9},ExpressionUUID->"51028cde-39ee-493a-aa69-\ 86ddb5d27a29"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.9, 0.36, 0.054], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], Dashing[{0, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJw1yQ9IkwEQhvGhpBJIUhZqGzbbUpdorq3Nudzr1E1LTUzUcmrLaRsjc2qC TG2zEu1DyqQiLRgURUTrnyNKDWnQMimtsFWmsBWpEBkhaKRYsfPgOH73cA8f y6/0Y7FYwn/7//rmp0Ls77v0gCp/wLy0MkcOQpmw/KBxftUh8E64RpnmVYfi RuOYPVb2gxyGPwvB2nHJdzIbBn7p8PnHs+QtYL9smtT5T5OjwHnOjzVlfSXz cLn7d0613UPehqs9LZ1FnVPkGDCObJFX8oksgNhkvOXRvifHYV5UsDIT+I4c D2vwRHI7d4y8A5Fn3ON96hFyIjbVxBiyA1xkIU6FXdc8OOIk74Rr85f1gsIh sghda5WM29xPFsMd77d8P+IReRcG9QvuRcNDsgTeDj3vQ+49shTbT7PvmHS3 yUngtFhnHKybZBlGbM9efc67Rk5G79G3Qq3URpajNJzJyEzpJe+Gv4PbdMFz kZyC2h6trUzaTVagy73v6TD/HBmov5QrSdjK+GwBZs/K6tyv26inosPLrCmP O0k9Fa3FKZqISAt1JSzWgsYljpm6EkHW7hznaAP1NASGe3X9iXXU0xCtqXZ2 RtdQT8dAQuXynNBIPR0hjm997Okq6hmIcjAbkvZUUM9AaP2iHjhEXQWDoLhV V1FCXYWAK/J19o1F1NVo+zglUTXsp65GoYv3psqQRz0Tpl/HDzTf3Us9E+3y Saa2RE09C4Mnngy9cKQp/gIEctas "]]}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"g=1\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.9, 0.36, 0.054]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.9, 0.36, 0.054]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "True", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-0.10000000000000009, 0.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox["\"Q(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, LabelStyle->{FontFamily -> "Times"}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{0., 50.}, {0, 1.0000000000001823`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], Line[CompressedData[" 1:eJw1yQ9IkwEQhvGhpBJIUhZqGzbbUpdorq3Nudzr1E1LTUzUcmrLaRsjc2qC TG2zEu1DyqQiLRgURUTrnyNKDWnQMimtsFWmsBWpEBkhaKRYsfPgOH73cA8f y6/0Y7FYwn/7//rmp0Ls77v0gCp/wLy0MkcOQpmw/KBxftUh8E64RpnmVYfi RuOYPVb2gxyGPwvB2nHJdzIbBn7p8PnHs+QtYL9smtT5T5OjwHnOjzVlfSXz cLn7d0613UPehqs9LZ1FnVPkGDCObJFX8oksgNhkvOXRvifHYV5UsDIT+I4c D2vwRHI7d4y8A5Fn3ON96hFyIjbVxBiyA1xkIU6FXdc8OOIk74Rr85f1gsIh sghda5WM29xPFsMd77d8P+IReRcG9QvuRcNDsgTeDj3vQ+49shTbT7PvmHS3 yUngtFhnHKybZBlGbM9efc67Rk5G79G3Qq3URpajNJzJyEzpJe+Gv4PbdMFz kZyC2h6trUzaTVagy73v6TD/HBmov5QrSdjK+GwBZs/K6tyv26inosPLrCmP O0k9Fa3FKZqISAt1JSzWgsYljpm6EkHW7hznaAP1NASGe3X9iXXU0xCtqXZ2 RtdQT8dAQuXynNBIPR0hjm997Okq6hmIcjAbkvZUUM9AaP2iHjhEXQWDoLhV V1FCXYWAK/J19o1F1NVo+zglUTXsp65GoYv3psqQRz0Tpl/HDzTf3Us9E+3y Saa2RE09C4Mnngy9cKQp/gIEctas "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 1.0000000000001823`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["Q(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 50.}, {0, 1.0000000000001823`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.016666666666666666`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]]}, { Style["g=1", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {True}, LabelStyle -> {FontFamily -> "Times"}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-0.10000000000000009`, 0.6}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{3.788302332450807*^9, 3.788759453431663*^9, 3.788760002485477*^9, 3.7887607209134207`*^9, 3.788761552929145*^9, 3.788768098130444*^9, 3.788770062712969*^9, 3.7887704866752977`*^9, 3.788771888928567*^9, 3.788772359044937*^9, 3.78877249583426*^9, 3.788773456960229*^9, 3.7887737678336763`*^9, 3.788774183961523*^9, 3.789089368613078*^9, 3.789089591759083*^9, 3.789090180359198*^9, 3.789117017166629*^9, 3.789181038146968*^9, 3.789195387092896*^9, 3.789196354750257*^9, 3.7891967960691833`*^9, 3.7891968644180326`*^9, 3.789198024480104*^9, 3.789198228899336*^9, 3.789198703832737*^9},ExpressionUUID->"bbfe46ff-0ea6-439a-a473-\ ede31918a76d"] }, Open ]], Cell["Let us generate graphs on the effect of g;", "Text", CellChangeTimes->{{3.78919452382136*^9, 3.789194556515991*^9}},ExpressionUUID->"5518cce9-e564-4a88-89b2-\ 771f9a68ef74"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "d"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k2", "=", "k0"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"UnitStep", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"UnitStep", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"UnitStep", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"HeavisideTheta", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], "}"}]}]}], ";", RowBox[{"(*", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], "}"}], "*)"}], RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";", RowBox[{ RowBox[{"Qt", "[", "t_", "]"}], "=", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "-", "x0"}], ")"}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "+", RowBox[{"d", " ", "g", " ", "t"}]}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "g", " ", "x0"}], "]"}], RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}], "+", RowBox[{"\[Epsilon]2", " ", "x0"}], "+", RowBox[{"g", " ", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], " ", "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", "*", "2", "b"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], "+", FractionBox["1", RowBox[{"g", "+", "\[Epsilon]2"}]]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "-", "g"}], ")"}], "b"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"b", "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"b", "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox["1", RowBox[{"\[Epsilon]2", "-", "g"}]]}], "-", FractionBox["1", RowBox[{"\[Epsilon]2", "+", "g"}]]}], ")"}]}], "-", RowBox[{"\[Epsilon]2", " ", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"-", RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"b", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"2", " ", RowBox[{"Exp", "[", RowBox[{"g", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}]}], RowBox[{"\[Epsilon]2", "-", "g"}]], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}], "-", "b"}], "]"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"g", "-", "\[Epsilon]2"}]], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"2", "b", " ", "g"}], "+", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"d", " ", "g", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"2", "x0"}], "+", RowBox[{ RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}], "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"\[Epsilon]2", "-", "g"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"b", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "b", " ", "g"}], "+", RowBox[{ FractionBox["1", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]}], ")"}], RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"b", "-", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"2", "b", " ", "\[Epsilon]2"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "\[Epsilon]2"}], " ", "a"}], "+", RowBox[{"g", " ", "a"}]}], "]"}], RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["2", RowBox[{"g", "-", "\[Epsilon]2"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"UnitStep", "[", RowBox[{"a", "-", RowBox[{"2", "b"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "+", RowBox[{ FractionBox["2", RowBox[{"2", RowBox[{"(", RowBox[{"g", "-", "\[Epsilon]2"}], ")"}]}]], RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "-", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "b"}], "+", RowBox[{"2", "x0"}], "+", RowBox[{"d", " ", "t", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}]}], ")"}]}], "]"}], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"2", "b"}], "-", "a", "+", RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}], "-", RowBox[{"\[Epsilon]1", "*", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]2", " ", "2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"\[Epsilon]2", "+", "g"}], ")"}], " ", "a"}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{"a", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"a", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"g", "+", "\[Epsilon]2"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"(", RowBox[{"-", "2"}], ")"}], RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "a"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], "]"}]}], "-", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"g", "+", "\[Epsilon]2"}], "2"], RowBox[{"(", RowBox[{ RowBox[{"4", "a"}], "-", RowBox[{"4", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0", "-", RowBox[{"\[Epsilon]2", " ", "d", " ", "t"}]}], ")"}]}], "]"}], RowBox[{"g", "+", "\[Epsilon]2"}]], RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"a", "-", RowBox[{"2", "b"}], "+", RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], ")"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}]}], ")"}]}]}], ")"}]}]}]}], ";", RowBox[{"g", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xc", "=", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Ex", "[", "t_", "]"}], ":=", RowBox[{"0", RowBox[{"\[Epsilon]1", "/", "2"}], "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], "^", "2"}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "a"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}], ",", RowBox[{"MaxRecursion", "\[Rule]", "20"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"c", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", "p1"}], "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Gray"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}]}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"c", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p2", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Dashed"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"c", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ab1", "=", RowBox[{"ListLinePlot", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"c", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".8"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p3", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Thick", "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", "h"}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"c", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ab2", "=", RowBox[{"ListLinePlot", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"c", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"f", "/.", RowBox[{"Flatten", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"t", "=", "0.1"}], "}"}], ",", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"f", "*", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", "f"}], "]"}]}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"c", RowBox[{"(", RowBox[{ RowBox[{"Qt", "[", "t", "]"}], "+", RowBox[{"Ex", "[", "t", "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p4", "=", RowBox[{"ListLinePlot", "[", RowBox[{"%", ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Dotted", ",", "Black"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "+", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"c", " ", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0.1", ",", "50"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ab3", "=", RowBox[{"ListLinePlot", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p4", ",", "p2", ",", "p3"}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"ab1", ",", "ab2", ",", "ab3"}], "]"}]}], "Input", CellChangeTimes->{{3.789192690261546*^9, 3.7891926927410707`*^9}, { 3.789192731016477*^9, 3.789192731530755*^9}, {3.789192780239463*^9, 3.7891929391106977`*^9}, {3.789193283373022*^9, 3.789193288696582*^9}, 3.789194605941819*^9, {3.7891946376595373`*^9, 3.789194726354794*^9}, { 3.7891947691187267`*^9, 3.789194771519465*^9}, {3.7891948054674263`*^9, 3.789194920517831*^9}, {3.789195050500203*^9, 3.789195058857217*^9}, { 3.789197010319256*^9, 3.789197020010434*^9}, {3.789197054657578*^9, 3.789197093356728*^9}, {3.7892041593471937`*^9, 3.7892041720028467`*^9}, { 3.789204297553173*^9, 3.789204453039888*^9}, {3.789204485408697*^9, 3.7892045125772667`*^9}},ExpressionUUID->"af92908f-f836-4347-9e2c-\ 7f712cb08c9f"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.9999999999999999`", ",", "4.5541749656708275`", ",", "4.563419224819294`", ",", "5.048438210856117`", ",", "4.765335477647059`", ",", "4.454433831051035`", ",", "4.1484208309104975`", ",", "3.8597418260651453`", ",", "3.5923593183964915`", ",", "3.3466539258692696`", ",", "3.1215346519291`", ",", "2.9153721445540106`", ",", "2.7264151408925903`", ",", "2.552972298885387`", ",", "2.3934852013819303`", ",", "2.2465506034041614`", ",", "2.1109194489101104`", ",", "1.985485915383525`", ",", "1.8692728898234638`", ",", "1.7614169181622144`", ",", "1.661154001885138`", ",", "1.5678067868343943`", ",", "1.4807732833973952`", ",", "1.3995170665617163`", ",", "1.3235588229550084`", ",", "1.2524690855553178`", ",", "1.1858619969388342`", ",", "1.1233899541536418`", ",", "1.0647390049907666`", ",", "1.0096248828669465`", ",", "0.9577895839631643`", ",", "0.9089984049445139`", ",", "0.8630373723531178`", ",", "0.8197110056541346`", ",", "0.7788403651181408`", ",", "0.7402613434506844`", ",", "0.7038231665373973`", ",", "0.6693870740796364`", ",", "0.6368251553928597`", ",", "0.6060193194118424`", ",", "0.5768603810918232`", ",", "0.5492472490325431`", ",", "0.5230862013645221`", ",", "0.4982902387998339`", ",", "0.4747785053155623`", ",", "0.452475768266968`", ",", "0.4313119508509414`", ",", "0.41687686025384135`", ",", RowBox[{"-", "0.46897935939868496`"}], ",", RowBox[{"-", "0.4483253456416961`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.789194946945496*^9, 3.789195069966587*^9, 3.789197021777625*^9, { 3.789197063300181*^9, 3.789197075175169*^9}, 3.789197106152689*^9, { 3.789204162750991*^9, 3.789204173543168*^9}, 3.789204454595695*^9, 3.789204520203285*^9},ExpressionUUID->"93cfd214-9161-4de5-b52c-\ 95da8ee9f6f4"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"0.5868699984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"1.7542162326914423`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.004645491802683012`\\\"}]\\) for the integral and \ error estimates.\"",2,4211,189,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.78920452544909*^9},ExpressionUUID->"2cf4a857-45b7-4356-bf9c-88ddb7e0b459"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"2.110307498431943`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"0.6735565286825528`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.01711116059792154`\\\"}]\\) for the integral and error \ estimates.\"",2,4211,190,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.7892045305161047`*^9},ExpressionUUID->"06cb4900-6fef-49c9-9cd7-\ c14a2e6012bf"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"1.1728074984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.43087580327502656`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"8.379350077759125`*^-6\\\"}]\\) for the integral and \ error estimates.\"",2,4211,191,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204535581099*^9},ExpressionUUID->"62a55cdf-3489-4a37-9864-\ 0e97ba902ab2"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,4211,192,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204535602573*^9},ExpressionUUID->"1cfa807f-a588-4599-90b5-\ 919654b5e917"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4211,193,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.7892045415570517`*^9},ExpressionUUID->"0c1d90be-79dd-41a7-961e-\ 3af971c98857"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4211,194,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.7892045418779182`*^9},ExpressionUUID->"c4f5c3b9-99ca-49f6-86bc-\ 539ab3399f5e"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4211,195,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204547449131*^9},ExpressionUUID->"5b667701-a471-495f-949a-\ f3e4531a9884"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"slwcon\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,4211,196,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204547504396*^9},ExpressionUUID->"73c455ff-4a29-455d-84ad-\ 5386f60e4685"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwBGIQbfNK+RzjQxYHBhTA4ZDRO8P3ihTPAQhfwGGJUP3r njABKF/E4fDvb5vnZ7NA+RIO0X8iZX8Gc0D5Mg67so+dO+TBDeUrOPBpip00 eSEC5Ss5bBebECO6lx/KV3Hw7HFc6iQjBuWrOcwNZNnfPw3G13CQO6wm8VhS CMrXcijac2KVe4I4lK/jcFOHrfnyFhhfzyH1azlX9AJhKN/A4bKVzrtqTpj9 hg7avu/S97dIQPlGDncrVU4m7IPxjR0K+F5fmywoCuWbOEy5K5vaqyIJ5Zs6 BJSvWaQcBOObObxxjN0ytwbGN3f4xBGlHrQExrdwYBG43R0XBvOPpcP+SYWT 29/A5K0c7FquaNTzSkH51g7n4iL6F+rA+DYOv78Hy/6SgPnP1uH1Mp1EzjSY vJ3D0xs2RlMaYHx7hwPnPjT1TISpd3BwmCXW/mIjVL7BwcFUfIH20hsweUcH y0XM7jfvweQdHbaUGK+/9xlmnpODzLrr25k5pKHyTg5F5be7w6WhfAZnh7df sz4814XJOzvkedvkHbSHybs4VAtql74PgMm7OJiW8FXXJMLkXR1Orm8SKyqE ybs6qCW5i91sgMm7OYQnbpq6sx8m7+Zg9mIBn/Q8mLy7g12OSybLGpi8u4PP VlGump0weQ+Hkm69e+3HYPIeDiLODmm6l2Hyng5HvEMPFN6XPgAAhM7SXg== "]]}}, {}, {}, {{}, {}}, {{}, {}}}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {-6.968207364278843, 0}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.02]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.789194946945496*^9, 3.789195069966587*^9, 3.789197021777625*^9, { 3.789197063300181*^9, 3.789197075175169*^9}, 3.789197106152689*^9, { 3.789204162750991*^9, 3.789204173543168*^9}, 3.789204454595695*^9, 3.78920471866588*^9},ExpressionUUID->"5241ae1a-fbd9-4311-b95f-\ 6685cbe9d4fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "13.905361110751725`", ",", "13.5616172144026`", ",", "14.924771723935875`", ",", "13.369303752299345`", ",", "11.837263375691839`", ",", "10.43279760574496`", ",", "9.181524689400316`", ",", "8.080317510645946`", ",", "7.116133630146673`", ",", "6.27338210267863`", ",", "5.5367972695641265`", ",", "4.89247949077019`", ",", "4.328174906601697`", ",", "3.8332445220087683`", ",", "3.3985166133148845`", ",", "3.0161064724764297`", ",", "2.679238940687261`", ",", "2.382087419363552`", ",", "2.119633324633405`", ",", "1.8875457462652154`", ",", "1.6820794129732004`", ",", "1.49998857150108`", ",", "1.3384544057526466`", ",", "1.1950238471474002`", ",", "1.0675579151619836`", ",", "0.9541880135484048`", ",", "0.853278866953658`", ",", "0.7633970064650522`", ",", "0.6832839010147583`", ",", "0.6118329879899658`", ",", "0.5480699852486594`", ",", "0.4911359724908479`", ",", "0.4402728166169478`", ",", "0.3948105867704871`", ",", "0.3541566631040062`", ",", "0.31778629130529207`", ",", "0.2852343745036672`", ",", "0.2560883269116137`", ",", "0.22998184071223476`", ",", "0.20658944029489204`", ",", "0.18562171679759012`", ",", "0.1668211516998349`", ",", "0.14995845146590472`", ",", "0.13482932640113415`", ",", "0.12125165631551657`", ",", "0.10906299357466542`", ",", "0.09928985508622798`", ",", RowBox[{"-", "0.0642282749379135`"}], ",", RowBox[{"-", "0.05783916794752048`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.789194946945496*^9, 3.789195069966587*^9, 3.789197021777625*^9, { 3.789197063300181*^9, 3.789197075175169*^9}, 3.789197106152689*^9, { 3.789204162750991*^9, 3.789204173543168*^9}, 3.789204454595695*^9, 3.7892047191791353`*^9},ExpressionUUID->"f55e3c18-3202-4185-a751-\ c92b8746932a"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"0.5868699984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"2.2650997960486245`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.004881877505986103`\\\"}]\\) for the integral and \ error estimates.\"",2,4218,197,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204724548683*^9},ExpressionUUID->"bd79788d-239e-4d38-85f7-\ 9a17678dd5b5"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"2.110307498431943`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"1.061209647207578`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.0167512766030617`\\\"}]\\) for the integral and error \ estimates.\"",2,4218,198,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.78920472967132*^9},ExpressionUUID->"ae6847e2-3edd-43bf-8f54-c75233c8c2f3"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"1.1728074984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.08940128524008609`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.000013328014139486623`\\\"}]\\) for the integral and \ error estimates.\"",2,4218,199,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204734791658*^9},ExpressionUUID->"899d4528-379f-4218-aba5-\ cf699135c445"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,4218,200,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.7892047348563223`*^9},ExpressionUUID->"7a68ef59-a247-492b-be2c-\ 6b212d6d4782"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4218,201,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204740958695*^9},ExpressionUUID->"5fc61ab1-65ed-4d13-940a-\ b369d19fe097"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4218,202,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204741391849*^9},ExpressionUUID->"855c0855-470b-4619-848c-\ c7b79a90af25"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4218,203,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204746823374*^9},ExpressionUUID->"c054bc27-c32d-43e8-88d3-\ 970763d17466"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"slwcon\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,4218,204,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204746877459*^9},ExpressionUUID->"36a5dc85-4ab4-41ef-abf8-\ 8fdef143c073"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJw1zmtI01EYx/E/ydRMdJiFoa1Zo7yubd7acvM3d41qtS7qMhWKXnShxYhe aK2kwgoLUyhzg+xONIkZGRKVZrYiN/VFWlCuFRQjKacW2IpuO8+Bh8OH74Hz pG+zbtgxi+M46d/5d/vqe7iB5dGoNefmmBuTwP0/sWh2B0U2S1RPxHx8dJQL FYPzmJMxNNJ5If3z1KOIU1D1U+4765rDehoUzYJ7D5zJzEJsDXS11MUuY16M RbdqzvMHBMwi1Fqq24oUWcxLwfNmpozZs5kzEOY7hwuOi5iz8H3id+Lmc7nM OVj76Uz48QExsxj+/cEf3TEZzBI0TsnHQzNkKYIaXnvFOgmzDF9kpzNHHOQ8 XLXuxNQW+j8f4uzKbtsSKXMBTPGJoukaciE877QvN7WSi1D+HB0xXvIKuF+4 br830n5yrK680jqWI2NWIFymXdBeQV6JNeYh/2Q9uRgmldJUwaP9lHC8ckeJ fNRVeHa392B1iFwCnUoU96SJ3gNvpztOjsryIj4CzAQ3jnMfqKvRaNCbDu2l rsZNyZvh7aeYuVJM1FWfEF6jXore6H0tnofUNVD2B+S7R6lrYLtjF6R9pa7F 3H6TNcjLZ12LiwnHEgKpzJwO9x2zuxKl1HVwX26YX6+jrkfV0YbJEgt1PZyp usKyPdQNOPz6RrzXTt2A68WekKuJuhG74tb3/bpE3YgiddLg007qq7Aw9ps/ oS+/5w80TOIM "]]}}, {}, {}, {{}, {}}, {{}, {}}}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 50.}, {-20.761945721933547`, 4.6370283987674785`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.789194946945496*^9, 3.789195069966587*^9, 3.789197021777625*^9, { 3.789197063300181*^9, 3.789197075175169*^9}, 3.789197106152689*^9, { 3.789204162750991*^9, 3.789204173543168*^9}, 3.789204454595695*^9, 3.789204917949891*^9},ExpressionUUID->"023fd45e-46a3-4d55-97f2-\ f503c4c7ed7c"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "36.66201649320902`", ",", "34.18750764345267`", ",", "36.48252489050056`", ",", "30.96735355044968`", ",", "25.97876323972032`", ",", "21.695285171612053`", ",", "18.092768046684437`", ",", "15.08913674804489`", ",", "12.593261015897191`", ",", "10.521087590518068`", ",", "8.800047283232665`", ",", "7.369244559559396`", ",", "6.178239135697277`", ",", "5.1854887583589955`", ",", "4.35684874249263`", ",", "3.6642571420345864`", ",", "3.084629473420383`", ",", "2.5989479003194185`", ",", "2.1915178086236016`", ",", "1.8493635264656059`", ",", "1.5617377287994973`", ",", "1.3197229460914375`", ",", "1.1159074247072673`", ",", "0.9441209559660928`", ",", "0.7992191076017345`", ",", "0.6769065857177824`", ",", "0.5735922990805079`", ",", "0.48627016934977063`", ",", "0.4124209024293585`", ",", "0.34993086837501874`", ",", "0.29702497989366355`", ",", "0.25221105213123596`", ",", "0.21423360060416854`", ",", "0.1820354145182124`", ",", "0.1547255487566018`", ",", "0.13155262475995375`", ",", "0.11188253034701416`", ",", "0.09517977068263056`", ",", "0.08099185454611983`", ",", "0.06893620769530034`", ",", "0.0586891931540699`", ",", "0.049976890415807065`", ",", "0.042567344841958545`", ",", "0.0362640473462597`", ",", "0.03090044471950679`", ",", "0.026335314226241312`", ",", "0.022692077550704418`", ",", RowBox[{"-", "0.010299920344539975`"}], ",", RowBox[{"-", "0.008783968053324258`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.789194946945496*^9, 3.789195069966587*^9, 3.789197021777625*^9, { 3.789197063300181*^9, 3.789197075175169*^9}, 3.789197106152689*^9, { 3.789204162750991*^9, 3.789204173543168*^9}, 3.789204454595695*^9, 3.789204918538994*^9},ExpressionUUID->"50059220-d64d-40ad-8b6f-\ 1dbda4915f60"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"0.5868699984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"2.6070196406395403`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.004831132927010858`\\\"}]\\) for the integral and \ error estimates.\"",2,4225,205,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.78920492395348*^9},ExpressionUUID->"c0e658d9-d529-4a51-871d-98fef15c46b6"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"2.110307498431943`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"1.319645059557594`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.01651135393982179`\\\"}]\\) for the integral and error \ estimates.\"",2,4225,206,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204929148221*^9},ExpressionUUID->"ee88bcc0-c03f-4449-9f42-\ e5cc9c37de77"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"1.1728074984319428`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"-\\\", \\\"0.1382483934561434`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.000025365069550828352`\\\"}]\\) for the integral and \ error estimates.\"",2,4225,207,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.78920493439043*^9},ExpressionUUID->"104d744b-18da-47be-96d1-ce36ac3a592a"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,4225,208,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204934436893*^9},ExpressionUUID->"30b44df0-7370-432b-bce3-\ 93937b3f5c14"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4225,209,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204940491078*^9},ExpressionUUID->"31f53ebe-5d59-49b0-b232-\ faa1da44af08"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4225,210,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204940807111*^9},ExpressionUUID->"68e2453d-bcc9-4c79-a1c3-\ 2af7792a587d"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,4225,211,24557332618542158604, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.789204946406221*^9},ExpressionUUID->"d9aa697c-b0f3-4338-b301-\ fde8ceed9040"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"slwcon\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,4225,212,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.789204459262397*^9, 3.7892049464594107`*^9},ExpressionUUID->"7b8482d0-22d5-472d-a4fe-\ 6852cf7e264c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".7"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xc", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ex", "[", "t_", "]"}], ":=", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", " ", "d", " ", "t"}], "]"}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"Sqrt", "[", RowBox[{"2", "d", " ", "t"}], "]"}]], "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "a"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Ex", "[", "t", "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.788584811268811*^9, {3.78858488951873*^9, 3.788584925073658*^9}, { 3.78858498047581*^9, 3.7885850237808943`*^9}, {3.788585078531789*^9, 3.788585079920239*^9}, {3.789193221076372*^9, 3.7891932377774887`*^9}},ExpressionUUID->"086dfa3c-3080-41a9-9221-\ da8a80019f51"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"4.954039281343859`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"3.99999999988949`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"5.964211806578878`*^-6\\\"}]\\) for the integral and \ error estimates.\"",2,3354,136,24557332618542158604,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7891932388105288`*^9},ExpressionUUID->"c5162cb5-d3f1-4497-b525-\ ae78cc29b2c4"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJwl1gk4lNsfB/CxDcYysiuVcIUrS4usnV/WISQpQlkqS6iIUCpyiWT545Jk K0tUslSixRKSkCtRUZZspTSNnRn+59U8zzzzfJ5zZub9fc97zu/d5HbK5jg7 iUSawG/iUzaBdTtrQ9muwiLbgndcQlDJo7TR1zMBNXDjQZIQ1AWX5Cl6ZiOO eYlVJ2sOOwnEFyIj5gp+UaFJ3c+D7PkA8f/449Qk413MuErkyfXn+83XOmkz HjVInPTHqTBbMhX3CvUs/5n/Wiei6ofHWwQnc1fH09KsPH7F9aD6+T/jLf/r 9Rv36EcaTM7VccmX5wx/xo0h67+C2AibP+e2GvX4hZrltq3Ovybj3C6nR0dz XpnLhAPcqgNtG+hIN66ERdgpT2x9pMVvVHldj0nYaPR0w6Ou3+hGu+AiYa0r GyTbJRno1Kcb84RVFFu9R50YKFDt0yxhmdchNcs5DBTMqJkmLHJis4jECAPN 5ekzCJP53rurKU2hfeyGvwgv3r1cbeo7hcZ7n08QnrRQF3Qpm0LF0+ljhId+ fnYNnplCL3prhwh3x8c+StSeRv1NUp9X61fT5i26MI32+sR0E37RMepUVzeN YgZ/txMu90sp/cg1gyJctjYRLhA24GSYzaDHsPkZ4RsVv+wo8TOo+WlRKeF4 28y7sp0zKLYt4Tbh8BnzFR3xWZQteC9lNa/UeZv9DrNIL7EtgrDnzoIC76xZ 5PKk5vRqfh/2L0YMzSLhjeaOhK1D2KxuKsyhXB91w9U81z7IfXhiDs1qbVVc zfOp00xryRyy+EGhrObpRDEbYcwheo7f+DKRJ6vyJktzHt0lS70kLJp1nC52 fh5ttbmRTpgHiRip1syjqtevvQkz+2vTTDgWkEOlpjbhX2EnJ46YLqAf68LZ CA9tkkZBsQtIRcyogUXkWf86KeHtAjIKkQ8n3HI0aLRQZBHt1k/ZSfgF5186 tXaLaFuz2hiTyDO/M+5DxiLq576YQLjAJGyQ3r+IhqtJ6oRvjG3ZwSu/hBbd tzcvEXlG90Zv8lxC760T7QhfVorp0763hAYDoz4vYp9t0VS3oS+h8SsRhwgf 5k/quRzMRG5lyhoLRH730d8Zz5io51Zy7DyRn9XPixUkFkrVCv84R+T360bn GyMWasozXktYJZGmMBzNQhk9Wyxnifw0ZkOYrSxUEhXuN0Pk13m7TXTNMurb ERE1TeQlshJgnL6MZCbCLjGw6Q/vNR/+vIxKjo27/sYePuAgfXbTCloY6NKg Y3+Y5T4df3wFBd46NTmJ/Sbt0cuCohXkzP859SeRl9ZRiZqfK2jwoZ7yD+yP PtGPJiRJYB5cVPgdu01Ak5fzMAmCbyw7jWF37hG+3h5KAiMOxfIR4vdjJhXS b5LAfuMs/Svx/1yFRqp9JGBl71EcwP5uGPFufokEaffVN34hrjfc2e3lOjao Gg5k9hL1sCTC7B3ZwKW52r0Hm11vWlDuPBvQ9UmMLuJ+OdeR+fMGG9inarh0 EvtzNvrp5U9s4H+xcbAVW3lyYfbeIXaw5JJ3qcVWV+mODAphB8V6y2/PsDVP lIsapLNDfMCKZRW2weiJrT0f2KFpeENBGTZN3rQud54dWhnpafexrdzkrH0k OSCprtKlCPvQl15fNnsOuC38NTAH+4j0E+abIA4gH6HXZGAfc0iJTU3jgP8U cj6nYp/utij6u4cDknV7Eq5hR7c/Hz5wkBNYjfTyQOL+4r9xRuYsJ5S4el04 hZ1ifpZ94l9OsBkyFfHCzm5SlQl7zwkrztyZjth5nHwPzGc4IVz3bbwtdrHB mL6YGBdc7W8xtcR+/CLbsdiWCzg3KPDtwn7GPP89IIALqHpeIprY9Tr2ISiF C2ysCr9swW5/LJTW9Y4Lfrh+rJLGHikJ71y2IeMcg4/PLeP1+nHY9bU/GS4+ nPf4iU1X1qEnJ5GhKHNF/is2s4AhoNRJhv/KfFvasEWzj5rt38cNlule+dnY az+jD+v9uEG/svlIMrbMOmmP8URu6A3a3xKF/Xda1z8XOvD8828qfLANEoxr C/fygHh1ZsV27DDzh0WdJ3kgUXFERQH7BZdcMiuOB9bsiNsvga0TSnLf38oD IRd08+dZVNjm9ZRvhcYLD/AZUontL688o+TJC/7iCpQC7NL+619sr/BCuIDF uRRslYNny4obeeFKwhjtNLa8oYbdQQMKdG85FSWH7bacDeGuFJDd5eNBxc6p ElS+F0aB3LF9Y4tMKkir/2Cy1VBgiOVd24Ettr7w1n1dPhBaMa0NwibPSU9y 7uCHob4YVL6E9395bI+aLT88GZi5m4Z92Xex1uEMPzxdcS0OxV7+2pNcWsYP 2Rd2ORhjz3UkaTupCkD8dKzff4tUGC/miazYLAgGz+sG3i1QQcE96OQXE0G4 anNFohz72KZRO153Qfhgu/N9AvZA2ktl5zxBiNHoGjLD/vjPxQ7KJircz+nb 8WSeCsfVFgU0BISge8FJ68IcFSx6r+RLbhCCpY8avNbY26+I6ZPUhCCTrxJk sTn71X3eWgtBbjR9sGGWCrfiPVp8U4TAmlHdzY7d/7MrqnjdGsgbpQq5TuPn h3S3DUkqa6BRrp9DGbvEmP4oRH8NSL/VOsCYosLFTL4RmvMaiLDMEAzHlrY0 MBy7tQbuFYu/TWXg/XbvwYqcsjBoCVQo3KZTAez10/h0hcFESeyFK7Yi5xvV qT3C4H7H4d5G7HnH0cP1vsJA99K6lv4LP6/wrX/mUiYMDe6HrCMnqfDuxNXg TC0RiAiAYr0fVLBUOv5b3FQUHELKRZTGcD+PDXz6+aAoLGlbfOkZpcKdycjI PHdREPz2khqFzfmwQGprlCgounAXDoxQoXrX+G7LRlE41g/58cN4PWy9kyIM xcBzpL2nbZAKpEt+2+hIHHzfmVM/9uL6B8NZj/eKw1j5+bsB2I5GSa8uOIuD GUdpCRX7MW+FI98lcWi57Pfd8BMVfFKmIxReiMNl24fa+R/w+hUFdTnpSQBn 3lbLPe9xP+u6EPhaSxKa1CQVFNrx9UYecxsyk4Sb3nu789qokKW5Z++SgyQE N1b3yGJfvS6ptOWCJDCbpN5Kt1LhqFNFX2KdJOQ+zUnlacH7d3jc0N5cCqyV mLU1jbi/Te0XHnNcCxxlMqdKnlFBV1j5AeclaWhkTnRk3cHnB5vD67YEaThp YaQ1V0gFl98xX1NzpCHjSyllL/Y/Hd8klOqloSFSi8HMx/Pji8IsudZDu5Nq 977beD6fkk1q7HoQ+sA0HMjE8zkVZzZf3wDdfq8OJCVRwWMpKTPfXgZqr7u/ dzlHhVNNY9seWMpCXqnInCoN1+NA/ovlIw/u9l0iV/lwPa/Ou2t4KoBMnN2w Q7sg1HFL7fM+pAiOv8dyNyUIgsaasNRvAcpw6d+Ew19NBcFlSl/FykcFhq/w 7qzgEITcrEbpuThV0OHhdct9IgAV8Tq9nTbqcDvlfrPdSQEIqNa3zrTQAIVH 39imFAWgpiWfEeO4FeRnPyVOfOYHL1Pt51722+DmhSVwvs4PN+9oPPI+sR0k tXdYNFjyw/+mnoefDtoBao43nc9y8cNoceBZT39NUG2pWpqv54MGk6Trly/v BAmlSAueUD5g2/tpKCFMCz5uGzD7rcMHpN2P2XJCtCFs0mALYlIgWmLOsvOK DljHTYhEVFHgtMPR+rkIXWgNb/YNCKXAYPj2Y+hfPXgZ08qRpUsB0eT0TzG5 +jA/E3bTmsULBULKIa8ydoFk6zrk0cALdf4bjTffRaAlYle/iM/JLJkcaX1b gJXq8pFGa154HrpI8uwAYB1tk65fxwub9nAz5ex243M9S8r/Kw88fKsU+7Fr N9RJ6XtylfLAtaZldZnDBsDtOZJ8NoQHks98O+HSZwAmWZTpDFMeCBXbQJU9 ZAgGcvFfqyV4oEiJqyVgwBCm6DJ7hoa5gTzNJlV3xAgSY/oKfB5zQ6F62cWs MSMw63upIRvJDUpuxVYsX2MwmOaOfnUA9xWzqvIDE8ZwIo/1LVyZGzpvn9uC zphA8CGLtbFMMsxX7NOTZZiA+3g+ezjuWytP/B9FnTSFiOg7JPFiMuxRNzEO nTGFx+VWiVKXyPDqsJqX9xkaUDg0ZV/ZkUH4qOfTzEAanAk3ASnsI565Ah1B NPDrk/L1PkiGWX+R8u2hNHD4j22KeoAM8tFzi6x/aCB09PaDQ7ivhpXXXEtM pcFD8+TvvyzIoMNtXfqoigZantZ7NxuQIYo/hn38KQ0C1m8zOL8b99U19bZr X9BA70yW4Vsgg6f09oWL9TRY+4rbPwiRIU1D0oD2hgbCcYzQZj0yTDsOvPvU RwOrM5m2vjvJAK5SCgL9NPD5ra5Wr0mGWHebYDRIg2pddUkJbFm/Bum8ERpE U7zF6raTYV/UneO+kzQ4Gpj9TGwrGW7GDlZm02nQv9OZ4q1BhvHEtZROBg26 g0Lda9VxPRnXSjTnaOBs2WzmrUaG1pxGktcCDQRtpjpqVckgUbBsk7FEg3Pl Ae7i2G53d+a3sWjwpsCc4rOFDCWlp+dWVmhwxOPMszoVMvwfQAvCxQ== "]]}, Annotation[#, "Charting`Private`Tag$110779#1"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 2.771853897353977}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 50}, {2.771853897353977, 4.005690192143823}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.789193243034102*^9},ExpressionUUID->"8be81489-e2a2-4c1f-9f5e-\ 3b0ffc80e0b0"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"ab4", ",", "ab2", ",", "ab3"}], "]"}], "\[IndentingNewLine]"}]], "Input",ExpressionUUID->"67312b7d-8998-4b32-9937-\ 0343440a49d1"], Cell[BoxData[ TagBox[ GraphicsBox[{{{{}, {{}, {}, {RGBColor[0.9, 0.36, 0.054], PointSize[0.016666666666666666`], AbsoluteThickness[1.6], Dashing[{0, Small}], CapForm["Butt"], LineBox[CompressedData[" 1:eJw1yQ9IkwEQhvGhpBJIUhZqGzbbUpdorq3Nudzr1E1LTUzUcmrLaRsjc2qC TG2zEu1DyqQiLRgURUTrnyNKDWnQMimtsFWmsBWpEBkhaKRYsfPgOH73cA8f y6/0Y7FYwn/7//rmp0Ls77v0gCp/wLy0MkcOQpmw/KBxftUh8E64RpnmVYfi RuOYPVb2gxyGPwvB2nHJdzIbBn7p8PnHs+QtYL9smtT5T5OjwHnOjzVlfSXz cLn7d0613UPehqs9LZ1FnVPkGDCObJFX8oksgNhkvOXRvifHYV5UsDIT+I4c D2vwRHI7d4y8A5Fn3ON96hFyIjbVxBiyA1xkIU6FXdc8OOIk74Rr85f1gsIh sghda5WM29xPFsMd77d8P+IReRcG9QvuRcNDsgTeDj3vQ+49shTbT7PvmHS3 yUngtFhnHKybZBlGbM9efc67Rk5G79G3Qq3URpajNJzJyEzpJe+Gv4PbdMFz kZyC2h6trUzaTVagy73v6TD/HBmov5QrSdjK+GwBZs/K6tyv26inosPLrCmP O0k9Fa3FKZqISAt1JSzWgsYljpm6EkHW7hznaAP1NASGe3X9iXXU0xCtqXZ2 RtdQT8dAQuXynNBIPR0hjm997Okq6hmIcjAbkvZUUM9AaP2iHjhEXQWDoLhV V1FCXYWAK/J19o1F1NVo+zglUTXsp65GoYv3psqQRz0Tpl/HDzTf3Us9E+3y Saa2RE09C4Mnngy9cKQp/gIEctas "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.016666666666666666`], AbsoluteThickness[1.6], Dashing[{Small, Small}], LineBox[CompressedData[" 1:eJw1yVtMEgAUxnGgmfQkm7JZI4fpmmuuCyKUNz5FhUorNWbztoW2rGxoF61Z kg+VuHpgFlItMx+S1oUaKk7nIC0yy8RmCWiFOWOKl1Zabc1ZjcPZzs5+5x+u VGUfYjEYDMG//X99801Sz/JdeqChailqZWWBzEbzjURt0LLfHOSuPWFwjvsd AkHm6ePsGr9DUXAzX3rNMU/moU6hWbIvzpH50GivqEvcs+QN0Leyaofue8mR WJ3J9VQUzZA3wqz7HaBeM02Owlmjqv2uyUPehCdFTVnhxV/J0RAJ6w1y3hR5 M2zrExxjE5PkrcjRGQ/Utn8hb0NPYcNCiH6CLIBuFVM8pXGTY7CSkjFi4X4m C3GxoNGjjP1IjkWx0mjpqBgji6CKKzfUvXKSxQg91jJ6Kd5B3o7b/RnqfbYP 5B3oaYsOri19T47DDCcvuJM/Qo7HaNKWrKa5d+QEnHkQcnB6cJiciMX6lu5C q52cBGaYy3Xn8hBZAu3VbNGux4Nk4Mf1mHX3vr/2+QLAOf9z0JI9QD0ZpXzx 3r43/dSTwTEOBP4pekk9BZGKU7lvA23UU3DU7g2wvnhOXQpdGfNhWWMfdSmC x/eEaap7qafCnP/I7S5/Rj0VvPndrfsrrdTT0F3FHn7KtVBPg5OlZU3n9VBP R6VM6Krp6qaeDlN1c0SfoIu6DNU5y4kRvZ3UZVBM/mJEHTZTl8N75JbtJL+D uhwtJdBbZ9uo70RNkOncpwGT5C8cz+ho "]]}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {}, {GrayLevel[0], PointSize[0.016666666666666666`], Thickness[Large], LineBox[CompressedData[" 1:eJw1yXtIEwAQx/E1EoQKIldISjUVM1u6Weaq6X7TbRqtsQ3EtCiplGpp/ZH0 cvnIZTFfPRR0KbGMmbIYWQtrWhGjUkZMbRgzZQ5rS1bBErNRq/A8OI7PfdmH T6mKmAwGI+Xf/r8L8104w1y49MBlVXHod+gbORyFveEl3PlFr0TyxcjoUfOi WQjCEeHzfCVHorlAwf3V4CdHIyG2Q/N2eIa8Acy9WzjnnD5yDFZ8uZnOs34m xyHwx7Y6q2OaHA/b8q4wQaOHnID+jX26dXo3ORHHplTWF9cnyRzE+eVJd9PG yUkY2zfIr930gcxF3/3KE44iJ5kHu23VqM87Qk4Ba04fE/XAQd6KktiBfmXh O/I2SPbLTUdGhsipaLOnMj92vyFvB0/GvWoat5HTwDPXi0oPvSLzsYxb9qgs 8SV5B5TFo73P1APknVirFk8umX1K3gX+63aN2/OELEBerr7iPecxOR1So+V4 s+0hOQNj2vKm+U4zWYiRfPvR51oTGZgMtFSzud0LrgQs62uMCoGRugjNAcNs sKOTuggFxjNsttxAPRNTYbU/P+EO9UxIdF7F3MRt6lmoixpa47/XSj0L2rx2 9YXBFupidCkTgk7RLepiXKrdXFzOvEFdgipXVQNjaRN1CaZlmrNeTR11KSKG 66HLv0ZdChcTBlnjFerZiC91tHpZNdSzMf+j5/QedxX1HMxG6EKusQrqOeix Jh84ebCc+m5MZFTnWqTnhX8BLmzm+A== "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, {InsetBox[ TemplateBox[{StyleBox["\"g=1\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Times", FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.9, 0.36, 0.054], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[0.6000000000000001, 0.24, 0.036000000000000004`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.9, 0.36, 0.054]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.9, 0.36, 0.054]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.9, 0.36, 0.054], Editable -> False, Selectable -> False], ",", RowBox[{"CapForm", "[", "\"Butt\"", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "True", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", RowBox[{"FontFamily", "\[Rule]", "\"Times\""}], "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.6685862506673868, 0.6192854108811034}], ImageScaled[{-0.10000000000000009, 0.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"g=0.5\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{Small, Small}]], { LineBox[{{0, 10}, {40, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.15], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "True", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.6457068732681227, 0.5987189607291883}], ImageScaled[{-0.10000000000000009, -1.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{StyleBox["\"g=0.8\"", 13, StripOnInput -> False]}, "LineLegend", DisplayFunction->(StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.3], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), Editable->True, InterpretationFunction:>(RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.016666666666666666`", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { GrayLevel[0], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "GrayLevel[0]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["GrayLevelColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], GrayLevel[0], Editable -> False, Selectable -> False]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "True", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0.6965499341553765, 0.5987189607291883}], ImageScaled[{-0.10000000000000009, -0.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox[ StyleBox["\"Q(t)\"", 14, StripOnInput -> False], TraditionalForm], None}, { FormBox[ StyleBox["\"t (ps)\"", 14, StripOnInput -> False], TraditionalForm], None}}, FrameStyle->Automatic, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{{0}, {0}}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->{{43.6, 1.706122}, {41.2, 0.5}}, LabelStyle->{FontFamily -> "Times"}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel->FormBox[ RowBox[{"{", StyleBox[ "\"Survival probability vs time\"", 14, StripOnInput -> False], "}"}], TraditionalForm], PlotRange->{{-1.0416666666666667`, 51.041666666666664`}, {-0.02150537634408994, 1.053763440860407}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.9, 0.36, 0.054], CapForm["Butt"], AbsoluteThickness[1.6], Dashing[{0, Small}]], Line[CompressedData[" 1:eJw1yQ9IkwEQhvGhpBJIUhZqGzbbUpdorq3Nudzr1E1LTUzUcmrLaRsjc2qC TG2zEu1DyqQiLRgURUTrnyNKDWnQMimtsFWmsBWpEBkhaKRYsfPgOH73cA8f y6/0Y7FYwn/7//rmp0Ls77v0gCp/wLy0MkcOQpmw/KBxftUh8E64RpnmVYfi RuOYPVb2gxyGPwvB2nHJdzIbBn7p8PnHs+QtYL9smtT5T5OjwHnOjzVlfSXz cLn7d0613UPehqs9LZ1FnVPkGDCObJFX8oksgNhkvOXRvifHYV5UsDIT+I4c D2vwRHI7d4y8A5Fn3ON96hFyIjbVxBiyA1xkIU6FXdc8OOIk74Rr85f1gsIh sghda5WM29xPFsMd77d8P+IReRcG9QvuRcNDsgTeDj3vQ+49shTbT7PvmHS3 yUngtFhnHKybZBlGbM9efc67Rk5G79G3Qq3URpajNJzJyEzpJe+Gv4PbdMFz kZyC2h6trUzaTVagy73v6TD/HBmov5QrSdjK+GwBZs/K6tyv26inosPLrCmP O0k9Fa3FKZqISAt1JSzWgsYljpm6EkHW7hznaAP1NASGe3X9iXXU0xCtqXZ2 RtdQT8dAQuXynNBIPR0hjm997Okq6hmIcjAbkvZUUM9AaP2iHjhEXQWDoLhV V1FCXYWAK/J19o1F1NVo+zglUTXsp65GoYv3psqQRz0Tpl/HDzTf3Us9E+3y Saa2RE09C4Mnngy9cKQp/gIEctas "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Dashing[{Small, Small}]], Line[CompressedData[" 1:eJw1yVtMEgAUxnGgmfQkm7JZI4fpmmuuCyKUNz5FhUorNWbztoW2rGxoF61Z kg+VuHpgFlItMx+S1oUaKk7nIC0yy8RmCWiFOWOKl1Zabc1ZjcPZzs5+5x+u VGUfYjEYDMG//X99801Sz/JdeqChailqZWWBzEbzjURt0LLfHOSuPWFwjvsd AkHm6ePsGr9DUXAzX3rNMU/moU6hWbIvzpH50GivqEvcs+QN0Leyaofue8mR WJ3J9VQUzZA3wqz7HaBeM02Owlmjqv2uyUPehCdFTVnhxV/J0RAJ6w1y3hR5 M2zrExxjE5PkrcjRGQ/Utn8hb0NPYcNCiH6CLIBuFVM8pXGTY7CSkjFi4X4m C3GxoNGjjP1IjkWx0mjpqBgji6CKKzfUvXKSxQg91jJ6Kd5B3o7b/RnqfbYP 5B3oaYsOri19T47DDCcvuJM/Qo7HaNKWrKa5d+QEnHkQcnB6cJiciMX6lu5C q52cBGaYy3Xn8hBZAu3VbNGux4Nk4Mf1mHX3vr/2+QLAOf9z0JI9QD0ZpXzx 3r43/dSTwTEOBP4pekk9BZGKU7lvA23UU3DU7g2wvnhOXQpdGfNhWWMfdSmC x/eEaap7qafCnP/I7S5/Rj0VvPndrfsrrdTT0F3FHn7KtVBPg5OlZU3n9VBP R6VM6Krp6qaeDlN1c0SfoIu6DNU5y4kRvZ3UZVBM/mJEHTZTl8N75JbtJL+D uhwtJdBbZ9uo70RNkOncpwGT5C8cz+ho "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.016666666666666666`], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]], Line[CompressedData[" 1:eJw1yXtIEwAQx/E1EoQKIldISjUVM1u6Weaq6X7TbRqtsQ3EtCiplGpp/ZH0 cvnIZTFfPRR0KbGMmbIYWQtrWhGjUkZMbRgzZQ5rS1bBErNRq/A8OI7PfdmH T6mKmAwGI+Xf/r8L8104w1y49MBlVXHod+gbORyFveEl3PlFr0TyxcjoUfOi WQjCEeHzfCVHorlAwf3V4CdHIyG2Q/N2eIa8Acy9WzjnnD5yDFZ8uZnOs34m xyHwx7Y6q2OaHA/b8q4wQaOHnID+jX26dXo3ORHHplTWF9cnyRzE+eVJd9PG yUkY2zfIr930gcxF3/3KE44iJ5kHu23VqM87Qk4Ba04fE/XAQd6KktiBfmXh O/I2SPbLTUdGhsipaLOnMj92vyFvB0/GvWoat5HTwDPXi0oPvSLzsYxb9qgs 8SV5B5TFo73P1APknVirFk8umX1K3gX+63aN2/OELEBerr7iPecxOR1So+V4 s+0hOQNj2vKm+U4zWYiRfPvR51oTGZgMtFSzud0LrgQs62uMCoGRugjNAcNs sKOTuggFxjNsttxAPRNTYbU/P+EO9UxIdF7F3MRt6lmoixpa47/XSj0L2rx2 9YXBFupidCkTgk7RLepiXKrdXFzOvEFdgipXVQNjaRN1CaZlmrNeTR11KSKG 66HLv0ZdChcTBlnjFerZiC91tHpZNdSzMf+j5/QedxX1HMxG6EKusQrqOeix Jh84ebCc+m5MZFTnWqTnhX8BLmzm+A== "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 1.0000000000001823`}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{ Style["Q(t)", 14], None}, { Style["t (ps)", 14], None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {{0}, {0}}, GridLinesStyle -> Directive[ GrayLevel[0.5, 0.4]], LabelStyle -> {FontFamily -> "Times"}, Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotLabel -> { Style["Survival probability vs time", 14]}, PlotRange -> {{0., 50.}, {0, 1.0000000000001823`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ Unevaluated[ Unevaluated[ LineLegend[{ Directive[ PointSize[0.016666666666666666`], AbsoluteThickness[1.6], Thickness[Large], GrayLevel[0]]}, { Style["g=0.8", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {True}, LabelStyle -> {}, LegendLayout -> "Column"]]]], { Scaled[{0, 0.5}], {-0.10000000000000009`, -0.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Input", CellChangeTimes->{{3.789198762519689*^9, 3.789198776144515*^9}},ExpressionUUID->"84c88a07-b574-4832-837a-\ db80fa3478b2"], Cell["\<\ When sink is at 0, it matches with sink placed at 0 solution;\ \>", "Text", CellChangeTimes->{{3.788299674475545*^9, 3.788299714886037*^9}},ExpressionUUID->"faa9700d-14b5-4754-b96c-\ 08a4c9bc83cf"], Cell[BoxData[ GraphicsBox[{{{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJw9zVtI02EYx/F1MuuibGkahFbbnIetdEvLPOzn5pxOwVgFjUqXJokbrCjW gbKFgQVlMhJmaJS0ThcVDE0ijWktG4qVytwaaUsn/mvpLgwyowM+/154ePg8 34t3U7lRU7mYw+FI/s6/vfBmZBf2PzJ4V83I6ACj/pLFzrAOx6FzXx8kiELk CGRd1Ei5/x0JXkXYXI+KdQy8y9aMe+SsNyA1PkVQ9Zj1RkS9Euoao1lvRt3d 7CtXo1jz0XStxuQcZv+Ph7E77sZSJ+sEPOUxJtSxTkK67YB0TsNahNS2xERb OOstGCjRBtJM0+QUlJ8+ephv/0ZOxW5eeuuKviBZAu3W2UqHgLUU5uvo71R/ IW8DtzbArS5lyGmIuPxGx3CmyOmoyDG4f5ZNkrdj8k7NWkNcgLwDRb/2NCUb J8gZaLg3o7OEPpN3oofpvy8L+smZWB/yaX5MfCJnQWn0iB2eMXI2GkYdjfuq Rsk5QK92fnDIR5bhtbW9RfzRSwaKLQxz4ubIgs1ATnZQ6ItxU89Fxa1it6ts mHouJIoPK1X9g9TlEAla/La699TlqHbcnh0fektdgfmwLsmp0gHqCiwKdD0R 1vdRz4O2Qx9ZwndRz8OuJEnIvK6XuhKdGe2rM3VO6krs9U9HWQ++pJ4Pc7P8 bKy1m3o+DEH1kmPLHdRVqNdr7IrWF9RVUH+3J//WP6degLHoKfGI7Bn1AtQe eXeyqLCDeiHOPzwee8bVJvsDOirniQ== "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyVtI0wEUx/FVZsvLtNJRscJktDGG2ObUtmq/zd19ECRyUQ+ljB6ktPJh IJWgXZxFNzMMIrGMwXSjjBirFVZE6VJshRJj01kunTmRUPBSGZ6/HjgcPue7 q7Si2LKWxWJJlvb/XZ4p5QRdeuDVzN+liZHZCApn/6w6FY7YGu2q09BfYhFE V7wVbfzeVPmKeZh+oRTxFhhnoPXshqTv04wzweUJXOogYz5SnK47Mjfj3Qj9 lsxmVDMWgp1iOeTIZCxCiS54RdI+SRbjoLfZHOYyzsLTT32c+rJf5Gy0uAeH 9I0T5D3QRtJ6ctujZAlq9U9Mia5xshSa5FFrd8sYOQc+58gW28WfZBnqch6E cDxCzoUF/MS2vFFyHvTGjdXcpB/kfGzf1NN6a3iEvBd+0b1OlydMliO+rEl8 v3mYrMD5crNYWDNE3odww9FTdaEgeT/iOrjhzf4A+QAMHTfSHwa+kZXwdjqd hxcHyYDiTUPRuGxg2TVAXcx4xH7pK3UVjB+rrU0xP3UVAuccj6sqP1NXo7iX NeBj91NXQ353R/pCRR/1AnRlX0+4OuejXoAvlTPm265u6hqIDY/M+dc+UNdg vcK+znbzPXUtIrWTHJvnHXUt5hKialn8W+o6mFhFhbYzXdR1iCt8Wbpz/jV1 PerdwmMOk5e6HoITVdsW+zzUDUgem5daL7upG3Ca28ixn3xO3Yis8imp6sIz 5T951eif "]]}}, {}, {}, {{}, {}}, {{}, {}}}}, InsetBox[ TemplateBox[{ StyleBox["\"NInt[Psinka[x,t]]\"", StripOnInput -> False, FontSize -> 13]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{-0.3385507246376812, 0.6050549604289781}], ImageScaled[{-1.1, 2.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm], InsetBox[ TemplateBox[{ StyleBox["\"NInt[Psink0[x,t]]\"", StripOnInput -> False, FontSize -> 13]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{-0.36249275362318856, 0.7475866977550165}], ImageScaled[{-1.1, 2.6}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, 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->{{13.7, 1.3}, {13.935565, 0.5}}, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-1.0416666666666667`, 51.041666666666664`}, {-0.02377040709764108, 1.1647499477844128`}}, PlotRangeClipping->True, PlotRangePadding->Automatic, Ticks->{Automatic, Automatic}]], "Input", CellChangeTimes->{{3.788300719187284*^9, 3.7883008088115664`*^9}},ExpressionUUID->"e76cc698-105b-45bd-9158-\ b711390f2097"], Cell["\<\ Following similar calculation strategies as done in the absolute potential \ version notebook. Solution using our transformations for the problem without the sink by random \ variable transformation\ \>", "Text", CellChangeTimes->{{3.785632867098963*^9, 3.785632878999701*^9}, { 3.785632988017473*^9, 3.785632993857538*^9}, 3.785635495962502*^9, { 3.785636651011862*^9, 3.785636656681142*^9}, {3.785639076916943*^9, 3.785639084736781*^9}, {3.787980107710511*^9, 3.78798014162784*^9}},ExpressionUUID->"c6415237-ca4e-45cf-b694-\ 40f27f753c5e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"b", "-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "-", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"x", "-", "b"}], "]"}], RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}]}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "Input", CellChangeTimes->{{3.789174999140504*^9, 3.789175057052575*^9}, 3.789176767888048*^9, {3.789176830099431*^9, 3.7891769075629063`*^9}, { 3.789177020569536*^9, 3.789177025861265*^9}, {3.789177113975524*^9, 3.789177119418764*^9}, {3.789177165591827*^9, 3.789177170294085*^9}, { 3.795943970115335*^9, 3.7959440024225073`*^9}},ExpressionUUID->"af9508d5-e587-40f3-b155-\ 6e42c173505e"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAADAAAAACAAAAY6+Q7///B8DGXiHf//8PQBT7GiY7 /AfAKPY1THb4D0DERqVcdvgHwIiNSrns8A9AJt65yezwB8BMvHOT2eEPQOoM 46PZ4QfA1BnGR7PDD0BwajVYs8MHwODUarBmhw9AfiXawGaHB8D8SrSBzQ4P QJqbI5LNDgfANDdHJJsdDkCf34hvUQkGwD6/Ed+iEgxAFtBTTykVBcAsoKee UioKQMhQU0TLJQTAkKGmiJZLCEBIKSV0IyIDwJBSSuhGRAZAOq5cps8vAsB0 XLlMn18EQPqKZhMyKQHA9BXNJmRSAkD196SVXicAwOrvSSu9TgBAxCKSNL5t /r+IRSRpfNv8PzsFf7MrZPy/dgr+ZlfI+D+UQDc3QX36vyiBbm6C+vQ/Y5xY 5eqf+L/GOLHK1T/xP8+nHgkBmva/PJ96JARo6j8eDLAxv7b0v3gwwMb82uI/ CiDmz+mq8r9QADF/TlfVP9ycCMvgovK/4OZEWAYX1T+tGSvG15ryv2jNWDG+ 1tQ/UBNwvMWK8r+AmoDjLVbUP5YG+qihavK/sDTQRw1V0z8i7Q2CWSryvxBp bxDMUtE/O7o1NMmp8b+wo1tDk5zKPww3WC/AofG/wHCD9QIcyj/es3oqt5nx v+A9q6dym8k/gq2/IKWJ8b8g2PoLUprIP8igSQ2BafG/gAya1BCYxj9Uh13m OCnxv0B12GWOk8I/bFSFmKio8L+AjaoQExW1P6H+ujMqofC/INRfd0YltD/W qPDOq5nwv8AaFd55NbM/QP1bBa+K8L8AqH+r4FWxPxSmMnK1bPC/AIWpjFwt qz9JUGgNN2Xwv0ASFFrDTak/fvqdqLhd8L+An34nKm6nP+hOCd+7TvC/ALpT wveuoz+9999LwjDwv4De++8lYZg/8qEV50Mp8L8A+dCK86GUPydMS4LFIfC/ gBOmJcHikD9c9oAdRxrwvwBc9oAdR4o/kaC2uMgS8L8AkaC2uMiCP8ZK7FNK C/C/AIyV2KeUdj+isT401gfwvwCIxvrQWG8/DRKD6g== "]], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAAvJyCl1Pw778AiMb60FhvP6A78bek y++/ADBiB6Qtij905Mckq63vvwDjBs42lZQ/HDZ1/rdx77+APFkxAMmhP4aK 4DS7Yu+/QK/uY5mooz/w3ktrvlPvvwAihJYyiKU/xIci2MQ177+AB6/7ZEep P23Zz7HR+e6/MGkC4+RisD++fCpl64HuvyA0WK1J4bc/YMPfyx6S7b8A5QGh CW/DP0c9+GXdge2/yBU+0BTxwz8utxAAnHHtv5BGev8fc8Q//KpBNBlR7b8g qPJdNnfFP5iSo5wTEO2/QGvjGmN/xz/QYWdtCI7sv4DxxJS8j8s/QQDvDvKJ 67/8/kPEN9jRPyI9/lHFgem/eAsHuOr42T+paLPhu7blv64umTyIkuQ/avOx XIua4b8sGZxG6crsPy5+BVkGI9u/6UB903xu8j8TedQLlpvTv3bDFfo0MvY/ 12RsKq/jxr/K5mQ1FEf6P77dUDe2psa/kMgrclJW+j+mVjVEvWnGv1aq8q6Q Zfo/dEj+Xcvvxb/jbYAoDYT6PxAskJHn+8S//PSbGwbB+j9J87P4HxTDvy4D 0wH4Ovs/dQP3jSGJvr+RH0HO2y78P0T1v6cvD76/WAEICxo+/D8S54jBPZW9 vx7jzkdYTfw/rsoa9VmhvL+qplzB1Gv8P+aRPlySubq/wy14tM2o/D9YIIYq A+q2v/U7r5q/Iv0/d3oqjsmVrr9ZWB1noxb+P07u8Navpq2/G/GQApUl/j8m Yrcflresv96JBJ6GNP4/1UlEsWLZqr9ju+vUaVL+PzMZXtT7HKe/bR66QjCO /j/ebyM1XEifv4HkVh69Bf8/jVewxihqnb9Efcq5rhT/Pzw/PVj1i5u/BhY+ VaAj/z+aDld7js+Xv4tHJYyDQf8/Vq2KwcBWkL+VqvP5SX3/PwoqL6Ya8Yy/ WENnlTuM/z9o+UjJszSJvxrc2jAtm/8/I5h8D+a7gb+fDcJnELn/PwLPLGX+ /nu/YqY1AwLI/z+9bWCrMIZ0vyU/qZ7z1v8/8Rgo48Uaar/n1xw65eX/P9aH xvrQWF+/vJyCl1Pw/z+ax6wu "]], LineBox[CompressedData[" 1:eJwB4QMe/CFib1JlAgAAAD0AAAACAAAA1ofG+tBYXz+8nIKXU/D/P93Zaa+h Tng/TCyhvGLP/z8iOzZpb8d/P4qTLSFxwP8/M06BkR6ggz/H+rmFf7H/P3ev TUvsGIs/QsnSTpyT/z8a4DMoU9WOP4AwX7OqhP8/XgiNAt1IkT+9l+sXuXX/ PwA5c99DBZU/OGYE4dVX/z9Emj+ZEX6cPy4DNnMPHP8/qo84QKQwrT8Fd/y7 9Sz+PwTEn7wHNK4/wAM2hL8c/j9f+AY5azevP3qQb0yJDP4/irDqGBmfsD/v qeLcHOz9Pz4ZuRHgpbI/2NzI/UOr/T+m6lUDbrO2P6tClT+SKf0/eI2P5onO vj9RDi7DLib8P45pgdZggsc/nKVfymcf+j8N9Ew7rFHTP/qFWeIpV/Y/4HTG NHaE2z+QxZzlxD3yP+65TcJ3yOE/JIxkexBv7D+mh6FgZInlP7TwvD437eQ/ JfarE3ib6T9sJ1CxH5LZP96yH707aO0/EGkCFyK+xD9Vl+CI65DwP6DqEhxx HbK/nqWMvUyW8j/wLGXsZbLUvwRbbe0FefQ/EGy1tRfk4b/OYKmnUoT2PziD pZ5KEeq/tQ0aXfds+D9qGzS67tnwvyaaIegHTPo/TDRD0A+Y9L/6doT9q1P8 P/TtCPtXp/i/6/obDqg4/j/W9TccUHH8v6Bnh9QbIwBAQM8OqTdGAMCQQcyM GSUBQCCDmBkzSgLADm+rQsMVAkAc3laFhisEwL5EuL22GgNAfIlwe201BsD9 bV82Vg4EQPrbvmysHAjAAQfSmSv9BEACDqQzV/oJwDZIcsJKAAZAbJDkhJUA DMD63KzoFfIGQPS5WdEr5A3ARGzIkE32BkCI2JAhm+wNwI374ziF+gZAGvfH cQr1DcAgGhuJ9AIHQEA0NhLpBQ7AR1eJKdMTB0COrhJTpicOwJTRZWqQNQdA KKPL1CBrDsAuxh7sCnkHQFyMPdgV8g7AeFU6lEJ9B0DwqnQohfoOwMHkVTx6 gQdAgsmrePQCD8BUA42M6YkHQKgGGhnTEw/Ae0D7LMiaB0D2gPZZkDUPwMi6 122FvAdAkHWv2wp5D8ASSvMVvcAHQCSU5it6gQ/AXNkOvvTEB0C4sh186YkP wO/3RQ5kzQdA3u+LHMiaD8AWNbSuQt4HQCxqaF2FvA/AYMTPVnriB0DAiJ+t 9MQPwKlT6/6x5gdAUqfW/WPND8A8ciJPIe8HQHjkRJ5C3g/AhgE+91jzB0AM A3zuseYPwNCQWZ+Q9wdAoCGzPiHvD8AaIHVHyPsHQDRA6o6Q9w/AY6+Q7/// B0DGXiHf//8PwK9T1t0= "]]}, Annotation[#, "Charting`Private`Tag$4551#1"]& ], {}}, {{}, {}, {}}}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-3, 3}, {-3.999999755102041, 3.999999755102041}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.7891750214760647`*^9, {3.7891750537970753`*^9, 3.789175058189021*^9}, 3.789176768982643*^9, {3.7891768359343767`*^9, 3.789176908689807*^9}, { 3.789177022241083*^9, 3.789177027104615*^9}, {3.7891771151990337`*^9, 3.789177120447523*^9}, 3.789177170996489*^9, {3.795943971118466*^9, 3.795944003599218*^9}},ExpressionUUID->"558112ab-e56d-45e7-bc5e-\ 3b80a05a8a49"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"FX", "[", RowBox[{"x1_", ",", "t_"}], "]"}], "=", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], ",", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "x1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", "x0", "]"}], RowBox[{"RealAbs", "[", RowBox[{ RowBox[{"-", "x0"}], "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x0"}], "]"}], RowBox[{"(", RowBox[{"a", "+", "x0"}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{"D", "[", RowBox[{ RowBox[{"FX", "[", RowBox[{"x1", ",", "t"}], "]"}], ",", "x1"}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", RowBox[{"-", "a"}]}], "&&", RowBox[{"x", "\[NotEqual]", "0"}], "&&", RowBox[{"x", "<", RowBox[{"-", "a"}]}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealSign", "[", RowBox[{"x", "+", "a"}], "]"}]}], "-", RowBox[{"UnitStep", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", RowBox[{"-", "a"}]}], "&&", RowBox[{ RowBox[{"-", "a"}], "<", "x", "<", "a"}], "&&", RowBox[{"x", "\[NotEqual]", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealSign", "[", RowBox[{"x", "+", "a"}], "]"}]}], "-", RowBox[{"UnitStep", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", RowBox[{"-", "a"}]}], "&&", RowBox[{"x", ">", "a"}], "&&", RowBox[{"x", "\[NotEqual]", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealSign", "[", RowBox[{"x", "+", "a"}], "]"}]}], "-", RowBox[{"UnitStep", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pmaplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}]}], "\[Rule]", RowBox[{"x", "+", "a"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pmaminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", "x"}], "-", "a"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P0plus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}]}], "\[Rule]", " ", RowBox[{"a", "-", "x"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P0minus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}]}], "\[Rule]", RowBox[{"x", "+", "a"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"P", "[", RowBox[{ RowBox[{"-", "x0"}], ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pmaplus", "[", RowBox[{ RowBox[{"-", "a"}], ",", "t"}], "]"}], "-", RowBox[{"Pmaminus", "[", RowBox[{ RowBox[{"-", "a"}], ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pmaplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pmaplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pmaminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pmaminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{"d", " ", "g", " ", RowBox[{"Pmaplus", "[", RowBox[{ RowBox[{"-", "a"}], ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", "a"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], ";"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P0plus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"P0minus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P0plus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"P0plus", "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P0minus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"P0minus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"P0plus", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}], "Input", CellChangeTimes->{{3.785632757982068*^9, 3.785632855284998*^9}, { 3.7856330792535267`*^9, 3.785633085434228*^9}, {3.7856331347908697`*^9, 3.7856331504826317`*^9}, {3.785633204452002*^9, 3.7856332953688793`*^9}, { 3.78563336495077*^9, 3.7856334902588453`*^9}, {3.7856335623034143`*^9, 3.785633690628846*^9}, {3.785633743174988*^9, 3.7856337444322147`*^9}, { 3.785633792708621*^9, 3.785633802287671*^9}, {3.785635311234034*^9, 3.785635446060808*^9}, {3.785636435039269*^9, 3.785636507646427*^9}, 3.785637234802437*^9, 3.7856373032748327`*^9, {3.785637343688703*^9, 3.785637387754346*^9}, {3.785637477677368*^9, 3.78563750437017*^9}, 3.785637623810625*^9, {3.785637757867784*^9, 3.785637758448173*^9}, { 3.7856377888022003`*^9, 3.785637789403664*^9}, {3.7857203172117434`*^9, 3.785720349835061*^9}, {3.7857205192246437`*^9, 3.785720562153432*^9}, { 3.785721347030547*^9, 3.785721375169553*^9}, 3.78573194730578*^9, 3.785732523829122*^9, {3.785732856866143*^9, 3.7857328928497868`*^9}, 3.785732942336735*^9, 3.785733020830922*^9, {3.7857331344782476`*^9, 3.785733139347808*^9}, {3.785733179144266*^9, 3.7857331907281857`*^9}, { 3.785733260298479*^9, 3.785733272635096*^9}, 3.785733958390733*^9, { 3.785734033066287*^9, 3.785734070749017*^9}, {3.7857341034149942`*^9, 3.785734158429043*^9}, {3.785734440598669*^9, 3.785734444565524*^9}, { 3.7857345931629066`*^9, 3.785734600263754*^9}, {3.785735771191293*^9, 3.785735781875618*^9}, {3.785736299210127*^9, 3.785736341340355*^9}, { 3.786235938715856*^9, 3.786235945889971*^9}, {3.786237188496251*^9, 3.78623718981398*^9}, {3.786237220821209*^9, 3.786237222475181*^9}, { 3.78642844035425*^9, 3.786428463901531*^9}, {3.78658349167275*^9, 3.7865835278068666`*^9}, {3.7865836843905907`*^9, 3.786583736086965*^9}, { 3.786583811331793*^9, 3.7865838444720497`*^9}, {3.7877267026764603`*^9, 3.787726722515829*^9}, {3.787726756636897*^9, 3.787726914396492*^9}, { 3.787726957188325*^9, 3.787726988447022*^9}, {3.787727030358828*^9, 3.787727146922163*^9}, {3.787980688717911*^9, 3.787980704921371*^9}, { 3.7879807605185413`*^9, 3.78798084565131*^9}, {3.7879811185654783`*^9, 3.787981193907124*^9}, {3.7879812590199623`*^9, 3.78798130121513*^9}, { 3.7879813821689787`*^9, 3.787981618805407*^9}, {3.7879816549238234`*^9, 3.78798181713907*^9}, 3.787981851515251*^9, {3.787982147073069*^9, 3.7879822340672493`*^9}, {3.7879822809968576`*^9, 3.787982282144107*^9}, { 3.7879823204480333`*^9, 3.787982321330347*^9}, 3.787996863192012*^9, { 3.7891761038920097`*^9, 3.789176123708023*^9}},ExpressionUUID->"f277dcc7-d01e-4cd5-9848-\ e61779f7f382"], Cell[BoxData["\<\"Analytical check for the total solution\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.789176214359264*^9},ExpressionUUID->"ee38a7b4-d76a-48a7-95ba-\ 01a2c333332f"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176223300702*^9},ExpressionUUID->"ba2faa8a-07bf-4783-ae93-\ 4014628344d3"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.7891762250351753`*^9},ExpressionUUID->"092e36a1-ce86-464a-8f73-\ 2710391d2172"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176234694983*^9},ExpressionUUID->"0e214253-ebba-4668-bd21-\ db27e6cad505"], Cell[BoxData["\<\"Intial condition check\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.7891762347451878`*^9},ExpressionUUID->"d759a41b-7015-4e4e-bb1d-\ 813e509e08f8"], Cell[BoxData[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]]], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176234751251*^9},ExpressionUUID->"914cc1d7-a975-432e-9512-\ baf8c6a6f4de"], Cell[BoxData["\<\"Continuity check\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.789176234756571*^9},ExpressionUUID->"23f712e4-49ad-409d-b945-\ 81badcc3fbb1"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176234764468*^9},ExpressionUUID->"41dff9d5-ebb9-43bb-835e-\ 5d585d96c3d6"], Cell[BoxData["\<\"Boundary check of Mr. R Saravanan which leads to \ differential equation at x=-a\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.789176234769141*^9},ExpressionUUID->"f78b996e-e9eb-4147-bad1-\ 30f2f13e706d"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176234773307*^9},ExpressionUUID->"e1fe166d-88dd-461c-bdc0-\ cc73c088b559"], Cell[BoxData["\<\"Continuity check\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.789176234778166*^9},ExpressionUUID->"4e1c1f20-3830-41b4-8736-\ a1200063df81"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.789176234781931*^9},ExpressionUUID->"257742b4-0117-4616-a505-\ d713cf5af649"], Cell[BoxData["\<\"Boundary check of Mr. R Saravanan which leads to \ differential equation at x=0\"\>"], "Print", CellChangeTimes->{ 3.7877269209172573`*^9, 3.7877269916104393`*^9, {3.7877271199393997`*^9, 3.787727149408683*^9}, {3.787980823646344*^9, 3.787980853404327*^9}, 3.787981575365778*^9, 3.787981620033307*^9, {3.787981672566867*^9, 3.787981820452981*^9}, 3.7879822353717213`*^9, 3.787982284851347*^9, 3.7879823227451057`*^9, 3.7879968288040457`*^9, 3.789176234786663*^9},ExpressionUUID->"22a4d171-9e22-4eaa-b5a7-\ aa48dfb51127"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7877269256644897`*^9, 3.7877269959327803`*^9, {3.787727121089226*^9, 3.787727149975643*^9}, {3.787980825729855*^9, 3.787980855358225*^9}, 3.787981577243904*^9, 3.787981620043919*^9, {3.787981672570814*^9, 3.7879818219631844`*^9}, 3.787982236707082*^9, 3.787982286212554*^9, 3.787982324024899*^9, 3.787996830953717*^9, 3.7891762347908373`*^9},ExpressionUUID->"b3ad4712-9ee4-4d52-affc-\ 930f17725b75"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", "x0", "]"}], RowBox[{"RealAbs", "[", RowBox[{ RowBox[{"-", "x0"}], "+", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x0"}], "]"}], RowBox[{"(", RowBox[{"a", "+", "x0"}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "30"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "100"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], RowBox[{"(*", RowBox[{"D", "[", RowBox[{ RowBox[{"FX", "[", RowBox[{"x1", ",", "t"}], "]"}], ",", "x1"}], "]"}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.788830570015486*^9, 3.7888306601094093`*^9}, { 3.78883419666938*^9, 3.788834215497424*^9}},ExpressionUUID->"f65365b7-84f6-4ce2-8872-\ fa8022884c1b"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c81f8Xx+2s7HHtca17cUlGuJ/Pm6xoSRmVkJGSzFJZSVa2BhJlhUhf CglxjETJTskWSpRI9vj5/fV+nMd5nXNez/f7n/OWcvS0cKGjoaGhp6eh+f8Z 9P3wwvb2XmjhfiE7fyJFcypA4N/Axl7Ijoi8PD6boXmEa2T51epeKBT8eN9L JUdTUttr0/PvXrhql0d7+dZ/mg3Rd5hHp/bC5fU1jI3yVpOZ8lkcPu6F+sSF b2yDC5r3LjscDHm4F5wP6LWf0jmkVUTrm0ujtRcaO3cn1AuuajG6mKgJnVGD qwZG1zgsbLR5v7x1z07aAz+EBu6JpIbqWDSmOZHeq4KR4WWH6anbugFzmHvi NxUQytK7ZsQdRU0/q/VDb0gFRsSf5P1biqHW9Kg6z/epwHZmz+U+LJG69Ypo a/FeBT54uxt8m7hPDQ1hOcRXqgIMGk1OjN051JwFupamQhXoZK9st1rNozY5 bxhcyVWBeM2lQJbHhVQm0zndvhQV6C271qswUEqVr/7xKiJJBbquT9ozPyuj HlAe36sVowLhW27MVbOvqNHcnxRTg1VgfbakmUQH1LZ/74ir3jt6g02XJy5v qRxfq0ROuajAnRmbhPuJbVSVQ2UprPYqsCo8rZ8R3Ek1ry3mrbZRARGpUpIS Ww/VWzU/4aKFCvj5lXcPrX2i3snOZBM9pAL3luwuBNn2U1/ypUW2GakAfx8T 0OgPUXsj7tIHIRUAVqa1maFR6r+V2BvK2irg9UudmOv9jSpwMWJ9SE0FDNrk +i+cn6JqDd24Gq+kAhdmUkI+d05TbY5e/4vLqcDv1EXF3Opf1Ov1Pp5zEirQ YkcnsSI2T03b6z7zWEgF0lisrNtf/qVWP3FxNedVAeQQvOdz0RJ1UND+G81u FWj1ts+w51ujbt62sS9lUoGY12et6jY3qeIbxwbO0qjAfNEFumMYLYY8Dlrz rFEg+3iNqnInPeYwatjT8JcC5JK/NpmNTNhNC/yo7y8KSO0K5EqQZcWym7Q+ EL9T4Hh2wIkeRg6sUXOPSe8oBcTCbozo6XJjEwXkxrCvFAgUKmERbebFGEVk kEYvBR5YhVF0/xPA5OLEqic/UmCph4+OjkEYM9kW0Ep+RwHii3fqpT1i2Hlv rpfG9RRIXvV/2SMohUV9Y1FZrqJAVXuWw6f7ROypJX1RfhkFbvkHKYh7ymHv 323I2TynwM0vzJoBJSTsp/ZSNnMBBeqS85oCzitjbM/mxF9nUaCZ8qK1r0cV UxKfTrvwkALnu6RyvPT2YocTxwWE7+/425M6WM2giXnQDd55H0+Bk37mZYNK 2ljC5U8cAVEUeHyVNT29mYqVTLVHK4ZSoCW/k7bLSw/rsmlhGgzY4adyFH9+ tx9beF8fGnuFAvF10wJXfIwwXqx6i+pJgadztpX8gQcw9f/K/H+dp4D12Qm6 4vmDmKXU86UMRwo8u8Tt9WPsKOZ3N9/niC0FVP2Fb5dRLLAUxqzfW5YUEJG3 0AmtPoFVXk1z++8oBaAsqJ8p2xqTdvZ+8uUABf6xegG7zmkszvzAKO1+CqTq pAWLnbbHVqgSIoq6FNh6Ib6ayu6IOZKWLE+oUyA/wCIy7q0z1sb/MTFImQKn 2HhCfSddMU263A95chRoEpFhJwdcxDJ/+zN1SlCg8tS9oKcpnhjbwDH9VQIF anadLZCT98H83ikESvNQwJj25Prdr5ex0ZfbFQfZKFAmavq7ZOEqZpbZN3+Z gQLXYjaiu4MCsLLYYqVHm8oQsMmafzD2BiZ+Pcz13ZIycH5L+WdDCMVuu5zO /jOnDBf3ba7wQxi2eExtSGhaGbqf5fc4t0ZidjgLwWBcGUIcg0QW9WOwFvKo hfuAMmQHT4Qc007A1ARfxd3vVYbt6sKOe6NJWDp9fEvtR2X4PYwxt/jdw3b9 cab/0awML3UyXArcUjCfQV2cG5TBd5B9Q7Y1DRts4bmu81oZZmYPNP3OfIQZ l0+/dHqhDMj+xc0TN7Owkiz4HVukDGzczIlpNLmYcHwKqSJXGWr9X35f/5KH hft7OI9kKIP1YFZHskAh9uec0WPmFGW4FRt1U+ZdMXbquOjXPYnKkKFSwCq4 WYI1ob98p28rwzEvPYZch5cYRen90bBQZRjrYkohEyqwVEJWdHHAzvz+k/9+ UF5j9IzX3vZdVoaBSUO7e6U1mMf8ERoaD2XQ3vQxM7QG7MuQrC7JVRk+B0/c 20prwPa/37hi4aAMXBo2OZLKb7FnFT0lASeVYcmwxGFbsAUTyCmcybVQhsVm hYL9rh+wmwk35doPKgNYXnbjVOjAZgNszi4bKsMalujzsKwLszqvki6JKwOJ 27++XKwXgxNMn021lEGf15mp9ksfRtYf4vZVVQZPh+sLZn/6sXvKZYfSScpw 4fNynInXELYtFBP5VloZdHbPmHO8HMXcmBwbfosow7172zc8/4xjvQv7NgX5 lUG0Mudh/bVJDB/h3KfPoQybJ1ryYyx/YAUfpnzcdikDY1hNxs2kGYyn8k3x XRpl2FD/YF+wbw4Lyr33o2ZVCV72LfzAn81jPxIvEqcWlMCXx7+Zh2YRswja b8c5qwSGfR7WhzOXsJoLQg/2TSrBFcnbRb7Jq5ic1Z+es8NK0P8N09rzawNL 3P+OI+azEnCG3hfGbGjwdcoj07JOJTjydGbhix8dfk7kSthQqxL8WLWK/dnP gHfuOlTH1KgEGbmcVb23d+E6i9JrKjVKQBfvu72SwIrnjq6qnyxXAtH3gzW9 S7txjo+dnqHPleD52ZZWrkku/Prr/MKi/B29SndRIBsvPvEkeLI3UwluXixf 3rrCjx+5Yym59UAJCuVbmxqUCLi/GqepyV0lkOMkzH0hieB53S3eibFK4Hac u7Y3VBzv9glN6w9XAnNewVx1KSl8i4faKH1DCTZS+hZxHSJOfvlv5uI1JXCt uPVF/q4sbnX8P75ybyWYulMkfXCvAh769zy25aYE951DjvZJK+LFd6XPmTgr wbJuxuqwGwX/sncwPvGMEvh8ZOx4w7oHZ+i9/6rfSgl07YiX5wT24qqXj45K myuB0J38cR0HDdyWj4XF3VQJ+Bmt9cN+aeFRZQ17yvcrQfQ5s2zPZh287ETg qS1dJZB1juO58hfDRxc1bploKIFZ/k3L9Vo9nP3+XFEiRQn08vIuKFXux/dp PO3tl1cCnfKJKxwzhrjzJ8dNaSklqKHFDm2fMcETr4jKuQvv8PqO/mMhmOE1 /H1HynmVoPpiyakVycP4j/KEq1vsSkBKYDd/qWeO81mZZpowKcFw7MBedykL XG+JrjVxWxF4vQbYf2idwC8m18z3ryjCZ95jGou3rfBkTT9h4oIiOKarKKyI ncQb+lQM3GcU4ehbww6G9dP4b7/pi+UTipDlFmowqWCPCwvm3NsaUoSGUdVE gs1Z3PiV7RuTz4pgcHC3iephJ9zHWmAqsVMRHgg+55u/5oI/Wu7g+NqqCC0T qteFxlzx9ym3tYiNilD612LfRowbvqRl4OBeowj3P3M9ig+5hEt/2YgqL1cE KR2MmerkhR+5VlG69VwRrmxmh3Pv9cH9CV5fTQoUQZF/pctV/TKeV0miT8pS hHv53QPH3f3wbptvil/TFMFmzcnXbfQavrWSfoJ4b4fnyMn9bckBOOmBVZB7 nCJ4MOd1qyUH4ye0ufLKIxTBa9/hM9sLIXhIf2v71g1F0Jih3CK+C8WfXb+1 bHJdEWhWT24sfgjDvwhhkkk+iiDz3efxUaZInKFq6cDXi4oQuT7wNTzgNq56 qsSb6KIIdRzNnhf3xOK2axfS3O0U4U0Xj+BZSgIelUZsLLdWhJ+k/Ukl1CS8 TGdoZstcEaw4GFOYdt/FR78m8x0wU4Q58b0Bduz3cfYAcyzJYIe3ekHDBKXg +0RYz32lKkL1Vm1sdeED3Lm6MZ6oqQjd20pBiifS8cTTQa/cVRSBn9rhHqH/ GK9Z1xwtV9jxG3FbIIeahf94+Id5W0oRPs74e2O0OTgftXDPARFFOHAI5i8u 5OJ6g06nkvgUQfNc7AcHvnzcPVDs1tfdiiBy1lf3+cWneKro5yLiLkX4L+FC +pHNIrypJrHXnWbnPSNWJIrbn+N/bM02y1fJcEVaJu3zQgkuukkvt71AhkZ7 RQv73Be4ScabIwdmyTB8vA653SjD/8QNbjBMkWHoQJylqVMFnha8Xlg/Qoax U5Xou3clbuApfDK4nwxbCkhg6HkVPmuvvUu3hwzFmsOmu8Xf4MnmNuXLbWTY KMkUfdpYhyP9q05lzWTgSfHGRCzq8TvS5XXKVTt6W4oz4/0mnMrbe+nnSzKU 0+RkS1xqxifp/4rkF5Phgpx5Uv6lFjx+kfu9Uz4ZarQdxL8/eI/vm1S9JplF Bq0pFTj/rw0f/3RUbiiNDPb/lXJt3OrAY5o9eh/cI4Ns559TQzJd+HD+M1Xe KDKkiR/cf9K4F49K/TDccXOH301sbZSlD99z+2dsbAAZcg/+fPN14TP+9TqL rukVMiwH39XQYviKh7kpTDN6kiHIK9NPXH8Qp5w2SWk4Twb1fyof/j4bxj8f PGd0w5EMTxsOfX32ZBQnK+dmrViSQXWX5/2BlG94r1jj0fKjZIisulGuiCbx II7xTW9TMhxgvV7vzfwdl9umeUYxIMPm0YJMtPQD75yTODVDJcMpAe//LNlm cP9RnLlAkwyvxQMbnpj9woldZyqcVckw8euxldWrOdzvxUOeYSIZjBxtTpjc XcAlc6ogTYwM1Mup64aERbz1br+HtSAZuBOzLNyq/+E+YSuifNxkKNX5eHM6 eBkXvSL4oZOVDPS8t4qEXVbxZhfN63EMZIi4P6Uf7LWOe1pZypttkcC1cSiw LmcTb9C6e6txngRUucj8CmNa5K7wYk/IDAmu6oaJcT6hQ/xCXSPUSRL8EE0p zhBjQLUsf+JWh0lQem0CtF4wovNrHNSKLyTo7vpJ1+W8C/HMKP/06SYBxYOd GKTFgqoHDqWqtJFgwurhM28lNsTxJnqxoI4EAXIjpLoITlRZ/DTb5TUJ5paT 1R6vcKGzj1rMpV+S4F1anL+iIQ9iTfi+NfyMBMssE5a38nlR2Q2m4od5JBhL cCBhMvzIzkv2tE0mCUQDhcSYawTQrrOGLPxpO3ESp2+xFwGd2h/qEh9HApq+ CQOtfaKIYW8W78FIEjAAFGFHxVExEep33STBahDDqxdGksiKb8SzyZ8E6p+e H4i6KoVoGLfEbl4mgTNzgJljrTQq/CfahnmQwP++rETyzt/l+JSu/5rrzn0c maiJTZRFee+u9/meJgHT4rXFj+8U0AM1P4OnJ0jg/lXQ6W8ZGcVm+JQMHyYB G90qz+e3SugGs6cYnwkJvC8sT/VvUJCP78VoUz0S+NqwReg9V0Uuw67Lwdok SGB9Ol39dw+yMXV2LlMjwUrURvsB870IkziDS8iS4CMhlbvghCZSjT5ZdEKc BB1nBmSrt7WQ9D9LQrQgCSbZi046tWgjfgeL8DouEvyipRoEl+gi5g9HFhZZ SOCjmsjNUIWhdY2D9mR6Eny/+PQd83eEfmeatNlvKMCkxTYMi+qjXj+9vPe/ FUDY74XH+2cG6N0YlZfmhwJUIa70AX4jVHVIO0RjTAHaret/v002RsWvNH65 fVUAMu/i/KLqAZQprXYqs0cBZFdo16YmTdHdOMq7T20KcKBo6afyq4MoYoWs ztasAAOCDAxeeYfRxXYih1+lAjAdLH62uGCO7LQlA4pKd/TFY9K/RC2Qea7o j9FCBeAwY3udcfI4MuAUshTIVYBg764qnsITSNOfv+FghgJERYupu3BaIdIk t8rNZAUY8ZA7Vx1tjUTNOdIrEhTgTZQBbip2EtHJ7fKTClWAnG76d9Jxtuhf Iv03qwAFuH7Xe0H8kh36sb59NPayAuT7Zdh8VXdA7V0rpOVzCnBpIuPJGXtH VE/9l6zkoAC5y3pZlDgnVJY/T+94UgEuTJyhDW5zRg+Cfg61HVSAh/VYOvmW K4r9MWVGZ6QAd8A//fzGeRR8/NsrLVwB6LPqWb5HuyFn0mBStqoCjB5tFOyZ uYSs733Z+kxSACnt1ihv8ERm270XdxN3eB+4opOfvZDqp49G1/gVwO/mLbL/ bx9E1Hv/ophjJ9YxrqvlvIwEipolvu1SgIWOY/xn9K6gjZC61cNr8iBofO2U Z/dVNDdTfe7WX3noDAwOstK4jsatKnsqZ+XhZOfef0GF/uidUmkxcUQefj7Q 3lfZHoSqUoqFT36Rhzi5y2ueN26gZ3SFkfFd8jB93YqjPzsE3fmSfXa1UR72 sdax7Y0JReEGj9spb+QhemgBs0m6ha49f6jrXCEPH1tt9ojkhiG7sHv8HQXy MDBc3OM3H4Ha0dKua9k7/qr3qxcKRiG0br0mmb4zf/Lx6wyz20jSR2TEJ0Ee mOrkh2O+xKBE5aAukds7/V5VDXqqxyHa6eHGplB5COqsKJl6FI/G7bMLBPzk YU7dAWo6E5GFCMPDOk95eHXHDg5kJKHGPpe48xfk4ZiKi7Swzx2Ue5jkU2Ur D9i6BP19jXvonG6Jrp2BPHzJKZ47pZiK+pa4KbsweZDrcBy7rv8AmbzwlSzR lIch94NjTI5pSIGkxUhHlgceASOxhMZ0lDqRulxIlAd19c8rYoyPEEvm2vRx MXlgNgyg2W/xGP0UqG1/wiUPvdfXVHSZs9Cpbon6I6zyMPz+OQ1nfRb6EHfz 5TK9PJieSUg3DMlGzxiMUk2X5eBI+XjSJZ5c5LHw4eyvITm4eLi3YeR2Phou Vj6R/FkORlliT/68XoCOXkgwRl1yEKVe6Rju/RSpjlooJjXJAUlAb3b7ahFa +Ni/qF4kBwzusxMLk/8hx9u634dy5aBBkhKsFVOCegwz+iMeyYHIWNhsq3wp Kqt2qP2SJAfJBE1M0eMF8nv6PTLwmhy8nixICd5TjqacTf1lfeRg98ayHe3v cmQtWeTeflEOAt53/jrwXwXal+JxTNJeDtqfGBha6FWitbB/wk1GcqBvSPfi eEY1ctOz3n0J7fgbjXbbdbMGDaxXbvNry8G6v/XV+gtvUI1P4ISrkhywby4S rM3qULAD/XM23p3YN65TMLcelXSYxPeyy+3sE+tfrsk3oHE81iODSQ7OcteG GhQ3IGMxfhWVNVkQzjpozgqNiOOrXInFmCy0V0ovT9M2o0fHzV48+E8WmhyL SQLz71FnQ/wdx6eyENvQKW+d+gHRqfX4KObIwr+T9Olh+m3oHJft3jfJsqDu 7rl58cFHRPl4qWw06P/55o/9lE5UZ5xUIX9IFgLPzL9e4O1BC+Wfkv8YyYJB ZWRMv08PkpEVvvoayYKRx8lYoe4eFEWfo3VwryxMbbsleyf1InMoq/QQloVd b9gPMvP0oVHtL1XlP2Qg7D4akeXoRzxPRR8Gj8vAmW9hUYzu/ciQcDbAZFAG NGoZmixa+1HB0rRuf4cMnC2orlu8+RV5vVyv2aiQgcMC8tnR0wOIRlmiziBc Bmiet8ul3BpGgQL6duHBMuBkMTIq/HkYLW87bjZflYGxoi/RtQoj6Hd3nq6Z mwwoP6L0CzaPoAs1LV9jnGTgQ+BCWQ/zKJp48vP6R1sZUDLUvxCuPIoGrlEq zY/KAGapVBzqO4qsHM2t7xyQgRju6P6ae6Oo+6DPUo++DMgdjVOrLRtFLeIV 6tbqMqD97KvH0p9RZMj8pSdVWQZm5AnM4rvHUN38qs9XORlIMrfR+y0/hiqa sNIzQjKwTXGwvHRyDKk9tzd/zCMDvuznz3N6jaHilJtzo2wyUD3hG6sXPoYU bubESzPu1K8d0F1PHUO5bm+VnbeIYCypdkinaAxJnvje9mSZCC0KaGmlegw9 xFjcv/8hAr2ibbfahzEkIK/IRvpJBGtzNPTtyxi6w3W40O0bEUy2Fa8zT44h jjUP02eDRGA7HO2ZMTeGbn9L/PHrExHmqo4tPF4ZQwwfX0SqdBAh1d44YzfN OAqp6JXzbiECpXLX1QnGcbT+eOnti3oipF3/My/NOo78bhNcFquIIPe5efYd +zha8NFh0CwjgngX9WX37nF0ydY25+rOUlOpq7e1fyf+YRS8/3UeER4eEl4k sI0jZ5XMsbXHRDj90E7Bctc4GiE0hFAfEOHG46cPV2jH0Sm6CYngO0T42Eup ZlgfQ30zjHV1MUQIaxNwCFgYQ8c+ydvRhhOBN7G43e7HGGqrNd3cH0yEw5/P lpcOjqEDBRfTw67u+Cm9r3i1Yww1JcXpNnsRwfuUfskLGEMo4L+vu9yI8E34 gsL5kjFU5dx13dSJCObCrkMPH40hzSN/CTG2RMijsgZYxIyhF1r8lW2WO34V Y3Yn+Y0hZSkta46jRHjaZrNt6zCGZBb97yfpE0Hvjp1vmcoYyhxKV+/RIUKQ Y0rMIf4xJPKutodPnQjfv5WSYlZHEU8aHU+qHBGu7Xv/glA7iuJuyZT2SxCB /y5W7fdoFDFfMjYXESLC2APB4AdBo2gbRcc/YiPCVkmd75F9o8if9Ex5lIEI PkmOk/O8o2iJp71NaksaNp5McK4OjqDZSW62J3+koSU1P+mL3gj6GvMgsuiT NCxj+TfD5odQz1vJZw4d0pD9ifDT5PEQatvO7+RvlQbWO/HiTw8OoVrfCqGQ GmkIeBUkFJU5iLJP9xSdyJEGms252bvUAeSmuLtz02un//GMyr5DX5CTy73F F27SQLCWjL40+xnZPhYROu8sDfm9ZQUlMZ/REV6yY7e1NDQf0Nsf2NqH1NaN F/NwacDxc2qjBp/Q+vsQgjm7NIwf01Ks0etGiwzMGCOTNDQdY6yWHu9Cv/GE s1XbUkB+1giEsC40+iKjUOavFHxT608ebe1ETWlV1NV+KahuSvnDWdOOYt0W HbLzpaCxIavE4WwrCs8NCLfOkgJPSSNW2boWFDxMV8j+UAr+qmS2ECRakJcF 91+/eClIfvNkqmKyGZ3QoYQfvCIFzM6PCLXxTUiU9fzTxf1S8MnsRrugJSC7 2rZYaaoU/OAdmr+WUYeyfPZ4mWtIgRpNgGJGci2SG1jTfCYvBVtTGrQeaTVI 5VlckxO7FFjX1d548r0S+Tgs5CcxSkGPVmymEUslKuOzjqnbkoSXh8M6YlRf oX1BkhYi85IwcE/T7EtCOdp/5OVI9ydJoMZ1tH5NeIHC6AiNNB2SIJzKWSo6 VIreVQTmUVokYa/fynKkSik6JGF8KbpKEpxru8yF3/2H4nsKzStfSsKZDO3H m7efo65ITvWpZ5Lgk0b/5Y5VMbL682VN/7EkJJVd/CzHXoRSc7Fhz1RJEOWw Dvi4+BQN2GTXZyRJglUT1+KVqQLkUH8xavWWJHxW6JDmn8hDF+5s8Zeel4Ty kbURH4Mc9MzYaXX4rCRwmSmI8Xpmo99r7wbZT0sCweH3ZTw7C/k4JeWcPywJ 7EL4zDXxTFQmuBSRbCwJj8JPqRxvf4SWP5xya0KSkPqAXe3YpQwUqC6zR1JN EmKAtel5dxqq/RHFd0RREsw33g5Ypj5AtBm/lgNkJOGOteaIglsqimB8VftZ QBIGXzH6zKgmI/Hiu6niyxJg9lY97bD+HZTDf8bef1oCPF+25lbaJSGFYDm5 vgEJYMoYf/w4PBHtOfr6ZRxIwIJXq43RUByqeBXqP/1CAp6xfseMHWKRjuQh faMnElB8gKeo8280Mpwfbt+4LQGp0skLGmZRqPVkwX2bQAlY9vzWsMAWiY40 eNuWeUgAR04/YXMgHNncZfh58bgE+MScPjaeewsNrX8seWckAZeDJwNep4ci R+eUq8R9EpD0KbuuL/MmuqhBZhwQlYCYlQFH2tQbyIfxdb4fpwTIbCS6cc4G If9PJmY8dBLQE/B70PhEIIq+4pJg+l0c6IK+rdLZXUd3jBb3TPaLA63zfqHt zasojf9Wb0ibOERMsXvw/ueHCsszhSpLxUFIdEyqTP8yehGuUnM8VxwspRmC p6R8UZVlrd1csjjI0s4MB3L5oPf/BnLkAsXh29+NHDsBL9T91s24wUMchmMJ rcs2Hujr/dUfZ86Kg1/mmJ1+hjua1hCk3DcWh/eseWlVFy6gP4x5nara4jB9 R+nkyJwrWvmk7tumKA6GxnWzG7fPIWY/i0p6bnHYFLmccnnJCXEZj516TC8O 33XdpDneOSKCgNemzpIYTDPHLYoXnEUKFXH7fQbE4GKwEs60xx6pRohO7m4X gzwR5++lh86gfVZFkU9BDAoWNomWt06jA0stbaNPxKDPbzJ5L9UGmTdbewam ikHwtLn0TLUVskme4ibEiEGSfDvjnWOWyFWTwfqolxhcyOTd0K6yQB5Md1d/ OorBVYHLHpIxx5Bfn1R6hKUYMPHsEodL5ig4rwSXPiAGvpFKuEXDERThh8be 6IiB4WQs76+WQyjeuP3WSWUxiP2gLp/+ywwlC5yR+ychBq317FZ1FFOUV+F/ UYlRDAbGqCIGNMboeQQLR8uyKLinJXQ1xBmiCqvUEqefoiB4UtLr7x4DVCsn f3x7UBQceL3HEmb0UfNS+b+0DlFgMHpHcnqth9qbDVM1G0Rhu54mMEEdob7k Hp3uMlG492l/7WFhDE1qzt9gSROFrClGiRBTbTTLFCL9JFYUVLqWVaQTtNBi H8dbvRuiQKAK/eGZ10AbeRmug96iwN1IGcu7pI4YriqxXnMWhd0Z1hRT+r2I 3aT6Ga+1KMysteb6l+xBfIJmR/8zFQX/+Eflnb6qSOaV670piijoH+9rN/BU QkqRS5qhUqIAZ/tOHL5IRurW4f1ifKIwJesl1HhbAVHl+QJfM4nCsvwm3a0W OWS4nC1uuSoCGrykhtuysujQuz31f2ZEYC1b69D8IyI6kQJOscMiYL0w4jyn Jo2ctIYLGhtFYLnjzgb3AQl0rkDLyviVCOgrnWlxlxZDbkJJ9K2FIlDMt8fG S1IEXYr+WXLwkQjQPKWQ/yIh5LVuYNeeJALVNo+TfgYLIl/3DLZj4SLAdOUW 5cIAP/IbWqrsuSYC46mJVzKO86HAuqe8/fYikLzw6KFTIje6oUpff/q4CDQ3 9Kh0HeNCoVm2HsPGIqAym5JvcYwDhfNUiJzVEYHYS+beRHl2FHWLs/WbsgiQ bdZyoqRZUczieb9zUiKQthIaIarPjOJdGojTfCLgtFT4MiOECd0zuRL8e10Y GF5EnGE/RY9SKtsVveeEQQHTThb5Q4vSSAr9f8eFgXy5Q8TmMQ3KSLsZ4dcn DNauVic12rbwTLaBvautwrBPgDRVFL6B5wSqjwW8EYbPCZnS5PNreN6vuPit EmGQ+2IVsui1ghd36E3TpwqDzTzhmdXMIl6il5YcESMMvnkHD5rY/MXLSv8a sNwQBml8k2fP+Dz+SvrwfIyPMNjyf4oXjvyDV93Ne8RxThhywkY1LaN/428Y aA4lnRSGA/pP1g9pzOJw5eQq7+Gd+TczSaNsP/Fma/YTQurCoNP33GleZQpv bXGhTZcXhqOJ3JzLVyfwNu265+IiO/UJ3R5Zo+N4RyHBNotDGDTXmCKyXcfw bhEfFhm6HX7lI5k9rKP4p9gPFXn/hKDFZb3JJXEI/7Ip40yaFoLe49yb9boD +MjI51pKpxCEltkPpAp8xsfN97iXNu7k7xxmfo8+4VP10ULqr4TgjiIlaCu2 B59Wm2iuKBQC21atmXvrXfhsDnZZ+5EQXAgRSxO+3YnP8aVI1SQJgc/yzbeJ 59rxhfA/7Xi4EEj8UCvZnvuAr7jmkAzdhWB15m3lwzvv8PUvG33N9kKgXs2y +Cr3Lb5lahVmelwIcLs/WTVDjTht9X972oyFQE9x+lCVTgPOoMQyckRHCD7k nLq0XAn4rgzH2C5lIWDteRPZX1SLs3LUaJ+QEgKucrfBW+I1OPcfj3snmYWA OXGbhT7jFc53tkV/cJ0AYIrZ8WaV44RuqTm7OQLE3CrxPdr+EhcxCEgfGyfA 44Tn30OlXuDiZb2mzn0E4JR5dbgipQSXkqUsT7USoOLu4feWts9xmeTI3Atv CGDcnUQpbirC5XeNHZstIUBbSJsPOD3Fydd0tj1yCRDxwkJsn0Y+DkNHyN+S CfAPb3GsZXuCWxk4WVrfJkBVDPs9cb4cfLbgasiHAAJ4eCc1M5pl4aEcsUXI gwCUhycE1ywe44TLmX0vHQhQc3rlRNOZdPx5fxmtwnECuC17t9YXP8ANUatS uhEBeqy5rvdTU/D+3CFrrn0EcH2p7uLHeB/3YF0IDSMTYJY69z2Q7i7O4MX0 fEWUAAmRRiN6Kkl42ifhfndOAhwdf6W2ypGAq+qqMIzREqDsoNP3RI5YvDnT QMVyURC2+nfry1ndxm2ZbE61TgnCz50VR2MkAl+46B6O9QuC2mKr7fucMDyq K6Sk9IMgKJ7DPa49CsXFte4PyNYKQlPrw1sH34fgZelPmdJKBGHwQavhDaNg 3Iyudg9HjiBwHjxr5GESgI+6dtuG3heEC0XvaSfuXMP9Pk5FLkUKQk5C91s2 KT+cfe/6Czd/QWieMIgonvHFs1M5h4fdBWH4rtAFyV/euNYWkeW4vSA8/nvk PC7phbc57VN/d0wQGLl7F0ppLuGOrYfsdQ0FoSRzxOwMjxu+Qjkb/Z+mIBza +3Wj4ZIrHn/vSjmRJAiL83jDIJsLLrN2ezRFRBDGs+UmTacc8Sr7R2zsHDv+ V4Lu6y074OZvX2iG0AgComVcpfG1w6fI784uLgjA2GT7dKz5aTwwcSD2/KQA kE9/fxwabIPzLM29GvwsALOtHkTOf5Z4wWmGb+bvBSBizlRStPg4jtcTON7W CMDeqx+b8MxjeK+csrb2fwLQprBENU86irvF6jsXZwnAeoFSofL+QzjNgmWC 1D0BMDlXcPieqSl+39qt6n6EANwuvMQ/+8gYJ78JnmS5LgA3fe6Cl44hDtJ3 uYIvCsBjla+K4vz7cauofN2FMwKQ+p/r2UcKevjsr+pz58wFgNhOjPYZpuKh xzuTvu4XALuESN+Yd9o44fVEzRENAbC5/RnfR6+FPxdf/d4gLwAPh8UF+W6r 44Zhu3m1hAVA7Yjy/vhjavjXaSm8iF0AFrYPD36yVMW9jmpekNjmh5cf6Cbi JZRxpnKze3fn+eEkzWJa5V8S/lDYvm7XBD+EJVhma4rL46ohvj8D+vhhSWb1 qkCyDN48Gcn/p4UfXsdEXDp0XBq3PZiu51zNDxoa2cIZRyTxhZKSi1+K+eH4 8oFRbnoxPErgbfKhTH7oQC1XfNuEcPHA/nq4ww+5zU1d334L4GVjv2bVw3f6 Dah2rDnw4WYmdISnV/mhcSxixkSYBx99JmAg5sYP5QerY7V5uXA/HkWPJFt+ sCyYs9wdzY6zX0MPGI/yg9ZDZKZxnAXPGjredF2fH6I93QhMV5lwtQm1tV51 fvAsJD5v42PAm35yq6oq8EM9i7/T7Dwtbjn/xyVGhB+m5U+OrOyiwaeWOx5O cfCD1OPgLPPsDezq1vMufTp+eP6H5VFk4irGzBi/K+MfH6g7MNqpdS1hD9gu YSs/+KBeecNq8PQiRuY55Ht8kA+y6u3DphUWsGqC4tPnHXzQXAAWN/f8wQ5J sI6wNPJB+BESz/LwLDYkO83nUsEH6XVtdI+qpjEPpRYzeMoH9h8+sjPMTmHb avkhIhl8cMZI226f2wSWqB1R4ZfIB5m1leS9yuOYlJ7LbNctPrhBqIurVR7F XhgbSitf5QMhjtIjje8HMYPDRJsoNz5wa7gf+DC9H+s9Thf/7QwfOHgyeqQ1 92Eup8Ya8WN8kMRx5tx51IstOcDqA0M+0Iz64vRkqwuLdH2s8k+LD/ZGnFLN XO3ACB7BLuaKfDBhfvK53bk2rPDymYdF4nzQI5keHKDViukGULuYePhAYYHw geLYjLXdFNnlyMgHb9jl8roHGzG7qDXqmxVeuJWafvTto3psLr7fhzDLC87z eRPpenVYyP3KAt8RXnhONpLkKK/GuNNThtu7eeGmrsTLyPhKLDvbj4/czAvA Qr5A31CO7X1qaRb+mhdu/HS4WmD0Emv6Tz1k9BkvtFvv2/WMqxSzrOCt0M3k hTOupjMXNJ9jUzULM8l3eUEqT2A6rKYQu9rYJbUQwQvx0yHR5Px8jPl9ifVh f154djnhruZMLvagMyGu4BIvWNz5dbYqOBsjf/ZopD/LC2KUXo5Bm0ysZujw qt0JXhi9R7vg/S0dOzyhpFJlwgt886feJIc9wIZ/srnw6/JCbZm+15OoZMxr /meaF4UXjL4GCgRN3MVoV1o7P0jxAt014pxmfBJ2Z6uASZ6fF9496qRjWYvH iIxR1FBmXtBr6I6WtojBythcfYbWeeCE6G3GDoEozIjHuGDfHA/U6RlIluiG Y30E2eG74zwgX/TxSGt5KOYqwcA394kHxNzWeE8GhGArst9MzVp54Ij31JD7 riDstlLDjSc1PHCJQL/pFH8dE96bVU5TwgMxt0N+LQb5YUXaITOnc3jAqa9A gvm9L0bVs5d6lcwDVcITOpOu3thHY9yaJ5oHjoU0iBLSPTC7w2Jxl4J4INfp ahjxhxs2d3yjocWLB3hcnhXSP3HFQk4NrBCdeeCowEGa8LfOGPfZKsoNax5Q 55/AVzBHLNv1gfNXMx7gsk3OZ2JwwPZ6XEvTwHlAleeWkoCYLdZ02bozcQ8P DNnKvhsutMGsAjSZZmV4ANz4MJEcS+z7TX6qCYEHPLg8XEirFhhr0H9zd1l5 oFzGR0PL1xyjXDPNGd3ghr6n0i7Vtw5hFr7frJTnuAE7wybvXnYA8/MIYvUf 4waHK46qfi5GWNoFwdrmHm749rhATCdiP1brXOrN28wNRSz/Lmky62Hj9gdl HSq5obqk42rkG12M6fTkl2eF3GBVGpTwYlMLI1vdiF1N54YHnApPSt+oY0eO CekZJ3BDyaOOrvrZPZjPoZd/79zkhv7AlRN3VyjYfZPD+SO+3FBplKskV0fG Kvd/P6V0jht2W/fViQjKY4PYTY7rNtww2HBlfO8vIkajLdLw1owbFo49v1ui KoXJqJdf4cG4wfi5gPeuPDHsgMpRkr0KN4wunjjLkSCEuZOnB4ukuCGosG89 gEkAS5S9lbjCyw1ySyJ1Oqs8WJmkmKEREzewf5VpeW3FhX0RebWctMIFhOpH R9Wk2LENgWNFwz+54OmIRku9OjMmyTNjpzjEBUdOJT4K7WbADHaH81zr4AIN h3juV99psXPMEs1N9VwAd07eMmzZokbTv77OXcYFDGYw6uq7Rn2+ZaFsl8cF HeXtxsGVS9Tu1dnRwlQueKmtf+9y6F/q0mLEveVoLgjXoLPjrPtDFf4jecAw iAsOvuZJ5XszS8VnqtYTPbmgfChaMSrvB9Vx6sR/Q2e5ILA7cuun9CQ1Yuy3 I/kEFyzGC/V/ExunFg5GCVw15gJHhgHterYRavtn6feN+7ggoun8sUspX6kL 3TVBXIpc4MnwuulxUx9VoN1qzxkxLhAoCAl/G9hD1Wn9M/GUc4dP7eaU67NO ql1TdOoSLRf8dHL9GxLeRqW7YZoa8YMTJBab3lY4tlCTLpaee13KCa1CI4l3 2+upkjZCGrP+nJDWfxpjXnlNPX/kcHq4PSckLjuq9JEqqCWGN+klDDkhUqXZ qvDHCyraM911bDcnmLqYJOncKKJGyItpz8xzwJTVxFFRz3xqu9ixzLA+DiDK M1T2L+VQ7Vhfe7x6zAFeLfZWIwvp1MBvUWxiahzgsjuu5s7heGrVfQWjH1a7 gatV40zLMS8q8+nvTrTU3SBkH0cpfnORaiWZFyostRtMxZHISJIrdaGQCIdm 2EFR2ZbTZNuBSgJx3dIb7NB7dHqG8eExaupPvj3+BWzQVmlnTHNPjXoF0Yqx r7FAr0rGS1/bv7qq0/2LKhlMYJAY29Mi5aVrWDXAsmlFA3vO65RxtzjqeD39 b4Wb92+d2OKP159sJbWtzhGzugP76whUjkitxB6tqOa1ThuJ6Dq5TCWpV1ny Wv8DF+cA2g== "]], LineBox[{{0.012755102040816327`, 1.0642504621686924`*^-42}, { 1.224442194233076, 1.0216051556334998`*^-53}, {1.9872448979591837`, 2.6246799254608735`*^-61}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQAWIQffzXhQh5KQaHwIVtaxXrfI3ZeQIak96xOQi/61m5 vzjDsPnBNeeixbwOMzgbq5i7c/Q3zG4LqPsk6GB3/N5M9WUluvmLUgSehIk6 mM1cWyfHYqwdlzVLtr1RwmHmds1NOh4/NToDyyyN50g79MzgPFirv0GNRWTq s/pfcg7N7DlxtT3CKtdPt35o4Vd0SD15/NnEc22KodVJZrMOKzlcOJIk7TNv sVwO92ulc1EqDgbds2cf+H9JWn71sWlsr1QdFBXXFpy5/1mieodzMP9sdYf/ xdl189ZvEy1YlrPNTF/TIThwRklKx2QhHibzJL2nWg4vn6fNUV3Bw++aGzJV a7KOg7h9xtfeFSXcEjtl811V9BxaSvJP2QT+Y59U1DHR4Lq+wzo+PeGpd6RZ gtr8deduM3B4aOauLBQbx6AV3RK6pNbQgQEKrj3jXDQ51AjOP5f01FFI3hjO f8iy/MdUJQT/y7KM9ZJqCL7k69cyiroIfkrxp+/61gj+r+b/a33DEXy1pZJS nf0IvqX77Qs8kxF8n5dz2idMQ/ALdRW+Tp+L4O/ZqnZh2WoEP+iYcduR4wh+ asZXG4/TCH4F1/bPp88h+HP9rBIvX0XwX1xzsHn0GMm9FUyfU58j+LzSR1a+ fIXgG8W7i3/8iOC7MnKeK/mK4EcsPtXy4weCn+XaY13zB8Gvfe776f9/BB8A 8Tfbew== "]]}, Annotation[#, "Charting`Private`Tag$264854#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVVXk81V8TlhCFLJEI17Vf211Che9YSpEka4s9VJJQUbZK+ElSsiZlDako SVK5I1xCyJadUCmlqJD19f5zzuf5zJmZ58wzc46M6ylLd3Y2NjbRleX/e8iX vVPLywz8ct10A5GWSHwOEv3bu8DA6ENmVwK3JxHmAoMzz/8xsFRS5IpAfxJB 2uazeOo3A403sy1WaKQQb6Jvcg99ZuBzasSpKP7bhIr04XWvRhh4f+esyM/W 20TCU1n+lCEGpnDq/ipMSyPc+0qELXoYePnfpZy3+ncJbvUPUviOgd0HvNOq v2QQvm/SZdLqGfirWf7LMZdMosf2mNy5WgZe453WshnIJB5c+KdMrWQgfeHp H/vhLML8vYRmRgkDRZX54/NF7hHP3Ue1g58w8JF4kwrPw3sEae7h9gOFDMwV rLD2Ns4lJsmEvkA+A2eyLN8X/ZdHJJxx3nPxNgMVt1pziUIBscitbG6fwsCT rUXn78wWEB53Ji22JjLwpV/qM77nDwhtVpjtr1gGWsQE8CgZPSJ6Nt5zcQ5j 4HLc0NzfvY8Jo4cn3XQvrPCDYB11fEw81Nc6KhbMwFNR25+4aT4hQo7XerWc ZWBH9VnyJuVigvTya4D+cQYKH7FTb9cuIa7sKw7c7MHAwOYUJY3qEmJqJDBk 1pWBb06LnVC3fkZU8fJefmzPwA1W3Db+F0oJD0f1WJLFSrwRlS2tnC+Ipqnp GwtmDDTpGLeaevKC0P6PGd9lwkA7o/7joa7lBPdji1s3jFb0o1y5ZfL+JfFg 1ekcNm0GbjtlbNgzVkFstSrgusVgoNWzzScC3zEJVs7HYzQqA/lENw9vsUdi aJeFmqsyA+84e0v9sqgkRGPVSqskGNieJft0jVsVkTPoJmYvtqIHxT6dfaqK oNHSAv9sYOBAsWdc/+Vqwqx9Lcjzr+jJtqMu9WkNESY+VhvJxsDqX67TSsZ1 hICXNEV6kY79FHQUna4j7ry2jXn+j46jZz33VRW8JcqcayzGpug4ZvSkvIvc QPzIzeo2+UTHAC3zvsj9TUTgbLfO8Ec6Jvi/f8qm0kxwmwreDRygo59q12Y5 zhaC/OOC64MPdBTvHb564kcLcYDhMM5bT0exwR/CsqOtxOfwhL33WHScPMNf r+vZRpzubCjSq6JjHWed8tDvNiL2/PYz3q/oqLlmdZaUUAdRxdy42FxIx6MO 0snCIR8IC8F9Tsce0DG+/vU2AXIXMeAaWcmWT8czoulGhxq6iFnOvxG0TDoe EE88a6TSQ6ibtfLHx9OR860PKUq2n3h1h8dX5QYdy4KKc3gm+gmTn/ptVTF0 vJ39Wa/q9QDhdrMo+U8EHc9rXI58rDVEpHbFkGzP0fFXnsjLi9zDhBKlOmzi DB23i2+ODg4fJp4FzY9G+tKxd9d8UcbqEaJFyvP+c086gvf9lqJ1owSn+y76 Jgc6Bm/elk3e+ZlodaTZjR+kY8trcVWf1s/E3QMSwa9tV/KlVS/xH/lCaJn9 rHGxoGMO+9fyq7FjhAcj+WCBER2VJMNG7wmME3S1S6HB+nRMbVx7Mb18nFhS OJFtrkdHp2dLlKvHvhPJ4vBjSouOL48ZLN1o+UHUrfpyUYdCR6G/W6a/H/9F JMy33ONTpONVPR31qeZfhPPf8vpBWTou7mt9ar51kvg3FrshXJKO6c02DgYC UwSlRSu/UWClnlMOmREDv4npt6R3d/noqD7kzfXqwB/iTdXaKZ+1dAxMvLO6 rOMPcfj5gI4IBx2tTxzU0Ov6S8TcjWx2mKHhYNKfTsaqWeJAis8fjT803HSe FmsWP0vI3Ty0iX2Shh/9GIkPlP4RryPUj+R+o6FNwO1/YQ5zxIRX5/REPw1D 9et5kicXiHIPlKjsoSHvu29jg+mLRKRzgX78BxqWhd2Y4rBcIqStQ6O139Ow 1EfKUfPNMmGhoyB1sZqG7ziH1Qw8V8FmTQEjy0oa9v+0dlx6vwrG1OeOylXQ 8MTTPflsuuxwidz0pO45DU8KTy2u3rgainn8dwo+oKG47ZCd4zcOEO6q8cqK o+FRxaiKcUEeQJXMqPBYGvYt62dIZ/KA14XgHI+rNDx1ui/ZkrEWWAqMPkoE DW2xwGfSeR0Ens3Y8/QcDV3436hVDfOB4tugo4lnaZjyodbp7lV+aN9sdznA j4a+HXump7XXg3o130sdLxomX/N1L94rAMNCQZRqJxqmx7nExNUKwnUPW+Nc expydCa9HKcIgW45zTXqIA2Lv3By770hBEkuY7fMrGgoJC+mZuYiDKaPbXg6 jGkoN3Lz3AFJESjeSx37pEZD05bUH+JrNoFT5jqOOgoNUx0+CfRe3wS8fz9L FyjS8PisQaGVhDh4pN2x85ahYRGtwSFzuwSIj6+tnd5Aw7uzDcHSaZJQS3we 7hKk4YcBib9CulJw5mblUjk/DVcf+BpKGZSCpm3ntC5w0zCzoWP4wkYShEV9 urdmgYrhJv0ip4NkQKMPK7/OUtHqCn/Huy4Z6NNI62/4S8U+T/0nM9pk0Ppg KXLjJxWPmmZmdM+T4Zs8houNUFH86khFVaocWFalHlGup2JeOlcOn54SyLWP DtSyqJhexoozZynB9Kj6IY8qKhabyrY5WirDLa4qi+xXVCwp2f2XfJoCQybj epJFVKwoyYh+3aUKxYc0X7x8QMUr5oMn58+rweUTF7Ycyqdi7eUdr89LqYPC NWGV5Ewq8rRZ3DzjqwEnW3TEBBOoGNVX8egaiQbEx4j4ohtU3FTGzOC5QAOB qWZ+82tUbJYO/u0+SIMSYTfOq5FUFA1P1Bm+R4c525gpjvNUVPsyeW7YdAtE 9fc1zjpQ8TjjgYX+ojYcmlDYnXyIiiZWm1U2hm4F1WWfKk07Kmb1zTcfW7UN mkmc5X4WVIxOZtjkr98Oom5qed8NqWg5yHW0fY8ujJ0JIF8FKmrmJCS++qgL LyIq7yjrUlFR/evVoEA9sM+zSfDQpOLhKT7OohICsr+FXBpSpOJen+sGebn6 cGa+diFUjoo2+8PX5S3qgzGv0DlJmRU+8R8rd9oawDe1XO9D4lQ0EPQOCOI1 BKpv0+F2Xiou1HUtXrtmBEE/9bxujGgg3/LCwdYxY0hz0R7T79fAMTeToYM2 u+BVG9VtslMDU7YtaJdU7YKl57L2lvUaWJs6v2rx3m4Iu8hjtuGJBi6XrjK+ d8kUsqfY66oLNLDepoznyqIpVLstGJ3N0cA+IXny+aA9wGXyU6czWQOz9V69 SAsxg2jBDpWUUA18IHrqaMNtc3hwuSlv9zkN/PmetHFcaR80/q2V/eergYco Wbtsy/YBf0+5xCF3DXTT22EgdsoCbmZlrNtstsJn454Y3+z9kMrwGk/fpIHH VKplOEyt4eU996MWwiv+OhY1iznW0LfRaYSNTwNtImPC3FfZgNTC/l4XNg0M bXOUj6+wgaxq7QbZL+r4yCB66Y+pHVRp0Xa1D6nj9r/jHD+e2MFoPqUqvEcd BR576QaLH1jpN8mXn96pI0tdreXsrwNw32b1g7wSdfSRcko59fgQ1NcuKBwo VMePfU7t5XKH4du26SzufHUM2UBrf5t6GFSlvqYev62OCW7j50xj7OHx56Zo lTB1fB7RMR8c4QhlAameRfvUsYJ005TrhAuQ3Xzvde1WR2qeyOmf5S5wzWL3 0CpDdSx0iOWQ5HUFV+VpG+st6rgzcuaebbErrOvdb/BPTB05DhivZ/K7gX+t UjBZSB1vsTNcjY+7wdDT5dI969Txq0NEuWaNG5TEPFK9u6iGd8q8RJwuuYMj wSNmNKyGKiYEt8u6o1BHGbL06lXDhO8TTQ99jwJ94/Nrie1qaC7wZCyy+yis +eW2eoylhhs23Fw79+gYPM7EiZgHapjXEyLp6ekJqznP1XSeUcM23duDnFre 4D1pzsbmrYZF7qYbc557Q1e/vI7yUTX8vUv7iLzOKXhY2vY46KAaRpmLTf6W 9QHbYxppJEINq0W+vIrU9YX8hs9+nmvUkEugtzIs/TQIlb1+FM+mhsFpGsfe /joNITkJY6/+qSJ1pmcvzegMWIYYOq7/ror1v10CfMfPwLz6XZOSFlUcNT1d ymvqD+Y3bUhLt1TRfuioVLTheQikrzfZFa+KQUYZJ67fOw+5rXW+N2JWzsde ow/wBMKSkG4V+YIqZgqZa7p3BsKjeLLHLjdVtGZEbTp7IRh4E38+uKGuim4a WUY71l6ErZr327sVVfGn4Y+pbuOL4NbhukiWUUWVuA5djfCL8Eqk0/yZsCpu dH55XXrVJTiR9Gqye1YFveW3rdnNEQb1yVe0ZatUsD29qNWQFg7T2kbOXq9U sJT5qSInMBzIXQtRz56poDsj5MpwdTgEivn07MpXQcXkiG+zhyNA+ZZtiNc1 FXzYtLivKiESolJlq57ZqWBjdcKFI/QrULK9f3zJQgXtQuSGD0dfgaGepA27 TVVwqFeFd+/IFdgqsdajR1cFFzsnfpFSomHs9i/uZRkVrCPtC67ki4Fdd16b 7/5OwQ/6CYcCKNfh17W+BY7PFGx8NHKh9up1SA2dL6gcpKBY7vwg98R1+O60 bY1OGwV/dw+FFh+6ATfJz5hq5RTktSALdyjGwUDeQ6pwFAW163puNnffhKiU hoHmSxQs1XOh2gjFA+3Kt5iYIAoGrhs55bgnHsI9lb5ynqKgkf4+/6WKeKCo 5WTO2lCwI1miMfJhAvgX3xYakKXg9ljb7zszk4CUXY6pkhQE30eilsNJ8Da+ 29tuIwUNJ2I+jMsmw+azGxta1lJwOZx1tD4/Gd5ox1+umlRG0jUvH6MXKcD/ OvpPPlMZFUsvPk37mwq5tec7Tx9WRt+CngBiMB1u0f2N7lsr45qn3ZZckhkQ c8fv8cBeZewiGdPfmmaA3+kT0Sb6ysj3zW3tkbwM0JN2IKTllVFbOnti3C0T 2v31c+snlLDiwx6K32QWsCus8ZcJU0LJ3c3wwSIX/t5YPWIbpIQhjqV7xq/k wtj88r6YM0pIKp7rtK/Khab3s8ozHkq49eTUrJ12HtwK+dbfuEcJO0rF7xfI 5gO1493OcyJKGJFoI5PKVwCO4QkizfmKyNzImKuWK4QmmF5zLksRG2tOGMe4 FQLM282R0hTxc2rbj7ScQiD5SQz6XVfEI/VtD1Lki2DYKStf1F8RuYfjJ/1F HoOHzmMdRyNF7P17Y7+VzBPwnmpw+dGvgO5NPz7p738Koc6rC9cJKyBvwum1 NkvP4XHzrth2XgVcp/KkjiZXBsNEjPcdLgWMgarDEqZlYCwpoqExJ496EVYc wkllK/+BwmPLj/I47cSjH6n+Au5amRbfKpJHynYDIW6XcmAax5Uqmslj/Kn2 xJy6VzD1rCPp1055vPQ0fafwz1cgJy8e8ALkseVpl1iIyGuIWp2tvYchj0L5 8y/B9TVYYEmZt7g87p980nJq/jUMbesqfzYmh1/vafD9UmECm5o00yhCDnsM N1uFIkKwqIFjRKgcCpor1x5sR5hZdl1kBcihVxhYKYwhTLTm6ph6yuGxiP0c cesrofecepnFPjlMjSyaz3CohNJqvScOm+SQt/b3C7PpSjhpb58d8EgWOTvY BUZEq2BsZ6jhi1xZLHULUhFUqgI3jYyPc+myyLZ/7RrZbVVwiH1UOvSmLL7i 3Xjk16Eq2J1/Ii08QBbd9O3/U7hTBXJ/AhPjDGTx563NrfkS1ZDRn7albbss rnoxWjRCqQaJ2oq2DVtkUWUiUmxhWzUIpbILpSjIYktQl0C1XTUsQ3Ts3XWy mLo61yc3rhp6rt7670EHGf2vXB9wX6qGthrSQ+dmMopnTLz2W1sDjct5LSJv yejonlhnL1oDFadLN118RcbCHanWtWo1kHW47YF1Nhl57W5K/zxUA7cTD7Xw 3CHjK+MS1QH3Gkho/vinIomMvx+/cc73qYFIo196ytFkfPSC3eRdRA14qvC1 LPqQ8SJbZrxlYQ0ccU/4U+xJxmbnXLMNZTVgny6x6ZgbGY/KidoVVdaAuTDF tdVuJV6pZbhPew3Q543/5BJkjHzd4LlptgZUNJvE7LeSMcub3J7OxgK5UzZ6 gnQyuvUmfl/kZoHoyJHIIHky7gyqOK6/iQXz9RfFLHjJWM+dHNqtzYI/HNx6 nFxktMu33SEGLJggrruUL8uguh2nuZoxC4aK7xTI/ZbBo+3lUd1WLKhOLdf9 1y2D9AxjC62TLHjdbuBS2CaDtg2DI+TTLCjlfxtx5J0MLkzWRY+eY0F+2Iem dyiDO8k7Yz5fZkGM5x/nrDwZjF48MPYxmQUROUERdpkyuMOdkXo6jQWhA+wF vLdlsNWR4dWdwQIfS8Hf/rEyyKHXwSNznwXHY1I2qkbJ4JqwuBz2RyxwZUnr frwkg2Nz9xefP2aB9Xb1iD1nZTDrDyTcec6CvWee3Wc7JYN/9/7Kf1fOAuNC 3aZnx2TQWcqN8v41C2CsasrTVQYlvr/hykcWbCXv2UiyX7Er6ahZVrGAZt+q 02Ejgxc72GOba1hASTroHL1PBpvIB8RJdSyQbRkKBxMZdFi6VG1Uz4LNa4/d /2Mog/fSWi5sb2SBY0VjDFlXBqf77mQrNbEg04/mY6G5wocoGvrYzIJRhSSr UHUZHKKzqXi8Z4FC75zWQ0UZnPqwEPCslQXHrjuJ95Bk0D4grKK5jQUFRtWL a8Rl8PTE4HRJOwu+zyh91BSWQTJ3p7h7Bws0Hl6rPsIrg//VJMsPrWA/56m8 OM4Vvon1wgqdLCjZYHeVuURClZDIEa0VPF330vvHDAn5VWwThFbw1hCSpcQk CT2XtRRfrPgH0iI0Tb6RUH855S5lBb/+9FUsYGQFlzkueazkZ0s1X8jpI2Gy cP8e7xV+huZPB1s7SDi9sfea/gr/cHaxKrZmEr5JjWvsb2FBbWlwrnodCQOH CgSNV+6/9sTHK/aVJHRTNTx2/h0LzKSNT0aXk9APRvoCGlgQ21ZgUfaUhCGs KyEGb1nw/r/1Wz4/JGHb84yDnSwW2P7qmjNIJ2HnwG9u10oWpOToDZxKIeHH 9yrsBytY0Hsgq/JOHAk3T74Nk3jJAufKE1H/LpOQ2/j92dUlLMg623JCMYSE 1ouxm5RX+mdUWXOfjT8JzfIP5ok/XOm3m0siT46RMPs29bdLNgseGh/5N+BC QmNf1o/nd1fmZa62j/cwCRtTzu/pubVS7yNx2cf2knDEJKws/PpKvTdORyYZ k/Bdged6vmgWzDQc8qwGEsq13jzgGs6C4C1yNBKdhBJq5U5nVualYixqg7nK SrwRGR+aHwtW3fkxEyRHwgPFSRtfnWBBJOfzig+iJCxuEB/c7sgCqUfxKVIz 0mjVxxM2os+CbBEHp8Cv0th1dtlPaBsLlEIVFDp7pXGXY8llAdpKP+978fQa SqO61d+hQBILdkwONC1ckcYw8f1d/Is1cEKTwtm7WRo912uIez6qAT/OF3n+ 66VxNHE7pSerBgI7dpkKsUsjtcZ9WiqlBqLPul83+SKF24e29CiG1UDBs4xN ZU+k0MLVLp+wroGvmhvVE41XMOcpnTe/quEXZ24LdZsUsr+rLc8YqYbZji2n G1WkcOEyD/NAZzVw+1uWrRaUQv1t7bm2L6tBqfSaoV+v5Ip+Y5bxl6vhqBaH 3T4fSXzQJXnRga8avLni/31zlUQyrXj34mIV+HfKpEXaSKJYxxHV4IkqiPSH j6+3S6LVWYdKseYqyC0NPKHKKYnxXKTcD7FV8Elr8gJP6mbc3v5B9g13FRzR HsivqpJA/ZzYXL6vleCRr21r/FwCybv2HE/8UAmem+JWvy2QQIO1SrHrWJXg M2/k2BQngYFCOdbVWZUQzLwv3O0kgZfkD27xPVwJCbvOhk7Mi2N64tu9q+sR WHa81pu2iCO7b7pjhS4TKOe2L3vniOHcl0veRl7lgP3mlJEkMVQUMbA7ZlgO tkZHbOyuiKHs1dwn8WLlEMYf8wC8xVDvCiOWreYFdOf02wlsFcMm1w1OxlIv IOr9xcdPGjZi3xar5E1tz+Ezpdblz5QoOp+4l25q+gyCb/TGHPskip5NcY0X yc9AaPrn874PoihS1q75fq4EiEox/ppXomjNrdb45kEJJNp5lidGimKE8LzA DH8J7AjnE9YWF8WdvVK5/L3FkNlvVX3eQASb8i1v/4l5DPRR+lz7FhG8Tjvw pOjEY6j+JkilKolg+Pn/Nl0zfQyfZ5pvf+YXwUbZR91F3I+BImR22qpvA0YK tRpq8xVBsfEOslrABiyIji46J/QIqou2XBx6KIzJBo+60OY+2JQKl+pkCCNt 58PpmM334fOrqfGkeGHsNnh7IX8kH7jrH9vtDRTGTtcP0U1++bB3VFWjfJcw BvGfW9ubkAedYvID8cNC6Kh1Pldo7B58uSSiu0tMCEPk9e6dbciCtSFFP+PX CqFLIFF4OiUL1M+ZZA8tCGKlNcd8i3sW+HuHrA38KIjygrDq/qos4Dr8qeth gSBqyr3Ia9DLBLktz84K6QliXWh2mP/1dNitsU/ZSUMQ1bdK/aejmQ5elK99 D2QE8ZLJqER5710oIUnu2MkliA8rLJSGKXfBiC9C6FyzAL5bf+lQy/s0cP1s XdTvIoBfeA+zFRqkQuTHCVeKtQAGMzkuNk3dgoK+KNEAYwH0CpWoSs+5BVOt r0IEVATwUoLm5P61t4D9gklK5Nh6PCdN+vixPxmA9vX9fr71WEXbrLb+XiKU JyrtHLPlQ7G/ne7kwjjgPvzlyCpdPvxZ0Eb+eyYObEm5YeIyfGh86E3jQd04 mCqQRbNxXnzNYxPU0XgDlFFK58kFXgy3TFRdGLsOKd820ALz1+G/n0+5Ml7G wOeitn3x19ahrkUZX/GhGNhy9qb3Q791uPhmR33D3FVoXl7/cEB3HY4LSmis J64Cl8g6RaP3a5GKBnzZLVfgLKyS5J3jwd2uYfnH5P6DNxyoIz/Ig/tVu4s3 t0WCQH3oIaKaZ+X9LfJ8GRYJD60Xkn1ieZCpdefOk9EIGD0+I9RB5kHOtG7C /Gk4WCb84L67hxsN37mlPj0fBhkHHyo+p3Jj0I9Qh21aYTAhdcK4RYQb75rl /ov5fQmi749dZh9ag4Mj5+4l+VyCyoqRJY8za1AnpeQo+5mLQP3a/UfjDhfu XD1z+7heCJz5paa8MZwLZ/ocFCc7gqFs5pLDkicXbiiSGio8FQwGXBRW41Yu zPS9MF6ZGwSWsoHJx9s58cH+k6Fz5EA46yC+PXsdJyoZP0hy2h8A5W7e3tFT HCjYXj+yZsEflk68yfLt5sCcX+y/X+b5Q2Sg5zr9PA6sbW1Q0mP3h5Tk8r4+ Qw5s0W50dag6A+XvD10QDVyNc/d3Vo+f9oOlrsKni86r8fizb8Xy6n5gOMQ+ NrprNZZs37Flx1dfaJgosHgqshqnu4zT5V19oW/dvIzFE3Zk5o0/2+boA8s7 b1dfGVuF8iXddOd5L9ix9+esT/Mq9Dv6RXBXtBdEWRupHShdhW1fjf4ViXuB wJHxRIXwVSiS9Z48AyeAfFHnaJX0Kvw7+8D+y+3jsKO8l2fRlg1XF5ZHNyZ6 QGHBvW21Omx4NAN8bBgeIHb71PE4EhtanPInHWx1h84Zrpt72peZQSEER8UG d5APshW4M7fE7HSKlAkuOAKzh7+dolUvMadm3Q4dtDoCjbqhzTXXVuw7w5/H LLrCmaV7sROkJWaso6XVqI0rvLn0l1d/1yIzt5Pz6oCICyS5XvFqF1hk7vyp IPqnzhmOG0k2HutZYDb3Rb/WC3EGAc6dV+NOLjBTquwNy1udwCkqgWckfp6Z vInr5Iu7DrAQy+CKHPrHVLs80rPm7kFoOVXrLl7wj7le8wYIKh6EbIvDNYWn /zENOCJ/8xQfAFOhy+EfuP4xXd7eefXonR3cSmxlV1abZfZ4bZVml7AFL38P 19fTM0y6lFJVXbEN6NvNVe7HGea6Qf1IEzMbGBMjXwq0mmFOX/tNcw63Bq00 3+WG89NM1Q35VzW5rVbeM04nZ6NpprWH4QbSI0vod7hV8Yd3mnn3RqxUgpUl hEtXhkhm/GXOu4SWrbq3H9qyBBa8WX+YhgEuVTYHLcDnftGsoPBvZo7cPj97 LjOg8ntfNhyaYoprNJ8+GLEHJv1U+U8/mmIuzI52+3LtAT/d+7Ltu6aY3a0w 38FvCmebs8yTgieZZyxEi1O0d4PWFpdulskk8+1nb8s7rF0wnSLtNiM6yYzK tp+9ZLcLAlzTzh948ov5NcnVvDnUGH5/UzHRbPzJvO8kX1Q+vAPOlOQ7Jnn8 ZBZykk4uX9gB0yHyZ2bYfjL1bozvm5DaAbMC0ukvNCeYauFjpCcuRrCgJfRX L/0700FcNEdyzgC4Ls9mGPt9Zc7vEZBuGSbgP7OzpXm8X5kf32XnL5gRwC06 1cCdN8bMdD7DU/1CD9beH5+u7/3C7Gwc4ZhL1YX1zQNm+3Z+Zh4O0HD7Grgd bqQcdn08+IlZuFtIo3V2Gwi5dgUIBn5iigesK+E6vw02/H2f1VY4yjxctvGD 2sWtICZRM2snNsIcan35NSBfC26NGvC/KB5mLihPcVVqa4F4YYWs+N5hpqGG 3hj/W02QNCgz77v0kTm4rfhN8uQWMGqyNansHGRyP5FsDTrIAFsP2czW4G6m f89XgZ4QKkT7no66+ayLKdlbuf24ChVeB1edspz4wCw87hw7XqIBcvFHiFan TuZxlfu7+86rwxQzu/e9YRtzvEjHwl1eFRQafr+JC2pl+ivMTnMmq8DBTqOC /SXvmWc/NR02XKcC+H3k3Hv5Fqay0EcB13llkGLsVs0SrGdujHm2uP6fIkSY jM3JXK5jOk566DuHKsJ3p6i3mX9YTFazceUMpyKUx9R5ZH6oYq5niip2SCjA o8Y4QwOdl8ykmGozwkUOgv69H9SXKmO2c6rpvpqRBRMFoRD9Vc+Yzfukzmnd kIWGZblTF2IfMS8O1y8vsMhw7OC9+6HWecwKnxDNre5k4HgqPxoinsm8rlIf vZeTDPqbzPTmMJH5n3Fa7ZY8GYhizbUckI5mGhy+vzbJQwb+B6KLMVw= "]], LineBox[CompressedData[" 1:eJwVxX081AcAB+ATy+UlEUOSOE6cl3TSkf2+LUmFS5REK69Lm3mn42Srz5Fo qdabt6LUXCWVxip5Ke/SJESShLsc8nqcO8e2P57Po+8f5h60hEQiMf/z/ym1 4hYvvVRsba7UI3M3w4PeWZb8fT6mHN+Y5IbYoaRr/8lT7Dtwp74nx/XZQrly mFLt/QDyynvTpV62iPjx56HqiyUI4L/I7trNwA1bmkvNwydQy7LJ0/5nE9qU hu/XvC5DUXvL9g63Tcg+sNEugFOFxLpT0Vd9bEAi/bUYUF4HE69MO5XfrZEx pG414NIAeq5pr4yeNTa8jfYP7G7EMt9Ork4xHYG3rWsCRc04rcc0zOnbgECq d80G7VYUHvcravK0Qt2rrlS6RycM/Nc1jNDNEcx6X+dD68KDrLh33GQzkA27 5Tiy77Gtn+pM66FhF/tDYltxN3paXxhZXDLFK5PeyBj1XoTN+kSZWq5DSHtv Uc5ILx45tQwv5BgjeUv4jL//J5i61FosXWEM45FweppdH/rCDBN+khoh2CGy sFvwGfYZfoYNEgoYGZNNY579KNgjfzP8JAXksUiB7Mt+TDL1k5sVKeBmRhmb ZQ1gLL6JEUo1gGAiOi/BmYdaesaJhri1eOokrDhXykPm4QeHrqqvRWpOzMd8 Ch/nxv17/QL0QNsZq9Ms4aPqjMhy9aAuQnKPXdK9NwRN4sSsj44O7Gdmi620 BGB7voiZj1wFJRdWqyNHAOkBvuDYa20UzrJUQg8O4xuz35rvntPCV2b86XKl UVhfKChtxbcozxf/2coaxb5LV+grH2vgrDi+ljcwCtU1DKPzNA1Y3mbLqjz/ ivM7+nqkFHX8nVheXmQzjrTVa1OeMNSQy11ofhIyDttfH87L1KgipY3oeXlj HPZNqJXZqwov0wrJu+UTUD3onCSIW4G59goGiT8BM7b2aHqdMj6TSDsUdCeh XB1h6UtWRiNty351j0lEbM5zeeaqhMwTlTHrKibRU60vvDOoADvzqkduV6ZQ 78QJfuZExsa2jsvlDVN4WRa79cJjeaxnj8SbzU+B6E9QKTWUB7VB04HsN432 W52sm8uXYmVQ6NsKUyFYFu4xJvJyWK7EKTX/QQhG+V3X9DOyUCjOyMpKF0L4 y7XK5+qyIMnUBBybFiInseTjJvMlGMnWmbYon8HZq0ujlh0nge9g1Zk9PgPf 28wjqzRJ+CzYXqZAmYWokc2VO7JIdDEiObxTszhKTtF04kmJ2rZ69Wt7RNhl 4Ho3T0tCVLE/ihQ5IlA1+qzjw8REmcH0h7gSER7qH0xA4xzxKFzv1j6dOTRu CX7KSBMR15ViNyoPziHTLf9dBmOGyCxO02ZrinGY5DaVck9IXPbOk37ZKYZ8 ktJYJUVInCl4VVN9X4yC9Xr+VTrTBGsbxTOBJcEztVXBausniahhhp3gjgQc N80hj7IJIvQCc41XjwROGpF5Hs4TRNCnOB596zyeO+qr7Y4YJ9wTWmKHFaW4 6CnQpZSOEq4UnvcBQgothf0ke9EIsaNRQtSFS6HIyrDmfzdCEFrG8jfbpUjy 7ZpI7RAQtMfHr3hfX0Ahinwc7L4QVJ8/2PVvFsAV85jUHD5hsIR72EZuEUnS 6KAOWT6h5dZmrHZ0EdGhwUaOHwaJKIVDzKqmRXTqDyS+rh8g/gUBaVPs "]], LineBox[CompressedData[" 1:eJwVV3c4Ff4Xtne2a3PvNUPWFeJ+Pp3shJQRkpVNFBFJJTMre4RUJFEpSqhU siKyStkrIxFRpL769fvrPOd5n/e8533/OM9zSG6Bhz3oaGhoqmlpaP5f27Z6 7CRFaOCsgXimfs00dnCp6KvToAFOd6Waw4rTuNp07xsOSxpwUZK8bFEyhd0k fWofxdFA1s6mwL9Fk7ip/VkawzoNOBooXiw6M45Fag7F23HRAqFS7rFbzhgO KpqNvKtAC3tFu64rPx3F5CBuP2tXWggMEk3HhBEcLepuWNpNC+pWj7mVOT/h EcZfupsLtGDJEXmEx/4j1lhJUTdjpIMalqK0ofJBPNP8RHJdlw7+KBhEXbP9 gA0C2Lf079CBVGD7VNZcPy60u76S20wHQUcm4k1t+/G63u65xXE62L6bN7zZ 3odLBZ0HMgn0YLuGjT7U92KGV9X3p6PpQcsnuOFeyjvsWGl8S6uYHvICMt9J 3urGj7JHCpIa6OHczzzP7aYu7O7LdJmySg/0Q08GrHne4hY+h+PRTgzQdXxx dXGtHUtsL9sPhjPAER2bgL067Th0PtpSMZsBVvfoXHsV24Zln99D/Z0McPOA XHyLYiuO86QVktrDCN45DR7SD17jMcsczjPWjJDBUju8V+w11tRVZOwMZIT9 X8ibcclNeJbL5ntQGSPMPCG+kAl/hY3qy9828TFBzZAMl8PfRnytBL0mqDDB VxZC4UH+Rvwzpa/e15QJTN1n922oPMdlbn/KeKOYoGnAV7rk7FPMzGEZ5bbM BCNNjQkFdnXYTs7hpSYrM6Rtcd+6ceMJrtBz/8smzQzHRBds+7/VYovwsMga e2YobM8XUyx4jHNmr4cztDCD5OM21q2dNXietrLu4zgzmJYnL5TkVWMd8ccb d7eYoWPrlFcwezUes3oTYqPKAuxmt99z/fcAy75aPVVWwAK+eY9oLorcx2Ej vx+crWWBY07VGTIa93DHBuOKRS8LhJ/8RgiwvosDlEUCNphYoX2NYrOrvALX Fuj5mgSxwoPZsoWU3NuY5YnZHbEUVpA9+13bb7IMO/TZzq/cZoU0utzGLNUy vM3i55k/ygompAuzu8dKsWFoptsXEzaoKnyg0BF0E+ekF91oPM4GSz92G4hO 38Dzd29PZJxng58mF3xLj9zAydNPnXQfsYE3I/n1Z7PreGy7pYjrHRsckK6c ar1ajFVFekamF9jAtLVa3aTkGh6wnHFIlmQH5RP6N+k7CrGs/3K+iw47yEww zw3MFeCw+M2PGjbskH0ozdaBowCLNXIcGU1kh8G/CTYvvPOxu+JuK+Wf7MBY 7sTyxScH1xrtzaDj4YD1DWG2A3XZmMVtf+8HRQ6oefl7/x/2bHw379jBC67/ cHeDhZqmTLxd45VqdY4DioYT5AJlMrHlu1Ndcrkc4LRoYzWTnIHXGeMO9Lzl AI5++6OnfNKxESktsXSOAzpEY3iNxtJwHvXqmzC6HXC0RNrF4kgapgbfNyZp 74Cv3dK/tipScfTEB/2gkh3wnalmC28n4rH6AyfCnu2AmZuMhgRKItbJfJlz /v0OeFkW8eHRict4xbBiIZGZEx4npN8sW4vHTpWRV0r8OGEm/8+qMo7FDTHf 6+7EcAJ9yXYNW1EMFnDymqoq4oR7DaZVsTQx+C33od3P3nGC0LAsGhy4hHVC pYcHKFxApa0tvVx1EecczGcYNuMC9tiQ579ULuJVeU7lSQ8uyBojlmh4X8Dl wxsXl3K5wPTb2CGW1EhM2Ncpy/SHC+q9zj2L33kWa+8gysexccMByd7+Dedw PBs+RGUV5AaBK4rlJoVhWM/qoCeXKjf8eHtNdkbmDP7FuKde1I0bCqTehpeF ncZlQWtd1wK4IUvOjLXuUzC2Hr83RYrghs1M956QvcH4QR2ZQz6LGwb10HaA UBB2khklVl7nBvknWso+Sacwe0bubuV73ODWsCSaQncKe/pxOGu0coOa+ctn 1b8CMf/H1uAnfdxA0aipTf0bgJsMohJ0xrlhNLy7doAjAItL/HwIm9ygI6Ze 1Ur1xwM94wzmCjzg6HPiUeVXb3wJXRXu0eSBxlZeFk15b6xaYa1spc8Dx4eF +Yp9vHBS9Jsj9o48MIGKXrj854G1V6L9R7x5IDJgTNDzoAeedcRRziE8oFF+ N6akzB3radZUeKTywOot8QQl9+N45eaJF/NXeWBgR2Tzrg43fI1LfsDvNg+8 3CYe7tNww7/mC/879ZIHdJZ4JyMEXfGDgjjL8995YFQm4GWcuBPu5Iub46Lh BWTMHpIhdAzPJsWev7GDF5ZO77uvLuaIxc7F3G2W5wUNq+HfIlQHrLUerW+r yQvKBzPjR4/Y48P+0UNz+rzwbOaU584IO5zgeImF3ZkXCHS+wt6DtrhkIKq4 0J8XyguaSJ+5bHGjWZSm8lle6OQnv/lrYYPXqRfdD2Xzgj3L7PzuCSvsIn7+ ZW4nLxxjff5TaP8hHJEdeWTnJ16YnSyi/fLAEufsiFxumOWFE3rBnb3ilvjt fxFiY7R8QBf+fCqCwwLPhUTUBHLxwdbfAxHTdOaYbvmsKa04HxQnKypo0plh 7bHwMGltPvCS1SoPETHFVrbhXLWGfGC6alI1oL4fB3SHlRlb8cHg1RwheisT XNp4ZsA3gA9ahXzCO+4YYe7iENWHpf/40VYvHSr0saJgSJteNR9ULjztPbel h42unHYaeMEHSXYqUfmWevjcheDkjSE+CKLG623t2IdzN4KkLs/zwcXjq/xj pwFXBwY1iPzkA0OJmqGNV3vxvPOpecTDD3p7up390hCm/3jywjsJfshdG9Ld iqViCcuTBFclftA5tcBUGaOLrSHQIMaYH54zuKehwj34JfHE9Y5Ifgi/b9BE VdLEw3n+Wo5J/P/uVUrXmNtu/JPbv3spjx/27FUjh17XwEq0fn+4H/EDHLKw ylWhYONw38ybr/iB9TTBuuqiOnZb9VHQeMcPTJ4bbR8H1XDepLfdkS/8cOeX oUpariqusff+Nr/xb55RycTpvyq4u9cr7iyjAJz82G1ybEgZMzR5PioiCsAk 5dxa5H0lHHjTnXvGVgBmF9I1q1rlcWp4fmHqcQEoKOv2V16Vw/ctu+X3nBQA BqFdXFVkOby8rbUv9bIAHNJi8+rNl8GcH/y7tHMEQPnquxnGcWm8694N++mb AjCQF2bgqiCN/Y+yB2k/E4D6lhWX5j4yTlaH7al2AWAKe/HJT4WM77KGJKa8 /4d7FmWFp5Pw4pOxm1PLAjBm+cdO0IOIffmr+5NJBOgrTLlSniSGExdnnbWU CTB2Xv2EVoYormgS/TqpQ4Ba3Q8F/DdE8MLJWAYtawI8XYpzLv8ghFlMGtIm XQigO2mTOPxHEMtLfhNLPkEA/V2G3LYKgti7y273ZBwBQgLXElWvCuCE0pRX SZkEOJJp+kVshB+XRzSZa14nwNtUa0cfaX48t1PJM6meAOSEX7MWbbzYM+5v zu6vBOiR/Xpp3JIbxx3TkJrYJMC37JNPbl3kwmUaPlWJjIKQY0ettPThxJ+n +trGJQRB7kRA+11bDszQwGydqCgI5+N/7XzlwI6l06kTGtqCYGTeye/ixYbd 95ZtXj4kCEe9mkck8llwDGE4RsNJEGRNgPj4OTMuXeLiGfcVBIkpteymBSY8 XRC+UyNGECweB2QaH2HEbptmDmO1gjBt/9YhIYoOX3oXNZvwWhDs05IjjgzT 4ptltUGUHkFg9tuO/qhDiyetiUkJC4JQ7dnPoMJGg2mUbAQpPwWh3k899uDa NiLSJ5aM0glBpKB+jdrIf8jl4dpTdTEhEB9hSwnp+I0uJsibjMoLAZsDfqvx bgtddz42EL9bCEwb/eqKR36h8R1tX0cshODWxWA5S+5N5OR7VTw+SgicXKOk YvvX0e9PrN2rKUKQovoqsVR4HeXtDz/veFUIiniqE4U911CvvN24Wo0QCJ4P cVHm+Y4C8tquFL4QgttPB5O8AlcRG4sWML8Vgqzv1uPy/SvIYE7gxsiMEGjI ZP/ktvmGJmxjDxmvCsHBR0xX83WXUWTrOm31f0IQ3PgsqkNxCdXe6neLJwjD rfEXV0fkFtFO93RpdRNhwHcq1+zi5lBrP837QmthmJ5YvV/2cBa56Z+MZXYV BkXDEFPzmc+okHxwdiRcGPxbW0/ecZpB2hmNOcZxwqDG2mkye2savadVNq7O EIbLs5/CE9emEOckR3l8pTA83y/wWunGJKq0PGf3/Ykw/H5DtXhFM4lMXi6y HGsWBla111sLHhMoqrjDR31UGF5lhiUFXBxD68cSFEc5ReB46+0Dlc5DKK1r Y9hYVASIcZI3ZAM+oV3IK7laTgQyZ7P8CLEfkaeY0VI8iMC7zaJ7uzo/IPrk x0XfzUSgXX3Rvf3Xe3T9t7TFMXsR6PbQnn+u8h59GqKvUg8SgbYfERt1D/pR qGmwc9F5EfC7+Oeu/u8+xNswxcWSJAI6zTROFLM+ZJb/6uRoiQjwRyazu9H0 osYjF9QT3v/bT/5qaJJdFzratjz1fVIE2PdrPPc0eYs2NZ0yjy2LgH25yd6F fZ1IjYDW1ZlFIcNWnTHN8g3qjr1bWsQnCovdHuE8Hu3I94eoDQtRFLwDc+zX o9pQ6cDW41FtUWiIPIZr+1sQGPh6mhiKwp/DTiHMLC1otOYToeaQKHw7NX74 mn4zImTWnUnwFYXV7wHKBe+a0OVDoXsohaKQk0Wtp2q8RBlvFfzv3hEFzVQ+ 8huJF6jQePyazBNR2G1Vtro8+Rw9QCYMQn2ikHuvYPBt8lPUUPdHM31cFKII BMe84AbUTHnow7YkCk4hlfEuHvXo406Rd3+YxWBcMfYu1fsJmvr37IUKiAGN xbczsWG16KtktMY3shjoRIgbamQ8RjSEr/mTSAwueLWx2k7UIHm6RvfWYDGg /cip6j72AKlHBuXujRKDYpU64UjVB4i6KdtRlyoGr/sOiMzxViHL5SsqlXfE oBA5dg0W3UUOPgZu0k/EoJ/swj8cUoncZzaziprFAH5bM+bZV6AzQ65bV8bF YM1ZLvWUXjm6aEPYxbokBnQRTkerjW6jxJ4O50tbYuDykGZx3boMXWultJwW EAc/+jG19ZRS1FrNmGZ/QBzOTai6DHndQD27Gpr67MShyMvnI3v1dTRUHvDj gKc4ZIzf346mv46Wrw064ChxGI6XYrAILUKbwskpT1LFIaeRRyttXyGiy4aX qoXiYFT7x1xbuAARku7ISD35p6c/E9i5mIeITE52hc3i8Jn04kfH51ykEMWb JNAnDqphAVt2X3IQPhOxwrwkDhEZ5zvCebKRx3Hzp1/JEvC8IXxOvCsdBYzR LnuoSoA50/upV9zpKMy+ljiOJMBMi66f1TENJR+UjOu1k4CdTt50JdypKKej v87UUwK+V63YRPYmo+uGCYuvgyXAS9Cm27o4CT3SXbWsTZUA/TD5O0vOl1Fj 7a1olUIJeGCxzf74UAJqV3OoLb8jAfZa9GqxFvFoRO61aEGzBHT1br+54BWL GPizZy9sSYBmlcSpFPZLiHf5PCcvsySc7Ne4NWIbhUjt3pqlfJLA/DQdid25 iPA5aly7kiTcv9Ax39p0Hpnbyt532CMJc9Fd8p9SIpGjKveHr4aSIH3w22iv +zkUPjMtw+MsCbVWjufua5xFCY1d5iV+knDuZcS7OqVwlJP3JGR3mCTc/NQm /lM5DD0yS2qxT5eED6LHw6MsQ9HyI3WPm68lwc+zxnj+vyD0X6pYikaPJNyW 2SKcQ0GIw4fpceuIJBxQUf2cGHMK7RQfYlj8IQlGAynMm3InUeFv1xxMS4Ti P4THecyBqGTetiKemQjRXO3fON+eQNVN0CfMT4QfbZI7g8P9UH3V7lk3ESJY NB3cd9rVF70sVNiqJBLB+K5/h7e1D3oXyk/Gu4igwrzQGmXvhb4qzJ9yMyKC PJMd+db742hdcDS20owILncmVG3YjqPfDH3564eJcK/40C5GYzfENv70VZwz ETz4zl5SHHRBPG8fvH/n8U+vsSGWQ8EFCdXfWhDyJ8KdR/LysczOSC7zCk9l GBE69hsU62U7IuWLMTLr54nws/eBbFbAUaR5InwPiiXCburP51esHJCB8XHX d+lEqIyO2F+P7ZDbb82HaxVEsB5QblVLtUY+84ot1IdEiKh4dY2z3gqdfE/8 FPuECM/Y4wW8vx5GF6rYaIWaibDy480+8DuE4gr/8rt2/NOPuPBAotYSpV5e l6/oIQLVRve7NoslKjw+ZkkdJUL1sKYF3SVzVGrZ7x47TYS/J7jVzSzMUCVq D+teIEJCGrf5guwB1CBYfd3lJxFaZA4cUfttggY7Y1diuEiwOyIyJkHKEGXh IkMbAgn2VxbRFFMM0OGHj67KiJOgyUopTtFCH3XnTBu0KpCgd7P90sT1fSiZ 9Xd+jhoJ8mdSm9Q+AjI9x/vNU5sE2dtWe0yFALW67stnNiIBp23hQqkbQjED dsuDZiSY60qXF+GjIj3jk/rlViToEjfNNenTQY1KxUsmriRo/rh92/ysNjpX XKsn7E0CScf+hDVXLaTD2527EEACxRd34ldsNFHtxp99iedIwBLxab7PRQOd 9uXPdYgmQZ3HCcG6UApSH1X8qpBIAgcR5ui1HHV0v8khpzOXBJAyHF62ror8 dwctFlwjgQTT+ddGaqpIofwy+N8iQayV70uxJWVUllL3haOGBPyP/LIVKUrI naZn72g9CXz82Gr2LSkgcvBc1r2XJND/Ld3V93gnumZH2GvRTQLBlmD+z4Fy yLFzV5bEexIctS2Z1XSRRSLYcGF5mASHaQP8Sx1lUI7U6cwrC//8To9v1Z2R QtY5SfPOKyS49XAszzWbjHhZS5Dqxj9/h2Ty5Z+TUOpy71wPAxksDhvyHtxJ RGauC9Qb7GT4tL8kr/qTBGIboMk4xUuGVs1mhvunxFFcvQqVl0gGkRnTbM9e EWSgZJw+JUuGGJvdZxpzhRFdsdNs9S4yvJy6KaruL4TOx6SkWemSYauW32ad SkDUjdLPUnpk4CEn9gtqC6Atn2c66yZkuJqVfphmLz8KPbg4k2VLhhusR3dy BfAijSY6HY9j//ovS/q62Tzou4bIld3uZAAHGy+tVm4UILJ/z4dTZPhWmhDa Ec+JlFJcUsvCyODPQHc0SXIH+vL3zHToBTJ460/ElLWxI8/PZSmCKWTIt6oY YTZiRdJ2jVNzmWSQSU86vCLCgqY63mvVXSXDvhfEr6H/MSGnBwxTduVkKFf3 SlufZ0BiUmJaO6vIcC3FLr5thR4NZVOSfz0mQzCn3Odv9PTIJsJN8+prMigq LX6lmtKinCJ+po03//Ko0kevL9OgDy9a31v1kOF6/rI3d8lfqi2DYsiOUTJ4 sTMUDq/8oQ6aXOFvWyDDn/Gzh2+GbVHtUtZqLv4kA63EPuW83ZvUj71HrHTo paBR5faEtdRPqj3h2fc1LikgFIPsW7ROHXIgZtwTk4Ira2buRlHfqQ7FMWpe O6UgglZ52P7LCnV4er6HqCkF/dUtze2Ly1RHefOTQ3pSYKP13Ihd7yt1xP8h V9ZBKbh85nUGpW+BeuyhQJW5oxR4pYbp+OTOUcd+hFsw+0hBYRmZVSflM9VJ Z2zpZYgUMBo8qE+vmqaOn9dLOXtJClYVx22qtyapLq/LlDSuSIHkFVO1XX4T VDezQL/b5VKwXNNh3eA8TD3+XqtCpEkKmHX/O/2l+wPV3YlmIWVYCqadDNVv bfdRPefa5Wh//ON/rxrWLH5H9T6Z7nmaUxo4xkYvMx/soPr8sr81JycNZ4fe RlybaKFWiHKEGChLw8zx1NDe6WbqF9RocENDGi6smxsYfn9N9b1EnnHYJw37 C9X0fys3Uf3ZF8ndDtIwzuGTq67ZSF0Mb2Bgd5UGxVAt6e3RZ1Tf+cuzxl7S cMipO+dz1lOqV4t8xatgaZgmPZk8taue6nbBU+1xsjREexxhnN58RLVfm9xb 2CgNax73vjVy3aN+dH1I+tQsDTRdHiyGryqptj0X6Qmd0tD/yol0I6qCan1P su3KoDScjxjkMFUqp1p6HbOIXpGGktAV3lmhUqrR8EdHX7IMjAf/fna4sYDa sr8c35aXAdkDJk87I65SDerOEGeUZeDJZVbWeuN86r5swswxXRnwcDM86cOS S6UetPY7ZC0DWvl3epbEMqnqr9+Fa8fJAN3AJY1xk0SqZGVrDtMXGdj3uH6k ozaMal1cV9+xIgNuLcYeKeFnqImZFSOpGzLw0UpBktEslLoekUoWZJSFS2Im uezip6kdZrb35YiywDvRfFHd8SQ1dPlzi4mtLCiZZEUUFHpQu9QYfyQ2ycKB dZpv7E8PUyPq9K24CuQg4Yxu/6K7IvVkmX+tpspOoPvzzHClekKXg07LTfmz AtQvHf8Zv5Coa3jCOlshUwlaW/TJouIaukL14oGG0sqgtutF4HnWSZ2MoIR0 1UEVkBHIJkdfuKRzOO7grqJaVTjokl0wLSano3A0xqY0Ug2mIwJY7xZ17vkw y3oz00YdpIcO9d6Ndd/T7fZ5H68kBVhKzMtmeOj2TDLc3swmU8BtZ9XG+gua Petl3lXCshSIrrdqEd/xV1t4cVGMtIsCqnHe7e/vbmm7B3/fUNGlwPRDTVP3 e2vaW9F/75kfocCxSw0kY5fP2rK3hEUuX6HAvla2cQf2N9p7jId7ODIpgO/p ifeptGmbLRTGp+VQQKTr2DX7My3ap3YRf+QWUcBqx+v6KI8m7WePZXvKKinA M802doPuqfbhVkpccxsF5DsGXYO47ml7eP+gmnRSYIjxfUDUdIV2GNuTtc5u Chzq7ro4NlGuXWSh49r/ngKZr6V4Ew7c0p7/ANSpaQpcPbA+3K1arL0VRrfm MUeB3jNs6VOfCrV3iDbfWfhCAdOpS2PXq65qqzsbC66uUmDy41au2ECOtiEt a/fpHxSw/Dt/cFUsW9uupCNmc5MCr75+8ciJy9T2NUzWPfeHAh+XAwcLODO0 I+fMv//9S4E8CWLti+o07f8BvAn92A== "]]}, Annotation[#, "Charting`Private`Tag$264854#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVl3c81f8Xx5FZsl372nSvdYdSX3KEhhHKLGSGiIwIKSokSWVmJLJHqKx7 pXvKKuprVCizhdJXpUnD7/7++jyej/N4Px7nnNf7dc77o+x9ZO9BLg4ODlNO Do7/f0/M7V5aXaVjjkSU6KYgaZg9Tvg2/pvN41+WsFkabESmf7Qu0/GaF+Ez kVMGlLaE/jnyhY5lWgsP3PJl4H5qBv/MLB0dc/KK5EdlgV93lIiP6bjB4s63 68cVIOz+NeXCPjp2n/VMPfRUAV44BahF99JR8ZxTjqYuEWrjl0mUe3QU/dU9 k/mGCDZDchuLm+jo1heRyNBVgqyjnlYJBXSsMShV6EFl+MNPsnG7Qkc7nayJ E9+Uwe/qZ7vN2XTU/Enc2ENWAYOe006f0unIq6BrJ5SrAi+kyr08T9PRhtyj VhalCkrt746ZHKJjZ0qUHsVeHWo5I8o4DOhI6aeKdqaRYLN9DW8enY5nJkeE WRMk6Cl7GUClsONDwwYlOmSY2Wmn402io9pWhT3Kw2QgpOu0dMrRMTj46txe DW04LTvfm8xBxzmdmg9Ff3RB5LAiWfEPDT00/UIV3fXgaodTWusyDcctOxk3 OvSgzbPbbn6JhoOZliqrJhT4r+L6c4u3NPSKWU2eXEcFF7r7gmAfDVtUjl1d 20GD2cSs3eU9NEwrrJma+kaDiJH+hq2dNAz6nVFup0eH9Jh/jobcoeHaVM9R sTI6dLKk/gzU07BG/9WqUbY+6FoPC2Vm0jBR37cgLXcT8BzcSZNxp6F7LLP7 naYhDB+gOi/so6Hah+PKtuGGUOQiF9fhRMN1SncKgzsMYZP1x24vOxrelSTt mnA0Aj967r4aMxpmMZ8duXFxKzzgnEswJNNw2NBx8y4JE8j6NVi+XpOGTYYz n8rBBDy/MfumVWk4ljCYHhxkAsvz6RKJCjS0XhPDbdxlAuTBTVWPRGi4fEf5 0+/YbZBWlDzg/oOKvXF2DfjHFFyuhH7V+0pF4mZRSTLFDNQy9stwfaaif9Zj Q0EfM+hI0vWpeE9F23K+duM+M1g8PPJ9cZKKM4dkfaOLzMHOUIOY0EXFo7Vi SyoeO0B8rPvw9ctUDDGxmRreZQmoVZKSmE7Fuk29BnznLeFwfFyZ33kqriX4 fh98bAk9GvQJchIVP8WWbyA5WkFsZLHV7WgqPjZI9BcMsoZXYsfJXR5UJDtc IZY12cBFP6cdFW5U3LBm7BeDwxaMmFTvlH1UNAvKkYvebQs5XvN51vZUjCQO EpbmbcGy0VHg2Q4qKpPzeTmy7ODWbsr8Wx0qftvUqTv0eg94lKzjfkCmonZq 0L5A4b0g+G1WsUaTnS/HuW9ehnvBr/Cqc4gy+3z9xMYjWXtBdmFt73cJKn5M 8/wqYWUPp1PelvP9puCfIn83Ur8D7O3M9yH1UVDqW2pEspwLqD19M9XbQ8HK rmtPVPe5wPc3uvv9OimY7hbxySrXBfJ4O+1K71BQ2PVcsInkPpixWNiq0EBB zlda8qNS+yF40FBaNIuCrj44VbbZDYxfJmU2XKKg0LFg58B4NxBZGhCyuUBB z8m/rv09btAk7stzPpmCcbXmQb7O7rDilLbEHUPBbxVORaIJByBlcuLRT3cK Fvl5W5GjPWH/osau3P3sOJhdqCv2BO3V0M6NzhS8tOxQmfTQEwaUeJjhdhSc 1J9iGct7AcFXp/KDKQVzG2zJk91eUPr+xKkZTQrOKzCs9pJ94PjHrYcvvdbD GO7GDceN/KDQy2DeZFIPydsZhMRgP7jzhOL7eUQPC1YzVN4X+cHfVlW3vX16 6ERTvTfA5Q+nEwSsJW7qoUx3cZjIgD+kij7TunJSD0/qWc28jjkE+fTDC9dk 9PCIedqBR/LB0F5+0N9OXA+jmdLpF/cHw4SUx2uO9Xo4/NZC6f6VYCD+3jPu xaGHA5TgoWOEELjeZdCvOqeL+HKb8SapI1DtuKa2skkXVwtcisxyQ6HtWH5g g60uippJbPKbCAcV37DysV26qLYyUyzCGwEX7HbNcJrqIpk2qMxPiQBv0ndH B31ddj2VfDOJEbBufM+2ZWld9L6bOmZMOwoHjAWkzV7p4Kanb/okCiNhDU90 98hRHSz4seHmuoZoCPlsw8ERooPXJSK0NV5Hw9ikuiHJXwdnQu+JF0jFQF3L k8bj+3SQUuQ6ln0qBpwC9AqVjHVwiK4pO74vFqr6Z8MD+XRwy4Wl8jXycWCT 4aj0N08bfQLConrexUMsTdhiZ6Y2bndpVA6USICK4Qdhl9K0Mf3zG3VV/QT4 K2bUqRKvjddsU+21jybAjUwVv52+2qj1d/xp8fcEEMz+WHtJVxtfuP5335jn NPTlnjNQ7dTC/DP/FtdZJsJ3AzPPw3e0MDc3pHEsNBFUxn6nNDdrYWFyAGFr biLESoe+2FmlhZIu82UNbxKBlOd04vAFLbyXKcyx7XQSpOSrdjY7a+HbsJie rQ+SYefVDptdH8jo+5qncSrhHHy6MPGbe5aM5030Vd1rz0H+yV8196bJiCeo CaIj5+CDxxY+wydkNCmQOSmvnQoZKs0sHSYZz47+0WK9SIWpyjqKeAoZ+Vvj muxN0yDqVoHYlCoZB7vHn14yvAhKpUzMVyBj/5dblwWCL8LDzOchzlJkTKvS WW0vugjykVL9g2vJuGjxh+TPeQnuG2Se6fxMQvN++sgzv0sg1JH6tYpFQjXt jbp6BpehojdmJMKVhM7npBjExQzIo0WZVTuQcCWvgfVFMBPSroY3Tu0m4cFK 8rYPWpkQHhGUamFCwq6blImdgZmwVdHdWFGdhNe62o/VzGfC0yiTir7FDVhu U5Gu9iELuDT4opRPb8CrpA0TUkK5cCAxS3KgShMJP8kCLncL4F/4zhd9XRP5 bM7vSnxdAPDLeUWpUBONq46mD/AXglK43HT4RU3sf6mxrtO+EF55XK8iRGmi FFdtl/xCIfgZNhoeMNPEV6PFGhmKRRCy1O/136QG+jWd1cqxLYaTnmvq14lr 4LCr00LNynXg0FFkmSWp4cn9I2EXe6vgxfm8s7XPVFBPsFRO91oDyK8NqP5q qoznBJa85Xluw4G7j9JUjJRx57X5+lKx21ASTg2126iMXuSJbnWl26AxvrKp TlMZi1IFl2QMb4Ne3YUuH0FlFOfpvcgKvQ2mNrenh58p4Yhr9sb3L27DoYy/ kjcDlPAZ7zk/4ZomqNvhszzlpYTc21aFsKUJFld6JwRdlXCxlutQQGcThPtc Lg3YrYRriY/+vTbRBHH6alQlmhI6fqLXVwg1A/FG5hXiD0Vcf79l42poMwRt JPOMyyvijX30hxTdFgjnYVRGCSviKbtH1eFbWiD22U5LMS5F/L1H4Gq1eQuk Rh68aDFHxN0le72/72+BmuZimbabRDzU4vaL/2wLvNsopZu9g4gFNe7U1YkW 8N/E7WwbqoD58Qz3vPhWCOHNXH7vrYCmBdMX7c+1QtSIcmGyowLaXl4lc2S2 QnIUvOz4RwHHVwWsKRWtUNESG6TNo4D/zVutf9/fCm83fY4XyJdHO8fvMbck 2sDHYKqqs1MOmZH/ZIgXtIFflYHTjlY5nFs86hpyvQ0CZS6veVgjh/sZj2zb q9sg9JfZgX8vyyFXaOoZrbY2iGNViz/3YMdlbYt9nrZB1s7Ik4u/ZDF6LnK7 5loG5Lb9qxX2URY37+nPKhJhQD5pw/Mvr2RRNvOtCZ8UA4rXjdOXH8pi2GVa fJ0qA24MmLxbc0UW8ZjDru1GDOhxFnSQ0ZfFLM/BNRWBDHj44CBnoaYs+jcQ GnRCGfBoC6ueKCeLk7EUropIBgzLhQuocckiBNhHBSQwYHp69K7uoAxKj5XG 0LMZ8NO/lGR+WAZP+Xf4PG9nwK+x3yM9HjLoOOY074cM+GvhlGhhL4Px5yOO v+liALe2wLTNPzJ4TOVFTcNjBoh+Csnaxy+DSZHO5klTDCBH/7MaUiaNPx80 H9X4wwCctCG/zpFGA737gn84mOBk5uPofE4ae9fQ9iA3E04LpdVCiDSemqR2 CAoy4XnZpLPIZmkker41uiPDhJC1S6cTydJIzhLf+0OeCdyhvPU/5aVxdmTl CVGJCRRDPe6XnNKYuXCAk67BhJShhMab/VJI8hEzP0JlAtEge1z9rhSurw9c FdRnQlNhNW9+oxS6Jw0t5Wxiwoz/sNvpbCk8MdEVeMSQCVGPZ89+PyuFphXG bzq2MkGQ/utWYKwUZjNL4n8CEwz+qgrYe0jhgvIiH82cCY98Nuv37pHCgy06 C5QdTPB+aO1haC7Ffp+vmZTbxYT0rMhmVZIUFtcJjzdbMUFt5dxMrpwUXpXj n/bdzQSmR9E6QSEpfF4l83LVhgmz5F6vr0sEzFzmGFrew4S4S+NpAW8JaBPP 0+ZizwSx7x9bJ0YJeP9ewsVSByZUuXK/tusj4FRDnMMLRyYY35MW6r5DwHlF KvcfJyY81dDZsqWBgFov1hSuc2FCYNo23xslBHx+PUWGdx8TOJYcLypnEXC/ 2anYD2zOdg5kZicTcChj8s7d/Uwgd5x8KxBDQJ6T7VNxrkxAlUyRk0Hs/IT8 pzTc2HqmVBouuRMwNGw/8w6bP/zX7udnR8C231vDjN3Z+toPXn5hSsBB/XnO OjZLM97csdlIwJeD7kE8B5hQT1yeu69JwKS7Q3WWbDZPXC9uIEvABbXy7uNs fvFO2bhWkIAb/P2br7A51HbTIcVVSZxVHzlewmbeZsuszM+SGGkyKZ3D5gJZ DxbfG0n8+zQnLYrNlISI98dHJFHbxGrUlM09b89KfnogiVLyYcsr7HzcrApN fNsl8YTxjS9FbF5qbAwauyGJe1qGe3TZnELozrEulsTkB68iatj1EeOe38MM SbT+IPhblM1NL//7oJ8kiRE99Z4H2f2x3MklXX1MEi3VHErL2P2bqSOYKQRK Yv63lu4Bdn+jxLRCLrtJovIO1sNZth4lk/ZdMdsk0ejLjvgxtl60N7SVp/qS +Fi0zKOXrWfXe1EKZYMkvrhCvFfG1nv2x0DBrJAkbj9zTURrLxOO/a0f2sYl iRkPc9Y8tWMCP08639VvEvhQ58KpIFu2fmLWEfYTEigQM0rys2ZCu7RWdf2A BFbq0PY/tGSCteLaaYFOCYSzecpyFmy/aT+wxGoJTD4ufSZ1OxNu7TBX0Tkm gVauWj+usP1gtlvVJSVQAl/dst4exvbLU3uu9NfuEpjWLmSxeQsTvnvicp65 BIZetzyTwfab4XGjIV4xCeThW9wRTWb75ZQcnzePBNocCOvu0WTCgZQVo46f 4nh3pkmJW50JCdltVRHT4hg3kH7GSpFdf4N+wkydONL/OVi4XpwJji3iLYbF 4kg6/rTkiTC7H3eWFnIyxbHeN/12Cnt+8Pc1Ou+OFcfsX0T2pWXC7jfaesyd 4vh+Lj3H9wcDRqTVpzJfiWGHXNJs6igD/BW5JT4+E0OvaR++7U/Y81D9tYXl QzE85gV1i/8yQJZe0szRKIan57aUifQw4MBuhQvBJ8Sw7hfN/NJtBsydkjTa KS2GDkv+XsnnGbD2RMPHzLViaEn00O9PYoButEXpzG9RNLbm8/gTz4CokBNr Y1+KYrva2CfSUQbwur4dq6sRxekQ26RyVwao6TdHim0VxQt7k9/TNBmwS8+W 5KEniutrPz62V2LAYfK7iVplUdwn2vDJW4YBTUoK5tt5RfEx93669ToGmK1P EoseEMFtrrlHrBfbwHvWoWHSSwS9D0xbid1sg+SXi95kBxGMSWoeIbL3V81E CuHYDhH8FPbkhmxJGywN3zkhoiWCdu1TKTOX2oAr3uJK8rwwe/5rf6440gZA fTe0Z70w9l6NXdAltwEze8P2eaf1eHM8oquJvW/5Xed8OI3WY0ILyfgvex87 KVWcllVejz94+jn+SWiFpRpVtF4QRMLbM7dSDrcCCYmGN+MFsZEjjT/JvBWu vJegxlatw8cx2/rWLbVAJHAqCK4I4PuBiJ9zZi1Aeff8q95VXgwe+JRwr7cJ zJnjAn+cODBtdpfL19s3IbS64aeo+BdWsnyl7eZDdUARCjljOrPEMvl6Yu8e 2zr4HK4tFHFjiRUQ3fArZGMdhBtVqz7ducRyb/7CbOOsg8iB6zY5cZ9Z9b9j tpzLr4Uv77UsNj76yNrm3CS/+XEN8J75Wbwj/B3LZDjkWpZBNZy1jmypFHzH cnPzzoglVgM/Yamfv3KedVb9dEMATzWsrV743jc+xwpxk/rX/UkVCA9MWdtu n2UZ3xRzqz9SBdJy3T+dpV+zlNOLtP5WV4KTn2rJcNxz1vV2c4tf6hWQGhaR ktE8xursy25NE6qAjrjOI3sXR1njxpfubvhRDmqZPsbDHiOs0TzhVwkPymGJ VTo+ZPqENXeBevZ2UDkQ6bu0r4v2sQqJC2toTWWQZDG/onzmAUtgdN2ZyKtl 7P+BlIclX3tYUl8vt3QllwEz7YFfyWgnS9hpQ1zyvjK48eiy6TbDdtbSBK9p 3mopHF8emjYhtrEUepfVjd6VgoWG2AkTzmbWze6XRgvDpdC/qnYkPv0GS/jv MIRUlELAvvLqkw6VLPW8XAvTS6XAfVv9zQnZEtZvmQf3VGJLwUTGeusKZrOO NU+0CPuWQkrPyqCLYiqL65pmdr1DKfwPcQOL7Q== "]], LineBox[CompressedData[" 1:eJwBgQJ+/SFib1JlAgAAACcAAAACAAAAiMb60Fgfij+3uCYhnsq/P94Zse4L D5w/tl9ZuN6evz9TM9i8hkGkP8eD7q6ier8/ttlXgod7qj8gkSbre1a/Pw3A 6yPEWrA/YAgxg2oyvz9xZmvpxJS2P1s1LR6I6r4/ojkrTMWxuT+aKDBMt8a+ P9QM667Fzrw/mCsoLPyivj+cWTU6Y4TBPzn0PVXHW74/AAC1/2O+xz89Em6E Zc69P5npFDHkTMk/oiZZfESrvT8y03RiZNvKPwfBDcY5iL0/ZKY0xWT4zT/Q mdmZZ0K9P2QmWsUyGdI/XI3VQdK3vD/HzNmKM1PYP19Ku7Typrs/aHjax1sr 2T/k1VENZIK7Pwgk2wSEA9o//e+C6vBduz9Ke9x+1LPbP6W2sn1dFbs/zCnf cnUU3z/GPBQBhIW6P2hDcq3b6uI/4gGeLRVruT9soHeVHazpP6gIRTisS7c/ PPb3szEY6j8UDD4hrCq3PwxMeNJFhOo/Zj+IRMkJtz+t93gPblzrP+59UFtb yLY/7k56ib4M7T8551mh30a2P7h+vr6vNvA/IPbTT25JtT86LcGyUJfzP25/ IuPCZLM/NdTWlr7J8z8/9ujZaEmzPzB77Hos/PM/B1ggsCgusz8myRdDCGH0 P4VjcPj197I/E2Vu078q9T/jcIHcxoyyP+ycG/QuvvY/AsgrcEC7sT+fDHY1 DeX5PwLfrfl8K7A/mrOLGXsX+j8MyEYfWhOwP5Zaof3oSfo/aK59bKH2rz+M qMzFxK76P6574z0Ul68/eEQjVnx4+z8hggpCWtquP1J80HbrC/0/2RTNJVtq rT9zCl5Owcv/P5eCGZsyBqs/u9E2LA== "]], LineBox[CompressedData[" 1:eJwVVnc4F+4XtUpm9pa912cYUZ/3vYlKE9l7y8ge+YoyI7KjkBTZRaiUkiiK klkZISuErDLLr99f97nPvfc855w/7nPEHLwNnWmoqKjeU1NR/b+2bnaaiQhQ gej5NfroB2XYwq6su06VCtzpQ00JkWW4+jh+x6xPBduSNy2Hjcqwg4jb49pY KnjLyFw5uVmKm94+T6FbpYK2MyFueXqlOErQSbewgxpumKoZ5y0VY7pX1Q/G o2ihUs+0dMP9HrYqP3pP4zYt8D2marDQuYdrrw/lJDyjBfVtPYYl4XvYyX13 PHmJFoYydB4+7yrEbzgtHKNs6KDvhZbm+wOFONaFmk9Ccxccy6lnKucvwPTM +hEOC7vhckV1n9FWPjaTsWhUZ6AH6bem1iWD+bhM22mHUZIejn8w9pR/no9P h1wIqzGnh30DrZefhuXjzKn8ELo39ND3Ul50hyYfS79a8i3K2QPBUgvXGBTz sG5QusPsMUZ4nx3AWvM0G2em3rrT4MgIL5NPvLSOycbTFcWjaeGMsEdpUtnS IBsnjtfbHKhlhCdoZ+3k7E3cqz9hkSjCBJ8KzszTiN7ETgpqZ5V/M4GPdxCH V3YWjhr9dNivgAWOXXNVnX+bgYefnjh/4TkL6Ha6csrcycBa6Y2Z4X0scEGp t+Z2SAZe1C2buUrPCmve4VInFTKwTXlYcoEHK6hdMj5yNTUdawVJDvaS94Lu 2FKIrVsa3til+VTQgQ0omtyTKTopuMhv5UOeFxvI7yvN3ieZgo1G7o+JhbKB m9JMxhhtCq6qE2eWzWADrnOKOXxxydjFg9lWtYUNqIybxF5eS8K9nSN0p+TZ 4cXb8vSsikRclROrH77MDjrrfIMzqvG4nTP2+14qDqiMNSwjbcfhqYSY8Dss HEA7eJlnujkOC12MrngtywEXfx47kWkUh+OsIvcw2XIAd3j95MJ/V7CdcHhj Vvu/eSzl9J7BGBx6PcxUrp8DzAeFw7tKYnAmS9jCsykOePiT8/qfoBj8/k+o 0DA1J9RoMgte5IrB+4dDLkju5wQL2kFuGqNozHY7kPCwkBP8b2oMVE5EYgXe wFbtak4oytFNt6+LxEeSA2x6X3LCaOT4mmdiJL54yT9xbYATcHBxbJJaJJ62 9Z2msHNBV4STwnxCBG4UPZ/fFsYFBYtRvbeOXcbed53YJky4YUjFqF5qOxQn hdzMTXLkhqSuMU7H56H4gX6HrKYPN6jujTcQCQvFC381DiXFcwNv985RdqpQ 7GnJ5Lf/OTcQCtHEa6b/sDtXdU+iGA+kl4XX1WtewFd/TNlqKPPArz2ze+Kp L+CyJsG5b1o8kPo+rPPtu2A84xNDp2HEAyfI3q25lsH43AcztW+xPGAydD4j IjoIu8TuZKrN8YBvn0dQzmwAjrVWlRhd5wFVnKS9/2kALlJ1q7y6ixfUgpeW DsQF4Mmx7taRfbwQfFSHHCgTgJ1w0Xq8AS8clGf/k+Pujx3WT1oMP+aFAMer FhK0ftjGPVv4SgQfBNrddeFe8sJb/QwdS9f44KZj8JHlIi98Qy8k3CqbD3zl 9h09b+2Fu2TNRog1fLA3wUxD8/15rPOd+87QBB8M+Ab/ZXjoieWcUiVJx/hB TIVscyvTHbf0UPXlGvHDUjL09Ru7Y4fDPjH09vxQ1PT7eAG3O84VPzM1FMIP jvf4hfsz3TDrN+aSK+X8cPwHJ1/t7XN41TpO4SurAFRH2a/rtbnglA9rg0cF BeBUIU/PcKoLVqK4JlbLCIAG1+z2orkLdhE6Mn8FBMBU51BU/A9n3D9AW0ny EwC+Ico1Xy5n3GB6iRTXJwBSIu33zl50xPEGQZrkXEHQDcgqM8mzw2nv5T0r SgXB9EPnzlEfO5x7dCRP6okgvLqSe79C2w5XUY7R8XULgleiyOkbXbb4i5zA x216IdARsN1OCbDBsjQNTi3+QuD6kNeidcwSk8L8snCEENzwmegiZFjig+vS bXVJQlDabC/ueMQS6y8kq5SXCkGBhf1xwfsWOHjAfjN5RAjk36SdLY0yxy3V u1LMTwjDp76Xl5vPmuJOpWdN3WbC4Hpo/f4CmykeKPH6dcJFGDi+N3K87TDB C3mfLVCEMMyJX9S9dNIE8ySUSkk8EYZaN6ojvWeMsbPjqfo58X1AXeUw+y7g LKbjuj51aXMfZHc091Mp62OOhXBWDnoRoD3m9O4stT4We3tOvZBTBFgbfQxU ys5gdPFg7FtFEdCJIVwa2jqNQybGpdhtRcBSQ3whqPQUXqglOd9tFgEtrsON NIon8J8koWuqnSLQ9IrOcXTkOGZ22/2oZUgEZpsPf4nIOI7lhAfofvwSAcOg d2QGquO4ugm6+blEwfpT/6GNkWN4Tn7a1+GIKCSuJllOvTqCV3m/xpSfFIXC j2ed1CKO4C267purhqKQdftJmdKhI5hxpP5VrK0oRELXc85mXSyTnsxefkEU zvz8cyChQwc7bKk/XCkThaltwsAgzWH8uT1mMXqvGASPMPJeeoBxBrqla8wj BmzfhjuEj2Ns+LA2W0pYDFxfBpaMTSHckTmu0yIvBqXfNLK6JRBusT90k/6I GFQWjLaslR3Ej9e2D129KAYHQ79vdP7QxAHuXFkWUWJAfBcg5X9DE5O+KszJ XxX793+lv7Ec0cQPmiwy27PEYPu8T7x44X5cdK1ulrlGDAiZ6Rcve2jgTImA 9OQZMQjqzm/5JqmGjTITpm0XxaDZiv7O8Igq5mAooBDWxKDnOsO7ipx/X2Gh 63snnTiw97ds1XCr4tinKgc5RMXBudF9VYWTjIPO/JjIMBGHu+uP/uwQiVi1 iUbL2Voc6jsGhFg3CHhZVSBZzUkcYgzEB9obCdhLQE/zk684mOheCTxtSMAu k0XXeK+Jw4W4YqOgTWVsHOqgnt0sDmkVNvHkMQWceYtr99o7cQhI/ZpZfVUB f3rZ0ne2UxyGJ5rGiaoK2IROIZDl6z+84a1w6avy2OzaSs3l3+LQUPdq/dYh OWxxO5roKicBDOKHXBOHpHH2K3Xq1yoSQNWSoj+QLo0Hx6c7RdUlQIgYa0p1 UhpbyZ7yGdCWAOEtu9j2Bils/ZC78pSVBKxtUguKPJDEds1FiqrJElAxK/O4 +6E4zp802065LgF1W7PGNwPF8Td6pvfzORKw/YKxgltLHDuc9PYoLpGA3X3i N2TeiGHHPo0ygSYJuPe08OR/46LY5ftbGepfEqD2Uy3BP3wfLmIIXbPekoDf ozXHlwX24e8KSq3PqCWhpz/owZ06YXzOJ9UlgFUSCpopP6PXhLDbhvm97zKS IGb+i5k6ShB7Mv0Q77CQhNiamvY9HXz4R8gzOiZ7SSBoaCaVhPFh9+n4qaOu knCoV4uLosyHXd/Ilr3yl4SOQolCzTRe7HDJhfgoURI+nYiYUnfmweYr33Bu gyQ88tQK2aPGhb/YPxTrfy0Jj9NMhF4uc2KTzsu0PO2SwHA620P7ISc2ui/S mvxZEqZux0/dI3BifVfr01GLksDkzxt1Zz8HPjL4xcpdXAqCK2M2r3iw4Td6 JahYVgrmXrA30KixYZ26YNEJZSloO99joP93Lz50nWfC+oAUvF1gdfkkvxcf PGPkYWAkBYkNWl8101kwqfljyP5YKfBYSRRRzGPED4m3LQMTpSAux2PPMx1G TMj3olSnSUFvi1uN4xwDVgpjoVa8LQVs+3Zp/EEMWFbjRJxInRTkRRWq/1yk xyLlLZm7Z6Xgakj+CeGYXdjodt3TtkUp2C+zFvFWbRe+ml42lLT2D68LNOK+ 0+HV0CRx3l3SsF0mzKlxmg63nTR5ICMqDdd3dscvy9DioIXJN8dMpGHgu5wr NSM1rhj7PM1sLQ2c4bv0ndqo8LdP75i6HKVBzrectySBCp98ed/A3FcaVNXv FrewUWHxlMCvbonSoJDT8kP0+F/0gbjr19UmacgtDiEuTm0iGuk13jPvpKGI zmnuYMQm2i8wo8XZKQ23dn0l/hbaRHdpPlzO+SoNa6EnUY7ZBrrQk8FcsS4N FZErbxRH15BkoKTkB2UZEOvqKL+i+AtZuPEcTVWTgTPti0Zhg6so2XqPu/FB GWCNe3DxZsIq2tSdq/yqJwObYqE31H6uoE6e2gMLTjJQzJg1ndq8jELrDp/d myMDi488DpbeWkQkq85F2zsyoHMzrSvRfhHN7lglVRXLwHC+jxiWXkQWR4Pe GdTKQJaiMTWT00+k9akEZ3yQgRsskc8L7s2j9RUWRX4qWciq6Xp/zWsWVWVl v3PbLQvWfJne/Syz6NwBGddnzLKwSX3kY+CDGfQlEu5a8svC/f7W2OSVafSE 3Z8vjyQLL8zq/3YmfkdBKl/oJJxloYehZnL3+gRS7nG66+8hC/23zQL8yybQ VNASfu0rCzWD5JAl6wlk3MAY6hwuC7Qac9Wcb8eR6inKUnGWLBSF3ZpNLhlD K+53vyq2ycK7Q0t6kVmjqIxVJTSsUxZybNzc/cxHkUN1PV/HJ1lov5O5iYVG UfdG71nvcVl4n9Qb8/HYCKqOo297uC0LvdSmzaphX5FPkedjdRU5SO586mtG GEDDHwWvs6rLQfqr6WjeN/3o1Eab/9RBOYhINGf+z7IfyZ+UI2YelwOu3j+I /doXNLE0Wf7LWQ7SpALUx2k+I0PB61c/eMpB8CUWU77CT+iVjo7bPX85SLW3 S2068gnlZd2VNo6Qg5QT4vl2KX3IlGJ7pzZXDjxjz9urqPaiFhfWy4kFcuB4 iZkmZLQHqaa8sHEqk4Oa8bearEk9iG1cUIirTg7auB/Q7JnvRm1xXzL9e+SA Nk+ssfZpF0K9BokkRnlY9bvswcL1EVX8ofJgZJeHubnoW22pHUhQpkpvjFce Eirj9dPYO9B6CCt9mpQ80C2eJorzfkDVIu0RSyAPEUlWlT6a7UhU7z+7d0fl waZrc+l+SxtK9pPDd07LQ03Bu3PPjNuQ55sr2/pW8qDN3IylQt4hKQ+d4Kpg eUgbqBCK7W1FGRkrxnHh8oAkLvZd8m5FNA13Ve1i5OFxYvYXTuZWNMxGvbw3 XR5c7MoYlvVa0I3HLzy9H8hDzLEzLCOfXyNmGg0H5Ul5YCXyx0VoNKGnwbRn p37IQ+vVaL6u2VfIZf7j4bxlebCPK8Mmt1+hxi/npFipFOB1RvfrBaZXyL8y e3peQAE02h//qJ18iUSlXPvviSmAn6GJYJXNS/Q+m9xmLasA0/XJOR/7G5B0 7PvyD2oKgHsEQy0+vUADVn+97usrQLF37JuG7/XoSnebrbPpv/6C1oNNn3qk eixLX9hGAWyP0DYLbj9DSWQC6ZqHAkiUOG//5H2GDjE6/PKMVYDDNyWd+Jzr UMmTN6GKzxXgO0+5ReiZR8hYKc1zokkB9J4YWL1fqUU0BTbWue8UQGDquMGN m7XIKmkNMX9WgFjZstb4mRq011mOZm5JAfZl0UeqZlej5wO/lgvWFUBt4bZQ g141OqffNG65owDtJS/2Z24+RE0HLN+0MyvCV2tFbWG7hyiI41pcuYwipP50 mN/QrEISceYhjsqKMO3s9qh3qhJ1/pFyF1RTBOnrXgW0VpVIfqbhRIK2IpyK 8t6UPvUADb9cZPWw/ocnyTcbr1eBdM8bXZdPV4TizpVftgUlKCCtnsr7piK8 0/6iqI9KUOETcc+a24pgeyn/zMeBYkRDs6R9sEIRqMpefHXgK0aNmdcWT71R hFsDNwzwvXvoZ/2qZVq7IpR/7IveffIe2vfNsvVTlyKEGR9/o7JaiMIU5PNs hxUhvJT/QvqxQqTV2HLCd00RWsbUGdipC5DbpNKTR38UoaDUMMK8+i66wXhd fJNWCfaPELcHne6iNSPHjUg2JVBc33vs4oc7qHZmpyhDTgnm2xMYyivykTKn Jk2dpRKEcs6HblBuIev9+ee37ZXgovFsbkVzLkq0pu+Hc0ogn2Zdd/JELvpR 3Ff5LkAJzJK0VNTtclDJQT/rwWtKoNIqiidu30Rf7PvfimQowUjVrRRV1ZuI /gqoOmUrgb9EEVmz7QZy6WJlmi9SguWKXBrdrSwk4VJe9/flPz4LqWI1PpnI MIFD8nCLErgFL5UvsWeiyKqQ5CvvlYCy/ky4uvY6Gt086sLWrwSnn69r3Pmb gfKSJzjFl5XAjq366o2CdMT3VNhbV1IZhMf2rRGVUtFfx2JBdgVl2DUQrzT4 NQVNsBLfDhGVYV7pg9BUcgqqctIRC8DKsJ/GW4hzMRkdZfPouWuhDApbngUf Kq8hxfrVS172ymAnoei+KXUNcbiEK2qdU4bI72EMqXmJaLg+NaYrUBkaQ2et uzMTUJBrnQZVqjJ0b2X6Jt6NR1Yc2hPtWcpA9ZQwOC8fj7RftKdk5SmDxCHb 8+6P4hAr58iMcoUyBH7IKEnpvIKKGnblWrcqg/zho0vZ+2JRH/dZqvo/ymCp 9U7MlSMKPWscqoilU4HnWpnbEXWRKN/DxdyQSQUot/rd1e0ikeerkOoZPhXg +2+TUb82AtGdz3fiU1UBGsuKX3Fel9Esrzz7hJYKcJodIVeLXkadTTUvKg+p wP2hoY1LJZdQLl8rz9EzKmA3LO77LTwcqb6efxvorgK3JhEbzYmLSMA7OPCQ rwoE9O5o678ORVQC1OIsF1RARp/5GSOEovfeXKGFMSrwvvFl3k30H3IUPKDU k68C28kj2n9MLqA0v7hUwmcViAp8k2A2F4A231fUxX1VgdGH6hq2SQHIQaZr ZHRcBY5/fn7uLzEAkYf4lVMXVcDz4tfaH2H+aPau8eQ6HQEaDCdEPsj4oX2d 39cl9xCgqPz4ubE+X2T4J4TZgIkAmbx9V61jfFG9aR65lJ0AXlw2E+enfVAi 8/cI830E2LEZ8a686I0aNUOux4gRIHuv2fTavBdadWEqfShJgOiP14er7b2Q 1SuVTgYFAkhpDK6Y6J9HSkEX9j3TIIDmi+pirOeBOkYY6gUMCODCwONudMcV 0bDkdhwxIkD1OUZzUHNF6lrKY36mBPh1U1Sfqd0F5WUYMrRbEyBxvs1j37Yz 8tbLMQ11J8Bbied77P2dUGGQkkfxeQKIf/bb9OB2Ql8KXob3+BDgYluBFf9T RwR/x+8pBBMgKijaE+9yRGw1iquDUQT4/MH182alPdIZbaDfc4UAng83sixs 7NEFFgNB1asEICYv35RhtUejroHaiSkEUDPler/oa4ceCjWkHLxFgJKcO1Wk dBtkGHtG6dZjAlBPjHDXn7NAReaLek+fEqAmOopKftEcbSimuvQ9J0AGC2Xu QYg5yu/pvs3STAB6vWuKn9PM0LyoCUf4RwKYOOYwVg2ZIFj9rZzdTYDB5r77 Q/4mKKM168TjPgK4nXZ5MchsgrS8+qMXBv/x/ZDwjahjjOLqrdZspgkgt+dE hHvrWTSU9Icz9AcBKBotI8aeZ5GKQx4ha4EAMvdtrb9wnEWf9oy6fVz9t++3 dfKKkyGSMHEcwtREmFBRON3Db4AaFt1eiQoQ4cm4m6T1tVOI4zXj8EFhImRH OU0K0p1Czlnlm2aiRMj8WtukG3YSMaN5cqo0EerUBJ9XBZ1A5gk+RdTkf/s2 EkUt0Xqowoa9WVidCNufLtI1sughKlL1iKYmESRpz1b33jiGir6s8PlhIpR7 zkopPDqKVqWCE8ZOECFwImwnbdcRdGyDt+TvaSK8mMsw8MzTRTnv614LGBKh Sn5rn6CmLtL23/xjaEaElja6lS/+Oii5Mcyn2YkIzrq5Nlt/tJG8ZbRxYdg/ PRd/L/vbADL3fcxBF0GE09K6M/mMgOKuTH90jCaC9hMH12EfjCZrTh6XSCDC JffqoXwiQvnM3PjuDSIMnGqmK/x8AHWIH92mziXC7v+Cld2PHUB/9oc8tb9N hNqmgr7tei1k4fyVLFZEhPDoD3EG5ZqIu+GebH4NET7r/io/UaqBdHo/T+48 /seX+4YwvYoG8ptlKLB9RoQgxXlRuSfq//K7l7DIKyK0LQDy61BDV73VOfI6 iJDUO2M9zKuKqMRat3JmiDAj1Nu4zExEKhobdVtzRFAft3NnriUgm1MKQZaL RDjcqaU4Y0VA9SHJiwJrREh9VdiV5qqCgrpNJ2/SkaA2+2Fg8KwiKpyOv7tB T4LXVXaj9GcVUc/feltzJhLwLwmezW1QQAQF0QE+DhI8GTUfvp4nj35ETXdk iZCARVzwg9ZlWSSQLZC4Jk6CF353qs12ZNCxqpN6ptIkoK4VecYYIYOKhqqa eZRIYHqISWA9QRrZqYXUXdciwV8z+d7bDZLo0xTD3XRjEhyW9Z0TuiaGWozi c5+akYBQ9+OQpLoYety0J2vEkgRvH2+4fhwVRZl59IkKDiTYGeWMXNYSRcYm u4KavUj/8sLCqibtPqTzOtpnxpcEboZnWyfPCyNVEp3H3sB/eumbYpwHhRAX K62dZSgJPpeW1pQ3CKLeN1THV66Q4FbnX5e5Qn70mnxZhz+BBPEOHgEfJflR 7Z0dhJNIcNF3lCJezIcywv6SEzJI8IXhKPdMNS86q7YtLHGHBOWH4yveTHKj 7sK1JcNnJLg6NNlRVsmBmjiC5y68+OfnvZ8/kww4UPXl31N5jf/4ldjJHvrF jtKsfg3Otvzzl5o1fv4QOzLgWnkT2UOCOPO5+O3hvQgi/RpLPpGgmMk7qJey FxEWl5519JPAiyqMsfU2K2J7v1gpMEoCX2GR/kZPFtQZtXCzeo4E2/0H2oLk mFDj0vmMLz9J0EYV8Tj1NiOqsp1P+rtMgrtGwf6mfIwo5cBc1PENEgQ6JStX sTOgMysz58d2kYHpHK82RZwedThMHuIQIUPpUs/Kwypa9I2ueP26OBnktAwD zIAWrRadq+SXJoNduWCkTzcN4v/xQ0hMiQx5qRpXG/9QIyf/5TWVA2QQUT0r He5NhYK5ax/UIDI4aVv8PMlOha4+CXTW0CbD1utmVWP3HUrl1no30vt3vyg1 277rL2Uzauf+KVMyCEm5ijq4b1FYpF85dVmQobKYnz/9/SZF9G2koLENGST1 zoxokTYpusy7462cySAmw25eQL9BSclgdvLwJ0Phjv/xr19+UwrUOwR+BpEh dsySv9XoN+Xxl+Quv//IMPlzKzW75xdlUIgT/xdBhvUur2cN/asU6Xv8AvHJ ZCB0KH87s3uFonl0sJM5nQzuBjxXvmQtU07O5F5JySTD4+yOOz0KyxRfJdFf WbfIIPGD2+6HxRLl+SPpzqJyMjyw6ovyLvlJ+Wg6HStfSQbvxGdhXT8XKGMb pZQH1WRYnachnjmwQKFHSuWPnpIhaMRzVXt4jmLYQo593UqGhrWh2jKDWYrz uV8Hj7WTYVegSUPMkxnKBcYnK+0dZAgX8xntFp2h3DqtZd/TR4ZoIZvpoD/f KdOf4ODYOBkyDg81TgxNUjYv0Kw4fyfD7OlU/ZNWkxQWwdelM7Nk0HGl58oa nqCQbI/yLi2RYfM6vL3+Y5yiS83QEfCLDCx3jljLB41TzAraotfXyRA3vOzu SDtOcddNPHBxmwxtjgk8pPQxStj3U8s7O2S4XVf86YrUGOV/HO/akA== "]]}, Annotation[#, "Charting`Private`Tag$264854#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJwVlGk81Ivbh7UhKSeyRXajGbNPUVnuQRnKMqgRZZvQYh+FsiSlI6QkFVHZ BknKiaT0u2uE6IkoJUTLSVKKHKnIv+fF93O9uF5db766wjDXgLlSUlI1f/b/ jB9yHJ+d5eBpRnyF5nFNeB+r8l/vNAfLE83TFOs1wemvge83f3CwgupwxH5I E3TWhs+EfePgpoY5ynHWK+B+6inZwfcclHk0JTPzawXI0p9r4f9xMDpkg1F9 rDac3uu7KfE8B8+G20Zu3KoLM7Jkp+3nOPjs29V0aqQuBOaP8ddkczDhFrxc laELpk1Jgq8ZHExtm+2qa9SFl6olfr5JHOxOj8vL4uiBzu3haO5uDpa9CJiH avpQMSeyWMqUgwNZk47b5hrCGrfL0jkcDtrQdn5QNzSEpuLXu1hMDnomBi1c bGcIgzw+TUjm4Dr6nR+ZGYagkkGrlWhwcMe8F95aWiRIWv6h+agUB183S19M 5BnBVo7XiHwrGw8/zJiNekCG90dOO5Y0sTGzMd55yxcyRHa3VVlI2JgxGHY2 Qp0CGfvX7Q29w8YbxFO3gFAKSAjVmfarbLzaYhJhrWEMdIfOJVlZbHTtKvmu cYgKCwJ4bHUvNp53/ZxXfJABnd4s9xEPNgqDjn3JuMqAC1s14hoEbHy8+Pn1 un4GmDh8eeDHZ6PK8N89AVpMCOSc9bhsw8ZUpYBfvxKY0DJnKNGMwsbPMZlR AlsWpF842u71nYVLdm0p7xllw9Zz4ROMCRY6xKWeyZTjgMEpT/W5YyzkFgWv DSVxoCGZvkP8kYXaN+U3nvHmwGhw9+RoPwt75c3Xizs4wDcjaSU2spCWcSlt 5PYqUHrxILgwk4Uyoudsm2smgMYFKUcyWFjmbXXPusMEgg/GFQemsTDLPuXX nq8m0ETi9FGSWSj9RNrIhGUKB/Zd2vRPDAunDz2zv3PDFN4oxlIafVhY/Vrl XpVkDVQ7Mj/8S2Oh26k+jJ1rBj4Fi+a3UP70hE/kfjQyA/n/3mtfNmLh4VsK simOZhCYl+8eqstC5bQhoXOOGSwfkWueXMZCXp1vjjLHHJJS/i2RmWZiOzMm +UqYBbhKcneQW5kYQ02PXiPDBYOn7141NzFx2pJW/a8WFybf0T0DJUw0pO9n VZtwIUdawi+6w8TdJHpaeSAXBu1HLFZUMbHVPuG4cgsXQjrM1JaeZiLXg9gw N9MKUvr7Hk15MTG64N55prkNeI6S7M56MvGEVofc4q02QJ0Nl6x2Z+K5chfh 4r020K6zoF7EZ2JE5vadB67YgIo/rfSTNRM7HF3U5bTXQ9HH+EODRkx8mFY9 T3/RBoj9YhF88i0DX++b27RVigd5fqYfuP0M/Ji2evsTLR7c6WL6j3Uz0HDq TFWIBQ9+39Tf7trKQOdUn+WKsTxISlzosOw6A6Vv9fQtnuJB6tJnxucSGFiz jOn0dcoOcjnBIxfVGdglKOrwUd0Et0sCdvKVGOg7vHI8e90m6FP1eSu1mIEm dRf8J7w2gda0S6+fFAN3U0XPKCWboLDRtE1/iI46BiMaSasdoHzLvIrSG3SU hDmunfZyhLro3D1VznSUPePzktPuDHr+ESUv7OioFAdg9MsZjvPtBudY05FE zfxUqsQHIXlyy+ZVdPyhkEHocPmwqNfF6ocaHanDr5mCXD54Wy5Us3lDQ8x2 qB5yc4F5C2IedO+l4XfXNQL/PlcIHXOSkgql4VTkPw///c8VXvQbmpF30nCw f2BDsoIbXKntuhbrQUMPl9JWLRs3EOxi5OlY0rDLZy2FqHCDsrb3oj0yNHzn dzLvcdJmcDq1Red3DhU9vs5WTdoJ4ABbwZ6XRUXrxHfjQwECEHe2RJxMp+L1 HXG3fiQJ4LeiuUTvIBXzHJfZHmwQQGWWXiDPn4oiVliG8ip3kM/+UnGSTkXd Y2O5KUZbofXsMVN9iTEGBOuix0pPmDS18Q2+Y4xPh+TGT9t7gt6L6ZSaGmOM arTfObHHEw6ohb/klRljyJ6yszpXPYGcI4gPPm6MMTkQxTLZBim5+pIad2Ps v/wzne+4HXj5DU52nyh47E2nhvCcN3w93jc9/z0Fk7N2V3Td9obchF+X7w1Q cH6sr/muAW/45LNWxqzrjxdffPST5AOn9GoIWj0Fiz+/P9Fy0wdelV5hKqVQ kDcwX0Yh3Beiqs8rvtKnoGKqr56p2A90iuoxdwUFO3u6ldbV+8HDrJ5Qd1UK ejl/NOU/9gPNfaptHXIU3Fvm4Vw76Qf3TbMOS8bIONUt5AbZCWFJQ+pEGUFG sayL35EvQhA37++O3EbGNZ9ekLod/CGHHWVTvpmMlMacTqsAf0jPF1175UjG 0kALw6Z4fxBFBqXac8noYuEvq17lDxbaXpbahmS8E0A0DysGwNMorrh1dCUO zYba8gYCYC5JJko3aSW27U+W2Zu2E7yPnFZuLzPCWuc+5arVQfAYJmViCo3Q ojfTpdE1COCX+0+dPCPcTPfX/hYWBDoijQHRCSNc35JTlX85CN74FJapRBlh Zbi2YKVuMASaXTPztjHC1tOeXrpKIRA63ub3uZ+ED173HVFYFAYJvvOuLlIi YVCL5oReaQRca+dlPJUnYYdT8bH7dRHwxjI9NF+ahBVxR3jhrRFgu0KZwfhp iCnkEI/JzxGw5CXpmutrQ1y5Mq6gcrUILrhtrM6pMsT9q99ptDeLgLDNrDVy MMRXmq+t//oeCVI0bcIm2QD1aiBo+eEoiFOx8k5OMMB24e/zTrlR8H1WONMU bYDGZhEZ2dejYLRTbLZxjwE+f7Khd9tgFPTG0Ov4zga44OQJmTbLaKhttLju pW6A9sMhq8xmoyFk+/ai6Ep9dDBbZXchYz+8TMv5u+KZHlYHvnJcNxwHXQ90 rvi262Elu+pm/Lx4eDRb2qH8UA9XpSWv7VoRD3cja9UT7+ihv4iUf8M1Hgq3 dVVsLtLDS/PWp7o0xMMe48UdM+F6aDtDW/4jOwF+tSaq8eX18FjP/j1ZlETQ lNtVPmGti/byQSZK0kkQtJqyoFdTG7dZkXstso7CDtNXZRKJBgaEEBoVkjSg xKybDS1WwyqhwFf70kko6Hdr3G+ljCk6QRZ3v2bB0CFlc56aItZbrrVe4XYW 6rNXbvggWIwUA6nRE1bngTncM8HIl8aXJo/m+DtfhPX1vQtnBFJYeP7nUMDZ Aggvr5paqvSNyBQt/9ReVQTMJaGHrQfHifHxC0eP3yyCMRF1SWTlOFFkXcbc SBSByLxc/ylvnHCu5pfg4yLY117odCZujKDfkqoq+FwE3z4a269+9IVIcxKz WMbFIH146pKtaJjQT6ZZhpQUw98O+2pL5YeJ0kv87wsqi0FWZbxNtvQDUfHs jVP+jWKQKx+ZbO0dImzeybU1S4pBof2Vg/OG94RqikPWojfFoKbxYMpd7S3x KdjBapNWCQgC9Qs643qIwiThaGZ2CaRGRKacqnlBGH8+7t6ZVwINcZIw19Hn hLA6+vdfxSVgkLXDstOnm1go/PQ9pboE/pT1PrHuIpIPaK/b0V4CWhw7auHS VuLmmYtz7sqKIdn+w0/dwy2E1mDi1UEF8Z//SXlYMNFEqOpUC+eoiqE+vSWw 4LmEsG/f1WVuKIbKR5nWVma3CZf7H6LOW4kh9seTAa5WHaHlvmi20k4M9iTF eO6cGuJYql3kXWcxtM0ahB3MqCQWUQ8o9niJYZdHSXnC5lKCIi40eesvhvn/ GL6LX15AbO9zXDsSJAauuoPFT8wmbC1UVMdEYkhp+tmxVTuVmLyu1NgdLYb/ AZcAUoQ= "]], LineBox[CompressedData[" 1:eJwBMQLO/SFib1JlAgAAACIAAAACAAAAiMb60Fgfij8FqzmZY7LCP94Zse4L D5w/UrOcTGC5wj9TM9i8hkGkP36SeoQrv8I/ttlXgod7qj9g6dnj9MTCPw3A 6yPEWrA/GTLqZ7zKwj9xZmvpxJS2PwmU3NJF1sI/ojkrTMWxuT++uh60B9zC P9QM667Fzrw/xfLRrsfhwj+cWTU6Y4TBPwpcTuVB7cI/AAC1/2O+xz9ZVgEI HwTDP5npFDHkTMk/SJ4sZtEJwz8y03RiZNvKPwmtVceBD8M/ZKY0xWT4zT9t Km2H3BrDP2QmWsUyGdI/pchYsHkxwz/HzNmKM1PYPzEMjjNQXsM/aHjax1sr 2T9UiyRIWmTDPwgk2wSEA9o/I3Tb0GFqwz9Ke9x+1LPbPy+KfTBpdsM/zCnf cnUU3z/1TH3FWI7DP2hDcq3b6uI/Ch4TMLi9wz9soHeVHazpP/4UdX5fGsQ/ Oi3BslCX8z8w0P3cjsrEPzXU1pa+yfM/Oxn3JIDPxD8we+x6LPzzPxw/RXZu 1MQ/JskXQwhh9D/66joqQt7EPxNlbtO/KvU/iNdHjcXxxD/snBv0Lr72P1kM qvE5GMU/nwx2NQ3l+T+20rcCx2LFP5qzixl7F/o/1LMtZFRnxT+WWqH96En6 P3ylKnzea8U/jKjMxcSu+j9BdbnF6HTFP3hEI1Z8ePs/y9B5edWGxT9SfNB2 6wv9P9uh0zoNqsU/cwpeTsHL/z81mniibeXFP+pGE90= "]], LineBox[CompressedData[" 1:eJwV1nk4VdsbB3AZI/M5jnlIkhTVOSJF7ysZGpRKpdJ0whUyVRIhKVEyZEyh KGXqZohy3RI5S4mEIpRQHJQMiUq33/r9sZ/9fJ5nD2u9a73fvedyvbe6CAoI CLykx//P5GeTo6aKABqb51YIjdTC7gN5zQ+MBNBPYs6E03gtFK+HZ5L2Aljb YhHa9L0WuJqHy0ojBJCtu7Y/708tVNdVxgl/E0ButFT6YjkehKs6W91snIW1 jcsWHuTwQPhJ8d2+cCEMSi5XCTrGA6d8m1smmUJYwlt/wjWAB6VJXVcvVgjh 6MMkS7tTPHB2F43ijAlhcOsHLamzPKhl7D4Uvk8YdcbIre0JPIhwnaU0z1QE G9r46WJFPBCTtA/jjojiU0830fd8Hjgu2F1lLC6Gx484/tL+zIO8Nc5/JHTE 8MxhUTj0lQebTgYEl+wSw1/ZqnmvJ3mQ3H/9pHCtGLLybVrDBAnoPhnzzbk6 G03XsfInVQgEdP26F1g2G4VftVweUSfwfEpkdNOr2bigLONOrxYBL0MVrylR cXzLSt1RqUug7Ooad1s/cUyo4EYsZxOw8k/gDtlKoCj/Rry5LYHk+PQbjw5J 4DxewAn+egL8gtsfLodIYGtjwZEYOwLRff/sW1UqgW7xi8/WbyXQav9xd7Tm HDTYabZQYi8B50XLtxl+n4PLY2M6U3wIhH94Y+mXLYXzA42fDSYQeP9ww5GA Sin8kXLgRlMSgZUJVckhr6VQgsUXLEkhMGqVN3hBTBpD1hftdb9KYF9+cGy2 hzT+G7jQITuLXu+v09nKkUGPumkn83t0vJuvCHdulMHgRWDXVURgTE/asMdF Bi3+SSjzLyFwp3Pq9JcUGdStLBxNLyPAsqjXFZ2RQe3D8wbvVxL4IWL6UJUr i6HBqQvm1BHI8ZtoyPCSxfOcv1YffEbAobuwd26QLGqVRlcVPydw74G2pF6i LE5seS5k20DA1UNyvxFPFn8v0PNd1UyA2c47Wt4siw4dxQ2eLQSq14ZFruyW xSXt92OvtBJQ1/hehNOy2CXpZvHpDa1fU7ewnb4ctnsM2Vp1EjhjnqbcZCyH e/riH23pIrA0z8Fwm6UcnuEHJ+56R+Bi+LOdu5zkUKOsct+ebgJrjEvyXGLk MLXnqtOCPlq/rCOP+WlyeC5I9an0RwIZMnqtHrflsH5o5/kx6h/8a799q+RQ +9F3jdx+Op+rEfYh43IYoTV69sMggXpGxICMgDxGB9Z8Lh4i0H/xXMgNKXks DLjcETpMQO3U2YKnevKImuNW4l8ImHwLt9xhLI8ZcUera6m3eoZ3DFjKo4Vp c/WpEQKRTmdmz9kvj0ar2HYdXwlkt4ZlXvOUx4dRa96cHiXwaGOYsWGgPCr9 suuZO0bgm9lp5y1J8ihRnR60bZzAAfWQqpR6eczSG7x/7BuBoKTgnQvfyuN1 7mnLr9TJUsEjFf3yyNQVtneeJPDid5Da+1kMNJ51+aP5dwIDx4NKvGUYqDsu 4plFLTgSuH6WOgNfaK70nTVFYMX7kwE6KxjYmv9h4i71th0nZcqsGDhp0+nz m9qrMSDHZhsDe6/luFtPE4iyDjB/e4CBczfI9kRR33x0otXdi4GqTwZbCPVj 4xMeM0EM3LxqtqXADwIdd/0FY6IYGPh0rSGHelLX/4pmCgM/Lz+VdIBaNvP4 0qKbDOSaxAZEUi9SPE7WFDMwDLhtedTWscf2tT5mYFXCuyJCfVDs2KRLAwNT bL+IdVOfCj0aPdXBwAsWYW9HqVOm/OZF8RlotuyS7m/qYm+/CpXvDLx1ZfZX oZ8EGgZ8txQIMfFN/QhbhJq/35dvLsdEff7qcQFqoXaf0JcaTLR6/2vxFL1f w96HdXAxE9WPLO4boDat8y4cN2ViuXYns4XaAb3XnrVhorsTq/oBtfcDr06F 7Uy8bD06lEp9YamX320uE/O6QmKPUt+6c0Tc1IeJEoOdf9tSV2kduf48mInN wvM3KlF3pnqaOF1k4tuUIOdeWs/vsp6NX1KZGNku/COHWi7KwyU0hz6/flDc lXrxLI8Z2VImfrLcmaJJbXPSPSHrCRMP9AbfaKHrxx07rG/0kokFCpf1zlCn 9rg57hxiYtX0X3cb6X4o2eX2lT/FRPvIW4We1I2v/ooIFFHArx51+iLUwtWu pelaCnjmYXfmfLq/NFe6blhiqICBrl6phXT/rSx26a1apYC9n1myS6m9s5xl P+5QwHbCCNGZIBBz8sq1mEMKeEJ/B+M63c937Rv1TH0UcGOvxnsW9ch/JhYx UQq4VzVO4TvtB889c/xWVCqgrmKBQhDtn2g2/tdbp4D2zuRAE+2vAvHjFy69 VsC7aPdRi3q4/H1W74gCeq62SC6h/enOLG6JnsvCvluixZl8Wv/h/v0mhiys L8140ThAIK9a9XPPShbeeG027wft/0Gfc8ImDiz8bhMbAZ8IuDU4Lu+JYOFv fVujhB6abxF/kpd/ZuGmIqP8HW8JROw1mvdhmoX8dxF1pu00L40O/31BRBH3 sFcsUmoj8Km3mXRrKGJXoG8Nj+adM+RMR21RxJGe4a3DL+l6TG/c/b5MEYlY WuLWWpp3L8P6I2sUsVJw3/6hGgJZOWV+nCZFlDbPCwquJtDjoHUxclARSyVt CpIe0zwomviHraaEYwPqojEP6ffBPU39fJgSmsVkH84sIPDrrXjj2CUldLrF cZjMo+u97mSIU5oSBoQ4NVjnEnil59i9rEQJDYa2e3fdIrB2QOFG10clbDsW dqk5g8BC53gdtq0yKvrfVRyOJcBrEXh9zUEZ+bP7nH9eouO39DkndlAZH9dY bRGJJnBNe3N/10lllFeUk5SOJCDdI3nnfL4ytqjeXjgcSvNsb+Sid9Iq6L7i vzmvvQjENUx12qiq4NGZS20ZngQMzP+KLl6ggn7RW7Y7u9N6q1l/OY8qGKcT 5dnrQuBth9DfbD8V/PXulUG+E83LnaHsyNcquM7PRMdnHc2jLf6mnGuqyD9s mP5Kk8DlF/qeBbmqOHF/nV+7Gh2fTXfG/HJVrMze7NGhTPPe3FZYqVkV+0dl X71kEGhfqPJyRkwNL2k/zz4tRkBP8JEz76gaSsX+Ys984QGvWCRu1wZ1lDA+ +vNwOQ+aDCqqmx3VceAM48DbEh503PGa3OCqjveeDRuuvceDkYy23avD1DFO qVBOMpcHrIu58+eVq6N33qCBSxoPXA7Z/fNZWwP/neh+t5r+Twkzk/pDf2pg iir/wg0zHsiPhEjLi2lixbGO689W8GBunZvxTYYmlsT0/v5ixIPVp8wi6hZr YtuLvqRFBjw4+bFvvtx+TXSNeB8YqE7fX8p2yarRxM1rjGYf/l0Ln/X5vlxr LUzcdEPsSkUttNWfGz0rMxet25SK6vRrYXsQ1zitRhvlBJkm2c9qwHPOsHbj bh388+Sx5rMd1aCZz0sWHZqPyWrTAdymKgh6YLlN5uoC3J3bPMNa+gh8cjzL jJcsxBWezy7NGq8ASUETruEnfVzwKz4tI7gcrI44JOknLEYJX0g4al4KSg/V va10DLFpTc4OR+ciuOwXGb+0bQme+Poh002lELZGbDZIL1uKTg/6LXHrHdDf c3b7zeBluMhCrsZC9ya86RfPStjORvulhQ0JRteB5xB17aEjG1VAr3BG9zqU Vc9O6d7Dxo5zG58cUb4OyRli0Yu4bHRe8FXw1UwmbN8h4l/jxUaD9kcep+Mz obVWYP3EeTaGL9sgM/JvBjTfnBrbWsFGf5ZY9WftdGjkfrKQ1+SgsL98V7Za GvQI355O0qYWWr23WjANvuW4/a2sy0G72vsa3/hXQHl4WG2uAQe38ATXxd+/ As5Hx6eWrOLgxcbciKLNV+Bn+J9Cu50c9DCuGgw/nwq6t5RVomI5eDBx5TCK pICpTWeTZAIHVxRJX6z4kgwbB6+dj0vmoKDDjzjrN8nga6A1mZLOwZ0JosVJ t5Oh8r5uU04+Bx3yd52S2ZAMW3mciKeEg66n9R66JyWBi9ukmW09B6Uu5liL hSZBgET5RH0jB7eb7K+575YE6ZtWHmx5zcGwvcKetmZJwH+DZr19HCQX4rMt PybCzwDBCZcBDqY7hLR6NSaClOrT3MEhDk43zC/Pf5AI7P02imNjHJwxPuu3 +1IiWM0Sbzw2SeebnLHqxYlEcMx+fnZ6moNmmStTNnMTwd0qetWpGQ7K/wkO /rgxEYIH7Mb//OFgT25U/wWTRPgfGQgZjg== "]]}, Annotation[#, "Charting`Private`Tag$264854#4"]& ], {}}, {{}, {}, {}, {}, {}, {}}}, \ {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-20, 20}, {0., 0.5641873837217053}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.788830634228528*^9, 3.788830660916699*^9}, 3.7888342166511374`*^9},ExpressionUUID->"55bfebd1-c8a4-448c-86c6-\ cacedf9c7efc"] }, Open ]], Cell["\<\ But as usual it is not going to be normalized/follow all the boundary \ conditions; Hence we add the other boundary effects through following equation\ \>", "Text", CellChangeTimes->{{3.7879808819618273`*^9, 3.787980930261387*^9}, 3.787982070038721*^9},ExpressionUUID->"7a30252e-a189-40e1-b378-\ 13b467a93d2c"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{"d", " ", "g", " ", TemplateBox[{RowBox[{"x", "+", "a"}]}, "DiracDeltaSeq"], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Input", CellChangeTimes->{{3.787827577889145*^9, 3.787827589204165*^9}, { 3.7879810128405867`*^9, 3.787981025035384*^9}, {3.787982487365691*^9, 3.787982497863802*^9}},ExpressionUUID->"aab9a8ee-bbd3-4629-a735-\ 46236c971cd6"], Cell["\<\ THe model is similar to that of the Oster-Nishijima\[CloseCurlyQuote]s model. \ And the solution is already derived by us. Let us do all the tests before \ analyzing numerically.\ \>", "Text", CellChangeTimes->{{3.787889993471612*^9, 3.7878900398691177`*^9}, { 3.787982598665443*^9, 3.787982613694594*^9}},ExpressionUUID->"2b394004-3db8-4da8-8b4d-\ 09fbe96def56"], Cell["\<\ Note that no term should be discarded if you want all the checks to be \ satisfied\ \>", "Text", CellChangeTimes->{{3.789182781645653*^9, 3.78918280880401*^9}},ExpressionUUID->"6a34d742-1d6b-417c-ae1c-\ bb74ae021b88"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "d"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k2", "=", RowBox[{"d", " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"x", "==", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Heaviside", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], "}"}]}]}], ";", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"Unit", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", "x0", "]"}], RowBox[{"RealAbs", "[", RowBox[{ RowBox[{"-", "x0"}], "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x0"}], "]"}], RowBox[{"(", RowBox[{"xm", "+", "x0"}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", "x"}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"Unit", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}]}], "\[Rule]", RowBox[{"xm", "-", "x"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pebminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"Unit", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}]}], "\[Rule]", RowBox[{"x", "+", "xm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"Unit", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}]}], "\[Rule]", RowBox[{"x", "+", "xm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peaminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"2", "b"}], "-", "x"}]}], ",", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"Unit", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}]}], "\[Rule]", " ", RowBox[{ RowBox[{"-", "x"}], "-", "xm"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "xm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "a"}], "&&", RowBox[{"x", "\[NotEqual]", "b"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"xm", ">", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Unit", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealSign", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "-", RowBox[{"Unit", "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"b", ",", "t"}], "]"}], "-", RowBox[{"Pebminus", "[", RowBox[{"b", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"Peaminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"b", "\[GreaterEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Peaplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Peaplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Peaminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Peaminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"b", "\[GreaterEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pebplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pebplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pebminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pebminus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "b"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.787724239301915*^9, 3.787724439032062*^9}, { 3.787725252810832*^9, 3.787725403501436*^9}, {3.7877254908688097`*^9, 3.787725589803688*^9}, {3.7877256222830067`*^9, 3.787725667896348*^9}, 3.787725885538319*^9, {3.787725916801529*^9, 3.787725955298053*^9}, { 3.787727298518117*^9, 3.7877273793196297`*^9}, {3.787727614111464*^9, 3.787727618307177*^9}, {3.787890430683075*^9, 3.787890450474593*^9}, { 3.78789049457628*^9, 3.7878904969464407`*^9}, {3.787891158111464*^9, 3.7878912233284817`*^9}, {3.787891352738803*^9, 3.787891405858856*^9}, { 3.7878915358420877`*^9, 3.7878915627077227`*^9}, {3.78789165511304*^9, 3.787891657542087*^9}, {3.787891772550102*^9, 3.78789178150486*^9}, { 3.787891996402706*^9, 3.787892022173147*^9}, {3.787892063211853*^9, 3.78789210163763*^9}, {3.78789227432786*^9, 3.787892291917388*^9}, { 3.787892497949029*^9, 3.787892498900003*^9}, {3.787892812357595*^9, 3.787892822325021*^9}, {3.787892856697106*^9, 3.787892858432178*^9}, { 3.787893194989965*^9, 3.7878932053829937`*^9}, 3.7878932695064096`*^9, { 3.787893342106287*^9, 3.787893347269134*^9}, {3.7878937261363993`*^9, 3.787893728479949*^9}, {3.787893921680998*^9, 3.787893933553364*^9}, 3.787893979780238*^9, {3.7878940671573277`*^9, 3.7878940947561274`*^9}, { 3.787895029545772*^9, 3.787895069782339*^9}, {3.787895100817169*^9, 3.7878951266139803`*^9}, {3.787895176451211*^9, 3.787895202226337*^9}, { 3.787895277740058*^9, 3.787895280941153*^9}, {3.787895831280883*^9, 3.787895862899506*^9}, {3.787896660210415*^9, 3.787896687185294*^9}, 3.787897003074835*^9, {3.787897888120762*^9, 3.7878978936172028`*^9}, { 3.787898726435932*^9, 3.787898731116373*^9}, {3.787899127716875*^9, 3.787899185490629*^9}, 3.7878996525630503`*^9, {3.787899754668879*^9, 3.787899832251108*^9}, {3.787901619623411*^9, 3.7879016544013853`*^9}, { 3.787902274064395*^9, 3.787902279690015*^9}, {3.787902312008164*^9, 3.787902323254816*^9}, 3.787902372534678*^9, {3.787902412629204*^9, 3.787902415914041*^9}, {3.787902682639326*^9, 3.7879027484083014`*^9}, { 3.787902845476487*^9, 3.7879028572705097`*^9}, {3.787902988784219*^9, 3.78790300013446*^9}, 3.7879032734246264`*^9, 3.7879042177628803`*^9, { 3.787904291781335*^9, 3.787904292870923*^9}, {3.7879045255203114`*^9, 3.787904548521678*^9}, {3.7879046112054777`*^9, 3.787904674240094*^9}, 3.7879047361773243`*^9, {3.787904907482234*^9, 3.787904950193898*^9}, { 3.787905047011168*^9, 3.7879050637236853`*^9}, {3.787905242131549*^9, 3.787905242566861*^9}, {3.7879052752913427`*^9, 3.787905302793956*^9}, { 3.787905384130639*^9, 3.787905484503026*^9}, {3.7879828441622953`*^9, 3.787982849191875*^9}, 3.787982893000022*^9, {3.787982941803749*^9, 3.787982942189829*^9}, {3.787982982434771*^9, 3.787983058727758*^9}, { 3.787983090619944*^9, 3.7879831696182213`*^9}, {3.78798320806087*^9, 3.787983208661036*^9}, {3.7879832781154747`*^9, 3.787983404404307*^9}, { 3.787983663457082*^9, 3.787983666454055*^9}, {3.7879837132315893`*^9, 3.787983714217668*^9}, {3.787983754513246*^9, 3.787983796889571*^9}, 3.787983883611973*^9, {3.7879840559479322`*^9, 3.787984061840023*^9}, { 3.787984127629657*^9, 3.787984130704916*^9}, {3.787984546172489*^9, 3.787984548815321*^9}, {3.787984771672668*^9, 3.7879847736941357`*^9}, 3.787984873265456*^9, {3.787984938014204*^9, 3.787984997864277*^9}, { 3.787985071768963*^9, 3.787985075671753*^9}, {3.787985135258471*^9, 3.787985219068585*^9}, {3.787985252167514*^9, 3.7879852603538218`*^9}, { 3.787985367157193*^9, 3.787985373804448*^9}, 3.787985806092526*^9, { 3.787985988193063*^9, 3.7879861275098867`*^9}, {3.787986158032382*^9, 3.787986188687324*^9}, {3.7879862255942793`*^9, 3.787986234019743*^9}, { 3.7879963892769833`*^9, 3.787996461009328*^9}, {3.787996648024856*^9, 3.787996652218281*^9}, {3.787997305955039*^9, 3.787997321842387*^9}, { 3.788054861566976*^9, 3.7880548618485317`*^9}, {3.7891166337956057`*^9, 3.7891166371163282`*^9}, 3.789182525288558*^9, {3.7891825614083977`*^9, 3.7891825644095583`*^9}, {3.78918264573176*^9, 3.789182648718727*^9}, 3.789182770716201*^9},ExpressionUUID->"3e302e80-aa10-4598-85fd-\ d11bc8859423"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182771885323*^9},ExpressionUUID->"0a13e419-fb0a-4f5e-ab7c-\ 24a1b92ebfd3"], Cell[CellGroupData[{ Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{3.787986006430683*^9, 3.78798609007554*^9, 3.787986129269093*^9, 3.787986203995407*^9, 3.78798624047539*^9, 3.787996469245281*^9, 3.78799666155105*^9, 3.787997007498617*^9, 3.787997325805225*^9, 3.788054874179139*^9, 3.789115983984865*^9, 3.789176542829468*^9, 3.789182526627795*^9, 3.789182566912677*^9, 3.7891826499050713`*^9, 3.789182771965755*^9},ExpressionUUID->"1350a489-80cc-41f2-ac68-\ 80fc24c576b5"], Cell[BoxData["\<\"Solubility check of Pe\"\>"], "Print", CellChangeTimes->{3.787986006430683*^9, 3.78798609007554*^9, 3.787986129269093*^9, 3.787986203995407*^9, 3.78798624047539*^9, 3.787996469245281*^9, 3.78799666155105*^9, 3.787997007498617*^9, 3.787997325805225*^9, 3.788054874179139*^9, 3.789115983984865*^9, 3.789176542829468*^9, 3.789182526627795*^9, 3.789182566912677*^9, 3.7891826499050713`*^9, 3.789182772022818*^9},ExpressionUUID->"0257055f-fad2-4568-a43d-\ efa9d7aa9490"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182939703505*^9},ExpressionUUID->"d06d8d14-095b-4245-b127-\ bfd0e4d305b1"], Cell[BoxData["\<\"Continuity check of P3 a, b\"\>"], "Print", CellChangeTimes->{3.787986006430683*^9, 3.78798609007554*^9, 3.787986129269093*^9, 3.787986203995407*^9, 3.78798624047539*^9, 3.787996469245281*^9, 3.78799666155105*^9, 3.787997007498617*^9, 3.787997325805225*^9, 3.788054874179139*^9, 3.789115983984865*^9, 3.789176542829468*^9, 3.789182526627795*^9, 3.789182566912677*^9, 3.7891826499050713`*^9, 3.7891829397365713`*^9},ExpressionUUID->"47025a01-9be3-49a1-b590-\ 214781d00008"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182939745504*^9},ExpressionUUID->"fc804025-9c36-4d00-8062-\ 339cae882a78"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182939752776*^9},ExpressionUUID->"b0fb09a0-02e1-4353-bd9e-\ 1475f82fa106"], Cell[BoxData["\<\"Boundary check for Pe\"\>"], "Print", CellChangeTimes->{3.787986006430683*^9, 3.78798609007554*^9, 3.787986129269093*^9, 3.787986203995407*^9, 3.78798624047539*^9, 3.787996469245281*^9, 3.78799666155105*^9, 3.787997007498617*^9, 3.787997325805225*^9, 3.788054874179139*^9, 3.789115983984865*^9, 3.789176542829468*^9, 3.789182526627795*^9, 3.789182566912677*^9, 3.7891826499050713`*^9, 3.789182939762459*^9},ExpressionUUID->"0bb070b8-aeea-4f38-88cc-\ 6406f332d9b3"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182940071025*^9},ExpressionUUID->"4e1ba99e-f4fe-4f9f-9731-\ d3a1f4b5f445"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.787986006331439*^9, 3.787986089970793*^9, 3.787986129165874*^9, 3.787986203908287*^9, 3.787986240374625*^9, 3.7879964691413307`*^9, 3.7879966614488487`*^9, 3.7879970074022417`*^9, 3.7879973256552677`*^9, 3.788054874092536*^9, 3.7891159839757853`*^9, 3.789176542738103*^9, 3.7891825265184393`*^9, 3.789182566837305*^9, 3.789182649825202*^9, 3.789182940296513*^9},ExpressionUUID->"cd4e2f1d-05ad-4a93-b8ba-\ 68fc9c5cb3db"] }, Open ]], Cell["\<\ Constructing the solution for same problem using Privman\[CloseCurlyQuote]s \ method\ \>", "Text", CellChangeTimes->{{3.7880550066819*^9, 3.788055036366568*^9}},ExpressionUUID->"71b1f019-66cf-4c2c-825b-\ 4deb1c8ce098"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{"A", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1b", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}], "+", RowBox[{"b1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "q"}], " ", RowBox[{"x", "/", "a"}]}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"c1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", "q", ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}], "+", RowBox[{"c2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"x", "/", "a"}]}], "]"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", "q", ")"}]}], RowBox[{"x", "/", "a"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "b"}], "]"}], "==", RowBox[{"y1b", "[", RowBox[{"-", "b"}], "]"}]}], ",", RowBox[{ RowBox[{"y1b", "[", RowBox[{"-", "a"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "a"}], "]"}], "-", RowBox[{ RowBox[{"y1b", "'"}], "[", RowBox[{"-", "a"}], "]"}]}], ")"}]}], "+", RowBox[{"2", "r", " ", RowBox[{"de", "/", "a"}], " ", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y1b", "'"}], "[", RowBox[{"-", "b"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "b"}], "]"}]}], ")"}]}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}]}], ")"}]}], "-", RowBox[{"2", "r", " ", RowBox[{"de", "/", "a"}], " ", RowBox[{"y2", "[", "0", "]"}]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{ FractionBox[ RowBox[{"4", RowBox[{"a", "^", "2"}]}], RowBox[{ RowBox[{"r", "^", "2"}], " ", "de"}]], "s"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{ FractionBox["r", "2"], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "x", "]"}], ",", RowBox[{"x", "<", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y1b", "[", "x", "]"}], ",", RowBox[{ RowBox[{"-", "a"}], ">", "x", "\[GreaterEqual]", " ", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y2", "[", "x", "]"}], ",", RowBox[{"0", ">", "x", "\[GreaterEqual]", " ", RowBox[{"-", "a"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y3", "[", "x", "]"}], ",", RowBox[{"x", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"de", "=", ".4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", "a", " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "s"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "s"}], "]"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", "\[Infinity]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "s"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Normm", "=", RowBox[{"Simplify", "[", RowBox[{"%%", "-", "%"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Q", "[", "s_", "]"}], "=", RowBox[{"-", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "s"}], "]"}], "/", "s"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"b", ">", "a"}], "&&", RowBox[{"b", "\[Element]", "Positive"}]}]}]}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.788055179412676*^9, 3.788055179631399*^9}},ExpressionUUID->"8e5a8282-2e7f-435a-91c5-\ 6897aec3b65e"], Cell[BoxData[ RowBox[{"A", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], " ", "x"}], "a"]]}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.788829810166389*^9},ExpressionUUID->"78016b05-e3a6-4aca-8ac8-\ fb5397e4f3ae"], Cell[BoxData[ RowBox[{ RowBox[{"b1", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"q", " ", "x"}], "a"]}]]}], "+", RowBox[{"A1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], " ", "x"}], "a"]]}]}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.788829810178883*^9},ExpressionUUID->"ec8e0312-5d56-4281-b92b-\ 56b205a3cbc7"], Cell[BoxData[ RowBox[{ RowBox[{"c1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"q", " ", "x"}], "a"]]}], "+", RowBox[{"c2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "q"}], "-", "r"}], ")"}], " ", "x"}], "a"]]}]}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.7888298101850023`*^9},ExpressionUUID->"b008b95e-4a54-4067-96f4-\ b043ac187383"], Cell[BoxData[ RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"q", " ", "x"}], "a"]}]]}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.78882981019059*^9},ExpressionUUID->"3ce1f88a-a766-4a20-9d97-decd8b31c2c7"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r", "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"4", " ", "q"}], "+", RowBox[{"2", " ", "r"}]}]], " ", "q", " ", "r"}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r", "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", "q", " ", "r"}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"4", " ", "q"}], "+", RowBox[{"2", " ", "r"}]}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", SuperscriptBox["r", "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}], ")"}]}], ")"}]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]]}], ")"}], " ", "r", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}]}]]}], ",", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", "r"}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.7888298106203537`*^9},ExpressionUUID->"6ae385d4-fd63-49e9-8838-\ ad525af0f198"], Cell[BoxData["\<\"Normalisation check\"\>"], "Print", CellChangeTimes->{3.788055050661338*^9, 3.7888298106380444`*^9},ExpressionUUID->"ddc4f126-e21d-4f47-a10e-\ 9a24b905c1b4"], Cell[BoxData[ RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2.2`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9.396153940405525`*^-18"}], "-", RowBox[{"2.3876194440131024`*^-16", " ", "s"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"1.6`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{"9.396153940405525`*^-18", "+", RowBox[{"2.3876194440131024`*^-16", " ", "s"}]}], ")"}]}], "-", RowBox[{"0.9999999999999996`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", "s", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"1.7999999999999998`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.492262152508189`*^-17"}], "-", RowBox[{"0.03599999999999999`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"1.7000000000000002`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2.984524305016378`*^-17"}], "-", RowBox[{"2.3876194440131024`*^-16", " ", "s"}], "+", RowBox[{"3.7306553812704725`*^-18", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2.3`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{"1.2683481153796367`*^-17", "+", RowBox[{"1.1938097220065512`*^-16", " ", "s", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{"-", "\[Infinity]"}], ")"}]}]], " ", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}], " ", "\[Infinity]"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{"-", "\[Infinity]"}], ")"}]}]], " ", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}], " ", "\[Infinity]", " ", SqrtBox[ RowBox[{"Sign", "[", RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}], "]"}]]}]}], ")"}], "/", RowBox[{"(", RowBox[{"s", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"0.036`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"1.7999999999999998`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]]}], "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"250.`", " ", "s"}]}]]}]], " ", "s"}]}], ")"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{3.7880550504101067`*^9, 3.78882981493049*^9},ExpressionUUID->"31b2f077-31a3-41e7-ba2f-42c7c54cfddc"] }, Open ]], Cell["\<\ We have got to check all the tests, Now numerical test by taking inverse \ Laplace transform of V Privman solutions. THe comparison with the SK gosh \ solution of Privman is tested below;\ \>", "Text", CellChangeTimes->{{3.787905849533945*^9, 3.787905865678347*^9}, { 3.788054791133984*^9, 3.788054808090702*^9}, {3.789182894763247*^9, 3.789182913853301*^9}},ExpressionUUID->"ceac0ac7-04fb-4026-80d3-\ d8ae7dfb103a"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Unprotect", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Unit", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "<", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{".5", ",", RowBox[{"x", "==", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Heaviside", "[", "x_", "]"}], ":=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"x", "\[LessEqual]", " ", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"x", ">", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", "\[Epsilon]2"}], "]"}], "\[Rule]", "1"}], ",", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pnc", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "-", RowBox[{ FractionBox["\[Epsilon]2", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], "]"}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox[ RowBox[{"-", "\[Epsilon]1"}], "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], ")"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], "}"}]}]}], ";", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x"}], "]"}], RowBox[{"RealAbs", "[", RowBox[{"x", "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", "x", "]"}], RowBox[{"(", RowBox[{"xm", "-", "x"}], ")"}]}], "-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", "x0", "]"}], RowBox[{"RealAbs", "[", RowBox[{ RowBox[{"-", "x0"}], "+", "xm"}], "]"}]}], "+", RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"-", "x0"}], "]"}], RowBox[{"(", RowBox[{"xm", "+", "x0"}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Pnc", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]1", "=", FractionBox["k1", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]2", "=", FractionBox["k2", RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k1", "=", RowBox[{ RowBox[{"-", "d"}], " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k2", "=", RowBox[{"d", " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "xm"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xm", "=", "2"}], ";"}], RowBox[{"(*", RowBox[{ "potential", " ", "minimum", " ", "in", " ", "positive", " ", "number"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{"PLease", " ", "dont", " ", "change"}], ",", " ", RowBox[{ "this", " ", "is", " ", "assumed", " ", "for", " ", "the", " ", "privman", " ", "solution"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], RowBox[{"(*", RowBox[{ "position", " ", "of", " ", "the", " ", "initial", " ", "condition"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"c", "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"c", "*", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "30"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]}], "\[Equal]", "1"}], ",", "c"}], "]"}]}]}], "\n", RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", " ", RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}]}], ",", RowBox[{"f", " ", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}]}], ",", RowBox[{"f", " ", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}]}], ",", RowBox[{"f", " ", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "\n", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"f", " ", RowBox[{"NIntegrate", "[", " ", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "0"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "Infinity"}], ",", RowBox[{"MaxRecursion", "\[Rule]", "30"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", ".01", ",", "50"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"p1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotJoined", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Attributes", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", "NumericFunction", "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], "=", "\"\\""}], ";", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "failed"}], "=", "\[IndentingNewLine]", "\"\\""}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "NInverseLaplaceTransform", "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "5"}], ",", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{"expr_", ",", "s_Symbol", ",", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "F", ",", "z", ",", " ", "x", ",", "M", ",", " ", "f", ",", "g", ",", "fg", ",", "gg", ",", "ff", ",", "fgm", ",", " ", "f12", ",", "g12", ",", " ", "m", ",", "mmin", ",", "mmax", ",", "mb", ",", "meth", ",", "res"}], " ", "}"}], ",", " ", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"mmin", "=", RowBox[{"Min", "[", RowBox[{"15", ",", RowBox[{"Max", "[", RowBox[{"5", ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mmax", "=", RowBox[{"Min", "[", RowBox[{"20", ",", RowBox[{"mmin", "+", "5"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"meth", "=", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], "]"}], ",", RowBox[{"meth", "=", "\"\\""}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Rationalize", "[", RowBox[{"expr", ",", "0"}], "]"}], "/.", RowBox[{"s", "\[Rule]", "z"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"x", "=", RowBox[{"Rationalize", "[", RowBox[{"t", ",", "0"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", RowBox[{"NumericQ", "[", RowBox[{"F", "[", "100", "]"}], "]"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongexpr"}], ",", "expr", ",", "s"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"And", "[", RowBox[{ RowBox[{"NumericQ", "[", "t", "]"}], ",", RowBox[{"t", ">", "0"}]}], "]"}], "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "::", " ", "wrongtime"}], ",", "t"}], "]"}], ")"}], ";", RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"f12", "=", RowBox[{"g12", "=", RowBox[{"Array", "[", RowBox[{ RowBox[{"0", "&"}], ",", "mmax"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"M", "=", RowBox[{"2", "^", "m"}]}], ";", RowBox[{"mb", "=", "m"}], ";", RowBox[{"ff", "=", RowBox[{"fgm", "=", RowBox[{"fg", "=", RowBox[{"gg", "=", "False"}]}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"f", "=", RowBox[{"FT", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "f", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"f", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ff", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"f12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fgm", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}], "\[Equal]", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{ RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{"meth", "===", "\"\\""}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", RowBox[{"GWR", "[", RowBox[{"F", ",", " ", "x", ",", " ", "M"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "=", RowBox[{"If", "[", RowBox[{ RowBox[{"$MinMachineNumber", "<", RowBox[{"Abs", "[", "g", "]"}], "<", "$MaxMachineNumber"}], ",", RowBox[{"g", "//", "N"}], ",", "0."}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"f12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"gg", "=", RowBox[{"And", "[", RowBox[{ RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "\[Equal]", RowBox[{"g12", "[", RowBox[{"[", RowBox[{"m", "-", "1"}], "]"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", RowBox[{"mmax", "-", "1"}]}], ",", RowBox[{"meth", "===", "\"\\""}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"And", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{ RowBox[{"g12", "[", RowBox[{"[", "m", "]"}], "]"}], "==", "0"}]}], "]"}], ",", RowBox[{ RowBox[{"res", "=", "$Failed"}], ";", RowBox[{"Break", "[", "]"}]}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{"m", "\[Equal]", "mmax"}], ",", RowBox[{"res", "=", "$Failed"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"m", ",", "mmin", ",", "mmax"}], "}"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"fg", ",", "gg"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"g12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Or", "[", RowBox[{"ff", ",", "fgm"}], "]"}], ",", RowBox[{ RowBox[{"res", "=", RowBox[{"f12", "[", RowBox[{"[", "mb", "]"}], "]"}]}], ";", " ", RowBox[{"Return", "[", "res", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"res", "\[Equal]", "$Failed"}], ";", "\[IndentingNewLine]", RowBox[{"(", RowBox[{ RowBox[{ "ResourceFunction", "[", "\"\\"", "]"}], "[", RowBox[{"NInverseLaplaceTransform", "::", "failed"}], "]"}], ")"}], ";", "\[IndentingNewLine]", "res"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"GWR", "[", RowBox[{"F_", ",", " ", RowBox[{"t_", "?", "NumericQ"}], ",", " ", RowBox[{"M_", ":", "32"}], ",", " ", RowBox[{"precin_", ":", "0"}]}], "]"}], " ", ":=", " ", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", " ", RowBox[{ "fv", ",", "w", ",", " ", "wm", ",", "wp", ",", " ", "best", ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{ RowBox[{"Log", "[", "2", "]"}], "/", "t"}]}], ",", " ", "prec", ",", "k", ",", "n", ",", "i"}], "}"}], ",", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"precin", " ", "\[LessEqual]", " ", "0"}], ",", " ", RowBox[{"prec", " ", "=", " ", RowBox[{"2.1", "*", "M"}]}], ",", " ", RowBox[{"prec", " ", "=", " ", "precin"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"prec", " ", "\[LessEqual]", " ", "$MachinePrecision"}], ",", " ", RowBox[{"prec", " ", "=", " ", "$MachinePrecision"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Precision", "[", "tau", "]"}], " ", "<", " ", "prec"}], ",", " ", RowBox[{"tau", " ", "=", " ", RowBox[{"SetPrecision", "[", RowBox[{"tau", ",", " ", "prec"}], "]"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fv", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"i", " ", "tau"}], "]"}], ",", " ", "prec"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", RowBox[{"2", "M"}]}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"Table", "[", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tau", "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "*", "n"}], ")"}], "!"}], "/", RowBox[{"(", RowBox[{ RowBox[{"n", "!"}], "*", RowBox[{ RowBox[{"(", RowBox[{"n", " ", "-", " ", "1"}], ")"}], "!"}]}], ")"}]}], ")"}], "*", RowBox[{"Total", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Binomial", "[", RowBox[{"n", ",", " ", "i"}], "]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "^", "i"}], "*", RowBox[{"fv", "[", RowBox[{"[", RowBox[{"n", " ", "+", " ", "i"}], "]"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", ",", " ", RowBox[{"{", RowBox[{"n", ",", " ", "M"}], "}"}]}], "]"}]}], ";"}]}], " ", "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"best", "=", RowBox[{"Last", "[", "w", "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{ RowBox[{"best", "=", "$Failed"}], ";", RowBox[{"Return", "[", "best", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "M", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{"k", "/", RowBox[{"Differences", "[", "w", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wp", "=", RowBox[{"Quiet", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{"wm", ",", "1"}], "]"}], "+", "wp"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"wm", "=", RowBox[{"Drop", "[", RowBox[{"w", ",", RowBox[{"-", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"w", "=", "wp"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"EvenQ", "[", "k", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"NumberQ", "[", RowBox[{"Last", "[", "w", "]"}], "]"}], ",", RowBox[{"best", " ", "=", RowBox[{"Last", "[", "w", "]"}]}], ",", RowBox[{"Break", "[", "]"}], ",", RowBox[{"Break", "[", "]"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", RowBox[{"{", RowBox[{"k", ",", " ", RowBox[{"M", " ", "-", "1"}]}], "}"}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"Not", "[", RowBox[{"NumberQ", "[", "best", "]"}], "]"}], ",", RowBox[{"best", "=", "$Failed"}]}], "]"}], ";", "\[IndentingNewLine]", "best"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FT", "[", RowBox[{"F_", ",", RowBox[{"t_", "?", "NumericQ"}], ",", RowBox[{"M_:", "32"}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{ "np", ",", "p", ",", "r", ",", "s", ",", "theta", ",", "sigma", ",", "tab", ",", "f"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"np", "=", RowBox[{"Max", "[", RowBox[{"M", ",", "$MachinePrecision"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"SetPrecision", "[", RowBox[{"t", ",", "np"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", RowBox[{"$MaxExtraPrecision", "=", "5000."}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", RowBox[{"M", "/", RowBox[{"(", RowBox[{"5", "p"}], ")"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"s", "=", RowBox[{"r", " ", "theta", " ", RowBox[{"(", RowBox[{ RowBox[{"Cot", "[", "theta", "]"}], "+", "I"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"sigma", "=", RowBox[{"theta", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"theta", " ", RowBox[{"Cot", "[", "theta", "]"}]}], "-", "1"}], ")"}], RowBox[{"Cot", "[", "theta", "]"}]}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Quiet", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"tab", "=", RowBox[{"Flatten", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "r"}], "]"}], " ", RowBox[{ RowBox[{"F", "[", "r", "]"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{"p", " ", "s"}], "]"}], RowBox[{"(", RowBox[{"1", "+", RowBox[{"I", " ", "sigma"}]}], ")"}], RowBox[{"F", "[", "s", "]"}]}], ",", RowBox[{"{", RowBox[{"theta", ",", RowBox[{"Pi", "/", "M"}], ",", RowBox[{ RowBox[{"(", RowBox[{"M", "-", "1"}], ")"}], RowBox[{"Pi", "/", "M"}]}], ",", RowBox[{"Pi", "/", "M"}]}], "}"}]}], "]"}], "/.", RowBox[{"ComplexInfinity", "\[Rule]", "0"}]}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"f", "=", RowBox[{"Total", "[", RowBox[{"Re", "[", RowBox[{ RowBox[{"(", RowBox[{"r", "/", "M"}], ")"}], " ", "tab"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "f"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{ "z", ",", "q", ",", "\[CapitalOmega]", ",", "de", ",", "a", ",", "r", ",", "b", ",", "F", ",", "f", ",", "s"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{"A", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}]}], RowBox[{"(*", RowBox[{"x", "<", RowBox[{"-", "b"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1b", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"A1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}], "+", RowBox[{"b1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "q"}], " ", RowBox[{"x", "/", "a"}]}], "]"}]}]}]}], RowBox[{"(*", RowBox[{"x", "<", RowBox[{"-", "a"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"c1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", "q", ")"}], RowBox[{"x", "/", "a"}]}], "]"}]}], "+", RowBox[{"c2", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"x", "/", "a"}]}], "]"}]}]}]}], RowBox[{"(*", RowBox[{ RowBox[{"-", "a"}], "<", "x", "<", "0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{"B", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"(", "q", ")"}]}], RowBox[{"x", "/", "a"}]}], "]"}]}]}], RowBox[{"(*", RowBox[{"x", ">", "0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}], "/.", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "b"}], "]"}], "==", RowBox[{"y1b", "[", RowBox[{"-", "b"}], "]"}]}], ",", RowBox[{ RowBox[{"y1b", "[", RowBox[{"-", "a"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", "0", "]"}], "\[Equal]", RowBox[{"y3", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "a"}], "]"}], "-", RowBox[{ RowBox[{"y1b", "'"}], "[", RowBox[{"-", "a"}], "]"}]}], ")"}]}], "+", RowBox[{"2", "r", " ", RowBox[{"de", "/", "a"}], " ", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y1b", "'"}], "[", RowBox[{"-", "b"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "b"}], "]"}]}], ")"}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{ RowBox[{"de", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}]}], ")"}]}], "-", RowBox[{"2", "r", " ", RowBox[{"de", "/", "a"}], " ", RowBox[{"y2", "[", "0", "]"}]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"A", ",", "A1", ",", "b1", ",", "c1", ",", "c2", ",", "B"}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{ FractionBox[ RowBox[{"4", RowBox[{"a", "^", "2"}]}], RowBox[{ RowBox[{"r", "^", "2"}], " ", "de"}]], "s"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{ FractionBox["r", "2"], RowBox[{"(", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", "z"}], "]"}], "-", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Piecewise", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"y1", "[", "x", "]"}], ",", RowBox[{"x", "<", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y1b", "[", "x", "]"}], ",", RowBox[{ RowBox[{"-", "a"}], ">", "x", "\[GreaterEqual]", " ", RowBox[{"-", "b"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y2", "[", "x", "]"}], ",", RowBox[{"0", ">", "x", "\[GreaterEqual]", " ", RowBox[{"-", "a"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y3", "[", "x", "]"}], ",", RowBox[{"x", "\[GreaterEqual]", " ", "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"de", "=", RowBox[{"d", "/", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"a", "=", "2"}], ";"}], RowBox[{"(*", RowBox[{ "position", " ", "of", " ", "the", " ", "minima", " ", "given", " ", "in", " ", "positive", " ", "number"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"b", "=", "x0"}], ";"}], RowBox[{"(*", RowBox[{"position", " ", "of", " ", "initial", " ", "condition"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"r", "=", RowBox[{"2", "a", " ", "g"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"x_", ",", "s_"}], "]"}], "=", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"F", "[", RowBox[{"x", ",", "s"}], "]"}], ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "s"}], "]"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", "\[Infinity]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{"f", "[", RowBox[{"x", ",", "s"}], "]"}], "/.", RowBox[{"x", "\[Rule]", "\[Infinity]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Normm", "=", RowBox[{"Simplify", "[", RowBox[{"%%", "-", "%"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Q", "[", "s_", "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"0", ",", "s"}], "]"}], "-", RowBox[{"f", "[", RowBox[{ RowBox[{"-", "30"}], ",", "s"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"b", "\[GreaterEqual]", " ", "a"}], "&&", RowBox[{"b", "\[Element]", "Positive"}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalOmega]", "=", RowBox[{ RowBox[{"4", "q", RowBox[{"(", RowBox[{"r", "+", "q"}], ")"}], RowBox[{"Exp", "[", RowBox[{"r", "+", RowBox[{"2", "q"}]}], "]"}]}], "+", RowBox[{"r", "^", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"\[Rho]", "[", "s_", "]"}], "=", RowBox[{ FractionBox[ RowBox[{"a", "^", "2"}], RowBox[{ RowBox[{"(", RowBox[{"r", "+", "q"}], ")"}], "de", " ", "\[CapitalOmega]"}]], RowBox[{"(", RowBox[{ RowBox[{"4", RowBox[{"(", RowBox[{"r", "+", "q"}], ")"}], RowBox[{"Exp", "[", RowBox[{"r", "+", RowBox[{"2", "q"}]}], "]"}]}], "+", RowBox[{ RowBox[{"r", "^", "2"}], "*", FractionBox[ RowBox[{"1", "-", RowBox[{"Exp", "[", "q", "]"}]}], "q"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "r"}], "+", RowBox[{"2", "q"}]}], ")"}], RowBox[{"Exp", "[", "q", "]"}]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"Q", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ab2", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"NInverseLaplaceTransform", "[", RowBox[{ RowBox[{"\[Rho]", "[", "s", "]"}], ",", "s", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", ".1", ",", "50"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"ab1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "ab1", ",", "ab2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.7879865815929537`*^9, 3.787986644259323*^9}, { 3.7879885983285913`*^9, 3.7879886080040617`*^9}, {3.787988679335163*^9, 3.787988705545038*^9}, {3.787989210193022*^9, 3.7879892132132483`*^9}, { 3.787989462718268*^9, 3.787989466660417*^9}, {3.7879933266956673`*^9, 3.787993338968341*^9}, 3.787994052576439*^9, {3.787994463772943*^9, 3.787994504456954*^9}, {3.787994586127137*^9, 3.7879946061721573`*^9}, { 3.7879946440099087`*^9, 3.787994673962676*^9}, {3.787994709488409*^9, 3.787994713007406*^9}, {3.787994786580906*^9, 3.78799478860177*^9}, { 3.7879958392558403`*^9, 3.787995845963876*^9}, {3.787995930796639*^9, 3.7879959412956553`*^9}, {3.7879959791869373`*^9, 3.7879960132205687`*^9}, 3.7879983113918056`*^9, {3.787998566383032*^9, 3.7879985864639807`*^9}, { 3.787998627730042*^9, 3.787998677676115*^9}, {3.7879998988535213`*^9, 3.787999900660448*^9}, {3.788054403514258*^9, 3.788054413755784*^9}, { 3.788054472986147*^9, 3.788054518895893*^9}, {3.788054708501725*^9, 3.788054727822804*^9}, 3.788054763556108*^9, {3.788055217510428*^9, 3.788055246158922*^9}, {3.788055320932444*^9, 3.78805538640733*^9}, { 3.788055454252657*^9, 3.788055456014195*^9}, 3.788055506937325*^9, { 3.788055580816201*^9, 3.788055595076215*^9}, {3.788062014313539*^9, 3.7880620210257587`*^9}, {3.788062061737007*^9, 3.78806206286269*^9}, 3.788062181697109*^9, 3.788062217212883*^9, 3.788062523443323*^9, 3.788062560977553*^9, {3.788773107399222*^9, 3.7887731359072037`*^9}, { 3.7888299924026413`*^9, 3.788830009623414*^9}, {3.7888300662224693`*^9, 3.7888301221081963`*^9}, {3.788830234035973*^9, 3.788830239484963*^9}, { 3.7888302845616837`*^9, 3.788830288705595*^9}, {3.788830400864962*^9, 3.788830431246163*^9}, 3.788830488394573*^9, {3.78883079760345*^9, 3.788830853053623*^9}, {3.788831048122534*^9, 3.78883107868395*^9}, { 3.7888311420142937`*^9, 3.7888312023501062`*^9}, {3.788831587287404*^9, 3.788831631990075*^9}, {3.788831685453623*^9, 3.788831692275936*^9}, { 3.7888317342465887`*^9, 3.788831744306809*^9}, 3.788831802528727*^9, { 3.7888318354213467`*^9, 3.788831930140431*^9}, {3.788833007914782*^9, 3.78883301732098*^9}, {3.788833239680625*^9, 3.788833243240591*^9}, 3.788833326471192*^9, 3.788833595425047*^9, 3.788833654613862*^9, { 3.7888337007043552`*^9, 3.7888337048477077`*^9}, {3.788833748853921*^9, 3.788833779063693*^9}, 3.788833986300063*^9, 3.788834040859653*^9, { 3.788834294749641*^9, 3.788834369720564*^9}, {3.789089153714058*^9, 3.789089156469645*^9}, {3.7890892076523046`*^9, 3.789089210706711*^9}, { 3.78909944592916*^9, 3.789099448445979*^9}, {3.789099537353208*^9, 3.789099538747017*^9}, {3.789099657826015*^9, 3.78909967785214*^9}, { 3.789099838150631*^9, 3.7890998567019463`*^9}, {3.789100067985652*^9, 3.789100101819861*^9}, {3.7891001714024982`*^9, 3.7891001881476107`*^9}, 3.7891003445708323`*^9, {3.789114710387341*^9, 3.7891147643019867`*^9}, { 3.7891148381998777`*^9, 3.789114859299307*^9}, 3.789114896939197*^9, { 3.7891160881640663`*^9, 3.789116093856039*^9}, {3.7891162061440983`*^9, 3.789116240309272*^9}, {3.789116494246385*^9, 3.7891165159134693`*^9}, { 3.789116573025091*^9, 3.789116579063634*^9}, 3.789116671062539*^9, { 3.789117369565383*^9, 3.789117387078578*^9}, {3.789118193817781*^9, 3.7891181952205763`*^9}, {3.7891738228041267`*^9, 3.7891738451823683`*^9}, {3.789173947915368*^9, 3.789173948124827*^9}, { 3.78917783834066*^9, 3.789177962855694*^9}, {3.789178010915694*^9, 3.789178027593361*^9}, {3.789178168908197*^9, 3.789178201997162*^9}, 3.789178309017817*^9, 3.789178426715088*^9, 3.789178528517861*^9, 3.789178572995945*^9, {3.789178678249807*^9, 3.789178685432571*^9}, 3.789178738596656*^9, 3.789178812432637*^9, {3.789178968941123*^9, 3.789179034634733*^9}, {3.789179111497761*^9, 3.78917913087856*^9}, { 3.789179183992167*^9, 3.789179197725396*^9}, 3.789179236969757*^9, { 3.789179317761574*^9, 3.78917937061172*^9}, {3.789179473848907*^9, 3.789179492183469*^9}, 3.789179997848168*^9, {3.7891801803834343`*^9, 3.7891801978839073`*^9}, {3.789180241196218*^9, 3.7891803677969913`*^9}, { 3.789180630853621*^9, 3.789180640519148*^9}, 3.789180671959278*^9, 3.789180777497888*^9, {3.7891819437194242`*^9, 3.789181949133574*^9}, { 3.789182172986574*^9, 3.78918217501624*^9}, {3.7891822799121847`*^9, 3.789182307137876*^9}, {3.789182338634124*^9, 3.789182340148382*^9}, 3.7891829264522*^9, {3.789183110271822*^9, 3.7891831360993357`*^9}, { 3.789183170141098*^9, 3.789183230595899*^9}, {3.789183277702868*^9, 3.789183314524544*^9}, 3.789183350493916*^9, {3.789183416874179*^9, 3.789183424241988*^9}, {3.78919650159487*^9, 3.789196509882163*^9}, { 3.7891965407490673`*^9, 3.789196541141177*^9}, 3.789197163174094*^9, { 3.789368347767157*^9, 3.789368362382862*^9}, {3.789368399848612*^9, 3.789368405049909*^9}, 3.789368537535944*^9, {3.7893779509881887`*^9, 3.789377960429534*^9}, {3.789701684908024*^9, 3.7897016897046137`*^9}},ExpressionUUID->"f9e2e618-7604-45f6-89e2-\ db4736bcbb92"], Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{{3.7888318450310717`*^9, 3.7888319314942303`*^9}, 3.788833018320115*^9, 3.78883324466765*^9, 3.78883359725865*^9, 3.7888336562018337`*^9, 3.788833706765267*^9, 3.788833750316852*^9, 3.7888339921268263`*^9, 3.788834042156336*^9, {3.788834313295293*^9, 3.7888343382878017`*^9}, 3.788834372482876*^9, 3.789089158292882*^9, 3.7890892122645807`*^9, 3.789099563296829*^9, 3.789099679583399*^9, 3.789099858154079*^9, 3.7891001034256287`*^9, 3.789114901528133*^9, 3.78911609576676*^9, 3.789116216259016*^9, 3.789116674757854*^9, 3.7891174074582644`*^9, 3.7891182017926483`*^9, 3.789173849486812*^9, 3.7891739534156427`*^9, 3.789178069722941*^9, 3.789178177059972*^9, 3.789178208751974*^9, 3.7891783100965643`*^9, 3.789178429136532*^9, 3.7891785329330263`*^9, 3.7891785743387213`*^9, 3.7891786868849487`*^9, 3.789178813945644*^9, 3.7891789744532537`*^9, 3.789179009078422*^9, 3.789179139456126*^9, 3.78917920518388*^9, 3.7891793785117188`*^9, 3.78917949711987*^9, 3.789179999333993*^9, 3.789180199878035*^9, 3.789180279946113*^9, 3.789180328035451*^9, 3.789180791814735*^9, 3.789181951509663*^9, 3.7891821758678427`*^9, 3.789182308460403*^9, 3.7891823445274982`*^9, 3.78918337839491*^9, 3.789183425271797*^9, 3.789197178234254*^9, 3.789368363778533*^9, 3.789368417664081*^9, { 3.789368540834017*^9, 3.789368561548788*^9}, 3.789378898872356*^9, 3.789433829810072*^9, 3.789701705160483*^9},ExpressionUUID->"74c02f61-723a-4853-8ea1-\ 95a57c732d00"], Cell[BoxData[ RowBox[{"{", "6.640212213376486`", "}"}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017053655376`*^9},ExpressionUUID->"42e21c38-4ed0-40ba-96f5-\ 8081f0d7ab65"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlHk0FH4XxkX2bcyYsYWxM9YZW8LMFBHZsxQhQraEhERUlCJLSJZCRbai LPlJfW9ZSgmJsoZE9i071dv71z2f8zz3nHvOc+4j4X7GxpORgYGhfhcDw/9n 1E/z5b9/1SFANXX34itTNHGBsDqwow4O5/0fxi2ZIgvM8PrzTXW4pzW3ECF9 GBF1An+f+aUO3XmbLtcSDqM3N26xjUyog4yfe4OuixliU/kqBh/Vwer96K/n BAsU9CZPIve9Osxy7IjmW1qgfntv6fC36tAcNTr5K94ClUVvKqi9Vgf7hNaU 0R0LZPFJRDO/+p8/kKVtZsoSpYecOByTow546hXeF7NW6DebgsXxO+qgh6tL fslljbzuLlntzVAHpnZK9o6SNdJuuWy/mKQOL2S6BCkB1qhfoNDtxGV1kM5z DL/2yxoRX0yF0X3UIexRboQhxxFUtuvsQwZtdfg8ZmIb5WeH9h4pZclSV4cz T7QF/TPtUMvDUW+ymjocO3N1vbrRDo0YWym7K6hDZyfDnIOoPSIkKdc2iqhD Rin/ofVue3RZePLtVQZ14GwI8D1ofxRh/MVJ4r8psOO106safxTdfWmf+HyT Ar1jXsUx9UdR3Ylmq8llClxb9a86SjyG5oru95mMU2Cw5szg5uIxdFTdeYbr PQUaNnz2vy5yQhOx6eaFLRR4PXRtOWzYCZ398qFCv5EC+LWu1fuCx1HS+X0h AQ0UuMeiUHEs8ThqRAK/O55Q4LrVwYse552RilkXT1oaBW5zONx+7+uKmD2N KULOFPCOd9vN2+eGulzIDjPH/t3XrTy/b9sN3TsqEvnSngJc5DrDYlF3pGW2 0OxmRYEuTyYVk5PuyEs981ipAQW6tzVGni65o3e7fsbokiiwJbzHM1XEA6Vv dxZyy1Hgd2j/DOaABzqxWv9+WIoCAmabcv3eHmhzMok/VpQCP6vGVg8/90Ck Tq3iNgwF5AlvsxscPFHivasdzutkqHl1ReXIIy909E7giuoKGVJ/5SU/6/JC 0rcchRiXyGDRT9v2+OOFXsapnCyaJsOTfeQzzfan0Lz/l7X5ITIw6PwJv8rp jax0ZcVimsiw44dPz47zQbjeZv/7qWSQwfJ49oM/AsWC+NgkMryI0mTqWvNH /tGRD70SyBDPujqjonwatciqD5LiyLDbiJApknMaRZzLP1wVToaV4LCwngsB 6Dv2AqnJlQzGH05nN8gHomQve6Oi42SoaxwYxBgHIr16snv8MTJM5vNy3fMM RLfdJrPMjpAB57Y46PEgEJlW2rH3GJHB/VufQqVEEHpmrjY5rkyGC092SeQp BCPXAs7d70hkCAncy1J7OBhxrU6Il8qRYTx/e4IrIBh55d51CJAggzjBIzKy KhgJz3C8XeP/pw/zWQfuP4sux48Xsu6oge0e/TOCviHIpjH7pMJ7NRBSqe7g WA5F0t0/vr1tUQNm29KdZmIYWvuh4ujV+E8/ym4/YhmGslgarR40qEFO4cht zYowNGIyoy9aoQYf9xImwoLD0elOXUG+dDW4X8SUx80VgaijcWkVKWow0lHy Q2h/BMIsd/BY3FQDv3Gixq3QCFSN82BOuKoGHNEn3d9/j0Bb9onLu8+rwVkn zcgguIDihwbbNpzVYJf7wQyP1CjkOC97KNNRDRy1mG7kfoxCSn8DGzUd1MBi WE7KkuMi6iAy1wdbqcGmWoOifNxFRPBQfjR7QA0Upno9m2Oi0YPpqEsjcmoQ W7R76NC7GHRhQd8/ZUwVyF1sySzcV1Cum/YkfUgVxC5gvuuQr6CGz2oeS19U 4T+LoT9P7a6gP8+ljtu8V4VulcyC4Lwr6HIMuxn/U1V4VPSb31ArFt3g61G8 c1EVaq8tG+cFxaGyK+2PDoWrwki+TYlLdhxqW30rtRmkCt7O3uF+jXGIp79e xNFTFZJUrB+fIVxFt+7nc+4xU4VewZ12ClxF2er+M3lCqkBM2p9AkopHLwo9 T1nhVGGNT4bCZh2PBgVcxxi4VeG7VxyDfnQ8EtuxHnBjUIW9Lt5lTwbj0f0m 7Q9SP1VgKaPpYVPOdVRix1T2qFoFUiduPLJRTEB1Ydm+FZYq0BH+snYjPQlJ egQV9h5SgTZSwOf1z0noptWhkV0HVMAovK06HJeM3BXW7Gw1VOCd4eYKU3oy 4hyw3r8pqAIeBiTBCvMU5EJlFzT4rgy0yN1xnO6p6B1pxMZ/QBnooZMm/XGp iCLw/GZGtzJIyT7+tFySilgXPZgmW5RhCPP1BtOvVFRZAPOJZcpgxPsouTr+ FmJiDm/+EqIMq5hjPiNv0lDAkgUDQ4AyzN5ysM2YSUO9QzK6CqeUgdmtTOge fzoqr/1ceeGYMkiyP/j5+FQ6svdWzSVSlUFeLOJjH18GKv4wEezLqgyb9eXO u8JuI4tbdsQ/WUoQW7G7+/P1LBRB4TUxTlMCcTWHqvCXWaio611QSqISXPDm Y7y6lIX+YPUaJaOVwKCSpDfkmI0ep0l6GXsowTte4aIMSg7iylgoS1FRgp3u HuziWi7aq1nS3SenBNFse4ouk+8ijx7335ISSqCZnFmW4H8XNeC/WNTglECn nPRx94+7yO92w1LfhiKIngzCP+m9h95nXteWalSE2dJI/UH/fLSmbXDCv0ER /FI/OeGS8pFk7058TY0ivJ7eX3izIh9FCAb2Gxcrgq1eb5/5r3ykkGUf5X9T ERrYJKc4Lxag+GypxhoHRThxD0Pdzr+PjO++tDg0SwKue2KD74iFaPHm4M7u CRJ4ZMm8yT9UiLIvbpe+HiaBXC7pQ2NgIZp11WHV/UwClui/UXOvC9EtyRqk XE+CioP+8sOnitC3R+VquHgS2A66ybx88wjF3/nwreMSCfhbyb8TFh4h8vXp xMQLJDBGyLZiTzGK9ZWfYj5DAiWOR7vWwooRSflhwYYdCRgtuzkyKCUo9FkO 9psUCRIzNDPK6koR8UE9ZIuSIOgOXwPvTClqTesLcBAgAekcZrpLtAztOSfw oZPjHztlKZyPLUNvtNOuNC4pwN65A9LH7MsRz8sbK8VIAR7osM9wcD9BRW/P fznrpAACGZpfO8YrURYl1KDEVgGuHPxw4gTbU5R4N7jym7kCFOVT72krPkXB Z/1umNAVwKnJI7wh6CnSF3emissogLZCWJMq4zPUHUovej8vD8+7PkbtJ1eh t6N6OIZJefi526H4ytEqVG+mE6M5Kg+vqp4RCTFVKF+S4pj/WR6qbWk3VTqr kF+7FE9onTyEBtvl00KqEaMsa6jEZXnQ6hsIO99Wg1ZTmMbsL8hDY8b9IMxm DZrc/muZGCIPl9q28hlla1H7pw2FdS95WHOXSdyOqUVZUdNDbYfl4cO+ZUdb 3edIrefjwXC8PIjYj4iav6lDLrHp+I5iOWA3XPHiEG9A7bQ11vD7cqCtP8Zf b9uAaNsOW8RcOch7OUjvvNGAiMEiw8HJcpA4i5FS32hA313vFxNC5SA1vuHz 5NeXyEu3UtfFQA4qFz8utpQh9GWNT4VVXw5cIwYj9ScRMn52llipJQeX8NEv 0rCA5BW0mRlJcsA3cjhdyQrQNOFVeyFGDihHunbJtgMKWP7gNjckC1r5zfdy e16jb4+VbW9/lQUP+/mu4vXXyNIn2Yj2SRZYdquyrgm9QWojNoqpTbKwGWPg Zuf6Bi1/7FvRKJMFp+TfxZpzb1Boyc9rkeGyYDiwgJ3HN6GLJ5iecOJk4ZNn jNbfey2ossM4qZtLFpgKWGJtW1vQd2piwF2Wf3r0dY7NXy3ISBSvqrolAzZe 9/kppm//9bdspc3oP27AZIVsvUX3jpg+y6qQgQke2bk3vq0IGaXWypnJQMqf 1cg/SW1ouabn9uJBGbjm62ET2NSGpGWEw/6jyYBJNb+S0VYbimd6oH1YXQYW 5g/1E099RFZQXRcgLAO9D1OXig62oxGd3vqaSWlYsK9Mt+LsRAzK4sggThrs ku2Ftli6UCRhv0vcRWnQn8oqzFTsQut/3X+3hP3jqrsp0VZdaL6rSNfUVxpa V61G1HK60EC4Sp2VpTRYzKxokzQ+o9om/afOQtLQSIr2ZDzXjShPXK3ysNJw LpPfOfleN3qceWlhhFMafoWm/Bf4rhs99G1W9vgjBR2qNCt10R50C2Ne6jsm BYq1Fhwf3veg08ePPwh7LAUPxVu2RrW+osmDFw/8VyQFIgnXiti8viIP1fzR rTwp2BGNJCRnfEWOjD/EL96SgtICivmr1a/oULFfbmyYFFyj3C15Ud+LpFci MlL3S8Hjx2tbow79qD8h61pZjyRcMSBSysaG0B4O75KVAxKg9ft46KDPOHJ5 1ZYoqScB005xh6VixlFBMDnQSlMClsqKAoJvjyPZgS2tcjkJYDpdGExpHEeq 5TebTnJJQLFJ6R4f0Ql0wKJquKuHCJQd+48ZPRPI59Yf/FNvIiyZV7+65zCJ yo1Obn5zI8KRrwcV0gIn0fzW20EuJyJ80MDKF1yfRMEnUx94mxPh4IyrGUfD JIrUkCYTKUTojIwW5JecQmKP0+6IrYvDJ8KmieivKeSnSWIe2CMOnM/Gfr4t mUHBzP89CuUVhzvdQb33mmdQRI+xKZZRHErG3D+mjs6gG+c8k01+ikFkoY1m m9AsKq3JF6p7Kgbe+Amh2wmzaEpTQCXDSAzyVs6EZ4bMoVNaux0sA0VhB1dS QXReQAEsaZvT7qLQMBHF9DRyAYV+kci9aicK2oeURdxyF9DVUNroy32i8K1O mCAxuICKaiP8lJhFgYv17kiqyiIa11qKZs/eA3r78IeKny2ik9rfihsbRYB9 tJYl++0S8irWtjd6LgICmlc9THqXkK9QKlNrqQh8wtT5sk0tocBtA5f2VBEw vCFQVsOxjCJRCa7PVQR6n2dlt1sso3Tjcxfnt4XhL5F2jLV/GbU4cNkKaQjD s7pWH4bfv1DrO89duXLCQD/i6/KGdwW16aAnYiLCsHzi2FyG5ArqEglml2YU htGWg3uCD62g4eGvr1Q6hSAtvyqFIWMFbZx6oGDoLwT2R3yzY8mriBS+72/A Q0FwF496dj98DcGQBWnstiAkewy/v5y8huwNTto5XBcEN+pZpYiiNXSZJ7GM FiAICUqhChXda6jv4ZADZq8gdIruztWgrKP4TzGVTz8IgJ3s3hi0tI7EtDMG ZF4JwMFmXIYoxwaqzi1hya4UgP7Yv3Fpkhto5FTX8csZAhDVftyz+cgG0v4j xX7EVQCk9/amyzzfQG0n92q8tRYAcvZFddnODeTeauaqaygA7BHKsqpTGygp /VyNlILAv38zSNET2UQTpLduK8sEGFpesKiN2kSRKQOJ3uMEcJsSifDO2ETY tYXng18J4Chnw+BZvomKnXaPWb0ngH36BVPvN5uI+lqQp7mBAO6KqjIiXzdR t6yyjk4FAe7izce5pzeRb+J+j8cFBGhea8l5trWJGJbtkiXSCTDfy021Z9tC GQ6+9RlXCbCi8KFMELuFSC8vjrOfJ8Dfq4SYMcIWAsk0zEU/AryqfPPQFb+F 7OMf6S47E8Dlm0DpFOcWmp174eVlRQCnspaV2I1NdPlIZ2r/AQJ4/bD9+bF3 Ewn+96PBQpMALQe+GsyUbP4Lf/PnGzkCOCjZi0V7byLDWG6ctjABrHIsv2Zi NlH/lAS1jIsAgdQ7zwvubqBASy0f8b94kFZRnz72Lw+WGtP0tCU86GZMVzVa raMcYVfE+gMPxvG+U0TfNaQWc3b6whc8vAzpgXmLVdQyfg2/+A4PKq/d1CbX fqHjh3PpHi/wUNcUhOc9toyWKyv9eh/jYSw70+ml3yKKJzTfNsvHw6LZnsSL JrNILLLvNdzCg5voubKF5QlUPTo3qxGHB5++FF7iqxFkaswoWBKGB4UUH+tm 0mc0Uk4wEPXFw/WekL2ndYpQKFYxIPU4HvD0go3+8g4aVzgti9kSD1uyjZ8F fL7TCoaONJ3fjweq+OCdcJl5GuUHZatbAw+XzBZqv0is0pqm+dTU5PHQ9DSC Vbhpm2a3tOiZIIIH3xW+Oc+oXfSJ9Y6cCR48xP0o8ol2Z6aH/XnyaT8jHvwC M12Kk9npbMxJrHdX+UEzDfeodxcPnYQ1O3tkkB+mO0427XTi6C8EFUuedPDD bdvzeJobgW4mzjHM3sgPKTshhbdZhOgBSu9MoYQfQuzueaxGiNGfGRlKKofx gzX+mOWnYmm6gbnU0Xhffkj3jhZnm5Whdx9hTBpz5ofM/tzvK6JydE/H0Uaq NT9c8hd593KfPH3tBGxmGfJDSfnacDVVgX7tVJ7qqjY/nGKwVj0tS6ILBlz0 tFLkB3Jy2kD7PIleGuKcUybGD+czKc0KGYp03Qt6n1iw/FAm4LpyUECJ3nZJ hNWdmR8Iqj0mQWeV6C7xW3ovN3BQwM6yc71Yib6Q1BcsOIuD2lBKLHOtEj0m o6747DAO0h5EvfqVo0Tny8381t6Fg+QaBck/jkr0+/dD+UktOGDgiRc+uaJI Vy+xM437DweK9tjyOR9FelOFRsxIOQ6ujXM+m3pJotvV4mp183FAkosSw/9S oE80LM/cTsNB0Bg3SuJSoIc1fpJYvoqD/7LV9zRyy9PZ3lc6mEfgoPByAf/R LVl6VmfyzeLTONgfd2NQ4IsMnfQ1oJHJDQflAzysgw+l6eY/lFTrjXHgW8aD LSdJ0r9Nc3ridXFgHev/hXWKSA9cms4OVMFBQLGzY7u1OP3Wn2IWOTwOglW6 Vv2ChelSzPF6l9lw0NWvmFAlKkiv5jwVPLSNheMuHodfjODpXwRlvqV9x8LD /suVm/V89FPiu/kXerBATJOOrHrMS9+QGTMxbcUCB1VEpFaOi35d6U10YQMW Toxzn7UbZ6MLqxfUMFRiAe+3p/DdBDO9TCdmxukBFqQ9TdoNFZnoenRXiee3 sVByZtWC+JSB/tGI6oC9gYUf6BPL/MwOzcVc9ObpKCz0Cx9Oyp3boC0c2Xnz LhALzbzS8WdOrNJiHAc2pDywsD38NeSH3jKNz61eJdoBC/vRmSCxtXna/VNZ Hv2mWAg8Ii+QLzNNUw8Iz9akYmGwH4tj3hinNYU4dKaQsRDSf0v3sPN3mv0F LZZZaSyQ99wWWUr4Rvt5Ca9nLIiFimwbdNeoj8YRVbGQxvFv37gLfQjrpqmE mzwY2eGDkv2zuNbznTSbs2P2ygt8cDPgxFS983taaEAUR8QoH/w8fIvxzkYT LdtH4FXLZz6Y3PnTmZ0OtFceT4NwLXyQZte0NcBbT/vueljmRB0fNKp9+mx+ vJrG4jTeW17KB9umfiUJeRU0kn104mYuH0j64bddfIppFtZCdKNkPnhbSk8K fXGfFmxW9evWJb5//ezE9Dotl5ZhbP5o+CwfBDH6sHKXZdDqDvx0VPLiA5ep O60Ttim0Qf1LPOeP8kGdCXFgJDyexqAj8qbZlA96r56u79W5TJPWqDmH1eeD DxdNhKN3ImiHVC0VXFX5QKDAOhk3eJbmT5oaLJPgg9OtHbUOPKdpKTJXUjZw fJB6t3d5h+hJqyaKGh5k4YMbRr6v6hNcaL0iz9dTNzAgPX/Ssm3ZjrZDsC77 No2BnZPTLzIdLWlE7IyL4hAGNKfsk1YOGNEMuOOw4R0Y+CUynHHGn0bzYhNv aXqNAYPyfrMOTi3aDab/zvNVY+DDtdYCRlChPfljo+xShIHocI7wg9YytK7N 2ZHSOxgIv6VUcc5NlLa2cjV9/QYGrL1FGR2J/DThReIhwygMREYcxE56c9Ko M/XbKWcwcMnZsKXkJiPNfcK2YsgNA/wdWpo16xvUq6Pz7iRbDNTxGIiLVS1S SwfjCWFGGBjMc3zQqTFBbf8q+b5xLwYS8MbSTo5D1OWuhiiMIgZiRRIyWg99 phLa7cnOohgQW94Ol1Jrpe5rXfxRwvvPv6ozx+wIVJemG3fWdmHAbnJf2kPh GipjtMmdq5O8kOM0lOGEK6Oanov6K/6RF5gfa3n1GxRQU/2eev33lBfYsFws qmMZ1F638Y82t3nBsvE/N+6MBCrxqJDmbAQv/GFR6XxgdInqbWGeG+fKC6uS Sx0aV85RKw0vMYkb8kK7WdCHuXxf6sa+Gt86eV6w2uB/ueJ2gkojT32y5uaF A8zXLrxmt6VelRPVmVniAbP9kcnMzoeo7aLW+bFfeOBLjz0PKVifSuCPYxV7 wQOn3HhzDCrJVBeO/wKe5/FAykDs/I64DLWIYa7HKpYHHj1xdlflF6LOrRH1 p715oDitYuT8HW6qxpztwyvmPGCnG73y02kXNXIsnlOUwgNtMezy7NQV/aa+ huBaAg9cMne36wj9qc/Vudhnuc0NonbXeP3ZB/RtW6T3Tw1zg/x318Qv6+36 OQ1Hiy83cYOAan+sccFr/e/PEnn3lHDDsef2qZSVKn1SCYTW3OQG9epH/RJn i/SD81aGLIK5Ybs1L+GySJZ+fYb8wUl7bviOppRKphL02Zx+ntylxw1smPaE VZVofXti0WVhCW6Q4+TbnWMdpP9w3KNAnYUblpw9SkOIJ/WXS6XAbIYL4lWG rXMY7PTpgd+/eXZywc9f/Bxbc0b6SZoFvy/WcIFYNcevgbG9+oNbrnvuZHMB IeRa0NYgSV8BxHSfRnNB5qnnf1I+79EPjRs69t6DCw6wqh8Nfc2j32SaGz5m wgV5o08Pi1ox6GMxTpk7KlwQnvO34aHGkt6JHqFaPD8X+ONF11g5v+s9ye7t VtnkhGmpwT6+zi69HdfMX8bfOEGXKWezJqZRz1TGHuvWyAlX/FNvSQtX692Z 5idHFHPCx+6glKGsh3oTFZ8t025ywqgQ/fvr3+l6GuduBZQHcwJyrzovaRin 1/GXt/ybHidwXVEJ4Avx1GPBc8oZfOIAmx+x73xOSOudo+0S5dpiB8Mqtjbs eI7um92gKzPMDpUXGzGJs9d1Me8vOlKb2GFsTCbZdCVMt9x2JzMwiR2y6F0n 9YRtdX/4rGN7JNlh2aYeJ3WaQ9cmfY7t3mE20Ngx9NY4ErRPbapvRfUuC+hr qmzQX0nphCwqKwjEsgBD9eNjyQcxOnXrl5z/+LJA6PM8x/WKrb37WUgtbXtZ 4EFmtMPC4097baQiMn26mUEHd9O5VSdq7zln4X0POJlBcTV02+hUh3b9J8do QgQT7LNy8cE3OGkZ1g+w/7ZngGY89kZgvqj6263Oo+LCDEAlmDo8Uuqj/A/k iLmc "]], LineBox[{{-1.9872448979591837`, 7.47913470688215*^-65}, {-0.3982435773483294, 1.2244666029156018`*^-152}, {-0.012755102040816327`, 1.9138925518990752`*^-179}}], LineBox[CompressedData[" 1:eJxTTMoPSmViYGDQA2IQ3XHs14UI+S57waqba//zF0lZ6R7cFDD9s73Hfmvt yiPMbExlondSJBkcGKCAnSegMekdG5zf/OCac9FiXjh/w+y2gLpPgnB+/qIU gSdhonB+XNYs2fZGCTi/M7DM0niONJzPIjL1Wf0vOTj/+unWDy38inB+aHWS 2azDSnB+DvdrpXNRKnC+/Opj09heqcL51Tucg/lnq8P5Bctytpnpa8L5PEzm SXpPteB819yQqVqTdeB8iZ2y+a4qenD+pKKOiQbX9eH8oDZ/3bnbDOB8reiW 0CW1hnD+tWeciyaHGsH555KeOgrJG8P5D1mW/5iqhOB/WZaxXlINwZd8/VpG URfBTyn+9F3fGsH/1fx/rW84gq+2VFKqsx/Bt3S/fYFnMoLv83JO+4RpCH6h rsLX6XMR/D1b1S4sW43gBx0zbjtyHMFPzfhq43Eawa/g2v759DkEf66fVeLl qwj+i2sONo8eI7m3gulz6nMEn1f6yMqXrxB8o3h38Y8fEXxXRs5zJV8R/IjF p1p+/EDws1x7rGv+IPi1z30//f+P4AMAMLOl9g== "]]}, Annotation[#, "Charting`Private`Tag$15591#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlXc81d8fx6+95zUusrKvfa9SKZ9bZJREZJYiKySprKysVCKzKBKR0dfI THTeRRKyyR4pRNbNjPTz++s8no/Xeb7O4/04j8c5kg5XzzjR4nC4GRoc7v9r 0PQp6r9/ZLiuGk+/9O4EmrolsDq0TYZz/h4vIpdPIGPusfWqTTLk7J9fDJA+ iSQOev29+psMI8827e7cP4k+3EtgHp8ig6K7Q62WnRFiVvkqBl/IYNk88btK wBhd+/BM8mkzGVZYt0UzTxujQQtXab9PZPgSNDHzO9oYFYZsKqi9J8P5+58f TmwbI+NOkX2Z5WT47cXYOvfzNEq6cfFk6BMyCGmHc739ZYL+MisYn3tMBgq+ Oq6O3RQ5py+bHEgmA3MbKW1byRRpNoZZLMWSAcl0EUiepmhQMMf+YhgZFJ7Z +N35bYok3v70pVwmQ9DLpwG6rGaokOb6C5wmGfonDc2D3M+iA2YFjKlkMtws 0iR4PDqLGl9MuKqrkcHuatR6ef1ZNK5vouygQIa+Dty8pagFEohVrqwXIUNa AZ/Beo8FChOe+RSFIwNPrafbcQsrxO0hThT/SwI6l+1+1WgrlF5nEVO1SYLR See80BorVH3xo8kMlQQPVj3KrCSs0Xxu1oDhDxJMVlwd3lyyRlbk83PszSSo 37h89H2uLZqKSDqV00iCppE7VN8xW3S9r6X4SD0JRNe6VrMI51Cs/6EbnrUk yGFUKLaOOYfqkeDf9iISPDQ5Huzofx6pGHVxJiaSIIPVMqXZ7QJicNInCZ0n wZVoe3quAXvUZaduOWdNguEe5YVDW/Yow0oksM6CBDzq1bp5og5ov9HiR3sT EvQ50akYXnJAzuRH1gU6JOjZ0hgvXXZATTTToVpEEmwL73GKF3FESVsdORxy u+wzOMd9zBFdXK1pHpMigYDRptygqyPanInlixAlwUzZ5OrJKkdE7Nif18pN AnmBT2m1lk4oJiOq/fy6OlS8C1cxe+mMrB57raiuqMPD38/iXnc5I+kEGyHa ZXUwGsS2HHecUV2kyqXcWXUoOqR+9aOFC1rw6FtbGFEH3MEdvyg2V2SiJSsW 2qAO2+78SWmRlxG+/6NHVrw6SPNyOg2CBwLF59ERserwNmgfXdeaB/IICXzh fF8doplW51SUr6BGWfIwMVId6PUEHok8uYICbmaeLPNTh9/evr69tzzRN95b xIYL6qDfciWtVt4LxTlb6OWeU4c39UPD3Ppe6HCNukO0tTpMZ3KxZzh5oRT7 mVQjM3XA2y8NO2Z7oRMlZ1l69dTBYXRAoUTyGnp9Sm3mh7I63CqikXym4I0u PGejbyKqw02vA4yVJ70R++qUeIGcOvzI3Jpi9/RGzk/TLT0l1UFCwDEwsMwb Cc+xflrj283HeEy9jl5HYdE/cpi21eDsniNXCW430Jn6tEsKzWogrFLezkr1 QdI930c/NaoBg3nB9kcJX7T2XcXGuV4NhKxYLMZP+6JUxnqT7Fo1eJIznrKv 2BeNG84dES1Wg9YDAlO+3n7oSocWgSdJDbJy6Z5xsAcg7YnIxOKHajDenv9d 6GgA4qa2cxo/UAO3HxIaCT4BqBzvyHA/Sg1YQy45NH8LQH8sYqj0/mrgY7sv 8BrcQtEjw60b59WAxuF4smN8ELJZkDV4ZKMGNvvp7j39EoSU/nnV77NUA+Mx OanTrMGoXYKhxttEDf6o1SrKRwYjAUfll7+OqYHCz36nj6EhKHs26Pa4nBpE 5NKPGDSFoluLRzweTqqCehdzHCNHOHpqrzlDGVEFsVvc3w6qh6PabjXH5T5V eGM8slN6NhztVEmdO9OsCt0qj557PwtHYaEsRnylqpCf+5dPd38EusfTq/g4 WBUq71D1n12LRIXhbS8N/FRhPPNMvl1aJGpd/SS1eU0VXM67+rnXRyLOwRoR GydViFMx/e+qQBRKyMpk22OkCoOE7TYSRKE0ssfcMyFVEI89ep8oFY3e5ji5 mOBVYY1HhsRsGo2GBS9M4jhU4ZtzJO5ISDQS2zYdssepwgE718Ki4WiU1aDZ IjWtAtTkhhcNT+6i/LN0hS/LVSB+6t7LM4r3UbVvmlvxaRVo96ur3EiKRXsd r+X0G6hAG9Gze707Fj0wMRinOaYCun6t5X74OOSgsHbWXEMFmnQ3V+iS4hDb kOnRTYIKOOkQCcWnHiI7bRaCzjdlwALpI9kc4lETcfyMx5AyUHxmDAcj4xFJ sOpBco8ySMn+10nNj0dMS450M43KMML99R7d73hU8hwWYgqVQY/rZVx5dAKi Y/D72HdDGVa5rS+Pf0hEnsvGOJynMvxKsDRPnktE/SMyWgouysBgXyiUwZeE XlV2l9yy3u1nyZ7+zyUJWbiqPpXQVgYFsYAvAzzJKK9lytuNSRk2a16dp/FN QcYJZyV2UpUgvJi+p/tuKgogcRnqJyqBuJplmV9dKsrtarr2MEYJbrny0EYt p6Id3sP1e0OU4FgJ8fCITRr6L3Gvs76jEjRzCecmk54g9uTFwocqSrDd08u7 tPYUHdiX3zMgpwS3mffkhqmnI8deh797JZVgX9yjwvse6aiWv8+4Aq8EWq+I X+i/pyP3lNrlgQ1FELl0jb+oPwM1P7qrKVWvCPMFgUeGPTLRmqbORY9aRXCP 77TFx2aivf3b0RUVivBh9mjOg+JMFEDwGtTPU4Szh/sHTv3ORAqpFkEeDxTh LfPen2zBz1F0mlR9haUiXMzg1t7KzEL66XXGBr+IwJ4hNtwkkYOWHgxv008R 4VKqzIdMgxyUFrxV8H6MCPJPiS31Xjno14WDTFrdRGAK+Rc0/z4HJeytQMo1 RCg67iE/5pKLRl++UsNHE+HMsL1M3YeXKPpxy2j7bSLgP6v/vb/4EqnfnY2J uUUEPYTMi/fkoQg3+Z8MV4mgwPqSZs03DxGVXzzfOEuETeMe1mRSPvJ5/YR3 VIoInsn7kgurC5BEdg2kiRLB+DFPLddcAfqcOOBpKUgE3E3u2S7RQrTnpmBL BysRFmxSFfwjCtEHzcTw+mUFqP91TNra4hXirLu3kocU4KsmyxwrRxHK/eTf d91WAcqj931t/1GCUkk+OvnmCtC0v+XiReZSFJPuXTJ6SgGk47QzNBVLkfd1 93uGFAV4VejoV3utFB0RP68tLqMAvhs+Daq0r1GPDyW3eUEeCoS+BB1VL0Of Jg7jcTPy0EO0yAu3KkM1RgdD903Iw/fXpRICoWUocy/JJrNbHnaWjjxQ6ShD 7m1SnD7V8tDfeiYTu1GOaGWZfCTD5MEppMvXv7UCrT6km7S4JQ/z+Y+ucW9W oJmtf6djbsjDBvtCJq1sJWrr3FBYd5aHHDa+mK3QSpQaNDvSelIezGy7bMy1 qpBa75fjfvzyMBfqK3rqQzWyi0jib8+TA+nhDQdW8VrUhq0x+WXJwROtc9w1 5rUI27L8I/FUDkJzq7Q67tUiCW+RMe84ObAL8txD3qhF3y5k5Qn4yAF2taFp 5msdctYq0bLT2fVdQrsbCxHqW+NRYToiB57drbZHZhDSf31domS/HBR/GsxL 5AUkr6DJQEuUAxqnZ4FKJoBmBd615XDLAfnA8JBMGyBPaov9/IgsKJufx572 vkej/ymbp3yVBWErYde89ffo9OU4PaxTFgp7n8WtCn1AauNnFOMbZIGrobrF /MIHRP0ysKJRKAuaA+dAY/4D8smfvhPoJwvDx5N+zfE3oOCLdEVseFm4JvZ8 /0pGIypp14/tYd/11VZcDD43om/aMZ7pjLLgJClUNfe7EemJ8quq/pGBmsF/ a5InPu2+37IlZyZkwDpXSe78n08ow+zE69RiGYh3obdOcPuMkF58pZyRDCz2 4Kq0Y1sRtaI3Zem4DKhOVkhm1rciaRlh3zeYDOy8azrquNmKoumyNU+SZeAn f5KSoPMXZALl1Z7Cu+dJNDse1G1D4wf7aypmpKEOlxD3l6UD4ZTFkU6kNDBf d2FtpO1CgQJH7SKDpYHzwdeL3HJdaP2fw99GX2mIyKY/+uxkF1roytU64SYN /CUxUfeTu9CQn0q1yWlpwFkb/Jet1I0qG46UnheSBvuh6btLLj3oyrlz2b7/ SQHFrfBoJ+9XNHM8+NibXClo9bnG8h77ihxVMyf+PJMCsY5cF6rHV2RD+108 OEEKTNbMigSbviKDPPenEb5S4J2vtWlzux9JrwQkxx+VAv90JgnRfwNo8H7q ncLevXDMdT9tgcQI2sPqmr9yTBIumIcNZxV9R+77iAxDe8ThIR1B0Oz0HPJm ePPSh0scfkywvZBwn0MBvfoneGnFIWDP+GmGO3Po3k2nOMNpMYhQUFbiR3Oo oCJTqLpUDJyjX4VaqP1CP/cJqiTricGPjwkDCYLzyGU/veVpL1HI/BjP37m5 gDwZEzdnHUTBxab3czdhEfn0ST6NOisKN43P3FrUXERRPthE3SFRYA81V/Xy WUS5lQHuSgyiwJZ2hTF6ZRH92L8cwpK2B87LYBvKAUvokuZoXn29CPwapo0y vLWMnPM0LfSqROBlqkHq4t1l5CYUT/e5QATsjhz6GvJ4GXlt6di1xYsAu4Le IfOKZRSI8vEDF0Tga2lOkd/8MgpRo3tvayYC3N5BJNGtZRT2/JznqJ4ItDIS fsQzU1F0ONfnSWUR4MGvTwzupaIk/ZvBC1vCEDP+MtXZnIoeVbcpXlsUBrqr +/xZLlJRmoL8wO9vwjCRGNJr5k5FmWxD5M3PwiDfGK34MZSKsgM1Jm7VCcN+ eWaX0XtUlDv/IHanRBikPRXSw5Oo6L92yk+6x8LgfHr5xZlcKiqhpKVE3ReG 1JnSUfciKiov/a3DEiIMwiWDI4sVVFS199TyfW9hMBh7fq63lopqEnMzOJ2F IWftySveeiqqo8cZxVsLw5lPh8vTm6gIblpv4k/t9jVf/eX+hYrqp17nplB2 c4OTdt6dVNRoyW4upLE73++JzJweKvrc5ETzVE4Y3jXv/7rZR0WtB1GRmIgw rChZFjn0U1F7AeHcc05hkDzwzLZ7l7tEvFmkaYXhR47SE+1d7o1pqcxdFQK7 gIiilF2//6+0o8JPIXBavWr7pZuKhj2DeV4NCwGTCf9cdzsVjY19fafSIQTO UyYKT5qp6JuJukdp/W4eZuaIb6Ciqff3hDSqhCD9zj0Ppd15f5K+N1YW7PLX vqTe11T0K/vIjYMZQsB+QLDs70sqWuR7JFkbLwSakmySiU+oiBq51KYdKQTD DQl14Q+oaHXNMPC9nxCES5gu1AZR0YZLtoKux64/Vv5c0YOKtvq3+xovCMHj tx6mtVZUtGNoEWFoJgSu/04y2OpQEc3bYvVWPSEwSsm2+K1IRfRKLGPGh4Rg i4vvhhcvFTGlO8R0KgvB2TfDMnVry4iVs/aguaQQSDcWdtX3LyOeJc8ka2Yh WA5uXMpNXkZ89k1Hh7cIMB97LMDCaxkRuiQX7RYJwNcUedjZYBmJ6Nx6OvGN AOGfNXmQ6DISK+8xdOwjQMPgi8eGS0tIUkZlfeozAXo1PY8toCUknXLnxeU6 Apwo7rBIjllCRL9D/zxfEGCtVt7y/p4lBCPGxMkUAgyEHbN9U76ILHQunbW8 S4C73HKSV+QXURhnTCHmSQA2w6ghvvV5RLiR2Vd2kQAxruKUh6bzqGignEbe jAAlY2VLitm/0MCLEUvuAwSY6stlHCLOIU9WalgEkQDCgb+jAy/OInovxqKN PQQItjq5bBPzE6lpqdJP0Oxy0snyPx+nUXRnaElpiyBM7FE65P52EolpJg/J vBOEkVGB/Lj0b6j8aT5jWokgsObWvQi/MYHGXbrOhSULwuJiz5nXuFHk82Xq ztodQTi9GmfO6DaE2Mlbr90CBGGbNZy0p7Yfae5IsZhdEISx1isGzMLdqPXS AY1PpoKQoD9g9FqmAzl8NrqgpSsI2v3BWg/IzSg26WaFlIIg2JTuMWKYr0FT xE/2K1QByMdLP/N1rsUCHw7FuP4QABtDGW+Ghx8x3rXFquGvAnC+O6vORegL pv2ewPmxVgB4L1XOX7Psw5It3WqSowSgyFLW1957EtON4MBrCgvAPs2yibud VOz5iFmD/1F+uJVZe1fwIB2F9J30p0eDH7D55AHZJjpKwyyPmpo8P6Q6DZr0 nqWnTK23P5ni5Id0GZyNmwcDhchrdN1smA+GC8arVm8zUd4SFPOL2vmA7bOz dCgNM8VInHWMpZ4Ptpcp9x2DmSmeSk0nIJ8PhGZfSz+/ykJ5rae7V9mXDy4N KLqMKbJRdE5JWUW78cHcPHeeYgIbpceMNnbyPB80kUomy1fYKGsXYTNVlw/K zhoN0xexU+64PFNd1eSD6v0lJgn0HBSCZ7CTiSIfwOmHJrMWHBStW4c7GXn5 IO3g9YlHCxyU1tsiTA4MfHB4EO8DZE6KXfSfw3UbeJg99K/K+gYnZTF2wJvw Cw+D+45eNS3hpIQmV+ddH8OD76cm5UfTnBSep49G27rwMO0xbrVHmIuSleXD R2zEQ2BngHqPPheFnH/2ROQbPOytNRoq8+KiNBRrhI6/wsO9o0UOr5O4KGcr 8ZVamXiwt9V+31TGRZmqpc6lJOKhRfr4xPIXLopvfackNQoPFMmuZ8RJLgpz c4nlqQA8lAglf7n2m4uS2hH3IO8KHqi611SadrgoxK+e9XT2eDje+kPrMS03 pXbk1KadOR6spFpyLem4Kae+K6nW6OPhrCHnsxwabsroLJsTvxYeco8n1rJv cVG8lmfTvFTwgFO4Lrwzz0Wh2fjc0SK56+NehCgOc1ESdvIY5fjxsHY3ZCLr IxdFiiH6cBgzHnK4KzauF3BRytlcvEe2eEESL7i/5B4X5TivXt6BRV64feN8 pZszF6WPIDOa+I0X/O9Na1Qf4aK4iNPzLfbyQi353t8ibi7Khsyk4YnPvBA+ 7TPiPMZJuav0ISSnlheozob4zXxOijD5eQWuhBfoHE5oh3pxUgoPhs7ZZvPC k41VI8Lu/R2mXJCsSuGFlOhet9FlDordKdEHV4J4obDR/9hVRw7Kotn2hyYv Xoi+zTrgT+CghNoMbUg57u73c+ImfWanZLmkOg6e4IXttEj2fZLslOnb/If1 CbyQ71oacrWYlcIaVLyYyMoLI0ccb3vrslJU/Ayzx7d5gNCUoz7Tx0Lx8Qxi DZjgAe+Ovoz5FWYKo+2P/lcFPJAndSi/WJiJIq1RcZP3CA+U6flfd99PRzFQ Pa1wQZUHWDOpep3VtBQP4s/hQkkeeG9LCojQoqWUS4jqHmfkgdOTpfFux2go OhyRvH7t3NBlrhcmUr6DOUyZF4/Yc4PZ7E0x+eR1LGpiwYFozg0RAhnGMu/X sILhaAFfPW6gR6z5e5dXMWpXbRC3Ijfk6bLa3j+/gtGGGD6OmuECnRWJV55u y9iJm0H/xL9wgataGMdI9RIW717q/KaUCzbH7pOH2ZYwCSuhfb8CuKCxd/qv bsg8hqn/7DTl4ALzHJr0ltoZLEpO9ODcMidcDUDhjNnTWJuoaWZEHyfcd2qs 00+YwuxY33hWPeME2QKeh1H3v2O5uPlekwhOWPuXym+aPInNr0kcmXXlBM0u G3Lty29Y4GQ0myiJEyz67tsu/RjHGgZqvSsFOCHqcypc4xnH2DuWBk5vcUAI 85VSlnuj2JNaq7ywBg4w3hEc8b0zhNUkyx+fseAA1xOPW47t68OYbacv0Rzm gO5HWz1mLL2YhURumLAkBzxWNpTDZrsxaoEUGM2xQ0yWR7RGZydG8fo26tTB Dj8E+Vwi+zqw2H3P/wZXsIPp4+/GQW3tmAKIaZWGsINsYvHg4plWzCdyxLrZ kR0+LES/CClvxhpOPPWbNGSHyMqJKzjiZ+xir1AlPx87MDlYJzAYN2JFaf09 KptskCFCqJDbasC2Lzz6rT/KBm5SVVSfN/XY41k+9YA8Nqg4GSK25vwemyru Pp34gA0uJ51+MWgOmMbNBM9X3mzQMq3zojDrHdb+j+vV6GE2CLSgFGHTNdie j23N65JsYN3zbyVE7Q3mdu/BT24mNuCxPShHTqjCGPnZ5HQ6WSHFdeljbFo5 Zj74+fi5SlZgiruwKISVYVnPoh1vPmGFPaMOOSPrpdiSo354bCgrWFxZ4R2v L8G0iYxZL51Y4fmzyuALusVYzGIDwAlWeHqGwPdJ6j9ssDx8bECVFaoh6ug+ 6ULsJkYjyv6HBVxYr0tcu/0S+0APWjJjLKDhN2TOMZSDcTcH22g3sIBOoFKt 0ekXmF3cEX/LfBZQkArRfjechb0y337kFcsCXyuGZHBhz7E/Qm8r715ngb5V /w50JBMzGPPvzbJiAdc7nm+9RTOw75fXeXv3skCFa3yW9NdUjKRaqb7AxAK1 OlFy9rOPsNCVGyZM88wAhdEX2cRTsLY35KsSXcygQsekK309CRMJoT44WMUM Mnd02z5+T8BcdUtfnXnKDIHL26S93vFYJYtXi/ttZrCwsOYIF3qInUmaZ844 ueunZNp1XriPZVq/kqtSY979Wg5WDGvexRbE3PU6+JnhqASL/rLmHezwdwWn n3+Y4NCWyNz185HYvfyZcNpxJojO6UhayAnH+j1fZol8ZALhd3saOLnCMFkN 5/caBUxgkBOynZ0Sir1/N7njfIMJLJ83nBKi3sI4I7JEQ62ZIF/bLVUz0x87 Z2h/OFWbCb47OggoBPpiBZwStq+lmECs/qNARdhNbKN71L+FmQkuT8zN9pZc x/RS0x9/n2eEr4VjxpV03liS3bmqv12MYH8QN1/k54Wp/RxYUU1nBK8n4xnH g92xG0vKCoIRjPAhk2Dci13Gqtdvn99xY4SaPw1PTyq7YNs7vfE/TBlB/QBi jNdxwo4yEhtbDzACz5wkL4RcwqI4gv+UiTNCSCHn071j9lgzX5fKE0ZGMA7x PKp64SJ2Rirg0eUeBlgMMo35ftUWSyG2tZi8ZYDxiujHiGCNDanvxR3IYoBq 2tWED8sWmMRBHw3xuwwg49o1YbZujjlSml0ZvRhggy6ykiBrhuXpi6XPWzBA 7a+4E8sBptgvY+/OniMMsHL0R8rsj9PYzfPCh7LZGEC24WH2u/ATWI2jp+c9 Kj1Y8C1f7pczwHbcP2RdG6AHQbrxhP6d49ix6wJfrYAeWAazi97Q62JRAW5s lJf0UOV41ez9vmNY8+13mFwsPWgnrZNvxVIwrru8Nzhv0gOnxcMNV0FtzPyh c96qLT38C+iZXDDXwh4/qhkePkYP9T7UPM6OA9hwBidPgwI93BfOWK8O349J 5DocL+Smh4HGP/ZH3TUwx/8q/RPW6aC79XWwZRgJyy9nLfIfpYPgktGbuI9q 2MJbu28XP9LBqXd805IXVDBS/WsBg1d0IHA7ZdU4SBHzaWY8qZpIBxm1OAXj UXmsptMmRCCADhaG/+Q7BspiO/1FZX8v0oEbP5/rqTPS2LFx2pnv+nSgwRrn pGa7F4uattjTqkIH+A/eKWkJEljLQoFJGT8dCNNYJ/+aEcW413Yi0rZpQcy/ fj/zH2HM/O+ZN7cnaUHG9PPLPFMC9pj+5bxrMy3cSJPIuP2THxtm25I0KaWF 7tzjEW1v8ZgE/rSF5mNayN7aHNav58GchLPviYXQwjLN73bSGhdWILn+jsGZ FgQ6+tdL69ixBfmTv38Z0YJ5uDPfdg8LRlJ7JtdDpoW4wlvhZRpMmI/mb9u3 wrRw/q7VA/E+eqxGW/9hFg0tmGIss2JltNi/408a7s7QgF1m2gmRRhyme2px w6udBmS+++Vv4Xe0o811lK0qaYD+8QjOcOWPdqvtI3ssnQb0sPiHJdIb2tyX 5pJlI2ggqu6xVnT6qra5G9bM4U4DXOcOyQ9Y/tZOvZa4s2JKA9sUH1eTU8va o37TpOEDNCC1MVpjv7SgvTdUy6VefLev3SI4JndO2/lO3JMCRhq4Vrnt/Lps RrsgdrI9fh4Hm2XVYMA1pb2QrEnv34MD7UWZtqTSSW1y+v0DF9/iIFzhgmdq 4oS234sxD/0sHHA8Z3vBbjemXVtIfq5yFwehyro6pttD2riyO738XjhI1iD9 frPer61bM8Ty1wIHskxLOgz6fdpFBTkHP2nhgIY29Zd3abc24cnVy/ESOPB+ xbt2wL1T+9OfDitxYRxcms5M3J7r0P4fAZ4vvw== "]], LineBox[CompressedData[" 1:eJwV1Ps/1PkewPE5QhYrl7LSKbeQ1VbWpdT384kkJpqw65YtTKUI5V5uhYRS uUSUW7REm5AQ6W3cG1rXGlFh3YbczYwxZjh7fng9nv/BS4V62ea8EIlESvy3 /+snfoZCa1uHB+NJMR/d6Lio79HCYOY6+GgtWxhGtuDwN3us/S+sw5ku04du 1xqxzaP6EjGddWC7Cg1pddOweoiddCZvDRqFUzYd/A9grtPUZZ3GNRi2Ho+P ZFXjdiK8o+nuGvRisT//ulSJc7bL7j1lvwZxKXtXLtmVY/+1P+/NKq/BKbbW /Qv5pdh80HA2ckoALXorlqSsYryt7sOJn8oFIDmhP2p4uwjP5ri+eB4mAC44 yvEF+bg+gi1pZCaA4nqLGU1mHk6lxnn2Sgvg4dD+3ErDJ9jdZHv7xX4+uFdu qBbQMzGxs1RbkMeH5A5W4yikY2kR0zuJXnw4of7zyWmUikfH+qbU9/Mhw5Rm TdVNxlXNnserSXxgDXDq2hMScHwBqYhCX4WtVlQ1cmI8do598MNI8ipMyNo+ 08mKxb+673IPOr0KD3KX2aW60Vj0+NtWCc1VqHIPFtAPR+L+n6125czzgHEv MTnt/HVcLDEao1fNA2GhYtkta8E4cjpoojWKB6qhYQNIJwjbfpAwO32CB1mT 6RV/TPnhXcXZ+QvyPLh+yGrd+ycfzL+nK3praAUGLEqEMqy9cOfllvOKRSsQ roH2Nqq44zwrp6ZivxWw7L4Z/y7mPA7UmdtpglYA7ftwevNlKj4uG3WTIboC jRYrYTLxznjHkvzopU4uNI1HnwvlncKLPUUmpEdc8G1IV+yQssfN5TjvwVku WE6qt4qU/YbTU7qFtH7hwkvXQJ+DnVbYM9CNWstZhj9X9/gFlVhiI3sezbpu GcyfGRyhBprjzQfuqYzHLYO4WYVWat9RzFRQjQj+bRlYoZoFvDpj/Hbl9ZDU 9mWI5/sH/2CI8f1+slHeOAdkM2+ZP35tiKk1X7P3l3BgtqY2yXtAHxtk+Ky3 XePAAQb1tWHSr1g8TMTZxYQDo8dzHfff3ou/nk5/x5LkQKvmMwly48+4BP+y I+4TG8L7NG4NvNLAN5VoYdtz2JAFtRYRWA07kGy/lrqzYYuBnXziCWW8e5hJ HNNlg7OVovLhx9swqT40o5/Pgk1v4xLk//gJ9+RK872bWRDjeZa7jyaH86Oe Om1IYIH2pNev+mXSOPjcgZqHjixonItPyteTxBTTdsXdaizwHh9piOnYiFU1 XILrppeAJta3XCYvjDmirM+/VyyBFCXv0JF5En4/EWM4eX0JvpwRcjKO56OM 1m3pYeQl2NHRJ7kqzkVXCl9yZeSW4LJa5MZ8goX2SXlHHRlahM5KnUiHAwto wXe3lN+LRfio/2Dt+vEZVMaYSssLXgTlCF8TpXEm8iUK1XrNFkHgekk+QXMM 6T65UCy8ZRG2y0XHtHGGEUtEw1D/nwXYONNU4RH+DZV7jDacf7kAqUcTjI5+ +4wCOnIpqaEL8DZtvnVg9iMy0HP93ExegPQUsxdHUrsRJ03p3LL8ApiHr9y+ G9qBKgRfZzVH58GTInP1UwEdBVEzrjmUzsPHjQV6zLvN6EDLKeG48Hk4y+QK Ccs1IK721vtvLOZBi2dXHaRUh94kMLZOKczDJA7OlcU1aGlKm6zfPgdXtIxC Z0mVyL/82ZlUtzloMXd5usXjFeKEqfsvk+bgormppr9LCQoyy41zeDwLhbHb 6E6ZzxFXWin7jf4snF1NY2uaFqBr/Y/LFTtnIEAtcsYpPQ/x8hToIR4zQJ8M Vn92PQeFeKUMfhGeAZu0SBOXhseIbyDLRtnTUFFt9nzK4SEKI90XzzachoXK HJ2X2clo7b2EMqn3O3zuuHbMKjQB3UiO1Xf1/g5ZGx1LdV7eQf85LWJRL/Yd vH0FOdWHYlCkRqSLWt4UXHRaeTsRGoWE59cCbqIp8IhIuhVhdwNFvwm5M8aY hISnV6soriFINIqbc8x3EpBX/BBlNhDFWAZUFEhOQmwr13dQxw+JyS+2iRUw gVu74LNr0xUUN+g97G7MhEuewozMAQ8kXvidQx+YgN49YqK3fd3QHd+LkrsD J0BJwXbhYh0VSRJjKnelJ8DYmSqzftIZ3ROh7p8tGgfuaGGho8optKnjm+VJ 03E4eca/0q3NFiWkOVFLBsf+/QGzitC2QbLUviCZ4DGouTLUzztGQcnatnd9 N4+ByB3R2jkDMtrM7srtKR4FoixB9TP/KEp5R6nSI4+CgayO59cAYyQf2/Yh ZWQETJgttUE/IPTQ2nyEEzYCikXGLT0qB5DCtiauvcIIGNnO6RVI6KH0UWOp N2X/wN+BUOz/dB9SLH6npnjiH9g0GPCuNEsbZQQdMgyZGIYd8a00MlMDbTeu onyJGAay7thbQ4EqyhLXP4f+OwzaV39Utg1SQkq9pdeyKoZg74YujwIpRZST uef+utUQCFzM6VqJW5DJ33Zk2qdBKN/AZV1kyKBjrlb+URKDcFChyXrpxo/I nEXONjX6Bj43Sg53uIqh4zEm9I0BXyHGrmkmR00YWSoi9vvCL1DGpqqa5ZAQ 5YWBcvy3ASDqM38XvrJKWBvts6DIDUDXdJ9Bew6H+L1HK1DavB+sRLRFF/MX CTs3tSfdoZ/Bo6i7k1EzS9z28YtNet0HQ4N/UWMuTBK1oQ2XbWYZoN4x4bdT MErMx8jZy2oyQOFEYrm47TCxM/ks7nb+BC4LXhSfjC+EQ9Yr9aS0j2BRIVXj 9YhB3Cnc8KNNVy8sJz3mOQb2EO/Kf2PJiPeCuUYL9aB4J7EIeQNdR3qgcIxm s+5JJzTaluoTQ7qBd1QlmklrIhw/mRRZl3cBKYcvVjxBI+KHkxNlZjphK1eo 09u/lqibHrnapd4JqpZFe3/ZX0Uw5y7Uqdb+DfZXHhxaHXtFnBQVu5+75wO8 en5Wk2ZfQuzQNd+dK0OHrL9MWngb8oloMpOnEtUK6Z8yz4tJ5RLTzrHvn7Ca 4X1AJO1geiZRHd/q9oTRAITT7gTngWTiRXviEeNDNXDM8Q/e1YYIIraZ1+mg dBskQ6JFHh4+TfwPhsHCyg== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGCwAGIQ3XHs14UI+S77bRNWyOcwBNsEG9/Y0+a4xH7R1A0t TcUeNoVp2S+PTNlmHy5rKtl21dSGgWHr/+R9x+3LPTvd9zEI2hw/c7PLOPiG /bbPm++4HzpknVFx63i09k17gc60WvGde605VG6ztDDfsr/0UiV9a8d2a6/q O3VXNt+2782Y//x4yVrrM5r3i0pF7ttzCWVE7X45zTrDuWjt7VeP7EPOJvMU fM+yzllQPlV2zUt77ViN80+2CFhb6R7cFDD9s73on9xTF3MCrJjKRO+kSDI4 TOefN9V412ELdp6AxqR3bA5nVZY960x7aNb84Jpz0WJeh11nz73+/PSCyYbZ bQF1nwQdZtqJz7/Yuckof1GKwJMwUYezBUuX1j0zNIjLmiXb3ijh0LvFdnGi 7krdzsAyS+M50g7lIdPdPpswaLOITH1W/0vOwf/PKv7dns/Ur59u/dDCr+jw dZmGyX7lSyqh1Ulmsw4rOfCyXf/v+9pFMYf7tdK5KBWHzfUam9jyDsnKrz42 je2VqoN/ZmDCin+KUtU7nIP5Z6s7sJf3Mcip/hMtWJazzUxf0+EvB/vekqz3 gjxM5kl6T7UcWpJOFr2bHsTrmhsyVWuyjsM8LZYKx2tTOCR2yua7qug5rHn0 4Vvih+/Mk4o6Jhpc13dggIKgNn/dudsM4Hyt6JbQJbWGcP61Z5yLJocawfnn kp46Cskbw/kPWZb/mKqE4H9ZlrFeUg3Bl3z9WkZRF8FPKf70Xd8awf/V/H+t bziCr7ZUUqqzH8G3dL99gWcygu/zck77hGkIfqGuwtfpcxH8PVvVLixbjeAH HTNuO3IcwU/N+GrjcRrBr+Da/vn0OQR/rp9V4uWrCP6Law42jx4jubeC6XPq cwSfV/rIypevEHyjeHfxjx8RfFdGznMlXxH8iMWnWn78QPCzXHusa/4g+LXP fT/9/4/gAwBkezZi "]]}, Annotation[#, "Charting`Private`Tag$15591#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c81d8bt/eWvS7JXtclSnySspK9KgmhjCQyEuVrJSnJyMwuq4ysUOex UhKSbO7VsC+FiIyf31/n9X69zvN+zvv9PM95nSPucs3SjYqCgqKQkoLi/2vY zJmVvT0CcEUH0/x6a4ymb/H+GdsmwEi0ZWH0b2NkykHcqN8kgPbc5+UQydMI d8R359oqAVqujDnevX8atcY9ZiBNE2DSR7tZy9EEMSgNicInAliGl67W85qi 66054lldBHg03yKSa2aKRm2vSAZ3EiDDpXB2NdYUld3ZlFVpIUAVbcyjqW1T ZPpZSD23hgAbTDUfF+bMUPINp9PhmQTop9dnb1o0RzsMsqYOaQTw6whKeMNi gdyzf5trphAgU3c5fVvBAmm8i7D99ZAA00/v8qv6WKBRviJnpwgCMK7tBd1d tUC4prmg4x4EqG/jDTnJZIXKKP0LKTQI8CZVxirMywZpWpXSpRMIMExFz+f9 xAa9K5y6glchwNe0U+s1bTaIZGCu6CJLAHme7AU7EVvE+1Cxrk2IALcKLupv DNiiCMHZzhgKAnDPjl8+ZWuPOLzF5MR2VOE4ZjioHGuPst/YxtdvqgK++GFR eKM9anDqMJ9dUQXzDf1Ke9xZRH6WP2L0UxXkOVKGN3+dRfaECwssXapwzfu5 Vsuz82g6KvlM0TtVkG69uRhEPI/8Bz9WaLepgnhkwHI+vwN6ePPoDZ9mVRDr wRWfjXdAbYhvp/elKrT7VwW43ryAlEz62ZKSVCGxOOtel+dFROtmoCpwQRUO O0Wts404o35HvN3CWVWoMn9BPPrPGT21Fwp9Y6sKhO149WIRF3TYZLnD2Xyf P8ZLxOiSC3InPDlbqref/51Dd9VvF/SeciZcS04V9ka6DBOFXFHyv74iVmlV KPbQ7eE44Yqc/jR2EQ+qQgslE+PoFVe0OfvwQJSIKvwWERw4Xe+K5PoOF3dz qMJIwW2/Zjs3FP80pvfCBh5o9lz+WD53R/ZpvmvKa3ioqf5jVd3vjiQfnxOg +o2HZppfza677uhNtNKlZ/N4SNbWlu+wvYyWvAfXlybwMPT5iEwM8xVkriUl Gt6OB1sFTCIj2gNxD3d45yfi4c3MTtQIeCOQz4uNeoiH2oNI4PO6N/K+E1ro fh8PIlfr/ioqXkXvpAjjctF4KLHiTBDMvIpCAnJPvwrGw4xD2vGBWz7oG9ct ufaLeIh3uNLWJOOLEtxt9Z854KHo1r9tdgNfdKwR7xJ7dp//+6ZEtpsvSnWe TTexwoPaWwvSpQJfZFxpw/hVfz++T5+yQvw6qj6jMvtTEQ8uI4fuZcv6oYt5 zDTv5fAQmE26UHPaD7H8mRYrlcaD97UIRWYfP+SelW3nI44H+canT0Ne+SHB BabO9QN4YBTrE/fR9UcRsT+L6LdV4Gxfrh+P5w1k2ZZxSbZLBd6a/tWnXQlE kgM/JjvfqYBxCbsm4ILQ+g+lc+5tKhB8RsRq1CwIpdO1mRc0q8CyYyq7ckUQ IhktaItUqEAyBV7N1y8YXe3T4udMVgGpFrs/VCwhSGcqOqnikQqkZXF1semG II6VXjbTByqAsQgVxgSGoBpuV9r7MSqwN3Bi5M23ELRlG79Cc1MFIt3zWl3g FoqdGO/+e0EFelzOWZgnhqFzS1KGT86pANLku3H3UxhS2PNtU7dTAXZZesIR ptuoF0fb6GeuArfL7a9yRN9GvK6KzxdPqMD7ZdWMkvA7qGA+7D+StAr8YGia UH8fjm4ta3s/+q4MoezLXt9ZIlGWs8bs8Qll+CZoF8KDj0TNX1Rcfw8qA7FB xyDeJhLt1h90sOxShp/Oo1LGOZEoIpzR5ECVMjTF+97iORyF4ji/yqfdVoah 5J1i5+vRqCyy57lhsDLcjWGeEM2IRt1/Og9uXlcGNbcfXrJt0YhttFHonJsy UNUI/JThjUGP83OZhU2U4aol86MpFIMyCN4LOQLKsDuONSOJWNRU5HbZnFsZ 2JreVaWbx6JxvovfKViVQXzkWkXX7Vgkum0x5kyhDDt5A7Zq47Eov13j48EZ JaBI1S7QzLyHSmyoy57XKIFusnVpptx91BCU4VlhpgSq9yX7W5MeIgnX60XD hkowFmrZW9f/ED0wNyRRnlACi5JgZQWuBOQiu25jraYEhMpjWjmPExDzmIXu Jr8SmEXLrk6ZPEKOOoz8et8U4fQkbmDbKRG9lyNZeo8pgtI3VdHWqESkylf/ IGVAERYWWEf7ihMR/S9X6tl3iuDV1brT/TsRVebBUnyZIgT56SSb332MqGmD OwZvKIIvZjLA2pKEfH6bUlD4KMJm84ve6rkkNDxxSEv2siJc/1KLK+NKRuV1 XypvnVWErstpl9PckpHtFeUsnI4iDOtdOx3MnoKKP077edIrglple9eMfyoy fWyD201XgN2MuJGcqHQUospuZJCkAFV8h00FG9LRs/731x/FK4BbgPf8v4V0 tMt1rE3ijgKo03q0blhnoBdJEu4GrgqQkHD44qx8JmJJWS57pKQAnUy5UW5L WUhTvWRgRFoBDNaaj9XIZCPXry47EuIKEFrC4xF0KRs18wya1nIrgLLjcpHj aDbySm3+PfJXHsjX6ho/fHqKup7c0zjYJg8WMnlTy265aF1Dz8m7WR4UjKq9 fsfkIonh7djaWnmYmbmXrlaci0L4fUcNiuWhyWRh8L+FXCSbbhvm/UAeNiO/ t54KyEOxGQfbau3kQcc82+NnSj4yyH5jargoB5k5Y17H2YvQrwfj2zTTctCn /igw93ARyrj9r7SFKAe+nM35ho5FaPHiEXqtL3LgdEbBzP9lEXosUYsUG+Wg aM6hDLN8hiafl6twx8oB9XyemmTxcxRYnck1eVAORozFHd48KkW4gkbIEJED pYOqiqKtpehD0oiPHZ8cTMjrE4dWS5FwAN/HPiY5+NHKIWdvX4ZaNZIi237L QvfQJ9usQ+WI7U3cWjGSBXG86W7N5xfoWefNQf/zssBvkOcq31iJ0lUD9Uqs ZcE4svvvk7FKFJ/tVzl5RhYibqzInNypRH7+XnFGx2VhqvLQroNuFdIWu6Aj dmh//9uffzK7q9BA4PFnXUsyELI5uF62XI2opOgDxSNkYNRzdY/Rqxb9eUT9 3faWDOCea74+klKLZv/tmcXfkIHHjxZz6lAt6vn8V3bDXQZY427WpvPUofSw +Ynu0zKwdP32Kc6OOqTy9dOpYB4ZkLJ4ZSZDaECOUck8vcXSsGR15ACDWRPq wdbpg/Ol4fHVNyOE8CaE/bPbwmVJQ4J1EkNFVRPC+QkR/RKkoVnCkDaFpxl9 u5hfzBsoDfTfQ8Rlp5qRu1allqOeNLzDK/C9vfsW+ax8dCZPSIFe5NEhf6YW NPlC0Tp1SArg/LtfljItyMwjQR/7LAVvwiznHfVbkArJUj6xXQrClIbYdyNa 0MqnkTW1MimgC4hjv7DbggJLZu6GBkvB61dHB5p2WtFtJ+qXzNxS0IkJSPaL daDKXoOHAyxSwGGgzjl0ogN904n3yaaTAtmgjSwm9w6kL8KjrLx1CF7Zrw7u lHfs339SlZZTh6DbfCudV/sdemplXJ1ecQjWKV9Ribh3IqSfWCdtcgjulX2t eTH2AVEoiiG9aEl44of2Fi17USivrmP0bUkYw4cTo6N70caey867IEngS1Mx tWjoRUv9z7SMPSUhffy5Gcbeh8aClRrMzSThqij9RnJgH6pr1666ICAJ/wIr UhuMPqOrDg4FQS8OQp3uTfrTFF/Q6P30u2VfJUBb/Lq3UdYg+tKBK3fqlYB6 JcaAN/WDqHvveR/PBwkI8ah4TPgyiN761wmEN0tACqGGVpJpCOWf/1JmXSAB 6mMyCvTBQ8hTnrVvx1cC5nS4lc5bDaN/XeH85iwSwFWh0rVOPYrWaBi0aekk oAQXXB8vOoqWdBKcG/fE4R97XzXHkVFEqs4ulVwVB83W+53Eq6OoPaPx2OaI OPhdHs+MGhxF8Z5rTvnPxSH3s7k/oWAMCTNdKVk7IQ7/tchuM0hOIMe33fES x8ThjayhfOGxCZTnh/c1VxcHESXFBgabCSQ1tnW4XFocjLfsX8pETyDl8gft l1jEYSVouPPptwnk57TyPJFWHAYqQ2subk6gmgN299EuDrKemOkQ2SeRZhjO Uug3Dtg/d6YeODaJTpi+IvZ/xYGm5csPKomTKIqKv42iFweOtj9xqGgSddaF PlN6jwMFvZaXFI2TyERM/2pcIw66FwwfPJmaRLa/hrd0c3DAO6FWMa9ARGmF 2pPX0nDA9454aE6HiMbs81uyE3HQn+M39NCciJxavGI3I3FgUvCs44MfEXk8 3uWpuoKD0L92Dv3VRFSuf2lz0hkH5Zeq9YktRLS01TnOch4HvanDv2L6iMjv UmLBlTM4kMb6pXIXiaiGbz0mVR8HT4mc4WxbRLTx8ZxnO7av7w5TRiw1CYWq SeJxqjigMhTMmmYnobezsQdM5XHg0fSoqIWHhCizyRu3JHFw8ZZxziUhEoqh rX87xLuvl6iP2zxEQu9fC+XTcuDAIKqWZkGOhJh8wqMJjDi4tvs5KVeZhERf JKWJbojB01jyZStNEirguXAxZE4MrgENvdkxEpK5LSU1OCYG7GxstMzHSah8 enkR3yMGOWY+D2P0SAhv9vrVAxCDVM5zvaBPQnX1ESFz1WIgfIi02mBEQkdx JrqnisRgzWVN2seEhFAsD0PeEzFgyQx5QjQloZO/J3u274mBcaWFD4sFCX04 W5xiHyoGfiTH4VVLEjJtve5Q4yMGQxrplCnWJPRFTusgh7MYFKnw8C7bkJB9 Es28l5UYnA3jOEFpR0IT/z5Vdp4SgyO7O1Vd+9jF9UnQQU0xOD+V+NjYnoSm u5107siJQe/iJ47wfeylLkc7JiwGfSus5zz3sR/t6+eB7GKQoPeYh3kfh3w1 MOaiEoMRq9J2532+iKLBxRdroiCQbZp31ZaE4gLcEoxmRIHp/tZPxf3zPD61 hv85IgrvHzR8yrMioQyeyIHwblHoMVVKfr+vL/8nZ5AwEoUAhpKAPDMSKq3N FWioEoUze7IV8mdIqDpaudmqUBR2hf1vuxuTUKPNW8flVFFYLOOWsDAgodZD Zyjv3xMFPCFgZH7f/64/YwVSoaJw0W/2h+p+ffo7PPVbfURBMrQ6Wma/fqMp m7MXnEUhf1lgt0uDhObU+ZRS9EXhWgAhiluJhH7RPutTOSIKmwdXhRpkSOjv VzX/bnlRuFkVk0N3kIQYAi0bqDlFgd2HeP8pLwlx6E+dy6EWBa/qidj/9yM/ r+/O0XUROM+mk/GVYb9f6h6c8BsTgaAOFTeTVSJSiRH+ydojAo7W116xfCci TduyuyUgAj+Gj5fx9BOR4fr7blKRCGicFNfefkFElw/T2Jn5ikChm7X2hgMR +dAlbc67iECFVtCBYX0iChwUz4qxEQF91q4TG8pEFBOITb05KgKrW+0fFvYm 0bO6EC8FWhH4GBIVGZ86iV7GMLK93xCGTNE/f3VCJlGdbVrlpXlhMNikjZO6 MInerdf+yegVBn8akZZHuEn08/DvO4wZwnBv4wd9bfYEWqQLlyiKFwZx64HG 1ZAJtDbI1nH8jjAk+B/Mu2g3gWiCFJiCXYWhgVwS3cQ6gSTrLydPKwnDiSH2 OG/fcXRJY7K4rU0IpJx0iRysY8i9WMNWv14I7BkD77OTRpGnQCL1h1IhmPTV 9T5TPYp8/+k59iQKAafD8JVo61EUikq4Ry4KwXJj/9+JhBGUbBBwe+mfIGx/ OctN820IPWnokb++LAiu13o7RoqHUIaszMjqN0Ho3BbmW/QZQrnMY4TND4Kg sqDz7d3fQfSi9/gcdZogvOC/+8GeehC9s2OxFlATBFCMo5Bc+4I+vHejzJIW BKobeKrxl19Q9xH0UlRIENwjvXW+XvmC+oX8GCWpBEGMySjnwWg/IhKH3ir1 CcDDu6y20rWf0d/LBbInvQVAINnCzTChB8kFH93zKeQHi7Cq/8w/tyGYMJX7 nsoPV5Qfb8wwtSFbvUs2dvf4oXdLV5RNrxVFsMWXYT78UJz8dIG3AtBI4YQd hyY/6EickTxEbkSxn8Mrqz7yAX/p5YY14TI0LdfpvLbCC16dvVIiFS+wvAmr 9pu6PBDs2XE7drIfU/2hujWgxgODZUo93BZfsPZ5ThUVGR5YluhVim/7gk1v 9GZOs/GAr4bI+uHiAUyOy8TfavwAzEcnsvL7DmLV+iclFIMOgBdapRXfGMHa K9TCSeXckF3r05rgRsJs6rjrtHK5YUDnW6VfBgmbbl5ZSE3iBgaagny+XhLG 0FVpdyaEG2wiThrkaUxhZ34oKDcacAPzmBNXLO03bJD/0GTSNy5goo5rMUv6 js38x3PMgJ8Lgg+IenV6T2NMYRXLSUxccJP3/N8nGdOYUrBRAWmbE95oVVot dE5jgT5hTCFTnHC/abHigPgMRnf+53B5KSfUWKbznv40g8nZ3onfzOIEwbnU PaaNGczUQuC4fgInMJ87RzyBm8VSDM48J/pzgpQh8SnP9VlMUq02gEubE0Za 1qOkWOYwQ2Uz2YvKnNA0et0+Gj+HecvNjZeJc0LmyQs4K9s5rAYncvIUHSdI ZNblaTydw/RYo7mCezmAVnujlUl6HnOZtq6YcOaAJDqDRWnhBSxmaslFzpoD NHz9X3NqLmCl47G8Qfoc8NkwK8/RagFb6W8O45Dn2P+/2FLgYhcwqjtGaTGz 7MDv2VF0eH4BMw4I2xP7xA66DpuvlSgXsUSvKvfXVezQ+oja6i7fIoazF1Bf DGEHvSsrwWdPLGIYfu6zBSs7NA9aXrnzaBGLkRY5svCbDawbFtVv5i9iPSIW uVGDbJBzFG/45dUi5sj02qc+hw3CbUp6igcWsWcU5K/mUWzAmpJTKPljESOv 47Tnr7CBUdz7CMrVRSz0eyyziCobsGtSRBHZyFj7SLNfHS8b2I/S2UwJkTGW vl8jZv9YYdBOKe6UDBnLbLYvjmhnhbvlET8PY2TsW3U8u3AJK5z620LbYUTG 5EogsPYBK5jQ6t6utyJjjSkyp2ZtWUFOwnngoxsZYzg/c4nyGCuElTF4dF0l Y7a4ZxGC4qxgM5bhqh5Axgp/uuYR6FjhW9jJINZQMrZSehBMFlhArvHnWasI Mnbc99ukWx8LkIeYe+hjydhD9byd27UssJoyny3/gIyNb10UTstggSVOmyyU SMZkQVSr6g4LfNWrK2xPIWOB0RNnu1xZYIOVMVMrfV+vcVbwdyMWyP3e63Uo i4xxcZx/sq3EAh30LCyRT8mY01eBOp4DLODlpnbTJpeMvcwYHlDaZIZ6aoXX 2XlkbPvik1WDSWbg4NMcdcgnY8aHbLmc25jBourPStI+Tps/gA8pZoYtLjOJ k/t4uuKLWdIDZuh66pvgsx+vFvDYp9yPGY76vfE4sM8fcdTiQYcdMxwrbJs9 vJ+/d4+9fPIYM8QoqJgMZZIx4Y6erg1xZpANaB1bTyNjnnEP5jjomSEuDZtJ 3dfXYGbCILfIBNtn3N417Oun42GW1vvMBKdixocv7PtjPfrhlEMdE5xuko+5 u+9ffk6sa0AmE1SuFmtrRJKxX64GkQ/DmSAjzGt/NMmYjhxd/nM3JuBy0a5Q CiJj8cvtAMZMcDIp3uemLxkbrYkkjigzwdrQ+RPmHmQsAKMUYdlihJAczuji s2SslQa0DhEZwTP3nLqiBRnj6Lp9TqedEc4Ovg89aUjGyq23n/g+ZITqaeNC vDoZ2xJoqrvnzwjz15b2mOTJmCHx5td8e0bwoq6dC8ORsR8eG1xfJRiBqeNi uQYTGVNVrsMv0TPCVuGsZsTuIha+dsOcnswA/DRNjVdXFjGhOysPjtQzgDeH mLnyyCJmmUxmeHqaAermHnMk789P7tly6XoVBuDZ9XAXSV7ElkS99Pt4GCCb tvGtXfQiFlcyG0lFogcWh4g/M+6LWMvb77vuN+hBkyR28pXUIqYyN7KmnE0H if0bRUsZC9iNX4qyfFF00GO93tZ7bwFr2Pjvwq4nHfwXlTBwP3gB06WTe9et SQffHW73ZdksYJYHQ554DNDCGb9FnvNsC1jABcGjBcy0IGHgFCQUOo81uvr4 xK3QQPRrwxsFHvPYrldr/vURGrjwnolGxm4eiwnxZD7+nAZ0Li3UKKvOY2lP GsfHT9DA88lXC0Gzc1jj53N3eEOo4dJvTvk5uzlsd/jlqx0namg0PHzHSH8O O0Gimv1hQA1RqJjmo9oc9nGp1PwVDzXoaq2La3HNYePM/8TNq6hga7Qslat3 FsNxm9lqpFEBhUeMzf5jHnMTLIgTvUMFTRRPQ3JfzmJLMqdXF02ogO7hXANj wiy2dyqz/d4sJTzSnnjdbDmLnTyz/Ne3lxJuZN4ztzg5i8Va6yna11GCOmUI hdLhWYzj0kKKVBQl2OfJPf8gOItZe2JdrF6UMDV1L+cB6yyWfj1pd82CEg4w nq8poJjFJMK1LreJUYJR6Y5B38wM5n43IbOUjhKib64MLIzNYKUPv/cmkinA uuxRxqW+GYyQfV/TqYkCFDbltq83zmDBhURvg3wKcGwbq2KtnMGaywh5Svco YJMz8Qv7sxnsZOMY444tBejYWGRbJM1gL0uLjnRqUUDT238mxHszGH/mNY9E HAW47j5r/B0+g3Vu9dmLCVJAq9Er3OztGex/NUFtUA== "]], LineBox[CompressedData[" 1:eJwBgQR++yFib1JlAgAAAEcAAAACAAAAcwpeTsHL/79NdVsd+hPnP6rYmvHf nf+/Z+yyZSO+5j9+uS5RdGf/v6O/qA+gWeY/JXtWEJ36/r//d5ZFy5TlP/hb 6m8xxP6/MyBqSHM05T/MPH7PxY3+vwpzH4h41eQ/dP6lju4g/r/Ml8WejRvk P8KB9QxAR/2/w5+iKYa34j+WYols1BD9v4aU4By8YeI/aUMdzGja/L+TKcsD NQ3iPxAFRYuRbfy/5RGViuJn4T9fiJQJ45P7vwBp18DQK+A//I4zBobg+b/z DoGNQdbbP9Bvx2Uaqvm/qb+8b/1P2z+jUFvFrnP5v9wb7ZHXy9o/ShKDhNcG +b8MhIVTzcnZP5mV0gIpLfi/Kpjlbg/e1z9sdmZivfb3v/XbaMoNaNc/QFf6 wVHA978TcUuV+PPWP+gYIoF6U/e/MYWlIHsR1j82nHH/y3n2v2K2snqLYtQ/ Cn0FX2BD9r9qcBKHRPvTP91dmb70DPa/3WLTMrqV0z+EH8F9HaD1v6zdBi7E z9I/06IQ/G7G9L+omf4+slfRP3Cpr/gRE/O/x7EmcylkzT8wDm6DQuDyv8eU Xwsv0sw/8XIsDnOt8r/LkVqNokLMP3I8qSPUR/K/Poi5xrEqyz91z6JOlnzx v02V7yOKFsk/NjRh2cZJ8b8L90enF5fIP/aYH2T3FvG/I8NCytEZyD93Ypx5 WLHwv1Q0LJmsJcc/8+orSTXM77+BWJzpJFbFP3S0qF6WZu+/+o6FfD/nxD/2 fSV09wDvv77LqdRJesQ/+BAfn7k17r+Bn/K8EKbDP/w2EvU9n+y/4xAUuZ8T wj8Gg/igRnLpv7yGQo1/gb4/h0x1tqcM6b95RmRQJtu9PwgW8ssIp+i/6NeV KNQ3vT8Kqev2ytvnv5ZZmdkT+rs/D8/eTE9F5r/t0eku0qC5P5CYW2Kw3+W/ 8u+yk18RuT8SYth3EXrlv3InxRmVhLg/FPXRotOu5L9jqSqey3K3PxgbxfhX GOO/Nf0rejNttT+Z5EEOubLiv9knSuvN8bQ/Gq6+IxpN4r8ja0UPuni0Px1B uE7cgeG/pTfzrF6Nsz9DzlZJwdbfv1Bp/vjC0LE/VmYjodJ82b9yrNRhWm+t P4pxc4iStdi/qGXuuEO9rD+9fMNvUu7Xv1ei94uEDqw/JJNjPtJf1r/3wIdJ zrqqP/K/o9vRQtO/3oRwJtk4qD8my/PCkXvSv3Q8AubTn6c/WdZDqlG00b9B VK22rgmnP8Ds43jRJdC/9cWanszlpT8eM0gsohHKv9gLdMosvqM/hUno+iGD yL9pGTfzqTqjP+xfiMmh9Ma/SgWxQJy5oj+6jMhmodfDv80R7lSuvqE/rcyR QkE7u78hzVMtacifP3v50d9AHri/m137pAvmnj9JJhJ9QAG1v/IhLqfZB54/ y/8kb3+Orb8QiuNdn1ecP2hZpal+VKe/ghBsbGuFmz8EsyXkfRqhv4Y3qLcL t5o/QBlMPfrAlb+4LQs5a+yZP4jG+tBYH4q/s4DdZChhmT+LVm3G "]], LineBox[CompressedData[" 1:eJwVl3c01/8Xx82MZO/58fkgK+Fj93m/XlcRSbJXRbaQShSJEklZSchMQqIl MhqSWUQILeNrZBMiIvr1++fe8zjnruc59/5xpV1PWHow0NHRif0z//cxTWsd 9lLX8KXhPAzyt7AV9fPLaP18vEe5gWuvaRqu+GJ36UpoMe7s1PTNmErF22qn KQ2OT3BE8It24loqPuXpO9lwswLz6rUkerSl4DxdJdPG0mpsySE5MHIyBXdz TD9qbH+J7w34CRYIpOAsB009t6g3+OVErMKo601MR/fsr1tNM55qs8N0HMk4 fZJfbdT0HS7O8NLXr76B1T8Gurp/a8EWdw5xPPS6gd0LNRrdV9vwg0sXGX83 J2F3OcdGdZEurDfTwsKVeh03v/9yjWr1GSsKhLCg1jjsHfy1+ZDSF/x+XbvU jIjDrDLfmKIYv+JzH6pKH5fGYpPQvvDusm9Yta2zyfDONfxeYTAgiH8Qj1+O bP2dEYP9egYfZ88M4oFOlbMNkjE4Gk7+cnX9D+vxLWUU5l/B22dOUmP1hvAI X97dlIpo7L0n4OG3qWF8Rd660HkxCuukL7b+sB3BXC9vlclFR2HWHwFTjPUj WOrKC+EPYlH4fsbp7cqZo5iDYKu9bxqJpxYC75zfP4Z/KL8nddVHYL/csykS DyZx1ZvX1DmmcEz7tVKmJjyFJwf15F64hmEO0+Auw6gpfLGc5nS5/jx+uBLM 5X94Gkv0BP8diQ/Fc2bnrtZwzOLU1rye6wYhuCZ/7V5X8Cz+E+rwd1t1ME5Y O9c0NjqLj/o+4VRVDcY7C0MZuV7NYYmUbS06cmdxVXhNzWOtebxkn+xGUw3C ufc326r95nFReXbe66pAHNON+uvz5vHc5OGo1D2B2F7x9fonzgX89URIifDR 0/h3z2sduvEF/NxiRsSr7BTW2/HmqXnaTzzxNsIk48xxrNndm1rz7ieOdz6v /avbD6uGzpxT/vMTuwgGIh8tPyz3TmgPq8sSXhPuU/Zi8MV8Hv4fXysu40D6 JhebV96YkyOqcseRZcxr/LKHh+qN2cvSMzMTl/HL4KrMyBIvTEff6HZ26R9P +RTZ53vimSyxJZWaX/inReV6bLk7Ht+j9jlr/heWiJyhPEPueHhq70t2ygrW LJ64qdfqhr/oBESNXVnBth5iKarTrrip+y1/jsUqVrvCOfDA0AXf5jijue37 b/xlj13FYtVhnFEWKxIqtIYHXpNL07kO41THOxsT+/7x1DOz1mOHcFzR+8aG R/84L14xTt4RBxtQbM8Hr+N9mpuo7t8NnJ7W0ZsqXse8ZfOua8gO+98wk7Tv X8dqBwQXUJkt9vgvZIy6+w9eWjlX+jTfBlue7zgzvXUDJ908gCvvW+EDlDFH B7SBn70Pi69Xs8LGLeuo+eQGvm3QO+r30hIj4e0sd3s28HJ0LsntiwVWKg9L c7y9iVlO9UZdVDXHcoeSQ992bmJPxdJ7yrcOYjLDfWctpr9Yf+Tlm/aPZljY vHs777G/2PvQDVlx+wOY4YxAn7sIHeTs3zUYfMMEOx4t7qrSoIOWJK8G/v59 +KkJfsdhTgf2599uUJT3YVepYxXl0XRwrs/ius4nI1z39uV1piU6oG87Y5ju ZIhFyyyu2HPRQ37d9SClFgMckD0W9kCRHsTD1JSCdA0wOYDb19qFHki69Dlf yHtwpJi7YX47PbxX3MNyT1If9zH/3rU6SQ9P+mh1TwsAa8zHq5syM8B26Rfh PTsBjzZUSi3tYgCmsElCJQNhA/+ta3vuM4DBonnmbqtdOMs+dz6tgQFKMXPQ QoIeXtqtOT49yACdoTv9Xn3QxflCzt3JgoygqFeno3ZUBzO9efpoJJIRRP7Y JO6v1sSHS4wKtG8zwhA6NX1HVBOXp/Rlxj5nBEhdLVC5qIHdfbZcpS4wwnWj cUqkHRU38jm6RToxgUdC1AMnDTUsuTnn8CmECWrPMVsVl6viMxOR5kopTPBi m9ZuHx1VLPfqIfGxlQkOvLx3YjBZBUd70gtTdJkhc8H4YZKsEh4wT+U8a80M /n2Z8r32ilhrlxJz6wlmiPpx2KMmSQGPcdksBhQyg9BWoYQJPnm8t7rofR3f FkhjMcO9NrI45y5RL7hzC2w/r3TE46kM/hXfVe1jsgXGvw51XeWTwYWufwp5 I7bAC835BZERMmbhMI9wndsCkaseMqrlJGy/3bFWi40Fzrl/Kb+pQcLFu93/ ssuwAGOB3SmRU1LYLCQ4rMyBBXrLEvVKUyRw6lhuCFMjC0SoMlO7lEXxBH1J 1edBFtgQEf3e5yKC9SSerTxYY4GbzdscnmQJ4wGrd0E2qqwAC8PFAhQhLPdm 4VRhJiuc0/Kpa/Hnx8F960/OVbDCnYLffsztfLhlhXnerJMVuI8kZkyo8WF/ FVH/lS1sMIrfJ8iz8OLafTIPW6XZYKetiY1RMA/m9VCZuU1jAxvlhyk3Zrlx ReZuH+MANrjpNpMV9JYLs1aa3hePZ4O8wv5Tr1s4sWOX7cT8PTZ43Xx5MaJ7 G95k9fVM72eDbUPExO2NrdjwTLLrlDE7hPKFz3fksuLUpOw7NW7sUM7Y8cLr CwueeHDvvxvh7PCO22t1WYgFx428cNpVzg6VXwTemBUy44HNxmyuD+ygcpKN pXmZCauKdvSNTLLDgAWD7A0TJtxtPuoYJ7UVGgJVvl5hZMRyfnPpR/W2gp3c rKe3FwMOvrL6WcNmK1zk7ipm6aDH4jUcdv3XtsLix5/PVh/RYXclTSuVX1uh Vn+lVA42UMVefIOBhwOmwiMH8kz/IFbXfZ29ShxwvJll292j6+jBrSMHL7hw gPeQdbZFzm+0WeaVYHWeAyYOkdpvNq8i8w+n2rancUDVYfO4yysraIk5en/H ew6YOXtprMjnF9orff1a/jgHiD07ERr6cBndomW8C2bYBrq5seG7fi0h2ulH RtI62yCdxaav89ZPFPlf756Au9vg1X+GF19JLKCB6v3Hg19ug5Xal/e3pswj veTa1PCebdB58XubN/c8mjcsnrzGwgnBP38XVMnOIVMpKb4kEifoKB0MCaLO onurybQ0XU4I079kedJ4BjmVhCXe9eWEp14H2cyvTKHnUYtV96M44f37qP0d TyaRgJPX8ONsTihQGNrf+N8Ees9tofnyAyfQtbsXWlqNI70zMt+6qVywtbiM jhI+ilIPpjN9M+WCGs3cvd69I2hBnlNlyIMLWIN+e7VSR1DRt5WLs2lcsGTe /t16YwgxPfMr/vmECyTCxm6rHxtCzglDH3+/44K9K49Gsr78hwT1W+W2/OGC cZJWPSlxEOlsI8lHs3PDvvIU2dKrA2gs5CuNTYgb5GsGnW3j+tFuq4OeXKrc wH/mgPtc0Tf0m1m3WsyVG5K4sJCI7mdUGPCzLcefG3xXNI+y+n9C1oMPh6VD uYFl8cRjq/u96EkVmUP+JjeU7Dj9l1DvQU6y/aSSXG5Ykk1XvHihG229kaap 8pAbdvuP5Lh3fUSevhzOGk3cYPKk5qV3TBfi/9x0urKLG+DARJrmdCeqM4iI 0Rvkhld31Ln+WnYiCclfpbDKDQ8LiY451Q7U3THIdECRB5RX/pRnGbxHl4gM kQ4tHhDprLrKZtmKVIutVaz28MARYW5ffa8WFBv5zs7hMA/8BL1vUkVvkc58 pF+fNw+8q6+OtfjYjMYOowjnIB7gleAJdGduRru1yoo9EnjA15bTwzasEc3n HX89kcEDHWoXk9vqGlAOl3y37z0e6D6fstOWswH9nsjaOFXLAzZZ/CZ9FXXo SWa0efgiD1zmZTvSZlyLWvmix7noeCFhrjd65dBrNBZ7OfzONl7YK8Ra66xW g8TPRz1okOcFfjs33e71F0h7KXKPrRYvvIqIZFeYf44s/SK/ju/hhX53Cz3R uWoUc/gS61ZnXrjIp/PkEnMVutsdcTvLjxdoayeQg2QlqjGN0FI5xwu9F7mT ruEKtES76G6Rwgs2Ugvqn9PL0VGJ8Nq0Vl5wEudjyyksRaEpYXYKX3jhQGjG kcq1Jyh1W9jc8zFesDALnxCzeYLeb4SKD9DzwTPjKu427UdoPCi07AQXH6TQ 852s43qIGObOmdBL8IHGsohv7mIJ0hkICZbR4QPG2HH+xE/3kZVtCFeFIR8Y Sxi4jX4uQv7twYVGVnzA2n7ErmTkHsqvOdvt488HRXTbkS5/IeK+HaRams8H 07J3juZ+zkNKQkHNu5/ygT/J4laVeB7amxjo1P2aD6bMcwwHve6g8xdOx618 5QPpToE6G95clLYSQLk6wQcDadRFq+Ec9PREwHPRX3xw5/SuO4oPstGE86kJ gocfOubo1+64ZiLGzycvfJDkhyS9rFlfswwkaX5S0EWZH7D9bGCFQTqyhhMG UUb8UO/UWGF0MA3Vko7ntoTxw9K91yr+Xcno2y0/7cOx/PClytZdizUZ/eL2 a5+9xQ/c3iPqzYY3kDK97x/ucn6QC1vil/x0HRmF+CTnveGHBkqCvb3ideS6 cExR4wM/OE03dUazJqJbQ972dlP8QMS2lh5JjUNlDt4/Jlb4Yb74Q5rfiVjU 3ukVfY5ZAFgacgV/W11DTHWe5dkkAeDRKHLvIWLQiTx37lFbASj8mZwfejUK JYSkZyW4CcBVqrCd1ptI9Mi8XV73pADIpVzeY0kXieY2tfUTrgrAD/m8R3eT IxBnr1+bTqoAxFR9qHcYv4h2PLzjMJInAGe5TogG6F9Efoe2Bui8FIBbu7jX 67nCUZw6bA6/FQAJKVOvlPHz6AFb0LX4HgGoUZl4fqIlFE1XDuQNzwlA+Ikr oQ8ehyAf/qcf46QF4cs+/036uSB0bXrMWVtFEIwOhWu85AtCxXViM0N6gtC1 /cPmI/1ANHnyMpO2tSBc0/vex/ksALEaP78+dFQQPhVldkz9PoXkpX6Ixx0X hN39R6f7DE8h7zZ7zaFoQTBMz2T4PXICxeTHv4lNFoRON3Vv+7v+qCi07oBW riCUeOuXzPgfR+MKyp6x1f/6RcSzz8j7Is/ov6maM4JAP89u8EDcC0Uf0aD8 tyoINV29TmtqnqhQ49jja8xC4NyniMzNPdD34a7mQUkhGDFzOVBT6IaYnrNY X1MSgmdWm7eoA65IJon2n4aOEGwM6pX4SLj++xgKV69aCEF0/WjaSulRFCX4 LUrDSQjk47831245ivJnuXgGfYTAyWQ1yL3BCY1khihoRAlBZhZxUsr+MHJd NXUcqBCC4IgfnBfY7dGlDxFjMfVC8J9J0uAVHjuUV1gRQO0Qgluyr6rsybZo yJoUGzMpBBOR+eOfna0RnbKNEPWXEFyYS+TsjrVCJMZrd/sZhIGzj8hTqbVE R0t/vlAXFwa+p5ncr8ACXYyRN+6XF4Yb/hvDNnHmKNf5SPcVTWFYHayu2Flz EA1ua57pMxMGcW7LpL9qB5CTT4bElQhh2GWQP5f0yBitf2FrX4gXBjsLCwG2 x0bo1r6Q8MMZwnD+v7C0uOq9qFPeflCtTBgu6BpPUKcNkP+t5sSs18Kg7JxD 5PAYIHZWbWB5LwxclL0v7sAeZDAucKdvVBi+JtE3y1bqo/9sL1sYLQiDqE5s 75ZNQGFNS/RPN4RBWlngi74poIqCj65XBEWAobngruk6gRTck2TUjUWg+KZq XY2DLmr6SNeTZS0Cl408TNzNdJDrnpOXWVxE4H5erWXdAW2URT441hciAhNV ioF0vppI50ZNqlG0CPjU+dYJxmigHnoVo6c3ROBAcnipxSMq4hziKLpSIgKS VyxCW/jVUYn5efvFShHouPDO+5C1GjKunWY90iAC+pFpfRWZqijidssx9X4R sGRP/6UcoYKWjsQo9XOKgsB10ia1QgFdb1v5ZiQmCvNM3db8efJoB+EV93S7 KNxUPEaP0rcjT/G9s1dAFLTbXS8V3pNFjHHPshdNRaFHVukDR40Myl2XMTvi IAq+6Q1cWwco6MtXxsfqAaIwQ14cNNElozMmp52zw0VBWK4q6uNpacT7fJiL NVYUtpbK0F2qICHT9Dcn+++KgvSOhGdshZKoxu6CekyPKMT8lFGIqBVBh5rn hheHROHTVNuP9UJhtKrllHxkTvTf/pXsU00XQmqCxJI6ixiccqhtH8kRQO2X H+Rn84lBtjhTR1gpP/JZFrNhJYnB+3uD5Vva+VB+99qzfh0xaM5tmjSh8CIw 8PE0NhQDR8k61T2HeFB/2RfBMgsx0N5iunY3kxsJJledjfERg/HRT4ZR3pyo jEFe/ucZMZi6oGpZJrQNmQekfT4SKQaM3ObBYj1b0VWLM7rULDF45n171TCY Dd14r+j34L4YxMyeSnExZEVZRoM5spViIOSqZplGYkFPCGMm4S4xGO5Oz+rc ZELPq/5oJQ2Kwcxq9qN7dEyogVp6jH1WDJiajKz1OBnRZwXRD39YxGFmXMM2 3IQeDf97Ns8IiIPuw4KX6sF0aEYqUuMHWRwc9nNnWDr/JegEZ9KHiH/xTeNZ uwL/EOxJue8d94uDe9Kt7uvC6wQ/h83fj/bi4C1ioyXe9puQZ6hxbzotDvSy iZNTbiuEelhAGo4QByljp5A2g18EbVWupSpBHNDh1XUKdZkwn0vcWXJfHIrO OmnUaP4kHI8ZuMpUisMn6uP334wXCffR1ZvZDeLwW0zqMslrgTj71WUtcVAc 3lS5S6hF/yAu2gjuYJsVh8odza0P/84S1zpanC+tiUPBNNPHu7EzRE4TtTFQ QAK2kK+aZX2aJIr0J1ZmyRJwtliLjyV1gnj6MkvRS1UCBM8FrT13GyeanjJf d9gvAZ/3tfCpKn4nOnY8r+uyl4BjmyYuOdKjxNci/+X9nhJA/8fV6rHsCDGX 88kRRUiAj45jjrvFELEqEhdfmSABbAp8136c/Y9gSIFa1SwJ4B2+bP7RYpAQ jL0vS6mUgDdfbMaDzfsI0hYn+6wGCWhgzTS3m/5KKEbwxgp0ScAfwzrieNoX Ap0NnWeZlQDfO42f2UmfCOPFnZSINQloKim/yrXeQ1geH7VZY5GE7Fv4h8Fo N+HhduDFDFkS2ki/uDIGugj/Afo5D1VJcGNLcQuZ6ySCHSpIg4QkSB7km2Jh 7yTiDkpFd9pLAqXOE+ga2onUlo9VJp6ScGW3cvobvTYi1zBmuv60JARWrUm9 bGglynctmFck/OMlpqXnnO+ImoqCyJ1ZkrA/RcqUra2ZeKvmWFF0XxKEqi7M UTKbiL7t9WKZDZLQXqxnW+PWQIzlnTXj75KE05vfU7oP1xPzEsoR8YOScP3e foMR1zqCiT9l7MKaJFQ6r2afTK4leOfCOXlZpAC/k/e8nfKakH7rrZXPJwVj BXULi4I1BDpPi36rLAXNHfFZzGYviAO2co8cdaXg/FvWITWG58RhVe7eGUMp CDOyYmxrrCJCRkdkeZyloN76c01McAURU9N24K6vFASduOft4PmMSL1VGaQZ LAW+bb1uq0fLiXLT2EaHJCnwi1wpND/3lKiTC5qdzpaCS/cYti6mlRKddM4C 4cVS8JYnxVOt9gkxV67ukVcvBVTOAi7dI4+IjQTxeI0OKZCTZc6pGX9AcBzb 8qypTwp+sDEof4ssIRQkvjJNL0tBdeNehfzZIiJr3SUV0ZOgVoOdua36HnF3 wrb4CgsJ7KPVp6NuFhJP66BLhJ8EJ2x3ma4E5BPVjzXHXEVJ4FDn+/RE0F2i NktxrYREgrGwu6aLkXnEhzP8ZLSDBCIDrDBYl0v0urFpXaGSIM2G2fH86G1i wHxzX4fuP76q8U7KLoeYUZw45bqXBD9M4u74BGYSS0L9l0tMSRDozWxvK5FB rDN1pS9ZkuCcyLn9j3tvEeyDL95EO5OgtFVgNutsKsHz/knPBw8SJCQO9L45 kkIIVxdMCvuR4JLco/unLW4S25MTeUqCSVA/Lz694nSDULkYJbsUToL8ib1v 088mEVrHQ3SJyyS4nV/yxjPzOmFg5ObyIemfnqu3o3uZEghTDfsg4Vsk8LAJ v37gahxhJX3gqksOCVQb2+8rkGIJ13Wt0p/FJHgtVp6cFRFDHJtQaqSVkuBa c+DTGyZXiJM9pC+XK0nAEa51vYQcTVx4zE4v3EACg7sstT4bkUR01l9+lxYS pEtxD1ZtXiISri7JF3eQ4MzXgqRgjktEltuAOa3/X/7nVq8Fk4tEvvlH98sj JNgwiF8QXw4nSoi3we2TJOBJCbj31juMeC70NPfoLxK8dalMS7p6jnjDdK/8 /h8SsEdxWn3VCCHeLmS+XWSQhrWi3BtT82eJT62X56O4pGE2mPHUjltBxE2U bWgjKA2Kcdxy4r6BhGVpeYashDQMj708J2t2mmhPHTFoUpSG5f2bz9T0TxFx bOvpqWrScPjmdGX+wZOEyXneH5460tDFvDFP7vUnmlz001n2SsOXJIVn++J8 iahu+7lPptKg6vZzjovNh9htdHJPkZU00CfcaanO8CZqlG/PGrtIg/rZtTjH VQ/i/O2K3SLe0iA68CZqb507ocfbnjbpLw1e4U2tm1luRMXKH/1r56Uh5i5d 0IEIFyLQhz/NMVIaHu6su0NcPUqo9yvNKF6ThqeP6pkdCGfiUZ1jamuaNMju 9505NHCI8NMMmM7MkQZ+xca1TxaOhGLRVfArkAZb4Se2G1/ticL4qimOMmkY WTGufqhgS7jTdeD+amlYmMBLfLPWBPn0+M2HtdJgHHjX8vMbKyLHXhCbtUtD 2k2elXeZFsTh1h03JXukwT9vbyhx25wQRYaTc9+kQeT32mMNl4NEKiUwOXHy H5NYeXcu7SesU2MnnOf/6U1Qh/suJgQv211CdUUavj1WEvL6bkwkzHWOdzCR wTpx8si44l7C1GWSdmcrGa6vuG09MWVAsHfT3TjFSwZWOkOV+hd7iOjqnTRe EhmGPuLI9UR9wkDZKGlYjgytvY2FAklAMNx2Gnu6gwz7hkRj2wAT4VHx1612 kUFuXH9Cs20XQVvJ/07ZTYaOcY84CR09Yu3YS70lYzIoBNitl1XrEGcOTo/e tCWD44mZ7XR/NAmNOgY9jyNkOPWq9/ax5xrEooZooqY7GRZX4hLGr1EJf9F9 ur2nyOAflx+y00mNUI4/mlAY/G/+ow/ryc6qxNTfsyNnLpBB/NA+p5U+FcLz e2G8UDwZZlJnn/v7KBEy9jXD48lkUDKsrt/Tq0AMt/RoV2WQwSCroY7OQZ5w esI0bF9EhnhTZkuFHFlCnCKurfCYDHbb3mzucpIhvqZQ434/I4NKyYX1S6oU wibUVSujngyROqxs91mkidRs/i0r78jAObJyZFmURPS+buqx6iBDLx27Z0eQ JGHLpBS0rZ8MlE8/T+6miRGpcv0GPiNk2DHOW+tQK0J8Mk7kb54kw8Xz71W6 7IUJ+/ifZRd/kaGgfjDiXp0AcetxQWT/HzLIDMxPsNzgJz532lnpMVLAdkOK /cMpPsJB8OXiTy4K7G9c96c48xAZOv515oIUGB32YRX05Sa+OpJuPBSnQGfZ 8OtTrFyE4+0oNS8FCvya8VZKqdhKZLzRom/YSQEpaxeFvp3sxLeRiQ6SFgUm pzMMrWtYicPyB05+3U2BQQav9qOCW4gsk79Yex8Fdq1cmxroZyL6/Eq5bh78 V39KZsO5gpE4Uirw+MBhCnhqn2brSqUncj42hxe7UkBJwCCbP5uOGFgOMWM5 RoGeN3G0VZe/NCe9gdnaIArY56X9KtpYp+Ucvv5K4jwFvC+7jfX4r9EGw3fH n7tEAX25EfGh5VXa0fpCZY1ECmgP8t+fhF+03O/2f66nUGD8fu1UNcMybYhl 6/vZTApoGnvc5+j9SXM1PeF7r4gCO6IfiIc+XKANX//I7vLsX/2ivb0+F3/Q 3Hq0i0XrKMC2ER44wzVDGxXJ2tfdToHdTxtq0eYEzd2JbjL+GwVq5OMvW+iP 0b7nuccYTVBgLDzxq3THCM1z/O12+mUKfCzIOJmTN0QbV9rR/JxeBuqbI20k 3AZp3ieTPAM5ZUC3TCd0deYbbaJ8mVlFTAYO7ouTR58+0479digY3y4DGcvU S6lCvTSfS+RRR30Z0M5XYDl3ppPmt3Wa3O4oAwZKS/3JKa00r0b54jenZcCv 0swhZ6CR5nrBU+1ZnAxw8D8e0bV6Qxua1eRbvCEDD4+3G7y3q6UdPcy8rJIu A/I5ox+/dtfQnHTzq4oKZEB8LmYi4/gLmsPPIZxVIwMVw49PlJc+o312KZX+ 0iADu31PZ7cGltNsOy4yCrbKgL5zf3r1vjKa9UOp5sRPMuDG/UNYXbaUZu51 xCxyXgZ0LGf99PhLaHu/fT7sQ5YF9Q8SZg2fc2mN+4rQPXlZCKqqyh+tuU0z qDpLGlWRhcUlmnjZRDZNP0Vw9MguWfimd5rDLjaDRjto7WthLQsDRgrNxPeb NPX6DyE60bIgrUfObe+5SpMqaUrdMiULNeX2lU6Jp2nWt6uqW+Zl4cHxghQB swDateTivoQVWVAZFbGTlz5FWwpNIAsxy8GlZ97wYvM4rcXU9tF2khw88fuq RVrzpJ2Z+95obCsHzAtC9asjjrQ2Nebla3VyMCoWtPZNczcttGqPFVfmdhg6 vtgTs8BFO1noV6G1UwHaq/cccpV+sIuDQdtV5bsipCx/u1TvvGuX4XHrFMVk ZeCJ6JQU/tWkJ1wtccJQRgV4MzJOB/Ta6N0IiElS/bQTovhvzUa19ehaRh/c kV2hCndjp749sHDQVTwUZZMfpgZ3BF9qZJV81ekdY8tLtlGH8EaDo1e3meq0 u37X55Wiwi9Lp2M0pjrtIaZ7qylkKuhtszbWotZqLxV6PxaRo8LW1bLqh9Kv tEWmp8Wld1Dh4FL/RkNspbb76cWVnbuosGmYL/Tx1SPttci/Dw/YUYHujBJS kMrQlisQEb2aSAVxFpU8z7wAbV2jbx0cyVRw+W2z+aHqpLbpZNaV66lUCJI7 5h3E4K99agdpOS2bCoIKpNxoeW/tl8/kOgpLqLCruaetZZ+ztmUTNbqh+V+/ LeScYAUTbQ/vZZpxKxVkugQ3uAONtIPZK3+2tlOh0HlqWXyLoXa2mZ7Lxx4q fJB42/13BLQneoE2PEKFJJtfHo/eaWqvBTP89BinwiOnkFtPL1O1t4k13J+c okLefqWyV2Fq2urORkILC/+4zSU5h09Z25CerT1wmQp9ETO+WXIK2vZ3W6JW V6kgQWPcMLkip+1jGLfr/B8qhPlbcBfskNEOGz+w+PcvFUgjEq7BvGTt/wGi nSWl "]]}, Annotation[#, "Charting`Private`Tag$15591#3"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVlXk4lV0Xxg8iRJnncxxzjukclKR6RJEMeZOhRFQoeYUyJEmSDEUSGctQ EgqhZFrrMScvQlSEJFFCJZXC5/trX79rXXvtve9139eWO3xyrxs7hULZzkah /H8999Hy2/KyDlK0lrLTt+6G8bNiPwb+6uDlxVPpW713g5XA8M8nv3XwMFfn kt7t3UDX91k8+V0HE9WifDaxm0N9zHXukXEd3GhgvOFMuzlwa/bT8D8dzA/T 3XHZzxJunHYxD0vXwaOcei5VEdawyK1qdTBFB+n5B7Zp51qDe+ZX601JOmih f2T1O9Ia9JrD7WbjdFDmiX7f2LI1vBG/6+oSroNkzPup+NB/gF49GWh4XAfn hZiqbZF7oZDt1B2Kng4ufmNbymraB5tsCrhSdXSQ3ZDl8XV6HzTfeXeMxdTB 2+3P6xMkbGHE1FrjsKoO7mZ13mr0sgWxOI3HDdI6+LRTkuCQtINwqYmWSIoO qqQuc3hesAcBL1mG7KI2Wv9he0QpsYfMWrsrT35r40nqxj+zQ/ZQ6dJkPfFN G7Pav02NbHWAL3k5r80+aKO5wugxAcp+cNBx+szXpo22Vl+oRskHYDzihuXd Zm2U6/q7h2w7AKf6nhdvbdBGQqSg687yAYg7s/m0d402qqbtSkj3dIQGEF/s fKiNoZ3m4gd3HgRNi+61iYnaaOE6Tvy31hk43Uy1JZ20cdlZ3Nvjjwt0O7Ps P+/XxtFUCWsfKVe45SAdUmunjRce9NUW67vCRouZJldrbfz45khOT5AruOvc 3F9grI3cN5pOP/3tCq1sH8MMGNoYc7BcwIrrCFy5Fdnp9JOFXeUzC1ss3cAh xWdOa46FgX5NTh2n3EDx+gFJ9q8sVKo9HpST5ga1lzSP5H1ioXd3R6jIpBtM e/XNT79lYanUqUS1aHewNlCmhTWysDVErO9SnwcIv2ryyklgoSxnuzjPfU9A teyoiDgW7npxcOZ1vyd4nQ+54x7LwhcxKXW/uE5As7LOIOPSSr3iuIy8+wkI 9s8yLwti4fIW3hHmei8YFTrLaDzEQnt29/r86n/hkSVz4oMGC8On7W2fJvjA oew1q1oZLJxqj1U889AH+H6MyxaosLBby3LE47kPuGdk2nvLsdD630qtHk5f kPrM2zIvwsKAL7owEeIL4VEf7q7+y8Qn5k4alqf9YG9D2hHVNiby4F+pX9Gn QbF3bKilmYmW4usyqCWnYX5M84B7AxN9W44pXeo7DalcDda5NUy0sKgZlVb0 hxGzz1upxUzUpu6lnqr3h3+7DCQEbzAxwIBSLs8XCFFvB9t/OTHRVFhl0rvv DByYVt518wATfXgEQrM4g0F92adhgz0TXc3sL8ptCIZOOmeVnzUTNRQm7wsn BYPYUY17U0ZMnHIy52tyOAu5n85dGFFhYumWR/X1MyFwdmar17X3WijMzfap SisMMlz1JgzfauG5NZ7j7bvDoKaHefRrnxbGv5IV5nYPg6UnCgf3tmnhS7ED HQsZYRAexmMhUqqFVurKsf18FyBG8KVaSqgWSo2Pp2TMXYA0Ha/PtyW1kDvm WEPXh4tQfdfNw1pYC4eshQZ8uCJgUPzQewq/FuZuqvtuqBIBtL//DLhStDC0 oG6N3/EIyGnUe67wURPbGlnitNkIuG/LUXivXBPzfiqv7eKKhMrANM/iPZoY n+p3YoNjFMgf9b37apcmdpZ78MVdioKr1rtG2Iw0kXPkaLlKSRQcVp233aer ic/N+i1luaJhzcA/239LaKJKrorM+opocN7GI2E8qoHCCn91xmRjgYMzqKnv tAaSh4W/qTHiwPurFYXirYHBU0T/Fqc4ePVWyUDVQwOJ6PfJKdfioOhxT8nZ /RpY/yh+jPUrDuyOaWXQt2mgCUvy9FxbPOQ/H/fzXK2BHdzVuefhGlhdt6Uv parjgtqg0YOE6xCsvc7MNFEdf52t78kuvg553a2+166oo8dJB2P47zosCW1p kD+vjjNOdTb+vInwIFHe3fSoOqptmtjdfSkR+JJmCq9pqmNHdPzMyYgb0HYz Wk+hQQ3L8vNN9XOSYV7P2MWrRg1fmtvVXGtKBvlXf6MqKtRQMaU3WXQyGYIl fN6Y5qvhDrvC1fnMm6CaanfO66oaSg8fTPtO3oSoNIWGCns1DJkxkzH+kgKm mbVWu6YY6HdPQCzfIx1mrw7+XTXOwAH2vzOKcemQFvqngBxmYJiZ1rP28nSY OqS/2qCHgbsGq/sz2TPgunwFaFSt7F/omDHNyoChe0VM4SgG9tr2N3W+z4SA R+lCQwoMpF6ZqqSbZAE9twrTqAyUKndUVDyYBc8SX3vbizPQ39bNYZtfFsj4 iz/v4mVgcWu3wZNbWVCvl3ix4asquiml9VT/yoK1tTFz+aCK2S0DX8VKsyGv 5UzfKUdVTJcKLDPSyYVU7QDj+/tUUVU+dMbUKheuZPqVDFmqIr1i/fCx47ng d+pEjJmhKvp90v28eDsXtso6bZNVUsXAq68V/dfegd4Aw7y26fU4N15akzZ7 B9iVVwfIha9HS/5YrWfP8sA54oZoZ74Kjun5tE12FEAHMb86KEcFx79/uB8/ XQDEH/sFeoYKajCMblmsLQS6n/SwX7wKFl6SuLbGqhBGD+XkiwWooFiI77qM jkJwNygxcDZWwfvlmSoLPUXg/e2565e3ykirqryoOfMQQl04Hq4RVsbPxeHH dUtLgaIhC8aXFLFlOXnvLvfH8CY29XLhS3lUp85wZN2qhp4mepFLpzxqMcLY fUuroX35XpfoM3mMmeFt39RYDXWnHkuG1cjjGOvpbOFkNeQ49hTuy5XH6eMR TVK6NeCpxt+16COPL7+cffO5uQb+tIVJWPPJ46/rL370jdbC3CrurZxc8ria XzBLfK4WprfFu1Yty+F85kmhXZx1MPIos0Dxuxymf405GKhSB41pVVt+v5ZD OePWF9wn6uCK55xLzj05TGs9WoHTdSDDe+z+nJEc0i53F5DjAM517Vfkt8jh aA+7Vc08QLYfy8d6gxxWz5xVteRAUB5Y2FikIoe9HySvLQshaBVdbTzCJ4cX HVvZS1kIRlZlw90v6bhZmxygeSFEsEs0UDrp+LPGkCp/CqHlcUieZisdW35k bBQJRrCQNfk3poqONYGHdRsvI9jNvlrYfpuO+mWhDKschOPXl0RLj9FX/FE6 MtyDUGRy5PeQKx1ndo4yql4jTC+0DPI50tHmWZhJ2DCC35GE3GOWdHTudmV0 fkII0VVk0bXpGJtapuRHIaFuIkrESo2OvP9EnLvLSQJb5pefZxXpuJ8hKtzA S0Ik55O6fjE6Fvzjx6gRIYH2IDGF9lMWb7s/dstSISFX1OlQ8KQsDq3bw01X J2F9qLJy34AsCnfY7o5iksDa87TsKspiyAbPN4L6JOz4OtTxN1oWWw68cOUw I+HZ/vwkhxBZvDZF31RvQYJVve/Bcm9ZzD6lxnnMmgSHxFWfTtjIIs+MYJGH PQknNjA4B2RkMcsIDFlHSfDjfHovYJ0s5rU+cBTxICH4peluIXZZbHW6WPb2 OAkx/m7xZh9pOMXhbSZ/koTrO+dYH17T8OmeL7RMXxLSRC/2hrXT0MJlvcvi KRIKKrIkK0tp+GJCwubfIBIeXdKqsblDwzpDifSQYBKqbOucZ5Jp6ODkcdYn hIR6JUu22GgaZgt21+0KJaHtx0CucggNGxspTM4wErqbPE3qvWmYlxCUevcC CW+Sfk84udLwoXt6k+pFEkbdomJ/29DQUCk/NCGChMkN4ppJJjTcQFbFDV4i YZYzr4upT0NLl3bgvUzCr5e6p9rVaHjiTNmAdBQJlLwG0WM0GnZ/VyhaF00C d8DeSg5BGkqbFC98WGEBk3cHbnPQ0DSp8dqtGBIkxHwWN89T8UhPiZ5+LAn0 8aXbfRNUPDp0q7Jihdc/vmrkN0DFoFs3B4WvkMCMlPnA30HFNMVwL5sV3mRX ePk+UjG+VYF1eoUNlTczdpZRUdmU/t1/hXfNt7aP3KXiu+HfwQ4rbN1sfzIk hYr/+QkmSK+wQ/K4oEQsFYcy8xbrVs5zcfcvLztHRcs3/VFGK+yxcZX9Hh8q Xk3NWbi7cl9vrsTfnw5T0eHwe6nJlfcE9MllRNpSkfeLbemaFQ7NK9kmv4uK +wyTLvGv6BEZQLyr3UxF+n/Sh6YjSYgz6bi4X4OKFTHGnA9X9EwWc1L+IUtF TSETwmJF71vjn1uvCVHx59Mtva3hJOQ9Dj6hzknFiRJ6rMLKvB5G8qxt/SmD fJLPGQfPk/DYLqXkyCcZNJT/ccbv3Ep+lFVslgdlMEBxE+F+loTm+YofaZ0y eP4p/3a9MyR0NO9I2Vgvg2/7Ond+CCChL7lnc3e5DM6OVwr7nCbhw8av53nS ZPCTu4WC9Io/p7jC5O9eWenf0zG72YuEub61TYbnZdDTcf3tjSt+XhWozht0 VAaT91SV42ES+Eyri4TtZdB1fXee1SESRMR37yk2k8H3CmHxTxxJUHzicWNc UwbVR3n3S+4jQf3y/MZwORkcsH3RILiSL137S6+pIjLIEcSmP2a+ks+fOTTb 39L40k7BVsyYhCN6Q/kNDdJob+LTma9Fgnu+np3JE2kMnM2oaGaQ4CmZwPGs QBovPLr5h1QiweePsXNHgjSWmdq+3yNNQgjcF359SBrb+pMbGlaRcJ7JQTra SCP7laDdLUsI4dkHvYdMpFFgLONe3i+EqIvrnr3XkMaGUoL26zPCDVP/0Ok/ UihhIxw70oVws7JDzXdGCinxz/fWPkNIU13/+vuoFJorFrqerkfIWjOg8/uZ FHa4Fcf6lCE86DSc5EiRwpPf8mLTExGa7fn2SepKYfQF3bZ4C4RnrW5sGSpS WNu2yfi3EUK7PjykSUvhkEhpr74+Qre0H48iuxSufbDXj1BCGB7ur9PsksTV TY2vH6z8B788clV3eEniX673AUIEwJ9Xf/uaD0lirFpo0U1lgCUzuwgzG0l8 44/RjfwAq9R5hq02S+Kgx/B14YE6EJz1vrGfWxIrJXcYnPWtA0bQ5mXvOxJo HkTREr5aC/jWivE+WQI3mM4ctfKqBTvjI7b20RJ4R1+sTtK8FsLXXikkvCVw e8fSA+fVtfD6zlt7gU0SOBv4ZPv14BqIehFWUvpcHNmm+i2VzKuBppc0oFQn jo/dIrnkFKqhPOM+V1qJOPpYnBK5s1AFIx7dB8OTxNHkkd33rflVoLekwGNz SBxj36lzli4+hXFGi+vcNzFcX1fRKZpQCSHXBq4c+yCGPtd3aRi7VoLQ/MyT wX4xXPV23X/TzErYRkqsbaoRQ1GFExF1HU8gyd6zKilSDMUyulK1Vj2BHRH8 wnpSYoi+x1Jf2lZA9lubxjPbRTHwvOMwz7VS0B7TXujVFUXVsaJaPZtSaPwk yGSuF0XZNOfl96KlMP6zM318rShutym+X5FaAgwhi1M2gyL4UPjhuPPGYnhk skNeI1AEy38q24nyFkJjsW7YSJEwdlstRp59lw22j4UfG2QJY3oZ47TvzmwY r/n2OTlRGD9adjcY5WcBd1uJvWWwMN6UXnQZ770FlmPqWlWmwshhILDtNZkK fRJKQ4mjQsjxXYylahsHHy+IbjGVEEK5CaOpAtfzBO+54plEXiHMpFNF9iyG E5pBZrkjfwWRFU+R7d4TSQR4n+MNfieIBYsVjXyrrxJcjh9eFRUIovu66qrz h5IIRd0Kf6GtgvjRIsAioS+bODy+r/itqwCeWeU7uv9BCRH5bvowY58AsheE a99glhIFg1FigSYr9YSTe+6XlxLfumvOCagJIKeTm50HPCLYz5ulRE6sw/5r zjd2D5cTBGvyxT/867DHmvT0MXtKVCWt3zlhx4/yuZzjte4kwe348QjbFn6k 6TYLelWQhB09L1xKjh9D5mVuJqyqJ74VKKDFZz7UpPqG7bhTT6gizaD0PB9e mDW6YzfZQKR8EmEF56/BSX959xsxzYQ/wUblW+DB6dkmtS71dqJ+FRooDfOg 3mb9BZvYdkKgLfTAtkYe1JCwSXb+1E4U7ft70yeOByXW3jLhLfiPGDv+U+il PA967G7jb9PqJPbe+MJ9y5wbB9IvR5cwXhDMyddzWplc2BD429Mxspc4Pauh Kh7BhVI62+eaq3qJyp8XnJY8uTAmZGvV6ZleYjsXo7l9Exc+fbbmy839L4m9 CsE3j/dy4q4myTgOVh/h7yS1OXcNJyYPpRy9O9VPVL04cF4smAOzmIfH2lIG iKVXD8sWXTiwvUt73/zLAcJohH1izJQDuarXjZ8QHiSeTxdYl4lyoO3bs2c2 xg8Sg2v+yFmXsuOzHR5F1jFvieWd6Y3RE2yodFzLtDdumNhhOfPLp5MNP5my OZBdw0TUPmMNh8dsqM7POBLKM0IIHPmcpBzBho0sywktixFCPszAo0GWDccf xsmc7Bkh3C/HpxdwseEPXYnJnB8jREHc+86ELxTcHVv5Z0n8HaGTGbvJpZqC tuNhYUynd0TQnWEv0xwK2oyE6nOFvSNqCnWyNaMpSDUimlflviN2VA3wLNpR 8PjHpMmQyXfEw4K7+i0GFFynbuv9Y90oIZF+8ngCnYIX/3mWcWvjKNGy0OUg K0VBs4v3N3QQo8T/APQBL4s= "]], LineBox[CompressedData[" 1:eJwBAQP+/CFib1JlAgAAAC8AAAACAAAAcwpeTsHL/7+AAWa8kULiP6rYmvHf nf+/Wl6KqVUk4j9+uS5RdGf/v8cB+oOgAOI/JXtWEJ36/r9+XJgIt7nhP/hb 6m8xxP6/+yiAjYKW4T/MPH7PxY3+vyVUONB4c+E/dP6lju4g/r9sju9B5S3h P8KB9QxAR/2/EVpnrbuk4D+WYols1BD9v3vTavnaguA/aUMdzGja/L/rZv5i JGHgPxAFRYuRbfy/I/uCOjUe4D9fiJQJ45P7v+YZ50GZNN8//I4zBobg+b9k rqihfTTdP9Bvx2Uaqvm/m92CT+v13D+jUFvFrnP5vw4fQWeqt9w/ShKDhNcG +b8J7/ISHDzcP5mV0gIpLfi/Ywm5/cdI2z82nHH/y3n2v6OeCCIWcdk/cKmv +BET87/CqqIAHPzVPzAOboNC4PK/QKXJXNHK1T/xciwOc63yv2t42O/HmdU/ cjypI9RH8r9HfakAeDjVP3XPok6WfPG/O0V9rt541D/z6itJNczvvxdbjc6c BdM/BoP4oEZy6b+cNB80ik3QP4dMdbanDOm/1Oqbzwkk0D8IFvLLCKfov66i UymJ9c8/Cqnr9srb5791Cb+m1VHPPw/P3kxPRea/CNzOTekPzj8YG8X4Vxjj vy5fkCmjocs/VmYjodJ82b/Bk5SemxjHP4pxc4iStdi/o56CR/vUxj+9fMNv Uu7Xv4ookX7AkcY/JJNjPtJf1r+bT8IWegzGP/K/o9vRQtO/rbEObp8GxT8e M0gsohHKvxruQMFeDcM/hUno+iGDyL+ikWlO6s/CP+xfiMmh9Ma/xZOBa9WS wj+6jMhmodfDv6QPfdfIGcI/rcyRQkE7u79q1D8IGizBP3v50d9AHri/7Lgb ppfxwD9JJhJ9QAG1v4eMr9lxt8A/y/8kb3+Orb8/EFyGOkTAP2hZpal+VKe/ UIvbQSgLwD8EsyXkfRqhv7YCxC/ipL8/QBlMPfrAlb9kwrxTKTS/P4jG+tBY H4q/zo4FtOXlvj/FvpaV "]], LineBox[CompressedData[" 1:eJwVlXc41u8Xx61SCKHIyN7rGULF5xyVVQiJhIZViWTz1SCSlZEVIalEIVHZ DxJCSWRURGVmRMgo/J7fX/f1us65z33e73Ou6xa3dzd3YmJgYLjDyMDw/zO8 caX9mGgk8Ovmh93xosERam9VmM4DYNTclD7oT4OXn6yu3Qh8DOeYrTREA2mw pXZC8vXxIvi6qddX7zINPJzPj79OfAmzIwxfTYJpkL1b0ajhWTm4j08yk0Jo 8JFjorChrQrcPBJalkNpsHHw8dbGiRq4mnKLnB9Gg3TrXXscQuvgxYYKTf1w Guzan3T+B089TM+wDbZE0KBNaSHd4d5rYOIpk9WIogEDw4t1B1oTeGmPpzbf pEHqOB95yKgZOFlaGn7F0IDS6W3v+KUFDjnXJq7F0qC16mPC0Lm3YK36h/VP HA0cc9QaHJfegbZvo1h3PA1WYxP/DIW9h5746sHMW/R8rZWE4sh2WONINTRN oMFt8uP832YfwCpV3+4nnR1ljjdQdnTAfcZxEbdEGpCE2L56DnZArVDbzV46 r3JV/Cl+1Al55f5PlZJo0MLiwjV34SP0pd65fo7Oycs75KjqXXDFSpA3ls72 083otdoFZOvNNhl0VvkRYF3yuhtqagpOJdJ5pUfecy6qB8wtLst607np7adI 6pFesPbZWaJF57P+n5tsFD+B+5/thiP09zdJfWEJZf4Mbr4B8d50znv/RSf/ y2fw0yuKH6X3fzCw78rHki8QcvPsYaDzT5n+yn9RffBR5lZ7IF1/VEf/kpRj P7gGnRTKoPujdOXrLmOtr5Drp6t+n+7fW/kBTx++ATi0669sDN1f166BpxmT A3Bx03+LdnT/w/DiH3v7QdiFq0946POxTJ7h82sbBNYNTMb59PnJTl6kRu35 Blok/e8KkTRY0pk1u5vzDfZKvvOKoc//TYrHxRKe78Cb0bW5h74fZ/d7Fnz5 +R0K5iuc+On7pJn6u/WX5Q/gyDylzUXft02/PH8y1/+Aq2yC2pNX6HrTvGSV 7gzB5zNiX47+R4P/ZuZ0kXUYfm7Yc/O7H12/nrejhdcw/DjBEGvhQ9c/633v 0qERMBn8+WTMnQYV+gs1caUjoOn2qY/NjQaRGT5fH0iOwijv5ggeFxooGvoK vfs7CtMvfII7HOj6s/ySRPLHgTmPemC7JQ20/iyWkAV+wuhVsbtO5jTgMPLv 0A39CZynqL1pJjQoWPTnumA7Aeoe7wVL9WgwbfJfBI1jCq40aZ8r20UD2oOV Rx3+U8CRyrZXk0yDmJX/GkeGpmD5s5RdphINVHMCmbmqpyFVt+69iCQNyq7Q aE/VZ+CA36D8BCcNsvLW3pW7zoDDf7UadzfTIPwj0V+fPQNltz9u38NCg2MK NX97OGfB4qrJTanlaljuqtFkGJ2F2JeNBm3fqmGPcl2xacocWDBWCFwvrIZd H7uTac1zkPRV8KxUbjWQAif/U/pHj78ReFd4rxpkmvn3bzo9D5TLuYLXE6uB 1+lCZ43CAjwXL7u7O6AaJtOF5lVof8Dz4YYnH4hqGN1P7k2f+QN8iho+ChrV 8P2nXhWb5CKQy3g93FWr4ZOmZ+jIjUXIW2oxpIlWQ+PHN3yZZkvwbKIwzWO9 Cu5y+O7aMrwMnju/smBlFaSVRO0I5F8Bu4ZcfqfiKkg+fm91zHAFSEF6d/zy qiA6923D68IVELsha+iUUgX+ByQtL/n/hYNhxglOnlVgfqndd4J9FQy4zgxw SFcBk++2PscdDCha7juccLkSjp963FGmxoDPNDM2PvSohOKD0MxhyoALYrHP 7jtVgr3ouZfPwxhQa9FdzMW4El69qYpjmWfAX7LhzTuFKyFEyFH3QRsjnnUM /rLvZQWw1BUX/ghhxsciAResvpYDK4dpsP30RvxwbezkEksZhAx27/e8vwXr 2cvTr/0tgaI7YaZXfm/FkjOfmwa2FYF7tiP3kOU2LEq/4NyungsxAanpMQ7b MM1HaP2rYC4UmrbJ7b64DUU1hFf/rT2C6TUNnZiIbchYyxh0pukRuNqwe2pW bcOE3pT5pWOPwIWvuDNafDtuiUu7IHo1B5zD1pN3TW7HTaJX5Vd7HsAJlzSR G8ECqM86FmhWcw/+ftrcNntTANOejB9Uz70Htw0DrtimCeC2uvfnlOPvwQe5 YwPkEgE0KRgsMXe4BwdGt93rGxLAs3/71P/bdA/kHeOlKAY7cHQfs/E+yyyY twtX7OcUxIHT0lxF6xkQ927xi76QII6P9kZIdGeAsvaZ6GJZQRQdm6+pyM8A Z2G9qRsoiDbtwudtj2fAp8/MTymegshQrs/iVJoONKurlPAuQZydNfGK9r8D EWa+u6npQijqbj+qzJ8Kt94quObnCSGn+oizxq/bkK4/kCldKoSRjyuF3Zpu Q5G2AYtAhxAyJ3uy2/nfhl55wff/WIUxu9SJ0aQvBeSYaI6NXsIoaSkWcT4/ GRqLN8RZHxJBsyB2srZbIrQrV7zqOCaC8nYBoaUHE+Fz7oWFQ84imOVz18VW LhGmM3uOE8EiyGDFlyM9lADbo/KkJUtFkAfsWkvsEsDJwbhyUmInShV2Xy04 dgtY+JJGrq7sxB9bMySuusUBz/QVTh5WUVT+vb1th3kciL85q/6AVxRJwUrS PepxQFzSCnujJIpdYZ3XyhniIGDoh/TWk6Lo2hBvvUspFqafU5yy6+lxEuNd v5ibMKkw5mGvJ4Z31999fRkaCfP8/defGInhK+0/l3QsI+EvS0fqvLkYCnif rGeXiwS2gcq6sJNiCOaToSfeRoBsQuzWJ/5iuL5G8lnkjwD7v+rP5h6LodHq ZcvWihvQ03p9JpRLHI3sP8gkK1+HRCJD9+h2cTxwonHSg/k6mD97niYtIo7L tA9LcZ9CoS35x4FGBXGUParRlRIWCo2ndVJZ9cQxOYBJs+5HCLxc/KcTeUkc p74FS+o/vgbJkt4JsePiyB48oYfOQWCRHDV2ckYct245+ZjhQBDwbL6vTVoU xwK1hIa/4kEQM/1htJ1FAndbdYjuq74KYeWqWjxiEnjEVaUPX1wB38MTQ4mW EnitpMzdteISHA20V0+rl8C9ATW3arYFQHIG38bFZglk3sg8HfLdH7prGruO tEtg9IP0/rtP/cGSRdFnS78E2vAkNvYd9IdjN+dKgv5IoAlJ7PuJ635w/G4o +Yy8JO4VCxqVZvOFU/U5SmqxkmhkkJbVfdgLsoaP/YtLkkRNfUKNJuMF31jZ 307dkcQXWbfEZlY9wd7I/fyjXEm8/vetC7nAExy6NB4LvpLE9kP7c3dyeYLz 6BtZxgVJTP3AXXZo8CK4sk9ItB2Xwq6jXlyXXNxgIqCChf20FBLua4YPFdzA ZSxiRP+MFCbvfDymO+EKZxrkHtd5SaFRklviTzdXsL/qTH4RLYUmU6MJhf7n wXruG6TTpJB1xjAy8v456D39TPzTayncNHVtodflHFi2BzFvb5VC4zYqdyLl HFgUiDbF9kjh7AOfSuP6s2B6xs4kZEYKr3N4DlSNnwG9L722LhLSeOn4NrZ/ hs7QYJhLPJKTxmf/fN+94XeGA2V+YkMq0mhhHS+1NOwEOknbh+z2SuO0ip/w pRAn0Dpscd7MQhqrb3vv3VTvCJT69wGaYdJYqlAX+uSIA4g+aUze+FMauXi3 pW0tPQUWd8vKW2ak8eVpd/v66FMQmfC4L2aRXp8nL6jT/hTMB8ZI8G+QQd1o V1YO7lPQYmRZKCsmg5y893uS+0+A7/Rwg4GlDNYXNhUMBNhC/veeMQ47Gbyh GpJxgWQL37qb2T84yGDvByaDh6M2YFRTYGbtIYPeYonvWI7ZgEScT/+5aBmU imNZPYfH4R15w0LkKxnkd0y+Xa1yDJhkFvkPN8vgNUPdpl2/rEBTcHwPb7sM ii+3+u0rsoJspndBd/plMLzlRCufmhX4dyZy5C/R409Eky7vswQpHympdyqy mM1kNn4mwAICy/Yf4boji/dEDWQ0DMyAYts+c/KeLOqWbD6hL2wGP9dtY4oe yeKC+lB35YwpHNf3bTZ7Loui+VsC29JMYU93LiS+k0Uu4HnGNnoYlua2KO1g kEOxP/rbZd2MoSglrfncRjm8peF3VVjcGM7ulT1TwSGHUSkbf73qMoLea5ht s0MOl4S8zER0jKB0q5dAJkUO7WI9ir6JHgJf1V4WSSc5PCGcevbSPwNQ6XTM 9jovh5KHo4YHKgxgxHcWXnvIof5/B2QGAgzgKI0t0OmKHFrISE49WdYHNWPt 2Ucpclikn//FhkEf5lyy+5Va5LBvzNRso7wuXMxxfamuKo9Wc38t/AZ04Ot7 oSROdXl8RumZZ3qiA8bLLV4jWvIYK+39TNBPBxSM5MnJB+UxVOWI7Ti3DgzN Dj9ZcJLHWYlHzIMHEay0T957ni6PqW7ErHahNjQ6cwZF35fHNL74U4VHtUEt rvqE42N5nJmxFuRe0wLuH0LCfGXy+Pqiv1WmmRa0hPcme3XKo/nI0xOPmPcC 8dEsmsKmgG0Hq6Kvx2tC/irDebatCjihkuPMrK8JQrJFht/5FdBuqXO36aoG LAVwst6SVkAxY3xv4qoBxaKtwbOogD2yfC9zj6iD9PkDfkV+CmiSn90hpacG iYlzR8OvKOD+iD07n7CqARMtW+3UdQWU+XRa/3szFb5yM/7mSlBABaFVNVtT Ktx+We3qXqiAS88u2Js4UYCDScNeZVgBfT6f1istIEG5H/ORkQkFDEXNh17/ kcB56v3+zN8KuFskXKlOnwS1vWelORkUsVLn1zfeN6rg9TRtbEpQEYOYBg4f 1VOBz7ZrFwpMFbHUqUd7wlsRbnS0nHSyUsR6X1kmLVFFUDNIMRU5oYjd7nV1 IS0KEEMlUW6eV8Q/B8yVpiUVQIfNfsE1TBHLjjJWj3+Tg9zShkClKkWc82Qz dw6XgaPKt1yHXili6/yZoA06MsB0/4RderMiJn7x5/BdkQbbmEWCo0cRHXBn 7Ct3aeBykmeanFXE8NHk+HcOUuDLczP8iawS7k8Cra/uEiAZbh3goKKEGeGl G1PVJKB9VdpFaJcStgb/fMyyIg4K47RDUfuU8OFAEfNomDh8rZnhPG+nhLkO pmEPcsVA180iSSFBCQ82pQhM8O0E71uVDO6pStjlKOt7vFwEHpRKuJbcVcKZ tivb3p0QASam2X1a+UrI9+PRw2f5wlCbfHPGuEEJ3+USKiQLIdhT23jIY1EJ N/Bzb+x5LwDnhpVLX6zS+zX5u9E4RABusyVJrDArY33AhR13NQRg0cJh+Rq3 Mgo2W51ry+aH5+PrOYnyyugcdyhVKGQ7qPDuZiqzUcaADM3dcef4wE4zy+3f aWUsufd87JU8H0TbsX7Cs8rY37j+8elPXph41PW02VsZDyUlpRVd4IVcLU+7 LzeVMfnXhI3AVR6QdH5StlajjBfrox78qOEG8ygeqf2NyrjZXnvhUyQ3XCsK iL3xVhk/FzSecbPkhsEVfWfuT8pYG2W9oeUrF2TGDvFK/FZGf4frRh2mnCBQ LuKuK6WC25lf1zW4sMOawyOhrYoq+Idb75g/OzsMcZLf9JFV0KNnwOt0ARsU OR4Q9wYVDCxhznszvxn0uc93Zh9XQcG1K5o34jeB75kyDYZ4Fcw/4lXQsL4B bHn2DbWmqODDcBM/KN4A+6pb41IyVdAGg9rKnTYAJ+/AuEq+CrqBzI/771kg h7Yh3a5JBc3iZUuWC5mha9sRhspVFTwmw3FINpURKmr78sNYVLG7lnr00HFG yDrvbG3OrooWG0Ju7xNmBNe6gOJxAVUcFBgOzcpmABa3LEcBNVXsEPHWfeSx Tqi9nnrj46KK6qfyvv7Z+o8QdPfz0fFQxXFLj602+X8JBkFGiS3+qshjubV/ h8Ff4q07X+CD66roN7ZNIDlkhXAQ2qvcmaWK8UmMr3jZlolbnuHxpB5VtLkW Yppl9odYeZtfFt6vikd0j2sqbvhD2Mt+GBj8oYqXhy0tCsoXCGrfDpX4GVVU ij8bESW9QPzMPjq8xEJCzSMVh05tmieiOUaDrXeS8OG9h6WsS7NE7e6ApOvi JJz9dtW2vHyWmHdmz3smRcLI8zt3aVyaJWzrVNs3K5LQRcek7ibzLKHs67+z QoOEFoz6wQ5CM0TbwOZKQTMSXlw4ZW//ZZJg2pLepmdBwuYrlrk7fScJ9T0q 3z2tSOhcShgo8kwSmYnmm1vtSCi895WetMkE4W54xyrQhYTbG5PuKnWNE9wl SvNfQkhY37P0giQ8ShwYpLFuukHCWse9H8RaRgj/LWZCapEkXNl8WUg6YIQY POOzLzqOhE4bfj+w/TxMPBOmxWllkLBcPi1KIW+IMA87rJzxkoTBv7IW/H2+ EznWM4bl5SRcsqvJ9VL7TiwrxTt3VZGw36f/pf78NyKrs+PulnoSviXNEh6+ 34gpMUueK+9JuDG6Qz44dJAIr7RdPDFGwpteI55vI/uJvphV3sAJup+1plk3 xfsJVftMUso0CccKu7lLyvuI7k2D597PkzAwoGLTjukvhKSlQx8wkrHX89mh XufPBG3mXJ2YIBln5Trkryf2EDyv2b5qiZCR51LQcDz0EE4pT1aOiZHxcNSh hrqJboKDmKLGy5AxlzKrd0m/m7COupjDSCVjhkE69xJ7FzEv7Rf1/RAZNwpb XWRv7CAMlvlz10zIyKhUmJIb3EHceVv2WtCcjFL9v9YoRAexz2tl1fwYGVWE Ct2ZKz4QsbWXL9Y7knGgp40Tq9oJBZvQow8uk3G5k1HsxId3hLXHSx6WYDKG KwX7Gh1/R4TfGHvvEErGG87f5RmG3xLDJUYHJaPorB6unrneSmRxbIPs22Qc aiYHsBq2EG0S+v8Y08nY56xb6DnQTKxqBpSfvkvGsF6OIE+/ZuK4Uz9VPIeM XhUgtCP/DbGN9lAuq4SMDCqh5s6yTcSBjz3D6y/JmJeRxfy5uZHw/Ln5/skK ej+Hn1976dZItG+/ICJaR8Zf8ZWnksobiEh3dZ7MNjLuuZH96MTp1wSDeNPf O+NkZNMfafwzWUeoaiyX/Z0k41npW9rF9+uIE8aKvjYzZJxenhmOsqkjKgNi ZwQXyTil9VE3oq2W8O2wGk5loeDqdQ13v2s1xIOxiOxlVgrOn9VL+MVQQ3Su VZ60Zqdg+YraV8dgGkFSFPsswEPBrPA+E/nwamIiZKwtRZSCNS+sNpvmVxKC aYLRixIUZNNR4R/dXUkYFBkZWslQ8HWwdf6+5goip6+ofrsyBQ8yzUwrTZUT p3YFlCXtoeBVif3/7TAsI7pHNmcnHKWgmGzB6tKhF0SjRUR6+TEK7mH7XtS1 9Jx4+WpTyoANBUWryZTxnOdEciZrtKI9vV6bjvP9jc+Jo5YbfOsvUJBzzUfu V2cxceB16MVxDwryNH3254gsJtQoLOe5fChYJzGfCDrFBB8n8ymbQAqWtDUW 9xQ/Iz42MBycu0FB0vrRKafsIuI1NejAjigKJpxJeth0qoh4fm+dgBgKPlTf HyguVkQkXl6jRiVS8KJrn/TJ/U+JI7v+iUjeo+Dif9MSBScLiI4Hi7PmFRSU Pjgf8fdnHvGKx2/Sv5qCywvaNwtD8ojioD8jmbUU1Ei2SJgUySNu2S58+dlI QUMXe405y1zCjG+u4VonBfPGHdfiP+cQeM2zNrebfv/GxnzmqzkEaWa2ou0T BSn1R890SeUQ3G9nngoOUnDjSOdoqPdDoj1kOrV4koLDPW8YoiQfELWzbom9 vyjY8/ZUjFfHfaLo5FTM2m8KJruceZR07T4Rt3cy5OAyBVlGZLy9R7KJw3Pj bt83UFFIrK1QvOoe0WY/rMMjSsWRGW9VRY27xDeWR0tJElQUvKzaEpOXSczn nH26Q4aKtuLan212ZhI7JiaExZWpaPP6lwEbVwbh6PV7UXUvFSnaXpdy2e8Q ftueF5YQVKy7M0XTi0sjIkt9nDT2UZEqtR+Y+NOIp3+XOghDKra+uptZoJBK rISsFxhbUTGPi7w6fC6F2CJT5/jhOBXX39daXF5LJsTeXBM6eoKKWVx8RdOJ yYQux8YIWycq3t9K1semJCIukcPxvBcV+wO74lsxkZB5uEMwIpaKvwM9rQyC 44nd+l/aORKoyG0W1LidFE8YjaffiEum4qLg5s7Dg3GEh7LYQkoGFadK1TLG D8QRVS9k2nOeUFHl1/J5klYM8d5qLEzhKRWPGBdrqzy9SXxfztMuLKZi01Pz iIdSNwlWQvnJi3Iq2nc0be/eHk2YN1LDXjfR/dNdo4ryRxJOZxe0DFqp+KF5 c31TegThz1Y619pGxdn7zgqpUhFEhsme051dVCSU3++K3xNOjHWj1vcfVCR7 xgZ9uhJGrPgzzTmNUrHsktG/Fr4wYovQ67zxn1TkvfLxemb+dYJyUp9/dpaK TE6/WFu/hRK6jJvbvBeo9P/eaon3aihx7H5L6NISFZeDZYd37gwlXHSj9176 R8XDpnPCQ7QQ4vKo8e/1dSpuW/XktD0dQvwPdY233w== "]]}, Annotation[#, "Charting`Private`Tag$15591#4"]& ], {}}, {{}, {}, {}, {}, {}, {}}}, \ {}, {}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-20, 20}, {-1.6305880549847982`, 14.355510836753961`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["4", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.922526, 0.385626, 0.209179], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.922526, 0.385626, 0.209179]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm], ",", TagBox[#4, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701706459221*^9},ExpressionUUID->"1ea78701-ded2-479e-93f5-\ 2bb3853d9420"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.0000003630651253`", ",", "0.9999994713950014`", ",", "1.000000900702855`", ",", "0.9999991856001302`", ",", "0.9999780169434319`", ",", "0.999810045081208`", ",", "0.9991814452785992`", ",", "0.9976703416910119`", ",", "0.9948692142704747`", ",", "0.9904826341169846`", ",", "0.9843562736617241`", ",", "0.9764725167957143`", ",", "0.9668909642810511`", ",", "0.9557569623571806`", ",", "0.9432304585037871`", ",", "0.9294936193837007`", ",", "0.9147389357611573`", ",", "0.8991381067112564`", ",", "0.8828600488992997`", ",", "0.8660564643755109`", ",", "0.8488664143412448`", ",", "0.8314014150636184`", ",", "0.8137677612892337`", ",", "0.7960564001021626`", ",", "0.77834221461846`", ",", "0.7606953347255039`", ",", "0.7431673992656084`", ",", "0.725805618358834`", ",", "0.7086500499956604`", ",", "0.6917308052232888`", ",", "0.6750771088880928`", ",", "0.6587065512459984`", ",", "0.6426319367829688`", ",", "0.6268759944818374`", ",", "0.611439545688672`", ",", "0.5963331703393386`", ",", "0.5815615311950675`", ",", "0.5671249994223279`", ",", "0.5530253307015098`", ",", "0.5392623958828641`", ",", "0.5258336202344054`", ",", "0.5127366127746019`", ",", "0.4999638385404994`", ",", "0.48751499352544375`", ",", "0.47538408483757916`", ",", "0.463566277650094`", ",", "0.4520536466468564`", ",", "0.44084095102160425`", ",", "0.42992223058217366`", ",", "0.4192904717817813`"}], "}"}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701708978109*^9},ExpressionUUID->"533a875c-9871-4a61-8b0e-\ 14c65717be72"], Cell[BoxData[ TagBox[ GraphicsBox[{{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ 0.011000000000000001`], AbsoluteThickness[1.6], LineBox[CompressedData[" 1:eJxFyV9Ik3EUxnGR0tEuNJplf1BbJSoppunUNfdsc25NJFMwELS1qCaVldCF DOqlwqKbTMgLmdGcMdEiU3E0N8lA1oUEUuJb1qzUtZmbLkyJYCvp/PLA4fA5 372GS5VnoqOionL+7vr9N8ty6eOrp9YvPSBMyJsLR5bIAuS8c4c2ejxWhsd0 G12EuKGl+Yn/TkTSqKPzSph5DzKG3bVlv5hT8CK+oGZhkVmMCt6wujbJvB8N RTutgn7mVMh6Tjr468xp6G3t1KnkzBnYVjl+fGw5SD6IqR+xj+49YM7C9BNT VyiLORsVEfG5+pEA+RBe7nrWdlfNnAN3dq3GNbZIzoX+50P7aTAfBhpmhM6h 7+Q8hNsEXn86cz7emEL7ptoXyBJI+LQ+wxbmApgdzeqyJj+5EA0yczDT5yMX wTm4e6TjBLMUrtb6SMzrb+QjiK5WDY4XMstg11o8yqdecjHuS5Vd3WJmOTpM Scek7fNk4NpZ36tkEZkDXOLf7y+3zFFXoKXcU1wXR+YUsPDNPf6WWepKpIg2 lacnkDklxDHWQKr5K3UVJuq7q2YPkDkVdMm2TEP/F+olsIe0+VYFmSuB16iI tbz9TF2NtVsL5mojmVOjYiBQZYzMUC9F0w799sZcMleK2101dc8veKhrcFFz Y25r7yfqGoz2JZ5vDH6kroV+M7/qzCdzWtiShXf4m9PUj0KyvDJgm/wg/wNr gvI9 "]]}}, {}, {}, {{}, {}}, {{}, {}}}, InsetBox[ TemplateBox[{StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction->(FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), Editable->True, InterpretationFunction:>(RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], BaseStyle->{FontSize -> Larger}, FormatType->StandardForm]}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 50.}, {0, 1.000000900702855}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}], InterpretTemplate[Legended[ Graphics[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], Line[CompressedData[" 1:eJxFyV9Ik3EUxnGR0tEuNJplf1BbJSoppunUNfdsc25NJFMwELS1qCaVldCF DOqlwqKbTMgLmdGcMdEiU3E0N8lA1oUEUuJb1qzUtZmbLkyJYCvp/PLA4fA5 372GS5VnoqOionL+7vr9N8ty6eOrp9YvPSBMyJsLR5bIAuS8c4c2ejxWhsd0 G12EuKGl+Yn/TkTSqKPzSph5DzKG3bVlv5hT8CK+oGZhkVmMCt6wujbJvB8N RTutgn7mVMh6Tjr468xp6G3t1KnkzBnYVjl+fGw5SD6IqR+xj+49YM7C9BNT VyiLORsVEfG5+pEA+RBe7nrWdlfNnAN3dq3GNbZIzoX+50P7aTAfBhpmhM6h 7+Q8hNsEXn86cz7emEL7ptoXyBJI+LQ+wxbmApgdzeqyJj+5EA0yczDT5yMX wTm4e6TjBLMUrtb6SMzrb+QjiK5WDY4XMstg11o8yqdecjHuS5Vd3WJmOTpM Scek7fNk4NpZ36tkEZkDXOLf7y+3zFFXoKXcU1wXR+YUsPDNPf6WWepKpIg2 lacnkDklxDHWQKr5K3UVJuq7q2YPkDkVdMm2TEP/F+olsIe0+VYFmSuB16iI tbz9TF2NtVsL5mojmVOjYiBQZYzMUC9F0w799sZcMleK2101dc8veKhrcFFz Y25r7yfqGoz2JZ5vDH6kroV+M7/qzCdzWtiShXf4m9PUj0KyvDJgm/wg/wNr gvI9 "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.000000900702855}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> GoldenRatio^(-1), 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 1.000000900702855}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], Placed[ Unevaluated[ PointLegend[{ Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Style["Analytical", 13]}, LegendMarkers -> {{False, Automatic}}, Joined -> {False}, LabelStyle -> {}, LegendLayout -> "Column"]], { Scaled[{0, 0.5}], {-1.1, -2.4}}, Identity]]& ], AutoDelete->True, Editable->True, SelectWithContents->False, Selectable->True]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701709149542*^9},ExpressionUUID->"749ea90a-2f20-41ae-a434-\ 2da98c50ce33"], Cell[BoxData[ RowBox[{"A", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], " ", "x"}], "a"]]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701709235313*^9},ExpressionUUID->"a26d0416-0e9f-4f2c-962c-\ 4e6af1b3a260"], Cell[BoxData[ RowBox[{ RowBox[{"b1", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"q", " ", "x"}], "a"]}]]}], "+", RowBox[{"A1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}], " ", "x"}], "a"]]}]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701709242399*^9},ExpressionUUID->"4290b796-5b45-4715-a819-\ da6b11456a07"], Cell[BoxData[ RowBox[{ RowBox[{"c1", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"q", " ", "x"}], "a"]]}], "+", RowBox[{"c2", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "q"}], "-", "r"}], ")"}], " ", "x"}], "a"]]}]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017092467117`*^9},ExpressionUUID->"3464fd15-f723-422e-977f-\ c8ee94c857c6"], Cell[BoxData[ RowBox[{"B", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"q", " ", "x"}], "a"]}]]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701709251936*^9},ExpressionUUID->"8c19fa85-4bf7-4ec4-a33f-\ 9ca605e798cc"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r", "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", SuperscriptBox["q", "2"]}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"4", " ", "q"}], "+", RowBox[{"2", " ", "r"}]}]], " ", "q", " ", "r"}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r", "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", "q", " ", "r"}], "-", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"4", " ", "q"}], "+", RowBox[{"2", " ", "r"}]}]], " ", SuperscriptBox["r", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", FractionBox[ RowBox[{"b", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], "a"]}]], " ", SuperscriptBox["r", "2"]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}], ")"}]}], ",", FractionBox[ RowBox[{"2", " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"], "+", "r"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]]}], ")"}], " ", "r", " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]], ",", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}]}]], ",", RowBox[{"-", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", "r"}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]]}], ",", FractionBox[ RowBox[{"2", " ", "a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{"q", "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]], ",", FractionBox[ RowBox[{"a", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "-", FractionBox[ RowBox[{"b", " ", "q"}], "a"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}], ")"}]}], RowBox[{"de", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", SuperscriptBox["q", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "q"}], "+", "r"}]], " ", "q", " ", "r"}], "+", SuperscriptBox["r", "2"]}], ")"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017094215193`*^9},ExpressionUUID->"5b414e53-0acc-4d17-8048-\ 7fa48c3acfda"], Cell[BoxData["\<\"Normalisation check\"\>"], "Print", CellChangeTimes->{{3.7888318450310717`*^9, 3.7888319314942303`*^9}, 3.788833018320115*^9, 3.78883324466765*^9, 3.78883359725865*^9, 3.7888336562018337`*^9, 3.788833706765267*^9, 3.788833750316852*^9, 3.7888339921268263`*^9, 3.788834042156336*^9, {3.788834313295293*^9, 3.7888343382878017`*^9}, 3.788834372482876*^9, 3.789089158292882*^9, 3.7890892122645807`*^9, 3.789099563296829*^9, 3.789099679583399*^9, 3.789099858154079*^9, 3.7891001034256287`*^9, 3.789114901528133*^9, 3.78911609576676*^9, 3.789116216259016*^9, 3.789116674757854*^9, 3.7891174074582644`*^9, 3.7891182017926483`*^9, 3.789173849486812*^9, 3.7891739534156427`*^9, 3.789178069722941*^9, 3.789178177059972*^9, 3.789178208751974*^9, 3.7891783100965643`*^9, 3.789178429136532*^9, 3.7891785329330263`*^9, 3.7891785743387213`*^9, 3.7891786868849487`*^9, 3.789178813945644*^9, 3.7891789744532537`*^9, 3.789179009078422*^9, 3.789179139456126*^9, 3.78917920518388*^9, 3.7891793785117188`*^9, 3.78917949711987*^9, 3.789179999333993*^9, 3.789180199878035*^9, 3.789180279946113*^9, 3.789180328035451*^9, 3.789180791814735*^9, 3.789181951509663*^9, 3.7891821758678427`*^9, 3.789182308460403*^9, 3.7891823445274982`*^9, 3.78918337839491*^9, 3.789183425271797*^9, 3.789197178234254*^9, 3.789368363778533*^9, 3.789368417664081*^9, { 3.789368540834017*^9, 3.789368561548788*^9}, 3.789378898872356*^9, 3.789433829810072*^9, 3.78970170942964*^9},ExpressionUUID->"94b7b143-598b-443e-860e-\ befcef725e78"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "0.9`"}], " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "-", RowBox[{"0.5666666666666667`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.36666666666666664`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.1413939164117518`*^-17"}], "-", RowBox[{"9.748853033180655`*^-16", " ", "s"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"1.3`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.36666666666666664`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{"1.1413939164117518`*^-17", "+", RowBox[{"9.748853033180655`*^-16", " ", "s"}]}], ")"}]}], "+", RowBox[{"11.068214000206277`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.4666666666666667`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s"}], "-", RowBox[{"11.068214000206277`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"1.3`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.4666666666666667`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s"}], "-", RowBox[{"1.2298015555784747`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.6`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.8`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.7333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "4.500000000000001`"}], "-", RowBox[{"0.5000000000000001`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"1.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.36666666666666664`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s", " ", RowBox[{"(", RowBox[{"4.500000000000001`", "\[VeryThinSpace]", "-", RowBox[{"0.4999999999999999`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.5`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.6`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.14942088900278472`"}], "-", RowBox[{"11.068214000206277`", " ", "s"}], "-", RowBox[{"0.016602321000309412`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.7333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "0.060750000000000026`"}], "-", RowBox[{"0.006750000000000003`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.5666666666666667`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{"0.06075000000000001`", "\[VeryThinSpace]", "-", RowBox[{"0.00675`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.6333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{"0.14942088900278472`", "\[VeryThinSpace]", "+", RowBox[{"0.016602321000309415`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.8`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.6333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", "s", " ", RowBox[{"(", RowBox[{"11.068214000206277`", "\[VeryThinSpace]", "+", RowBox[{"1.2298015555784751`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"0.9`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}], "+", RowBox[{"0.5333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}]], " ", RowBox[{"(", RowBox[{"0.08200392256024222`", "\[VeryThinSpace]", "-", RowBox[{"0.08200392256024217`", " ", SqrtBox[ RowBox[{"1.`", "\[VeryThinSpace]", "+", RowBox[{"74.07407407407408`", " ", "s"}]}]]}], "+", RowBox[{"0.009111546951138022`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], "-", RowBox[{"0.009111546951138019`", " ", SqrtBox[ RowBox[{"1.`", "\[VeryThinSpace]", "+", RowBox[{"74.07407407407408`", " ", "s"}]}]], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], "+", RowBox[{"s", " ", RowBox[{"(", RowBox[{"6.074364634092015`", "\[VeryThinSpace]", "-", RowBox[{"6.0743646340920145`", " ", SqrtBox[ RowBox[{"1.`", "\[VeryThinSpace]", "+", RowBox[{"74.07407407407408`", " ", "s"}]}]]}], "+", RowBox[{"0.6749294037880016`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[Infinity]"}], " ", SqrtBox[ RowBox[{"Sign", "[", RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}], "]"}]]}]], " ", "\[Infinity]", " ", SqrtBox[ RowBox[{"Sign", "[", RowBox[{"1.`", "\[VeryThinSpace]", "+", RowBox[{"74.07407407407408`", " ", "s"}]}], "]"}]], " ", RowBox[{"(", RowBox[{"1", "+", "s", "+", SqrtBox[ RowBox[{"Sign", "[", RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}], "]"}]]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"s", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{"0.0135`", "\[VeryThinSpace]", "+", RowBox[{"1.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", "s"}]}], ")"}]}], ")"}]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017161761417`*^9},ExpressionUUID->"57a159c1-c809-432b-b756-\ 6d41041595d4"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"27.`", "\[VeryThinSpace]", "+", RowBox[{"2000.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", "s"}]}]], RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"1349.858807576003`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.03333333333333333`"}], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], RowBox[{ RowBox[{"-", "9.`"}], "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]]}], "+", FractionBox[ RowBox[{"2459.6031111569496`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.03333333333333333`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "9.`"}], "+", RowBox[{"9.`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.4`"}], " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]]}], "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], ")"}]}], RowBox[{ RowBox[{"-", "9.`"}], "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "1.0333333333333334`"}], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{"44.799833981974494`", "\[VeryThinSpace]", "-", RowBox[{"44.799833981974515`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.2`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]]}], "-", RowBox[{"3318.5062208870004`", " ", SuperscriptBox["\[ExponentialE]", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]], " ", "s"}], "+", RowBox[{"4.977759331330501`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "44.799833981974494`"}], "-", RowBox[{"4.977759331330501`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{"9.`", "\[VeryThinSpace]", "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], ")"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]], RowBox[{"9.772913355005526`*^-20", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.16666666666666666`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"9.209126974803627`*^22", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.36666666666666664`"}], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.`"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]]}], ")"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.5`"}], " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8.288214277323265`*^23"}], "-", RowBox[{"6.139417983202419`*^25", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", "s"}]}], ")"}]}], RowBox[{ RowBox[{"-", "9.`"}], "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]], RowBox[{"2.40374880930389`*^-19", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.06666666666666667`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"9.209126974803627`*^22", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.16666666666666666`"}], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.`"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]]}], ")"}]}], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.5`"}], " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "8.288214277323265`*^23"}], "-", RowBox[{"6.139417983202419`*^25", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", "s"}]}], ")"}]}], RowBox[{ RowBox[{"-", "9.`"}], "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.2`"}], " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "80999.99999999999`"}], "+", RowBox[{"81000.00000000001`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"0.2`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]]}], "+", RowBox[{"5.999999999999999`*^6", " ", SuperscriptBox["\[ExponentialE]", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]], " ", "s"}], "-", RowBox[{"8999.999999999998`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"0.4`", " ", SqrtBox[ RowBox[{"9.`", "\[VeryThinSpace]", "+", RowBox[{"666.6666666666666`", " ", "s"}]}]]}]], " ", RowBox[{"(", RowBox[{"80999.99999999999`", "\[VeryThinSpace]", "+", RowBox[{"8999.999999999998`", " ", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{ SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]], " ", RowBox[{"(", RowBox[{"9.`", "\[VeryThinSpace]", "+", SqrtBox[ RowBox[{"81.`", "\[VeryThinSpace]", "+", RowBox[{"6000.`", " ", "s"}]}]]}], ")"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701717428252*^9},ExpressionUUID->"f4eab75e-0713-4b36-9a5a-\ 44270ffc67b2"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "1.`", ",", "0.9999999997963835`", ",", "0.9999998519002609`", ",", "0.9999955049830045`", ",", "0.9999634010702071`", ",", "0.9998478979267305`", ",", "0.9995722388068626`", ",", "0.9990604894809346`", ",", "0.9982531768108124`", ",", "0.9971128473538293`", ",", "0.995622846416476`", ",", "0.9937831400210054`", ",", "0.9916055790287287`", ",", "0.9891097176485965`", ",", "0.9863195361717363`", ",", "0.9832610558084518`", ",", "0.9799606983866446`", ",", "0.9764442174098233`", ",", "0.9727360449382048`", ",", "0.9688589297717067`", ",", "0.9648337731689173`", ",", "0.960679594163373`", ",", "0.9564135765793337`", ",", "0.9520511647138552`", ",", "0.9476061853638433`", ",", "0.9430909814412768`", ",", "0.9385165476783007`", ",", "0.9338926625295253`", ",", "0.9292280128177574`", ",", "0.9245303092941785`", ",", "0.9198063923461584`", ",", "0.9150623277627549`", ",", "0.9103034928834013`", ",", "0.905534653695308`", ",", "0.900760033569037`", ",", "0.8959833743702056`", ",", "0.8912079906860393`", ",", "0.8864368178772439`", ",", "0.8816724546208937`", ",", "0.8769172005570036`", ",", "0.8721730895954966`", ",", "0.8674419193847397`", ",", "0.8627252773897423`", ",", "0.8580245639785969`", ",", "0.8533410128703554`", ",", "0.8486757092564252`", ",", "0.8440296058706833`", ",", "0.8394035372506155`", ",", "0.8347982324026235`"}], "}"}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017432282763`*^9},ExpressionUUID->"2c2d4203-4997-4233-8379-\ 6d4697119e9d"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJxVyVtIk3EYx/E3KxtBGOtAUoFvylhmy3Stpqv35zxsailsRUqNDTEIDG3D zrYEvWhdmJYdmFAXYuHhYuVQOxgaZTVdRsOKUiynsJybSiFh0ir6P4YPPPz4 8OULSnRHwjiOS/jzf/ffTQkLl8NCizCyeDQUCk0yr0SL/rzjv1ejrKb7ysy8 12FjYaTQOu8NsCe9XdL9ixwFq+aE3zpH3oSBc7xz3w9yDJSzxxsc02QJPvc+ SMz3kaXYn11tjhkkx8Jrb9srdpPjcMFZdTv5EVmGF3WyY6/ukONRXeybC1wm b4dp7TPv8ElyAozfhmzvDpETcfNG5fQygSyHva/24N0o8g5oPUrzKEdWwN/z cJV/OMi8E6qOT7y3k7wLY2fWN0zZyUrEisWL5KfISYjjvstdOnIy6rfkRLu3 klUwRnz5qBeRd2NAZR6yjASY9yBgu1+gekwWkGvTXe+6RgaKv3a8WVHCXA5U GMyueC31FIS7i1xynnoK8ipM/dGzE6yr4ebbneEe5nI1rnYd0I81U09F8Hnn rZ5K6qmQRn544jBQT4NxW5+kUUE9DRclikZnBPV0bLaILr33+VlPR/ZPQ9Wa p8xcBqyZZ5db6qhnoLdMFpwspa7B4XpPf00OdQ1O5y6dyZdS1yIPalNWGHUt jhbVvi4cHGc9E9J7hpdNbePCb01q8f8= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0., 0.8265381440227547}, PlotRange -> {{0., 50.}, {0.8347982324026235, 1.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0.8265381440227547}, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0.8347982324026235, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Privmanb\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701743318492*^9},ExpressionUUID->"a5a0920d-6bcd-402f-b653-\ 20db8f99b096"], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.`", ",", "0.9998588523367219`", ",", "0.9965917597212949`", ",", "0.9886937399153106`", ",", "0.9783759713265731`", ",", "0.9672580547395071`", ",", "0.9561184405711578`", ",", "0.9452909846747072`", ",", "0.9349013157079251`", ",", "0.9249800317339085`", ",", "0.9155154572386633`", ",", "0.9064783887280753`", ",", "0.8978337621059289`", ",", "0.8895460915482236`", ",", "0.8815818901291306`", ",", "0.8739106158935757`", ",", "0.8665049026743066`", ",", "0.859340455259646`", ",", "0.8523958000973629`", ",", "0.8456519873306677`", ",", "0.8390922909968912`", ",", "0.8327019289263512`", ",", "0.8264678108636105`", ",", "0.820378316760881`", ",", "0.8144231040200062`", ",", "0.8085929410743904`", ",", "0.8028795642443209`", ",", "0.7972755548058611`", ",", "0.7917742334369775`", ",", "0.7863695695134525`", ",", "0.7810561030536116`", ",", "0.7758288774217781`", ",", "0.7706833811811308`", ",", "0.7656154977326567`", ",", "0.7606214615885253`", ",", "0.7556978203082038`", ",", "0.7508414012776147`", ",", "0.7460492826394212`", ",", "0.7413187677897017`", ",", "0.7366473629460767`", ",", "0.7320327573675788`", ",", "0.7274728058696283`", ",", "0.7229655133303958`", ",", "0.7185090209293149`", ",", "0.7141015938959517`", ",", "0.7097416105790259`", ",", "0.7054275526720714`", ",", "0.7011579964548458`", ",", "0.6969316049287883`", ",", "0.6927471207411697`"}], "}"}]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.78970175121894*^9},ExpressionUUID->"1d3b7ae2-f252-438f-b209-\ eabe6c7faf72"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], PointBox[CompressedData[" 1:eJxVyWtI03EUxvFtwWrlWOleREnYsMtcDGebc2nbo9P9J8OKBbahCSoLg8Ui kMLLFq5BFEau7IJIlCQUi4hi64a1SHpREilUUrgm3nbxQolirFHR77zowOHh w3drg8vqEPB4vII//3f/3YLh/+UhHEn++pSeZ16DydjcEekEeT2U3EdxfR9Z iksmfs6XfeSN6H+Vkr/5McecDWe94qHvGjkHlZqM6LCBLEOJOy0PxmeZc3GK X/TEdZ28HRZrS+a0hbwTnkHj8hifnIdvd++PiZ8lmXch7nYdlp8kK5GrrdEl NOR8zLTWOrKWE8wqLMXs7U1PyQUIiOY7Qx7ybnD7uy+MmMhqNOsD4csSsgZb RL6sz6Nx5kJEX/LPuG+TtXjUWHPDeYJcBN/zTavPgazDsdmetWEJeQ9qs4NV 6UiMuRhtb6Ot+Q/IJWg8qBOaveS9sAWG4oXVZD0Wdyx6F+RkAxp66uqOpmeY gYD6p/TqCPNpQPwupDp+h3opNls7MpMe6qWIbRj8IDhEvQzbilOqe0rqZehd Fzk/IaRuxBXP64FbkWnWjTig+C4bf8zMK0eftqu910+9HF3DkqX3TuoV6JcM ZDRz1CsgbWnzn5VRN8ERst0UpqdYN0HxYqU7McrM42D3hkXqIHUOloudQ1/9 1M3Qc6smx13UzbCvVHcYq6hXwtbkEaTypgy/AZtI7P0= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, { DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, AxesOrigin -> {0., 0.6773844767782281}, PlotRange -> {{0., 50.}, {0.6927471207411697, 1.}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0.6773844767782281}, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0.6927471207411697, 1.}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Privmanhim\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.7897017513146048`*^9},ExpressionUUID->"913973b5-d12e-4987-bc9d-\ de1ba380c20b"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxFyV9Ik3EUxnGR0tEuNJplf1BbJSoppunUNfdsc25NJFMwELS1qCaVldCF DOqlwqKbTMgLmdGcMdEiU3E0N8lA1oUEUuJb1qzUtZmbLkyJYCvp/PLA4fA5 372GS5VnoqOionL+7vr9N8ty6eOrp9YvPSBMyJsLR5bIAuS8c4c2ejxWhsd0 G12EuKGl+Yn/TkTSqKPzSph5DzKG3bVlv5hT8CK+oGZhkVmMCt6wujbJvB8N RTutgn7mVMh6Tjr468xp6G3t1KnkzBnYVjl+fGw5SD6IqR+xj+49YM7C9BNT VyiLORsVEfG5+pEA+RBe7nrWdlfNnAN3dq3GNbZIzoX+50P7aTAfBhpmhM6h 7+Q8hNsEXn86cz7emEL7ptoXyBJI+LQ+wxbmApgdzeqyJj+5EA0yczDT5yMX wTm4e6TjBLMUrtb6SMzrb+QjiK5WDY4XMstg11o8yqdecjHuS5Vd3WJmOTpM Scek7fNk4NpZ36tkEZkDXOLf7y+3zFFXoKXcU1wXR+YUsPDNPf6WWepKpIg2 lacnkDklxDHWQKr5K3UVJuq7q2YPkDkVdMm2TEP/F+olsIe0+VYFmSuB16iI tbz9TF2NtVsL5mojmVOjYiBQZYzMUC9F0w799sZcMleK2101dc8veKhrcFFz Y25r7yfqGoz2JZ5vDH6kroV+M7/qzCdzWtiShXf4m9PUj0KyvDJgm/wg/wNr gvI9 "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], PointBox[CompressedData[" 1:eJxVyWtI03EUxvFtwWrlWOleREnYsMtcDGebc2nbo9P9J8OKBbahCSoLg8Ui kMLLFq5BFEau7IJIlCQUi4hi64a1SHpREilUUrgm3nbxQolirFHR77zowOHh w3drg8vqEPB4vII//3f/3YLh/+UhHEn++pSeZ16DydjcEekEeT2U3EdxfR9Z iksmfs6XfeSN6H+Vkr/5McecDWe94qHvGjkHlZqM6LCBLEOJOy0PxmeZc3GK X/TEdZ28HRZrS+a0hbwTnkHj8hifnIdvd++PiZ8lmXch7nYdlp8kK5GrrdEl NOR8zLTWOrKWE8wqLMXs7U1PyQUIiOY7Qx7ybnD7uy+MmMhqNOsD4csSsgZb RL6sz6Nx5kJEX/LPuG+TtXjUWHPDeYJcBN/zTavPgazDsdmetWEJeQ9qs4NV 6UiMuRhtb6Ot+Q/IJWg8qBOaveS9sAWG4oXVZD0Wdyx6F+RkAxp66uqOpmeY gYD6p/TqCPNpQPwupDp+h3opNls7MpMe6qWIbRj8IDhEvQzbilOqe0rqZehd Fzk/IaRuxBXP64FbkWnWjTig+C4bf8zMK0eftqu910+9HF3DkqX3TuoV6JcM ZDRz1CsgbWnzn5VRN8ERst0UpqdYN0HxYqU7McrM42D3hkXqIHUOloudQ1/9 1M3Qc6smx13UzbCvVHcYq6hXwtbkEaTypgy/AZtI7P0= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJxVyVtIk3EYx/E3KxtBGOtAUoFvylhmy3Stpqv35zxsailsRUqNDTEIDG3D zrYEvWhdmJYdmFAXYuHhYuVQOxgaZTVdRsOKUiynsJybSiFh0ir6P4YPPPz4 8OULSnRHwjiOS/jzf/ffTQkLl8NCizCyeDQUCk0yr0SL/rzjv1ejrKb7ysy8 12FjYaTQOu8NsCe9XdL9ixwFq+aE3zpH3oSBc7xz3w9yDJSzxxsc02QJPvc+ SMz3kaXYn11tjhkkx8Jrb9srdpPjcMFZdTv5EVmGF3WyY6/ukONRXeybC1wm b4dp7TPv8ElyAozfhmzvDpETcfNG5fQygSyHva/24N0o8g5oPUrzKEdWwN/z cJV/OMi8E6qOT7y3k7wLY2fWN0zZyUrEisWL5KfISYjjvstdOnIy6rfkRLu3 klUwRnz5qBeRd2NAZR6yjASY9yBgu1+gekwWkGvTXe+6RgaKv3a8WVHCXA5U GMyueC31FIS7i1xynnoK8ipM/dGzE6yr4ebbneEe5nI1rnYd0I81U09F8Hnn rZ5K6qmQRn544jBQT4NxW5+kUUE9DRclikZnBPV0bLaILr33+VlPR/ZPQ9Wa p8xcBqyZZ5db6qhnoLdMFpwspa7B4XpPf00OdQ1O5y6dyZdS1yIPalNWGHUt jhbVvi4cHGc9E9J7hpdNbePCb01q8f8= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}]}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 1.000000900702855}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 1.000000900702855}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ TagBox[ GridBox[{{ FormBox["\"Privmanhim\"", TraditionalForm]}, { FormBox["\"Privmanb\"", TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.78883184671426*^9, 3.788831932643181*^9}, 3.788833021050309*^9, 3.7888332456044188`*^9, 3.788833598234569*^9, 3.7888336568875093`*^9, 3.78883370783974*^9, 3.78883375083917*^9, 3.788833993356277*^9, 3.788834043194583*^9, {3.788834313436265*^9, 3.788834338439686*^9}, 3.788834372629369*^9, 3.789089158407539*^9, 3.789089212373355*^9, 3.789099563511181*^9, 3.7890996797200336`*^9, 3.789099858315859*^9, 3.7891001035559597`*^9, 3.7891149018473*^9, 3.7891160960253363`*^9, 3.789116216370658*^9, 3.7891166748668528`*^9, 3.78911740757891*^9, 3.789118201886004*^9, 3.789173849489119*^9, 3.789173953491899*^9, 3.789178069823133*^9, 3.789178177127906*^9, 3.789178208872946*^9, 3.7891783101587687`*^9, 3.7891784292107277`*^9, 3.7891785330075808`*^9, 3.789178574405697*^9, 3.789178686999876*^9, 3.789178814024268*^9, 3.789178974524547*^9, 3.7891790091537313`*^9, 3.7891791395405807`*^9, 3.789179205280212*^9, 3.789179378617792*^9, 3.789179497198347*^9, 3.7891799994294662`*^9, 3.789180206213832*^9, 3.78918028001403*^9, 3.7891803281139927`*^9, 3.7891807919040937`*^9, 3.789181951685383*^9, 3.789182175945382*^9, 3.789182308664217*^9, 3.789182344604802*^9, 3.7891833784883223`*^9, 3.7891834253396587`*^9, 3.789197178314155*^9, 3.78936836385745*^9, 3.789368417736127*^9, { 3.789368540958119*^9, 3.789368561673904*^9}, 3.7893788988750057`*^9, 3.789433829997978*^9, 3.789701751438387*^9},ExpressionUUID->"dfe3d204-10ef-445a-b1a3-\ ce0602d3c336"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"ab2", ",", "p1"}], "]"}]], "Input", CellChangeTimes->{{3.7891740545319557`*^9, 3.78917410795638*^9}},ExpressionUUID->"452d16d2-d7fa-431e-a9d2-\ d7562ff6ff81"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJw1yV1Ik3EUx/EHJVrJyEipxS6yJEJy6FpLV/r8trm5VdKwFCJfaGp5YRkZ 6S4qMzORXqimbi0Rm3rhdhGZYkK6MkpJ8bW50mqVztLKDNISy5LO/8Dh8Dnf EGNuYpYfx3HSf7t0/883/s/i0kzz9EDpTX1ZuIdZgGyLqzLH85UciPI8caiw 6As5CGbrqamCyM/kdQjfndZlnJ0ki5G0Jsuc8/wTeQPK8gS3qxwfyRvhEgqy RywT5FCMPUl+unDLR94Me0u1v691nLwFrmXyfcMLY+QwzPYGd8ykMG/F9WFF yLPeD2QJEvS+Cz1a5gi4rd9T7c3vyZFYoZPMrRczSyGZM/UXn3lH3oZBQ27b yQkvWYYo52ln+hHm7Tjo+HlNwTHLkXZR1Pfj8FvyDtxompIt97whR6Gh3hRk UzNHI+N3wqOcq6/JChjWTgZ6mkbJO/FQW9tR0D1C3oXL1vsn8mdekWNQw6cf OK5kjoXbJtoU3PmSzKPxqLe0zcQM1HrHFaIociFQ0V+n4r0e6koM1Uubzx4i FyoxX5fd/qBhmLoKJY4AXZXPTV0Ff1d3jUxG5tRI7WrtWdX4groa7RWREcXH yFwczt2Rr+xLZD0O1aIMw/5Y1jUQGvO9jwWsaxDmW10aYxuirsXiPXvLr/lB 6loE+KmumOPJXDySei6NZjoHqMcjefy8xbyHzOmg6iy5KwhnXQd3Ubm+Mpp1 PVL4zOm9mgH+L5mi8e4= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw9y3tI02EUxvGxMisknYxcFKHlrbCa25y2S3vm3GYmJdJIKygWLYLEFK3R BTXyViHZGK1sBAqS5ArBwJj9YRGVMIfgbFjRLyxCsmVJKQWjoj29cDh8zpc3 zV5dflQsEokUf+bv/vfmDIO7ZsaFH18MsQP2Xg7fupYwF/Ny6G5O3in57yR0 DliDuXG0FHZPYtCxwP8ynEnzT8qm6XU4oBqOTo7RqXiT4aua8tMboLWNdIv7 6HSILp6YkFynM+G+VNe/ooXOhq5VfWO6nt6Mk2PbrG4HnQPVqT1vkyvordiX GdpSVkLLMeIr0Bj1dC6qxBWuKTmtQM7ZK7WSDFqJ05Hs56/W0Co0jHZq5Yl0 HpylvvRlcbQatszvTbZfkZjz4T2/6vPqb3QBBt5FO0wz9HY8bOuShgRag+6V bT1Pw7QW4kAkmDhO62AZXuK694LWY362vND7mN6BccVE60s/bYAma2h/5QMa KJsVFtffj7kRMFkXhfQ+diMCIWngWA+7Ea+fCb73XvZCSGvzej0e9kIsTUqN b3Kxm6Bcay7t6mA34dBtj+xDO3sR8j/ZlQeb2YvgEtqbo43sZlQvpKSMnmM3 4+OTnwmPnOwWVDrne0N17BYo6gf1yTXsVkgasow1VexWWPrD6q/H2Yvhbrkw dNXBXgyLbqh29xH2nYiX3N246XDE8BupUu1m "]]}}}, {}, {}, {{}, {}}, {{}, {}}}}, { InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}]}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0., 0}, PlotRange -> {{0., 50.}, {0, 0.9999999999999998}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 50.}, {0, 0.9999999999999998}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ FormBox["\"Privmanb\"", TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", CellChangeTimes->{{3.789174058699284*^9, 3.789174076877214*^9}, 3.789174109068515*^9},ExpressionUUID->"e329a304-58cf-40c5-ab9c-\ 1e79f09b29f2"] }, Open ]], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw10WtIE2AUxvFltCSopRTtQzfTdInXrVVa2565TZ0LBJVclw8lXSExg2Jk hVcUQsxmZoggyrLLpuYl59RliTO1UbnSZBE21JlpGzFX2GwZnl44HH7n//EN yMhKOePDYDC4y/NvrzynKFei9Hq9DhEdIN98rOKi/r99wewpERafmydvhK02 c+6yZJa8CfwLheF9yXYyG1HKzLu/eifJW5Gt1Z9vVNvIO6ENWQyQdk6Qd2Hc v9SzJPtMDoL7enD5ZImVHIyR3X9ciSHjZA4i8/c8Oe43Rg6FPcuxWh37gRyG 7Vc1Md+rLOQIFB21nj0VNEKOQhnL23V69C05Gn6quhxh6hsyFxL1yRuHeWYy D0yWtqhKNkzeiySMNrkLBsl87PBnzkV+HSDvg4Px5fb7SybyfgROiWrYW/rJ B5Butpzo+NhHjoFxusPwqeUlORav8gW//etfkA8iUN89zWvoJR9C+M/WtM5r z8kC3FItGgcGeshChCrNlXXcbrIIV4JNqxr1BjIwtFAsvpfeueJcgO9cWKtY r6cuxpAiNWl+7Bl1MUycqeSR9nbqcZhNmelXadqox6GLs0FXqGmlLkG5Ytpj aGuhLkG1cdvE0run1KXIsTRlyz3N1KXwuFLszVwyQ7b8P5XR+plG6jL4aFm6 dXk66vEQVWT4OsK01OPRKoiwsr89pp6Amz9c1UcMj6gnwHZneE3Z/YfUE+F8 XTNoLG6gnojJWn6eu+ABdTnSzPVWZalG9BfJs/Gp "]]}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[1, 0, 0]], PointBox[CompressedData[" 1:eJxVyV1Ik3EYxuFXwTENM9oMRwZpJhFvuVa61HS3+66g6MOMkppWiKYsch2E js0ZxCC1AgkRSZppQezAGQRRYLpqSkXQXOUKtHRtuq0sG7IDK/w/Bz3wcHPx y6o2Hj6XyHGc7O//25X7rvh/OXhTRb5L0SizEDdGDacTW8lrkP6zcXYgHGEW 40OmVJ9bQc7A04v8xBNPmDkT7lVis19L3gj5px5R36t55mwcOpvse1ZJzsHi ep8mtjDHnIvctCRDXgd5C5b23fxll5K3ouaIPXhwIsTMI96wtnreQt6Oo4/n 3DM8WYquUpfovT/IvAOVI7aaCx1kGULOdkutmrwTvdZioT3+jXkXGpOHW3qG yPlYlybrbjaSC+BXFQUSeLIcKY473tRQgHk3uKR3U1fukwvRLDeGDtSRi1De uXjvGE8uhknXp7RHZ5n3QBxRhL0ucgl6BSOObZfJpdAteAI2BVmBl+O6No+A DEgGO9t/v55ZsRXwnCkPLN9i5srQNBw1+auol2HwxcPJVp66Eo7kSWMk9pV1 JXon+7PSR5k5FY5fq6j/cZ26CgXi/TrzKepqJH0WSVw8dTUeufMetMW/sK6B ILJps3Cc2apBfeHY0oZu6lrktNwNjp2nroXFlBFLKaGuw9KAoerjauo6vFku vp0/Nc26Hk3m7BOSIWarHs+dCXW2q9T3ostZ+7bh5LTiD/0e7ew= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}, {{}, {{{}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[0.011000000000000001`], AbsoluteThickness[1.6], RGBColor[0, 1, 0]], PointBox[CompressedData[" 1:eJxVyVtI03EYxvG/gjIzM9qMSQZpNSL+5VrayqV73HRbBRWVCWU1rTAtmWVe CJprBjHwUIGVmFZqJ0gvmnUTBUtHTikImqs2L7R0be5Qmg3bRQf8vRe98PLw 4ZtaYth3MprjONnf/7cL9035/3JwJAid1aEQswBXB/XHohvIS5E0WzX1IBBk FuFjilQnKSSL8fIcP/rCHmBOgS1eVOfWkFdBPtYh7HnjZ07D3hNxzldF5DWY W+HMD89MM0sgSYzRp7eQ12F+57UfZil5PUr3m717Rn3MPCIVy0r89eSNOPB8 2jbJk6Voy7EIP7i9zJtQNGAqrWwhy+Dra64vyyNvxh2jQmCOfGXOQFWc9WJH PzkTyxNl7bUG8ha41VmeKJ4sR3x3lyPB52HeCi7m/filR+RtqJUbfLvLyVko aJ17eJAnK1Ct7VGZQ1PM2yEKKgMOCzkbd2MHujfUkHOgm7F7TEqyEkMj2iZ7 LBkQP2lt/vl2csFGYOh4gef3DWYuFzXW0Hl3MfVc9L5+6mrgqavQFucyBMNf WFeh0XU/NWmQmVMjo7HwzPcr1NUIC3dp645Sz8OtMWGyhaeeh8W29MdNkc+s 52PWv3qtYITZmA+rfHh+ZTt1Da5fuOcdPk1dg95KcXhRNnUtjnTpiz8toa7F s7Didub4BOs6/Dqbdii5n9moQ19nVLnpMvUdOHWz7F3F4QnlH/6R72c= "]]}, {}}}, {}, {}, {{}, {}}, {{}, {}}}}, { InsetBox[ FormBox[ TemplateBox[{ StyleBox["\"Analytical\"", 13, StripOnInput -> False]}, "PointLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.396], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], PointBox[ NCache[{ Scaled[{ Rational[1, 2], Rational[1, 2]}]}, { Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, ImageSize -> {10, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"PointLegend", "[", RowBox[{ RowBox[{"{", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], "}"}], ",", RowBox[{"{", #, "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", "False", "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], Scaled[{0, 0.5}], ImageScaled[{-1.1, -2.4}], FormatType -> StandardForm, BaseStyle -> {FontSize -> Larger}]}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, AxesOrigin -> {0, 0}, PlotRange -> {{0, 50.}, {0, 0.9999999987795576}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 50.}, {0, 0.9999999987795576}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}],FormBox[ TagBox[ GridBox[{{ FormBox["\"Privmanhim\"", TraditionalForm]}, { FormBox["\"Privmanb\"", TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Input", CellChangeTimes->{ 3.78911614385854*^9},ExpressionUUID->"e3c23401-98b5-45c4-9e15-2226310d66b7"] }, Open ]] }, Open ]], Cell["\<\ Thus we derived a new method of converting piecewise linear potential with \ two-boundary problems as an Oster-Nishijima model. Using the method, we \ derived an exaact solution of P(x,t). The survival probability is exact when \ the sink is placed at the minima. The disadvantage ofthe solution is the \ artifact of Oster-Nishijima solution.\ \>", "Section", CellChangeTimes->{{3.796367945183799*^9, 3.796368079651935*^9}},ExpressionUUID->"1ec5af86-aab3-44f2-b91e-\ 7cb858e86cba"], Cell[CellGroupData[{ Cell["Miscellaneous trials.", "Section", CellChangeTimes->{{3.787810896734236*^9, 3.787810900570404*^9}, { 3.787890101125052*^9, 3.787890104129718*^9}},ExpressionUUID->"d985f334-4808-4815-ba2f-\ 40988208158c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", "xc"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xc", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"S", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1000000", "/", "\[Pi]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000000"}], "*", " ", RowBox[{ RowBox[{"(", "z", ")"}], "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dThick", "=", "20"}], ";"}], "\n", RowBox[{ RowBox[{"dTime", "=", "50"}], ";"}], "\n", RowBox[{ RowBox[{"eqSimplee", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"RealSign", "[", "x", "]"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "+", RowBox[{"2", "d", " ", "g", " ", RowBox[{"S", "[", "x", "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{"k0", "*", RowBox[{"S", "[", RowBox[{"x", "-", "xc"}], "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"eqInie", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "0"}], "]"}], "==", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"1000", "/", "\[Pi]"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqBlefte", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{ RowBox[{"-", "dThick"}], ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eqBleftg", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"dThick", ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mol", "[", RowBox[{"n_", ",", "o_"}], "]"}], ":=", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}]}], "}"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eqSimplee", ",", "eqInie", ",", "eqBlefte", ",", "eqBleftg"}], "}"}], ",", RowBox[{"{", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}], ",", RowBox[{"MaxStepSize", "\[Rule]", "0.001"}]}], "]"}]}], "\n", RowBox[{"Flatten", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "1", ",", "50"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ab1", "=", RowBox[{"ListPlot", "[", "%", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ab1", "=", RowBox[{"ListPlot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "1"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07"}], ",", "1.03"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Dashed", "}"}]}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", "ab1", "]"}]}], "Input", CellChangeTimes->{{3.7887621585439453`*^9, 3.788762160859269*^9}, { 3.788762250581456*^9, 3.788762251049632*^9}, {3.788762470151547*^9, 3.7887625110503817`*^9}, {3.7887626086358843`*^9, 3.7887626239067*^9}, 3.788762722419504*^9, {3.7887628018423634`*^9, 3.788762815275702*^9}, 3.788762881332041*^9},ExpressionUUID->"1f7f5e4f-8b83-406c-8ec2-\ 825ea911829e"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.7887627676117907`*^9, 3.788767918360449*^9},ExpressionUUID->"65838705-2e04-41cd-ac63-\ b034a10c665f"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,21,1,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767918627964*^9},ExpressionUUID->"74b722e1-e991-4956-b8dd-\ 57dc444a547e"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,21,2,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767918651301*^9},ExpressionUUID->"ca3b38e8-3843-4747-949b-\ c1b4748e3bc9"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,21,3,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767918674662*^9},ExpressionUUID->"e0f4308d-e9ba-41d3-9308-\ 9418e7e0f076"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \ \\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,21,4,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767918699832*^9},ExpressionUUID->"dba62798-bcd3-45f4-bfd8-\ 2f11e56af1bc"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"1\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,21,5, 24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679187240067`*^9},ExpressionUUID->"f51e4600-3377-4e6f-b862-\ 6b9c42dbbefa"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"2\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,21,6, 24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679187451143`*^9},ExpressionUUID->"865094e3-389c-4fcd-b425-\ 6755b94b7269"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"3\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,21,7, 24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679187681932`*^9},ExpressionUUID->"7d48099c-1731-4bbb-8ece-\ ce32cd5e14eb"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"inumr\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,21,8,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767918789815*^9},ExpressionUUID->"f38e88cf-f146-45a1-ad21-\ cc5f71c9c0e4"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "1"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "2"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "3"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "4"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "5"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "6"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "7"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "8"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "9"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "10"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "11"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "12"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "13"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "14"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "15"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "16"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "17"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "18"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "19"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "20"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "21"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "22"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "23"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "24"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "25"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "26"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "27"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "28"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "29"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "30"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "31"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "32"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "33"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "34"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "35"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "36"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "37"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "38"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "39"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "40"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "41"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "42"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "43"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "44"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "45"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "46"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "47"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "48"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "49"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}], ",", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "50"}], "]"}], "/.", "\[VeryThinSpace]", "res"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"AccuracyGoal", "\[Rule]", "10"}], ",", RowBox[{"PrecisionGoal", "\[Rule]", "6"}], ",", RowBox[{"Method", "\[Rule]", "\<\"LocalAdaptive\"\>"}]}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.7887627676117907`*^9, 3.788767919709714*^9},ExpressionUUID->"716d172b-5236-467e-ada6-\ 21f97a90b0cf"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,22,9,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767919717135*^9},ExpressionUUID->"010aac96-89aa-4b65-ae04-\ e374865eb433"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,22,10,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767919739719*^9},ExpressionUUID->"14f031f4-5fe4-45b0-adce-\ 670013756b32"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,22,11,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679197612257`*^9},ExpressionUUID->"feb9e4af-8dce-4979-be64-\ e440fadd79a3"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \ \\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,22,12,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679197821627`*^9},ExpressionUUID->"2434790e-9a80-4744-83a0-\ b0e3fa629829"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"1\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,22, 13,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679198028097`*^9},ExpressionUUID->"37b8b9cc-2943-4e16-96b9-\ b3dd98c5a76e"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"2\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,22, 14,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767919825612*^9},ExpressionUUID->"64647902-0f62-4c22-abb2-\ f05f385ccde5"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"3\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,22, 15,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679198471613`*^9},ExpressionUUID->"3ce4c00c-1052-4663-8ae5-\ 39719d0fd77c"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"inumr\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,22,16,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.7887679198683157`*^9},ExpressionUUID->"ee2de697-e42f-4787-a35e-\ c30c271380d4"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.7887627676117907`*^9, 3.7887679205526752`*^9},ExpressionUUID->"af7817f0-8869-4c9d-8b37-\ da74b99f872e"], Cell[BoxData[ TemplateBox[{ "Show","gtype", "\"\\!\\(\\*RowBox[{\\\"Symbol\\\"}]\\) is not a type of graphics.\"",2,23, 17,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.7887621822254133`*^9, 3.7887622533567657`*^9, 3.78876262880398*^9, 3.788762765502182*^9, 3.788767920560885*^9},ExpressionUUID->"82573b26-1468-4c7b-92d4-\ 8a3f96b4c697"], Cell[BoxData[ RowBox[{"Show", "[", "ab1", "]"}]], "Output", CellChangeTimes->{3.7887627676117907`*^9, 3.788767920593996*^9},ExpressionUUID->"1d540d6d-aa4a-472b-80f3-\ 37497200e2f5"] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True,ExpressionUUID->"7d1d1226-803c-4314-b12e-bae530db975a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", RowBox[{"t", "^", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.788299847091443*^9, 3.788299872889229*^9}, { 3.788299919295144*^9, 3.788299921443894*^9}, {3.788299958464645*^9, 3.788299961411949*^9}},ExpressionUUID->"2115cbe0-0602-4591-85f2-\ 0c725fe12971"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "81"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "121"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "144"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "169"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "196"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "225"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "256"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "289"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "324"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "361"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "400"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "441"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "484"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "529"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "576"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "625"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "676"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "729"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "784"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "841"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "900"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "961"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "1024"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "1089"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "1156"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "1225"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "1296"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "1369"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "1444"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "1521"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "1600"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "1681"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "1764"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "1849"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "1936"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "2025"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "2116"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "2209"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "2304"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "2401"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "2500"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "2601"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "2704"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "2809"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "2916"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "3025"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "3136"}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "3249"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "3364"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "3481"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "3600"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "3721"}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "3844"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "3969"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "4096"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "4225"}], "}"}], ",", RowBox[{"{", RowBox[{"66", ",", "4356"}], "}"}], ",", RowBox[{"{", RowBox[{"67", ",", "4489"}], "}"}], ",", RowBox[{"{", RowBox[{"68", ",", "4624"}], "}"}], ",", RowBox[{"{", RowBox[{"69", ",", "4761"}], "}"}], ",", RowBox[{"{", RowBox[{"70", ",", "4900"}], "}"}], ",", RowBox[{"{", RowBox[{"71", ",", "5041"}], "}"}], ",", RowBox[{"{", RowBox[{"72", ",", "5184"}], "}"}], ",", RowBox[{"{", RowBox[{"73", ",", "5329"}], "}"}], ",", RowBox[{"{", RowBox[{"74", ",", "5476"}], "}"}], ",", RowBox[{"{", RowBox[{"75", ",", "5625"}], "}"}], ",", RowBox[{"{", RowBox[{"76", ",", "5776"}], "}"}], ",", RowBox[{"{", RowBox[{"77", ",", "5929"}], "}"}], ",", RowBox[{"{", RowBox[{"78", ",", "6084"}], "}"}], ",", RowBox[{"{", RowBox[{"79", ",", "6241"}], "}"}], ",", RowBox[{"{", RowBox[{"80", ",", "6400"}], "}"}], ",", RowBox[{"{", RowBox[{"81", ",", "6561"}], "}"}], ",", RowBox[{"{", RowBox[{"82", ",", "6724"}], "}"}], ",", RowBox[{"{", RowBox[{"83", ",", "6889"}], "}"}], ",", RowBox[{"{", RowBox[{"84", ",", "7056"}], "}"}], ",", RowBox[{"{", RowBox[{"85", ",", "7225"}], "}"}], ",", RowBox[{"{", RowBox[{"86", ",", "7396"}], "}"}], ",", RowBox[{"{", RowBox[{"87", ",", "7569"}], "}"}], ",", RowBox[{"{", RowBox[{"88", ",", "7744"}], "}"}], ",", RowBox[{"{", RowBox[{"89", ",", "7921"}], "}"}], ",", RowBox[{"{", RowBox[{"90", ",", "8100"}], "}"}], ",", RowBox[{"{", RowBox[{"91", ",", "8281"}], "}"}], ",", RowBox[{"{", RowBox[{"92", ",", "8464"}], "}"}], ",", RowBox[{"{", RowBox[{"93", ",", "8649"}], "}"}], ",", RowBox[{"{", RowBox[{"94", ",", "8836"}], "}"}], ",", RowBox[{"{", RowBox[{"95", ",", "9025"}], "}"}], ",", RowBox[{"{", RowBox[{"96", ",", "9216"}], "}"}], ",", RowBox[{"{", RowBox[{"97", ",", "9409"}], "}"}], ",", RowBox[{"{", RowBox[{"98", ",", "9604"}], "}"}], ",", RowBox[{"{", RowBox[{"99", ",", "9801"}], "}"}], ",", RowBox[{"{", RowBox[{"100", ",", "10000"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.7882998953932123`*^9, 3.788299922142336*^9}, 3.788299962611129*^9},ExpressionUUID->"47302154-b3f9-428a-a7d5-\ e2464918d597"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.788299947610731*^9, 3.7882999520659323`*^9}},ExpressionUUID->"ff114cd9-c5a4-49da-a55b-\ a610ec07e152"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxt1Llrk2EAx/GX0iFjEAcHhyhBVIpoPevVGKvGW+O9iIYGHARFRBBBHhUl ikjqSVW0rfE+630b2w5d/R+6uKmbm8rz6dBiIHz5vl9+75OEJBNK+4rlhiRJ yn+f//j/x4/WkUxyEWlM4cRR16fjWGzBcZjH8ZGhwDO4YeR9c5t5FnfgJH0n n4wlnBqZKfMm5+3h0/S9o173fpwRmT7Am513kM+MrB7is/AwztaP8Dn2R/nc yErg8/A4+twqJ/h8r/ckXxA5eIovjAwVviiycIYvtj/LWyNT53gOq+7DGztc XxKZPq/z7AU97/1d1Hn7JX1pZPWyzgeu6G3YqfO2q64vs7+m86Hr+nLn39B5 7aa+IrLSpfN8tz78PezReR9PVtrf0nmxpq+KzNzW+S+erI4cvKPznrv6Gtfv IS/d19dGFh7ovPmhvs75j3Q+5rG+PjL1ROcNT/Xh392zyBw/xgNv7I2s89M8 2RiZfm7PO3ng2Rf2vJcnRbuXyL/xwNtf2fPfPNkUWX1tz6e8secDvM53v7Uf /p95Z8+7eeBt7+35d55scf4He97y0Z4P8Trv+GS/1e4z8p888NoX++ihqW6/ LbLCc9HDEA96/qu93sWT7dhnHz3s4kHv43U922/nf7nSn/sDQg7FqQ== "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0, 100.}, {0, 10000.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.788299952951499*^9, 3.7882999668243303`*^9}},ExpressionUUID->"0de343f8-c92b-403f-a1e1-\ 191ab8d2ba6a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{"RealSign", "[", "x", "]"}], ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.787906817222101*^9, 3.7879068229503603`*^9}, { 3.787907142905294*^9, 3.78790714518256*^9}},ExpressionUUID->"2f92ce61-7bd8-4b41-90ac-\ 1d28a010cf24"], Cell[BoxData[ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0", RowBox[{"x", "\[NotEqual]", "0"}]}, {"Indeterminate", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.787907146482317*^9},ExpressionUUID->"45915def-b767-4f84-9ee5-\ 6a25c4ced0d5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"RealSign", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"UnitStep", "[", "x", "]"}]}], "-", "1"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"RealSign", "[", "x", "]"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"UnitStep", "[", "x", "]"}]}], "-", "1"}], ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"2", RowBox[{"DiracDelta", "[", "x", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.7879068575095463`*^9, 3.787906888421822*^9}, { 3.787906926026821*^9, 3.787906938636689*^9}, {3.787906988496181*^9, 3.787907040838135*^9}},ExpressionUUID->"32188fa0-5730-43ba-bd75-\ a12299d46a91"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787906890537105*^9, 3.78790693940699*^9, 3.787906991266473*^9, { 3.787907021369836*^9, 3.78790704180517*^9}},ExpressionUUID->"14f1a8f3-bab0-4162-990f-\ 9f563ff540c8"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787906890537105*^9, 3.78790693940699*^9, 3.787906991266473*^9, { 3.787907021369836*^9, 3.787907041995273*^9}},ExpressionUUID->"2f752357-d5b4-4279-bf22-\ 4ca0ebce7365"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787906890537105*^9, 3.78790693940699*^9, 3.787906991266473*^9, { 3.787907021369836*^9, 3.7879070420554667`*^9}},ExpressionUUID->"2dbe3da7-7a25-4f9a-9986-\ a0d8011f5660"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.787906890537105*^9, 3.78790693940699*^9, 3.787906991266473*^9, { 3.787907021369836*^9, 3.787907042066925*^9}},ExpressionUUID->"9626d339-65fc-47c3-bbab-\ 474f9f71be21"], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.787906890537105*^9, 3.78790693940699*^9, 3.787906991266473*^9, { 3.787907021369836*^9, 3.7879070421336107`*^9}},ExpressionUUID->"39959d9c-8009-45e7-bbd3-\ 6ea517ded856"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"2", RowBox[{"UnitStep", "[", "x", "]"}]}], "-", "1"}], ",", "x"}], "]"}]], "Input",ExpressionUUID->"75c2e26f-1022-4fcf-bfb9-58e95dcdd9c4"], Cell[BoxData[ RowBox[{"2", " ", RowBox[{"(", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"Indeterminate", RowBox[{"x", "\[Equal]", "0"}]}, {"0", TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}, Selectable->True]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False], ")"}]}]], "Output", CellChangeTimes->{ 3.787907056525372*^9},ExpressionUUID->"05f3a753-a097-4acf-a0cd-\ f3c8a5493f1e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DiracDelta", "[", "x", "]"}]], "Input", CellChangeTimes->{{3.7879070775590076`*^9, 3.787907081461358*^9}},ExpressionUUID->"09e48ea9-f43a-4170-8e83-\ 8ce7eecbb66f"], Cell[BoxData[ RowBox[{"DiracDelta", "[", "x", "]"}]], "Output", CellChangeTimes->{ 3.787907082104294*^9},ExpressionUUID->"41984857-a2d2-41dc-9c14-\ 93c9289fad34"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ RowBox[{"UnitStep", "'"}], "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7879069530934887`*^9, 3.7879069751738358`*^9}},ExpressionUUID->"134fc465-292c-4f35-bcf3-\ 524ffde2cce5"], Cell[BoxData["0"], "Output", CellChangeTimes->{{3.7879069630408993`*^9, 3.787906976069681*^9}},ExpressionUUID->"46389fac-e4af-444b-9878-\ 6d6156abdeff"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[CapitalGamma]", "=", " ", RowBox[{"g", " ", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", "=", RowBox[{"d", "/", RowBox[{"(", RowBox[{"2", "\[CapitalGamma]"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"uplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}], "/.", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"uminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", RowBox[{"(", RowBox[{"2", "l"}], ")"}]}], RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", FractionBox[ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "-", RowBox[{ RowBox[{"\[CapitalGamma]", "^", "2"}], " ", RowBox[{"t", "^", "2"}]}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "]"}]}], "+", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "l"]}], "]"}], RowBox[{"4", "l"}]], "*", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"x0", " ", RowBox[{"RealSign", "[", "x0", "]"}]}], "-", RowBox[{"\[CapitalGamma]", " ", "t"}]}], RowBox[{"Sqrt", "[", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], "t"}]}], ")"}]}], "]"}]], "]"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"-", "x0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "x", "]"}], ";"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"uplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"uminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "\[Rule]", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], ")"}], "\[Rule]", RowBox[{"-", "x"}]}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "0"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"Pminus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{"d", " ", "g", " ", RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", RowBox[{"Pplus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", RowBox[{"P", "[", RowBox[{"a", ",", "t"}], "]"}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "*)"}]}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}], "-", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Reals"}], "]"}], "&&", RowBox[{"g", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"d", ",", "Reals"}], "]"}], "&&", RowBox[{"d", ">", "0"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}], "&&", RowBox[{"t", ">", "0"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"g", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{"-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", "50"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "50"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "500"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "500"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p2"}], "]"}]}], "Input", CellChangeTimes->{{3.784973382531039*^9, 3.784973407571373*^9}, 3.784973453208873*^9, {3.784973490409239*^9, 3.7849734921292677`*^9}, { 3.784973545710374*^9, 3.784973602356927*^9}, {3.7849736983293257`*^9, 3.784973746897428*^9}, 3.784973819854829*^9, {3.785026408764818*^9, 3.7850264594395323`*^9}, {3.785026496758106*^9, 3.785026518152152*^9}, { 3.785027417601671*^9, 3.785027460436181*^9}, 3.78502756819534*^9, { 3.785027831554377*^9, 3.785027837743804*^9}, {3.785027925860183*^9, 3.7850279477960033`*^9}, {3.785028003590292*^9, 3.785028143302545*^9}, { 3.7850285026004343`*^9, 3.785028602905609*^9}, 3.785028648917377*^9, { 3.7850287222627707`*^9, 3.785028722468671*^9}, {3.7850287583685007`*^9, 3.7850287676496677`*^9}, {3.785028868729085*^9, 3.78502887158766*^9}, 3.785028959775721*^9, 3.785029517545167*^9, {3.7850310350106916`*^9, 3.78503109050181*^9}, 3.785031150483911*^9, {3.7850312476503*^9, 3.785031426328899*^9}, {3.785031457870286*^9, 3.785031518283785*^9}, { 3.785031550050127*^9, 3.7850315575623093`*^9}, {3.78505619124794*^9, 3.78505619444779*^9}, {3.785056228142838*^9, 3.785056239457501*^9}, { 3.7850563006278543`*^9, 3.7850563367276154`*^9}, {3.785057176361087*^9, 3.785057223154725*^9}, {3.7851119763789*^9, 3.7851119794376698`*^9}, 3.785112107305561*^9, {3.785112160930594*^9, 3.785112220391262*^9}, { 3.78511226102374*^9, 3.785112324706792*^9}, {3.785112411676384*^9, 3.7851124568522*^9}, {3.785112499958342*^9, 3.785112521820695*^9}, { 3.78511257406159*^9, 3.785112594376501*^9}, {3.785112759091453*^9, 3.785112771725696*^9}, {3.785112891478847*^9, 3.785112967776322*^9}, 3.785128631195838*^9, {3.785128673419428*^9, 3.785128718130724*^9}, { 3.785129211034388*^9, 3.785129242628829*^9}, {3.785132134922913*^9, 3.785132150729128*^9}, {3.785634531592461*^9, 3.7856346180432043`*^9}, { 3.785634707538208*^9, 3.785634908990693*^9}, {3.785635012424786*^9, 3.7856350522421923`*^9}, {3.7856351752812243`*^9, 3.7856352600180283`*^9}, {3.785635296039534*^9, 3.785635296247053*^9}, { 3.7856356459978247`*^9, 3.785635653886629*^9}, {3.785635786372293*^9, 3.7856357979671917`*^9}, 3.785635845432891*^9, {3.785635907515874*^9, 3.785636003045816*^9}, {3.78563603374844*^9, 3.785636064126713*^9}, { 3.785636141992099*^9, 3.785636180224424*^9}, {3.785636218236931*^9, 3.785636354503474*^9}, {3.7856363846158733`*^9, 3.785636392151882*^9}, { 3.7856365270924*^9, 3.785636568737977*^9}, {3.785637277035548*^9, 3.785637292128517*^9}, 3.785638329094943*^9, {3.785638360611292*^9, 3.78563841051889*^9}, {3.785638554999076*^9, 3.785638565138321*^9}, { 3.785639840750195*^9, 3.785639847278534*^9}, {3.78563990949445*^9, 3.785639917174841*^9}, {3.785639947900155*^9, 3.785640094861844*^9}, { 3.7856401703807583`*^9, 3.785640239451179*^9}, 3.785640334483719*^9, 3.785640592146513*^9, {3.785640912477887*^9, 3.78564092468081*^9}, { 3.785640988973144*^9, 3.785641034828171*^9}, {3.785641242980406*^9, 3.785641346418235*^9}, {3.785641385143952*^9, 3.7856414419911957`*^9}, { 3.7856461567202473`*^9, 3.7856461865689373`*^9}, 3.785648607202437*^9, { 3.785722371652977*^9, 3.785722388596908*^9}, {3.78572261442492*^9, 3.7857227942602243`*^9}, 3.78572294139494*^9, {3.7857230357556057`*^9, 3.785723038650399*^9}, 3.785723120406526*^9, {3.785723183716804*^9, 3.785723246333453*^9}, {3.785723492146781*^9, 3.785723505188427*^9}, { 3.78572358842052*^9, 3.785723598088272*^9}, 3.7857236373225803`*^9, { 3.785723671693953*^9, 3.785723682377574*^9}, {3.785723755628106*^9, 3.7857238037227087`*^9}, {3.785723835116816*^9, 3.7857238780588713`*^9}, { 3.785724328104003*^9, 3.785724343460092*^9}, {3.785724797953197*^9, 3.785724837582121*^9}, {3.785724872480411*^9, 3.785724877881205*^9}, 3.78572557068183*^9, {3.785725606500167*^9, 3.785725788318345*^9}, { 3.785725886412608*^9, 3.785725888719977*^9}, {3.7857292887390957`*^9, 3.785729293323493*^9}, {3.785729429097052*^9, 3.7857295172355022`*^9}, { 3.785729551530023*^9, 3.7857295641539288`*^9}, {3.785729626828261*^9, 3.785729631712079*^9}, {3.7857296843418627`*^9, 3.785729685307703*^9}, { 3.7857297176072807`*^9, 3.785729721678791*^9}, {3.7857297632809*^9, 3.785729792853701*^9}, {3.785729885714163*^9, 3.785729932807447*^9}, { 3.7857301489088917`*^9, 3.785730155181096*^9}, {3.785731296594646*^9, 3.785731298526113*^9}, {3.785731338466015*^9, 3.785731347459262*^9}, { 3.785731396185073*^9, 3.785731542835853*^9}, {3.7857316730999537`*^9, 3.785731692340695*^9}, {3.785732094338744*^9, 3.7857321294585447`*^9}, 3.785736896128092*^9, {3.785749450665338*^9, 3.785749473919091*^9}, { 3.785749512620008*^9, 3.78574954529128*^9}, 3.785749575556999*^9, { 3.7857496538559437`*^9, 3.785749677843833*^9}, {3.785750619215909*^9, 3.785750633500407*^9}, 3.7857507169524193`*^9, {3.785751022302621*^9, 3.785751026304657*^9}, {3.78575161190547*^9, 3.785751613682143*^9}, { 3.785804027361512*^9, 3.785804031171649*^9}, {3.785806379445835*^9, 3.7858063825344543`*^9}, {3.786097077585112*^9, 3.786097102615396*^9}, 3.7862345975748453`*^9, 3.786238119831876*^9, {3.78623816423006*^9, 3.786238187712056*^9}, {3.786238735106958*^9, 3.786238835846356*^9}, { 3.786239343645136*^9, 3.786239375188414*^9}, {3.786239488960842*^9, 3.7862394901949873`*^9}, {3.786239593408165*^9, 3.786239621275249*^9}, { 3.786239706839487*^9, 3.786239715528392*^9}, {3.786239763750646*^9, 3.7862397667570763`*^9}, {3.786239855216997*^9, 3.786239871750087*^9}, 3.78624016828012*^9, {3.786240323696919*^9, 3.78624035789079*^9}, { 3.786241337147925*^9, 3.786241394524354*^9}, {3.786241430209866*^9, 3.786241432718336*^9}, {3.786241520876589*^9, 3.786241526691947*^9}, { 3.7862416994151897`*^9, 3.786241740330049*^9}, 3.786241778620837*^9, { 3.786241959505136*^9, 3.78624196611828*^9}, {3.7862420057842607`*^9, 3.7862420274952374`*^9}, {3.786242148487522*^9, 3.786242176190484*^9}, { 3.78624221226576*^9, 3.786242241882431*^9}, {3.786242309638043*^9, 3.786242344297035*^9}, {3.786242421727386*^9, 3.786242430905657*^9}, { 3.786242539794845*^9, 3.786242545049514*^9}, {3.7862426403618813`*^9, 3.786242648030233*^9}, 3.7862426947735453`*^9, {3.786242778214889*^9, 3.786242846521072*^9}, {3.786242888081623*^9, 3.786242938299449*^9}, { 3.786243024643671*^9, 3.7862430836714373`*^9}, {3.786243332094623*^9, 3.786243489962751*^9}, {3.786243639537039*^9, 3.7862436676753063`*^9}, { 3.78624373042838*^9, 3.786243749238144*^9}, {3.78624378682434*^9, 3.7862438166338863`*^9}, {3.78624388317428*^9, 3.7862438860439367`*^9}, { 3.7862441225426483`*^9, 3.786244174352195*^9}, {3.786244221067224*^9, 3.786244224069893*^9}, {3.786244274814118*^9, 3.786244363129301*^9}, { 3.786244418855311*^9, 3.786244432124887*^9}, {3.786244606662636*^9, 3.786244654782085*^9}, {3.786244685358374*^9, 3.786244794485537*^9}, { 3.786244838309141*^9, 3.786244887031479*^9}, {3.786245418034975*^9, 3.786245455283634*^9}, {3.786245815855734*^9, 3.7862458299653053`*^9}, { 3.7864329446832657`*^9, 3.786432980091126*^9}, {3.786433020235675*^9, 3.786433070357012*^9}, {3.78643310071775*^9, 3.786433144687785*^9}, { 3.78643324179961*^9, 3.7864333591879253`*^9}, {3.78643343427116*^9, 3.7864334377230873`*^9}, 3.78643348312329*^9, {3.786433761188197*^9, 3.786433777975214*^9}, {3.786434863532064*^9, 3.78643490336158*^9}, 3.7864370320898447`*^9, {3.7864374024184933`*^9, 3.78643741671774*^9}, { 3.786437494116846*^9, 3.786437495954767*^9}, 3.786437531888036*^9, { 3.786437655100815*^9, 3.786437664079895*^9}, 3.786437774878483*^9, { 3.786438017735795*^9, 3.78643807926936*^9}, {3.78643836131601*^9, 3.78643838927759*^9}, {3.786438471193595*^9, 3.786438531406057*^9}, { 3.7864404261343613`*^9, 3.786440452614992*^9}, {3.7864404932141542`*^9, 3.786440701344627*^9}, {3.786584030567078*^9, 3.786584082073954*^9}, { 3.786584146130535*^9, 3.7865841897167273`*^9}, {3.786584425089847*^9, 3.786584570563345*^9}, {3.786584655670302*^9, 3.7865846589017267`*^9}, { 3.786584702528523*^9, 3.786584770361373*^9}, {3.7865848014924297`*^9, 3.7865848109126587`*^9}, {3.786584894139979*^9, 3.786584925876279*^9}, { 3.7878263905987473`*^9, 3.78782641795123*^9}},ExpressionUUID->"7b9307e9-cdcf-4e74-9de5-\ b6c1feadf81e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{"\"\<\\\\lim_{\\\\epsilon\\\\to0}\>\"", ",", "TeXForm"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{ "\"\<\\\\frac{D}{2}\\\\frac{\\\\partial P(x,t)}{\\\\partial \ x}+gDP(x,t)\\\\text{sgn}(x)\>\"", ",", "TeXForm"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{"\"\\"", ",", "TeXForm"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.7878214026108217`*^9, 3.787821417791155*^9}, { 3.787821523377245*^9, 3.787821643500983*^9}, {3.7878216842849493`*^9, 3.787821927457945*^9}, {3.787822132941688*^9, 3.787822157271344*^9}},ExpressionUUID->"d8740066-6826-44f7-acbc-\ 3a56b9e04b98"], Cell[BoxData[ FormBox[ UnderscriptBox["lim", RowBox[{"\[Epsilon]", "\[Rule]", "0"}]], TraditionalForm]], "Output", CellChangeTimes->{{3.787822136732154*^9, 3.787822157888908*^9}},ExpressionUUID->"ac482328-92b2-4abe-b030-\ 666f4d143a8d"] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{"sgn", "(", "x", ")"}], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "//", "StandardForm"}], TraditionalForm]], "Input", CellChangeTimes->{{3.7878221686924562`*^9, 3.787822172491663*^9}},ExpressionUUID->"94f33cc8-22af-48df-9072-\ b5fc87372e10"], Cell[CellGroupData[{ Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.787821948966948*^9, 3.78782194908197*^9}},ExpressionUUID->"101e1b95-0b5f-4c3c-a7ea-\ 856a9251451c"], Cell[BoxData[ FormBox[ RowBox[{"D", " ", "g", " ", RowBox[{"P", "(", RowBox[{"0", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.787821532909153*^9, 3.7878215699702663`*^9, {3.787821605433855*^9, 3.787821630708009*^9}, 3.7878216754102287`*^9, 3.787821711690386*^9, { 3.7878217757601957`*^9, 3.787821781654562*^9}, {3.7878218127637787`*^9, 3.787821863953814*^9}, {3.78782191207841*^9, 3.7878219288800488`*^9}},ExpressionUUID->"cb83920c-7814-48c4-b14c-\ 0a45e7c6ff0e"], Cell[BoxData[ TemplateBox[{ "ToExpression","esntx", "\"Could not parse \ \\!\\(\\*RowBox[{\\\"\\\\\\\"\\\\\\\\\\\\\\\\left[hi\\\\\\\\\\\\\\\\right]_{0-\ \\\\\\\\\\\\\\\\epsilon}^{0+\\\\\\\\\\\\\\\\epsilon}\\\\\\\"\\\"}]\\) as \ input.\"",2,39,34,24548471130169676565,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.787821912327129*^9, 3.7878219289468184`*^9}},ExpressionUUID->"5066a581-657e-4e3b-a8bf-\ f97f116ae3f2"], Cell[BoxData[ FormBox["$Failed", TraditionalForm]], "Output", CellChangeTimes->{ 3.787821532909153*^9, 3.7878215699702663`*^9, {3.787821605433855*^9, 3.787821630708009*^9}, 3.7878216754102287`*^9, 3.787821711690386*^9, { 3.7878217757601957`*^9, 3.787821781654562*^9}, {3.7878218127637787`*^9, 3.787821863953814*^9}, {3.78782191207841*^9, 3.787821928952931*^9}},ExpressionUUID->"4144ef0d-ef3d-4116-a0bc-\ 56b9f418791f"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pp", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], RowBox[{"(", "x", ")"}]}], "+", RowBox[{"g", RowBox[{"(", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\0\>\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pp", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pp", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Pp", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pm", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}]}], ")"}]}], "+", RowBox[{"g", RowBox[{"(", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pm", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "-", RowBox[{"g", " ", "d", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pm", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"Pm", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pn", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"0", "g", RowBox[{"(", RowBox[{"a", "+", " ", RowBox[{"(", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}], ")"}]}], ")"}]}], "-", RowBox[{"0", RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pn", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"0", "g", " ", "d", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pp", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "x"}], "]"}]}], "-", RowBox[{ SubscriptBox["\[PartialD]", "t"], RowBox[{"Pn", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", "x", "]"}]}], "-", RowBox[{"(", RowBox[{"x0", "*", RowBox[{"RealSign", "[", "x0", "]"}]}], ")"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "Print", "[", "\"\0 and \ x<0\>\"", "]"}], RowBox[{"(*", RowBox[{ "However", " ", "the", " ", "results", " ", "doesnt", " ", "depend", " ", "on", " ", "the", " ", "values", " ", "of", " ", "x0", " ", "and", " ", "a"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], "&&", RowBox[{"x", ">", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "\[NotEqual]", "0"}], "&&", RowBox[{"x", "<", " ", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", "x", "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"x", "\[Rule]", "0"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"-", "x0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"P", "[", RowBox[{"x", ",", "0"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Integrate", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], "]"}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"\[Sigma]", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"d", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"a", ",", "Reals"}], "]"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{ RowBox[{"Re", "[", RowBox[{ RowBox[{"d", " ", "t"}], "+", RowBox[{"2", " ", SuperscriptBox["\[Sigma]", "2"]}]}], "]"}], ">", "0"}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.785632757982068*^9, 3.785632855284998*^9}, { 3.7856330792535267`*^9, 3.785633085434228*^9}, {3.7856331347908697`*^9, 3.7856331504826317`*^9}, {3.785633204452002*^9, 3.7856332953688793`*^9}, { 3.78563336495077*^9, 3.7856334902588453`*^9}, {3.7856335623034143`*^9, 3.785633690628846*^9}, {3.785633743174988*^9, 3.7856337444322147`*^9}, { 3.785633792708621*^9, 3.785633802287671*^9}, {3.785635311234034*^9, 3.785635446060808*^9}, {3.785636435039269*^9, 3.785636507646427*^9}, 3.785637247293833*^9, {3.785637446776642*^9, 3.7856374570599623`*^9}, { 3.78563859406981*^9, 3.785638669527133*^9}, {3.785639017658215*^9, 3.785639024578952*^9}, {3.7856391190509*^9, 3.785639152583487*^9}, { 3.785639183641733*^9, 3.7856391933650427`*^9}, {3.7856394547455463`*^9, 3.7856394922074137`*^9}, {3.785720584677569*^9, 3.7857205974616737`*^9}, { 3.785720627502673*^9, 3.7857206873476562`*^9}, {3.7857208048015413`*^9, 3.785720822585187*^9}, {3.7857209141420107`*^9, 3.785720940866417*^9}, 3.7857209974153557`*^9, {3.7857210378669024`*^9, 3.7857210476649733`*^9}, { 3.785721102715638*^9, 3.7857211060285273`*^9}, {3.785721144791533*^9, 3.785721317086602*^9}, {3.785721582221674*^9, 3.785721622188628*^9}, { 3.7857220013987494`*^9, 3.785722020507407*^9}, 3.7857319653826637`*^9, { 3.785732168564982*^9, 3.785732264547976*^9}, {3.785732307576878*^9, 3.78573231996493*^9}, {3.785732395334381*^9, 3.785732444657393*^9}, { 3.785732967349833*^9, 3.785732998262784*^9}, 3.785733038036749*^9, { 3.785733083289236*^9, 3.785733107430273*^9}, {3.7857348831669073`*^9, 3.785734904865225*^9}, {3.7857357114299183`*^9, 3.785735720901215*^9}, { 3.785803877416589*^9, 3.785803938149901*^9}, {3.786237734362504*^9, 3.786237789907283*^9}, {3.7862378225996304`*^9, 3.786237903694621*^9}, { 3.7862460258011417`*^9, 3.786246036314599*^9}, {3.786429751537825*^9, 3.786429767938108*^9}, {3.78642984366777*^9, 3.7864298708068933`*^9}, { 3.786430017112262*^9, 3.7864300592420053`*^9}, {3.786430164030051*^9, 3.786430219063273*^9}, {3.78658354858528*^9, 3.7865836502279167`*^9}, { 3.7865837583484488`*^9, 3.786583780984026*^9}, {3.7865838649101048`*^9, 3.7865838685470057`*^9}},ExpressionUUID->"893cafbf-e0df-41eb-a6df-\ 2a8fc7e2b0dd"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\<\nP_0(x,t)=\\\\frac{e^{\\\\left(-g (x\\\\sign{x}-x_0\\\\sign{x_0})-D \ g^2\\\\frac{t}{2}\\\\right)}e^{-\\\\frac{(x+x_0)^2}{4 \ D\\\\frac{t}{2}}}}{2\\\\sqrt{\\\\pi D\\\\frac{t}{2}}}\>\"", ",", "TeXForm"}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", "%", "]"}]}], "Input", CellChangeTimes->{{3.787810178072608*^9, 3.7878102040572147`*^9}},ExpressionUUID->"64bd6617-2537-4f02-934b-\ 35c726857bdf"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["P", "0"], "[", RowBox[{"x", ",", "t"}], "]"}], "\[Equal]", FractionBox[ SuperscriptBox["e", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "D", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", RowBox[{"g", "[", RowBox[{"xx", "-", SubsuperscriptBox["x", "0", "2"]}], "]"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", SubscriptBox["x", "0"]}], ")"}], "2"], RowBox[{"2", " ", "D", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"D", " ", "t"}]]}]]}]], "Output", CellChangeTimes->{{3.787810190798851*^9, 3.787810204735113*^9}},ExpressionUUID->"283030be-459a-4cee-ac51-\ 5249df63b263"] }, Open ]], Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.7878102091881733`*^9, 3.7878102093081083`*^9}},ExpressionUUID->"d1efe5e2-2050-4c63-875b-\ 050389fcac45"], Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.787807858743342*^9, 3.7878078642409277`*^9}},ExpressionUUID->"774a46fa-77c9-4af6-bc91-\ a152a8a77250"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ToExpression", "[", RowBox[{ "\"\<\\\\tilde{P}(\\\\tilde{x},\\\\tilde{t})=v(x,t)P_0(x(\\\\tilde{x}),t(\\\ \\tilde{t}))\>\"", ",", "TeXForm"}], "]"}], "\[IndentingNewLine]", RowBox[{"ToExpression", "[", RowBox[{ "\"\<\\\\tilde{x}=x \\\\\\\\\\\\tilde{t}=\\\\frac{t}{2}\\\\\\\\\nv(x,t)=e^{\ \\\\left(-g (x\\\\text{sgn}(x))-D g^2 \\\\frac{t}{2}\\\\right)}\>\"", ",", "TeXForm"}], "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", "%%", "]"}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", "%%", "]"}]}], "Input", CellChangeTimes->{{3.7877865545399942`*^9, 3.787786594773149*^9}, 3.787786645599963*^9, {3.787786741823221*^9, 3.787786757325047*^9}, { 3.787786857253866*^9, 3.7877869002793827`*^9}, {3.787786941960079*^9, 3.787787002331275*^9}, {3.787787057371605*^9, 3.787787094402293*^9}, { 3.787787127114635*^9, 3.787787185815884*^9}},ExpressionUUID->"89daacef-0761-437f-b7ed-\ 8ba1ba99e594"], Cell[BoxData[ RowBox[{ RowBox[{ OverscriptBox["P", "~"], "[", RowBox[{ OverscriptBox["x", "~"], ",", OverscriptBox["t", "~"]}], "]"}], "\[Equal]", RowBox[{ RowBox[{"v", "[", RowBox[{"x", ",", "t"}], "]"}], " ", RowBox[{ SubscriptBox["P", "0"], "[", RowBox[{ RowBox[{"x", "[", OverscriptBox["x", "~"], "]"}], ",", RowBox[{"t", "[", OverscriptBox["t", "~"], "]"}]}], "]"}]}]}]], "Output", CellChangeTimes->{ 3.787786901467655*^9, 3.787787059308402*^9, 3.787787095307293*^9, { 3.7877871283511868`*^9, 3.7877871538127604`*^9}, 3.787787188161763*^9},ExpressionUUID->"c175ccf2-868b-4f10-92a5-\ c22f9dcd69dc"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ OverscriptBox["t", "~"], "\[Equal]", FractionBox["t", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ OverscriptBox["x", "~"], "\[Equal]", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"v", "[", RowBox[{"x", ",", "t"}], "]"}], "\[Equal]", SuperscriptBox["e", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "D", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", RowBox[{"g", "[", RowBox[{"x", " ", RowBox[{"Sign", "[", "x", "]"}]}], "]"}]}]]}], ")"}]}]], "Output", CellChangeTimes->{ 3.787786901467655*^9, 3.787787059308402*^9, 3.787787095307293*^9, { 3.7877871283511868`*^9, 3.7877871538127604`*^9}, 3.787787188228467*^9},ExpressionUUID->"5fc2eb6c-aa89-45e1-849e-\ e52517886dcf"], Cell[BoxData[{ FormBox[ RowBox[{ RowBox[{ OverscriptBox["P", "~"], "(", RowBox[{ OverscriptBox["x", "~"], ",", OverscriptBox["t", "~"]}], ")"}], "\[LongEqual]", RowBox[{ RowBox[{"v", "(", RowBox[{"x", ",", "t"}], ")"}], " ", RowBox[{ SubscriptBox["P", "0"], "(", RowBox[{ RowBox[{"x", "(", OverscriptBox["x", "~"], ")"}], ",", RowBox[{"t", "(", OverscriptBox["t", "~"], ")"}]}], ")"}]}]}], TraditionalForm], "\n", FormBox[ RowBox[{ RowBox[{"(", RowBox[{ OverscriptBox["t", "~"], "\[LongEqual]", FractionBox["t", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ OverscriptBox["x", "~"], "\[LongEqual]", "x"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"v", "(", RowBox[{"x", ",", "t"}], ")"}], "\[LongEqual]", SuperscriptBox["e", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", "D", " ", SuperscriptBox["g", "2"], " ", "t"}]}], "-", RowBox[{"g", "(", RowBox[{"x", " ", RowBox[{"sgn", "(", "x", ")"}]}], ")"}]}]]}], ")"}]}], TraditionalForm]}], "Output", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{ 3.787786901467655*^9, 3.787787059308402*^9, 3.787787095307293*^9, { 3.7877871283511868`*^9, 3.7877871538127604`*^9}, 3.787787188235037*^9, 3.7878077889827003`*^9},ExpressionUUID->"3f2c620f-80f5-4121-8e58-\ eb5734c402b5"] }, Open ]], Cell["the Eq.3 becomes,", "Text", CellChangeTimes->{{3.7877895802355556`*^9, 3.787789589178713*^9}, { 3.787789652543727*^9, 3.787789731460916*^9}},ExpressionUUID->"7045dd5b-fb9c-46a1-93cf-\ bb6ef6b814ab"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";", RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{ "\"\<\\\\frac{D}{2}\\\\frac{\\\\partial^2 P_0(x,t)}{\\\\partial x^2}+gD\\\ \\frac{\\\\partial P_0(x,t)}{\\\\partial x}=\\\\frac{\\\\partial P_0(x,t)}{\\\ \\partial t}\>\"", ",", "TeXForm"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"TraditionalForm", "[", RowBox[{"ToExpression", "[", RowBox[{ "\"\<\\\\frac{D}{2}\\\\frac{\\\\partial^2 P_0(x,t)}{\\\\partial \ x^2}-gD\\\\frac{\\\\partial P_0(x,t)}{\\\\partial x}=\\\\frac{\\\\partial \ P_0(x,t)}{\\\\partial t}\>\"", ",", "TeXForm"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.787789739414544*^9, 3.787789791306044*^9}, { 3.787789891553576*^9, 3.787789895562592*^9}, {3.787789927743479*^9, 3.787790078367845*^9}, {3.787790121305543*^9, 3.7877901286871347`*^9}, 3.78780752128227*^9, {3.787807557665043*^9, 3.7878075736643972`*^9}, { 3.787807608408339*^9, 3.787807699651775*^9}},ExpressionUUID->"394d2b78-f839-4b86-860f-\ 2f28a6e35e02"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"D", " ", "g", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.787789768446192*^9, 3.7877898053160877`*^9}, 3.787789896550486*^9, {3.787789949509919*^9, 3.787789998947671*^9}, 3.7877900308077717`*^9, 3.787807703918161*^9},ExpressionUUID->"29adb0ed-a760-4100-98a7-\ 8e68c391ed7b"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "D", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], "-", RowBox[{"D", " ", "g", " ", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox[ SubscriptBox["P", "0"], TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.787789768446192*^9, 3.7877898053160877`*^9}, 3.787789896550486*^9, {3.787789949509919*^9, 3.787789998947671*^9}, 3.7877900308077717`*^9, 3.787807704022952*^9},ExpressionUUID->"cd1c41c9-bca8-40ca-8ddb-\ ca19b693d90e"] }, Open ]], Cell["Before correction it was like this", "Text", CellChangeTimes->{{3.7857368255259743`*^9, 3.785736833252962*^9}},ExpressionUUID->"b64a7832-7653-46e4-8596-\ b00c896f4464"], Cell[BoxData[ TemplateBox[{GraphicsBox[{{{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF0Hkw1QsbB3AJ2Z3zOyun6NjKvq/n/JYkKlsIXYVsKYSbpLKEsrbJdknu vUqylNLNkqgnZClluUULIhxZypIKSW935h09M88885n5/vGdh+0V7ODLz8fH 1/Rz/7tRozazP37oAd//hxdB//xm6ZdtSW+/Vi388nqTkO/Bn365PiVNeID3 y8KaPbLw9JczDu+1isn95dJVoQV8Rr8s6GupK+2mu2LKy0eBly/orNih4aK3 ymPtFUdMoYGpQ1orrg6/6H/TTvNX3zSn9cs56iu2zKuz3TqpuuLC5mPdobtV Vux+KoPWXrRhxdF7V5eJUZRXzKch92BzvOKKX5/OSSx9Ib/itaL7i+fM2EC6 EFvh73xcIMBAVfDNWjlYm1b+5pG5zjpvo/6ihgYW2A2FPuyQp2jtKzJytqhi gVlU8V3lwm1a/tIXVreWsMDyfRI7bipGK+TbZvdnF1hQuKn2Yz42qRX5oJjy yoMFsWdCRScOgnaGZVj0x28yEK08IZnQ5KTb5CK+U1pfBrbr27Yf/GOTQWuL 76pLG2TAMsCm+4XVQYM2kwdlsiwZKJWdqAPhbIMu1iERRX4ZQG7MlcVOfzR4 +7bnvmaHNPRWfEP7f880nPe7omIeKA3VGpuayzSeG6keNf0RVMCE6XtHaDlB JFPos1UdymJC5k7u+8CNeqbOm72dXJKZkGItvNQ562QaJ3mmFA9iQo78cPRD p1zTVwV9LiRjJhA1lnWrtNicpM6YW+VPGHDtUyV/byiDK2uU+UbpPgMG+2KK 3Er0uXcuFQtdvMWAV4uJtk+G7bkDfl174jIZkC0ewI4OS+YeecpL/JLIgIsC 29L+GS/giut9u+1/nAFzdxXrxYaAezlbqr8/kAHu99G/DJ+85hotK4g4ejCg uXENx3RojtvmbazfbM+AoNPrPI34SKhXq7UHx5wBAVk6N3n0jei8pmfKTUMG +LUG3LvSuQk9lxFWoaDCgHPvn/f4jP6GKi4mD/zBYgC/69r+uJhDaI3Hn2Li kgwY8ko52zKfjO54dNswho8BU5G5Vtlj+ShPtdlzbpYOT0vez6VYVqORqW/O 7B+hg81JDQFXtQ4U+TJV1dtDh06x2rY7KiNo0W6BoR2P6VCw1s3spdE3FHvI lHxUSwcDWseskB4Ze66sYWJykw4doY8VkD1KmP+ZTT438ukw2L8w+ZFkivHN Op1nZ/zn+LzVZnZYpot/TWYCHbZ8SLhz3d8LU62LHhE5RgfK2H37zY5hGMin k6ID6NAEC9Itm5Mw56RrnFk3OmiF7PvNn52LTX64t2/fDjokt35SWnx2A4tz 7Ljw2owOsSobkj0ZgDHvDtfaGtChRVR33gHpxMpkF0brN9BBtHJHn2zbIGZ+ SoJiJEMHkSdig/6cWez1GBsrFadD0eHkuEhXfjzEzvCA3A8a3AwIVKvcgOBC Fdsz0mdokPEPr6vmKhvPlfF4sGaYBl9bn47pvdHGtWNCxyO6aUDj9AvHFuB4 00gibbqFBuN87vWolg2+x+oS4XOPBubBo9/tQ13x2Vu3Al7eoEHX69H22HN+ eBL9UZb13zRYmH8ZlZZ3GJeNfPUQ0mgws5CcGl8Ti98Z/DCpH0+D4dXne09+ OYtvt+RnFofT4GCx7XjkYDY+cJ2+eZ0/DbS6j4h42hTgRxC1oAt7aLBXava5 t+UtXPwoniNoR4PbGktsmWt38fw+x8Zjm2iAyPEkz/c24LrDuovP9WlAseKU Jvk9xRvHydraG2mA+lsWvwh+gTvNTPueZtGAV5jjltHSj/O+tufyJGkQNBOC lTWO4OHLZZ2b+Gkgv6s7genwERcWPLcm7zMVlorcsiXb5vAcsYPo/HsqaNsl zdOkl3BVxDrUsZcKi7N0q4vl/MQ9plpxWTsV7NAmo+ATwoS1nOhbkQYq8PEM vnP/lCL6lMaovpVUyPaLXPJmUokg9ZbtUEyFNX3bAo03ShM/dK/FsPKoUNF5 hXVMQI5INUmoPJJKha37WwtFX8gTbMJ3svMkFb5selmQHa9M3LYwl9cIp0LP VV79uwRVYrONwq4kfypcOFlYGPFIk3juyH9uyI0KquTG1z3pOoSv62ADZk8F p2H2cWazHvFlLyzkmP/so25vUjRuQCT6/aX12YgKxj6J59wmjAhmULTvDjUq FMSRR9srTIiSw265pbJU2PYZRlOMOAQngtsphFCBZ/jko+VeLtEWy1rjJUiF T5dMpcgKKOGetMitm6dAc32hhU44Skyde3WIOUkBIjC88tUulIjJrC4KfUsB MiOq07+VS5Av/dH/rIsCidfX9PzWziEuXz5CVW2igEzBGu+KMFNCr9hpe/xd ClRL1485PTEmGm/qxwxcp8AWQSe79kFDwqmSUsn5mwJFR//Yi7XpE7za2Yms dAoceq+iJPWnLhHe0MmeTaBAwUef6p4D2oTw41suNscpUMg4PVMXo07kdJw/ W3SQAtPaAsceeGwkVHuCGlZ7/sxvudEmn6hI1PbZLLjvpEBewPylD0JswmZY XavGkgLS83UjFZ0son9czJfGoYBWOp3V7EknQmbGL4ZoUkBi6zRDuZZMrJpv 7XjCpsDu64WqqmViRNpykdAGGgXYOKPTykKQUBBM4sYJ//xXHvo1S4aPuCPm d6jvGwKa+yo5Lfzz+BbEosh4CgF1VheFmT+DdzOV+tPfIVD21NJmJnoM95MT oE69QEBi5F6K9cZ3+LzS0LbtrQicqS6mZh99hSer15+4WovAUNBIvn12Jy6j l1/BdwuBBZ6xQN90M15qEjOx+woCinz7u9JEAecSHuyqLATkrrXZ9KpV4E8t MBckBYFUtIk0dqoUd7dZd/ZgFAJhn9NzHfPy8SnHpfqWEAQSfGeouwyy8BjX N/MKPgjsVK1YyE0/jZM9azRPuCCQdOqJZlVvDH7ZL8fn9XYExiGjVNPuMK4X dPSiAYaAsXqDpy1jP9542KUjVQeBc/KiqauV9uDOEYZCk4oIyJtlcpa0d+Cj sTSuJROB+Wd3jy7vMsNFo25OpYsiEFtf5CwTpYdrHt12ZWCJDGMikdZ7nBRx h9AhZ40pMsiqu1Rc6abiR4KiRI8PkkHydnGp/KIAfvEA437Tv2SIyIqd+lw3 h933Kf+d0kQGoPQft1Maxt55WCntrSbDsq/DaU3jfzGh3SMvr5eQYd1ywfQN /npM1fnEmYVLZNA7HMxYTr+F2dpLExbnydDq7MFxXMzDDln/8yktlgwOisvj 5/9KwTItba69DSVD4HnL4DiTcKzabNRVfR8Zrpizg+J43lgvGit5bBcZGqu4 V/of7MD4TFj1j7aTAVmPSr0s52CK+hVhCEqGv0onH/pHKWNbtexUPLTIcGSs tCB0mowFqo71lrLJkCXj5RW8dglNVTqZOk8hg02QgmPg5RH0zvp15luEyLDR t0ev1bUDfcmq+nphngTUy/sbqrdVo0t0+9L+cRIMOq1hr6rKR9cjE+5qfSRI 9ymzWuWVjG6WiEeOtpNAy8TZtL73d3SfsFxT40MSeJkqN94o34WmrL57jHyH BJOL2hkmjQRatuyg4V74Mx+m9reamzLatTA5UJJNgpLM8QEBGwn0y1xCxtcU EvymcaDq+utZrsz0+q3mUSSgscS2BL3o4WITNd9Sg0mAYUl3BbPruF68nTf7 PEkwoeIzLi5+mZsw+NFLdScJHrEk3g38Gc8t6U2ih1uQ4L6AbLfh7we4s121 USQ1EtCp50NelGtz+U9sy054LwV3KN1NPJ0qDq4z1mkvIQVbza7NUb/cNq3J 3LjlvbMEXNXHBQNprsbCu0e9V3EloG61+dtIfV1j5/WFcTJsCdD+pH7fbFHY eLZEAawnxKG8yGIJHCqNVECWU35CHD4MR9C+fhc3yh6n6hwvEoND8ULdp/Zc NQjDV60TXxSBpqkbz8SETutqj72a08oTAqnh7vStHxTUzGveiHx35gPDiAeP /1VCpJsXO3bJyfDBwoiRKNXegvk/d5qBlg== "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAGIQXcwV53fw9P/9l9daPL+/Yap4WJrywks1N/czQMHx Mze7jINv2MP4VroHNwVM/wznM5WJ3kmRZHCA8dl5AhqT3rHB+c0PrjkXLeaF 8zfMbguo+yQI5+cvShF4EiYK58dlzZJtb5SA8zsDyyyN50jD+SwiU5/V/5KD 86+fbv3Qwq8I54dWJ5nNOqwE5+dwv1Y6F6UC58uvPjaN7ZUqnF+9wzmYf7Y6 nF+wLGebmb4mnM/DZJ6k91QLznfNDZmqNVkHzpfYKZvvqqIH508q6phocF0f zg9q89edu80AzteKbgldUmsI5197xrlocqgRnH8u6amjkLwxnP+QZfmPqUoI /pdlGesl1RB8ydevZRR1EfyU4k/f9a0R/F/N/9f6hiP4akslpTr7EXxL99sX eCYj+D4v57RPmIbgF+oqfJ0+F8Hfs1XtwrLVCH7QMeO2I8cR/NSMrzYepxH8 Cq7tn0+fQ/Dn+lklXr6K4L+45mDz6DGSeyuYPqc+R/B5pY+sfPkKwTeKdxf/ +BHBd2XkPFfyFcGPWHyq5ccPBD/Ltce65g+CX/vc99P//wg+ALXvrYg= "]]}, Annotation[#, "Charting`Private`Tag$360546#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF13k01F/cB/CxjX0sMxgzxlpIRVGyzPd7p2xRpJQklIiKJFtI2ZeEFksS KcoaLYRsfexLZSskaypLkTVLi56ec57z/O4/97zO+33e5/575U6cO3CSnUAg PGUjEP73vjRuOv/3rwYQ/u+MXRT/0f/7P5sJDy+Xrv5nWW33P+cW/nNt9E2e kbH/zKPaKw1v/nOC1/E9QXf+cz6b5wPCjv/MddJIXdJW/f9Nft/gmnFj6//7 QF2Kw4bWLeBXU4e5eDkRLs5grtc/qcHsnu4zaqsKvGUXUs483qcK+htsz44u lQib3Twku3Z7E+y41XvaONWEapRWZbZ7SgXm3PPJXmbiMllNfj2eRzdA7faX nBYc/evswhLE2nOUwGW5JSN+f4DK5eMchfxkReDbf2yZQlBSI2yWeakXvg7a s5+2lkuoaXy4ejsyv1seri9m2mfozmpK8Z3KXdwlB02fIsjWWgPaLttVuPql ZECalMo9S3FienC9yPYRkgFSnHdGs6g707/byESUXQauDOfcoNhcYEZ7n7xm PC4NV4u0i7muRjHznt+TLHsqDeyk71u6ovOYz8LVKi0eSEPtEPfJl6QiZvmh aruZJGkoS+X8QzhQwaxdb8p29Yo0jHaQFdNi6pitP/ozFQOk4UOTz/Ts9Ctm V8MZw1o3aeiIO3Txxde3zA+JqxO29tKw/I1QHXZ0gDl6MurqqoU0rNP0HVNT +syc3C6hmmgoDc5J1eLhyVPMWa6sji3a0nBrQ+pMA2uRudK9zfP1Rmk4yJd/ ryjzN5OQVSd2SloapMpFG35ocmI8PgfKOESkIV92fUd3gAAmbPjROp1DGh7e 2d40z0vBqOLuf3SWGHCpMGe0ZJ0UJju2lt4zwYAsQ5mW7HIFTLkkdpdHPwNs /CKWZdM2YlsipL4ItjEg8noo/bGJBqZlmR+ZCwyYOuV1682EDsZS1FExKGKA 1g7xWv3KXdjupebXIw8Z4FXWcNKM3wQzbzx8LiCZAWovWH4aogcwq6QxEepV Bmw7XCcyw3MEO+7kXVx0iQEXFllnq/bZY86anIf3uTNg8tLtyRtjzpgbMX71 6wkG9DfXPA32dcd8euRSIw4xwDnVPysq1we7nPUEl9/NgIKjFmYvZQOxCB/0 sUqHAbNRxsouh8OxOMO20CObGRDe2CNUpBmLJYnbKv6QYcAK1WJw+kc8dnfs W/N1UQaUCC5nf9e5g2WV+Lts4mKAqQNb8IvoDKwwgpfUvCwF39pP+Fpuz8VK LJOfOHyVAvkCjecG9KdYtaKSxd8BKeC0zZU8v7kUa1x6/iOlXQqqgoSCzx15 ibU16idr1krBEeebnboqDVhP0ludrmIpoLA1TsZEvsaGnE4Mns2WAralHaNE 9bfYF825QN6Uf3u13J+NWvqwKWKQ/MMYKYizLPe2NvmILfaQGliBUiDwUN+k f/049jsrzXng/L+8If1b88x3jPPCJj5fRynQSwvcaJC5iAkYVTwiH5aCpqy8 Y0MBvzCKhMm+x8ZSEF6RGI0M2XGp8fdzJkwpaG2PioCdPPi6UueEMVUpOOVU a6ovKoxvilzSDJGTgqRFK4HLu8TwbYfD+xgUKeAq/sOhSZbCmUqUgBdEKfix JnA7JFge11/OkD60SgeNd89uDVor43ubttbMfqNDzicxS++/avjBW+AQM0QH NV9w6v61Dbdx3kdU7qRDwoX92y/76eIOO4Zy6urowCi4+LZ4cSfulLPD0rCU DqYKV2/UchjhZyRvcLTk0eEES5rp6WWKn43++mTPXTqsFIn1iXYdwN1/6dm1 3aCDHteJxjUOK9zTNY1/fzgdFEcSs47ctsN9BpfK3vrSoVgtVnXWxwH3MzN3 snSlg7eBTIVg+Sk84GUuue8YHaKEOhadbM/hgVs4ao5a0CGgTVJoYsATD7lv 4zZkSAcjtv2ib6X98HDRErq9Dh3S08UWx8oC8ahQoZZPm+nApng8duFvKH51 8ZSPkxwdUhfMPu5TvYLHnaxVmKTQIVBRhFcz5xp+o4fe6cJDB498cfmCoXg8 wcj78vdfNODbmP7ny3gyfqusbeP5GRqoB/vmrW1Mx1M2KPctjNKgIWe3+Sn/ TDwtJTjCp4cG5nny3ifMcvB7/P0aqy00SOQ9TlU1LsQzA7Z9vFhFgzkfp630 3md41nRs3NoTGtiz1Wu3OZfieXbjusEPaPDuaqX1fZ4qvKCdNcmRTAOP9qWf 9F81+BNWSlLEVRqsRlsf5cUa8eKnC3q8gTSoHDBfd9PnFV4qbzp31YMG4bWD 18u+d+Dl8Vl3SU404PyqtKrd9w6v4iTsvXGEBhbLkl867vfh4H1klWxKg6Dm UU6HC8N43dizrCQWDT4OUrvoxp/wxsMCByW30eCKVuzFwZRxvKX5JFuqEg0m Kogiu/um8NfaLwul6TTwG629h1Lm8PY8qs19Eg3Izyzl5j1+4F10D9517DSg sWHCw9SfeHfMq5KsH5LgyvtTLKH4L/7+zzrHDZOS8KXJDKfocqABt8sijwYk IfKN5VmDPdxoeLi3WrVDEkxP9jYEbxJAo+ZbXZ/WSYLn1V99TA4RNFYTLbmt VBIo3yTrf4RS0KT658aSPElgab8gjhVR0VQm5qV9VxJ+OcSnmRYx0Azlllzl DUlw6l97/POtHJoPn23Dw//lFIoa97H16MeScUCNryT4KZifSU7YgFacMzfo u0rCx2Wy4cubqujX+989jcck4UYtXVMXV0drxpZhxhaSsGuP0TPVqu2IreLx 1teGkhDIfUCucVAbcW7iHTbTkYSRBbO9OytwxJ12IqZzsyQslAmuj9XZhfhI ldoH5f71V0lWbbcMEClQbLyHIgl7ZxMijKKNkcisW8IRHkkYyDbTWtlghij2 zTsHflGhJnjXknrLfkTtkpuxm6GCsb7dcNTcQUTXu5j6cZQKZ0YvXf6TboWk i98ZO/ZQQf5M+ZDEpA2SW6+6PNZChcn3OvL0+eNoXVLkg9NVVBhat05wodsB KXF/3D/1hAoTL1R3yas5IxVfnb9uD6jg13SIUkxyQTBopvIpiQop4brGkbPn kKWew6HDV6jw+KZy++VODzSVcyHo1UUqHG8Y4RyR90EhpJh85EYF0+N3B6zX /BDV615P0fF/uXNWH+57GRX2FbMpW1ChU/1pQuXbYKSPWjalGlDhtoXq8+mu MNT3YPCwsBYVSkx3NWrsjkJufPMhYSr/9goknTr0YhCnO7FwRYoKP1Ik3FZc rqOUblqfqxAV+rerNZ8ViEdbdNU4P7JRwff8talrpCTUeE9P7dCiBETcffnr 0+XbyIZoZd0yJgGX1l6EGbqkoXkX13CsTwJ8BCdVQufuoajOoCdPX0kAf1zD 78CLmUh6R2L/+moJ2Jq3q3vAJgsVp+YSU55IQOskB7xMz0Um7NVbSZkSUKyw swHtK0Ajzl02IYkS0Cum4fCi4gnyeTMWuRQpAeSuvwFVokVIQOPXszP+EtBE 3DTZUvQcZSQLDQ25SsD4elO+a1llaMeaAq/FMQmgL51xP7RQgV47aG1r2i8B 1xZ/PWPPfIlOtOw9pqsvAb7eC1VxwzVoRdU++rGmBFB3KZpNKNejuATv5wob JGCL+3TQ0rNGtO7nlZFbdAlY/TK6xTu0BZUfu8svQJIAr9D7mp73XiPzhmea QQQJeBKTn6zM04HGVJrsF+fFYeRZfNHwVCcKuN4fc+qLODx8GWsxyPYOiS7N lA70ikPVfT/+epMelHOU85N5qzhoh4pPHX71HuE1VFJDpTj8OhCsdTGyH71T 3Kyt/Vgc3rr99lQJHUJnYnY6FtwXB8pY5YjuxxGUePhMeWKEOMQcD9BjxX1G KlWXv/D6icPvow8dX6ePIZCPF77sIg7jEtvVL/VPIMuobN15W3HQ8hm8ekLv G5qarnByMhcHptWjx8F90yjEouPGh13iEPY5dNvEvllEffG50my7OKgbfVqS eD2H9MMEyTto4lDqm6opRP6BPkzK4fkC/96v9NreZXgJue/TPC3zVwx26JuZ LjStoDu0Yy+5P4vBZYmismczv9GWIM+vF3vEgGtcaLFE7S9q/BIpNtssBmwC DJGqRgJr/skTl/cFYpBx9qWF8n4OVpR4Q9Lee2JQW/BkIeQRJ0s6oK8GbopB ea0/y0acyDIxYqfmXhCDTg7XoE0UXtb9QYt6v53/8m8b6Wy5Qiz1z+o/320T gwpj3ot1D4VZ9V9FtmxRFoOtu41eES6KsMaW2++MkcTgS6elXYgamaUiutfT YoACvc2VSOmpOKuCujG3sJ0C273pH4XjJVh7ZfiGeesoUMd+9pymF5XltqnZ BHIpUGFLDjTaSmM9M9SX33yBAjeGXr2UC2aw9EwVrKLOUKC08imx2kia9c6C Pe6TLQVyJkvve3HLsJaOw+ptfQrIleSFJOyQZUU6p6v92EGBdpusxN5oWRbV 7fJJ840UuP51xmtrnywrz8v2Tr40BV7P79liKi/H0r3I7CSKUuDZpo0RH07K sV4H07lPcFHgvYCqT1ymHMsu6iezaoUMNLniVwr9cqyZuD4P6hQZFFxF0o8K yLOCEstyPIfJcNqT+vqPpjxLJPXWUFsXGfJvgk2ftTwrI8OHotJIhmnlN2P1 F+RZGrmHTMJfkMHtt3//3Vh5Vv3jbUEjj/7tW9s2m6bKsw6VkEt075EhIbgi CjLlWWOV89+S4snwy3bC6fs/X6jrlJuPIMPuN9qbe//1eVqfHDb1J0PajvOK oXHyrNsd12JzzpLB8UiCIIefPEul162Ow54MartPTJ+zkWdVDpqu2h0kQ5hB 1cxXLXmW6edNauVGZBg1imWkkeRZQ1/5T4rpkuFCfrNQ6aAcy33ua4q7Khlm cy/cdM+SY7GttHS8kiODfWS+Ds9pOdbNtRyikhgZ7lqFztaul2MpcEUxQ3jI cNDf2+3bgCyrmN/ZY/CXKESPbS7tjJNl9VDXD8WPisKI5pEDts0yLGcZTspM tyiUtmz9XSwsw1pZ/8nYpEUUqrVmXaz3S7NoGvefE56IwpLYFVZatRTLzpQR e/aSKChlOT16ZyfJGg8WYxpRRaEmcpEaaifK4rv0eCaeTxQW5EQG0z1FWKq+ xpkjv0WgS+jB+5EYYZaP2yU+/48iYMPjQdRNFWSlnJaobnwrAu3rIlq1vvOz qh2fnic3isC7oDCTq3v5WMSjX94/yhMBtdy1pD9buFkqloExq6kikPfg/DG8 jItltl+SZXhNBKxW6cYSZpysRCPT7GFPEcjdtTOsMIuNVbZr3HqTkwgc2/Hu bPVpAmsACyb5WYnAyqZN1VTfNbRu23NvUUwEKgN/9qhJ/US71fZtOKYmAjqu k+c56SvIVWVyIF9OBDKV714g7VhC19eHXl8hi4BBv7VBwblFVCzL0DcgikCH kaiBUv08ek8vXb6xIgwP2oPVCzTm0G/x/flDX4XhZ8yx5HL/GaQnGC7q2y4M qk9LRro1vyInHpnG+hphEOQo3B3ZP46iOV74iRQLg9hTRkrYoy+ocO3AZrss YTgtY2ibk/0Jda1OjeQlC8OteK6s5taPaGkxImE5WhjK8rj1K8gjiDYru1v/ kjDMDZcxigiDCP9W/uv6OWGIfCxwh5vxAZ0YO/h40F4YPt1N8trt24siPn4/ oXJQGL6ctDd2IHWjvIEo8QuGwjDqTjzt0N+F2nrlW+u0hIEzWz/Tu78DzXdV XhLeKAy1NZNve8TakHib5VZbhjD0TRfc9X/dinRaZj/nCgmDab9Kr+S7JmRX H528xCYMIxeIZ/YqNiD2QOPkiAkhuCRCLCRU1SIT70t/Zd4IAZdegFLATUA3 XJ46vXgqBDoa9gslu6rQe/svbw4kCYEtJZup0PICyVpJbp/yFwKVe38WXxeW oFNmpqnhx4Sgr224ffJrEXqiH8whoy8EIVIG1829n6IVnednypSFwCJgtWcs phChrZOd+wWF4Dn0pRUV5qEIJYb2tzkSJFpqWmnoZaM2xv57YT0kCAvv7bmH P0DilHBu6QoSrKtfNtiRdB/Z8b1wK00nwdho62PDoLsoizDdbR5Ggh61KyUT TiloekkW+3qKBNEFCa9oHUlo2/TBB6GmJBg8c+js5oJ4FPApip+hToL5EbXB odnrqL6v0qNEnAS3+fPfX5aORQIds337fgnCrZoLdzb/ikIHG9ftnBwWhJbe cclEx3B0p9IqJ6ReEGInY0OvGoeg0WcxQlK5guA10WQQtT0QqeSCz/NYQdgr bCq7O9EfeaQvDpp5CMLmz66YRooPKk9UNpiwFIQ5T2X+aVVPxHN03IGNKQh9 iWkduKk7spTNCqHJCYJ24ORAWI4LevDF8b4GURBOzBtxa7o6o/k8Bdj7TQBy nu3m0XjjgFjuo0MnOwTgFJ58kVFyHMVtv//n8nMB+M2eGBeubIMGfh6TSk4R gN66pZT0wsNoA0jrPg0UgKDD38MlRi2QT/jgkVZHATh30MlJI88c1Zuk+n4y FoCpgIvjhE97kKjw0Vu/VQWgvdN5pt/ECB3vliwRowgAX8DFJ19c9FBhyvt3 qqv8wEgdLfJTYaHfx24tGA3xQ/sGW3LmoA4yWW8pal/HD2/f0wP5jDVR8lfK Vv8cfuBRDyJu91JHY4/f7ouP5QfRPTfpYSGqaJv3TbdHHvyQM25yyGXzBhSi sz+24TA/fD56zrOqah1q/yv0aIjJD3v6zHTvkeSQVENb67IcP+S73TR9xCaF zkTHTgpz88Oru+ldowviqGzfXh6VKT6wEJgv1msSRUQxfiW9Tj7wVnoQeeYR CR380GJgU8IHzjPs2hrsvCgjPcrR+w4f3JgbUuy05kSzjkahcUF88Egk5Orb KwSEqxAzsk/ygaFW4JLKu594zEw9gAkf6LvZS2m++IF/KA4d7lPjg7VYhYWt 1+ZwZf9da/MUPtji0ZsaajmFeyM2hsBPXihwPscoeTuG13KC7vphXsg0fNyr dHQUF269bI3X8wKTrbAxzHcQt7uG+R3O5QXZ73fez6b14o8O/r7lHscL9H2R 1Y8+d+E/JStKrnjywvBjrxbNzW347mG/7gwrXgi1thVtJjXjSQ+0FiswXvDl khAKWV+Hfz69LNotzwt+5sl1Vq7VuLpaydbv3LxwzzpejiRXhgcteplzT/OA Ztx6t3xaEd72QuOcbBcPmGh9uU/QKMTpgfOx2qU8sDdUs/3r22z8lP7TRwdS eeChyCI9tz4DL+F1f+USzANXT7zSeReahnO2q34Nc+KBaznaE99UbuEHEqZ5 7u7hgTvc4zJuSjfxe0ceKZVu4YHvc1Onup1i8O/SLoYdYjzwM/Zd5cvNETjz 84aTkz+5oem7lRnZJBiPzp0IZR/hhnD6s4LGCX/8vVt2Br2BGx6ZnJ+/N+6F K25zqtmWxw1WiycP7NN0x71W142YXuOGwrsFtVq003hN9ac1Jy9usJNt3h7q 5ICTwjIYQUe4gXDWqS10xha3MbZn3sa5YVtGgZI16TCeR5I9+kyBG679CXAV L9+Pr7wd8nvFw/3v/1hOMdbcgxveTkv+PE2EgpBa0ew+fTzBzqb0TxcR3D66 Rnh8QfioAr1HvIwIaaZWjpPWWviWyb5FtTQiRLr13b19XR33mt28QSKMCL+d Ww5LNW3Cy5aDbdfOEMGggTvC0UAR/73WfePLfiK0EePYCrbL4TuJKo2vtYhg nprsmhlHwyMEL/8skiHCZ12t9DfeFLyV0qV6h0iEnQlMmSB/IZwkpegQMs0F HybeZbdt5sEPKPjfOv2OCygPg0nmV9nxJJW2V+YVXBAXXBPP6/wb698qT9DK 4IJ9P0Mi35f+wGS1fbbJXOEC/Qg2mbWEWcyR1XqK6M4FxzNDVb12T2I5RtJp 05ZcIMhzkPYD/4RNmXl0vsO4gNt83rhy5yC2xbKRq3IdFxypNudibuvBvG1p Opn8XOAoZC4c9LYDK3d0c4ue54RuLsvm+z4t2JpLbcb5Pk7gfV5R9IdZh+3y FO+1Ak5wSZ/TrSZWYRH+Z/hZ2ZxwOcNT1WjwOdYaXI2U4jjhFFHBeuT8E0zo iqgXyZsTGNatJlhRDnbwulPOj6Oc4PSsP/B+eAaWfKt8YGAXJ3g9DxqIr7yD DdwlidRv4IS1+7rJNyoTMNmsEwb5wpyQlc9d9+JHHOZYUOJ3c5kDZBQtDYvI kVhuMV+h3xAHfE6j0z5vCsa+V9iNHm/ggPVngxbIkX6Yet0z8d2POOCxk7IL NueB+bQS96jFc8Dp7ReLWkRcsfJO60Bxfw5wC7/yh1rviK29Lyz6c5wDnKwc SlYK7LBdI+wTn4044PuxUgLhviUWMW4p9VqVAx6GmLm755ljr77nmReJccAB 1ijrY8huTHhpLSzlNztkD0Z/9fu7Ezv458CL4E/swFi2Lldw1MGSObOnT7Wy Q1VqeNHqfg1sgP+XnPlTdnC4doftJb4JkyXvs9yRzA5C6eOcMWnrsJO0zGjp QHaQqOgWPSIgjeXJLVdzObHDFr4n2umDYth35T0LU3vZIbRdu/dUoxCmviVd 6Z0GO7hpPMqMFeTGfHYsHK2gscPW8SBN1SICVo4bXc9gY4dLXOQHL5RXmH8N 7tRfmWCDD51N7B895pj6pjMr7u1soLGbKJevMsmMOqi32aqEDe4GK/7Vkhll vj56yx6lsUHXt/hDm4U+MIUdviUqhrGBPcHaxuZ5F/PgGdQq6PKvX9M04dLV yrx9Pn5tcT8b1OzRs3ipXscc8h1XH9BiA5LiggbpfAVTPkjXuU6GDc4lagRr JhYxnSKv3ckjssETrwO5+ybymXlxn9pvTBNA51XeR2J/JlMj7arW8QoC/LnB qplnT2D6Phh2NcoggCLxMfuqVQyzMl/jvuoVAkRU2cjrCYQx9cv7ef9YEiDJ +dSWN0uezMK8h9pNugTovzeSfcLEhUm9c+70DVkCKI+JlZfePcFs+tlhJUMj QFEN02GUYM/8H1Wcmto= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXcwV53fw9P/9EStFGTYv9rdRrQ4TmPvr3/4fkr1L qmo1bQ41fuVxcP+7/+feIw7zN9+y/tNnzNb24Of+pTOCj816YGJdsHL9D0Hh z/svPZN1mh14yjIsTXnhpZqb+xmj9E+e89xqdvzMzS7j4Bv2NTzXNnD8VTK2 0j24KWD6Z/tnN3fP2Bi7RI+pTPROiiSDg0mNin9I/n1Ndp6AxqR3bA72BZ4c 7d8EVJofXHMuWszrUL8281WAwU7ZDbPbAuo+CTrsm+KT6M1hJ56/KEXgSZio Q4zcuteRXVP547JmybY3SjhEs5vGnp52i70zsMzSeI60AwMUsIhMfVb/Sw7O v3669UMLvyKcH1qdZDbrsBKcn8P9WulclAqcL7/62DS2V6pwfvUO52D+2epw fsGynG1m+ppwPg+TeZLeUy043zU3ZKrWZB04X2KnbL6rih6cP6moY6LBdX04 P6jNX3fuNgM4Xyu6JXRJrSGcf+0Z56LJoUZw/rmkp45C8sZw/kOW5T+mKiH4 X5ZlrJdUQ/AlX7+WUdRF8FOKP33Xt0bwfzX/X+sbjuCrLZWU6uxH8C3db1/g mYzg+7yc0z5hGoJfqKvwdfpcBH/PVrULy1Yj+EHHjNuOHEfwUzO+2nicRvAr uLZ/Pn0OwZ/rZ5V4+SqC/+Kag82jx0jurWD6nPocweeVPrLy5SsE3yjeXfzj RwTflZHzXMlXBD9i8amWHz8Q/CzXHuuaPwh+7XPfT///I/gA/qXtnw== "]]}, Annotation[#, "Charting`Private`Tag$360546#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3k41s8XtS9Zsu/7/r54N0XyfmaIkkQilMoaIQkJyVpIfSVZUrQQka3I LnFFSIVKIkukxdIiSaH4+f0z89znzpxz7rkzzzyj7H7M1pONhYXlxNrw/zny s9Xc6qoeCL3b2s7Xt4/56ZTEr6G/erCIgsOjlfYzrYXe/a5d1IOiuzE6QZEH mEqGAf+O/dSD31MkY2k/F+aj86k8Y5/0QC901vmZjAeTh/JGAZ7rgf2vP+V2 G/2Y6cGuljHZelD+fHGXfmoUs4T1eD6LgR7sVPS8L/5fLnOTXTHXVT090Gmn T5wOucVszx/3ptP0YM8Gt0My/nnMMXMbXXeSHvQmjRzbEXebKZGsW9MqqwcR H5MfCrkWM0/LTHYksOiBom/uhE5nJVPIT5Gs+I8B7XojjTndVczrDx2SahcZ YFo4NXbqfTWzzvWxzeQcA/6bZYypbKxjfi24NWjxkQGfzdyebM1+yAz/M2j0 fpwBiXmFub3KzUyeHcI3wkcZ8GUnd66kMzBVvka7l7xhwB32TzkbpR4x9+od nOHvYoD6laxHUzLtzOSTm4P9GxlgIu2fZfavi9naLPmv5y4DjO2M0cXQXuYf zl/x9FwGlGis+OiK9zEpO18KpqUxgKpdfi0ifIBp8d34VWsSA1hrnu+b4Rhi Hkq9lzkfv4b/k5He+WKEGb1R4YB6NAPC3d7JjB0fY2YNJCk5hDGgYSrKQVTz PbP61PKHhMA1vW6dN+O4PjB7FXyLan0ZYPhf7fxNiU/M6ZaBo5MeDOCOWgwx PjDJ5PQ0Z0gfZMCA9inlB8PTzBt7ZSMeOjAgYfu9LsGjX5n6O78/drNhgB71 1K8Y+VlmN25dz7WDAW23rhqrFPxgeull7is2ZQDLwQCzeLufzBWNI3nWBAOi M18M8ZF+MTNl8Nc5fQYcFwlR8iL/ZtIERQ0yaQyo0ufef3X/IrOT9XOMEZkB lb4xF7hblpmuvxq63qkywGOQ53aoywpzcTJZLE6eAZzMZtr6GyxE+/swQwcZ BjjeJF1sdWMlUofdnbUkGTB3m591D4WNIPfq33kmxIAi22mP3Al2YuGJ0vMb AgywvNJUsfE5B/Godd1cwLo1/Mx+qn0LJ7G/dtRInIMBf1SU1GSechNaFZ2u n1kYsHJ9Srx5nIeYL74fX/+PDqoPl/K+cawjkm4k9Bz8TYeXeCenznF+Yu+V gHnqPB2O+rK1eTcLEGqpTtJsP+jQeTUjOllmPfEwnuJRME2HinbqBwUWYeJ8 tFRi2Gc6NFtwa0m2CxMOJ9nKdnygw86W1xtn0kWIb379C99G6PB0iu9PvbUY 0eAFsi1v6fBI5a3Zuc3iRIJrsXHaGzqkC72ZGaFJEIp7os4bvKDD1drBjnkk RdgYaSjEtNFhrszIVOi7HCG3UcjUtoUOu3K3ZCoTCsQkZemwWhMdSj6TtDiy FIlYle6Kzlo6JNom3PMzUSas5er6s6roMFz0QFKCR4WQkbi17FdBB3nfg5cT 36gQ93lDtgqX0CH66exnu1Q1Iord1XeikA6CJwuGIqLUiR3/LC5W56/pP+p1 ev0JDeL9rPzgvht06ArUrzY7o0WIDjz2u3WJDmMnqJ966boEaOcmxiXT4WxB XtbBMArhFx2R7/UfHZRzc0R+PKMS7Rp6w+R4OjBMj5tv300njocL/uE/TYdK mbu7j4kwCKXuKdHvUXR4L71LaHiIQYSfyLGsDKNDmY10wbfEDYTmk1OHM07Q QVHgxYvdRzcSfXKOZ0KD6GDKU3HnxH59gtIm8MDIjw6PE98GFDhsIt6LnCK3 udBhefDzZsPXTOKil8O2ggNr/pJF1omKIYLZQHdP3LfW78LtX064YuKy2+TV nXZr/hYkGq8XMSFMq1urKTZ0CJalRFt2mxCzPDdfCFmt6Wd7uis6dQuxo9ye 9/U2Oozc+yqptsGM+M1OV681pcNF0xABC5GtRL4jv8lVYzrcGv4x8HxxK7Gy 8ijs4GY61LWsu5n4yZy4b0Wb/KhLh/wFg7miLTsJl1w+jk4yHVY9Y59mhVoR /L8+KRZr0oH6mGVrbL014XXtuqO/Mh2w6oUQ7UobQnQ27LiNAh1+qrezbfDZ TYDpnosMWToU6XfFDmrYEjIz6zoWxOiwGSxjUIMd0YE+vR8QpkPgRFZzYcoe Iji1ZaVBkA49tqcqWQPsiW7DMP1onjX8GHZONktH4nTix9vcf2kwOLFZ6HDk foI6DC1Tf2iwSzS3IKDgADFMvTby9BcNFKv/vXgydJDQf2MrnvKdBobkcLM6 fVdigkyhB32hQUnDma9eH12JlCheqz1TNLi3emS/VbYbMa0OcVITNKi7tZtv Vt6DyDyZnbP0jgbiWyvkLGc8CLPnIY3DwzTYELj0XLblEHEjWHc+p58GITzp UdFnvQjb1iwPUhcNNAO1S1rP+RJqfR9GO9pp8O6ctmz1wyPEwgeKk1crDXiS l5P3rfoRV7labfIaaXBTufC9+t1jhK+kwDOTehqUvV9ut0gOIJhajuZj1Wv1 vNlBz7EKJMYsZgj5ezQIjtAhS38KIu47bax/UEID25ZOxt/m48SZI9EbnO7Q oMKpSTImL5jQuCCqnZlLA4fBNl6ZcyHE0V4jKeF0GpS3HX1xZCicQOPxafdS aLBCltQSXB9BCM31CFpfoEEPxceMbhNJVIke4vwvgQavdz3ptP0XTSSo3Y0h naHBiMNg17bqGMJx45/ljmgazCZvZo4fjyWWHJLmOE7SgP3w1rPH1p0hnh3u P5p3ggbO40tD8hNniBthSlMmQTSImHGLQY/jCJOsqndRR2iA/sZohxUmEIkj w8/+HKSBVp3iHGP2POH0TWN7phMNNhNlSk1KSYTOakDrRkcaeMxJy550vkD0 KHE2BNnQoM+hLHaMNYXIoe/aKGxFg0ouL01ck0IEbblafs+CBq6dJ3Z5BV0i JA7pFn7ZQoOwS4re7uxpxGRwqMp/eK2/DSI20wNpRH18y3USkwYE6765nNp0 4kChfbrXRhqMXnngQk69TORNR8aOadLgVqGG0X8dWUTwcsffKDUakAJ8zHfO ZRPb+EXC5JVpIPjmUXoP6ToxrVvg7yRDAxtHp2KzlptEI5qd+iNBA2/Jt0yd SznEhV2bPTNFaVBvYJRgaJFL0AK79/fx00Bn/fdZ5Re3CLbTUm+CeGmwsb5R rzA3j+hLdbcV5qLBMN9TZ45T+cQ376+Xrq1QIXpTNu8jiwLi1HfCL2WCCtOX Rz+dcy8mrrkZTBqPUKH19ZkkvcASovEV7dCPfipQbAfeR5wvJVZqVQ/YdlFh WGloW/roXUKRLD/A1kaF3r8B/ykKlBPG1yT2VD6kgsHO8ErlinLidAzvTrEK KtxK6onI4b9P5M2xdbYVU2Fx+MHCtbb7RNuhv6Yn8qnwlmOEv/1MJcFl8d2o P5MKDwVSXtZJVRPnhV9rX4laW29Cunb8dh1Rcqa7cHsYFXS/LS9K3Kwnnv3q UF0MpELIy8eDnrcaCMG3DbJOnlQQ3mieFdPRSFB3VmWuc6GCX+Lr0yLTDwmb pjLRB3upUMouiYYlm4nUWzl8cjupEHsux8nrKRCVYllnn22lwj5qCdkvuIXo S0hjj8RUuISTv86pPiIkjiQsjzCocJDtplBMZiuRpec3c1OaCiVe25O5B9qJ B7c9D9uIUkHHKWk4uLGDGJZ0mWARoIK5P03/elEnofB395AbCxVGitJ+H7vZ RWB/S0eRJQoI/tD6r+vOU8J1zOzVo58UmKEv1hs3PiNutRk8Vf1MAZPRS5kc 7D1Eqz7dvG+MAjXyfA+TZXuJD3fIrXFvKaAf2LMr+EHv2v2Vf/DxOQW0uQS+ FQu8JIrs2UsKqyiQX5snuJ/tNdHV8Vdj710K6ErHJde9eE1MGy7c4rlDAYuK 86Wf7/QTOgpTWT7Za/y19nofjg0QVinvJWQyKEAK7+Wxch0k/NmGU7uSKeAZ 9Cu+ad9bovxT93nt0xT49FLxvbDPMPFibyfX8CkK2DkZFxZEjxBzXS2nk05Q 4JgtTbI4Z5TYcK8q/Ks3BR6NdYS3xo4RdaFZvvd2UaB2R5u8mM4EoXIo8PbA dgo8fxJL6VyYIC7YbB9j3bKm36bqcfGTD4Q7acF+zwYKxHnIlGw/94l4Jv48 JVKXAvPuOan3Qz4T+mz5Tws0KPD+U3PAnaOTBN/QbpNFKQp48bkxH5ycJkI6 tCJURCjw3SNtXd7FGWKscrXGko8C+25fe1Na/oWoSirTufFPFwSb3BUmxb8T zohXyvS9LrxUzCxTJOaITvKYrd+QLsxtiftMWZ4jGJK1FzL6dMFXf/zkM/hJ cM8eYp9s14VDDyp9xz1+EUHDRkgYdIFdxcXxt8kCMdwpcnJzvS7UxY9/G9D6 TZTnwrekEl0wts9TcBZZJGSSM0k1+bqQUO8TXS++RMSH+x96d10XbhEKTjaq y4STndxbeooubPU+T+5w/kewc4Y97g/WhXHbqIM+dFbk/8OahcVfFwq32yb/ GmdFAyPqRqTDuiAnbaB25CobKq15VX5qny5M063mVRQ4kERe8Uy+rS409Q60 /JzhQLEXYzW6LXVhxV1gx9MWTuTgTb2mhHSBBY/kPkngRrCH642FgS6UJYrt zAjhQWSTEeHjNF2YTJzOrjjGi1al/zv7WEUXjhie3rs9mg/defopyJdbF2Jc Dv7ZvV4IidQ9LEtj0YWvu4pjuiqEUGR++mTjog5we9NkEpyEkW3kFuf1X3Qg 4UXw9vpmEdToI31100cdUEwv6LkXIYo0HGZfuY3qwLoYsxOfjcXQMuWGRVWv DvByeVEZY+LIS/ZE3MgTHThCVN1780AC9XLvbOZq1QE9W7E9EzclUf7Y4oZ9 1Wt8lkdmj52WRtap9korV3XA+eIxj7cN8iicsd7CPE0HLiZLll4dUUAFLzsD U5LW+I+LCl3mVEIrIsxWlWgdsPwt9pBqpozIlb9mjoTpALrZPOHzRRk52N0T qw7UgabPFRrjWSqoLE3Fy/yQDliFiHsf41NDA3rDySkHdYA9crJq9bka4ujL qB100IHGbyajzZnq6IAYL6+fhQ7YGAq4vjXRRPwZ30tSKDpg/fP0NfM/ZLRp Y1HfoKYOrPdlOEj+1UaHXrv/U1HWgZx1HeF+vLqoUbzfulpUB4gcU0POLVQ0 WX0xdIV/Le/j+WhVn4bEHCxyzLl0oPz1Zp+QlzR05HLjj8E/2uDyJ6rxigwD XdYPkVGd04YQ8wf/SjsY6FE/1dRvRhuqDFW5+U/pIRnJvPSVEW24dvrQ1MVf G1BX5jkD1VZtIKvaPPM03oQWDExd/Rq1Ic1tLj5cwxCpDPxNrK7Whi0xtjuH xDajcKmAt+Z3tKGppXOplI+JCupI7JdytWHip7JpgxiBXu6d0H6bpQ3fv986 s1MTIdJVh0i/C9qwfh/JWnujMdpjKFRQnaANBrr7zsJzYxQz+KR7JVob/tgL f+86YoIGpAmlS0Ha8HxD7Ge2+i0oMUu1tdpRGzhqnrLVXt+KqjaPzKzYaMPF J81Xbh3ehsbeXhbbvkMbHI0aOeo2maNNsuu83jK1gcIa8c75x3Z06EFrsqq+ Njw4WvMueNACpeyPrPWjrvm1c2r54ZMdaDJ7lmdVWRsSc3AKX9tOJMYspm+X 1Yaci4RYYbcVMh72cLokpg0HDH1/5r23Rlfk3pSocmuDYNu9dVzpNsj8+kPr 7V/IUJT8UU5e2g7NXhj+y/GJDD+EnmQ8aLRDWVHLxS3vyNBz2fxViece9MXF kNvoFRk0rWZOUzrt0WWbvdW/n5FBLe1RtcxpB4RNQj2q2skQ/ilwC/8WR5Sq Ut2s20AGg7pAy0d9exFTtO/odCUZuLS3f50p3Ic+sv+ULSwjw29FnR0fY53Q po+0MKVcMjisbgMVywNotLCUJppIhtxfX4TS5VxR4pWnoz2xZJDKMSCn5rsi +rnppKRTZEi+k+wzTXNDcb5aU5zHyKAgEB24wdEdUfabZz7yJkMoOdDN/4c7 emPptTXanQwZJrGvU1M8EFk3P/ePPRlU37k+MBg9hPrkW3dV71rzg5K8m/eC J4oUfP8v0IIMjyRrHh828UK93xWdZphkuF8vqHHqwWEUcj9bZFSVDAMhWbvF l3yRUl4DZMmToWGb2Ljz2yPoSdqgv6MkGTgqeDvqWvyQ3AnJp73ryDAxURBx qsAftXvqn7zAQYZLfZb2jvnH0DEHe80dKyRoc2B5I2YfgB4ZpJ1p/UGCTxZf QuwPByI/rfv0mBkSQDUR8nUhEIlLv3jH/EiCuxkb3rL+F4S8lwSZNQMkeMGb E6vdchwJPjw/f6eZBJMvehjJPiGorqzolmc9CUZy0zMFlUOR241OG5VKErg9 XncVjYaiqmiusuwCEijfnZ4/4HsSOQeo79+bQ4KYsARmgWE44nYz4xXPIoFQ JknAfv0p5LTltGfyBRKo3ZYdLuyOQBx6uaKWZ0lQtOF8aUVdJCpThRbuWBLE Wqs3fSmKQiycK/KxwSTgV5LZ67M7BhV0nOw/vp8E6QoCHw6Gn0ZXGSGmRXtI sDfQTkZS7gxKuh5UPmpFgohcLgq59QwKOn7kvIUxCS6XH9YSVIlHnqOHf0cZ kuDkt+iUzW/j0V6LQ4eqGCRIKUZfQ68kIELxIFJUJ4HHUqDtF81ERDu/r2SP AgmGmIMXzy8mIpVf9lLnJUkwUJ60heflOcTz1HpunpcEesc/aJ2+8h/qCzEu 6PqmBZ4MeZW52IuoY5wpyjKpBdeWpJNjt6eghp2GMRvHtSBaZptxYF8KylFh OOW8WosVE/3Fli6htAuUjtfPtODXB4sy4fRUlPCHvIGvXQuETFENr14aOtKt KhhSpwUevxWVzsekI2dDpVMlFVoQWd0T4UnNQDb5cpNjxVpgfbO6dHwiA+mH iz+yvK4F7scO+AU4ZyI2De4Q5dNa0D68TljxZhb6lcI+4XBKC1x+Pv9JjclG k8uru5KCtSBQT0fK3/sa6n7xh/Tba42fcXyT/a4bqIX567KO65o+/vwvx61v oqrCH+zu+7SAszuy+jU5B12NnB55ZqkFIdTbLytQLkqa/LSDbasWdJ8WQxt6 clGU3UStAdICwdKn+uaHbqFDpOFLt2hacJK0/VHZtTxEe/18a5i4FtTJh1Nz dxQgVeOu+2WCWjD0w0DrMXshkihpV5zg1oJHylysVY8K175VzYtWS5rA3bD7 zW3bIvR95oHXmZ+aUJnV/pJTrRi9d6h7VfdFE66oWTdOLxejDp2KMtV3mmC3 2dqeH0pRQ2aZzL4BTfDm4pKrKC1DpWzFZ5NfaELLeivRkpy7KHXglttiqyYk Xzhe37yrHDnHpYv33NEEqbO52RnR91E3XuAOu6UJYe76dCv+SoSXHZeUrmnC aPatLr7rlUgpSPZd0EVNkK7W+73+aRV673LrjkSIJgRekUARB2qRrSxHdvMx TdjjMyt4j78OtfZ7XvD20YT2HzuFxlvqUL4VKajhgCbwfi7N6DZqQF5G5UbO pmv1po1+7A98iPoXhCnchCYE/2w8xWHdhMzvH1cq19cE0gWbbjdaM9IiGXCy kTVBR3AoQzsO0LREU/dtIU24IPThp0D8I+T0UrHFep0mFHov5joKtqKnF2Ir f7NrwvhCWM7x7FZUyrH1isVvDbBKDjvyX0sb8p976vZ1RAOerIIoMu5Ao2W6 ey6/0YCdx+sbpWc60C6fi9vwCw24yeoUUZLViWhjttqX2jQgkn6QFsjTheae D85vKNEA14RN2QyV58j9nNHnkXwNOML4O+K18By9Mrs+mHBDA5q9pIe8ertR 1QPXpoFLGvBs5tE4w7IXhRR9PhsRpgHs36/S/Qxeok+HLMLVgzSgzv5Q5reG l8hRqcSv+4gGjG26e3fV5BXalOm/W8lFA+rjt53V2d+HluJ+ybRtXdOrJ//+ cGM/8jV2FDiKNYCzh8Iq6vIGDS3XrYobakBcVPpdaa4B1BgU8eGwjgbsqTez K3UbRFGu7Hf5RDUglvkijmY7jMp7zJP7+DXAlOv2wl+JEfQeJflf59IAKVf6 ps9jI2ibvDiVuqQObd8CcjLj3iHBtxrltuPq8HxiyS717DgytjiSIjukDp++ HUy3ZHmPguruBXzoU4cUfe9EpYj3qP/yJnpIpzqUvwqeOxI5gW7Y7bh/9Z46 dFNYDnXc+Yh6HyWnuhepw82jB/quMj8hNsarIO08dVjpO7aO3vcJeQkd0Ht4 WR1UGsq7+dZPIsrzo1VjkerA30c+qlozjVyZ99OLQtXBtG6W8sR3BqWWLAQH BaqDx0uhHSuqX9DCueiNHJ7qoLjthdDZ/K+oedulGs2d6tCi6mV+O2AWzVW/ vjy7VR08GyO394zOIjV1mdB6vKZ31kywYdcPlMieZ2Cppw4/yrTExDfPIRuo qvOXWct/h+hnjHl0mrp4xUBMHZwNNW5+rJtHVTeIkyyC6qAT37mwa8svJBXZ bpjKqg6jBy/be7ssoDHDgYbqSTXoO+CyMtv2B4kUyWVHvVcDEqu6wtvDi8hM yu2U+bAa+P69cQgEl9CdhSmjwR41YFnelzDhvYwCKpcb/9aogfLMid1Gu1fQ LRXj64/L1eD6hJxvi8Qq6rsUF5lcrAbc07sHhMZX0aYAAaR0Qw14uuzN0CMW zKKr2GwarwZaduoF7+LYcISEiXN8lBowgmWdSrnY8e9V93/toWrgrbnV5e1/ 7PjbywKjHb5rsUzhp3s5HHgojFJns0sNYl0PJ1UucGEHdxvH1O1q0OXmSFrK 4MYvLYMWXpmogXyb21EnQx7cqVCzwXGDGvzDMvbdSby4po2oOCitBn5RY76B PvyYcdfF5qaIGpw3k6Ec0xHAZZmx38f41OC9VJWgx7wAzvd9rHtoRRU0FinB hWnrcaqQVbHvhCoIfK59nHJOGAsu+VuUDquCi9PHjbdZRPC5iZTJr69V4YPh ZlpduAiOqenTCOxUhWu1dpdVwkTx0QMH8kLXHumHmqtp8lnieHJr1Jb6AlU4 7toluUlbAh+i5owv3VSF8135yV+bJbAT2wfFqFRVUM+37Yuel8Tb7xy5Fheq Cgka68vrk2Rw26ULRu0BqtC6mnxTiZDF+NS9t9y+qhBWOCA8/EMW61v/lPrv gCoEgcnPGm95rDYfnnHJRBUKnjH3Bpsr4ZyRaxtebVYFcd88Af/7Sli2o+mV 2AZVKLZr61pVVMYiWWwiVzRUQffmz3ea7Cp4FZ9PvsGnCo5E06LpjCoOJ5Xq jnGowhmOQbtqPzW8INL9THlFBaIMS5nGP9Twl4/CfLdnVSCDXM4xza6B3/53 9WzJaxWoN1PWy9ithV89Vip17VGBzFSzjdsmtPCz1cJe8ScqEFlSeUM3jISb jtdIxzSqAHtoXeJECRnf2v+qZE+eCug0q/8eYOri7AynXt7rKiDvvGCpNa2L 03vG55suq8BAzvV9KJuCE0xnCdJ5FfANW7qTwEHDvtoCvf8C1vgrW2Tqz9Ox h2f6/H1fFXD6vZty5QcdH7gpK+19SAUMjDfS7zoxsLUo2f2lowp8iSOdLdXT w4zlbfMFSAW+1nc2MNk24uWuGCkbfhUYOavlVSNniOc5eAhOLhXwVFfheF5q iL+hi24Nq8oQxiPpO40347H714vVfipDrShp+cQxI9yW1cBcHFQGmY/P6Qm/ CPywz8Tt7itlWEjS3Hr2JsI1gk/iPZ4rw4w3l+h6K4zvnH7T/RyUYep8l0LE PmOc5DvveqtQGc5e0ygW7TfB8fmn4h1zlaFo7JQzafMWHDXKVsyfrQyDnubd ljlbcICt8M+QZGVYPrNyZTTIFO/ZTIm3PLGG97zOZz9jK5Zb5100v0UZvuac AlM1C+zc9CxJhakMbs3q/KP1Fjg3iB5gs1EZyGe2WVfb7sAaQ0v6pZrK8OZ8 U82BZEtMLb3Q5sGvDI/k468cpVrjINe5wkucylByhKr0bMwaV4k5/te8ogR6 b7d4/8zYhTdFKtnK/lCC+3GRHPPxNniLdeW7l6+VIHvgwwFzMVscxybVytKj BHz9OfLakba4oyaigNKpBHdVlPxMJ23xTsVtR883KEH0bTEZ4rEddpgdWDK5 qQSCK/Tp5Gx77JO6Il7hrQScG82pSm37cOk2j8VRNyVwrija3WnvhL8tdQzz 71/bnz+DfKadcJDHpTxvKyUQS40afS53AEdsUKMrMZSg70pgS32hM26aTBSz 1lYC0iZD4yZbF8x6/evvU2pK0My6m3KVxRUncNY2vZFQgqwpq6o9Va5YoSzt isJvRZhLO+DdS3fHeeIHXcKnFOHSVNPW3xnuWCtKQ6N/SBHofMe2SP91x/Rd 9ZUXQBHOX//THtTtgc1+jHb/PacISS+/cMUmeeIjG8mcQ3KKYPv6sUFpiA8O 4qwvDFmvCIXCLLPn/vrg8NfmO0TYFKE7rePXTJwvPn/C86LFZwUw4P2Hva8f wcXVOdJ1FQpg1/G07+S3o/h+PLXRLl8BUiLi58rP+eMG+ybn75cVYM/YH7kO zWO469dQnkaEAlhdqT3jqh+ApzZKUjK2KUB01rVXeRcC8SxnQS/NUAEu8OQS Pp8D8Z/XG44/01aAmhC+V71bgjBPiG0du7ACbPw2G567EoS1ai5sCRqSh5dm 9PJ1/wXjw/ocjrsC5GHe/yg4/QvF/lxpi9Pu8tDvoBF+PTgMh/QrX0uwl4fB 2FrG4tcwnBCCxx9ulgdl9bBOuc8ncUFN+BEdTnngqYoMZZs/he8m8Ap2/pYD saVo96WICFzjcKXcY1oO/ro92WfDE4nbF6p/ZfXIwW1ul9XNGlH4o/6PaN4s OQggqPd4jGPwF64YldtJcqDI7ZISnRyD5/sFHxtHy0H01/ooy9EYzBGqsy7s kByEPt1ybSE2FqvVHk7/RJGDk1LX+klvT2MPg9E7ra2yUM6Izqh5GY+97hg4 bKuVhVZJPltuRgL2lb7E/qRYFpCoxt5nqQk4YNnUufuSLKx6l9e27z2LI5qL RAddZEGD06WZ+3ciTjc/EfVtWQY2hS2EMmOTcGZdt3bgdxmQ0fjyWW8pCWeR tAZ/vpeBsX8CJj+DL+AcviG9xScyYDx11nnsWDIu6zGeYr8iA8My8ix8KAW3 O/Lvkd4gA8yHzLD0k6n4Sacn6zVNGYj3fH6/4nEqfmbYfFdBVgZSFp7YTIik 4ZeyQbxqbDIwr+f4KKU8Db9796aJ0isNDoaxuwIX0/Gfw3kkMz9p4JtLOret LRMvD/ztb3eRhsYlvWqsegWvWDjEWdhJw30Zp6txZ65gDh3ed9abpeFFwPM9 LNuvYuFZ//R9PNLw9HvoLa3xLEwO27zqny8F7bIeVdmONzCMWJMnLktB9NCc sfybG9jB1MPe8ZwUOIddrvXfexOfFkwqwf5SoCCTzLSk5eDB/BFHoU1SoCxR FNphmosTX8SUVzyVBMMUgYOhWXlYwSBjSL1JEiYd/Ih/U3m46loRV1a5JNz/ 0GuduTkfjx1+eeB0hiT8KrlfJvouHxusqPLauUhCVenRD9EbC/Ancofb/JwE /OYOqOyQKcIRKUNJ3h8l4KnTwaGFiCIssvC9dviNBJyxnC30HSvCqEVK8HGj BITnxHXrlBTjDEffhowECXCga/oE25RiszgBUQMZCbi0c35gYvgefjuljEr4 JeCfzvj2Y+RyHLBL30dxVRyMhhyntA6X42yZtXPxQRy0Tady37wvx3Pl5UcG ysTh79eAkd0TFTh3xK7tpIk47Ha8P6q3rgozPjCW+jaIw+9Izv8mrKpw27Qw jaYlDirxuvXWqVX40++e7E+C4hBNztE9KF+NySI7j9sNi8GrxOC4WGYNvr/N TEU3VAy+u1DPKuXUYVMr1b2JvmLg1XSinDpbh/vs2JInDopB27aiIiGTerzg CotXzcTA97bgFauP9djoFPMFl4gYXLobIffW4AFuu7chZqxUFIpIhzcFcjVh +xrRGqMcUaC27g7acqgJf2qcm7mcJgq304z2Lj9qwjxd5Y5W4aJw8lr4KdKZ Zmz1QYfaYC4K+WaF/NZnAfdLqY+mvReBempSfhTpEf4cK840lxKBcUrUPsrz x3hd5L3vaetEoLc04y6/cDumhFnkjf0Vhu4684lz9u04xD9yXfi4MKTe25Ti MdaOufZ/HCgtFoZb56Pnbv/rwGobqk+IEMJwdLiC8c2hC2+n7iK5UIWB1Sf6 AsftLuxHnhouURaG7yoZ2q0/u3CVkrzZVi5huDQ6p2aU9hSbCsSLhPUIQWhL 7l+Vt8+w+6c990bchMB6c0UAJbEHJ4x/cyfvEYJtu5ihf8d6cPFwokToNiGg 2htHMuV78dzLxkghbSG4rtBo3Bzai9miLa4kTK6Hqw1H/4zRXmBMn3qxW2A9 8FrwZBRWvsQNGVpbJx0E4HTlsvD+5deYZ/9nD1amADgX8wo8pPdjB6WC0zLK AoBsRT8GeffjuWJV2DnDD3+dH8cO9vdjEigYVUTzQ6/nB9qF2jf4yrQYPfwO H7AV0K7tTxzEJzCrPP8SL3SGu1X4eo5g2tTgPPU6F1D9OJuVF9/j4FldkmQc Fyw+dtvxSmYC1/2OPbjiywWcEUR3FnMCm3CR259t4oIfx+ZNfWMmsK1qeKZP HyfMdt/cxsL7AZ84KLM5j48THHHZ1D35j7jhhVO0RDg7lLoYPZO3/YxXBu5W /nNlh27z/KiWE5/xljG2yQ/m7FAdWL7h6NXP+Om3YptKcXbwdSHdeTv2GQ/z LSvbVLCBxDSn6+qxSby6Nbvt3CQrXGVPaVlKnsJmVt//BPSwwrnjWw+P3Z/C iXtMdffWsMIZu6nsx/1TWMhjJkMjjhUyHrKHJSlMY5UYo8OtiqxgsdmD+bds GnudvZhdzMUK/l2jN7tfTOPi5ImeS19Z4On2i3zXfk1jvev/bXJ9wAIt23VK 1IkZHJb/zs/8FgsYfrOpHnOdwY0lermUcyxwdodKcHrcDDZrGOL958AC+lEp 1RNPZ/Dd4tuGHUYscFSNLhM5N4Olso/5XFJiAaVQL3E+6S+4Y6l3r6IMC+wk X7bXVvmC/wctV6bL "]], LineBox[CompressedData[" 1:eJwdV3c01v8Xt3f2no/nQWWUvXo+n/ctKyUp4ysZkRUqKyNRdmYhMiM7DYQ0 5CEzGmaREMkmmyT9Or9/7j2vc+85r9d9/XHPvZIOl0870VBRUfn8C//PLLbG jZ1/KaHu1/1bqudQ2UDm8mjOX4rNSADphvocCnlx4JSvy1/KcuHL024Fs0g6 yIIzZ3uX4u0j/Px95AzaOjt7Wal5l8L3dktd4fc0ekcO+diSsEtp858V0POZ Rr67RYmLhF1Ken1crYf7FHoTus4GBn8oXqd1mE5c/YHSHGI8+jj/UHhvfuuR oPuBLuiIvXP9skM5/LdD/8TtCcRJrxeXdHGH0r1X7mV8+Xdkd/MO8/eU35Td icjj/kzjaCdRhSHq2y+KhIYW1X31EdR1uc1JuOwXJUCT77Vo/DAqMDnb8sTn F6VM8ceWwI+v6Bh3eMRnhl+UOJYC9mP3h1BGag/NfoUtipfQNM0ADCIPP2eH 1xubFGsOY4aYigEE/203nmrYpAT83OzTJg2gaUFi6FXTTYo5F8MlZ67PSD3b 629n4AbFvcYy4jRHP2IJprc7p7NBSZ0wYwtO7UPDNhn1a2wbFOqhji9a4n0o QqIxWCxvnSIwdsJbQ6MX9eZz7lxqXaPMj3Z+no3sRp4Pyre4eFYpdWptPgaC 75Ei+6XwI99WKG6rNkLy/u/Qsrc8u8/jFcqIK8sjs8FO5E1+QOozWKHkEB7o q5R0oCsf843Tri1TRpv/lNxwaUfqqvaDrYbLlDZ7HZnhkTa0kS7huMm/TKk4 /jaV8Uwb8nfIDrSsXKLMHnLZvGXeilZn5QzV3v2k+E8GBP+92Ix8q0tt05x/ UoqCSxKstpvQRrC07ybVT8rhNZ8+0ZgmtMUpkftCbZFyuor0vuTxG7Sjzr2O 5c5TOsfaTdK5GhFD+FaevvcMpezUyyRR/zoUbXTlWQnbDGUP+Sx7YM8rxMS/ 0slUMk0JzXi+ZKH0CrE8mNvoGJqi0JZcZTf59QJxfBwxOqk3SbFsVYk9U1GL bqefdagY/UFpavxS9026FnE7DPhzXf1BWblsXH/+3jPEu96d3/tkgnJfN5SN kF6DBEVatv4T/E7pWL4b0f+oCmVMHGZ/8XScUkKY78rWrELCT+pJwifGKWUy tU3zrU+R2OHnxl9DxyhfOBd2l2crkc4HC8PGT6OU3VVbsYMnK5C+vYlvOOso xSSvzvDJUDk6umaYqwcjFPKfgxmGYuXISBhbf/vgKyWfxv8e4+PHyMKZdL/n 2iAlj4sjAXbKUKyXz83kmgEKP6miv9y6DL2+1nT59OJnyvoSy7PshgdIKuU8 3mP3ibKOfPSKk0vRCqVgqPtILyVYy3M13qYYyXSuvkkK6qG8cWLr3P5chM58 0ik7Vd1NMVbl27U2L0IN898DuqW7KN8bvs1SLAuRuMpR+XyuDoqTzEyF1Y18 FGk4vS0Z3k4pfX+VvpkzH83b3Xx7f62VUh6koPio4D56Gd/ufP9zE+Wa+WBc U1ceevwu6cjhQ68op+9kdRol3ENBv7pHQfw5pfKRjZhWbw4ylOEOBuoaynfO peNWYjmo86/U5euJjykO0ao7o6+z0FJ6huNyRhilfOBYZ7JCBrpGc6dFX/MC kppzGapLTkcHMs+38arfQpbHf2R7/r6LTFUG6qIOF6IA9rWIvZ/TkJez+0zz nWdosPDb4/aaOyhfS86opfIFOjywpaaidgf1sc09aflQhyaKbg2n1qag7DNq 2ucjGhG2MpZE3ZKMqKhq/p6vb0OlTBPHa6mSUMYMr9KE0VvEvTEmJJ12Gyn3 +jo4DnWgcZuD4RwHbiPHYtUWx633aJ7vWahuRyJylLFqURbqQWbnmtlvD8ch RRGWEe9vPYjrHJ/rEYU49Ifj5cbTkl40tKvzSTQ0FqX9Etqnot6P4iu4PeZU Y1Dbu8FYFdMBJNcmKH2lIwq5BnxpOys3iJJPVfe8kI9CTFJDdBG0X1DM8sFZ zpRIdCzoa0hf1RCqdGkYvu0egd7tH/W+wjuKPHNDHikZhiGP/tHynPlRVHuw TNPubSiKAs8NB4dv6HpHxbtxo1C0d95TJU57DDUIRU/etbmBXHW8Hw/NjiNJ 87A6DoNgpJmx0vnT4juKv0cRORdwDTH99J6lbfqOinKkL0qVB6EHmT575bMm 0JPOkepg+atodtn3/rXjk2iFgdDR7eCPXhqsU27XTqJEhbOFwnV+KDbnykgh aQotNRTf6hfyQ3KGfiLvf0+hNKWp1gPjvsgjzz9V7NEMespd1OtZ4I3IG5tV SoKzKItvVM9AzBuxGQX06EXMIp/WFP1XmV7o8WYAxyXrOWTgOnRVLM8TLRpf jalnW0AVFzgnHhReRPWF2yU9AQvI9ERMx6H3Hihx+2rr5MQCIigOBjz87Y4O FgfRcrxeRLrhVwgxF9zQ85D6+nL1JRSyY/dCNdIF5T3Yff/CYwl1nWjbLhxw Rjf78OGm/CVEY+9Q0KfojCxlKb8/sy+j8if6R1YXHdGvfoom1dQyChOOGPx2 zwGNU1EdZRFbQfOCbiW/eB1Qhxz8x2u6gkxsr1ZNJdqjzNCGK/soK4h/b9Pc UMI5pK3Q+NTk7ir63bEhM+Vmg9T6PqXVv11FfVXhbtdzrJFi0PxV+Z1VFEk6 mXG1/yySeSugw2S/hi6HEJU4za0Qj9OlXorsOtK+GP+ceOs/xM4WUatgs46a HYQb1GcsEEtVRlbWrXVUk3qWs9zAAlFRt5z3X1tHPxaidc9ymaP5bJG1A/Ub qH/uXvGTvtNoSkdpIHtpA8XE3sqcNz6Nxmf161hIm+irUczx1+9OoUFN74jJ 6E30mdb7/YseE9Ta185779QWmtBAn51YjVFj0MgWa8QWeunV6yGvegLVEde+ Bj7bQouSN+0aHIzQU0+JInORXyguRexpbdcxlMvmp7bnxy9kc8pJYW7OAGVW xQkFCWyjq9thY6LIAKVZ3f8zbbiNRmgbGWju6qP40nctzU+2kfKJtboLZnoo QJdkcS3gN7psamJ+mUYH+cxpas+W/UZ0gqLmm/5H0KVkY3HL4d+IVi/ExGj5 MHL6FjipcmQHfXQKO7K5COj0tS6/OdY/iD3fWt98L45OkCatzuB/0I9o0oMR Qwwd7fiNt3n+QV3pQpyx3mSEC+5lLOj/g3IGWd7n9Wsjuergu1a5u+iKsrJ1 8IgGkjmbEtTevYvcvzNdrlfQQESaB3bqdH8R9Agk/gxVR4ImfXu5L/xFAUX5 C5maaojGj++roxAVaKR/+HpnSBlZnSvrea5KBfUXft5W1FFGT4+ht2wmVKBs +jvYu1wJOUhceFYdRQVG7EQZ21RF9JJ59xFT/r+65dhYM7si4l5LLrB+TQXY XurUu4IH0Zv2utt0a1QQfT8k9ZqMAhKuOhVtyUENKRb+x75qyiPvnMngR7LU MLycapRwWg4RvTndzeypoTq02p8haz8KF3HUK/xADSfNas/kX5VBX+l/Hdqa oYbvXA+b3jdKI9WlBGUjehpQ82trqWWXRhPNtRJrh2hA8SlNouALEiKXG/Ef /Y8GmFxd1rT5SehOxhhbtjcN7NGekfQJICLdS6zbOg9oQNnXlRhzXBJlW+Yt 3W2mgVfV8nMidQS0dkRtam6UBsJN2y0OKBFQoYBdXwo/LVjvr7e9ZSKO6Bqf PvkeTgtvSowSryQII+uHBkUaubQgrfRc4ny5EKpO/ZoV95IWFr1LqCwHBJGj G0OMyjIt+L6OtArGBVCdWdb1aDY6OML4vlg3iB/xIkW/ob104FRm3gP1fKiF x+p8uC0dTPxaYuO34EXiu4tnPgfSAe/Vvx+SyniQ33S4iVwqHRCaKhqj6XiQ zOvHWG8nHQREzXuqt3OhKGdqQZIWPWi03Rpy5OVAIyZp7P5m9GBI986Bh40d qR+So++8TA9HgrIY9Nn2oEkO8xXvYnq4sNtLLyvNivDtmenWRnoYPWuZdQZj QWkTIaPCw/Sg9WJPIbMNM9J/UfruDQ8DmCkGeu5UMqJ7BVgT/0EGUDr00O7d JAPaSOh54XaMAUp84nfViQyo2GGnmDuUAfy/Ipz5ER1iZDMJdVhkgCdhtdyq DDTIcq9VgzozI5jGspjIX6RGZUcc/7JIMcIFr9I5rkEqZBwYEFx1hhGi9jCc 5g75i+fdCauL9mWEQ2LnLXO9dvGV8vjfZ28xwioUhny5+AdPm8wLpGthBJ3+ yxv613/j09QPnw+MMsJLgRy71ZRtXFusZvPRNiN89if90qn4hY+Yvr1irsgE N7Da68O7m7hM47JXcRYTJPFstT5YWMMDvv6uuPqMCdbbonsktdbwjk36JeNu JpjcW6EcHruKXzogfGmTgRk4MinGOvgK3mAo9bhTkhn6r3ZZ6+ct49xOB+Zz yczA/nfsRBDjMv4s64jbUW9m0FBNkC16+xNnqjV6IJrADLklRMajNYu4VY/F 9FIJM1jEhY2zlC3gu0zuzhnDzFDW9vd52+M5XM8vxWH2KAtIBWdWBPNP42lJ Offrz7PAT187pcs6U/j0o5JvySEsUOMdcNHFfxKP//7K9lA1C/w6qB8WuTqB j+y25HB8ZAHuzzzx5EMTuKJw19fvMyxQOtJzVzTmO95nMmEVL8EK7xTkHsWr j+MyHosZ57RZQd64aO+r1DE8IHprQNWcFZ7sGnmf3P6Gi9az/Tccywpb/sdT FopGcUc5NdMDG6xwIVF03DxoCH+mj5JpuNhA0u5i6ceoLziTg2H3Jzk2KOay +rfxB/FH6TYnr9uzAZN8luv7wc/4bpVLouk1NujQ0mtspfuMm3z0er/3LhuY 7R3r3FH/hK/RRx3vescGQkMDZvIVfbi+5O3Ywik2mPWitajc6MXTyZlvA2j2 gHjC8aUYnV6c7PPEQFJzD4iJvP157mc3Hv7tk453wR5ocDJytuf9iI+8OH4x oG4PNM8J5auxf8C1UxrSQvr3APGUdpQv53t8Sa9sJpaRHSTfXDPfq9CJG0lI 8CQR2KFj7vEHYYMOvGQrhXxXix1cT+sv+ru+xW0fBt8qcGcHwUEu0fCGNvxl xMrzBxHs4Nycf4+y0Yrz2bqMl+eww52k+NQwlVb8HecptbqP7NDa0Xmyk9KM a/tJDfWpcIDCRow8q/gbPO1kBt2QEQekL7qWc4c34sv72A+MOXHAfbOqIpmF Brx0aPPGwl0OuLcSnZufS8HpajzKVis4YLzSvVDldj1ulzjW++stB5y0Xi8s jHmN8x/ulGHY4QALq3fFjGmvcM09hH1RLJyw8harulz6Ep8M/EJmFuCE1Quz 5QVvXuBHTE86cyhygvThyMvee57jv+i1Xog4cML5P5FqchvVeLH36vt7lzhB uYDjlCNU42ajj8clgzgh+ZRicO7tKrziOZFt3x1O4Luue+u/I09xW+lhwsM8 TtgWXmf1K6jEWZPvqh14zAkMzOzlg8yVuLM7m51qKyfYTWsMRnWW47wDrT61 PZxgL5/TN1/zBH+jG3pTe5QTooTbrt9+8BgXE9+ohK1//G7sXucePsT7ukbp TshyAUNa3sxprlI8DMsU6lLngpM3ThQ3YyW4YpnZAVMdLkgl0+4x9irG48Lf /nfGmgsibAw86+YLcc2lcI+vrlxgziRzTlG1EJ+0xkPtrnDBkoRD02BoAX5E varMKZELqi+d27N7IB9fyr9Imc7kgl7rjwV8iffxexz7+txLuGC7ino1ayUP /zWd/cergQvkaAsOhKTl4hVZUSYhK1zQo74rfNkjC+/kiZrioOIGo8YNzh/n M/HJuMiQ+3u4Qcb6hKegUwYuei3iUfM+bjAQotiahd/FNdbCdSzUuYFd8pNE VW4aftoj/MuUDje4jzUEBDWn4jetw5hY7bgBi/jLyydzBy/oC83N9uCGT9n+ RFOHFLzeKFT9wFVu4PRFCn1Fyfga+YbjqVRuWFI54HXncBJ+Tiyk4W4nN7yB y/yRsQl4UGrwf/sHuYHn4ay9/4V4PG1P8OLLSW4gaI2Ka5jG4e/+BImOUPNA 0f39m4l6MfjUlaCqyxw8EHPs2aLLiZs4zeLVY9RiPDDg19F9yzYa1xwJDJDS 5AFmVZXz3lmRuKlFIMczPR7wab7dFN0agV/6EFBsYMoDfw9LYPd/heOF9f59 bpd4gOdOvEuNXxjOmXtFsbKQB/yL3KMSY67jcgJX2o485YFp/qSvWSYhuP4t X9s+Cg90zd2NjyYF49eu+8RvfuEB63exrYfmruJ3N71JMdM8kNxSTz44Gog/ vez9UniDBxYSPXMshgPwaTuvaYyLF67MRPM3bPjhtAOe1z+K88ISvb7VMS4/ XNzEk99enhd6dtLz0lWv4GZwWTfCgBfGn77er3bHB28gXMzrCOYFsQ1Ky+4T T3wo3UPDOo4X8pInl4iMnvgGp8eHhXRemNY1EgnsvITLU7vvcFbzQsGcjHaV mwduEOiWkt/IC681zcc+HHfHHZYvyKp+5IXyKrWcXQ03PH3M1fK/WV5I7Xdb WT7oiledcf05vckLrh9XeOe0XfAP3S5RV+n54BTtMYHzJ51xujfO1TkEPiBc yi5wSHHEL+c7ck5Y8MHpkDQz6xB7PDEwIzvxPB+8GZEIS/18Dn9i8mGflicf fNSYl55QP4cv7mocTozhA6OkRxMde2xx9k8e7zXT+MDS2NnJZtEaV3h8/8z3 fD4oCbT96Tt4Fvc4y+qtWccHswu3Wqvfn8HjlWF3vJ0PgmmqNGU+WeKPmK/E JvTzAf+zP01Ppv7D52pH8scX+UD6hMX9F1IWuBvv0954SX4o9bF+qLt7Go+d m7TTOMAPFOtMfEr/NF72RmR+TJsfdp7VdZqkncJnPCPpNMz4YTki7/f1oyY4 09GXt8fO8QPWwmGRY34S3yfxUzT+Ij84iSskzksb467vLdXGovjBWWumYnnq OH6zMKExLoUfZAVTKgYHjuGlQW9OqOfxg0qMh+fnXkN8ar+8c9wLfvhkxeSc O2mAO0f9TVOb/8cPoi8nrujiUTaqpG9b/NAcfMXix2MdvFj1QnksvQBkcFEW HBaO4D/Ge9pGxQWgSKbCqT70ME73ktEsVk4AlJXO7hf4BLhUEvmbqqYAyNMn h44rAu6IirdiTgmAbJuae8MyhkfwD0Wo2grAY8XRA6iTjBcucHCNugnA3g82 k5/KD+HfswL3q0YIwNis6rXKdC3cYcvIauSZAKiPhHKEjajhYR9DJ282CcDZ rpAdYQY1PL/4mbdKlwBMT8Y2Tqup4mNmhLibMwJQ3VnguPBIGaeSNxdQ2RCA jR7N2NurSjiBNrZgmEYQdlvkJ+CwEn6ucvWVsqggZL189OPa2EH8xs19R4f3 CYK3cmKJYOEBPM/Opi9aTRAiBn/Jdnsr4KN72ua/GgtCwCvfpnfKcritW6ZY dKgghDCf+XBYaS/+e5D5w3KCILgZder6npDB0w0DQ6wzBYGeOLCi7S2Nd++z HFWqEoQYHeqbOn0k/FJ6261siiCkZdOuzHGScBYmDWB8JwiWtgZO62ZEXHeK 7/7XCUGYzlLn4F8h4N8sIk8ZLAvCLxLvUOkxAh7cukb99I8g9NndsdprKoE/ K+p1iOYXgvVSywt0q6L4fsckKeWjQvDTbtfWtlYQb+2l6s82E4LZ3pen6xoF cAcdz0hGeyGoCdF18u/nx7OJJye/BgrBJZSff1+AD9dMrk8ziBKCzSp6HRc9 Xryf+oDB02QhSHAQf6oexIOzj7GVRj8UAsAr2Rv/cOEPTa5ZrtQKgWkZG+2s IRd+tGGOyaZZCDqLY/O2sjnx0NyOC8rDQnA6M4D9+mN2fM3mptwwuzDcfCdq FSvFgt9+vzlkICIMVu+fxFeLMeMKmEv8073C8P23XAONJBPuLKq/EA3CIDrT nRepy4DTxtfkrBgJwx/p+CgqR3o877eUsc0ZYbhXUpIlF0+HD36hLVf2FoaR RNFbOus0uN8xH7ucEGEgsG523FajwblfjnMwxQlD2q+oWuNgatwoo9FzuEAY PP0f8fyRpMLr/7uufLNfGNL9L9556vUbO9u2OL4yJgyXfp/xzrTaxrbUbVNs FoWh5kD7exfjX5gSP7amzCgC7ukCBqzmm9iHyEeFOTwigF2X9BJw2cDc1kXM mQgiUJMYN+kbto4V9m3XDGuKwNuOGMPnvasY6Lo5H9UTgZ5gb8ZlplVsuGqQ v+qUCGx7SHgR9Fcw/pTn/jfdRKBBlva13OclLOaUn5ZKtggkOpktSKTPY8nv ZD0ePRABw7ic9dgzc1i2weg96VoROKZaKpy+bxarwI7SCfaIgP7lgB+mC1PY y+c76kmjIpDG8I7259gk1qxSeYFlQQTQDqmGbvwHNrBf+OMOoyi4JnEp1tBM YOP/nlk/PlG4/ynOwIX4HZuXCFf9SRQFp1QL6TfHxzEq/vmMMUwUmD3jafte fMNYkvLeWR0XhaP3mTQTfo9ivGzmf3stRWFedn9hZcoIto+m3rHVRxQaXSr0 /iwPYcrB3ndRqChoX42XGHz2BSNvyXQ8TxSFvQHZk9Yxg5jJ4q2DDx+IgthO xDS7+WfM6oKug1StKLyxbG+XPvEJc5zYupPTLAru8Zvnakz6Mf8v9tu3RkUh 4/w8n3FAL3bDnF+BeUEUflb+7XHP6sFiuzrswrZFgenMpIhcezd2r1WlxZdP DGI2dZnnyV1Y6eHpzQWiGJgqyK8ZM33EntZly7ooioFP0Q3nn8Xvsdan9LfP HBcD4+yO3nmuTqxL4eWbHksx8NXoUtn5+hb7Unpp/bizGPQFXT6dUdOOLd77 bIWHikEAud5DPqEV2xKKT6hNFIN3EXu6meNaMJpUaFDMFoP811Ogc6cZ4497 IE2qFQPZVGPtgdY3GIHB1jK7WQwunX8wafCzEZMN5Y7j6xGDtImDvockGzHc P2iJcUEMvNWaPQWAgh1dOUgK3RaDwY3t27oDr7HTFyfMtxnFofJYv8i5G3WY 0/kTr+aJ4iDnrZle8OcFdmmEetFJURxmwtTfhXQ/xwLOPCOMYuIQMpN18snT Wiz+pERUt6U4jDLxONRl1mBpHb3PjzmLwza/xqvwvGosT+/mXJOPOJDSMzw9 K6uw6kPLJs8SxSHI6D+ZzpVKrP5ZUfjBbHFoM/+4a0ysxNqVrJ6VPhCHra1Q L9LZCuzr3iaRrGZxYLjZ+wr/8BibzPc35u0RB42Gbjl6n0fYkph8aMKoOASc us90du9DjI43dfL6tjio19nS774qxbgXQ9i5GSUg9d8Nufa4BJNsd1Uv5JGA /XS8Xw4/LMbwa+SodnkJiBZ6wsnUWoidsJB5YqUlASVV2eK54wWYtSLnp3k9 CZhq+MjWwVSABU58l+ayk4CrO5xyhp73sZv1708UuEuAbwjZeqQiD0tLr72i FiABEmvHtLhXc7Fqo7iWM0kSULrt7piqk4MtVis75TdJAA/fUcdPsenYn0TR BNUuCTi2kvVlN+guxnaBoab16z89Nm+GSgLSsP1iX+jm1iWAOYxK+k7yHSz7 t30aTk2ALq5FlaUnKVjBtEVZNCMBuG0frf3pS8aevoEeIV4CDNS6FyaTk7AX 5WqTDsIE4JcdVrAIvo01ZMtuPyQQwNDSKeFm/C3sox8vEVcgwFX9NPubI/HY p/PM6tEqBGj8+HXJPicOGzHZNezSIgCrNOvE7wux2LzstJeDPgEY9rjZScve xNYEhiMfGhEg1cfo8D3RaOw3XU/G2mkCuPR61z0QjsJYRl81RtkRYPrIt9yb GhEY17uK/o9OBHiTpDjraR6OCb4omhH0IMAj9y8yfMFh2N6UW1wPAwggbVev 9nPqBnbgRoT0WggB9uE0FFvZG5j6xUAtLJIAvaqDWdszIZiuwXn7j0kEMIk2 b3h/5BpmpGp5RTCdAN6W6jf46IMwU8kTMfb3CND86xtJvD8Qc/itXrlaRoAw QedBiWx/7MK0XAu58l9/scTxv0l+mGc/YTCylgAqit+H3VOuYNfLWagFm//N 4/F2cfOZDxaV/ZfXvoMARdoKBrID3lhizNq+si4CbAsmM3DQemPZ50dMyMME 6OZO8D7m64kVmvQ6Rn4nwLN7ZexVPpexh1h7wIcZAiTN983xc1zCXgo8zTu3 QQCb1i/Dsz7uWCNdSfWDHQI8sE6QZiW7Ye3LWe0rNJIQ6yIx3cV1AfvcGbkU wSEJUTomlK3vztgdPEfPnF8SPmlN2g2/dcJOV1ZnSotJQupQVLrMa0fsQ9p3 3VZZSWjxcozzeOuAxTP/zkhTkgT6ThsDfMweO3aN+6ezpiRoWHJsitHZY632 hzMY9SXBeaEN1rptsYg+y8XPRpLwZaRed9fUBjti4KlTaioJ94p2tfSmz2L1 8rkLR+0lIT7t1H5p3TPYtdxnR4RcJSHPQOu1FIslps394e7MJUlQ+W2boDBq gT3b3Dkce00Szt15FRFfZYb5uvHetQqXhHQGJu3blaaY8rDcvGysJLz+KhW1 +eo09uSNVVrnXUkI6n2pk7tqgnmoec9l3ZOEs9JzfO0SJphsaQx4FEmC3sk2 3PCRMVac8HyWrUoSWG5ZK4lRjmOOVF1o+IUkWCSfOe52/hhG9Jm687jhn5+W QliYoCF2z5IfGX+QhOCRAw4zlfqYdafCHfF+STgZFxH56o4eJozrzSwO/fPr +dUwm0hdLI3km3JrRhJOseYEXUk4gpmlxU3bLUnCaZZBpcqCwxg3cwGmuCkJ 6u1BwQYtgCUudk910RHh9k162lcmOGZkP0O+z0qERyQu++puMsbSR5XsxU2E g/6FyeZOh7CoFwfJ3AQitDf4ZdE1amK68gZJ4zJEUEvcX+4SrYHR5NpOPlUg wj6tXi5RG3UsJCLhtukhItxJ6udMVFHFyJuFP0hHiNBMNLCYV1bBti/Uaa8d JYK25IzbV1wZ8zs5N3HHggiHYzKiWK8qYqpvaLSdbIhAWXVeP21yEFtRFb6l 5kiEz/xhffKNCtglYUOtT15E8Db1r237KovJJ5xLLA4gwopUhOnjyP3Y7F// 737XiWCTqb0ZgPZhzj+KEwQSiBApKRwXPi6NSVnWj0+lEOGV7/2OQx1S2HhH v8bzTCLMmb1400khYbYVdOOWpUTodg90bO+WxERJohr7y4lg0FQjvzZPwL6k qsT/qiFCGB9R5goPATMPclDPbCICq05mYzyVGJaWw8uw+ZYIOT1LaroFItgn Smu/aRcRZoPZp1QthDELOrkre4aJYLvdT+qeEcDSZIZ13b4Toalkx0HoLT/2 +egt3rYZIix/H4/sreHDLBNWq25sEGG/67F5uRoeLL28KHx4hwj0mDp9QSs3 NtD9n6k2LQlI/CfYsO9c2Bn+upVVDhJQNSq49hzixDI1L70x4SfBwN5c48oF duyLFSH5sSgJHs9X6R/w24NZ5UYouewngcGg5hGRVyxYZqM6dfNBErAwSQet XWHGhr5PdxHUSfCgWv8FBzBh1vtOeH45QgL5E7L98Jceyz72F2kYkuBl34o+ /Sod9tWjkuPOSRJYkm/Iua7SYjaVfOUnrEng7WLC81yABrvX2xZS5kACe1L1 mQRtamxkPdCY8cI/PWJFf7pcqDBb7ZGFhisk8Mv66HeZ8od8z/r2a7FrJMiU peWZPL1DHg05knA1jASjK5aaGZvb5HNNxfKqt0hwb09GcZTXFnmMkfXdQhYJ MNYYKY29G2QHo8vuJaUkOLbsk6TKs0Yev93LYl9DgmtNjZtRiivk8/0aZcJv SDB0w9bkwdUl8oRQtmHfBxI0dBVG7n5ZIDvaUs0kDJEgLtks/S7LHPlHvuNN g2kSnCu39DoVPE12nmrfS71OAlcVgbo/8pPkKTmFtpfUUvA+9wXLLs8E2dUz ydmXXQoE8/7MqiuMk6er1+kPiEiBU/eSBJ3vN/KFX2eKpvZKgcQ1hg9n24fJ bmHECavDUvCfypaP1vkBsgfrHPGDlRR4rwUuN6z3kl1a9pU1+kgB2x71hDDH LrLDdWelmngpyDtlRlc100G21Sp8XlokBWEeUywbvK3kM6tjKLteClhux0bQ i74hD9hXSg42/8MZhvu9DjWSLbpu0PJ3/uNfIm7mODWQzR5LtN36LAU/dq14 PStek01cbIzDl/7xidqwYqbPyR/75RUbNqSAlTXzopxULdlYd4frz44UJLrI LT2hfUY+LpnV78csDTxKJ/Jq56rI+kMD1m5Eadj3Q8nHxriC3GJYipfsk4b+ poHCKLpysu5zf8LEAWmQPibuzX7jMflwKv+EzSFpgNAV+vQnZWTySTP3U2bS IKV08fXX7iKyctPHQM0oaYh0Nsv3lsohSzxsTWOYlYavJiXSqgMxZLPc5y86 lqRB2YKWI83nJjk2pexr4qY0aNcG9P6WjCavBSUSBehlwMPBumC4KoLcYWTx ZC9BBtzJuwNsKTfIfos/Wo5ayEDL7YddfOpXyO+V6Ndj38gAJ3Gj5ifYk4Oe 65hyZO2F5xeXAsja6mTPYo9n6gf3w/cJH6Mohx+H2Gg0HA78kIWbf10IXx7E HtK7aJYqmyIPl1Wqkyq2DxwSfCF2WU/qAJA4JQJz6/u0k71vJil+PghWxUeD Fn29tE9HnVTIeaYIqxyj1glKXNqyZyPMC4OVoFCKfoZJr0Lr0yRzfoq5MswH PvWybD2i9cHhx2FuCRXonbV1Ghf5ojlGV7KVSlSBiy6vmKSEBzTXil3LhWRU gGVqIOsh+qQpNDcnKqmgAvt8Gjn613o0HX1WNg8eUgHdhsCuuLBOze3wv49P /KcCL0Q515Nn6zRlioSEY26pgJZ+aO2H2lxNLYOhLrYUFfjWUZ9YiudoGs1k R99OUwE7+a30exuZml4KhPW7OSpA/SFmg3ouTbOuRqar+KEK+EE025P425qn W1WimttU4JrLBfYb2qGaTq7r5KOdKtDfKhqq13BdM4CldrXzgwoIpjRZPDgc rJljrG3f268CEy5dP40+BWhOfwLy+HcVsGjfd/38hJfmdgDNqtPUP5xmv+oa 5Km5R6T5wcysCri+fhvob3NJU9nOQGB5WQWCGfdkH266oKlHzfzBd10FSvd7 8Ce/dNG0LOiI2NpSgUP3f7K3f3HSdNOLP3RtRwX289jdqCQ4agZPnVj5+1cF jjDPbp2NcdD8H3Pm++E= "]]}, Annotation[#, "Charting`Private`Tag$360546#3"]& ], {}}, {{}, {}, {}, {}, {}}}, \ {}, {}}, {{{{}, {}, TagBox[{ Directive[ Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF0Hk01AsbB3CEZMnMb1YzRWOpjH1fZn5LiMoWQilkSyGUihZCZWuzX5J7 r5Is0XKzJOoJkVLohhJSGFnKkgpJ7/ue8x4953zP93z++56H4x3i6CciJCTU +N/8ryOHbad//dIDof+f4Dj969uF37YjvfteOffba0xCf4Z8+e26pFSJfsFv S2h2ycPz304/tNs6Oue3S4TD8oWMflvMz0pXzl13yZTXj4OupOgs2bH+ko/q U+0lH59Ag5IHtJZcFX4p4Ka95u+9qc5rFrPVl2yVW2u3aZy75IKmo51hO1WX 7HE6ndZauG7JUbuXlUlR1i5ZSEPhofkZ5SV3n82OL+lQXPIqyb1FM2YcaDgf Ux7gckw00IAr9naVAqxKvf32sYXOah+jvsL6ejbYD4Q9alOkaO0pNHKxrGQD Karo3tqCzVoBcinLmovZ8OJjAid2Ilor9Ie5x4sUNhRsqPmch41rnXhYRHnj yQbR82GSY/tBO93qcNTnHyzoXje2Mq7RWbfRVXqbnD4LUvTtWvf/scGg+Ymf 8OV1LLgfaNvZYb3foMXkYZk8mwVSCmO1IJFl8JJ9cIWyCAuQ0pmymMnPBu/e dT3QbJODhIofaN+BDMNZ/6uqFkFyUKWxoalM45URN8L0V3A+EybvH6FlB5NM odeOO5DJhIxt/I9B6/VMXcx9nF0TmfDBRmKhfdrZNHbluRI8mAk+ioNRj5xz TN/k97qSjJkgX21VK6zF4SW0R9+6/YwBEV8qRHrCGHx5o4y3Kg8YUNUbXehe rM+/e7lI/NItBqTMx9s9G3Tg9/u/3BWbwQA/6UBO1OFE/pHngvhv8Qy4JLo5 9Z/RfL603o87AccYMHNPuU5qAPhXsmT7+oIY4PEA/cvwWTffaFFphZMnA5oa lvNMB2b4LT7G+k0ODAg+u9rLSIiEejfbePIsGBCYqXNTQF+Pzmp6Jd00ZIB5 c+D9q+0b0Avph8uVVBng9vFVl+/wDlR5PrH/DzYDRNxW9cVGH0SrPf+Ukl7J gAHvpPNPZhPRrY/vGEYLMUA4Msc6ayQPFXCbvGam6fC8+ONMklUVeiL57bm9 Q3SwPaUh6qbWhiLfJip7uujQLlXTcld1CC3cKTqw9Skd8le5m702+oFij5gr H9fQwYDWNi2uR8ZerdUwMblJh+qwp0rILhUs4NwG39I8OlDfzY1/JpliQtPO FznpdHjUdyZ3mZk9luEaUJ0RR4eNn+Lu3gjwxri1UUMrjtKBMvLAwdzpMAaK aaSoQDqUwZzcE/MEzCXhOm/anQ5+oXt2BHBysPFP9/fs2UqHgOYvKvMvSrFY p7aUbjM6HFNdl+jFAIx5b7DGzoAOlZK6s45IO1YmPzdct44OIhVbe+Vb3mMW p2UoRiw6CD+Teh/Am8a6RzhYiTQd/j6UGHvCTQQPtTfcp/CLBgWBQWoV6xBc vHxLetoUDdL/EbysvsbBc1ieD5cP0mC4+fmI3lttXDs6bPR4Jw3EeH0SMfk4 3jgUT5t8QoMeIY86VMsW32V9mfC9TwOLkOGfDmFu+PStW4GvS2nQ1D3cGnPB H0+gP860+ZsGE7OvI1NzD+HyJ948glQaTM0lJp+pjsHvvv80rn+GBoPLLvac +nYe32IlwiwKp4F/kd3oifdZeP8NuvnqABpwO4+s8LLNx48gasEpu2iwS3b6 lY/VLVw6As8Ws6fBHY0FDuv6PTyv16nh6AYa0BUEKy/21OO6g7rzr/RpQLHm lST4P8cbRsna2utpgAZYFXWEdODOU5N+Z9k0EBRku6c/6cMF31tzBCtpEDYV ipU1DOHhi2XtG0RooLi9M47p+BmXELuwPPcrFRYK3bNWtszg2VL70dmPVNC2 T5ilyS3gXMQmzKmHCj+m6daXbosQ95lqRWWtVHBCG41CTkoQNgqS71bUU0FU YPCT/6cs0asyQvWroEK2/4kFHyaVCFZ/sgWKqCDRuznIeL0c8Uv3ejQ7lwrl 7VfZR0UViGSTuIojyVTYtLe5QLJDkeAQfuPtp6gwu+F1ftaZtcQdSwtFjXAq dF0T1H2I4xLmtkrbEwKokHKqoOD4Y03ilZPIhQF3KnDJDd1daTqEn9v7esyB Cs6DnGPMJj3i226Yy7agQpa6g0nhqAER7/+X1lcjKhj7xl9wHzMimMFRflvV qJAfSx5uLTchig+555TIU2HzVxhOMuIRvOP8dnGECgLDZ5+tdvOJlhj2cm8x Kny5bCpLVkIJj4R5fu0sBZrqCix1wlFi4sKbg8xxChBB4RVvtqNEdEZVYdg7 CpAZke0BzXyCfPmPvhcvKRB/Y3nXjlYeceXKESq3kQKs/OU+5YdNCb0i5y1n 7lGgSq5uxPmZMdFwUz+6/wYFNoo527e+NyScKygVvL8pUBjxx26sRZ8Q1EyP ZaZRIPSjqorsn7pEeH07ZzqOAnmffau69mkTEk9vudoeo0AB4+xUbbQ6kd12 8XzhfgpMaosefei5nuB2Bdcv86LAtY2lLYrxykRNr+2cxzYK5AbOXv4kziFs B9W1qq0oIDdbO1Tezib6RqX8aDwK6KbR2U1edCJ0avRSqCYFZDZNMtbWkAnh 2ea2ZxwKeNwo4HLLpIjUxULxdTQKcHBGu7WlGKEklsCPlfjvv3LR75ksIeKu lP/B3h8IaO+p4D0RmcU3IpaFxhMIaLJfUph5U3gnU6Uv7QMCZc+tbKeiRnB/ BVHqRAcCMkP3k2zWf8BnVQY2b2lG4FxVETUr4g2eqF538loNAgPBQ3kOWe04 Sy+vXOgWAl8ExqK9k014iUn02M6rCCgL7X2ZKgk4n/DkVGYioHS9xbZHrRx/ bom5IkkIJKCNpJHTJbiH7erz+yMROPA1LccpNw+fcFqoexKKQJzfFHW7QSYe 7fZ2VskXgY3c8rmctLM42ata86QrAtGnn2lW9kTjV/yzfbu3INAP6SWa9odw veCISwYYAurq9V52jL14wyHXtmQdBGIUJZOXqezCXY4bio8rI8Ayy+AtaG/F h2NofCsmAoIX9yIWt5vhkpE3J9IkEfCpK3RhRerhmhGbr/YvkOHpihM2u5yV ccewAReNCTJQ1V3Lr3ZS8SPBkZLH3pNB7E5RieK8KH5pH+NB479kOJAZM/G1 dgZ74Hv7AKWRDEDpO2avMoh98LRW2V1FhkU/x7Oaxv9i4juHXt8oJsPqxfzJ UpE6jOty8tzcZTLoHQphLKbdwuwc5AjLi2RodvHkOc3nYgdt/vmSGkMGR+XF 0Yt/JWEZVrbX34WRIfaiVUisSThWZTbspr6HDJUWnOBYgQ/Wg8asPLqdDB2V /Kt9D7diQibsusdbyICsQWVf3+ZhyvrlhxGUDH+VjD8KiFyLbdKyV/XUIsOe kZL8sEkyFsQd6SnhkCGT5e0dsmoBTVY5lTxLIYNRsJJT0JUh9O6a1RYbxcmw 3q9Lr9mtDX3NrvyeMkuChby99VWbq9AFukNJ3ygJZpyXc4Qr89A1yJiHWi8J Sn3LrIW9E1FzmTNIRCsJCBMX07qeA+geCYXGhkck8DZd21B6ezuatOzeUfJd EozPa6ebNBBo2aKjhkcBCUQOq/2t5r4WfTk33l+cRYLijNF+UVsZ9NtMXPr3 JBLs0NhXeaN7ms+aXLPJIpIEApbUxuCOLj42Vv0jOYQEGJZwTyyrlu8t2Haz 14sETaq+o9LSV/hx7z97c7eR4DFb5kP/n2f4xT0J9HBLEpwVle80PLCPP/2y JpKkRoKvlIuhHbe1+SInN2fFfZSFOEpno0CnkofrjLQ7yMiCotn1Geq3O6bV Ges3fnSRAVkDXCyI5mYssXPYR5gvA2KiFu9O6Osau6wpiGVxZED7i/oDs3kJ 4+liJbAZk4YdhZYL4FhhpAryvNsnpcF76Djt+09po6xRqs6xQilYFSfeeXrX NYPDuPBq6fkV0DhR+kJK/Kyu9sibGa1ccQgd6Ezb9ElJzaL67YqfLkJgePzh 039VELmm+bbtCiwhmBsykqQ6WDL/AwdXfe0= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAGIQXcwV53fw9P/95Wssnt/fMFU8LE154aWam/sZoOD4 mZtdxsE37GF8K92DmwKmf4bzmcpE76RIMjjA+Ow8AY1J79jg/OYH15yLFvPC +RtmtwXUfRKE8/MXpQg8CROF8+OyZsm2N0rA+Z2BZZbGc6ThfBaRqc/qf8nB +ddPt35o4VeE80Ork8xmHVaC83O4Xyudi1KB8+VXH5vG9koVzq/e4RzMP1sd zi9YlrPNTF8TzudhMk/Se6oF57vmhkzVmqwD50vslM13VdGD8ycVdUw0uK4P 5we1+evO3WYA52tFt4QuqTWE868941w0OdQIzj+X9NRRSN4Yzn/IsvzHVCUE /8uyjPWSagi+5OvXMoq6CH5K8afv+tYI/q/m/2t9wxF8taWSUp39CL6l++0L PJMRfJ+Xc9onTEPwC3UVvk6fi+Dv2ap2YdlqBD/omHHbkeMIfmrGVxuP0wh+ Bdf2z6fPIfhz/awSL19F8F9cc7B59BjJvRVMn1OfI/i80kdWvnyF4BvFu4t/ /IjguzJyniv5iuBHLD7V8uMHgp/l2mNd8wfBr33u++n/fwQfAKHJrSs= "]]}, Annotation[#, "Charting`Private`Tag$360626#1"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJxF0Hc01X/8B3Dz2te4F5drK6RCSMb9fN63rChSSlJKZiHJCil7JDRIkhH6 mlEie7zsUVmJfM2QUYmQ0dCv3zm/8/u+/nmfx3k9z+t1Xm9p28vHHJgYGBiK GRkY/ve9Pmuy/OePGjD8X81cE/o+/Os/m/KNr5dv/mcpLfffl1f+c2P0PfaJ mf/MrjQoAW/+c4KXzaGgR/+5gNHzCcO+/8zqYKgqYq36/ya9b3HNvLvn/32s KdluR6cK+DU0YS5ejgzXFjHXO1PKcNn0nbPypixHxdVk52dHlEBvh/WlybUy PtN7J6S2Hu6CfQ8GLxqlGFMMU2tND35RhG/uBSQvUyHJ7Da/Ac/TO6Bxbz2L OfPwtrNhCYLdufJwc60jM/5ogOING+YiLpIcmJudWyczyCsz7Jas1w3fBu+z izurhJXV/r31MLLgnQz0rWadz9RZ0hDjvJC3ekAa2qYiSFaaI1ouexVZh8Uk QYKYwrZEdqR5sFbm+PBKAjHOO7NdwJ3m/87QWIBJEm6O594ln7lKi/Z2uG00 KwG3SrRKWW9F0fJfPhapKJYAJuJXlb7ofNqLcOUa8ycSMDvG5lBPLKFVnag7 u5goARUpLL8ZjlXTGrebMN66KQEcvSS51JgmWuf34Sy5AAn4t81nYWnhFa2v xdmg0U0CNuNOXKv89Jb27/3NOevzErD+maEu7PQIbdIh6tamuQSYaPjOKMtP 0+b3CivdN5AAp8Q6ofCkL7Ql1uweFS0JeLAjZbGFvkrbeKfu+XqnBMRyFjwu yfpFY8huErwgIQFiVQIt3zVYMHafYxXM/BJQILW9510AN8Zn8MEqnVkC7j7a 27bMQcYoQu6/tdfEwbYod7JsmxgmNbOVPjAnDvcMJDtyqmQxhbLYAx7D4qDr F7EulboTU4kQ+8jTJQ6Rd0Kpz4zVME2Lgsg8EIfeC14P3sxpY3Q5bUX9EnHY vk+oUa/mAHZwrf31xD/i4FXR4mDKZYyZtZ68HJAkDsqVdD81gWOYZeIMP+WW OKifbOJfZD+F2Th6l5ZcFweHVfql2iPnMScNlpNH3MVh/vrD+bszTpgbIX7z k604DLc3FAf7umM+A9IpESfEQTvFPzsqzwe7kf0clzkoDoWnzU3rpQKxCB/0 oVZbHJaijBRcToZjcQZdoad2i0N46wBviUYslihkLfddUhw2KOajC9/jsbSZ z+13BMShjGc956v2Iyy7zN9lF6s4KNgxBldGZ2JFERzE9nUx+Nxt62uxNw8r s0h6bvdJDGQK1V7qU4uxOjl58z8jYsBinSdyZXc51rr28ntytxjUBvEGXz5V j3W16iVpNIrBKad7vTqKLdhA4lvtvlIxIDO2zsdEvsbGHG1HL+WIAePavkmC 6lvso8a3QI7kv/Ma2aYNO4awL4QgmX9ixCDAosrbyvgDtjpAbKEHisHqEz3j 4e2z2K/sVKeRK2IQ15L+uX3xK8ZydRenr70Y6KYG7tTPWsW4Daufkk6KQVt2 /rmxgJ8YWdj4yDMjMQivvh+NDJhwsdn334xpYtDZHRUB+9nxbeVOCTNKYmDp 2GiiJ8CH74pc0wiRFoPEVUvuGwcEcfWT4UPiZDFgLf3NrEESw2ny5IBKghhM bXE/DAmWwfXWMyVObFJBrf/Fg1ErBfxw256Gpc9UyJ0StPD+o4wffwB2MWNU EPUFx3c/1fEzTkcICr1USLh6dO8NPx3cbt9YblMTFbgLr70tXd2PO+buszAo p4KJ7K27jcyGuLPIXeaOfCrY0iVonl4m+KXoT88PpVFho0RwSKDvGO7+U/ds 110q6LLatm4xW+KerqlcR8OpQJi4n33q4VncZ3St4q0vFUqVY5WWfOxwP1Mz RwtXKpzWl6zmqbqAB9TnkYbOUSGKt2fV0foyHqjC3HDanAoBXSK8cyOeeEjG GbcxAyoYMh4VeCvhh4cLlFHPa1MhPV1wdaYiEI8K5e2Y2k0FRjmb2JU/ofit 1Qs+jtJUSFkx/XBE6SYe59AoO0+mwmU5fg6N3Nv43QFqrws7FTwKhGQKx+Lx BEPvG19/igLnzvTfH2eT8AcVXTuvLIoCOdg3f2tnOp68Q2FoZVIUqnMPml3w z8JTk4MjfAZEwSxfxtvWNBd/zDWsttkhChEcNhQloyI8K0D9w7VaURj3cdxD HXyBZy/Exm09F4UTjM1aXU7leP7ZWZ3gJ6LQf6vGKoO9Fi/sps8zJ4mCR/fa D+rPBvw5PTkx4pYobEZbnebAWvHS4hVdjkBReDxitu2ezyu8XMbk2y0PUfBs HL1T8bUHr4rPTiM6/s3Py29qDfXjtSwMh++eEgXtdZGPPRlDOHif2iSZiIJN +ySL3dVxvGnmRXYiXRQ+jFL6qEZTeOtJ7uMi6qJwXTP22mjyLN7R7sCYIi8K r6oJ/AeHvuCvteqLJKii4DTZ+Bglf8O78ylnMoiisFVsIb3s8R3vo3pwbGMS BR5GjG+c8gN/F/OqLPu7CBzm+CGYUPoHf/97m/2OeREYaTPFyTrMaMTtBv/T ERG49sbikv4hNjQ+Plin1CMCKg6DLcG7uNGk2R7X4iYRcLn1c4jGzI9mGqJF 1MtFgPOzSPP3UDKaV51uLcsXAbpWJWGmhIK+ZGFeWmki8NMuPtWkRBwtkh9I 19wVgePDW89+vJVGy+FLXXj43z6ZrMx2bjv6vmYU0OArAn6yZs5JCTvQhlPW Dj1XEehdJxnU31NCP9//Gmg9JwJ3G6kaOrgq2jKyCDMyF4F9hwxfKNXuRYzV z/a8NhCBQLZj0q2jWohlF8e4qbYITKyYHt5fjSO2VNuY3t0i8KmCZ3us9gHE SazROi4tAl6bRMuuB/qIGCg4O0AWAbSUEGEYbYT4l9wSTrH//Z8cU82NHaaI fL59/8hPCjQEH1hT7TiKKH3Si2cXKWCkd3Y86ttxRNW9lvJhkgLOk9dv/E63 RBKl/Ub2AxRQdK4aE54/g6S3K63PdFBg/r22DHXZBm1LjHxysZYCY9u28ay8 s0PybB+OfnlOgblKpQMyyk5I0Vf7j9sTCvi1nSCXEl0QjJoqTiVSIDlcxyhy 6TKy0LU7cfImBUruKXTf6PVAX3KvBr26RgGblgmWCRkfFEKMKUBuFDCxSRux 2vJDFK/HAyU2FLjglD2E+95ARUOljArmFOhVLU6oeRuM9FDHrhR9Cjw0V3q5 0BeGhp6MnuTTpECZyYFWtYNRyI1zOSRMkQInCkUce3RjEIs7oWhDjALfk4Xd NlzuoOR3okOuvBQY3qvcfok7HqnoKLN8YKSA75XbX24TE1HrY13lE6vCEJFW /3PqxkN0hmBp1TEjDNe3KsMMXFLRsotrODYkDD4884qh3x6jqN6g58WvhIEr ruVX4LUsJLHv/vD2OmHYk3/g3ciZbFSakkdIfi4MnfPMUJ+eh4yZ6vYQs4Sh VHZ/CzpSiCac+s6E3BeGQUE1u8rq58jnzUzkWqQwkPv+BNQKlCButZ8vnP2F oY2wa76j5CXKTOIdG3MVhs/bTThvZ1egfVuyHObnhEFszdn9xEo1em2nqd52 VBjurf58wZRVj2w7Dp/T0RMGX++V2rjxBrShdD76mYYwUA7Imc4pNKO4BO+X sjuEQcV9IWjtRSva9uPmxAOqMPz+OKniHdqBqs6lcXET/94bmqHh+fg1Mmt5 oRHEIAwlMQVJCuw9aEax7fzqshBMvogvGf/SiwLuDMdc+CgE/9THmo8y9iOB tcXykUEhqM/w42o2HkC5p1mmzDqFgBYq9OXkq/cIb6AQW2qEYOtYsOa1yGHU L7dbS+uZELx1++WpGDqGnGP22xdmCIHQTM2EzocJdP+kc9X9CCGIsQnQpcdN I8XaGx85/ITg1+l/7F+nzyCQiee74SIEH4X3ql4fnkMWUTk6y9ZCoOkzestW 9zP6slDt6Gj2d7/l02fBQwsoxLzn7r8HhCBsOlR97sgSolRO15juFQJVw6k1 4dffkF4YD2mfqBCU+6Zo8JK+o3/npfECbiHQkn993mV8Dbkf0bgo+UcQ9umZ mqy0baBHoufq2aYF4YZwScWLxV9IJcjz07UBQWCd5V0tU/6DWj9GCi61CwIj tzh/bSsDffn5c5f3hYKQeaneXOEoMz1KqCXx8GNBaCx8vhLylIUuETDUAPcE oarRn35GiEA3NmSi5F0VhF5m16BdZA56xqh5s9/+v/3PO6mMebx01WnVH/3q f23Eca3pHz568yd+FRUFQdhz0PAVwzV++sx696MZoiDM9FqcDVEm0RUFDnua j5BhsL0GyRcL0aspO/OKusmw15v6gS9emH5YknOco4kMTUyXLmt4Uehuu9qN IY8M1dakQMM9ovQXBnoyu6+S4e7Yq3rpYHG6romsZZQzGcprigl1hhL0fnOm uClrMuTOl2d4sUnS12xg86EeGaTL8kMS9knRI53Slb/vI0P3mez7g9FSdIrb DQeznWS482nRa8+QFD3fy/pRgQQZXi8fUjGRkabrXKP1EgTI8GLXzoh/HaTp r4OpbLasZHjPreQTlyVNPxv1g1a7QQJR6dJXssPS9MW4IQ/KFxLIuvKnn+aW oQfdr8j1HCfBRU/K698aMnT+lAdjXX0kKLgHZ4asZOiZmT5kxVYSLCi8mWm+ KkNXyzthHF5JArdf/sNpsTL05mfqQRNP/863sm43SZGhnygjlek8JkFCcHUU ZMnQZ2qWPyfGk+Cn9Zzj17++2tQrvRxBgoNvtHYP/s2zdz4/aeJPgtR9V+RC 42ToD3tux+ZeIoH9qQQeZj8ZuuKgWxPzeRIoHbRduHxGhl4zarJ59jgJwvRr Fz9pytBNpncpVxmSYNIwVjyVKEMf+8TlIKhDgqsF7bzlo9J092+fkt2VSLCU d/Wee7Y0nXGjo+eVNAnORxZos1+Upt/byiXIC5IgzTJ0qXG7NF2WNYoWwk6C 4/7ebp9HpOilXE4eoz8FIHpmd3lvnBR9gLJ9LH5SAKY1Th2zbpekO0mykBff CUB5x55fpXyS9I3tU0bGHQLQoLnkYnVUgi6qlvGS4bkArAnepKfWidHPmojH XrouAPLZjk/7z4rQZ4MFaYYUAaiPXKWEnhWgc15/thjPKQAr0vyj6Z78dCVf o6yJX/zQw/vk/UQMH93H7Tqn/wd+OMPuQdBJ4aEnXxSua33LD93bIjo1v3LR 6+yLr5Ba+aE/KMz41mFOOuH0x/dP8/lBOW8r8bcKG13RIjBmM4Uf8p9cOYdX sNJNj4rQDW7zg+Um1UjYlIV+39AkZ9yTHwoO7A8rymakVxyYtdrlyA82+/ov 1V1koI9gwUQ/S374uWtXHcV3C21Tf+ktgPFDTeCPAWWxH+ig8pEd55T5Qdt1 /goLdQO5Ks6PFEjzQ5ZC2lXivjV0Z3vonQ0SP+gPW+kXXl5FpVLievqEv/cZ CujLNy+j99Ty9bsbfPCkO1i1UO0b+iV0tGDsEx8wxJ5LqvJfRLo84QK+3Xyg Vlw28U7jE3Jkl2xtbuADXuaig5HDsyiaudKPv5QPRIrFk8OefkRFW8d2n83m g4uSBta5OVOob/PLRH4SHyTHs2a3d35Aa6sRCevRfFCZz6ZXTZpAoktSB/Wu 88G38QrxEoZRhH+u+nnnMh9EPuN+xCb+L7KdOf5s9DwfTKUleh30HUQRH77a Kh7ng48O543siO9Q/kiU0FUDPph0J1y0G+5DXYMynU2afMCeo5flPdyDlvtq rvPt5IPGhvm3A4JdSKjLYo+1OB+MLxSm+b/uRNodS9N5vHxgMqw4KNLfhs42 RyetMfLBxFWC82G5FsQUaJQUMccL1/kJRQy1jcjY+/ofyTe8wKobIB9wD9Bd l2LHymJe0FY7v1J2oBa9P//xzbFEXrAm59BkOyqRlKXI3i/+vKD4+Pfq66Iy dMHUJCX8HC8MdY13z38qQc/1gpkl9XghREz/jpl3MdrQfulcocAL5gGbAzMx RQjtme89ysMLL2EotaQoH0XIi2t9/kaE+xYalmq6OahL/OjjsAEi3AwfHHiM P0FC5HA2iWoiKDSv6+9LzEBnOSvdytOJMDPZ+cwgKA1lMyy8MwsjwoDyzbI5 x2S0sCaFfbpAhOjChFeiPYlIfeH4k1ATIkw6n7i0uzAeBUxFcYmrEmFtQnl0 bOkOah6q8SgTIsJDroL3NyRiEXfP0tCRnzzwoOHqo90/o9Dx1m3758d5oGNw VuS+fTh6VGOZG9LMA7HzsaG3jELQ5IsYXrE8HvCaa9OP2huIFPPA52UsDxzm M5E6eN8feaSvjpp68IDMtCumluyDqu4r6M9Z8MA3TwWuBSVPxH561o6RxgND 91N7cBN3ZCGVHSIqzQNagfMjYbku6MlH+ww1Ag/YLhuyabg6oeV8WTj8mRty XxxkV3tjh+juk2MOPdxggyddEy+zQXF7M37feMkNX5nux4UrnEEjP86JJSVz w2DTWnJ60Um0AyR0igO5wfvk13DhSXPkEz56qtOeGxyOOzqq5ZuhZuMU3ykj bhgLuDbLMHUICfCdfvBLiRuaep0Wh40Nkc07kTJBMjcwBlx7/tFFFxUlv+9X 2uQCwZTJEj9FOvp17sGK4RgXwA5rUtaoNjLebiFwvokL6t5TAzmNNFDSJ/Ie /1wuYFcNIuz1UkUzz94eiY/lghXje9SwECWk7n3P7akHF6TMGp9w2b0DhWgf jW05yQXTpy971tZuQ91/eJ+O0bhg/5CpzmOiNBJr6epcl+aCNLd7Jk8ZxZBz dOw8HxsXvEpL75tcEUIVRw6zK37hBGPu5VLdNgFEEOSS1+3lhJPyTyKdnxLR 8X879M+UcYLVIpOWGhMHykyPsvd+xAnXv43J9VqxoCV7w9C4IE7I4g+59fYm A8IVCZk5DpxgoBm4ptj/A49ZbAYw5gQtt/NiGpXf8X9LQ8eHlDlhK1Z2Zc/t b7iC/4GtZTInCHoMpoRafMG9EaM49w8OyHC6LF72dgZvZAGd7eMckGXwbFD+ 9CTO13nDCm/mAEnGotYw31H87G3M72QeB7B/ffR+KXUQf3r81wP3OA6gHoms ezrdh/8QqS676ckB48+8OjR2d+EHx/3eZVpygIuVtUA7sR1PfKK5Wo1xgAOr MG/I9iZ8+uK6wDsZDjhtltRk6VqHqyqX7fnKxgGPreKlidIVeNCqlxnbAjvI xG13KxAtwbsq1S5L9bGDsebHDAa1IpwauByrVc4O6qEa3Z/e5uAX9IqfHkth h3j+VWpecyZexuH+yiWYHdxsX2n3h6biLN1Kn8Ic2eF2rtbcZ8UH+LGEBfa0 Q+zwiG1W0k3+Hv741FP5chV2+Prty4V3jjH4VwkXgx5BdpiO7a+p3x2B06Z3 OMz/YIO2r5amJONgPDpvLpRpgg2cqS8KW+f88fduOZnUFjZ4anxl+fGsFy6n 7tigns8GlqsOx45ouONem9smTG6zQVFaYaOm6EW8oW5qy9GLDQ5Jte8NdbTD iWGZ4kGn2GDS1bErdNEaP2N0nvYQZwP1zEJ5K+JJPJ8odfqFLBvc+B3gKlR1 FN94O+b3ip0NAjeryEYah3CDh6lJ0wsESAppFMgZ0sMTzp4p/91HALcPrhEe HxE+KUsdEKogQKqJpf28lSauMj+0qpxKAC+3obSHd1Rxr6XdO4TDCPDLqeOk WNsuvGI92HrLmQD6LWwR9vpy+K+td3c/HiVAFyGOsXCvNL6foNj6WpMAGilJ rllxongEz40fJZIEmNbRTH/jTcY7yX1KjwgEkE6gSQb58+JEMTm7kAVWaJzr z+nazY4fk/V/cLGfFcj/BBPNbjHhiYpdr8yqWSEuuCGew+kXNrxHhkEzkxWO /AiJfF/+HZPS8lGXvMkKehGMklsJS5g9vfMCwZ0VdmeFKnkdnMdyDSVSFyxY 4QfbcdHv+BT2xdSjtx9jBTazZaOa/aOYikUra802VjhVZ8ZKUx/AvK1FtbO4 WMGe14wv6G0PVmXv5ha9zAK1rBbtGT4d2JZLY+aVIRb4Xlpd8pvWhB3wFBq0 BBZwSf+mU0eoxSL8nbnoOSzglOmpZDj6EusMrkPycSxwgSBrNXHlOcZ7U8CL 6M0C4ladxlhJLnb8jmPu99Ms4PhiODAjPBNLelA1MnKABU6+DBqJr3mEjaQR +Zt3sMBWhk7S3ZoETCrbVr+AjwUiC9iaKr/HYfaFZX731plBUs7CoIQUieWV chb5jTHDdCpVdHpXMPa1+uykTQszbL8UtEKK9MNUm14IHXzKDM8cFVywbx6Y TyfhkHI8M1zce62kg98Vq+q1ChTyZwa38Ju/Kc322Nb7opLfNszgaGlXtlF4 FjswwTQ3bcgMVJtyBoYMCyxi1kLstRIz/BNi6u6eb4a9+ppvViLIDMfok/QP IQcxvrWtsORfTJAzGv3J789+7PjvY5XBU0wgvm5VJWuvjSWx5Cxc6GSC6ZTw ks2jatgI109ps2ImsLv9iLEe34VJkY5Y7EtiAt70WZaY1G2Yg2hWtEQgE5hX vxM4xS2B5Uuv17E6MoEK53Ot9FFB7KvCoZUvh5kgtFtr8EIrL6aqki7fr8YE bmpPs2J52DCffSunq0WZYM9skIZSCQNWhRveyWRkguuspCeVChu0P/qPmm/O McLv3jamDx7faHomixvu3YygdpAgXaA4T4s6rrvbsowR0oLl/mhKTtJen35w HqUyQt/n+BO7ef+l8dl9vi8XxggRDFZnzrzsox13Rp08Ln/zDW1zLn2dtIdX 4rdWjzJCwyFd83rVJtqY76zqiCYjEOVW1IhXqmkyQTpOTZKMkHhfLVjjfgnN MfL2o3wCI8x6Hcs7MldAy4+b6r67wADar/I/EIazaGqptzRtqhlg+z16wzJT As33ybirYSYDyBGeMW1axtBqCtQylG4yQETtGRld7jCaXtUwx28LBqh1uqDy Zs2TVpT/j1abDgMMP57IsTV2oVEeXb54V4oBPGYEq8rTbGltP3osJUUZoKSB ZjfJcJ72P8YDmco= "]], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQXcwV53fw9P/9EStFGTYv9rdRrQ4TmPvr3/4fkr1L qmo1bQ41fuVxcP+7/+feIw7zN9+y/tNnzNb24Of+pTOCj816YGJdsHL9D0Hh z/svPZN1mh14yjIsTXnhpZqb+8Oi9E+e89xqdvzMzS7j4Bv2NTzXNnD8VTK2 0j24KWD6Z3vnm7tnbIxdosdUJnonRZLBwbJaxT8k/74mO09AY9I7Ngf7Ak+O 9m8CKs0PrjkXLeZ1qF+b+SrAYKfshtltAXWfBB32TfFJ9OawE89flCLwJEzU gU9x3evIrqn8cVmzZNsbJRzWc5nGnp52i70zsMzSeI60AwMUsIhMfVb/Sw7O v3669UMLvyKcH1qdZDbrsBKcn8P9WulclAqcL7/62DS2V6pwfvUO52D+2epw fsGynG1m+ppwPg+TeZLeUy043zU3ZKrWZB04X2KnbL6rih6cP6moY6LBdX04 P6jNX3fuNgM4Xyu6JXRJrSGcf+0Z56LJoUZw/rmkp45C8sZw/kOW5T+mKiH4 X5ZlrJdUQ/AlX7+WUdRF8FOKP33Xt0bwfzX/X+sbjuCrLZWU6uxH8C3db1/g mYzg+7yc0z5hGoJfqKvwdfpcBH/PVrULy1Yj+EHHjNuOHEfwUzO+2nicRvAr uLZ/Pn0OwZ/rZ5V4+SqC/+Kag82jx0jurWD6nPocweeVPrLy5SsE3yjeXfzj RwTflZHzXMlXBD9i8amWHz8Q/CzXHuuaPwh+7XPfT///I/gAU2DtYQ== "]]}, Annotation[#, "Charting`Private`Tag$360626#2"]& ], TagBox[{ Directive[ Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJwVV3c41t8btkdG9t77ffEuInk/5xAliaRQKrOEJCR8ZRZSSTJSWlZkFdkS jwipUEl2SsloSFIofn7/nHOd6zzXfd/P/ZxxPcrux+0Os7GwsJxcG/4/R3y2 nltd1QOhd1va+Hr3MSdOSfwa+qsHiygoLEppP9NG6N3vmkU9KLwXrRMYcYCp ZOT/7/hPPfg9RTKR9nVhPj6fwjM2oQd6IbPOz2U8mDyUtwrwQg/sf/0p273B l5kW5GoVfV0Pyl4s7jRIiWQWs57IYzHUgx2Khx+IX8hmbtxdxHVNTw902ujj p4NzmG15773oND3Yo+92SMYvlzlmYavrTtKDnsSR49tj7zAlknSrW2T1IPxT 0iMh1yLmaZnJ9ngWPVD0yR7X6ahgCvkqkhX/MeCH3khDVlcl8+Yjh8SaRQaY FUyNnfpQxax1fWI7OceAC7OMMZUNtcyv+TkDlp8Y8Nnc7emW64+YYX8GjD+8 Z0BCbkF2j3ITk2e78K2wUQZ82cGdLekMTJWvUe7Fbxlwl30ia4PUY+ZevYMz /J0M2HU18/GUTBsz6b9NQX4NDOCT9ss0/9fJbGmS/Nd9jwEmu03QpZAe5h/O X3H0bAYUa6x464r3Mik7XgmmpjKAql12Izysn2n53eR1SyIDWKtf7JvhGGIe SrmfMR/HAPWfjLSOlyPMqA0KB9SjGBDm9k5m7MQYM7M/UckhlAH1U5EOopof mFWnlj/GB6zpdeu4Hcv1kdmj4FNY48MA1Qs187clJpjTzf3HJj0YwB25GGxy YJLJediCIX2QAf3ap5QfDk8zb+2VDX/kwID4bfc7BY99ZRrs+P7EzZYBetRT v6LlZ5lduGU913YGPMi5ZqKS/4PpqZexr8iMASwH/c3jdv9krmgczbUhGJCe 8XKIj/SLmSGDv84ZMOCESLCSJ/k3kyYoaphBY0ClAff+a/sXmR2sn6ONyQyo 8Im+yN28zHT9Vd/5TpUBHgM8d0JcVpiLk0lisfIMEGc20dbfYiHaPoQaOcgw wPE26VKLGyuRMuzurCXJgLk7/Kx7KGwEucfg7nMhBhTaTXtkj7MTC0+VXtwS YIDV1cbyDS84iMct6+b8163hZ/RR7Zs5if01o8biHAwQUlVSk3nGTWiVd7h+ ZmHAys0p8ab3PMR80YO4un90UH20lPuNYx2ReCu+++BvOrzCOzh1TvATe6/6 z1Pn6XDeh63Vq0mAUEtxkmb7QYeOa+lRSTLriUdxFI/8aTqUt1E/KrAIE+ej pBJCP9OhyZJbS7JNmHD4j610+0c67Gh+s2EmTYT45tu38G2EDs+m+P7U2YgR 9Z4g2zxIh8cqg+bnNokT8a5FJqlv6ZAm9HZmhCZBKO6JPG/4kg7Xagba55EU YWusoRDdSoe5UmMzoe9yhNwGITO7ZjrszN6coUwoEJOUpSNqjXQo/kzS4shU JGJUuso7auiQYBd/39dUmbCRq+3LrKTDcOFDSQkeFUJGImfZt5wO8j4HryS8 VSEe8AZvES6mQ9Sz2c+7U9SISHZXn/ECOgj+lz8UHqlObP9neakqb03/Mc/T 609qEB9m5Qf23aJDZ4BBlfkZLUK0/4lvzmU6jJ2kTvTQdQnQzk6ITaLD2fzc zIOhFMI3KjzP8wIdlLOzRH48pxJtGnrD5Dg6MMxOWGzbRSdOhAn+4T9NhwqZ e7uOizAIpa4p0e+RdPggvVNoeIhBhJ3MsqoIpUOprXT+twR9QvPpqSPpJ+mg KPDy5a5jG4heOcczIYF0MOMpv3tyvwFBaRV4aOxLhycJg/75DhuJDyKnyK0u dFge+LzJ6A2TuOTpsDX/wJq/ZJF1omKIYNbT3RP20eFiwbYvJ10xccVt8tqO 3XRwzU8wWS9iSphVtVRRbOkQJEuJsuoyJWZ5br8UsqaDEtuznVEpm4ntZfa8 b7bSYeT+V0k1fXPiNztdvcaMDpfMggUsRbYQeY78ptdM6JAz/KP/xeIWYmXl cejBTXToaV53O2HCgnhgTZv8pEuHvAXDucLNOwiXbD6ODjIdVg/HPMsMsSb4 f00oFmnSgfqEZUtMnQ3heeOmo58yHbDqxWDtCltCdDb0hK0CHX6qt7Hpe+8i wGzPJYYsHQoNOmMGNOwImZl17QtidNgEVtGofjfRjiY+9AvTIWA8s6kgeQ8R lNK8Ui9Ih267UxWs/vZEl1GoQRTPGn40OyeblSNxOuHTHe6/NJgf3yR0JGI/ QR2G5qk/NNgpmp3vn3+AGKbeGHn2iwaKVf9ePh06SBi8tRNP/k4DI3KYea2B KzFOptADv9CguP7MV89PrkRyJK/1nika3Fw9ut/6uhsxrQ6xUuM0qM3ZxTcr 70Fk/Hc9a+kdDcS3lMtZzXgQ5i+CG4aHaaAfsPRCtvkQcStIdz6rjwauPGmR UWc9CbuWTA9SJw00A7SLW875EGq9H0fb22jw7py2bNWjo8TCR4qTZwsNeJKW k/at+hLXuFpscxtocFu54IP6veOEj6TAc9M6GpR+WG6zTPInmFqOFmNVa/m8 3U7Psg4gxixnCPn7NAgK1yFLTwQSD5w21D0spoFdcwfjb9MJ4szRKH2nuzQo d2qUjM4NIjQuimpnZNPg2EArr8y5YOJYj7GUcBoNylqPvTw6FEag93Gp95Np sEKW1BJcH04IzXUL2lykQTfF25xuG0FUih7ivBBPgzc7n3bY/Ysi4tXuRZPO 0GDEYaBza1U04bjhz3J7FA1mkzYx35+IIZYcEuc4/qMB+5EtZ4+vO0M8P9J3 LPckDZzfLw3Jj58hboUqTZkG0iB8xi0aPYklTDMr30UepQH6G60dWhBPJIwM P/9zkAZatYpzjNnzhNM3jW0ZTjTYRJQqNSolEjqr/i0bHGngMSct+5/zRaJb ibM+0JYGvQ6lMWOsyUQWfecGYWsaVHB5auLqZCJw87Wy+5Zr9ek4udMz8DIh cUi34MtmGoReVvRyZ08lJoNCVC7gtfrWi9hO96cSdXHNN0lMGhCs++ayatKI AwX2aZ4baDB69aELOeUKkTsdETOmSYOcAg3jC+2ZRNBy+99INRqQ/L0tdsxd J7byi4TKK9NA++3jtG7STWJaN9/PSYYGto5ORebNt4kGNDv1R4IGXpKDTJ3L WcTFnZsOZ4jSoNPQON7IMpugBXTt7+Vf82P991nllzkE22mpt4G8NNhQ16BX kJ1L9Ka42wlz0WCY75kzx6k84pvX18s3VqgQtfE672PLfOLUd8I3eZwK01dG J865FxE33AwnTUaoMPrmTKJeQDHR8Jp26EcfFSh2/R/Cz5cQKzWqB+w6qbCk NLQ1bfQeoUiW72drpULPX/8LigJlhMkNiT0Vj6hgsSOsQrm8jDgdzbtDrJwK OYnd4Vn8D4jcObaO1iIqLA4/XLjR+oBoPfTX7GQeFQY5RvjbzlQQXJbfjfsy qPBaIPlVrVQVcV74jfbVyLV4U9KNE3dqieIzXQXbQqmg+215UeJ2HfH8V7vq YgAVgl89GTicU08IDtbLOh2mgvAGi8zo9gaCuqMyY50LFXwT3pwWmX5E2DaW ij7cS4Xn7JJoWLKJSMnJ4pPbQYWYc1lOns+AqBDLPPt8CxXCqcVk36Bmojc+ lT0CU+EyTvo6p/qYkDgavzzCoMJBtttC0RktRKae78xtaSoUe25L4u5vIx7e OXzEVpQKZk6Jw0EN7cSwpMs4i8CaH340g5uFHYTC311Dbixr+RSm/j5+u5PA flaOIksUEPyhdaHz7jPCdcz89eOfFJihL9aZNDwncloNn6l+poDp6OUMDvZu osWAbtE7RoFqeb5HSbI9xMe75JbYQQoYBHTvDHrYs3Z/5R9+ekEBbS6Bb0UC r4hCe/bigkoK5NXkCu5ne0N0tv/V2HuPArrSsUm1L98Q00YLOTx3KWBZfr7k 890+QkdhKtP7+hp/jb3ex+P9hHXyBwmZdApsDuvhsXYdIPzYhlM6kygQGfgr rnHfIFE20XVe+zQF2F8rfhD2HiZe7u3gGj5FAX8nk4L8qBFirrP5dOJJCiTa 0SSLskYJ/fuVYV+9KPB4rD2sJWaMqA3J9Lm/kwKd21vlxXTGCZVDAXf6t1Hg xdMYSsfCOHHRdtsY6+Y1/baVT4qefiTcSQv2e/QpEOshU7zt3ATxXPxFcoQu Bebds1IeBH8mDNjynuVrUODDRJP/3WOTBN/QLtNFKQp48rkxH/43TQS3a4Wr iFDgu0fqutxLM8RYxWq1FR8F9t258bak7AtRmViqc+ufLgg2uitMin8nnBGv lNkHXXilmFGqSMwRHeQxO98hXZjbHPuZsjxHMCRrLqb36oKPwfv/nsNPgnv2 EPtkmy4celjh897jFxE4bIyEQRdkVFwcf5suEMMdIv9tqtOF2rj33/q1fhNl 2fAtsVgXTOxzFZxFFgmZpAxSdZ4uxNd5R9WJLxFxYX6H3t3UhRxCwclWdZlw 2i03SE/WBQ+v8+R2538EO2fok74gXXhvF3nQm86K/H7YsLD46ULBNrukX+9Z Uf+IujHpiC7ISRuqHb3GhkqqX5ed2qcL03TreRUFDiSRWzSTZ6cLjT39zT9n OFDMpRiNLitdWHEX2P6smRM5eFFvKCFdYMEj2U/juRHs4XpraagLpQliO9KD eRDZdET4BE0XJhOmr5cf50Wr0hfOPlHRhaNGp/dui+JDd59NBPpw60K0y8E/ u9YLIZHaR6WpLLrwdWdRdGe5EIrIS5tsWNQBbi+aTLyTMLKL2Oy8/osOxL8M 2lbXJIIavKWvbfykA4pp+d33w0WRhsPsa7dRHVgXbX7ys4kYWqbcsqzs0QFe Lk8qY0wcecqejB15qgNHicr7bx9KoB7uHU1cLTqgZye2Z/y2JMobW9TfV7XG Z3V09vhpaWSTYq+0ck0HnC8d9xisl0dhjPWWFqk6cClJsuTaiALKf9URkJyo A7QTokJXOJXQigizRSVKB6x+iz2imisjcsWvmaOhOoBuN417f1FGDrvvi1UF 6EDj53KN95kqqDRVxdPikA5YB4t7HedTQ/16w0nJB3WAPWKycvWFGuLoTa8Z cNCBhm+mo00Z6uiAGC+vr6UOHDEScB001UT86d+Lkyk6YPPz9A2LP2S0cUNh 74CmDpB9GA6Sf7XRoTfu/1SUdSBrXXuYL68uahDvs6kS1QEiy8yIczMVTVZd ClnhX9v3Pvx41YCGxBwssyy4dKDszSbv4Fc0dPRKw4+BP9rg8iey4aoMA10x CJZRndOGYIuH/0raGehxH9XMd0YbKo1UuflP6SEZydy0lRFtuHH60NSlX/qo M+OcoWqLNpBVbZ8fNtmIFgzNXH0btCHVbS4uTMMIqfT/Taiq0gbNaLsdQ2Kb UJiU/6DFXW1obO5YKuFjovxaEvvlbG0Y/6lsVi9GoFd7x7UHM7Xh+/ecMzs0 ESJdc4jwvagN6/eRbLQ3mKA9RkL5VfHaYKi77yy8MEHRA0+7VqK04Y+98PfO o6aoX5pQuhyoDS/0Yz6z1W1GCZmqLVWO2sBR/Yyt5uYWVLlpZGbFVhsuPW26 mnNkKxobvCK2bbs2OBo3cNRutEAbZdd5DjK1gcIa/s75xzZ06GFLkqqBNjw8 Vv0uaMASJe+PqPGlrvm1Y2r50dPtaPL6LM+qsjYkZOFkvtYdSIxZRN8mqw1Z lwixgi5rZDLs4XRZTBsOGPn8zP1gg67KvS1W5dYGwdb767jSbJHFzUc2276Q oTDpk5y89G40e3H4L8cEGX4IPU1/2LAbZUYuFzW/I0P3FYvXxYf3oC8uRtzG r8mgaT1zmtJhj67Y7q36/ZwMaqmPq2ROOyBsGuJR2UaGsImAzfybHVGKSlWT bj0ZDGsDrB737kVM0d5j0xVk4NLe9nWmYB/6xP5TtqCUDL8VdbZ/inFCGz/R QpWyyeCwuhVUrA6g0YISmmgCGbJ/fRFKk3NFCVefjXbHkEEqy5CckueK6Oem ExNPkSHpbpL3NM0NxfpoTXEeJ4OCQFSAvqM7ouy3yHjsRYYQcoCb3w939NbK c0uUOxnSTWPepCR7ILJuXvYfezKovnN9aDh6CPXKt+ys2rnmByVpF+/FwyhC 8MO/AEsyPJasfnLE1BP1fFd0mmGS4UGdoMaph0dQ8IPrIqOqZOgPztwlvuSD lHLrIVOeDB1bxd47Dx5FT1MH/BwlycBRztte2+yL5E5KPutZR4bx8fzwU/l+ qO2wwX8XOchwudfK3jHvODruYK+5fYUErQ4sb8Xs/dFjw9QzLT9IMGH5Jdj+ SADy1XpAj54hwdMqIvjrQgASl375jvmJBNXp+oOsFwKR15Igs7qfBO28WTHa zSeQ4KPz83ebSDD5spuR5B2MaksLcw7XkWAkOy1DUDkEud3qsFWpIIHbk3XX 0GgIqoziKr2eTwLle9PzB3z+Q87+6vv3ZpEgOjSemW8UhrjdzHnFM0kglEES sF9/CjltPn046SIJ1O7IDhd0hSMOvWxRq7MkqNM/X1JeG4FKVaGZO4YEMTbq jV8KIxEL54p8TBAJxJVk9nrvikb57f/1ndhPgjQFgY8Hw06ja4xgs8I9JNgb sFtGUu4MSrwZWDZqTYL4bC4KueUMCjxx9LylCQmulB3RElSJQ4dHj/yONCJB 7Leo5E2DcWiv5aFDlQwSJBehryFX4xGheBApqpPAYynA7otmAqKd31e8R4EE Q8yBS+cXE5DKL3up85Ik+FiWuJnn1TnE88xmbp6XBHonPmqdvnoB9Qab5Hd+ 04KTDHmVuZhLqP09U5RlUgtuLEknxWxLRvU7jKI3vNeCBJmtJgG9yShLheGU 9VoLohQT/MSWLqPUi5T2N8+1YOWjZalwWgqK/0PW52vTAiEzVM2rl4qOdqkK BtdqgcdvRaXz0WnI2UjpVHG5FkRUdYcfpqYj2zy5ybEiLbC5XVXyfjwdGYSJ P7a6qQXuxw/4+jtnIDYN7mDl01rQNrxOWPF2JvqVzD7ucEoLXH6++EmNvo4m l1d3Jgat6dHTkfLzuoG6Xv4h/fZc42ec2Gi/8xZqZv66ouOqBb/4876csLmN Kgt+sLvv0wLOroiqN+QsdC1ieuS5lRYEU++8KkfZKHFyYjvbFi3oOi2G9Luz UeTu8RpDpAWCJc8MLA7loEOk4cs5NC04Tdr2uPRGLqK9ebElVFwLauXDqNnb 85GqSeeDUkEtGPphqPWEvQBJFLcpjnOv4SlzsVY+Llhrq5oWrZc0Yblu19s7 doXo+8xDzzM/NaEps+0Vp1oR+uBQ+7r2iyZcVbNpmF4uQu065aWq7zTBbZON PT+UoPqMUpl9/ZrgxcUlV15SikrYis4mvdSE5vXWosVZ91BKf47bYosmXLl4 oq5pZxlyjk0T776rCVJns6+nRz1AXXiBOzRHE0LdDejW/BUILzsuKd3QhNHr OZ18NyuQUqDsu8BLmiBdpfd7/bNK9MEl565EsCaEX5VA4QdqkJ0sx/Wm45qw x3tW8D5/LWrpO3zRy1sT2n7sEHrfXIvyrEmB9Qc0gfdzSXqXcT3yNC4zdjbT BO7U0U99AY9Q34IwhZvQhKCfDac4bBqRxYMTSmUGmkC6aNvlRmtCWiRDTjay JugIDqVrxwKalmjsuiOkCbFCH38KxD1GTq8Um23WaUKB12K2o2ALenYxpuI3 uya8XwjNOnG9BZVwbLlq+VsDrJNCj15obkV+c8/cvo5owNNVEEUm7Wi0VHfP lbcasONEXYP0TDva6X1pK36pAbdZncKLMzsQbcxO+3KrBkTQD9ICeDrR3IuB ef1iDXCN33idofICuZ8z/jySpwFHGX9HPBdeoNfmNwfib2lAk6f0kGdPF6p8 6NrYf1kDns88fs+w6kHBhZ/PhodqAPv3a3Rfw1do4pBlmHqgBtTaH8r4Vv8K OSoV+3Yd1YCxjffurZq+Rhsz/HYpuWhAXdzWszr7e9FS7C+Z1i0a4KAn/+FI Qx/yMXEUOIY1gLObwirq8hYNLdeuihtpQGxk2j1prn7UEBj+8YiOBuypM99d 4jaAIl3Z7/GJakAy82UszW4YlXVbJPXya4AZ152FvxIj6ANK9LvJpQFSrvSN n8dG0FZ5cSp1SR1av/lnZcS+Q4KDGmV279Xh7fjS7pSz75GJ5dFk2SF1mPh2 MM2K5QMKrL3v/7FXHZINvBKUwj+gvisb6cEd6lD/OmjuaMQ4urV7+4Nr99Vh gMJyqP3uJ9TzOCnFvVAdio4d6L3GnEBsjNeB2rnqsNJ7fB29dwJ5Ch3Qe3RF HVTqy7r41k8iyotjlWMR6iDbSz6mWj2NXJkP0gpD1MGsdpby1GcGpRQvBAUG qIPHK6HtK6pf0MK5qA0ch9VBd+tLobN5X1HT1svVmjvUoVnV0+KO/yyaq3pz ZXaLOhxuiNjWPTqL1NRlQuqwOtTNmgvW7/yBEthzDa301OFHqZaY+KY5ZAuV tX4y6lD2HaKeM+bRaeriVUMxdXA20rj9qXYeVd4i/mMRVAeduI6FnZt/IamI NqMUVnUYPXjF3stlAY0Z9ddXTapB7wGXldnWP0ikUO565Ac1ILGqKwweWUTm Um6nLIbV4L+/tw6B4BK6uzBlPNCtBizL++LHvZaRf8Vyw99qNVCeObnLeNcK ylExufmkTA1Kx+V8miVWUe/l2IikIjXgnt7VL/R+FW30F0BKt9SAp9PeHD1m wSy6ik1mcWqgtVs9/10sGw6XMHWOi1QDRpCsUwkXO/696v6vLUQNvDS3uAxe YMffXuUbb/dZW8sUTNzP4sBDoZRa251qEOx6JLFigQs7uNs6pmxTg043R9JS Ojd+ZRW48NpUDeRb3Y45GfHgDoVqfUd9NVhnImPflciLq1uJ8oPSauAbOeYT 4M2PGfdcbG+LqMF5cxnKcR0BXJoR832MTw0+SFUKeswL4DyfJ7qHVlRBY5ES VJC6HqcIWRf5jKuC8OeaJ8nnhLHgkp9lybAquDh92nCHRQSfG0+e/PpGFaaM NtFqw0RwdHWvRkCHKmTV7L6iEiqKjx04kBuy9kk/1lxNlc8Ux5NbIjfX5avC CddOyY3aEvgQNev90m1VON+Zl/S1SQI7sX1UjExRBXKeXW/UvCTedvfojdgQ VYjXWF9WlyiDWy9fNG7zV117T5JuKxGyGJ+6P8jtowrRBf3Cwz9ksYHNT6kL B1QhFEx/VnvJY7X5sPTLpqpQ/Jy5N8hCCWeN3NB/vUkVxH1yBfweKGHZ9sbX YvqqULS7tXNVURmLZLKJXNVQBd3bP99psqvgVXw+6RafKuwnGhfNZlRxGKlE d4xDFc5wDOyu8lXDCyJdz5VXVCDSqIRp8kMNf/kkzHdnVgUyyWUc0+waePDC tbPFb1SgzlxZL32XFn79RKnEtVsFMlLMN2wd18LPVwt6xJ+qQFxxxS3dUBJu PFEtHd2gArwhtQnjxWScs/918Z5cFdBvUv/dz9TF19OdenhvqoC884KV1rQu Tut+P994RQX6s27uQ9cpON5sliCdVwGf0KW78Rw07KMt0PPPXwUeVTTL1J2n Y4/DafMPfFTA6fcuytUfdHzgtqy01yEVYJpsoN9zYmAbUbL7K0cV+BFLOlui p4cZy1vn85EKfK3rqGeybcDLndFStvwqMHJWy7NazgjPc/AQnFwqcFRdheNF iRH+hi651a8qQySPpM803oTHHtwsUvupDDWipOWTx41xa2Y9c3FAGWQ+vaDH /yLwo15Tt3uvlWEhUXPL2dsIVws+jfN4oQwzXlyi660xvnv6bdcLUIav5zsV wveZ4ESfedecAmW4cEOjSLTPFMflnYpzzFaG0rFTzqRNm3HkKFsR/3VlGDhs 0WWVtRn72wn/DE5ShuUzK1dHA83wnk2UOKuTyjD1otZ7P2MLllvnVTi/eQ0/ 6xSYqVli58bniSpMZXBrUucfrbPE2YF0f9sNykA7s9Wmym471hhaMijRVIbR 843VB5KsMLXkYqsHvzJ0ysddPUa1wYGucwWXOZWh+ChV6fmYDa4Uc7zQtKIE eoObvX6m78QbI5TsZH8owYPYCI75OFu82abi3as3SnC7/+MBCzE7HMsm1cLS rQR8fVny2hF2uL06PJ/SsRavouRrNmmHdyhuPXa+Xgli74jJEE92Y4fZ/iXT 20ogukKfTrpuj71TVsTLvZSAc4MFVal1Hy7Z6rE46qYEzuWFuzrsnfC3pfZh /v1KEJU3g7ynnXCgx+VcL2slkEuJHH0hdwCH66vRlRhKMHg1oLmuwBk3TiaI 2WgrAX2jkUmjnQtmvfn19yk1JWhi3UW5xuKK4zlrGt9KKEHmlHXlnkpXrFCa elXhtyLMpR7w6qG741zxgy5hU4qQPtW45Xe6O9aK1NDoG1IEA77jm6X/umP6 zrqKi6AISTf/tAV2eWDzH6Ndf88pQvKrL1wxiYfx0Q1kziE5RbB788SwJNgb B3LWFQSvV4RKYZbZc3+9cdgbi+0ibIrQldr+aybWB58/efiS5WcFMOT9h71u HsVFVVnSteUK4Nj+rPe/b8fwgzhqw+48BUgOj5srO+eH6+0bnb9fUYC9Y3/k 2jWP485fQ7ka4QpgfbXmjKuBP57aIElJ36oAMZk3XudeDMCznPk9NCMFuMST TXh/DsB/3uifeK6tAHXBfK97NgdinmC7WnZhBdjwbTYseyUQa1Vf3Bw4JA99 5vSydReC8BEDDsed/vKw4HcMnP6FYD+u1MVpd3kYcNAIuxkUioP7lG/E28vD u5gaxuLXUBwfjN8/2iQPauqhHXKf/8P51WFHdTjlQagyIoRt/hS+F88r2PFb DsSWotyXwsNxtcPVMo9pOWB1f7rPlicCty1U/crsloO73C6rmzQi8SeDH1G8 mXJwkqDe5zGJxl+4olXuJMqBMrdLclRSNJ7vE3xiEiUHZ77WRVqNRmOOEJ11 oYfkIOzZ5hsLMTFYreZI2gRFDk5J3egjDZ7GHoajd1taZKGMEZVe/SoOe941 dNhaIwstknx23Ix47CN9mf1pkSwgUY29z1Pisf+ymXPXZVlY9Sqradt7Foc3 FYoOuMiCFqdLE/fvBJxmcTLy27IMMEMXQpgxiTijtks74LsMqGh8+ay3lIgz SVoDPz/IwMd/AqY/gy7iLL4hvcWnMmA2ddZ57HgSLu02mWK/KgOjMvIsfCgZ tzny75HWlwH0iBma9l8KftpxmPWGpgycPfziQfmTFPzcqOmegqwMpC48tR0X ScWvZAN51dhkYF7P8XFyWSp+9+5tI6VHGvYZxewMWEzDf47kksx9pYFvLvHc 1tYMvNz/t6/NRRqalvSqsOpVvGLpEGu5WxqqZZyuxZ65ijl0eN/ZbJKGl/4v 9rBsu4aFZ/3S9vFIw+vvITla7zMxOXTTql+eFDyT9ai87ngLw4gNefyKFJwZ mjORf3sLO5h52DuekwL30Cs1fntv49OCicXYTwqUZJKYVrQsPJA34ii0UQqU JQpD2s2yccLL6LLyZ5KwKVngYEhmLlYwTB9Sb5SErw6+xL+pXFx5o5Ars0wS Kj/22GRsysNjR14dOJ0uCQvFD0pF3+VhwxVV3t0uklBdcuxj1IZ8PEFud5uf k4Df3P4V7TKFODx5KNHrkwR0Ox0cWggvxCIL32uG30rAWavZAp+xQoyapQSf NEhAWFZsl05xEU539KlPj5eAfXRN7yDbEmweKyBqKCMBl3fM948P38eDU8qo mF8C/um833acXIb9dxp4K66Kg/GQ45TWkTJ8XWbtXHwUB22zqey3H8rwXFnZ 0f5ScVj56j+ya7wcZ4/sbv3PVBz2OD4Y1VtXiRkfGUu9+uLwL4Lzwrh1JW6d FqbRtMRBPU63zialEk/87r4+ISgOMeQs3YPyVZgssuPE7mEx6EsIio1hVuMH W81VdEPE4IcL9axSVi02s1bdm+AjBscaT5ZRZ2tx7262pPGDYtC2tbBQyLQO L7jC4jVzMfC/I3jV+lMdNj7FfMklIgYZ98LlBg0f4tb7+tFjJaJQSDqyMYCr EdtXi1YbZ4mCfsuuwM2HGvFEw9zMlVRRuJtqvHf5cSPm6SxztA4Thf9uhJ0i nWnC1h91qPUWopBnXsBvcxZwn5T6aOoHEXhITcyLJD3Gn2PEmRZSIjBBidxH efEEr4u4/z11nQj0lqTf4xduw5RQy9yxv8LQW2sxfs6+DQf7RawLey8MKfc3 JnuMtWGu/Z/6S4qEIed81Nydf+1YTb/qpAghDP7D5YxvDp14G3UnyYUqDFze URc57nRiX/LUcLGyMPxWSddu+dmJK5XkzbdwCcPl0Tk149Rn2EwgTiS0Wwgi m7P/qgw+x+4Te+6PuAnB7k3l/pSEbhz//ps7eY8QWO9khvwd68ZFwwkSIVuF gGZvEsGU78FzrxoihLSFIFuhwaQppAezRVlejZ9cD9fqj/0Zo73EmD71cpfA euCz5EkvqHiF69O1tkw6CEBCxbLw/uU3mGf/Zw9WpgA4F/EKPKL3YQel/NMy ygKA7EQ/BXr14bkiVdgxww+rzk9iBvr6MAkUjMuj+KHv8EfaxZq3+Oq0GD3s Lh9w5tNu7E8YwCcxqzz/Ei90hbmV+xwewbSpgXnqTS6g+nI2KS9+wEGzuiTJ WC5YfuK2/bXMOK79HXNwxYcLOMOJrkzmODblIrc938gFC8fnzXyix7GdaliG dy8nzHXd3srC+xGfPCizKZePEw7i0qn78p9w/UunKIkwdihxMX4ub/cZr/Tf q/jnyg49FnmRzSc/481jbJMfLdihLqBM/9i1z/jZtyLbCnF2OOZCujs49hkP 8y0r25azgfQ0p+vq8Um8uuV667lJVrjGnty8lDSFza2///HvZoXEE1uOjD2Y wgl7zHT3VrPChd1T15/0TWEhj5l0jVhWSH/EHpqoMI1Voo2PtCiywvZNHsy/ pdPY8+yl60VcrHCyc/R218tpXJQ03n35Kws823aJ78avaax388JG14cs0LZN p1idmMGhee98LXJYwOibbdWY6wxuKNbLppxjgcTtKkFpsTPYvH6I958DC6DI 5KrxZzP4XtEdo3ZjFjimRpeJmJvBUtePe19WYgGtEE9xPukvuH2pZ6+iDAtY ka/Ya6t8wf8DVUWp2Q== "]], LineBox[CompressedData[" 1:eJwdV3c01v8Xt3f2no/nQWVlr57P532LSEnKSDIiK6msjETZWxmJECHaCEnJ Y4UomUVWRjbZJOn3Pb9/7j2vc+89r9e9f9xzr6TD1dNONFRUVN7/mf97Flvj urZ/lPBLN/0+lM+hp333l0ey/1HOD/uTbmnMoeAqxVM+Lv8oywVvT7vlzyLp QAvO7O1dipe38JvPETNo69zsVeXGXYroxy0NhT/T6BM5+MuHhF1Ks9+swBHv aeSz+yhxkbBLSa+Jq3S/NIXqQ9bZwOAvxfe0LtOJ6z9RmkOMew/nX4pA9I8u Cbqf6KKu2CfX7zsU/X+t+ifuTCBO+iNxSZd3KD175d7GF48ju+hU5vGUPxTq nxHH/ZjG0E6iKkPkj98UCU1tqocaw6jjarOT8NPflFtafO9F44dQvsm5Dy+9 f1NKlH5uCfwcRMe4w8K/MfympLDksx97OIAy7nbR7FfYovgITdP0QT9y93V2 eL+xSXHgMGaIKelDcGa77lTtJsX/12aPDqkPTQsSQ66bblLOcDFcceb6hjSy PP+1BWxQrlRYhp/m6EUsQfR253U3KBkTZmxBd3vQkE1GzRrbBoV2oPW7tngP CpeoCxLLXacIjJ7w0tTsRt15nDtXmtYo8yNt32YjOpHHk+ItLp5VSq16s7eB 4GekxH4l7PCPFYrHqo2QvN8ntOwlz+79YoUy4Mry3Ky/DXmRn5B6DFYo2YQn +qpFrejalzzjtBvLlJ+Nf4tuubQgDTX7/ibDZUqzva7M0HAz2kiXcNzkX6aU HP94l/FsM/JzyAqwLF2i/DrosnnbvAmtzsoZqn/6Rbkx6R/073Ij8il/bJvm /IvyNKgowWq7AW0ESftsUv2iHFrz7hGNaUBbnBI5VeqLlDNlpM9FL+rRjgb3 OpYzT2kbbTFJ56pDDGFbufpeM5Snp94mifpVoyija6+L2GYoPORz7AFd7xAT /0obU9E0JSTjzZKF8jvE8mRuo3VgikJbdJ3d5HcV4vgybHTyyCTFtkk19mxJ JbqTfs6hZOQnpaHue/UP6UrE7dDnx3X9J2XrqnHNhQevEe96Z173ywnKQ70Q NkJ6BRIU+bB1RnCc0r58L7z3eRnKmDjEXvVqjFJEmO/I0ipDwi9rSMInxijF MpUN802vkNihN8aDIaOUYc6F3eXZUqTbbmFY93WEQrNmK3bgZAnStzfxCWMd oZjkVhu+HChGR9cMc47AMEXv74EMQ7FiZCSMrX98MkjJo/F7wPjiBbJwJj3s utFPyeXiSICdpyjW0zs6uaKPIkoq6S22fore32i4enrxG2V9ieV1Vu0TJJVy Ae+y+0pZR95HCpMfoxVK/kDn4W5KkLbHarxNIZJpW61PCuyitDixtW1/e4TO ftV9eqq8k2Kmxrdrbf4I1c6P+3dKd1DGa3/MUiwLkLjqUfk8rlaKk8xMidWt PBRhOL0tGdZCefz5On0jZx6at4v++HCtiVIWqKD0PP8hehvf4vzwWwPllnl/ XENHLnrxKenwoYPvKKdTM9uMEh6gwN+dIyD+hlL63EZMuzsbGcpwBwF1BWWc c+m4lVg2avsndfVm4guKQ5Tazsj7TLSUnuG4nBFKKe471paskIFu0KR+0Ne6 iKTmXAaqk9OR4v0Lzbwat5Hl8Z9ZHn/uIVPVvurIQwUoiH0tfO+3NOTpfGmm MfU16i/48aKlIhXlacsZfSitQof6ttRV1VNRD9vcyw/t1Wji0e2hu5UpKOus us6F8DqErYwmUX9IRlRUFf8u1DSj50wTxyupklDGDK/yhNFHxL0xKiSddgep dPs4OA60ojGbA2EcineQY6HaB8etz2iN73WIXmsicpSx+qAi1IWszzey3xmK Q0oiLMNeP7qQ0Hk+18MKcegvx9uNV0XdaGxX96toSCxK+y20T1WjFyWXcLvP qcWg5k/9saqmfUijWVD6WmskcvX/3nxOrh8lnyrvqpKPRExSA3ThtN9RzPKB Wc6UCHQscDC4p2wAlbrUDt25FI4+7R/xusY7gjxygp8rG4Yi996R4uz5EVR5 4KmW3ccQFAkeGw4OP1B4a8mnMaMQtHfeQzVOZxTVCkVN3rO5hVx1vV4MzI6h /eah1RwGQUgrY6Xtl8U4in9AETnvfwMx/fKapW0YR8+zpS9LFQeiJ/e998pn TqDXbcPlQfLX0eyyz8MbxyfRFgOhtdPBD701WKfcqZxEKQrnCoSrfVFs9rXh AtIUWqotvN0r5IvkDH1FPv+ZQpnKU02KYz7IPdfvrtjzGfSO+1G3R74XIm9s likLzqIcvpEjBmJeiM3Iv+tI+CzybkrRf3ffE73Y9Oe4Yj2HjrsOXBfL9UCL xtdjatgW0JuLnBNPCi6jmoLtoi7/BWR6Iqb14Gd3lLh9vWlyYgHtU+r3f/bn EjpQGEjL8X4RHQu7Roi56IbeBNfUFGssofAduyq1CBeU+2T3c5X7Euo90bxd 0OeMonvwoYa8JURj75Dfo+SMLGUpf76xL6OKl/qHVxcd0e9eihbV1DIKFQ7v //HAAY1RUR1lEVtB84JuRb95HVCrHJzhNV1BJrbXy6YS7dH9kNpr+ygriH9v w9xAwnmko1D3yuTeKvrTuiEz5WaD1Hu+ptV8XEWDZWFuN7OtkVLg/HX5nVWU SjqZcb33HJL5KKDLZL+GrgYTlTnNrRCP05Vuiuw60rkc/4Z4+wxiZwuvVLBZ R40OwrUaMxaIpSwjM/P2Oqq9e46z2MACUVF/uOC3to5+LETpneMyR/NZImuK NRuod+5B4cue02hKV7kva2kDJcbevj9vfBqNzepXs5A20aBRzPH3n06hfi2v 8MmoTfSN1utzVZcJaupp4X1wagtNaKJvTqzGqC5weIs1fAvVena7y6udQNXE tcGA11toUTLartbBCL3ykHhkLvIbxaWIvarsOIZy2HzV9/z8jdxOOSnMzRmg +2VxQoEC2yhqO3RUFBmgNKuHf6cNt9EsbR0DzT19FP/404fGl9tI5cRa9UWz I8hfj2Rxw/8PumpqYn6VRhd5z2npzD79g+gERc03/Q6jK8nG4pZDfxDtkWAT o+VDyOlHwKTq4R30xSn08OYioNM3OnznWP8i9jxrffO9ODpBmrQ6i/9FP6NI T4YNMXS09Q/e7PEXfUsX4oz1IiNccC9jfu9flN3P8jm3VwfJlQfds8rZRYEq KtZBw5pI5lxKYEvnLro0znS1RkETEWme2GnQ/UPQJZD4K0QDCZr07OW++A8F PcpbuK+ljmh8+QYdhajgYHr7YOqACrI6/7TrjRoV1F/8dUdJVwW9OoY+splQ gYbpnyCvYmXkIHHxdXkkFRixE2Vs7yqht8y7z5ny/otbjo42sish7rXkfOv3 VIDtpb57T/AAqm+pvkO3RgW3HwbfvSGjgITLTkVZclBDioXfsUEteeSVPRn0 XJYahpbvGiWclkNEL85LZvbUUB5S7seQuR+FiTgeKWinhpNmlWfzrsugQfrf B7dmqGGc61nD5zpppLaUoGJETwPqvs0fKtml0URjpcTawf/wK5pEwSoSIhcb 8R89QwN7XF3WdPhJKDVjlC3L6z+sMyPp7U9EeldYt3Wf0ICOjysx5rgkyrLM XbrXSAOUcvk5kWoCWjusPjU3QgNhpi0WisoEVCBg15PCTwvW+2tsb5uII7q6 Vy/Hw2ihvsgo8VqCMLJ+ZvBIM4cWpJXfSFwoFkLldwcz497SwqJXEZVlnyBy dGOIUV2mhZvvI6yCcAFUbZZ5M4qNDowZPxfqBfIjXqTkO7CXDpyemndBDR/6 wGN1IcyWDiZ+L7HxW/Ai8d3Fs98C6ID3+r/2pKc8yHc6zETuLh0QGkrqouh4 kMz7F1h3Gx34R857aLRwoUhnakGSNj1oNt8ecOTlQMMmaex+ZvRgSPfJgYeN HWkclKNvu0oPhwMzGfTZ9qBJDvMVr0J6uLjbTS8rzYrw7Znppjp6+H3OMvMs xoLSJoJHhIfoQbtqTwGzDTPSr3r8qZ6HAdyVAjx2ShnRg3ysgf8AAygffGb3 aZIBbSR0VbkdY4Ai7/hdDSIDKnTYKeQOYQC/QYQzP6dDjGwmIQ6LDPAytJJb jYEGWe61qtVgZgTTWBYT+cvU6Olhx38sUoxw0fPxHFc/FTIO8A8qO8sIkXsY TnMH/8NzU0Oro3wY4aDYBcscz118pTj+z7nbjLAKBcHfL//F0yZzA+g+MIJu 79UN/Zt/8GnqZ2/6RhjhrUC23WrKNq4jVrH5fJsRvvmRfuuW/MaHTT9eM1di gltY5c2h3U1cpm7ZszCTCZJ4tpqeLKzh/oN/Sq6/ZoL15qguSe01vHWTfsm4 kwkm95aohMWu4lcUha9sMjADx32KsS6+gtcaSr1ok2SG3usd1vq5yzi3k+J8 DpkZ2P+NnghkXMZfZx52O+rFDJpqCbKPPv7CmSqNnogmMENOEZHxaMUibtVl Mb1UxAwWcaFjLE8X8F2mS84ZQ8zwtPnfm+YXc/gR3xSH2aMsIBV0vySIfxpP S8p+WHOBBX752Clf1Z3Cp58X/UgOZoEKL//LLn6TePz4O9uD5Szw+4B+aMTq BD68+yGb4wsLcH/jiScfnMCVhDsGx2dYIGe4655ozDjeYzJhFS/BCp8U5J7H a4zhMu6LGed1WEHe+NHed3dHcf+orT41c1Z4uWvkdXL7By5aw3ZmKJYVtvyO pyw8GsEd5dRNFTdY4WKi6Jh54AD+Wh8l03CxgaTd5cdfIr/jTA6GnV/l2KCQ y+q/jd+PP0+3OXnTng2Y5DNdP/d/w3fLXBJNb7BBq/aRuia6b7jJF8/Pe++x gdne0bYdja/4Gn3k8Y5PbCA00GcmX9KD60veiS2YYoNZT1qL0o1uPJ18/6M/ zR4QTzi+FKPbjZO9XxpIau0BMZGPv87/6sTDfnzV9crfA6+cjJzteb/gw1XH L/tX74HGOaE8dfZ2XCelNi24dw8QT+lE+nB+xpeOPJ2JZWQHyfob5nsV2nAj CQmeJAI7tM69aBc2aMWLtlLI97TZwfW0/qKf60fc9lnQ7fxL7CDYzyUaVtuM vw1fefMknB2cG/MeUDaacD5bl7HibHZITYq/G6rahH/iPKVe/YUdmlrbTrZR GnEdX6mBHlUOUNiIkWcVr8fTTmbQDRhxQPqiazF3WB2+vI9dcdSJAx6alT2S WajFHw9s3lq4xwEPVqJy8nIoOF2F+9PVEg4YK71UoHqnBrdLHO3+/ZEDTlqv FxTEvMf5D7XJMOxwgIXVp0LGtHe41h7CvkgWThj/iJVdffwWnwz4TmYW4AQq t9ni/Poq/LDpSWcOJU5QPhRx1WvPG/w3vXaViAMnXPgboS63UY4Xeq1+fnCF E1TyOU45QjluNvJiTDKQE5JPKQXl3CnDS94Q2falcgLfTb3bZw6/wm2lhwjP cjlhW3id1Te/FGdNvqeu+IITBJnZi/uZS3HnS2x2ak2cYDet2R/ZVozz9jV5 V3Zxwin57J75ipd4vV5ItM4IJ0QKN9+88+QFLia+UQpb//G7sXuef/YM7+kY oTshywUMabkzp7ke46HYfaEODS44eetEYSNWhCs9NVM01eWCXDLtHmPPQjwu 7OOZs9ZcEG5j4FE9X4BrLYW5D7pywXEmmfNKagX4pDUeYneNC5YkHBr6Q/Lx wxplT50SuaD8yvk9u4p5+FLeZcr0fS7otv6Sz5f4EH/Asa/nUhEXbJdRr2au 5OK/p7P+etZygRxtvmJwWg5ekhlpErzCBV0au8JX3TPxNp7IKQ4qbjCq2+D8 eeE+PhkXEfxwDzfIWJ/wEHTKwEVvhD9v3McNBkIUW7Owe7jmWpiuhQY3sEt+ lSjLScNPu4d9n9LlBt/RWv/Axrt4tHUoE6sdN2Dh/3j5ZFLx/J6QnCx3bvia 5Uc0dUjBa4xCNBSvc4OwD1LoeZSMr5FvOZ66yw1LqoqeqYeS8PNiwbX32rih Hq7yR8Qm4IF3g87s7+cGnmez9n4X4/G0PUGLbye5gaA9Iq5pGod/+hsoOkzN A48e7t9MPBKDT10LLLvKwQMxx14vupyIxmkWrx+jFuOBPt/Wztu2UbjWcIC/ lBYPMKupXvDKjMBNLQI4Xh/hAe/GOw1RTeH4lXb/QgNTHvh3SAJ7+DsML6jx 63G7wgM8qfEuFb6hOGfONaXSAh6IenQpMjHmJi4ncK358CsemOZPGsw0Ccb1 b/vY9lB4oGPuXnwUKQi/cdM7fvM7D1h/im06OHcdv7fpRYqZ5oHkDzXkAyMB +KurXm+FN3hgO9Ej22LIH5+285zGuHjh2kwUf+2GL07b53HzizgvLNHrWx3j 8sXFTTz47eV5YXgnPTdd7RpuBlf1wg14YezV+/3qqd54LeFybmsQL4htUD7s vvTAB9LdNa3jeCE3eXKJyOiBb3C6ty+k88K0npFIQNsVXJ760g5nOS+Uzsno lLm54wYBbil5dbzwXst8tP34Jdxh+aKs2hdeKC5Tz97VdMPTR10tz8zywvNe t5XlA6542VnXX9ObvOD6ZYV3TscFb+90ibxOzwcutMcELpx0xunqncuzCXxA uJKV75DiiF/Nc+ScsOCD08FpZtbB9nhiQEZW4gU+qB+WCL377Tz+0qR9n7YH H3zRnJee0DiPL+5qHkqM4QOjpOcTrXtscfav7p+10vjA2djZyWbRGld48fDs eB4fNATY/vLpP4e7n2P10qrmg82F203ln8/i8SqwO9bCB0E0ZVoyXy3x58zX YhN6+YD/9d+Gl1Nn8LnK4byxRT6QPmHxsErKAnfjfdUdL8kPj72tn+ntnsZj 5ybtNBX5gWJ9H5/SP40/rReZH9Xhh53X1W0maafwGY8IOk0zflgOz/1z86gJ znT07Z3R8/yAfeCwyDY/ie+T+CUaf5kfnMQVEueljXHXz5bqo5H8EKY9U7I8 dRyPLkioi0vhB1nBlJL+vmP448D6Exq5/HAixt3jW7chPrVf3jmuih++WjE5 50wa4M6R/9LU5/mB65Do24lrenikjRrpxxY/NAZds/j5QhcvVLtYHEsvABlc lAWHhcP4z7Gu5hFxAaiUKXGqCTmE071lNIuVEwAV5XP7Bb4CLpVE/qGmJQDy 9MkhY0qAO6LCrZhTAiDbrH6pdhnDw/kHwtVsBeCF0ogiaiPjBQscXCNuAqDX bjP5tfggPp4ZsF8tXABGZ9VulKZr4w5bRlbDrwVAYziEI3RYHQ/9EjIZ3SAA 5zqCd4QZ1PG8wtdeqh0CMD0ZWzetroaPmhHiomcEoLwt33HhuQpOJW8uoLoh ABtdWrF3VpVxAm1s/hCNIOx+kJ+AQ8r4+dLVdyqigpD59vnPG6MH8FvR+44O 7RMEL5XEIsECRTzXzqYnSl0Qwvt/y3Z6KeAje5rnB40Fwf+dT8MnFTnc1u2+ WFSIINxlPtt+SHkv/qefuX05QRDcjNr0fE7I4OmGAcHW9wWBnti3ouMljXfu sxxRLhOEbF3qaN0eEn4lvfl2FkUQ0rJoV+Y4STgLkyYwfhIES1sDp3UzIq43 xfdwcEIQpjM1OPhXCPgPi4hTBsuC8JvEO/D4GAEPalqjfvVXEHrsUq32mkrg rx91O0TxC8H6Y8uLdKui+H7HJCmVo0Lwy27X1rZSEG/qpurNMhOC2e63p6vr BHAHXY8IRnshqAjWc/Lr5ceziCcnBwOE4ArKy3sowIdrJdekGUQKwWYZva7L EV68l1rR4FWyECQ4iL/SCOTB2UfZHkc9EwLAS9nr/nLhz0xuWK5UCoHpUzba WUMu/GjtHJNNoxC0FcbmbmVx4iE5rRdVhoTg9H1/9psv2PE1m2i5IXZhiP4k ahUrxYLf+bw5YCAiDFafX8aXizHjCphL/Ku9wjD+R66WRpIJdxbVX4gCYRCd 6cyN0GPAaeMrsleMhIFbJj6SypEez/0jZWxzVhgeFBVlysXT4f3faYtVvIRh OFH0tu46De57zNsuO1gYCKybrXfUaXDut2McTHHCkPY7stI4iBo3yqjzGMoX hlt+z3n+SlLhNWduqkT3CkO63+XUV55/sHPNi2Mro8Jw5c9Zr/tW29iWhm2K zaIwtCu2fHYx/o0p82NrKowicCldwIDVfBNrj3hekM0jApw3JT0FXDYwt3UR cyaCCFQkxk36hK5jBT3bFUNaIvCxNcbwTfcqBnpuzkePiEBXkBfjMtMqNlTW z192SgS23SU8CforGH/KG79oNxGolaV9L/dtCYs55autmiUCiU5mCxLp81jy J1n3509EwDAuez327ByWZTDyQLpSBI6pPRZO3zeLlWBH6QS7RMD6qv9P04Up 7O2bHY2kERFIY/hE+2t0EmtULb3IsiACaIdUQTf2E+vbL/xlh1EUXJO4lCpo JrCx/55ZXz5RePg1zsCFOI7NS4Sp/SKKgtNdC+n642MYFf98xigmCsIe8bQ9 VT8wlqTcT1bHReHoQyathD8jGC+b+b9uS1GYl91fUJoyjO2jqXFs8haFOpeS I3+XBzCVIK97KEQUdK7HS/S//o6Rt2Ra3ySKwl7/rEnrmH7MZPH2gWdPREFs J3ya3fwbZnVRz0GqUhTqLVtapE98xRwntlKzG0UhJH7zfIVJL+b33X779ogo ZFyY5zP278ZumfMrMC+Iwq/Sf12XMruw2I5Wu9BtUWA6Oyki19KJPWhS/eDD JwYxm3rM8+QO7PGh6c0FohiYKsivGTN9wV5VZ8m6KImB96Nbzr8KP2NNr+jv nD0uBsZZrd3zXG1Yh8Lb+i5LMfDR7FDdGfyIfX98Zf24sxj0BF49nVHRgi0+ +GaFh4jBMXKNu3xCE7YlFJ9QmSgGY+F7OpnjPmA0d6FWKUsM8t5PgW5qI8Yf 90SaVCkGsneNdfqa6jECg61lVqMYXLnwZNLgVx0mG8Idx9clBmkTB3wOStZh uF/gEuOCGHipN3oIAAU7unKAFLItBv0b23f0+t5jpy9PmG8zikPpsV6R87eq MacLJ97NE8VBzksrPf9vFXZlmHrRSUkcZkI1PgV3vsH8z74mjGDiEDyTefLl q0os/qREZKelOIww8ThU36/A0lq73xxzFodtfs13YbnlWO6R6LkGb3EgpWd4 eJSWYeUHl01eJ4pDoNEZmbaVUqzm9aOwA1ni0Gz+ZdeYWIq1KFu9fvxEHLa2 QjxJ50qwwb0NIpmN4sAQ3f0Ob3+BTeb5GfN2iYNmbaccvfdzbElMPiRhRBz8 Tz1kOrf3GUbHe3fy5rY4aFTb0u++e4xxLwazczNKwN3/bsi1F0WYZIurRgGP BOyn4/1+6Fkhht8gR7bIS0CU0EtOpqYC7ISFzEsrbQkoKssSzxnLx6yVOL/O H5GAqdovbK1M+VjAxLg0l50EXN/hlDP0eIhF13w+kX9JAnyCydbDJblYWnrl NXV/CZBYO6bNvZqDlRvFfTibJAGPty853tXNxhbLVZzyGiSAh++o49fYdOxv omiCWocEHFvJ/L4beA9ju8hQ0TT4nx6b+oEi/zRsv9h3url1CWAOpZJOTU7F sv7Yp+HUBOjgWlRdepmC5U9bPI1iJAC37fO1vz3J2Kt66BLiJUBf5aWCZHIS VlWsPukgTAB+2SEFi6A7WG2W7PYzAgEMLZ0SouNvY198eYm4AgGu66fZRw/H Y18vMGtEqRKg7svgkn12HDZssmvYoU0AaWnWiT8XY7F52WlPB30CMOxxs5OW jcbWBIYinhkR4K630aEHolHYH7qujLXTBHDp9qp+IhyJsYy8q4u0I8D04R85 0ZrhGNenkt4vTgSoT1Ka9TAPwwSrHs0IuhPg+aXvMnxBodjelNtcz/z/47Or Uf81dQtTvBUuvRZMgH04DcVW9hamcTlAG4sgQLdaf+b2TDCmZ3DB/ksSAUyi zGs/H76BGalZXhNMJ4CXpcYtPvpAzFTyRIz9AwIk/v5BEu8NwBz+aJSuPiVA pqBzv0SWH3ZxWu4DufS//EKJ4/+SfDGPXkJ/RCUBxJTGhy6lXMNuFrNQCzb+ 14/7x8XN195YZNY/XvtWAlTqKBjI9nlhiTFr+552EIBNKJmBg9YLy7owbEIe IkAnd4LXMR8PrMCk2zFinACvHzxlL/O+ij3DWvzbZwiQNN8zx89xBXsr8Cr3 /AYBbJq+D816X8Lq6IrKn+wQ4Il1gjQr2Q1rWc5sWaGRhFgXiekOrovYt7aI pXAOSYjUNaFsjTtjqXj2EXN+SZjTnrQb+uiEnS4tvy8tJglPBiLTZd47Yu1p 43pNspLwzdMxzv2jAxbP/CcjTVkS6NtsDPBRe+zYDe5fzlqSoGnJsSlGZ481 2R/KYNSXBOeFZljrtMXCeywXvxlJwvfhGr1dUxvssIGH7mNTSXjwaFf7yPQ5 rEY+Z+GovSTEp53aL613FruR8/qwkKsk5Bpov5discR0uNvvzVyRBNU/tgkK IxbY682dQ7E3JOFa6rvw+DIzzMeN955VmCSkMzDp3Ck1xVSG5OZlYyXh/aBU 5Oa709jLequ0tnuSENj9Vjdn1QRzV/eay3wgCeek5/haJEww2ccx4P5IEhxP NuOGz42xwoQ3s2xlksBy21pZjHIcc6TqQENVknA1+exxtwvHMKL3VOqL2v/m aSmEhQoaYg8s+ZFxuyQEDSs6zJTqY9ZtCqnivZJwMi484l3qEUwYPzKzOCAJ y5XXQ20i9LA0kk/K7RlJOMWaHXgt4TBmlhY3bbckCadZ+pVL8w9h3Mz5mNKm JGi0BAYZfAAscbFzqoOOCHei6WnfmeCYkf0M+SErEZ6TuOzLO8kYSw9Vsic3 Ebj9CpLNnQ5ikVUHyNwEIrTU+mbS1WlhevIGSWMyRBBN3F/sEqWJ0eTYTr5S IALS7uYStdHAgsMT7pgeJEJqUi9noqoaRt4s+Ek6TIRvRAOLeRVVbPtitc7a USLoSM64DeIqmO/JuYlUCyIcismIZL2uhKnV0+g42RCBsuq8ftrkALaiJnxb 3fG/ev7QHvk6BeyKsKH2V08ieJn6VTYPymLyCecTC/2JsCIVbvoiYj82+89v 3PcmEWzu62z6o32Y88/CBIEEIkRICseFjUljUpY1Y1MpRHjn87D1YKsUNtba q/nmPhHmzKrq2ygkzLaEbszyMRE6LwU4tnRKYqIkUc39xUQwaKiQX5snYN/v qsb/riBCKB9R5hoPATMPdNC430AEVt37dfFUYlhaNi/D5kciZHctqevli2Bf KU29ph1EmA1in1KzEMYs6OSu7Rkigu12L6lzRgBLkxnScxsnQkPRjoPQR37s 29HbvM0zRFgeH4voruDDLBNWy25tEGG/67F5uQoeLL34UdjQDhHoMQ36/CZu rK/zjKkOLQlI/CfYsHEu7Cx/9coqBwmo6hRcuw5yYve1rtSb8JNgY2+OcekC O/bdipD8QpQEL+bL9BV992BWOeHKLvtJYNCvdVjkHQt2v06DuvEACViYpAPX rjFjA+PTHQQNEjwp16/iACbMet8Jj++HSSB/QrYX/tFjWcf+IU1DErztWdGn X6XDBt1LOVJPksCSfEvOdZUWsynlKz5hTQIvFxOeNwI02IPu5uCnDiSwJ5Wf TdChxobXA4wZL/6nR+zR3w4XKsxWZ3ih9hoJfDO/+F6l/CU/sL7zXuwGCe7L 0vJMnt4hjwQfTrgeSoKRFUutjM1t8vmGQnm12yR4sCejMNJzizzKyPppIZME GGuMlObeDbKD0dVLRY9JcGzZO0mNZ408dqebxb6CBDca6jYjlVbIF3o1nwrX k2Dglq3Jk+tL5AmhLMOedhLUdhRE7H5fIDvaUs0kDJAgLtks/R7LHPlnnmO0 wTQJzhdbep4KmiY7T7XspV4ngauqQPVf+UnylJxC81tqKficU8WyyzNBdvVI cvZhlwLB3L+zGgpj5OnydXpFESlw6lySoPP5Qb74++yjqb1SIHGDof1cyxDZ LZQ4YXVICs6obnlrX+gju7POEdutpMBrLWC5dr2b7PJh39M6bymQ36OREOrY QXa46axcES8FuafM6MpmWsm22gVvHj+SglD3KZYN3iby2dVRlFUjBYp3YsPp RevJffalkv2NUsCSYbjf82Ad2aLjFi1/23/8S8TNbKdastkLiebb36Tg564V r0fJe7KJi41x2JIUsInasGKmb8hfeuWVajekgJX1/mU5qUqysd4O198dKUh0 kVt6SfuafFwys9eXWRp4lE/kVs6VkfUH+qzdiNKw76eyt41xCfmD4WO8aJ80 9Db0FUTSFZP13vgRJhSlQfqYuBf7rRfkQ3f5J2wOSoNPyAp9+sunZPJJs0un zKRBSvny+8HOR2SVhi8BWpHSEOFslucllU2WeNaUxjArDYMmRdJqfTFks5w3 Va1L0qBiQcuR5h1Njk15Opi4KQ06lf7dfySjyGuBiUQBehlwd7DOHyoLJ7ca WbzcS5CBS+TdPraUW2TfxZ8fjlrIwIc7zzr4NK6RPyvTr8fWywAncaPiF9iT A9/omnJk7oU3l5f8yToaZI9C99caB/bD+IS3UaTDz4NsNJoOij9lIfqfC+H7 k9iDRy6b3ZVNkYerquVJJduKBwWrxK4ekVIEEqdEQE5Nj06yV3SS0rcDYFV4 NHDRx1PndORJhezXSrDKMWKdoMylI3su3LwgSBkKpOhnmI6UaH+dZM5LMVeB +YBXnpZNh7XbHX4e4pZQhe5ZW6cxke9ao3RFW3eJqnDZ5R2TlHCf1lqha7GQ jCqwTPVlPkNftYTm5kQlFVRhn3cdR+9al5aj98rmgYOqoFcb0BEX2qa1Hfbv xYkzqlAlyrmePFutJfNISDjmtipo64dUtlfmaGkbDHSwpajCj9aaxMd4tpbR TFbUnTRVsJPfSn+wcV/LU4Gwfi9bFajbYzao59K0qitkOgqfqYIvRLG9jL+j dbpJNbKxWRVuuFxkv6UTouXkuk4+2qYKvU2iIUdqb2r5s1SutrWrgmBKg8WT Q0Fa2cY69t29qjDh0vHL6Ku/1vRXII+Nq4JFy76bFyY8tbb9aVadpv7Dafar roEeWntEGp/MzKqC6/uPAX42V7RU7AwElpdVIYhxT9ahhotaR6iZ233WVeHx fnf+5LcuWpb5reFbW6pw8OEv9pbvTlpuR+IP3thRhf08drdKCY5aQVMnVv79 U4V45tmtczEOWv8DLQ773w== "]]}, Annotation[#, "Charting`Private`Tag$360626#3"]& ], {}}, {{}, {}, {}, {}, {}}}, \ {}, {}}}, { DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines -> {None, None}, DisplayFunction -> Identity, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, DisplayFunction -> Identity, 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]], Method -> { "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{-20, 20}, {0., 29.465595641816233`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[ TagBox[ GridBox[{{ FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}, { FormBox[ TemplateBox[{ TagBox[ FrameBox[ StyleBox["1", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["2", Smaller, StripOnInput -> False]], "Placeholder"], TagBox[ FrameBox[ StyleBox["3", Smaller, StripOnInput -> False]], "Placeholder"]}, "LineLegend", DisplayFunction -> (StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], Opacity[1.], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"Opacity", "[", "1.`", "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ TagBox[#, HoldForm], ",", TagBox[#2, HoldForm], ",", TagBox[#3, HoldForm]}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0}}}], "Grid"], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Input", CellChangeTimes->{{3.7857223259691277`*^9, 3.7857223615311193`*^9}, { 3.785736760381329*^9, 3.785736780983971*^9}, 3.785736818067136*^9},ExpressionUUID->"e0adf15f-2d55-47ce-a854-\ ce749785d85a"] }, Open ]], Cell[CellGroupData[{ Cell["", "Section", CellChangeTimes->{{3.7877506432550898`*^9, 3.7877506447461567`*^9}},ExpressionUUID->"2c4b9d55-e2af-4f47-ab5d-\ 6af7bd5109b3"], Cell[TextData[{ "\t", StyleBox["1", FontVariations->{"CompatibilityType"->"Superscript"}], "\t", "Samanta", ",", " ", "A", ".", " ", "and", " ", "Ghosh", ",", " ", "S", ".", "K", ".", ",", " ", "1992.", " ", "Exact", " ", "results", " ", "on", " ", "diffusion", " ", "from", " ", "a", " ", "piecewise", " ", "linear", " ", "potential", " ", "well", ".", " ", "The", " ", "Journal", " ", "of", " ", "chemical", " ", "physics", ",", " ", "97", "(", "12", ")", ",", " ", "pp", ".9321", "-", "9323.", "\n", "\t", StyleBox["2", FontVariations->{"CompatibilityType"->"Superscript"}], "\t", "Privman", ",", " ", "V", ".", " ", "ed", ".", ",", " ", "2005.", " ", "Nonequilibrium", " ", "statistical", " ", "mechanics", " ", "in", " ", "one", " ", "dimension", ".", " ", "Cambridge", " ", "University", " ", "Press", ".", "\n", "\t", StyleBox["3", FontVariations->{"CompatibilityType"->"Superscript"}], "\t", "Privman", ",", " ", "V", ".", " ", "and", " ", "Frisch", ",", " ", "H", ".", "L", ".", ",", " ", "1991.", " ", "Exact", " ", "solution", " ", "of", " ", "the", " ", "diffusion", " ", "problem", " ", "for", " ", "a", " ", "piecewise", " ", "linear", " ", "barrier", ".", " ", "The", " ", "Journal", " ", "of", " ", "chemical", " ", "physics", ",", " ", "94", "(", "12", ")", ",", " ", "pp", ".8216", "-", "8219." }], "Reference", Editable->False, TaggingRules->{ReferenceNoteData -> ""}, CellChangeTimes->{3.787740330343961*^9}, CellTags->{ "00007D89", "00004AC9", "000080DE"},ExpressionUUID->"7d533f1f-9c9d-41a7-9bed-e05880913a15"], Cell[BoxData[""], "Input", CellChangeTimes->{{3.787729057939908*^9, 3.787729059123139*^9}},ExpressionUUID->"862fca63-8ea3-40b0-a84c-\ 3487e93b0c6b"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"-", SubscriptBox["k", "0"]}], RowBox[{"S", "(", "x", ")"}], RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Input",ExpressionUUI\ D->"03c31a16-9041-44e3-b755-3ad299f166b6"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["\n\t\t\t", "Subsection", FontColor->GrayLevel[0]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[PartialD]", "P"}], " ", RowBox[{"(", RowBox[{"x", ",", " ", "t"}], ")"}]}], RowBox[{"\[PartialD]", "t"}]], " ", "=", RowBox[{ RowBox[{"D", FractionBox[ RowBox[{ SuperscriptBox["\[PartialD]", "2"], "P"}], RowBox[{"\[PartialD]", SuperscriptBox["x", "2"]}]]}], "+", RowBox[{ FractionBox["1", RowBox[{ SubscriptBox["k", "B"], "T"}]], " ", RowBox[{ FractionBox["\[PartialD]", RowBox[{"\[PartialD]", "x"}]], RowBox[{"(", RowBox[{"P", FractionBox[ RowBox[{"\[PartialD]", "U"}], RowBox[{"\[PartialD]", "x"}]]}], ")"}]}]}]}]}], ","}], TraditionalForm]],ExpressionUUID->"9ed1fae2-d414-46f3-b338-027ac6e38e92"], "---(1)" }], "Section", CellChangeTimes->{{3.787729086261323*^9, 3.78772909418163*^9}, 3.787729813090188*^9, 3.7877392330879927`*^9, {3.7877396490477333`*^9, 3.787739778991027*^9}, {3.787739844262295*^9, 3.7877398443464317`*^9}, { 3.78773996512071*^9, 3.7877399749391403`*^9}, {3.787740015190959*^9, 3.78774004096327*^9}, {3.787740085872273*^9, 3.787740095593068*^9}, { 3.7877401449845543`*^9, 3.78774025339104*^9}, {3.787740290315048*^9, 3.7877402998573723`*^9}, {3.787740353068132*^9, 3.787740425891321*^9}, { 3.7877427536865253`*^9, 3.787742761019812*^9}, {3.7877436003689537`*^9, 3.7877436025818*^9}, {3.7877436664530888`*^9, 3.787743693164793*^9}, { 3.787743730118658*^9, 3.787743830743987*^9}, 3.7877439515936604`*^9, { 3.78774425261265*^9, 3.787744629591522*^9}, {3.787744881186225*^9, 3.7877451069033318`*^9}, {3.787745237532209*^9, 3.787745351212174*^9}, { 3.787745397920415*^9, 3.787745482198119*^9}, {3.78774554968762*^9, 3.787745678152631*^9}, {3.787745712248622*^9, 3.7877457487186317`*^9}, { 3.787745804006885*^9, 3.787745804026114*^9}, {3.787745962038094*^9, 3.787746207565258*^9}, {3.787746289796006*^9, 3.7877464286850863`*^9}, { 3.7877465189012737`*^9, 3.787746532305929*^9}, {3.7877467693279123`*^9, 3.787746836631421*^9}, {3.787746940332993*^9, 3.787747027148588*^9}, { 3.787747069237021*^9, 3.78774707523367*^9}, {3.787747139199849*^9, 3.787747139200123*^9}, 3.787747182413217*^9},ExpressionUUID->"c3d7718d-4de7-4ed5-8427-\ e9261b16ccda"], Cell["\<\ Solution using our transformations for the problem without the sink by random \ variable transformation\ \>", "Text", CellChangeTimes->{{3.785632867098963*^9, 3.785632878999701*^9}, { 3.785632988017473*^9, 3.785632993857538*^9}, 3.785635495962502*^9, { 3.785636651011862*^9, 3.785636656681142*^9}, {3.785639076916943*^9, 3.785639084736781*^9}},ExpressionUUID->"d21650ab-d5c6-4723-968b-\ 43af0bcb7877"], Cell["\<\ Solution using our transformations for the problem without the sink by mere \ substitution\ \>", "Text", CellChangeTimes->{{3.785632867098963*^9, 3.785632878999701*^9}, { 3.785632988017473*^9, 3.785632993857538*^9}, 3.785635495962502*^9, { 3.785636651011862*^9, 3.785636682682941*^9}, {3.7856374293572073`*^9, 3.785637433810535*^9}},ExpressionUUID->"96896beb-4350-4e81-b3cf-\ ceaedcb84cb2"], Cell[BoxData["\<\"Analytical check for x>0\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.7865838560128517`*^9},ExpressionUUID->"0d3c843f-927b-4d32-abb5-\ 731363a74833"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.786583856116316*^9},ExpressionUUID->"d0bd4a8d-df6c-4862-9a7d-\ 3d8e4b7bc5bf"], Cell[BoxData["\<\"Analytical check for x<0\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.7865838561233587`*^9},ExpressionUUID->"be31a1b9-54c9-4d6f-a565-\ c062925b1e76"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.786583856126061*^9},ExpressionUUID->"322210b1-7a24-4a8b-9646-\ c4a72c69b4fa"], Cell[BoxData["\<\"Analytical check for x==0\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.786583856129342*^9},ExpressionUUID->"9d4e43a5-002c-401a-ac3c-\ f708c4fa1e42"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.786583856132598*^9},ExpressionUUID->"b9ad3ed1-a993-4641-b2f6-\ 9d46086942f7"], Cell[BoxData["\<\"Analytical check of the total solution in piecewise regions \ x>a and x"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.7865838561430597`*^9},ExpressionUUID->"89f6067d-ef25-4bac-bf4e-\ b803b904f2da"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.7865838564508533`*^9},ExpressionUUID->"7a55d417-1f63-4cef-9adb-\ cad4e976a0c9"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.7865838567315073`*^9},ExpressionUUID->"21567cc5-e407-492c-84d5-\ 38e355158451"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.78658385684035*^9},ExpressionUUID->"e9769f02-0d95-4185-95f2-64085348bf67"], Cell[BoxData["\<\"Initial check\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.786583856844489*^9},ExpressionUUID->"e700af59-3bed-4f67-8bef-\ f72cac784853"], Cell[BoxData[ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ SuperscriptBox["\[Sigma]", "2"]]}]]], "Output", CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.786583856911235*^9},ExpressionUUID->"cf78a7ad-3399-4e12-ab32-\ 1b56aba77ab8"], Cell[BoxData["\<\"Checking the normalisation\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.786583856916583*^9},ExpressionUUID->"133ccb0f-1127-4abc-af1d-\ e6f528b73c85"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ SuperscriptBox["g", "2"], " ", SuperscriptBox["\[Sigma]", "2"]}]], " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", "x0", "+", RowBox[{"2", " ", "g", " ", SuperscriptBox["\[Sigma]", "2"]}]}], SqrtBox[ RowBox[{ RowBox[{"2", " ", "d", " ", "t"}], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "x0"}], "+", RowBox[{"g", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]], " ", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0", "+", RowBox[{"2", " ", "g", " ", SuperscriptBox["\[Sigma]", "2"]}]}], SqrtBox[ RowBox[{ RowBox[{"2", " ", "d", " ", "t"}], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}]}], ")"}]}]], "Output",\ CellChangeTimes->{3.785637460613473*^9, 3.785638671312447*^9, 3.785639494781172*^9, 3.78572066177663*^9, 3.785720694711298*^9, 3.785720834705387*^9, 3.7857209568626127`*^9, 3.7857210588303623`*^9, 3.7857211115459213`*^9, 3.785721152643132*^9, 3.785721233762352*^9, 3.785721623633222*^9, 3.7857219219429398`*^9, 3.785722022112376*^9, 3.785731970061493*^9, 3.7857322976935883`*^9, 3.785732328531843*^9, 3.7857324108039007`*^9, 3.7857324645721188`*^9, 3.785734639153832*^9, 3.78573573495286*^9, 3.7862378096129217`*^9, 3.7862379106383657`*^9, 3.786246039177476*^9, 3.786430223448286*^9, 3.786584082782722*^9},ExpressionUUID->"d6fb4ddb-b8b4-452d-88e5-\ b694e6076a59"], Cell[BoxData["\<\"If it is not normalised it is due to half part of the \ solution\"\>"], "Print", CellChangeTimes->{3.785637460709557*^9, 3.785638671404666*^9, 3.785639494853167*^9, 3.785720661811552*^9, 3.785720694810534*^9, 3.785720834818947*^9, 3.785720956962229*^9, 3.785721058943101*^9, 3.785721111667635*^9, 3.78572115267724*^9, 3.785721233863633*^9, 3.785721623742841*^9, 3.785721922042989*^9, 3.785722022224455*^9, 3.7857319701565533`*^9, 3.7857322977937613`*^9, 3.785732328627634*^9, 3.785732410906405*^9, 3.78573246468561*^9, 3.785734639234964*^9, 3.785735734983324*^9, 3.786237809742859*^9, 3.786237910552219*^9, 3.7862460391095257`*^9, 3.7864302233366213`*^9, 3.78658408284649*^9},ExpressionUUID->"4f307645-35c3-4315-a45b-b48cc9d1a603"], Cell["", "Text", CellChangeTimes->{{3.785030870912331*^9, 3.785030889849682*^9}, { 3.7850316075368032`*^9, 3.785031620333721*^9}, {3.7851124718843937`*^9, 3.78511248881417*^9}, {3.785635511910667*^9, 3.785635526165504*^9}, { 3.785635565622877*^9, 3.785635572838019*^9}, {3.785635611182865*^9, 3.785635627812454*^9}, {3.7856366053801937`*^9, 3.785636627497057*^9}, { 3.785639588199106*^9, 3.785639600671998*^9}, {3.7856396908374767`*^9, 3.785639691385641*^9}, {3.78565093717489*^9, 3.78565095662053*^9}, { 3.785654023665868*^9, 3.7856540380511637`*^9}, 3.786238681720849*^9},ExpressionUUID->"c6f213b2-b234-4be8-b961-\ 1764f31c378e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", RowBox[{"x", ",", "a"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "\[IndentingNewLine]", RowBox[{"Limit", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], ",", RowBox[{"x", "\[Rule]", "a"}]}], "]"}], "\n", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"2", RowBox[{"UnitStep", "[", "0.", "]"}]}], "-", RowBox[{"1", "\[IndentingNewLine]", RowBox[{"RealSign", "[", "0", "]"}], "\[IndentingNewLine]", RowBox[{"Sign", "[", "0", "]"}], "\n", RowBox[{"HeavisideTheta", "[", "0", "]"}], "\n", RowBox[{"RealSign", "[", "0", "]"}]}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.785751140786291*^9, 3.7857511551587753`*^9}, { 3.786242948883794*^9, 3.786242968912118*^9}, {3.7862430000419683`*^9, 3.7862430025075893`*^9}, {3.786431638810532*^9, 3.786431657271669*^9}, { 3.786431690544202*^9, 3.7864316945143642`*^9}},ExpressionUUID->"b7b8336e-f04c-4fb3-9db2-\ a4090633297a"], Cell[BoxData[ RowBox[{"2", " ", "a"}]], "Output", CellChangeTimes->{3.786431665710689*^9, 3.786431699605837*^9},ExpressionUUID->"9cc0f00a-1343-48b6-8c2e-\ d93dbe796540"], Cell[BoxData["a"], "Output", CellChangeTimes->{3.786431665710689*^9, 3.786431699614213*^9},ExpressionUUID->"6e1762d0-39f8-43e9-84ae-\ 3232f3c991ec"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"a1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}], "+", RowBox[{"b", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{"c", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p0", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}], "+", RowBox[{"0", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "I"}], " ", "g"}], RowBox[{"k", "+", RowBox[{"I", " ", "g"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "/.", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "a", "]"}], "\[Equal]", RowBox[{"y2", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "a", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "d", " ", "g", "*", RowBox[{"y2", "[", "a", "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"p0", "[", "a", "]"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.785650991528193*^9, 3.785651287385869*^9}, { 3.7856517399846897`*^9, 3.78565174450662*^9}, {3.7856535528471537`*^9, 3.785653587226942*^9}, 3.785653618260998*^9, 3.785809361565795*^9, 3.785811880374866*^9, {3.785811952173807*^9, 3.785811974589099*^9}, { 3.785812058350377*^9, 3.7858120856203337`*^9}, 3.785817354822152*^9, { 3.785817423310762*^9, 3.785817423746237*^9}},ExpressionUUID->"096045e7-f2d6-453c-a9b0-\ c832e8f9d61f"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", "g"}], RowBox[{ RowBox[{"2", " ", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}]]}], ",", FractionBox[ RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}], RowBox[{ RowBox[{"2", " ", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.785651228819407*^9, 3.7856512879095*^9}, 3.785651752472793*^9, {3.7856535750246477`*^9, 3.7856535878217688`*^9}, 3.78565361935506*^9, 3.785811882153482*^9, 3.785811976116378*^9, { 3.785812059270548*^9, 3.785812086749305*^9}, 3.7858173555431213`*^9, 3.78581742499148*^9},ExpressionUUID->"92ba23c5-3c83-4409-8576-\ da269809810a"] }, Open ]], Cell[BoxData[{ RowBox[{"Clear", "[", RowBox[{"P", ",", "d", ",", "g"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", " ", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"DiracDelta", "[", "x", "]"}]}]}], "\[Equal]", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "//", "TraditionalForm"}]}], "Input", CellChangeTimes->{{3.787826282544786*^9, 3.78782629739874*^9}},ExpressionUUID->"45fe4745-8b98-47be-9eb4-\ c048dde4b3d2"], Cell[BoxData[ FormBox["", TraditionalForm]], "Input", CellChangeTimes->{{3.78782630375784*^9, 3.787826303802681*^9}},ExpressionUUID->"fa15d585-4ec0-4984-b8ae-\ 22c42c9e23a4"], Cell[BoxData[""], "Input", CellChangeTimes->{ 3.787721087250588*^9},ExpressionUUID->"8aeb4398-351c-454f-8b52-\ 0e6403e29928"], Cell["\<\ We found the exact solution for sink placed at minimum of the potential;Let \ us analyse it\ \>", "Text", CellChangeTimes->{{3.786234474140985*^9, 3.786234503187085*^9}, { 3.7877210927885103`*^9, 3.787721106329815*^9}},ExpressionUUID->"a71be787-7707-4619-856c-\ dc9f5d10fd69"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}]}], "Input", CellChangeTimes->{{3.78659396225375*^9, 3.7865939910632067`*^9}},ExpressionUUID->"62e6dddf-3013-42db-bbf6-\ a1603bedef2c"], Cell[BoxData[ TemplateBox[{ "ClearAll","wrsym", "\"Symbol \\!\\(\\*RowBox[{\\\"ab1\\\"}]\\) is Protected.\"",2,1773,241, 24540357319954833951,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.786593992275972*^9},ExpressionUUID->"15e22493-75d2-4c2e-94c2-\ a0d980667603"], Cell[BoxData[ RowBox[{"{", "\<\"ab1\"\>", "}"}]], "Output", CellChangeTimes->{ 3.786593992401341*^9},ExpressionUUID->"b41e2d09-0631-48c2-952f-\ 030d75edc7c2"] }, Open ]], Cell["\<\ Constructing the solution with sink at minimum of the potential\ \>", "Text", CellChangeTimes->{{3.7858042349201813`*^9, 3.785804255454982*^9}, { 3.787724097516355*^9, 3.7877241107133293`*^9}},ExpressionUUID->"d8a0a49a-ca1e-4101-b3a2-\ f120ff462e7e"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox[ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";", RowBox[{ RowBox[{"P2", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ FractionBox["\[Epsilon]0", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"d", "/", "2"}], "t"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]0"}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "\[Epsilon]0", " ", RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ RowBox[{ FractionBox["1", RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", "\[Epsilon]0"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"d", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"x0", ",", "Positive"}], "]"}]}]}]}], "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", "k0"}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3aplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3aminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", RowBox[{ RowBox[{"2", "a"}], "-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\n", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"P3minus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P3aplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"P3aminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"P3minus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", " ", RowBox[{ RowBox[{"2", "d", " ", "g"}], " ", "+", "k0"}], ")"}], RowBox[{"P3minus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "-", RowBox[{"k0", " ", RowBox[{"P1", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"P2", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Here", " ", "we", " ", "start", " ", "assuming", " ", "a", " ", "to", " ", "be", " ", "negative"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", RowBox[{ RowBox[{"2", "a"}], "-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Paplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"Paminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"Pminus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Paplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Paplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Paminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Paminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{"g", " ", "d", " ", RowBox[{"P3aminus", "[", RowBox[{"a", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "d", " ", "g"}], " ", "+", " ", "k0"}], ")"}], RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "+", RowBox[{"k0", "*", RowBox[{"P2", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.785666908638959*^9, 3.785666938800304*^9}, 3.7856669723610973`*^9, {3.785667009043104*^9, 3.7856670967817383`*^9}, { 3.785667129632737*^9, 3.785667150768578*^9}, {3.785667228637184*^9, 3.785667417887096*^9}, {3.785667481011774*^9, 3.785667492562039*^9}, { 3.785667535987348*^9, 3.785667590669703*^9}, {3.7856676473570642`*^9, 3.785667648243165*^9}, {3.78566768426762*^9, 3.7856677335186253`*^9}, { 3.785667937811943*^9, 3.785667965219819*^9}, {3.785668004220963*^9, 3.78566802535709*^9}, 3.785668335124819*^9, {3.785668398434725*^9, 3.785668410989327*^9}, {3.785668786847158*^9, 3.785668800795248*^9}, 3.785675688366153*^9, {3.785675823708544*^9, 3.78567584786735*^9}, { 3.7856759777565527`*^9, 3.785675982249379*^9}, {3.785711211315034*^9, 3.785711219432434*^9}, {3.785711442008876*^9, 3.7857114453674*^9}, { 3.785712152930481*^9, 3.7857122407628183`*^9}, {3.785712290062276*^9, 3.785712314494596*^9}, {3.785712488606442*^9, 3.7857125232706842`*^9}, { 3.7857126501941233`*^9, 3.785712667097867*^9}, 3.785712886966896*^9, { 3.785718195706112*^9, 3.785718225890822*^9}, {3.785718282343397*^9, 3.7857182844997787`*^9}, {3.785718343221135*^9, 3.785718346701962*^9}, 3.785718563583807*^9, {3.7857193258217783`*^9, 3.785719335828706*^9}, { 3.7857194107142153`*^9, 3.7857194168929787`*^9}, 3.785719470560733*^9, { 3.78571964010787*^9, 3.7857196748609056`*^9}, {3.785720101646696*^9, 3.785720138179689*^9}, {3.7857201810173273`*^9, 3.785720200074835*^9}, 3.7857202382331142`*^9, {3.785752422744561*^9, 3.785752472964847*^9}, { 3.785752520282*^9, 3.785752555302136*^9}, {3.785752597366723*^9, 3.785752683007518*^9}, {3.785752715582563*^9, 3.7857527289978733`*^9}, { 3.785752809900085*^9, 3.7857528174508057`*^9}, {3.7857528830970087`*^9, 3.785752915512553*^9}, {3.785753289794777*^9, 3.785753305701399*^9}, { 3.785756939287938*^9, 3.7857569428126163`*^9}, 3.785757735666363*^9, { 3.785758021999538*^9, 3.785758026829224*^9}, {3.7857582373667583`*^9, 3.7857583184385977`*^9}, {3.785758368365177*^9, 3.7857584287448587`*^9}, { 3.7857585564005203`*^9, 3.7857585878637123`*^9}, {3.785758670593964*^9, 3.78575870319302*^9}, {3.785758750819112*^9, 3.785758791052898*^9}, { 3.78575884673318*^9, 3.785758849956442*^9}, 3.785759008593513*^9, { 3.7857590681420717`*^9, 3.7857591026675053`*^9}, 3.785759134012533*^9, { 3.785759175346324*^9, 3.785759194071756*^9}, {3.785759231258877*^9, 3.785759240911758*^9}, {3.7857592748282003`*^9, 3.785759285465487*^9}, { 3.785759400251245*^9, 3.785759497180849*^9}, {3.7857595876727*^9, 3.785759608137743*^9}, {3.7857597217750893`*^9, 3.785759743839335*^9}, { 3.7857597769389963`*^9, 3.785759813491704*^9}, {3.785759851719531*^9, 3.785759860097693*^9}, {3.785759995198307*^9, 3.785760019419561*^9}, { 3.7857600630335503`*^9, 3.7857601289266443`*^9}, {3.7857606583832693`*^9, 3.785760675375333*^9}, {3.785760717138721*^9, 3.7857607218017197`*^9}, { 3.785760780931416*^9, 3.785760789870842*^9}, {3.785761204187522*^9, 3.785761229793521*^9}, {3.785761310089538*^9, 3.785761399649123*^9}, 3.785761435557966*^9, {3.785761477229102*^9, 3.7857614932060223`*^9}, { 3.785761529749048*^9, 3.785761549696928*^9}, 3.7857616098062687`*^9, 3.785761679313691*^9, {3.785804370243307*^9, 3.785804379755378*^9}, 3.785804615303331*^9, {3.785804647540512*^9, 3.785804839855917*^9}, { 3.7858048757540216`*^9, 3.7858049214071836`*^9}, 3.7858049635797853`*^9, { 3.78580527326963*^9, 3.78580529744285*^9}, {3.785809761104619*^9, 3.7858097724079847`*^9}, {3.785817813901067*^9, 3.785817821448451*^9}, { 3.785818093118558*^9, 3.785818197360591*^9}, {3.785818228910514*^9, 3.785818296809461*^9}, {3.785818347055134*^9, 3.785818396402017*^9}, { 3.785818488197115*^9, 3.785818516236677*^9}, {3.785818569426465*^9, 3.785818572632907*^9}, 3.785818622328433*^9, {3.785818698509419*^9, 3.785818775256312*^9}, 3.785819233430274*^9, {3.785819285304179*^9, 3.785819286106572*^9}, {3.785820641101633*^9, 3.785820648510954*^9}, { 3.7858206871472387`*^9, 3.785820753051694*^9}, {3.78582088749015*^9, 3.785820940130444*^9}, {3.785820976603198*^9, 3.785821018650794*^9}, { 3.785821055813768*^9, 3.7858210620071383`*^9}, {3.7858210924548264`*^9, 3.7858211100567904`*^9}, {3.7858211488592453`*^9, 3.7858211562465363`*^9}, {3.785821248239395*^9, 3.785821271461937*^9}, { 3.7858213237414017`*^9, 3.7858213560726833`*^9}, 3.785821387401793*^9, { 3.785821430605102*^9, 3.785821444883662*^9}},ExpressionUUID->"a82ad742-ab6c-4da4-be63-\ 48007343e827"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821461320055*^9},ExpressionUUID->"5e80230b-89d2-43e8-9981-\ 9aa59144c5aa"], Cell[CellGroupData[{ Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821461399673*^9},ExpressionUUID->"e11b4c49-5a0f-48a2-8099-\ da904ee23001"], Cell[BoxData["\<\"Solubility check of P3\"\>"], "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821461462924*^9},ExpressionUUID->"b97f144e-bedd-48a5-9e0a-\ 5c284f7e7d41"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821468876198*^9},ExpressionUUID->"a71b34b1-bae7-422f-86f4-\ f2ecb0d8d9d8"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821468882648*^9},ExpressionUUID->"69b6d9ac-1f7e-487e-bda9-\ 3d594c1432de"], Cell[BoxData["\<\"Continuity check of P3 a, 0\"\>"], "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.78582146888897*^9},ExpressionUUID->"9e83a047-2544-41a7-a67a-\ 1eba46a26998"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821468893993*^9},ExpressionUUID->"201bea6a-a7cd-40b3-a4de-\ ed8d3e4bb516"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.7858214689002438`*^9},ExpressionUUID->"b86416dd-c3ba-459e-b935-\ c0387d5c20f7"], Cell[BoxData["\<\"Boundary check for P3\"\>"], "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821468906795*^9},ExpressionUUID->"0c77f51e-c2f5-46f1-b1c3-\ 3e94c9f09bee"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.7858214691312437`*^9},ExpressionUUID->"ab18bdf6-768f-4db2-8e25-\ 341a28b9e1b6"], Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821469137479*^9},ExpressionUUID->"b12cd83a-3b0c-4795-851e-\ a09ee7497df7"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "+", FractionBox[ RowBox[{ SuperscriptBox["k0", "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "d"], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]}]], " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"k0", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821469143852*^9},ExpressionUUID->"9e8c10bb-b14a-4153-a440-\ 465b29b0cb65"], Cell[BoxData["\<\"Continuity check for the total solution at a, 0\"\>"], \ "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821469153967*^9},ExpressionUUID->"36f5c451-190e-4f9e-8f5a-\ 5d4c05425a57"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821469158908*^9},ExpressionUUID->"bdb0ef34-f4b9-4b11-b6e4-\ 04c16acc7121"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.7858214691653833`*^9},ExpressionUUID->"b571214f-829c-4b05-943a-\ 43a1bf17a991"], Cell[BoxData["\<\"Boundary check at x=a leads to differential equation\"\>"], \ "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821469172423*^9},ExpressionUUID->"ac691b6d-16e8-4036-9d60-\ 525de5ae3d45"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.785821469525531*^9},ExpressionUUID->"d48330c9-2dd4-4bcc-a2f0-\ 086782e5e368"], Cell[BoxData["\<\"Boundary at x=0 leads to differential equation\"\>"], \ "Print", CellChangeTimes->{ 3.7858184037775517`*^9, 3.785818520541388*^9, 3.78581857360737*^9, 3.785818623815714*^9, {3.7858187348645983`*^9, 3.7858187768753853`*^9}, 3.785819235420706*^9, 3.785819289919773*^9, 3.785820777095475*^9, { 3.7858209142705793`*^9, 3.785820941431649*^9}, {3.785820978323151*^9, 3.785821020302763*^9}, 3.785821069689746*^9, 3.785821118059272*^9, 3.785821273841578*^9, 3.785821331186557*^9, {3.785821363918825*^9, 3.7858213887365017`*^9}, 3.785821469535844*^9},ExpressionUUID->"f1d174e8-7cc9-445e-bab8-\ 814f3b2521b6"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.7858184037017813`*^9, 3.785818520460752*^9, 3.785818573526767*^9, 3.785818623735548*^9, {3.785818734788282*^9, 3.785818776799293*^9}, 3.785819235339911*^9, 3.7858192898381166`*^9, 3.7858207770111837`*^9, { 3.785820914195771*^9, 3.785820941343109*^9}, {3.7858209782396183`*^9, 3.785821020218706*^9}, 3.785821069609887*^9, 3.785821117969266*^9, 3.785821273744277*^9, 3.785821331108601*^9, {3.785821363832218*^9, 3.7858213886579027`*^9}, 3.7858214697347527`*^9},ExpressionUUID->"f0bcf111-c3b1-4ec3-ae67-\ a25828e6bb1d"] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.787724246858135*^9, 3.787724247952508*^9}},ExpressionUUID->"4d5db774-a33b-4523-9224-\ da3fd19668b1"], Cell["\<\ After modelling the boundary conditions as a PDE. and we add corrections to \ findP4 and P5; lets see what happens; THe modification works\ \>", "Text", CellChangeTimes->{{3.7858096828392477`*^9, 3.7858097206421127`*^9}, { 3.785826541428355*^9, 3.785826549555189*^9}},ExpressionUUID->"21ac62eb-0aae-408f-af45-\ 8dae464346e7"], Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox[ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P1", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"(", FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";", RowBox[{ RowBox[{"P2", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ FractionBox["\[Epsilon]0", "2"], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"d", "/", "2"}], "t"}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], "+", "\[Epsilon]0"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "\[Epsilon]0", " ", RowBox[{"d", "/", "2"}], " ", "t"}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}], "]"}]}]], "]"}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", "d", " ", RowBox[{"t", "/", "2"}]}]], "+", "\[Epsilon]0"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"Element", "[", RowBox[{"d", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"g", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Positive"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"x0", ",", "Positive"}], "]"}]}]}]}], "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", RowBox[{"k0", "-", RowBox[{"d", " ", "g"}]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3aplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3aminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", RowBox[{ RowBox[{"2", "a"}], "-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{"x", "\[NotEqual]", " ", "a"}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", " ", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "]"}]}], "]"}], "\n", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P3aplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"P3aminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"P3minus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"P3plus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"P3minus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", "k0", ")"}], RowBox[{"P3", "[", RowBox[{"a", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.785666908638959*^9, 3.785666938800304*^9}, 3.7856669723610973`*^9, {3.785667009043104*^9, 3.7856670967817383`*^9}, { 3.785667129632737*^9, 3.785667150768578*^9}, {3.785667228637184*^9, 3.785667417887096*^9}, {3.785667481011774*^9, 3.785667492562039*^9}, { 3.785667535987348*^9, 3.785667590669703*^9}, {3.7856676473570642`*^9, 3.785667648243165*^9}, {3.78566768426762*^9, 3.7856677335186253`*^9}, { 3.785667937811943*^9, 3.785667965219819*^9}, {3.785668004220963*^9, 3.78566802535709*^9}, 3.785668335124819*^9, {3.785668398434725*^9, 3.785668410989327*^9}, {3.785668786847158*^9, 3.785668800795248*^9}, 3.785675688366153*^9, {3.785675823708544*^9, 3.78567584786735*^9}, { 3.7856759777565527`*^9, 3.785675982249379*^9}, {3.785711211315034*^9, 3.785711219432434*^9}, {3.785711442008876*^9, 3.7857114453674*^9}, { 3.785712152930481*^9, 3.7857122407628183`*^9}, {3.785712290062276*^9, 3.785712314494596*^9}, {3.785712488606442*^9, 3.7857125232706842`*^9}, { 3.7857126501941233`*^9, 3.785712667097867*^9}, 3.785712886966896*^9, { 3.785718195706112*^9, 3.785718225890822*^9}, {3.785718282343397*^9, 3.7857182844997787`*^9}, {3.785718343221135*^9, 3.785718346701962*^9}, 3.785718563583807*^9, {3.7857193258217783`*^9, 3.785719335828706*^9}, { 3.7857194107142153`*^9, 3.7857194168929787`*^9}, 3.785719470560733*^9, { 3.78571964010787*^9, 3.7857196748609056`*^9}, {3.785720101646696*^9, 3.785720138179689*^9}, {3.7857201810173273`*^9, 3.785720200074835*^9}, 3.7857202382331142`*^9, {3.785752422744561*^9, 3.785752472964847*^9}, { 3.785752520282*^9, 3.785752555302136*^9}, {3.785752597366723*^9, 3.785752683007518*^9}, {3.785752715582563*^9, 3.7857527289978733`*^9}, { 3.785752809900085*^9, 3.7857528174508057`*^9}, {3.7857528830970087`*^9, 3.785752915512553*^9}, {3.785753289794777*^9, 3.785753305701399*^9}, { 3.785756939287938*^9, 3.7857569428126163`*^9}, 3.785757735666363*^9, { 3.785758021999538*^9, 3.785758026829224*^9}, {3.7857582373667583`*^9, 3.7857583184385977`*^9}, {3.785758368365177*^9, 3.7857584287448587`*^9}, { 3.7857585564005203`*^9, 3.7857585878637123`*^9}, {3.785758670593964*^9, 3.78575870319302*^9}, {3.785758750819112*^9, 3.785758791052898*^9}, { 3.78575884673318*^9, 3.785758849956442*^9}, 3.785759008593513*^9, { 3.7857590681420717`*^9, 3.7857591026675053`*^9}, 3.785759134012533*^9, { 3.785759175346324*^9, 3.785759194071756*^9}, {3.785759231258877*^9, 3.785759240911758*^9}, {3.7857592748282003`*^9, 3.785759285465487*^9}, { 3.785759400251245*^9, 3.785759497180849*^9}, {3.7857595876727*^9, 3.785759608137743*^9}, {3.7857597217750893`*^9, 3.785759743839335*^9}, { 3.7857597769389963`*^9, 3.785759813491704*^9}, {3.785759851719531*^9, 3.785759860097693*^9}, {3.785759995198307*^9, 3.785760019419561*^9}, { 3.7857600630335503`*^9, 3.7857601289266443`*^9}, {3.7857606583832693`*^9, 3.785760675375333*^9}, {3.785760717138721*^9, 3.7857607218017197`*^9}, { 3.785760780931416*^9, 3.785760789870842*^9}, {3.785761204187522*^9, 3.785761229793521*^9}, {3.785761310089538*^9, 3.785761399649123*^9}, 3.785761435557966*^9, {3.785761477229102*^9, 3.7857614932060223`*^9}, { 3.785761529749048*^9, 3.785761549696928*^9}, 3.7857616098062687`*^9, 3.785761679313691*^9, {3.785804370243307*^9, 3.785804379755378*^9}, 3.785804615303331*^9, {3.785804647540512*^9, 3.785804839855917*^9}, { 3.7858048757540216`*^9, 3.7858049214071836`*^9}, 3.7858049635797853`*^9, { 3.78580527326963*^9, 3.78580529744285*^9}, {3.7858097915532923`*^9, 3.7858097990526876`*^9}, {3.785810000107032*^9, 3.785810128190349*^9}, 3.78581019977761*^9, {3.78581024717591*^9, 3.7858102712862473`*^9}, { 3.7858103299398518`*^9, 3.7858103570842257`*^9}, {3.785810388956456*^9, 3.785810390125771*^9}, {3.78581042782922*^9, 3.785810471920519*^9}, 3.785810518997241*^9, {3.785810594653769*^9, 3.785810706548818*^9}, { 3.785810753758733*^9, 3.785810949912809*^9}, {3.785823553575509*^9, 3.785823560787964*^9}, {3.7858235929774103`*^9, 3.785823615215736*^9}, { 3.785823670354418*^9, 3.785823712036378*^9}, {3.785823758286833*^9, 3.7858238048588552`*^9}, {3.785823841204262*^9, 3.7858239281363497`*^9}, 3.7858239656887503`*^9, {3.785824018569861*^9, 3.785824038131728*^9}, { 3.78582424129202*^9, 3.785824283881352*^9}, {3.7858243195215282`*^9, 3.785824389245199*^9}, {3.785826231400827*^9, 3.785826305965045*^9}, { 3.785826344212676*^9, 3.7858263784112988`*^9}, {3.785826422804639*^9, 3.785826474495679*^9}, {3.785826530063017*^9, 3.785826530682086*^9}, { 3.7858266018901787`*^9, 3.785826606202627*^9}, 3.785835815785226*^9, { 3.7858361175234947`*^9, 3.7858361816127777`*^9}, {3.78583621433209*^9, 3.785836246794715*^9}, {3.785836331245249*^9, 3.785836338690425*^9}, { 3.78583641964675*^9, 3.785836460336197*^9}, 3.786073179509803*^9, 3.7860753283631907`*^9, {3.786075427612342*^9, 3.7860754348916883`*^9}, { 3.786075643007346*^9, 3.7860756583163013`*^9}},ExpressionUUID->"a7f65e9f-e59f-47ac-a476-\ b3a44b83b0f2"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P1", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"P2", "[", RowBox[{"x", ",", "t"}], "]"}], "+", RowBox[{"P3", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Here", " ", "we", " ", "start", " ", "assuming", " ", "a", " ", "to", " ", "be", " ", "negative"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", "x"}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], "\[Rule]", RowBox[{ RowBox[{"2", "a"}], "-", "x"}]}], "}"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Paplus", "[", RowBox[{"a", ",", "t"}], "]"}], "-", RowBox[{"Paminus", "[", RowBox[{"a", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}], "-", RowBox[{"Pminus", "[", RowBox[{"0", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Paplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Paplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Paminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Paminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}]}], "/.", RowBox[{"x", "\[Rule]", "a"}]}], "]"}]}], "]"}], "!=", "0"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\n", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"Pplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], "-", RowBox[{ RowBox[{"d", "/", "2"}], " ", RowBox[{"D", "[", RowBox[{ RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"d", " ", "g", "*", RowBox[{"Pminus", "[", RowBox[{"x", ",", "t"}], "]"}], "*", RowBox[{"(", RowBox[{"-", "1"}], ")"}]}], "-", RowBox[{ RowBox[{"(", " ", "k0", ")"}], RowBox[{"Pplus", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}], "]"}]}], "]"}], "!=", "0"}], ",", RowBox[{ "Print", "[", "\"\\"", "]"}], ",", RowBox[{"Print", "[", "\"\\"", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Beep", "[", "]"}]}], "Input", CellChangeTimes->{{3.785666908638959*^9, 3.785666938800304*^9}, 3.7856669723610973`*^9, {3.785667009043104*^9, 3.7856670967817383`*^9}, { 3.785667129632737*^9, 3.785667150768578*^9}, {3.785667228637184*^9, 3.785667417887096*^9}, {3.785667481011774*^9, 3.785667492562039*^9}, { 3.785667535987348*^9, 3.785667590669703*^9}, {3.7856676473570642`*^9, 3.785667648243165*^9}, {3.78566768426762*^9, 3.7856677335186253`*^9}, { 3.785667937811943*^9, 3.785667965219819*^9}, {3.785668004220963*^9, 3.78566802535709*^9}, 3.785668335124819*^9, {3.785668398434725*^9, 3.785668410989327*^9}, {3.785668786847158*^9, 3.785668800795248*^9}, 3.785675688366153*^9, {3.785675823708544*^9, 3.78567584786735*^9}, { 3.7856759777565527`*^9, 3.785675982249379*^9}, {3.785711211315034*^9, 3.785711219432434*^9}, {3.785711442008876*^9, 3.7857114453674*^9}, { 3.785712152930481*^9, 3.7857122407628183`*^9}, {3.785712290062276*^9, 3.785712314494596*^9}, {3.785712488606442*^9, 3.7857125232706842`*^9}, { 3.7857126501941233`*^9, 3.785712667097867*^9}, 3.785712886966896*^9, { 3.785718195706112*^9, 3.785718225890822*^9}, {3.785718282343397*^9, 3.7857182844997787`*^9}, {3.785718343221135*^9, 3.785718346701962*^9}, 3.785718563583807*^9, {3.7857193258217783`*^9, 3.785719335828706*^9}, { 3.7857194107142153`*^9, 3.7857194168929787`*^9}, 3.785719470560733*^9, { 3.78571964010787*^9, 3.7857196748609056`*^9}, {3.785720101646696*^9, 3.785720138179689*^9}, {3.7857201810173273`*^9, 3.785720200074835*^9}, 3.7857202382331142`*^9, {3.785752422744561*^9, 3.785752472964847*^9}, { 3.785752520282*^9, 3.785752555302136*^9}, {3.785752597366723*^9, 3.785752683007518*^9}, {3.785752715582563*^9, 3.7857527289978733`*^9}, { 3.785752809900085*^9, 3.7857528174508057`*^9}, {3.7857528830970087`*^9, 3.785752915512553*^9}, {3.785753289794777*^9, 3.785753305701399*^9}, { 3.785756939287938*^9, 3.7857569428126163`*^9}, 3.785757735666363*^9, { 3.785758021999538*^9, 3.785758026829224*^9}, {3.7857582373667583`*^9, 3.7857583184385977`*^9}, {3.785758368365177*^9, 3.7857584287448587`*^9}, { 3.7857585564005203`*^9, 3.7857585878637123`*^9}, {3.785758670593964*^9, 3.78575870319302*^9}, {3.785758750819112*^9, 3.785758791052898*^9}, { 3.78575884673318*^9, 3.785758849956442*^9}, 3.785759008593513*^9, { 3.7857590681420717`*^9, 3.7857591026675053`*^9}, 3.785759134012533*^9, { 3.785759175346324*^9, 3.785759194071756*^9}, {3.785759231258877*^9, 3.785759240911758*^9}, {3.7857592748282003`*^9, 3.785759285465487*^9}, { 3.785759400251245*^9, 3.785759497180849*^9}, {3.7857595876727*^9, 3.785759608137743*^9}, {3.7857597217750893`*^9, 3.785759743839335*^9}, { 3.7857597769389963`*^9, 3.785759813491704*^9}, {3.785759851719531*^9, 3.785759860097693*^9}, {3.785759995198307*^9, 3.785760019419561*^9}, { 3.7857600630335503`*^9, 3.7857601289266443`*^9}, {3.7857606583832693`*^9, 3.785760675375333*^9}, {3.785760717138721*^9, 3.7857607218017197`*^9}, { 3.785760780931416*^9, 3.785760789870842*^9}, {3.785761204187522*^9, 3.785761229793521*^9}, {3.785761310089538*^9, 3.785761399649123*^9}, 3.785761435557966*^9, {3.785761477229102*^9, 3.7857614932060223`*^9}, { 3.785761529749048*^9, 3.785761549696928*^9}, 3.7857616098062687`*^9, 3.785761679313691*^9, {3.785804370243307*^9, 3.785804379755378*^9}, 3.785804615303331*^9, {3.785804647540512*^9, 3.785804839855917*^9}, { 3.7858048757540216`*^9, 3.7858049214071836`*^9}, 3.7858049635797853`*^9, { 3.78580527326963*^9, 3.78580529744285*^9}, {3.7858097915532923`*^9, 3.7858097990526876`*^9}, {3.785810000107032*^9, 3.785810128190349*^9}, 3.78581019977761*^9, {3.78581024717591*^9, 3.7858102712862473`*^9}, { 3.7858103299398518`*^9, 3.7858103570842257`*^9}, {3.785810388956456*^9, 3.785810390125771*^9}, {3.78581042782922*^9, 3.785810471920519*^9}, 3.785810518997241*^9, {3.785810594653769*^9, 3.785810706548818*^9}, { 3.785810753758733*^9, 3.785810949912809*^9}, {3.785823553575509*^9, 3.785823560787964*^9}, {3.7858235929774103`*^9, 3.785823615215736*^9}, { 3.785823670354418*^9, 3.785823712036378*^9}, {3.785823758286833*^9, 3.7858238048588552`*^9}, {3.785823841204262*^9, 3.7858239281363497`*^9}, 3.7858239656887503`*^9, {3.785824018569861*^9, 3.785824038131728*^9}, { 3.78582424129202*^9, 3.785824283881352*^9}, {3.7858243195215282`*^9, 3.785824389245199*^9}, {3.785826231400827*^9, 3.785826305965045*^9}, { 3.785826344212676*^9, 3.7858263784112988`*^9}, {3.785826422804639*^9, 3.785826474495679*^9}, {3.785826530063017*^9, 3.785826530682086*^9}, { 3.7858266018901787`*^9, 3.785826606202627*^9}, 3.785835815785226*^9, { 3.7858361175234947`*^9, 3.7858361816127777`*^9}, {3.78583621433209*^9, 3.785836246794715*^9}, {3.785836331245249*^9, 3.785836338690425*^9}, { 3.78583641964675*^9, 3.785836460336197*^9}, 3.786073179509803*^9, 3.7860753283631907`*^9, {3.786075427612342*^9, 3.7860754348916883`*^9}, 3.786075643007346*^9},ExpressionUUID->"ff83bc79-384a-43d8-9bd9-\ 0bb4fa4fa75f"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075438578822*^9},ExpressionUUID->"68ec3c8e-4768-4887-bf90-\ 85c4c2c0aae4"], Cell[CellGroupData[{ Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.786075438653344*^9},ExpressionUUID->"fa8a2170-54a8-4471-869c-\ 51dbe70b0edb"], Cell[BoxData["\<\"Solubility check of P3\"\>"], "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.7860754387185507`*^9},ExpressionUUID->"3d705a04-18ac-44ae-a5d8-\ 728625ef8d78"] }, Open ]], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075465141563*^9},ExpressionUUID->"16a04b55-8b34-4bb6-8b05-\ 9e1c87a13bb4"], Cell[BoxData["\<\"Continuity check of P3 a, 0\"\>"], "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.786075465146676*^9},ExpressionUUID->"96d456d4-fbfa-4793-ab0f-\ 98ea7b508c5f"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075465150324*^9},ExpressionUUID->"9efeb6c6-538f-46ad-be6b-\ c03ee83c17aa"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075465155161*^9},ExpressionUUID->"94c99cee-7001-4fb7-bafa-\ 11a36e9d5c3d"], Cell[BoxData["\<\"Boundary check for P3\"\>"], "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.78607546516013*^9},ExpressionUUID->"0c6c40d3-00d6-499f-aa55-ef38d34cc44c"], Cell[BoxData[ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}], "-", RowBox[{"d", " ", RowBox[{"(", RowBox[{ SqrtBox["2"], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]], " ", "g", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g"}], "-", "k0"}], ")"}], " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075466809845*^9},ExpressionUUID->"73339dbc-bc9b-4cf3-9e4c-\ 0531b3b998ab"], Cell[BoxData["\<\"Our solution is\"\>"], "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.786075466814764*^9},ExpressionUUID->"c09ae036-62db-4a3a-b27a-\ 1fd66269f5ff"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], RowBox[{ SqrtBox[ RowBox[{"2", " ", "\[Pi]"}]], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}], "+", FractionBox[ RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], "2"], " ", "t"}], RowBox[{"2", " ", "d"}]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "d"]}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g"}], "+", "k0"}], ")"}], " ", "t"}], "+", RowBox[{"RealAbs", "[", "x", "]"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], ")"}]}]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}]}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075466824243*^9},ExpressionUUID->"447444a4-141e-4166-b50f-\ 2cd0bae9d726"], Cell[BoxData["\<\"Continuity check for the total solution at a, 0\"\>"], \ "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.786075466828751*^9},ExpressionUUID->"53350480-7783-48e0-a04e-\ cee0f4084443"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.7860754668325253`*^9},ExpressionUUID->"b7b6556b-226f-482d-b8d5-\ a3191176416b"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075466837233*^9},ExpressionUUID->"ef3fe5ae-6680-49f2-b8b5-\ ea36f369c8bd"], Cell[BoxData["\<\"Boundary check at x=a leads to differential equation\"\>"], \ "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.7860754668419943`*^9},ExpressionUUID->"f31bf58c-88d1-404c-a267-\ bed95bf46ae7"], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], "+", RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["t", "2"]}], "+", RowBox[{"2", " ", "d", " ", "g", " ", "k0", " ", SuperscriptBox["t", "2"]}], "+", SuperscriptBox["x0", "2"], "+", RowBox[{"2", " ", "a", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}]}]}], RowBox[{"2", " ", "d", " ", "t"}]]}]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SqrtBox["2"]}], " ", "d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{"a", " ", "k0"}], "d"], "+", RowBox[{"g", " ", "k0", " ", "t"}], "+", RowBox[{"g", " ", "x0"}]}]]}], "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], "+", RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["t", "2"]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"]}], RowBox[{"2", " ", "d", " ", "t"}]]], " ", "g", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], "+", RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["t", "2"]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"]}], RowBox[{"2", " ", "d", " ", "t"}]]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ SuperscriptBox["a", "2"], "+", RowBox[{ SuperscriptBox["d", "2"], " ", SuperscriptBox["g", "2"], " ", SuperscriptBox["t", "2"]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "+", "x0"}], ")"}]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}], ")"}], "2"]}], RowBox[{"2", " ", "d", " ", "t"}]]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g"}], "-", "k0"}], ")"}], " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "a"}], "-", RowBox[{"d", " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]}], ")"}]}]}]}], "\[NotEqual]", "0"}], ",", RowBox[{ "Print", "[", "\<\"THe problem is you are contraining the boundary \ conditions one by one, that is why the problem is\"\>", "]"}], ",", RowBox[{"Print", "[", "\<\"THe method works\"\>", "]"}]}], "]"}]], "Output",\ CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075482176663*^9},ExpressionUUID->"12586e5f-4100-4af6-b3ed-\ a157bb422be0"], Cell[BoxData["\<\"Boundary at x=0 leads to differential equation\"\>"], \ "Print", CellChangeTimes->{3.7858239338048553`*^9, 3.785823968158338*^9, 3.785824050013084*^9, 3.7858242445031023`*^9, 3.785824285872799*^9, 3.785824350542465*^9, 3.785824391273369*^9, 3.785826383927416*^9, 3.785826475957657*^9, 3.785826532907317*^9, 3.785826608083941*^9, 3.785835817358365*^9, 3.785836249062676*^9, 3.785836341382107*^9, 3.785836462146063*^9, 3.786073183575333*^9, 3.786075331339449*^9, 3.786075482210146*^9},ExpressionUUID->"fb700b63-2b6a-46c2-ab66-\ ae43d1c1a5cb"], Cell[BoxData[ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "d", " ", SuperscriptBox["g", "2"]}], "+", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", RowBox[{"2", " ", "x0"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]], " ", SuperscriptBox["g", "2"]}], "-", RowBox[{"g", " ", "k0"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", RowBox[{"2", " ", "x0"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]], " ", "g", " ", "k0"}], "+", FractionBox[ RowBox[{"3", " ", "d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], " ", "g", " ", SqrtBox[ FractionBox["2", "\[Pi]"]]}], SqrtBox[ RowBox[{"d", " ", "t"}]]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", "x0"}], ")"}], "2"], RowBox[{"2", " ", "d", " ", "t"}]]}]], " ", "k0", " ", SqrtBox[ FractionBox["2", "\[Pi]"]]}], SqrtBox[ RowBox[{"d", " ", "t"}]]], "+", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "d", " ", "g"}], "-", "k0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "d", " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", RowBox[{"2", " ", "x0"}]}], ")"}]}], RowBox[{"2", " ", "d"}]]], " ", "g", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "g"}], "-", "k0"}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", "g", " ", "t"}], "+", RowBox[{"k0", " ", "t"}], "+", "x0"}], RowBox[{ SqrtBox["2"], " ", SqrtBox[ RowBox[{"d", " ", "t"}]]}]], "]"}]}]}], ")"}]}], "\[NotEqual]", "0"}], ",", RowBox[{ "Print", "[", "\<\"THe problem is you are contraining the boundary \ conditions one by one, that is why the problem is\"\>", "]"}], ",", RowBox[{"Print", "[", "\<\"THe method works\"\>", "]"}]}], "]"}]], "Output",\ CellChangeTimes->{3.785823933724559*^9, 3.785823968069725*^9, 3.785824049930126*^9, 3.785824244416224*^9, 3.785824285740506*^9, 3.785824350464031*^9, 3.785824391189918*^9, 3.7858263838468018`*^9, 3.785826475872991*^9, 3.785826532822249*^9, 3.785826608002451*^9, 3.7858358172855587`*^9, 3.785836248972865*^9, 3.7858363413011312`*^9, 3.785836462061452*^9, 3.786073183497465*^9, 3.786075331255021*^9, 3.786075492443042*^9},ExpressionUUID->"b10cc278-3592-46e6-a53a-\ 4860b1a5edb8"] }, Open ]], Cell["\<\ So let us add both the boundary conditions simultaneously, there fore the new \ PDE could be,\ \>", "Text", CellChangeTimes->{{3.785836472715119*^9, 3.785836508470599*^9}},ExpressionUUID->"92ac20be-0bb7-4198-9ee0-\ 3f946470a8ba"], Cell["\<\ Verifying the result of absolute value potential with the numerical test\ \>", "Text", CellChangeTimes->{{3.7860971846620693`*^9, 3.786097215550984*^9}},ExpressionUUID->"0a0dcc56-a9b8-4926-97ef-\ 04be6bc32106"], Cell[BoxData[{ RowBox[{"Clear", "[", "t", "]"}], "\[IndentingNewLine]", RowBox[{"Protect", "[", "p1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"S", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1000000", "/", "\[Pi]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000000"}], "*", " ", RowBox[{ RowBox[{"(", "z", ")"}], "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", "400", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"de", "=", ".1"}], ";"}], "\n", RowBox[{ RowBox[{"k", "=", ".1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dThick", "=", "40"}], ";"}], "\n", RowBox[{ RowBox[{"dTime", "=", "100"}], ";"}], "\n", RowBox[{ RowBox[{"eqSimplee", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"de", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"k0", "*", RowBox[{"S", "[", "x", "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", RowBox[{"\[Sigma]", "^", "2"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqInie", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "0"}], "]"}], "==", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"\[Beta]", "/", "\[Pi]"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Beta]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqBlefte", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{ RowBox[{"-", "dThick"}], ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eqBleftg", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"dThick", ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mol", "[", RowBox[{"n_", ",", "o_"}], "]"}], ":=", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}]}], "}"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eqSimplee", ",", "eqInie", ",", "eqBlefte", ",", "eqBleftg"}], "}"}], ",", RowBox[{"{", "Pe", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}]}], "]"}]}], "\n", RowBox[{"ab1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07"}], ",", "1.03"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Dashed", "}"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"ab1", ",", "p1"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.785143610036563*^9, 3.7851438218097754`*^9}, { 3.7851439897677097`*^9, 3.7851439899326773`*^9}, {3.785144298577484*^9, 3.785144298919526*^9}},ExpressionUUID->"c3dfbace-2aa4-4859-862a-\ 7555f690c13e"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", FractionBox[ RowBox[{" ", RowBox[{"k0", "-", RowBox[{"d", " ", "g"}]}]}], RowBox[{"2", RowBox[{"(", RowBox[{"d", "/", "2"}], ")"}]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P3", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealAbs", "[", "x0", "]"}]}], "+", RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", "d", " ", RowBox[{"t", "/", "2"}]}]]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", " ", "d", " ", RowBox[{"t", "/", "2"}]}], "]"}]], "+", RowBox[{ FractionBox["b", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"b", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"b", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}], "+", RowBox[{"2", "b", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", RowBox[{"t", "/", "2"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}], "/.", RowBox[{ RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", "2"}], " ", "t"}]}], ")"}]}]], "+", "b"}], "]"}], "\[Rule]", "1"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.786097221388708*^9, 3.786097232961356*^9}},ExpressionUUID->"d54dd4e3-aeff-49c1-8d8b-\ 11b8b1e4638c"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"2", "d", " ", "g", " ", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], RowBox[{"DiracDelta", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", "d", " ", "g"}], "-", "k0"}], ")"}], RowBox[{"DiracDelta", "[", "x", "]"}], RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "\[Equal]", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], "//", "TraditionalForm"}]}], RowBox[{"(*", RowBox[{"eq", ".1"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "0"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"g", "*", RowBox[{"RealAbs", "[", "x0", "]"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", " ", RowBox[{"t", "/", "2"}]}]}], "]"}], RowBox[{"DiracDelta", "[", RowBox[{"x", "-", SubscriptBox["x", "0"]}], "]"}]}], "//", "TraditionalForm"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}], "+", RowBox[{"b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"c", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}], "+", RowBox[{"d", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y3", "[", "x_", "]"}], "=", RowBox[{"e", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "a"}], "]"}], "==", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y2", "[", "a", "]"}], "==", RowBox[{"y3", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "x", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "x", "]"}]}], "]"}], "/.", RowBox[{"x", "\[Rule]", RowBox[{"-", "a"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"{", RowBox[{"b1", ",", "c1", ",", "d1", ",", "e1"}], "}"}], "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e"}], "}"}], "/.", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "a"}], "]"}], "\[Equal]", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", "a", "]"}], "\[Equal]", RowBox[{"y3", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "a"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "a"}], "]"}], "+", RowBox[{"2", "d", " ", "g", " ", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}]}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"(", RowBox[{"k0", "-", RowBox[{"2", "d", " ", "g"}]}], ")"}], RowBox[{"y2", "[", "a", "]"}]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e"}], "}"}]}]}], "=", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e"}], "}"}], "/.", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y2", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{"y2", "[", "a", "]"}], "\[Equal]", RowBox[{"y3", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], "d", " ", "g", " ", RowBox[{"y2", "[", "0", "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}]}], "\[Equal]", RowBox[{ RowBox[{"(", RowBox[{"k0", "-", RowBox[{"2", "d", " ", "g"}]}], ")"}], RowBox[{"y2", "[", "a", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c", ",", "d", ",", "e"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"b", "-", "b1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"c", "-", "c1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"d", "-", "d1"}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"e", "-", "e1"}], "]"}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", FractionBox[ RowBox[{"2", "I", " ", "k", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}], RowBox[{ RowBox[{"2", "I", " ", "k", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}], "-", RowBox[{"k1", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}], "-", FractionBox[ RowBox[{"k2", " ", "k1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", "3", " ", "k", " ", "a"}], "]"}]}], RowBox[{ RowBox[{"2", "I", " ", "k"}], "-", "k2"}]]}]]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "=", RowBox[{ FractionBox[ RowBox[{"2", "I", " ", "k"}], RowBox[{ RowBox[{"2", "I", " ", "k"}], "-", "k2"}]], "c"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", RowBox[{ RowBox[{"(", RowBox[{"e", "-", "c"}], ")"}], RowBox[{"Exp", "[", RowBox[{"I", " ", "2", " ", "k", " ", "a"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}], "+", RowBox[{"d", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "a"}], "]"}]}], "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "a"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y1", "[", RowBox[{"-", "a"}], "]"}], "===", RowBox[{"y2", "[", RowBox[{"-", "a"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"y2", "[", "a", "]"}], "-", RowBox[{"y3", "[", "a", "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", RowBox[{"-", "a"}], "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", RowBox[{"-", "a"}], "]"}]}], ")"}], "-", RowBox[{"k1", "*", RowBox[{"y1", "[", RowBox[{"-", "a"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"y3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}], "-", RowBox[{"k2", "*", RowBox[{"y2", "[", "a", "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "b", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "c", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "d", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "e", "]"}]}], "Input", CellChangeTimes->{{3.7858365140483503`*^9, 3.785836649756115*^9}, { 3.785836818511179*^9, 3.7858369570799217`*^9}, {3.785836989829399*^9, 3.785836999363963*^9}, {3.785837079797236*^9, 3.785837093586351*^9}, { 3.78583728799161*^9, 3.7858372934299297`*^9}, {3.785837351703355*^9, 3.7858373625598087`*^9}, {3.785837992036694*^9, 3.785838089233006*^9}, { 3.785838127468193*^9, 3.785838218698352*^9}, {3.786071734642003*^9, 3.786071753140893*^9}, {3.7860801766230507`*^9, 3.7860803805444927`*^9}, { 3.786080458853503*^9, 3.786080473159952*^9}, {3.786080605266767*^9, 3.786080610629189*^9}, {3.7860807099948797`*^9, 3.786080796980195*^9}, { 3.786080993525833*^9, 3.7860810157658167`*^9}, {3.7860810544763193`*^9, 3.786081091581115*^9}, {3.786081169315102*^9, 3.78608117207868*^9}, { 3.786081218334906*^9, 3.7860812224500237`*^9}, {3.786081276480521*^9, 3.786081289228347*^9}, {3.786081327734429*^9, 3.78608133354181*^9}, { 3.786081379987859*^9, 3.786081384016693*^9}, 3.7860814463748302`*^9, 3.7860815233555937`*^9, {3.786081623938979*^9, 3.7860816723466454`*^9}, { 3.786081826761547*^9, 3.786081849492786*^9}, {3.7860818933498907`*^9, 3.786081899663183*^9}, {3.7860819861032677`*^9, 3.7860820182510033`*^9}, { 3.786082408173602*^9, 3.786082510829714*^9}, {3.7860828753813753`*^9, 3.786082946838135*^9}, {3.786083006492955*^9, 3.786083019740459*^9}, { 3.786083314273827*^9, 3.78608333239909*^9}, {3.786083393056199*^9, 3.786083399181182*^9}, 3.786083431381364*^9, 3.786083463281548*^9},ExpressionUUID->"1b7d9d18-b8ad-43bd-b674-\ fd11d1ada85f"], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ RowBox[{"2", " ", "d", " ", "g", " ", TemplateBox[{RowBox[{ RowBox[{"x", "-", "a"}]}]}, "DiracDeltaSeq"], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ TemplateBox[{RowBox[{"x"}]}, "DiracDeltaSeq"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "d", " ", "g"}], "-", "k0"}], ")"}], " ", RowBox[{"P", "(", RowBox[{"x", ",", "t"}], ")"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}]}], "\[LongEqual]", RowBox[{ SuperscriptBox["P", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1"}], ")"}], Derivative], MultilineFunction->None], "(", RowBox[{"x", ",", "t"}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.78608346424306*^9},ExpressionUUID->"604a8c88-4566-425e-802a-\ cf63d68beeb5"], Cell[BoxData[ FormBox[ RowBox[{ TemplateBox[{RowBox[{ RowBox[{"x", "-", SubscriptBox["x", "0"]}]}]}, "DiracDeltaSeq"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"g", " ", TemplateBox[{"x0"}, "RealAbs"]}], "-", RowBox[{ FractionBox["1", "2"], " ", "d", " ", SuperscriptBox["g", "2"], " ", "t"}]}]]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464301083*^9},ExpressionUUID->"3835eaef-19bf-492e-90b6-\ 58df71b8e568"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "a", " ", "k"}]], "+", RowBox[{"b", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a", " ", "k"}]]}]}], "\[Equal]", RowBox[{ RowBox[{"c", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "a", " ", "k"}]]}], "+", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a", " ", "k"}]]}]}]}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.7860834643112507`*^9},ExpressionUUID->"eabb39c1-6392-4d69-a4e9-\ fc538ec92675"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "a", " ", "k"}]]}], "+", RowBox[{"c", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a", " ", "k"}]]}]}], "\[Equal]", RowBox[{"e", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a", " ", "k"}]]}]}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.7860834643192043`*^9},ExpressionUUID->"613efa92-5016-4f7e-95f4-\ b5f09374324f"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", "a", " ", "k"}]], " ", RowBox[{"(", RowBox[{"b", "-", "d", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", "c"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}]}], ")"}], " ", "k"}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464326849*^9},ExpressionUUID->"8278cac5-04e2-4189-9849-\ 67571ccaf830"], Cell[BoxData[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "a", " ", "k"}]], " ", RowBox[{"(", RowBox[{"d", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "c"}], "+", "e"}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}]}], ")"}], " ", "k"}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464334231*^9},ExpressionUUID->"2028ff40-ed6c-4b75-a2a9-\ b14dcfbfd4cc"], Cell[BoxData["True"], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.7860834643410873`*^9},ExpressionUUID->"ce90de27-47d9-4c92-a4eb-\ 5305594c95a3"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464347732*^9},ExpressionUUID->"0290c891-ffe2-4e6e-abfb-\ fe69fbff4d29"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.7860834643555307`*^9},ExpressionUUID->"33cb4686-c1ee-4b09-83d3-\ 0ea7a0cfddae"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464363102*^9},ExpressionUUID->"87bacc31-1f5b-41cb-a0ef-\ e4cfc5f324d9"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}], ")"}], " ", "k1", " ", "k2"}], "+", RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{"k1", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", "k2"}]}], ")"}]}]}], ")"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["k", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}], ")"}], " ", "k1", " ", "k2"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "k", " ", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}]}]]}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464434648*^9},ExpressionUUID->"4f69a084-1bef-4254-bfa7-\ 47815df251d0"], Cell[BoxData[ FractionBox[ RowBox[{"2", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", "k2"}]}], ")"}]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["k", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}], ")"}], " ", "k1", " ", "k2"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "k", " ", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}]}]]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464488598*^9},ExpressionUUID->"a7f3de9c-0dde-42cc-8cb5-\ 5c514b508011"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", "k", " ", "k2"}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["k", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}], ")"}], " ", "k1", " ", "k2"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "k", " ", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}]}]]}]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.786083464497026*^9},ExpressionUUID->"6b52bd78-3b10-4aac-a048-\ 5c2b88388573"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SuperscriptBox["k", "2"]}], RowBox[{ RowBox[{"4", " ", SuperscriptBox["k", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]]}], ")"}], " ", "k1", " ", "k2"}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "k", " ", RowBox[{"(", RowBox[{"k1", "+", "k2"}], ")"}]}]}]]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837364070745*^9, 3.785838068470955*^9, 3.7858380991623917`*^9, { 3.785838156742921*^9, 3.7858381967432613`*^9}, 3.785838477886162*^9, 3.786071763333419*^9, 3.786080387129469*^9, 3.786080473999308*^9, 3.7860806113001347`*^9, {3.786080710713434*^9, 3.7860807249547367`*^9}, { 3.7860807839096537`*^9, 3.78608079763583*^9}, 3.786081017216117*^9, { 3.7860810558644447`*^9, 3.7860810921982937`*^9}, 3.786081173517622*^9, 3.786081223079385*^9, 3.786081280742367*^9, 3.7860813348079844`*^9, 3.786081385731599*^9, 3.786081447674415*^9, 3.786081524402217*^9, { 3.786081624946733*^9, 3.786081676460465*^9}, {3.786081828245131*^9, 3.786081850547998*^9}, 3.7860819004287767`*^9, {3.786081996830935*^9, 3.786082020338832*^9}, {3.786082426955226*^9, 3.7860825116608067`*^9}, { 3.786082876507629*^9, 3.786082947778001*^9}, {3.786083008638773*^9, 3.786083021280505*^9}, 3.786083333015833*^9, 3.786083400641799*^9, 3.786083432235722*^9, 3.7860834645048227`*^9},ExpressionUUID->"1440dbb4-6791-4fc2-b9d8-\ 891b0835e5c3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{ RowBox[{"d", " ", "g", " ", "t"}], "-", RowBox[{"RealAbs", "[", "x0", "]"}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", "a", "]"}]}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "\[NotEqual]", "0"}], "&&", RowBox[{"x0", ">", "0"}], "&&", RowBox[{"d", "\[Element]", "Positive"}], "&&", RowBox[{"g", "\[Element]", "Positive"}], "&&", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{ RowBox[{"k0", " ", "t"}], "+", "x0"}]}], RowBox[{"d", " ", "t"}]], "\[NotEqual]", "0"}], "&&", RowBox[{"a", "<", "0"}]}], ",", RowBox[{"Simplify", "[", "%2174", "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.7858373938233852`*^9, 3.7858374459951878`*^9}},ExpressionUUID->"c426de1c-391d-422c-ace7-\ c5427fce309c"], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{"{", TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], "}"}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{79., {3., 10.}}], StripOnInput->False, DynamicUpdating->True], "OSLText", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{66., {1., 10.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 2177, 24535287691238669917, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{75., {1., 10.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 2177, 24535287691238669917, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{56., {1., 10.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 2177, 24535287691238669917, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{103., {1., 10.}}], StripOnInput->False, DynamicUpdating->True], "OSLControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{191., {0., 16.}}], StripOnInput->False, DynamicUpdating->True], "OSLControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, BaselinePosition->Baseline, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], BaseStyle->"OutputSizeLimit", FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], If[24535287691238669917 === $SessionID, Out[2177], Message[ MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; Null]]], "Output", CellChangeTimes->{ 3.785837002617831*^9, 3.785837094262203*^9, 3.785837313404258*^9, 3.785837366110983*^9, {3.7858374277842073`*^9, 3.785837440869521*^9}, 3.785838068176908*^9},ExpressionUUID->"62b68d7f-c590-4a2d-990a-\ 47c8097740f1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"a1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}], " ", "x"}], "]"}]}], "+", RowBox[{"b1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "+", "q"}], ")"}], " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"c1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}], " ", "x"}], "]"}]}], "+", RowBox[{"d1", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "p"}], "-", "q"}], ")"}], " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d1", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"b1", ",", "c1"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"b1", ",", "c1"}], "}"}], "/.", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "a", "]"}], "\[Equal]", RowBox[{"y2", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{"d", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "a", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{"-", "2"}], "d", " ", "g", "*", RowBox[{"y2", "[", "0", "]"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b1", ",", "c1"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "b1", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", "c1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"q", "=", RowBox[{"I", " ", RowBox[{"g", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"q", "+", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"q", "^", "2"}], "+", RowBox[{"4", RowBox[{"s", "/", "d"}]}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.785650991528193*^9, 3.785651287385869*^9}, { 3.7856517399846897`*^9, 3.78565174450662*^9}, {3.7856535528471537`*^9, 3.785653587226942*^9}, 3.785653618260998*^9, {3.785806976323764*^9, 3.785807056046069*^9}, {3.785807394097889*^9, 3.785807539489087*^9}, { 3.7858076108993883`*^9, 3.785807656337986*^9}, {3.785807706915949*^9, 3.785807709732524*^9}},ExpressionUUID->"7487edbb-e3bb-472c-8454-\ 5359cfd44ce0"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}]}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]}]], ",", FractionBox[ RowBox[{ RowBox[{"-", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}]}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.785807474050729*^9, 3.785807541025454*^9}, 3.785807657701578*^9, 3.7858077106021223`*^9},ExpressionUUID->"8d48a7d8-ac90-4095-aacd-\ 25342fb14db2"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}]}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]}]]], "Output", CellChangeTimes->{{3.785807474050729*^9, 3.785807541025454*^9}, 3.785807657701578*^9, 3.785807710607346*^9},ExpressionUUID->"ef2915fd-9ddb-4a34-b834-\ af6891a4e967"], Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"-", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "+", "q"}], ")"}]}]}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{"p", "-", "q"}], ")"}]}]}]]], "Output", CellChangeTimes->{{3.785807474050729*^9, 3.785807541025454*^9}, 3.785807657701578*^9, 3.7858077106123743`*^9},ExpressionUUID->"63b5f99a-9d23-4b41-9cb7-\ a94b509cdcac"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", FractionBox[ RowBox[{"4", " ", "s"}], "d"]}]]}]], "Output", CellChangeTimes->{{3.785807474050729*^9, 3.785807541025454*^9}, 3.785807657701578*^9, 3.7858077106172943`*^9},ExpressionUUID->"b15b0eb4-b510-460b-a904-\ fb11ffa9aa88"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Together", "[", "p", "]"}]], "Input", NumberMarks->False,ExpressionUUID->"cda6525f-80cd-4d85-a87e-e97bc7c4f40f"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", "g"}], "+", SqrtBox[ RowBox[{ RowBox[{"-", SuperscriptBox["g", "2"]}], "+", RowBox[{"16", " ", "s"}]}]]}], ")"}]}]], "Output", CellChangeTimes->{ 3.785807548912957*^9},ExpressionUUID->"b4e9e6fb-7400-4baf-b208-\ 9adef6ca86b9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["b"], "Input", CellChangeTimes->{ 3.785807590489614*^9},ExpressionUUID->"365253d5-b0c7-438b-9139-\ ce0023cfbb27"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], "/", "2"}]], " ", "g"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"3", " ", "g"}], "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]}]], " ", "g"}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "g"}], "+", RowBox[{"3", " ", "\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]}]], " ", "g"}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]}], ")"}]}]], " ", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", "g"}], "/", "2"}]], " ", "g"}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"3", " ", "\[ImaginaryI]", " ", "g"}], "2"], "+", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}], ")"}]}]], " ", SqrtBox[ RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox["g", "2"], "4"]}], "+", RowBox[{"4", " ", "s"}]}]]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.785807591556199*^9},ExpressionUUID->"6c35c4d4-ee4f-42f3-94d8-\ b63f1e30b855"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"a", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}], "+", RowBox[{"b", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{"c", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p0", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}], "-", RowBox[{"0", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", "g"}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}]], RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "/.", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y2", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"k0", RowBox[{"(", RowBox[{ RowBox[{"p0", "[", "0", "]"}], "+", RowBox[{"0", RowBox[{"y2", "[", "0", "]"}]}]}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"b", ",", "c"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "/.", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "0", "]"}], "\[Equal]", RowBox[{"y2", "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "0", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "0", "]"}]}], ")"}]}], "\[Equal]", RowBox[{"k0", RowBox[{"(", RowBox[{"y2", "[", "0", "]"}], ")"}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{ 3.78580936681917*^9, {3.785809398985585*^9, 3.785809409019236*^9}, { 3.7858200236142273`*^9, 3.785820051884057*^9}, {3.78582027024015*^9, 3.785820298882402*^9}, 3.7858234690549097`*^9, {3.785823655766135*^9, 3.785823658971168*^9}},ExpressionUUID->"182b47c2-a3fa-413b-91fd-\ dd95260d93d6"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "k0"}], RowBox[{"d", " ", "k"}]]}], ",", RowBox[{"1", "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "k0"}], RowBox[{"d", " ", "k"}]]}]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.785809412836071*^9, {3.7858200326271152`*^9, 3.785820052663603*^9}, { 3.785820286813155*^9, 3.7858203004338903`*^9}, 3.785823470648074*^9, 3.785823660113912*^9},ExpressionUUID->"7a89f344-7b27-4861-a828-\ 9923cd691b99"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox["k0", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "d", " ", "k"}], "+", "k0"}]]}], ",", FractionBox[ RowBox[{"d", " ", "k"}], RowBox[{ RowBox[{"d", " ", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", "k0"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.785809412836071*^9, {3.7858200326271152`*^9, 3.785820052663603*^9}, { 3.785820286813155*^9, 3.7858203004338903`*^9}, 3.785823470648074*^9, 3.78582366016954*^9},ExpressionUUID->"9848661d-8af6-457b-a984-\ 1e48fb837f50"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y1", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"a1", "*", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}], "+", RowBox[{"b", " ", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "I"}], " ", "k", " ", "x"}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "[", "x_", "]"}], "=", RowBox[{"c", " ", RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p0", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", "x"}], "]"}], "+", RowBox[{"0", RowBox[{"(", FractionBox[ RowBox[{ RowBox[{"-", "I"}], " ", "g"}], RowBox[{"k", "+", RowBox[{"I", " ", "g"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"I", " ", "k", " ", RowBox[{"Abs", "[", "x", "]"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}], "/.", RowBox[{"Simplify", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"y1", "[", "a", "]"}], "\[Equal]", RowBox[{"y2", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{ FractionBox["d", "2"], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"y2", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"y1", "'"}], "[", "a", "]"}]}], ")"}]}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "d", " ", "g", "*", RowBox[{"y2", "[", "a", "]"}]}], "+", RowBox[{"d", " ", "g", "*", RowBox[{"y2", "[", "a", "]"}]}]}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"b", ",", "c"}], "}"}]}], "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.785650991528193*^9, 3.785651287385869*^9}, { 3.7856517399846897`*^9, 3.78565174450662*^9}, {3.7856535528471537`*^9, 3.785653587226942*^9}, 3.785653618260998*^9, 3.785809361565795*^9, 3.785811880374866*^9, {3.785811952173807*^9, 3.785811974589099*^9}, { 3.785812058350377*^9, 3.7858120856203337`*^9}, 3.785817354822152*^9, { 3.785817423310762*^9, 3.785817423746237*^9}, {3.785820164864102*^9, 3.785820165567977*^9}, {3.7858202182140093`*^9, 3.785820237225399*^9}},ExpressionUUID->"7aff9fc7-49de-4f5d-a37d-\ e8832574bfd3"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "k"}]], " ", "g"}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}]]}], ",", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "k"}], RowBox[{"g", "+", RowBox[{"\[ImaginaryI]", " ", "k"}]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{{3.785651228819407*^9, 3.7856512879095*^9}, 3.785651752472793*^9, {3.7856535750246477`*^9, 3.7856535878217688`*^9}, 3.78565361935506*^9, 3.785811882153482*^9, 3.785811976116378*^9, { 3.785812059270548*^9, 3.785812086749305*^9}, 3.7858173555431213`*^9, 3.78581742499148*^9, 3.78582016710198*^9},ExpressionUUID->"b9433187-cd3c-4bc9-a3d9-\ 78773b37d971"] }, Open ]], Cell["An attempt to do the procedure using mathematica;", "Text", CellChangeTimes->{{3.7850318038053637`*^9, 3.785031829760655*^9}},ExpressionUUID->"c1e537bd-94a6-45eb-8ce3-\ a3e51a9042e8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Integrate", "[", RowBox[{ RowBox[{ FractionBox["\[Epsilon]0", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}], "+", RowBox[{"k", " ", "t"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "+", "\[Epsilon]0"}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0", "+", RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "\[Infinity]"}], ",", RowBox[{"x1", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.784974154530814*^9, 3.7849743422104816`*^9}},ExpressionUUID->"f7602392-1a36-444d-a714-\ acacb922d478"], Cell[BoxData[ RowBox[{ SubsuperscriptBox["\[Integral]", RowBox[{"-", "\[Infinity]"}], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x1"}]], RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", RowBox[{ SuperscriptBox["\[Epsilon]0", "2"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "+", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{"x0", "+", RowBox[{"Abs", "[", "x", "]"}]}], ")"}]}]}]], " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "+", RowBox[{"Abs", "[", "x", "]"}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}], "-", RowBox[{"Sign", "[", RowBox[{"\[Epsilon]0", "+", FractionBox[ RowBox[{"x0", "+", RowBox[{"Abs", "[", "x", "]"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}], "]"}]}], ")"}]}], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Output", CellChangeTimes->{ 3.7849754410178633`*^9},ExpressionUUID->"639dacf5-4aa0-4a1c-8466-\ fcab9e4fd028"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "[", RowBox[{"x_", ",", "t_"}], "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ FractionBox["1", SqrtBox[ FractionBox["k", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]], "+", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]]}], ")"}], FractionBox[ RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], RowBox[{"2", RowBox[{"Sqrt", "[", "\[Pi]", "]"}], RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], "]"}]}]]}], "+", RowBox[{"\[Epsilon]0", "*", RowBox[{"Exp", "[", RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], "*", RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}], "]"}], FractionBox[ RowBox[{"Exp", "[", RowBox[{"\[Epsilon]0", " ", "x", " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}], "]"}], "\[Epsilon]0"], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(*", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "+", "\[Epsilon]0"}], "]"}], "*)"}], "1"}], "+", RowBox[{"Erf", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}], "+", "x0", "+", RowBox[{"\[Epsilon]0", " ", "2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}], ")"}]}], "]"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Epsilon]0", "^", "2"}]}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}], "]"}], RowBox[{"(", FractionBox["2", "\[Epsilon]0"], ")"}], "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], "]"}]}], "+", RowBox[{"\[Epsilon]0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}], "+", RowBox[{"\[Epsilon]0", " ", "x0"}]}], "]"}], RowBox[{"(", FractionBox[ RowBox[{"-", "1"}], "\[Epsilon]0"], ")"}], "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], "]"}], "*", RowBox[{"Exp", "[", FractionBox[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x0", "+", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], ")"}], "^", "2"}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "]"}], "*", RowBox[{"Exp", "[", FractionBox[ RowBox[{"x0", "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"x", " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erf", "[", FractionBox["x0", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ SubscriptBox["\[PartialD]", "x"], RowBox[{"F", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", RowBox[{"k0", "/", "d"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"k", " ", "x", " ", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "d"}], "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"k", " ", "x", " ", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{ RowBox[{"-", "k0"}], " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], "*", RowBox[{"P", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"a", "+", "b", "+", "c"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7849757348018217`*^9, 3.784975761351309*^9}, { 3.784975835606707*^9, 3.784975899520616*^9}, {3.784976202080162*^9, 3.784976361277626*^9}, {3.785025225768887*^9, 3.785025239683393*^9}, { 3.7850252798790913`*^9, 3.785025617078566*^9}, {3.7850256773429947`*^9, 3.7850257053138742`*^9}, {3.785025759581169*^9, 3.7850258516548777`*^9}, { 3.785026020660795*^9, 3.785026021156328*^9}, 3.785026119897089*^9, { 3.785026236429941*^9, 3.785026239538622*^9}, {3.785031839278802*^9, 3.785031845581747*^9}, {3.785031893307069*^9, 3.78503216399776*^9}, { 3.785032232193955*^9, 3.7850322665734577`*^9}, {3.785032465513644*^9, 3.7850324985164957`*^9}, {3.785032593018217*^9, 3.7850325953941813`*^9}, { 3.785032672231345*^9, 3.7850327674600143`*^9}, {3.785032854273158*^9, 3.785032865923088*^9}, {3.7850338630735683`*^9, 3.7850338933243027`*^9}, { 3.7850360527360497`*^9, 3.785036076704658*^9}, {3.785134115691596*^9, 3.785134118529241*^9}},ExpressionUUID->"f539fce6-b464-4846-8192-\ f8df9a52b5a7"], Cell[BoxData[ RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0", "+", FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "\[Epsilon]0"}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"2", " ", "\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "-", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], SqrtBox["\[Pi]"]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]}]], " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0", "+", FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "\[Epsilon]0"}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"2", " ", "\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"2", " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}]], "Output", CellChangeTimes->{{3.785036080098414*^9, 3.7850360982166157`*^9}, 3.785036132085788*^9, 3.7851341250965357`*^9, 3.7851341575721703`*^9},ExpressionUUID->"21ddbe46-c096-466e-aa64-\ f6d64fc292e9"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", "d", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], " ", "k0"}], RowBox[{"d", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "k0"}], "d"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}], ")"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "-", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", "k", " ", "x0"}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["x0", "3"], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"5", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k", " ", "x0", " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}]], " ", SuperscriptBox["k0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}], SuperscriptBox["d", "2"]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "-", FractionBox[ SuperscriptBox["x0", "2"], RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", "x0", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", FractionBox[ RowBox[{"2", " ", "k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]}]]}], ")"}]}]], "Output", CellChangeTimes->{{3.785036080098414*^9, 3.7850360982166157`*^9}, 3.785036132085788*^9, 3.7851341250965357`*^9, 3.785134157622272*^9},ExpressionUUID->"77fd0039-349f-43ea-a71c-\ 1d8043498f50"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "d", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], " ", "k0"}], RowBox[{"d", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "k0"}], "d"], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}], ")"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "-", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", "k", " ", "x0"}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", SuperscriptBox["k", "2"], " ", SuperscriptBox["x0", "3"], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"5", "/", "2"}]], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k", " ", "x0", " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}]], " ", SuperscriptBox["k0", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}], SuperscriptBox["d", "2"]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "-", FractionBox[ SuperscriptBox["x0", "2"], RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", "x0", " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", FractionBox[ RowBox[{"2", " ", "k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], RowBox[{"3", "/", "2"}]]}]]}], ")"}]}]], "Output", CellChangeTimes->{{3.785036080098414*^9, 3.7850360982166157`*^9}, 3.785036132085788*^9, 3.7851341250965357`*^9, 3.785134157647287*^9},ExpressionUUID->"832cb85a-ee24-4260-83a0-\ 31395e56d5c2"], Cell[BoxData[ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]]}], " ", "k0", " ", RowBox[{"(", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], ")"}], "2"], RowBox[{"4", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}]]}]], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "-", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], SqrtBox["\[Pi]"]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]], "-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "k", " ", SuperscriptBox["x0", "2"], " ", RowBox[{"Erf", "[", SqrtBox[ FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "]"}]}], RowBox[{ SuperscriptBox[ RowBox[{"(", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], ")"}], RowBox[{"3", "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]}], ")"}]}], RowBox[{"4", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "+", FractionBox[ RowBox[{"k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}]], " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}], "d"], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"k", " ", "t"}], "-", FractionBox[ SuperscriptBox["x0", "2"], RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", FractionBox[ RowBox[{"2", " ", "k0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "d"]}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], ")"}]}]], "Output", CellChangeTimes->{{3.785036080098414*^9, 3.7850360982166157`*^9}, 3.785036132085788*^9, 3.7851341250965357`*^9, 3.785134157670074*^9},ExpressionUUID->"3e79eacf-fa64-4475-8f58-\ 72c1c2e239dc"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"d", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "d"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", RowBox[{"(", RowBox[{"t", "-", FractionBox[ SuperscriptBox["x0", "2"], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}], ")"}]}]]}], "-", RowBox[{"2", " ", "d", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ RowBox[{"d", " ", "k0", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"]}], "-", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], "+", RowBox[{"2", " ", "d", " ", "k", " ", "x0"}], "+", RowBox[{"4", " ", "k", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"]}], RowBox[{"4", " ", SuperscriptBox["d", "2"], " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], ")"}]}]]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"4", " ", "k"}]], "+", FractionBox[ RowBox[{"k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"4", " ", "k"}]], "+", FractionBox[ RowBox[{"k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "k"], "+", RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], "+", RowBox[{"2", " ", "d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"k", " ", SuperscriptBox["x0", "2"]}], RowBox[{ RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]], " ", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k0"}], RowBox[{"2", " ", "k"}]]}], "-", "x0", "-", FractionBox[ RowBox[{"2", " ", "k0", " ", SuperscriptBox["\[Sigma]", "2"]}], "d"]}], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.785036080098414*^9, 3.7850360982166157`*^9}, 3.785036132085788*^9, 3.7851341250965357`*^9, 3.785134260037149*^9},ExpressionUUID->"164f65e0-6090-46b2-a3c8-\ 8d98d01a17d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}]}], "Input",ExpressionUUID->\ "1a1ff4c7-dca7-4889-9546-f164e8ed1f1a"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.785114873221149*^9},ExpressionUUID->"e8cafd18-2e71-41dd-aa44-\ 7d6b5320bbbf"] }, Open ]], Cell["Let us cal the alternative method for help;", "Text", CellChangeTimes->{{3.785036792180458*^9, 3.785036803380946*^9}, { 3.785039862657398*^9, 3.785039863321677*^9}},ExpressionUUID->"7170810c-c096-4157-a614-\ 10249dd25c53"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}]], "+", RowBox[{"k", " ", "t"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}], "4", "\[Pi]"}], "]"}]], "+", RowBox[{ FractionBox["\[Epsilon]0", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"k", " ", "t"}], "+", RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(*", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "+", "\[Epsilon]0"}], "]"}], "*)"}], "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"d", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}], "\[Rule]", RowBox[{"d", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}], ")"}]}]}]}], "}"}]}], ",", RowBox[{ RowBox[{"Element", "[", RowBox[{"k", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox["k0", "d"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "\[Rule]", "x"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"k", " ", "x", " ", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "d"}], "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"k", " ", "x", " ", RowBox[{"Peminus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"-", "k0"}], " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"a", "+", "b", "+", "c"}], "]"}]}], "Input", CellChangeTimes->{{3.7850398664389353`*^9, 3.78503991146218*^9}, { 3.785039970787569*^9, 3.7850400348065033`*^9}, {3.7850400899888077`*^9, 3.785040221099847*^9}, {3.7850402603812237`*^9, 3.785040261913865*^9}, { 3.785040354697515*^9, 3.78504035506565*^9}, {3.7850404152531347`*^9, 3.785040421525312*^9}, 3.7850404609437313`*^9, {3.7850415202732887`*^9, 3.785041691422832*^9}, 3.7850423551828413`*^9, 3.785042580097601*^9, { 3.785042616569861*^9, 3.785042665638335*^9}, {3.785113037316101*^9, 3.785113071499786*^9}, 3.785113103395668*^9, {3.785113195627901*^9, 3.785113199813252*^9}, {3.785113565390641*^9, 3.785113573875214*^9}, 3.785113739669651*^9, {3.785113968750614*^9, 3.785113973365974*^9}, { 3.785114130397738*^9, 3.785114157671495*^9}, {3.785114240170639*^9, 3.7851142459985533`*^9}, {3.7851146687666903`*^9, 3.7851147007862787`*^9}, 3.7851147799393597`*^9, {3.785114822577992*^9, 3.785114859165148*^9}, { 3.785114898284852*^9, 3.7851148996523933`*^9}, {3.7851149356913157`*^9, 3.785115054889065*^9}, {3.78511519501305*^9, 3.785115196319666*^9}, 3.785115234304723*^9, {3.785115433172008*^9, 3.785115434347032*^9}, { 3.7851154875934668`*^9, 3.785115497920938*^9}, {3.785115540353685*^9, 3.785115553132921*^9}, 3.785115591126606*^9, 3.7851156525509577`*^9, { 3.785116058141197*^9, 3.785116161858058*^9}, {3.785116292040275*^9, 3.785116295427478*^9}, {3.7851163481794643`*^9, 3.785116350113497*^9}, { 3.7851164662097816`*^9, 3.785116466437643*^9}, {3.7851167087816887`*^9, 3.7851167268794003`*^9}, 3.785116815934519*^9, {3.7851170244567547`*^9, 3.785117044628627*^9}, 3.7851170766532393`*^9, {3.785118100987493*^9, 3.785118108763884*^9}, {3.785128815886427*^9, 3.785128834739778*^9}, { 3.785128880548305*^9, 3.7851288857799063`*^9}, {3.785134203880713*^9, 3.785134206410035*^9}, 3.78513647700089*^9, 3.785136620955989*^9, { 3.785199608388784*^9, 3.7851996105124493`*^9}, {3.785199776496766*^9, 3.785199891860367*^9}, {3.785200074292824*^9, 3.785200104847731*^9}},ExpressionUUID->"6e6fe682-b19e-420c-b983-\ 692d22feeb2c"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.785041552488308*^9, 3.7850415940494967`*^9, {3.7850416477012672`*^9, 3.785041693278895*^9}, {3.785042638567965*^9, 3.785042660481904*^9}, 3.785113111612278*^9, 3.78511320836621*^9, 3.785113741504105*^9, 3.785113974636302*^9, 3.7851141365494423`*^9, {3.78511422144639*^9, 3.785114247139056*^9}, {3.785114674588131*^9, 3.785114702946928*^9}, 3.785114782020033*^9, {3.785114834735652*^9, 3.785114878420596*^9}, { 3.7851149843752613`*^9, 3.785115024915229*^9}, 3.78511505624792*^9, 3.7851151976735773`*^9, 3.785115437240045*^9, 3.785115499088842*^9, 3.785115554559914*^9, 3.785115592829908*^9, {3.785116085734907*^9, 3.785116135814474*^9}, 3.7851161686016693`*^9, 3.785116296481064*^9, 3.785116354352726*^9, 3.785116728635757*^9, 3.785116819281001*^9, 3.7851170465585737`*^9, 3.7851170789212513`*^9, 3.7851181187346897`*^9, 3.785128913750895*^9, 3.785134260430786*^9, 3.7851364823693857`*^9, 3.785199539712199*^9, 3.785199614802332*^9, 3.785199800092352*^9, 3.785199867601359*^9, {3.785200075668425*^9, 3.785200105636282*^9}},ExpressionUUID->"8b2828a2-f8d9-49bf-82cf-\ 55c5f0aeae51"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Pi]"}], "k"], "+", RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{"x0", "+", FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Epsilon]0"}], RowBox[{"4", " ", "k"}]], "+", RowBox[{"\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}]], " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Epsilon]0"}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"2", " ", "\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.785041552488308*^9, 3.7850415940494967`*^9, {3.7850416477012672`*^9, 3.785041693278895*^9}, {3.785042638567965*^9, 3.785042660481904*^9}, 3.785113111612278*^9, 3.78511320836621*^9, 3.785113741504105*^9, 3.785113974636302*^9, 3.7851141365494423`*^9, {3.78511422144639*^9, 3.785114247139056*^9}, {3.785114674588131*^9, 3.785114702946928*^9}, 3.785114782020033*^9, {3.785114834735652*^9, 3.785114878420596*^9}, { 3.7851149843752613`*^9, 3.785115024915229*^9}, 3.78511505624792*^9, 3.7851151976735773`*^9, 3.785115437240045*^9, 3.785115499088842*^9, 3.785115554559914*^9, 3.785115592829908*^9, {3.785116085734907*^9, 3.785116135814474*^9}, 3.7851161686016693`*^9, 3.785116296481064*^9, 3.785116354352726*^9, 3.785116728635757*^9, 3.785116819281001*^9, 3.7851170465585737`*^9, 3.7851170789212513`*^9, 3.7851181187346897`*^9, 3.785128913750895*^9, 3.785134260430786*^9, 3.7851364823693857`*^9, 3.785199539712199*^9, 3.785199614802332*^9, 3.785199800092352*^9, 3.785199867601359*^9, 3.785200075668425*^9, 3.785200120147184*^9},ExpressionUUID->"2cfbce88-b651-4d9c-86ce-\ d0897e4251f4"], Cell[BoxData["\<\"Analytical check\"\>"], "Print", CellChangeTimes->{ 3.7851996267996397`*^9, 3.785199812795826*^9, 3.785199880902693*^9, { 3.7852000918190193`*^9, 3.7852001201531963`*^9}},ExpressionUUID->"10c0507b-6360-4c8e-b11d-\ 8910b8dea5e4"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785041552488308*^9, 3.7850415940494967`*^9, {3.7850416477012672`*^9, 3.785041693278895*^9}, {3.785042638567965*^9, 3.785042660481904*^9}, 3.785113111612278*^9, 3.78511320836621*^9, 3.785113741504105*^9, 3.785113974636302*^9, 3.7851141365494423`*^9, {3.78511422144639*^9, 3.785114247139056*^9}, {3.785114674588131*^9, 3.785114702946928*^9}, 3.785114782020033*^9, {3.785114834735652*^9, 3.785114878420596*^9}, { 3.7851149843752613`*^9, 3.785115024915229*^9}, 3.78511505624792*^9, 3.7851151976735773`*^9, 3.785115437240045*^9, 3.785115499088842*^9, 3.785115554559914*^9, 3.785115592829908*^9, {3.785116085734907*^9, 3.785116135814474*^9}, 3.7851161686016693`*^9, 3.785116296481064*^9, 3.785116354352726*^9, 3.785116728635757*^9, 3.785116819281001*^9, 3.7851170465585737`*^9, 3.7851170789212513`*^9, 3.7851181187346897`*^9, 3.785128913750895*^9, 3.785134260430786*^9, 3.7851364823693857`*^9, 3.785199539712199*^9, 3.785199614802332*^9, 3.785199800092352*^9, 3.785199867601359*^9, 3.785200075668425*^9, 3.785200120523446*^9},ExpressionUUID->"f7a0de55-3b7c-4083-a621-\ 496f3bb8ae7c"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785041552488308*^9, 3.7850415940494967`*^9, {3.7850416477012672`*^9, 3.785041693278895*^9}, {3.785042638567965*^9, 3.785042660481904*^9}, 3.785113111612278*^9, 3.78511320836621*^9, 3.785113741504105*^9, 3.785113974636302*^9, 3.7851141365494423`*^9, {3.78511422144639*^9, 3.785114247139056*^9}, {3.785114674588131*^9, 3.785114702946928*^9}, 3.785114782020033*^9, {3.785114834735652*^9, 3.785114878420596*^9}, { 3.7851149843752613`*^9, 3.785115024915229*^9}, 3.78511505624792*^9, 3.7851151976735773`*^9, 3.785115437240045*^9, 3.785115499088842*^9, 3.785115554559914*^9, 3.785115592829908*^9, {3.785116085734907*^9, 3.785116135814474*^9}, 3.7851161686016693`*^9, 3.785116296481064*^9, 3.785116354352726*^9, 3.785116728635757*^9, 3.785116819281001*^9, 3.7851170465585737`*^9, 3.7851170789212513`*^9, 3.7851181187346897`*^9, 3.785128913750895*^9, 3.785134260430786*^9, 3.7851364823693857`*^9, 3.785199539712199*^9, 3.785199614802332*^9, 3.785199800092352*^9, 3.785199867601359*^9, 3.785200075668425*^9, 3.7852001205267897`*^9},ExpressionUUID->"2acfad3c-67fa-4b0b-80d3-\ cb231a216828"], Cell[BoxData["\<\"Boundary condition check\"\>"], "Print", CellChangeTimes->{ 3.7851996267996397`*^9, 3.785199812795826*^9, 3.785199880902693*^9, { 3.7852000918190193`*^9, 3.785200120529356*^9}},ExpressionUUID->"995baa40-1215-425c-94c4-\ 2c4c4a1937dd"], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.785041552488308*^9, 3.7850415940494967`*^9, {3.7850416477012672`*^9, 3.785041693278895*^9}, {3.785042638567965*^9, 3.785042660481904*^9}, 3.785113111612278*^9, 3.78511320836621*^9, 3.785113741504105*^9, 3.785113974636302*^9, 3.7851141365494423`*^9, {3.78511422144639*^9, 3.785114247139056*^9}, {3.785114674588131*^9, 3.785114702946928*^9}, 3.785114782020033*^9, {3.785114834735652*^9, 3.785114878420596*^9}, { 3.7851149843752613`*^9, 3.785115024915229*^9}, 3.78511505624792*^9, 3.7851151976735773`*^9, 3.785115437240045*^9, 3.785115499088842*^9, 3.785115554559914*^9, 3.785115592829908*^9, {3.785116085734907*^9, 3.785116135814474*^9}, 3.7851161686016693`*^9, 3.785116296481064*^9, 3.785116354352726*^9, 3.785116728635757*^9, 3.785116819281001*^9, 3.7851170465585737`*^9, 3.7851170789212513`*^9, 3.7851181187346897`*^9, 3.785128913750895*^9, 3.785134260430786*^9, 3.7851364823693857`*^9, 3.785199539712199*^9, 3.785199614802332*^9, 3.785199800092352*^9, 3.785199867601359*^9, 3.785200075668425*^9, 3.785200121635838*^9},ExpressionUUID->"b3db1821-7a06-47b7-bf8a-\ 720227cf35a3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}]], "-", RowBox[{"2", "k", " ", "t"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}], "4", "\[Pi]"}], "]"}]], "+", RowBox[{ FractionBox["\[Epsilon]0", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "2"}], "k", " ", "t"}], "+", RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(*", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "+", "\[Epsilon]0"}], "]"}], "*)"}], "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x0", "\[Rule]", RowBox[{"x0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"d", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}], "\[Rule]", RowBox[{"d", "*", RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "k", " ", "t"}], "]"}]}], ")"}]}]}]}], "}"}]}], ",", RowBox[{ RowBox[{"Element", "[", RowBox[{"k", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox["k0", "d"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "\[Rule]", "x"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Peminus", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "\[Rule]", RowBox[{"-", "x"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}]}], ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"Element", "[", RowBox[{"\"\\"", ",", "Reals"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "+", RowBox[{"k", " ", "x", " ", RowBox[{"Peplus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"b", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "d"}], "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Peminus", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "]"}]}], "-", RowBox[{"k", " ", "x", " ", RowBox[{"Peminus", "[", RowBox[{"x", ",", "t"}], "]"}]}]}], "/.", RowBox[{"x", "\[Rule]", "0"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{ RowBox[{"-", "k0"}], " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"a", "+", "b", "+", "c"}], "]"}]}], "Input", CellChangeTimes->{{3.7850398664389353`*^9, 3.78503991146218*^9}, { 3.785039970787569*^9, 3.7850400348065033`*^9}, {3.7850400899888077`*^9, 3.785040221099847*^9}, {3.7850402603812237`*^9, 3.785040261913865*^9}, { 3.785040354697515*^9, 3.78504035506565*^9}, {3.7850404152531347`*^9, 3.785040421525312*^9}, 3.7850404609437313`*^9, {3.7850415202732887`*^9, 3.785041691422832*^9}, 3.7850423551828413`*^9, 3.785042580097601*^9, { 3.785042616569861*^9, 3.785042665638335*^9}, {3.785113037316101*^9, 3.785113071499786*^9}, 3.785113103395668*^9, {3.785113195627901*^9, 3.785113199813252*^9}, {3.785113565390641*^9, 3.785113573875214*^9}, 3.785113739669651*^9, {3.785113968750614*^9, 3.785113973365974*^9}, { 3.785114130397738*^9, 3.785114157671495*^9}, {3.785114240170639*^9, 3.7851142459985533`*^9}, {3.7851146687666903`*^9, 3.7851147007862787`*^9}, 3.7851147799393597`*^9, {3.785114822577992*^9, 3.785114859165148*^9}, { 3.785114898284852*^9, 3.7851148996523933`*^9}, {3.7851149356913157`*^9, 3.785115054889065*^9}, {3.78511519501305*^9, 3.785115196319666*^9}, 3.785115234304723*^9, {3.785115433172008*^9, 3.785115434347032*^9}, { 3.7851154875934668`*^9, 3.785115497920938*^9}, {3.785115540353685*^9, 3.785115553132921*^9}, 3.785115591126606*^9, 3.7851156525509577`*^9, { 3.785116058141197*^9, 3.785116161858058*^9}, {3.785116292040275*^9, 3.785116295427478*^9}, {3.7851163481794643`*^9, 3.785116350113497*^9}, { 3.7851164662097816`*^9, 3.785116466437643*^9}, {3.7851167087816887`*^9, 3.7851167268794003`*^9}, 3.785116815934519*^9, {3.7851170244567547`*^9, 3.785117044628627*^9}, 3.7851170766532393`*^9, {3.785118100987493*^9, 3.785118108763884*^9}, {3.785128815886427*^9, 3.785128834739778*^9}, { 3.785128880548305*^9, 3.7851288857799063`*^9}, {3.785134203880713*^9, 3.785134206410035*^9}, 3.78513647700089*^9, 3.785136620955989*^9, { 3.785199608388784*^9, 3.7851996105124493`*^9}, {3.785199776496766*^9, 3.785199891860367*^9}, {3.785200074292824*^9, 3.785200104847731*^9}, { 3.78520018005335*^9, 3.78520020467231*^9}, {3.7852003973645153`*^9, 3.785200400687234*^9}, {3.785200476767028*^9, 3.785200485583467*^9}, { 3.785200576432807*^9, 3.785200582316757*^9}, {3.785200769169257*^9, 3.7852007714031687`*^9}},ExpressionUUID->"80ad746b-8bd0-4a4f-89a0-\ b824596fba9e"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.78520021266393*^9, 3.785200402139819*^9, 3.785200502831945*^9, 3.785200583982164*^9, 3.7852007730654583`*^9},ExpressionUUID->"cf6803d4-d695-4c36-8fe3-\ a2007368849f"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], RowBox[{ SqrtBox["\[Pi]"], " ", SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}], "k"]]}]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}], "+", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "+", RowBox[{"Abs", "[", "x", "]"}]}], ")"}]}]], " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}], "+", RowBox[{"2", " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}], ")"}]}], "+", RowBox[{"Abs", "[", "x", "]"}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.78520021266393*^9, 3.785200402139819*^9, 3.785200502831945*^9, 3.785200583982164*^9, 3.78520078740596*^9},ExpressionUUID->"8654aec0-30cd-43ab-9139-bfd2f0c06d77"], Cell[BoxData["\<\"Analytical check\"\>"], "Print", CellChangeTimes->{3.785200219642333*^9, 3.7852004095919733`*^9, 3.7852005145106287`*^9, 3.785200603086025*^9, 3.7852007874094563`*^9},ExpressionUUID->"19789bd4-d601-4517-ae38-\ 2b685170895b"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox["d", "2"], " ", SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", SqrtBox["\[Pi]"]}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}]], " ", "k"}], "+", RowBox[{"2", " ", "d", " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}]], " ", "k0"}], "-", RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", "k", " ", SqrtBox["\[Pi]"]}]}], ")"}]}], "-", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", SuperscriptBox["k0", "2"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"2", " ", "k", " ", "x"}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", RowBox[{"(", RowBox[{"t", "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", "k", " ", "x0"}]}], ")"}]}], "+", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", "k"}], "+", RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"2", " ", "k", " ", "x"}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", RowBox[{"(", RowBox[{"t", "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", "k", " ", "x0"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]]], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.78520021266393*^9, 3.785200402139819*^9, 3.785200502831945*^9, 3.785200583982164*^9, 3.7852008524322243`*^9},ExpressionUUID->"49e2deba-d1d6-476c-898b-\ d00684821d60"], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox["d", "2"], " ", SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", SqrtBox["\[Pi]"]}]], RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["d", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}]], " ", "k"}], "+", RowBox[{"2", " ", "d", " ", "k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"2", " ", "k", " ", "t"}], "+", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}]], " ", "k0"}], "-", RowBox[{"3", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", "k", " ", SqrtBox["\[Pi]"]}]}], ")"}]}], "-", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", SuperscriptBox["k0", "2"], " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"2", " ", "k", " ", "x"}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", RowBox[{"(", RowBox[{"t", "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", "k", " ", "x0"}]}], ")"}]}], "+", RowBox[{ SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]], " ", "k0", " ", SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{"6", " ", "d", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", "k"}], "+", RowBox[{"k0", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", " ", "k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]]}], " ", "k0"}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}], ")"}], " ", SuperscriptBox["k0", "2"]}], "k"], "+", RowBox[{"4", " ", "k0", " ", RowBox[{"(", RowBox[{"x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}]]}], ")"}]}]}], RowBox[{"2", " ", "d"}]]], " ", RowBox[{"(", RowBox[{"k0", "+", RowBox[{"2", " ", "k", " ", "x"}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", RowBox[{"(", RowBox[{"t", "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], ")"}], "2"]}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}]]}], ")"}]}]], " ", "k", " ", "x0"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{"k0", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]], " ", "k0"}]}], RowBox[{"2", " ", "k"}]], "+", "x", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0"}]}], SqrtBox[ FractionBox[ RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "k", " ", "t"}]]}]}], "k"]]], "]"}]}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.78520021266393*^9, 3.785200402139819*^9, 3.785200502831945*^9, 3.785200583982164*^9, 3.785200852529196*^9},ExpressionUUID->"80c70953-4467-420e-9eef-\ 3ea43ab0b9cf"], Cell[BoxData["\<\"Boundary condition check\"\>"], "Print", CellChangeTimes->{3.785200219642333*^9, 3.7852004095919733`*^9, 3.7852005145106287`*^9, 3.785200603086025*^9, 3.7852008525362167`*^9},ExpressionUUID->"d4e1edcf-ffcc-45cf-80a9-\ 0e2ef8b4a3ea"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{3.78520021266393*^9, 3.785200402139819*^9, 3.785200502831945*^9, 3.785200583982164*^9, 3.785200855690199*^9},ExpressionUUID->"6ef6a341-4948-47bc-8d1b-\ 3180aad5fb89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Unprotect", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Remove", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}]], "+", RowBox[{"k", " ", "t"}]}], "]"}], RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}], "4", "\[Pi]"}], "]"}]], "+", RowBox[{ FractionBox["\[Epsilon]0", "2"], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], ")"}]}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}], "+", RowBox[{"k", " ", "t"}]}], "]"}], "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]0", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"d", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}], "\[Rule]", RowBox[{"d", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}], ")"}]}]}]}], "}"}]}], ",", RowBox[{ RowBox[{"Element", "[", RowBox[{"k", ",", "Reals"}], "]"}], "&&", RowBox[{"Element", "[", RowBox[{"t", ",", "Reals"}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Sign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", "x0"}], RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ RowBox[{"d", "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}]}], ")"}]}]], "+", "\[Epsilon]0"}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "10"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox["k0", "d"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "\[Epsilon]0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{"p1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", ".3"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "2"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "5"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"s1", "=", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", RowBox[{"k0", ",", "\[Epsilon]0", ",", "a"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Epsilon]0", "=", FractionBox["k0", "d"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "\[Epsilon]0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"s2", "=", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"p2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", ".3"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "2"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "5"}], "]"}], ",", RowBox[{"P", "[", RowBox[{"x", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", FractionBox["k", RowBox[{"2", "\[Pi]", "*", RowBox[{"d", "/", "2"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "k", " ", "t"}], "]"}]}], ")"}]}]], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ FractionBox[ RowBox[{"-", "k"}], RowBox[{"2", RowBox[{"d", "/", "2"}]}]], "*", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{"x0", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "k"}], " ", "t"}], "]"}]}]}], ")"}], "^", "2"}], RowBox[{"(", RowBox[{"1", "-", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "2"}], "k", " ", "t"}], "]"}]}], ")"}]]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"p3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"x", ",", ".1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", ".3"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "1"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "2"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "5"}], "]"}], ",", RowBox[{"u", "[", RowBox[{"x", ",", "10"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"p1", ",", "p2", ",", "p3"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"s1", "-", "s2"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"s2", "-", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"s1", "-", RowBox[{"u", "[", RowBox[{"x", ",", "t"}], "]"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{"0.1", ",", "5", ",", "20"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"{", RowBox[{"P", "[", RowBox[{"x", ",", "t"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "20"}], ",", "20"}], "}"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Q", "[", "t_", "]"}], "=", RowBox[{ RowBox[{"1", "+", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"k", " ", "t"}], "+", RowBox[{"\[Epsilon]0", "*", "x0"}], "+", RowBox[{ RowBox[{"\[Epsilon]0", "^", "2"}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"Sign", "[", RowBox[{ FractionBox["x0", RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}], ")"}]], "+", "a"}], "]"}], "-", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", RowBox[{"2", "a", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}]}]}], RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}]}]}], ")"}], "]"}]}], ")"}]], "]"}]}], ")"}]}], "\[IndentingNewLine]", "+", RowBox[{"2", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x0"}], "-", RowBox[{"2", "a", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], "t"}]}], ")"}]}]}], "]"}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"\[Epsilon]0", "^", "2"}]}], RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], " ", "t"}]}], ")"}]}], "]"}]}], "-", RowBox[{"Erfc", "[", FractionBox["x0", RowBox[{"(", RowBox[{"Sqrt", "[", RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", "*", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "/", RowBox[{"(", RowBox[{"4", "k"}], ")"}]}], " ", "t"}]}], ")"}]}], "]"}], ")"}]], "]"}]}], "/.", RowBox[{"{", RowBox[{ RowBox[{"x", "\[Rule]", RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}]}], ",", RowBox[{ RowBox[{"d", "*", RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}]}], "\[Rule]", RowBox[{"d", "*", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Exp", "[", RowBox[{"2", "k", " ", "t"}], "]"}]}], ")"}]}]}]}], "}"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Q", "[", "t", "]"}], ",", RowBox[{"k0", " ", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], " ", RowBox[{"P", "[", RowBox[{"0", ",", "t"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{ 3.785042767433869*^9, {3.7850427989458*^9, 3.785042830532987*^9}, { 3.785042876572577*^9, 3.785042901582803*^9}, {3.7850429499850492`*^9, 3.7850429589762278`*^9}, {3.7850429933818293`*^9, 3.785043070247842*^9}, { 3.785043107828689*^9, 3.785043130227034*^9}, {3.785043177560829*^9, 3.785043205438137*^9}, {3.785045728009697*^9, 3.785045737644141*^9}, 3.785046849907735*^9, {3.785048180660338*^9, 3.785048181098617*^9}, { 3.785056423978962*^9, 3.785056425215617*^9}, 3.7850564851775*^9, 3.785056606788142*^9, 3.785057255552107*^9, {3.785116405205999*^9, 3.785116414071817*^9}, {3.7851164477197638`*^9, 3.7851164586862993`*^9}, { 3.785116498843233*^9, 3.7851165015829563`*^9}, {3.785116611103097*^9, 3.785116629857896*^9}, {3.785116739952269*^9, 3.7851167425961246`*^9}, { 3.785118001842701*^9, 3.785118005927672*^9}, {3.785118157471972*^9, 3.785118216878565*^9}, 3.785118811797676*^9, 3.78512901968769*^9, { 3.785129294994021*^9, 3.785129297752644*^9}, {3.785129337573797*^9, 3.785129342413759*^9}, {3.7851293967197027`*^9, 3.785129404074937*^9}, 3.78512944504559*^9, {3.785129930092326*^9, 3.785129953346941*^9}, 3.785131166217987*^9, {3.785131299851349*^9, 3.785131325425377*^9}, { 3.785131409164423*^9, 3.785131416264607*^9}, {3.78513164241046*^9, 3.7851316468326807`*^9}, {3.7851317510231113`*^9, 3.7851317780552073`*^9}, 3.785131883579855*^9, {3.7851321977462873`*^9, 3.7851322026470337`*^9}, { 3.7851324082355757`*^9, 3.7851324219788857`*^9}, {3.785132702811956*^9, 3.7851327286856003`*^9}, {3.7851329255437*^9, 3.785132977828517*^9}, { 3.785133077757257*^9, 3.785133080054921*^9}, {3.78513325352003*^9, 3.785133289149868*^9}, {3.7851333407292843`*^9, 3.7851333980495443`*^9}, { 3.785133504373423*^9, 3.78513355063041*^9}, {3.785133647242692*^9, 3.785133683009894*^9}, {3.785133742167244*^9, 3.785133785266788*^9}, 3.785133824430195*^9, 3.785133998248192*^9, {3.7851344017116423`*^9, 3.7851344052833853`*^9}, {3.7851344948064003`*^9, 3.7851345004821987`*^9}, {3.785135689262019*^9, 3.7851358291537247`*^9}, { 3.785136137351183*^9, 3.785136156622218*^9}, 3.785136190907497*^9, { 3.785136234653921*^9, 3.785136283190901*^9}, 3.785136313890521*^9, { 3.7851366506480427`*^9, 3.785136684774208*^9}, {3.7851999151694098`*^9, 3.785199968120446*^9}, 3.785200836074193*^9, {3.785200899928071*^9, 3.7852009259556293`*^9}, {3.7852009610432253`*^9, 3.7852010072194433`*^9}, 3.785201242847636*^9, {3.785201274188871*^9, 3.785201359600196*^9}, { 3.785201457801409*^9, 3.785201464281176*^9}, {3.785201673591222*^9, 3.7852017459870853`*^9}, {3.785201982015564*^9, 3.7852020120379047`*^9}, { 3.7852021517171583`*^9, 3.785202213644125*^9}, {3.7852023443091803`*^9, 3.785202434840743*^9}, {3.7852025283202057`*^9, 3.7852025419787893`*^9}, { 3.785202597989586*^9, 3.7852026117050037`*^9}},ExpressionUUID->"19371cd4-ca80-4c7f-b2f8-\ c04cc5fd4742"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202612501791*^9},ExpressionUUID->"7179416c-b7c0-4458-905b-\ 5ed8d40ec115"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]}]]}], SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Pi]"}], "k"], "+", RowBox[{"4", " ", "\[Pi]", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"\[Epsilon]0", " ", RowBox[{"(", RowBox[{"x0", "+", FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Epsilon]0"}], RowBox[{"4", " ", "k"}]], "+", RowBox[{"\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}]], " ", "\[Epsilon]0", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x0", "+", FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}], " ", "\[Epsilon]0"}], RowBox[{"2", " ", "k"}]], "+", RowBox[{"2", " ", "\[Epsilon]0", " ", SuperscriptBox["\[Sigma]", "2"]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], RowBox[{"2", " ", SqrtBox[ RowBox[{ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], RowBox[{"4", " ", "k"}]], "+", SuperscriptBox["\[Sigma]", "2"]}]]}]], "]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202636607554*^9},ExpressionUUID->"72db50ac-cc29-43ff-aa98-\ 62bc93154953"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"k", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "x"}], "+", "x0"}], ")"}], "2"]}], RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}]]}]]}], RowBox[{ SqrtBox[ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "k"]], " ", SqrtBox["\[Pi]"]}]], "+", FractionBox[ RowBox[{"10", " ", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"10", " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], RowBox[{"2", " ", "k"}]], "+", "x0", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}], "d"]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ FractionBox[ RowBox[{"5", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "k"], "+", "x0", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], SqrtBox[ FractionBox[ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "k"]]], "]"}]}], ")"}]}], "d"]}], ")"}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202636618656*^9},ExpressionUUID->"dd649ad3-7914-43c2-a655-\ 45268b58f78d"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Hc81f37B3CRcRzjbCSbxskMCed83rTI3txZEQ26pYxCIitEkVXSQrJC 3ZFKdRXKysqKjBBZESWjm9/393h8f+f8rn+ux/Of6/H64/rnumTcT1l5cnJw cKhu4OD43x46bjq/vq4OHP+tsRDar74/bJsRBn8/XWZbWtv331MLbL+Nv8Y3 NMY2n3K3JHxgO9X/sHH4TbaLNvjlcmixze1psFPMeSfL5J7ak9nJaixbVWce 2d6gynLILPNk0ogKy5VnM71KzZXZea/ZSq/dUGTZ4NZLM8NpOst574O6/By3 s+wSlUptyd/K8oXDXCV48haWOZSkXu+NloeaprqhjjZ/XO/lG5eKOmXB6Yt9 1c5FC9HN/McLfu6RgdCqLwuqpwXlvTXp3H2bpcCGR3sQ7vsrH9EayK+uFocD JcMWkVnWu+jndNZ9ckUhaFaoqrL9mi70m9FH0kXBiZbzxLIpV9du7xFb+zhR KMFxH9XurNCNEEooQj6ioFrZYK261qv7KbffnrBbFMJ8xJOGAmQYsW3hZY8a RUAt109syP8+Q1IrrU/hlQjUzk6qWR0pZzzJKuDJLBOB13dv87Uo1zKMOF+p CeWIAPNbzyaHng7G0LF2p4g0EUDiYS+T3UYZgR/GLi1eEoGeptGu8qYFhoD6 6mOvYBGgELdujtjMxcy+LjwwcFIEkvJ+ZcjakJhaa3I4a1cRKBK84yl2VobZ dGS3xntLEXgoaZgjH6fKdK83cdXdJwLm239ZGGxGzCVlt/jSXSLAP6lBXSab Mq+kBpTLbReB+iXTVu4Njkz5lbihDHERKF4ULH0zeZz53PU2XkBIBOYGfNy4 ewKZFrWPd4VziEAH1TFYoCWKOUZ/7/ZzngYlhqtWjp3XmOeT+hKOf6VB3HLS ++LZu0zS4uzTz900+Kaumtiyt4SZ77hxxKKBBvTumOLdA8+Z2BtRodoqGlxl +PYI/fOe2bFFSVu7lAbraZ/9tWs7mF4J+h4P79HgQX9+N502zOSYt70qk0oD S0JUK7/JLDPN3ut5WgwNztQ/YCaMrzDpLy98xQXRoNZPzWF0hQcD2RTCBW8a RJ0LOXs5nIzZxT7QnXemgc6ZI+vVp6Wx6ZkXR49a0KAgvm5+JHEHFmHdmty7 hwab/7ob2z27CxN9NlplpkmDgdV7SlFLe7ASyeXxt1v/M7+L0bKkZI7tixIk a22iwcdeOVH7gL+w3gkZrEiABhSFBh/LBx6Yr/muE1LrVCj83X136r4vxlNu lJrygwqbfGR0ygqDsZubXF/zjlKB2ze2wXV3NKYa7jcZ0kWFtpzhKvH3Sdi7 r5eoc3VUEOmS+23olIk5GWfpebyggpXpTQPjlFxsvqzMu+chFSK2kKO/TpRi sbTadJO7VCBP3EpwzKjEJM9/egPXqEC87IP/8PEt9uTLzLRGNBXibKe/9+Q2 YUYGnKIFZ6lwjSNGwiKvExsqpu2V8KJC5Sp+WWLPEBZI2uGT7EQF+3pN2Lr3 GyZwDt3gNqfCt3Jv/ld/fmD3+q1rgvSp8E8ITvFD2Aq2c3TnSocGFc6aPPod PMGJaiaJqqrbqOD2ODBpqpsf2f6Y87wsTgWVS+oFD3+Q0NjvlptjQlS4eaw0 oDF9Ezq7VtKmz0mF2hzBPVuuyCI+7iu8t35RoHl2uRBgO7qB/5u59I0CBOac TVCtGqKTTPysP1PgwZZwo/Yju9EL0R0FJS0UOOQWfzQnVw+ZSPEP4qopsNFV yVkz/QDqV5igeFZQ4GWDpJhRiBnyUawzggIKKDu8TF30s0HrOx+Ei9+iwD8S Di8sjB1RknZMRWASBVyPal6lb3ZHMnqe022RFEju3ME9/vUYenxgn6zSWQrk N03LEJ1Oob2mcg6xXhSwbhwI6w/wRx3WnFdGnCnwQytjLishGHke+lKNWVIg 7ZJY9y/pi2jxMCzf2EeBwOOM674r0ejSsTsqv7QoMEIKlMbjE5CozwVPix0U 0HTayXuqIRkV+jvfLJKkAD1RId7rTDrSDWG08ZAoEDf/eqZ9exZquijO685N gRn6PrvC5HvIJXaF8XKJDEmdk1MyTffR7JVPZ0SnyeDFCN92YrQQhadV5vsN kkE646k4b1gZImZlDDS3k6F+cO8xDuknKDs7kEJ/RwbjUo0UFa9KpF5gaxT9 jAyMbfMawv4vUU2pRvhQMRn0zyYHZBe+QbYV5Ardu2Sw8AyXUSDXorGq+an0 FDJIPDz3am29Dp2tbpOZjyFDqmHGi4TQD4ivoczeNJgMzq/lGF+N29CN1quJ +X+TYbjoS+aKYgeid/tUc7mRYVtOQxPpWDeq6jdddrEhw2pjma3vWi8yHVVU eW5Ahlm+ND/LxQE0MIn3pOqSoWPCiH4o/wvy/TGZ6atMBgWHb78EeUfRtbV8 nq1UMpyo/SKYbzuB5LhjGRF8ZMhRkqL46E+jJ/hjZ/pXSWBXof3c3G4WdYkq DKQMk8Dt0A2x8wvz6JjURspsJwnO40Qmugp/oiWFkYNG9SSw39t3tvLEItqk fq+co4wEu/tneP+aWkZF2uFTjjkkkLS2mHibs4oYeq4yT9NJ4CllX6dl/i9y MZVI/DuUBAXK6967NDj0Zq3/vK3zJUH97U5h368ceuGH+pbkPEjgZFy3dWP0 Bj2i23PlMHsSmMt8rA0mcOplH7vh0WtEAsPCkza3ozn11H3OZWpiJDgSYBcU P8ypV+Nv35qkRoI9trEizxS49OxCdvFMy5Ogj265IGDGpTd+kcowECWBEvFz 0qdDXHr8oaWzKfwkeJPZ3H/sIJee8rmDOUN/iHBH6+T2lyJcelZ+I3ZKs0Tw PbHbv/0dp16gTyh/8BcieGcU1Gk7cOplnhB59e4jEWyNbfSJzRv0Xnk8Ok1+ R4QCHPH9D/oGvWFXY4XDlUTQrI427j3Nocfj+LWnuJAIQ2n9Laom64huF5aw nEWEkIsbXrqk/4vMLMX0DlwlAlmmnj+0fhWlGZg+GPQjwtphKrcf7xKS1ygP IDGJ8LErsaoocw4Zqphvd1UhwsYjBuhc3Qw6SZ/4XCRDhJ6GGAvFuEmUpBCZ tEQmQptqmErT+XH0RFpi334eIrwzwOIUHoyiHvGnv5OXCPB5i5BfEv8w+kOz LBqYJMDVPEkzcYtBJE2actnRTwC5SC3x7v/s317BaNK5FgLQFtQqByW70VE+ qXc1bwiwbbTGkrf4I4rnehZEfEIAf4HPG+FuKypZs1JyySPAgWvbDn+dbkTt y9NDhdcJsGp+Suee8Xu0+DMm9Xc8ASKdJip0zarRpjlpw32hBFASa5durH+N sKnnq0mnCJD+ezamZf0Zch+zKe13I0Cf0L/qa1LlKObLd3e6DQHCaXfqDAQf ocLPsbSzBwgwSq54tOpQhJq7ZRuqdxNgZPkkTbP+Pppvrwol7CBA3pbm9Y/M e4jWbKfmLEEAe0oH/vjmm0infm60QJgAKqP4xnbFNORSE399cQMBcIk1D+k+ SYgz7OD1mG/CcC+bNHXJJg4ZBYSuS30QhubUdVThGYmSvR8dffZIGILM+747 RYaiHrevH6zShYHYFawoaBaIpB3ENKeDheH+9YZEyde+6LiZaVa0qzCs1ye2 WaweR2X7LnJJ7ROGb71pRi0R7mhJp9yrcpswuOW0HM7Xc0RIbaLNUlAY/L9/ H1+YsUYxWyW0p34IQW+roij/LxPULGF5N6pLCC6/pw5sH9uHaJRoXskXQnB0 4rANxxITufA/83l6RwhoF2uish00UR7HTKdFlBDQqwwM8zSV0cyiNHPyuBBI JMq/D2UoII0Zm9xIUyEosjp5UrlAAp0ficVL7BSCafU8zZkUCqr5VHWmgiYE JYU21eHOAkigde6T+aog1JW6PJny5kI27+T1JwYF4UPHUlGH9wp2s8ohP6JG EI50CP2T3vsDG36cILy5QBCkOjBczNI4Ri+AwPJEQeBY+KM6vjSInbnzs9/s jCAEyX4X/Ue5E3uetm3/NztB0NLC/1AbbsT4HMePbGAIgql3quio61vMTjov YpOMILim9vkdIFRiuV897qnzCALlKuFsvEUpNl8oByZTAjDkPptKQbmYnu/w gGerACxav078yJWJXdG89++FcgFQrv/kfP1mEvZ5xXXz9UwB8NoQVSZAisa2 g6TuozABEMq//7dGUjAWGN3/V4OHAEQw0LpDji9WY5R1buSgANicJxislntg JIJjxh9lAdChPOcRuf0XdrhTrIJK+c+8YX3doPPmWElmT4fyMh6CHjvMKOvs xf64ZiwYDODBtvrU9XBbLcxIwY7kVo0HfU0FZqScInZ9kqIWnI+HzPmrytN9 0thY6UfzlEQ8WPAaiKySKJhGwDWf4jN4wA4aJBoBLxahY5lYa48HzvGc0sjp VWbLunDxAAMPa9duHL9jPsfcXNvc8FsGDwJ/71A0nx1mesUnThB48bCnv/LS me5OZqW5CR99mh+uVoQ858bVM3mo+K172/ghcMdbieLIKqZNb/1+pwp+cIsY o4NsGTP7TqxHwE1+cKiWDwlQyGbOeRhEXgnnB7NGS6q+QSoTo/NkP/Dkh/u1 zFPBUTHMhNkaACN+4KP96rjYc47Z+yRy8JMKP+jOWP1Tw/RmbgveszZP4YeR h+3HGh46MwPQBgmBFRysRQis5BIsmG83gq7CIA4c8HMH5Q31mYSGC4ewGhz4 yUd4SgftZLpcZQbZF+Ag96FL/LY7csximz8ZvldwcFnYPqiynMJcEXtREeeH g7jmE062ldxMw8GgzmwHHHgdPkEozl5kpOfu/vmCiYNXz15XlvqOM0ZP/CZ1 yuIgCdWcfirZw9ipUqH2nRcHgYWP5m8U1DHCf/pb8M7wAaeMyZ9aoWeM5mfq p6Tb+cA9OSvBzqSAIR42n6j9lA/MDzxblnG7wTi+71GxVRYfDNUeNq42iWNU 4HwbvS/yQcigk9ct4SCGVeoM321jPkgZ26ppJ+3AuPtX8danqnxw1Sgo9cEZ A8Z3Se8DrVQ+ED506edC7i5GfMG3SM4hXrBy128Nr6Qw3rwaWTvqzwvazjD/ hdyqqzrx6afKLR7IeDzGr5/I0PWfU9ouEsUDg74hTflhdN3K3xed17x4oO/J aZpKgKiuPg/9XdNuHgjtPdGmeeGnjpVccMaJDm5Iy0lx2PC9UCfAeZNODp4b JO5IdhzsIuo8bzsURgvmAnONj4YmJbW79z3vw/1rxwGXG/td40I/aPoWlC4R yQuvJ+S0aGtpmUp2R+XutZ//9Nr48RNuRfl6ufdNn+LVrXsQuaR37PABWVEd pTePLTIWkJVaV3JDphaOM5D62UOMQ+//zmVeAYuL7t95WI4c6tp7JkeQ5bKb MRYX5oksn8r2IIzaUVl28cqUuHRRlOU4y0Bt9SxxljdS0sbCViRZ7m6MnosS lmHZNsR9V2a1LMsn8VOyzYfkWZYqepfOM6nAckjlXmvhm1tZ9s07WbFLZTvL Apxa7spf6Szv/9smjZ6iyLLoM4lT++WVWb52JjZZtVuFZasYc6VbFaos0x2j bHND1VjuGsNlp9juZLnZ/as+SUqd5S8bHyylybL9M+94qdgWtsWmpjbLKLHt 4Tf/W0WX7ZXI9Yem9mxvuS+2Ke4q29oGfa0CKWybTGRdSkpn+7SS9K+MW2xX lW9pzSti2+qdekzNe7Y9j/9iGDayfY7/6UJjM9u3zHTcPnay/a1LjzE88v/y nuNc8BxnW1C8pmBiku2drgYiP36wvX8Drtn/F9sOOQ1RS0tse+1P0D3/h+3/ /rtY/h/OggER "]]}, Annotation[#, "Charting`Private`Tag$20717#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Xk01V/UMPBrumauy73mDElRmQu53+8hiZAMpRENKGOiSGWeJVFRSAPK VJRKxu4uU4YyJGkwZcisjNf8/t61nofn/HPWZ52z1tl7rfPHXnvLnD5v6cBM IBDSmAiE/7/7/dk/ubqqDoT/WQNXqTM/l9ZtRuqaezu/bmltj+XzU+v+EH2L o3tg3RxK3zbAp3XfuXjSJDBl3blMXhkEzXWzORiqidqorVmwvco1LV51zZYV yWcU6lTWfHUCc43rVV5zkU+yc/4BpfV4bx2SXknatmbD1HIzo1FFCKtXThpk xBCe1vi2eR1XgEC9lQ3TXRZctqF3KI1Zm+EOz+7opxHLgv4nWfK4BeUhUW6L YQCPvARhuxRdP0wOKmPslON2W2/8cT0pIverLJwspx3+o71LUYLrXPb0bhmw jyh1yRL/rOyyQ5Htp4QUHNNoFDalDmuc0ezMqqgQBxMk3Vzpu6KleHnXqnuG CIhLWow+KZjSgQ4zxd7E/6wazMPTsKpjrX/m0OEoESiINWphT+KkBfPF5CJ3 EWDV8uQV9pamfc/oOEzSEoEr0w3xfQ7GtMjmwBcv64Xh4+9LqfqLqbQNmgk/ N70TBseb9X/qNTNpr+9nE5NfCMPPjXrR3BMvacbM71T50oVB1/VLJWtaKa37 bMuJ4ARh2MFs3/dDp4rm/WkgYjZCGESKstn09zbReNQXC5yvCIOmPYXa39NO S7vH39npKgyu74fF5xi/aZorGzmt7ITBNLL57sOfo7SGM1oaNRbCkK+6pDrc O0M7XWtqp7NHGLiDLZ/33yRgDKVT0fk7hUHniMaoxioHFnvn0puNCsJQ9qhG L72JjMktRHXfFRcGNkaHxzZdCazE7gE3D58wnD/gNBK+eRNmXlWwM5AgDIFv D+t4JyljA4o1p6YnqUB5Q7LbFa2JXYv7GXOunwr5UprCaX56GHl24u2vb1T4 YbOxuX50H5Z1nLXXvI4Kvk8ERDoUrDD8vQhfVRkVKrMzlFh3n8Ba5bdra+dT Qfju4KfyGnvMOUbP/vljKswQLPjbr7pjhMlDN2XuUOHEtsGW7fu9sYTDziUJ 4VSg+Xc6zBkEYorl/v2cvlTIajc+LPQiAgPZ2yR/Fyrck/YMk1CLx6wjM3Um bahALcjrqxi4h42OlTo6mlPh6yULtZrFx1iwVVP8j91U6PMp+eY0mI2JFPeV me2gwp8UYWO51AIsb8P8nw+bqbBSpPvg8vMSbE8or6CmGBW2D0fJOwlUYD+G ZPBcHiqox1pWs6nUYx4HdjpJrVLA7dsvCunQF4z4xvjO7X8UaB1+4kdx/Yml iNnR2fsokG5zp4jNsRdTCfQavtpGgQeCh/Q+241g1f0RlL8fKWCl2Uip1J/C Tpjc17UvpYDCTWtqPPciNvnihUv7cwq8tBH2PTrBjEdSqxJNH1GgvGFr3PQF LnzDte/v4RYFvEZZ7x9zIeOve8ZGNcIo4OH5g5B+VxQ3NmQWyfahwP0Hb0Xe l8rg3c+o+pLOFLhuGLRrQ8gW3Ju81T3+BAV225eEFfWr4DyXURLbAQpkaP2S cqNp4o87rCp99SjwzuBcXGknwtX61BZaNSgQZRvH+eOoAV45LKCisoUCT+xz +4Svm+KH/v11uC5OgR4Fg4+mnFb4wFxjygAfBeoPvEt8cugo7rOS16zHTAE9 wU0NzC0ncQ62WPbUGSHIVnM/M2jkiCdxu2GMQSHY4ajEu/uSG65INvWy+iUE ZPWW0o1uXnipyNbsvEYhMOHEm8/E+eKmUlxdnBVCsNct7+eRj4F4x6YhIYdC IeiI9WQ7thSGu2/7aAzZQkC60fiwpCwGX1XLDBRPFQLqOdKyRPktPE47vNA7 TghCZYqPcZ++h8voOow2hwhBQbERjGY+xAv27pHd7iMEzlYfdtADM3D9/RuP RDoLwZTP54+FATl4qxVzbK+NELS5Fu4cpbzEHY71VOAWQmDq4MtIX3yDz56E +aQ9QrD4CCtw1SrDI84+VJ7RFALZfpT8mvwBF3H3dzDfKgTmAdv4akVq8JyL Nim5G4QgL+y3zjGvT7jOVVozkSwEaXN/PbpKW/CGIHH202xCoLIiJlpQ8w23 jVyglTME4cjUMrvohk58Iva7p8ioIFBliTNe7L14YEJRlleXIJz93GKztPwH F7h/t/NziyBo9pi/81Yax9PSvIUUqwVhaKCrcejvJK6efcg4rFgQMjxvbbAv msMr8zUCu58JAl/RcWmf9GX8UKFgoc4jQWhTIpjd92VGA2WTI4m3BaHV2vKz 8CIR+VQ0y0yGC4LE+6TtbmE8iKPuxeH9VwSBIP2tIjNLACU13byR5SYIrgFF ifubKUjxm3sFyylBGOu5+3Nzvxgq69g/b3tQEL5dYpnYES2N9vdtUy4xFAT2 pcQRBVM51DnM7UDR+e99ubKQAz+2II9/w8keSoJQewmfTj+hhJgYtU31MoIQ aFZ1XTJIDd1aySJupgjC+HeFJ9uCdqKNbJG0YI7/8uG2S28300Gvuc96diyS 4ePqFYPJCF1kQN6bpTVBBtVTw/tlGfqoTWRT5+3fZIh+sqTvL2CEzkqxCk18 JUOLWXVP9D9TxNjUu8+4lgwv1YgtW20sUNS2DwFPysjw4du3lajag0hM/fEb wgsy1Ok93Ha09QjK1Q4cOZ5OhgS9oEemd20QTddO5m0iGUjBtML2u6fQp734 YXI0GTR0vmQ6d9kj2/2SN9z8yFBzdXjfrjfn0ITV0oePHmS4KSBgdlfJDQUe +8nYaE+GTkG9raB6AQmcKlEKOEwGeXnp+AuaF1Ha2ST7H8ZkyH9wPfL8Wx+k 7n45eQdOBksTn6LQD1dR5cXDTXGqZIg31ih+tiMQWV/dSRyVI4NcW/Yek95g 9CeIQjMUIUNvw+c/ITNhiMsvf+I2Fxl2ewyP366NQkqX96V3LwnAlpjHyuwa scjSq9d6+4QA7Hx6WlcgIx55u/txXekRAP7FVmu/G3dQspPwu+ovAsCk4Hjy Q89d9M7+5QXBagF4Jx1KsXiegn7bmWw6WSQA9JaP/24vP0TE4/3tz3IEQMv0 UJ+PRxpStA6Imb8vADElKRdOqj9BZhaiuntvCsCZJy+Fcg5kIU/TV1O3ggTg no/o2NinXJRguD+zy0sATFH3M+W3+aho959j2xwFYN+1ynNOXAXoFxbE53tE AOJ07/jtvfwaEbTFP1QZC0DHr3vJiopvkZzGm0tkTADqytqIWzaVICPlAwp2 ygLgw+6lesK9HLkqDv3KlRGApM27NC+EAYrbFBLHEBSAvO7+sN8BH9Brack9 BkQBiKpotJ/NqkTt4m/n4hkkkGmWcmBnqUFLVIvczmESMO1SiDGNq0X6vGHk y40k8PTVnLI1bUSOHFLVle9J0H3yjO0e1IyiWYp9BV6TwL7l8qU9My2oZX60 O+ceCb77nb+aUNyGZqfD78xFk4BL1Gxo88d2JPZX2miPHwnSiSVRktM/0OmB g/kdp0ggadarO/24C4X3jJ9WPEiCmMqhfaukHpTzK5Lqs5cEtueDi3/a/EaT LWV+pK0kCBfKDbkh1o+YA/bdCx/kh4A+1zvjy8PI+JLfqtQnfnD7YTM4GzKK 4l1eOha/5Ierjs4og3scSR8R3TF6hR9iX0aLf7v+FyHVoWYLXn7Q7+u4xuo5 hcI3S2qP/OODqA1V1X0S0+izpMWj0DY+0DgRcjqePo2oQmHsG0r5YP7OlP/g kRlky1Xs/vYhH0hHFEPLnxn0lDD21TyUDzpnPW/sdZlFY7PS2PA5PtClreAm v2eRxtjBjJD9fLCkIKS6ZDKHrvVGckuq8UHYwaaU65lzqPJ7mWchlQ+i2V2U DKbnEE/T3+8HFnnB9fxR2zhVBjpYLac31MULvfr4yUlbBkopO5IVXMkL9dZR 7/mvMdDvghh+iWxe4GwwS3keyUCK2eD95gYveHa9OVIQykCeD6c7zDx5QX7L EV55DwYqSdhiMGjNCzHn54+qmTAQx/E/Z5hovPDwMV8AJsxA1tJPg8VkeEEn Mm/vptY5lNFv/1idyAvJ9LvtzsFzaDJnI5iO8IDB6hadHNk5pOvxu9OhiQfK gy+fufdmFsXueLzs/4YHOL6LLhFos+jXgp3EvWQe8Ek9OlpROIMUYIPOywAe ULibk9MiP4O8wzqO1tnzQPSftw7bb0yjSuP7l3v38QCTOSepe3gKnfwqWkgR 4oEo+eGsJ3GT6N6wkOqVLG5oiEhOc9k3gQbyvxy4fYMbPnXOb+KsHUMal265 P/PkBjzP1ybVaBQ1rvI/66RxA5d7r7jqgSEkUfW5bk6GG5DTqnr29z/IOfrG EImdG9oWbVNZXAYQkcK9Wb+ZCxYPL3A3Z/aigz9qDU4UckHwYxOxB4d+o7SH kfaXUriAQ3/ek8Dfg3BFYlqmAxeo9e2K3HigA8VMVAIYc4FLao7ZF/6f6Mfr kK7vylzQIWZz1nq0HV1CTJI8C5xAUg2gBi+0og+soLOpixNOLP14fnbbF0Sq 8z+GV3JCbG4OIeNKM7K9ifkezuaEqbRzAxm1jejZwaW7HrGcUDATEVbd2oAW REsLo7w4QXFULUuPUoeMuny/ph3hBC1WqxmnqBrU5zRH/irLCSZRm6s42CqQ mnKh6jg7J5x/MGhM43iPAqcvmrOPccCJc+4aVm7v0Odi9fPSLf85tNamV7wU iQdM3tB+ywEim1JWrYWL0Lk9L59Z3ueA3GvlnG3H3qBCTo96lyAOaNlTT7jZ U4BYG5WGQx05oCF8jvzh6QtkeWeM44EJB6h+Mz+TYPIcPTr6bPNbFQ6YG+3w OPA6G41vcNnbROGAVMcDtqwBTxGtT8FhaIEdNLwqPR3S01F09mAIczc7WPfq x18XfYza3TPTxKvYwXDf06cLr1KRvIbje40cdojOPCXuWJqELs7Lde+/yQ6q 9yaGVWmJ6P273hXHi+zwcUuutpTibcQXmiYZeJQdZCneS19949CJfadoSTg7 nC3IUHqvF4Ny+KSPF2xkh8Xdfm3GWyMR40unbz0HO3SN33YqfxCK9ial3usb I4IWs8022ZggdMf2xNvlFiLIqjgHsdb5od8bxduoRUTQy09OeqTli1SGvk8r pxLhi4f61TTTS+ji3+0KwqFEWM54yJYg74mK5oJsVpz/O999UKmlwx0trXyN 77cggmRCfVOfsjPSIypWN2gRYVRnrm1O0RGF8/ovvJIiAs9VfN68+DSqE2pR SiESoYE8bm110w7xScifCR5jA3Q5sWYk6hiy3HjlrlMrG5gZS7Ce2GONEhU/ 15uXssGqxXM2rQxL9FNVlqCVxgbqVv7HX8gdQNLa3hpSUWzw0ig9hXlmH7LX rTtH9GAD7opdC/KJBijLcEPqmDUbeAc7agQM6aFRM8/mVowNPnNO8/NmY0jF upqtTI4NkgLzxJ8FaqFLNmK70rnZ4BKfLDipaaASe3f36Mn/Pn3qm3eO91XQ isuHtAvfWSE+8W2Ivv5WtNuL+u0IsEImKV/mmaU8Cr/izK2byQpHYzLxdpos qgt6hzbH/ndf6RphuFQS8UeRL/JdYgUDDdbth5VF0ME4x6yZ46xQLqJrVfRI EN27W/Lr125WOPWUKFhVy49+PeATqFRgBeYk0opcPieSfnraIJfECv9wJr1P r1mR/fNC31tzLOA0a+fByCSg7Ndceb6dLCA6E62QV7aAj5fa/j5ZxQJnQv2p fk4zuFpFAdXoGQt0eOTW8Uv8w73riCbKt1lgelBP4IzRCF7SfCyAeoUFdomS JPRf9+Mr7Xmvlk+yQM3Z+03HdvXgu7uZB/sMWaDQKfIRh/FPPPyPtUSDEguc JiwfexX3Fa8fzzF/RWGBlaGrPbxMzThpdiU0eYkZ3uRvagt7X4cfXLYsDupl htaLuzyHCFX4PdbMsXN1zHAoTvRBjBfgv7gXZcxfMoNiwbzWQGExLi14wFrz HjM0WXI+tuJ9jTuIpUdvCGAG64rdvxU08vEcmbl3bI7MMMK43BOnnYWPbzGZ GjVlhqCQGb2eijRcTeXh5lZ1ZnjIyq7yhykV99acOl4qxgxPBPltG20T8RLc MC6NiRlKRw4SXu6Mx1cNUiqjBpmA/773aIl7NL5n/wTDo5EJXLewJbehUDzy oP72I4VM8NRuNKht2h9vOP5fEZrKBMJWVnxb7vvgpDMjCfKhTLDCo2Bya+4C ftAZ1fG6MIH7hda2RSMXPOnC7ZVpCya4ZyTavZprj3de/qP2S4sJ1LnyPMd1 7XDZQJ2zFVJMcGKg/UvHrcO4Y8TNlBwiExh1u2l+LbfAc2J7G+PHCMAUG03U eGKMjydosvq2EoBfR6K1f1YfV0+9rnWylACXaOVaXd8x/HJGl6thGgFqXXpz L+zZiZflqj9WiiLAtYK6w023VHDCq4ivFA8CGJR/jGlK3YLvKfnJuWxNALPF fwEZmCyel/NEu0aHAEN/Y6tZTMRwkZTzTvHSBHhTP0W7PkDGg69rJx1nI0CW 7jYpFTFuvG2OeMukdZV+3ahvNPQUC57TnvyvK3WV3ptYVxT8ZBHzL1ayuHh2 lV5uUTvVlDOFWSZ/eMGhukoPl+JfLhgcwTZdtSalLqzQhf9JkLZCL8Y4Pnxe tXKF7pHY3JPT8xNroPk3Vt1YoffzHdsy9OgL9kiSrHzs8Aq949Vur7S4euzi ypPYcekV+s/YbAqrWQVm1KU9Hjy8TJeaGxuTYJRg4vBpv/DrZTp58EwtV10B Nv7o1PNcv2X60lWpBzUSOdiHoBkeXcNletRQeAlBNA1LPB3l2kpapv8+wTlA Y0vCnPQlG879WKILL1cxKerGYzS5l1uX05focYrl9PziCIzEZnA93m2JHuDC 3/DRIBDr628f3qS5RF9QbH4Qpu+NFVW7GpcQluiXL2Mej0+5YzGZhByzukX6 sGVuav8ze8wu8g5n7+1Fupw78lQUOIGpOW1x8rFZpPNe6zffQ7DCiMZlH7k3 L9L/8p23+Zu1D/uhaL7l0d8FevX0LrcpQz0sj7svQqNkge4/4SSuo6mJBY/6 /PkYskA3GSuz8RFXxg594ja02b9Az7xfFGpeK4dtyXv49B91gX4ytPwazxtx bClWnRjePU+/6O/FILqQsabzNQ5iOfP07r6pRDVXDizd/HhVntc8XbuqvPOi PAHzVp2Q08fm6Xd2KH/9sn+GZkwOCf1GnKerD0ok+rGP0jZMUftcmhj0fe4T Suz2v2mTX3L0CckMOrGs9jg7uZ1W/RpPv3OGQS8IO/2X5NpIS0poYVbYzqDP FFuJ1V6spLl6O54un52jxyERt+y4Epru4YX3FjBH/+v29oyhxkuakFaszEDU HL3ZVenIR+2ntEER2aArVnP08P19zUfS79PK5t9080nO0TvNq0amHW/Rbv7Y p5s+MEtXuCJjGZUYQdt5/8Jqve8sfd8rW3mhXV40Lj82u5P6s/RegzG/Ba9z tA6bpHfTPLP0Lu56k0+sdrRQqfd+ko9m6KRvm8bmPxjRvqSRltyrp+kXnE9q CSRuoHlk5zMEBKfoXU28DdcTK3VU+NxDdndP0ic0bl+kTBfr/PPcxuf1fJJ+ bejrs72WL3Q8adkbWw0n6dUsikc/ZCTpXGpMM0u89o8emtOmndngrjM1vHXf joYJuvKgpdDcsKAOMYTxaK/nEN2fKZcrIPLQLmvHjY9brn2na28vfOVy86VW TcP3aHWrdvRlh8FwuvMvjV3b3xeY3/2vLvVjJNw9UKfM7E35ZS9K0E0asWS4 jKgrsvOYB50eJ+r+jq1pC9fduTGku03fM51Xl8E39tD82lnxFynh5v6TAron rY40BYsZCp5Psyf1WVN0vRXcno8UXOe0dU6WjAgS0f3f/naUhbe2+n3xNbMK JQwELGxY87f6sL+h/DJrPnT19M7kCtk1u3KPyH4+JrdmqdzqROLwpjVfLdK3 4k/ZvGaPp66FO5UV1szDrHlaqV9xzQZuBxMUb29bs0ix5HkDOaU13/KMjFf5 prxmy/AD21MLVdaseDz0UIaf6prbBjjTbh9SW/Pn0/16ZCn1NfewZjISZNc9 /fRcvqj8ukVHRiRktq/b3mtyTlln3Qshq8/3H163/BNRsaib69Y2/NnEc3vd pkP3I+IS131hu/TM3dR1l72Rb3qau27LavXwypp1O5yboRnVr/sy19up+s/r TjXbderL13UPtunSfvf+n3gvM085/Fk3r3hl9tDwutXsDIX//Vu3ARPn54sz 6z6SXhfKYKzb2SBG59rSuv9nHrTm/weiOLgO "]]}, Annotation[#, "Charting`Private`Tag$20717#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nkw10/8OHBy37wdidxXhNw53q/XvuWKUI4QJUmShA+5I1dyVEKEKEfJ lULJldc6y5mbcue+vZE7fv1mvt9894/decw8d2dndmbn+ZxdAVsX4xtHSEhI yP92/3/0nzZYPTiQhyT/06b8OH4P7B3akHlk8/P2oflVXP+4rB26JjKWenTq 0NTSfbyw9dDP7tqcC3xx6DxS99ckpw9NcUNH7tgVuX9m7a93yoiR/Wfj2uTr 4k0y/+y3jDg9HT/1z6VeyY7vz0tDDe/h3eoCwyOGsRf595MkoU1Fi7JjygaN TuoXw7MLErA5P3p9QmqfOeurT6+7lTjUTDwguCBcR61Dn7F/zxaDc3VtZfZv CTwBNmQFdKyikM5zrLKzNVyQRIoP03ggDHvvG+XqC54T+xmV9DCvRxA+I/i5 U57ZPXmc1iFn/YwAfOJbcXSkdObUbUUJioHjfPBOu+3kQNd7+eunh7Nra7mh IynrHc2lCSUJb9UD59ecMLnhrsZylrtK+pBJnY86Owws2BbZo4dqchNyO90K 7JDy/PSlSNMGtbo5FhmZE+xwxezlQT7Vd7Wpze8vphjZoeExrazQn0NqEjh9 d5NBNshRoO+3gu6qFWlrCkp5sUGHdk79WTdFfN17hcDRfFY4XaXO2av0Bn+x hLVELY0Vyq+l9qc65eOnKlfnE+JYYeTzPTdBimK8V22HwGoYK6zfheEfnMrw 1E0fzA18/8bH2u3Qb0N8Unv04+w7rHA5SmEwIKMBL9HnXEt2jRWq59Aq2oi2 4SuHDLatTVnhF/2DJG/GbrzBhOSpch1WaOlDVSX69id+eI7uBrsaKzw5acGh +2EM70qcS3aVZoVrI/ecvdyn8aRbje3NAqyQUzwWN8ywjI/dz6YUY2eFKr9j Q30i1vFCFOH4YGpW+Os842iuwC7+I91Nt6FdHGwyjOONnyJFtHDa2crLOLgj ZHD9x3MqpJdTZDjuFw6Sbm/KSjExITf5yNmWe3DQunUiN+w2G7IlMq6r14iD Eqs3YHoHFxIhWXP/TSUO+ur631B7LoBwyad/IvmAg8dbno770YsheSqB81aZ OFi+Nu8hIyGN4AlXBT4n/F3/bOuYymd5pFUbNcdF4uAM0b1y74sKYm3A8/iO Pw4+G5st4mokIMsmezXfXHFQo1Ur9eaQFhJoObAlZIeDtbCLKcVNH2G5Vi59 3xwHV2V4ZinuGSMZN5PsfurhILGhB6jtmyPyzt7JiigOznavdF3kvorU3TVv fyqLg0z6Ovl8wnaImZ8S5YIwDt7YfEsjzuCITAex43U4cdBfN5OTqtsVofV/ vxxHi4NSNY+XHkp7ItLeupmjeywwYo6IfZTzR4zdx82klllggt/7qnKZEMTT 2Z/Wd4wFaplxqf+QiUCSbx2tauhigXScs6OtwU+RKrvC/1gbWOD0QIWUWGo8 8uvqORGbUhYo6g6i1dVTEEqryf78XBaY41C3bf5fBiJhdv/RdgoLxC3dxw5o sxFDo2ME7WgWyNQceG5B/z3ipl+8FhvEAvc/hTx8bfERidcxeDvizgJB1AcF JcdypPTMtKWkPQu0IHNOD+OrRgaRIEYfCxZo64VeMTjZgJCocNfU67FAzPvW j9ScFkRY4ZMHDmGBb1mz8SOBncjZU+fFr55igcwrEgEuA32Ik8TsYJ4AC1SL 5tEp+jyMPBUJebrFygJjRQVVQ7Bx5CM/j6YWJQusSzPON7OaRfq5P2/GbDFD 6N2wWa6+guxxGOUNzzHDBgi1d9vXEX7cvPXJIWYoZ/CUR+HlDqLB8ADn/Z0Z 6umVFefvk6D21HwNddXM0DlMMn8qjwKNJCvzYfnIDK8LfUW7EunQgn1jKess ZqjJFq7K8IgF7dxeGM1NZIZ+15+/DTnLgW6shz3bjGSG5b8kitAzx1GuFf6z mv7McEaat65uQgBF58t3n7oww+yLfXzC6aKo7ZTp+6FrzNBrecn47DNJNGxs yVbClBmKv59rjaWQQ3MHwzm8tJmhEiWb5IMiJbStT7CpVpkZNrfjSWaj8Ohq Z6U/80lmmJWdXE1YVEc52sxkr/D8jd/FcEfuaaOqjSsTOUzMkJT98jFXcX3U ui4ycYOUGZ5XGqP4lGKEHrmvmxg2wwRrm9hvvTy4iOp5+B/wtTJB6vQvKQGu VmjM7UL7skImaJwU0zfBcQ3tvzbZapzABGEug8eU+g2U3+KY4oIvE3zhvWba dtMRdTA0SHlw9a97DAWybFzRD5pBZHyaTLCeu/9Btu5ddEv1k2PpCSZ4yUhp oZHTBwWysx1GDExwQZT7XhPJfTRMjEdlnsgI7TJQ5DFfCNrGY5QW2ssIT9me frP/5CHKwfaAireCEVpa5ZVE7D5CrWnLnD+/YoT7P7vsnrfGoFkkiz0XQv+a ddLJvS8eXdzgR+YcGKFj5avUqzXJqMKi6esQA0bIs3knLd46Db03Hk7HI8cI 6TTtilYPMtG6H5VuJRyMEH1yirTZPhulb1/5cX6XAdawiy0IVLxDTRuE1WdH GOC5QLbvphxF6ItKi+zgOgboLJixjdv5hP4qesR0PIcB+iCY04PcclQiB3p+ eswAg/1MOvrEIOr2an3I0I0Bpt10rPV7VIuWx5/QmjFjgLdYX/QrvvqKUltN XyfF/52f++S8nkMLasafFcwlwAClDEsKNxg70NeTdunylAywIMCjr9CjG13N FYL68/RwiV006ENQP0pw/TV8o50evhE7diTlwhD6RDH9T8AneijtUxH4OHgM Hdy5ejwxmR728/JKtIxPoOKQV63wPj08bc28FTs+g3o+GLrUZEcPEy1Ky0Dq Ilqnl+I9rksPmRS5KPUTiSiO2er5njQ9vP25Bac8to7a9BwrYWejh+WnqUeL q7bQguT+bultOjhjSdJzVfcPunf1+ZrOMB3E5NQLOg1JgZ6IGe5aLR1keySp zedMDhLn2GR9s+lgNeO83k12ajD1vut83GM62PxV4oq2JT1Q8Ih1znejg+b0 RdMwlxkEqxo9rjeng6opnlVlMazg+wFT/jCeDh6bknMmrHKA4/VtTZsCdJBn rObT92Eu4Bj5eJaZig6ejlhud3fiA6Xn9aklFmhh+fbn2ceXBAElO52YRgct TMfU67ftRYDpz0atyyW0cFWL6+z44gmQ8SrczuMFLby2hk8rOZAEK3Y6IU8C aWFvMRcLS78MQCUoM97eoIUBLXE/8yLlwaPlOgj1aGH7j2h+iddK4OfHkJEf p2ihz4+ALwlyquCE75n9VTZa+OVDt3yxFgo8ACkP/Q4NVLhlXBHrpQ5qyKGa yAgNdElXKDQV0ATMTQGWaB0N3KFgoBQ6qQOsoxEf8xwaeJtoH6qRrgfyTfee uz6hgSrziZOXYwzBzrGKkgh3Gih5M6L53AMjcHbEpyfDggbqRoidH2U0BQmv ldcrEBqYBNPOf14yAxO3NnE9gjTwogZvMNspSyB3qkR2iYoG+rVYpJ0duAIC 1+9eoFqkhtOq3uHjBzagrUzehb+TGhq8s9bmvXgdcN9ffazymRpu7Cdc6lq/ ARw0C/ONU6jhCkUlojTtAEpoXJtvB1HDqOqeT2qKToD8u/RcqD01pEhsr8ya cQHGzxapX56jhpwlLEO0lG4g7VK+2GcZanj6RcDaw4t3wRLvbe12dmpYAdLs aWY9AX5C/MbsDhVEq6XGz3/1AZE5MyFHRqkgUdGy4PXmPdDv/DaDu54K6hIq uVcIgUBUwb5aIZcKbv4+jVc+HQzubguPGkRTQTvBp+GnroeC6qrxffu7VDDr OXVoXmMYYAzN4Am8RAUfO4fR97hEgMu61/BJKBXMUNGvlLB6BHIZ+a2KhKhg 7deOreCYaLDVNezTTE0FI4+YtIc9igHaSamJE4uU8MZA22uJe3HgmfXlz386 KeEx0/0Dvhfx4JcQdy9HKSXct7WvoFp8DmRmf6yfSqWE3CIv9T94JIO7K1Li R0MpYUP6dEURVSoo3Qy6su9ICRuDPJ1l21+Bvf2emEkjSjgPs19fvJUO1Ckl GlqUKaHNwSvVqzSZIIwhYKeYjxJ651XeZm16DZrYOqVfUFJCD/Eabut3WcBY yPf5rW4KSJkuce/NeC5IkGhrvlBBARcad6Y+qr4DA7KCJMoZFDB7Zkrcv/I9 4FfxVOCLoIDDvEu/HisWAjtCkwOlKwXMSfO+eel1EcjW4U1dNKOA6yrVZsUn P4IFQ7eOboQCfrlc0/Ou5RPwuMKlmklHAZVzXlXVXS0D5XbOzpGr5JCDMaVi y6QC7N+uyfjvBznUikk9t33jCwjzdaQjvCWHWFGaQ+YaBE1BVUDsCTmUTsJ3 KUnWAKYI3F1GD3LIOEwfGO5RCxKflw8OniGHyqRbz9bUGsDgS0aWOnFy6HNn pa2y7Cvgz7LVymMmh0cfKnen6zaCnI+0BT7DZNB3J8/6dVoLKO+wvM/hSwbP WJ4IvXa0E+z3FxT/sSGDk+J3cV78XeDM6JGZCR0yuNxoplch1w2al3IvFLOT wTVrchJlt14wSLcrcKHwCDS6uOb5xGwA8LOeNzudeAQ+QhfOz2YMghtcmZG8 94/AYGeRafGNIbB04tzagv4RGCHh+fiD+Sg40HpRFzFDCh2e0t0Wkx4HmgbL W67fSaFuXnH47PQ4CDfVkLIoIYUMWt8onmVMAObr8/GioaRwN/FEwB/OKSAY qHazlo8U/hdP/bP5zwywfxj9IpeSFJpFr3WmFs2C3Cfj32MWSWBTTL9Kqd0c kE+NUrapIIEyeem1bVXzQLN8gOaPGQncZ/dgaMAvgYLcNypf1UhgkrLsJZ6f S4DzhcutGH4SiLG6+RS6LIPgKJUkKwoS6Pty/c3a3jLo3aSMPdd9gClzGKS9 I6yA3P5k4kjqAebX7WchH7ACAsqkje7ePMCqJzO420pWgHFyzQdq2QPM0PqW pdbcChDxM2NO3dnHcvdYFW5wEsGW1ZyLbN0+FnH3ees+gQha8AHf6x/vY3Pv htJmrhNBGg/ulKX5PmZxObh2P5AI7u6/ebLEv49VXbQWFkok/r3vVJaC5/5g nJyGGJJDBNyw1eDoxz9YUkVJA/4jESylXXuX5/8H6xuxq2ErI4KaoN/0BJ0/ mHuebyb8TAQJthFO3cx/sDsO+Fb1D0RwS4OnxeHnHmZjlIVLyyACvHDhyT+Z e9iOa0f27BMiYKbQioq5s4eVvz/LKO9BBBOT/XMip/ewYwcR0wkXiaC0wUmv nGQPM8yh6VCUIYJHb0lyDZt2scV+UTElCiK4Gv6MZjxuFxviTayr7V4BcrdO 3PK6sottfV/4zPRqBVDqVX6jE9vFLDS7V87brYACuomHCuU7GGXUwk2l6r/n seA1/S1kB1PtsHQ2lFkGF1vpdK4Y7GCxOd+B0fMlsPdEnjJsdBujiNHssDm/ CNpdvt7gyt3GFvUm81LTF0DmBav6AvdtDPPaLhZamgd6uJDQPspt7CaJYHqE 9xxIiu88Ii61hf1gDszRspsGTp72tl82NrFRz3phQvIUIJjvVBvBTWzYti/H 9fskmOEUDPI12cSk5LclS1QmgFLKfwfNPhvYjSuCFs7HxwCtP8VVG40NbLfz xHy75SgYupJUtU6/gaW+2R5KVx4BoXzV/jxpv7G8A5oSKdNBYEFycajw1m9s sSc082DxJ5Acm8Fry//GHKWQ/xKf/gBdGcx7zg3rGNc1efI9Yi/ICnltRfZ0 HdtMGTR/UtgDfO2UK55fWsdqmMpRL79uIChq4wsX1jBzzID59KlO4JrzfouF dQ1z8TY5/lG+BcgwOoecGV3FFKNOnzYIaAJEN0lG93erWPcSpVr/wDfghs8R 6tZZxdLRytxfbfVAPv1mATn7Kqaa/Pp+x/U6sE4hqqL4i4hd0i4ziaOtBR7f MwwT7hExmePKxTtRECgpXPvRoEvE+EOSPgc1V4GNRD67TQ4iVjj+DlN9VQlK /gwtiU2sYLc+sHIKxJYDL9sUH4vCFYx9K1hYMrMUKH+1JI8IWMHw+57Ecx0l YOvkseiycyuYR1zHjiP3J7A2d1JXsWUZowgq6kEPCsHdj9nWCfbL2MHOvE1F wgew4S9yd5NkGbttc2YsNqoAeOlkRFi8WMKGTXrvp3Lkgy1mvldlikuYLYX7 zM2WHODz88VHrvZFjP2yuEFz7luwk8nZ5Oe4iOGCLmTmvn8D9pRwv5FXC5ig 4mpApnAG8CeJpn2lsoBR6vOnVD9NA/uNdPwk3fOY1HGVS21KL0FgXLjiNed5 7EfKRIrPgxeA9ArFuRrqeSxvfKJ3kyYJBIsG2whlzmEPL/+OGYYJgHxl3yMU mcPI1FzHp7KeAcqQrTRtt1mMid3N5vfaU/BQ36PkLf0sVgFDgHbuE0DNsdpM /XYGazA3ZQwpjgIRI85jt9RnsBel4ZX+++GANmd+o2lgGiOpL6++FBYGotwc 6CU9p7GJQUQyUDsU0OMnBR4zT2MKKRfoX6oGgycUtqeXcqewW0GRbzKsAwHT 92H981pTmKhsx7DvFX/wNNHK9sPIJGa4/fHnZ0NfgLPt92LxncRySY1bDCO9 QNzJi4/d2CYxsQtU5BS0HoDtd0dGV8EEdotxOo/hmxuIrzIsVdCdwIb/1NeT Y66AI7y5NX58HFt/cOd0d9cd8Nzo7PiG/ziW+l3RUjncEXBy12+Zc45jLe21 Z7Jib4KkCXXGsqJfGN87upjT83aAq6BKiMvgF3ar9J3Nm0hbkOKlpuI3PYbt 7zjkoI42gEe91HAwaAyL8SjFvlBdAS9pFe2Q42MYP0VxVWPmJcDXXejzsmQU W6DY0zF9aQbSUqWjDy6MYm42zz+tL5oAjTYz3ereEcya0jyRI9IIaF+7cDeE bgTz+sb1tLvHEJxd132lRRjGvnWcsM/HnQN6DzWaqDyGMCvc2+GOLzpAnwv5 3ZgziAk3XORKbNYEhu+U+B8ND2DOWkpmLrJngBFB5pwh6wAWR5vM+6IZANMu cU/msz+x3TiikixUA2b2Qumd935gLBqMl4VklUHkf+7hsZ/6MQoGa54zfIrg y71aF+OlPuxTlvFK6W05sPKQ1Rwn1odZn+wvW6GTAcJx19HOq72YiEtNWdfC SWDxslgkNrEH0zz4JaSldQJE5ZAxGHd0Y81pu077LCKg6qPJOgttN9br17vq oCUIVrHMgY4zXRi5TIJYaxYfEG1eq4nx68T+7Fd9vmTLDS71auQafezAyHxq k7Rzj4JHY3ExLIvtWKyf+PGIO2wALox7d4i0Y01LPzLIU1nAzPJNKPilDXvk N7RZYMYIzlNSR2dIt2JleUa1FsdoQcnx7CuCac3YW9qENP47lIBX/qxkBksT Fqnv8ikRkIEHujM7AiHfsNj6+UthgSRg4Wp4Y/p6AyabGQR1NPZQE88TiQL2 9dgR1TjeDskttPzRN/v0vlrM9ZH70/y366hApoOigG4NljXmX5iYRkTDy6jJ 08shppImyHCPYQkdfmX0Rt2iCrsnV4W0Jsyi71pizqirVWAHDNVE39pJ1G+7 Y4TAW4pJ8t8eEvf/heqK4vwJpJ+wnQ83llttRtCjJsZchIlCjOsBupKY+BNt PhB2uf/kHRbIE3PGNrQXdbj0JifA9C1GWa2dUE3bhZIXi0z4c6VjhlH6LuXs 7SjhmD6yA+MxQU4a3STh5r+LJNkRk4Kx3ayLeOHRBvTekWf12sq3gGTbZEO7 ei0qnXz9K5vS37zcKN5UVxaiw8cKl+iYUgBV8LNVTfkK1ES+vzJM/TU4uYjG tnSUoCU/zIMf+uUCPe6Dgst8xSgDnBeqs/wAyKCnUTzpBxTE5YXVeRUDwmQ3 0l6bi/5nf3u27lkJaLv84bqgZRaaoXJSv76wDAh9VdbUeJOBdtPPF9S3VQKr cn59e9wrlHI0l6VhHgMkzJQuYDAJTbmkqHo9tBpQL9+3SLgfjypqxN8ex9UC gbPNusw/Y9A2yd8p19PrQLOl0xBv6mP0JsfFtvFTDcDtSsT+YHg4SkLy6eB6 1VewE/8s871BKJo0yyY7od8Ioil2fB2+BaJyXXdt7QaawLTF1fvlJX5oc2V3 3MStFsBAcF8VHvBE7bIU6u22WoHaQfEJ2m439E/0s42JsO/gus0ZK9U9Z7QZ vxNXFNkOIlXOrQV63UITZXPzV406wPNvH8R1ZuxQO1HLerljncDcV56XQuQa KsNNO+w22gk0pW9P0XBcRv8wlW8Uve0CjVa9nck7ZmgTuSPTmnM3aDwtP3Dn qzGasH3shLxSD2gLFQ6KyzZEbZcaCe5/esDK7uM1z4OzqPS4z6Xiul6wleJ9 bMNKE93pE3dbi+oD0VbTXDvRBPRry49IeZN+oOcetft2ThV18P751erkD2CW fPWOnaciSi08QB5K9hN43FdkkD4qi+Z8H1DPH/gJdglbotHSJ1E9v8GA7uIB 0KJdtYMkiKBzokMVe1GDwPIW0XCQVwCN6hzaErYbAmlykoQ6Xm5UMmBY0QA/ DBx2n/RFubOjLeIjbh5sIyDl2bmtPiIz6tQz8j51YQSQWTwZ7q+gRcMIrhu2 tqOgxyUg9jETBWqWsMLm1TYKjIDsRFUMCSq24CofpToGpk7VzpvT7CBb6kSj V1lj4DOTYWL3nXXk2/P/XItxv4DuVtTCDukKkrhIfPI14BeoYGAri2aYRRw0 3N4NzP0CVT3VnIzPxhHlpNXmZbNxkFb07uvx6GGEetltjqx2HHRaPjCT7+hD +jXXqDlP/a0bus9YF0R0IjnJ7mKSLyZASZjyWFxHC+K7sqZFoJoEztcHZ35a NyB62nftTN0ngamJs3eoeTXClbIe7DAyCUIzQcT4j3Jkjng3/d65KdDD+p/s nZqPSLnOb+zp5ylAdW6mCaX6gESmegy/FvqbJ4r0xxR9zkYs137vlUZPg05V 00l/6kzkpK4nd+vuNPB6vd3YpZWK7L3cUBm7OQOeHwsL2fZNQFrWPS1+d82A gnKsJB+JQVL0Nj1pCLPA1O7d6KRDJOKU5hXPkz8LWkSiAUE+FMFvbBbLcs6B bKEgFf7BAIRe37tTK3QOPBW8J+EU6YUMpm+tXFqZA76etKGrS/8h7za9mZwv z4MhqSUFR93bSIDBtlTwt3nwo+W+IKiwQwwzffQTFBaA8JrTUo7HVYR3e9sx N20B0Jk0x3v0miNLhr4RVfSLgMa8UOsbjTFS9Xrnbaf3Ing27wbVNc4hT3Z8 G6YmFgFX7lFZ7jhNxPrC7sTOhSXg8U3eWZ8MIKey/MiYviyB6ksvSWLNTyMk e7sCQuLLgPl2n0pYlCzSbnSPcDp+GXjmXXtMbS6BtJsEvH9DsgKUjfh3W6qE kNKAqqr3SiuAbfnomMlTHiQtZ7+1zGkFGPL79p3h4kDCu9Gh2owVoPM6Ojsu kBlxPQhYaO1fAW2636gHXlAjFhLYbh8jEYx5oSoHxkcQwsUD2l+aRPBfRo1A FmEXfyIQcC34EkE1bvolJbKOZ867L77xtw7SLSi40ki+hN/uwZRJpolAFK/Q +UJtCv+LhOQsLc8q0HDIaf3y3yi+6STBnM1kFUT/ie2nPtePLzILtOeNWAUd daaXQ+c78MlB0OMEtgpOxnRGrds34YPzSR7I/V4F+9f65+841eId+wjP8CfX QMz+I3unyEq88ZGgTO1ra2BW1tn528pHvKpUddGF52vA/xGH99r7Arxid29C VeMaiItpOLK9mIWX8VvwldxbA+pHX3UvHE/HizYe1aC+tg5cOo4YGh3E4llv OHdhEr+B54DdiV52L/xCCve6dNUGUFm9Ynybh4B/Re+pyDC5DRbVlww7ORvV jniyD9odIyGQkRFKV9q+qVLRXwiyXaIkSGfLlFWXAOWQ0V4Nt0wGggwdm52Y 9hnFDy/CLgSsshA6gr5wyedQyblk2DFPmLETer7njH5NY5C2dkzmeRjESYit Pmq4X/1LPMLIU0U+hZuAkzr3RtHimgg5W/zU/R1egljR+aRrEWT8fc0PVkKZ BAhOLvhT1FwxXBf9bJWSawUJ/pzWCmGnJdmc6OYF2yyFCXz5CQdnTCADX15D AuWcCMGOoqNX3JuCyq9Uw4TphRjhf99jXbOcSpROif8z/ZHTttKTEv+sdcc0 XiJO8p85y3hctISl/znWLTxGpu/UPxuHnZdKLZH5Zwmr0Iuv/WX/uXeKJiPu otw/t9lOquP45P95jPztVrzgodezHN4fEz30sfn54wJSh7ZzX908pXbonZCD dwbmhxZ9c4wrIvrQKjoD7fRxh9afTXn4NOHQ/0nx/36eeujKT6LtWXmHNm6Q D6v7eugbDr/xZ5sP7U37ea257dCphqrXunoOPdNLwP8a/z/79T6ydmP60Azc dTmzc4eWu6pzlEg8tBYpTdvd34e2yGwK3do6tKPWI7V7e4f+n/8C//z/AO8z OEw= "]]}, Annotation[#, "Charting`Private`Tag$20717#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2mVQVl3UMOCb7hSRkEZSCQkF7nP2QaQUkZI0AEERfRDpVGkBBZGQVEJR kFBQVEDOBgEpkS7p7u78nm/mfR/e/WPtuWbNmlk/9uz1ZwlY3zewJSUQCNL/ hv9/+05cWj44kIOE/znj3uxrf3cPrcs8sPF169D8So5791cOXRH2gnpw/NDU Up288PehY1wsLz5OOvQHEuc3hDOHprDVPM157fR/PtJVdS89SvY/G/xMvCle J/OfvReQe89HpP/zN/dE+/zLUof9vrjCv59wEo64DIpfcuKm0kz5oas1KwGH PU2M7nmMMmT+8uxwthCHInOXyiL1249cD4w5+ue9KGS3aRuI5ejhfGhJlkd3 RAReDELOPv3Oykc4xYerBQnDm1CP5sSTZqGe8ISQD+2C8LWhUtXV3nCx47R2 WavnBKCZ1lkqQfeok3cVJCj+HueDqc5nnxDYH8vcPNP//udPbtj2I0Peim1W TsJD+cDhDQcsMKz5Hv+uWDGtz7DSU/UoHOIiwzhUzJUm/I4SNTlYYe0ab1JI 6G0VWt/8hWhaVmju/LQPz3NUkfLQzhjcZYE+db707165q7g5+NJ6DbFAckp1 T/u4EBVKi7GunGwWqFxd+KxS6p2KsPwXV1aEBa6U8aCdfGMq1uNG+X1WzDB2 iHR+q9qCGDw0by1hxAyHXrkl1y1YE7N7n7C7azDDxCpOUF17h7jcUurLLMkM g5ZQLt1WdyLpI+344Ekm6J6bVFxHG0O84Op7wPebCQqx5z5eZ0oiRt39dOv7 Jyb48IO8dDpIJ/KbcirMejFBl4knlfNPPhLtdC8lB91ggpe6ek2HzxQRP573 I+M7zwSlOpz4Mpt/EDeVv9h/E2OCbO5ox8Xdn0QgO9Wsz8AE/X9R6vaU1xGD RXmUZpYYoVVv8vHWkWZiI49+amAHI8x8fJny22gnkZ0tiIq3hBH6zVzgcRwY IF6n/e7w9TUjTPhyLjBCZYyYSZhr1wtkhG9Jj6TJqM4S59b5kWk7RtiZLZ3T XL1MlJ8zehNwiREylDRK7s5uEn1GntDxnGaEahfnL8sEE5DK7lKnInZGaJ72 Qm9oiAKhb1rsvrzDAEWlTbpNl+gRo2ph1akBBgg8NUnoeY8gSaWm7/0rGaDy u1M7dkqcyHDBU6bjWQxwvVzi09QrfkQiC7p9ecYAtQJ1hbwGTyBOr1f7dJ0Y IO9MZVJixUmkOFZMfdKYAapJKLcVDp1GqC0mbpIQGSCGDprsZ5xFjPkz/bkE GGA24ytVUSYMeTNmkyZHyQAbdOQ++02eR5azhaDODD3c3N7oCpK5iGCOw/22 TfTQVoWGKeC9PhKhkLb38As9FHXUUGyeNEZ6t28cj0+kh42l6Mh2/jVEHPKq fHpED2M+muX5KN5E3IL6zOps6GHLnncv3mGHVF5I9hjRpod2ZREtz2kcEVZm i5e7UvTQJNpk1CLfBbFs5yw6ykYPn1OTfF1964XkJXa1SW3RQZUG43tSJ/yQ 3RsvVzT76SD91dRVHZpg5MIJY1arn3Sw+5jWWf4LT5H4aTZZr/d08Dbt4Ly4 0AtkPL/1cvQzOlj5SL2uXvklIu/6wiHHiQ7mSsQFBn1NQfyV9Z9VmdDBDoHB Er3ddOTPAVNOP5EOvhA6YcOq8h45XtVYtyFAB8c7WamCRvIQ+7BnU8xUdHBx eJqIZRci3y7rUEvM0kKnUEJiAOl3hPIonahaMy2MJMY94KvCEaOeWvWrRbRw lOti9BfRSiT99RMb1yRaiF+8dpIuvBZZtNEMiHhMC6VKG6U/SzQhqARl+jtb WrhU1Hi22bENebpQCeEFWlibEBB8r6kb6fkcMNAtTQsfxMobLWoOImJe5/aX 2f6tp7Fr1w4YRVwBCQ/9Ng30E4/I8GqaQirIocqJARr4Yshs21RpEWGue2iO VtJAzbKJzLDrq8j1SMTTJIsGWsNfLArhW0iO0e5LxwgaqEXz+MKv/QNkm7Ok KNSZBlpcL9UoISNHtQY829NNaWBPUfLmL1IaNO7N2dUS5N885lMFzzCho3c2 WNsFaWC7dS7xo+sR9LR0kew8FQ30D/jEf1+FA3286qJHNUcNowb4rH4K8aKN 3+Xu87dQw7HPxx9WfRNEuR8tP1P6Sg1dLck5URVR1O78pxyDZGo4fmzOQKz+ JFpE41h/148a2jlyR75tkUXJ/0hNB96ihuFhYr7NNIqoQcwc9auL1JBN1e07 y1kVNNUsR/SrDDWcDlTRI6nD0HneuxpNR6mh4BDvzHz+eZQ4Km47tU0Foeon oVlXbTQsazKAdJAKbuw0rnvpXEa7HN6lc1dRwU+6kqpcZwxREflb5fLZVPBv /cvgsecmqMuW8OClSCqYrsWUr9h/FS0vG9m/5UIFxZ1CZUWzrFDGwHSex2ZU 0C/iR5h1rC16VduKmIBSwaemZA6VpvZoNiO/RYEQFTT7JnaskckR3Wzt96yn poKNrtIFXpHOqEZCSvzoHCXk7x3u4al3R2OuX/2610IJkzajI2ImfdBhIe4O 9m+U8KqpYZV/mB8qM9W9Kp1CCbc/T6hwqwWhLounxI8FUsIrixX02vah6LcN v2v79pQwq6zkmLxZBLq73x41pk8JS7bdDSc4X6CqlBLVDWcpoamzVS7Xi1g0 mOHhdiEfJSwuD/3WmZuA1rG1SCVRUkJ23i3amdBXKONxkZv+cxSw5m0j07ZQ Omog5PXyThsF9GSRNogJeYvGSTTW65VQQFy/0jAxOAv9KytIOJtOAU227GtT VPJQfiU3eb5QCnjmwY2X+PAn1Aars6N0pICbed+2aIW/oO81eVPmjClgj4g1 5rH+DZ3VdWpuQyigQOafuGNOP1AZ42qKUmEKyO6QZHPDrBx1vcalnEFHASvu mgRevFeJFts4OIQtk8OcQJa16+Q16P7divQH3eTQOY2wv6fYgJ5zZu80heRQ KrZ8xCaiCQ32sqfD3pFDTj/Bt7R3WtE6vzIgGkEOr1dwf/xc0oEyhbK6MLqS Qx6d7L/0CT2o0fNb79csyKFBxzFtN/YBNP5lcW/vOXJ4/9ftXgWRYbT3FSNL pTg5TGIz++EiOYbyZ1qrf2Amh0+s53mWsydRm9wizxcbZJBmQYN6omgWzfpM m+fZTwbLhpt+0xYsovMl14ctq8hgMh5Dz2i7gp7+WcCulUMGda5X/Jj0W0fd 6igvSkeTweVaefWOY9tocbP5I3YvMliZuqbIfXYf3e/KK9yzJIOZIZxugt4k 4Nwg6eSoJhns+Oiwe0aeHARPGB9vkCKDJ+99Za43pAL189l6hUfJYFrdDWR5 ghYwr+8HJu6Swr+1wvLPCEzAaM/gu98IKfQ5ufqstJMFxJO/m7OrI4WAY5va NpAN9NLtCOh9IoV0XReFg6KOAf4jl43PxJPCo370CTgdN7DlygjjfUQK30qO xiqT8IFsgY0yilukUArYPBmFAmBe7OLKrA4ppFB4MxV+WRiclnkt2iZHCl/l lGL3FUWB25kVixIuUthOn+gQ9lgCFKOaz9NJSGFujNp5dmUpcKCeVBk6SQLF SyuHDc/KgvOXFjYd/5BAgwdxG+8T5MATI7VTpkUksK9NgcVWWxE0WLy0Aikk MMD964dfekqA+eZMrEggCTTf+sBNW0wERvagjuEuCVx8eYNJRQsDCQ+i91f1 SaCnqPsB6ngO9HtMnO49SwID/U9Izvw9DwQfq9z+yUcCp9EdvOaFJrgVEpmU TUkCjXa/WPKmXADZESN/ouYI0Ord+8QDMl0wH3uG3LONAE9/L3ydN6kH5FLC z1qWECDHOw8DOmpD4PFm4J5mOgGKmDwbp7h1BZR+kEuTCiXAsKVsJQ4aU0Ao DGk/6kiAm8cZDi5vmoPzxX9p9owJ8JzSM1EzlesgL/ut0i8VAky1uRL5lN0K cCTdvxPFT4ApR/GS6xdvAv9wpQQLCgI0Kyb9dL/CFnRsUL642HaA15/t00n0 twPZXYlLAykHeNknhQW96Lvg4XcpfZfbBzgWIj2buesADBIrPlLLHuCm/txs uTcfgBPexswp2/t4oKWancNDZ7BpMX1ftnIff5Ji/jy/1RU0EB/+qXq2j9Nd nImatfMAqTys0uYm+7hLaJsU7Xlv4LL/NmKefx+Pm2TKML/7EGgNKM37T+/h +XW9fM3LjwE3/H3p2Oc9XMFZcoahzx/Mp1rlfvDdw2uG+JzRzUBQ4bdGj2nu 4XkXHpb5aIWAOOvQe23Me3haRX6vUEsouKPG02DXs4t7WDI7Nic8BUThT5J7 Gbv4KDKzcetNJGCmUA+P+mcXByX6dkHeUWB0rGv6xJldnMaCzTHmYjT4Vn3v QjFhF5eQP+ekpB4LbjyJoRmJ3sE1Oy9vGJcngNN3xO64X9vBPxfEq0hdSAaU F0pr6ER3cHo2vzwTmtegR0JPLHVxG5f9u50iQZIG8uhGQ+SLt3Glwr6Wm8np wH/WfaImYBvf/y13W9H0Dbjym07z2qVtPGyFqiNCMRPsRshRBg9u4fXqDQ9w 62zQdP+XLVf2Fq5ngri+/5wDMvQsqvKct/CrR1pSFGTzgZvsgrAasoVb27+N wOY+ggusAYGdlFv4kHMzamRWAHhX2EfvNm3iic/2uMb6CsFya7YaIXETfzTa Ekji8wUkxLaQip/axJVcH2XR0HwH99xuWf9Y38Dvz+e8JmwXA8xku1wfbuDy lg7n46h/gEkOQT8vww38+K1KTulyCEq3vgwy8mzgce/Oj2ZtlIPIHm0sY3wd v0HxQv8L+hMoJj84qPdcx4+P3Xg/c1AFaH0pbliqreMtKoW+n71+gb5rCWWr 9Ou4Uo5pmiZVLQjkK/flSV3DV5i88ADjBmBKuNL36c4abl1Z5WzD2QhODk0S NeTWcCdBv3qf+T+gNZ1516F6FXdv86R+MtEMMgPeWJA9X8Ub40J8eeZagJfN 2ZKXZqu42evjfb47rUBQxNILzq7g9ZpX1IZkO4BjVv4my5EV3E5qITVlrwfI MDoEnBtcxgmkww1+J3vBktNJRufcZTyxQ3H/j2UfcCJmCbVpLuNXtIlic50D wPVPum6czxJu4msnxuw5DBTlrbqrtZdwaQpcV51vBKzH89lssC/hX0bdNymr R4C7dbKn6adFvPvGDZH2I2NgZVpSW6FhAT+oLrsUkjkBXD6/vx53awEfNc9o E9acBOu+J1w2CAv4tATXGYuxSbDJzPf6u8I8LvXg9MIuxzTw7En6zNU0h5/M YsZScqfBdgZHnbf9HE5qexRVRWfAriLrGvJ6Fo/9dC2d0mAW+BIiaV8rzeJh GptWtm2zYL+Wjp/QNoOnKafaqOnPgcfRTxSsHGbwcM8/vuo1c4DkGsXFCuoZ PO+mD35EaR74i/hbCmVM4/cZqcbNMuYB+eK+ayAyjYuI98NflAsg6Lt3+Fjn FE5+VOQly80FQBmwmarhNIWz5X4KWfy6AEJ0XIve0U/hehbND6JIFwE1+3I9 9btJXGszRFXxxCIIHXAYuqM6iZscfRpar7YIaLNm1uv+TuDOevZSStcXQbiT Hf1Jtwk8wcvonL3LIqAnjgk8Y57Aq8+W8V8KXgQRFNZn5rPHcXHdkqDW6EXA 9Kdf57L6OJ6LrqYuJy+C5/EW1h8HxvB0GkbhjLRFwGrd5c7iNYZHCtjrDP3r aMkrz5zYxvD4uycnc1IWAdtac3pr3ijON+xrTBO7CGLLdL/Ja4/iU9foAvZC FgH7k/rfsSMjuOJyTW+02yJ4qa81su47gscep9PqsVwEHNxVmyYcI3jVZyb6 YY1FkDCqyvi9YBifXeMoxcUWAVdemRDXpWHc7aj68XDKRZDsrqLkPTGEpwll kZfBBcCj+k23128If6wma1twbwG8olWwQY4P4RM10U7yLAuAr+2T56uiQZzj BLdfWN48UGs01i7vGMDjxiN2R9rmgIaVnksA3QAeste1GXZ9Dmitar9Wx/rx adt4LZ3hWaDDhazVZvXiGX6+3E+7Z4DxLaG0Fp9u/JjQXnp41BQIe+D85MWX Llzs2WfG0K1J8MPn532D+U5ci6JWu/b6JBCOvom23OjAc0gi/kQKToBlPONv 87lWXDWP1+ZBwigQqV+piPJuwT0ETdvh2ggw61DL1v/cjAftxCafNBgBcHbE o/lEE258xtonhX4Y8MppnUxnqcM/BVM85OcfAEHak9sCATV4sVqcBclMH5i9 8aQ2bbUaZ65r1vcp7gXFT2tupXX+xGMS2L4O2/WA3Iaoc6oqJbhw2B0VLoYO 4L3VPIDxfsMb3fVjcynbgbYIqy9G8gVP7Srf0qFqA/UHwvcfReTioqevpRvw toDF+ASbpQR/fDy5ID9f5zfwIY2p0jh7BxT3nhz+WVQPpBJv/mJT/HeOgFcS R2TqgKFcV2mw6hugtSy6Tav3CxR1m/iHeGeDkLdfHjmsVwEGOCNUaf4RHBdm 9wn8UAke3Lo7VRlTBHK2Iif6sQqQriSpU/XpO+jx3exJ5i8HbfQzeVWNpWBw uTOfhBGCZDMF5ZuB5eCTGy45xl8KFNRi746w/gTTisAsQbsYNJ5cS76ZVgnW lvTH2sO+AQLhy8HNsl9At4KY32n47/8+xSY7qlML0sAMD21PITjd6mJt87cO 7NkN3E1zLQD1pW3Ro3caQI2jnlrjiU/AJlO+ymbzNxi5Qavp15oP9iJj1keD /4Bbllxu+n65oJ64HV0Q1gRc72rb3Df8AGxEzKtOc7YA7jZzPpnr74AMN22/ 02ALiCxu+J0b/RbsMRWvF7xrBRGTajqyExmgjtyeacWhDdhP2rMrm6SDuC1O MTnFdmAjGBaqN5wKrOdrMee9dlCJJWozML4GUiOeZoWVHWDwxerVpZBk8Kuh O0zOsAtMvw+0dySNB3YePb8sJLsB4aoAOtIaC6iF/5IHkvUAwY/nio61RIOs P39Vc/72gMLMwgaO7Shwwbv3YVvhX9B9wGJ8RPs5mBbpK9kN7wUWnpeVczye gfCWvk1hmz6AiL6JzUgPAycf9itcIvYD+/0ZVJbuCWgQH3ByZRsAR+gaKUpz g8C99oH8lNkBwGJIMjATFACCMcd1a+tBEPaJ0et9pB8wjltkc28cBGPkf1Dp iEdAdNZRLlx5CCRl6Jcp6vuATdUl/deZQ+BIZ5dMqpUnqHn5wLGQdRjEqnGW s313A/FzSxG/Hg6D4zG+6Vn6LsBOzSn37/QwqGCqC/l7wgmcTViuXzAeAdzS EwehMo6AesFpmuznCKixpAoZ674Hus6vUHNIj4IsV5dts9w7ICvRWfRk0iig +fVHXLv1FvBaXFHHqMaAcUYrneR5G3BBw8XGyHkMLEyzRTBuWQGu5FV/u4Ex IBjPKCbQeQNML7mk+VwcB5d8I65nSl4FxZpr+POv4+CWtaXc9KgpCEtx7X8j NAGeRscssm5dAeYra7vfIicAXaRbN98NQyCp7cb9e2cCmH9TW+lm1Ae7r9aV hm5Pgp4Td1bDSHRBw6qb6VrrJMjLdGcUu3oBJF/YcKPBpkAL+WqzlIAmuJfq HsuTMwVS6e2s7NXPA+L6RqHsv3MwyVFp7EuZKqDX8WhRD5wGPB2/+xqoAOhN 21w0W5wGTDo3H9zjVAG5Gx5MDldnwItzrM7WGWfAw0tbp/xrZsDd2XFKjXh5 oJvhqRMnPwv8fxZU0M3KAt6tLfvs1Fmw1qGS2iAqDeZ1vULL6OfAE/qgIgN6 SVD2Zvtdi8ccSPS4aXvNRRREbHtVj4/OAX3x2S0vPWFwXW9ndFtvHjB42zWO vxAA0pneZEw/5kFayevysuu8gLC7IyAkvgCk+R1bDxS4QJO+D3YmdgH4Z9x2 V45nB02GD/PfEhZBUf4/dhddjoBvD8vK8hUXwZtTrCzUJcwgNWv/9/d7i8Dn vswsaxk9eNKG9v1MXwSfuY4e33xPDRwPHs7+7loESPW0zqQABTCVwHc6GZeA Y2HOxlN2UoBdOaAdPr8EBl83fn0xt4+KPQZcs15LgNyObXfVbhtl/vBIfP3j EqApdFbzDl5Ht9rxs4SJJSDntHXDU2YFHSYQtGh5lsEsCykFwWgRrZPETNgM lwHhaboZW/kMWmD8+BZv6DJ42df/61bkBJroB13F8GUQdf75+dmtEdQ/hxB0 em0ZSM1LtQ9PD6L2nVgMUXIFGFznHG591YsakPplaFitAHzS0/CSVBeqfKq8 QO/lCnB372gfvd2GKrR1xJXVroANjqb9QdtmVMZ71uvk7grw+v2Maib9Nyop SHojUWoVlHtYpGidqUVFao+pUVutApZ7o421DlWogOMpUbfoVZC6zvyh4XQF evyYGt1o1Sogv460Ww6UoRxlpgv6m6uAX/r2yqRYMXrE1qEVl1gDy83sW1XC RSgjfeDXU9fWgHFRAXf49wKUtjAhKSlyDUglEYyepuejFOb5j2gq1kBH4KdS 9oJslEBSddN9dQ1ondYi4/PLRHfe9WiOiayDmpRml5SVdHRdd1HS0Gwd/AiZ IW4Pv0aX1iiYy8PXwTmgJC3akIjOJnOvSpWtg5hj5Y5Gj+LQCTXZruTFdaDb 06N9qv8FOjytUUortAHSTqRqBKREov1RV1M9rmyAefs7tq2uYWj3WafA8ZAN 4PntebEPXzDaNhBiZ1S8ATT/8LpoevmjTcEpOhWz/9a/OvXmWftDtP5UoYwM 3yaYkuaZNij0RKvbathe6W8CJ48zPmq3XNFy7/5NusBNoDUmhlY3PEBLBVd7 PYs2AWmWyv3qmH/Qr7U05ROTm4A9fEOXPMIOLXDke3uFewsUSj8afHLVBs09 phD689IWUFX5YTHXZ4m+L7vwj+zjLVAya71uPm2BvrG11H9dsAUmNlnf5x4x QV/TuykwjG2BYTMZyVxGQzSxMJzT+9g2WGwwrA96cBmNM0/bm9TeBqL69fw1 U9poFMnXIWOfbdCrVHnG/oo6+vR9Q1Vl3jYweqZglByuioZcHs46PbQNfFO8 7O63EVH/9Y1nqUd2gOTurrBV1hnUN4XBiVFjB1yY3N+zviWHepwXMvbx2AHl 8Rm9t39Jo84zZ5Wns3cAdgejuEeQQB1e6PKa9u2A/n8eKX/BTqD2Sjak1Uy7 gGI8Q9LFXAC1HfQclzu3CxpGpf2wy8dRy5DIujSXXfCuz+nBNZZj6FWpt3lM 73bBR+Epir1qVtSkvfiFb/cueN/x9GlFKCNq4NPkNkO3BzhziiviG6nRS0Lj 5mboHshNGz7mIUCOatXtoL8c90CV9W2Xz/oEVO0Bi5BCxh6Qz09usXfYRlAO UaqM9j1gr9p9bctqDVHCiTPM1PuAsVwkrVNzCZG/ZfDnofI+mKVWot0Zn0Fk GOwKZ+/tg+rnVEt1j8cRyc++L81f7wNNTg8lLYFhRMQi2rumeR+4Vhjmr0v1 IYKkWTcUyQ9ABW2vaolbJ8KTVab2RvEAwJ+S5/y6WhAOvTZR1jsHQGX7XdQy 0ogc2Ziie5x0ACyiSp7cQWoQxlcHC3O/D4De2EpFkd1PJDCddvoUgYDFf94o r6bHEVK3o702nASsuuk1+dM/3xBzy+yWb/IEzI+taX3ZoRApuABq6fUIWKeA MuPB7TyEVqENt7xLwLRvz60qVLxDrPnuFH0OJmDhDdofSsPSkWKa/RzqdALm nteLU08mI6yrLzKu/iBghqrQUdUvDrHvF0382EXANKwKxLYeRSEVNaXPyVcJ WHcNRt0vFY5wFeqHmDKRYB+X+h5JsgchTinjvjkSJJgtC3nffePHSF2ItwtB gwRLEBcfl9T2RASdmO8aWZFgJ/vQ52fDnRGvq2+t3vuQYF5cXKcaTjogLRrK prsvSTABSJYmd/42IiH7R1evkAQbxjQYtqetkABuG/U3jSTYpO+RTJ/nFkgv xZbK5hQJtnFXn0fu1BVEfvHZaR0KUuz9R69zXUAPedojKJ7KT4pp6PzoUprU QkYrv/KtqpBisgkGH7qY1RBivg67lgkpxswEBC+LIkhMwhB9shMpxhs/WCul pojMBriRLT4jxVzpLx+t25ZBzjvQbatlkWLuGoPqKf3iSLJp6uLLSlKMs4ex djRPCFk9pzAxM0CK1Xex64dO8yA6p+r6wA4p1uT5gZPsCzvy5tiNtmh2Mgwy rbENK7IguySrdROyZFjZZU+skIUWMZp9Uq5yiQzzXBYZF/1KhuR08HyLtCPD lKMVx3pq9ojk5QV5IwFkWLgN32qkxzrx6gfNt2dek2GZYXZ1lfOLxM+xvUnh xWRYwscTqrM+U0T6xw9eDLSTYf8+RJYxsRGijT1lqNwSGVZYcn9dvaqXWGqU 9CiEnhxzQKgElKPbiWxAxu2vKDl2/CZTQL9YE/GeeNU9aTVyLMgtfuDRqRpi 1RHzmwHXyTHQ9PvnZ+YKIu/+vFmnJzl2lVoxIHe9mOg2GaAnGUuOHTWa2eHj /ExsbOHQfPSRHKOTj9Eamc0livzIRVrrybH2xuUaHyyT+PDdOXnRCXIseuUY nhucSuyI6pTwJqXAQjS5tx8HxhODb5FwCClRYF/d+5MVhsOI/XpxjO5GFNi5 5XiftP4AoqKKJEX9fQrs2ix/3eoVX+I405Vlp0wK7Hd7aObdv/eJGt/fN1Qc ocTubKzyPw4wIFLR6/lZz1NiVxo56vMTjhFNRc2hIg0VtjXcSpavwELMPmdz QCtMhUk3dXWPsNAQdT09fAvNqLBsvogPf/y2VeLGUz3Jq6gwEz8V95qzfSoi 5UsPMpOosT9Ezceudakq6m7R1tNatFjM7vKNtGIBlYDBDjWnDAbsA4c1d58I s/LHpGC9h8ss2Ao7ZurbUXXmfroN86jxUWyeVKJCTH1Q/rp9Ik+IHwdWuz+S psZRKRuq76Ykl8yNuTm+afI7YSZFzhY7/mibFwuZnZQyY1GS6KwPWgxkEsCO RmkMUnbvnLjiba2Y+FMQm3wYGjRvtsZ/j25GsNFcGKPVnGBi/NjPzfehOo5y +gQmfF7lzI+Hj9m9v6kZMiWJYkKTMRMyyarMjpn3ihSlxbEfbE71BQ1UtPSk Z6ylxiSw2dkCheWov6Tq/xjFSkSfxP53v4DjO899dWGp//zC6UmUTKf0fzYI vnwqpUjmP0tYBF554yv7nzvGadKjr5z+z43WY6qsfHL/eYj83Was4KFXM+3y OUUOzTkzc1zg1KFtnJc3pFUOvR1wkHvJ5NAibzm5QiMPraT5t4k++tA6U8kh z+MO/eAU/9rLlEOXfhFpyvxwaINqueDKX4e2tVsjatUf2oP260p946FTdJWt WtsPPdmBEYdH/k+/HqQrthOHZuCuzJqaPvTpG5rHlpYOrU5C0+iydmjTjLrA zc1D26s/VfHZPfT/7Lf85/8Ham5UvQ== "]]}, Annotation[#, "Charting`Private`Tag$20717#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nc4ll/8OPDHeB4zlJGRLcoeWXnu+9xIVGZGQsOMSAjZWRklQtmyisyG IiP3bRbKTraS7PHYm1+/6/p+P77nj3Ou13Wu9/u8/3lf5/xx+K3uXrYlx+Fw ov+m/7/6T+osHxzIYbj/GRO+bGuDu4fWZRrdKN86NJ+yy97dlUPXPYqj/jVx aGrJnzzY90M/c795KTD10IVk917iFA+Nt9WU5bgm+5+Z+xqdsmNl/vPl+hTr 0y3S/9l3EXJ6+kfqP3+6n3L7jZ7kYb1xxnz7yeKYxGLAEllkLblm+mddrTlR 7AYfa0W8VA1N7hfv3nvmpzGFiMGTCpO/GK+HPmNtfy2CiVhx0Asxc7MF3KQo oWMWxq7eiXwjw/iYCyfBi6o/FMIKexRMy+cC+QYeJ4cX/hDAbjI2mQjN3j95 gtY+f1WNH3Nys5T4Iv7ptKO8KH7wBC/mpZ3EaK8+JWGtOPK6vp4Lq3j9k5pi OlFG1OvsgfNLdmzvCzSCfc89kzVs2OCtyoqpONKvaDDFKE4GsRI12Y9hePfn BnfIfitXPj+lMWVyBOvgMjgzcWFDhdp80pqMeARbzXvKRH1woGLClxvMyX8E C6zo1TFdxROXCwQx7Vl6bGeqo5w6hYV4GuNRefeAHvtk8wDvNi5DTJphkfF5 TYfp0DUez3rkQJx4060X/4QOi/whpfdV2ZV4xiPOuciNDvslV1mAyN8nth8w Fo0Q6bDnUcvmhXuhRAIrnYh6Jy1W3e5xq2Ixk2g00KxhUfbPFKMUmdm5xOyM CBuPVFrMAn5ZG6pYQiTZaIZEB9JiC7Z2fgYnPxBhUUJ2ni0tNtY8wjTfU0mM WmzAsIu0WO6MwFHq/lriwIeQ0X6pf/lsvh+5Xf6FeMpHbX+Z5V+88ejdCJ92 ogcg46bfpsEUbybLDQ33EOsoMZWTozTYBmySMpU1SGRqCTCDG2iwhoXiHzbn x4jXYyDvK/k0mA3vewbWk1PEIqPdRJdoGixHZD6FdniRuM1RVRZ5jwYzPxU0 dRK3RtQa9f6Rbfov/trvZ765O8SEl0qrVRANZnirfCBWkhwad9g49kOABgtf tqU1GaOCZKXKZBaoaDDyq9E8JSaMUOCquz7VPDWmvnPjzrlIFqitQu4uXxc1 VqXw1kFtjBPierD8RLmcGjOkKy9+Hs8P2Z97V3Q5jRqTMztyrm9VGCqjcWl1 DPrnWj6en8sSEGW75EyoHTWm6IdqaYTIQZefzVO/uESNxbhy1TXZKkOZV4tE yqWpsY7L933cghFogcfxfAcrNdYYwY66umhAxPHTttPbVFimblH/sfZL0KP8 qRDyX1QYxuN5u4niMtTnnJfN1UiFlQ5m35HVvwIJn7GrPVNAhbm0ePO9E7gO uW8J/dKJocKyDmIobrlbQ7U1f/bt3Kkwoa0nbrTHHSCG0GzuwKtUGFntiDPl aRfI4oIlMRmmwnTVPMbYW92hAgY+8/eCVNiYonzb1QofaLN7xLuVmgq76x7C dE4kCDqfnJ40Pk/AjjY59TXuP4SeXbco3+siYBvW35L7xaKgMUGuXrZPBKw3 +dEDfnwcJD3dvyqVTsDElk/pjBESIXeSxOnjoQRMauC+qdRMGvRpI+ja/m0C Zp79w/CbQDa0u/8j9q8BAXvsyPdIqzIXUiWINn1TImAGTCw6bO5FUNiRgO1S XgLWnhi+jG99B7WwdEmmEggYGVVuoKhKGcRwQtg6eB6Psfvdao1Hq6DLgj6J Dj14LDpX/GKXdi2UINrWql+Fxxqw2tPjUY3QoIwATikbj61vvgq162yB+JQ9 z/BG4rGrogM+/oUdkA3SYk9wwWNisI3RTmkP9FqTJ33eBI/txSfvvH3TD83p unX2QHjMiy+SV6d3FJI2acJXC+ExJX6Dz/Mf/0Ae1zjP5tDhsQ5aPtMyyymo 0sbZ+dEyJWbVpRRykn8B2nesy3btp8TKOfbJ1pOWIbV7bD9NMUqMlRB44sni OhTmc5sOyaPEChaORqyr7kItQTVAJJoSm+dx/9NiTQYzRh5zZ/CgxL6Hmyt8 s8TDRk/tXq+ZU2LhbY3bb9Vp4aTEyqEhtX9Nt5kbaMHNBA+9YDjacJoSO5qx T6VYywzz5VppFDJRYqZ+i8fNZdhhm+Iy77gNCsxr3AsSTuaG8z/QlniPUGCh qhy9TmwC8ELV9bGbjRRYjcTb5GJWYVi2/j2bVhEFtmBnFXWSJAp7thAuScVT YEJZa5EZDtJwZafZAzYfCuxXi6pX1bYcvN9XUrp3kwJr71JZpNdWgtV+kU+N a1JgtNwJ+/mhEBw2aXLimyQFNvDhC+PraVW4daFAv5SVAlt81cw7U64BM63v h6bskmNvSqmsb+tehI32LlcE/SHHaF9F2g316MFJlHnz9i3kmJ9Eq7UaZAgP 0e3w678jxx5fXj//XeUKzMesZ6KYRI799CIjuVFZwLacOY94HpBj9tMeEdN/ bsIF/Bs1eDtybOt2RNOysQ28cOrSypw2OUbTIpeR42EPy0pniPTIkWOXLVZ0 R63vwJ6KK+ZVnORYSuyeFpbjClfCmk+zycgxFonAX9IiHvCBRmpD5BQZFupU wax1xRs+p7O46dJOhpHTv0zpMwyAI4zUJUzLyDBP5d+ap/iD4W/miZYgnQzL /FM8bpT3EGaynn0uHEqGvZhWZUZ6I2Gj26DliCMZ9ngtsvT0t2g42TV+f9WA DDsm9L0CNomDR7wmZYeUyDCC906qUcdzWCBQ5VY9Lxn2jVyO6dFcMmwXHpNa QCDDyKKsLbm/vIALov+0x87jsLS7nPf8kWx44bkipXcPDuuUTVQiZr6C5dIf K92swmGoK4mFLTkf9no56qSZjcN2Xu2DpXMlcHWhXJZkJA7r5pzunf/1DsaV hv9gdcFhjzX4Wo05PsLnKgdp9kxwGIfzcdXB0U9wScEr5S8qOCyva+JhSOln mD31rkMsHw5jk9QQFSirhYMfKyeb43EYdiBvTeRohHs3CHGXeg5QqXsR3Emc zXBBX8rSaPoBekr5BJL24zscUCFp4H7rAI3Vy/dl/tgJX06pe0stc4Bat/Y+ T9/vgU/6mjClb++jXJIuNH+G+uBN85m7Mg376AWVzlnUfhj+Rgxob3yyj77O Fc/3ufEbzuQ+JmV2ZR99JuY2bxE4Drvvv4pe4NtHxai9UyVFp2CtUeWF4Jk9 1LfJ0gN3bw7mwr7rHP+wh4qyZ5/mrCTBC5mWxYX+eyhX7aK896sVuC5ojR7R 3EPLZqniTeg34ASrSKcepj20ocrhwQDZDuygzv3NfmAXlec5wb6YegAThd6J 7eXsotUB/d5t3uSACa/xOPbOLhpthsIVcXgw/rdv5qTiLnpx8POTnVM04FOT 08VK3C6q+3EtnVXvCIjKwxXotuygJ8WDXuCPHAU3Ip7R/InfQT3o58/3dzAD WYdTDvev7aCcNlIxD3HHAeFi9Vc6kR20iec6hV4hJxgQ1T+VSdpGaa4IT94b 4wEldOPhZyq30ZsZ7gqlQ/wgeO7+5NeQbfQJKeYSIUcIGH+n07yms43yDbqx hXSIgFMlGblLbNtoPyErYddNDOxGyxHCfm2hJDPHxOVkKdBx94stZ8EW2ptR HnZDTBbk6Js3ltzbQhMt3hRZj5wBnjKLQurQFuplUtDdR1IEF4+FhP4kbKHk LA/0251VAM8K27hjxya6n5HSXWoLwHJ3gTouZRP9lKfjqrSsCpo+wDnPrDfR KzbHrJv9z4Hk513kpyU20XmxVFz5dU3g5Gln9Xl9A13aNpAVyrgIkCvbtQbY Bip1hv6W2kVdwKIUzT8RuYHCjFG3zigYgCl2gSAfww30W72Ub0KkIaje+viL gXsDZaHVulEjbAJiBi4gORPraHR/1uAQ61VgVTWcofh2HeWusJ2cuWEBFNJc D1q911F+pUwjC6qbgNYff+Om+jqq128SFcBmBYavJdes0q+jw9c+c8lZ24C3 sARPZO8aOn6Kfq5nxQ6E8tb6c2euoe61eq6X2h2AKc54+J3DGirXWhvCvOcE xH9PEc/LraGJMyuyL9VcAK7OL21gdxVduf/Lw0TJDXRnM+06N62iPym/mJnZ uIPckJfmFE9X0f3B++VNrZ7Ax0apKvHqKuoTmIRjcfcGuhrfOMUFV9Hk5K4u Pms/ICB80webW0FHzYMsFTIegHXCar9R2Qr6+8XrG2GJQaB5Mlx5+sEK+h4v 4DMZFQLSvnIl+19YQTdXGx1iSh8Cl/w3m0eZV1COITPVKMYIIM3gHKL2axmV ttqyunX/EVhyE2e4V7yMinysD5NhfQLe/5xJyvFZRsUIMjFtczHAjZgv2KO5 jD7tTweiQbFALutWCSXrMupnmULCS8SDVbywsvzYElpxnHFLcfcZ8GjP1k3w W0LDDsbHmBmSgcIZy/6mC0so28qF3DLjVLCexGuzwbaE/qT7/CazJR2U7Q0v iIyTUPefItcbFTPBfas0b9N3JJRDrl8oOycLKH0xo4wMIKH3b5uqXxXNAZti HDEVl0ioxQY+/Nb3l2BlRuyC/LdFVCS3U6zQ+TVw//D6eoLdIroRHTePdykA 6/4n3Tdwi2j4gV8Q7lkRuK+ZHWmauvCv/6SJ0FAJ2GTizaiQX0BfnZeRlXn1 FngPpH7g7JhHf1dZmtOT3oHtHPYW39vz6IKl7HioXinYVTi2BmXMoU+urR15 oVcG/HExtBnKc+h7tkuyY0vlYL+Zjg/XM4vaTLIWURdVALJr+Et11LOorg7/ FrvjZxAsHHxTMGcGDc58YhzkigJK0r5HKDSDuoidvGjdjAFCyGbmebdptP5m LbcaSz0I1/Yoy6OfRhlCFyiO6zUAarblVuq8KXSpGm/0KKkR0ObPrrcMTqIj ctU5kqZfwWM3e3pxz0n08ZX4M1VtzYCe+Jf/CdMk6ni5fSDVqBUwto9o62lM oLREjuCs6DbwNMnc6u3oX5S9k3bAjr8DHLPqu3/U5y/6ZFYzUIKiE7CsdWZ3 l4yjzC3Vy1HDXYCdq3HzCvsf1Aw8ET030wuSx1UZKt6PoTQq9WVV+z8BZ0mN IKfOGGo4JG+YzdEPuFU/6Q4F/Uav5cRth1gOAvU2kwu1vaMoM8nTP+X4L2Bi J5jV5dePTtxKZNcT/Qseud6LiPvYh1JtB3ZytPwFn/3q715e+ImaumaxLNtP AKF4a7jrRi+6oKyxZp89CZbRnMFOtW40r4Sn98H2NBBuXamL9e1Ca1XVqn5E zICrveoFBh860fRmvt2bzLMAm/vj1XmyA71+10r9DdccmFq8hQl8bkNZvY4v 1SbNAT0CdUy25He0lO07XQHTPOCR0xLPPtqCRq2frHu/OA8eXpja5g/5irKp QVSKJgtg7kZEc9ZqE2oyfK3OtGwBGHqeSuK3a0Sd3olPdzEugsqor3ZZP+tR 63mLtzZWi4A/x16e/0IdupD5rb+zeBFEVFBTZlViaH/2x72xpUUwkmHwStW0 BuWXUZmUPU4Cxd9i1VRVqtAiXVCYIEMCvludowjPJ3Q/f/s4jRYJXBA+5o+Q fUS/Ng+aeZuRwHHDy5zI+Ds0zrE4od+eBFoPhO4+iC5Gt5pXV3nukYD91Vf5 AUZ56NOH0aWq3iRAWXpy3J8zCzVUc5OEfEkA4dCGtrHn6GbT47+M//ZJSck2 S8nBaK5ORkCVGwn4kT9rPK/kAKzfyNef+5dfMsX6C4tCDOhmeZZSepUERjje LdAxpoGC9uaDY5okYCjXVx2m+hLo/v674iJNAmX9V4LDfQsAh5OT0wgrCRzB ZgUbzN4C9xfGfiMLiwDEF4Y13C8FMT08NO4Fi8DVznG64VkZcBu9Qff2+iLI VhbTbnxXAU7evSbcQrcIeuhnSxrbqsGiukPH/rsFkHZV/qx1aC14a1hGj83M A3n1545/jtWDyp6DvQH/edAmvpZmndUAnjkJxYvTzQMc7uOBdc0XIPvsI7GM dQ4kT7PIjGs3g/wGJ8uE+Fkg2+1uZTPYAm7blj7epZ8FNrlnGm02v4NY0yNf sJVpYCNs1ijL0QWcG/6ePZU6Cb58638kZ9gHAMc9ofbMMWDvNfDFXKwfaH7W U/6w8htQCw1ShlIMAB2DhrUazd/gou9QQE/pIDjGTc15aXoUfDs96ubBMgpS Avm4onsGgNOP0Tfpc6PgTcyEM9OLfhCGuKxbWf0CvHS8LabOfUBkzkXu8dnf wDWl6upboV5gr+5WPDgzBoT+bP+xIHUCpeTl1kWTPyDqMmsc2OwA1ItuMxT1 f8Ci6YfvjdQdID/lnoh46jg45dxBmg3/BnxIKxoI1V/gvlURpDfcAi6ed7cx uvcXjJKNXec61wxmltyz/C5NABspbcRBowlUaq6hT8snwNb58+uRow3gUbrH yEvBScAtamF6+VE9ELvgyfV9ZxI4Gj/wzWSqBbsv1pV/35oCN7qqOyZ6UfBt 1dN0rXsKaAV9jmcp/AycMu8/5y6aBmydb3VeFlYA4vpGqQz7DGAQTlBR6S0H 9NpeXRqhM+CpH43rF64yMJS1SbpKmgEyln6oge8HULzhxehsMQuiiEcqR1be gwCdLYngr7Pgt3y3kEvoO6Cb462dcGYOxI+uaxPE34IFXZ/IGvp5kCWhoxbq VQhqXm7ndXnNA7kfp2p+auSD6G2fponxeXBX7zvdBeU8cF1/Z3xbfwEo+P39 M6v/Ckjl+lIwfl4ADTRX1IYf5QDc7g6/4OlF8N1cqPnc3yzQYeCHKD5fBHvW P9eNr2eCTwE1NW8USMDhlqspzaVUkJm//73CiQSEurKVU34lgYgeeLg+mwQa vMvfiucmAJeDgLnvfSTQkeUYUZ70DJiKojs/GZbASr+PkcHHOIAYH9COnVsC Pce/DklvPQWnAgHnnM8SCO28kW1WHw2YCh+cXn+7BIqf+D/363sMtn6gSrjJ JZAfswptiEeCMRxOi5Z7GTjvFTOfrQ4DLWLIFRbDZSAh/cZ2JSgUvDcJtOOJ XAadAmaCjD7BICUI8ziFLv+7d2nufMwMBMFFuIeya8ugUItmKnbcH9z+iTwj iq0AkeBcq5ZeH3CZPCjnvOUK+CaArH066gXOStS+109cASavnm44xngA+Z7e hJrmFdCUx69nfvcekPad8xHfXQEXCy6q2AS6AjEB8hspkqvgbBE1lZT/XSDc fFyd2nIVyCTlZcdpOwF+FwkRz/hV8ONVDMMJewdw4rg63XjjKhC/GCXv3GwH 2GtMFw02V4HhGYqZjNs2gNnWuRsVXQN3FqY+y5+3Agz0oeUS19aADS50g+vK v/dhaXJqaswakBpGDVRlrgG82ZsHNHVrQL14aXiQ3gzgyBqt76+ugX6bigpq 5StgJ29A86/wOnhdGCTuWGIE1nVJYoZX14GE33sl2O4yWFrDM9U+Xgeq9Yov Lprpg7k0rlXJmvV/5x6Nq6TRAZPqMn1ppHVgWvvY3K/2AhibOV9NK7gBUo8I iel1nQcjsRaZXsYbwOtE/XtfuXOgX8ktdCJ8A5jFhbMzDquCntFwe6PKDaC1 WaeTFANAR1i6dt3cBniI08k/O6ACWiVKpaV5N4GYGK0qY7QSaOr5yvLCYBO0 MH52J2bKg1rfkU260E1A4VowNU+QA9UCq0PeZZvAVTRiGq6QBuXNNLWTU5vg l5xTuPZ1CfDehfeVMdcW4AzY322qOw2Kj8tH1utsAflCxZ8DccLgdc3FOzKB W6BrpWitvk4QvLS9aZDxfgsYLR4LWdDkBxn0nvJH/m6BE6phCWUyPCCl9DGH 7/FtoL3+9i69GSdIMMvam7qwDaLY3+emb7GBWLLy3yZ+2+CT9Y5dIzkLiHr9 rbGhZBukJ/ZfMXQ4CsL1xvJlf28Dx+SokrZzDCB4feNJJvMOOI0KZGVq0QL/ 9CNuDOd3gJnRicXBbwTgdU7QxM9rB9QFhtuJ1lGAe7NKZ2cKdsDBK1a6BU4y 4Byny2M6vAN2L+ztCSfswbeVbcibGHdByk3UqDNmC7b95T0hp7YLgmlmny8w rsM3w2Nastx3gQGtuEITfgW2kHxVwpi3C9yXH4QnWJHgKz8q4/z7d4FKZt2F Ktk5+LJfh+cs3R5gOpqO6UFTsI7ghNlVeA+oVwLnpo5xWKtlB/7isgdgz8H3 zoO/YXXXo4LyOXtAauWPXXjqCAyzi1Dl/NgDSkJGEaZnBmBllDjLRL0Pzv8g 6YY49MJn7C63B5zdBzOuw6tKwt2w9BH70jmnffCzx9Ze17QDFvvgn2iWsQ/G greLe0dbYWHzeN+vnfvAV/d6aGjNF1iAPP+GAuUBSPw0ZJt1pgHmzq9Rf6lw AO6KWzroSNTC7Po9IsccDgBLMLdxt/hnmHljmi4w9QA0CZB+P8A+wQwvDhbn vx8A0ZJsP4ftD3BoNu2MBA6HpAVVqOPr38HknqxDNhw4xO7dQ8kNuhLY7GZB 16czOCR071LxUep8+P1F0Eyvj0OaoOgCwZ6XMK18D3rTEYdQ9hR+S9LLgq14 Hco+hOGQ7pjA9ief0+BKmv0i6mwcskjMeeDSkwgfW43LsfiMQzxbyr25q+Ph 2yMiKW/7cIhZC8f7rctP4bqv1U8pV3HIYGFKm8bWI5iz1CDclJEMKcx5Iaqv Fga7pU/4F4mSIWFd3cXVpsFwS7ivO+48GaJ8rSlIWT4AFnBjcjSyJEOqYlVn hnq9YB+LV5av/ciQ9IFY9Sd27nDX+bOmu4lkSJOqv4B8tQssKtOuq19KhuSf j1WLd3KEQ7hsNF62kSGyfL+FH7rawUP4LZXNaTKENumrloepFXyG9ERWG0+O /OnLvN+0eg2OGhA4nclHjkwcaLq8uWMKjzeU866qkCOfInnjCv4awsQ32mxa V8gRm1kCOiGlDz9L/k2f5kaOyKVr1nroXoTnQjwpSE/IEVWtudK6qxrwOWe6 bfV8cqRQmFTepqsKp5lmkhIbyBH7g8HnfFREeFVNfnJ2lBz50J8Z+rFAAdaW aBkGO+TIFeMfV1X0ZOGXx2/0xLNRIMyrLhvWjyXgXbLVlkkZCmQ+1zxkvU0E NpqLqFXRoUDEjTc8v58WhIt6uT/F2FMgvqE4dVI7D0xZ+77kTwgFos1gqTz5 mR22KNR8pZhBgXizj8rj+pjhD8+HUh9XUiBnNo637bUwwvSBrnGjPygQs501 WnUXGtjmNiFSbokCyeZZSvQ1ooSrjVIfhNNTIoE54lS2Z3EwC5D2HBShRDzu 7Aj4/9qCnE43OkmpUyL9mKuAWeoq1MhsZh1ynRJpiiM17luTIJ79has/vSmR ZsnAYRq6GchzKkRf7DklYuLYUm5RMA61dbFrPnhLifDLmeRv3fwFCX8uhrpb /+W78dEueqEfCshTOyMySYlwHssaoQ7qgXpjf4r6kuORcwzkV5xlOiBJPyf+ dm48wlm3eXTlcTMUZkfGLqiMR6K6fKA3fA3QiH4Cw30jPPKxziyqphiFFFTE 8K138Qh/YwrDlYlPUPRJbIfnMR65+Nq842pUKTTBaLzslotHIrZWqrVel0Dw 9vRUUy0e2b/70WqC/DWUMB4wyjmMR56cFj6V8zUbWmhj7nXexCN9nKuER2bp 0PmK19/qmAlIDQev6vOpBOhFDlTPJkVA+D6zl3gPxkLrT7oqbl8kIDD/jYyw tseQrtettzW2BOSGEPP7xoyHUK7Vbu6xIAJiH4C70N0aCO1rx6bbpRGQsWD0 4SdGH8hEUfhZZTkBeb0wtjws4w6V8Fc9YugmINeoeP2K1e5CVPT6QVYLBMSr VikrWNQeMhUxwxRoqBDCSJprAGoFFajZHNAKUSH5xs/abzJcg3avOcOjMBXC POhdH+hvAul6e/mXXqVCAqZF7K9ZG0CZz4Krw92pkKJAU165wYvQ8puoHfMY KmTG74mDWfk56FxrwlnpAirE9gXPqNUcgBImMr0pG6kQrpDs5zGxStAUWeGn vlEqJHxNwWlnTBY6y/1xo2ibCvl49EUEJ5kEFKWEKgSxUiNs5L0zQ7AwNGLY 7GEsTY08uSX+sJOWH5K+2/3h9CVqBLZQrqJl5YSCHw2v7NlSI4MfBxXjFpmh nleTsl2B1EjkAcFkxIUBEq5dcs1NpUZqrwam/VCggryGdt76lFEjS+SDFp0l ZFDLBp6k20mNMFXddgyZ2iaeYGaSEpyjRm59cvATv7dKdJbkdN4g0CDJP6SX FekXidgFoeJWfhokm6jvVPloknjMVnIug0iDhFkyTET0/CbaBCqJuV+hQSyO a3Fe2B4glqWq3dZyo0HuZQ3c/mzVQ6Qu184/8YQGKZIs5DrW1EY06zKZIuXR IGK/1l54yn0hFs3fFGmso0HCzcLWv3jVEvepHe2Sh2mQFv2u+QGtSqK+kMer O5s0CE1G7MhrtJSYDR6MqzLTIjedI5LMXhYTV80iBdkkaZE8nmdOt5RyiRqe 8VYzWrRIRJqAjFZOJjEhNj2rxpoWedks6s/9J4k4VZT3Ky6AFnljBgpjE+OI UX+qrqt8oEVaPapMjEtCiT3642ZRvHRIE7dneCTkQLQRkzeUXKdDRmpfUoi2 yhBDfvWqu+UcQcwmj5Zcs61WGam4dMer+ggSfaJ3QHLhg8rZeCwh4McRhMG2 LY+5u0SFpFEw/YiKAcHZnidbz89UuV7oH5PjyID86H/c1whCVM56Cg32yDEi 2R28WXF+WipbeOUKLismJP/kdFr2tY6zb1PD9AOWjyKyEzzlv862Kt/NtmEa N2FFQB/zF60cDcXrt1O4w4PYkSDB4aPthuFnIg08leXSuBCHk7c+NVt5y1Cy PJ94sM2DLL3kkQgYxCR+tj4khTLyI/VVK8EpR8ZPG/taKaTUCyCkRtTsftqF k050swJtZkLImQsEXL19Eh9vYVMCYeYkEsnSZmmskMXl+0ndkDFVBDmXwu8a zdnN6pLrVKYgdRoZvBRwT2mXkomeXNFK8q8octb1mrLMdz0ajTtGz0XjxZHM Il29DsqL5OwV3Hc1hCSR//0fEOcWESv9U+o/Xw7Tk0gvk/7Pouahxi/9Zf5z 7wRNdryx7H9us/qreoxX7j//pszbfC5w6NVc+zccwofmmJ09wS9xaJt7yxtS KofeDjko1rlyaOFXHJyRMYdW1hzsoI8/tPZ0WvjThEO7SvCtJaYfuvqjcEdu 4aEvN8mFNXw5tK39GlGr9dBetOUrrW2HTtc9a9n949BTvQhx7M//qdeLfMV2 8tBHuBryp2cOLXtD8/jS0qE1yGja3NcObZrTErq5eejbGlEqfruH/p//KP/5 /wFCahpD "]]}, Annotation[#, "Charting`Private`Tag$20717#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nk0VV/YOPDrutdMSiSziMwZynTP2QeJMoRkjMwpkoTMJQqpzMqUMSFF lDnnyFAhSsaMIbNruoaMv35rve/Xu/949vqsZ+1nPX/stfb+4xG0u2nkiMfh cNL/wv/fAyf1lvf25DHc/6wJf47V/u1967MOr5f/3beAsvvOzZV9f3oUSzcy sW866R4+7Nu+4z1tdO6l7Ps11e0cnOK+iY5acket5P4zW2+ja1aM7H82qk+2 F2s++Z/9FyDX6DGZ/1xxJ/l60QXp/X5jLwnsJkliCYt01qFTd/BaaR/1tefE MRf83nW/Kh/63M++3bctxbB+MYFPF9wzDliHxrO354liKahnoTLdb/YgG+q3 jGwi2CmMnPRg0IgbJ8WPajwQxpAcX/LnXR2BX5FJYa+7jmFPxzpHc79rHedh cM6nqAtiG1S0fnIZj8VcTokT+3n4Mb8kxflwkzope8WhvPp6bkyacpWR+6mn rLiPyp5bDidmEKamwKQbppA5eLHBV40dy7li4esldFtxMpidpMV5CHMpGkhn XP+iXJVwQnPKhBl7n5ukXf16XJXOctKeisSMVSlAPg/851RNBHLvcwkyYyMb xI9o0orqcoEQpjvLhNkZXeDnuYcniWF8qu/uMmH1T82iHqoJkJ7PHJb1y2PE NuxSBPoxU9JE0c8LcU8YMZmmvXragzYkBa9Yt0IPRoy3S20144MjqX3vQOEQ iRHTVoj8xoXdJtGwM4pq/GDAUlaoG234o0nGv75qXi5jwAI4Q7fPpSaQstLD HbxSGDCl0FdDY+RUEixOk/XKkQHTr35Vk9STT3q80IBh5xmwoNZavB30jvTr fchwnwwD9mLkrmXF3zLSCT/13eXDDBi8FSAXnVBL8gJUvEyb9Njh1ydfwpca SJ8ImOrxYXqMTYVTUoiqhcTaHGQBN9Bjt/vEN1ynf5CsoyBf03x6rI2xxJ9S 3UMqNN5+5v6UHluTkHlXc22YtHm0uiziNj126tFNupz6cZL2sG9Xlhk9ljPP c++MyywpMUeJUg39O68dncnHvkwav7Z+qOsYPXYw5WtqYcc6SU6mTJZMS49l Kx34HGK+R7pH8TSgnafDJgm8rkHJBKitUv6mQAcd1rx8AdlhYoS47y4/US6n wxJ8JUqwmoOQ85l3hUapdNga97TssuoRqIzevcUlmA4LI/u9OOvEBxHapWdC negwV+ctgt6gEGQUP0/3QocOQ3Rx7/XIYlCGeaFo+Uk6jEq6brBt8iRE5nM5 +52dDmOgN9a/SzgNkcbFHKc3aTGD2IpH/jkk6FH+VAh+hBYLLkPxUynqUK/b qyzuRlpMwmDjzxFRbUhEwalOoYAWI/9ip+m+cAHy/Cs8ohdFixk1Y16LmsZQ Xe3YrpPnv3pf0/y7lSwgltAs3nvmtNgtZcnKC4s20OVztqQkmBYr+j1d093v CBWwCFiWCNFiu6RRnSlJV2jj55BvCx0txpmgnXFeyAM6m5T2fHyeBtMPykw3 vXgHire+XL7TQYMp2V+Uc14LhEaFuLs5Kmgw88ctT1uUQqCT030UmTQarPqK id31rHDIc1FK7EgoDZY9RRF9RIiCKtaDrXav02DnOX5IM92Pg7Z3u2L+GNJg etSGMuEhzyE1GvGmViUaTE4tjH+18QX0kDlos5SfBqNhfaXfqZMNNR/ukE6h ocF+2xYqfZXMg1h4ROzvzxMx86zfpvVqbyEjIb9n1zqJ2KjBj/NXZkqgRPG2 FoNqIlZa9bQlKKMc6pc9hlPKImINNwL6ff0/QgLK3gr8EURsXnXmtbrNJ8gB aXamcSdix89bpF4ebYLytPjS5k2ImBZjR4OuTys0p+/xoxMiYumXdEM43/2A Tpo0EWuEiZh3W5zyhfUuyMuKSyWbkYgtq9wU/wP3Q1UObm6PlgnYiWUqX9Pf I9Cuy6esW30E7Kr545+af8Yh9dscPWYYAbOr6bzM2TMNPfS7zoi8ImBMREfy mbkFqDm4Fog+JWA/NyqTlktWoAMRhzxZvAgYMC5ujj+3ARlHO+WtWhIwvVHD pOMzO9DzZ1UDA+oEbOlSjsODq3h44AXLwQYxAvbiralpRDoNLJBrp/malYB9 +NZZvPeZEXZ4U+Ybu06N3XoFxzowHITz3zO89R2ixpRlFJl0Rw/D5GrrUZtG aszGYeHF05ijsFx9CYd2ITV2yK2/vl2TH/ZuptGRiaPGdOwPdxC4heCqHxZ3 OfyosavcRvOyRqLwbu/b0h0bamxUfueBrLskrD6CnxrXosZ4d0WNbYxk4YeT Jjyt0tRY4Ah3RPThU3ALucCglJ0ai4KpyasZyjDr2m5o8jYeu6u4/DVVAMDG O0aVwWN4jLPoQ4HOqDr8nPBq3rkZjwVxvbdBx87CA4xbggbv8NgFdsuo1HId WIDtgoniczyW9hS3Wl9vADtyZT/iu4vHmrSsGCPUjeECwfVaohMe23Mgu8Z7 mcHkEzorc7p4LHTiC9f4XStY7mS6aKc8HovtFQgMbLSFvRVXLKu58FhKDc8c wcERroK1orOo8NgJVk39lxXX4D3NlIaIKSqMuW+vs/mPG3xGb2HDvZ0KY30c 8pLlkQccbqwhZVZGhS3UtL39quwNt1o+swVpVBhCV+Fi/sIPZrWfTRAJpcIq cDsm+L67sPF10MzsQoXdy+qVvkUXAifditulGFJhnkmUB6uVD+Ehn0m5ASUq TK3eJZqKJxI+dk/1aj0/FeZlu23MLhoNO4VFpRTQUGFmWgfL36vEwQVPx9pj 5nGYW3Tx+YChRJicoEjw7cRhWppR3wskUmD5tEglm2ocxjU9TPzFnwH75Ay7 amXhsAytLnEvvmy45rV8pnQEDmOpsErMeJkL40rDutjdcZhVvsTBxNYC+ExV P/2Oyb+8lt+W/tsi+G3BS+XPqjhs119q5spGCcyZcvNajAAOY+MYCTzwrgy+ H6mcZEnEYSK2H4e8earh7nWaWJ3OPfTuCcFMkhQGF/QmLw2n7aGjjJHvJbXr 4aBKaUPPq3toY3CXwldKE2yU/KmYTnYP/RKN7l7VbYGP+5uwpm3uomobKanq p7/DG5YzN2UbdlHauWtlJao/4VZSUHvjk13U21tQ+GpzN5zBe0jGwnQX9aAE 33b9+wv23H35lCywi5pK6Vi7jw3D2sPK5PszO2jDB+vcnJ+jMDf2Te/I+x1U Rl1yQkthAiZn2L55HbiDPqxnoBc5MQN/Cl5lQrR2UBdd0vRAExlOtItw7WTd QSPwLKSv7MvwNQ3eVudf2yhKs+xWobIKk4TfSexkb6Pl50vInOMbMCtRMzLm xjYqVRQUaSWyA4//6Z05rriNMtv3KN9mogIVTa7nq3Db6I40cJedpQaPX+EK 9Ju30CbLIlw6TAuuhMfTj8VtoenRL3iYOBmB3LUT1+5YbaHk8s/TIpEHAM35 mi+Molvo2ogNl5DpIfBL3OBExuImWtwdwWqtxw7eMo6HKVRtoo8csz49L+ME 9+fuTH4J2UQZznBfImbzgEvfGLWs9DbRX7BVpFesADjxNj13iWMTTdsIKL11 QghsP5WneTjyF8X/diGx8IuA7zc/O3IV/EVj6SSlDUPEQLaBZePb23/Rat9i qx57KeAtuyCsAf1FV6MOke9OnQTnD4WE9tD8RWeljZ89cZMHfCsc4y7fN9DL 3dvqF/RPg+WfBRq45A0U+xGQKBWnDJrew9nx9hto6t8G2cFzEEhK6MCLSW2g BiHG3gBDgKu3k93HtXW02fAMbCukARDTzTpDbB0F781aiT2a4LDSU8GJiHW0 dL6ht3VcG0xxHgv2u7iOurF1Hjc31QU1fz+MsPCuo4Q6nhB5XgMQ9esckj2x hjpo3hLw0DMCdtWD6YrFa+jzXb2C0HpjcDr11l6L7xranvOYWSXMFDAEEq/Y aKyh4YxjY4KZFmDQKqmWwrSGjvFm8qZwWYNiWIovonsVVVrlzVvatQGh/HWB vBmrqNCFDQM2CXtghrs0+O7aKkrpkxf+8swRSP6eIp2VX0WdeTub3ug4A9yn gNRf2xR0sob8clnPBfzMYt12a6KgXz6WT1jnuoHckBxL6mgKyttLrn0rfQv4 OShVPzOnoCW2XcV4+DbQ12zlkhSioOF2ug4HH3qBYyI2ftjcCto+zy4nwOQD 1mgofcZlK6jZu1313i4/8HUyTHn67goak+HJrDMdCFK/cCcFnltBT/HGm/vn 3gPu+UUbB9lWUGp6s6N/Qu6DkyxuIeojy2gnw+cFVddQsOQhyXL7zT+LMu9s 3HsISnpmnmf7LaP4pvzggMZw4EHKF+rUWkafDGh/M4EigXzm1bcE9mW0iXr9 xLm5J4BCFFE+NbqEbskVnxdyiQZe7Vn6iQFLKJ/Kpgh7WRw4rWDb13RuCdW7 GBbqG50A1p7zO6xzLKHfBf89VzHPQNnOIFl0fBHlzhxMXapKAnfsUn3N3i2i hZ8KRZhZU4HSZwtCRNAi+jckvQ6JewE2JI5GVeosorfaHFlzszPAyozEuVOt CygU58FYmJsNPN/nWSc6LaCeE7/bMo1egrXA457ruAXUVnt+aY7nFbijlRVh lkJG5XKUKvlo88EGK3965SkyemAwrbz90Gvg+yvlPdf3eTTnZn7BC7U3YDOb s9n/+jzKG/7utExCEdg+fWgVSp9DZ+hkepLMSkAgLoohXXkO7XKZ4AysLQW7 XxkFcJ2zKOdvT5pDKh8AlRVR5xPdLFpY5+LxzKsC3Be5byOUPYPy2KZbCSlW AcLirlcoNIOeXUDjEw7WAJqQjYyzHtPoDXMJzX/feBCm61X2imkadTnRXtjH VwfoOJZb6F5Noe0aYxt+ap8AQ/7sWnP/JNrw8bdF8LsGEOnhzCTpPYmSX3ph N/YaARPpj+AT1km0+TisqHH5MzjQPqR7QXMC5dnse2at0Qyin1vaFQ//QWNF Yo5MfmsBh+x67xz0+4N6zBvZDlz9Bg6v/sj6+XYcPWUulsrk+B1wcjdumHKO ocArZKH4WCdIGldjqSwZRQl5MdUxwl2A622tEJfeKBq2d8XhgVQ34FWr0B8I /o1izDc+Nl7sBRptJufquofR54Jxz9HpAWDiJJTZEdCHflxw5PZzHwOPbt0O j/3Qi5p3qnmIHBwHHwPqbxqRe9DJCkfyl3fjQDjOHu640o2KwzPR2Ut/wDKa 3f9D/SeqwiREELWbAiItK59i/DtQKV92Mda/U8C8W6PA8P0P1Ogk+YbEk2mA zY35/Dj+Hb2Ze6Qh7PUM4JPXlsw62Iy2jFfCs2Vz4MG5qU3BkC8oM/XBbX+p eTB3JfxrJqUJPQLIt/1fzIOL3ieeCzo1ooEqCjnJ9GRQ9fiLU2ZPPbrRVDH4 xI0MBLOdTwme+4R+LpbmZf5GBuGVdITMKgyt90q16RReAEPphi/VzGpRZpmO jWyvBfCmNUZdTbUaPaRp0o2gC8D/749hhK8CtQzKdq7CLYJzIocCEaoP6BDc 70XLtwiOXDTiQsbfod6faT/fUlwELXvCN+8+fYNSbjyxntBdBM7mL/ODjF+h VpHZwpesFwGh9Ph4IFcmStPivlXssgiQo7rQJpaAQo8D2hc8F8Hi8ySHpaT7 6OVAsxwGv0UQgI9vPKt0DVBJuKbt/LN0sv3nw6ejwDnCT/yXO4tg6Og7MuOB VECEz6i7ui+Ci/K9NQ/VcsDAFn5uwWERlPWZ3g/zLwAKIgOvLS8tAmZsVqjB ohic1obharVFAOJeP2y4UwoO5wfZ8oovgltOLtMN8WXg+j3H+jiWRZClLKHb +K4SBMlodDsOLYBOptm3jW01IDQ/Dgg/XwA0IwUHm2ZR8HhV9lni+QWQan5K xT60DhQ3iFesrpLBKY0El7FD9eBDWxl8N5kM2iRXU+0zG4D1m0jIS4kMcLgP e/a1n0F7s6V1ve08SJo+LDuu+xVAt504SufngNxPTzuH/mbgBsYwyHMOOOQq NDpsfAN0St+ZPD1mgYOIRaPc0Q5Qsj5iSANNg8+tfY/k/93rpNDoTn+LceDs 8+uzpUQfuPmosUS0cAzQCfcTQql/gVbukEfUu6PgvP9AUGdpP1DYtqB0Z/8G rWLDHl6Hh0EsS9SvNOoh4No1XJQ2NwwEw+NyZz8OgIeI+5qd3Qjo2Z393h/Y D0Tn3OUjVX6D0vPWJx+w9gFnDY83/TOjQMLO5m17ZCdQSlpuWTAZA3sfR0MM gn4CugWPGer6MfDt11T8Md8OkJ98W1QyZRzovHtmdCH8O/BbXNFEaP8ANXTN s0q5HZw/6+lgfPsPKJl8Kqvl+Q3MLHlmBuhMgOBH8fKNvM2gSmsVjS6fAMeC OAySHn8Bj9K8hnKEJgHi1DT3kukzkDjnzf1taxKMMG4UpoAGsP1iTfn31SnA cRlHi1/+BFop3marP6eAU9Qb3bT3dcA1404Cb+E0yDyxuMDYUQtIa+ulspwz oIevUYz9fQ1g0vXp0AydAUXilF7n0iowkLmxaL44AxxZOdIF2yvAm3WfA26X Z0Gk07M+Q5pyEKT3V+r+l1kw9yVZi2j2Aehn++omKsyBmxWKKer1pYCs7xdR yzQP3o8QtB1Hi0FtzuarDp954J6pY/DsRBF4uunXNDE+D+wEj27fKy8E1gZb 45sGZCAsHHAu8mYBkMn1pz7wkQwM6z0HavXzAG57S1BIbAH8Xb4gIHExF3w3 DEAUExZAlfD9pUm/HFARVFtbdHoRcE1bJf+RzAQZ+bvfKl0XQVWGQeHRq+kg vBMerM9aBHnn4wmvClOB+17Q3LfeRWDzO5nCI5oMzMTRrR6WJfDRQ+yn+s9n ALm0xzB6ZgmweF3N3n2TAE7cA1xzfksguPPS0KX3ceBvF6qEm1wC8MX51sdK 0WAUh9Nm4F0GVx+oMsjaPQHNEojp4YvLwPXZO3eZhEegxOSeE1/EMuBbbzpm RwwHycGY1wl0GSjnn+699PYBuF+IeyC3ugxypIQTuyJDwPUeJJ4ksQKKaGGr 6aRgYIQPzj5ruwKoqpc18/PvAhWpuhKDZytgxt1GVcwjAJzq7E6s/boCetvN 9V3LfMFJ/zk/ye0VEFOpUDSteAdIHMNfSZamAKEDPVyzS55A5OsRDTpbCjjK 5y9JM+IBBN2lRL3jKEAnU0nr6K474DmiwTjeSAGHrw1MRke7Ac5aswXDDQqQ ep7qQfFyAWyObj9R8VWQMhU/kffSGbAwhZZLWa0C8rnjVh5HnQBDaVJKStQq EIeqOcNa7AHRougu/adVoPLEySGizBbgqBrt71BWQaDPvBD16ytg69UvrT8i a4DyM1ypWOsyWNNflLhovgYmZqfH01XMwdIqkbUucg0wIYEjVAEmYC6VmyJd uwbs/ZaYXhKMwaSGbG/q4hoIG5KUmv9mCEZnztYwCK2D2i5xptjsC2Ao5nKG z6V18OUoQ68huy7oU/IInQhbB/ybHoGzE9qgczjM2bhqHUSjcD7rgbPg+8M0 3U9z6+BCJf61+gMN0CJVevIk/wYQo2qmrVdTA02dXw6/MNwArE8G2+j9YVDn P7TBGLoBthYd38HjKqDmGGXAt2wD7Fj6td0rVQTlX+nrJqc2wJE78VtqQwqg xJ3/5SXuv+BKphPPioUceHPkVES93l8wdaRkkSxwEuTVnr8he+8viGLQzWo1 kAQ5jjaG6SV/wRuDimcpnSdAOpP3KeY/f8GxL/yCSdhxkFwaedT/yCYoW6tX MqcXAokWmTtT5zZB8/kSsec5AiCGqvy3ScAmOGynSQsO8YLHea2NDW83wdWv JWYWVkdB2IXRfLnfm2DlvvFgBTcHuL+2/iSDbQsYJze2CyJsIDCN2YPl7BaY ab18vamWFficETIJ8NkC9GO/mCEuZnB7VkllpmALSHpKJ0Rr0AO3WH0+s8Et wMM+r9c1RQTXlR3wTQe2QbdH/YbCFh44jvhOyKtvAw6tDJPQGzhgExbVnOm5 DWgijiZKOW/Dl6Vfvj3wahtIVaVrS0ZswKZdVbGBfduA2Kt/rUZiFTYK+O49 y7gDQh829JWDZVhPaMLCHN4BDn3aZbU3FmDt5i34s/sOCOj1EjpPPwtr3Doo dCp7B/x6GNO2oToJw5yitNldO+BPRX+O1fIYrIySZlnpdsFGTZXwde7fsIKT UXuQyi6wo7rWZ2gwCJ9kdi6dc90F+k8+qO1x9MES7wOfWaTvAi+6s9Pk212w iGWc/5cfu8BU+sf1Ixc74GP4/CunCXvg1GO5nTXNdpg3v1Yj5/QeaI+V1CnP a4Y5DTpFD13bA7babQq/S5tgtvVpxnspe4DCS9C0NKiHWV7sLcx/2wO8HTaD bNcxODSLYUYKh0MG0inyasPVMN6bfcDhKA5xWC/Z+5FdDlvYFHRUKOCQCrWQ K5+wUrjkPPjKZIBDNAbvEnUDimGGU52ojQsOKdjyHKMPeA3b8V8re/8Qh9yD uPfAaC5cRb9bSJeFQ8IDzHU7abPhQ5TY7MsfcQj2MWTeIS0dvj4kmlzci0Ns PFa581SS4U9faqIJFByiZabXK12TAHOVGoaZHaBCkJ9e/ZY7MbBH2kRgoTgV 8iWX1OFb+wRuDvP3xJ2lQjy7dOWdosLhYx6sLsa2VMgmc6vXbbVQ2O/yS9u8 ACqk8Xbv5aiie3DHWRWz7WdUyEVW22o+L39YXLZd36CUCvltYOwcE+0Nh3A7 aOa0USH5EUNsCQ884AHiX9WNaSokGdOq7rJ2gxUWn8jpEvHIOfZ5XPGQM/z4 1zGxDAE8cjPPPM/B1AEebyjnp6jikcmOqWShFzYwqUiXQ9sUj2TM7/o85LOE 45N+M6V64BELZ3FTWS4TeC7Em3rxCR4x2ppi3t4xhM+4MW5q5OORRu0f3ntq enCqWcbiswY84vkiNKnokxZMUT81OTuMRwwW5psWNDVgXanmQbCFR7qrrEGT CoBzjlzpjOOgRm6IqlA90lSGt6kozZOy1Mg9a78bbDcUYOO58DpVPWpkzD7p 5a3Ak3BhN29FlDM14o5RiCPPxGFCXcnbsRBq5OOvI5Wb14/Dl19rvVRMp0b6 /L1ii1QE4fcJAymRVdSIBfMjyc9F3DDTvVuxw13UyOzV3/x8Shyww3WaCPkl aiSP0pfv3n4QrjFOuRvGRED6VYahplAm+DA46d0vSkByHlrHK7fRwK5ija4y GgRE1+yEjYAiHm5ks7APsSYgs/wMJHXWHYhvl2ze40tAJMxVe9JOrEPeUyEG EgkExFvvWnOg2zLU1sGpdbeYgCx/4vHq0puHRD6+gX62EBD7vOA0tzOTUNAr dQXRSQJCexclfr49CnXH9Ij744nI67MfPB6pDkLSAa6C7bxEJD1YjvmrQA/0 0ImKU0iZiGhxfiB/P9sBDRkkstwxJiJF9tY+a32t0GlVCWLLTSKSWDX4sb22 CXp6HNviiyQilNQ/1+in66CJA5eWPXKJSIhPf6qsZA0Eb05PNdURkTcfblik CJZBieNBw1yDROTDy65DDlbvIHIbW7fbBhGBs2rZ3ii+hs5W5rV+YqNBOg9c ozmo/xJ6kQ3Vc8jQIPljMh/l8jKgtScdldfP0yCN81/KZ6iTIX2fq8W1jjRI Q2RYbOb5eCjXbjv3UDANQjWpe7EvLQra1Y1Jc0qlQRiR4SPcyeGQiaJIfFU5 DTIaPCO5xhcCvRWsfsTykwYRp8X2vhcFQrRMBsF2ZBpEtyhuO49wBzITtcBO 09MilYaynKtTt6ACdYc9BmFaRHpe6GZ9twu0beUGD8O0yPNK58chqY6Qvq9P YKk5LVIuFwVv19lAGfH3a8I8aZETOYvvr6+aQ8tFj7cso2iRIF1diji7MXSm JVHlZAEtkvoif/Yj/QUocSLDl9BIi0TrjVlzrWpBU1SvK3qHaRFrB0vxaB91 SIX3w3rhJi3C1uFOT7hNgh4roaeD2ekQxYw6Fr3RU9DQxa9el07SIawXYmUe fD8Jnbz5872YDh2iuhSjJ90uBt1/NLiy40iHuL4TW6D+KgR1vpyU67hHh1BF fZ2q1OWDROqWbuWm0CHPWlcv50kegXwGtor9yugQ/WURNvP3B6HmdeKi/o9/ 9Yyei8gTGSEeNlYZoTk65Hlsu8SN5wTITZrLbZ2GHtHOLmLTv7xHws4Jv2kR pEdSgl99NOtbJx1ylJ5LJ9EjJu/Cq17zLpMc7ilJeJrSI5gCW3hM4CypLEX9 urYHPeLrI30zrmucRFeum8/zhB6xeuPqciRymGTRYTK1+IoeSa/rmvnT10Mq nLcRbfxEj/xg0ZbIou4g7dK5OCUN0iMV4qlVQtItJANhr5c3NugRxbgT4br+ DaQscHdcjY0B+UBfKyLYVUuiWEQIcUgzIJQqzRUN6XKSpnec3Yw2AxLORc/g 7vyOlBiTlllrz4CEOaSpp/MWkKYKX43EBjEgJ0q8JxRiskmPx6qtVd8zIKFH A/50jieQOg3GLR7zMyKeoSx3dOj9SSKu5CQbFUbkTIGXuQunJ8knbKNX4RIj 8pjkNfm2+waJp5bJdPARI5LFst22bm9DcpA4dVF6jRG5et/LCYRokMrOglj8 QSbEzTEtlFhLItHZnfvRLcGEJBjapeKOnyIVPre6cNeWCfFsV/GYbhMhUYgP db63MiEWjjQ8Z6QYSCEj3Roe2cwIybv1RZLhd9WhSp0bPjXMiB+fxshN/i+q KnFYYlAXM/Kb8uVwW3ud6qJmwfQjWhbkj/WdanmrUlXr14FR2S7/LPenzSIt UVXFW7i/U/4Aslqgttl21Ur1L1G5ktuOFQHbZ92aw8dVilMeGgQtH0SM6MCi eu6o8s0sB9ZxE3Zkfbnubfm8raL19WTesGBOJC7OIJ+a85VChKG3snwqN3LW 7OfCk/k0WcLhhIm7m3zIzeCBgiiaKamelgeLoQcEkWLBvsX4AwfFL/nbnU6u P4ZUu54VZbrmd9yVcfZYm4Uw4kvJ3JkUaBPgf92USDNzHDFNsz1wwayP279C 4+KBFFGksZsz6xD9QQ73XNey0zJiyKHc64sfbc+yMuEV7aT/iCN9iYUSHM/j 6TVvGCeIx0kisRZSaKpDPJ6zkvemprA08r/zBbEe4TEne2T+s9HDC1JpZSf/ s7hl6KWcQNn/3D1BnxV3Se4/t9n9UTvEL/+ffxNebSQc2zcl17noqMi+j87O 8ghK7dvh9vK6jOq+N0P23uiZ7lvk5VGuiKh9K2v1f2eK27fudGpYdOK+b0kJ rD5L23fNB5Hvua/3bdQk/7Dh874dnVdJ2i379mEoX2lp23eavortz659T3Uj pNGx/9OvD37FcXLfzNwN+dMz+5a7onVkaWnfmlT0bZ6r+zbLbg7d2Nj3dc3H qgHb+/6feZb//P8AgEksGQ== "]]}, Annotation[#, "Charting`Private`Tag$20717#6"]& ]}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-20, 20}, {0., 2.4193602864417216`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202637159143*^9},ExpressionUUID->"de64df19-7499-4aa0-8a7d-\ 509a1fddd184"], Cell[BoxData["\<\"When k0 is 10\"\>"], "Print", CellChangeTimes->{3.78520245995514*^9, 3.785202567838773*^9, 3.785202637164363*^9},ExpressionUUID->"397ff0fd-7927-4ad4-bc8e-\ 8ace23cee017"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"(", RowBox[{ FractionBox[ RowBox[{"2.0601290774570113`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]], "+", RowBox[{"33.333333333333336`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"33.333333333333336`", " ", RowBox[{"(", RowBox[{"5.`", "\[VeryThinSpace]", "+", RowBox[{"2.5`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"1.8257418583505538`", " ", RowBox[{"(", RowBox[{"5.`", "\[VeryThinSpace]", "+", RowBox[{"5.`", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], ")"}]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]], "]"}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202637168524*^9},ExpressionUUID->"0afba802-2faa-406c-bba1-\ fbbdb40081fc"], Cell[BoxData["\<\"When k0 is 0\"\>"], "Print", CellChangeTimes->{3.78520245995514*^9, 3.785202567838773*^9, 3.785202637174993*^9},ExpressionUUID->"52704b2c-12fc-4582-a629-\ 90bf92ba44ac"], Cell[BoxData[ RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", FractionBox[ RowBox[{"2.0601290774570113`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]]}], ")"}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202637178669*^9},ExpressionUUID->"0c9d4930-c7b8-4cbd-aed4-\ 4be1ad8eb876"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Hc81f37B3CRcRzjbCSbxskMCed83rTI3txZEQ26pYxCIitEkVXSQrJC 3ZFKdRXKysqKjBBZESWjm9/393h8f+f8rn+ux/Of6/H64/rnumTcT1l5cnJw cKhu4OD43x46bjq/vq4OHP+tsRDar74/bJsRBn8/XWZbWtv331MLbL+Nv8Y3 NMY2n3K3JHxgO9X/sHH4TbaLNvjlcmixze1psFPMeSfL5J7ak9nJaixbVWce 2d6gynLILPNk0ogKy5VnM71KzZXZea/ZSq/dUGTZ4NZLM8NpOst574O6/By3 s+wSlUptyd/K8oXDXCV48haWOZSkXu+NloeaprqhjjZ/XO/lG5eKOmXB6Yt9 1c5FC9HN/McLfu6RgdCqLwuqpwXlvTXp3H2bpcCGR3sQ7vsrH9EayK+uFocD JcMWkVnWu+jndNZ9ckUhaFaoqrL9mi70m9FH0kXBiZbzxLIpV9du7xFb+zhR KMFxH9XurNCNEEooQj6ioFrZYK261qv7KbffnrBbFMJ8xJOGAmQYsW3hZY8a RUAt109syP8+Q1IrrU/hlQjUzk6qWR0pZzzJKuDJLBOB13dv87Uo1zKMOF+p CeWIAPNbzyaHng7G0LF2p4g0EUDiYS+T3UYZgR/GLi1eEoGeptGu8qYFhoD6 6mOvYBGgELdujtjMxcy+LjwwcFIEkvJ+ZcjakJhaa3I4a1cRKBK84yl2VobZ dGS3xntLEXgoaZgjH6fKdK83cdXdJwLm239ZGGxGzCVlt/jSXSLAP6lBXSab Mq+kBpTLbReB+iXTVu4Njkz5lbihDHERKF4ULH0zeZz53PU2XkBIBOYGfNy4 ewKZFrWPd4VziEAH1TFYoCWKOUZ/7/ZzngYlhqtWjp3XmOeT+hKOf6VB3HLS ++LZu0zS4uzTz900+Kaumtiyt4SZ77hxxKKBBvTumOLdA8+Z2BtRodoqGlxl +PYI/fOe2bFFSVu7lAbraZ/9tWs7mF4J+h4P79HgQX9+N502zOSYt70qk0oD S0JUK7/JLDPN3ut5WgwNztQ/YCaMrzDpLy98xQXRoNZPzWF0hQcD2RTCBW8a RJ0LOXs5nIzZxT7QnXemgc6ZI+vVp6Wx6ZkXR49a0KAgvm5+JHEHFmHdmty7 hwab/7ob2z27CxN9NlplpkmDgdV7SlFLe7ASyeXxt1v/M7+L0bKkZI7tixIk a22iwcdeOVH7gL+w3gkZrEiABhSFBh/LBx6Yr/muE1LrVCj83X136r4vxlNu lJrygwqbfGR0ygqDsZubXF/zjlKB2ze2wXV3NKYa7jcZ0kWFtpzhKvH3Sdi7 r5eoc3VUEOmS+23olIk5GWfpebyggpXpTQPjlFxsvqzMu+chFSK2kKO/TpRi sbTadJO7VCBP3EpwzKjEJM9/egPXqEC87IP/8PEt9uTLzLRGNBXibKe/9+Q2 YUYGnKIFZ6lwjSNGwiKvExsqpu2V8KJC5Sp+WWLPEBZI2uGT7EQF+3pN2Lr3 GyZwDt3gNqfCt3Jv/ld/fmD3+q1rgvSp8E8ITvFD2Aq2c3TnSocGFc6aPPod PMGJaiaJqqrbqOD2ODBpqpsf2f6Y87wsTgWVS+oFD3+Q0NjvlptjQlS4eaw0 oDF9Ezq7VtKmz0mF2hzBPVuuyCI+7iu8t35RoHl2uRBgO7qB/5u59I0CBOac TVCtGqKTTPysP1PgwZZwo/Yju9EL0R0FJS0UOOQWfzQnVw+ZSPEP4qopsNFV yVkz/QDqV5igeFZQ4GWDpJhRiBnyUawzggIKKDu8TF30s0HrOx+Ei9+iwD8S Di8sjB1RknZMRWASBVyPal6lb3ZHMnqe022RFEju3ME9/vUYenxgn6zSWQrk N03LEJ1Oob2mcg6xXhSwbhwI6w/wRx3WnFdGnCnwQytjLishGHke+lKNWVIg 7ZJY9y/pi2jxMCzf2EeBwOOM674r0ejSsTsqv7QoMEIKlMbjE5CozwVPix0U 0HTayXuqIRkV+jvfLJKkAD1RId7rTDrSDWG08ZAoEDf/eqZ9exZquijO685N gRn6PrvC5HvIJXaF8XKJDEmdk1MyTffR7JVPZ0SnyeDFCN92YrQQhadV5vsN kkE646k4b1gZImZlDDS3k6F+cO8xDuknKDs7kEJ/RwbjUo0UFa9KpF5gaxT9 jAyMbfMawv4vUU2pRvhQMRn0zyYHZBe+QbYV5Ardu2Sw8AyXUSDXorGq+an0 FDJIPDz3am29Dp2tbpOZjyFDqmHGi4TQD4ivoczeNJgMzq/lGF+N29CN1quJ +X+TYbjoS+aKYgeid/tUc7mRYVtOQxPpWDeq6jdddrEhw2pjma3vWi8yHVVU eW5Ahlm+ND/LxQE0MIn3pOqSoWPCiH4o/wvy/TGZ6atMBgWHb78EeUfRtbV8 nq1UMpyo/SKYbzuB5LhjGRF8ZMhRkqL46E+jJ/hjZ/pXSWBXof3c3G4WdYkq DKQMk8Dt0A2x8wvz6JjURspsJwnO40Qmugp/oiWFkYNG9SSw39t3tvLEItqk fq+co4wEu/tneP+aWkZF2uFTjjkkkLS2mHibs4oYeq4yT9NJ4CllX6dl/i9y MZVI/DuUBAXK6967NDj0Zq3/vK3zJUH97U5h368ceuGH+pbkPEjgZFy3dWP0 Bj2i23PlMHsSmMt8rA0mcOplH7vh0WtEAsPCkza3ozn11H3OZWpiJDgSYBcU P8ypV+Nv35qkRoI9trEizxS49OxCdvFMy5Ogj265IGDGpTd+kcowECWBEvFz 0qdDXHr8oaWzKfwkeJPZ3H/sIJee8rmDOUN/iHBH6+T2lyJcelZ+I3ZKs0Tw PbHbv/0dp16gTyh/8BcieGcU1Gk7cOplnhB59e4jEWyNbfSJzRv0Xnk8Ok1+ R4QCHPH9D/oGvWFXY4XDlUTQrI427j3Nocfj+LWnuJAIQ2n9Laom64huF5aw nEWEkIsbXrqk/4vMLMX0DlwlAlmmnj+0fhWlGZg+GPQjwtphKrcf7xKS1ygP IDGJ8LErsaoocw4Zqphvd1UhwsYjBuhc3Qw6SZ/4XCRDhJ6GGAvFuEmUpBCZ tEQmQptqmErT+XH0RFpi334eIrwzwOIUHoyiHvGnv5OXCPB5i5BfEv8w+kOz LBqYJMDVPEkzcYtBJE2actnRTwC5SC3x7v/s317BaNK5FgLQFtQqByW70VE+ qXc1bwiwbbTGkrf4I4rnehZEfEIAf4HPG+FuKypZs1JyySPAgWvbDn+dbkTt y9NDhdcJsGp+Suee8Xu0+DMm9Xc8ASKdJip0zarRpjlpw32hBFASa5durH+N sKnnq0mnCJD+ezamZf0Zch+zKe13I0Cf0L/qa1LlKObLd3e6DQHCaXfqDAQf ocLPsbSzBwgwSq54tOpQhJq7ZRuqdxNgZPkkTbP+Pppvrwol7CBA3pbm9Y/M e4jWbKfmLEEAe0oH/vjmm0infm60QJgAKqP4xnbFNORSE399cQMBcIk1D+k+ SYgz7OD1mG/CcC+bNHXJJg4ZBYSuS30QhubUdVThGYmSvR8dffZIGILM+747 RYaiHrevH6zShYHYFawoaBaIpB3ENKeDheH+9YZEyde+6LiZaVa0qzCs1ye2 WaweR2X7LnJJ7ROGb71pRi0R7mhJp9yrcpswuOW0HM7Xc0RIbaLNUlAY/L9/ H1+YsUYxWyW0p34IQW+roij/LxPULGF5N6pLCC6/pw5sH9uHaJRoXskXQnB0 4rANxxITufA/83l6RwhoF2uish00UR7HTKdFlBDQqwwM8zSV0cyiNHPyuBBI JMq/D2UoII0Zm9xIUyEosjp5UrlAAp0ficVL7BSCafU8zZkUCqr5VHWmgiYE JYU21eHOAkigde6T+aog1JW6PJny5kI27+T1JwYF4UPHUlGH9wp2s8ohP6JG EI50CP2T3vsDG36cILy5QBCkOjBczNI4Ri+AwPJEQeBY+KM6vjSInbnzs9/s jCAEyX4X/Ue5E3uetm3/NztB0NLC/1AbbsT4HMePbGAIgql3quio61vMTjov YpOMILim9vkdIFRiuV897qnzCALlKuFsvEUpNl8oByZTAjDkPptKQbmYnu/w gGerACxav078yJWJXdG89++FcgFQrv/kfP1mEvZ5xXXz9UwB8NoQVSZAisa2 g6TuozABEMq//7dGUjAWGN3/V4OHAEQw0LpDji9WY5R1buSgANicJxislntg JIJjxh9lAdChPOcRuf0XdrhTrIJK+c+8YX3doPPmWElmT4fyMh6CHjvMKOvs xf64ZiwYDODBtvrU9XBbLcxIwY7kVo0HfU0FZqScInZ9kqIWnI+HzPmrytN9 0thY6UfzlEQ8WPAaiKySKJhGwDWf4jN4wA4aJBoBLxahY5lYa48HzvGc0sjp VWbLunDxAAMPa9duHL9jPsfcXNvc8FsGDwJ/71A0nx1mesUnThB48bCnv/LS me5OZqW5CR99mh+uVoQ858bVM3mo+K172/ghcMdbieLIKqZNb/1+pwp+cIsY o4NsGTP7TqxHwE1+cKiWDwlQyGbOeRhEXgnnB7NGS6q+QSoTo/NkP/Dkh/u1 zFPBUTHMhNkaACN+4KP96rjYc47Z+yRy8JMKP+jOWP1Tw/RmbgveszZP4YeR h+3HGh46MwPQBgmBFRysRQis5BIsmG83gq7CIA4c8HMH5Q31mYSGC4ewGhz4 yUd4SgftZLpcZQbZF+Ag96FL/LY7csximz8ZvldwcFnYPqiynMJcEXtREeeH g7jmE062ldxMw8GgzmwHHHgdPkEozl5kpOfu/vmCiYNXz15XlvqOM0ZP/CZ1 yuIgCdWcfirZw9ipUqH2nRcHgYWP5m8U1DHCf/pb8M7wAaeMyZ9aoWeM5mfq p6Tb+cA9OSvBzqSAIR42n6j9lA/MDzxblnG7wTi+71GxVRYfDNUeNq42iWNU 4HwbvS/yQcigk9ct4SCGVeoM321jPkgZ26ppJ+3AuPtX8danqnxw1Sgo9cEZ A8Z3Se8DrVQ+ED506edC7i5GfMG3SM4hXrBy128Nr6Qw3rwaWTvqzwvazjD/ hdyqqzrx6afKLR7IeDzGr5/I0PWfU9ouEsUDg74hTflhdN3K3xed17x4oO/J aZpKgKiuPg/9XdNuHgjtPdGmeeGnjpVccMaJDm5Iy0lx2PC9UCfAeZNODp4b JO5IdhzsIuo8bzsURgvmAnONj4YmJbW79z3vw/1rxwGXG/td40I/aPoWlC4R yQuvJ+S0aGtpmUp2R+XutZ//9Nr48RNuRfl6ufdNn+LVrXsQuaR37PABWVEd pTePLTIWkJVaV3JDphaOM5D62UOMQ+//zmVeAYuL7t95WI4c6tp7JkeQ5bKb MRYX5oksn8r2IIzaUVl28cqUuHRRlOU4y0Bt9SxxljdS0sbCViRZ7m6MnosS lmHZNsR9V2a1LMsn8VOyzYfkWZYqepfOM6nAckjlXmvhm1tZ9s07WbFLZTvL Apxa7spf6Szv/9smjZ6iyLLoM4lT++WVWb52JjZZtVuFZasYc6VbFaos0x2j bHND1VjuGsNlp9juZLnZ/as+SUqd5S8bHyylybL9M+94qdgWtsWmpjbLKLHt 4Tf/W0WX7ZXI9Yem9mxvuS+2Ke4q29oGfa0CKWybTGRdSkpn+7SS9K+MW2xX lW9pzSti2+qdekzNe7Y9j/9iGDayfY7/6UJjM9u3zHTcPnay/a1LjzE88v/y nuNc8BxnW1C8pmBiku2drgYiP36wvX8Drtn/F9sOOQ1RS0tse+1P0D3/h+3/ /rtY/h/OggER "]]}, Annotation[#, "Charting`Private`Tag$20771#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Xk01V/UMPBrumauy73mDElRmQu53+8hiZAMpRENKGOiSGWeJVFRSAPK VJRKxu4uU4YyJGkwZcisjNf8/t61nofn/HPWZ52z1tl7rfPHXnvLnD5v6cBM IBDSmAiE/7/7/dk/ubqqDoT/WQNXqTM/l9ZtRuqaezu/bmltj+XzU+v+EH2L o3tg3RxK3zbAp3XfuXjSJDBl3blMXhkEzXWzORiqidqorVmwvco1LV51zZYV yWcU6lTWfHUCc43rVV5zkU+yc/4BpfV4bx2SXknatmbD1HIzo1FFCKtXThpk xBCe1vi2eR1XgEC9lQ3TXRZctqF3KI1Zm+EOz+7opxHLgv4nWfK4BeUhUW6L YQCPvARhuxRdP0wOKmPslON2W2/8cT0pIverLJwspx3+o71LUYLrXPb0bhmw jyh1yRL/rOyyQ5Htp4QUHNNoFDalDmuc0ezMqqgQBxMk3Vzpu6KleHnXqnuG CIhLWow+KZjSgQ4zxd7E/6wazMPTsKpjrX/m0OEoESiINWphT+KkBfPF5CJ3 EWDV8uQV9pamfc/oOEzSEoEr0w3xfQ7GtMjmwBcv64Xh4+9LqfqLqbQNmgk/ N70TBseb9X/qNTNpr+9nE5NfCMPPjXrR3BMvacbM71T50oVB1/VLJWtaKa37 bMuJ4ARh2MFs3/dDp4rm/WkgYjZCGESKstn09zbReNQXC5yvCIOmPYXa39NO S7vH39npKgyu74fF5xi/aZorGzmt7ITBNLL57sOfo7SGM1oaNRbCkK+6pDrc O0M7XWtqp7NHGLiDLZ/33yRgDKVT0fk7hUHniMaoxioHFnvn0puNCsJQ9qhG L72JjMktRHXfFRcGNkaHxzZdCazE7gE3D58wnD/gNBK+eRNmXlWwM5AgDIFv D+t4JyljA4o1p6YnqUB5Q7LbFa2JXYv7GXOunwr5UprCaX56GHl24u2vb1T4 YbOxuX50H5Z1nLXXvI4Kvk8ERDoUrDD8vQhfVRkVKrMzlFh3n8Ba5bdra+dT Qfju4KfyGnvMOUbP/vljKswQLPjbr7pjhMlDN2XuUOHEtsGW7fu9sYTDziUJ 4VSg+Xc6zBkEYorl/v2cvlTIajc+LPQiAgPZ2yR/Fyrck/YMk1CLx6wjM3Um bahALcjrqxi4h42OlTo6mlPh6yULtZrFx1iwVVP8j91U6PMp+eY0mI2JFPeV me2gwp8UYWO51AIsb8P8nw+bqbBSpPvg8vMSbE8or6CmGBW2D0fJOwlUYD+G ZPBcHiqox1pWs6nUYx4HdjpJrVLA7dsvCunQF4z4xvjO7X8UaB1+4kdx/Yml iNnR2fsokG5zp4jNsRdTCfQavtpGgQeCh/Q+241g1f0RlL8fKWCl2Uip1J/C Tpjc17UvpYDCTWtqPPciNvnihUv7cwq8tBH2PTrBjEdSqxJNH1GgvGFr3PQF LnzDte/v4RYFvEZZ7x9zIeOve8ZGNcIo4OH5g5B+VxQ3NmQWyfahwP0Hb0Xe l8rg3c+o+pLOFLhuGLRrQ8gW3Ju81T3+BAV225eEFfWr4DyXURLbAQpkaP2S cqNp4o87rCp99SjwzuBcXGknwtX61BZaNSgQZRvH+eOoAV45LKCisoUCT+xz +4Svm+KH/v11uC5OgR4Fg4+mnFb4wFxjygAfBeoPvEt8cugo7rOS16zHTAE9 wU0NzC0ncQ62WPbUGSHIVnM/M2jkiCdxu2GMQSHY4ajEu/uSG65INvWy+iUE ZPWW0o1uXnipyNbsvEYhMOHEm8/E+eKmUlxdnBVCsNct7+eRj4F4x6YhIYdC IeiI9WQ7thSGu2/7aAzZQkC60fiwpCwGX1XLDBRPFQLqOdKyRPktPE47vNA7 TghCZYqPcZ++h8voOow2hwhBQbERjGY+xAv27pHd7iMEzlYfdtADM3D9/RuP RDoLwZTP54+FATl4qxVzbK+NELS5Fu4cpbzEHY71VOAWQmDq4MtIX3yDz56E +aQ9QrD4CCtw1SrDI84+VJ7RFALZfpT8mvwBF3H3dzDfKgTmAdv4akVq8JyL Nim5G4QgL+y3zjGvT7jOVVozkSwEaXN/PbpKW/CGIHH202xCoLIiJlpQ8w23 jVyglTME4cjUMrvohk58Iva7p8ioIFBliTNe7L14YEJRlleXIJz93GKztPwH F7h/t/NziyBo9pi/81Yax9PSvIUUqwVhaKCrcejvJK6efcg4rFgQMjxvbbAv msMr8zUCu58JAl/RcWmf9GX8UKFgoc4jQWhTIpjd92VGA2WTI4m3BaHV2vKz 8CIR+VQ0y0yGC4LE+6TtbmE8iKPuxeH9VwSBIP2tIjNLACU13byR5SYIrgFF ifubKUjxm3sFyylBGOu5+3Nzvxgq69g/b3tQEL5dYpnYES2N9vdtUy4xFAT2 pcQRBVM51DnM7UDR+e99ubKQAz+2II9/w8keSoJQewmfTj+hhJgYtU31MoIQ aFZ1XTJIDd1aySJupgjC+HeFJ9uCdqKNbJG0YI7/8uG2S28300Gvuc96diyS 4ePqFYPJCF1kQN6bpTVBBtVTw/tlGfqoTWRT5+3fZIh+sqTvL2CEzkqxCk18 JUOLWXVP9D9TxNjUu8+4lgwv1YgtW20sUNS2DwFPysjw4du3lajag0hM/fEb wgsy1Ok93Ha09QjK1Q4cOZ5OhgS9oEemd20QTddO5m0iGUjBtML2u6fQp734 YXI0GTR0vmQ6d9kj2/2SN9z8yFBzdXjfrjfn0ITV0oePHmS4KSBgdlfJDQUe +8nYaE+GTkG9raB6AQmcKlEKOEwGeXnp+AuaF1Ha2ST7H8ZkyH9wPfL8Wx+k 7n45eQdOBksTn6LQD1dR5cXDTXGqZIg31ih+tiMQWV/dSRyVI4NcW/Yek95g 9CeIQjMUIUNvw+c/ITNhiMsvf+I2Fxl2ewyP366NQkqX96V3LwnAlpjHyuwa scjSq9d6+4QA7Hx6WlcgIx55u/txXekRAP7FVmu/G3dQspPwu+ovAsCk4Hjy Q89d9M7+5QXBagF4Jx1KsXiegn7bmWw6WSQA9JaP/24vP0TE4/3tz3IEQMv0 UJ+PRxpStA6Imb8vADElKRdOqj9BZhaiuntvCsCZJy+Fcg5kIU/TV1O3ggTg no/o2NinXJRguD+zy0sATFH3M+W3+aho959j2xwFYN+1ynNOXAXoFxbE53tE AOJ07/jtvfwaEbTFP1QZC0DHr3vJiopvkZzGm0tkTADqytqIWzaVICPlAwp2 ygLgw+6lesK9HLkqDv3KlRGApM27NC+EAYrbFBLHEBSAvO7+sN8BH9Brack9 BkQBiKpotJ/NqkTt4m/n4hkkkGmWcmBnqUFLVIvczmESMO1SiDGNq0X6vGHk y40k8PTVnLI1bUSOHFLVle9J0H3yjO0e1IyiWYp9BV6TwL7l8qU9My2oZX60 O+ceCb77nb+aUNyGZqfD78xFk4BL1Gxo88d2JPZX2miPHwnSiSVRktM/0OmB g/kdp0ggadarO/24C4X3jJ9WPEiCmMqhfaukHpTzK5Lqs5cEtueDi3/a/EaT LWV+pK0kCBfKDbkh1o+YA/bdCx/kh4A+1zvjy8PI+JLfqtQnfnD7YTM4GzKK 4l1eOha/5Ierjs4og3scSR8R3TF6hR9iX0aLf7v+FyHVoWYLXn7Q7+u4xuo5 hcI3S2qP/OODqA1V1X0S0+izpMWj0DY+0DgRcjqePo2oQmHsG0r5YP7OlP/g kRlky1Xs/vYhH0hHFEPLnxn0lDD21TyUDzpnPW/sdZlFY7PS2PA5PtClreAm v2eRxtjBjJD9fLCkIKS6ZDKHrvVGckuq8UHYwaaU65lzqPJ7mWchlQ+i2V2U DKbnEE/T3+8HFnnB9fxR2zhVBjpYLac31MULvfr4yUlbBkopO5IVXMkL9dZR 7/mvMdDvghh+iWxe4GwwS3keyUCK2eD95gYveHa9OVIQykCeD6c7zDx5QX7L EV55DwYqSdhiMGjNCzHn54+qmTAQx/E/Z5hovPDwMV8AJsxA1tJPg8VkeEEn Mm/vptY5lNFv/1idyAvJ9LvtzsFzaDJnI5iO8IDB6hadHNk5pOvxu9OhiQfK gy+fufdmFsXueLzs/4YHOL6LLhFos+jXgp3EvWQe8Ek9OlpROIMUYIPOywAe ULibk9MiP4O8wzqO1tnzQPSftw7bb0yjSuP7l3v38QCTOSepe3gKnfwqWkgR 4oEo+eGsJ3GT6N6wkOqVLG5oiEhOc9k3gQbyvxy4fYMbPnXOb+KsHUMal265 P/PkBjzP1ybVaBQ1rvI/66RxA5d7r7jqgSEkUfW5bk6GG5DTqnr29z/IOfrG EImdG9oWbVNZXAYQkcK9Wb+ZCxYPL3A3Z/aigz9qDU4UckHwYxOxB4d+o7SH kfaXUriAQ3/ek8Dfg3BFYlqmAxeo9e2K3HigA8VMVAIYc4FLao7ZF/6f6Mfr kK7vylzQIWZz1nq0HV1CTJI8C5xAUg2gBi+0og+soLOpixNOLP14fnbbF0Sq 8z+GV3JCbG4OIeNKM7K9ifkezuaEqbRzAxm1jejZwaW7HrGcUDATEVbd2oAW REsLo7w4QXFULUuPUoeMuny/ph3hBC1WqxmnqBrU5zRH/irLCSZRm6s42CqQ mnKh6jg7J5x/MGhM43iPAqcvmrOPccCJc+4aVm7v0Odi9fPSLf85tNamV7wU iQdM3tB+ywEim1JWrYWL0Lk9L59Z3ueA3GvlnG3H3qBCTo96lyAOaNlTT7jZ U4BYG5WGQx05oCF8jvzh6QtkeWeM44EJB6h+Mz+TYPIcPTr6bPNbFQ6YG+3w OPA6G41vcNnbROGAVMcDtqwBTxGtT8FhaIEdNLwqPR3S01F09mAIczc7WPfq x18XfYza3TPTxKvYwXDf06cLr1KRvIbje40cdojOPCXuWJqELs7Lde+/yQ6q 9yaGVWmJ6P273hXHi+zwcUuutpTibcQXmiYZeJQdZCneS19949CJfadoSTg7 nC3IUHqvF4Ny+KSPF2xkh8Xdfm3GWyMR40unbz0HO3SN33YqfxCK9ial3usb I4IWs8022ZggdMf2xNvlFiLIqjgHsdb5od8bxduoRUTQy09OeqTli1SGvk8r pxLhi4f61TTTS+ji3+0KwqFEWM54yJYg74mK5oJsVpz/O999UKmlwx0trXyN 77cggmRCfVOfsjPSIypWN2gRYVRnrm1O0RGF8/ovvJIiAs9VfN68+DSqE2pR SiESoYE8bm110w7xScifCR5jA3Q5sWYk6hiy3HjlrlMrG5gZS7Ce2GONEhU/ 15uXssGqxXM2rQxL9FNVlqCVxgbqVv7HX8gdQNLa3hpSUWzw0ig9hXlmH7LX rTtH9GAD7opdC/KJBijLcEPqmDUbeAc7agQM6aFRM8/mVowNPnNO8/NmY0jF upqtTI4NkgLzxJ8FaqFLNmK70rnZ4BKfLDipaaASe3f36Mn/Pn3qm3eO91XQ isuHtAvfWSE+8W2Ivv5WtNuL+u0IsEImKV/mmaU8Cr/izK2byQpHYzLxdpos qgt6hzbH/ndf6RphuFQS8UeRL/JdYgUDDdbth5VF0ME4x6yZ46xQLqJrVfRI EN27W/Lr125WOPWUKFhVy49+PeATqFRgBeYk0opcPieSfnraIJfECv9wJr1P r1mR/fNC31tzLOA0a+fByCSg7Ndceb6dLCA6E62QV7aAj5fa/j5ZxQJnQv2p fk4zuFpFAdXoGQt0eOTW8Uv8w73riCbKt1lgelBP4IzRCF7SfCyAeoUFdomS JPRf9+Mr7Xmvlk+yQM3Z+03HdvXgu7uZB/sMWaDQKfIRh/FPPPyPtUSDEguc JiwfexX3Fa8fzzF/RWGBlaGrPbxMzThpdiU0eYkZ3uRvagt7X4cfXLYsDupl htaLuzyHCFX4PdbMsXN1zHAoTvRBjBfgv7gXZcxfMoNiwbzWQGExLi14wFrz HjM0WXI+tuJ9jTuIpUdvCGAG64rdvxU08vEcmbl3bI7MMMK43BOnnYWPbzGZ GjVlhqCQGb2eijRcTeXh5lZ1ZnjIyq7yhykV99acOl4qxgxPBPltG20T8RLc MC6NiRlKRw4SXu6Mx1cNUiqjBpmA/773aIl7NL5n/wTDo5EJXLewJbehUDzy oP72I4VM8NRuNKht2h9vOP5fEZrKBMJWVnxb7vvgpDMjCfKhTLDCo2Bya+4C ftAZ1fG6MIH7hda2RSMXPOnC7ZVpCya4ZyTavZprj3de/qP2S4sJ1LnyPMd1 7XDZQJ2zFVJMcGKg/UvHrcO4Y8TNlBwiExh1u2l+LbfAc2J7G+PHCMAUG03U eGKMjydosvq2EoBfR6K1f1YfV0+9rnWylACXaOVaXd8x/HJGl6thGgFqXXpz L+zZiZflqj9WiiLAtYK6w023VHDCq4ivFA8CGJR/jGlK3YLvKfnJuWxNALPF fwEZmCyel/NEu0aHAEN/Y6tZTMRwkZTzTvHSBHhTP0W7PkDGg69rJx1nI0CW 7jYpFTFuvG2OeMukdZV+3ahvNPQUC57TnvyvK3WV3ptYVxT8ZBHzL1ayuHh2 lV5uUTvVlDOFWSZ/eMGhukoPl+JfLhgcwTZdtSalLqzQhf9JkLZCL8Y4Pnxe tXKF7pHY3JPT8xNroPk3Vt1YoffzHdsy9OgL9kiSrHzs8Aq949Vur7S4euzi ypPYcekV+s/YbAqrWQVm1KU9Hjy8TJeaGxuTYJRg4vBpv/DrZTp58EwtV10B Nv7o1PNcv2X60lWpBzUSOdiHoBkeXcNletRQeAlBNA1LPB3l2kpapv8+wTlA Y0vCnPQlG879WKILL1cxKerGYzS5l1uX05focYrl9PziCIzEZnA93m2JHuDC 3/DRIBDr628f3qS5RF9QbH4Qpu+NFVW7GpcQluiXL2Mej0+5YzGZhByzukX6 sGVuav8ze8wu8g5n7+1Fupw78lQUOIGpOW1x8rFZpPNe6zffQ7DCiMZlH7k3 L9L/8p23+Zu1D/uhaL7l0d8FevX0LrcpQz0sj7svQqNkge4/4SSuo6mJBY/6 /PkYskA3GSuz8RFXxg594ja02b9Az7xfFGpeK4dtyXv49B91gX4ytPwazxtx bClWnRjePU+/6O/FILqQsabzNQ5iOfP07r6pRDVXDizd/HhVntc8XbuqvPOi PAHzVp2Q08fm6Xd2KH/9sn+GZkwOCf1GnKerD0ok+rGP0jZMUftcmhj0fe4T Suz2v2mTX3L0CckMOrGs9jg7uZ1W/RpPv3OGQS8IO/2X5NpIS0poYVbYzqDP FFuJ1V6spLl6O54un52jxyERt+y4Epru4YX3FjBH/+v29oyhxkuakFaszEDU HL3ZVenIR+2ntEER2aArVnP08P19zUfS79PK5t9080nO0TvNq0amHW/Rbv7Y p5s+MEtXuCJjGZUYQdt5/8Jqve8sfd8rW3mhXV40Lj82u5P6s/RegzG/Ba9z tA6bpHfTPLP0Lu56k0+sdrRQqfd+ko9m6KRvm8bmPxjRvqSRltyrp+kXnE9q CSRuoHlk5zMEBKfoXU28DdcTK3VU+NxDdndP0ic0bl+kTBfr/PPcxuf1fJJ+ bejrs72WL3Q8adkbWw0n6dUsikc/ZCTpXGpMM0u89o8emtOmndngrjM1vHXf joYJuvKgpdDcsKAOMYTxaK/nEN2fKZcrIPLQLmvHjY9brn2na28vfOVy86VW TcP3aHWrdvRlh8FwuvMvjV3b3xeY3/2vLvVjJNw9UKfM7E35ZS9K0E0asWS4 jKgrsvOYB50eJ+r+jq1pC9fduTGku03fM51Xl8E39tD82lnxFynh5v6TAron rY40BYsZCp5Psyf1WVN0vRXcno8UXOe0dU6WjAgS0f3f/naUhbe2+n3xNbMK JQwELGxY87f6sL+h/DJrPnT19M7kCtk1u3KPyH4+JrdmqdzqROLwpjVfLdK3 4k/ZvGaPp66FO5UV1szDrHlaqV9xzQZuBxMUb29bs0ix5HkDOaU13/KMjFf5 prxmy/AD21MLVdaseDz0UIaf6prbBjjTbh9SW/Pn0/16ZCn1NfewZjISZNc9 /fRcvqj8ukVHRiRktq/b3mtyTlln3Qshq8/3H163/BNRsaib69Y2/NnEc3vd pkP3I+IS131hu/TM3dR1l72Rb3qau27LavXwypp1O5yboRnVr/sy19up+s/r TjXbderL13UPtunSfvf+n3gvM085/Fk3r3hl9tDwutXsDIX//Vu3ARPn54sz 6z6SXhfKYKzb2SBG59rSuv9nHrTm/weiOLgO "]]}, Annotation[#, "Charting`Private`Tag$20771#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nkw10/8OHBy37wdidxXhNw53q/XvuWKUI4QJUmShA+5I1dyVEKEKEfJ lULJldc6y5mbcue+vZE7fv1mvt9894/decw8d2dndmbn+ZxdAVsX4xtHSEhI yP92/3/0nzZYPTiQhyT/06b8OH4P7B3akHlk8/P2oflVXP+4rB26JjKWenTq 0NTSfbyw9dDP7tqcC3xx6DxS99ckpw9NcUNH7tgVuX9m7a93yoiR/Wfj2uTr 4k0y/+y3jDg9HT/1z6VeyY7vz0tDDe/h3eoCwyOGsRf595MkoU1Fi7JjygaN TuoXw7MLErA5P3p9QmqfOeurT6+7lTjUTDwguCBcR61Dn7F/zxaDc3VtZfZv CTwBNmQFdKyikM5zrLKzNVyQRIoP03ggDHvvG+XqC54T+xmV9DCvRxA+I/i5 U57ZPXmc1iFn/YwAfOJbcXSkdObUbUUJioHjfPBOu+3kQNd7+eunh7Nra7mh IynrHc2lCSUJb9UD59ecMLnhrsZylrtK+pBJnY86Owws2BbZo4dqchNyO90K 7JDy/PSlSNMGtbo5FhmZE+xwxezlQT7Vd7Wpze8vphjZoeExrazQn0NqEjh9 d5NBNshRoO+3gu6qFWlrCkp5sUGHdk79WTdFfN17hcDRfFY4XaXO2av0Bn+x hLVELY0Vyq+l9qc65eOnKlfnE+JYYeTzPTdBimK8V22HwGoYK6zfheEfnMrw 1E0fzA18/8bH2u3Qb0N8Unv04+w7rHA5SmEwIKMBL9HnXEt2jRWq59Aq2oi2 4SuHDLatTVnhF/2DJG/GbrzBhOSpch1WaOlDVSX69id+eI7uBrsaKzw5acGh +2EM70qcS3aVZoVrI/ecvdyn8aRbje3NAqyQUzwWN8ywjI/dz6YUY2eFKr9j Q30i1vFCFOH4YGpW+Os842iuwC7+I91Nt6FdHGwyjOONnyJFtHDa2crLOLgj ZHD9x3MqpJdTZDjuFw6Sbm/KSjExITf5yNmWe3DQunUiN+w2G7IlMq6r14iD Eqs3YHoHFxIhWXP/TSUO+ur631B7LoBwyad/IvmAg8dbno770YsheSqB81aZ OFi+Nu8hIyGN4AlXBT4n/F3/bOuYymd5pFUbNcdF4uAM0b1y74sKYm3A8/iO Pw4+G5st4mokIMsmezXfXHFQo1Ur9eaQFhJoObAlZIeDtbCLKcVNH2G5Vi59 3xwHV2V4ZinuGSMZN5PsfurhILGhB6jtmyPyzt7JiigOznavdF3kvorU3TVv fyqLg0z6Ovl8wnaImZ8S5YIwDt7YfEsjzuCITAex43U4cdBfN5OTqtsVofV/ vxxHi4NSNY+XHkp7ItLeupmjeywwYo6IfZTzR4zdx82klllggt/7qnKZEMTT 2Z/Wd4wFaplxqf+QiUCSbx2tauhigXScs6OtwU+RKrvC/1gbWOD0QIWUWGo8 8uvqORGbUhYo6g6i1dVTEEqryf78XBaY41C3bf5fBiJhdv/RdgoLxC3dxw5o sxFDo2ME7WgWyNQceG5B/z3ipl+8FhvEAvc/hTx8bfERidcxeDvizgJB1AcF JcdypPTMtKWkPQu0IHNOD+OrRgaRIEYfCxZo64VeMTjZgJCocNfU67FAzPvW j9ScFkRY4ZMHDmGBb1mz8SOBncjZU+fFr55igcwrEgEuA32Ik8TsYJ4AC1SL 5tEp+jyMPBUJebrFygJjRQVVQ7Bx5CM/j6YWJQusSzPON7OaRfq5P2/GbDFD 6N2wWa6+guxxGOUNzzHDBgi1d9vXEX7cvPXJIWYoZ/CUR+HlDqLB8ADn/Z0Z 6umVFefvk6D21HwNddXM0DlMMn8qjwKNJCvzYfnIDK8LfUW7EunQgn1jKess ZqjJFq7K8IgF7dxeGM1NZIZ+15+/DTnLgW6shz3bjGSG5b8kitAzx1GuFf6z mv7McEaat65uQgBF58t3n7oww+yLfXzC6aKo7ZTp+6FrzNBrecn47DNJNGxs yVbClBmKv59rjaWQQ3MHwzm8tJmhEiWb5IMiJbStT7CpVpkZNrfjSWaj8Ohq Z6U/80lmmJWdXE1YVEc52sxkr/D8jd/FcEfuaaOqjSsTOUzMkJT98jFXcX3U ui4ycYOUGZ5XGqP4lGKEHrmvmxg2wwRrm9hvvTy4iOp5+B/wtTJB6vQvKQGu VmjM7UL7skImaJwU0zfBcQ3tvzbZapzABGEug8eU+g2U3+KY4oIvE3zhvWba dtMRdTA0SHlw9a97DAWybFzRD5pBZHyaTLCeu/9Btu5ddEv1k2PpCSZ4yUhp oZHTBwWysx1GDExwQZT7XhPJfTRMjEdlnsgI7TJQ5DFfCNrGY5QW2ssIT9me frP/5CHKwfaAireCEVpa5ZVE7D5CrWnLnD+/YoT7P7vsnrfGoFkkiz0XQv+a ddLJvS8eXdzgR+YcGKFj5avUqzXJqMKi6esQA0bIs3knLd46Db03Hk7HI8cI 6TTtilYPMtG6H5VuJRyMEH1yirTZPhulb1/5cX6XAdawiy0IVLxDTRuE1WdH GOC5QLbvphxF6ItKi+zgOgboLJixjdv5hP4qesR0PIcB+iCY04PcclQiB3p+ eswAg/1MOvrEIOr2an3I0I0Bpt10rPV7VIuWx5/QmjFjgLdYX/QrvvqKUltN XyfF/52f++S8nkMLasafFcwlwAClDEsKNxg70NeTdunylAywIMCjr9CjG13N FYL68/RwiV006ENQP0pw/TV8o50evhE7diTlwhD6RDH9T8AneijtUxH4OHgM Hdy5ejwxmR728/JKtIxPoOKQV63wPj08bc28FTs+g3o+GLrUZEcPEy1Ky0Dq Ilqnl+I9rksPmRS5KPUTiSiO2er5njQ9vP25Bac8to7a9BwrYWejh+WnqUeL q7bQguT+bultOjhjSdJzVfcPunf1+ZrOMB3E5NQLOg1JgZ6IGe5aLR1keySp zedMDhLn2GR9s+lgNeO83k12ajD1vut83GM62PxV4oq2JT1Q8Ih1znejg+b0 RdMwlxkEqxo9rjeng6opnlVlMazg+wFT/jCeDh6bknMmrHKA4/VtTZsCdJBn rObT92Eu4Bj5eJaZig6ejlhud3fiA6Xn9aklFmhh+fbn2ceXBAElO52YRgct TMfU67ftRYDpz0atyyW0cFWL6+z44gmQ8SrczuMFLby2hk8rOZAEK3Y6IU8C aWFvMRcLS78MQCUoM97eoIUBLXE/8yLlwaPlOgj1aGH7j2h+iddK4OfHkJEf p2ihz4+ALwlyquCE75n9VTZa+OVDt3yxFgo8ACkP/Q4NVLhlXBHrpQ5qyKGa yAgNdElXKDQV0ATMTQGWaB0N3KFgoBQ6qQOsoxEf8xwaeJtoH6qRrgfyTfee uz6hgSrziZOXYwzBzrGKkgh3Gih5M6L53AMjcHbEpyfDggbqRoidH2U0BQmv ldcrEBqYBNPOf14yAxO3NnE9gjTwogZvMNspSyB3qkR2iYoG+rVYpJ0duAIC 1+9eoFqkhtOq3uHjBzagrUzehb+TGhq8s9bmvXgdcN9ffazymRpu7Cdc6lq/ ARw0C/ONU6jhCkUlojTtAEpoXJtvB1HDqOqeT2qKToD8u/RcqD01pEhsr8ya cQHGzxapX56jhpwlLEO0lG4g7VK+2GcZanj6RcDaw4t3wRLvbe12dmpYAdLs aWY9AX5C/MbsDhVEq6XGz3/1AZE5MyFHRqkgUdGy4PXmPdDv/DaDu54K6hIq uVcIgUBUwb5aIZcKbv4+jVc+HQzubguPGkRTQTvBp+GnroeC6qrxffu7VDDr OXVoXmMYYAzN4Am8RAUfO4fR97hEgMu61/BJKBXMUNGvlLB6BHIZ+a2KhKhg 7deOreCYaLDVNezTTE0FI4+YtIc9igHaSamJE4uU8MZA22uJe3HgmfXlz386 KeEx0/0Dvhfx4JcQdy9HKSXct7WvoFp8DmRmf6yfSqWE3CIv9T94JIO7K1Li R0MpYUP6dEURVSoo3Qy6su9ICRuDPJ1l21+Bvf2emEkjSjgPs19fvJUO1Ckl GlqUKaHNwSvVqzSZIIwhYKeYjxJ651XeZm16DZrYOqVfUFJCD/Eabut3WcBY yPf5rW4KSJkuce/NeC5IkGhrvlBBARcad6Y+qr4DA7KCJMoZFDB7Zkrcv/I9 4FfxVOCLoIDDvEu/HisWAjtCkwOlKwXMSfO+eel1EcjW4U1dNKOA6yrVZsUn P4IFQ7eOboQCfrlc0/Ou5RPwuMKlmklHAZVzXlXVXS0D5XbOzpGr5JCDMaVi y6QC7N+uyfjvBznUikk9t33jCwjzdaQjvCWHWFGaQ+YaBE1BVUDsCTmUTsJ3 KUnWAKYI3F1GD3LIOEwfGO5RCxKflw8OniGHyqRbz9bUGsDgS0aWOnFy6HNn pa2y7Cvgz7LVymMmh0cfKnen6zaCnI+0BT7DZNB3J8/6dVoLKO+wvM/hSwbP WJ4IvXa0E+z3FxT/sSGDk+J3cV78XeDM6JGZCR0yuNxoplch1w2al3IvFLOT wTVrchJlt14wSLcrcKHwCDS6uOb5xGwA8LOeNzudeAQ+QhfOz2YMghtcmZG8 94/AYGeRafGNIbB04tzagv4RGCHh+fiD+Sg40HpRFzFDCh2e0t0Wkx4HmgbL W67fSaFuXnH47PQ4CDfVkLIoIYUMWt8onmVMAObr8/GioaRwN/FEwB/OKSAY qHazlo8U/hdP/bP5zwywfxj9IpeSFJpFr3WmFs2C3Cfj32MWSWBTTL9Kqd0c kE+NUrapIIEyeem1bVXzQLN8gOaPGQncZ/dgaMAvgYLcNypf1UhgkrLsJZ6f S4DzhcutGH4SiLG6+RS6LIPgKJUkKwoS6Pty/c3a3jLo3aSMPdd9gClzGKS9 I6yA3P5k4kjqAebX7WchH7ACAsqkje7ePMCqJzO420pWgHFyzQdq2QPM0PqW pdbcChDxM2NO3dnHcvdYFW5wEsGW1ZyLbN0+FnH3ees+gQha8AHf6x/vY3Pv htJmrhNBGg/ulKX5PmZxObh2P5AI7u6/ebLEv49VXbQWFkok/r3vVJaC5/5g nJyGGJJDBNyw1eDoxz9YUkVJA/4jESylXXuX5/8H6xuxq2ErI4KaoN/0BJ0/ mHuebyb8TAQJthFO3cx/sDsO+Fb1D0RwS4OnxeHnHmZjlIVLyyACvHDhyT+Z e9iOa0f27BMiYKbQioq5s4eVvz/LKO9BBBOT/XMip/ewYwcR0wkXiaC0wUmv nGQPM8yh6VCUIYJHb0lyDZt2scV+UTElCiK4Gv6MZjxuFxviTayr7V4BcrdO 3PK6sottfV/4zPRqBVDqVX6jE9vFLDS7V87brYACuomHCuU7GGXUwk2l6r/n seA1/S1kB1PtsHQ2lFkGF1vpdK4Y7GCxOd+B0fMlsPdEnjJsdBujiNHssDm/ CNpdvt7gyt3GFvUm81LTF0DmBav6AvdtDPPaLhZamgd6uJDQPspt7CaJYHqE 9xxIiu88Ii61hf1gDszRspsGTp72tl82NrFRz3phQvIUIJjvVBvBTWzYti/H 9fskmOEUDPI12cSk5LclS1QmgFLKfwfNPhvYjSuCFs7HxwCtP8VVG40NbLfz xHy75SgYupJUtU6/gaW+2R5KVx4BoXzV/jxpv7G8A5oSKdNBYEFycajw1m9s sSc082DxJ5Acm8Fry//GHKWQ/xKf/gBdGcx7zg3rGNc1efI9Yi/ICnltRfZ0 HdtMGTR/UtgDfO2UK55fWsdqmMpRL79uIChq4wsX1jBzzID59KlO4JrzfouF dQ1z8TY5/lG+BcgwOoecGV3FFKNOnzYIaAJEN0lG93erWPcSpVr/wDfghs8R 6tZZxdLRytxfbfVAPv1mATn7Kqaa/Pp+x/U6sE4hqqL4i4hd0i4ziaOtBR7f MwwT7hExmePKxTtRECgpXPvRoEvE+EOSPgc1V4GNRD67TQ4iVjj+DlN9VQlK /gwtiU2sYLc+sHIKxJYDL9sUH4vCFYx9K1hYMrMUKH+1JI8IWMHw+57Ecx0l YOvkseiycyuYR1zHjiP3J7A2d1JXsWUZowgq6kEPCsHdj9nWCfbL2MHOvE1F wgew4S9yd5NkGbttc2YsNqoAeOlkRFi8WMKGTXrvp3Lkgy1mvldlikuYLYX7 zM2WHODz88VHrvZFjP2yuEFz7luwk8nZ5Oe4iOGCLmTmvn8D9pRwv5FXC5ig 4mpApnAG8CeJpn2lsoBR6vOnVD9NA/uNdPwk3fOY1HGVS21KL0FgXLjiNed5 7EfKRIrPgxeA9ArFuRrqeSxvfKJ3kyYJBIsG2whlzmEPL/+OGYYJgHxl3yMU mcPI1FzHp7KeAcqQrTRtt1mMid3N5vfaU/BQ36PkLf0sVgFDgHbuE0DNsdpM /XYGazA3ZQwpjgIRI85jt9RnsBel4ZX+++GANmd+o2lgGiOpL6++FBYGotwc 6CU9p7GJQUQyUDsU0OMnBR4zT2MKKRfoX6oGgycUtqeXcqewW0GRbzKsAwHT 92H981pTmKhsx7DvFX/wNNHK9sPIJGa4/fHnZ0NfgLPt92LxncRySY1bDCO9 QNzJi4/d2CYxsQtU5BS0HoDtd0dGV8EEdotxOo/hmxuIrzIsVdCdwIb/1NeT Y66AI7y5NX58HFt/cOd0d9cd8Nzo7PiG/ziW+l3RUjncEXBy12+Zc45jLe21 Z7Jib4KkCXXGsqJfGN87upjT83aAq6BKiMvgF3ar9J3Nm0hbkOKlpuI3PYbt 7zjkoI42gEe91HAwaAyL8SjFvlBdAS9pFe2Q42MYP0VxVWPmJcDXXejzsmQU W6DY0zF9aQbSUqWjDy6MYm42zz+tL5oAjTYz3ereEcya0jyRI9IIaF+7cDeE bgTz+sb1tLvHEJxd132lRRjGvnWcsM/HnQN6DzWaqDyGMCvc2+GOLzpAnwv5 3ZgziAk3XORKbNYEhu+U+B8ND2DOWkpmLrJngBFB5pwh6wAWR5vM+6IZANMu cU/msz+x3TiikixUA2b2Qumd935gLBqMl4VklUHkf+7hsZ/6MQoGa54zfIrg y71aF+OlPuxTlvFK6W05sPKQ1Rwn1odZn+wvW6GTAcJx19HOq72YiEtNWdfC SWDxslgkNrEH0zz4JaSldQJE5ZAxGHd0Y81pu077LCKg6qPJOgttN9br17vq oCUIVrHMgY4zXRi5TIJYaxYfEG1eq4nx68T+7Fd9vmTLDS71auQafezAyHxq k7Rzj4JHY3ExLIvtWKyf+PGIO2wALox7d4i0Y01LPzLIU1nAzPJNKPilDXvk N7RZYMYIzlNSR2dIt2JleUa1FsdoQcnx7CuCac3YW9qENP47lIBX/qxkBksT Fqnv8ikRkIEHujM7AiHfsNj6+UthgSRg4Wp4Y/p6AyabGQR1NPZQE88TiQL2 9dgR1TjeDskttPzRN/v0vlrM9ZH70/y366hApoOigG4NljXmX5iYRkTDy6jJ 08shppImyHCPYQkdfmX0Rt2iCrsnV4W0Jsyi71pizqirVWAHDNVE39pJ1G+7 Y4TAW4pJ8t8eEvf/heqK4vwJpJ+wnQ83llttRtCjJsZchIlCjOsBupKY+BNt PhB2uf/kHRbIE3PGNrQXdbj0JifA9C1GWa2dUE3bhZIXi0z4c6VjhlH6LuXs 7SjhmD6yA+MxQU4a3STh5r+LJNkRk4Kx3ayLeOHRBvTekWf12sq3gGTbZEO7 ei0qnXz9K5vS37zcKN5UVxaiw8cKl+iYUgBV8LNVTfkK1ES+vzJM/TU4uYjG tnSUoCU/zIMf+uUCPe6Dgst8xSgDnBeqs/wAyKCnUTzpBxTE5YXVeRUDwmQ3 0l6bi/5nf3u27lkJaLv84bqgZRaaoXJSv76wDAh9VdbUeJOBdtPPF9S3VQKr cn59e9wrlHI0l6VhHgMkzJQuYDAJTbmkqHo9tBpQL9+3SLgfjypqxN8ex9UC gbPNusw/Y9A2yd8p19PrQLOl0xBv6mP0JsfFtvFTDcDtSsT+YHg4SkLy6eB6 1VewE/8s871BKJo0yyY7od8Ioil2fB2+BaJyXXdt7QaawLTF1fvlJX5oc2V3 3MStFsBAcF8VHvBE7bIU6u22WoHaQfEJ2m439E/0s42JsO/gus0ZK9U9Z7QZ vxNXFNkOIlXOrQV63UITZXPzV406wPNvH8R1ZuxQO1HLerljncDcV56XQuQa KsNNO+w22gk0pW9P0XBcRv8wlW8Uve0CjVa9nck7ZmgTuSPTmnM3aDwtP3Dn qzGasH3shLxSD2gLFQ6KyzZEbZcaCe5/esDK7uM1z4OzqPS4z6Xiul6wleJ9 bMNKE93pE3dbi+oD0VbTXDvRBPRry49IeZN+oOcetft2ThV18P751erkD2CW fPWOnaciSi08QB5K9hN43FdkkD4qi+Z8H1DPH/gJdglbotHSJ1E9v8GA7uIB 0KJdtYMkiKBzokMVe1GDwPIW0XCQVwCN6hzaErYbAmlykoQ6Xm5UMmBY0QA/ DBx2n/RFubOjLeIjbh5sIyDl2bmtPiIz6tQz8j51YQSQWTwZ7q+gRcMIrhu2 tqOgxyUg9jETBWqWsMLm1TYKjIDsRFUMCSq24CofpToGpk7VzpvT7CBb6kSj V1lj4DOTYWL3nXXk2/P/XItxv4DuVtTCDukKkrhIfPI14BeoYGAri2aYRRw0 3N4NzP0CVT3VnIzPxhHlpNXmZbNxkFb07uvx6GGEetltjqx2HHRaPjCT7+hD +jXXqDlP/a0bus9YF0R0IjnJ7mKSLyZASZjyWFxHC+K7sqZFoJoEztcHZ35a NyB62nftTN0ngamJs3eoeTXClbIe7DAyCUIzQcT4j3Jkjng3/d65KdDD+p/s nZqPSLnOb+zp5ylAdW6mCaX6gESmegy/FvqbJ4r0xxR9zkYs137vlUZPg05V 00l/6kzkpK4nd+vuNPB6vd3YpZWK7L3cUBm7OQOeHwsL2fZNQFrWPS1+d82A gnKsJB+JQVL0Nj1pCLPA1O7d6KRDJOKU5hXPkz8LWkSiAUE+FMFvbBbLcs6B bKEgFf7BAIRe37tTK3QOPBW8J+EU6YUMpm+tXFqZA76etKGrS/8h7za9mZwv z4MhqSUFR93bSIDBtlTwt3nwo+W+IKiwQwwzffQTFBaA8JrTUo7HVYR3e9sx N20B0Jk0x3v0miNLhr4RVfSLgMa8UOsbjTFS9Xrnbaf3Ing27wbVNc4hT3Z8 G6YmFgFX7lFZ7jhNxPrC7sTOhSXg8U3eWZ8MIKey/MiYviyB6ksvSWLNTyMk e7sCQuLLgPl2n0pYlCzSbnSPcDp+GXjmXXtMbS6BtJsEvH9DsgKUjfh3W6qE kNKAqqr3SiuAbfnomMlTHiQtZ7+1zGkFGPL79p3h4kDCu9Gh2owVoPM6Ojsu kBlxPQhYaO1fAW2636gHXlAjFhLYbh8jEYx5oSoHxkcQwsUD2l+aRPBfRo1A FmEXfyIQcC34EkE1bvolJbKOZ867L77xtw7SLSi40ki+hN/uwZRJpolAFK/Q +UJtCv+LhOQsLc8q0HDIaf3y3yi+6STBnM1kFUT/ie2nPtePLzILtOeNWAUd daaXQ+c78MlB0OMEtgpOxnRGrds34YPzSR7I/V4F+9f65+841eId+wjP8CfX QMz+I3unyEq88ZGgTO1ra2BW1tn528pHvKpUddGF52vA/xGH99r7Arxid29C VeMaiItpOLK9mIWX8VvwldxbA+pHX3UvHE/HizYe1aC+tg5cOo4YGh3E4llv OHdhEr+B54DdiV52L/xCCve6dNUGUFm9Ynybh4B/Re+pyDC5DRbVlww7ORvV jniyD9odIyGQkRFKV9q+qVLRXwiyXaIkSGfLlFWXAOWQ0V4Nt0wGggwdm52Y 9hnFDy/CLgSsshA6gr5wyedQyblk2DFPmLETer7njH5NY5C2dkzmeRjESYit Pmq4X/1LPMLIU0U+hZuAkzr3RtHimgg5W/zU/R1egljR+aRrEWT8fc0PVkKZ BAhOLvhT1FwxXBf9bJWSawUJ/pzWCmGnJdmc6OYF2yyFCXz5CQdnTCADX15D AuWcCMGOoqNX3JuCyq9Uw4TphRjhf99jXbOcSpROif8z/ZHTttKTEv+sdcc0 XiJO8p85y3hctISl/znWLTxGpu/UPxuHnZdKLZH5Zwmr0Iuv/WX/uXeKJiPu otw/t9lOquP45P95jPztVrzgodezHN4fEz30sfn54wJSh7ZzX908pXbonZCD dwbmhxZ9c4wrIvrQKjoD7fRxh9afTXn4NOHQ/0nx/36eeujKT6LtWXmHNm6Q D6v7eugbDr/xZ5sP7U37ea257dCphqrXunoOPdNLwP8a/z/79T6ydmP60Azc dTmzc4eWu6pzlEg8tBYpTdvd34e2yGwK3do6tKPWI7V7e4f+n/8C//z/AO8z OEw= "]]}, Annotation[#, "Charting`Private`Tag$20771#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2mVQVl3UMOCb7hSRkEZSCQkF7nP2QaQUkZI0AEERfRDpVGkBBZGQVEJR kFBQVEDOBgEpkS7p7u78nm/mfR/e/WPtuWbNmlk/9uz1ZwlY3zewJSUQCNL/ hv9/+05cWj44kIOE/znj3uxrf3cPrcs8sPF169D8So5791cOXRH2gnpw/NDU Up288PehY1wsLz5OOvQHEuc3hDOHprDVPM157fR/PtJVdS89SvY/G/xMvCle J/OfvReQe89HpP/zN/dE+/zLUof9vrjCv59wEo64DIpfcuKm0kz5oas1KwGH PU2M7nmMMmT+8uxwthCHInOXyiL1249cD4w5+ue9KGS3aRuI5ejhfGhJlkd3 RAReDELOPv3Oykc4xYerBQnDm1CP5sSTZqGe8ISQD+2C8LWhUtXV3nCx47R2 WavnBKCZ1lkqQfeok3cVJCj+HueDqc5nnxDYH8vcPNP//udPbtj2I0Peim1W TsJD+cDhDQcsMKz5Hv+uWDGtz7DSU/UoHOIiwzhUzJUm/I4SNTlYYe0ab1JI 6G0VWt/8hWhaVmju/LQPz3NUkfLQzhjcZYE+db707165q7g5+NJ6DbFAckp1 T/u4EBVKi7GunGwWqFxd+KxS6p2KsPwXV1aEBa6U8aCdfGMq1uNG+X1WzDB2 iHR+q9qCGDw0by1hxAyHXrkl1y1YE7N7n7C7azDDxCpOUF17h7jcUurLLMkM g5ZQLt1WdyLpI+344Ekm6J6bVFxHG0O84Op7wPebCQqx5z5eZ0oiRt39dOv7 Jyb48IO8dDpIJ/KbcirMejFBl4knlfNPPhLtdC8lB91ggpe6ek2HzxQRP573 I+M7zwSlOpz4Mpt/EDeVv9h/E2OCbO5ox8Xdn0QgO9Wsz8AE/X9R6vaU1xGD RXmUZpYYoVVv8vHWkWZiI49+amAHI8x8fJny22gnkZ0tiIq3hBH6zVzgcRwY IF6n/e7w9TUjTPhyLjBCZYyYSZhr1wtkhG9Jj6TJqM4S59b5kWk7RtiZLZ3T XL1MlJ8zehNwiREylDRK7s5uEn1GntDxnGaEahfnL8sEE5DK7lKnInZGaJ72 Qm9oiAKhb1rsvrzDAEWlTbpNl+gRo2ph1akBBgg8NUnoeY8gSaWm7/0rGaDy u1M7dkqcyHDBU6bjWQxwvVzi09QrfkQiC7p9ecYAtQJ1hbwGTyBOr1f7dJ0Y IO9MZVJixUmkOFZMfdKYAapJKLcVDp1GqC0mbpIQGSCGDprsZ5xFjPkz/bkE GGA24ytVUSYMeTNmkyZHyQAbdOQ++02eR5azhaDODD3c3N7oCpK5iGCOw/22 TfTQVoWGKeC9PhKhkLb38As9FHXUUGyeNEZ6t28cj0+kh42l6Mh2/jVEHPKq fHpED2M+muX5KN5E3IL6zOps6GHLnncv3mGHVF5I9hjRpod2ZREtz2kcEVZm i5e7UvTQJNpk1CLfBbFs5yw6ykYPn1OTfF1964XkJXa1SW3RQZUG43tSJ/yQ 3RsvVzT76SD91dRVHZpg5MIJY1arn3Sw+5jWWf4LT5H4aTZZr/d08Dbt4Ly4 0AtkPL/1cvQzOlj5SL2uXvklIu/6wiHHiQ7mSsQFBn1NQfyV9Z9VmdDBDoHB Er3ddOTPAVNOP5EOvhA6YcOq8h45XtVYtyFAB8c7WamCRvIQ+7BnU8xUdHBx eJqIZRci3y7rUEvM0kKnUEJiAOl3hPIonahaMy2MJMY94KvCEaOeWvWrRbRw lOti9BfRSiT99RMb1yRaiF+8dpIuvBZZtNEMiHhMC6VKG6U/SzQhqARl+jtb WrhU1Hi22bENebpQCeEFWlibEBB8r6kb6fkcMNAtTQsfxMobLWoOImJe5/aX 2f6tp7Fr1w4YRVwBCQ/9Ng30E4/I8GqaQirIocqJARr4Yshs21RpEWGue2iO VtJAzbKJzLDrq8j1SMTTJIsGWsNfLArhW0iO0e5LxwgaqEXz+MKv/QNkm7Ok KNSZBlpcL9UoISNHtQY829NNaWBPUfLmL1IaNO7N2dUS5N885lMFzzCho3c2 WNsFaWC7dS7xo+sR9LR0kew8FQ30D/jEf1+FA3286qJHNUcNowb4rH4K8aKN 3+Xu87dQw7HPxx9WfRNEuR8tP1P6Sg1dLck5URVR1O78pxyDZGo4fmzOQKz+ JFpE41h/148a2jlyR75tkUXJ/0hNB96ihuFhYr7NNIqoQcwc9auL1JBN1e07 y1kVNNUsR/SrDDWcDlTRI6nD0HneuxpNR6mh4BDvzHz+eZQ4Km47tU0Foeon oVlXbTQsazKAdJAKbuw0rnvpXEa7HN6lc1dRwU+6kqpcZwxREflb5fLZVPBv /cvgsecmqMuW8OClSCqYrsWUr9h/FS0vG9m/5UIFxZ1CZUWzrFDGwHSex2ZU 0C/iR5h1rC16VduKmIBSwaemZA6VpvZoNiO/RYEQFTT7JnaskckR3Wzt96yn poKNrtIFXpHOqEZCSvzoHCXk7x3u4al3R2OuX/2610IJkzajI2ImfdBhIe4O 9m+U8KqpYZV/mB8qM9W9Kp1CCbc/T6hwqwWhLounxI8FUsIrixX02vah6LcN v2v79pQwq6zkmLxZBLq73x41pk8JS7bdDSc4X6CqlBLVDWcpoamzVS7Xi1g0 mOHhdiEfJSwuD/3WmZuA1rG1SCVRUkJ23i3amdBXKONxkZv+cxSw5m0j07ZQ Omog5PXyThsF9GSRNogJeYvGSTTW65VQQFy/0jAxOAv9KytIOJtOAU227GtT VPJQfiU3eb5QCnjmwY2X+PAn1Aars6N0pICbed+2aIW/oO81eVPmjClgj4g1 5rH+DZ3VdWpuQyigQOafuGNOP1AZ42qKUmEKyO6QZHPDrBx1vcalnEFHASvu mgRevFeJFts4OIQtk8OcQJa16+Q16P7divQH3eTQOY2wv6fYgJ5zZu80heRQ KrZ8xCaiCQ32sqfD3pFDTj/Bt7R3WtE6vzIgGkEOr1dwf/xc0oEyhbK6MLqS Qx6d7L/0CT2o0fNb79csyKFBxzFtN/YBNP5lcW/vOXJ4/9ftXgWRYbT3FSNL pTg5TGIz++EiOYbyZ1qrf2Amh0+s53mWsydRm9wizxcbZJBmQYN6omgWzfpM m+fZTwbLhpt+0xYsovMl14ctq8hgMh5Dz2i7gp7+WcCulUMGda5X/Jj0W0fd 6igvSkeTweVaefWOY9tocbP5I3YvMliZuqbIfXYf3e/KK9yzJIOZIZxugt4k 4Nwg6eSoJhns+Oiwe0aeHARPGB9vkCKDJ+99Za43pAL189l6hUfJYFrdDWR5 ghYwr+8HJu6Swr+1wvLPCEzAaM/gu98IKfQ5ufqstJMFxJO/m7OrI4WAY5va NpAN9NLtCOh9IoV0XReFg6KOAf4jl43PxJPCo370CTgdN7DlygjjfUQK30qO xiqT8IFsgY0yilukUArYPBmFAmBe7OLKrA4ppFB4MxV+WRiclnkt2iZHCl/l lGL3FUWB25kVixIuUthOn+gQ9lgCFKOaz9NJSGFujNp5dmUpcKCeVBk6SQLF SyuHDc/KgvOXFjYd/5BAgwdxG+8T5MATI7VTpkUksK9NgcVWWxE0WLy0Aikk MMD964dfekqA+eZMrEggCTTf+sBNW0wERvagjuEuCVx8eYNJRQsDCQ+i91f1 SaCnqPsB6ngO9HtMnO49SwID/U9Izvw9DwQfq9z+yUcCp9EdvOaFJrgVEpmU TUkCjXa/WPKmXADZESN/ouYI0Ord+8QDMl0wH3uG3LONAE9/L3ydN6kH5FLC z1qWECDHOw8DOmpD4PFm4J5mOgGKmDwbp7h1BZR+kEuTCiXAsKVsJQ4aU0Ao DGk/6kiAm8cZDi5vmoPzxX9p9owJ8JzSM1EzlesgL/ut0i8VAky1uRL5lN0K cCTdvxPFT4ApR/GS6xdvAv9wpQQLCgI0Kyb9dL/CFnRsUL642HaA15/t00n0 twPZXYlLAykHeNknhQW96Lvg4XcpfZfbBzgWIj2buesADBIrPlLLHuCm/txs uTcfgBPexswp2/t4oKWancNDZ7BpMX1ftnIff5Ji/jy/1RU0EB/+qXq2j9Nd nImatfMAqTys0uYm+7hLaJsU7Xlv4LL/NmKefx+Pm2TKML/7EGgNKM37T+/h +XW9fM3LjwE3/H3p2Oc9XMFZcoahzx/Mp1rlfvDdw2uG+JzRzUBQ4bdGj2nu 4XkXHpb5aIWAOOvQe23Me3haRX6vUEsouKPG02DXs4t7WDI7Nic8BUThT5J7 Gbv4KDKzcetNJGCmUA+P+mcXByX6dkHeUWB0rGv6xJldnMaCzTHmYjT4Vn3v QjFhF5eQP+ekpB4LbjyJoRmJ3sE1Oy9vGJcngNN3xO64X9vBPxfEq0hdSAaU F0pr6ER3cHo2vzwTmtegR0JPLHVxG5f9u50iQZIG8uhGQ+SLt3Glwr6Wm8np wH/WfaImYBvf/y13W9H0Dbjym07z2qVtPGyFqiNCMRPsRshRBg9u4fXqDQ9w 62zQdP+XLVf2Fq5ngri+/5wDMvQsqvKct/CrR1pSFGTzgZvsgrAasoVb27+N wOY+ggusAYGdlFv4kHMzamRWAHhX2EfvNm3iic/2uMb6CsFya7YaIXETfzTa Ekji8wUkxLaQip/axJVcH2XR0HwH99xuWf9Y38Dvz+e8JmwXA8xku1wfbuDy lg7n46h/gEkOQT8vww38+K1KTulyCEq3vgwy8mzgce/Oj2ZtlIPIHm0sY3wd v0HxQv8L+hMoJj84qPdcx4+P3Xg/c1AFaH0pbliqreMtKoW+n71+gb5rCWWr 9Ou4Uo5pmiZVLQjkK/flSV3DV5i88ADjBmBKuNL36c4abl1Z5WzD2QhODk0S NeTWcCdBv3qf+T+gNZ1516F6FXdv86R+MtEMMgPeWJA9X8Ub40J8eeZagJfN 2ZKXZqu42evjfb47rUBQxNILzq7g9ZpX1IZkO4BjVv4my5EV3E5qITVlrwfI MDoEnBtcxgmkww1+J3vBktNJRufcZTyxQ3H/j2UfcCJmCbVpLuNXtIlic50D wPVPum6czxJu4msnxuw5DBTlrbqrtZdwaQpcV51vBKzH89lssC/hX0bdNymr R4C7dbKn6adFvPvGDZH2I2NgZVpSW6FhAT+oLrsUkjkBXD6/vx53awEfNc9o E9acBOu+J1w2CAv4tATXGYuxSbDJzPf6u8I8LvXg9MIuxzTw7En6zNU0h5/M YsZScqfBdgZHnbf9HE5qexRVRWfAriLrGvJ6Fo/9dC2d0mAW+BIiaV8rzeJh GptWtm2zYL+Wjp/QNoOnKafaqOnPgcfRTxSsHGbwcM8/vuo1c4DkGsXFCuoZ PO+mD35EaR74i/hbCmVM4/cZqcbNMuYB+eK+ayAyjYuI98NflAsg6Lt3+Fjn FE5+VOQly80FQBmwmarhNIWz5X4KWfy6AEJ0XIve0U/hehbND6JIFwE1+3I9 9btJXGszRFXxxCIIHXAYuqM6iZscfRpar7YIaLNm1uv+TuDOevZSStcXQbiT Hf1Jtwk8wcvonL3LIqAnjgk8Y57Aq8+W8V8KXgQRFNZn5rPHcXHdkqDW6EXA 9Kdf57L6OJ6LrqYuJy+C5/EW1h8HxvB0GkbhjLRFwGrd5c7iNYZHCtjrDP3r aMkrz5zYxvD4uycnc1IWAdtac3pr3ijON+xrTBO7CGLLdL/Ja4/iU9foAvZC FgH7k/rfsSMjuOJyTW+02yJ4qa81su47gscep9PqsVwEHNxVmyYcI3jVZyb6 YY1FkDCqyvi9YBifXeMoxcUWAVdemRDXpWHc7aj68XDKRZDsrqLkPTGEpwll kZfBBcCj+k23128If6wma1twbwG8olWwQY4P4RM10U7yLAuAr+2T56uiQZzj BLdfWN48UGs01i7vGMDjxiN2R9rmgIaVnksA3QAeste1GXZ9Dmitar9Wx/rx adt4LZ3hWaDDhazVZvXiGX6+3E+7Z4DxLaG0Fp9u/JjQXnp41BQIe+D85MWX Llzs2WfG0K1J8MPn532D+U5ci6JWu/b6JBCOvom23OjAc0gi/kQKToBlPONv 87lWXDWP1+ZBwigQqV+piPJuwT0ETdvh2ggw61DL1v/cjAftxCafNBgBcHbE o/lEE258xtonhX4Y8MppnUxnqcM/BVM85OcfAEHak9sCATV4sVqcBclMH5i9 8aQ2bbUaZ65r1vcp7gXFT2tupXX+xGMS2L4O2/WA3Iaoc6oqJbhw2B0VLoYO 4L3VPIDxfsMb3fVjcynbgbYIqy9G8gVP7Srf0qFqA/UHwvcfReTioqevpRvw toDF+ASbpQR/fDy5ID9f5zfwIY2p0jh7BxT3nhz+WVQPpBJv/mJT/HeOgFcS R2TqgKFcV2mw6hugtSy6Tav3CxR1m/iHeGeDkLdfHjmsVwEGOCNUaf4RHBdm 9wn8UAke3Lo7VRlTBHK2Iif6sQqQriSpU/XpO+jx3exJ5i8HbfQzeVWNpWBw uTOfhBGCZDMF5ZuB5eCTGy45xl8KFNRi746w/gTTisAsQbsYNJ5cS76ZVgnW lvTH2sO+AQLhy8HNsl9At4KY32n47/8+xSY7qlML0sAMD21PITjd6mJt87cO 7NkN3E1zLQD1pW3Ro3caQI2jnlrjiU/AJlO+ymbzNxi5Qavp15oP9iJj1keD /4Bbllxu+n65oJ64HV0Q1gRc72rb3Df8AGxEzKtOc7YA7jZzPpnr74AMN22/ 02ALiCxu+J0b/RbsMRWvF7xrBRGTajqyExmgjtyeacWhDdhP2rMrm6SDuC1O MTnFdmAjGBaqN5wKrOdrMee9dlCJJWozML4GUiOeZoWVHWDwxerVpZBk8Kuh O0zOsAtMvw+0dySNB3YePb8sJLsB4aoAOtIaC6iF/5IHkvUAwY/nio61RIOs P39Vc/72gMLMwgaO7Shwwbv3YVvhX9B9wGJ8RPs5mBbpK9kN7wUWnpeVczye gfCWvk1hmz6AiL6JzUgPAycf9itcIvYD+/0ZVJbuCWgQH3ByZRsAR+gaKUpz g8C99oH8lNkBwGJIMjATFACCMcd1a+tBEPaJ0et9pB8wjltkc28cBGPkf1Dp iEdAdNZRLlx5CCRl6Jcp6vuATdUl/deZQ+BIZ5dMqpUnqHn5wLGQdRjEqnGW s313A/FzSxG/Hg6D4zG+6Vn6LsBOzSn37/QwqGCqC/l7wgmcTViuXzAeAdzS EwehMo6AesFpmuznCKixpAoZ674Hus6vUHNIj4IsV5dts9w7ICvRWfRk0iig +fVHXLv1FvBaXFHHqMaAcUYrneR5G3BBw8XGyHkMLEyzRTBuWQGu5FV/u4Ex IBjPKCbQeQNML7mk+VwcB5d8I65nSl4FxZpr+POv4+CWtaXc9KgpCEtx7X8j NAGeRscssm5dAeYra7vfIicAXaRbN98NQyCp7cb9e2cCmH9TW+lm1Ae7r9aV hm5Pgp4Td1bDSHRBw6qb6VrrJMjLdGcUu3oBJF/YcKPBpkAL+WqzlIAmuJfq HsuTMwVS6e2s7NXPA+L6RqHsv3MwyVFp7EuZKqDX8WhRD5wGPB2/+xqoAOhN 21w0W5wGTDo3H9zjVAG5Gx5MDldnwItzrM7WGWfAw0tbp/xrZsDd2XFKjXh5 oJvhqRMnPwv8fxZU0M3KAt6tLfvs1Fmw1qGS2iAqDeZ1vULL6OfAE/qgIgN6 SVD2Zvtdi8ccSPS4aXvNRRREbHtVj4/OAX3x2S0vPWFwXW9ndFtvHjB42zWO vxAA0pneZEw/5kFayevysuu8gLC7IyAkvgCk+R1bDxS4QJO+D3YmdgH4Z9x2 V45nB02GD/PfEhZBUf4/dhddjoBvD8vK8hUXwZtTrCzUJcwgNWv/9/d7i8Dn vswsaxk9eNKG9v1MXwSfuY4e33xPDRwPHs7+7loESPW0zqQABTCVwHc6GZeA Y2HOxlN2UoBdOaAdPr8EBl83fn0xt4+KPQZcs15LgNyObXfVbhtl/vBIfP3j EqApdFbzDl5Ht9rxs4SJJSDntHXDU2YFHSYQtGh5lsEsCykFwWgRrZPETNgM lwHhaboZW/kMWmD8+BZv6DJ42df/61bkBJroB13F8GUQdf75+dmtEdQ/hxB0 em0ZSM1LtQ9PD6L2nVgMUXIFGFznHG591YsakPplaFitAHzS0/CSVBeqfKq8 QO/lCnB372gfvd2GKrR1xJXVroANjqb9QdtmVMZ71uvk7grw+v2Maib9Nyop SHojUWoVlHtYpGidqUVFao+pUVutApZ7o421DlWogOMpUbfoVZC6zvyh4XQF evyYGt1o1Sogv460Ww6UoRxlpgv6m6uAX/r2yqRYMXrE1qEVl1gDy83sW1XC RSgjfeDXU9fWgHFRAXf49wKUtjAhKSlyDUglEYyepuejFOb5j2gq1kBH4KdS 9oJslEBSddN9dQ1ondYi4/PLRHfe9WiOiayDmpRml5SVdHRdd1HS0Gwd/AiZ IW4Pv0aX1iiYy8PXwTmgJC3akIjOJnOvSpWtg5hj5Y5Gj+LQCTXZruTFdaDb 06N9qv8FOjytUUortAHSTqRqBKREov1RV1M9rmyAefs7tq2uYWj3WafA8ZAN 4PntebEPXzDaNhBiZ1S8ATT/8LpoevmjTcEpOhWz/9a/OvXmWftDtP5UoYwM 3yaYkuaZNij0RKvbathe6W8CJ48zPmq3XNFy7/5NusBNoDUmhlY3PEBLBVd7 PYs2AWmWyv3qmH/Qr7U05ROTm4A9fEOXPMIOLXDke3uFewsUSj8afHLVBs09 phD689IWUFX5YTHXZ4m+L7vwj+zjLVAya71uPm2BvrG11H9dsAUmNlnf5x4x QV/TuykwjG2BYTMZyVxGQzSxMJzT+9g2WGwwrA96cBmNM0/bm9TeBqL69fw1 U9poFMnXIWOfbdCrVHnG/oo6+vR9Q1Vl3jYweqZglByuioZcHs46PbQNfFO8 7O63EVH/9Y1nqUd2gOTurrBV1hnUN4XBiVFjB1yY3N+zviWHepwXMvbx2AHl 8Rm9t39Jo84zZ5Wns3cAdgejuEeQQB1e6PKa9u2A/n8eKX/BTqD2Sjak1Uy7 gGI8Q9LFXAC1HfQclzu3CxpGpf2wy8dRy5DIujSXXfCuz+nBNZZj6FWpt3lM 73bBR+Epir1qVtSkvfiFb/cueN/x9GlFKCNq4NPkNkO3BzhziiviG6nRS0Lj 5mboHshNGz7mIUCOatXtoL8c90CV9W2Xz/oEVO0Bi5BCxh6Qz09usXfYRlAO UaqM9j1gr9p9bctqDVHCiTPM1PuAsVwkrVNzCZG/ZfDnofI+mKVWot0Zn0Fk GOwKZ+/tg+rnVEt1j8cRyc++L81f7wNNTg8lLYFhRMQi2rumeR+4Vhjmr0v1 IYKkWTcUyQ9ABW2vaolbJ8KTVab2RvEAwJ+S5/y6WhAOvTZR1jsHQGX7XdQy 0ogc2Ziie5x0ACyiSp7cQWoQxlcHC3O/D4De2EpFkd1PJDCddvoUgYDFf94o r6bHEVK3o702nASsuuk1+dM/3xBzy+yWb/IEzI+taX3ZoRApuABq6fUIWKeA MuPB7TyEVqENt7xLwLRvz60qVLxDrPnuFH0OJmDhDdofSsPSkWKa/RzqdALm nteLU08mI6yrLzKu/iBghqrQUdUvDrHvF0382EXANKwKxLYeRSEVNaXPyVcJ WHcNRt0vFY5wFeqHmDKRYB+X+h5JsgchTinjvjkSJJgtC3nffePHSF2ItwtB gwRLEBcfl9T2RASdmO8aWZFgJ/vQ52fDnRGvq2+t3vuQYF5cXKcaTjogLRrK prsvSTABSJYmd/42IiH7R1evkAQbxjQYtqetkABuG/U3jSTYpO+RTJ/nFkgv xZbK5hQJtnFXn0fu1BVEfvHZaR0KUuz9R69zXUAPedojKJ7KT4pp6PzoUprU QkYrv/KtqpBisgkGH7qY1RBivg67lgkpxswEBC+LIkhMwhB9shMpxhs/WCul pojMBriRLT4jxVzpLx+t25ZBzjvQbatlkWLuGoPqKf3iSLJp6uLLSlKMs4ex djRPCFk9pzAxM0CK1Xex64dO8yA6p+r6wA4p1uT5gZPsCzvy5tiNtmh2Mgwy rbENK7IguySrdROyZFjZZU+skIUWMZp9Uq5yiQzzXBYZF/1KhuR08HyLtCPD lKMVx3pq9ojk5QV5IwFkWLgN32qkxzrx6gfNt2dek2GZYXZ1lfOLxM+xvUnh xWRYwscTqrM+U0T6xw9eDLSTYf8+RJYxsRGijT1lqNwSGVZYcn9dvaqXWGqU 9CiEnhxzQKgElKPbiWxAxu2vKDl2/CZTQL9YE/GeeNU9aTVyLMgtfuDRqRpi 1RHzmwHXyTHQ9PvnZ+YKIu/+vFmnJzl2lVoxIHe9mOg2GaAnGUuOHTWa2eHj /ExsbOHQfPSRHKOTj9Eamc0livzIRVrrybH2xuUaHyyT+PDdOXnRCXIseuUY nhucSuyI6pTwJqXAQjS5tx8HxhODb5FwCClRYF/d+5MVhsOI/XpxjO5GFNi5 5XiftP4AoqKKJEX9fQrs2ix/3eoVX+I405Vlp0wK7Hd7aObdv/eJGt/fN1Qc ocTubKzyPw4wIFLR6/lZz1NiVxo56vMTjhFNRc2hIg0VtjXcSpavwELMPmdz QCtMhUk3dXWPsNAQdT09fAvNqLBsvogPf/y2VeLGUz3Jq6gwEz8V95qzfSoi 5UsPMpOosT9Ezceudakq6m7R1tNatFjM7vKNtGIBlYDBDjWnDAbsA4c1d58I s/LHpGC9h8ss2Ao7ZurbUXXmfroN86jxUWyeVKJCTH1Q/rp9Ik+IHwdWuz+S psZRKRuq76Ykl8yNuTm+afI7YSZFzhY7/mibFwuZnZQyY1GS6KwPWgxkEsCO RmkMUnbvnLjiba2Y+FMQm3wYGjRvtsZ/j25GsNFcGKPVnGBi/NjPzfehOo5y +gQmfF7lzI+Hj9m9v6kZMiWJYkKTMRMyyarMjpn3ihSlxbEfbE71BQ1UtPSk Z6ylxiSw2dkCheWov6Tq/xjFSkSfxP53v4DjO899dWGp//zC6UmUTKf0fzYI vnwqpUjmP0tYBF554yv7nzvGadKjr5z+z43WY6qsfHL/eYj83Was4KFXM+3y OUUOzTkzc1zg1KFtnJc3pFUOvR1wkHvJ5NAibzm5QiMPraT5t4k++tA6U8kh z+MO/eAU/9rLlEOXfhFpyvxwaINqueDKX4e2tVsjatUf2oP260p946FTdJWt WtsPPdmBEYdH/k+/HqQrthOHZuCuzJqaPvTpG5rHlpYOrU5C0+iydmjTjLrA zc1D26s/VfHZPfT/7Lf85/8Ham5UvQ== "]]}, Annotation[#, "Charting`Private`Tag$20771#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nc4ll/8OPDHeB4zlJGRLcoeWXnu+9xIVGZGQsOMSAjZWRklQtmyisyG IiP3bRbKTraS7PHYm1+/6/p+P77nj3Ou13Wu9/u8/3lf5/xx+K3uXrYlx+Fw ov+m/7/6T+osHxzIYbj/GRO+bGuDu4fWZRrdKN86NJ+yy97dlUPXPYqj/jVx aGrJnzzY90M/c795KTD10IVk917iFA+Nt9WU5bgm+5+Z+xqdsmNl/vPl+hTr 0y3S/9l3EXJ6+kfqP3+6n3L7jZ7kYb1xxnz7yeKYxGLAEllkLblm+mddrTlR 7AYfa0W8VA1N7hfv3nvmpzGFiMGTCpO/GK+HPmNtfy2CiVhx0Asxc7MF3KQo oWMWxq7eiXwjw/iYCyfBi6o/FMIKexRMy+cC+QYeJ4cX/hDAbjI2mQjN3j95 gtY+f1WNH3Nys5T4Iv7ptKO8KH7wBC/mpZ3EaK8+JWGtOPK6vp4Lq3j9k5pi OlFG1OvsgfNLdmzvCzSCfc89kzVs2OCtyoqpONKvaDDFKE4GsRI12Y9hePfn BnfIfitXPj+lMWVyBOvgMjgzcWFDhdp80pqMeARbzXvKRH1woGLClxvMyX8E C6zo1TFdxROXCwQx7Vl6bGeqo5w6hYV4GuNRefeAHvtk8wDvNi5DTJphkfF5 TYfp0DUez3rkQJx4060X/4QOi/whpfdV2ZV4xiPOuciNDvslV1mAyN8nth8w Fo0Q6bDnUcvmhXuhRAIrnYh6Jy1W3e5xq2Ixk2g00KxhUfbPFKMUmdm5xOyM CBuPVFrMAn5ZG6pYQiTZaIZEB9JiC7Z2fgYnPxBhUUJ2ni0tNtY8wjTfU0mM WmzAsIu0WO6MwFHq/lriwIeQ0X6pf/lsvh+5Xf6FeMpHbX+Z5V+88ejdCJ92 ogcg46bfpsEUbybLDQ33EOsoMZWTozTYBmySMpU1SGRqCTCDG2iwhoXiHzbn x4jXYyDvK/k0mA3vewbWk1PEIqPdRJdoGixHZD6FdniRuM1RVRZ5jwYzPxU0 dRK3RtQa9f6Rbfov/trvZ765O8SEl0qrVRANZnirfCBWkhwad9g49kOABgtf tqU1GaOCZKXKZBaoaDDyq9E8JSaMUOCquz7VPDWmvnPjzrlIFqitQu4uXxc1 VqXw1kFtjBPierD8RLmcGjOkKy9+Hs8P2Z97V3Q5jRqTMztyrm9VGCqjcWl1 DPrnWj6en8sSEGW75EyoHTWm6IdqaYTIQZefzVO/uESNxbhy1TXZKkOZV4tE yqWpsY7L933cghFogcfxfAcrNdYYwY66umhAxPHTttPbVFimblH/sfZL0KP8 qRDyX1QYxuN5u4niMtTnnJfN1UiFlQ5m35HVvwIJn7GrPVNAhbm0ePO9E7gO uW8J/dKJocKyDmIobrlbQ7U1f/bt3Kkwoa0nbrTHHSCG0GzuwKtUGFntiDPl aRfI4oIlMRmmwnTVPMbYW92hAgY+8/eCVNiYonzb1QofaLN7xLuVmgq76x7C dE4kCDqfnJ40Pk/AjjY59TXuP4SeXbco3+siYBvW35L7xaKgMUGuXrZPBKw3 +dEDfnwcJD3dvyqVTsDElk/pjBESIXeSxOnjoQRMauC+qdRMGvRpI+ja/m0C Zp79w/CbQDa0u/8j9q8BAXvsyPdIqzIXUiWINn1TImAGTCw6bO5FUNiRgO1S XgLWnhi+jG99B7WwdEmmEggYGVVuoKhKGcRwQtg6eB6Psfvdao1Hq6DLgj6J Dj14LDpX/GKXdi2UINrWql+Fxxqw2tPjUY3QoIwATikbj61vvgq162yB+JQ9 z/BG4rGrogM+/oUdkA3SYk9wwWNisI3RTmkP9FqTJ33eBI/txSfvvH3TD83p unX2QHjMiy+SV6d3FJI2acJXC+ExJX6Dz/Mf/0Ae1zjP5tDhsQ5aPtMyyymo 0sbZ+dEyJWbVpRRykn8B2nesy3btp8TKOfbJ1pOWIbV7bD9NMUqMlRB44sni OhTmc5sOyaPEChaORqyr7kItQTVAJJoSm+dx/9NiTQYzRh5zZ/CgxL6Hmyt8 s8TDRk/tXq+ZU2LhbY3bb9Vp4aTEyqEhtX9Nt5kbaMHNBA+9YDjacJoSO5qx T6VYywzz5VppFDJRYqZ+i8fNZdhhm+Iy77gNCsxr3AsSTuaG8z/QlniPUGCh qhy9TmwC8ELV9bGbjRRYjcTb5GJWYVi2/j2bVhEFtmBnFXWSJAp7thAuScVT YEJZa5EZDtJwZafZAzYfCuxXi6pX1bYcvN9XUrp3kwJr71JZpNdWgtV+kU+N a1JgtNwJ+/mhEBw2aXLimyQFNvDhC+PraVW4daFAv5SVAlt81cw7U64BM63v h6bskmNvSqmsb+tehI32LlcE/SHHaF9F2g316MFJlHnz9i3kmJ9Eq7UaZAgP 0e3w678jxx5fXj//XeUKzMesZ6KYRI799CIjuVFZwLacOY94HpBj9tMeEdN/ bsIF/Bs1eDtybOt2RNOysQ28cOrSypw2OUbTIpeR42EPy0pniPTIkWOXLVZ0 R63vwJ6KK+ZVnORYSuyeFpbjClfCmk+zycgxFonAX9IiHvCBRmpD5BQZFupU wax1xRs+p7O46dJOhpHTv0zpMwyAI4zUJUzLyDBP5d+ap/iD4W/miZYgnQzL /FM8bpT3EGaynn0uHEqGvZhWZUZ6I2Gj26DliCMZ9ngtsvT0t2g42TV+f9WA DDsm9L0CNomDR7wmZYeUyDCC906qUcdzWCBQ5VY9Lxn2jVyO6dFcMmwXHpNa QCDDyKKsLbm/vIALov+0x87jsLS7nPf8kWx44bkipXcPDuuUTVQiZr6C5dIf K92swmGoK4mFLTkf9no56qSZjcN2Xu2DpXMlcHWhXJZkJA7r5pzunf/1DsaV hv9gdcFhjzX4Wo05PsLnKgdp9kxwGIfzcdXB0U9wScEr5S8qOCyva+JhSOln mD31rkMsHw5jk9QQFSirhYMfKyeb43EYdiBvTeRohHs3CHGXeg5QqXsR3Emc zXBBX8rSaPoBekr5BJL24zscUCFp4H7rAI3Vy/dl/tgJX06pe0stc4Bat/Y+ T9/vgU/6mjClb++jXJIuNH+G+uBN85m7Mg376AWVzlnUfhj+Rgxob3yyj77O Fc/3ufEbzuQ+JmV2ZR99JuY2bxE4Drvvv4pe4NtHxai9UyVFp2CtUeWF4Jk9 1LfJ0gN3bw7mwr7rHP+wh4qyZ5/mrCTBC5mWxYX+eyhX7aK896sVuC5ojR7R 3EPLZqniTeg34ASrSKcepj20ocrhwQDZDuygzv3NfmAXlec5wb6YegAThd6J 7eXsotUB/d5t3uSACa/xOPbOLhpthsIVcXgw/rdv5qTiLnpx8POTnVM04FOT 08VK3C6q+3EtnVXvCIjKwxXotuygJ8WDXuCPHAU3Ip7R/InfQT3o58/3dzAD WYdTDvev7aCcNlIxD3HHAeFi9Vc6kR20iec6hV4hJxgQ1T+VSdpGaa4IT94b 4wEldOPhZyq30ZsZ7gqlQ/wgeO7+5NeQbfQJKeYSIUcIGH+n07yms43yDbqx hXSIgFMlGblLbNtoPyErYddNDOxGyxHCfm2hJDPHxOVkKdBx94stZ8EW2ptR HnZDTBbk6Js3ltzbQhMt3hRZj5wBnjKLQurQFuplUtDdR1IEF4+FhP4kbKHk LA/0251VAM8K27hjxya6n5HSXWoLwHJ3gTouZRP9lKfjqrSsCpo+wDnPrDfR KzbHrJv9z4Hk513kpyU20XmxVFz5dU3g5Gln9Xl9A13aNpAVyrgIkCvbtQbY Bip1hv6W2kVdwKIUzT8RuYHCjFG3zigYgCl2gSAfww30W72Ub0KkIaje+viL gXsDZaHVulEjbAJiBi4gORPraHR/1uAQ61VgVTWcofh2HeWusJ2cuWEBFNJc D1q911F+pUwjC6qbgNYff+Om+jqq128SFcBmBYavJdes0q+jw9c+c8lZ24C3 sARPZO8aOn6Kfq5nxQ6E8tb6c2euoe61eq6X2h2AKc54+J3DGirXWhvCvOcE xH9PEc/LraGJMyuyL9VcAK7OL21gdxVduf/Lw0TJDXRnM+06N62iPym/mJnZ uIPckJfmFE9X0f3B++VNrZ7Ax0apKvHqKuoTmIRjcfcGuhrfOMUFV9Hk5K4u Pms/ICB80webW0FHzYMsFTIegHXCar9R2Qr6+8XrG2GJQaB5Mlx5+sEK+h4v 4DMZFQLSvnIl+19YQTdXGx1iSh8Cl/w3m0eZV1COITPVKMYIIM3gHKL2axmV ttqyunX/EVhyE2e4V7yMinysD5NhfQLe/5xJyvFZRsUIMjFtczHAjZgv2KO5 jD7tTweiQbFALutWCSXrMupnmULCS8SDVbywsvzYElpxnHFLcfcZ8GjP1k3w W0LDDsbHmBmSgcIZy/6mC0so28qF3DLjVLCexGuzwbaE/qT7/CazJR2U7Q0v iIyTUPefItcbFTPBfas0b9N3JJRDrl8oOycLKH0xo4wMIKH3b5uqXxXNAZti HDEVl0ioxQY+/Nb3l2BlRuyC/LdFVCS3U6zQ+TVw//D6eoLdIroRHTePdykA 6/4n3Tdwi2j4gV8Q7lkRuK+ZHWmauvCv/6SJ0FAJ2GTizaiQX0BfnZeRlXn1 FngPpH7g7JhHf1dZmtOT3oHtHPYW39vz6IKl7HioXinYVTi2BmXMoU+urR15 oVcG/HExtBnKc+h7tkuyY0vlYL+Zjg/XM4vaTLIWURdVALJr+Et11LOorg7/ FrvjZxAsHHxTMGcGDc58YhzkigJK0r5HKDSDuoidvGjdjAFCyGbmebdptP5m LbcaSz0I1/Yoy6OfRhlCFyiO6zUAarblVuq8KXSpGm/0KKkR0ObPrrcMTqIj ctU5kqZfwWM3e3pxz0n08ZX4M1VtzYCe+Jf/CdMk6ni5fSDVqBUwto9o62lM oLREjuCs6DbwNMnc6u3oX5S9k3bAjr8DHLPqu3/U5y/6ZFYzUIKiE7CsdWZ3 l4yjzC3Vy1HDXYCdq3HzCvsf1Aw8ET030wuSx1UZKt6PoTQq9WVV+z8BZ0mN IKfOGGo4JG+YzdEPuFU/6Q4F/Uav5cRth1gOAvU2kwu1vaMoM8nTP+X4L2Bi J5jV5dePTtxKZNcT/Qseud6LiPvYh1JtB3ZytPwFn/3q715e+ImaumaxLNtP AKF4a7jrRi+6oKyxZp89CZbRnMFOtW40r4Sn98H2NBBuXamL9e1Ca1XVqn5E zICrveoFBh860fRmvt2bzLMAm/vj1XmyA71+10r9DdccmFq8hQl8bkNZvY4v 1SbNAT0CdUy25He0lO07XQHTPOCR0xLPPtqCRq2frHu/OA8eXpja5g/5irKp QVSKJgtg7kZEc9ZqE2oyfK3OtGwBGHqeSuK3a0Sd3olPdzEugsqor3ZZP+tR 63mLtzZWi4A/x16e/0IdupD5rb+zeBFEVFBTZlViaH/2x72xpUUwkmHwStW0 BuWXUZmUPU4Cxd9i1VRVqtAiXVCYIEMCvludowjPJ3Q/f/s4jRYJXBA+5o+Q fUS/Ng+aeZuRwHHDy5zI+Ds0zrE4od+eBFoPhO4+iC5Gt5pXV3nukYD91Vf5 AUZ56NOH0aWq3iRAWXpy3J8zCzVUc5OEfEkA4dCGtrHn6GbT47+M//ZJSck2 S8nBaK5ORkCVGwn4kT9rPK/kAKzfyNef+5dfMsX6C4tCDOhmeZZSepUERjje LdAxpoGC9uaDY5okYCjXVx2m+hLo/v674iJNAmX9V4LDfQsAh5OT0wgrCRzB ZgUbzN4C9xfGfiMLiwDEF4Y13C8FMT08NO4Fi8DVznG64VkZcBu9Qff2+iLI VhbTbnxXAU7evSbcQrcIeuhnSxrbqsGiukPH/rsFkHZV/qx1aC14a1hGj83M A3n1545/jtWDyp6DvQH/edAmvpZmndUAnjkJxYvTzQMc7uOBdc0XIPvsI7GM dQ4kT7PIjGs3g/wGJ8uE+Fkg2+1uZTPYAm7blj7epZ8FNrlnGm02v4NY0yNf sJVpYCNs1ijL0QWcG/6ePZU6Cb58638kZ9gHAMc9ofbMMWDvNfDFXKwfaH7W U/6w8htQCw1ShlIMAB2DhrUazd/gou9QQE/pIDjGTc15aXoUfDs96ubBMgpS Avm4onsGgNOP0Tfpc6PgTcyEM9OLfhCGuKxbWf0CvHS8LabOfUBkzkXu8dnf wDWl6upboV5gr+5WPDgzBoT+bP+xIHUCpeTl1kWTPyDqMmsc2OwA1ItuMxT1 f8Ci6YfvjdQdID/lnoh46jg45dxBmg3/BnxIKxoI1V/gvlURpDfcAi6ed7cx uvcXjJKNXec61wxmltyz/C5NABspbcRBowlUaq6hT8snwNb58+uRow3gUbrH yEvBScAtamF6+VE9ELvgyfV9ZxI4Gj/wzWSqBbsv1pV/35oCN7qqOyZ6UfBt 1dN0rXsKaAV9jmcp/AycMu8/5y6aBmydb3VeFlYA4vpGqQz7DGAQTlBR6S0H 9NpeXRqhM+CpH43rF64yMJS1SbpKmgEyln6oge8HULzhxehsMQuiiEcqR1be gwCdLYngr7Pgt3y3kEvoO6Cb462dcGYOxI+uaxPE34IFXZ/IGvp5kCWhoxbq VQhqXm7ndXnNA7kfp2p+auSD6G2fponxeXBX7zvdBeU8cF1/Z3xbfwEo+P39 M6v/Ckjl+lIwfl4ADTRX1IYf5QDc7g6/4OlF8N1cqPnc3yzQYeCHKD5fBHvW P9eNr2eCTwE1NW8USMDhlqspzaVUkJm//73CiQSEurKVU34lgYgeeLg+mwQa vMvfiucmAJeDgLnvfSTQkeUYUZ70DJiKojs/GZbASr+PkcHHOIAYH9COnVsC Pce/DklvPQWnAgHnnM8SCO28kW1WHw2YCh+cXn+7BIqf+D/363sMtn6gSrjJ JZAfswptiEeCMRxOi5Z7GTjvFTOfrQ4DLWLIFRbDZSAh/cZ2JSgUvDcJtOOJ XAadAmaCjD7BICUI8ziFLv+7d2nufMwMBMFFuIeya8ugUItmKnbcH9z+iTwj iq0AkeBcq5ZeH3CZPCjnvOUK+CaArH066gXOStS+109cASavnm44xngA+Z7e hJrmFdCUx69nfvcekPad8xHfXQEXCy6q2AS6AjEB8hspkqvgbBE1lZT/XSDc fFyd2nIVyCTlZcdpOwF+FwkRz/hV8ONVDMMJewdw4rg63XjjKhC/GCXv3GwH 2GtMFw02V4HhGYqZjNs2gNnWuRsVXQN3FqY+y5+3Agz0oeUS19aADS50g+vK v/dhaXJqaswakBpGDVRlrgG82ZsHNHVrQL14aXiQ3gzgyBqt76+ugX6bigpq 5StgJ29A86/wOnhdGCTuWGIE1nVJYoZX14GE33sl2O4yWFrDM9U+Xgeq9Yov Lprpg7k0rlXJmvV/5x6Nq6TRAZPqMn1ppHVgWvvY3K/2AhibOV9NK7gBUo8I iel1nQcjsRaZXsYbwOtE/XtfuXOgX8ktdCJ8A5jFhbMzDquCntFwe6PKDaC1 WaeTFANAR1i6dt3cBniI08k/O6ACWiVKpaV5N4GYGK0qY7QSaOr5yvLCYBO0 MH52J2bKg1rfkU260E1A4VowNU+QA9UCq0PeZZvAVTRiGq6QBuXNNLWTU5vg l5xTuPZ1CfDehfeVMdcW4AzY322qOw2Kj8tH1utsAflCxZ8DccLgdc3FOzKB W6BrpWitvk4QvLS9aZDxfgsYLR4LWdDkBxn0nvJH/m6BE6phCWUyPCCl9DGH 7/FtoL3+9i69GSdIMMvam7qwDaLY3+emb7GBWLLy3yZ+2+CT9Y5dIzkLiHr9 rbGhZBukJ/ZfMXQ4CsL1xvJlf28Dx+SokrZzDCB4feNJJvMOOI0KZGVq0QL/ 9CNuDOd3gJnRicXBbwTgdU7QxM9rB9QFhtuJ1lGAe7NKZ2cKdsDBK1a6BU4y 4Byny2M6vAN2L+ztCSfswbeVbcibGHdByk3UqDNmC7b95T0hp7YLgmlmny8w rsM3w2Nastx3gQGtuEITfgW2kHxVwpi3C9yXH4QnWJHgKz8q4/z7d4FKZt2F Ktk5+LJfh+cs3R5gOpqO6UFTsI7ghNlVeA+oVwLnpo5xWKtlB/7isgdgz8H3 zoO/YXXXo4LyOXtAauWPXXjqCAyzi1Dl/NgDSkJGEaZnBmBllDjLRL0Pzv8g 6YY49MJn7C63B5zdBzOuw6tKwt2w9BH70jmnffCzx9Ze17QDFvvgn2iWsQ/G greLe0dbYWHzeN+vnfvAV/d6aGjNF1iAPP+GAuUBSPw0ZJt1pgHmzq9Rf6lw AO6KWzroSNTC7Po9IsccDgBLMLdxt/hnmHljmi4w9QA0CZB+P8A+wQwvDhbn vx8A0ZJsP4ftD3BoNu2MBA6HpAVVqOPr38HknqxDNhw4xO7dQ8kNuhLY7GZB 16czOCR071LxUep8+P1F0Eyvj0OaoOgCwZ6XMK18D3rTEYdQ9hR+S9LLgq14 Hco+hOGQ7pjA9ief0+BKmv0i6mwcskjMeeDSkwgfW43LsfiMQzxbyr25q+Ph 2yMiKW/7cIhZC8f7rctP4bqv1U8pV3HIYGFKm8bWI5iz1CDclJEMKcx5Iaqv Fga7pU/4F4mSIWFd3cXVpsFwS7ivO+48GaJ8rSlIWT4AFnBjcjSyJEOqYlVn hnq9YB+LV5av/ciQ9IFY9Sd27nDX+bOmu4lkSJOqv4B8tQssKtOuq19KhuSf j1WLd3KEQ7hsNF62kSGyfL+FH7rawUP4LZXNaTKENumrloepFXyG9ERWG0+O /OnLvN+0eg2OGhA4nclHjkwcaLq8uWMKjzeU866qkCOfInnjCv4awsQ32mxa V8gRm1kCOiGlDz9L/k2f5kaOyKVr1nroXoTnQjwpSE/IEVWtudK6qxrwOWe6 bfV8cqRQmFTepqsKp5lmkhIbyBH7g8HnfFREeFVNfnJ2lBz50J8Z+rFAAdaW aBkGO+TIFeMfV1X0ZOGXx2/0xLNRIMyrLhvWjyXgXbLVlkkZCmQ+1zxkvU0E NpqLqFXRoUDEjTc8v58WhIt6uT/F2FMgvqE4dVI7D0xZ+77kTwgFos1gqTz5 mR22KNR8pZhBgXizj8rj+pjhD8+HUh9XUiBnNo637bUwwvSBrnGjPygQs501 WnUXGtjmNiFSbokCyeZZSvQ1ooSrjVIfhNNTIoE54lS2Z3EwC5D2HBShRDzu 7Aj4/9qCnE43OkmpUyL9mKuAWeoq1MhsZh1ynRJpiiM17luTIJ79has/vSmR ZsnAYRq6GchzKkRf7DklYuLYUm5RMA61dbFrPnhLifDLmeRv3fwFCX8uhrpb /+W78dEueqEfCshTOyMySYlwHssaoQ7qgXpjf4r6kuORcwzkV5xlOiBJPyf+ dm48wlm3eXTlcTMUZkfGLqiMR6K6fKA3fA3QiH4Cw30jPPKxziyqphiFFFTE 8K138Qh/YwrDlYlPUPRJbIfnMR65+Nq842pUKTTBaLzslotHIrZWqrVel0Dw 9vRUUy0e2b/70WqC/DWUMB4wyjmMR56cFj6V8zUbWmhj7nXexCN9nKuER2bp 0PmK19/qmAlIDQev6vOpBOhFDlTPJkVA+D6zl3gPxkLrT7oqbl8kIDD/jYyw tseQrtettzW2BOSGEPP7xoyHUK7Vbu6xIAJiH4C70N0aCO1rx6bbpRGQsWD0 4SdGH8hEUfhZZTkBeb0wtjws4w6V8Fc9YugmINeoeP2K1e5CVPT6QVYLBMSr VikrWNQeMhUxwxRoqBDCSJprAGoFFajZHNAKUSH5xs/abzJcg3avOcOjMBXC POhdH+hvAul6e/mXXqVCAqZF7K9ZG0CZz4Krw92pkKJAU165wYvQ8puoHfMY KmTG74mDWfk56FxrwlnpAirE9gXPqNUcgBImMr0pG6kQrpDs5zGxStAUWeGn vlEqJHxNwWlnTBY6y/1xo2ibCvl49EUEJ5kEFKWEKgSxUiNs5L0zQ7AwNGLY 7GEsTY08uSX+sJOWH5K+2/3h9CVqBLZQrqJl5YSCHw2v7NlSI4MfBxXjFpmh nleTsl2B1EjkAcFkxIUBEq5dcs1NpUZqrwam/VCggryGdt76lFEjS+SDFp0l ZFDLBp6k20mNMFXddgyZ2iaeYGaSEpyjRm59cvATv7dKdJbkdN4g0CDJP6SX FekXidgFoeJWfhokm6jvVPloknjMVnIug0iDhFkyTET0/CbaBCqJuV+hQSyO a3Fe2B4glqWq3dZyo0HuZQ3c/mzVQ6Qu184/8YQGKZIs5DrW1EY06zKZIuXR IGK/1l54yn0hFs3fFGmso0HCzcLWv3jVEvepHe2Sh2mQFv2u+QGtSqK+kMer O5s0CE1G7MhrtJSYDR6MqzLTIjedI5LMXhYTV80iBdkkaZE8nmdOt5RyiRqe 8VYzWrRIRJqAjFZOJjEhNj2rxpoWedks6s/9J4k4VZT3Ky6AFnljBgpjE+OI UX+qrqt8oEVaPapMjEtCiT3642ZRvHRIE7dneCTkQLQRkzeUXKdDRmpfUoi2 yhBDfvWqu+UcQcwmj5Zcs61WGam4dMer+ggSfaJ3QHLhg8rZeCwh4McRhMG2 LY+5u0SFpFEw/YiKAcHZnidbz89UuV7oH5PjyID86H/c1whCVM56Cg32yDEi 2R28WXF+WipbeOUKLismJP/kdFr2tY6zb1PD9AOWjyKyEzzlv862Kt/NtmEa N2FFQB/zF60cDcXrt1O4w4PYkSDB4aPthuFnIg08leXSuBCHk7c+NVt5y1Cy PJ94sM2DLL3kkQgYxCR+tj4khTLyI/VVK8EpR8ZPG/taKaTUCyCkRtTsftqF k050swJtZkLImQsEXL19Eh9vYVMCYeYkEsnSZmmskMXl+0ndkDFVBDmXwu8a zdnN6pLrVKYgdRoZvBRwT2mXkomeXNFK8q8octb1mrLMdz0ajTtGz0XjxZHM Il29DsqL5OwV3Hc1hCSR//0fEOcWESv9U+o/Xw7Tk0gvk/7Pouahxi/9Zf5z 7wRNdryx7H9us/qreoxX7j//pszbfC5w6NVc+zccwofmmJ09wS9xaJt7yxtS KofeDjko1rlyaOFXHJyRMYdW1hzsoI8/tPZ0WvjThEO7SvCtJaYfuvqjcEdu 4aEvN8mFNXw5tK39GlGr9dBetOUrrW2HTtc9a9n949BTvQhx7M//qdeLfMV2 8tBHuBryp2cOLXtD8/jS0qE1yGja3NcObZrTErq5eejbGlEqfruH/p//KP/5 /wFCahpD "]]}, Annotation[#, "Charting`Private`Tag$20771#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nk0VV/YOPDrutdMSiSziMwZynTP2QeJMoRkjMwpkoTMJQqpzMqUMSFF lDnnyFAhSsaMIbNruoaMv35rve/Xu/949vqsZ+1nPX/stfb+4xG0u2nkiMfh cNL/wv/fAyf1lvf25DHc/6wJf47V/u1967MOr5f/3beAsvvOzZV9f3oUSzcy sW866R4+7Nu+4z1tdO6l7Ps11e0cnOK+iY5acket5P4zW2+ja1aM7H82qk+2 F2s++Z/9FyDX6DGZ/1xxJ/l60QXp/X5jLwnsJkliCYt01qFTd/BaaR/1tefE MRf83nW/Kh/63M++3bctxbB+MYFPF9wzDliHxrO354liKahnoTLdb/YgG+q3 jGwi2CmMnPRg0IgbJ8WPajwQxpAcX/LnXR2BX5FJYa+7jmFPxzpHc79rHedh cM6nqAtiG1S0fnIZj8VcTokT+3n4Mb8kxflwkzope8WhvPp6bkyacpWR+6mn rLiPyp5bDidmEKamwKQbppA5eLHBV40dy7li4esldFtxMpidpMV5CHMpGkhn XP+iXJVwQnPKhBl7n5ukXf16XJXOctKeisSMVSlAPg/851RNBHLvcwkyYyMb xI9o0orqcoEQpjvLhNkZXeDnuYcniWF8qu/uMmH1T82iHqoJkJ7PHJb1y2PE NuxSBPoxU9JE0c8LcU8YMZmmvXragzYkBa9Yt0IPRoy3S20144MjqX3vQOEQ iRHTVoj8xoXdJtGwM4pq/GDAUlaoG234o0nGv75qXi5jwAI4Q7fPpSaQstLD HbxSGDCl0FdDY+RUEixOk/XKkQHTr35Vk9STT3q80IBh5xmwoNZavB30jvTr fchwnwwD9mLkrmXF3zLSCT/13eXDDBi8FSAXnVBL8gJUvEyb9Njh1ydfwpca SJ8ImOrxYXqMTYVTUoiqhcTaHGQBN9Bjt/vEN1ynf5CsoyBf03x6rI2xxJ9S 3UMqNN5+5v6UHluTkHlXc22YtHm0uiziNj126tFNupz6cZL2sG9Xlhk9ljPP c++MyywpMUeJUg39O68dncnHvkwav7Z+qOsYPXYw5WtqYcc6SU6mTJZMS49l Kx34HGK+R7pH8TSgnafDJgm8rkHJBKitUv6mQAcd1rx8AdlhYoS47y4/US6n wxJ8JUqwmoOQ85l3hUapdNga97TssuoRqIzevcUlmA4LI/u9OOvEBxHapWdC negwV+ctgt6gEGQUP0/3QocOQ3Rx7/XIYlCGeaFo+Uk6jEq6brBt8iRE5nM5 +52dDmOgN9a/SzgNkcbFHKc3aTGD2IpH/jkk6FH+VAh+hBYLLkPxUynqUK/b qyzuRlpMwmDjzxFRbUhEwalOoYAWI/9ip+m+cAHy/Cs8ohdFixk1Y16LmsZQ Xe3YrpPnv3pf0/y7lSwgltAs3nvmtNgtZcnKC4s20OVztqQkmBYr+j1d093v CBWwCFiWCNFiu6RRnSlJV2jj55BvCx0txpmgnXFeyAM6m5T2fHyeBtMPykw3 vXgHire+XL7TQYMp2V+Uc14LhEaFuLs5Kmgw88ctT1uUQqCT030UmTQarPqK id31rHDIc1FK7EgoDZY9RRF9RIiCKtaDrXav02DnOX5IM92Pg7Z3u2L+GNJg etSGMuEhzyE1GvGmViUaTE4tjH+18QX0kDlos5SfBqNhfaXfqZMNNR/ukE6h ocF+2xYqfZXMg1h4ROzvzxMx86zfpvVqbyEjIb9n1zqJ2KjBj/NXZkqgRPG2 FoNqIlZa9bQlKKMc6pc9hlPKImINNwL6ff0/QgLK3gr8EURsXnXmtbrNJ8gB aXamcSdix89bpF4ebYLytPjS5k2ImBZjR4OuTys0p+/xoxMiYumXdEM43/2A Tpo0EWuEiZh3W5zyhfUuyMuKSyWbkYgtq9wU/wP3Q1UObm6PlgnYiWUqX9Pf I9Cuy6esW30E7Kr545+af8Yh9dscPWYYAbOr6bzM2TMNPfS7zoi8ImBMREfy mbkFqDm4Fog+JWA/NyqTlktWoAMRhzxZvAgYMC5ujj+3ARlHO+WtWhIwvVHD pOMzO9DzZ1UDA+oEbOlSjsODq3h44AXLwQYxAvbiralpRDoNLJBrp/malYB9 +NZZvPeZEXZ4U+Ybu06N3XoFxzowHITz3zO89R2ixpRlFJl0Rw/D5GrrUZtG aszGYeHF05ijsFx9CYd2ITV2yK2/vl2TH/ZuptGRiaPGdOwPdxC4heCqHxZ3 OfyosavcRvOyRqLwbu/b0h0bamxUfueBrLskrD6CnxrXosZ4d0WNbYxk4YeT Jjyt0tRY4Ah3RPThU3ALucCglJ0ai4KpyasZyjDr2m5o8jYeu6u4/DVVAMDG O0aVwWN4jLPoQ4HOqDr8nPBq3rkZjwVxvbdBx87CA4xbggbv8NgFdsuo1HId WIDtgoniczyW9hS3Wl9vADtyZT/iu4vHmrSsGCPUjeECwfVaohMe23Mgu8Z7 mcHkEzorc7p4LHTiC9f4XStY7mS6aKc8HovtFQgMbLSFvRVXLKu58FhKDc8c wcERroK1orOo8NgJVk39lxXX4D3NlIaIKSqMuW+vs/mPG3xGb2HDvZ0KY30c 8pLlkQccbqwhZVZGhS3UtL39quwNt1o+swVpVBhCV+Fi/sIPZrWfTRAJpcIq cDsm+L67sPF10MzsQoXdy+qVvkUXAifditulGFJhnkmUB6uVD+Ehn0m5ASUq TK3eJZqKJxI+dk/1aj0/FeZlu23MLhoNO4VFpRTQUGFmWgfL36vEwQVPx9pj 5nGYW3Tx+YChRJicoEjw7cRhWppR3wskUmD5tEglm2ocxjU9TPzFnwH75Ay7 amXhsAytLnEvvmy45rV8pnQEDmOpsErMeJkL40rDutjdcZhVvsTBxNYC+ExV P/2Oyb+8lt+W/tsi+G3BS+XPqjhs119q5spGCcyZcvNajAAOY+MYCTzwrgy+ H6mcZEnEYSK2H4e8earh7nWaWJ3OPfTuCcFMkhQGF/QmLw2n7aGjjJHvJbXr 4aBKaUPPq3toY3CXwldKE2yU/KmYTnYP/RKN7l7VbYGP+5uwpm3uomobKanq p7/DG5YzN2UbdlHauWtlJao/4VZSUHvjk13U21tQ+GpzN5zBe0jGwnQX9aAE 33b9+wv23H35lCywi5pK6Vi7jw3D2sPK5PszO2jDB+vcnJ+jMDf2Te/I+x1U Rl1yQkthAiZn2L55HbiDPqxnoBc5MQN/Cl5lQrR2UBdd0vRAExlOtItw7WTd QSPwLKSv7MvwNQ3eVudf2yhKs+xWobIKk4TfSexkb6Pl50vInOMbMCtRMzLm xjYqVRQUaSWyA4//6Z05rriNMtv3KN9mogIVTa7nq3Db6I40cJedpQaPX+EK 9Ju30CbLIlw6TAuuhMfTj8VtoenRL3iYOBmB3LUT1+5YbaHk8s/TIpEHAM35 mi+Molvo2ogNl5DpIfBL3OBExuImWtwdwWqtxw7eMo6HKVRtoo8csz49L+ME 9+fuTH4J2UQZznBfImbzgEvfGLWs9DbRX7BVpFesADjxNj13iWMTTdsIKL11 QghsP5WneTjyF8X/diGx8IuA7zc/O3IV/EVj6SSlDUPEQLaBZePb23/Rat9i qx57KeAtuyCsAf1FV6MOke9OnQTnD4WE9tD8RWeljZ89cZMHfCsc4y7fN9DL 3dvqF/RPg+WfBRq45A0U+xGQKBWnDJrew9nx9hto6t8G2cFzEEhK6MCLSW2g BiHG3gBDgKu3k93HtXW02fAMbCukARDTzTpDbB0F781aiT2a4LDSU8GJiHW0 dL6ht3VcG0xxHgv2u7iOurF1Hjc31QU1fz+MsPCuo4Q6nhB5XgMQ9esckj2x hjpo3hLw0DMCdtWD6YrFa+jzXb2C0HpjcDr11l6L7xranvOYWSXMFDAEEq/Y aKyh4YxjY4KZFmDQKqmWwrSGjvFm8qZwWYNiWIovonsVVVrlzVvatQGh/HWB vBmrqNCFDQM2CXtghrs0+O7aKkrpkxf+8swRSP6eIp2VX0WdeTub3ug4A9yn gNRf2xR0sob8clnPBfzMYt12a6KgXz6WT1jnuoHckBxL6mgKyttLrn0rfQv4 OShVPzOnoCW2XcV4+DbQ12zlkhSioOF2ug4HH3qBYyI2ftjcCto+zy4nwOQD 1mgofcZlK6jZu1313i4/8HUyTHn67goak+HJrDMdCFK/cCcFnltBT/HGm/vn 3gPu+UUbB9lWUGp6s6N/Qu6DkyxuIeojy2gnw+cFVddQsOQhyXL7zT+LMu9s 3HsISnpmnmf7LaP4pvzggMZw4EHKF+rUWkafDGh/M4EigXzm1bcE9mW0iXr9 xLm5J4BCFFE+NbqEbskVnxdyiQZe7Vn6iQFLKJ/Kpgh7WRw4rWDb13RuCdW7 GBbqG50A1p7zO6xzLKHfBf89VzHPQNnOIFl0fBHlzhxMXapKAnfsUn3N3i2i hZ8KRZhZU4HSZwtCRNAi+jckvQ6JewE2JI5GVeosorfaHFlzszPAyozEuVOt CygU58FYmJsNPN/nWSc6LaCeE7/bMo1egrXA457ruAXUVnt+aY7nFbijlRVh lkJG5XKUKvlo88EGK3965SkyemAwrbz90Gvg+yvlPdf3eTTnZn7BC7U3YDOb s9n/+jzKG/7utExCEdg+fWgVSp9DZ+hkepLMSkAgLoohXXkO7XKZ4AysLQW7 XxkFcJ2zKOdvT5pDKh8AlRVR5xPdLFpY5+LxzKsC3Be5byOUPYPy2KZbCSlW AcLirlcoNIOeXUDjEw7WAJqQjYyzHtPoDXMJzX/feBCm61X2imkadTnRXtjH VwfoOJZb6F5Noe0aYxt+ap8AQ/7sWnP/JNrw8bdF8LsGEOnhzCTpPYmSX3ph N/YaARPpj+AT1km0+TisqHH5MzjQPqR7QXMC5dnse2at0Qyin1vaFQ//QWNF Yo5MfmsBh+x67xz0+4N6zBvZDlz9Bg6v/sj6+XYcPWUulsrk+B1wcjdumHKO ocArZKH4WCdIGldjqSwZRQl5MdUxwl2A622tEJfeKBq2d8XhgVQ34FWr0B8I /o1izDc+Nl7sBRptJufquofR54Jxz9HpAWDiJJTZEdCHflxw5PZzHwOPbt0O j/3Qi5p3qnmIHBwHHwPqbxqRe9DJCkfyl3fjQDjOHu640o2KwzPR2Ut/wDKa 3f9D/SeqwiREELWbAiItK59i/DtQKV92Mda/U8C8W6PA8P0P1Ogk+YbEk2mA zY35/Dj+Hb2Ze6Qh7PUM4JPXlsw62Iy2jFfCs2Vz4MG5qU3BkC8oM/XBbX+p eTB3JfxrJqUJPQLIt/1fzIOL3ieeCzo1ooEqCjnJ9GRQ9fiLU2ZPPbrRVDH4 xI0MBLOdTwme+4R+LpbmZf5GBuGVdITMKgyt90q16RReAEPphi/VzGpRZpmO jWyvBfCmNUZdTbUaPaRp0o2gC8D/749hhK8CtQzKdq7CLYJzIocCEaoP6BDc 70XLtwiOXDTiQsbfod6faT/fUlwELXvCN+8+fYNSbjyxntBdBM7mL/ODjF+h VpHZwpesFwGh9Ph4IFcmStPivlXssgiQo7rQJpaAQo8D2hc8F8Hi8ySHpaT7 6OVAsxwGv0UQgI9vPKt0DVBJuKbt/LN0sv3nw6ejwDnCT/yXO4tg6Og7MuOB VECEz6i7ui+Ci/K9NQ/VcsDAFn5uwWERlPWZ3g/zLwAKIgOvLS8tAmZsVqjB ohic1obharVFAOJeP2y4UwoO5wfZ8oovgltOLtMN8WXg+j3H+jiWRZClLKHb +K4SBMlodDsOLYBOptm3jW01IDQ/Dgg/XwA0IwUHm2ZR8HhV9lni+QWQan5K xT60DhQ3iFesrpLBKY0El7FD9eBDWxl8N5kM2iRXU+0zG4D1m0jIS4kMcLgP e/a1n0F7s6V1ve08SJo+LDuu+xVAt504SufngNxPTzuH/mbgBsYwyHMOOOQq NDpsfAN0St+ZPD1mgYOIRaPc0Q5Qsj5iSANNg8+tfY/k/93rpNDoTn+LceDs 8+uzpUQfuPmosUS0cAzQCfcTQql/gVbukEfUu6PgvP9AUGdpP1DYtqB0Z/8G rWLDHl6Hh0EsS9SvNOoh4No1XJQ2NwwEw+NyZz8OgIeI+5qd3Qjo2Z393h/Y D0Tn3OUjVX6D0vPWJx+w9gFnDY83/TOjQMLO5m17ZCdQSlpuWTAZA3sfR0MM gn4CugWPGer6MfDt11T8Md8OkJ98W1QyZRzovHtmdCH8O/BbXNFEaP8ANXTN s0q5HZw/6+lgfPsPKJl8Kqvl+Q3MLHlmBuhMgOBH8fKNvM2gSmsVjS6fAMeC OAySHn8Bj9K8hnKEJgHi1DT3kukzkDjnzf1taxKMMG4UpoAGsP1iTfn31SnA cRlHi1/+BFop3marP6eAU9Qb3bT3dcA1404Cb+E0yDyxuMDYUQtIa+ulspwz oIevUYz9fQ1g0vXp0AydAUXilF7n0iowkLmxaL44AxxZOdIF2yvAm3WfA26X Z0Gk07M+Q5pyEKT3V+r+l1kw9yVZi2j2Aehn++omKsyBmxWKKer1pYCs7xdR yzQP3o8QtB1Hi0FtzuarDp954J6pY/DsRBF4uunXNDE+D+wEj27fKy8E1gZb 45sGZCAsHHAu8mYBkMn1pz7wkQwM6z0HavXzAG57S1BIbAH8Xb4gIHExF3w3 DEAUExZAlfD9pUm/HFARVFtbdHoRcE1bJf+RzAQZ+bvfKl0XQVWGQeHRq+kg vBMerM9aBHnn4wmvClOB+17Q3LfeRWDzO5nCI5oMzMTRrR6WJfDRQ+yn+s9n ALm0xzB6ZgmweF3N3n2TAE7cA1xzfksguPPS0KX3ceBvF6qEm1wC8MX51sdK 0WAUh9Nm4F0GVx+oMsjaPQHNEojp4YvLwPXZO3eZhEegxOSeE1/EMuBbbzpm RwwHycGY1wl0GSjnn+699PYBuF+IeyC3ugxypIQTuyJDwPUeJJ4ksQKKaGGr 6aRgYIQPzj5ruwKoqpc18/PvAhWpuhKDZytgxt1GVcwjAJzq7E6s/boCetvN 9V3LfMFJ/zk/ye0VEFOpUDSteAdIHMNfSZamAKEDPVyzS55A5OsRDTpbCjjK 5y9JM+IBBN2lRL3jKEAnU0nr6K474DmiwTjeSAGHrw1MRke7Ac5aswXDDQqQ ep7qQfFyAWyObj9R8VWQMhU/kffSGbAwhZZLWa0C8rnjVh5HnQBDaVJKStQq EIeqOcNa7AHRougu/adVoPLEySGizBbgqBrt71BWQaDPvBD16ytg69UvrT8i a4DyM1ypWOsyWNNflLhovgYmZqfH01XMwdIqkbUucg0wIYEjVAEmYC6VmyJd uwbs/ZaYXhKMwaSGbG/q4hoIG5KUmv9mCEZnztYwCK2D2i5xptjsC2Ao5nKG z6V18OUoQ68huy7oU/IInQhbB/ybHoGzE9qgczjM2bhqHUSjcD7rgbPg+8M0 3U9z6+BCJf61+gMN0CJVevIk/wYQo2qmrVdTA02dXw6/MNwArE8G2+j9YVDn P7TBGLoBthYd38HjKqDmGGXAt2wD7Fj6td0rVQTlX+nrJqc2wJE78VtqQwqg xJ3/5SXuv+BKphPPioUceHPkVES93l8wdaRkkSxwEuTVnr8he+8viGLQzWo1 kAQ5jjaG6SV/wRuDimcpnSdAOpP3KeY/f8GxL/yCSdhxkFwaedT/yCYoW6tX MqcXAokWmTtT5zZB8/kSsec5AiCGqvy3ScAmOGynSQsO8YLHea2NDW83wdWv JWYWVkdB2IXRfLnfm2DlvvFgBTcHuL+2/iSDbQsYJze2CyJsIDCN2YPl7BaY ab18vamWFficETIJ8NkC9GO/mCEuZnB7VkllpmALSHpKJ0Rr0AO3WH0+s8Et wMM+r9c1RQTXlR3wTQe2QbdH/YbCFh44jvhOyKtvAw6tDJPQGzhgExbVnOm5 DWgijiZKOW/Dl6Vfvj3wahtIVaVrS0ZswKZdVbGBfduA2Kt/rUZiFTYK+O49 y7gDQh829JWDZVhPaMLCHN4BDn3aZbU3FmDt5i34s/sOCOj1EjpPPwtr3Doo dCp7B/x6GNO2oToJw5yitNldO+BPRX+O1fIYrIySZlnpdsFGTZXwde7fsIKT UXuQyi6wo7rWZ2gwCJ9kdi6dc90F+k8+qO1x9MES7wOfWaTvAi+6s9Pk212w iGWc/5cfu8BU+sf1Ixc74GP4/CunCXvg1GO5nTXNdpg3v1Yj5/QeaI+V1CnP a4Y5DTpFD13bA7babQq/S5tgtvVpxnspe4DCS9C0NKiHWV7sLcx/2wO8HTaD bNcxODSLYUYKh0MG0inyasPVMN6bfcDhKA5xWC/Z+5FdDlvYFHRUKOCQCrWQ K5+wUrjkPPjKZIBDNAbvEnUDimGGU52ojQsOKdjyHKMPeA3b8V8re/8Qh9yD uPfAaC5cRb9bSJeFQ8IDzHU7abPhQ5TY7MsfcQj2MWTeIS0dvj4kmlzci0Ns PFa581SS4U9faqIJFByiZabXK12TAHOVGoaZHaBCkJ9e/ZY7MbBH2kRgoTgV 8iWX1OFb+wRuDvP3xJ2lQjy7dOWdosLhYx6sLsa2VMgmc6vXbbVQ2O/yS9u8 ACqk8Xbv5aiie3DHWRWz7WdUyEVW22o+L39YXLZd36CUCvltYOwcE+0Nh3A7 aOa0USH5EUNsCQ884AHiX9WNaSokGdOq7rJ2gxUWn8jpEvHIOfZ5XPGQM/z4 1zGxDAE8cjPPPM/B1AEebyjnp6jikcmOqWShFzYwqUiXQ9sUj2TM7/o85LOE 45N+M6V64BELZ3FTWS4TeC7Em3rxCR4x2ppi3t4xhM+4MW5q5OORRu0f3ntq enCqWcbiswY84vkiNKnokxZMUT81OTuMRwwW5psWNDVgXanmQbCFR7qrrEGT CoBzjlzpjOOgRm6IqlA90lSGt6kozZOy1Mg9a78bbDcUYOO58DpVPWpkzD7p 5a3Ak3BhN29FlDM14o5RiCPPxGFCXcnbsRBq5OOvI5Wb14/Dl19rvVRMp0b6 /L1ii1QE4fcJAymRVdSIBfMjyc9F3DDTvVuxw13UyOzV3/x8Shyww3WaCPkl aiSP0pfv3n4QrjFOuRvGRED6VYahplAm+DA46d0vSkByHlrHK7fRwK5ija4y GgRE1+yEjYAiHm5ks7APsSYgs/wMJHXWHYhvl2ze40tAJMxVe9JOrEPeUyEG EgkExFvvWnOg2zLU1sGpdbeYgCx/4vHq0puHRD6+gX62EBD7vOA0tzOTUNAr dQXRSQJCexclfr49CnXH9Ij744nI67MfPB6pDkLSAa6C7bxEJD1YjvmrQA/0 0ImKU0iZiGhxfiB/P9sBDRkkstwxJiJF9tY+a32t0GlVCWLLTSKSWDX4sb22 CXp6HNviiyQilNQ/1+in66CJA5eWPXKJSIhPf6qsZA0Eb05PNdURkTcfblik CJZBieNBw1yDROTDy65DDlbvIHIbW7fbBhGBs2rZ3ii+hs5W5rV+YqNBOg9c ozmo/xJ6kQ3Vc8jQIPljMh/l8jKgtScdldfP0yCN81/KZ6iTIX2fq8W1jjRI Q2RYbOb5eCjXbjv3UDANQjWpe7EvLQra1Y1Jc0qlQRiR4SPcyeGQiaJIfFU5 DTIaPCO5xhcCvRWsfsTykwYRp8X2vhcFQrRMBsF2ZBpEtyhuO49wBzITtcBO 09MilYaynKtTt6ACdYc9BmFaRHpe6GZ9twu0beUGD8O0yPNK58chqY6Qvq9P YKk5LVIuFwVv19lAGfH3a8I8aZETOYvvr6+aQ8tFj7cso2iRIF1diji7MXSm JVHlZAEtkvoif/Yj/QUocSLDl9BIi0TrjVlzrWpBU1SvK3qHaRFrB0vxaB91 SIX3w3rhJi3C1uFOT7hNgh4roaeD2ekQxYw6Fr3RU9DQxa9el07SIawXYmUe fD8Jnbz5872YDh2iuhSjJ90uBt1/NLiy40iHuL4TW6D+KgR1vpyU67hHh1BF fZ2q1OWDROqWbuWm0CHPWlcv50kegXwGtor9yugQ/WURNvP3B6HmdeKi/o9/ 9Yyei8gTGSEeNlYZoTk65Hlsu8SN5wTITZrLbZ2GHtHOLmLTv7xHws4Jv2kR pEdSgl99NOtbJx1ylJ5LJ9EjJu/Cq17zLpMc7ilJeJrSI5gCW3hM4CypLEX9 urYHPeLrI30zrmucRFeum8/zhB6xeuPqciRymGTRYTK1+IoeSa/rmvnT10Mq nLcRbfxEj/xg0ZbIou4g7dK5OCUN0iMV4qlVQtItJANhr5c3NugRxbgT4br+ DaQscHdcjY0B+UBfKyLYVUuiWEQIcUgzIJQqzRUN6XKSpnec3Yw2AxLORc/g 7vyOlBiTlllrz4CEOaSpp/MWkKYKX43EBjEgJ0q8JxRiskmPx6qtVd8zIKFH A/50jieQOg3GLR7zMyKeoSx3dOj9SSKu5CQbFUbkTIGXuQunJ8knbKNX4RIj 8pjkNfm2+waJp5bJdPARI5LFst22bm9DcpA4dVF6jRG5et/LCYRokMrOglj8 QSbEzTEtlFhLItHZnfvRLcGEJBjapeKOnyIVPre6cNeWCfFsV/GYbhMhUYgP db63MiEWjjQ8Z6QYSCEj3Roe2cwIybv1RZLhd9WhSp0bPjXMiB+fxshN/i+q KnFYYlAXM/Kb8uVwW3ud6qJmwfQjWhbkj/WdanmrUlXr14FR2S7/LPenzSIt UVXFW7i/U/4Aslqgttl21Ur1L1G5ktuOFQHbZ92aw8dVilMeGgQtH0SM6MCi eu6o8s0sB9ZxE3Zkfbnubfm8raL19WTesGBOJC7OIJ+a85VChKG3snwqN3LW 7OfCk/k0WcLhhIm7m3zIzeCBgiiaKamelgeLoQcEkWLBvsX4AwfFL/nbnU6u P4ZUu54VZbrmd9yVcfZYm4Uw4kvJ3JkUaBPgf92USDNzHDFNsz1wwayP279C 4+KBFFGksZsz6xD9QQ73XNey0zJiyKHc64sfbc+yMuEV7aT/iCN9iYUSHM/j 6TVvGCeIx0kisRZSaKpDPJ6zkvemprA08r/zBbEe4TEne2T+s9HDC1JpZSf/ s7hl6KWcQNn/3D1BnxV3Se4/t9n9UTvEL/+ffxNebSQc2zcl17noqMi+j87O 8ghK7dvh9vK6jOq+N0P23uiZ7lvk5VGuiKh9K2v1f2eK27fudGpYdOK+b0kJ rD5L23fNB5Hvua/3bdQk/7Dh874dnVdJ2i379mEoX2lp23eavortz659T3Uj pNGx/9OvD37FcXLfzNwN+dMz+5a7onVkaWnfmlT0bZ6r+zbLbg7d2Nj3dc3H qgHb+/6feZb//P8AgEksGQ== "]]}, Annotation[#, "Charting`Private`Tag$20771#6"]& ]}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-20, 20}, {0., 2.4193602864417216`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.7852026378596973`*^9},ExpressionUUID->"ab42d5df-f98f-46ff-8df7-\ 711931c53f51"], Cell[BoxData[ GraphicsBox[{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Gk01W33B3BDxmM4M5KZ1MkYEs75XUcqZSbTnTJFA4VMGRJldlPKVNJd IZmKBpJUuxBJGTJFhmTIFNFgKP73f63nOee53uz1WXvttb4v9pt9ybn72nhy cXBwaHBycPx/jRg3n19b0wKO/7yxcOqPvt9sW+AHfz1aYltWz++P7wLbL5Mu 8Q+Nsc2v1i0Nb9lOD3Q1jbrKdglnQD6HLts8nsZbJQ5uZZnUU38896Imyza1 2Yc2N2mwHD7LOJ76WZ3lqlPZXmWWauy8l+xkV6+osGx87anFnmkaywUNoV0B TptZdo5Jp7QUKrN8xpX7Lo60kWUOVZnnRrGK8KutcaijLVCg9+8r8SWd8pAw 4lCz9aeV+AbBo0Xfd8gBDT4taJwUVvTWofH0bZABQ369QbgVqHZId6CwtlYS Pt0dtorO2beNFqK/5pMvDpOzIjVV7ZcMoN+C9jlTHPipeQ+tm/MN7I0O2Tkk isNHAZ7Dep2VBudEkkuQjzjkVDXt01jtNfiQ3++A3y4OdT6SqUNBcvSEtqjy e2/EoCw/QGIo8BZdWjejT+mZGFyendS0OVRBf5hTxJtdLgbEm//wt6jV0024 nmmK5IkB4UvPeseeDvrQkfYD5zLE4IJk5NOLbiP04Ldj8T/jxSCxeaSronmB LqS1ct8rTAxcCcobzm3gZuReFh0YOC4GXgU/suRtiQzdVQWBfS5iMCh83VPi lByj+dB27QZrMfhbek+eYqIGw/21mYvBTjGY2PzDyngDYiyquSWVbRODtxPa lCWSOeN8elCFwmYxsFwyb+XhdGIoLicOZUmKQclP4bIXk0cZ1S7/4IRExEBr 0MeNpyeYYVV/f1sUhxg8oziFCbXEMMZoDW7f56mwuGfFxqnzEuN0al/y0VEq BC+lNpTO3mAQf84++thNBRdtjZQWo7uMQqd1n62aqPCtK650+0A1A3shLlJf Q4UZul+PyIMGRsdGVT29Mip0ZnwM1KvvYHglG3rcuflvv7+wm0YdZnDM212Q S6cCHh/TKmg2y8hw8KrOiKPCi9e3Gcnjywza0zOjAqFU6A3QdBxZ5sVAPg1/ xpsKoyHhp/6OImH2CbcN5g9SQd//0FrtSVlseubJ4cNWVKD83Tj/OWULdm5f 68XeHVTg/utGQvfsNkz88UiNhQ4VqL9vqsYs7sDuSi+Nv1SmwssuesuiqiW2 M0aYpLueCtJ9CuIOQX9hvRNyWIkQFUhKTT7Wtz0wP8ttx2TWKND3q/vG1C0/ jLfCJD3tGwX+nJDTLy8Ow66ud3nON0KBK74JTS7bYzGNqIDJ8C4KtOYN10g2 pGKvRuMpc40UaOhU+LXnQDZ2wDSH6fGEAlbmV41N0/Kx+fJy7547FCBsJMWO TpRhCdT6TLMbFJCauJbslFWFSZ/+8AIuUaAlyQf39v1L7OGnmWntWAok2E1/ 7clvxkyMucSLTlFgF0eclFVBJzZUSjWS8qJA5QpuSWrHEBZM3OJz8QAFhF/r gLLRF0woBF3hsaTAeIW34LPf37Cb/fvqQg0p4BsuoPI2chnbOrJ1uUObAolm 936FTXChukmChsamf/PcD06d6hZEdt/mPP+WpIBhvFbRnW9ENPar5eqYCAX8 j5QFvclcj06t3m0z5KLAZJ7wjo3n5RE/z3m+az/I8GB2qRhgM7qCO8FY/EIG A8acbWi9JqIRzQL2fSRDwcYok/ZD29ET8S1Fd1vIsNEt6XBePhOZyQgOCtSS QdRF9aBO5m7UrzRB9qwkw5kmaQmTcAvko9JoAkVkMHR8mv4zwBatbb0dJXmN DPFSjk+sTJ1Qql5cZXAqGSIO61ygbXBHckzP6bbof925hWd89Ai6v3unvOop MnxtnpYjHPBFRuYKjgleZDB/MxDZHxSIOvZxnf988N/8ullzOclhyHP/p1rM mgw58RLdP2TPop+usHRlJxksjtIv+y3Hovgj19V/6JJhjhgsi8MlI3GfM55W W8igcGArn2/TRVQcePBqiTQZ9FKUkrz8M5FBOL2Nl0gG7/nnM+2bc1DzWUk+ dx4yrNJ22hdfvImcE5bpTxdJENA5OSXXfAvNnv/gLz5NgkR61KZjI8UoKqOq MGCQBGJZjyT5IssRISdr4F07Ca4PGh3hkH2IcnODybRXJDAp005T96pCWkV2 JrGPSSC6aV5bNPApqivTjhoqJcHuUxeDcotfILtKUqXBDRJs84ySUyLVo7Ga +anMNBJsuRPybHWtEZ2qbZObjyPB6T1ZT5Ij3iL+pnIH8zASnHiuQB81bUNX Wi+kFJ4gQW/Jp+xllQ5E6/ap5XYjAXdeUzPxSDeq6TdfcrYlwdybcju/1V5k PqKiXm1Mghf8GQHWPwfQwCTOk2JAgvYJE9r+wk/I79tktp8aCfgcv/wQ5htB l1YLeZUpJLCq/yRcaDeBFHgS6Of4SVCgKkP2MZxGD3FH/PtXiGBYqVdtaT+L usSVBtKGieC4/4rE6YV5dERmHXm2kwgxAmITXcXf0aLS570mr4lgY9R3qurY T7Re62YFRzkRdPtn+P6aWkIlelFTTnlEENlnNfEybwXRmS5yjzKJcFjGoVHX 8g9yNpdKORFBhBK1Ne9t2hzM2X2/Xzb6EaH+n05Rv1EOZtT+vkUFDyK4mDYq r4vlZBLcqtUiHYhgLve+PgzPxcw9csWj14QIO4qP2/4Ty8XU8gnJ1sGI4B5k H5o0zMWsC3RoTdUkAtMuQeyxEjfTPnwb77QiEXpp1gtCFtzM8bMUurE4EVQJ H1M/7OdmCkaUzaYJEgGy3/Uf2cvNVAvZmzf0mwDXdY9vfirGzbQJ+GyvOksA v2PbA9tfcTGDfSIEwz4RwDerqFHPkYuZfUzs2av3BLAztTUkvONkPvO4d5L0 igC3BAgN32iczGEXUyXXKgJsr4017T3JweR1Gu0pLSZAX0Z/i4bZGqLZRyYv 5RAg8SznU+fMP8jCWoK5+wIBqHKvBSNer6AMY/PbgwEE4HCj8ATwLSJF7Yog IuPf+a6UmpLsObRH3XKzizoBVtyNUUjjDDpOm/hYIkeA2aY4K5XESZSqFJ26 SCJAm0akevPpcfRQVmrnLl4CjBhjiUq3R1CP5KNfFxfxMLxRJCBVcBj9plqX DEziIaRA2kLSahDJEqect/TjwSBaV7L73/0zEo4lhrTgQXBBs2pQuhsd5pd5 VfcCD7ojddZ8pe9REvfjUMJDPBwX+rgObrSiu6s2qs4FePC6tMl1dPoNal+a Hiq+jIdlS1/9m6YN6Of3uPRfSXgoODBRaWBRi9bPye7ZGYEHpkS77JvXzxE2 Vb2S6ouHzl+zcS1rj5H7mG1Zvxsevor80VqVqUBxn76602zxcIp6vdFY+B4q /phAPbUbDwRy5b0VxxL0rlu+qXY7HsaXjlN1Xt9C8+01EfgteGje+G7tPeMm or6z1zwohQc/cgfu6IarSP/13EiRKB4CRnBv2lUykHNd0uWfnHiQSqm7Q/NJ RVyRey/HfRGF2FziVLxtIjIJiliTeSsKk+lrqNIzGl30vnf48T1RKLLs+3og OgL1uI2+tckUBXpXmIqwRTCSdZTQmQ4ThcLLTSnSz/3QUQvznFgXUTBqSmmz WjmKynee5ZbZKQrfezNMWs65o0X9Cq+qTaLQkNfiWsh0Qkhzos1aWBQav34d X5jZh+KUpfSmvomAaZuKuOAPM/ROyvpGTJcIVDRQBjaP7URUciyf9BMRsJ1w teVYZCBnwcc+j66LgN3ZuphcRx1UwDHTaRUjAro1xnsKdNTQzE9ZxuRREVBO UWyIoCsh7Rnb/GhzESi0OX5crUgKnf6cgJPaKgLG2gU6M2lkVPehxr+SKgLd xba1UQeFkFDr3AfLFWHYWu78cMqbG9m+UjScGBQGjs7Fkg7vZexqjWPhuTph yOoQeZDZ+w0bvp8suqFIGBw7MIG4xXGMVgTBFSnCMDP/W2N8cRDzv/6938Jf GJrlv4o/UOvEqjM27fpiLwyuurhvmsNvMH6n8UOcdGEo9E4XH3F5idnLFpxb LycM2el9AbvxVVj+qMdNLV5hWDiPP5VkVYbNFyuA2ZQQSB6aTSejfIzpNzzg 2SoEx2yfp7znzsbO69z8c6ZCCNDrDwcvX03FPi67bLicLQRpnDHlQsRYbDNI G9yLFALlwlsntFPDsODY/r+aPITgJh2tOeb5YXUmOSGf9wpB+Gm88UqFB0bE O2X9VhOCGHI1r9g/f2GunRKVFLIQNAwbGoSetsTuZvd0qC3hoPu+44yavhH2 2yVrwXgAB/drfS9H2eliJkr2RLdaHDjpKDGiFVSwy5NkzbBCHDyZv6A23SeL jZW9t0xLwUEwn7HYCpGMaQdd8in1x0HsXuMUE+DDzulbp9Q74MB3PK8senqF 0bImWjpAx4FF2pWj1y3nGBvq3zX9ksPBsRNbVCxnhxleSSkTeD4c9PZXxft3 dzKqLM34adOCUFAZXs0j8JrBS8EpG7UJQumWl1Kl0TUM297Xuw5UCkLquTEa yJczcq8neARdFYQbtYrhQUq5jDkP4+jzUYJw/Y01xdA4nYHReHNvewrCllcM 37CYOEbybB2AiSDkUH90nO0JYfQ+jB78oC4IfjM2D+oY3oxNYTtW58mCoH+3 /UjTnYOMIMQpJbQsAFLRQsv5eCvGy3VgoDQoAIm4ub2KewwZ+KYz+7E6AahR POcpG7qV4XyBEepQJADr7jonbbquwCi1/Z3ld14AePEOoVUVZMayxJPKxAAB EGw5dsCuioexZzC0M9dRADJcj+FLc3/SM/O3f3/CEACJ6udVZX7j9JFjv4id 8gIwh+pOPpLuoW9Vr9T8yicAAiX35q8UNdKjvgda8c3wQ6ac2e96kcf0d4+1 fGXb+WHxYk6yvVkRXTJyPkXvET882P14Sc7tCv3oznulNjn8EPzK1bTWLJFe KeD3xvssP+wYOuB1TTSUbpM+w/+PKT/Mjynr2Ms60m/8Var8SIMfpk1C02/7 G9O/SnvvbqXwQ8b++O8L+dvoSUVformG+OCtu2FrVBWZ/uLZ59XDgXxw+SDM fyK1GmhMfPiufo0X+B6MCRqm0A0C51Q3i8XwQsTJ8ObCSJpB1a+zB1e9eOFE xUmqepC4gSEv7VXzdl6Q6zvWpnPmu76NQljWsQ4e8M5Pc+T8WqwfdHC9fh6O Bw5dl+7Y20XQr27bH0kN44Yinfd7zO7Wb99Z3Sfwx54Dgpr7XRIj3ur4FZUt EkgLz49s1KWuZmSr2h9WuNl++sPzvfcf8qgovlZoaP6QpLWvB+Xd7x1z3S0v rq/64r5V1gLartt1sSlbV4ArmPLRQ4KD+d9zmU/I6qz7V16Wo4e6jPzzhFku vxpndWaewLJvrgd+xJ7CsrNXtlT8WXGWE62D9bRyJFleR84Yi1yWZrn7Texc jKgcy3bh7tuya+VZPo6bkn+3X5FlmZJXmbyTSiyHVxntE72qzLJfwfHKbeqb WRbi0nVXG6WxvOuEbQYtTYVl8cdSvrsU1Vi+5J9wUaNbnWWbOEvVa5UaLNOc YuzyIzRZ7hoTyE2z28ryO/dRQ6KMFsuf1t1ezJBn+3vB0TKJjWxLTE1tkFNl 2yNg/pe6AdvL0Wt3zB3Y3nhLYn3iBbb1jPtahdLYNpvIiU/NZPukquyPrGts 11RsbC0oYdvmlVZcXQPbnkd/0Pe8YTtE8NHCm3dsX7PQd3vfyfaXLiZ9+PP/ 5A3hWvAcZ1tYsq5oYpLtrS7GYt++sb2LU+Bd4A+2HfOaYhYX2fbalWxw+jfb //nvYvn/AF3ZBeI= "]]}, Annotation[#, "Charting`Private`Tag$20823#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2Xc41l/8P/Dbuu11c992RhEqu5D7/T4kkWxFCw2UmZCobDKSaJCkMsoq RSWr7ldmoYxKUla2jDJv+/f5Xdf3y/f8c67Hdc51Xs8/Xn+c6xzpU+esnBgJ BEIGA4Hw/+fAIdOptTV1IPzPGLxMmf25vGEzvu75NwsbltL2Wjk3veHK2Jts PYMbZlP6vgk+bfi274kDIakbzmfwySJobpjFyVBNxE5t3QLtNe4Ziarrtqq6 d1qhXmXdlycx94Q+5XWXXLzn+txcaSPvzUNSqynb122Y9tbMaEwRIhqUU4bp cYQndQFtPscUQN1oddNMtyWHfcRtclPOVhAj7Yl9ErUiEHSCqYBTQA5st8ob BnPJiRN2SNL0I7fA1ngH5YQ9Nps7rqVE5X+TgYvvqbZD2rsVxTnO5s7skQaN 2HK3HLHPym47FVl+ikuC/M4mIRPKqMZpza6cqioxUNWTaqkOWNVS9N+95pkl DCUSlmOPi6Z1oNNMsS9JGDpUwri4Gtd0bPRPH7KNEQbBG0atrCns1DCeuHzk KQzOWt7cQn5S1B9ZnbZ8WsJQMNOY2O9kTI1uCXlR2CAEl/supOkvpVE3ad75 KftOCKQSGoYaNLOpr+7nEu+9EAKZLXqxnJOFVGPGd6o8mUJw0f1LNXNGObXn TOvxsDtC8JLRsb9Dp4bq92kwai5KCAJKcln09zVTudSXilwvCcEZRzJloLed mnGXt6vLXQg634+KzdN/UzVXN7NbOwjBfHRL8sOfY9TG01oadZZCwKK2rDra N0s99dHEQWevEJiGWT0buEHA6EonY5/vEgKPwxpjGmtsWPztC683KwjB9vQ6 vcxmErZlMaYnWUwIMHqn13ZdcazM4QEnF48QPDN3+XN1qyxmUVO0K4QgBOIl tjp+KcrYoGLdyZkpChx7zeewO1YTu5LwM+7sAAWIUppCGYF6GGlu8s2v7xTg tt/c0jC2H8s5xtxnUU+Bosf8wp0K1hj+XpinpoICi7lZSsx7jmNf5XZoaz+n wLbk4U9v6xwx1zg9x2fpFLjGYMnbftkTI0wduiF9mwJR24dbd5j6YXdsXcvu XKXAgaAup3mDEEzxbdAAewAFJH4Y2wq+iMJA5hZfkBsFyqS8I8XVEjGb6Gyd KTsK+BcV9FcN3sXGxsudnS0o8O2CpVrdUjoWZt2c2LGHAqr+Zd9dhnMx4dL+ CrOdFNhzX8h4S1oRVrBpYahyKwXUSnUf+D8rw/ZGcAtoilIgYDRGzoW/CusY kcbzuSjgHG9Vy6LSgHmZ73KRXCND9vdfZL5DXzDia+Pbt/6R4cvo40Cy+08s VdSBxtpPBkb72yUszn2YSojP6OU2MvwVOKT32eEPVjsQRf77gQyOmk3kav1p 7PiB+7qO5WQIuGFDSeRcwqZevHBrf0aGZTuhgCOTjHg0pSbJ5BEZ/jVuS5g5 z4FvuvLjPdwkQ8UY8/2jbiT8Ve/4mEYkGaK9OwiZySK4sSGjcO5FMvQ+eCP8 vlwa73lK0ZdwJUOsYejuTeHyuB9pm2ficTL4OpZFlgyo4Fz+KIXFnAwE7V+S HlRNPL3TujpAjwzUfWcTyrsQrtavtvhVgwxF9gnsHUcM8OpRfhUVeTIsOub3 C10zwQ/9++t0TYwMLIoGH0zYrfHB+abUQR4y9Ju/S3p86Ah+cbWgRY+RDLoC so2MrSdwNpZ41rRZQSCoe54eNnLGUzg9MPqwIHg4K3HvueCBK5JMfKx/CYKW emv5Zg8fvFx4W25BkyDsZ8dbTicE4CaSHN3sVYLg71Hw8/CHELxTdkTQqVgQ puO9WY4uR+Ke2z8YQ64gaF9velhWEYevqWWHiKUJwomzfCvib2/iCdpXi/0S BOGHdOlRzlN3cWldp7GWcEH4V2oEY9kP8aJ9e2V2XBQEH+vKnbSQLFzfdPPh aFdBMPP//KE4OA//as0Y32cnCGvuxbvGyIW409HeKtxSEPycAuiZS6/xuROw kLJXEFjTsSJ3rQo86sxD5VlNQXAYQPdekSpxYc8gJ4ttgnA7eDvPR+E6PM/X LjV/kyCUR/7WOerzCde5TG0hkv7LN//Xq7u8FW8MFWM9xSIIVquiIkV133H7 6EXqW7oAvJteYRXZ1IVPxv/wFh4TgN0yxFkf1j485E5Jjk+3AMR+brVbXhnC +e8nd31uFYCdvRbv/JQm8IwMP0HFWgFQHOpuGvk7havnHjKOLBWALu+bmxxL 5vHq5xohPU8FQLvkmNTFzBX8ULFAsc4jAehWIpjdD2BEgxVTf5JuCYCwrdVn oSUiuljVIj11VQCs36fs8IjkQmz1L2xNLwnAZqnvVdk5/Cil+cb1HA8BcAsu STJtISPF755VTCcFgPo7+efWAVFU0Wm6YH/wv/oXmCZ3xkoh0/7tymWGAkBc TvqjYLIFdY1yOpF1BEBQtiLcvEMeef0bveelJADfL+AzmceVEAP9Y3ODtAAU mNVckwhVQzdXc4hbyQIg2qHweHvoLrSZJZoaxiYAcpwOme1mOugV5xnvziUS 1K1dMpiK0kUGpH05WpMkOHVy1FSGro/ahGW7bv0mQeHjZf0gfiN0RpJZcPIb CebMantj/5kgumzffuOPJHilRmzdZmeJYrZXBj+uIMHf799XYz4eRKLq6a8J L0gwrPdw+5Gvh1G+dsifY5n/nacX+sgk2Q5RdR2k3ySRQCCMWtyefBJ92ofb kmL/q6/zJdu12xHZm0pc9wgkwcjl0f27X59Fk9bLlR+8SJDJz2+WrOSBQo7+ pG92JEGngN42UD2P+E+WKQXbkmC/nFTieU1flHEmxbHDmASND65Fn3tzEal7 +t/biZPgxIGLJRGVl1G1r21zgioJEow1Sp/uDEE2l3cRx7aQQK0td++BvjA0 FEqmGgqTYLDx81D4bCTiCHw+eYuDBM5eoxO3PsYgJf/9mT3L/CAfl67MqhGP rHz6bHZM8oP2k1O6/FmJyM8zkONSLz9ILH21Cbx+G91zEXpX++U/KzifqOxN Ru8cC88L1PLDkFQE2fJZKvrtcED2RAk/lLV++Hdr5SEiHhtof5rHDzomh/ov emUgRZvguIX7/JBalnr+hPpjZGYporvvBj9ceVwomGeeg7xNXk7fDOWHyosi 4+Of8tEdQ9Psbh9+sEM9T5XfPEcle4aObnfmh31Xqs+6cBShX1goT8BhfkjU vR24z/8VImiLVdYY88Pwr7v3FBXfoC0ary+QMH7oq2gjysuWISNlcwUHZX5I YfVRPe75FrkrjvzKl/7PW3drno8ElCAbnkAX4IdXPQORv4Mr0Sspib0GRH64 WdXkOJdTjdrF3swn0vlAo0XSiZWpDi1TLPO7RvlAcrdCnEnCR6TPHUnyb+KD qADNaXuTJuTMJllb/Z4P+k+ctt+LWlAsU2kA/ys+cGv1v7B3thW1Loz15N3l g/HAc5fvlLahuZmrt+dj+YBNxGxk64d2JPpXymhvIB/kEstiJGY60KnBg887 T/KBslmf7kx6N7raO3FK8SAfxFSP7F/j60V5v6IpF/fxgf25sNKfdr/RVGtF IN82PogXzA+/LjqAGIP33706zAvX+91vT6yMIuMLgWuSn3jhbIfd8Fz4GEp0 K3QuLeSFKGdXlMU5gaQOi+wcu8QL1wpjxb5f+4uQ6kiLJTcvGPR3XmH2nkZX t0po//nHA7Gbamr7xWfQZwnLRxFtPLDrePipRNoMoghGsm4q54HV29NBw4dn kT1HqeebhzwgEVUKrUOz6Alh/JtFBA90zXlf3+c2h8bnpLDRszyAU1fxA7/n kMb4waxwUx5YUhBUXT4wj670RXNKqPFAxMHm1GvZ86j6R4V3MYUHYljdlAxm 5hFX898f5kvc4H7uiH2CKh0drN2iN9LNDX36+IkpezpKrTicE1bNDR9tYt7z XqGj30VxvOK53MDaaJb6LJqOFHPB7/V1bvDqfn24KIKOvB/OdJp5c4Os/GFu OS86KrsjbzBsww2x5xaOqB2gI7ZjQ6cZqNyQms4TjAnRkY3UkzBRaW7Qji7Y J/t1HmUNOKarE7khhZbc7ho2j6byNoPJHy7Ysyavkyczj3S9fnc5NXNBRZj/ 6buv51D8zvSVoNdcwPRDZJlAnUO/Fh3E797jggtpR8aqimeRAmzSKQzmAtnk vLxWuVnkF9l5pN6RCyKG3jjtuD6Dqo3v+/ft54JVc3a+ntFpdOKbSDFZkAsi 5UZzHidMobujgqqXcjihIupehtv+STT4/Iv5reucUNu1IMv+cRxpXLjp+dSb E/QKAuzSjMZQ0xrv0y4qJyx59Impmo8g8ZrP9fPSnKDrsqae+2MIucZeH+Fj 5YSGJfs0JrdBRCRzbtVv4YAJ20XOluw+dLDjo8HxYg4ITD8g+uDQb5TxMNrx QioHcOgveBN4exGuSMzIduIAtf7d0ZvNO1HcZDWAMQccScsz+8L7E3W8Cu/+ ocwB7aJ2Z2zG2tEFxCDBtcgOvKrBlLDFr6iSGXRku9nh4HLHszPbvyC++qCj eDU73MzPI2RdakH2N7AA21x26Ms4O5j1sQk9Pbic7BXPDoWzUZG1XxvRokh5 cYwPOwiNqeXokeuRUXfAt4zD7KDObD3rElOH+l3mSd9k2EE/ZmsNG0sVUlMu Vp1gZQffB8PGVLb3KGTG14J1nA32nvXUsPZ4hz6Xqp+TamWDIxEf7frEypFY 8NR17TdswCGbumYjVILO7i18anWfDW5fecvedvQ1Kmb3anALZYPPexsIN3qL EHOT0miEMxt8uTpPqnzyAlndHmd7cIANxL9bnL5z4Bl6dOTp1jcqbEAY7/Qy f5WLJja57Wsms0Gcs7k9c/ATRO1XcBpZZAV1n2pvp8xMFJs7HM7YwwoGffqJ 10TSUbtndoZYDStQ9z95svgyDclpOL/XyGOFoOyTYs7lKch3YUuP6Q1W2HR3 clSVmoTev+tbdfZlhTr5fG1JxVuIJyJDIuQIK4iQ/Za/BSSg4/tPUlNwVvAo ylJ6rxeH8nikjhVtZoWZPYFtxtuiEf1LV0ADGyu0T9xyefsgAu1LSbvbP04E dUa77TJxoei2/fE3K61E4FBxDWWuD0S/N4u1UUqIsP35vZRHWgFIZeTHjHIa Edq91C9nmFxAvn93KAhFEGE66yHLHTlvVDIfarfqSoTKPQeVWjs90fLqt8QB SyII3mlo7ld2RXpExdpGLSL80Jlvm1d0Rle5gxZfShKB8zK+YFF6CtULtiql EonQSpqwsb7hgHjE5U6HjbOAon9S3Z+Yo8hq86Vkl68ssMdYnPn4XhuUpPi5 waKcBRYtn7FoZVmhn6oyBK2M/9atg4692GKOpLT9NCRjWOC5UWYq4+x+5Khb f5boxQK8VbsX5ZIMUI7hprRxGxYICnPWCB7RQ2Nm3i1fMRZIZ5/h5c7FkIpN LUvFFhaICykQexqihS7Yie7O5PxvP48MuKhpoDJHT8/Yqf+aPu31O+f7KmjV rTLj/A9mSEh6E66vvw3t8aF8PwzMUMj3XPqplRy6esmVUzebGWzjsvF2qgyq D32HtsYzQ4jSFcJouQTijSH58lxghr0azDtslYXRwQTnnNljzFAkrGtd8kgA 3U0u+/VrDzNYPCEK1HzkRb8e8PBXKzADQwrf6pbn7EjqySmDfD5mWMAZ9D69 YkaOz4oDbs4zgcWcgxc9m4ByX3EUBHQxgchsrEJBxSI+UW7/+0QNE5hEBFEC XWZxtaoiitFTJmjwyq/nFf+H+9UTDyjfYoLpYT3+00Z/8LKWo8GUS0ygLcIn rv9qAF9tL3i5coIJ2s/cbz66uxff08M43G/IBCku0Y/YjH/iV4dsxBuVmMCG sHL0ZcI3vGEiz+IlmQlYRi/3cjO04HxzqxH3lhnh9XPZtsj39fjBFavS0D5G +OK723uEUIPfZc4eP1vPCAcTRB7E+QD+i3NJ2qKQEfSLFrQGi0txKQFzG827 jFBjxZ5uzf0KdxLNjN0UzAinq/b8VtB4judJz79jcWaETrp/b4J2Dj4hf2B6 zIQRQsNn9XqrMnA1lYdbv6ozQj4zq8oQQxrupzl9rFyUEbIEeO2b7JPwMtww IYOBEfL+HCQU7krE1wxSq2OGGYD3vt9YmWcsvtd0ku7VxACu8iz32lAEHn1Q f8fhYgZ47DAW2jYThDce++8SmsYAFGtrHvn7F3G+03/uyEUwAA+3woGb8+fx g66ontuNAaLPf21bMnLDU87fWp2xZIBkI5GetXxHvMt/SO2XFgOochR4T+g6 4DIhOmeqJBlAf7D9S+dNW9w56kZqHpEBjvR4aH57a4nnxfc1JY4TgBAfS9R4 bIxP3NFkDvhKABkd8a8Dc/q4eto1rRPlBPClvtXq/oHh/lnd7oYZBOh068s/ v3cXXpGvnq4UQwDXonrb5psqOOFl1DeyFwG2vf0Q15wmj+8t+8m+YkMA06V/ wVmYDF6Q91i7TocAjP/ia5kOiOLCqedcEqUI0NEwTb02SMLDrmmnHGMhwBPd 7ZIqopx42zzx5oGva7SLRv1jESeZ8Lz2e/+609ZoK0n1JWGPl7CgUiVL3zNr tCbLj9PNedOY1b3KF2yqa7R0Sd6VouE/mOxlG760xVUa5Z843zbow+jHRs+p Vq/SrJJaevN6f2KN1KCmmuurtBaeo/Ijj75gjyRIykdtV2n0l3t8MhIaMN/V x/ETUqu08fhcMrNZFWbUrT0RNrpCY5wfHxenl2Fi8MlU6NUKbefw6Y8c9UXY xKOTz/IDV2iLlyUf1InnYZWhs1y6hiu0qJGrZQSRDCzpVIz7V74V2sJx9kEq Swrmoi/ReLZjmUZZqWFQ1E3EqFsKt61kLtNuKL6lPS+NwvhYDK4leizTgtx4 Gz8YhGD9A+2jsprLtAXFlgeR+n5YSa27cRlhmfbaH/NKP+mJxWUT8szql2hf rfLTBp46Yg7Rt9n7bi3Rjnoib0X+45iai7zLRbslGueVAYu9BGuMaFzxgXPr Eo2d95zd35z9WIeihfyjv4u0oZndHtOGelgBZ3+URtki7cqki5iOpiYWNnZx 6EP4Is14vMLuopgydugTp6Gd6SLtyf2SCIuPWzD5godP/lEWaZci3l7hei2G LcerE6/2LNCSg3zoRDcS1nyuzkk0b4H2vH86Sc2dDcu0OFZT4LNAC6h52+Ur R8D8VCe36GMLtJs7lb99MZ2lGpPCI74TF2hqw+JJgaxj1E3TlH63ZjrNyHNS idXxN3XqS54+4R6dxlLx8RgrqZ1a+wrPvH2aTnsReeovn3sTNeVOK6PCDjpt ptRa9KNvNdXdz/nU27l52g0k7JGbUEbVtV18bwnztEmPN6cNNQqpglrx0oMx 87RMd6XDH7SfUIeFZUIvWc/TaKb9LYcz71MrFl738EjM0xgta/7MON+k3ujY r5s5OEcrviRtFZMURd11//xaQ8Ac7dxLeznB3T5UjkAWhxP6c7RCg/HARZ+z 1E67lHczXHM0ca6GA5+YHagRku8DJR7N0tB32fGFSiPqlwy+Zc/aGdqw6wkt /qRNVK/c53R+gWmaagt347Wkah0VHs/wPT1TtDGNW77kmVKdf97beXyeTdEu j3x7us/qhY43NXfzV8MpGp1J8UhlVorOhaYMs6Qr/2hheW3a2Y2eOtOj2/bv bJykXRm2EpwfFdAhhtMf7fMeoa0x5HMERx/abeO8Ob31yg9a0I7il243CrXq Gn/Eqlu3I3lNg9FM118au3e8L7JInkaxV+h3ks3rlRn9yL8cRQi6bWNWdLc/ 6oqsXBahpyaIugYJdW1XdXdtDu9p0/fO5Nad5xl/aHHljNiL1KsWQVP8uvbW h5vDRA0FzmU48vXbkHVPqng8+1N0jd3e9Z5EVKiw7v++b8dY+mmr3xdbN7Pg ncHgxU3r/t4Q+TeCV3rdhy6f2nWvSmbd7px/ZD4f3bJuyfzaJOKo7Lovl+hb 86ZuXbfXE/fiXcoK6+Zi1DylNKC4bgOPg3cUb21ft3CpxDmDLUrrvukdnajy XXndVlfNd6QVq6xb8VjEoaxA1XW3DbJn3Dqktu7Ppwb0SJLq6+5lzqbfkdnw zJOzz0XkNizy54+49I4NO/pMzSvrbHgxfO2Zqe2G5R6LiMbc2LC24c9mrlsb Nhm5H5WQtOHzO6Rmk9M2XPFarvlJ/oatatWvVtdt2OnsLNWoYcP+HG+mGz5v OM1s98kv3zY83KZL/d33f/L6M047DW2YW6w6d2R0w2oOhkL//m3YgIH9s+/s hg9n1kfQ6Rt2NYjTubK84f/5D1r3/wN08bL5 "]]}, Annotation[#, "Charting`Private`Tag$20823#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nVQlk24MHBAunkIEaRLEEEkJJ773gcREAWUkFIpAVEReGlBShAJlZIU lBKkS5GSe0mVkgalpTuVFD6/mXPk7B+785ud2dm5dmb32tnls3TQtSYhIiIi /Vv9/9Z7Rmv98FAaEv1PmfZi+zW4f2RtxtGtjztH5lVw/OOwceS60CjKsekj U0r0c8O2I790Mb/i9+rIucTOGUTnj0xmrX7uxK1z/8w80GiXFin1z7r1ibdF m8/+s9cKYhcxIfnP5e6J9wqvSsAHLiN7tQXaJNpR13kPEsSheVWr/L2k31Tq yZ+0Ly2Kwda88M3JMweMmZ8f9jnfEIWq8YcEB4TjuGngS9Zv70TgQkN7hU0W gcvH/FgBDbMw9HEZr+5qC+YnOsODqTwRhEI+Ojma/FdEfoQlPM3t5YdVwMuZ /MLe6ZPUttmbF/jgsYdVx0fLZyXvy4qRDZ7kgU7tllOD3YXSt8+PvKuv54Sc RMwPLi5Pyol5KB7aZ7DDxCYXlZVMZ4XUYb2Gh8qs0KJgR2ifFiqdmzy32yPD Cge1Z4xD9ZuUGuaZzp49xQpLDV4f5lF8U5re+vZqmp4VvmJXzQz8MawkhtN0 1htiga75ml6r6J5SidpF/jPuLPBuB7vmnJMsvqFQxm8sjxlG1Siz98m9xV8v Yy5TSmGGu+vJA8l2efjp6vWF2GhmCOL2nfjJSvHu9Z1860HM0GwPBhfZVeAp m4sMtTyZ4Wqk1S7tDsQndIQ/f/eAGdaGyQz5pDXhxfrt649ZMMOv76hlzYXb 8dXDWjum+sywRvMwwYO+B681KS5Zqc4MbzykqBHO+oEfmaexZlVihpRTRmwa ReN4x7X5REcJZrgx+sje3XkGT7z9taOFjxn+OBWFG6FbwUcdvCMXYWWGs5tR gQ9DNvECZMH4x5TMMO8q/VgO3x7+Pc0dp+E9HMzSjuaOmSZGVHFq7+RXcPCV gNbt73EUSB+70Ej0Txx8sr0ldYaBAbnDQ8qy0ouD9G2TOUH3WZBtoQmNy19x cHDNGqZ2ciAh4nW+b6txUFrD21opjg/hkE79QFSEg7AlYsKLVgTJVfBbuJGO gxYbC65nxSQQPMGM72MsDhart40rfJRG2tRQQ1woDtquOVfvf1JATLW4nj/w xkHd8bkSjq8EZEVvv+6LIw4at6km3xlWRfxMBrcFrHCwEXYzJDlpIkwWlRK+ hjhIJsU1R/ZIF0m7k2D14zIObjT1AqUDQ0Ta3iNRFsXB/J7V7uucZkiDi2FH hBQO7l9Rz+MRtEIMvOTIFwVxUGori0qU7h4y48+KV2fHQTuNdHaKHkeE2rtw JZoaByXqni8/lXBDJDw00sf2mSDb/Br2/pw3ous8YXBmhQk6ehXWVJ4NQNzs vak9x5ngGQMO5e9nQ5DEu8drmrqZIA373Fjb4wikxqr4P+YmJjg7WHVGJDkG +Wl2Rci8nAl2OoFwZeUkhPzG1EBeDhN0sm3YMfwvDREz8H22k8QEd5d8sUPq d4i2zgmCWjgT7G72u7KoWYg4aZZuRPkzwYUPAU8zjN4jMepaWaPOTFA4rEhG 7l4lUn5hxkTchgmyHLNPDeKpRYYQf/qHRkxQzh29pXW6CSFS4KxrvMwEgzzu fk/ObkUEZT644hAm+I75HX7Urwu5JHlV1EySCTKtivk4DPYjdmJzQ7l8TLDu BZd6yccRJEIoIGKbmQkaCPMrBmATyHterouq5EwwKkU3z+DGHDLA+XErcpsR png0bVUqryL7bDq5I/OM8AeEansdmwgvbsH09DAjPNCM4JJ5vYuo0D3BeXxj hIqXK0rzDohQG0qepoZaRmgSJJ43nUuGhh6reMj0nhGeFviMdsfToAUHumdM MxmhNEuwIt0zJrRrZ3EsJ54Ret+Oywq4xIb+3gx6uRXKCK1/ipWgF06iHKu8 ly56M8JGCe6Ghkk+FF2o3ItwYISe1/t5BFOFUctp/cJhC0ZIWFnWvfRSHA0a X7YU02eE7IXzbVFk59CcoWA2dzVGuEHGIv6kRA5t7+dvrpdnhIUdeKK5MDy6 3lXtzXiaEca8S6wlLCmjbO0GUre4GCHNHoYjeaSGKn5dncxmYIQkrDdPOIpq oqYNofG/iRmhuNw42YckHZTEVyM+aJYB5jez3n19eB297Op9yNPGAKlTPyX5 ON5AI+8X21QUM8ALCZH9k2wW6IDFVJtuLAPMzaFznVa2RnmNTsguejLAJI8N /fY791Bbba2kJ2YM0KtXmy/T3BEtuuh/jOciA0zmHHjyTsMF3Vb8cK/8FAMU 1ZFb/Mr+EAVSc506dAywUJjzUTORLxokwqWwsEYPZdNQ5DlPANrOpZMS2EcP BSzPvz148RRlY3lCwV1FD8/eyC0L2XuGmlJX2H98Qw8PfnRbxbVFoplES73X AukhFcuUnXN/DLr0mxeZt6WH96vfJJvVJaIyS/oZAVr0kHXrQUqMaQr6aCKY huscPaS5aFWyfpiONnyvdipjo4ecLySJW2zeobQdq9+v7tHBGFaRRb6qfFS/ SVB5bpQOKvqxfNNnK0FfVRu9e9xAB03403Zwux/QnyXPGE5m00FzBLN7klOJ imVDtw/P6aCTl15nvwhEnd5sDms70cG4O/fqvZ7Vo5Uxp1RnDejgfeZXA7Jv PqOUN2ZuE+PpoGnOi6uXbVtRA97Mxxx8dJBLu6z4N30nmjFllSpNTgcjfFz7 i1170PUcAai5QAtLWIX9i/wHUILjzxHrDloYJ3KCJOnaMPpCNvWPzwdaKPmw yu/543F0aNfsZHwiLazn5hZrnZhERSG3UrEvLVQzZdyOmphF3Z4MGzdb0cIH RuUVIHkJbbic5DGhQQv5ZTnINePXUBzjjbh9CVpo97EVJz++iZr3nihjZaGF hecpx0prttGCxIEeiR0a+MmEqNdM4w+6bxa3oT5CA1+fUy7o0iYGl4UMcBb1 NJDqmbgajz0piJ9nkfJ8RwNr6Rcu32GlBNOF3Vejn9PAos9it9RMaIGMa5R9 nhMNRGlLZmAOI3isqPO80ZAGKia51VREMoNvhwx5I3gaSDJ9zp6wzgZONrY3 b/HRQMbxug/fRjjAvdDnc4wUNPBUyEqHsx0PKL+qSSm2SA2zdz7OPTfmB+Ss NCIqndTwGabcuGMjBPR/fFW9WUYNN1Q5Lk0snQJpb4KtXF9Rw9sb+JSyQ3Gw aqUe8MKPGvaVcjAxDZwFqBh5WpY1NbRrjf6RGyoNnq00QHiZGo58D+cVy5AD P94HjH6X/Nv/3edT7DlFcMrzwsE6CzXMKuqRLlVFgSsg5qLdpYLyd3WrotyV QR0pVBIapYJmqTLF+nwXAWOzjwnaQAXnyOjIBU6rA9Nw5KFhNhV0WrMJVEm9 DPL09+McX1BBxYX4qZuR2mD3RFVZiDMVFLgT0nLliQ64NPqwN82ICp4NEbk6 Rq8PYjPkN6sQKugKU65+XDYAk3e3cL38VNBAhfsxi6QJOCdZJrVMQQWdW41S Lg3eAn6bLtcolijhoKJH8MShOWivkHbg7aKEsvmmatzXbwNO3/XnCh8p4cJB rHH3pjWwvVicp5tECbfIqhG5GVtQRuXYct+fEj6r7f2gJGsHSL9JzAfaUMKD uI7qzFkHoPtyifL1FUpIXsY0TE3uBFKM80Q+nqWEXK98Np5edwHL3PfVOlgp /+ZzKTZUc24APylqPbdLAWVqz0xc/fwQhGbPBpCMUcAJWZOCjK1HYMA+K42z kQLKEqo5Vwl+QFjGplYmhwL++XUeL3/+MXDZERzTCqeA1vwRwZK3A0FtzcSB jQsFzIqjDMz9GgToA9O4/IwpYLh9EG2vQwi4qWGBT0D/WkGzWuzGM5BDz3uj RIACNnzu3H4cGQ62u0cetlBSwMckeh1BzyKBWkJy/OQSObQebM8QexQNXpre /Pinixzi9A8OeV7FgJ8CnH1s5eSQ6LZNFcVSHDg7931TMpkcsgq91ixyTQQu q2dEjweSw6rUmaoSimRQvuV/6+AeOaz3d7OX6ngD9g96I6d0yOEsfJdx/W4q UCYXa2qVJ4cGh28UzajSQRCdz24pDzn0yK2+z9ycAZpZuiRekZNDN9E6TtP8 TKAr4Bl3t4cMUqSKPXo7kQNixdpbrlWRwaWvu9PvFfPBoBQ/kXwaGUydnRb1 ri4EvApuMjwhZHCUe/nnc9liYEVotiV3JIM5KR53jDNKwDt17uQlAzL4S6HW oPT0e7Co7dTZg5BBeLOuN7/1A3C9xaGYTkMGZbPf1DSYVYBKK3v70HVSSEef VLWtVwUO7tel/fedFILI5Cs71p9AkOc9GkIWKawuSbFN34Cg2b8GiLwghWIJ +G458TrAEIJzoXclhYwjtH7BrvUgPq5yaOgCKZQl3n65odQEhl7TMzWIkkLX B6vt1RWfAW+mpWouIylkfSrfk6rxFWS/py54OHIMOu/mmmaktILKThNfNs9j UMXkVKDF8S5wMFBQ+sf8GJwWdcG583aDC2Mks5Pqx/7Gx+By1bke0LKcc62U 9RhcNSUlknfqA0M0e3zXikmg5vUNtxcGg4CX+arB+XgSGIQuXp1LGwLWHOmh 3L4k8Im90Izo72GwfOrKxqImCQwWc3teZDgGDlVfNYTMEkOrCJr7IhIT4KLW yrbjN2KokVsaPDczAYL1Vc4YlRFDetUvZC/TJgHj7YUY4UBiuB9/yucP+zTg 91O6U89DDF1iKH+0/JkFNk/DX+WQE0Pj8I2u5JI5kPNi4lvkEhFsixxQKLea B9LJYfLmVURQKje1vr1mAVysHKT6Y0AE/7C60jXhl0FBzluFz0pEMFFeypjr xzJgf+VwN5KXCNYwOz0sdlgBj8MUEm6QEUGv15tvN/ZXQN8WedSVnkPsPJtW Sj5hFeQMJK6NJh9ij3q8jKR9VoFPhYSOy51DrHYqjbO9bBXoJtYVUUodYtqm d01U51eBkJcBY/LuAZa7zyxjzb4Gtm/MO0g1HGChLnFtB4Q10Ir3+db4/ABb yB9Omb29BlK4cJImhgeY0c3H9Qd+a8Dl4O2LZd4DDLtuKigQv/Z3v1NYfjz/ B2Nn18aQ7DXACdu0jr//gyVWlTXh36+B5RSL/FzvP9jAqFUdS8UaqPP/RUtQ /4M553qmw49rINYyxK6H8Q9mb4tvUy5aA3dVuFptf+xjFjqZuJS0NYAXLD79 J30f23PsfDf3Yg0wkqmGRT7Yx6oKL9FLu66ByamBeaHz+9iJw5CZ2OtroLzJ 7nIl0T6mnU3VKXt2DTzLIsrRbt7DlgeEReTI1oBZ8Euqieg9bJg7vqG+ZxWc u3vqrvutPWz72+JHhjergPxy9RcakT3M6GLP6lWrVVBAM/lUpnIXowhbvCNX +3c9Ft1nvgTsYoqdJvbaZ1fA9TYa9Vtau1hU9jegE7cM9l9IkweN7WBkkRc7 za8ugQ6Hz9YcOTvY6uWp3OTURZB+7UZjgfMOVue+UyqwvAAu4wIC+8l3MBsi /tQQj3mQENNFInpmGxtk9MtWtZoBdm42lp9+b2Hjbo2ChMRpQDDcrdWBf23Z n+34bQrMsvP7e+ptYRLSO+JlCpNALum/w5aHvzHrW/xG9ifHAbU3mZm5ym9s t+vUQofJGBi+lVCzSfsbe/N2ZzhVfhQE8tR6c6X8wvIOqcrO6A8BI6Lrw8V3 f2HLvYHph0s/gPj4LF5N+hd27wzyX3zEd9Cdxrhv37SJcVhIk+6v9YHMgIwb xyI2sV9JQ4YvinuBp5V8VZzxJoYxVKLuXj2AX9jcEy5uYAaYFuN5yS7gmF24 zcS8gTl46J18L90KztLbB1wYW8fOh50/r+XTDNacxOmd89exzmVypYHBL8AJ ny3Qo76OZaDVOT/bG4F06p0CUtZ1TCExw7fzdgPYJBNWkP25hpmoVehFU9cD 129p2rGP1jDJk/Klu2EQyMlYfG/SWMO4AhI++rfUgN/xPFZbbGtYwUQ+pvim GpT9GV4WmVzF7hQxs/NFVQJ3y6SHRsWrGNv2Y0Hx9HIg/9mENMRnFVM4cFu7 0lkGtk+fCK+4soo5RHfu3uP8ADbmT2vItq5g5P4lvehhMXB5/8401mYF29td MK+KLQK/vYVctohWMCvzC+NRYQXAXT0txOjVMjau1+ebzJYHthl53lTILmO3 yZxn77Rmg4c/Xr3n6FjCcDdFtVpyssBuOnuz170ljMH/WnpO4VuwL4f7hbxZ xHhl133SBdOAN1E49RuFRYxckzepNiIFHHyl4SXqWcCETyoYt8u9Bn7RwbIW 9gtYf9Jk0sMnrwDxLbIrdZQLWP7EZN8WVQJ4LPzYXCB9Hgu7+StyBMYC0tUD 10BkHiNScpyYznwJyAO2U9Sc5jAGVifzXxsR4Kmma1kW7RzWAAOAWs4LQMm2 3kKZNYt9MdSnDygNAyGj9uN3lWexiPLgau+DYECdvfC7eXAGI26srDUOCgJh Tra04m4z2NwQIu6nFgho8VN8zxlnMJmka7SvFR+DF2SW55dzpjEL/9C3aaZ+ gOHbiOZV1WlMQqpzxPOWN4iIv2FZNDqFae+8//FR2xPgLAfcmTynsCJi3Vbt UHcQffr6cyeWKYzrGgUpGbUrYPnVmdZdMIndpZ/JpfviBGJqtMtlNCaxwT+N jaSYI2ALbmmLmZjAlp48ON/T/QDE6Vya+O09gWV+kzWRD74H2Dkbtw3ZJ7Av HfUXMqPugIRJZfqKkp8YZz5N5PkFK8BRUCPAofUTsy7PN38bagmS3JUUvGbG sYNd22z0njngUi7XHvIfxx65lmOfKG6B19SyVsjJcYyPrLTma7ox4Okpfvi6 bAxbIttX139tAFKSJcIPr41htuZxHzaX9IBKu4FGbd8oZkZuGM8WqgPULK65 BNCMYo5fOCJ6erXBpU2NN6qEEay285RNHu4KuPxUpZnCdRi7iMsa6fykDjQ5 kF9fs4ew003XOeJbLgLtfDneZyODmLWqnIGD1AWgQzh7RZt5EPOmTuR+1QKA freoG+OlH9hs9JqcFFQCBjYCqV2PvmPcKvQ3BaTkQeh/zsFRHwawVVpTrgs8 suDTo3oH3eV+LC9Td7X8/jmw+pTZECfSj2mfHqhYpTkLBKNvo11mfdhxh7qK 7sXTwOh1qVBUfC8mf/hTQFX1FAjLPkan29mDtaXs2R0wCYGa93qbTNR/7dW3 bqvKD9ax9MHOC90Y6dlYkbZMHiDcslEX6dWFrR7UfDS25ATGfSo5Ou87sW2P +gS1nOPg2Xh0JNNSB+bjJXoy5AELgIsTHp1CHVjF8vc00mQmMLtyB/J/asd8 vYa3CgzowVVyyvA0iTYsJVen3ugENSg7+e4Wf0oLVkodm8L7gBxwS18ST2Nq xvw1HT7Eg2PgicbsLl/AFyyxccE4yI8ILJoFf03dbMIE0v2huso+qud2Kp7P phEjUYzm7hTfRiuffbFJ7a/HbJ85R+RlbaJ86bayfBp1WOG4d3F8yhoaXEFJ mloJMc4UfrpHdMvoyBudt8pGNdjtczVIW+wcmt8aeUFZqQrbpKtd86yfQr12 OkcJ3OUYJ+/9YVHvn6iGMM6bQPwB2yuyXmkzH0WP6+lyECaLscNAdDU+/gfa cijo4PsiH3PjirxgGdiH2hq/zfbRz8I2oVpsLXU3SloqNOnNkYqphWk6VLJ2 oIQTmsgujMEo2ak0EgRb/g6SYLWW8Bjbz7yOFxxrQh+RvGxUk78LxNunmjqU 61GJxNufWeT+5uU6MfoaUhAdOVG8TMOQBHb9X65flK5C9aQHqoOUM8DpJTSq tbMMLftu+PipVw4gcB4W3OQpRenggkCDSRFYwNx0YoiLUBCdG9TgXgqkp3qQ jvoc9D+b+3MNL8tAwc2i2/wmmWiawmnNxuIKwPlZ/qLK2zS0h3ahoLG9GmhV 8mra4N6g5GM5TE0LGCBmJHcAQwlokrGs4u3AWrCx7GsU6xuDyqrE3J/A1QP2 Sy0ajD8i0XbxX0m3UxtAlIndMHfyc/QO2/X2CckmEHYr5GAoOBglIvpweLvm MxiMeZleqBWIJsyxSE1qfgW+ZLuetl/80HPdLpZWg82g1cjMt7LMC22p7ome vNsKtoHzuuCgG2qVKdNotd0G8Ielp6h7nNA/4S9/TwZ9AyLmF24o7tujLfjd 6JLQDhCmcGXDz/0uGi+Vk7eu0wkCvhSJqs9aoVbCJo3nTnQBQU9pbjIhC/Qs J/WI01gXoJW4P03FdhP9w1D5uySrG5Tc6OtK3DVAm0nvMWzY94Ch89KDDz7r orE7J05Jy/WC4kBB/+h32qjl8leC859egO0933A7vIRKTDw0Lm3oAx1JHid+ 37iI7vaLOm2E9QPfGzMcu+EE9HPr91BpvQEg6Ry2lzWviNp6/Ph84/R3oJxo 9sDKTRalFBwkDTz2A7j5ytJJHJdCs78NKucN/gBNhG3hcInT6GWvIZ+e0kFQ plazi8QKofPCw1X7YUNA4+6a9hA3HxrWNbwtaDUMnpwTJzRwc6LiPiOyWvgR cHfvRX+YMyvaKjrq5MoyCpJfXtnuX2NE7XpHC5MXR8G84YuRgSpqNIjg+NvS cgzUOvhEPWcgQw1iV1nc28eAJZCarIkkQkUWHaXDFMdBqWT9giHVLrKtvKbz JnMcZDBox/c82ES+xP3nWIr7CRS3wxZ3iVeR+KW1F599foJQOpaKcLo5xFbF KX9w/ifI661lp385gcgnrLesGEwA1ZL8zyfDRxDKFaf5Y/UToMfkiYF0Zz8y cHGDkl1yEix2XzAtCOlCshOdRcRfTQKfIPnx6M5WxHN1Q5VAMQWUbw/N/jBt Qi6ruVjpO08BaT17j0DDWoQjafOx7egUkEkHIRPfK5H5NZfUR1emQR7zf1IP 6t4jleq/sIiP0+DL5dlmlKIICU12HckQmAFKQgORJR/fISYbv/bLw2dAvqL+ lDdlOnJaw42zbW8GgIydr92qycj+698K43dmwd0TQQE7nrFI66ab0a/uWfCs EivLQyKRpMtbblSEOcBjlT82ZRuK2KW4x3DlzYEKoXBAkA5E8L+3SqXY50Go gL8C75APQqvp0aUaOA88+R+J2YW6I0Op26vGq/PAwI06cH35PyR/y4PB/uYC 2D2zLHNP4z7io7Vz5vGXBdDY6ssPqqwQ7fSHmrEyi4B8w24529UM4d7ZuZeT sgho9FpiXPsMkWVtz5Aa2iXAZVis+oVKF6nJ2M3q8lgCXgtOUFnlCvJi17Np enIJcOYcl+KMvoiYXtub3L22DF5+kbbXPAYQyUyvYwyfloGX8WuiKMPzCNH+ Hp+A6Argv9+vEBQmhXToPCKcj1kBF3ItnlMaiiEdej6Fb4lWwcE13r3WGgGk 3KemplBuFXxfPj6uF8GFpGQftFXYrQJrXs/+CxxsSHAPOlyftgqEM8LfRfsx Io6HPottA6vgtcYXysFXlIiRGLbXT78GPrmjCoe6JAjh+iH1z4trwCmtji+T sIc/5Qc4Fj3XQCJu5jU5solnzPUV/f33HkRXUHDrK+kyfufvUUk0swbalWS6 XilN438SEV2i5loHKrbZbZ/+G8M3nyYYsuitA7M/UQOUVwbwJQZ+Ntwh6yCk Qf9m4EInPtEfup7C1kFDRFfYpk0z/nEe0ZNzv9ZBv8XAwgO7evy9fsJL/OkN YHzwzMYutBqvS+KfrmaxAeKk7O2/rL7HK56pLbkWtwGqn7F5bBQW4GV7+mJr vm6A85FNJDtLmfizXoue4vsbgPf4m57Fk6l44a/HVSgtNoFAJ4m2zmEUntna vhsT+wXcBq1O9bG64xeTODclan4DjvVbuve5CPg3tG6ydFM7IEx5WbuL/asS iRvrkNUJIgLpMUL5avsXRQraa/6Wy+SEoqyzFbVlQD5grE/FKZ2OMEvNYiWi dkG26FXQNZ91JgKL/ycO6WyKcw5pVoyTBqyE+o7ssc8pdBKm9xK5nvqzE5Sw 49oHtT9FQ3TcFKSTOAmzYlfeyhpZCJGyxEz77nITvAuuJliEHOPtb3myGsjA R7j8AC9JyRHJcd3LUi6xnp/gyGQqE3RenMWOZoG/3USQcPg29vCCHqTjyW2K JZ8XIlAQdfaJepBReJWr6DG8EiH873usY6ZdmZyk6D/Tkpy3lJgS+2fVB/ox YtHi/8xeweWgKijxz1FOwZFn+yX/WTfo6pnksrP/LHYj8HqGt9Q/901TpUVf P/fP7ZZTyjge6X8eJ83ajuE/8mambeEJ4SOfWFg4yXfmyFbO61uSSkfeDTjM 1zI8svDbExwh4UdWUB/soI0+suZc0tOI2CP/d4b3V1zykas/CHdk5h5Zt0k6 qOHzka1tf+EvtRzZg/rjRkv7kZO1FS26e48820fA/5z4P/P1INmwnjkyHWdD 9tz8kc+ZqR9fWzuyKjFVu8uvIxulNwdubx/5nuozpUf7R/6f/wL//P8AHPg3 /Q== "]]}, Annotation[#, "Charting`Private`Tag$20823#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2mc4l3/0OPCPj71HMrNnlJGVfO77fUtWSUQyKiNK8hWyRxERSskIkVWK QlGS5H4TycheycrePvbm//1f1+/39TsPzrle13UenEfnPDkidrfOOxAJBIL8 v+n/18Dxs4t7e0qQ8D8x5s+18md734ZsA2ufN/YtrO66c2tp35WRT+kGx/ZN J9clCH/tO87D5kzQ832/pbj9kqC2b2oH3WO8l4/95wPd1c6ZMYr/+fz35KuH 6xT+s/884vxkWP4/l3gnOxWck9uf9+kF4d2kI3DIY/DwWXd+Wt3Ub4Z6MzLQ LeCiqbPPCHN2jW/nbavDUGL2bPlj444DV0LjDja9kYKfHdoH4nl6eO/YUOYz HpCEgqHI8YdfOIQIR4Vwrfvi8Co0opd40CLWE5UU/rZDFF66oF59qTdK+hCD Y87ySRFooXecVtQ75shNFRnqP4eEYPrt4w8IXEEKV9X633z/zg/j8SxlW84Z JRmfE3suL3lguOnPL4mvS1Uz+kyqfDUPwtP8lBiPhqX6ePBBki4PB0xcEXwe HnFdgyGwYD6WgQOm3H7Yh+e7asj56GcNbrND/7pAptcvvDW8XAIZ/P6yQyoa bV+nhHANGqvR7ne57NDxR9GjKrnXGuLKnzw5EHaogwugXUKjGnZjpgV9tmyw /i9xbuOHFSns75ydjCkbPJLmlVI3b0fK7X3A5a3DBhurecGP2hukxdayQDZZ Nli0gPIZtnmTiHf1E8MmWGFa3vPSOoY40mnPwD2hX6zQnCsvaJX1OSnm5odr Xz6wwsy3yvKZIJMkbM6rMuPHCovHH1TNPXhPcjQ8m3LfmhX6dPeaD6kVk96f CqYUOsUKFzrchbJbvpHWT3xyKpFmhQe80c4z299JQHGyxZiZFX6uoTHsqagj hUkJqE8vsMDQ3pRDbcMtpEYB4/TQThb4MugcTclIF4mL8z6t4FcWWDF9WsB1 YIB0heGLy+c0Fvj908nQaI1RUjZhtsMolAX2EQ9kKGjOkGZXhZEpRxYo8lb+ XcuPRZLyrOnLkLMskOlro+z2zDopYPgBo8AxFnj1zNw5hTACUvW7zL2YiwVa Zjw1+vuXGmFqJv8+t8UMJeQv/jZfYEJMf4hrTg4ww2u+uhRMggeQ52Xmb+5V MUPT10e3HNV5kaHCh6yHcpghd6XMh8kXwohMDvT69IgZXg41FPMblEDc05b7 DN2Z4YXpqufJlUeQ0nhp7QkzZnhS5kR70d9jCJ3V+FUKEjO0QAcv7mYdR8yE s+/xiTDDUpYXmlKsGPJy1D5DiYYZDhoofQyeOIUs5opBg2kmKLe11n1f4QyC uQ71OzQzwQgNetaQN8ZItErGzp1PTJDVVUe1ZcIM6d20PpSYzASlvqHDmwWX kcNQUOPDXSaY/d4iP0D1KuJ1v8+izp4JTu349+KdjkjV6RSfYX0meLE8uvUJ vSvCwWb1bFuOCd6MvThiVeCB2HTwFh/kZIK5dBSfl1/5IfnJ3e1yG4zwUoOZ s5xEMLJt/WxJt58Rql1KXzagD0NOS5hx2H5nhGw8eseFTz9EEqc4Ff3eMMIo hsG5w2JPkbGCtnOxjxhhz13tuvoTzxBlz6cu79wZYa1MQuj9z6nIvRPGj6ov MsLvIoNfjbYzkaY91nf9pH/7xSTsOTTeIIeqG+vWRBghZTcH7f3hfMQp8tEk Gy0jJA9NkbDcIqTknAGdzAwDzIogJIcQvyA0BxmltFoYYCMpwU2oGkdMe2q1 LxUzwDW+M7GfpKqQzLQH9p7PGWD3mctHGKNqEbK9bkh0EAMUKGuU/yjTjKAy NJmvHRgg/+fG4y2u7cjD+SoITzPAnaSQMOfm30jPx5CB3/IM0DVe2ZSsO4hI +53cXeRkgEfpHTv0Q0YQT0AhwLRJD4sOR2f5NU8ilVRQQ2KAHmb9tdg0Vycj bHV3LNEqeqhbPp4deWUZufIY8b2Y869hDbtK1AbyznT7mWs0PXxAH3S6ZncP 2eT9Whxxmx66XCnT+UpJheoN+HZkmtPD7uKU9RoiPZrw8vjyV4Qe+mIB1VCN FR25scbRIUoPt+zySO89D6DH5IsV52jp4YeQD8K3NHjQoGUPI9pZOlgwIGT7 XUwQbfyidEu4lQ6Ofjx0p7pEFOW/u/hI/TMdzLCh4kU1pFDHUx/enU+hg0Se 2fPS9UfQYnrX+pvBdNDXlf/xq1ZFlKpJbir0Gh1Mj5QObKFXRc/HzdK9OEMH T2t6fWE/roGmW7yT+qxABzdDNYwo6jB0TvCmTvNBOqj6V3B6ruAUSho57DC5 SQvLNT+IzXjqo5E5EyHEQVrIud246mdwDu12eZ3JX00LuwxlNfnUTFBJ5WsV yrm0cKH+Wdjok4uox4b44NnHtPCbHmuBav8ltKJ8ePeaBy3kdo9QlMqxRVlC MwWCLGhhQvS3SLt4B/SSvi0pCaWFkeaULlXmTmgui7BVoRgttCiR5m5kdUXX 2/p96+lo4S9P+UK/x7dRnaTUxJFZGmjUO9QjUO+Nxl259HmnlQZ2rMdGx00E oENi/J1cJTTwH3OT6nuRwajC5O9l+VQauPFxXINf6z7qQT56mDuUBvqRK5n0 nSLQkrXgy7tONLCr/Cu3skU0ur3bETNqTAMrN71Nxnmfopo0Mj8ajtNAu9u2 eXxP49Ew5jubRUI0sKYioqQrLwmt42yVe05DA40FNximI16gLIckr96bpYY9 rxpZN8Uy0fNifs9utFPDaHb583Hhr9AEmcZ6o6/U8JtxlUlyWA76R1GUcDyT GpptONWmauSjwupeykIR1FDTzfoZPvQBtcfqHGlcqSFPQckGg/gn9I2uYOqs GTVclLTDfFZL0BlD95Z2hBrKZTclcLt/QxXMflCXiVNDQZfn9tYWFajnZb4T WYzUsOHmxdAzzlVoqb2LS+QiFfwTyr5yheonunuzMtPtNxWMziDs7qg2oCdv c3WZQyqoGl8xbB/djIb5OTFir6mgSLDoK4YbbWhdcDmQiqaCjpX87z9+7URZ Izg8WDypoIlB7h+mpB7U9Mm1NytWVNC2k1vfi2sATXxW2tt7kgoG1VzvVZEc QntfsLBXHaaCrzgtvnnIjqLC2Xbab9moYJjdnMBi7gRqn1fs+3SNEirN69CN F8+gOR8Z8n37KWHjUPMvhkIyOvf1ypBNNSV8j8cxsTgsoce+F3LpvaOEdlcq v00Er6JedTRn5GMp4V6tsnYn9yZa2mJ5l8uPElalr6jyH99Fd7vzi3ZsKCEe zusl6k8BTg4SJ0Z0KeH0e5dtNWUqEDZudqhBjhKedP7MVm9CC+rnco2KDlLC 9DprZHGcAbCt7oYmbxPhVK248iMCKzDdOf8leJgIHx1ZflTWxQ4SqV7POtYR oQnPJp1DKCfoZdwSMfpAhKLdZ8Tvx3AD4QPnzNQSiZAzmCkJZ+QHDnxZkYJ3 ibBIdiT+BIUQyBVZK6e+RoSqwP7BCBQBc9JnlmYMiJBF5eVk1DlxcEwhTapd iQg/vivDbqlKAS+1JauvfETYzpTsEhkkA0pR3SeZFERYFqd1iuuEHNjTfl4V MUEBhcuqhkyOK4JTZ+fXXZso4C23hLU3SUrgganWUfNiCrjUrsLuoK8KGqye 2YJUChjn/fltjZE6YLs6HS8ZSgFtNt7yM5SSgKkTqGO+SQGnn1mzauhhIMkt dnfZmALek/LeQ11Pgn6f8WO9xylgxD0J2ek/p4BokMb170IUcBndwn8+1QXX wh8/z6WhgBbbn2wEU0+D3OjhpphZArz1+k3yHqUhmItXo/JtJ8ATX4rS8ieM gFJq1HGbrwR46LXPeUY6E+DzcsBZN5MAlS8+GqO+dgGUvVXKkIsgwPiFXHUe enNAKArvOOhKgAcEmPfOrVuCU6V/6HfMCNBC/ZGUhcYVkJ/7Sr1GgwBf2l94 /JDLFvA8v3UjRpgAXx/Ev145cxXci1JPsqImwCulxA+3Kh1A5xrN0zPte3jX 8T6D5HuOILc7eWEgdQ+v+qAybxR7E9z5ImfscX0P1w2Xn8nedgHnkyvf0ynu 4Zfu8XPmXXUDEv5mbKmbu3iIjZajy53bYN1q6pZi1S6ekGr5pKDNEzSQ7jRV P9rFuc5Mx8w4+oB0AQ55y4u7uF9EuxzDKX/gsfsqek54F8+aYM2yvHkH6A2o z92b2sGL6nqFWhaDAD/8dZb74w5+4rbsNHPfPTCXbpv3NnAHr/krdBtdDwWV wStMmO4O/uX0nfIAvXCQYBfh3M62g6dXFvSKtUaAG1oCDY4927iPDZtrS9JD QBL/ILuTtY2PINNr114+BmzU2lEx/2zjel+NHe/7x4CR0e4pCbVtnMmK0zXu TCwo+eF8upSwjSspn3RX144H1g/i6Idjt3DtrnNrZhVJ4NgN6Rvel7fwksJE DbnTKYDmdNlPRqktnJszOP8ifRrokTGSTidv4mp/NlNlKDJAPuNIuHLpJo4W 9bVeTckE92a8x3+GbOK7v5Suq5q/BBd+MepePruJRy/RdkarZoPtaCWasMEN vEm7wQ23ywXNt2oc+HI38DMXEc83H9+BLCOr6vzbG7jdgdZUFcUC4KU4L66F bODWTq+isdn34DRHSGgXzQY+fLsFNbUoBIJLXCM3m9fxhEc7fKN9RWCxLVeL kLyOh460hlIEfAJJ8a3Ew0fXcQ3Puzn09F+As9c1u2+ra7jL3Ls0wmYpwC5u VhjDNVzFxuVUAt03MMEjGuxnsoYLXKvila+AoGzj0yCLwBoe9/rUSM5aBXjc o49lja3idtRPjT+h34Fqitteve8qLjxq/WZ6rxowBFJb22it4q0aRYEf/WpA 3+Wk8mWmVVzjnXmGLm0tCBWqCBRIX8FXWf3wELMGYE640PfhxgpuW1V92563 ERz5O0HSUVrBPUSD6wPmmkBbJtu2y49l3Lfdl+7BeAvIDnlpRflkGW9MCA8U mG0FfvbHvz6zWMat0g71BW61AVFJGz84s4Q36F7Q+qvYCVxzCtbZDyzhznLz 6ak7PUCBxSXk5OAiTiAONQQf6QUL7kdYbuct4umdqrtNNn3AnZQj1q67iJvo k6RnuwaAZ1OmYULAAm4e6CjN5jsEVJVtf//QX8DlqXFDbaFhsJooZL/GtYAX j3iv0/wYBt52Kb7mH8j4b2tryY4Do2BpSlZfpWEeJ9SUnw3PHgceH99cSbg2 j49YZrWL606A1UAJjzXCPD4tw6dmNToB1tmE0r6ozOHybsfmt3mmgG/P8498 zbP40Rw2LDVvCmxm8dT5O83iRIeDqCY6DbZVOVaQtBk87sPlTJrzMyCQ8Jgh TX0Gj9JZt3VonwG7tYzChPZpPONEur2W8SwIin2gYusyjT/0bQrU/jkLKC5T n6mkm8bzrwbgB9TnwD3JezZiWVO4CwvtmEXWHKAi73qGIlO4xOF+WEMzD+5/ 8Y8a7ZrEKQ9KPmO/Og9oQtbTddwn8QN5H8LJn+dBuIFn8WumSfycVYtbDJEM 6LgW6+leT+B66+GaqhJkEDHg8veG5gR+8eDDiHotMmDImV6t+zOOuxs5yalf IYMod0emI17jeKKf6UknDzJgIo2KPGIbx38cLxc+G0YG0dR2anO5Y7i04df7 bbFkwNrUb3BOewzPQ5fTF1PI4Emild37gVE8g55FPCuDDDjsur3Z/UbxaBEn g7//Olb2wiN3zlE88eaRiXepZMC50pLZlj+CCw4FmtHHk0F8uWGJsv4IPnGZ MWQnnAy4HtT/ih8exlUXf/bGepHBM2O94dXAYTz+EKNejw0Z8PBXr1/kGcar PrIyDemQQdKIJsuXwiF8eoWnDJcmA778cjG+s0O410HtQ1E0ZJDiraHuP/4X TxfLoSqH80BAs8SwN/gvHqSl6FDoPA9eMKjYI4f+4mM/Y92V2eeBUPsH3xfF gziXBH9wZP4c0Go006/oHMATxqK3h9tngY6tkUcI4wAevtO9HnllFugt66dp Y/34hEOinsHQDDDgQ1Zqc3rxjOBA/oe/p4HZNbGM1oDf+EGxncyomEkQ6Xb7 wdNP3bjUo48sERsT4FvA91vn57pwbepa/dorE0A89iraat2J51JENz0WHQeL eNaflpNtOJYvaO+WNAIk65cqY/xbcW9R8w64MgwsOrVyjT+24CFb8SlHzg8D ODPs0yLRjF9QswtIZRoCgkp6RzLZ6/CCMOo7wsID4L7+xKZIyE/8s1aCFcV0 H5ixflCbsfwDZ65rMQ4o7QWlD39ey+j6jj9N4vw85NgD8hpiTmpqfMWFIm9o 8DF3Av+NlgFMsAT/5W0cn0fTAfQlOQIxik94enfFhgFtO6jfE791NzoPlzp2 OfO8YCsgJybZLyTdw0dSCgsKDH6BAGJctc7xG+BL75Gh78X1QC75ag2n6mPA BF7IHFCoAyZK3WVhmi+B/qLUJoNRDSj+ffFeuH8uCH/16a7LajVghtNiVZbv Aa84V0Do2yrgdu3mZFVcMXi78Xi8H6sEmeqyBtUfvoDuwPWeFOEK0M40nV/d WAZ6F7sKKFggSLFQOXE1tAK898JlR4XLgIpW/M1hju9gUhVYJOmXgsYjKylX M6rA8oLxaEdkCSAQPu1dLa8BZytJBV0m/+73SU7FEYNakAGmBRh6isCxNg87 +z91YMNx4GaGZyGoL2uPHbnRAKpdjbQaJT4A+2zlavv1X6DfmkE3uK0A7DyO Wx0JawI2NnxexsF5oJ60GVsY2Qx8burb3zJ5C+wlLauP8bYC7nZLIYUrr4EC P0O/+2AriCht+JUX+wrssJauFr5uA9ETWgaK41mgjsqJdcmlHdyYcOI6cTET JGzwSiupdgBr0cgIo6F0YDdXi93e6QAQS9ZnZkkDcsO+FkVVnWDg6fKlhfAU UNPwO1LJpBuMvQl1ciUmAkefnhor2d9g2UoEHW6LB3Tif6hCKXsA9/uTxdyt sSCn6Y/muz89oCC7qIFnMwac9u+90170B7TvsZsd0H8CpiT7vm5H9QIT33Mn 3vk8AlGtfevi9n1AReplfFZmJDhyp1/lLKkfXN2dRhUZH4CGwwPunpwDgJmx kbos7z5w7hgoSJ0ZAGwmFAPT90NAGOa6amc3CCI/sPi9eRwMzBLInN6Ng2CW qgmVj74LpGZclaJO/AXJWcblqsYBYF1zwTgt+y+g6upWSLf1BT+fubkWcQyB CC3eCs4vXiBxdiG65s4QYIwLzMwx9gCOWu55f6aGwDfWuvA/Eu7geNJi/bzZ MOCSH9+LUHAFdPPuU5Tfh8FPG9rw0d/OoPvUEh2P/AjI9PTYtMi7AXKSb0sd eT4CiDVNh/XbrgE/8pI2RjsKLmS1McqesgendTzsTW+PgvkpzmiWDVvAl7J8 z3FgFIgmskiLdFmDqQWPjIAzY8AkMPpKtuwlUKq7gj/5PAbc7GyUpkbMQWSq Z/9LsXEQHxtH5ti4ACyXVrZLHo+Dg4+9fgtZmwBZfS/+X1vjwLJEa+k3izHY frGq/vf6BKiVuLEcSWEIGpa9zFfaJkBetjeL9KXTIOX0mhc9NgnqqZZb5ER0 gXO6d7zAu0mQzORo66R9CpBW14oU/72DL1zVRz+VawImA59W7dApcKjzV18D LQC9GetkC/IUIBhcdXPm1QB5az6sLpemwYuTHLftstTAnbMbR+/9nAaeM2M0 OonKwDDL1yBBeQbc+15YyTijCAQ3Npxy02fAcqdGeoOUPJgz9IsoZ5oFmUz3 i88zyYLyl5uvW31mQZLPVYfLHlIgetPvx9jILDA6PLPhZyQOrhhtjWwazQFO f8fGsaciQD7bn5L12xxI/5pWUX5FEBC2t0TEDs8DEWHXtj0VPtBsHICpxc+D 4Kzr3icSuUCzyZ2CVwQy+FTwj+MZjwOg5E55eYEqGWQd5WCn+8oG0nN2f31x JoMrtxRmOMqZwIN2tO97JhkU8R08tP6GDrju3Zn51U0Gx35MGUyIUANzGXyr i2UBXC56t/aQiwiwC3sMQ6cWQEVa4+ens7uodBDgm/FbAFPXObeXHTdRtrd3 D6++XwCLhbe1/MNW0Y0O/DhhfAEcc9+w9lVYQocIBD0GgUUwzE6kJpiS0TpZ 7CKnySIgR2VacFZMo4VmQdcEIxZBQl9/zbXH42hyMPSUxhdBwKknp2Y2htF7 7wj3j60sAoE5uY6hqUHUqQuLI8kuAeUrvENtL3rR88TgLB3bJVA04WtyVq4b PXG0otDo2RJw9u7sGLnejqq0dyaU1y4BAm/z7qBDC6rgP+N3ZHsJWP56RDud +QuVFSVaJ8stg18+Vql6arWoZC23Fp3tMti6OdJY61KNirgelfKKXQZvVtne NhyrRA9xazGOVC+D5ctIh81AOcpTbj5vvL4M2OWvL01Il6IHHFzacJkVsNPC tVEtXoyyMIV+Pnp5BWgVF/JHfSlEGYqSnj9/vAJ2kwmmDzMLUGrLgrv0lStg OPRDGVdhLkqgqL7qvbwCdI/pUQoFZ6Nbr3t0RyVXQVFqi0fqUia6akiWNbFY BW/Dp0mbQ2nowgo1W0XUKjAE6vJSDcnoTAr/slz5KnDjrnA1vZuAjmspdqeQ V8Gpnh79o/1P0aEpnTIGsTXwRCJdJyT1Mdofcynd58IaGHC64dDmGYn+Pu4e Oha+Bu6XPCkNEApD2wfCHU1L14BSk6CHrt89tDks1aByZg0Evzj68lHHHbT+ aJGCgtA6mJQXmDpf5Iv+aP/J+cJ4Hbj5qAVoXfNEK/z71xlD14HTqDT6o8EN LRNd7vUtXgfDbzRu/Yj7B/1cS18xPrEOdiLXDKmiHdFCV6FXF/g3QJH83cEH l+zRPG6ViO9nN4Cdxjer2T4b9E356X8UgzbAlxm7VcspK/Slg41xWuEGaFrn eJN34CKaxuSlwjy6AWgtFWTzWEzQ5KIoXn/uTdDcYFJ/3+0cmmCZsTOhvwkW jeqFf07qozEUn/+aBWyCBfUqNacL2ujDNw3VVfmbQPORimlKlCYafm4o59jf TWCb6ud4q52E3ltde5R+YAtsbm2L2+aooYGpzO4sOltAf2J3x+6aEupzSsws wGcLwMSs3us18ujt6eMnpnK3ALiBUTsTZFCXp4aC5n1bIO2fuyc+YRKok7o9 8QfrNqAey5L1sBRBHQZ9x5ROboP6Eflg7Nwh1Cb8cV2GxzZ40ufudpmdG70k 9yqf9fU2eC8+Sb3zgwO92FH6NPD3NvjR+fBhZQQLej6g2WuacQcQ3pVWJjbS oWfFxiwt0B2AZwxx+4hQoXp1W2iN6w5ot7vu8dGYgGq5sYupZO0A5YKUVieX TQTlkaLN6tgBJpq/L2/YriDqOGmajW4XCFVIZnTpLiDK18433TmxC8Tp1Rm2 xqYRBWbHohnnXZD/hHahLmgMkf0Y+MwybRdY8Pqo64kMIZJWsf4/W3ZBTKVJ wapcHyJKzLFWpdoDbxl6Nb96dSECOeVaL1X3QPJ32ZPB3a0Ij1G7FMeNPUDa fB2ziDQiB9YmGYOe74HImK8PbiA/EZYXe/Ozv/aA9OhSZbHjdyQ0k2HqKIGA +X5cq/jBhCNEr4O99rwELK85jephUwliaZPbWqJMwOI4m1cXXYqQwtOglsmI gH0WOcGydz0fYVBpx21uEjCe67PLKpWvETuhG8UfwwhYVIP+27LITKSUfvcd XSYB+5Dfi9NNpCAcy0+zLn0jYCaa0FUzOAFx6pdKft9NwJRtC6U37sYglT/L nlAtE7Cynxhdv1wUwldkHG7OSoHdX+i7K8t1H3FPHQt8J0OBebBT9d0yC0Lq wv09CDoUWOHhw2Oy+r6IqDvbTVNbCoynD31yPOo24nfple2bAArsGR/f0YYj Lkirzgnz7WcU2CJOmaF06joio9hkaFREgVFr6jBvTtkiIfz22i8bKbD3gQey A55YIb3UGxrrkxRY/U1jAaWjFxBl8qNjBtRELPG938luYIQ87BE9nC5MxI4Y fOtWn9BDRqo+Cy1rEDHtpPNvu9m0EFKBAZfeRSJ2lBWInpNCkLikv0wp7kRs 4dlgrZyWKjIT4kVJfkTE7JjOHazbVEBOuTBuauUQsZM6g9qp/YeRFPN08rMq Iibbw1I7ki+GLJ9UGZ8eIGK13VzGEVMCiMHRuj6wRcSifN/yUn7iQl5yW7fH clFiOOsK55AqO7JNsVw3rkiJRZ7zxYrYGRDTmQcVGmcpsbRFyTGpz5TIu06B kseOlNjuU9XRnp87JKqKwvzhEEqsxF5o+bHPKunSW91XammUWGikY13VHJn0 Mb73eVQpJab4XkJzJmCSxBTk9nSggxLTEMhhH5UeJtk70UQoLVBivl9vrWpX 95LKTJ/fDWeiwpwRWpETsR0kTqDg9UeKCtu2Yw3pl24mOR+udpbXosJCvBIH 7h79Sao+YHk15AoVdrX51/ePbJUkwd05iy5fKkyCTjUkb7WU5DURYiQbT4Vx mk5vCfF+JDW28ujefU+FNSrF6Q3P5JEkv+UhbfVUGEXT4s8ALJt05/VJZalx KsxoiRvPC0sndcZ0yfgTqbELuvybQaGJpLBrFDxi6tTYPe/+FJWhSFK/UQKL tyk1dnIxMSCjP4SkqiFLXX+LGpuYFq5bvhBIGmO9sOieTY396ojIvvnnFknn y5uGygM0mOPasnBQyHkSLZNRsN0cDWbayFNfkMRNMpeyhKr0tNj6UBtlgQo7 Kfek/R6DOC2209T9e5idnmTo6xNYZEGL9QtFv20K3tRIGEv3paqmxQ4Fa3j/ PN6nIVmx4Jb9nA4jk3SDPOvSNbS9Yu2m9Bgwt+1F64xSEY2QwU4t9yxmbJrH jr9Pku3E++dhRncW2bHnXJh5YGe12q1Me7YRs4PYO6JMpbT2oPIVp2SB8GAe rHZ3OEOLp0oxwthLXSmFH3t762VzsISFHBVn/NjdTUEsfGZCzoJdXaar/j45 lFUE44zRGaT5vSVxwd9ONfm7KBYTGHF/zmJF2JlxWrTRUhxj0B1nZXnfzy/0 9kcCzZQEJnZKQ+3bnSAu/xItE9bnUpjIRNy4Qoomm2u2c7Gq/GHsK6d7fWED LQMTUc1OblQGu0wuVFmM+UPU/sc0Xib2CPa//wU8XwRuaYvL/een7g9iFLrk //P5sHNHU4sV/rOMVeiFl4GK/7lzjD4z9sKx/9xoN6rJIaT0n/9SvV6PF933 crZjAa/kvnmnpw+JHN23/e3FNXmNfW+G7OWdvbhvyVe8fBGP962u+6eZKXbf BpMp4U8S9u12VHjlWeq+yz5JNme/3ff5H0phVTX7dnBcIenV79uH4fNSfeO+ Uw1P2LZ17HuiEyMNDf+feX2ISw7j+2bmr8qZnNr3MWtd7oWFfWtT0Dd6rOzb PKsudH19307aDzUCtvf9P/8t//n/AVI/WdQ= "]]}, Annotation[#, "Charting`Private`Tag$20823#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2nc4l1/8P/C38bZDIStbZGaPvO/73Eg0zGypzIiEkJ1VKCVEZjaZDUVG 7tsslJVki2SPt7359buu7/fje/4453pcr3M9z+u6zj/nj8NnfdfAjhSHw4n+ m/7/GjClvXJ4KIvh/mdM+p1cH9w7sg7j6GbF9pF5lV33764euf5xLNXvySNT Sf7ixr4f+YXHzctBKUcuIrmXg1M8Mt5OU4bdUuY/M/U1OWfFSP9ng4ZkG5FW qf/stwQ5P/9z9j9/up98+42u5FG/sUa8B0nimOVy4DJJZB2pZtpnHa15USzp FEtl3Nla6rwvPr33LEQw9keDpxWmfjNcD3vB0vFaGNu2YacTZOI6GXiTrJSW SQjLd4p8I83whBMnwYOqPxTEinoUTCvmg3gHniSFF/3kx8aONRsLzt0/fYrG oWBNjQ8rdLOS+CL+ScRJXhQ/eIoHO6edyOCgPi1hozjyuqGBE/v0+hcV2cxL aVHvc4cuOWxY1hdoBPueJ5c5fLXRR5UFq71Nt6rBGK04FcxC0GQ7gQXci9e/ QzKmXBV/RmPa+BjWyakvN3lxU4XKYsqGhHAM+5j/nJHq8FDFmDcvhIPvGBZU 2attuoYnrBQKYFfm6LDu6c4KqmRmggjGrfLuAR0WZ/sA7z4hTUicZZb2fU2L cdA2sWY+diRMvvmhG/eUFiv+eVb3q7IbQc4z1qXYnRb7LVtViMjfJ3QcMhSP EGgxNGrFomg/jEDBQius3kWD1XR43qpcyiAYDrRoXCunwarJRskysvIIWekR tp4pNFgPnFMXplhKINpqhj4LosGa7Oz99U9/IMCiFFn5djTYWMsI40JPFSFq qRHDLtFgubP8x6n66wgDH0JH+8/+y7f9fux2xRfCGV+1gxVmGmzBaPRuhG8H wROQcNHtUGPWN5Nkh4Z7CPXkmMrpUWpsAzZOns4cJDC2BprDjdRY42LJT9sL 44Tr0ZCPSQE1ZsPznp7l9DSh2HDvpeszaixLeCGZZniJsMNeXR55jxozPxM8 fRq3TtAa9fmZZUqN7VqOvfDL2yUk5CitVUPU2NVbFQMxkqTQhOPmiZ/81Nij FTsa43FKSOZsufQiJTXGb/aMu9SYAQpa89CjXKDCjHdv3DkfyQy1V8re5e2m wqoV3jqqjXNAnA9WnipXUGEGtBUl8XF8kMP5d8UGqVTYJfNj5/vWhKByatc2 p2AqzKWOl/vXigRE3iE5G2b/r+6PammEykIGLxaoXl2mwurdOOub7ZShDLNi 4QopKmzM4L6vewgCLXI7XehkocJKI9hQN1cNiDAhYjezQ4n90inuP9FxGXpc MB1K+psSQ7m9bjeTGUB9LvlZnE2UWMpg1h0ZPRNISM6+Tq6QEnvW6sP7jv86 5LEt+Fs7mhIrO4wmu+VhA9XV/jmw96DEVraeutOwOkL0YVlcQWaUGBEbcSEX cYWuXbQiJMGUmLea5zhbmwdUSM9r8V6AEhtTlG83q/SFtn6M+LRRUWKWHqGM 54WDoQtJaYkTCxTYmWbnvqaDh9CL69cq9rspMCbbb0n9YlHQuABn78lPFNh2 0uMHfPhYSGqmf+1sGgWmunJGe5ziJeRBlBBhDfu3f+C+6dnZVOjTZrDlwW0K 7E7Wz6vf+LOgvYOfMX/1KbBPTryPtaryIFUK0eZvShQYGyOz9kmPYujRscCd Mh4KrONl+Aq+7R3UytwtmUJBgeEo84JEVcoh+lNCNiELeIzN/1ZbHFoNGQj4 vnTswWPpeeKXuq/UQQmi7W161XisCasTmYhqggal+XFKWXiMcTs3zL6rFeJV 9pLjicRjZqIDvgFFnZAt0upA4YrHWGFbw92yHui1JnfagjEeO/kiafftm35o Xse9qwfCYy95I3m0e0chKeNmfI0gHlPk0/+88PEP5GnJcS6bFo910PCalltN Q1W2Li6PV8ix4G6l0NN8i9CBU32WWz85Vs5+QLKRuAKp3Tv5yxQjx8Qogk49 XdqAHvnepkXyybHCxeMRG6p7UGtwLRB+Ro7Nc3v8abUhgRkiT3jQe5Jjf8It FL5Z4WHD5/av1y3IMef2pp236jRw4suqoSG1f3lbeUHXuBjhoVf0xxtFyLFz 6QeUinVMMG+etUYRIzkG/JdYLaTZYNuScp/YTTIsfsIbEkriggs+0JT6jJBh bqrsvc4n+eHF6uvjN5vIsFqJt0klLEKwTMP7k1rFZNiCvXXUaaIo7NVKcfls HBkmmLkeme4oBVd1mT846UuGjbaqelfvyMIHfaVl+zfJsIpulSW6K0qw2m/S 6QlNMkyIK+GgIAyCH00Zn/omSYbtf/jC8HpGFW5bLNQrYyHD+nNbeGYrNGDG jYOw5D1S7GsZpc1tnUuw4b5BZfAfUow6N9J+qEcXTiTPX3BoJcX8JNps1KCr 8BDtLp/eO1Isy2DjwncVE5iXSddYMZEU++VNQnSnvAbbcWQ/5n5AijnMeEbM /LkJF/Jt1uLtSTF6p4jmFSNbePHM5dX5K//yW2XTsz0dYBmpdOEeWVLM4Nqq zqjNHdhLcdWimoMUK47Z18Ky3eAqWPN5FgkpxiwR9FtK2BM+1EhpjJwmwR46 VzJpmfjA57WXtlw7SDA+upzkvquBcIShuoRpOQn2QHlM8wxfCPzN4qUVSCPB Pv4pmTDMfwgz2szFC4WRYK9mVJmQ3kjY8DZoPeZEghWsR5aJfHsGJ7nFHazp k2CCgt8rYeNYeMR7SmZIiQTD++ymGHbGw/xBKrcaeEiwflJZxsfzSbB9eHRK IQUJJhllY8X15RVc+OxPR8wCDsu5y3EvAMmCF+MVyX16cNiyzEslQkYuLJv2 ROlmNQ6rdSMyn0wqgL1zRp01s3AYdd4BWD5fCtcUyWZKRuKwCY6Z3oXf72Bc WfhPFlccFqzB22bE/hE+XzVIvW+MwwRdWFUHRz/BpYW5yl9UcFhi9+TD0LLP MFvKXccYXhxGLqkhyl9eB4c8UU6ywOMw7FDehsDeBPduUsRe7jlE+e9FcCVy tMCFfcnLo2mHqLDyKST153c4sFJS3+PWIXpft8CP6WMXbJBc/5ZK+hC1aeuN TzvogU/7GTOm7RygJJKu1H+G+uAti9m70o0HqKhK1xzqMAx/IwR2ND09QF/l iRf43hiDM7hOnDU3OUBfiLkvXAuagD0Ocp8t8h6gPFQ+KZKi07DWqPJiyOw+ er3ZyhN3bx7mxL5rs37YR0XZskQ4qojwYoZVSVHAPnq8bkneJ3cVrg9ep0M0 99FXc5RxxnSbcIJ1pHMP4z5aXu34YIBkF3ZU5/rmMLCHnuY+xbaUcggTBN+J 7WfvoTWB/T7tPqSAEa/xJObOHnrfHIUrY/Fg4m/f7GnFPVRq8PPT3TPU4FOz 86Uq3B6q/XE9jUX3GIjKxxXqtO6ip8WDX+GPHQc3Il5Q/4nbRZ3oFi70dzIB Gcczjvctd1FO27PRD3GsgOJSzVda4V30E/d1Mt0iDjAgqncmg7iDbhsLTd0b 5waltBPhclU7qEm6h0LZEB8Imb8/9TV0Bw0mRl+myBYERt9pNS21d1CmQfeT oZ3C4Expet7yyR20nyIzYc9dDOw9k6V49Hsb7TR3ermSdBZ03v1ix1G4jX5L r3h0Q0wGZOtZNJXe20ajrr0pthmRA17SS4Lq0DbqbFz4o4+oCC6dCA37RbGN 7jE90OtwUQHcqycnnDq30PX05B9ldgCs/ChUxyVvoWX52m5KK6qg+QOc/cJm C9W3PWHTEnAeJMV3k4pIbKF/xVJwFdc1gbOXvfXnjU10YkdfRjD9EkBMdur0 sU1UUo7ultolHcCs9IxvMnITPccQdUtOQR9Ms/EH+17dROsazvolRF4FNdsf f9NzbaI0NFo3aoWMQfTARSR7cgMN7s8cHGIxA9bVw+mKbzfQk5V2U7M3rgGF VLfDNp8NlFcpw/Aa5U1AE4C/cVN9A73UbxwVeNIaDFsm1a7RbaB9lp85ZW1s wVtYgjuydx0dPkM337NqD8J46gK4MtbRO3W6bpc7HIEpzmj4neM6KthWF8q0 7wzEx6YJF2TX0ejZVZkcNVeAq/dPHdhbQ5fu//Y0VnIHP7IY91ya19Be8i/m 5rYeIC80x4Ls+Rq6Mni/ornNC/jaKlW/NFtD7wUl4pg9fICOxjcOcYE1NCap u5vXxh/wC930xeZX0V6LYCuF9Adgg2Kt37B8FR179frGo5fBoGUqXHnmwSr6 Gs/vOxUVClK/ciYFXFxFN9eaHKPLHgLXgjdbx5lWUaYhc9UohgggRe8SqvZ7 BT1jvW196/5jsOwuTn+vZAVl+9jwSJrlKXj/azYx23cFlaGQjm6fjwbuhAKB Hs0V9Hl/GhANjgGymbdKyVlWUC+rZCJeIg6s4YWU5ceX0Y+sDNuKey+AZ0eW ToL/MvrgcGKciT4JKMhZ9TdfXEZpVy/mlRulgI1EHtvNk8voF9rPbzJa00D5 /vCi8AQRvfNL+HqTYga4b53qY/qOiLLI9gtmZWcCpS/m5JGBRNT7tqm6mWg2 2BJjj668TERvbOLDb33PAauzYhflvy2honldYkUur4HHh9fXE+yX0PVnsQt4 10KwEXDaYxO3hD479A/GvSgG9zWzIk1TFlEWWykCNFQKthh50ivlF9HXF6Rl pHPfAp+BlA8cnQvoSLWVBR3xHdjJZmv1u72ALljJTITploE9hRPrUPo8+thy /dgr3XIQgIumSVeeR8tOXpYZX64ABy20vLieOfT6FEsxVXElILHEX66nmkN1 tPm22Zw+gxChkJsC2bNocMZTo2A3FJATDzzDoFnURez0JZsWDFCEbmVccJ9B m27WcakxN4DwK57l+XQzKH3YIhmrbiOgOrnSRpU/jS7X4A0fJzYBmoK5jdbB KXRUtiZb0vQreOLuQCfuNYVGmcTJVbe3ADrCX76njFOok0HHQIphG2DoGLmi qzGJ0hHYQzKftYPniRbWb0f/ouxdNAP2fJ3ghHXf/eO+f9Gnc5pBEmRdgHm9 K+tH6QTK0lqzEjXcDdg4m7ZM2P6g5uCp6PnZXpA0oUpf+X4cpVFpKK8++AU4 SmsFOLTHUYMh+atZ7P2AS/WTzlDwGHo9O3Yn1GoQqLcbX6zrHUVPEL0Ckll/ A2N7gcxu/3508tZLNl3Rv+Cx272I2I99KOVOUBd761/w2b/hrsHiL9TELZN5 xWESCMbZwN03etEFZY11h6wpsIJmD3ap/UDzSrl7H+zMAKG21foYv24UU1Wr /hkxC8x61Qv1P3ShaS28ezeZ5gA2/8e763QnannXWv0N5zyYXrqF8X9uR5m9 WZfrEueBLgVVdJbk93/3+Z22kHEBcMtqiWcdb0WjNk7Xv19aAA8vTu/whX5F WdQgSkXjRTB/I6Ilc60ZNR62rDctXwRXvc4k8tk3oU7vxGe6GZZAVdRX+8xf DajNwrW3ttZLgC/bQZ7vYj26kPGtv6tkCURUUpFnVmFoX9bH/fHlJTCSrp+r alqL8kmrTMmwEkHJtxg1VZVqtFgHFCVIE4Hfdtcowv0JPSjYYaXWIoKLQicC EJKP6NeWQXMfcyJgvWrAgUy8Q2OdShL6HYig7VDw7oNnJeh2y9oa9z0icDDL LQg0zEefP3xWpupDBORlpycCODJRAzV3SciPCBD2K9AOFo9uNj/5y/CvTkxM sl1OCkFztdMDq92JwJ/0RdMFJUdg80a+4fy/fMlkmy/MCtGgm/lFcpkZEYyw v1ukZUgFBR0thyc0ieCqbF/NI9UcoD32d9VVigjK+01Cwv0KAZuzs/MICxEc w+YEGs3fAvdXRv4ji0sAxBU9arxfBp71cFN7FC4BN3unmcYX5cB99Abt2+tL IEtZ7ErTu0pw+q6lUCvtEuihmyttaq8Bi+qOnQfvFkGqmfw5m7A68O5qOR02 uwDk1eOd/pxoAJU9h/sDAQugXXw91SazEbxwFowTp10AONzHQ5vaL0DmxUdC Ocs8SJphlp640gJeNzpbJcTNAZkfHta2g63A0a7syR7dHLDNk2uy3foOnpse +4KtzgBbIfMmGfZu4NL499yZlCnw5Vv/Y9mrfQCw3xPsyBgHDt4DXyzE+oHm Z13lD6tjgEpwkDyMbADo6Deu12qOgUt+Q4E9ZYPgOBcVx+WZUfBNZNTdk3kU xAfxcj7rGQDOP0ffpM2PgqLoSRfGV/3gEeK6YW39G/DQ8rSauvQB4XlX2Sfn xoBrcrXZW8Fe4KDuXjI4Ow74/+z8uUbsAkpJK21Lxn/AYwOWWLDVCaiW3GfJ Gv6AedMP35uoOkFB8j1h8ZQJIOTSSZwL/wZ8iasaCOVf4LZdGaw73AouXfCw Nbz3FwySjF/nPN8CZpc9Mv0vTwKbs1cQR41mUKW5jj6vmATbFy5sRI42gsdp niM5AlPglOg1U4PHDUDsohfn990p4GT0wC+DsQ7svdpQHrs1DW5013RO9qLg 25qX6fqPaXA++HMcc9Fn4JxxP56reAac6HqrnVNUCQgbm2XSbLOARihBRaW3 AtBd8e7WCJsFMf7Ubl84y8FQ5hbRjDgLxKz8UX2/D6Bk05vB5dociCQcqxpZ fQ8CtbclQr7OgTH5H4KuYe+ATrbPlQS5eRA7unGFQvwtWNTxjaylWwAZEtpq Yd5FoDZnJ7/bewFI/TxT+0ujADzb8W2enFgATrrfaS8q54PrersTO3qLQNb/ 7585vVxwNs+PjOHzImigNlEbfpwNcHu7fAIiS6DDQrDl/N9M0KnvjyjGLwES 218bRtczwKfA2to3CkTgfMvNlPpyCsgoOPhe6UwEIt1Zysm/E0FEDzzckEUE mE/FW/G8BOB6GDj/vY8IOjOdIioSXwBTUXT3F/0yWOv3NdT/GAsQo0Oa8fPL oIf165DU9nNwJghwzPsuA7+uG1nmDc8AY9EDkY23yyD3aUC8f98TsP0TVcJN LYM30WvQpngkGMfhtGi4VoDLfgnTuZpHoFUMMWG+ugLEpd7YrQaHgffGQfbc kSugk99cgME3BCQHY55n0BWwMkt952NGEAgpxj2UWV8BhVrU0zETAeD2L+QF QWwVCIXkWbf2+gID0uDsC1aroJkfWf903Buck6h7r/dyFRjnPt90ivYE8j29 CbUtq6Apn0/X4u49IOU37yu+twp0Cy+p2Aa5ATF+0hvJkmvgXDEV5dmAu0Co hVWdymoNSCXmZ8VecQZ8rhLCXnFrYDA3mv6UgyM4xapOO9G0BsQuRcm7tNgD tlrTJf2tNaAjRzabftsWMNm5/EBF14Hn4vRn+QvWgJ4urELCch3Y4sI2OU3+ vQ/LklJSotcBYRjVV5W2BHjzNw+o69eBWsny8CCdOcCRNNncX1sHo7aVlVTK JmA3f0Dzr9AGyC4KFncqNQQbOkSxq2YbQMH/vRJsbwCW1/GMdU82gEaD4qtL 5npgPpVzTbJ249+5x2OrqLXBlLp0XypxA9jWPbHwr7sIxmcv1NAIbIKUY4Ji ut0XwEjMtQxvo03gf6rhvZ/sedCv5B42Gb4JLGPD2RiGVUHPaLiDYdUmAFv1 2onRAHQ+SrtSP78J4nDaBecGVECbRJmUFM8WkBKjUWV4pgSae74yv9LfAj8Y PnsQMuRBnd/IFm3YFiBzK5xeoJAFNfxrQz7lW8BRNGIGrpQCFS3UdVPTW2BE 1jn8ynUJ8N6VJ9eIcxuwBx7sNdeLgBJW+cgG7W2gWqT4ayBWCLyuvXRHOmgb dK8WrzfUC4Acu5v66e+3geXSidBFTT6QTuclf+zvNjil+iihXJobJJc9Yfdj 3QFmG2/v0plzgATzzP3pizvgJdv7vLTtkyCGpGLM2H8H1Nvs2jeRMoOo19+a Gkt3QO7LfpOrjsdBuO54gczYDvBNiiptP08PQjY2n2Yw7YIzKH9mhhYNCEg7 5k5/YRe4G55aGvxGAbzPCxj7e++C0qBwe9F6MnBvTuncbOEu2MxloV3kIAEu sTrcpsO7YP7i/r5Qwj58W9mWtJlhDyTeRA27ordhu98+k7JqeyCEei5+kWED vhke3ZrpsQc0acQVmvGr8DXJ3FKG/D3gv/IgPMGaCJv8rIoN6N8DWhn1F6tl 5mED/06vOdp9cOp4GqYLTcPaApPmZvA+0K4CLs2dE7BW6y78xXUfXPAafO8y OAarux0XkM/eBwyrf+zDU0ZgmE2YMvvnPtAQNIwwlRuAlVHCHCPVAVD+SdQJ deyF5ewNOgLPHYDfbsNrSkI/YKljDmXzzgfgV4+dg45pJyz2IeClefoBGAvZ KekdbYOFLOL8vnYdABed62FhtV9gftKCGwrkh+DJpyG7TLlGmKugVj1H4RAE iVs5akvUwWx6PcInHA+BQAiX0Q/xzzDT5gxtUMohaOInjj3APsH0rw6XFr4f AprSLH/HnQ9wWBbNrAQOhzwOrlTHN7yDSb1YhmzZcYjdu4eSm7SlsPnNwu5P cjjk9v7lkuNUBfD7S6CFTg+HVEPPCgV6cmAa+R70phMOWflR9C1RNxO25nEs //AIh+RHB3U8/ZwKV1EfFFNl4ZA2QvYD156X8Im12Oxrn3GISWuFD1dNHHx7 RDj5bR8OUW1lf79t8Byu/1rznHwNhwwWJbdrbD+GOcr0w00ZSJD07FeiemqP YPe0yYBiURLkXvePkhrTELg13M8Dd4EEUbJsDlaWD4T53RmdDK1IkKwY1dmh Xm/Y91qu1Wt/EiRiIEb9qb0H3H3hnOneSxIkRzWAX77GFRaV7tDRKyNBoi7E qMU5O8GhnLYaOe0kCDnvmNBDN3t4CL+tsjVDgtAkftXyNLWG5YhPZa7gSZHx voz7zWuWcNQAv0gGLyny4VDT9c0dU3iisYJnTYUUyY7kiS38exUmvLlyUsuE FLk6R4FOntWDXySN0aW6kyL7qZp1njqX4PlQLzLiU1KEVWu+rN5MAz7vQruj XkCKJAsRK9p1VOFU0wziy0ZSxP5wMJ6XkgCvqclPzY2SIu/7M8I+FirAVyRa h8EuKaJh9NNMRVcGzmG90RN3kgxhWnPdtHkiAe+RrLVOSZMhP/MsQjfahWHD +Yg6FW0yhN1o0+u7iABc3Mv1KdqBDLEIw6kTO7hh8rr3pX9C/9XprZSnPrPB 14o0cxXTyRB9tlF5XB8T/CF+KOVJFRkiu8navt/KANMFucWO/iRDzHbXadRd qWHb2xSRsstkSDn38ks/Q3K4xjDlQTgdOeKaLU5pdw4HMwMpr0FhcsTizi5/ wO9tyFmkyfmsOjnSiLnxm6esQU1M5jah18mR3Fhi04ENEeI+WDT75UOOxEsG DVPTzkJe06F6YvHkiLFTa8W1wgmovZtN88FbcuS4rHHB9s3fkNDnEuhHGzlS e+Oj/bPFfigwX01OeIocwZ/IHKEK7oF6Y36J+pHiETl6UhMX6U5I0t+Zr4ML j+Dqt46vPmmBHtmTsAko4xGbbl/oDW8jNKKXQH/fEI941JtH1ZagkIKKGL7t Lh6hakqmN5n8BD07je1yP8EjAq8tOs2iyqBJBqMV9zw8Er69WqP1uhSCd2am m+vwyMHdj9aTpK+hhInAUY5hPPJUROhM9tcsaLGdqddlC49UcaxRPDZPgy5U vv5Wz0SBxLDzqMZPJ0CvsqGGk2cpEN7PbKU+gzHQxtPuytuXKBAKvhvpj9qf QDret97W2lEgcoJM75vSH0J51nt5J4IpEJNA3MUfbUHQwZWYNPtUCqQkBH34 icEXMlYUelFVQYHELY6vDEt7QKV81Y/pf1Ag1yh5/EvU7kKUdHrB1osUyI06 pcwQUQfIVNgcU6CmRFaHU90CUWuoUM32kEaQEnli9KLjJr0ltGfpAo/ClMje gE9DUIAxpOPjHVBmRoncmRF2sLTRhzJehNSEe1Aiz4NMeWQHL0Erb6J2LaIp kZ/+Tx3NK85D59sSzkkVUiL4V9yj1vMASpjM8CFvokRIQ7Pio2OUoGmSok99 o5SIx7qC8+64DHSO6+Nm8Q4l8uH4qwgOEgkoSglVCGahQnCkvbNDsBA0crXF 00iKCvG/Jf6wi4YPkrr744PIZSoEuqZcTcPCAYU8Hl7dt6NCmj8OKsYuMUE9 uVMy3UFUyOVDCuMRV3pIqG7ZLS+FCqkzC0r9qUAJeQ/tvvUtp0LaSQevdZWS QK2beKJOFxUyUHXbKXR6h3CKifGswDwVYv/J0V/83hrBRZLDZZOCGjH/KbWi SLdEwC4KlrTxUSNuBD3nqsdThBN2kvPpBGrE2op+MqJnjGAbpCTmYUKNnGbV 4ri4M0AoT1G7reVOjVzOHLj92bqHQFVxpeDUU2rkrmQR54nmdoJ5t/E0MZ8a Efu9/spL9guheOGmcFM9NRJu/mjji3cd4YDKyT5pmBpp0eteGNCqIugJeube 2aJGqNNjRl6jZYQs8GBClYkGOe0SkWieU0JYM48UOClJg/hxv3C+pZRH0PCK s57VokFupfJLa2VnEBJi0jJrbWiQnBbRAK4/iYTp4vzfsYE0yBtzUBTzMpYQ 9af6usoHGiTTs9rYqDSM0KM3YR7FQ4s0c3mFR0KOBFsx+auSG7TIcF0OmWib NCH0d6+6e/YxhG/qeKmlXY3KSOXlO941x5DyU70DkosfVM7FYQmBP48hHbbt +Uw/SlWIGoUzjynpEV67CyQbBRkq14sCorOd6JHS/id9TSBU5ZyX4GCPLAPi 1smTGeuvpbKNV67ktGZEZk/PpGZZdp57m/JIL3DlOJI6yV3x+1yb8t0sW8YJ YxYE9DF90crWULx+O5krPJgNCRYYPt5xNVwuUt9LWTaVEzkQuvWpxdpHmpw5 fvLBDjeynMMtETiISfxqe0gMY+BDbGpWQ5KPTYgY+VkrJDfwI8Qm1Px+6sXT zrRz/O3mgojcRQpcg0MiL09RcwLF7Gkkgrndykghk9Pvk/pVhhRhxDOFz+0Z xw8W1zzncoWzIsjA5cB7SnvkjHSkitaSf0URWU9LZenvutQadwzjRePEkZsF Orqd5JdI2Sq57moISiL/+z8g1j0iRurX2f9s8EhXIq1c6j+LWoQZ5QRI/+fe SeqsOCOZ/9xu/Vf1BI/sfx4jz9+K5z/yWp7DG3ahI7PPzZ3ikziy7b2VzbMq R94JPSzRNjmyUC47R2T0kZU1Bzvp4o58ZSY1/HnCkd0keNdfph255qNQZ17R kQ2aZR81fjmyncM6QavtyN40Fatt7UdO0zln9ePnkad7EcL4n//Trzfpqt3U kY9xNhbMzB5Z5oYm6/LykTVIqNs91o9smt0atrV15NsaUSr+e0f+n/8o//n/ Ab1SF/I= "]]}, Annotation[#, "Charting`Private`Tag$20823#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[ 1.], LineBox[CompressedData[" 1:eJxN2mk0lV/0OPDrupdrSBpIZIrImKky3Oc5DxIVQpIhMqdIMmVuoJDKTKaM ESlTmfM8xoQoITJlyOyarnn691/r9/v67Rdnr88658V+sdc6+8Xmt7yrZ4PH 4XCS/47/n33HtRZ3d2Ux3P/EmDf7cu/WnrVZB1dL1vfMp+C0fXdpzzXPIkh/ xvZMkvzFg33bc5Sr+aWHCXt+R+OSgTu7Z6KNusxRU5n/fKi73iEtXPo/69XG W4k0Sf1n7znIIWzk1H8uvR9/O++y5F69EVf5duLEsdAVklnAxH28etJnbY0Z USyetHvbq9yDIfOLZ5eLiQi2KsFXc9kpZb9ZQBRb21thrL/WNVeBNMTmZ077 gemQEBZeQ4l70q/HhZPgRVWfCGJYlifly84lvt8hcYHvOo9jwWMdw5nf1U8c Y7TLpqrwYzW09F4yKc9F7E+LEnuP8WJzr87OBhlUS1idHXhbW8uFuS/fZOJ6 6Sot6qG465jBgb0PVJZj1gyUS+2/UuepzIal3zD2dBNwOTv+iI2sznEQs8/r S2ZabVQojz6pNmGwD+vPjNOoeDeqRDIZt6Ih78MeykEeT7xnlAz4Mh9z8u/D ytaIn9G4JaXFHAFMc5oZs9K7zHvsIZ4sgvEoFTxgxgihhqFPlfnIr6YOS3u9 ZcIaLRP4erFr5LG8n5cjXzBhrA27tfQHzMlybhGOuc5M2LFO5eWUTzbktt39 uQNkJsxJLuQbJ+ZCpmNjElb9wYh5LdHWm/OGkfV/f1W7XsyI+XAEbF1IjCan JQdZuyUwYlv+WQMjlEQyLEqXlmXDiGlXZFXG/comP5+rw7CLjJhJSxXeEiog //7oP9hzihF7/eeBSel6Mfmkl8rO4mFGjGbTRyYsuorsBmi4mTcYMPI7qTfw 1TpyDQFTOjHIgF1Q5BAXoGkmszb5GcN1DJhLj+iaw+QPslko5HktmwH7xlTo Ta34Rc7V34p1esmAFYudKqi8NUjeOFpRHOzCgDE9u0vKqB0lawx6dqYZMmDp s8cenrOfJsdkyFMrIAasVSMslYdtkTx6a/Vg53EGbCj+a2Ju+ypZ5lSxNIWe ATshv/+Lv9Eu+SHVVYd+loSNEbgd/OIJUGuZ7F2+dhJmtngZ2WZmgrgeLL5Q KCH9ax+xQqzyAGR3riBXL5GErXBNSi8qHYGKGZya7R+RsECK1+vztjwQoU1y KsCWhBnabRK0+gUgvahZ0utLJIxZE/dRiyICpRjlCpdIkTCcZHV/67gUROGx P/+djYQ1kvS1HxDOQORREZvJDXpMLqL0mXcGGXqWPeGP/0OPXSxG8RMJKlC3 Y1YaVz09Jqaz9veIsAYkJGdbLZdDj7H0stF1Xb4Mua4L/tEKpcf0mjC3eTV9 qLpqZMfWlR7T/Zrk3SVvDLEEpHE/NKLHHimIl12eN4euX7Agx8H0WN7QZGVX rw2Uw8JnUihAj+2Qhy9NiDtAaz8HPJtJ9JhotEbKRQFn6Hxc0qvRWTpM2y81 +dqV+1CU2fWS7XY6TMHqiozdii80LMDVxV5Kh6k9b37ZLO8PSU32UE8l0WFp Nwwsb6cFQa7zEiJHAv55gir8jBAKla4+Mt25TYeZsf+QZH4cCW3tdIb/1aXD 5Gh1TwX5v4KU6UQbWuTpMBnlQN7l+tfQ031+G0W8dNji/iztjkvpUNPhdskE Ojps3SJX/qv4W4jlmJDV41kippA2dK1W+QOkJ+AVe6uDiLXp/Lh4Y6oQihFt bdapIGJF5S+b/VJKoF7p4zj5NCL2545Pr6f3Z4hPwV2ON5iI4chT71TMayBr pMmOzomICV40Trw+3AC9VedJmjUgYupM7XWaHi3QjLbzjw6IiL28qunPUfAD kjJoIFYKEjHz1kiFy6udkJspp2I6ExHrVLwr+hfuhcqtHR2fLRIwkUUaz2tD f6Ad+5q0ez0EzMfo+U+1v6OQigv7L0OMgGlUdlzn+DUJPfW6zYRkEbBmgg3l 3Mwc1PSoCgi/JGDja2Vxi4VL0P7gg64sbgTMQD+/KerCGqQfZvt22YSA2Q/r xp2Y2oZexZb39akQsIWrGdZPbuLhvtcsB+pECFjyh2vXgpPpYL5MS7V3rASs /VtH/u4XJtj6fbFnxCotZp4FR1gzHoCzPzJ+8BygxRROnWXWHD4MUyrMhs3r abEb1nOvX4YfhWVqC9k1cmkxacfe2jY1Xti9ie7Sqch/91aH2wlcAnD5D+MH 7F60mDaX3qy0njC80/2haNucFhuW3X4i7SQOq/zBT4yq02JMO8L65nrS8NNx g2MtkrTYzT9cwWGHT8PNlBydIjZaLBSmpSynKMCsKzsB8Vt47PXZxa+JfADW 39YrezSCxzjyPuVcGlaBXxGyZu2a8NhNzo/m6Mh5uI9pk1+nAI9dZjMJTSy5 BPMdumxw9hUeS3qJW66t1YFtONOf8TzAY/XqpkzBKvpwDv9qFdEWj/21pjhE uRnClJOXlmY08VjAWCPn6ANTWEYqWbhDFo+Fd/P5+tZbwO5nl0wqOPHYk8pj MwRrG7gcVg9Lo8Fjwqxq2m9Kb8G7agl1wRM0mFjPbkfTX0f4nNbcmlMbDcb6 3P8NyzNnOEhfVcKwmAabq2z98FXBHW4xibUASTTYCVKpvdFrL5jVajpaKIAG a8RtG+B7HsD6t0HTPnsa7E5at+Q9kj8cdy9yh6pLg12Poz5ZLnsKD3iMy/TJ 02CytfZhNMdC4OMPlW7W8v57b7GlzyYcBtsGhibk0NFgluoHSj4qRsI5L0fa wmdxmGFY/kWfgRiYEn2W4NmBw9TVQr/niCXAskkh8uYVOIxzcpD4mzcF9sgY dFBPw2Ep6p2ibjzpcOU72VTJYBx2tNQ0JuVNJowrCuxkc8JhOtliB2JacuBz 5b0M2wY4jEXda1P7Qx78IeeNwhclHLbtLTF1Y60Q5ki4eyucD4fxsv/x3V9Q DD8OUYgzIeKwExafB9yPVcBdq3QRlzp20dCT/KlkCQzO6Y5fGEzaRXeYQj6K a9TCfmWSuq43d9HeR51yX6kNsF58TT5JehcdDUN3bmo2wye8DViTNnbQC2sJ iSpnvsNrJlN3pet2UPqZW8WFSj/hFrJfW/2LHfSxO7/gzaYuOIX74Cnjazuo M/WRi8P6b9h1581LCt8OelPikpnTyCCsMahAeTy1jX77ZJaZ8XMY5sK+aR35 uI2eVxEfU5cbgykpFu/f+W6jqbWMDEInp+CaR8vMiPo26q1JnuxroMAxlsEO HazbaASehfyVbRG+pcrdYvd7C0XpFh1LFZdhsmCB2Hb6FlpzsZDCMboGsxLV QsLvbKFKeX4hpkLb8Ojf7qkTZ7dQNqtfCi7MNKC0weFiOW4LPXAKOElP04Ln Wbgc7aZN9IdJHi4Zpgc3gqIYRiI30fdhr48xczABmVsnb9033UQHSr5MCoXs B3QXKxuZhDdR3JA5p8C1g+C3qM7JlPkNtKArmNVMiw18YBoNlCvfQGNs0mpe FXOAxzP3xxv9N1Cmc1xXienHwNVvTOqmWhvoFGwa4hbBB05+SM5cYN9AM9d8 iu6dFABbL2Xpnv5ZR1mG7MksvELg+90vNpw562gESVxS118EpOuY1H9wWUfL PfNNf1lJAHfpOUFVaB3dCT1IeTAhBS4e9A/4RbeOUiX1Y184ygKeJfZR++9r 6M2uLZXL2mfA4s8cVVz8GtrxwydGIlIBNHyE06Os1tCC9Trp/gsQiItux4tI rKFG/vruAEOAg7ut5eeVVbRV9xxsIaAKkGsb1brYKnruo2EL8ZcaOCz/kn8s eBVFZ+u6W0Y1wATH8UdeV1ZR90MdJ4yuaYLK9U9/WLhXUVL1MX9Zbh0Q+vsC kj62gtqp3eNz1tIDlhX9yWfzV9BXO1o5AbX64Ezivd1mzxW0M+P5PsXAa4DR l3jDXHUFDWIaGeFPNQb9pnFVVOYVdJg7lTuB0wzkwxI8wV3LKHmZ++3CjjkI 4K325U5ZRmUur+kcErMChrir/QW3ltGdHlnBxlgbID40QT4vu4ze4e5oeH/J DuBqfBJ/b1FRaiXlzaKWPfiZxrrl2EBFGz+XjJllOoJM/wwT2jAqerybUvVB 8h7wspaviDWiosUWnfl42AVoq7VwigtQ0SBLTesDT93AcSFzL2xmCe2cZZPh Y/YAK3TUHv3iJdS0YEelu9MLfB0PVJh8sIS+SnHdd2nSFyQ2csX5XlhCFbij jLwzHwKn7Ly1A4eWUGYGw6N//R8DKRZHf5U/i2gH45c5JYcAsOAszuLyfhEd FN63vfbwKSj8NfUq3WsRJTVkP/KpDwLO5GyBDvVF9EWfxjcDKATIpt78QGBb RDtpV09emHkBqEQhhdPDCyitbP5FAfsw4NaWph3js4DyKW4IsRVHgjNyFj0N FxZQ/SuBAZ5h0WDlFa/1KvsC2sP/77sKjwXF2/0U4dF5lCe1P3GhPA7ct0z0 NCyYR4tqcoX2sSYC+S/GhGC/eZQQkFyNRL4Ga2JHQ8suzaOerTasmekpYGlK 7MLpljkUiXRmys1MB64f35rF2M6hnmNDral6b8CK7wnXVdwcaqUxuzBzLAvc V08LNkygoGcy5Mt46LPBGitvctlpCsren1TSdvAd8Pyd8JHz+yyafjc757Xy e7CRztHkfXsW5QsqOHMqOg9snTm4DCXPoBTSqV9xhoXAFxfKmKwwg3baj3H4 VhWBna9MfLiOaZRnyJXuoOInQGNKvFRDmkbzq+2dY91KwWOhx+YC6VOogEWy qcDZckCY33ELgKbQi3NoVPSBSkDnv5Zy3nkSvWskpvZvjAeBmm7FWcyT6J2T bbk9PNWAxL7YTMqaQNtVR9a8lGsAY/b0SlPvONrwecj4UUEdCHG2YxZ3H0dn 37hhd3brATP5L/8L1nG0+QR8VvX6F7C/bUDzstoYyr/RE2um2gTCXplY5g/+ RaOFwo+Mf2sGBy277x/w+ou6z+pZ9N38Bg4v/0j7+WEUPW0kkshs8x1wcNWv XeMYQYGb/1z+8Q4QN6rMUlY4jNK/Da8IF+wEnB+qBDi1htFnuzesn0h0AW7l Uu2+R0No7b47n+uvdAPVVoML1V2DaCx/5Ct0sg8Y2Aqktvv0oJVzNlxeTiPg 2T2XoIhP3ahRh7Kz0IFR8Nmn9q4e5Rc6VmpDaSwYBYKRVnD7jS5UFJ4KS1/4 CxbR9N4fKj9RRWYBgrDlBBBqXqoJ925HxT3ZRFjXJ4BRl2qO7scfqJ4U5Y7Y i0mAzYx4/DjxHb2beaQu8N0U4JHVEE870IS2jJbB08Uz4MmFiQ1+/0aUmfbA lrfELJi5EfQ1ldqAHgEUF+/Xs+CK+8lX/Lb1qI+iXEY8AwWUP2+0Tf1Vi641 lPa/cKQA/nS70/wXatDGfEnufd8oIKiMREgtx9Aat0TzDsE5MJCs+0bZsApl OdW+lu42B963hKsoK1WgB9QMuhB0Dniv/xhEeEpRE790u3LcPLggdNAXofmE DsC9bvQ88+DIFT1OZLQAdf9C/+Xe2XnQvCt498HL9yj1zguzMc15YGf0JttP Pwu9HpIueNVsHhCKToz6cqaidM1Om/n28wA5qgltYNEo9Nynbc51Hsy/irNe iHuMXvc1zGD0mgc++Kj68/K3AF7MIWn7nyXjrb4cPhMKNAg/8Y3358HA0QIK 0/5EQITPqTg4zYMrst2VT5UzQN8mfmbOeh4U91x7HOidA+SE+t6ZXJ0H+7Bp gTrjfHBaA4YrlOcBiHz3tO5+EWDL9rPgFp0H92ztJ+uiisHthza1kSzzIE1B TLO+oAz4nlLtshmYAx3M0x/qWyvBk+xIIPhqDtD9yTnQMI2C58vSsTEX50Ci 0WlFq4BqkF8nWrq8TAGnVaPtRw7Wgk+txfCDeApoFV9OtEqtA2bvQyA3eQrA 4T7tWlV9Ad+bTMxqLWZB3ORh6VHNr4DsYsteNDsDZH66Wlr3NgFHMIJBrjPA OlOu3nrtG2CU/87s6jwNrIWM62WOtoPC1T+6dNAk+NLS80z2X1/HBYR1eBuP AjuP319MxHqA07P6QuHcEUAS7CUE0P4GLVz+z2h3hsFF7z6/jqJeILdlTO1K HwItIoPObocHQSRL6O8k2gHg0DmYlzQzCASCIjOnP/eBp4jTiqXlH/BrZ/p7 r28vEJ5xkg1RHAKFF82knrD2ADtV5/e9U8NAzNL8Q1tIB5CPW2yeMxgBNFXD /jp+PwFpznmKtnYEfPs9EXXcsx1kx7sIiyeMAs2CWL3LQd+B1/ySGkL/Fyij K67lCm3g4nlXa32XvyBv/KW0uus3MLXgmupzaQz4P4uSreduAuXqy2hYyRg4 4ceuE/e8ETxLchvIEBgHyrYNM2+YvwCxC+5c3zbHwRDTWm4CqANbr1cUhm5O gEPXcfT4xRrQQnU3XP45AWxC32smfawGDin3o7lzJ0Hiyfk5pvYqQF5ZLZLm mAK9PPUibB8rAbOmR7tawBT4JErttisqB32pa/NG81PAhpU9mb+tFLxf9djv eH0avLSN7dGlKwF+WusSjxunwVxjvDrR8BPQTvfUjJGbAS6lZxNUaosARdsr uIp5FpT/IWjYDOeDqoyNrHaPWXA39ZJO7Mk88HLDq2FsdBZY8h/deliSC8x0 Nkc3dChAQNDnQsjdHHAq05t2/2cK0K117avSfgtwW5v8AiJzYGXxMp/YlUzw XdcHORs9B8oEHy+Me2WAUr+qqrwz84Bz0jT+r3gqSMne+VbmMA8qUnRyj95M BkEdcH9t2jzIvRhFyMpNBE67fjPfuueB1VA89ZhwPDAURTd/sSwAzFnkp8rP WIBc3WUcPrcA2N1upu+8jwYnHwLOGa8F8Kjj6sDVj5FgvROVx40vAPUrsy3P 5cPAMA6nwci9CG4+UWKUtnwBmsSQa4evLAKv2AKnU9HPQKHBQ1ue4EUguNpw 3JIYBOIfYW4n0UWgkH2m++qHJ+BxLu6JzPIiyJAQjOkM8Qe3fyFRZLElkE8P m07GPQJ6+Efp5y2WwHr5olp29gOgKFFdqBO7BKaczJVEnH3A6Y6umKqvS2Cw zUjbodgTSHnPeIlvLYGYMrm8ybP3gdhx/I14SSoQ2P+Lc3rBFQh9PaJKsqAC Dh5vcbo/zoDfSULYPZIKtFPl1Y/uOIFjR1SZRuup4NitvvGwMEfAUWU4p7tG BbKvEp2pbvbgkI3jT1R0GaRMRI29fWMHWJgDSiRMlwHlwglT56O2gLEoLiEh dBlIQRUcgc1WgGic94ChZhmAF7bWwcUWAEdTb3WfugwCPGYFaN/dAJtZv9X/ Cq2AzZ9B8vnq18GK9rzYFaMVMDY9OZqsaAQWloms1SEr4CDi+4fGxwDMJHJR JatWgJ3XAvMbgj4YV5XuTpxfAaED4hKz33TB8NT5SkaBVfCtU5Q5Iv0yGAi/ nuJxdRX0H2Xs1mXTBD3yzgFjgauAc8PZd3pMA3QMBtrpl6+CMBTOZt1/Hnx/ mqRZM7MK9Mvw71SeqIJmiSIpKd41cIKmib5WWRk0dDQefq27Blhe9LcyeMOg 2ntgjSlgDZAWbArgUUVQeZza51m8BgjXvVofFp0FJV8Zqscn1sDx+1GbygNy oNCJ981VrnVgkGp7bMlYBrw/cjq4Vmsd/DlSOE/hkwJvqy7ekX64Dh4zaqa1 6IiDDBtz3eTCdVCmUxqb0HESJDO7n973dx3IN/Lyx2EnQHxRyFHvIxsgY6VW 3ohBAMQYp25PXNgATRcLRV5l8IFwmpIhA58NIGWpRg8OcoPnb1vq6z5sgIdf Cw2NTY+CwMvD2TJDG4DBX7+/lIsdPF5ZfZFyaBOYxte38SOHgG/SPmeW85tg seX67YYqVuBxTsDAx2MTbA7/3gdx7gMu0/KKUzmbQNxVMjpMlQE4RmjzGPZv AmG2Wa3OCSK4rWCNb9i/BSada9fkNvHA5o/nmKzKFhBWTzEIuIMD5oGhTamu W2A16GiMhN0WfF3yzYf9WVtAoTxZQzx4Db7WWR7h27MFOLu1b1WKLcN6Pt/d p5m2wYundT0lYBHWEhgzNoK3gWuPRnHVnTlYo2kT/uK0De52uwlcZJiGVe8d EDidvg1+Pw1vXVMah2EOYfr0zm1AKe3NMF0cgRVQ8jQraQesVZYL3uYaguVs 9dr8FHeAH82tHl2dflhqn13RjMMOuPnik/Iuew8s9tE31jh5B7iTzk9SXDph IZNI78YfO8BC8sftI1fa4eP47BtnCLvg3HOZ7RW1Npg7u0o148wu6IsQv1Ty tgnm0OkQPnhrF3hotMoNFTXAh1YnmR4m7IJtboKaiU4tzPJ6d2722y7gbjfv P3QbgwPSGKckcDjkUApVVnmwAsa7s/VZH8UhQauFuz/SS2Bj85z2Ujkc0qns f6MGK4ILL4KvzDo4RL//AVHTJx9mPN2BmtvjkPpN1xEGn3ewJe+t4o9PcUgs xLULhjPhcoadXFIaDgn3MdLsoE+HD1Ij0q9/xiFzn/1nrZOS4dsDwvH53bh/ 4/8y11vFeLimsTKMQMUhtoZa3ZKV0TBnkW6g4X4aROOnW6/JdjjsnDTmmytK g4xlkts9q17ATYHerrjzNMjDTk1Z29Ag+Lgzq72+BQ1ylKXFzUU5APa6/sbi rQ8N0uXSfT007yHcfl7RcCuWBnFktajgcfOGRaXbtHWKaJA1HX278DB32J/L Wi2jlQZpCx44FP3EGe4jriutTdIgZZh6RaeZIyw3/0JGk4hHzNlmcfkDdvDz 38dFUvjwSOxbo7fW16zh0boSXqoSHlltn4gXeG0Ok/M02TWu4ZHy2R2Ppzwm cFTcEHOiMx5xshO9Js1pAM/4u9POv8Aj9zcn9m1t68LnHJk2VLPxyK7GD/dd ZS040TBlPrYOj4S8DojLq1GHqSqnx6cH8Yjl3GzDnJoqrCnR1A828cjhCjPQ oAjgjCM3OiLZaZFAYUWaZ2oK8BYNtWlcmhaJNvO6c+iOHKw/E1StpEWLLFnF vbnnKwXndnGXhtrRIpkYlfgnVhQmVBd+GPGnRX7+PlK2cfsEfP2d+puzybTI pLdbRJ4iP/wxui8hpJwWcd/3TPxLHhfM/PBexGAnLUJjN8TLI88OW9+mC5Zd oEXKqT3ZTm0H4Er9hAeBzARkRXEQaghghg8DKfdeYQJS8dQsSqGVDnYQqXc4 pUpAnAxPmvOdxcP1h4yt/M0IiAAfI1mFdRvi2aEY/fIkIIZGSr+STq5C7hP+ OmLRBCRY61aTr+Mi1NrOof4gn4Cw1h5z69SahYQ+v4d+NhOQiLePkhzPjUN+ WSpywuMEROwBSvziMgx1hf8S9cYTkb/nPzk/U+qHJH0c+Nu4iUjLI5l9X/l+ QU9taTgEFIiIPccnyvfz7dCATgzLfX0iMmFl5rHS0wKdURIjNt8lIrnl/Z/b qhqglyewTZ4QIsKR9PcWw2Q1NLb/6qJzJhEp9+hNlBavhOCNyYmGaiJS++mO cQJ/MRQz6jfI2U9EvrzpPGhtWgBRWg91Oa4REZe0qkPvz76Dzpe9bak5RIdM 7r9Fd0D7DfQ6HaplP0WHNI+c+izzNgVaedFedvsiHbI221gyRRsPaXvczK+y oUO6QwIjUi9GQZmWW5kHH9EhfOOaV3qSQqEdzfAk20Q6RBAZPMIVHwQZnBWK Ki+hQ0iPp8RXePyhD/wVz1h+0iHW9Nju9zxfiJ5Z55ElhQ7xzovceku4DxkK G2NnGOiRfl1pjuWJe1COivUuoyA9cnFW4G5tlz20ZeoID8L0yPsyu+f+iTaQ tqeHb5ERPdIjEwpvVZtDKVGPKwNd6ZHrGfMfby8bQYt5zzdNQumRck1Nqiib PnSuOUZRKoceWX+dPf2Z4TIUM5biSainR1CtETPOZXVoguZdafcgPeJvbSIa 5qECKXJ/Ws3doEc0250YCC5k6Lk8euYRGwnRSqlm0Ro+DQ1c+ep2VYqESF+O OPXkuxQkdffnR5FLJMRxIVxLsk0Eevysf2nbhoS8LRCZo/0qAHW8GZdpf0hC +EK/TpRp8kBC1Qv3MhNIyFLL8vW34kcgj77NfK9iEnJvUeiQ0ccDUNMqcV77 BwnJ0nslJEtkgo4dYj0lMENCpiPaxO68IkCOkpyOq3QMSH163iHt67tk7ILg +2Z+BqTpUdZnw55V8kEbyZlkMgNiUBBU/o57kWz9UF7M9RoDInH6UFC47zS5 OEHltoYzA9LiIXk3snOUTCrRzD72ggH5/d7B/kjIINm43WBiPosBaa3unPrb 84ucO2suXF/DgHxn0RBLo20n75DsbeP6GRCKaGK5gGQzWUfQ7c2dNQbkTOTJ IE3vOnIaeDCqfIgRkWKsEuLvrCJTjYMF2CUZkeMVakuqkiVkNfdIyykNRuQd JwOjk10BOSY8KbXKihGZs05SSebOIU/kZv2J8GNE3Avdx+TC08nPRyrMlD4y IvlHff52jEaTO3RGjZ/zMiGuASz3LzF4k4UcKHHmikyIQ46bkT2HK9kjcK1b 7ioTEkJ2G//QdYd8rIr5Wv8zJmSUZat11cqcbC12+orkChPy8rGbLfBXJRef BxH4A8xIlk1SALGKTCZZXvjRJcaMTOlaJuJOnCbnvjK9/MCCGUlpU3SebBUi U4lPL31vYUZCbeiOnZNgJPv/6VJ1Tt+H+Lq3vI7T/a40UHbpjkflPuQ3j+qf u7yNSoqRWIxf5z5kiNp4uLWtWmleLWfyGT0LYnTjfoWsaZGS2Tvf0HR7FgSW /dtqnBSjpOgu2Nshux+xf6e80XrTVGmdqFDGZcmK2G2dd2wKGlXMT3iq47d4 ANElgXmVzGGFu2nWrKMGbMjTpeoPJbMWZ81ux3MHPuJALkXpZNNyZMkF67or yCZyIaeNfs69mE2SJhyOHnuwwYPMP+7LCaWbkPjV/GQ+YD8/kszXMx+1/4Do VW/LM/G1x5HD9ueFmW95nXBgmj7eaiyIeFJTt8f5Wvl43zXE0E2dQK4lWey/ bNjD5V2qemV/gjBS38WRdpDhALtTpkPxmVMiiFr67fnPFudZmfFnLSX/iiI9 Mbli7K+iGNTu6EeLRoojREMJNNE6Cs9Rxn1XTVAS+d/9ggjnoHCpX6f+s97T yxJJxVL/WdQk4GqGr/R/7hpjSIu8KvOfWy3/Kh/klf3PQ4Sstejje6Zm2uUd Fdrz0enpY/wSe7Z2WVw9pbTnDf/d91rX9iz05ihncOieFdR7vzNH7llzMjEw LGbP9yT4lmOT9lz5Seh75rs96zXIPq37smcbu2WyRvOePRhLlppb95ykrWjx s3PPE10IeXjk/9TrgV+yGd/zPq667MmpPcvcUD+ysLBnNRqGVtflPRumNwWs re35ttpzJZ+tPf/PPst//n953DEY "]]}, Annotation[#, "Charting`Private`Tag$20823#6"]& ]}, {}, {}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-20, 20}, {0., 2.4193602864417216`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.78520263817766*^9},ExpressionUUID->"3e580cd5-4fa3-45c9-b557-\ 30a8556690ae"], Cell[BoxData[ GraphicsBox[{{{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Hc81f37B3CRcRzjbCSbxskMCed83rTI3txZEQ26pYxCIitEkVXSQrJC 3ZFKdRXKysqKjBBZESWjm9/393h8f+f8rn+ux/Of6/H64/rnumTcT1l5cnJw cKhu4OD43x46bjq/vq4OHP+tsRDar74/bJsRBn8/XWZbWtv331MLbL+Nv8Y3 NMY2n3K3JHxgO9X/sHH4TbaLNvjlcmixze1psFPMeSfL5J7ak9nJaixbVWce 2d6gynLILPNk0ogKy5VnM71KzZXZea/ZSq/dUGTZ4NZLM8NpOst574O6/By3 s+wSlUptyd/K8oXDXCV48haWOZSkXu+NloeaprqhjjZ/XO/lG5eKOmXB6Yt9 1c5FC9HN/McLfu6RgdCqLwuqpwXlvTXp3H2bpcCGR3sQ7vsrH9EayK+uFocD JcMWkVnWu+jndNZ9ckUhaFaoqrL9mi70m9FH0kXBiZbzxLIpV9du7xFb+zhR KMFxH9XurNCNEEooQj6ioFrZYK261qv7KbffnrBbFMJ8xJOGAmQYsW3hZY8a RUAt109syP8+Q1IrrU/hlQjUzk6qWR0pZzzJKuDJLBOB13dv87Uo1zKMOF+p CeWIAPNbzyaHng7G0LF2p4g0EUDiYS+T3UYZgR/GLi1eEoGeptGu8qYFhoD6 6mOvYBGgELdujtjMxcy+LjwwcFIEkvJ+ZcjakJhaa3I4a1cRKBK84yl2VobZ dGS3xntLEXgoaZgjH6fKdK83cdXdJwLm239ZGGxGzCVlt/jSXSLAP6lBXSab Mq+kBpTLbReB+iXTVu4Njkz5lbihDHERKF4ULH0zeZz53PU2XkBIBOYGfNy4 ewKZFrWPd4VziEAH1TFYoCWKOUZ/7/ZzngYlhqtWjp3XmOeT+hKOf6VB3HLS ++LZu0zS4uzTz900+Kaumtiyt4SZ77hxxKKBBvTumOLdA8+Z2BtRodoqGlxl +PYI/fOe2bFFSVu7lAbraZ/9tWs7mF4J+h4P79HgQX9+N502zOSYt70qk0oD S0JUK7/JLDPN3ut5WgwNztQ/YCaMrzDpLy98xQXRoNZPzWF0hQcD2RTCBW8a RJ0LOXs5nIzZxT7QnXemgc6ZI+vVp6Wx6ZkXR49a0KAgvm5+JHEHFmHdmty7 hwab/7ob2z27CxN9NlplpkmDgdV7SlFLe7ASyeXxt1v/M7+L0bKkZI7tixIk a22iwcdeOVH7gL+w3gkZrEiABhSFBh/LBx6Yr/muE1LrVCj83X136r4vxlNu lJrygwqbfGR0ygqDsZubXF/zjlKB2ze2wXV3NKYa7jcZ0kWFtpzhKvH3Sdi7 r5eoc3VUEOmS+23olIk5GWfpebyggpXpTQPjlFxsvqzMu+chFSK2kKO/TpRi sbTadJO7VCBP3EpwzKjEJM9/egPXqEC87IP/8PEt9uTLzLRGNBXibKe/9+Q2 YUYGnKIFZ6lwjSNGwiKvExsqpu2V8KJC5Sp+WWLPEBZI2uGT7EQF+3pN2Lr3 GyZwDt3gNqfCt3Jv/ld/fmD3+q1rgvSp8E8ITvFD2Aq2c3TnSocGFc6aPPod PMGJaiaJqqrbqOD2ODBpqpsf2f6Y87wsTgWVS+oFD3+Q0NjvlptjQlS4eaw0 oDF9Ezq7VtKmz0mF2hzBPVuuyCI+7iu8t35RoHl2uRBgO7qB/5u59I0CBOac TVCtGqKTTPysP1PgwZZwo/Yju9EL0R0FJS0UOOQWfzQnVw+ZSPEP4qopsNFV yVkz/QDqV5igeFZQ4GWDpJhRiBnyUawzggIKKDu8TF30s0HrOx+Ei9+iwD8S Di8sjB1RknZMRWASBVyPal6lb3ZHMnqe022RFEju3ME9/vUYenxgn6zSWQrk N03LEJ1Oob2mcg6xXhSwbhwI6w/wRx3WnFdGnCnwQytjLishGHke+lKNWVIg 7ZJY9y/pi2jxMCzf2EeBwOOM674r0ejSsTsqv7QoMEIKlMbjE5CozwVPix0U 0HTayXuqIRkV+jvfLJKkAD1RId7rTDrSDWG08ZAoEDf/eqZ9exZquijO685N gRn6PrvC5HvIJXaF8XKJDEmdk1MyTffR7JVPZ0SnyeDFCN92YrQQhadV5vsN kkE646k4b1gZImZlDDS3k6F+cO8xDuknKDs7kEJ/RwbjUo0UFa9KpF5gaxT9 jAyMbfMawv4vUU2pRvhQMRn0zyYHZBe+QbYV5Ardu2Sw8AyXUSDXorGq+an0 FDJIPDz3am29Dp2tbpOZjyFDqmHGi4TQD4ivoczeNJgMzq/lGF+N29CN1quJ +X+TYbjoS+aKYgeid/tUc7mRYVtOQxPpWDeq6jdddrEhw2pjma3vWi8yHVVU eW5Ahlm+ND/LxQE0MIn3pOqSoWPCiH4o/wvy/TGZ6atMBgWHb78EeUfRtbV8 nq1UMpyo/SKYbzuB5LhjGRF8ZMhRkqL46E+jJ/hjZ/pXSWBXof3c3G4WdYkq DKQMk8Dt0A2x8wvz6JjURspsJwnO40Qmugp/oiWFkYNG9SSw39t3tvLEItqk fq+co4wEu/tneP+aWkZF2uFTjjkkkLS2mHibs4oYeq4yT9NJ4CllX6dl/i9y MZVI/DuUBAXK6967NDj0Zq3/vK3zJUH97U5h368ceuGH+pbkPEjgZFy3dWP0 Bj2i23PlMHsSmMt8rA0mcOplH7vh0WtEAsPCkza3ozn11H3OZWpiJDgSYBcU P8ypV+Nv35qkRoI9trEizxS49OxCdvFMy5Ogj265IGDGpTd+kcowECWBEvFz 0qdDXHr8oaWzKfwkeJPZ3H/sIJee8rmDOUN/iHBH6+T2lyJcelZ+I3ZKs0Tw PbHbv/0dp16gTyh/8BcieGcU1Gk7cOplnhB59e4jEWyNbfSJzRv0Xnk8Ok1+ R4QCHPH9D/oGvWFXY4XDlUTQrI427j3Nocfj+LWnuJAIQ2n9Laom64huF5aw nEWEkIsbXrqk/4vMLMX0DlwlAlmmnj+0fhWlGZg+GPQjwtphKrcf7xKS1ygP IDGJ8LErsaoocw4Zqphvd1UhwsYjBuhc3Qw6SZ/4XCRDhJ6GGAvFuEmUpBCZ tEQmQptqmErT+XH0RFpi334eIrwzwOIUHoyiHvGnv5OXCPB5i5BfEv8w+kOz LBqYJMDVPEkzcYtBJE2actnRTwC5SC3x7v/s317BaNK5FgLQFtQqByW70VE+ qXc1bwiwbbTGkrf4I4rnehZEfEIAf4HPG+FuKypZs1JyySPAgWvbDn+dbkTt y9NDhdcJsGp+Suee8Xu0+DMm9Xc8ASKdJip0zarRpjlpw32hBFASa5durH+N sKnnq0mnCJD+ezamZf0Zch+zKe13I0Cf0L/qa1LlKObLd3e6DQHCaXfqDAQf ocLPsbSzBwgwSq54tOpQhJq7ZRuqdxNgZPkkTbP+Pppvrwol7CBA3pbm9Y/M e4jWbKfmLEEAe0oH/vjmm0infm60QJgAKqP4xnbFNORSE399cQMBcIk1D+k+ SYgz7OD1mG/CcC+bNHXJJg4ZBYSuS30QhubUdVThGYmSvR8dffZIGILM+747 RYaiHrevH6zShYHYFawoaBaIpB3ENKeDheH+9YZEyde+6LiZaVa0qzCs1ye2 WaweR2X7LnJJ7ROGb71pRi0R7mhJp9yrcpswuOW0HM7Xc0RIbaLNUlAY/L9/ H1+YsUYxWyW0p34IQW+roij/LxPULGF5N6pLCC6/pw5sH9uHaJRoXskXQnB0 4rANxxITufA/83l6RwhoF2uish00UR7HTKdFlBDQqwwM8zSV0cyiNHPyuBBI JMq/D2UoII0Zm9xIUyEosjp5UrlAAp0ficVL7BSCafU8zZkUCqr5VHWmgiYE JYU21eHOAkigde6T+aog1JW6PJny5kI27+T1JwYF4UPHUlGH9wp2s8ohP6JG EI50CP2T3vsDG36cILy5QBCkOjBczNI4Ri+AwPJEQeBY+KM6vjSInbnzs9/s jCAEyX4X/Ue5E3uetm3/NztB0NLC/1AbbsT4HMePbGAIgql3quio61vMTjov YpOMILim9vkdIFRiuV897qnzCALlKuFsvEUpNl8oByZTAjDkPptKQbmYnu/w gGerACxav078yJWJXdG89++FcgFQrv/kfP1mEvZ5xXXz9UwB8NoQVSZAisa2 g6TuozABEMq//7dGUjAWGN3/V4OHAEQw0LpDji9WY5R1buSgANicJxislntg JIJjxh9lAdChPOcRuf0XdrhTrIJK+c+8YX3doPPmWElmT4fyMh6CHjvMKOvs xf64ZiwYDODBtvrU9XBbLcxIwY7kVo0HfU0FZqScInZ9kqIWnI+HzPmrytN9 0thY6UfzlEQ8WPAaiKySKJhGwDWf4jN4wA4aJBoBLxahY5lYa48HzvGc0sjp VWbLunDxAAMPa9duHL9jPsfcXNvc8FsGDwJ/71A0nx1mesUnThB48bCnv/LS me5OZqW5CR99mh+uVoQ858bVM3mo+K172/ghcMdbieLIKqZNb/1+pwp+cIsY o4NsGTP7TqxHwE1+cKiWDwlQyGbOeRhEXgnnB7NGS6q+QSoTo/NkP/Dkh/u1 zFPBUTHMhNkaACN+4KP96rjYc47Z+yRy8JMKP+jOWP1Tw/RmbgveszZP4YeR h+3HGh46MwPQBgmBFRysRQis5BIsmG83gq7CIA4c8HMH5Q31mYSGC4ewGhz4 yUd4SgftZLpcZQbZF+Ag96FL/LY7csximz8ZvldwcFnYPqiynMJcEXtREeeH g7jmE062ldxMw8GgzmwHHHgdPkEozl5kpOfu/vmCiYNXz15XlvqOM0ZP/CZ1 yuIgCdWcfirZw9ipUqH2nRcHgYWP5m8U1DHCf/pb8M7wAaeMyZ9aoWeM5mfq p6Tb+cA9OSvBzqSAIR42n6j9lA/MDzxblnG7wTi+71GxVRYfDNUeNq42iWNU 4HwbvS/yQcigk9ct4SCGVeoM321jPkgZ26ppJ+3AuPtX8danqnxw1Sgo9cEZ A8Z3Se8DrVQ+ED506edC7i5GfMG3SM4hXrBy128Nr6Qw3rwaWTvqzwvazjD/ hdyqqzrx6afKLR7IeDzGr5/I0PWfU9ouEsUDg74hTflhdN3K3xed17x4oO/J aZpKgKiuPg/9XdNuHgjtPdGmeeGnjpVccMaJDm5Iy0lx2PC9UCfAeZNODp4b JO5IdhzsIuo8bzsURgvmAnONj4YmJbW79z3vw/1rxwGXG/td40I/aPoWlC4R yQuvJ+S0aGtpmUp2R+XutZ//9Nr48RNuRfl6ufdNn+LVrXsQuaR37PABWVEd pTePLTIWkJVaV3JDphaOM5D62UOMQ+//zmVeAYuL7t95WI4c6tp7JkeQ5bKb MRYX5oksn8r2IIzaUVl28cqUuHRRlOU4y0Bt9SxxljdS0sbCViRZ7m6MnosS lmHZNsR9V2a1LMsn8VOyzYfkWZYqepfOM6nAckjlXmvhm1tZ9s07WbFLZTvL Apxa7spf6Szv/9smjZ6iyLLoM4lT++WVWb52JjZZtVuFZasYc6VbFaos0x2j bHND1VjuGsNlp9juZLnZ/as+SUqd5S8bHyylybL9M+94qdgWtsWmpjbLKLHt 4Tf/W0WX7ZXI9Yem9mxvuS+2Ke4q29oGfa0CKWybTGRdSkpn+7SS9K+MW2xX lW9pzSti2+qdekzNe7Y9j/9iGDayfY7/6UJjM9u3zHTcPnay/a1LjzE88v/y nuNc8BxnW1C8pmBiku2drgYiP36wvX8Drtn/F9sOOQ1RS0tse+1P0D3/h+3/ /rtY/h/OggER "]]}, Annotation[#, "Charting`Private`Tag$20717#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Xk01V/UMPBrumauy73mDElRmQu53+8hiZAMpRENKGOiSGWeJVFRSAPK VJRKxu4uU4YyJGkwZcisjNf8/t61nofn/HPWZ52z1tl7rfPHXnvLnD5v6cBM IBDSmAiE/7/7/dk/ubqqDoT/WQNXqTM/l9ZtRuqaezu/bmltj+XzU+v+EH2L o3tg3RxK3zbAp3XfuXjSJDBl3blMXhkEzXWzORiqidqorVmwvco1LV51zZYV yWcU6lTWfHUCc43rVV5zkU+yc/4BpfV4bx2SXknatmbD1HIzo1FFCKtXThpk xBCe1vi2eR1XgEC9lQ3TXRZctqF3KI1Zm+EOz+7opxHLgv4nWfK4BeUhUW6L YQCPvARhuxRdP0wOKmPslON2W2/8cT0pIverLJwspx3+o71LUYLrXPb0bhmw jyh1yRL/rOyyQ5Htp4QUHNNoFDalDmuc0ezMqqgQBxMk3Vzpu6KleHnXqnuG CIhLWow+KZjSgQ4zxd7E/6wazMPTsKpjrX/m0OEoESiINWphT+KkBfPF5CJ3 EWDV8uQV9pamfc/oOEzSEoEr0w3xfQ7GtMjmwBcv64Xh4+9LqfqLqbQNmgk/ N70TBseb9X/qNTNpr+9nE5NfCMPPjXrR3BMvacbM71T50oVB1/VLJWtaKa37 bMuJ4ARh2MFs3/dDp4rm/WkgYjZCGESKstn09zbReNQXC5yvCIOmPYXa39NO S7vH39npKgyu74fF5xi/aZorGzmt7ITBNLL57sOfo7SGM1oaNRbCkK+6pDrc O0M7XWtqp7NHGLiDLZ/33yRgDKVT0fk7hUHniMaoxioHFnvn0puNCsJQ9qhG L72JjMktRHXfFRcGNkaHxzZdCazE7gE3D58wnD/gNBK+eRNmXlWwM5AgDIFv D+t4JyljA4o1p6YnqUB5Q7LbFa2JXYv7GXOunwr5UprCaX56GHl24u2vb1T4 YbOxuX50H5Z1nLXXvI4Kvk8ERDoUrDD8vQhfVRkVKrMzlFh3n8Ba5bdra+dT Qfju4KfyGnvMOUbP/vljKswQLPjbr7pjhMlDN2XuUOHEtsGW7fu9sYTDziUJ 4VSg+Xc6zBkEYorl/v2cvlTIajc+LPQiAgPZ2yR/Fyrck/YMk1CLx6wjM3Um bahALcjrqxi4h42OlTo6mlPh6yULtZrFx1iwVVP8j91U6PMp+eY0mI2JFPeV me2gwp8UYWO51AIsb8P8nw+bqbBSpPvg8vMSbE8or6CmGBW2D0fJOwlUYD+G ZPBcHiqox1pWs6nUYx4HdjpJrVLA7dsvCunQF4z4xvjO7X8UaB1+4kdx/Yml iNnR2fsokG5zp4jNsRdTCfQavtpGgQeCh/Q+241g1f0RlL8fKWCl2Uip1J/C Tpjc17UvpYDCTWtqPPciNvnihUv7cwq8tBH2PTrBjEdSqxJNH1GgvGFr3PQF LnzDte/v4RYFvEZZ7x9zIeOve8ZGNcIo4OH5g5B+VxQ3NmQWyfahwP0Hb0Xe l8rg3c+o+pLOFLhuGLRrQ8gW3Ju81T3+BAV225eEFfWr4DyXURLbAQpkaP2S cqNp4o87rCp99SjwzuBcXGknwtX61BZaNSgQZRvH+eOoAV45LKCisoUCT+xz +4Svm+KH/v11uC5OgR4Fg4+mnFb4wFxjygAfBeoPvEt8cugo7rOS16zHTAE9 wU0NzC0ncQ62WPbUGSHIVnM/M2jkiCdxu2GMQSHY4ajEu/uSG65INvWy+iUE ZPWW0o1uXnipyNbsvEYhMOHEm8/E+eKmUlxdnBVCsNct7+eRj4F4x6YhIYdC IeiI9WQ7thSGu2/7aAzZQkC60fiwpCwGX1XLDBRPFQLqOdKyRPktPE47vNA7 TghCZYqPcZ++h8voOow2hwhBQbERjGY+xAv27pHd7iMEzlYfdtADM3D9/RuP RDoLwZTP54+FATl4qxVzbK+NELS5Fu4cpbzEHY71VOAWQmDq4MtIX3yDz56E +aQ9QrD4CCtw1SrDI84+VJ7RFALZfpT8mvwBF3H3dzDfKgTmAdv4akVq8JyL Nim5G4QgL+y3zjGvT7jOVVozkSwEaXN/PbpKW/CGIHH202xCoLIiJlpQ8w23 jVyglTME4cjUMrvohk58Iva7p8ioIFBliTNe7L14YEJRlleXIJz93GKztPwH F7h/t/NziyBo9pi/81Yax9PSvIUUqwVhaKCrcejvJK6efcg4rFgQMjxvbbAv msMr8zUCu58JAl/RcWmf9GX8UKFgoc4jQWhTIpjd92VGA2WTI4m3BaHV2vKz 8CIR+VQ0y0yGC4LE+6TtbmE8iKPuxeH9VwSBIP2tIjNLACU13byR5SYIrgFF ifubKUjxm3sFyylBGOu5+3Nzvxgq69g/b3tQEL5dYpnYES2N9vdtUy4xFAT2 pcQRBVM51DnM7UDR+e99ubKQAz+2II9/w8keSoJQewmfTj+hhJgYtU31MoIQ aFZ1XTJIDd1aySJupgjC+HeFJ9uCdqKNbJG0YI7/8uG2S28300Gvuc96diyS 4ePqFYPJCF1kQN6bpTVBBtVTw/tlGfqoTWRT5+3fZIh+sqTvL2CEzkqxCk18 JUOLWXVP9D9TxNjUu8+4lgwv1YgtW20sUNS2DwFPysjw4du3lajag0hM/fEb wgsy1Ok93Ha09QjK1Q4cOZ5OhgS9oEemd20QTddO5m0iGUjBtML2u6fQp734 YXI0GTR0vmQ6d9kj2/2SN9z8yFBzdXjfrjfn0ITV0oePHmS4KSBgdlfJDQUe +8nYaE+GTkG9raB6AQmcKlEKOEwGeXnp+AuaF1Ha2ST7H8ZkyH9wPfL8Wx+k 7n45eQdOBksTn6LQD1dR5cXDTXGqZIg31ih+tiMQWV/dSRyVI4NcW/Yek95g 9CeIQjMUIUNvw+c/ITNhiMsvf+I2Fxl2ewyP366NQkqX96V3LwnAlpjHyuwa scjSq9d6+4QA7Hx6WlcgIx55u/txXekRAP7FVmu/G3dQspPwu+ovAsCk4Hjy Q89d9M7+5QXBagF4Jx1KsXiegn7bmWw6WSQA9JaP/24vP0TE4/3tz3IEQMv0 UJ+PRxpStA6Imb8vADElKRdOqj9BZhaiuntvCsCZJy+Fcg5kIU/TV1O3ggTg no/o2NinXJRguD+zy0sATFH3M+W3+aho959j2xwFYN+1ynNOXAXoFxbE53tE AOJ07/jtvfwaEbTFP1QZC0DHr3vJiopvkZzGm0tkTADqytqIWzaVICPlAwp2 ygLgw+6lesK9HLkqDv3KlRGApM27NC+EAYrbFBLHEBSAvO7+sN8BH9Brack9 BkQBiKpotJ/NqkTt4m/n4hkkkGmWcmBnqUFLVIvczmESMO1SiDGNq0X6vGHk y40k8PTVnLI1bUSOHFLVle9J0H3yjO0e1IyiWYp9BV6TwL7l8qU9My2oZX60 O+ceCb77nb+aUNyGZqfD78xFk4BL1Gxo88d2JPZX2miPHwnSiSVRktM/0OmB g/kdp0ggadarO/24C4X3jJ9WPEiCmMqhfaukHpTzK5Lqs5cEtueDi3/a/EaT LWV+pK0kCBfKDbkh1o+YA/bdCx/kh4A+1zvjy8PI+JLfqtQnfnD7YTM4GzKK 4l1eOha/5Ierjs4og3scSR8R3TF6hR9iX0aLf7v+FyHVoWYLXn7Q7+u4xuo5 hcI3S2qP/OODqA1V1X0S0+izpMWj0DY+0DgRcjqePo2oQmHsG0r5YP7OlP/g kRlky1Xs/vYhH0hHFEPLnxn0lDD21TyUDzpnPW/sdZlFY7PS2PA5PtClreAm v2eRxtjBjJD9fLCkIKS6ZDKHrvVGckuq8UHYwaaU65lzqPJ7mWchlQ+i2V2U DKbnEE/T3+8HFnnB9fxR2zhVBjpYLac31MULvfr4yUlbBkopO5IVXMkL9dZR 7/mvMdDvghh+iWxe4GwwS3keyUCK2eD95gYveHa9OVIQykCeD6c7zDx5QX7L EV55DwYqSdhiMGjNCzHn54+qmTAQx/E/Z5hovPDwMV8AJsxA1tJPg8VkeEEn Mm/vptY5lNFv/1idyAvJ9LvtzsFzaDJnI5iO8IDB6hadHNk5pOvxu9OhiQfK gy+fufdmFsXueLzs/4YHOL6LLhFos+jXgp3EvWQe8Ek9OlpROIMUYIPOywAe ULibk9MiP4O8wzqO1tnzQPSftw7bb0yjSuP7l3v38QCTOSepe3gKnfwqWkgR 4oEo+eGsJ3GT6N6wkOqVLG5oiEhOc9k3gQbyvxy4fYMbPnXOb+KsHUMal265 P/PkBjzP1ybVaBQ1rvI/66RxA5d7r7jqgSEkUfW5bk6GG5DTqnr29z/IOfrG EImdG9oWbVNZXAYQkcK9Wb+ZCxYPL3A3Z/aigz9qDU4UckHwYxOxB4d+o7SH kfaXUriAQ3/ek8Dfg3BFYlqmAxeo9e2K3HigA8VMVAIYc4FLao7ZF/6f6Mfr kK7vylzQIWZz1nq0HV1CTJI8C5xAUg2gBi+0og+soLOpixNOLP14fnbbF0Sq 8z+GV3JCbG4OIeNKM7K9ifkezuaEqbRzAxm1jejZwaW7HrGcUDATEVbd2oAW REsLo7w4QXFULUuPUoeMuny/ph3hBC1WqxmnqBrU5zRH/irLCSZRm6s42CqQ mnKh6jg7J5x/MGhM43iPAqcvmrOPccCJc+4aVm7v0Odi9fPSLf85tNamV7wU iQdM3tB+ywEim1JWrYWL0Lk9L59Z3ueA3GvlnG3H3qBCTo96lyAOaNlTT7jZ U4BYG5WGQx05oCF8jvzh6QtkeWeM44EJB6h+Mz+TYPIcPTr6bPNbFQ6YG+3w OPA6G41vcNnbROGAVMcDtqwBTxGtT8FhaIEdNLwqPR3S01F09mAIczc7WPfq x18XfYza3TPTxKvYwXDf06cLr1KRvIbje40cdojOPCXuWJqELs7Lde+/yQ6q 9yaGVWmJ6P273hXHi+zwcUuutpTibcQXmiYZeJQdZCneS19949CJfadoSTg7 nC3IUHqvF4Ny+KSPF2xkh8Xdfm3GWyMR40unbz0HO3SN33YqfxCK9ial3usb I4IWs8022ZggdMf2xNvlFiLIqjgHsdb5od8bxduoRUTQy09OeqTli1SGvk8r pxLhi4f61TTTS+ji3+0KwqFEWM54yJYg74mK5oJsVpz/O999UKmlwx0trXyN 77cggmRCfVOfsjPSIypWN2gRYVRnrm1O0RGF8/ovvJIiAs9VfN68+DSqE2pR SiESoYE8bm110w7xScifCR5jA3Q5sWYk6hiy3HjlrlMrG5gZS7Ce2GONEhU/ 15uXssGqxXM2rQxL9FNVlqCVxgbqVv7HX8gdQNLa3hpSUWzw0ig9hXlmH7LX rTtH9GAD7opdC/KJBijLcEPqmDUbeAc7agQM6aFRM8/mVowNPnNO8/NmY0jF upqtTI4NkgLzxJ8FaqFLNmK70rnZ4BKfLDipaaASe3f36Mn/Pn3qm3eO91XQ isuHtAvfWSE+8W2Ivv5WtNuL+u0IsEImKV/mmaU8Cr/izK2byQpHYzLxdpos qgt6hzbH/ndf6RphuFQS8UeRL/JdYgUDDdbth5VF0ME4x6yZ46xQLqJrVfRI EN27W/Lr125WOPWUKFhVy49+PeATqFRgBeYk0opcPieSfnraIJfECv9wJr1P r1mR/fNC31tzLOA0a+fByCSg7Ndceb6dLCA6E62QV7aAj5fa/j5ZxQJnQv2p fk4zuFpFAdXoGQt0eOTW8Uv8w73riCbKt1lgelBP4IzRCF7SfCyAeoUFdomS JPRf9+Mr7Xmvlk+yQM3Z+03HdvXgu7uZB/sMWaDQKfIRh/FPPPyPtUSDEguc JiwfexX3Fa8fzzF/RWGBlaGrPbxMzThpdiU0eYkZ3uRvagt7X4cfXLYsDupl htaLuzyHCFX4PdbMsXN1zHAoTvRBjBfgv7gXZcxfMoNiwbzWQGExLi14wFrz HjM0WXI+tuJ9jTuIpUdvCGAG64rdvxU08vEcmbl3bI7MMMK43BOnnYWPbzGZ GjVlhqCQGb2eijRcTeXh5lZ1ZnjIyq7yhykV99acOl4qxgxPBPltG20T8RLc MC6NiRlKRw4SXu6Mx1cNUiqjBpmA/773aIl7NL5n/wTDo5EJXLewJbehUDzy oP72I4VM8NRuNKht2h9vOP5fEZrKBMJWVnxb7vvgpDMjCfKhTLDCo2Bya+4C ftAZ1fG6MIH7hda2RSMXPOnC7ZVpCya4ZyTavZprj3de/qP2S4sJ1LnyPMd1 7XDZQJ2zFVJMcGKg/UvHrcO4Y8TNlBwiExh1u2l+LbfAc2J7G+PHCMAUG03U eGKMjydosvq2EoBfR6K1f1YfV0+9rnWylACXaOVaXd8x/HJGl6thGgFqXXpz L+zZiZflqj9WiiLAtYK6w023VHDCq4ivFA8CGJR/jGlK3YLvKfnJuWxNALPF fwEZmCyel/NEu0aHAEN/Y6tZTMRwkZTzTvHSBHhTP0W7PkDGg69rJx1nI0CW 7jYpFTFuvG2OeMukdZV+3ahvNPQUC57TnvyvK3WV3ptYVxT8ZBHzL1ayuHh2 lV5uUTvVlDOFWSZ/eMGhukoPl+JfLhgcwTZdtSalLqzQhf9JkLZCL8Y4Pnxe tXKF7pHY3JPT8xNroPk3Vt1YoffzHdsy9OgL9kiSrHzs8Aq949Vur7S4euzi ypPYcekV+s/YbAqrWQVm1KU9Hjy8TJeaGxuTYJRg4vBpv/DrZTp58EwtV10B Nv7o1PNcv2X60lWpBzUSOdiHoBkeXcNletRQeAlBNA1LPB3l2kpapv8+wTlA Y0vCnPQlG879WKILL1cxKerGYzS5l1uX05focYrl9PziCIzEZnA93m2JHuDC 3/DRIBDr628f3qS5RF9QbH4Qpu+NFVW7GpcQluiXL2Mej0+5YzGZhByzukX6 sGVuav8ze8wu8g5n7+1Fupw78lQUOIGpOW1x8rFZpPNe6zffQ7DCiMZlH7k3 L9L/8p23+Zu1D/uhaL7l0d8FevX0LrcpQz0sj7svQqNkge4/4SSuo6mJBY/6 /PkYskA3GSuz8RFXxg594ja02b9Az7xfFGpeK4dtyXv49B91gX4ytPwazxtx bClWnRjePU+/6O/FILqQsabzNQ5iOfP07r6pRDVXDizd/HhVntc8XbuqvPOi PAHzVp2Q08fm6Xd2KH/9sn+GZkwOCf1GnKerD0ok+rGP0jZMUftcmhj0fe4T Suz2v2mTX3L0CckMOrGs9jg7uZ1W/RpPv3OGQS8IO/2X5NpIS0poYVbYzqDP FFuJ1V6spLl6O54un52jxyERt+y4Epru4YX3FjBH/+v29oyhxkuakFaszEDU HL3ZVenIR+2ntEER2aArVnP08P19zUfS79PK5t9080nO0TvNq0amHW/Rbv7Y p5s+MEtXuCJjGZUYQdt5/8Jqve8sfd8rW3mhXV40Lj82u5P6s/RegzG/Ba9z tA6bpHfTPLP0Lu56k0+sdrRQqfd+ko9m6KRvm8bmPxjRvqSRltyrp+kXnE9q CSRuoHlk5zMEBKfoXU28DdcTK3VU+NxDdndP0ic0bl+kTBfr/PPcxuf1fJJ+ bejrs72WL3Q8adkbWw0n6dUsikc/ZCTpXGpMM0u89o8emtOmndngrjM1vHXf joYJuvKgpdDcsKAOMYTxaK/nEN2fKZcrIPLQLmvHjY9brn2na28vfOVy86VW TcP3aHWrdvRlh8FwuvMvjV3b3xeY3/2vLvVjJNw9UKfM7E35ZS9K0E0asWS4 jKgrsvOYB50eJ+r+jq1pC9fduTGku03fM51Xl8E39tD82lnxFynh5v6TAron rY40BYsZCp5Psyf1WVN0vRXcno8UXOe0dU6WjAgS0f3f/naUhbe2+n3xNbMK JQwELGxY87f6sL+h/DJrPnT19M7kCtk1u3KPyH4+JrdmqdzqROLwpjVfLdK3 4k/ZvGaPp66FO5UV1szDrHlaqV9xzQZuBxMUb29bs0ix5HkDOaU13/KMjFf5 prxmy/AD21MLVdaseDz0UIaf6prbBjjTbh9SW/Pn0/16ZCn1NfewZjISZNc9 /fRcvqj8ukVHRiRktq/b3mtyTlln3Qshq8/3H163/BNRsaib69Y2/NnEc3vd pkP3I+IS131hu/TM3dR1l72Rb3qau27LavXwypp1O5yboRnVr/sy19up+s/r TjXbderL13UPtunSfvf+n3gvM085/Fk3r3hl9tDwutXsDIX//Vu3ARPn54sz 6z6SXhfKYKzb2SBG59rSuv9nHrTm/weiOLgO "]]}, Annotation[#, "Charting`Private`Tag$20717#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nkw10/8OHBy37wdidxXhNw53q/XvuWKUI4QJUmShA+5I1dyVEKEKEfJ lULJldc6y5mbcue+vZE7fv1mvt9894/decw8d2dndmbn+ZxdAVsX4xtHSEhI yP92/3/0nzZYPTiQhyT/06b8OH4P7B3akHlk8/P2oflVXP+4rB26JjKWenTq 0NTSfbyw9dDP7tqcC3xx6DxS99ckpw9NcUNH7tgVuX9m7a93yoiR/Wfj2uTr 4k0y/+y3jDg9HT/1z6VeyY7vz0tDDe/h3eoCwyOGsRf595MkoU1Fi7JjygaN TuoXw7MLErA5P3p9QmqfOeurT6+7lTjUTDwguCBcR61Dn7F/zxaDc3VtZfZv CTwBNmQFdKyikM5zrLKzNVyQRIoP03ggDHvvG+XqC54T+xmV9DCvRxA+I/i5 U57ZPXmc1iFn/YwAfOJbcXSkdObUbUUJioHjfPBOu+3kQNd7+eunh7Nra7mh IynrHc2lCSUJb9UD59ecMLnhrsZylrtK+pBJnY86Owws2BbZo4dqchNyO90K 7JDy/PSlSNMGtbo5FhmZE+xwxezlQT7Vd7Wpze8vphjZoeExrazQn0NqEjh9 d5NBNshRoO+3gu6qFWlrCkp5sUGHdk79WTdFfN17hcDRfFY4XaXO2av0Bn+x hLVELY0Vyq+l9qc65eOnKlfnE+JYYeTzPTdBimK8V22HwGoYK6zfheEfnMrw 1E0fzA18/8bH2u3Qb0N8Unv04+w7rHA5SmEwIKMBL9HnXEt2jRWq59Aq2oi2 4SuHDLatTVnhF/2DJG/GbrzBhOSpch1WaOlDVSX69id+eI7uBrsaKzw5acGh +2EM70qcS3aVZoVrI/ecvdyn8aRbje3NAqyQUzwWN8ywjI/dz6YUY2eFKr9j Q30i1vFCFOH4YGpW+Os842iuwC7+I91Nt6FdHGwyjOONnyJFtHDa2crLOLgj ZHD9x3MqpJdTZDjuFw6Sbm/KSjExITf5yNmWe3DQunUiN+w2G7IlMq6r14iD Eqs3YHoHFxIhWXP/TSUO+ur631B7LoBwyad/IvmAg8dbno770YsheSqB81aZ OFi+Nu8hIyGN4AlXBT4n/F3/bOuYymd5pFUbNcdF4uAM0b1y74sKYm3A8/iO Pw4+G5st4mokIMsmezXfXHFQo1Ur9eaQFhJoObAlZIeDtbCLKcVNH2G5Vi59 3xwHV2V4ZinuGSMZN5PsfurhILGhB6jtmyPyzt7JiigOznavdF3kvorU3TVv fyqLg0z6Ovl8wnaImZ8S5YIwDt7YfEsjzuCITAex43U4cdBfN5OTqtsVofV/ vxxHi4NSNY+XHkp7ItLeupmjeywwYo6IfZTzR4zdx82klllggt/7qnKZEMTT 2Z/Wd4wFaplxqf+QiUCSbx2tauhigXScs6OtwU+RKrvC/1gbWOD0QIWUWGo8 8uvqORGbUhYo6g6i1dVTEEqryf78XBaY41C3bf5fBiJhdv/RdgoLxC3dxw5o sxFDo2ME7WgWyNQceG5B/z3ipl+8FhvEAvc/hTx8bfERidcxeDvizgJB1AcF JcdypPTMtKWkPQu0IHNOD+OrRgaRIEYfCxZo64VeMTjZgJCocNfU67FAzPvW j9ScFkRY4ZMHDmGBb1mz8SOBncjZU+fFr55igcwrEgEuA32Ik8TsYJ4AC1SL 5tEp+jyMPBUJebrFygJjRQVVQ7Bx5CM/j6YWJQusSzPON7OaRfq5P2/GbDFD 6N2wWa6+guxxGOUNzzHDBgi1d9vXEX7cvPXJIWYoZ/CUR+HlDqLB8ADn/Z0Z 6umVFefvk6D21HwNddXM0DlMMn8qjwKNJCvzYfnIDK8LfUW7EunQgn1jKess ZqjJFq7K8IgF7dxeGM1NZIZ+15+/DTnLgW6shz3bjGSG5b8kitAzx1GuFf6z mv7McEaat65uQgBF58t3n7oww+yLfXzC6aKo7ZTp+6FrzNBrecn47DNJNGxs yVbClBmKv59rjaWQQ3MHwzm8tJmhEiWb5IMiJbStT7CpVpkZNrfjSWaj8Ohq Z6U/80lmmJWdXE1YVEc52sxkr/D8jd/FcEfuaaOqjSsTOUzMkJT98jFXcX3U ui4ycYOUGZ5XGqP4lGKEHrmvmxg2wwRrm9hvvTy4iOp5+B/wtTJB6vQvKQGu VmjM7UL7skImaJwU0zfBcQ3tvzbZapzABGEug8eU+g2U3+KY4oIvE3zhvWba dtMRdTA0SHlw9a97DAWybFzRD5pBZHyaTLCeu/9Btu5ddEv1k2PpCSZ4yUhp oZHTBwWysx1GDExwQZT7XhPJfTRMjEdlnsgI7TJQ5DFfCNrGY5QW2ssIT9me frP/5CHKwfaAireCEVpa5ZVE7D5CrWnLnD+/YoT7P7vsnrfGoFkkiz0XQv+a ddLJvS8eXdzgR+YcGKFj5avUqzXJqMKi6esQA0bIs3knLd46Db03Hk7HI8cI 6TTtilYPMtG6H5VuJRyMEH1yirTZPhulb1/5cX6XAdawiy0IVLxDTRuE1WdH GOC5QLbvphxF6ItKi+zgOgboLJixjdv5hP4qesR0PIcB+iCY04PcclQiB3p+ eswAg/1MOvrEIOr2an3I0I0Bpt10rPV7VIuWx5/QmjFjgLdYX/QrvvqKUltN XyfF/52f++S8nkMLasafFcwlwAClDEsKNxg70NeTdunylAywIMCjr9CjG13N FYL68/RwiV006ENQP0pw/TV8o50evhE7diTlwhD6RDH9T8AneijtUxH4OHgM Hdy5ejwxmR728/JKtIxPoOKQV63wPj08bc28FTs+g3o+GLrUZEcPEy1Ky0Dq Ilqnl+I9rksPmRS5KPUTiSiO2er5njQ9vP25Bac8to7a9BwrYWejh+WnqUeL q7bQguT+bultOjhjSdJzVfcPunf1+ZrOMB3E5NQLOg1JgZ6IGe5aLR1keySp zedMDhLn2GR9s+lgNeO83k12ajD1vut83GM62PxV4oq2JT1Q8Ih1znejg+b0 RdMwlxkEqxo9rjeng6opnlVlMazg+wFT/jCeDh6bknMmrHKA4/VtTZsCdJBn rObT92Eu4Bj5eJaZig6ejlhud3fiA6Xn9aklFmhh+fbn2ceXBAElO52YRgct TMfU67ftRYDpz0atyyW0cFWL6+z44gmQ8SrczuMFLby2hk8rOZAEK3Y6IU8C aWFvMRcLS78MQCUoM97eoIUBLXE/8yLlwaPlOgj1aGH7j2h+iddK4OfHkJEf p2ihz4+ALwlyquCE75n9VTZa+OVDt3yxFgo8ACkP/Q4NVLhlXBHrpQ5qyKGa yAgNdElXKDQV0ATMTQGWaB0N3KFgoBQ6qQOsoxEf8xwaeJtoH6qRrgfyTfee uz6hgSrziZOXYwzBzrGKkgh3Gih5M6L53AMjcHbEpyfDggbqRoidH2U0BQmv ldcrEBqYBNPOf14yAxO3NnE9gjTwogZvMNspSyB3qkR2iYoG+rVYpJ0duAIC 1+9eoFqkhtOq3uHjBzagrUzehb+TGhq8s9bmvXgdcN9ffazymRpu7Cdc6lq/ ARw0C/ONU6jhCkUlojTtAEpoXJtvB1HDqOqeT2qKToD8u/RcqD01pEhsr8ya cQHGzxapX56jhpwlLEO0lG4g7VK+2GcZanj6RcDaw4t3wRLvbe12dmpYAdLs aWY9AX5C/MbsDhVEq6XGz3/1AZE5MyFHRqkgUdGy4PXmPdDv/DaDu54K6hIq uVcIgUBUwb5aIZcKbv4+jVc+HQzubguPGkRTQTvBp+GnroeC6qrxffu7VDDr OXVoXmMYYAzN4Am8RAUfO4fR97hEgMu61/BJKBXMUNGvlLB6BHIZ+a2KhKhg 7deOreCYaLDVNezTTE0FI4+YtIc9igHaSamJE4uU8MZA22uJe3HgmfXlz386 KeEx0/0Dvhfx4JcQdy9HKSXct7WvoFp8DmRmf6yfSqWE3CIv9T94JIO7K1Li R0MpYUP6dEURVSoo3Qy6su9ICRuDPJ1l21+Bvf2emEkjSjgPs19fvJUO1Ckl GlqUKaHNwSvVqzSZIIwhYKeYjxJ651XeZm16DZrYOqVfUFJCD/Eabut3WcBY yPf5rW4KSJkuce/NeC5IkGhrvlBBARcad6Y+qr4DA7KCJMoZFDB7Zkrcv/I9 4FfxVOCLoIDDvEu/HisWAjtCkwOlKwXMSfO+eel1EcjW4U1dNKOA6yrVZsUn P4IFQ7eOboQCfrlc0/Ou5RPwuMKlmklHAZVzXlXVXS0D5XbOzpGr5JCDMaVi y6QC7N+uyfjvBznUikk9t33jCwjzdaQjvCWHWFGaQ+YaBE1BVUDsCTmUTsJ3 KUnWAKYI3F1GD3LIOEwfGO5RCxKflw8OniGHyqRbz9bUGsDgS0aWOnFy6HNn pa2y7Cvgz7LVymMmh0cfKnen6zaCnI+0BT7DZNB3J8/6dVoLKO+wvM/hSwbP WJ4IvXa0E+z3FxT/sSGDk+J3cV78XeDM6JGZCR0yuNxoplch1w2al3IvFLOT wTVrchJlt14wSLcrcKHwCDS6uOb5xGwA8LOeNzudeAQ+QhfOz2YMghtcmZG8 94/AYGeRafGNIbB04tzagv4RGCHh+fiD+Sg40HpRFzFDCh2e0t0Wkx4HmgbL W67fSaFuXnH47PQ4CDfVkLIoIYUMWt8onmVMAObr8/GioaRwN/FEwB/OKSAY qHazlo8U/hdP/bP5zwywfxj9IpeSFJpFr3WmFs2C3Cfj32MWSWBTTL9Kqd0c kE+NUrapIIEyeem1bVXzQLN8gOaPGQncZ/dgaMAvgYLcNypf1UhgkrLsJZ6f S4DzhcutGH4SiLG6+RS6LIPgKJUkKwoS6Pty/c3a3jLo3aSMPdd9gClzGKS9 I6yA3P5k4kjqAebX7WchH7ACAsqkje7ePMCqJzO420pWgHFyzQdq2QPM0PqW pdbcChDxM2NO3dnHcvdYFW5wEsGW1ZyLbN0+FnH3ees+gQha8AHf6x/vY3Pv htJmrhNBGg/ulKX5PmZxObh2P5AI7u6/ebLEv49VXbQWFkok/r3vVJaC5/5g nJyGGJJDBNyw1eDoxz9YUkVJA/4jESylXXuX5/8H6xuxq2ErI4KaoN/0BJ0/ mHuebyb8TAQJthFO3cx/sDsO+Fb1D0RwS4OnxeHnHmZjlIVLyyACvHDhyT+Z e9iOa0f27BMiYKbQioq5s4eVvz/LKO9BBBOT/XMip/ewYwcR0wkXiaC0wUmv nGQPM8yh6VCUIYJHb0lyDZt2scV+UTElCiK4Gv6MZjxuFxviTayr7V4BcrdO 3PK6sottfV/4zPRqBVDqVX6jE9vFLDS7V87brYACuomHCuU7GGXUwk2l6r/n seA1/S1kB1PtsHQ2lFkGF1vpdK4Y7GCxOd+B0fMlsPdEnjJsdBujiNHssDm/ CNpdvt7gyt3GFvUm81LTF0DmBav6AvdtDPPaLhZamgd6uJDQPspt7CaJYHqE 9xxIiu88Ii61hf1gDszRspsGTp72tl82NrFRz3phQvIUIJjvVBvBTWzYti/H 9fskmOEUDPI12cSk5LclS1QmgFLKfwfNPhvYjSuCFs7HxwCtP8VVG40NbLfz xHy75SgYupJUtU6/gaW+2R5KVx4BoXzV/jxpv7G8A5oSKdNBYEFycajw1m9s sSc082DxJ5Acm8Fry//GHKWQ/xKf/gBdGcx7zg3rGNc1efI9Yi/ICnltRfZ0 HdtMGTR/UtgDfO2UK55fWsdqmMpRL79uIChq4wsX1jBzzID59KlO4JrzfouF dQ1z8TY5/lG+BcgwOoecGV3FFKNOnzYIaAJEN0lG93erWPcSpVr/wDfghs8R 6tZZxdLRytxfbfVAPv1mATn7Kqaa/Pp+x/U6sE4hqqL4i4hd0i4ziaOtBR7f MwwT7hExmePKxTtRECgpXPvRoEvE+EOSPgc1V4GNRD67TQ4iVjj+DlN9VQlK /gwtiU2sYLc+sHIKxJYDL9sUH4vCFYx9K1hYMrMUKH+1JI8IWMHw+57Ecx0l YOvkseiycyuYR1zHjiP3J7A2d1JXsWUZowgq6kEPCsHdj9nWCfbL2MHOvE1F wgew4S9yd5NkGbttc2YsNqoAeOlkRFi8WMKGTXrvp3Lkgy1mvldlikuYLYX7 zM2WHODz88VHrvZFjP2yuEFz7luwk8nZ5Oe4iOGCLmTmvn8D9pRwv5FXC5ig 4mpApnAG8CeJpn2lsoBR6vOnVD9NA/uNdPwk3fOY1HGVS21KL0FgXLjiNed5 7EfKRIrPgxeA9ArFuRrqeSxvfKJ3kyYJBIsG2whlzmEPL/+OGYYJgHxl3yMU mcPI1FzHp7KeAcqQrTRtt1mMid3N5vfaU/BQ36PkLf0sVgFDgHbuE0DNsdpM /XYGazA3ZQwpjgIRI85jt9RnsBel4ZX+++GANmd+o2lgGiOpL6++FBYGotwc 6CU9p7GJQUQyUDsU0OMnBR4zT2MKKRfoX6oGgycUtqeXcqewW0GRbzKsAwHT 92H981pTmKhsx7DvFX/wNNHK9sPIJGa4/fHnZ0NfgLPt92LxncRySY1bDCO9 QNzJi4/d2CYxsQtU5BS0HoDtd0dGV8EEdotxOo/hmxuIrzIsVdCdwIb/1NeT Y66AI7y5NX58HFt/cOd0d9cd8Nzo7PiG/ziW+l3RUjncEXBy12+Zc45jLe21 Z7Jib4KkCXXGsqJfGN87upjT83aAq6BKiMvgF3ar9J3Nm0hbkOKlpuI3PYbt 7zjkoI42gEe91HAwaAyL8SjFvlBdAS9pFe2Q42MYP0VxVWPmJcDXXejzsmQU W6DY0zF9aQbSUqWjDy6MYm42zz+tL5oAjTYz3ereEcya0jyRI9IIaF+7cDeE bgTz+sb1tLvHEJxd132lRRjGvnWcsM/HnQN6DzWaqDyGMCvc2+GOLzpAnwv5 3ZgziAk3XORKbNYEhu+U+B8ND2DOWkpmLrJngBFB5pwh6wAWR5vM+6IZANMu cU/msz+x3TiikixUA2b2Qumd935gLBqMl4VklUHkf+7hsZ/6MQoGa54zfIrg y71aF+OlPuxTlvFK6W05sPKQ1Rwn1odZn+wvW6GTAcJx19HOq72YiEtNWdfC SWDxslgkNrEH0zz4JaSldQJE5ZAxGHd0Y81pu077LCKg6qPJOgttN9br17vq oCUIVrHMgY4zXRi5TIJYaxYfEG1eq4nx68T+7Fd9vmTLDS71auQafezAyHxq k7Rzj4JHY3ExLIvtWKyf+PGIO2wALox7d4i0Y01LPzLIU1nAzPJNKPilDXvk N7RZYMYIzlNSR2dIt2JleUa1FsdoQcnx7CuCac3YW9qENP47lIBX/qxkBksT Fqnv8ikRkIEHujM7AiHfsNj6+UthgSRg4Wp4Y/p6AyabGQR1NPZQE88TiQL2 9dgR1TjeDskttPzRN/v0vlrM9ZH70/y366hApoOigG4NljXmX5iYRkTDy6jJ 08shppImyHCPYQkdfmX0Rt2iCrsnV4W0Jsyi71pizqirVWAHDNVE39pJ1G+7 Y4TAW4pJ8t8eEvf/heqK4vwJpJ+wnQ83llttRtCjJsZchIlCjOsBupKY+BNt PhB2uf/kHRbIE3PGNrQXdbj0JifA9C1GWa2dUE3bhZIXi0z4c6VjhlH6LuXs 7SjhmD6yA+MxQU4a3STh5r+LJNkRk4Kx3ayLeOHRBvTekWf12sq3gGTbZEO7 ei0qnXz9K5vS37zcKN5UVxaiw8cKl+iYUgBV8LNVTfkK1ES+vzJM/TU4uYjG tnSUoCU/zIMf+uUCPe6Dgst8xSgDnBeqs/wAyKCnUTzpBxTE5YXVeRUDwmQ3 0l6bi/5nf3u27lkJaLv84bqgZRaaoXJSv76wDAh9VdbUeJOBdtPPF9S3VQKr cn59e9wrlHI0l6VhHgMkzJQuYDAJTbmkqHo9tBpQL9+3SLgfjypqxN8ex9UC gbPNusw/Y9A2yd8p19PrQLOl0xBv6mP0JsfFtvFTDcDtSsT+YHg4SkLy6eB6 1VewE/8s871BKJo0yyY7od8Ioil2fB2+BaJyXXdt7QaawLTF1fvlJX5oc2V3 3MStFsBAcF8VHvBE7bIU6u22WoHaQfEJ2m439E/0s42JsO/gus0ZK9U9Z7QZ vxNXFNkOIlXOrQV63UITZXPzV406wPNvH8R1ZuxQO1HLerljncDcV56XQuQa KsNNO+w22gk0pW9P0XBcRv8wlW8Uve0CjVa9nck7ZmgTuSPTmnM3aDwtP3Dn qzGasH3shLxSD2gLFQ6KyzZEbZcaCe5/esDK7uM1z4OzqPS4z6Xiul6wleJ9 bMNKE93pE3dbi+oD0VbTXDvRBPRry49IeZN+oOcetft2ThV18P751erkD2CW fPWOnaciSi08QB5K9hN43FdkkD4qi+Z8H1DPH/gJdglbotHSJ1E9v8GA7uIB 0KJdtYMkiKBzokMVe1GDwPIW0XCQVwCN6hzaErYbAmlykoQ6Xm5UMmBY0QA/ DBx2n/RFubOjLeIjbh5sIyDl2bmtPiIz6tQz8j51YQSQWTwZ7q+gRcMIrhu2 tqOgxyUg9jETBWqWsMLm1TYKjIDsRFUMCSq24CofpToGpk7VzpvT7CBb6kSj V1lj4DOTYWL3nXXk2/P/XItxv4DuVtTCDukKkrhIfPI14BeoYGAri2aYRRw0 3N4NzP0CVT3VnIzPxhHlpNXmZbNxkFb07uvx6GGEetltjqx2HHRaPjCT7+hD +jXXqDlP/a0bus9YF0R0IjnJ7mKSLyZASZjyWFxHC+K7sqZFoJoEztcHZ35a NyB62nftTN0ngamJs3eoeTXClbIe7DAyCUIzQcT4j3Jkjng3/d65KdDD+p/s nZqPSLnOb+zp5ylAdW6mCaX6gESmegy/FvqbJ4r0xxR9zkYs137vlUZPg05V 00l/6kzkpK4nd+vuNPB6vd3YpZWK7L3cUBm7OQOeHwsL2fZNQFrWPS1+d82A gnKsJB+JQVL0Nj1pCLPA1O7d6KRDJOKU5hXPkz8LWkSiAUE+FMFvbBbLcs6B bKEgFf7BAIRe37tTK3QOPBW8J+EU6YUMpm+tXFqZA76etKGrS/8h7za9mZwv z4MhqSUFR93bSIDBtlTwt3nwo+W+IKiwQwwzffQTFBaA8JrTUo7HVYR3e9sx N20B0Jk0x3v0miNLhr4RVfSLgMa8UOsbjTFS9Xrnbaf3Ing27wbVNc4hT3Z8 G6YmFgFX7lFZ7jhNxPrC7sTOhSXg8U3eWZ8MIKey/MiYviyB6ksvSWLNTyMk e7sCQuLLgPl2n0pYlCzSbnSPcDp+GXjmXXtMbS6BtJsEvH9DsgKUjfh3W6qE kNKAqqr3SiuAbfnomMlTHiQtZ7+1zGkFGPL79p3h4kDCu9Gh2owVoPM6Ojsu kBlxPQhYaO1fAW2636gHXlAjFhLYbh8jEYx5oSoHxkcQwsUD2l+aRPBfRo1A FmEXfyIQcC34EkE1bvolJbKOZ867L77xtw7SLSi40ki+hN/uwZRJpolAFK/Q +UJtCv+LhOQsLc8q0HDIaf3y3yi+6STBnM1kFUT/ie2nPtePLzILtOeNWAUd daaXQ+c78MlB0OMEtgpOxnRGrds34YPzSR7I/V4F+9f65+841eId+wjP8CfX QMz+I3unyEq88ZGgTO1ra2BW1tn528pHvKpUddGF52vA/xGH99r7Arxid29C VeMaiItpOLK9mIWX8VvwldxbA+pHX3UvHE/HizYe1aC+tg5cOo4YGh3E4llv OHdhEr+B54DdiV52L/xCCve6dNUGUFm9Ynybh4B/Re+pyDC5DRbVlww7ORvV jniyD9odIyGQkRFKV9q+qVLRXwiyXaIkSGfLlFWXAOWQ0V4Nt0wGggwdm52Y 9hnFDy/CLgSsshA6gr5wyedQyblk2DFPmLETer7njH5NY5C2dkzmeRjESYit Pmq4X/1LPMLIU0U+hZuAkzr3RtHimgg5W/zU/R1egljR+aRrEWT8fc0PVkKZ BAhOLvhT1FwxXBf9bJWSawUJ/pzWCmGnJdmc6OYF2yyFCXz5CQdnTCADX15D AuWcCMGOoqNX3JuCyq9Uw4TphRjhf99jXbOcSpROif8z/ZHTttKTEv+sdcc0 XiJO8p85y3hctISl/znWLTxGpu/UPxuHnZdKLZH5Zwmr0Iuv/WX/uXeKJiPu otw/t9lOquP45P95jPztVrzgodezHN4fEz30sfn54wJSh7ZzX908pXbonZCD dwbmhxZ9c4wrIvrQKjoD7fRxh9afTXn4NOHQ/0nx/36eeujKT6LtWXmHNm6Q D6v7eugbDr/xZ5sP7U37ea257dCphqrXunoOPdNLwP8a/z/79T6ydmP60Azc dTmzc4eWu6pzlEg8tBYpTdvd34e2yGwK3do6tKPWI7V7e4f+n/8C//z/AO8z OEw= "]]}, Annotation[#, "Charting`Private`Tag$20717#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2mVQVl3UMOCb7hSRkEZSCQkF7nP2QaQUkZI0AEERfRDpVGkBBZGQVEJR kFBQVEDOBgEpkS7p7u78nm/mfR/e/WPtuWbNmlk/9uz1ZwlY3zewJSUQCNL/ hv9/+05cWj44kIOE/znj3uxrf3cPrcs8sPF169D8So5791cOXRH2gnpw/NDU Up288PehY1wsLz5OOvQHEuc3hDOHprDVPM157fR/PtJVdS89SvY/G/xMvCle J/OfvReQe89HpP/zN/dE+/zLUof9vrjCv59wEo64DIpfcuKm0kz5oas1KwGH PU2M7nmMMmT+8uxwthCHInOXyiL1249cD4w5+ue9KGS3aRuI5ejhfGhJlkd3 RAReDELOPv3Oykc4xYerBQnDm1CP5sSTZqGe8ISQD+2C8LWhUtXV3nCx47R2 WavnBKCZ1lkqQfeok3cVJCj+HueDqc5nnxDYH8vcPNP//udPbtj2I0Peim1W TsJD+cDhDQcsMKz5Hv+uWDGtz7DSU/UoHOIiwzhUzJUm/I4SNTlYYe0ab1JI 6G0VWt/8hWhaVmju/LQPz3NUkfLQzhjcZYE+db707165q7g5+NJ6DbFAckp1 T/u4EBVKi7GunGwWqFxd+KxS6p2KsPwXV1aEBa6U8aCdfGMq1uNG+X1WzDB2 iHR+q9qCGDw0by1hxAyHXrkl1y1YE7N7n7C7azDDxCpOUF17h7jcUurLLMkM g5ZQLt1WdyLpI+344Ekm6J6bVFxHG0O84Op7wPebCQqx5z5eZ0oiRt39dOv7 Jyb48IO8dDpIJ/KbcirMejFBl4knlfNPPhLtdC8lB91ggpe6ek2HzxQRP573 I+M7zwSlOpz4Mpt/EDeVv9h/E2OCbO5ox8Xdn0QgO9Wsz8AE/X9R6vaU1xGD RXmUZpYYoVVv8vHWkWZiI49+amAHI8x8fJny22gnkZ0tiIq3hBH6zVzgcRwY IF6n/e7w9TUjTPhyLjBCZYyYSZhr1wtkhG9Jj6TJqM4S59b5kWk7RtiZLZ3T XL1MlJ8zehNwiREylDRK7s5uEn1GntDxnGaEahfnL8sEE5DK7lKnInZGaJ72 Qm9oiAKhb1rsvrzDAEWlTbpNl+gRo2ph1akBBgg8NUnoeY8gSaWm7/0rGaDy u1M7dkqcyHDBU6bjWQxwvVzi09QrfkQiC7p9ecYAtQJ1hbwGTyBOr1f7dJ0Y IO9MZVJixUmkOFZMfdKYAapJKLcVDp1GqC0mbpIQGSCGDprsZ5xFjPkz/bkE GGA24ytVUSYMeTNmkyZHyQAbdOQ++02eR5azhaDODD3c3N7oCpK5iGCOw/22 TfTQVoWGKeC9PhKhkLb38As9FHXUUGyeNEZ6t28cj0+kh42l6Mh2/jVEHPKq fHpED2M+muX5KN5E3IL6zOps6GHLnncv3mGHVF5I9hjRpod2ZREtz2kcEVZm i5e7UvTQJNpk1CLfBbFs5yw6ykYPn1OTfF1964XkJXa1SW3RQZUG43tSJ/yQ 3RsvVzT76SD91dRVHZpg5MIJY1arn3Sw+5jWWf4LT5H4aTZZr/d08Dbt4Ly4 0AtkPL/1cvQzOlj5SL2uXvklIu/6wiHHiQ7mSsQFBn1NQfyV9Z9VmdDBDoHB Er3ddOTPAVNOP5EOvhA6YcOq8h45XtVYtyFAB8c7WamCRvIQ+7BnU8xUdHBx eJqIZRci3y7rUEvM0kKnUEJiAOl3hPIonahaMy2MJMY94KvCEaOeWvWrRbRw lOti9BfRSiT99RMb1yRaiF+8dpIuvBZZtNEMiHhMC6VKG6U/SzQhqARl+jtb WrhU1Hi22bENebpQCeEFWlibEBB8r6kb6fkcMNAtTQsfxMobLWoOImJe5/aX 2f6tp7Fr1w4YRVwBCQ/9Ng30E4/I8GqaQirIocqJARr4Yshs21RpEWGue2iO VtJAzbKJzLDrq8j1SMTTJIsGWsNfLArhW0iO0e5LxwgaqEXz+MKv/QNkm7Ok KNSZBlpcL9UoISNHtQY829NNaWBPUfLmL1IaNO7N2dUS5N885lMFzzCho3c2 WNsFaWC7dS7xo+sR9LR0kew8FQ30D/jEf1+FA3286qJHNUcNowb4rH4K8aKN 3+Xu87dQw7HPxx9WfRNEuR8tP1P6Sg1dLck5URVR1O78pxyDZGo4fmzOQKz+ JFpE41h/148a2jlyR75tkUXJ/0hNB96ihuFhYr7NNIqoQcwc9auL1JBN1e07 y1kVNNUsR/SrDDWcDlTRI6nD0HneuxpNR6mh4BDvzHz+eZQ4Km47tU0Foeon oVlXbTQsazKAdJAKbuw0rnvpXEa7HN6lc1dRwU+6kqpcZwxREflb5fLZVPBv /cvgsecmqMuW8OClSCqYrsWUr9h/FS0vG9m/5UIFxZ1CZUWzrFDGwHSex2ZU 0C/iR5h1rC16VduKmIBSwaemZA6VpvZoNiO/RYEQFTT7JnaskckR3Wzt96yn poKNrtIFXpHOqEZCSvzoHCXk7x3u4al3R2OuX/2610IJkzajI2ImfdBhIe4O 9m+U8KqpYZV/mB8qM9W9Kp1CCbc/T6hwqwWhLounxI8FUsIrixX02vah6LcN v2v79pQwq6zkmLxZBLq73x41pk8JS7bdDSc4X6CqlBLVDWcpoamzVS7Xi1g0 mOHhdiEfJSwuD/3WmZuA1rG1SCVRUkJ23i3amdBXKONxkZv+cxSw5m0j07ZQ Omog5PXyThsF9GSRNogJeYvGSTTW65VQQFy/0jAxOAv9KytIOJtOAU227GtT VPJQfiU3eb5QCnjmwY2X+PAn1Aars6N0pICbed+2aIW/oO81eVPmjClgj4g1 5rH+DZ3VdWpuQyigQOafuGNOP1AZ42qKUmEKyO6QZHPDrBx1vcalnEFHASvu mgRevFeJFts4OIQtk8OcQJa16+Q16P7divQH3eTQOY2wv6fYgJ5zZu80heRQ KrZ8xCaiCQ32sqfD3pFDTj/Bt7R3WtE6vzIgGkEOr1dwf/xc0oEyhbK6MLqS Qx6d7L/0CT2o0fNb79csyKFBxzFtN/YBNP5lcW/vOXJ4/9ftXgWRYbT3FSNL pTg5TGIz++EiOYbyZ1qrf2Amh0+s53mWsydRm9wizxcbZJBmQYN6omgWzfpM m+fZTwbLhpt+0xYsovMl14ctq8hgMh5Dz2i7gp7+WcCulUMGda5X/Jj0W0fd 6igvSkeTweVaefWOY9tocbP5I3YvMliZuqbIfXYf3e/KK9yzJIOZIZxugt4k 4Nwg6eSoJhns+Oiwe0aeHARPGB9vkCKDJ+99Za43pAL189l6hUfJYFrdDWR5 ghYwr+8HJu6Swr+1wvLPCEzAaM/gu98IKfQ5ufqstJMFxJO/m7OrI4WAY5va NpAN9NLtCOh9IoV0XReFg6KOAf4jl43PxJPCo370CTgdN7DlygjjfUQK30qO xiqT8IFsgY0yilukUArYPBmFAmBe7OLKrA4ppFB4MxV+WRiclnkt2iZHCl/l lGL3FUWB25kVixIuUthOn+gQ9lgCFKOaz9NJSGFujNp5dmUpcKCeVBk6SQLF SyuHDc/KgvOXFjYd/5BAgwdxG+8T5MATI7VTpkUksK9NgcVWWxE0WLy0Aikk MMD964dfekqA+eZMrEggCTTf+sBNW0wERvagjuEuCVx8eYNJRQsDCQ+i91f1 SaCnqPsB6ngO9HtMnO49SwID/U9Izvw9DwQfq9z+yUcCp9EdvOaFJrgVEpmU TUkCjXa/WPKmXADZESN/ouYI0Ord+8QDMl0wH3uG3LONAE9/L3ydN6kH5FLC z1qWECDHOw8DOmpD4PFm4J5mOgGKmDwbp7h1BZR+kEuTCiXAsKVsJQ4aU0Ao DGk/6kiAm8cZDi5vmoPzxX9p9owJ8JzSM1EzlesgL/ut0i8VAky1uRL5lN0K cCTdvxPFT4ApR/GS6xdvAv9wpQQLCgI0Kyb9dL/CFnRsUL642HaA15/t00n0 twPZXYlLAykHeNknhQW96Lvg4XcpfZfbBzgWIj2buesADBIrPlLLHuCm/txs uTcfgBPexswp2/t4oKWancNDZ7BpMX1ftnIff5Ji/jy/1RU0EB/+qXq2j9Nd nImatfMAqTys0uYm+7hLaJsU7Xlv4LL/NmKefx+Pm2TKML/7EGgNKM37T+/h +XW9fM3LjwE3/H3p2Oc9XMFZcoahzx/Mp1rlfvDdw2uG+JzRzUBQ4bdGj2nu 4XkXHpb5aIWAOOvQe23Me3haRX6vUEsouKPG02DXs4t7WDI7Nic8BUThT5J7 Gbv4KDKzcetNJGCmUA+P+mcXByX6dkHeUWB0rGv6xJldnMaCzTHmYjT4Vn3v QjFhF5eQP+ekpB4LbjyJoRmJ3sE1Oy9vGJcngNN3xO64X9vBPxfEq0hdSAaU F0pr6ER3cHo2vzwTmtegR0JPLHVxG5f9u50iQZIG8uhGQ+SLt3Glwr6Wm8np wH/WfaImYBvf/y13W9H0Dbjym07z2qVtPGyFqiNCMRPsRshRBg9u4fXqDQ9w 62zQdP+XLVf2Fq5ngri+/5wDMvQsqvKct/CrR1pSFGTzgZvsgrAasoVb27+N wOY+ggusAYGdlFv4kHMzamRWAHhX2EfvNm3iic/2uMb6CsFya7YaIXETfzTa Ekji8wUkxLaQip/axJVcH2XR0HwH99xuWf9Y38Dvz+e8JmwXA8xku1wfbuDy lg7n46h/gEkOQT8vww38+K1KTulyCEq3vgwy8mzgce/Oj2ZtlIPIHm0sY3wd v0HxQv8L+hMoJj84qPdcx4+P3Xg/c1AFaH0pbliqreMtKoW+n71+gb5rCWWr 9Ou4Uo5pmiZVLQjkK/flSV3DV5i88ADjBmBKuNL36c4abl1Z5WzD2QhODk0S NeTWcCdBv3qf+T+gNZ1516F6FXdv86R+MtEMMgPeWJA9X8Ub40J8eeZagJfN 2ZKXZqu42evjfb47rUBQxNILzq7g9ZpX1IZkO4BjVv4my5EV3E5qITVlrwfI MDoEnBtcxgmkww1+J3vBktNJRufcZTyxQ3H/j2UfcCJmCbVpLuNXtIlic50D wPVPum6czxJu4msnxuw5DBTlrbqrtZdwaQpcV51vBKzH89lssC/hX0bdNymr R4C7dbKn6adFvPvGDZH2I2NgZVpSW6FhAT+oLrsUkjkBXD6/vx53awEfNc9o E9acBOu+J1w2CAv4tATXGYuxSbDJzPf6u8I8LvXg9MIuxzTw7En6zNU0h5/M YsZScqfBdgZHnbf9HE5qexRVRWfAriLrGvJ6Fo/9dC2d0mAW+BIiaV8rzeJh GptWtm2zYL+Wjp/QNoOnKafaqOnPgcfRTxSsHGbwcM8/vuo1c4DkGsXFCuoZ PO+mD35EaR74i/hbCmVM4/cZqcbNMuYB+eK+ayAyjYuI98NflAsg6Lt3+Fjn FE5+VOQly80FQBmwmarhNIWz5X4KWfy6AEJ0XIve0U/hehbND6JIFwE1+3I9 9btJXGszRFXxxCIIHXAYuqM6iZscfRpar7YIaLNm1uv+TuDOevZSStcXQbiT Hf1Jtwk8wcvonL3LIqAnjgk8Y57Aq8+W8V8KXgQRFNZn5rPHcXHdkqDW6EXA 9Kdf57L6OJ6LrqYuJy+C5/EW1h8HxvB0GkbhjLRFwGrd5c7iNYZHCtjrDP3r aMkrz5zYxvD4uycnc1IWAdtac3pr3ijON+xrTBO7CGLLdL/Ja4/iU9foAvZC FgH7k/rfsSMjuOJyTW+02yJ4qa81su47gscep9PqsVwEHNxVmyYcI3jVZyb6 YY1FkDCqyvi9YBifXeMoxcUWAVdemRDXpWHc7aj68XDKRZDsrqLkPTGEpwll kZfBBcCj+k23128If6wma1twbwG8olWwQY4P4RM10U7yLAuAr+2T56uiQZzj BLdfWN48UGs01i7vGMDjxiN2R9rmgIaVnksA3QAeste1GXZ9Dmitar9Wx/rx adt4LZ3hWaDDhazVZvXiGX6+3E+7Z4DxLaG0Fp9u/JjQXnp41BQIe+D85MWX Llzs2WfG0K1J8MPn532D+U5ci6JWu/b6JBCOvom23OjAc0gi/kQKToBlPONv 87lWXDWP1+ZBwigQqV+piPJuwT0ETdvh2ggw61DL1v/cjAftxCafNBgBcHbE o/lEE258xtonhX4Y8MppnUxnqcM/BVM85OcfAEHak9sCATV4sVqcBclMH5i9 8aQ2bbUaZ65r1vcp7gXFT2tupXX+xGMS2L4O2/WA3Iaoc6oqJbhw2B0VLoYO 4L3VPIDxfsMb3fVjcynbgbYIqy9G8gVP7Srf0qFqA/UHwvcfReTioqevpRvw toDF+ASbpQR/fDy5ID9f5zfwIY2p0jh7BxT3nhz+WVQPpBJv/mJT/HeOgFcS R2TqgKFcV2mw6hugtSy6Tav3CxR1m/iHeGeDkLdfHjmsVwEGOCNUaf4RHBdm 9wn8UAke3Lo7VRlTBHK2Iif6sQqQriSpU/XpO+jx3exJ5i8HbfQzeVWNpWBw uTOfhBGCZDMF5ZuB5eCTGy45xl8KFNRi746w/gTTisAsQbsYNJ5cS76ZVgnW lvTH2sO+AQLhy8HNsl9At4KY32n47/8+xSY7qlML0sAMD21PITjd6mJt87cO 7NkN3E1zLQD1pW3Ro3caQI2jnlrjiU/AJlO+ymbzNxi5Qavp15oP9iJj1keD /4Bbllxu+n65oJ64HV0Q1gRc72rb3Df8AGxEzKtOc7YA7jZzPpnr74AMN22/ 02ALiCxu+J0b/RbsMRWvF7xrBRGTajqyExmgjtyeacWhDdhP2rMrm6SDuC1O MTnFdmAjGBaqN5wKrOdrMee9dlCJJWozML4GUiOeZoWVHWDwxerVpZBk8Kuh O0zOsAtMvw+0dySNB3YePb8sJLsB4aoAOtIaC6iF/5IHkvUAwY/nio61RIOs P39Vc/72gMLMwgaO7Shwwbv3YVvhX9B9wGJ8RPs5mBbpK9kN7wUWnpeVczye gfCWvk1hmz6AiL6JzUgPAycf9itcIvYD+/0ZVJbuCWgQH3ByZRsAR+gaKUpz g8C99oH8lNkBwGJIMjATFACCMcd1a+tBEPaJ0et9pB8wjltkc28cBGPkf1Dp iEdAdNZRLlx5CCRl6Jcp6vuATdUl/deZQ+BIZ5dMqpUnqHn5wLGQdRjEqnGW s313A/FzSxG/Hg6D4zG+6Vn6LsBOzSn37/QwqGCqC/l7wgmcTViuXzAeAdzS EwehMo6AesFpmuznCKixpAoZ674Hus6vUHNIj4IsV5dts9w7ICvRWfRk0iig +fVHXLv1FvBaXFHHqMaAcUYrneR5G3BBw8XGyHkMLEyzRTBuWQGu5FV/u4Ex IBjPKCbQeQNML7mk+VwcB5d8I65nSl4FxZpr+POv4+CWtaXc9KgpCEtx7X8j NAGeRscssm5dAeYra7vfIicAXaRbN98NQyCp7cb9e2cCmH9TW+lm1Ae7r9aV hm5Pgp4Td1bDSHRBw6qb6VrrJMjLdGcUu3oBJF/YcKPBpkAL+WqzlIAmuJfq HsuTMwVS6e2s7NXPA+L6RqHsv3MwyVFp7EuZKqDX8WhRD5wGPB2/+xqoAOhN 21w0W5wGTDo3H9zjVAG5Gx5MDldnwItzrM7WGWfAw0tbp/xrZsDd2XFKjXh5 oJvhqRMnPwv8fxZU0M3KAt6tLfvs1Fmw1qGS2iAqDeZ1vULL6OfAE/qgIgN6 SVD2Zvtdi8ccSPS4aXvNRRREbHtVj4/OAX3x2S0vPWFwXW9ndFtvHjB42zWO vxAA0pneZEw/5kFayevysuu8gLC7IyAkvgCk+R1bDxS4QJO+D3YmdgH4Z9x2 V45nB02GD/PfEhZBUf4/dhddjoBvD8vK8hUXwZtTrCzUJcwgNWv/9/d7i8Dn vswsaxk9eNKG9v1MXwSfuY4e33xPDRwPHs7+7loESPW0zqQABTCVwHc6GZeA Y2HOxlN2UoBdOaAdPr8EBl83fn0xt4+KPQZcs15LgNyObXfVbhtl/vBIfP3j EqApdFbzDl5Ht9rxs4SJJSDntHXDU2YFHSYQtGh5lsEsCykFwWgRrZPETNgM lwHhaboZW/kMWmD8+BZv6DJ42df/61bkBJroB13F8GUQdf75+dmtEdQ/hxB0 em0ZSM1LtQ9PD6L2nVgMUXIFGFznHG591YsakPplaFitAHzS0/CSVBeqfKq8 QO/lCnB372gfvd2GKrR1xJXVroANjqb9QdtmVMZ71uvk7grw+v2Maib9Nyop SHojUWoVlHtYpGidqUVFao+pUVutApZ7o421DlWogOMpUbfoVZC6zvyh4XQF evyYGt1o1Sogv460Ww6UoRxlpgv6m6uAX/r2yqRYMXrE1qEVl1gDy83sW1XC RSgjfeDXU9fWgHFRAXf49wKUtjAhKSlyDUglEYyepuejFOb5j2gq1kBH4KdS 9oJslEBSddN9dQ1ondYi4/PLRHfe9WiOiayDmpRml5SVdHRdd1HS0Gwd/AiZ IW4Pv0aX1iiYy8PXwTmgJC3akIjOJnOvSpWtg5hj5Y5Gj+LQCTXZruTFdaDb 06N9qv8FOjytUUortAHSTqRqBKREov1RV1M9rmyAefs7tq2uYWj3WafA8ZAN 4PntebEPXzDaNhBiZ1S8ATT/8LpoevmjTcEpOhWz/9a/OvXmWftDtP5UoYwM 3yaYkuaZNij0RKvbathe6W8CJ48zPmq3XNFy7/5NusBNoDUmhlY3PEBLBVd7 PYs2AWmWyv3qmH/Qr7U05ROTm4A9fEOXPMIOLXDke3uFewsUSj8afHLVBs09 phD689IWUFX5YTHXZ4m+L7vwj+zjLVAya71uPm2BvrG11H9dsAUmNlnf5x4x QV/TuykwjG2BYTMZyVxGQzSxMJzT+9g2WGwwrA96cBmNM0/bm9TeBqL69fw1 U9poFMnXIWOfbdCrVHnG/oo6+vR9Q1Vl3jYweqZglByuioZcHs46PbQNfFO8 7O63EVH/9Y1nqUd2gOTurrBV1hnUN4XBiVFjB1yY3N+zviWHepwXMvbx2AHl 8Rm9t39Jo84zZ5Wns3cAdgejuEeQQB1e6PKa9u2A/n8eKX/BTqD2Sjak1Uy7 gGI8Q9LFXAC1HfQclzu3CxpGpf2wy8dRy5DIujSXXfCuz+nBNZZj6FWpt3lM 73bBR+Epir1qVtSkvfiFb/cueN/x9GlFKCNq4NPkNkO3BzhziiviG6nRS0Lj 5mboHshNGz7mIUCOatXtoL8c90CV9W2Xz/oEVO0Bi5BCxh6Qz09usXfYRlAO UaqM9j1gr9p9bctqDVHCiTPM1PuAsVwkrVNzCZG/ZfDnofI+mKVWot0Zn0Fk GOwKZ+/tg+rnVEt1j8cRyc++L81f7wNNTg8lLYFhRMQi2rumeR+4Vhjmr0v1 IYKkWTcUyQ9ABW2vaolbJ8KTVab2RvEAwJ+S5/y6WhAOvTZR1jsHQGX7XdQy 0ogc2Ziie5x0ACyiSp7cQWoQxlcHC3O/D4De2EpFkd1PJDCddvoUgYDFf94o r6bHEVK3o702nASsuuk1+dM/3xBzy+yWb/IEzI+taX3ZoRApuABq6fUIWKeA MuPB7TyEVqENt7xLwLRvz60qVLxDrPnuFH0OJmDhDdofSsPSkWKa/RzqdALm nteLU08mI6yrLzKu/iBghqrQUdUvDrHvF0382EXANKwKxLYeRSEVNaXPyVcJ WHcNRt0vFY5wFeqHmDKRYB+X+h5JsgchTinjvjkSJJgtC3nffePHSF2ItwtB gwRLEBcfl9T2RASdmO8aWZFgJ/vQ52fDnRGvq2+t3vuQYF5cXKcaTjogLRrK prsvSTABSJYmd/42IiH7R1evkAQbxjQYtqetkABuG/U3jSTYpO+RTJ/nFkgv xZbK5hQJtnFXn0fu1BVEfvHZaR0KUuz9R69zXUAPedojKJ7KT4pp6PzoUprU QkYrv/KtqpBisgkGH7qY1RBivg67lgkpxswEBC+LIkhMwhB9shMpxhs/WCul pojMBriRLT4jxVzpLx+t25ZBzjvQbatlkWLuGoPqKf3iSLJp6uLLSlKMs4ex djRPCFk9pzAxM0CK1Xex64dO8yA6p+r6wA4p1uT5gZPsCzvy5tiNtmh2Mgwy rbENK7IguySrdROyZFjZZU+skIUWMZp9Uq5yiQzzXBYZF/1KhuR08HyLtCPD lKMVx3pq9ojk5QV5IwFkWLgN32qkxzrx6gfNt2dek2GZYXZ1lfOLxM+xvUnh xWRYwscTqrM+U0T6xw9eDLSTYf8+RJYxsRGijT1lqNwSGVZYcn9dvaqXWGqU 9CiEnhxzQKgElKPbiWxAxu2vKDl2/CZTQL9YE/GeeNU9aTVyLMgtfuDRqRpi 1RHzmwHXyTHQ9PvnZ+YKIu/+vFmnJzl2lVoxIHe9mOg2GaAnGUuOHTWa2eHj /ExsbOHQfPSRHKOTj9Eamc0livzIRVrrybH2xuUaHyyT+PDdOXnRCXIseuUY nhucSuyI6pTwJqXAQjS5tx8HxhODb5FwCClRYF/d+5MVhsOI/XpxjO5GFNi5 5XiftP4AoqKKJEX9fQrs2ix/3eoVX+I405Vlp0wK7Hd7aObdv/eJGt/fN1Qc ocTubKzyPw4wIFLR6/lZz1NiVxo56vMTjhFNRc2hIg0VtjXcSpavwELMPmdz QCtMhUk3dXWPsNAQdT09fAvNqLBsvogPf/y2VeLGUz3Jq6gwEz8V95qzfSoi 5UsPMpOosT9Ezceudakq6m7R1tNatFjM7vKNtGIBlYDBDjWnDAbsA4c1d58I s/LHpGC9h8ss2Ao7ZurbUXXmfroN86jxUWyeVKJCTH1Q/rp9Ik+IHwdWuz+S psZRKRuq76Ykl8yNuTm+afI7YSZFzhY7/mibFwuZnZQyY1GS6KwPWgxkEsCO RmkMUnbvnLjiba2Y+FMQm3wYGjRvtsZ/j25GsNFcGKPVnGBi/NjPzfehOo5y +gQmfF7lzI+Hj9m9v6kZMiWJYkKTMRMyyarMjpn3ihSlxbEfbE71BQ1UtPSk Z6ylxiSw2dkCheWov6Tq/xjFSkSfxP53v4DjO899dWGp//zC6UmUTKf0fzYI vnwqpUjmP0tYBF554yv7nzvGadKjr5z+z43WY6qsfHL/eYj83Was4KFXM+3y OUUOzTkzc1zg1KFtnJc3pFUOvR1wkHvJ5NAibzm5QiMPraT5t4k++tA6U8kh z+MO/eAU/9rLlEOXfhFpyvxwaINqueDKX4e2tVsjatUf2oP260p946FTdJWt WtsPPdmBEYdH/k+/HqQrthOHZuCuzJqaPvTpG5rHlpYOrU5C0+iydmjTjLrA zc1D26s/VfHZPfT/7Lf85/8Ham5UvQ== "]]}, Annotation[#, "Charting`Private`Tag$20717#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nc4ll/8OPDHeB4zlJGRLcoeWXnu+9xIVGZGQsOMSAjZWRklQtmyisyG IiP3bRbKTraS7PHYm1+/6/p+P77nj3Ou13Wu9/u8/3lf5/xx+K3uXrYlx+Fw ov+m/7/6T+osHxzIYbj/GRO+bGuDu4fWZRrdKN86NJ+yy97dlUPXPYqj/jVx aGrJnzzY90M/c795KTD10IVk917iFA+Nt9WU5bgm+5+Z+xqdsmNl/vPl+hTr 0y3S/9l3EXJ6+kfqP3+6n3L7jZ7kYb1xxnz7yeKYxGLAEllkLblm+mddrTlR 7AYfa0W8VA1N7hfv3nvmpzGFiMGTCpO/GK+HPmNtfy2CiVhx0Asxc7MF3KQo oWMWxq7eiXwjw/iYCyfBi6o/FMIKexRMy+cC+QYeJ4cX/hDAbjI2mQjN3j95 gtY+f1WNH3Nys5T4Iv7ptKO8KH7wBC/mpZ3EaK8+JWGtOPK6vp4Lq3j9k5pi OlFG1OvsgfNLdmzvCzSCfc89kzVs2OCtyoqpONKvaDDFKE4GsRI12Y9hePfn BnfIfitXPj+lMWVyBOvgMjgzcWFDhdp80pqMeARbzXvKRH1woGLClxvMyX8E C6zo1TFdxROXCwQx7Vl6bGeqo5w6hYV4GuNRefeAHvtk8wDvNi5DTJphkfF5 TYfp0DUez3rkQJx4060X/4QOi/whpfdV2ZV4xiPOuciNDvslV1mAyN8nth8w Fo0Q6bDnUcvmhXuhRAIrnYh6Jy1W3e5xq2Ixk2g00KxhUfbPFKMUmdm5xOyM CBuPVFrMAn5ZG6pYQiTZaIZEB9JiC7Z2fgYnPxBhUUJ2ni0tNtY8wjTfU0mM WmzAsIu0WO6MwFHq/lriwIeQ0X6pf/lsvh+5Xf6FeMpHbX+Z5V+88ejdCJ92 ogcg46bfpsEUbybLDQ33EOsoMZWTozTYBmySMpU1SGRqCTCDG2iwhoXiHzbn x4jXYyDvK/k0mA3vewbWk1PEIqPdRJdoGixHZD6FdniRuM1RVRZ5jwYzPxU0 dRK3RtQa9f6Rbfov/trvZ765O8SEl0qrVRANZnirfCBWkhwad9g49kOABgtf tqU1GaOCZKXKZBaoaDDyq9E8JSaMUOCquz7VPDWmvnPjzrlIFqitQu4uXxc1 VqXw1kFtjBPierD8RLmcGjOkKy9+Hs8P2Z97V3Q5jRqTMztyrm9VGCqjcWl1 DPrnWj6en8sSEGW75EyoHTWm6IdqaYTIQZefzVO/uESNxbhy1TXZKkOZV4tE yqWpsY7L933cghFogcfxfAcrNdYYwY66umhAxPHTttPbVFimblH/sfZL0KP8 qRDyX1QYxuN5u4niMtTnnJfN1UiFlQ5m35HVvwIJn7GrPVNAhbm0ePO9E7gO uW8J/dKJocKyDmIobrlbQ7U1f/bt3Kkwoa0nbrTHHSCG0GzuwKtUGFntiDPl aRfI4oIlMRmmwnTVPMbYW92hAgY+8/eCVNiYonzb1QofaLN7xLuVmgq76x7C dE4kCDqfnJ40Pk/AjjY59TXuP4SeXbco3+siYBvW35L7xaKgMUGuXrZPBKw3 +dEDfnwcJD3dvyqVTsDElk/pjBESIXeSxOnjoQRMauC+qdRMGvRpI+ja/m0C Zp79w/CbQDa0u/8j9q8BAXvsyPdIqzIXUiWINn1TImAGTCw6bO5FUNiRgO1S XgLWnhi+jG99B7WwdEmmEggYGVVuoKhKGcRwQtg6eB6Psfvdao1Hq6DLgj6J Dj14LDpX/GKXdi2UINrWql+Fxxqw2tPjUY3QoIwATikbj61vvgq162yB+JQ9 z/BG4rGrogM+/oUdkA3SYk9wwWNisI3RTmkP9FqTJ33eBI/txSfvvH3TD83p unX2QHjMiy+SV6d3FJI2acJXC+ExJX6Dz/Mf/0Ae1zjP5tDhsQ5aPtMyyymo 0sbZ+dEyJWbVpRRykn8B2nesy3btp8TKOfbJ1pOWIbV7bD9NMUqMlRB44sni OhTmc5sOyaPEChaORqyr7kItQTVAJJoSm+dx/9NiTQYzRh5zZ/CgxL6Hmyt8 s8TDRk/tXq+ZU2LhbY3bb9Vp4aTEyqEhtX9Nt5kbaMHNBA+9YDjacJoSO5qx T6VYywzz5VppFDJRYqZ+i8fNZdhhm+Iy77gNCsxr3AsSTuaG8z/QlniPUGCh qhy9TmwC8ELV9bGbjRRYjcTb5GJWYVi2/j2bVhEFtmBnFXWSJAp7thAuScVT YEJZa5EZDtJwZafZAzYfCuxXi6pX1bYcvN9XUrp3kwJr71JZpNdWgtV+kU+N a1JgtNwJ+/mhEBw2aXLimyQFNvDhC+PraVW4daFAv5SVAlt81cw7U64BM63v h6bskmNvSqmsb+tehI32LlcE/SHHaF9F2g316MFJlHnz9i3kmJ9Eq7UaZAgP 0e3w678jxx5fXj//XeUKzMesZ6KYRI799CIjuVFZwLacOY94HpBj9tMeEdN/ bsIF/Bs1eDtybOt2RNOysQ28cOrSypw2OUbTIpeR42EPy0pniPTIkWOXLVZ0 R63vwJ6KK+ZVnORYSuyeFpbjClfCmk+zycgxFonAX9IiHvCBRmpD5BQZFupU wax1xRs+p7O46dJOhpHTv0zpMwyAI4zUJUzLyDBP5d+ap/iD4W/miZYgnQzL /FM8bpT3EGaynn0uHEqGvZhWZUZ6I2Gj26DliCMZ9ngtsvT0t2g42TV+f9WA DDsm9L0CNomDR7wmZYeUyDCC906qUcdzWCBQ5VY9Lxn2jVyO6dFcMmwXHpNa QCDDyKKsLbm/vIALov+0x87jsLS7nPf8kWx44bkipXcPDuuUTVQiZr6C5dIf K92swmGoK4mFLTkf9no56qSZjcN2Xu2DpXMlcHWhXJZkJA7r5pzunf/1DsaV hv9gdcFhjzX4Wo05PsLnKgdp9kxwGIfzcdXB0U9wScEr5S8qOCyva+JhSOln mD31rkMsHw5jk9QQFSirhYMfKyeb43EYdiBvTeRohHs3CHGXeg5QqXsR3Emc zXBBX8rSaPoBekr5BJL24zscUCFp4H7rAI3Vy/dl/tgJX06pe0stc4Bat/Y+ T9/vgU/6mjClb++jXJIuNH+G+uBN85m7Mg376AWVzlnUfhj+Rgxob3yyj77O Fc/3ufEbzuQ+JmV2ZR99JuY2bxE4Drvvv4pe4NtHxai9UyVFp2CtUeWF4Jk9 1LfJ0gN3bw7mwr7rHP+wh4qyZ5/mrCTBC5mWxYX+eyhX7aK896sVuC5ojR7R 3EPLZqniTeg34ASrSKcepj20ocrhwQDZDuygzv3NfmAXlec5wb6YegAThd6J 7eXsotUB/d5t3uSACa/xOPbOLhpthsIVcXgw/rdv5qTiLnpx8POTnVM04FOT 08VK3C6q+3EtnVXvCIjKwxXotuygJ8WDXuCPHAU3Ip7R/InfQT3o58/3dzAD WYdTDvev7aCcNlIxD3HHAeFi9Vc6kR20iec6hV4hJxgQ1T+VSdpGaa4IT94b 4wEldOPhZyq30ZsZ7gqlQ/wgeO7+5NeQbfQJKeYSIUcIGH+n07yms43yDbqx hXSIgFMlGblLbNtoPyErYddNDOxGyxHCfm2hJDPHxOVkKdBx94stZ8EW2ptR HnZDTBbk6Js3ltzbQhMt3hRZj5wBnjKLQurQFuplUtDdR1IEF4+FhP4kbKHk LA/0251VAM8K27hjxya6n5HSXWoLwHJ3gTouZRP9lKfjqrSsCpo+wDnPrDfR KzbHrJv9z4Hk513kpyU20XmxVFz5dU3g5Gln9Xl9A13aNpAVyrgIkCvbtQbY Bip1hv6W2kVdwKIUzT8RuYHCjFG3zigYgCl2gSAfww30W72Ub0KkIaje+viL gXsDZaHVulEjbAJiBi4gORPraHR/1uAQ61VgVTWcofh2HeWusJ2cuWEBFNJc D1q911F+pUwjC6qbgNYff+Om+jqq128SFcBmBYavJdes0q+jw9c+c8lZ24C3 sARPZO8aOn6Kfq5nxQ6E8tb6c2euoe61eq6X2h2AKc54+J3DGirXWhvCvOcE xH9PEc/LraGJMyuyL9VcAK7OL21gdxVduf/Lw0TJDXRnM+06N62iPym/mJnZ uIPckJfmFE9X0f3B++VNrZ7Ax0apKvHqKuoTmIRjcfcGuhrfOMUFV9Hk5K4u Pms/ICB80webW0FHzYMsFTIegHXCar9R2Qr6+8XrG2GJQaB5Mlx5+sEK+h4v 4DMZFQLSvnIl+19YQTdXGx1iSh8Cl/w3m0eZV1COITPVKMYIIM3gHKL2axmV ttqyunX/EVhyE2e4V7yMinysD5NhfQLe/5xJyvFZRsUIMjFtczHAjZgv2KO5 jD7tTweiQbFALutWCSXrMupnmULCS8SDVbywsvzYElpxnHFLcfcZ8GjP1k3w W0LDDsbHmBmSgcIZy/6mC0so28qF3DLjVLCexGuzwbaE/qT7/CazJR2U7Q0v iIyTUPefItcbFTPBfas0b9N3JJRDrl8oOycLKH0xo4wMIKH3b5uqXxXNAZti HDEVl0ioxQY+/Nb3l2BlRuyC/LdFVCS3U6zQ+TVw//D6eoLdIroRHTePdykA 6/4n3Tdwi2j4gV8Q7lkRuK+ZHWmauvCv/6SJ0FAJ2GTizaiQX0BfnZeRlXn1 FngPpH7g7JhHf1dZmtOT3oHtHPYW39vz6IKl7HioXinYVTi2BmXMoU+urR15 oVcG/HExtBnKc+h7tkuyY0vlYL+Zjg/XM4vaTLIWURdVALJr+Et11LOorg7/ FrvjZxAsHHxTMGcGDc58YhzkigJK0r5HKDSDuoidvGjdjAFCyGbmebdptP5m LbcaSz0I1/Yoy6OfRhlCFyiO6zUAarblVuq8KXSpGm/0KKkR0ObPrrcMTqIj ctU5kqZfwWM3e3pxz0n08ZX4M1VtzYCe+Jf/CdMk6ni5fSDVqBUwto9o62lM oLREjuCs6DbwNMnc6u3oX5S9k3bAjr8DHLPqu3/U5y/6ZFYzUIKiE7CsdWZ3 l4yjzC3Vy1HDXYCdq3HzCvsf1Aw8ET030wuSx1UZKt6PoTQq9WVV+z8BZ0mN IKfOGGo4JG+YzdEPuFU/6Q4F/Uav5cRth1gOAvU2kwu1vaMoM8nTP+X4L2Bi J5jV5dePTtxKZNcT/Qseud6LiPvYh1JtB3ZytPwFn/3q715e+ImaumaxLNtP AKF4a7jrRi+6oKyxZp89CZbRnMFOtW40r4Sn98H2NBBuXamL9e1Ca1XVqn5E zICrveoFBh860fRmvt2bzLMAm/vj1XmyA71+10r9DdccmFq8hQl8bkNZvY4v 1SbNAT0CdUy25He0lO07XQHTPOCR0xLPPtqCRq2frHu/OA8eXpja5g/5irKp QVSKJgtg7kZEc9ZqE2oyfK3OtGwBGHqeSuK3a0Sd3olPdzEugsqor3ZZP+tR 63mLtzZWi4A/x16e/0IdupD5rb+zeBFEVFBTZlViaH/2x72xpUUwkmHwStW0 BuWXUZmUPU4Cxd9i1VRVqtAiXVCYIEMCvludowjPJ3Q/f/s4jRYJXBA+5o+Q fUS/Ng+aeZuRwHHDy5zI+Ds0zrE4od+eBFoPhO4+iC5Gt5pXV3nukYD91Vf5 AUZ56NOH0aWq3iRAWXpy3J8zCzVUc5OEfEkA4dCGtrHn6GbT47+M//ZJSck2 S8nBaK5ORkCVGwn4kT9rPK/kAKzfyNef+5dfMsX6C4tCDOhmeZZSepUERjje LdAxpoGC9uaDY5okYCjXVx2m+hLo/v674iJNAmX9V4LDfQsAh5OT0wgrCRzB ZgUbzN4C9xfGfiMLiwDEF4Y13C8FMT08NO4Fi8DVznG64VkZcBu9Qff2+iLI VhbTbnxXAU7evSbcQrcIeuhnSxrbqsGiukPH/rsFkHZV/qx1aC14a1hGj83M A3n1545/jtWDyp6DvQH/edAmvpZmndUAnjkJxYvTzQMc7uOBdc0XIPvsI7GM dQ4kT7PIjGs3g/wGJ8uE+Fkg2+1uZTPYAm7blj7epZ8FNrlnGm02v4NY0yNf sJVpYCNs1ijL0QWcG/6ePZU6Cb58638kZ9gHAMc9ofbMMWDvNfDFXKwfaH7W U/6w8htQCw1ShlIMAB2DhrUazd/gou9QQE/pIDjGTc15aXoUfDs96ubBMgpS Avm4onsGgNOP0Tfpc6PgTcyEM9OLfhCGuKxbWf0CvHS8LabOfUBkzkXu8dnf wDWl6upboV5gr+5WPDgzBoT+bP+xIHUCpeTl1kWTPyDqMmsc2OwA1ItuMxT1 f8Ci6YfvjdQdID/lnoh46jg45dxBmg3/BnxIKxoI1V/gvlURpDfcAi6ed7cx uvcXjJKNXec61wxmltyz/C5NABspbcRBowlUaq6hT8snwNb58+uRow3gUbrH yEvBScAtamF6+VE9ELvgyfV9ZxI4Gj/wzWSqBbsv1pV/35oCN7qqOyZ6UfBt 1dN0rXsKaAV9jmcp/AycMu8/5y6aBmydb3VeFlYA4vpGqQz7DGAQTlBR6S0H 9NpeXRqhM+CpH43rF64yMJS1SbpKmgEyln6oge8HULzhxehsMQuiiEcqR1be gwCdLYngr7Pgt3y3kEvoO6Cb462dcGYOxI+uaxPE34IFXZ/IGvp5kCWhoxbq VQhqXm7ndXnNA7kfp2p+auSD6G2fponxeXBX7zvdBeU8cF1/Z3xbfwEo+P39 M6v/Ckjl+lIwfl4ADTRX1IYf5QDc7g6/4OlF8N1cqPnc3yzQYeCHKD5fBHvW P9eNr2eCTwE1NW8USMDhlqspzaVUkJm//73CiQSEurKVU34lgYgeeLg+mwQa vMvfiucmAJeDgLnvfSTQkeUYUZ70DJiKojs/GZbASr+PkcHHOIAYH9COnVsC Pce/DklvPQWnAgHnnM8SCO28kW1WHw2YCh+cXn+7BIqf+D/363sMtn6gSrjJ JZAfswptiEeCMRxOi5Z7GTjvFTOfrQ4DLWLIFRbDZSAh/cZ2JSgUvDcJtOOJ XAadAmaCjD7BICUI8ziFLv+7d2nufMwMBMFFuIeya8ugUItmKnbcH9z+iTwj iq0AkeBcq5ZeH3CZPCjnvOUK+CaArH066gXOStS+109cASavnm44xngA+Z7e hJrmFdCUx69nfvcekPad8xHfXQEXCy6q2AS6AjEB8hspkqvgbBE1lZT/XSDc fFyd2nIVyCTlZcdpOwF+FwkRz/hV8ONVDMMJewdw4rg63XjjKhC/GCXv3GwH 2GtMFw02V4HhGYqZjNs2gNnWuRsVXQN3FqY+y5+3Agz0oeUS19aADS50g+vK v/dhaXJqaswakBpGDVRlrgG82ZsHNHVrQL14aXiQ3gzgyBqt76+ugX6bigpq 5StgJ29A86/wOnhdGCTuWGIE1nVJYoZX14GE33sl2O4yWFrDM9U+Xgeq9Yov Lprpg7k0rlXJmvV/5x6Nq6TRAZPqMn1ppHVgWvvY3K/2AhibOV9NK7gBUo8I iel1nQcjsRaZXsYbwOtE/XtfuXOgX8ktdCJ8A5jFhbMzDquCntFwe6PKDaC1 WaeTFANAR1i6dt3cBniI08k/O6ACWiVKpaV5N4GYGK0qY7QSaOr5yvLCYBO0 MH52J2bKg1rfkU260E1A4VowNU+QA9UCq0PeZZvAVTRiGq6QBuXNNLWTU5vg l5xTuPZ1CfDehfeVMdcW4AzY322qOw2Kj8tH1utsAflCxZ8DccLgdc3FOzKB W6BrpWitvk4QvLS9aZDxfgsYLR4LWdDkBxn0nvJH/m6BE6phCWUyPCCl9DGH 7/FtoL3+9i69GSdIMMvam7qwDaLY3+emb7GBWLLy3yZ+2+CT9Y5dIzkLiHr9 rbGhZBukJ/ZfMXQ4CsL1xvJlf28Dx+SokrZzDCB4feNJJvMOOI0KZGVq0QL/ 9CNuDOd3gJnRicXBbwTgdU7QxM9rB9QFhtuJ1lGAe7NKZ2cKdsDBK1a6BU4y 4Byny2M6vAN2L+ztCSfswbeVbcibGHdByk3UqDNmC7b95T0hp7YLgmlmny8w rsM3w2Nastx3gQGtuEITfgW2kHxVwpi3C9yXH4QnWJHgKz8q4/z7d4FKZt2F Ktk5+LJfh+cs3R5gOpqO6UFTsI7ghNlVeA+oVwLnpo5xWKtlB/7isgdgz8H3 zoO/YXXXo4LyOXtAauWPXXjqCAyzi1Dl/NgDSkJGEaZnBmBllDjLRL0Pzv8g 6YY49MJn7C63B5zdBzOuw6tKwt2w9BH70jmnffCzx9Ze17QDFvvgn2iWsQ/G greLe0dbYWHzeN+vnfvAV/d6aGjNF1iAPP+GAuUBSPw0ZJt1pgHmzq9Rf6lw AO6KWzroSNTC7Po9IsccDgBLMLdxt/hnmHljmi4w9QA0CZB+P8A+wQwvDhbn vx8A0ZJsP4ftD3BoNu2MBA6HpAVVqOPr38HknqxDNhw4xO7dQ8kNuhLY7GZB 16czOCR071LxUep8+P1F0Eyvj0OaoOgCwZ6XMK18D3rTEYdQ9hR+S9LLgq14 Hco+hOGQ7pjA9ief0+BKmv0i6mwcskjMeeDSkwgfW43LsfiMQzxbyr25q+Ph 2yMiKW/7cIhZC8f7rctP4bqv1U8pV3HIYGFKm8bWI5iz1CDclJEMKcx5Iaqv Fga7pU/4F4mSIWFd3cXVpsFwS7ivO+48GaJ8rSlIWT4AFnBjcjSyJEOqYlVn hnq9YB+LV5av/ciQ9IFY9Sd27nDX+bOmu4lkSJOqv4B8tQssKtOuq19KhuSf j1WLd3KEQ7hsNF62kSGyfL+FH7rawUP4LZXNaTKENumrloepFXyG9ERWG0+O /OnLvN+0eg2OGhA4nclHjkwcaLq8uWMKjzeU866qkCOfInnjCv4awsQ32mxa V8gRm1kCOiGlDz9L/k2f5kaOyKVr1nroXoTnQjwpSE/IEVWtudK6qxrwOWe6 bfV8cqRQmFTepqsKp5lmkhIbyBH7g8HnfFREeFVNfnJ2lBz50J8Z+rFAAdaW aBkGO+TIFeMfV1X0ZOGXx2/0xLNRIMyrLhvWjyXgXbLVlkkZCmQ+1zxkvU0E NpqLqFXRoUDEjTc8v58WhIt6uT/F2FMgvqE4dVI7D0xZ+77kTwgFos1gqTz5 mR22KNR8pZhBgXizj8rj+pjhD8+HUh9XUiBnNo637bUwwvSBrnGjPygQs501 WnUXGtjmNiFSbokCyeZZSvQ1ooSrjVIfhNNTIoE54lS2Z3EwC5D2HBShRDzu 7Aj4/9qCnE43OkmpUyL9mKuAWeoq1MhsZh1ynRJpiiM17luTIJ79has/vSmR ZsnAYRq6GchzKkRf7DklYuLYUm5RMA61dbFrPnhLifDLmeRv3fwFCX8uhrpb /+W78dEueqEfCshTOyMySYlwHssaoQ7qgXpjf4r6kuORcwzkV5xlOiBJPyf+ dm48wlm3eXTlcTMUZkfGLqiMR6K6fKA3fA3QiH4Cw30jPPKxziyqphiFFFTE 8K138Qh/YwrDlYlPUPRJbIfnMR65+Nq842pUKTTBaLzslotHIrZWqrVel0Dw 9vRUUy0e2b/70WqC/DWUMB4wyjmMR56cFj6V8zUbWmhj7nXexCN9nKuER2bp 0PmK19/qmAlIDQev6vOpBOhFDlTPJkVA+D6zl3gPxkLrT7oqbl8kIDD/jYyw tseQrtettzW2BOSGEPP7xoyHUK7Vbu6xIAJiH4C70N0aCO1rx6bbpRGQsWD0 4SdGH8hEUfhZZTkBeb0wtjws4w6V8Fc9YugmINeoeP2K1e5CVPT6QVYLBMSr VikrWNQeMhUxwxRoqBDCSJprAGoFFajZHNAKUSH5xs/abzJcg3avOcOjMBXC POhdH+hvAul6e/mXXqVCAqZF7K9ZG0CZz4Krw92pkKJAU165wYvQ8puoHfMY KmTG74mDWfk56FxrwlnpAirE9gXPqNUcgBImMr0pG6kQrpDs5zGxStAUWeGn vlEqJHxNwWlnTBY6y/1xo2ibCvl49EUEJ5kEFKWEKgSxUiNs5L0zQ7AwNGLY 7GEsTY08uSX+sJOWH5K+2/3h9CVqBLZQrqJl5YSCHw2v7NlSI4MfBxXjFpmh nleTsl2B1EjkAcFkxIUBEq5dcs1NpUZqrwam/VCggryGdt76lFEjS+SDFp0l ZFDLBp6k20mNMFXddgyZ2iaeYGaSEpyjRm59cvATv7dKdJbkdN4g0CDJP6SX FekXidgFoeJWfhokm6jvVPloknjMVnIug0iDhFkyTET0/CbaBCqJuV+hQSyO a3Fe2B4glqWq3dZyo0HuZQ3c/mzVQ6Qu184/8YQGKZIs5DrW1EY06zKZIuXR IGK/1l54yn0hFs3fFGmso0HCzcLWv3jVEvepHe2Sh2mQFv2u+QGtSqK+kMer O5s0CE1G7MhrtJSYDR6MqzLTIjedI5LMXhYTV80iBdkkaZE8nmdOt5RyiRqe 8VYzWrRIRJqAjFZOJjEhNj2rxpoWedks6s/9J4k4VZT3Ky6AFnljBgpjE+OI UX+qrqt8oEVaPapMjEtCiT3642ZRvHRIE7dneCTkQLQRkzeUXKdDRmpfUoi2 yhBDfvWqu+UcQcwmj5Zcs61WGam4dMer+ggSfaJ3QHLhg8rZeCwh4McRhMG2 LY+5u0SFpFEw/YiKAcHZnidbz89UuV7oH5PjyID86H/c1whCVM56Cg32yDEi 2R28WXF+WipbeOUKLismJP/kdFr2tY6zb1PD9AOWjyKyEzzlv862Kt/NtmEa N2FFQB/zF60cDcXrt1O4w4PYkSDB4aPthuFnIg08leXSuBCHk7c+NVt5y1Cy PJ94sM2DLL3kkQgYxCR+tj4khTLyI/VVK8EpR8ZPG/taKaTUCyCkRtTsftqF k050swJtZkLImQsEXL19Eh9vYVMCYeYkEsnSZmmskMXl+0ndkDFVBDmXwu8a zdnN6pLrVKYgdRoZvBRwT2mXkomeXNFK8q8octb1mrLMdz0ajTtGz0XjxZHM Il29DsqL5OwV3Hc1hCSR//0fEOcWESv9U+o/Xw7Tk0gvk/7Pouahxi/9Zf5z 7wRNdryx7H9us/qreoxX7j//pszbfC5w6NVc+zccwofmmJ09wS9xaJt7yxtS KofeDjko1rlyaOFXHJyRMYdW1hzsoI8/tPZ0WvjThEO7SvCtJaYfuvqjcEdu 4aEvN8mFNXw5tK39GlGr9dBetOUrrW2HTtc9a9n949BTvQhx7M//qdeLfMV2 8tBHuBryp2cOLXtD8/jS0qE1yGja3NcObZrTErq5eejbGlEqfruH/p//KP/5 /wFCahpD "]]}, Annotation[#, "Charting`Private`Tag$20717#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nk0VV/YOPDrutdMSiSziMwZynTP2QeJMoRkjMwpkoTMJQqpzMqUMSFF lDnnyFAhSsaMIbNruoaMv35rve/Xu/949vqsZ+1nPX/stfb+4xG0u2nkiMfh cNL/wv/fAyf1lvf25DHc/6wJf47V/u1967MOr5f/3beAsvvOzZV9f3oUSzcy sW866R4+7Nu+4z1tdO6l7Ps11e0cnOK+iY5acket5P4zW2+ja1aM7H82qk+2 F2s++Z/9FyDX6DGZ/1xxJ/l60QXp/X5jLwnsJkliCYt01qFTd/BaaR/1tefE MRf83nW/Kh/63M++3bctxbB+MYFPF9wzDliHxrO354liKahnoTLdb/YgG+q3 jGwi2CmMnPRg0IgbJ8WPajwQxpAcX/LnXR2BX5FJYa+7jmFPxzpHc79rHedh cM6nqAtiG1S0fnIZj8VcTokT+3n4Mb8kxflwkzope8WhvPp6bkyacpWR+6mn rLiPyp5bDidmEKamwKQbppA5eLHBV40dy7li4esldFtxMpidpMV5CHMpGkhn XP+iXJVwQnPKhBl7n5ukXf16XJXOctKeisSMVSlAPg/851RNBHLvcwkyYyMb xI9o0orqcoEQpjvLhNkZXeDnuYcniWF8qu/uMmH1T82iHqoJkJ7PHJb1y2PE NuxSBPoxU9JE0c8LcU8YMZmmvXragzYkBa9Yt0IPRoy3S20144MjqX3vQOEQ iRHTVoj8xoXdJtGwM4pq/GDAUlaoG234o0nGv75qXi5jwAI4Q7fPpSaQstLD HbxSGDCl0FdDY+RUEixOk/XKkQHTr35Vk9STT3q80IBh5xmwoNZavB30jvTr fchwnwwD9mLkrmXF3zLSCT/13eXDDBi8FSAXnVBL8gJUvEyb9Njh1ydfwpca SJ8ImOrxYXqMTYVTUoiqhcTaHGQBN9Bjt/vEN1ynf5CsoyBf03x6rI2xxJ9S 3UMqNN5+5v6UHluTkHlXc22YtHm0uiziNj126tFNupz6cZL2sG9Xlhk9ljPP c++MyywpMUeJUg39O68dncnHvkwav7Z+qOsYPXYw5WtqYcc6SU6mTJZMS49l Kx34HGK+R7pH8TSgnafDJgm8rkHJBKitUv6mQAcd1rx8AdlhYoS47y4/US6n wxJ8JUqwmoOQ85l3hUapdNga97TssuoRqIzevcUlmA4LI/u9OOvEBxHapWdC negwV+ctgt6gEGQUP0/3QocOQ3Rx7/XIYlCGeaFo+Uk6jEq6brBt8iRE5nM5 +52dDmOgN9a/SzgNkcbFHKc3aTGD2IpH/jkk6FH+VAh+hBYLLkPxUynqUK/b qyzuRlpMwmDjzxFRbUhEwalOoYAWI/9ip+m+cAHy/Cs8ohdFixk1Y16LmsZQ Xe3YrpPnv3pf0/y7lSwgltAs3nvmtNgtZcnKC4s20OVztqQkmBYr+j1d093v CBWwCFiWCNFiu6RRnSlJV2jj55BvCx0txpmgnXFeyAM6m5T2fHyeBtMPykw3 vXgHire+XL7TQYMp2V+Uc14LhEaFuLs5Kmgw88ctT1uUQqCT030UmTQarPqK id31rHDIc1FK7EgoDZY9RRF9RIiCKtaDrXav02DnOX5IM92Pg7Z3u2L+GNJg etSGMuEhzyE1GvGmViUaTE4tjH+18QX0kDlos5SfBqNhfaXfqZMNNR/ukE6h ocF+2xYqfZXMg1h4ROzvzxMx86zfpvVqbyEjIb9n1zqJ2KjBj/NXZkqgRPG2 FoNqIlZa9bQlKKMc6pc9hlPKImINNwL6ff0/QgLK3gr8EURsXnXmtbrNJ8gB aXamcSdix89bpF4ebYLytPjS5k2ImBZjR4OuTys0p+/xoxMiYumXdEM43/2A Tpo0EWuEiZh3W5zyhfUuyMuKSyWbkYgtq9wU/wP3Q1UObm6PlgnYiWUqX9Pf I9Cuy6esW30E7Kr545+af8Yh9dscPWYYAbOr6bzM2TMNPfS7zoi8ImBMREfy mbkFqDm4Fog+JWA/NyqTlktWoAMRhzxZvAgYMC5ujj+3ARlHO+WtWhIwvVHD pOMzO9DzZ1UDA+oEbOlSjsODq3h44AXLwQYxAvbiralpRDoNLJBrp/malYB9 +NZZvPeZEXZ4U+Ybu06N3XoFxzowHITz3zO89R2ixpRlFJl0Rw/D5GrrUZtG aszGYeHF05ijsFx9CYd2ITV2yK2/vl2TH/ZuptGRiaPGdOwPdxC4heCqHxZ3 OfyosavcRvOyRqLwbu/b0h0bamxUfueBrLskrD6CnxrXosZ4d0WNbYxk4YeT Jjyt0tRY4Ah3RPThU3ALucCglJ0ai4KpyasZyjDr2m5o8jYeu6u4/DVVAMDG O0aVwWN4jLPoQ4HOqDr8nPBq3rkZjwVxvbdBx87CA4xbggbv8NgFdsuo1HId WIDtgoniczyW9hS3Wl9vADtyZT/iu4vHmrSsGCPUjeECwfVaohMe23Mgu8Z7 mcHkEzorc7p4LHTiC9f4XStY7mS6aKc8HovtFQgMbLSFvRVXLKu58FhKDc8c wcERroK1orOo8NgJVk39lxXX4D3NlIaIKSqMuW+vs/mPG3xGb2HDvZ0KY30c 8pLlkQccbqwhZVZGhS3UtL39quwNt1o+swVpVBhCV+Fi/sIPZrWfTRAJpcIq cDsm+L67sPF10MzsQoXdy+qVvkUXAifditulGFJhnkmUB6uVD+Ehn0m5ASUq TK3eJZqKJxI+dk/1aj0/FeZlu23MLhoNO4VFpRTQUGFmWgfL36vEwQVPx9pj 5nGYW3Tx+YChRJicoEjw7cRhWppR3wskUmD5tEglm2ocxjU9TPzFnwH75Ay7 amXhsAytLnEvvmy45rV8pnQEDmOpsErMeJkL40rDutjdcZhVvsTBxNYC+ExV P/2Oyb+8lt+W/tsi+G3BS+XPqjhs119q5spGCcyZcvNajAAOY+MYCTzwrgy+ H6mcZEnEYSK2H4e8earh7nWaWJ3OPfTuCcFMkhQGF/QmLw2n7aGjjJHvJbXr 4aBKaUPPq3toY3CXwldKE2yU/KmYTnYP/RKN7l7VbYGP+5uwpm3uomobKanq p7/DG5YzN2UbdlHauWtlJao/4VZSUHvjk13U21tQ+GpzN5zBe0jGwnQX9aAE 33b9+wv23H35lCywi5pK6Vi7jw3D2sPK5PszO2jDB+vcnJ+jMDf2Te/I+x1U Rl1yQkthAiZn2L55HbiDPqxnoBc5MQN/Cl5lQrR2UBdd0vRAExlOtItw7WTd QSPwLKSv7MvwNQ3eVudf2yhKs+xWobIKk4TfSexkb6Pl50vInOMbMCtRMzLm xjYqVRQUaSWyA4//6Z05rriNMtv3KN9mogIVTa7nq3Db6I40cJedpQaPX+EK 9Ju30CbLIlw6TAuuhMfTj8VtoenRL3iYOBmB3LUT1+5YbaHk8s/TIpEHAM35 mi+Molvo2ogNl5DpIfBL3OBExuImWtwdwWqtxw7eMo6HKVRtoo8csz49L+ME 9+fuTH4J2UQZznBfImbzgEvfGLWs9DbRX7BVpFesADjxNj13iWMTTdsIKL11 QghsP5WneTjyF8X/diGx8IuA7zc/O3IV/EVj6SSlDUPEQLaBZePb23/Rat9i qx57KeAtuyCsAf1FV6MOke9OnQTnD4WE9tD8RWeljZ89cZMHfCsc4y7fN9DL 3dvqF/RPg+WfBRq45A0U+xGQKBWnDJrew9nx9hto6t8G2cFzEEhK6MCLSW2g BiHG3gBDgKu3k93HtXW02fAMbCukARDTzTpDbB0F781aiT2a4LDSU8GJiHW0 dL6ht3VcG0xxHgv2u7iOurF1Hjc31QU1fz+MsPCuo4Q6nhB5XgMQ9esckj2x hjpo3hLw0DMCdtWD6YrFa+jzXb2C0HpjcDr11l6L7xranvOYWSXMFDAEEq/Y aKyh4YxjY4KZFmDQKqmWwrSGjvFm8qZwWYNiWIovonsVVVrlzVvatQGh/HWB vBmrqNCFDQM2CXtghrs0+O7aKkrpkxf+8swRSP6eIp2VX0WdeTub3ug4A9yn gNRf2xR0sob8clnPBfzMYt12a6KgXz6WT1jnuoHckBxL6mgKyttLrn0rfQv4 OShVPzOnoCW2XcV4+DbQ12zlkhSioOF2ug4HH3qBYyI2ftjcCto+zy4nwOQD 1mgofcZlK6jZu1313i4/8HUyTHn67goak+HJrDMdCFK/cCcFnltBT/HGm/vn 3gPu+UUbB9lWUGp6s6N/Qu6DkyxuIeojy2gnw+cFVddQsOQhyXL7zT+LMu9s 3HsISnpmnmf7LaP4pvzggMZw4EHKF+rUWkafDGh/M4EigXzm1bcE9mW0iXr9 xLm5J4BCFFE+NbqEbskVnxdyiQZe7Vn6iQFLKJ/Kpgh7WRw4rWDb13RuCdW7 GBbqG50A1p7zO6xzLKHfBf89VzHPQNnOIFl0fBHlzhxMXapKAnfsUn3N3i2i hZ8KRZhZU4HSZwtCRNAi+jckvQ6JewE2JI5GVeosorfaHFlzszPAyozEuVOt CygU58FYmJsNPN/nWSc6LaCeE7/bMo1egrXA457ruAXUVnt+aY7nFbijlRVh lkJG5XKUKvlo88EGK3965SkyemAwrbz90Gvg+yvlPdf3eTTnZn7BC7U3YDOb s9n/+jzKG/7utExCEdg+fWgVSp9DZ+hkepLMSkAgLoohXXkO7XKZ4AysLQW7 XxkFcJ2zKOdvT5pDKh8AlRVR5xPdLFpY5+LxzKsC3Be5byOUPYPy2KZbCSlW AcLirlcoNIOeXUDjEw7WAJqQjYyzHtPoDXMJzX/feBCm61X2imkadTnRXtjH VwfoOJZb6F5Noe0aYxt+ap8AQ/7sWnP/JNrw8bdF8LsGEOnhzCTpPYmSX3ph N/YaARPpj+AT1km0+TisqHH5MzjQPqR7QXMC5dnse2at0Qyin1vaFQ//QWNF Yo5MfmsBh+x67xz0+4N6zBvZDlz9Bg6v/sj6+XYcPWUulsrk+B1wcjdumHKO ocArZKH4WCdIGldjqSwZRQl5MdUxwl2A622tEJfeKBq2d8XhgVQ34FWr0B8I /o1izDc+Nl7sBRptJufquofR54Jxz9HpAWDiJJTZEdCHflxw5PZzHwOPbt0O j/3Qi5p3qnmIHBwHHwPqbxqRe9DJCkfyl3fjQDjOHu640o2KwzPR2Ut/wDKa 3f9D/SeqwiREELWbAiItK59i/DtQKV92Mda/U8C8W6PA8P0P1Ogk+YbEk2mA zY35/Dj+Hb2Ze6Qh7PUM4JPXlsw62Iy2jFfCs2Vz4MG5qU3BkC8oM/XBbX+p eTB3JfxrJqUJPQLIt/1fzIOL3ieeCzo1ooEqCjnJ9GRQ9fiLU2ZPPbrRVDH4 xI0MBLOdTwme+4R+LpbmZf5GBuGVdITMKgyt90q16RReAEPphi/VzGpRZpmO jWyvBfCmNUZdTbUaPaRp0o2gC8D/749hhK8CtQzKdq7CLYJzIocCEaoP6BDc 70XLtwiOXDTiQsbfod6faT/fUlwELXvCN+8+fYNSbjyxntBdBM7mL/ODjF+h VpHZwpesFwGh9Ph4IFcmStPivlXssgiQo7rQJpaAQo8D2hc8F8Hi8ySHpaT7 6OVAsxwGv0UQgI9vPKt0DVBJuKbt/LN0sv3nw6ejwDnCT/yXO4tg6Og7MuOB VECEz6i7ui+Ci/K9NQ/VcsDAFn5uwWERlPWZ3g/zLwAKIgOvLS8tAmZsVqjB ohic1obharVFAOJeP2y4UwoO5wfZ8oovgltOLtMN8WXg+j3H+jiWRZClLKHb +K4SBMlodDsOLYBOptm3jW01IDQ/Dgg/XwA0IwUHm2ZR8HhV9lni+QWQan5K xT60DhQ3iFesrpLBKY0El7FD9eBDWxl8N5kM2iRXU+0zG4D1m0jIS4kMcLgP e/a1n0F7s6V1ve08SJo+LDuu+xVAt504SufngNxPTzuH/mbgBsYwyHMOOOQq NDpsfAN0St+ZPD1mgYOIRaPc0Q5Qsj5iSANNg8+tfY/k/93rpNDoTn+LceDs 8+uzpUQfuPmosUS0cAzQCfcTQql/gVbukEfUu6PgvP9AUGdpP1DYtqB0Z/8G rWLDHl6Hh0EsS9SvNOoh4No1XJQ2NwwEw+NyZz8OgIeI+5qd3Qjo2Z393h/Y D0Tn3OUjVX6D0vPWJx+w9gFnDY83/TOjQMLO5m17ZCdQSlpuWTAZA3sfR0MM gn4CugWPGer6MfDt11T8Md8OkJ98W1QyZRzovHtmdCH8O/BbXNFEaP8ANXTN s0q5HZw/6+lgfPsPKJl8Kqvl+Q3MLHlmBuhMgOBH8fKNvM2gSmsVjS6fAMeC OAySHn8Bj9K8hnKEJgHi1DT3kukzkDjnzf1taxKMMG4UpoAGsP1iTfn31SnA cRlHi1/+BFop3marP6eAU9Qb3bT3dcA1404Cb+E0yDyxuMDYUQtIa+ulspwz oIevUYz9fQ1g0vXp0AydAUXilF7n0iowkLmxaL44AxxZOdIF2yvAm3WfA26X Z0Gk07M+Q5pyEKT3V+r+l1kw9yVZi2j2Aehn++omKsyBmxWKKer1pYCs7xdR yzQP3o8QtB1Hi0FtzuarDp954J6pY/DsRBF4uunXNDE+D+wEj27fKy8E1gZb 45sGZCAsHHAu8mYBkMn1pz7wkQwM6z0HavXzAG57S1BIbAH8Xb4gIHExF3w3 DEAUExZAlfD9pUm/HFARVFtbdHoRcE1bJf+RzAQZ+bvfKl0XQVWGQeHRq+kg vBMerM9aBHnn4wmvClOB+17Q3LfeRWDzO5nCI5oMzMTRrR6WJfDRQ+yn+s9n ALm0xzB6ZgmweF3N3n2TAE7cA1xzfksguPPS0KX3ceBvF6qEm1wC8MX51sdK 0WAUh9Nm4F0GVx+oMsjaPQHNEojp4YvLwPXZO3eZhEegxOSeE1/EMuBbbzpm RwwHycGY1wl0GSjnn+699PYBuF+IeyC3ugxypIQTuyJDwPUeJJ4ksQKKaGGr 6aRgYIQPzj5ruwKoqpc18/PvAhWpuhKDZytgxt1GVcwjAJzq7E6s/boCetvN 9V3LfMFJ/zk/ye0VEFOpUDSteAdIHMNfSZamAKEDPVyzS55A5OsRDTpbCjjK 5y9JM+IBBN2lRL3jKEAnU0nr6K474DmiwTjeSAGHrw1MRke7Ac5aswXDDQqQ ep7qQfFyAWyObj9R8VWQMhU/kffSGbAwhZZLWa0C8rnjVh5HnQBDaVJKStQq EIeqOcNa7AHRougu/adVoPLEySGizBbgqBrt71BWQaDPvBD16ytg69UvrT8i a4DyM1ypWOsyWNNflLhovgYmZqfH01XMwdIqkbUucg0wIYEjVAEmYC6VmyJd uwbs/ZaYXhKMwaSGbG/q4hoIG5KUmv9mCEZnztYwCK2D2i5xptjsC2Ao5nKG z6V18OUoQ68huy7oU/IInQhbB/ybHoGzE9qgczjM2bhqHUSjcD7rgbPg+8M0 3U9z6+BCJf61+gMN0CJVevIk/wYQo2qmrVdTA02dXw6/MNwArE8G2+j9YVDn P7TBGLoBthYd38HjKqDmGGXAt2wD7Fj6td0rVQTlX+nrJqc2wJE78VtqQwqg xJ3/5SXuv+BKphPPioUceHPkVES93l8wdaRkkSxwEuTVnr8he+8viGLQzWo1 kAQ5jjaG6SV/wRuDimcpnSdAOpP3KeY/f8GxL/yCSdhxkFwaedT/yCYoW6tX MqcXAokWmTtT5zZB8/kSsec5AiCGqvy3ScAmOGynSQsO8YLHea2NDW83wdWv JWYWVkdB2IXRfLnfm2DlvvFgBTcHuL+2/iSDbQsYJze2CyJsIDCN2YPl7BaY ab18vamWFficETIJ8NkC9GO/mCEuZnB7VkllpmALSHpKJ0Rr0AO3WH0+s8Et wMM+r9c1RQTXlR3wTQe2QbdH/YbCFh44jvhOyKtvAw6tDJPQGzhgExbVnOm5 DWgijiZKOW/Dl6Vfvj3wahtIVaVrS0ZswKZdVbGBfduA2Kt/rUZiFTYK+O49 y7gDQh829JWDZVhPaMLCHN4BDn3aZbU3FmDt5i34s/sOCOj1EjpPPwtr3Doo dCp7B/x6GNO2oToJw5yitNldO+BPRX+O1fIYrIySZlnpdsFGTZXwde7fsIKT UXuQyi6wo7rWZ2gwCJ9kdi6dc90F+k8+qO1x9MES7wOfWaTvAi+6s9Pk212w iGWc/5cfu8BU+sf1Ixc74GP4/CunCXvg1GO5nTXNdpg3v1Yj5/QeaI+V1CnP a4Y5DTpFD13bA7babQq/S5tgtvVpxnspe4DCS9C0NKiHWV7sLcx/2wO8HTaD bNcxODSLYUYKh0MG0inyasPVMN6bfcDhKA5xWC/Z+5FdDlvYFHRUKOCQCrWQ K5+wUrjkPPjKZIBDNAbvEnUDimGGU52ojQsOKdjyHKMPeA3b8V8re/8Qh9yD uPfAaC5cRb9bSJeFQ8IDzHU7abPhQ5TY7MsfcQj2MWTeIS0dvj4kmlzci0Ns PFa581SS4U9faqIJFByiZabXK12TAHOVGoaZHaBCkJ9e/ZY7MbBH2kRgoTgV 8iWX1OFb+wRuDvP3xJ2lQjy7dOWdosLhYx6sLsa2VMgmc6vXbbVQ2O/yS9u8 ACqk8Xbv5aiie3DHWRWz7WdUyEVW22o+L39YXLZd36CUCvltYOwcE+0Nh3A7 aOa0USH5EUNsCQ884AHiX9WNaSokGdOq7rJ2gxUWn8jpEvHIOfZ5XPGQM/z4 1zGxDAE8cjPPPM/B1AEebyjnp6jikcmOqWShFzYwqUiXQ9sUj2TM7/o85LOE 45N+M6V64BELZ3FTWS4TeC7Em3rxCR4x2ppi3t4xhM+4MW5q5OORRu0f3ntq enCqWcbiswY84vkiNKnokxZMUT81OTuMRwwW5psWNDVgXanmQbCFR7qrrEGT CoBzjlzpjOOgRm6IqlA90lSGt6kozZOy1Mg9a78bbDcUYOO58DpVPWpkzD7p 5a3Ak3BhN29FlDM14o5RiCPPxGFCXcnbsRBq5OOvI5Wb14/Dl19rvVRMp0b6 /L1ii1QE4fcJAymRVdSIBfMjyc9F3DDTvVuxw13UyOzV3/x8Shyww3WaCPkl aiSP0pfv3n4QrjFOuRvGRED6VYahplAm+DA46d0vSkByHlrHK7fRwK5ija4y GgRE1+yEjYAiHm5ks7APsSYgs/wMJHXWHYhvl2ze40tAJMxVe9JOrEPeUyEG EgkExFvvWnOg2zLU1sGpdbeYgCx/4vHq0puHRD6+gX62EBD7vOA0tzOTUNAr dQXRSQJCexclfr49CnXH9Ij744nI67MfPB6pDkLSAa6C7bxEJD1YjvmrQA/0 0ImKU0iZiGhxfiB/P9sBDRkkstwxJiJF9tY+a32t0GlVCWLLTSKSWDX4sb22 CXp6HNviiyQilNQ/1+in66CJA5eWPXKJSIhPf6qsZA0Eb05PNdURkTcfblik CJZBieNBw1yDROTDy65DDlbvIHIbW7fbBhGBs2rZ3ii+hs5W5rV+YqNBOg9c ozmo/xJ6kQ3Vc8jQIPljMh/l8jKgtScdldfP0yCN81/KZ6iTIX2fq8W1jjRI Q2RYbOb5eCjXbjv3UDANQjWpe7EvLQra1Y1Jc0qlQRiR4SPcyeGQiaJIfFU5 DTIaPCO5xhcCvRWsfsTykwYRp8X2vhcFQrRMBsF2ZBpEtyhuO49wBzITtcBO 09MilYaynKtTt6ACdYc9BmFaRHpe6GZ9twu0beUGD8O0yPNK58chqY6Qvq9P YKk5LVIuFwVv19lAGfH3a8I8aZETOYvvr6+aQ8tFj7cso2iRIF1diji7MXSm JVHlZAEtkvoif/Yj/QUocSLDl9BIi0TrjVlzrWpBU1SvK3qHaRFrB0vxaB91 SIX3w3rhJi3C1uFOT7hNgh4roaeD2ekQxYw6Fr3RU9DQxa9el07SIawXYmUe fD8Jnbz5872YDh2iuhSjJ90uBt1/NLiy40iHuL4TW6D+KgR1vpyU67hHh1BF fZ2q1OWDROqWbuWm0CHPWlcv50kegXwGtor9yugQ/WURNvP3B6HmdeKi/o9/ 9Yyei8gTGSEeNlYZoTk65Hlsu8SN5wTITZrLbZ2GHtHOLmLTv7xHws4Jv2kR pEdSgl99NOtbJx1ylJ5LJ9EjJu/Cq17zLpMc7ilJeJrSI5gCW3hM4CypLEX9 urYHPeLrI30zrmucRFeum8/zhB6xeuPqciRymGTRYTK1+IoeSa/rmvnT10Mq nLcRbfxEj/xg0ZbIou4g7dK5OCUN0iMV4qlVQtItJANhr5c3NugRxbgT4br+ DaQscHdcjY0B+UBfKyLYVUuiWEQIcUgzIJQqzRUN6XKSpnec3Yw2AxLORc/g 7vyOlBiTlllrz4CEOaSpp/MWkKYKX43EBjEgJ0q8JxRiskmPx6qtVd8zIKFH A/50jieQOg3GLR7zMyKeoSx3dOj9SSKu5CQbFUbkTIGXuQunJ8knbKNX4RIj 8pjkNfm2+waJp5bJdPARI5LFst22bm9DcpA4dVF6jRG5et/LCYRokMrOglj8 QSbEzTEtlFhLItHZnfvRLcGEJBjapeKOnyIVPre6cNeWCfFsV/GYbhMhUYgP db63MiEWjjQ8Z6QYSCEj3Roe2cwIybv1RZLhd9WhSp0bPjXMiB+fxshN/i+q KnFYYlAXM/Kb8uVwW3ud6qJmwfQjWhbkj/WdanmrUlXr14FR2S7/LPenzSIt UVXFW7i/U/4Aslqgttl21Ur1L1G5ktuOFQHbZ92aw8dVilMeGgQtH0SM6MCi eu6o8s0sB9ZxE3Zkfbnubfm8raL19WTesGBOJC7OIJ+a85VChKG3snwqN3LW 7OfCk/k0WcLhhIm7m3zIzeCBgiiaKamelgeLoQcEkWLBvsX4AwfFL/nbnU6u P4ZUu54VZbrmd9yVcfZYm4Uw4kvJ3JkUaBPgf92USDNzHDFNsz1wwayP279C 4+KBFFGksZsz6xD9QQ73XNey0zJiyKHc64sfbc+yMuEV7aT/iCN9iYUSHM/j 6TVvGCeIx0kisRZSaKpDPJ6zkvemprA08r/zBbEe4TEne2T+s9HDC1JpZSf/ s7hl6KWcQNn/3D1BnxV3Se4/t9n9UTvEL/+ffxNebSQc2zcl17noqMi+j87O 8ghK7dvh9vK6jOq+N0P23uiZ7lvk5VGuiKh9K2v1f2eK27fudGpYdOK+b0kJ rD5L23fNB5Hvua/3bdQk/7Dh874dnVdJ2i379mEoX2lp23eavortz659T3Uj pNGx/9OvD37FcXLfzNwN+dMz+5a7onVkaWnfmlT0bZ6r+zbLbg7d2Nj3dc3H qgHb+/6feZb//P8AgEksGQ== "]]}, Annotation[#, "Charting`Private`Tag$20717#6"]& ]}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Hc81f37B3CRcRzjbCSbxskMCed83rTI3txZEQ26pYxCIitEkVXSQrJC 3ZFKdRXKysqKjBBZESWjm9/393h8f+f8rn+ux/Of6/H64/rnumTcT1l5cnJw cKhu4OD43x46bjq/vq4OHP+tsRDar74/bJsRBn8/XWZbWtv331MLbL+Nv8Y3 NMY2n3K3JHxgO9X/sHH4TbaLNvjlcmixze1psFPMeSfL5J7ak9nJaixbVWce 2d6gynLILPNk0ogKy5VnM71KzZXZea/ZSq/dUGTZ4NZLM8NpOst574O6/By3 s+wSlUptyd/K8oXDXCV48haWOZSkXu+NloeaprqhjjZ/XO/lG5eKOmXB6Yt9 1c5FC9HN/McLfu6RgdCqLwuqpwXlvTXp3H2bpcCGR3sQ7vsrH9EayK+uFocD JcMWkVnWu+jndNZ9ckUhaFaoqrL9mi70m9FH0kXBiZbzxLIpV9du7xFb+zhR KMFxH9XurNCNEEooQj6ioFrZYK261qv7KbffnrBbFMJ8xJOGAmQYsW3hZY8a RUAt109syP8+Q1IrrU/hlQjUzk6qWR0pZzzJKuDJLBOB13dv87Uo1zKMOF+p CeWIAPNbzyaHng7G0LF2p4g0EUDiYS+T3UYZgR/GLi1eEoGeptGu8qYFhoD6 6mOvYBGgELdujtjMxcy+LjwwcFIEkvJ+ZcjakJhaa3I4a1cRKBK84yl2VobZ dGS3xntLEXgoaZgjH6fKdK83cdXdJwLm239ZGGxGzCVlt/jSXSLAP6lBXSab Mq+kBpTLbReB+iXTVu4Njkz5lbihDHERKF4ULH0zeZz53PU2XkBIBOYGfNy4 ewKZFrWPd4VziEAH1TFYoCWKOUZ/7/ZzngYlhqtWjp3XmOeT+hKOf6VB3HLS ++LZu0zS4uzTz900+Kaumtiyt4SZ77hxxKKBBvTumOLdA8+Z2BtRodoqGlxl +PYI/fOe2bFFSVu7lAbraZ/9tWs7mF4J+h4P79HgQX9+N502zOSYt70qk0oD S0JUK7/JLDPN3ut5WgwNztQ/YCaMrzDpLy98xQXRoNZPzWF0hQcD2RTCBW8a RJ0LOXs5nIzZxT7QnXemgc6ZI+vVp6Wx6ZkXR49a0KAgvm5+JHEHFmHdmty7 hwab/7ob2z27CxN9NlplpkmDgdV7SlFLe7ASyeXxt1v/M7+L0bKkZI7tixIk a22iwcdeOVH7gL+w3gkZrEiABhSFBh/LBx6Yr/muE1LrVCj83X136r4vxlNu lJrygwqbfGR0ygqDsZubXF/zjlKB2ze2wXV3NKYa7jcZ0kWFtpzhKvH3Sdi7 r5eoc3VUEOmS+23olIk5GWfpebyggpXpTQPjlFxsvqzMu+chFSK2kKO/TpRi sbTadJO7VCBP3EpwzKjEJM9/egPXqEC87IP/8PEt9uTLzLRGNBXibKe/9+Q2 YUYGnKIFZ6lwjSNGwiKvExsqpu2V8KJC5Sp+WWLPEBZI2uGT7EQF+3pN2Lr3 GyZwDt3gNqfCt3Jv/ld/fmD3+q1rgvSp8E8ITvFD2Aq2c3TnSocGFc6aPPod PMGJaiaJqqrbqOD2ODBpqpsf2f6Y87wsTgWVS+oFD3+Q0NjvlptjQlS4eaw0 oDF9Ezq7VtKmz0mF2hzBPVuuyCI+7iu8t35RoHl2uRBgO7qB/5u59I0CBOac TVCtGqKTTPysP1PgwZZwo/Yju9EL0R0FJS0UOOQWfzQnVw+ZSPEP4qopsNFV yVkz/QDqV5igeFZQ4GWDpJhRiBnyUawzggIKKDu8TF30s0HrOx+Ei9+iwD8S Di8sjB1RknZMRWASBVyPal6lb3ZHMnqe022RFEju3ME9/vUYenxgn6zSWQrk N03LEJ1Oob2mcg6xXhSwbhwI6w/wRx3WnFdGnCnwQytjLishGHke+lKNWVIg 7ZJY9y/pi2jxMCzf2EeBwOOM674r0ejSsTsqv7QoMEIKlMbjE5CozwVPix0U 0HTayXuqIRkV+jvfLJKkAD1RId7rTDrSDWG08ZAoEDf/eqZ9exZquijO685N gRn6PrvC5HvIJXaF8XKJDEmdk1MyTffR7JVPZ0SnyeDFCN92YrQQhadV5vsN kkE646k4b1gZImZlDDS3k6F+cO8xDuknKDs7kEJ/RwbjUo0UFa9KpF5gaxT9 jAyMbfMawv4vUU2pRvhQMRn0zyYHZBe+QbYV5Ardu2Sw8AyXUSDXorGq+an0 FDJIPDz3am29Dp2tbpOZjyFDqmHGi4TQD4ivoczeNJgMzq/lGF+N29CN1quJ +X+TYbjoS+aKYgeid/tUc7mRYVtOQxPpWDeq6jdddrEhw2pjma3vWi8yHVVU eW5Ahlm+ND/LxQE0MIn3pOqSoWPCiH4o/wvy/TGZ6atMBgWHb78EeUfRtbV8 nq1UMpyo/SKYbzuB5LhjGRF8ZMhRkqL46E+jJ/hjZ/pXSWBXof3c3G4WdYkq DKQMk8Dt0A2x8wvz6JjURspsJwnO40Qmugp/oiWFkYNG9SSw39t3tvLEItqk fq+co4wEu/tneP+aWkZF2uFTjjkkkLS2mHibs4oYeq4yT9NJ4CllX6dl/i9y MZVI/DuUBAXK6967NDj0Zq3/vK3zJUH97U5h368ceuGH+pbkPEjgZFy3dWP0 Bj2i23PlMHsSmMt8rA0mcOplH7vh0WtEAsPCkza3ozn11H3OZWpiJDgSYBcU P8ypV+Nv35qkRoI9trEizxS49OxCdvFMy5Ogj265IGDGpTd+kcowECWBEvFz 0qdDXHr8oaWzKfwkeJPZ3H/sIJee8rmDOUN/iHBH6+T2lyJcelZ+I3ZKs0Tw PbHbv/0dp16gTyh/8BcieGcU1Gk7cOplnhB59e4jEWyNbfSJzRv0Xnk8Ok1+ R4QCHPH9D/oGvWFXY4XDlUTQrI427j3Nocfj+LWnuJAIQ2n9Laom64huF5aw nEWEkIsbXrqk/4vMLMX0DlwlAlmmnj+0fhWlGZg+GPQjwtphKrcf7xKS1ygP IDGJ8LErsaoocw4Zqphvd1UhwsYjBuhc3Qw6SZ/4XCRDhJ6GGAvFuEmUpBCZ tEQmQptqmErT+XH0RFpi334eIrwzwOIUHoyiHvGnv5OXCPB5i5BfEv8w+kOz LBqYJMDVPEkzcYtBJE2actnRTwC5SC3x7v/s317BaNK5FgLQFtQqByW70VE+ qXc1bwiwbbTGkrf4I4rnehZEfEIAf4HPG+FuKypZs1JyySPAgWvbDn+dbkTt y9NDhdcJsGp+Suee8Xu0+DMm9Xc8ASKdJip0zarRpjlpw32hBFASa5durH+N sKnnq0mnCJD+ezamZf0Zch+zKe13I0Cf0L/qa1LlKObLd3e6DQHCaXfqDAQf ocLPsbSzBwgwSq54tOpQhJq7ZRuqdxNgZPkkTbP+Pppvrwol7CBA3pbm9Y/M e4jWbKfmLEEAe0oH/vjmm0infm60QJgAKqP4xnbFNORSE399cQMBcIk1D+k+ SYgz7OD1mG/CcC+bNHXJJg4ZBYSuS30QhubUdVThGYmSvR8dffZIGILM+747 RYaiHrevH6zShYHYFawoaBaIpB3ENKeDheH+9YZEyde+6LiZaVa0qzCs1ye2 WaweR2X7LnJJ7ROGb71pRi0R7mhJp9yrcpswuOW0HM7Xc0RIbaLNUlAY/L9/ H1+YsUYxWyW0p34IQW+roij/LxPULGF5N6pLCC6/pw5sH9uHaJRoXskXQnB0 4rANxxITufA/83l6RwhoF2uish00UR7HTKdFlBDQqwwM8zSV0cyiNHPyuBBI JMq/D2UoII0Zm9xIUyEosjp5UrlAAp0ficVL7BSCafU8zZkUCqr5VHWmgiYE JYU21eHOAkigde6T+aog1JW6PJny5kI27+T1JwYF4UPHUlGH9wp2s8ohP6JG EI50CP2T3vsDG36cILy5QBCkOjBczNI4Ri+AwPJEQeBY+KM6vjSInbnzs9/s jCAEyX4X/Ue5E3uetm3/NztB0NLC/1AbbsT4HMePbGAIgql3quio61vMTjov YpOMILim9vkdIFRiuV897qnzCALlKuFsvEUpNl8oByZTAjDkPptKQbmYnu/w gGerACxav078yJWJXdG89++FcgFQrv/kfP1mEvZ5xXXz9UwB8NoQVSZAisa2 g6TuozABEMq//7dGUjAWGN3/V4OHAEQw0LpDji9WY5R1buSgANicJxislntg JIJjxh9lAdChPOcRuf0XdrhTrIJK+c+8YX3doPPmWElmT4fyMh6CHjvMKOvs xf64ZiwYDODBtvrU9XBbLcxIwY7kVo0HfU0FZqScInZ9kqIWnI+HzPmrytN9 0thY6UfzlEQ8WPAaiKySKJhGwDWf4jN4wA4aJBoBLxahY5lYa48HzvGc0sjp VWbLunDxAAMPa9duHL9jPsfcXNvc8FsGDwJ/71A0nx1mesUnThB48bCnv/LS me5OZqW5CR99mh+uVoQ858bVM3mo+K172/ghcMdbieLIKqZNb/1+pwp+cIsY o4NsGTP7TqxHwE1+cKiWDwlQyGbOeRhEXgnnB7NGS6q+QSoTo/NkP/Dkh/u1 zFPBUTHMhNkaACN+4KP96rjYc47Z+yRy8JMKP+jOWP1Tw/RmbgveszZP4YeR h+3HGh46MwPQBgmBFRysRQis5BIsmG83gq7CIA4c8HMH5Q31mYSGC4ewGhz4 yUd4SgftZLpcZQbZF+Ag96FL/LY7csximz8ZvldwcFnYPqiynMJcEXtREeeH g7jmE062ldxMw8GgzmwHHHgdPkEozl5kpOfu/vmCiYNXz15XlvqOM0ZP/CZ1 yuIgCdWcfirZw9ipUqH2nRcHgYWP5m8U1DHCf/pb8M7wAaeMyZ9aoWeM5mfq p6Tb+cA9OSvBzqSAIR42n6j9lA/MDzxblnG7wTi+71GxVRYfDNUeNq42iWNU 4HwbvS/yQcigk9ct4SCGVeoM321jPkgZ26ppJ+3AuPtX8danqnxw1Sgo9cEZ A8Z3Se8DrVQ+ED506edC7i5GfMG3SM4hXrBy128Nr6Qw3rwaWTvqzwvazjD/ hdyqqzrx6afKLR7IeDzGr5/I0PWfU9ouEsUDg74hTflhdN3K3xed17x4oO/J aZpKgKiuPg/9XdNuHgjtPdGmeeGnjpVccMaJDm5Iy0lx2PC9UCfAeZNODp4b JO5IdhzsIuo8bzsURgvmAnONj4YmJbW79z3vw/1rxwGXG/td40I/aPoWlC4R yQuvJ+S0aGtpmUp2R+XutZ//9Nr48RNuRfl6ufdNn+LVrXsQuaR37PABWVEd pTePLTIWkJVaV3JDphaOM5D62UOMQ+//zmVeAYuL7t95WI4c6tp7JkeQ5bKb MRYX5oksn8r2IIzaUVl28cqUuHRRlOU4y0Bt9SxxljdS0sbCViRZ7m6MnosS lmHZNsR9V2a1LMsn8VOyzYfkWZYqepfOM6nAckjlXmvhm1tZ9s07WbFLZTvL Apxa7spf6Szv/9smjZ6iyLLoM4lT++WVWb52JjZZtVuFZasYc6VbFaos0x2j bHND1VjuGsNlp9juZLnZ/as+SUqd5S8bHyylybL9M+94qdgWtsWmpjbLKLHt 4Tf/W0WX7ZXI9Yem9mxvuS+2Ke4q29oGfa0CKWybTGRdSkpn+7SS9K+MW2xX lW9pzSti2+qdekzNe7Y9j/9iGDayfY7/6UJjM9u3zHTcPnay/a1LjzE88v/y nuNc8BxnW1C8pmBiku2drgYiP36wvX8Drtn/F9sOOQ1RS0tse+1P0D3/h+3/ /rtY/h/OggER "]]}, Annotation[#, "Charting`Private`Tag$20771#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Xk01V/UMPBrumauy73mDElRmQu53+8hiZAMpRENKGOiSGWeJVFRSAPK VJRKxu4uU4YyJGkwZcisjNf8/t61nofn/HPWZ52z1tl7rfPHXnvLnD5v6cBM IBDSmAiE/7/7/dk/ubqqDoT/WQNXqTM/l9ZtRuqaezu/bmltj+XzU+v+EH2L o3tg3RxK3zbAp3XfuXjSJDBl3blMXhkEzXWzORiqidqorVmwvco1LV51zZYV yWcU6lTWfHUCc43rVV5zkU+yc/4BpfV4bx2SXknatmbD1HIzo1FFCKtXThpk xBCe1vi2eR1XgEC9lQ3TXRZctqF3KI1Zm+EOz+7opxHLgv4nWfK4BeUhUW6L YQCPvARhuxRdP0wOKmPslON2W2/8cT0pIverLJwspx3+o71LUYLrXPb0bhmw jyh1yRL/rOyyQ5Htp4QUHNNoFDalDmuc0ezMqqgQBxMk3Vzpu6KleHnXqnuG CIhLWow+KZjSgQ4zxd7E/6wazMPTsKpjrX/m0OEoESiINWphT+KkBfPF5CJ3 EWDV8uQV9pamfc/oOEzSEoEr0w3xfQ7GtMjmwBcv64Xh4+9LqfqLqbQNmgk/ N70TBseb9X/qNTNpr+9nE5NfCMPPjXrR3BMvacbM71T50oVB1/VLJWtaKa37 bMuJ4ARh2MFs3/dDp4rm/WkgYjZCGESKstn09zbReNQXC5yvCIOmPYXa39NO S7vH39npKgyu74fF5xi/aZorGzmt7ITBNLL57sOfo7SGM1oaNRbCkK+6pDrc O0M7XWtqp7NHGLiDLZ/33yRgDKVT0fk7hUHniMaoxioHFnvn0puNCsJQ9qhG L72JjMktRHXfFRcGNkaHxzZdCazE7gE3D58wnD/gNBK+eRNmXlWwM5AgDIFv D+t4JyljA4o1p6YnqUB5Q7LbFa2JXYv7GXOunwr5UprCaX56GHl24u2vb1T4 YbOxuX50H5Z1nLXXvI4Kvk8ERDoUrDD8vQhfVRkVKrMzlFh3n8Ba5bdra+dT Qfju4KfyGnvMOUbP/vljKswQLPjbr7pjhMlDN2XuUOHEtsGW7fu9sYTDziUJ 4VSg+Xc6zBkEYorl/v2cvlTIajc+LPQiAgPZ2yR/Fyrck/YMk1CLx6wjM3Um bahALcjrqxi4h42OlTo6mlPh6yULtZrFx1iwVVP8j91U6PMp+eY0mI2JFPeV me2gwp8UYWO51AIsb8P8nw+bqbBSpPvg8vMSbE8or6CmGBW2D0fJOwlUYD+G ZPBcHiqox1pWs6nUYx4HdjpJrVLA7dsvCunQF4z4xvjO7X8UaB1+4kdx/Yml iNnR2fsokG5zp4jNsRdTCfQavtpGgQeCh/Q+241g1f0RlL8fKWCl2Uip1J/C Tpjc17UvpYDCTWtqPPciNvnihUv7cwq8tBH2PTrBjEdSqxJNH1GgvGFr3PQF LnzDte/v4RYFvEZZ7x9zIeOve8ZGNcIo4OH5g5B+VxQ3NmQWyfahwP0Hb0Xe l8rg3c+o+pLOFLhuGLRrQ8gW3Ju81T3+BAV225eEFfWr4DyXURLbAQpkaP2S cqNp4o87rCp99SjwzuBcXGknwtX61BZaNSgQZRvH+eOoAV45LKCisoUCT+xz +4Svm+KH/v11uC5OgR4Fg4+mnFb4wFxjygAfBeoPvEt8cugo7rOS16zHTAE9 wU0NzC0ncQ62WPbUGSHIVnM/M2jkiCdxu2GMQSHY4ajEu/uSG65INvWy+iUE ZPWW0o1uXnipyNbsvEYhMOHEm8/E+eKmUlxdnBVCsNct7+eRj4F4x6YhIYdC IeiI9WQ7thSGu2/7aAzZQkC60fiwpCwGX1XLDBRPFQLqOdKyRPktPE47vNA7 TghCZYqPcZ++h8voOow2hwhBQbERjGY+xAv27pHd7iMEzlYfdtADM3D9/RuP RDoLwZTP54+FATl4qxVzbK+NELS5Fu4cpbzEHY71VOAWQmDq4MtIX3yDz56E +aQ9QrD4CCtw1SrDI84+VJ7RFALZfpT8mvwBF3H3dzDfKgTmAdv4akVq8JyL Nim5G4QgL+y3zjGvT7jOVVozkSwEaXN/PbpKW/CGIHH202xCoLIiJlpQ8w23 jVyglTME4cjUMrvohk58Iva7p8ioIFBliTNe7L14YEJRlleXIJz93GKztPwH F7h/t/NziyBo9pi/81Yax9PSvIUUqwVhaKCrcejvJK6efcg4rFgQMjxvbbAv msMr8zUCu58JAl/RcWmf9GX8UKFgoc4jQWhTIpjd92VGA2WTI4m3BaHV2vKz 8CIR+VQ0y0yGC4LE+6TtbmE8iKPuxeH9VwSBIP2tIjNLACU13byR5SYIrgFF ifubKUjxm3sFyylBGOu5+3Nzvxgq69g/b3tQEL5dYpnYES2N9vdtUy4xFAT2 pcQRBVM51DnM7UDR+e99ubKQAz+2II9/w8keSoJQewmfTj+hhJgYtU31MoIQ aFZ1XTJIDd1aySJupgjC+HeFJ9uCdqKNbJG0YI7/8uG2S28300Gvuc96diyS 4ePqFYPJCF1kQN6bpTVBBtVTw/tlGfqoTWRT5+3fZIh+sqTvL2CEzkqxCk18 JUOLWXVP9D9TxNjUu8+4lgwv1YgtW20sUNS2DwFPysjw4du3lajag0hM/fEb wgsy1Ok93Ha09QjK1Q4cOZ5OhgS9oEemd20QTddO5m0iGUjBtML2u6fQp734 YXI0GTR0vmQ6d9kj2/2SN9z8yFBzdXjfrjfn0ITV0oePHmS4KSBgdlfJDQUe +8nYaE+GTkG9raB6AQmcKlEKOEwGeXnp+AuaF1Ha2ST7H8ZkyH9wPfL8Wx+k 7n45eQdOBksTn6LQD1dR5cXDTXGqZIg31ih+tiMQWV/dSRyVI4NcW/Yek95g 9CeIQjMUIUNvw+c/ITNhiMsvf+I2Fxl2ewyP366NQkqX96V3LwnAlpjHyuwa scjSq9d6+4QA7Hx6WlcgIx55u/txXekRAP7FVmu/G3dQspPwu+ovAsCk4Hjy Q89d9M7+5QXBagF4Jx1KsXiegn7bmWw6WSQA9JaP/24vP0TE4/3tz3IEQMv0 UJ+PRxpStA6Imb8vADElKRdOqj9BZhaiuntvCsCZJy+Fcg5kIU/TV1O3ggTg no/o2NinXJRguD+zy0sATFH3M+W3+aho959j2xwFYN+1ynNOXAXoFxbE53tE AOJ07/jtvfwaEbTFP1QZC0DHr3vJiopvkZzGm0tkTADqytqIWzaVICPlAwp2 ygLgw+6lesK9HLkqDv3KlRGApM27NC+EAYrbFBLHEBSAvO7+sN8BH9Brack9 BkQBiKpotJ/NqkTt4m/n4hkkkGmWcmBnqUFLVIvczmESMO1SiDGNq0X6vGHk y40k8PTVnLI1bUSOHFLVle9J0H3yjO0e1IyiWYp9BV6TwL7l8qU9My2oZX60 O+ceCb77nb+aUNyGZqfD78xFk4BL1Gxo88d2JPZX2miPHwnSiSVRktM/0OmB g/kdp0ggadarO/24C4X3jJ9WPEiCmMqhfaukHpTzK5Lqs5cEtueDi3/a/EaT LWV+pK0kCBfKDbkh1o+YA/bdCx/kh4A+1zvjy8PI+JLfqtQnfnD7YTM4GzKK 4l1eOha/5Ierjs4og3scSR8R3TF6hR9iX0aLf7v+FyHVoWYLXn7Q7+u4xuo5 hcI3S2qP/OODqA1V1X0S0+izpMWj0DY+0DgRcjqePo2oQmHsG0r5YP7OlP/g kRlky1Xs/vYhH0hHFEPLnxn0lDD21TyUDzpnPW/sdZlFY7PS2PA5PtClreAm v2eRxtjBjJD9fLCkIKS6ZDKHrvVGckuq8UHYwaaU65lzqPJ7mWchlQ+i2V2U DKbnEE/T3+8HFnnB9fxR2zhVBjpYLac31MULvfr4yUlbBkopO5IVXMkL9dZR 7/mvMdDvghh+iWxe4GwwS3keyUCK2eD95gYveHa9OVIQykCeD6c7zDx5QX7L EV55DwYqSdhiMGjNCzHn54+qmTAQx/E/Z5hovPDwMV8AJsxA1tJPg8VkeEEn Mm/vptY5lNFv/1idyAvJ9LvtzsFzaDJnI5iO8IDB6hadHNk5pOvxu9OhiQfK gy+fufdmFsXueLzs/4YHOL6LLhFos+jXgp3EvWQe8Ek9OlpROIMUYIPOywAe ULibk9MiP4O8wzqO1tnzQPSftw7bb0yjSuP7l3v38QCTOSepe3gKnfwqWkgR 4oEo+eGsJ3GT6N6wkOqVLG5oiEhOc9k3gQbyvxy4fYMbPnXOb+KsHUMal265 P/PkBjzP1ybVaBQ1rvI/66RxA5d7r7jqgSEkUfW5bk6GG5DTqnr29z/IOfrG EImdG9oWbVNZXAYQkcK9Wb+ZCxYPL3A3Z/aigz9qDU4UckHwYxOxB4d+o7SH kfaXUriAQ3/ek8Dfg3BFYlqmAxeo9e2K3HigA8VMVAIYc4FLao7ZF/6f6Mfr kK7vylzQIWZz1nq0HV1CTJI8C5xAUg2gBi+0og+soLOpixNOLP14fnbbF0Sq 8z+GV3JCbG4OIeNKM7K9ifkezuaEqbRzAxm1jejZwaW7HrGcUDATEVbd2oAW REsLo7w4QXFULUuPUoeMuny/ph3hBC1WqxmnqBrU5zRH/irLCSZRm6s42CqQ mnKh6jg7J5x/MGhM43iPAqcvmrOPccCJc+4aVm7v0Odi9fPSLf85tNamV7wU iQdM3tB+ywEim1JWrYWL0Lk9L59Z3ueA3GvlnG3H3qBCTo96lyAOaNlTT7jZ U4BYG5WGQx05oCF8jvzh6QtkeWeM44EJB6h+Mz+TYPIcPTr6bPNbFQ6YG+3w OPA6G41vcNnbROGAVMcDtqwBTxGtT8FhaIEdNLwqPR3S01F09mAIczc7WPfq x18XfYza3TPTxKvYwXDf06cLr1KRvIbje40cdojOPCXuWJqELs7Lde+/yQ6q 9yaGVWmJ6P273hXHi+zwcUuutpTibcQXmiYZeJQdZCneS19949CJfadoSTg7 nC3IUHqvF4Ny+KSPF2xkh8Xdfm3GWyMR40unbz0HO3SN33YqfxCK9ial3usb I4IWs8022ZggdMf2xNvlFiLIqjgHsdb5od8bxduoRUTQy09OeqTli1SGvk8r pxLhi4f61TTTS+ji3+0KwqFEWM54yJYg74mK5oJsVpz/O999UKmlwx0trXyN 77cggmRCfVOfsjPSIypWN2gRYVRnrm1O0RGF8/ovvJIiAs9VfN68+DSqE2pR SiESoYE8bm110w7xScifCR5jA3Q5sWYk6hiy3HjlrlMrG5gZS7Ce2GONEhU/ 15uXssGqxXM2rQxL9FNVlqCVxgbqVv7HX8gdQNLa3hpSUWzw0ig9hXlmH7LX rTtH9GAD7opdC/KJBijLcEPqmDUbeAc7agQM6aFRM8/mVowNPnNO8/NmY0jF upqtTI4NkgLzxJ8FaqFLNmK70rnZ4BKfLDipaaASe3f36Mn/Pn3qm3eO91XQ isuHtAvfWSE+8W2Ivv5WtNuL+u0IsEImKV/mmaU8Cr/izK2byQpHYzLxdpos qgt6hzbH/ndf6RphuFQS8UeRL/JdYgUDDdbth5VF0ME4x6yZ46xQLqJrVfRI EN27W/Lr125WOPWUKFhVy49+PeATqFRgBeYk0opcPieSfnraIJfECv9wJr1P r1mR/fNC31tzLOA0a+fByCSg7Ndceb6dLCA6E62QV7aAj5fa/j5ZxQJnQv2p fk4zuFpFAdXoGQt0eOTW8Uv8w73riCbKt1lgelBP4IzRCF7SfCyAeoUFdomS JPRf9+Mr7Xmvlk+yQM3Z+03HdvXgu7uZB/sMWaDQKfIRh/FPPPyPtUSDEguc JiwfexX3Fa8fzzF/RWGBlaGrPbxMzThpdiU0eYkZ3uRvagt7X4cfXLYsDupl htaLuzyHCFX4PdbMsXN1zHAoTvRBjBfgv7gXZcxfMoNiwbzWQGExLi14wFrz HjM0WXI+tuJ9jTuIpUdvCGAG64rdvxU08vEcmbl3bI7MMMK43BOnnYWPbzGZ GjVlhqCQGb2eijRcTeXh5lZ1ZnjIyq7yhykV99acOl4qxgxPBPltG20T8RLc MC6NiRlKRw4SXu6Mx1cNUiqjBpmA/773aIl7NL5n/wTDo5EJXLewJbehUDzy oP72I4VM8NRuNKht2h9vOP5fEZrKBMJWVnxb7vvgpDMjCfKhTLDCo2Bya+4C ftAZ1fG6MIH7hda2RSMXPOnC7ZVpCya4ZyTavZprj3de/qP2S4sJ1LnyPMd1 7XDZQJ2zFVJMcGKg/UvHrcO4Y8TNlBwiExh1u2l+LbfAc2J7G+PHCMAUG03U eGKMjydosvq2EoBfR6K1f1YfV0+9rnWylACXaOVaXd8x/HJGl6thGgFqXXpz L+zZiZflqj9WiiLAtYK6w023VHDCq4ivFA8CGJR/jGlK3YLvKfnJuWxNALPF fwEZmCyel/NEu0aHAEN/Y6tZTMRwkZTzTvHSBHhTP0W7PkDGg69rJx1nI0CW 7jYpFTFuvG2OeMukdZV+3ahvNPQUC57TnvyvK3WV3ptYVxT8ZBHzL1ayuHh2 lV5uUTvVlDOFWSZ/eMGhukoPl+JfLhgcwTZdtSalLqzQhf9JkLZCL8Y4Pnxe tXKF7pHY3JPT8xNroPk3Vt1YoffzHdsy9OgL9kiSrHzs8Aq949Vur7S4euzi ypPYcekV+s/YbAqrWQVm1KU9Hjy8TJeaGxuTYJRg4vBpv/DrZTp58EwtV10B Nv7o1PNcv2X60lWpBzUSOdiHoBkeXcNletRQeAlBNA1LPB3l2kpapv8+wTlA Y0vCnPQlG879WKILL1cxKerGYzS5l1uX05focYrl9PziCIzEZnA93m2JHuDC 3/DRIBDr628f3qS5RF9QbH4Qpu+NFVW7GpcQluiXL2Mej0+5YzGZhByzukX6 sGVuav8ze8wu8g5n7+1Fupw78lQUOIGpOW1x8rFZpPNe6zffQ7DCiMZlH7k3 L9L/8p23+Zu1D/uhaL7l0d8FevX0LrcpQz0sj7svQqNkge4/4SSuo6mJBY/6 /PkYskA3GSuz8RFXxg594ja02b9Az7xfFGpeK4dtyXv49B91gX4ytPwazxtx bClWnRjePU+/6O/FILqQsabzNQ5iOfP07r6pRDVXDizd/HhVntc8XbuqvPOi PAHzVp2Q08fm6Xd2KH/9sn+GZkwOCf1GnKerD0ok+rGP0jZMUftcmhj0fe4T Suz2v2mTX3L0CckMOrGs9jg7uZ1W/RpPv3OGQS8IO/2X5NpIS0poYVbYzqDP FFuJ1V6spLl6O54un52jxyERt+y4Epru4YX3FjBH/+v29oyhxkuakFaszEDU HL3ZVenIR+2ntEER2aArVnP08P19zUfS79PK5t9080nO0TvNq0amHW/Rbv7Y p5s+MEtXuCJjGZUYQdt5/8Jqve8sfd8rW3mhXV40Lj82u5P6s/RegzG/Ba9z tA6bpHfTPLP0Lu56k0+sdrRQqfd+ko9m6KRvm8bmPxjRvqSRltyrp+kXnE9q CSRuoHlk5zMEBKfoXU28DdcTK3VU+NxDdndP0ic0bl+kTBfr/PPcxuf1fJJ+ bejrs72WL3Q8adkbWw0n6dUsikc/ZCTpXGpMM0u89o8emtOmndngrjM1vHXf joYJuvKgpdDcsKAOMYTxaK/nEN2fKZcrIPLQLmvHjY9brn2na28vfOVy86VW TcP3aHWrdvRlh8FwuvMvjV3b3xeY3/2vLvVjJNw9UKfM7E35ZS9K0E0asWS4 jKgrsvOYB50eJ+r+jq1pC9fduTGku03fM51Xl8E39tD82lnxFynh5v6TAron rY40BYsZCp5Psyf1WVN0vRXcno8UXOe0dU6WjAgS0f3f/naUhbe2+n3xNbMK JQwELGxY87f6sL+h/DJrPnT19M7kCtk1u3KPyH4+JrdmqdzqROLwpjVfLdK3 4k/ZvGaPp66FO5UV1szDrHlaqV9xzQZuBxMUb29bs0ix5HkDOaU13/KMjFf5 prxmy/AD21MLVdaseDz0UIaf6prbBjjTbh9SW/Pn0/16ZCn1NfewZjISZNc9 /fRcvqj8ukVHRiRktq/b3mtyTlln3Qshq8/3H163/BNRsaib69Y2/NnEc3vd pkP3I+IS131hu/TM3dR1l72Rb3qau27LavXwypp1O5yboRnVr/sy19up+s/r TjXbderL13UPtunSfvf+n3gvM085/Fk3r3hl9tDwutXsDIX//Vu3ARPn54sz 6z6SXhfKYKzb2SBG59rSuv9nHrTm/weiOLgO "]]}, Annotation[#, "Charting`Private`Tag$20771#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nkw10/8OHBy37wdidxXhNw53q/XvuWKUI4QJUmShA+5I1dyVEKEKEfJ lULJldc6y5mbcue+vZE7fv1mvt9894/decw8d2dndmbn+ZxdAVsX4xtHSEhI yP92/3/0nzZYPTiQhyT/06b8OH4P7B3akHlk8/P2oflVXP+4rB26JjKWenTq 0NTSfbyw9dDP7tqcC3xx6DxS99ckpw9NcUNH7tgVuX9m7a93yoiR/Wfj2uTr 4k0y/+y3jDg9HT/1z6VeyY7vz0tDDe/h3eoCwyOGsRf595MkoU1Fi7JjygaN TuoXw7MLErA5P3p9QmqfOeurT6+7lTjUTDwguCBcR61Dn7F/zxaDc3VtZfZv CTwBNmQFdKyikM5zrLKzNVyQRIoP03ggDHvvG+XqC54T+xmV9DCvRxA+I/i5 U57ZPXmc1iFn/YwAfOJbcXSkdObUbUUJioHjfPBOu+3kQNd7+eunh7Nra7mh IynrHc2lCSUJb9UD59ecMLnhrsZylrtK+pBJnY86Owws2BbZo4dqchNyO90K 7JDy/PSlSNMGtbo5FhmZE+xwxezlQT7Vd7Wpze8vphjZoeExrazQn0NqEjh9 d5NBNshRoO+3gu6qFWlrCkp5sUGHdk79WTdFfN17hcDRfFY4XaXO2av0Bn+x hLVELY0Vyq+l9qc65eOnKlfnE+JYYeTzPTdBimK8V22HwGoYK6zfheEfnMrw 1E0fzA18/8bH2u3Qb0N8Unv04+w7rHA5SmEwIKMBL9HnXEt2jRWq59Aq2oi2 4SuHDLatTVnhF/2DJG/GbrzBhOSpch1WaOlDVSX69id+eI7uBrsaKzw5acGh +2EM70qcS3aVZoVrI/ecvdyn8aRbje3NAqyQUzwWN8ywjI/dz6YUY2eFKr9j Q30i1vFCFOH4YGpW+Os842iuwC7+I91Nt6FdHGwyjOONnyJFtHDa2crLOLgj ZHD9x3MqpJdTZDjuFw6Sbm/KSjExITf5yNmWe3DQunUiN+w2G7IlMq6r14iD Eqs3YHoHFxIhWXP/TSUO+ur631B7LoBwyad/IvmAg8dbno770YsheSqB81aZ OFi+Nu8hIyGN4AlXBT4n/F3/bOuYymd5pFUbNcdF4uAM0b1y74sKYm3A8/iO Pw4+G5st4mokIMsmezXfXHFQo1Ur9eaQFhJoObAlZIeDtbCLKcVNH2G5Vi59 3xwHV2V4ZinuGSMZN5PsfurhILGhB6jtmyPyzt7JiigOznavdF3kvorU3TVv fyqLg0z6Ovl8wnaImZ8S5YIwDt7YfEsjzuCITAex43U4cdBfN5OTqtsVofV/ vxxHi4NSNY+XHkp7ItLeupmjeywwYo6IfZTzR4zdx82klllggt/7qnKZEMTT 2Z/Wd4wFaplxqf+QiUCSbx2tauhigXScs6OtwU+RKrvC/1gbWOD0QIWUWGo8 8uvqORGbUhYo6g6i1dVTEEqryf78XBaY41C3bf5fBiJhdv/RdgoLxC3dxw5o sxFDo2ME7WgWyNQceG5B/z3ipl+8FhvEAvc/hTx8bfERidcxeDvizgJB1AcF JcdypPTMtKWkPQu0IHNOD+OrRgaRIEYfCxZo64VeMTjZgJCocNfU67FAzPvW j9ScFkRY4ZMHDmGBb1mz8SOBncjZU+fFr55igcwrEgEuA32Ik8TsYJ4AC1SL 5tEp+jyMPBUJebrFygJjRQVVQ7Bx5CM/j6YWJQusSzPON7OaRfq5P2/GbDFD 6N2wWa6+guxxGOUNzzHDBgi1d9vXEX7cvPXJIWYoZ/CUR+HlDqLB8ADn/Z0Z 6umVFefvk6D21HwNddXM0DlMMn8qjwKNJCvzYfnIDK8LfUW7EunQgn1jKess ZqjJFq7K8IgF7dxeGM1NZIZ+15+/DTnLgW6shz3bjGSG5b8kitAzx1GuFf6z mv7McEaat65uQgBF58t3n7oww+yLfXzC6aKo7ZTp+6FrzNBrecn47DNJNGxs yVbClBmKv59rjaWQQ3MHwzm8tJmhEiWb5IMiJbStT7CpVpkZNrfjSWaj8Ohq Z6U/80lmmJWdXE1YVEc52sxkr/D8jd/FcEfuaaOqjSsTOUzMkJT98jFXcX3U ui4ycYOUGZ5XGqP4lGKEHrmvmxg2wwRrm9hvvTy4iOp5+B/wtTJB6vQvKQGu VmjM7UL7skImaJwU0zfBcQ3tvzbZapzABGEug8eU+g2U3+KY4oIvE3zhvWba dtMRdTA0SHlw9a97DAWybFzRD5pBZHyaTLCeu/9Btu5ddEv1k2PpCSZ4yUhp oZHTBwWysx1GDExwQZT7XhPJfTRMjEdlnsgI7TJQ5DFfCNrGY5QW2ssIT9me frP/5CHKwfaAireCEVpa5ZVE7D5CrWnLnD+/YoT7P7vsnrfGoFkkiz0XQv+a ddLJvS8eXdzgR+YcGKFj5avUqzXJqMKi6esQA0bIs3knLd46Db03Hk7HI8cI 6TTtilYPMtG6H5VuJRyMEH1yirTZPhulb1/5cX6XAdawiy0IVLxDTRuE1WdH GOC5QLbvphxF6ItKi+zgOgboLJixjdv5hP4qesR0PIcB+iCY04PcclQiB3p+ eswAg/1MOvrEIOr2an3I0I0Bpt10rPV7VIuWx5/QmjFjgLdYX/QrvvqKUltN XyfF/52f++S8nkMLasafFcwlwAClDEsKNxg70NeTdunylAywIMCjr9CjG13N FYL68/RwiV006ENQP0pw/TV8o50evhE7diTlwhD6RDH9T8AneijtUxH4OHgM Hdy5ejwxmR728/JKtIxPoOKQV63wPj08bc28FTs+g3o+GLrUZEcPEy1Ky0Dq Ilqnl+I9rksPmRS5KPUTiSiO2er5njQ9vP25Bac8to7a9BwrYWejh+WnqUeL q7bQguT+bultOjhjSdJzVfcPunf1+ZrOMB3E5NQLOg1JgZ6IGe5aLR1keySp zedMDhLn2GR9s+lgNeO83k12ajD1vut83GM62PxV4oq2JT1Q8Ih1znejg+b0 RdMwlxkEqxo9rjeng6opnlVlMazg+wFT/jCeDh6bknMmrHKA4/VtTZsCdJBn rObT92Eu4Bj5eJaZig6ejlhud3fiA6Xn9aklFmhh+fbn2ceXBAElO52YRgct TMfU67ftRYDpz0atyyW0cFWL6+z44gmQ8SrczuMFLby2hk8rOZAEK3Y6IU8C aWFvMRcLS78MQCUoM97eoIUBLXE/8yLlwaPlOgj1aGH7j2h+iddK4OfHkJEf p2ihz4+ALwlyquCE75n9VTZa+OVDt3yxFgo8ACkP/Q4NVLhlXBHrpQ5qyKGa yAgNdElXKDQV0ATMTQGWaB0N3KFgoBQ6qQOsoxEf8xwaeJtoH6qRrgfyTfee uz6hgSrziZOXYwzBzrGKkgh3Gih5M6L53AMjcHbEpyfDggbqRoidH2U0BQmv ldcrEBqYBNPOf14yAxO3NnE9gjTwogZvMNspSyB3qkR2iYoG+rVYpJ0duAIC 1+9eoFqkhtOq3uHjBzagrUzehb+TGhq8s9bmvXgdcN9ffazymRpu7Cdc6lq/ ARw0C/ONU6jhCkUlojTtAEpoXJtvB1HDqOqeT2qKToD8u/RcqD01pEhsr8ya cQHGzxapX56jhpwlLEO0lG4g7VK+2GcZanj6RcDaw4t3wRLvbe12dmpYAdLs aWY9AX5C/MbsDhVEq6XGz3/1AZE5MyFHRqkgUdGy4PXmPdDv/DaDu54K6hIq uVcIgUBUwb5aIZcKbv4+jVc+HQzubguPGkRTQTvBp+GnroeC6qrxffu7VDDr OXVoXmMYYAzN4Am8RAUfO4fR97hEgMu61/BJKBXMUNGvlLB6BHIZ+a2KhKhg 7deOreCYaLDVNezTTE0FI4+YtIc9igHaSamJE4uU8MZA22uJe3HgmfXlz386 KeEx0/0Dvhfx4JcQdy9HKSXct7WvoFp8DmRmf6yfSqWE3CIv9T94JIO7K1Li R0MpYUP6dEURVSoo3Qy6su9ICRuDPJ1l21+Bvf2emEkjSjgPs19fvJUO1Ckl GlqUKaHNwSvVqzSZIIwhYKeYjxJ651XeZm16DZrYOqVfUFJCD/Eabut3WcBY yPf5rW4KSJkuce/NeC5IkGhrvlBBARcad6Y+qr4DA7KCJMoZFDB7Zkrcv/I9 4FfxVOCLoIDDvEu/HisWAjtCkwOlKwXMSfO+eel1EcjW4U1dNKOA6yrVZsUn P4IFQ7eOboQCfrlc0/Ou5RPwuMKlmklHAZVzXlXVXS0D5XbOzpGr5JCDMaVi y6QC7N+uyfjvBznUikk9t33jCwjzdaQjvCWHWFGaQ+YaBE1BVUDsCTmUTsJ3 KUnWAKYI3F1GD3LIOEwfGO5RCxKflw8OniGHyqRbz9bUGsDgS0aWOnFy6HNn pa2y7Cvgz7LVymMmh0cfKnen6zaCnI+0BT7DZNB3J8/6dVoLKO+wvM/hSwbP WJ4IvXa0E+z3FxT/sSGDk+J3cV78XeDM6JGZCR0yuNxoplch1w2al3IvFLOT wTVrchJlt14wSLcrcKHwCDS6uOb5xGwA8LOeNzudeAQ+QhfOz2YMghtcmZG8 94/AYGeRafGNIbB04tzagv4RGCHh+fiD+Sg40HpRFzFDCh2e0t0Wkx4HmgbL W67fSaFuXnH47PQ4CDfVkLIoIYUMWt8onmVMAObr8/GioaRwN/FEwB/OKSAY qHazlo8U/hdP/bP5zwywfxj9IpeSFJpFr3WmFs2C3Cfj32MWSWBTTL9Kqd0c kE+NUrapIIEyeem1bVXzQLN8gOaPGQncZ/dgaMAvgYLcNypf1UhgkrLsJZ6f S4DzhcutGH4SiLG6+RS6LIPgKJUkKwoS6Pty/c3a3jLo3aSMPdd9gClzGKS9 I6yA3P5k4kjqAebX7WchH7ACAsqkje7ePMCqJzO420pWgHFyzQdq2QPM0PqW pdbcChDxM2NO3dnHcvdYFW5wEsGW1ZyLbN0+FnH3ees+gQha8AHf6x/vY3Pv htJmrhNBGg/ulKX5PmZxObh2P5AI7u6/ebLEv49VXbQWFkok/r3vVJaC5/5g nJyGGJJDBNyw1eDoxz9YUkVJA/4jESylXXuX5/8H6xuxq2ErI4KaoN/0BJ0/ mHuebyb8TAQJthFO3cx/sDsO+Fb1D0RwS4OnxeHnHmZjlIVLyyACvHDhyT+Z e9iOa0f27BMiYKbQioq5s4eVvz/LKO9BBBOT/XMip/ewYwcR0wkXiaC0wUmv nGQPM8yh6VCUIYJHb0lyDZt2scV+UTElCiK4Gv6MZjxuFxviTayr7V4BcrdO 3PK6sottfV/4zPRqBVDqVX6jE9vFLDS7V87brYACuomHCuU7GGXUwk2l6r/n seA1/S1kB1PtsHQ2lFkGF1vpdK4Y7GCxOd+B0fMlsPdEnjJsdBujiNHssDm/ CNpdvt7gyt3GFvUm81LTF0DmBav6AvdtDPPaLhZamgd6uJDQPspt7CaJYHqE 9xxIiu88Ii61hf1gDszRspsGTp72tl82NrFRz3phQvIUIJjvVBvBTWzYti/H 9fskmOEUDPI12cSk5LclS1QmgFLKfwfNPhvYjSuCFs7HxwCtP8VVG40NbLfz xHy75SgYupJUtU6/gaW+2R5KVx4BoXzV/jxpv7G8A5oSKdNBYEFycajw1m9s sSc082DxJ5Acm8Fry//GHKWQ/xKf/gBdGcx7zg3rGNc1efI9Yi/ICnltRfZ0 HdtMGTR/UtgDfO2UK55fWsdqmMpRL79uIChq4wsX1jBzzID59KlO4JrzfouF dQ1z8TY5/lG+BcgwOoecGV3FFKNOnzYIaAJEN0lG93erWPcSpVr/wDfghs8R 6tZZxdLRytxfbfVAPv1mATn7Kqaa/Pp+x/U6sE4hqqL4i4hd0i4ziaOtBR7f MwwT7hExmePKxTtRECgpXPvRoEvE+EOSPgc1V4GNRD67TQ4iVjj+DlN9VQlK /gwtiU2sYLc+sHIKxJYDL9sUH4vCFYx9K1hYMrMUKH+1JI8IWMHw+57Ecx0l YOvkseiycyuYR1zHjiP3J7A2d1JXsWUZowgq6kEPCsHdj9nWCfbL2MHOvE1F wgew4S9yd5NkGbttc2YsNqoAeOlkRFi8WMKGTXrvp3Lkgy1mvldlikuYLYX7 zM2WHODz88VHrvZFjP2yuEFz7luwk8nZ5Oe4iOGCLmTmvn8D9pRwv5FXC5ig 4mpApnAG8CeJpn2lsoBR6vOnVD9NA/uNdPwk3fOY1HGVS21KL0FgXLjiNed5 7EfKRIrPgxeA9ArFuRrqeSxvfKJ3kyYJBIsG2whlzmEPL/+OGYYJgHxl3yMU mcPI1FzHp7KeAcqQrTRtt1mMid3N5vfaU/BQ36PkLf0sVgFDgHbuE0DNsdpM /XYGazA3ZQwpjgIRI85jt9RnsBel4ZX+++GANmd+o2lgGiOpL6++FBYGotwc 6CU9p7GJQUQyUDsU0OMnBR4zT2MKKRfoX6oGgycUtqeXcqewW0GRbzKsAwHT 92H981pTmKhsx7DvFX/wNNHK9sPIJGa4/fHnZ0NfgLPt92LxncRySY1bDCO9 QNzJi4/d2CYxsQtU5BS0HoDtd0dGV8EEdotxOo/hmxuIrzIsVdCdwIb/1NeT Y66AI7y5NX58HFt/cOd0d9cd8Nzo7PiG/ziW+l3RUjncEXBy12+Zc45jLe21 Z7Jib4KkCXXGsqJfGN87upjT83aAq6BKiMvgF3ar9J3Nm0hbkOKlpuI3PYbt 7zjkoI42gEe91HAwaAyL8SjFvlBdAS9pFe2Q42MYP0VxVWPmJcDXXejzsmQU W6DY0zF9aQbSUqWjDy6MYm42zz+tL5oAjTYz3ereEcya0jyRI9IIaF+7cDeE bgTz+sb1tLvHEJxd132lRRjGvnWcsM/HnQN6DzWaqDyGMCvc2+GOLzpAnwv5 3ZgziAk3XORKbNYEhu+U+B8ND2DOWkpmLrJngBFB5pwh6wAWR5vM+6IZANMu cU/msz+x3TiikixUA2b2Qumd935gLBqMl4VklUHkf+7hsZ/6MQoGa54zfIrg y71aF+OlPuxTlvFK6W05sPKQ1Rwn1odZn+wvW6GTAcJx19HOq72YiEtNWdfC SWDxslgkNrEH0zz4JaSldQJE5ZAxGHd0Y81pu077LCKg6qPJOgttN9br17vq oCUIVrHMgY4zXRi5TIJYaxYfEG1eq4nx68T+7Fd9vmTLDS71auQafezAyHxq k7Rzj4JHY3ExLIvtWKyf+PGIO2wALox7d4i0Y01LPzLIU1nAzPJNKPilDXvk N7RZYMYIzlNSR2dIt2JleUa1FsdoQcnx7CuCac3YW9qENP47lIBX/qxkBksT Fqnv8ikRkIEHujM7AiHfsNj6+UthgSRg4Wp4Y/p6AyabGQR1NPZQE88TiQL2 9dgR1TjeDskttPzRN/v0vlrM9ZH70/y366hApoOigG4NljXmX5iYRkTDy6jJ 08shppImyHCPYQkdfmX0Rt2iCrsnV4W0Jsyi71pizqirVWAHDNVE39pJ1G+7 Y4TAW4pJ8t8eEvf/heqK4vwJpJ+wnQ83llttRtCjJsZchIlCjOsBupKY+BNt PhB2uf/kHRbIE3PGNrQXdbj0JifA9C1GWa2dUE3bhZIXi0z4c6VjhlH6LuXs 7SjhmD6yA+MxQU4a3STh5r+LJNkRk4Kx3ayLeOHRBvTekWf12sq3gGTbZEO7 ei0qnXz9K5vS37zcKN5UVxaiw8cKl+iYUgBV8LNVTfkK1ES+vzJM/TU4uYjG tnSUoCU/zIMf+uUCPe6Dgst8xSgDnBeqs/wAyKCnUTzpBxTE5YXVeRUDwmQ3 0l6bi/5nf3u27lkJaLv84bqgZRaaoXJSv76wDAh9VdbUeJOBdtPPF9S3VQKr cn59e9wrlHI0l6VhHgMkzJQuYDAJTbmkqHo9tBpQL9+3SLgfjypqxN8ex9UC gbPNusw/Y9A2yd8p19PrQLOl0xBv6mP0JsfFtvFTDcDtSsT+YHg4SkLy6eB6 1VewE/8s871BKJo0yyY7od8Ioil2fB2+BaJyXXdt7QaawLTF1fvlJX5oc2V3 3MStFsBAcF8VHvBE7bIU6u22WoHaQfEJ2m439E/0s42JsO/gus0ZK9U9Z7QZ vxNXFNkOIlXOrQV63UITZXPzV406wPNvH8R1ZuxQO1HLerljncDcV56XQuQa KsNNO+w22gk0pW9P0XBcRv8wlW8Uve0CjVa9nck7ZmgTuSPTmnM3aDwtP3Dn qzGasH3shLxSD2gLFQ6KyzZEbZcaCe5/esDK7uM1z4OzqPS4z6Xiul6wleJ9 bMNKE93pE3dbi+oD0VbTXDvRBPRry49IeZN+oOcetft2ThV18P751erkD2CW fPWOnaciSi08QB5K9hN43FdkkD4qi+Z8H1DPH/gJdglbotHSJ1E9v8GA7uIB 0KJdtYMkiKBzokMVe1GDwPIW0XCQVwCN6hzaErYbAmlykoQ6Xm5UMmBY0QA/ DBx2n/RFubOjLeIjbh5sIyDl2bmtPiIz6tQz8j51YQSQWTwZ7q+gRcMIrhu2 tqOgxyUg9jETBWqWsMLm1TYKjIDsRFUMCSq24CofpToGpk7VzpvT7CBb6kSj V1lj4DOTYWL3nXXk2/P/XItxv4DuVtTCDukKkrhIfPI14BeoYGAri2aYRRw0 3N4NzP0CVT3VnIzPxhHlpNXmZbNxkFb07uvx6GGEetltjqx2HHRaPjCT7+hD +jXXqDlP/a0bus9YF0R0IjnJ7mKSLyZASZjyWFxHC+K7sqZFoJoEztcHZ35a NyB62nftTN0ngamJs3eoeTXClbIe7DAyCUIzQcT4j3Jkjng3/d65KdDD+p/s nZqPSLnOb+zp5ylAdW6mCaX6gESmegy/FvqbJ4r0xxR9zkYs137vlUZPg05V 00l/6kzkpK4nd+vuNPB6vd3YpZWK7L3cUBm7OQOeHwsL2fZNQFrWPS1+d82A gnKsJB+JQVL0Nj1pCLPA1O7d6KRDJOKU5hXPkz8LWkSiAUE+FMFvbBbLcs6B bKEgFf7BAIRe37tTK3QOPBW8J+EU6YUMpm+tXFqZA76etKGrS/8h7za9mZwv z4MhqSUFR93bSIDBtlTwt3nwo+W+IKiwQwwzffQTFBaA8JrTUo7HVYR3e9sx N20B0Jk0x3v0miNLhr4RVfSLgMa8UOsbjTFS9Xrnbaf3Ing27wbVNc4hT3Z8 G6YmFgFX7lFZ7jhNxPrC7sTOhSXg8U3eWZ8MIKey/MiYviyB6ksvSWLNTyMk e7sCQuLLgPl2n0pYlCzSbnSPcDp+GXjmXXtMbS6BtJsEvH9DsgKUjfh3W6qE kNKAqqr3SiuAbfnomMlTHiQtZ7+1zGkFGPL79p3h4kDCu9Gh2owVoPM6Ojsu kBlxPQhYaO1fAW2636gHXlAjFhLYbh8jEYx5oSoHxkcQwsUD2l+aRPBfRo1A FmEXfyIQcC34EkE1bvolJbKOZ867L77xtw7SLSi40ki+hN/uwZRJpolAFK/Q +UJtCv+LhOQsLc8q0HDIaf3y3yi+6STBnM1kFUT/ie2nPtePLzILtOeNWAUd daaXQ+c78MlB0OMEtgpOxnRGrds34YPzSR7I/V4F+9f65+841eId+wjP8CfX QMz+I3unyEq88ZGgTO1ra2BW1tn528pHvKpUddGF52vA/xGH99r7Arxid29C VeMaiItpOLK9mIWX8VvwldxbA+pHX3UvHE/HizYe1aC+tg5cOo4YGh3E4llv OHdhEr+B54DdiV52L/xCCve6dNUGUFm9Ynybh4B/Re+pyDC5DRbVlww7ORvV jniyD9odIyGQkRFKV9q+qVLRXwiyXaIkSGfLlFWXAOWQ0V4Nt0wGggwdm52Y 9hnFDy/CLgSsshA6gr5wyedQyblk2DFPmLETer7njH5NY5C2dkzmeRjESYit Pmq4X/1LPMLIU0U+hZuAkzr3RtHimgg5W/zU/R1egljR+aRrEWT8fc0PVkKZ BAhOLvhT1FwxXBf9bJWSawUJ/pzWCmGnJdmc6OYF2yyFCXz5CQdnTCADX15D AuWcCMGOoqNX3JuCyq9Uw4TphRjhf99jXbOcSpROif8z/ZHTttKTEv+sdcc0 XiJO8p85y3hctISl/znWLTxGpu/UPxuHnZdKLZH5Zwmr0Iuv/WX/uXeKJiPu otw/t9lOquP45P95jPztVrzgodezHN4fEz30sfn54wJSh7ZzX908pXbonZCD dwbmhxZ9c4wrIvrQKjoD7fRxh9afTXn4NOHQ/0nx/36eeujKT6LtWXmHNm6Q D6v7eugbDr/xZ5sP7U37ea257dCphqrXunoOPdNLwP8a/z/79T6ydmP60Azc dTmzc4eWu6pzlEg8tBYpTdvd34e2yGwK3do6tKPWI7V7e4f+n/8C//z/AO8z OEw= "]]}, Annotation[#, "Charting`Private`Tag$20771#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2mVQVl3UMOCb7hSRkEZSCQkF7nP2QaQUkZI0AEERfRDpVGkBBZGQVEJR kFBQVEDOBgEpkS7p7u78nm/mfR/e/WPtuWbNmlk/9uz1ZwlY3zewJSUQCNL/ hv9/+05cWj44kIOE/znj3uxrf3cPrcs8sPF169D8So5791cOXRH2gnpw/NDU Up288PehY1wsLz5OOvQHEuc3hDOHprDVPM157fR/PtJVdS89SvY/G/xMvCle J/OfvReQe89HpP/zN/dE+/zLUof9vrjCv59wEo64DIpfcuKm0kz5oas1KwGH PU2M7nmMMmT+8uxwthCHInOXyiL1249cD4w5+ue9KGS3aRuI5ejhfGhJlkd3 RAReDELOPv3Oykc4xYerBQnDm1CP5sSTZqGe8ISQD+2C8LWhUtXV3nCx47R2 WavnBKCZ1lkqQfeok3cVJCj+HueDqc5nnxDYH8vcPNP//udPbtj2I0Peim1W TsJD+cDhDQcsMKz5Hv+uWDGtz7DSU/UoHOIiwzhUzJUm/I4SNTlYYe0ab1JI 6G0VWt/8hWhaVmju/LQPz3NUkfLQzhjcZYE+db707165q7g5+NJ6DbFAckp1 T/u4EBVKi7GunGwWqFxd+KxS6p2KsPwXV1aEBa6U8aCdfGMq1uNG+X1WzDB2 iHR+q9qCGDw0by1hxAyHXrkl1y1YE7N7n7C7azDDxCpOUF17h7jcUurLLMkM g5ZQLt1WdyLpI+344Ekm6J6bVFxHG0O84Op7wPebCQqx5z5eZ0oiRt39dOv7 Jyb48IO8dDpIJ/KbcirMejFBl4knlfNPPhLtdC8lB91ggpe6ek2HzxQRP573 I+M7zwSlOpz4Mpt/EDeVv9h/E2OCbO5ox8Xdn0QgO9Wsz8AE/X9R6vaU1xGD RXmUZpYYoVVv8vHWkWZiI49+amAHI8x8fJny22gnkZ0tiIq3hBH6zVzgcRwY IF6n/e7w9TUjTPhyLjBCZYyYSZhr1wtkhG9Jj6TJqM4S59b5kWk7RtiZLZ3T XL1MlJ8zehNwiREylDRK7s5uEn1GntDxnGaEahfnL8sEE5DK7lKnInZGaJ72 Qm9oiAKhb1rsvrzDAEWlTbpNl+gRo2ph1akBBgg8NUnoeY8gSaWm7/0rGaDy u1M7dkqcyHDBU6bjWQxwvVzi09QrfkQiC7p9ecYAtQJ1hbwGTyBOr1f7dJ0Y IO9MZVJixUmkOFZMfdKYAapJKLcVDp1GqC0mbpIQGSCGDprsZ5xFjPkz/bkE GGA24ytVUSYMeTNmkyZHyQAbdOQ++02eR5azhaDODD3c3N7oCpK5iGCOw/22 TfTQVoWGKeC9PhKhkLb38As9FHXUUGyeNEZ6t28cj0+kh42l6Mh2/jVEHPKq fHpED2M+muX5KN5E3IL6zOps6GHLnncv3mGHVF5I9hjRpod2ZREtz2kcEVZm i5e7UvTQJNpk1CLfBbFs5yw6ykYPn1OTfF1964XkJXa1SW3RQZUG43tSJ/yQ 3RsvVzT76SD91dRVHZpg5MIJY1arn3Sw+5jWWf4LT5H4aTZZr/d08Dbt4Ly4 0AtkPL/1cvQzOlj5SL2uXvklIu/6wiHHiQ7mSsQFBn1NQfyV9Z9VmdDBDoHB Er3ddOTPAVNOP5EOvhA6YcOq8h45XtVYtyFAB8c7WamCRvIQ+7BnU8xUdHBx eJqIZRci3y7rUEvM0kKnUEJiAOl3hPIonahaMy2MJMY94KvCEaOeWvWrRbRw lOti9BfRSiT99RMb1yRaiF+8dpIuvBZZtNEMiHhMC6VKG6U/SzQhqARl+jtb WrhU1Hi22bENebpQCeEFWlibEBB8r6kb6fkcMNAtTQsfxMobLWoOImJe5/aX 2f6tp7Fr1w4YRVwBCQ/9Ng30E4/I8GqaQirIocqJARr4Yshs21RpEWGue2iO VtJAzbKJzLDrq8j1SMTTJIsGWsNfLArhW0iO0e5LxwgaqEXz+MKv/QNkm7Ok KNSZBlpcL9UoISNHtQY829NNaWBPUfLmL1IaNO7N2dUS5N885lMFzzCho3c2 WNsFaWC7dS7xo+sR9LR0kew8FQ30D/jEf1+FA3286qJHNUcNowb4rH4K8aKN 3+Xu87dQw7HPxx9WfRNEuR8tP1P6Sg1dLck5URVR1O78pxyDZGo4fmzOQKz+ JFpE41h/148a2jlyR75tkUXJ/0hNB96ihuFhYr7NNIqoQcwc9auL1JBN1e07 y1kVNNUsR/SrDDWcDlTRI6nD0HneuxpNR6mh4BDvzHz+eZQ4Km47tU0Foeon oVlXbTQsazKAdJAKbuw0rnvpXEa7HN6lc1dRwU+6kqpcZwxREflb5fLZVPBv /cvgsecmqMuW8OClSCqYrsWUr9h/FS0vG9m/5UIFxZ1CZUWzrFDGwHSex2ZU 0C/iR5h1rC16VduKmIBSwaemZA6VpvZoNiO/RYEQFTT7JnaskckR3Wzt96yn poKNrtIFXpHOqEZCSvzoHCXk7x3u4al3R2OuX/2610IJkzajI2ImfdBhIe4O 9m+U8KqpYZV/mB8qM9W9Kp1CCbc/T6hwqwWhLounxI8FUsIrixX02vah6LcN v2v79pQwq6zkmLxZBLq73x41pk8JS7bdDSc4X6CqlBLVDWcpoamzVS7Xi1g0 mOHhdiEfJSwuD/3WmZuA1rG1SCVRUkJ23i3amdBXKONxkZv+cxSw5m0j07ZQ Omog5PXyThsF9GSRNogJeYvGSTTW65VQQFy/0jAxOAv9KytIOJtOAU227GtT VPJQfiU3eb5QCnjmwY2X+PAn1Aars6N0pICbed+2aIW/oO81eVPmjClgj4g1 5rH+DZ3VdWpuQyigQOafuGNOP1AZ42qKUmEKyO6QZHPDrBx1vcalnEFHASvu mgRevFeJFts4OIQtk8OcQJa16+Q16P7divQH3eTQOY2wv6fYgJ5zZu80heRQ KrZ8xCaiCQ32sqfD3pFDTj/Bt7R3WtE6vzIgGkEOr1dwf/xc0oEyhbK6MLqS Qx6d7L/0CT2o0fNb79csyKFBxzFtN/YBNP5lcW/vOXJ4/9ftXgWRYbT3FSNL pTg5TGIz++EiOYbyZ1qrf2Amh0+s53mWsydRm9wizxcbZJBmQYN6omgWzfpM m+fZTwbLhpt+0xYsovMl14ctq8hgMh5Dz2i7gp7+WcCulUMGda5X/Jj0W0fd 6igvSkeTweVaefWOY9tocbP5I3YvMliZuqbIfXYf3e/KK9yzJIOZIZxugt4k 4Nwg6eSoJhns+Oiwe0aeHARPGB9vkCKDJ+99Za43pAL189l6hUfJYFrdDWR5 ghYwr+8HJu6Swr+1wvLPCEzAaM/gu98IKfQ5ufqstJMFxJO/m7OrI4WAY5va NpAN9NLtCOh9IoV0XReFg6KOAf4jl43PxJPCo370CTgdN7DlygjjfUQK30qO xiqT8IFsgY0yilukUArYPBmFAmBe7OLKrA4ppFB4MxV+WRiclnkt2iZHCl/l lGL3FUWB25kVixIuUthOn+gQ9lgCFKOaz9NJSGFujNp5dmUpcKCeVBk6SQLF SyuHDc/KgvOXFjYd/5BAgwdxG+8T5MATI7VTpkUksK9NgcVWWxE0WLy0Aikk MMD964dfekqA+eZMrEggCTTf+sBNW0wERvagjuEuCVx8eYNJRQsDCQ+i91f1 SaCnqPsB6ngO9HtMnO49SwID/U9Izvw9DwQfq9z+yUcCp9EdvOaFJrgVEpmU TUkCjXa/WPKmXADZESN/ouYI0Ord+8QDMl0wH3uG3LONAE9/L3ydN6kH5FLC z1qWECDHOw8DOmpD4PFm4J5mOgGKmDwbp7h1BZR+kEuTCiXAsKVsJQ4aU0Ao DGk/6kiAm8cZDi5vmoPzxX9p9owJ8JzSM1EzlesgL/ut0i8VAky1uRL5lN0K cCTdvxPFT4ApR/GS6xdvAv9wpQQLCgI0Kyb9dL/CFnRsUL642HaA15/t00n0 twPZXYlLAykHeNknhQW96Lvg4XcpfZfbBzgWIj2buesADBIrPlLLHuCm/txs uTcfgBPexswp2/t4oKWancNDZ7BpMX1ftnIff5Ji/jy/1RU0EB/+qXq2j9Nd nImatfMAqTys0uYm+7hLaJsU7Xlv4LL/NmKefx+Pm2TKML/7EGgNKM37T+/h +XW9fM3LjwE3/H3p2Oc9XMFZcoahzx/Mp1rlfvDdw2uG+JzRzUBQ4bdGj2nu 4XkXHpb5aIWAOOvQe23Me3haRX6vUEsouKPG02DXs4t7WDI7Nic8BUThT5J7 Gbv4KDKzcetNJGCmUA+P+mcXByX6dkHeUWB0rGv6xJldnMaCzTHmYjT4Vn3v QjFhF5eQP+ekpB4LbjyJoRmJ3sE1Oy9vGJcngNN3xO64X9vBPxfEq0hdSAaU F0pr6ER3cHo2vzwTmtegR0JPLHVxG5f9u50iQZIG8uhGQ+SLt3Glwr6Wm8np wH/WfaImYBvf/y13W9H0Dbjym07z2qVtPGyFqiNCMRPsRshRBg9u4fXqDQ9w 62zQdP+XLVf2Fq5ngri+/5wDMvQsqvKct/CrR1pSFGTzgZvsgrAasoVb27+N wOY+ggusAYGdlFv4kHMzamRWAHhX2EfvNm3iic/2uMb6CsFya7YaIXETfzTa Ekji8wUkxLaQip/axJVcH2XR0HwH99xuWf9Y38Dvz+e8JmwXA8xku1wfbuDy lg7n46h/gEkOQT8vww38+K1KTulyCEq3vgwy8mzgce/Oj2ZtlIPIHm0sY3wd v0HxQv8L+hMoJj84qPdcx4+P3Xg/c1AFaH0pbliqreMtKoW+n71+gb5rCWWr 9Ou4Uo5pmiZVLQjkK/flSV3DV5i88ADjBmBKuNL36c4abl1Z5WzD2QhODk0S NeTWcCdBv3qf+T+gNZ1516F6FXdv86R+MtEMMgPeWJA9X8Ub40J8eeZagJfN 2ZKXZqu42evjfb47rUBQxNILzq7g9ZpX1IZkO4BjVv4my5EV3E5qITVlrwfI MDoEnBtcxgmkww1+J3vBktNJRufcZTyxQ3H/j2UfcCJmCbVpLuNXtIlic50D wPVPum6czxJu4msnxuw5DBTlrbqrtZdwaQpcV51vBKzH89lssC/hX0bdNymr R4C7dbKn6adFvPvGDZH2I2NgZVpSW6FhAT+oLrsUkjkBXD6/vx53awEfNc9o E9acBOu+J1w2CAv4tATXGYuxSbDJzPf6u8I8LvXg9MIuxzTw7En6zNU0h5/M YsZScqfBdgZHnbf9HE5qexRVRWfAriLrGvJ6Fo/9dC2d0mAW+BIiaV8rzeJh GptWtm2zYL+Wjp/QNoOnKafaqOnPgcfRTxSsHGbwcM8/vuo1c4DkGsXFCuoZ PO+mD35EaR74i/hbCmVM4/cZqcbNMuYB+eK+ayAyjYuI98NflAsg6Lt3+Fjn FE5+VOQly80FQBmwmarhNIWz5X4KWfy6AEJ0XIve0U/hehbND6JIFwE1+3I9 9btJXGszRFXxxCIIHXAYuqM6iZscfRpar7YIaLNm1uv+TuDOevZSStcXQbiT Hf1Jtwk8wcvonL3LIqAnjgk8Y57Aq8+W8V8KXgQRFNZn5rPHcXHdkqDW6EXA 9Kdf57L6OJ6LrqYuJy+C5/EW1h8HxvB0GkbhjLRFwGrd5c7iNYZHCtjrDP3r aMkrz5zYxvD4uycnc1IWAdtac3pr3ijON+xrTBO7CGLLdL/Ja4/iU9foAvZC FgH7k/rfsSMjuOJyTW+02yJ4qa81su47gscep9PqsVwEHNxVmyYcI3jVZyb6 YY1FkDCqyvi9YBifXeMoxcUWAVdemRDXpWHc7aj68XDKRZDsrqLkPTGEpwll kZfBBcCj+k23128If6wma1twbwG8olWwQY4P4RM10U7yLAuAr+2T56uiQZzj BLdfWN48UGs01i7vGMDjxiN2R9rmgIaVnksA3QAeste1GXZ9Dmitar9Wx/rx adt4LZ3hWaDDhazVZvXiGX6+3E+7Z4DxLaG0Fp9u/JjQXnp41BQIe+D85MWX Llzs2WfG0K1J8MPn532D+U5ci6JWu/b6JBCOvom23OjAc0gi/kQKToBlPONv 87lWXDWP1+ZBwigQqV+piPJuwT0ETdvh2ggw61DL1v/cjAftxCafNBgBcHbE o/lEE258xtonhX4Y8MppnUxnqcM/BVM85OcfAEHak9sCATV4sVqcBclMH5i9 8aQ2bbUaZ65r1vcp7gXFT2tupXX+xGMS2L4O2/WA3Iaoc6oqJbhw2B0VLoYO 4L3VPIDxfsMb3fVjcynbgbYIqy9G8gVP7Srf0qFqA/UHwvcfReTioqevpRvw toDF+ASbpQR/fDy5ID9f5zfwIY2p0jh7BxT3nhz+WVQPpBJv/mJT/HeOgFcS R2TqgKFcV2mw6hugtSy6Tav3CxR1m/iHeGeDkLdfHjmsVwEGOCNUaf4RHBdm 9wn8UAke3Lo7VRlTBHK2Iif6sQqQriSpU/XpO+jx3exJ5i8HbfQzeVWNpWBw uTOfhBGCZDMF5ZuB5eCTGy45xl8KFNRi746w/gTTisAsQbsYNJ5cS76ZVgnW lvTH2sO+AQLhy8HNsl9At4KY32n47/8+xSY7qlML0sAMD21PITjd6mJt87cO 7NkN3E1zLQD1pW3Ro3caQI2jnlrjiU/AJlO+ymbzNxi5Qavp15oP9iJj1keD /4Bbllxu+n65oJ64HV0Q1gRc72rb3Df8AGxEzKtOc7YA7jZzPpnr74AMN22/ 02ALiCxu+J0b/RbsMRWvF7xrBRGTajqyExmgjtyeacWhDdhP2rMrm6SDuC1O MTnFdmAjGBaqN5wKrOdrMee9dlCJJWozML4GUiOeZoWVHWDwxerVpZBk8Kuh O0zOsAtMvw+0dySNB3YePb8sJLsB4aoAOtIaC6iF/5IHkvUAwY/nio61RIOs P39Vc/72gMLMwgaO7Shwwbv3YVvhX9B9wGJ8RPs5mBbpK9kN7wUWnpeVczye gfCWvk1hmz6AiL6JzUgPAycf9itcIvYD+/0ZVJbuCWgQH3ByZRsAR+gaKUpz g8C99oH8lNkBwGJIMjATFACCMcd1a+tBEPaJ0et9pB8wjltkc28cBGPkf1Dp iEdAdNZRLlx5CCRl6Jcp6vuATdUl/deZQ+BIZ5dMqpUnqHn5wLGQdRjEqnGW s313A/FzSxG/Hg6D4zG+6Vn6LsBOzSn37/QwqGCqC/l7wgmcTViuXzAeAdzS EwehMo6AesFpmuznCKixpAoZ674Hus6vUHNIj4IsV5dts9w7ICvRWfRk0iig +fVHXLv1FvBaXFHHqMaAcUYrneR5G3BBw8XGyHkMLEyzRTBuWQGu5FV/u4Ex IBjPKCbQeQNML7mk+VwcB5d8I65nSl4FxZpr+POv4+CWtaXc9KgpCEtx7X8j NAGeRscssm5dAeYra7vfIicAXaRbN98NQyCp7cb9e2cCmH9TW+lm1Ae7r9aV hm5Pgp4Td1bDSHRBw6qb6VrrJMjLdGcUu3oBJF/YcKPBpkAL+WqzlIAmuJfq HsuTMwVS6e2s7NXPA+L6RqHsv3MwyVFp7EuZKqDX8WhRD5wGPB2/+xqoAOhN 21w0W5wGTDo3H9zjVAG5Gx5MDldnwItzrM7WGWfAw0tbp/xrZsDd2XFKjXh5 oJvhqRMnPwv8fxZU0M3KAt6tLfvs1Fmw1qGS2iAqDeZ1vULL6OfAE/qgIgN6 SVD2Zvtdi8ccSPS4aXvNRRREbHtVj4/OAX3x2S0vPWFwXW9ndFtvHjB42zWO vxAA0pneZEw/5kFayevysuu8gLC7IyAkvgCk+R1bDxS4QJO+D3YmdgH4Z9x2 V45nB02GD/PfEhZBUf4/dhddjoBvD8vK8hUXwZtTrCzUJcwgNWv/9/d7i8Dn vswsaxk9eNKG9v1MXwSfuY4e33xPDRwPHs7+7loESPW0zqQABTCVwHc6GZeA Y2HOxlN2UoBdOaAdPr8EBl83fn0xt4+KPQZcs15LgNyObXfVbhtl/vBIfP3j EqApdFbzDl5Ht9rxs4SJJSDntHXDU2YFHSYQtGh5lsEsCykFwWgRrZPETNgM lwHhaboZW/kMWmD8+BZv6DJ42df/61bkBJroB13F8GUQdf75+dmtEdQ/hxB0 em0ZSM1LtQ9PD6L2nVgMUXIFGFznHG591YsakPplaFitAHzS0/CSVBeqfKq8 QO/lCnB372gfvd2GKrR1xJXVroANjqb9QdtmVMZ71uvk7grw+v2Maib9Nyop SHojUWoVlHtYpGidqUVFao+pUVutApZ7o421DlWogOMpUbfoVZC6zvyh4XQF evyYGt1o1Sogv460Ww6UoRxlpgv6m6uAX/r2yqRYMXrE1qEVl1gDy83sW1XC RSgjfeDXU9fWgHFRAXf49wKUtjAhKSlyDUglEYyepuejFOb5j2gq1kBH4KdS 9oJslEBSddN9dQ1ondYi4/PLRHfe9WiOiayDmpRml5SVdHRdd1HS0Gwd/AiZ IW4Pv0aX1iiYy8PXwTmgJC3akIjOJnOvSpWtg5hj5Y5Gj+LQCTXZruTFdaDb 06N9qv8FOjytUUortAHSTqRqBKREov1RV1M9rmyAefs7tq2uYWj3WafA8ZAN 4PntebEPXzDaNhBiZ1S8ATT/8LpoevmjTcEpOhWz/9a/OvXmWftDtP5UoYwM 3yaYkuaZNij0RKvbathe6W8CJ48zPmq3XNFy7/5NusBNoDUmhlY3PEBLBVd7 PYs2AWmWyv3qmH/Qr7U05ROTm4A9fEOXPMIOLXDke3uFewsUSj8afHLVBs09 phD689IWUFX5YTHXZ4m+L7vwj+zjLVAya71uPm2BvrG11H9dsAUmNlnf5x4x QV/TuykwjG2BYTMZyVxGQzSxMJzT+9g2WGwwrA96cBmNM0/bm9TeBqL69fw1 U9poFMnXIWOfbdCrVHnG/oo6+vR9Q1Vl3jYweqZglByuioZcHs46PbQNfFO8 7O63EVH/9Y1nqUd2gOTurrBV1hnUN4XBiVFjB1yY3N+zviWHepwXMvbx2AHl 8Rm9t39Jo84zZ5Wns3cAdgejuEeQQB1e6PKa9u2A/n8eKX/BTqD2Sjak1Uy7 gGI8Q9LFXAC1HfQclzu3CxpGpf2wy8dRy5DIujSXXfCuz+nBNZZj6FWpt3lM 73bBR+Epir1qVtSkvfiFb/cueN/x9GlFKCNq4NPkNkO3BzhziiviG6nRS0Lj 5mboHshNGz7mIUCOatXtoL8c90CV9W2Xz/oEVO0Bi5BCxh6Qz09usXfYRlAO UaqM9j1gr9p9bctqDVHCiTPM1PuAsVwkrVNzCZG/ZfDnofI+mKVWot0Zn0Fk GOwKZ+/tg+rnVEt1j8cRyc++L81f7wNNTg8lLYFhRMQi2rumeR+4Vhjmr0v1 IYKkWTcUyQ9ABW2vaolbJ8KTVab2RvEAwJ+S5/y6WhAOvTZR1jsHQGX7XdQy 0ogc2Ziie5x0ACyiSp7cQWoQxlcHC3O/D4De2EpFkd1PJDCddvoUgYDFf94o r6bHEVK3o702nASsuuk1+dM/3xBzy+yWb/IEzI+taX3ZoRApuABq6fUIWKeA MuPB7TyEVqENt7xLwLRvz60qVLxDrPnuFH0OJmDhDdofSsPSkWKa/RzqdALm nteLU08mI6yrLzKu/iBghqrQUdUvDrHvF0382EXANKwKxLYeRSEVNaXPyVcJ WHcNRt0vFY5wFeqHmDKRYB+X+h5JsgchTinjvjkSJJgtC3nffePHSF2ItwtB gwRLEBcfl9T2RASdmO8aWZFgJ/vQ52fDnRGvq2+t3vuQYF5cXKcaTjogLRrK prsvSTABSJYmd/42IiH7R1evkAQbxjQYtqetkABuG/U3jSTYpO+RTJ/nFkgv xZbK5hQJtnFXn0fu1BVEfvHZaR0KUuz9R69zXUAPedojKJ7KT4pp6PzoUprU QkYrv/KtqpBisgkGH7qY1RBivg67lgkpxswEBC+LIkhMwhB9shMpxhs/WCul pojMBriRLT4jxVzpLx+t25ZBzjvQbatlkWLuGoPqKf3iSLJp6uLLSlKMs4ex djRPCFk9pzAxM0CK1Xex64dO8yA6p+r6wA4p1uT5gZPsCzvy5tiNtmh2Mgwy rbENK7IguySrdROyZFjZZU+skIUWMZp9Uq5yiQzzXBYZF/1KhuR08HyLtCPD lKMVx3pq9ojk5QV5IwFkWLgN32qkxzrx6gfNt2dek2GZYXZ1lfOLxM+xvUnh xWRYwscTqrM+U0T6xw9eDLSTYf8+RJYxsRGijT1lqNwSGVZYcn9dvaqXWGqU 9CiEnhxzQKgElKPbiWxAxu2vKDl2/CZTQL9YE/GeeNU9aTVyLMgtfuDRqRpi 1RHzmwHXyTHQ9PvnZ+YKIu/+vFmnJzl2lVoxIHe9mOg2GaAnGUuOHTWa2eHj /ExsbOHQfPSRHKOTj9Eamc0livzIRVrrybH2xuUaHyyT+PDdOXnRCXIseuUY nhucSuyI6pTwJqXAQjS5tx8HxhODb5FwCClRYF/d+5MVhsOI/XpxjO5GFNi5 5XiftP4AoqKKJEX9fQrs2ix/3eoVX+I405Vlp0wK7Hd7aObdv/eJGt/fN1Qc ocTubKzyPw4wIFLR6/lZz1NiVxo56vMTjhFNRc2hIg0VtjXcSpavwELMPmdz QCtMhUk3dXWPsNAQdT09fAvNqLBsvogPf/y2VeLGUz3Jq6gwEz8V95qzfSoi 5UsPMpOosT9Ezceudakq6m7R1tNatFjM7vKNtGIBlYDBDjWnDAbsA4c1d58I s/LHpGC9h8ss2Ao7ZurbUXXmfroN86jxUWyeVKJCTH1Q/rp9Ik+IHwdWuz+S psZRKRuq76Ykl8yNuTm+afI7YSZFzhY7/mibFwuZnZQyY1GS6KwPWgxkEsCO RmkMUnbvnLjiba2Y+FMQm3wYGjRvtsZ/j25GsNFcGKPVnGBi/NjPzfehOo5y +gQmfF7lzI+Hj9m9v6kZMiWJYkKTMRMyyarMjpn3ihSlxbEfbE71BQ1UtPSk Z6ylxiSw2dkCheWov6Tq/xjFSkSfxP53v4DjO899dWGp//zC6UmUTKf0fzYI vnwqpUjmP0tYBF554yv7nzvGadKjr5z+z43WY6qsfHL/eYj83Was4KFXM+3y OUUOzTkzc1zg1KFtnJc3pFUOvR1wkHvJ5NAibzm5QiMPraT5t4k++tA6U8kh z+MO/eAU/9rLlEOXfhFpyvxwaINqueDKX4e2tVsjatUf2oP260p946FTdJWt WtsPPdmBEYdH/k+/HqQrthOHZuCuzJqaPvTpG5rHlpYOrU5C0+iydmjTjLrA zc1D26s/VfHZPfT/7Lf85/8Ham5UvQ== "]]}, Annotation[#, "Charting`Private`Tag$20771#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nc4ll/8OPDHeB4zlJGRLcoeWXnu+9xIVGZGQsOMSAjZWRklQtmyisyG IiP3bRbKTraS7PHYm1+/6/p+P77nj3Ou13Wu9/u8/3lf5/xx+K3uXrYlx+Fw ov+m/7/6T+osHxzIYbj/GRO+bGuDu4fWZRrdKN86NJ+yy97dlUPXPYqj/jVx aGrJnzzY90M/c795KTD10IVk917iFA+Nt9WU5bgm+5+Z+xqdsmNl/vPl+hTr 0y3S/9l3EXJ6+kfqP3+6n3L7jZ7kYb1xxnz7yeKYxGLAEllkLblm+mddrTlR 7AYfa0W8VA1N7hfv3nvmpzGFiMGTCpO/GK+HPmNtfy2CiVhx0Asxc7MF3KQo oWMWxq7eiXwjw/iYCyfBi6o/FMIKexRMy+cC+QYeJ4cX/hDAbjI2mQjN3j95 gtY+f1WNH3Nys5T4Iv7ptKO8KH7wBC/mpZ3EaK8+JWGtOPK6vp4Lq3j9k5pi OlFG1OvsgfNLdmzvCzSCfc89kzVs2OCtyoqpONKvaDDFKE4GsRI12Y9hePfn BnfIfitXPj+lMWVyBOvgMjgzcWFDhdp80pqMeARbzXvKRH1woGLClxvMyX8E C6zo1TFdxROXCwQx7Vl6bGeqo5w6hYV4GuNRefeAHvtk8wDvNi5DTJphkfF5 TYfp0DUez3rkQJx4060X/4QOi/whpfdV2ZV4xiPOuciNDvslV1mAyN8nth8w Fo0Q6bDnUcvmhXuhRAIrnYh6Jy1W3e5xq2Ixk2g00KxhUfbPFKMUmdm5xOyM CBuPVFrMAn5ZG6pYQiTZaIZEB9JiC7Z2fgYnPxBhUUJ2ni0tNtY8wjTfU0mM WmzAsIu0WO6MwFHq/lriwIeQ0X6pf/lsvh+5Xf6FeMpHbX+Z5V+88ejdCJ92 ogcg46bfpsEUbybLDQ33EOsoMZWTozTYBmySMpU1SGRqCTCDG2iwhoXiHzbn x4jXYyDvK/k0mA3vewbWk1PEIqPdRJdoGixHZD6FdniRuM1RVRZ5jwYzPxU0 dRK3RtQa9f6Rbfov/trvZ765O8SEl0qrVRANZnirfCBWkhwad9g49kOABgtf tqU1GaOCZKXKZBaoaDDyq9E8JSaMUOCquz7VPDWmvnPjzrlIFqitQu4uXxc1 VqXw1kFtjBPierD8RLmcGjOkKy9+Hs8P2Z97V3Q5jRqTMztyrm9VGCqjcWl1 DPrnWj6en8sSEGW75EyoHTWm6IdqaYTIQZefzVO/uESNxbhy1TXZKkOZV4tE yqWpsY7L933cghFogcfxfAcrNdYYwY66umhAxPHTttPbVFimblH/sfZL0KP8 qRDyX1QYxuN5u4niMtTnnJfN1UiFlQ5m35HVvwIJn7GrPVNAhbm0ePO9E7gO uW8J/dKJocKyDmIobrlbQ7U1f/bt3Kkwoa0nbrTHHSCG0GzuwKtUGFntiDPl aRfI4oIlMRmmwnTVPMbYW92hAgY+8/eCVNiYonzb1QofaLN7xLuVmgq76x7C dE4kCDqfnJ40Pk/AjjY59TXuP4SeXbco3+siYBvW35L7xaKgMUGuXrZPBKw3 +dEDfnwcJD3dvyqVTsDElk/pjBESIXeSxOnjoQRMauC+qdRMGvRpI+ja/m0C Zp79w/CbQDa0u/8j9q8BAXvsyPdIqzIXUiWINn1TImAGTCw6bO5FUNiRgO1S XgLWnhi+jG99B7WwdEmmEggYGVVuoKhKGcRwQtg6eB6Psfvdao1Hq6DLgj6J Dj14LDpX/GKXdi2UINrWql+Fxxqw2tPjUY3QoIwATikbj61vvgq162yB+JQ9 z/BG4rGrogM+/oUdkA3SYk9wwWNisI3RTmkP9FqTJ33eBI/txSfvvH3TD83p unX2QHjMiy+SV6d3FJI2acJXC+ExJX6Dz/Mf/0Ae1zjP5tDhsQ5aPtMyyymo 0sbZ+dEyJWbVpRRykn8B2nesy3btp8TKOfbJ1pOWIbV7bD9NMUqMlRB44sni OhTmc5sOyaPEChaORqyr7kItQTVAJJoSm+dx/9NiTQYzRh5zZ/CgxL6Hmyt8 s8TDRk/tXq+ZU2LhbY3bb9Vp4aTEyqEhtX9Nt5kbaMHNBA+9YDjacJoSO5qx T6VYywzz5VppFDJRYqZ+i8fNZdhhm+Iy77gNCsxr3AsSTuaG8z/QlniPUGCh qhy9TmwC8ELV9bGbjRRYjcTb5GJWYVi2/j2bVhEFtmBnFXWSJAp7thAuScVT YEJZa5EZDtJwZafZAzYfCuxXi6pX1bYcvN9XUrp3kwJr71JZpNdWgtV+kU+N a1JgtNwJ+/mhEBw2aXLimyQFNvDhC+PraVW4daFAv5SVAlt81cw7U64BM63v h6bskmNvSqmsb+tehI32LlcE/SHHaF9F2g316MFJlHnz9i3kmJ9Eq7UaZAgP 0e3w678jxx5fXj//XeUKzMesZ6KYRI799CIjuVFZwLacOY94HpBj9tMeEdN/ bsIF/Bs1eDtybOt2RNOysQ28cOrSypw2OUbTIpeR42EPy0pniPTIkWOXLVZ0 R63vwJ6KK+ZVnORYSuyeFpbjClfCmk+zycgxFonAX9IiHvCBRmpD5BQZFupU wax1xRs+p7O46dJOhpHTv0zpMwyAI4zUJUzLyDBP5d+ap/iD4W/miZYgnQzL /FM8bpT3EGaynn0uHEqGvZhWZUZ6I2Gj26DliCMZ9ngtsvT0t2g42TV+f9WA DDsm9L0CNomDR7wmZYeUyDCC906qUcdzWCBQ5VY9Lxn2jVyO6dFcMmwXHpNa QCDDyKKsLbm/vIALov+0x87jsLS7nPf8kWx44bkipXcPDuuUTVQiZr6C5dIf K92swmGoK4mFLTkf9no56qSZjcN2Xu2DpXMlcHWhXJZkJA7r5pzunf/1DsaV hv9gdcFhjzX4Wo05PsLnKgdp9kxwGIfzcdXB0U9wScEr5S8qOCyva+JhSOln mD31rkMsHw5jk9QQFSirhYMfKyeb43EYdiBvTeRohHs3CHGXeg5QqXsR3Emc zXBBX8rSaPoBekr5BJL24zscUCFp4H7rAI3Vy/dl/tgJX06pe0stc4Bat/Y+ T9/vgU/6mjClb++jXJIuNH+G+uBN85m7Mg376AWVzlnUfhj+Rgxob3yyj77O Fc/3ufEbzuQ+JmV2ZR99JuY2bxE4Drvvv4pe4NtHxai9UyVFp2CtUeWF4Jk9 1LfJ0gN3bw7mwr7rHP+wh4qyZ5/mrCTBC5mWxYX+eyhX7aK896sVuC5ojR7R 3EPLZqniTeg34ASrSKcepj20ocrhwQDZDuygzv3NfmAXlec5wb6YegAThd6J 7eXsotUB/d5t3uSACa/xOPbOLhpthsIVcXgw/rdv5qTiLnpx8POTnVM04FOT 08VK3C6q+3EtnVXvCIjKwxXotuygJ8WDXuCPHAU3Ip7R/InfQT3o58/3dzAD WYdTDvev7aCcNlIxD3HHAeFi9Vc6kR20iec6hV4hJxgQ1T+VSdpGaa4IT94b 4wEldOPhZyq30ZsZ7gqlQ/wgeO7+5NeQbfQJKeYSIUcIGH+n07yms43yDbqx hXSIgFMlGblLbNtoPyErYddNDOxGyxHCfm2hJDPHxOVkKdBx94stZ8EW2ptR HnZDTBbk6Js3ltzbQhMt3hRZj5wBnjKLQurQFuplUtDdR1IEF4+FhP4kbKHk LA/0251VAM8K27hjxya6n5HSXWoLwHJ3gTouZRP9lKfjqrSsCpo+wDnPrDfR KzbHrJv9z4Hk513kpyU20XmxVFz5dU3g5Gln9Xl9A13aNpAVyrgIkCvbtQbY Bip1hv6W2kVdwKIUzT8RuYHCjFG3zigYgCl2gSAfww30W72Ub0KkIaje+viL gXsDZaHVulEjbAJiBi4gORPraHR/1uAQ61VgVTWcofh2HeWusJ2cuWEBFNJc D1q911F+pUwjC6qbgNYff+Om+jqq128SFcBmBYavJdes0q+jw9c+c8lZ24C3 sARPZO8aOn6Kfq5nxQ6E8tb6c2euoe61eq6X2h2AKc54+J3DGirXWhvCvOcE xH9PEc/LraGJMyuyL9VcAK7OL21gdxVduf/Lw0TJDXRnM+06N62iPym/mJnZ uIPckJfmFE9X0f3B++VNrZ7Ax0apKvHqKuoTmIRjcfcGuhrfOMUFV9Hk5K4u Pms/ICB80webW0FHzYMsFTIegHXCar9R2Qr6+8XrG2GJQaB5Mlx5+sEK+h4v 4DMZFQLSvnIl+19YQTdXGx1iSh8Cl/w3m0eZV1COITPVKMYIIM3gHKL2axmV ttqyunX/EVhyE2e4V7yMinysD5NhfQLe/5xJyvFZRsUIMjFtczHAjZgv2KO5 jD7tTweiQbFALutWCSXrMupnmULCS8SDVbywsvzYElpxnHFLcfcZ8GjP1k3w W0LDDsbHmBmSgcIZy/6mC0so28qF3DLjVLCexGuzwbaE/qT7/CazJR2U7Q0v iIyTUPefItcbFTPBfas0b9N3JJRDrl8oOycLKH0xo4wMIKH3b5uqXxXNAZti HDEVl0ioxQY+/Nb3l2BlRuyC/LdFVCS3U6zQ+TVw//D6eoLdIroRHTePdykA 6/4n3Tdwi2j4gV8Q7lkRuK+ZHWmauvCv/6SJ0FAJ2GTizaiQX0BfnZeRlXn1 FngPpH7g7JhHf1dZmtOT3oHtHPYW39vz6IKl7HioXinYVTi2BmXMoU+urR15 oVcG/HExtBnKc+h7tkuyY0vlYL+Zjg/XM4vaTLIWURdVALJr+Et11LOorg7/ FrvjZxAsHHxTMGcGDc58YhzkigJK0r5HKDSDuoidvGjdjAFCyGbmebdptP5m LbcaSz0I1/Yoy6OfRhlCFyiO6zUAarblVuq8KXSpGm/0KKkR0ObPrrcMTqIj ctU5kqZfwWM3e3pxz0n08ZX4M1VtzYCe+Jf/CdMk6ni5fSDVqBUwto9o62lM oLREjuCs6DbwNMnc6u3oX5S9k3bAjr8DHLPqu3/U5y/6ZFYzUIKiE7CsdWZ3 l4yjzC3Vy1HDXYCdq3HzCvsf1Aw8ET030wuSx1UZKt6PoTQq9WVV+z8BZ0mN IKfOGGo4JG+YzdEPuFU/6Q4F/Uav5cRth1gOAvU2kwu1vaMoM8nTP+X4L2Bi J5jV5dePTtxKZNcT/Qseud6LiPvYh1JtB3ZytPwFn/3q715e+ImaumaxLNtP AKF4a7jrRi+6oKyxZp89CZbRnMFOtW40r4Sn98H2NBBuXamL9e1Ca1XVqn5E zICrveoFBh860fRmvt2bzLMAm/vj1XmyA71+10r9DdccmFq8hQl8bkNZvY4v 1SbNAT0CdUy25He0lO07XQHTPOCR0xLPPtqCRq2frHu/OA8eXpja5g/5irKp QVSKJgtg7kZEc9ZqE2oyfK3OtGwBGHqeSuK3a0Sd3olPdzEugsqor3ZZP+tR 63mLtzZWi4A/x16e/0IdupD5rb+zeBFEVFBTZlViaH/2x72xpUUwkmHwStW0 BuWXUZmUPU4Cxd9i1VRVqtAiXVCYIEMCvludowjPJ3Q/f/s4jRYJXBA+5o+Q fUS/Ng+aeZuRwHHDy5zI+Ds0zrE4od+eBFoPhO4+iC5Gt5pXV3nukYD91Vf5 AUZ56NOH0aWq3iRAWXpy3J8zCzVUc5OEfEkA4dCGtrHn6GbT47+M//ZJSck2 S8nBaK5ORkCVGwn4kT9rPK/kAKzfyNef+5dfMsX6C4tCDOhmeZZSepUERjje LdAxpoGC9uaDY5okYCjXVx2m+hLo/v674iJNAmX9V4LDfQsAh5OT0wgrCRzB ZgUbzN4C9xfGfiMLiwDEF4Y13C8FMT08NO4Fi8DVznG64VkZcBu9Qff2+iLI VhbTbnxXAU7evSbcQrcIeuhnSxrbqsGiukPH/rsFkHZV/qx1aC14a1hGj83M A3n1545/jtWDyp6DvQH/edAmvpZmndUAnjkJxYvTzQMc7uOBdc0XIPvsI7GM dQ4kT7PIjGs3g/wGJ8uE+Fkg2+1uZTPYAm7blj7epZ8FNrlnGm02v4NY0yNf sJVpYCNs1ijL0QWcG/6ePZU6Cb58638kZ9gHAMc9ofbMMWDvNfDFXKwfaH7W U/6w8htQCw1ShlIMAB2DhrUazd/gou9QQE/pIDjGTc15aXoUfDs96ubBMgpS Avm4onsGgNOP0Tfpc6PgTcyEM9OLfhCGuKxbWf0CvHS8LabOfUBkzkXu8dnf wDWl6upboV5gr+5WPDgzBoT+bP+xIHUCpeTl1kWTPyDqMmsc2OwA1ItuMxT1 f8Ci6YfvjdQdID/lnoh46jg45dxBmg3/BnxIKxoI1V/gvlURpDfcAi6ed7cx uvcXjJKNXec61wxmltyz/C5NABspbcRBowlUaq6hT8snwNb58+uRow3gUbrH yEvBScAtamF6+VE9ELvgyfV9ZxI4Gj/wzWSqBbsv1pV/35oCN7qqOyZ6UfBt 1dN0rXsKaAV9jmcp/AycMu8/5y6aBmydb3VeFlYA4vpGqQz7DGAQTlBR6S0H 9NpeXRqhM+CpH43rF64yMJS1SbpKmgEyln6oge8HULzhxehsMQuiiEcqR1be gwCdLYngr7Pgt3y3kEvoO6Cb462dcGYOxI+uaxPE34IFXZ/IGvp5kCWhoxbq VQhqXm7ndXnNA7kfp2p+auSD6G2fponxeXBX7zvdBeU8cF1/Z3xbfwEo+P39 M6v/Ckjl+lIwfl4ADTRX1IYf5QDc7g6/4OlF8N1cqPnc3yzQYeCHKD5fBHvW P9eNr2eCTwE1NW8USMDhlqspzaVUkJm//73CiQSEurKVU34lgYgeeLg+mwQa vMvfiucmAJeDgLnvfSTQkeUYUZ70DJiKojs/GZbASr+PkcHHOIAYH9COnVsC Pce/DklvPQWnAgHnnM8SCO28kW1WHw2YCh+cXn+7BIqf+D/363sMtn6gSrjJ JZAfswptiEeCMRxOi5Z7GTjvFTOfrQ4DLWLIFRbDZSAh/cZ2JSgUvDcJtOOJ XAadAmaCjD7BICUI8ziFLv+7d2nufMwMBMFFuIeya8ugUItmKnbcH9z+iTwj iq0AkeBcq5ZeH3CZPCjnvOUK+CaArH066gXOStS+109cASavnm44xngA+Z7e hJrmFdCUx69nfvcekPad8xHfXQEXCy6q2AS6AjEB8hspkqvgbBE1lZT/XSDc fFyd2nIVyCTlZcdpOwF+FwkRz/hV8ONVDMMJewdw4rg63XjjKhC/GCXv3GwH 2GtMFw02V4HhGYqZjNs2gNnWuRsVXQN3FqY+y5+3Agz0oeUS19aADS50g+vK v/dhaXJqaswakBpGDVRlrgG82ZsHNHVrQL14aXiQ3gzgyBqt76+ugX6bigpq 5StgJ29A86/wOnhdGCTuWGIE1nVJYoZX14GE33sl2O4yWFrDM9U+Xgeq9Yov Lprpg7k0rlXJmvV/5x6Nq6TRAZPqMn1ppHVgWvvY3K/2AhibOV9NK7gBUo8I iel1nQcjsRaZXsYbwOtE/XtfuXOgX8ktdCJ8A5jFhbMzDquCntFwe6PKDaC1 WaeTFANAR1i6dt3cBniI08k/O6ACWiVKpaV5N4GYGK0qY7QSaOr5yvLCYBO0 MH52J2bKg1rfkU260E1A4VowNU+QA9UCq0PeZZvAVTRiGq6QBuXNNLWTU5vg l5xTuPZ1CfDehfeVMdcW4AzY322qOw2Kj8tH1utsAflCxZ8DccLgdc3FOzKB W6BrpWitvk4QvLS9aZDxfgsYLR4LWdDkBxn0nvJH/m6BE6phCWUyPCCl9DGH 7/FtoL3+9i69GSdIMMvam7qwDaLY3+emb7GBWLLy3yZ+2+CT9Y5dIzkLiHr9 rbGhZBukJ/ZfMXQ4CsL1xvJlf28Dx+SokrZzDCB4feNJJvMOOI0KZGVq0QL/ 9CNuDOd3gJnRicXBbwTgdU7QxM9rB9QFhtuJ1lGAe7NKZ2cKdsDBK1a6BU4y 4Byny2M6vAN2L+ztCSfswbeVbcibGHdByk3UqDNmC7b95T0hp7YLgmlmny8w rsM3w2Nastx3gQGtuEITfgW2kHxVwpi3C9yXH4QnWJHgKz8q4/z7d4FKZt2F Ktk5+LJfh+cs3R5gOpqO6UFTsI7ghNlVeA+oVwLnpo5xWKtlB/7isgdgz8H3 zoO/YXXXo4LyOXtAauWPXXjqCAyzi1Dl/NgDSkJGEaZnBmBllDjLRL0Pzv8g 6YY49MJn7C63B5zdBzOuw6tKwt2w9BH70jmnffCzx9Ze17QDFvvgn2iWsQ/G greLe0dbYWHzeN+vnfvAV/d6aGjNF1iAPP+GAuUBSPw0ZJt1pgHmzq9Rf6lw AO6KWzroSNTC7Po9IsccDgBLMLdxt/hnmHljmi4w9QA0CZB+P8A+wQwvDhbn vx8A0ZJsP4ftD3BoNu2MBA6HpAVVqOPr38HknqxDNhw4xO7dQ8kNuhLY7GZB 16czOCR071LxUep8+P1F0Eyvj0OaoOgCwZ6XMK18D3rTEYdQ9hR+S9LLgq14 Hco+hOGQ7pjA9ief0+BKmv0i6mwcskjMeeDSkwgfW43LsfiMQzxbyr25q+Ph 2yMiKW/7cIhZC8f7rctP4bqv1U8pV3HIYGFKm8bWI5iz1CDclJEMKcx5Iaqv Fga7pU/4F4mSIWFd3cXVpsFwS7ivO+48GaJ8rSlIWT4AFnBjcjSyJEOqYlVn hnq9YB+LV5av/ciQ9IFY9Sd27nDX+bOmu4lkSJOqv4B8tQssKtOuq19KhuSf j1WLd3KEQ7hsNF62kSGyfL+FH7rawUP4LZXNaTKENumrloepFXyG9ERWG0+O /OnLvN+0eg2OGhA4nclHjkwcaLq8uWMKjzeU866qkCOfInnjCv4awsQ32mxa V8gRm1kCOiGlDz9L/k2f5kaOyKVr1nroXoTnQjwpSE/IEVWtudK6qxrwOWe6 bfV8cqRQmFTepqsKp5lmkhIbyBH7g8HnfFREeFVNfnJ2lBz50J8Z+rFAAdaW aBkGO+TIFeMfV1X0ZOGXx2/0xLNRIMyrLhvWjyXgXbLVlkkZCmQ+1zxkvU0E NpqLqFXRoUDEjTc8v58WhIt6uT/F2FMgvqE4dVI7D0xZ+77kTwgFos1gqTz5 mR22KNR8pZhBgXizj8rj+pjhD8+HUh9XUiBnNo637bUwwvSBrnGjPygQs501 WnUXGtjmNiFSbokCyeZZSvQ1ooSrjVIfhNNTIoE54lS2Z3EwC5D2HBShRDzu 7Aj4/9qCnE43OkmpUyL9mKuAWeoq1MhsZh1ynRJpiiM17luTIJ79has/vSmR ZsnAYRq6GchzKkRf7DklYuLYUm5RMA61dbFrPnhLifDLmeRv3fwFCX8uhrpb /+W78dEueqEfCshTOyMySYlwHssaoQ7qgXpjf4r6kuORcwzkV5xlOiBJPyf+ dm48wlm3eXTlcTMUZkfGLqiMR6K6fKA3fA3QiH4Cw30jPPKxziyqphiFFFTE 8K138Qh/YwrDlYlPUPRJbIfnMR65+Nq842pUKTTBaLzslotHIrZWqrVel0Dw 9vRUUy0e2b/70WqC/DWUMB4wyjmMR56cFj6V8zUbWmhj7nXexCN9nKuER2bp 0PmK19/qmAlIDQev6vOpBOhFDlTPJkVA+D6zl3gPxkLrT7oqbl8kIDD/jYyw tseQrtettzW2BOSGEPP7xoyHUK7Vbu6xIAJiH4C70N0aCO1rx6bbpRGQsWD0 4SdGH8hEUfhZZTkBeb0wtjws4w6V8Fc9YugmINeoeP2K1e5CVPT6QVYLBMSr VikrWNQeMhUxwxRoqBDCSJprAGoFFajZHNAKUSH5xs/abzJcg3avOcOjMBXC POhdH+hvAul6e/mXXqVCAqZF7K9ZG0CZz4Krw92pkKJAU165wYvQ8puoHfMY KmTG74mDWfk56FxrwlnpAirE9gXPqNUcgBImMr0pG6kQrpDs5zGxStAUWeGn vlEqJHxNwWlnTBY6y/1xo2ibCvl49EUEJ5kEFKWEKgSxUiNs5L0zQ7AwNGLY 7GEsTY08uSX+sJOWH5K+2/3h9CVqBLZQrqJl5YSCHw2v7NlSI4MfBxXjFpmh nleTsl2B1EjkAcFkxIUBEq5dcs1NpUZqrwam/VCggryGdt76lFEjS+SDFp0l ZFDLBp6k20mNMFXddgyZ2iaeYGaSEpyjRm59cvATv7dKdJbkdN4g0CDJP6SX FekXidgFoeJWfhokm6jvVPloknjMVnIug0iDhFkyTET0/CbaBCqJuV+hQSyO a3Fe2B4glqWq3dZyo0HuZQ3c/mzVQ6Qu184/8YQGKZIs5DrW1EY06zKZIuXR IGK/1l54yn0hFs3fFGmso0HCzcLWv3jVEvepHe2Sh2mQFv2u+QGtSqK+kMer O5s0CE1G7MhrtJSYDR6MqzLTIjedI5LMXhYTV80iBdkkaZE8nmdOt5RyiRqe 8VYzWrRIRJqAjFZOJjEhNj2rxpoWedks6s/9J4k4VZT3Ky6AFnljBgpjE+OI UX+qrqt8oEVaPapMjEtCiT3642ZRvHRIE7dneCTkQLQRkzeUXKdDRmpfUoi2 yhBDfvWqu+UcQcwmj5Zcs61WGam4dMer+ggSfaJ3QHLhg8rZeCwh4McRhMG2 LY+5u0SFpFEw/YiKAcHZnidbz89UuV7oH5PjyID86H/c1whCVM56Cg32yDEi 2R28WXF+WipbeOUKLismJP/kdFr2tY6zb1PD9AOWjyKyEzzlv862Kt/NtmEa N2FFQB/zF60cDcXrt1O4w4PYkSDB4aPthuFnIg08leXSuBCHk7c+NVt5y1Cy PJ94sM2DLL3kkQgYxCR+tj4khTLyI/VVK8EpR8ZPG/taKaTUCyCkRtTsftqF k050swJtZkLImQsEXL19Eh9vYVMCYeYkEsnSZmmskMXl+0ndkDFVBDmXwu8a zdnN6pLrVKYgdRoZvBRwT2mXkomeXNFK8q8octb1mrLMdz0ajTtGz0XjxZHM Il29DsqL5OwV3Hc1hCSR//0fEOcWESv9U+o/Xw7Tk0gvk/7Pouahxi/9Zf5z 7wRNdryx7H9us/qreoxX7j//pszbfC5w6NVc+zccwofmmJ09wS9xaJt7yxtS KofeDjko1rlyaOFXHJyRMYdW1hzsoI8/tPZ0WvjThEO7SvCtJaYfuvqjcEdu 4aEvN8mFNXw5tK39GlGr9dBetOUrrW2HTtc9a9n949BTvQhx7M//qdeLfMV2 8tBHuBryp2cOLXtD8/jS0qE1yGja3NcObZrTErq5eejbGlEqfruH/p//KP/5 /wFCahpD "]]}, Annotation[#, "Charting`Private`Tag$20771#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nk0VV/YOPDrutdMSiSziMwZynTP2QeJMoRkjMwpkoTMJQqpzMqUMSFF lDnnyFAhSsaMIbNruoaMv35rve/Xu/949vqsZ+1nPX/stfb+4xG0u2nkiMfh cNL/wv/fAyf1lvf25DHc/6wJf47V/u1967MOr5f/3beAsvvOzZV9f3oUSzcy sW866R4+7Nu+4z1tdO6l7Ps11e0cnOK+iY5acket5P4zW2+ja1aM7H82qk+2 F2s++Z/9FyDX6DGZ/1xxJ/l60QXp/X5jLwnsJkliCYt01qFTd/BaaR/1tefE MRf83nW/Kh/63M++3bctxbB+MYFPF9wzDliHxrO354liKahnoTLdb/YgG+q3 jGwi2CmMnPRg0IgbJ8WPajwQxpAcX/LnXR2BX5FJYa+7jmFPxzpHc79rHedh cM6nqAtiG1S0fnIZj8VcTokT+3n4Mb8kxflwkzope8WhvPp6bkyacpWR+6mn rLiPyp5bDidmEKamwKQbppA5eLHBV40dy7li4esldFtxMpidpMV5CHMpGkhn XP+iXJVwQnPKhBl7n5ukXf16XJXOctKeisSMVSlAPg/851RNBHLvcwkyYyMb xI9o0orqcoEQpjvLhNkZXeDnuYcniWF8qu/uMmH1T82iHqoJkJ7PHJb1y2PE NuxSBPoxU9JE0c8LcU8YMZmmvXragzYkBa9Yt0IPRoy3S20144MjqX3vQOEQ iRHTVoj8xoXdJtGwM4pq/GDAUlaoG234o0nGv75qXi5jwAI4Q7fPpSaQstLD HbxSGDCl0FdDY+RUEixOk/XKkQHTr35Vk9STT3q80IBh5xmwoNZavB30jvTr fchwnwwD9mLkrmXF3zLSCT/13eXDDBi8FSAXnVBL8gJUvEyb9Njh1ydfwpca SJ8ImOrxYXqMTYVTUoiqhcTaHGQBN9Bjt/vEN1ynf5CsoyBf03x6rI2xxJ9S 3UMqNN5+5v6UHluTkHlXc22YtHm0uiziNj126tFNupz6cZL2sG9Xlhk9ljPP c++MyywpMUeJUg39O68dncnHvkwav7Z+qOsYPXYw5WtqYcc6SU6mTJZMS49l Kx34HGK+R7pH8TSgnafDJgm8rkHJBKitUv6mQAcd1rx8AdlhYoS47y4/US6n wxJ8JUqwmoOQ85l3hUapdNga97TssuoRqIzevcUlmA4LI/u9OOvEBxHapWdC negwV+ctgt6gEGQUP0/3QocOQ3Rx7/XIYlCGeaFo+Uk6jEq6brBt8iRE5nM5 +52dDmOgN9a/SzgNkcbFHKc3aTGD2IpH/jkk6FH+VAh+hBYLLkPxUynqUK/b qyzuRlpMwmDjzxFRbUhEwalOoYAWI/9ip+m+cAHy/Cs8ohdFixk1Y16LmsZQ Xe3YrpPnv3pf0/y7lSwgltAs3nvmtNgtZcnKC4s20OVztqQkmBYr+j1d093v CBWwCFiWCNFiu6RRnSlJV2jj55BvCx0txpmgnXFeyAM6m5T2fHyeBtMPykw3 vXgHire+XL7TQYMp2V+Uc14LhEaFuLs5Kmgw88ctT1uUQqCT030UmTQarPqK id31rHDIc1FK7EgoDZY9RRF9RIiCKtaDrXav02DnOX5IM92Pg7Z3u2L+GNJg etSGMuEhzyE1GvGmViUaTE4tjH+18QX0kDlos5SfBqNhfaXfqZMNNR/ukE6h ocF+2xYqfZXMg1h4ROzvzxMx86zfpvVqbyEjIb9n1zqJ2KjBj/NXZkqgRPG2 FoNqIlZa9bQlKKMc6pc9hlPKImINNwL6ff0/QgLK3gr8EURsXnXmtbrNJ8gB aXamcSdix89bpF4ebYLytPjS5k2ImBZjR4OuTys0p+/xoxMiYumXdEM43/2A Tpo0EWuEiZh3W5zyhfUuyMuKSyWbkYgtq9wU/wP3Q1UObm6PlgnYiWUqX9Pf I9Cuy6esW30E7Kr545+af8Yh9dscPWYYAbOr6bzM2TMNPfS7zoi8ImBMREfy mbkFqDm4Fog+JWA/NyqTlktWoAMRhzxZvAgYMC5ujj+3ARlHO+WtWhIwvVHD pOMzO9DzZ1UDA+oEbOlSjsODq3h44AXLwQYxAvbiralpRDoNLJBrp/malYB9 +NZZvPeZEXZ4U+Ybu06N3XoFxzowHITz3zO89R2ixpRlFJl0Rw/D5GrrUZtG aszGYeHF05ijsFx9CYd2ITV2yK2/vl2TH/ZuptGRiaPGdOwPdxC4heCqHxZ3 OfyosavcRvOyRqLwbu/b0h0bamxUfueBrLskrD6CnxrXosZ4d0WNbYxk4YeT Jjyt0tRY4Ah3RPThU3ALucCglJ0ai4KpyasZyjDr2m5o8jYeu6u4/DVVAMDG O0aVwWN4jLPoQ4HOqDr8nPBq3rkZjwVxvbdBx87CA4xbggbv8NgFdsuo1HId WIDtgoniczyW9hS3Wl9vADtyZT/iu4vHmrSsGCPUjeECwfVaohMe23Mgu8Z7 mcHkEzorc7p4LHTiC9f4XStY7mS6aKc8HovtFQgMbLSFvRVXLKu58FhKDc8c wcERroK1orOo8NgJVk39lxXX4D3NlIaIKSqMuW+vs/mPG3xGb2HDvZ0KY30c 8pLlkQccbqwhZVZGhS3UtL39quwNt1o+swVpVBhCV+Fi/sIPZrWfTRAJpcIq cDsm+L67sPF10MzsQoXdy+qVvkUXAifditulGFJhnkmUB6uVD+Ehn0m5ASUq TK3eJZqKJxI+dk/1aj0/FeZlu23MLhoNO4VFpRTQUGFmWgfL36vEwQVPx9pj 5nGYW3Tx+YChRJicoEjw7cRhWppR3wskUmD5tEglm2ocxjU9TPzFnwH75Ay7 amXhsAytLnEvvmy45rV8pnQEDmOpsErMeJkL40rDutjdcZhVvsTBxNYC+ExV P/2Oyb+8lt+W/tsi+G3BS+XPqjhs119q5spGCcyZcvNajAAOY+MYCTzwrgy+ H6mcZEnEYSK2H4e8earh7nWaWJ3OPfTuCcFMkhQGF/QmLw2n7aGjjJHvJbXr 4aBKaUPPq3toY3CXwldKE2yU/KmYTnYP/RKN7l7VbYGP+5uwpm3uomobKanq p7/DG5YzN2UbdlHauWtlJao/4VZSUHvjk13U21tQ+GpzN5zBe0jGwnQX9aAE 33b9+wv23H35lCywi5pK6Vi7jw3D2sPK5PszO2jDB+vcnJ+jMDf2Te/I+x1U Rl1yQkthAiZn2L55HbiDPqxnoBc5MQN/Cl5lQrR2UBdd0vRAExlOtItw7WTd QSPwLKSv7MvwNQ3eVudf2yhKs+xWobIKk4TfSexkb6Pl50vInOMbMCtRMzLm xjYqVRQUaSWyA4//6Z05rriNMtv3KN9mogIVTa7nq3Db6I40cJedpQaPX+EK 9Ju30CbLIlw6TAuuhMfTj8VtoenRL3iYOBmB3LUT1+5YbaHk8s/TIpEHAM35 mi+Molvo2ogNl5DpIfBL3OBExuImWtwdwWqtxw7eMo6HKVRtoo8csz49L+ME 9+fuTH4J2UQZznBfImbzgEvfGLWs9DbRX7BVpFesADjxNj13iWMTTdsIKL11 QghsP5WneTjyF8X/diGx8IuA7zc/O3IV/EVj6SSlDUPEQLaBZePb23/Rat9i qx57KeAtuyCsAf1FV6MOke9OnQTnD4WE9tD8RWeljZ89cZMHfCsc4y7fN9DL 3dvqF/RPg+WfBRq45A0U+xGQKBWnDJrew9nx9hto6t8G2cFzEEhK6MCLSW2g BiHG3gBDgKu3k93HtXW02fAMbCukARDTzTpDbB0F781aiT2a4LDSU8GJiHW0 dL6ht3VcG0xxHgv2u7iOurF1Hjc31QU1fz+MsPCuo4Q6nhB5XgMQ9esckj2x hjpo3hLw0DMCdtWD6YrFa+jzXb2C0HpjcDr11l6L7xranvOYWSXMFDAEEq/Y aKyh4YxjY4KZFmDQKqmWwrSGjvFm8qZwWYNiWIovonsVVVrlzVvatQGh/HWB vBmrqNCFDQM2CXtghrs0+O7aKkrpkxf+8swRSP6eIp2VX0WdeTub3ug4A9yn gNRf2xR0sob8clnPBfzMYt12a6KgXz6WT1jnuoHckBxL6mgKyttLrn0rfQv4 OShVPzOnoCW2XcV4+DbQ12zlkhSioOF2ug4HH3qBYyI2ftjcCto+zy4nwOQD 1mgofcZlK6jZu1313i4/8HUyTHn67goak+HJrDMdCFK/cCcFnltBT/HGm/vn 3gPu+UUbB9lWUGp6s6N/Qu6DkyxuIeojy2gnw+cFVddQsOQhyXL7zT+LMu9s 3HsISnpmnmf7LaP4pvzggMZw4EHKF+rUWkafDGh/M4EigXzm1bcE9mW0iXr9 xLm5J4BCFFE+NbqEbskVnxdyiQZe7Vn6iQFLKJ/Kpgh7WRw4rWDb13RuCdW7 GBbqG50A1p7zO6xzLKHfBf89VzHPQNnOIFl0fBHlzhxMXapKAnfsUn3N3i2i hZ8KRZhZU4HSZwtCRNAi+jckvQ6JewE2JI5GVeosorfaHFlzszPAyozEuVOt CygU58FYmJsNPN/nWSc6LaCeE7/bMo1egrXA457ruAXUVnt+aY7nFbijlRVh lkJG5XKUKvlo88EGK3965SkyemAwrbz90Gvg+yvlPdf3eTTnZn7BC7U3YDOb s9n/+jzKG/7utExCEdg+fWgVSp9DZ+hkepLMSkAgLoohXXkO7XKZ4AysLQW7 XxkFcJ2zKOdvT5pDKh8AlRVR5xPdLFpY5+LxzKsC3Be5byOUPYPy2KZbCSlW AcLirlcoNIOeXUDjEw7WAJqQjYyzHtPoDXMJzX/feBCm61X2imkadTnRXtjH VwfoOJZb6F5Noe0aYxt+ap8AQ/7sWnP/JNrw8bdF8LsGEOnhzCTpPYmSX3ph N/YaARPpj+AT1km0+TisqHH5MzjQPqR7QXMC5dnse2at0Qyin1vaFQ//QWNF Yo5MfmsBh+x67xz0+4N6zBvZDlz9Bg6v/sj6+XYcPWUulsrk+B1wcjdumHKO ocArZKH4WCdIGldjqSwZRQl5MdUxwl2A622tEJfeKBq2d8XhgVQ34FWr0B8I /o1izDc+Nl7sBRptJufquofR54Jxz9HpAWDiJJTZEdCHflxw5PZzHwOPbt0O j/3Qi5p3qnmIHBwHHwPqbxqRe9DJCkfyl3fjQDjOHu640o2KwzPR2Ut/wDKa 3f9D/SeqwiREELWbAiItK59i/DtQKV92Mda/U8C8W6PA8P0P1Ogk+YbEk2mA zY35/Dj+Hb2Ze6Qh7PUM4JPXlsw62Iy2jFfCs2Vz4MG5qU3BkC8oM/XBbX+p eTB3JfxrJqUJPQLIt/1fzIOL3ieeCzo1ooEqCjnJ9GRQ9fiLU2ZPPbrRVDH4 xI0MBLOdTwme+4R+LpbmZf5GBuGVdITMKgyt90q16RReAEPphi/VzGpRZpmO jWyvBfCmNUZdTbUaPaRp0o2gC8D/749hhK8CtQzKdq7CLYJzIocCEaoP6BDc 70XLtwiOXDTiQsbfod6faT/fUlwELXvCN+8+fYNSbjyxntBdBM7mL/ODjF+h VpHZwpesFwGh9Ph4IFcmStPivlXssgiQo7rQJpaAQo8D2hc8F8Hi8ySHpaT7 6OVAsxwGv0UQgI9vPKt0DVBJuKbt/LN0sv3nw6ejwDnCT/yXO4tg6Og7MuOB VECEz6i7ui+Ci/K9NQ/VcsDAFn5uwWERlPWZ3g/zLwAKIgOvLS8tAmZsVqjB ohic1obharVFAOJeP2y4UwoO5wfZ8oovgltOLtMN8WXg+j3H+jiWRZClLKHb +K4SBMlodDsOLYBOptm3jW01IDQ/Dgg/XwA0IwUHm2ZR8HhV9lni+QWQan5K xT60DhQ3iFesrpLBKY0El7FD9eBDWxl8N5kM2iRXU+0zG4D1m0jIS4kMcLgP e/a1n0F7s6V1ve08SJo+LDuu+xVAt504SufngNxPTzuH/mbgBsYwyHMOOOQq NDpsfAN0St+ZPD1mgYOIRaPc0Q5Qsj5iSANNg8+tfY/k/93rpNDoTn+LceDs 8+uzpUQfuPmosUS0cAzQCfcTQql/gVbukEfUu6PgvP9AUGdpP1DYtqB0Z/8G rWLDHl6Hh0EsS9SvNOoh4No1XJQ2NwwEw+NyZz8OgIeI+5qd3Qjo2Z393h/Y D0Tn3OUjVX6D0vPWJx+w9gFnDY83/TOjQMLO5m17ZCdQSlpuWTAZA3sfR0MM gn4CugWPGer6MfDt11T8Md8OkJ98W1QyZRzovHtmdCH8O/BbXNFEaP8ANXTN s0q5HZw/6+lgfPsPKJl8Kqvl+Q3MLHlmBuhMgOBH8fKNvM2gSmsVjS6fAMeC OAySHn8Bj9K8hnKEJgHi1DT3kukzkDjnzf1taxKMMG4UpoAGsP1iTfn31SnA cRlHi1/+BFop3marP6eAU9Qb3bT3dcA1404Cb+E0yDyxuMDYUQtIa+ulspwz oIevUYz9fQ1g0vXp0AydAUXilF7n0iowkLmxaL44AxxZOdIF2yvAm3WfA26X Z0Gk07M+Q5pyEKT3V+r+l1kw9yVZi2j2Aehn++omKsyBmxWKKer1pYCs7xdR yzQP3o8QtB1Hi0FtzuarDp954J6pY/DsRBF4uunXNDE+D+wEj27fKy8E1gZb 45sGZCAsHHAu8mYBkMn1pz7wkQwM6z0HavXzAG57S1BIbAH8Xb4gIHExF3w3 DEAUExZAlfD9pUm/HFARVFtbdHoRcE1bJf+RzAQZ+bvfKl0XQVWGQeHRq+kg vBMerM9aBHnn4wmvClOB+17Q3LfeRWDzO5nCI5oMzMTRrR6WJfDRQ+yn+s9n ALm0xzB6ZgmweF3N3n2TAE7cA1xzfksguPPS0KX3ceBvF6qEm1wC8MX51sdK 0WAUh9Nm4F0GVx+oMsjaPQHNEojp4YvLwPXZO3eZhEegxOSeE1/EMuBbbzpm RwwHycGY1wl0GSjnn+699PYBuF+IeyC3ugxypIQTuyJDwPUeJJ4ksQKKaGGr 6aRgYIQPzj5ruwKoqpc18/PvAhWpuhKDZytgxt1GVcwjAJzq7E6s/boCetvN 9V3LfMFJ/zk/ye0VEFOpUDSteAdIHMNfSZamAKEDPVyzS55A5OsRDTpbCjjK 5y9JM+IBBN2lRL3jKEAnU0nr6K474DmiwTjeSAGHrw1MRke7Ac5aswXDDQqQ ep7qQfFyAWyObj9R8VWQMhU/kffSGbAwhZZLWa0C8rnjVh5HnQBDaVJKStQq EIeqOcNa7AHRougu/adVoPLEySGizBbgqBrt71BWQaDPvBD16ytg69UvrT8i a4DyM1ypWOsyWNNflLhovgYmZqfH01XMwdIqkbUucg0wIYEjVAEmYC6VmyJd uwbs/ZaYXhKMwaSGbG/q4hoIG5KUmv9mCEZnztYwCK2D2i5xptjsC2Ao5nKG z6V18OUoQ68huy7oU/IInQhbB/ybHoGzE9qgczjM2bhqHUSjcD7rgbPg+8M0 3U9z6+BCJf61+gMN0CJVevIk/wYQo2qmrVdTA02dXw6/MNwArE8G2+j9YVDn P7TBGLoBthYd38HjKqDmGGXAt2wD7Fj6td0rVQTlX+nrJqc2wJE78VtqQwqg xJ3/5SXuv+BKphPPioUceHPkVES93l8wdaRkkSxwEuTVnr8he+8viGLQzWo1 kAQ5jjaG6SV/wRuDimcpnSdAOpP3KeY/f8GxL/yCSdhxkFwaedT/yCYoW6tX MqcXAokWmTtT5zZB8/kSsec5AiCGqvy3ScAmOGynSQsO8YLHea2NDW83wdWv JWYWVkdB2IXRfLnfm2DlvvFgBTcHuL+2/iSDbQsYJze2CyJsIDCN2YPl7BaY ab18vamWFficETIJ8NkC9GO/mCEuZnB7VkllpmALSHpKJ0Rr0AO3WH0+s8Et wMM+r9c1RQTXlR3wTQe2QbdH/YbCFh44jvhOyKtvAw6tDJPQGzhgExbVnOm5 DWgijiZKOW/Dl6Vfvj3wahtIVaVrS0ZswKZdVbGBfduA2Kt/rUZiFTYK+O49 y7gDQh829JWDZVhPaMLCHN4BDn3aZbU3FmDt5i34s/sOCOj1EjpPPwtr3Doo dCp7B/x6GNO2oToJw5yitNldO+BPRX+O1fIYrIySZlnpdsFGTZXwde7fsIKT UXuQyi6wo7rWZ2gwCJ9kdi6dc90F+k8+qO1x9MES7wOfWaTvAi+6s9Pk212w iGWc/5cfu8BU+sf1Ixc74GP4/CunCXvg1GO5nTXNdpg3v1Yj5/QeaI+V1CnP a4Y5DTpFD13bA7babQq/S5tgtvVpxnspe4DCS9C0NKiHWV7sLcx/2wO8HTaD bNcxODSLYUYKh0MG0inyasPVMN6bfcDhKA5xWC/Z+5FdDlvYFHRUKOCQCrWQ K5+wUrjkPPjKZIBDNAbvEnUDimGGU52ojQsOKdjyHKMPeA3b8V8re/8Qh9yD uPfAaC5cRb9bSJeFQ8IDzHU7abPhQ5TY7MsfcQj2MWTeIS0dvj4kmlzci0Ns PFa581SS4U9faqIJFByiZabXK12TAHOVGoaZHaBCkJ9e/ZY7MbBH2kRgoTgV 8iWX1OFb+wRuDvP3xJ2lQjy7dOWdosLhYx6sLsa2VMgmc6vXbbVQ2O/yS9u8 ACqk8Xbv5aiie3DHWRWz7WdUyEVW22o+L39YXLZd36CUCvltYOwcE+0Nh3A7 aOa0USH5EUNsCQ884AHiX9WNaSokGdOq7rJ2gxUWn8jpEvHIOfZ5XPGQM/z4 1zGxDAE8cjPPPM/B1AEebyjnp6jikcmOqWShFzYwqUiXQ9sUj2TM7/o85LOE 45N+M6V64BELZ3FTWS4TeC7Em3rxCR4x2ppi3t4xhM+4MW5q5OORRu0f3ntq enCqWcbiswY84vkiNKnokxZMUT81OTuMRwwW5psWNDVgXanmQbCFR7qrrEGT CoBzjlzpjOOgRm6IqlA90lSGt6kozZOy1Mg9a78bbDcUYOO58DpVPWpkzD7p 5a3Ak3BhN29FlDM14o5RiCPPxGFCXcnbsRBq5OOvI5Wb14/Dl19rvVRMp0b6 /L1ii1QE4fcJAymRVdSIBfMjyc9F3DDTvVuxw13UyOzV3/x8Shyww3WaCPkl aiSP0pfv3n4QrjFOuRvGRED6VYahplAm+DA46d0vSkByHlrHK7fRwK5ija4y GgRE1+yEjYAiHm5ks7APsSYgs/wMJHXWHYhvl2ze40tAJMxVe9JOrEPeUyEG EgkExFvvWnOg2zLU1sGpdbeYgCx/4vHq0puHRD6+gX62EBD7vOA0tzOTUNAr dQXRSQJCexclfr49CnXH9Ij744nI67MfPB6pDkLSAa6C7bxEJD1YjvmrQA/0 0ImKU0iZiGhxfiB/P9sBDRkkstwxJiJF9tY+a32t0GlVCWLLTSKSWDX4sb22 CXp6HNviiyQilNQ/1+in66CJA5eWPXKJSIhPf6qsZA0Eb05PNdURkTcfblik CJZBieNBw1yDROTDy65DDlbvIHIbW7fbBhGBs2rZ3ii+hs5W5rV+YqNBOg9c ozmo/xJ6kQ3Vc8jQIPljMh/l8jKgtScdldfP0yCN81/KZ6iTIX2fq8W1jjRI Q2RYbOb5eCjXbjv3UDANQjWpe7EvLQra1Y1Jc0qlQRiR4SPcyeGQiaJIfFU5 DTIaPCO5xhcCvRWsfsTykwYRp8X2vhcFQrRMBsF2ZBpEtyhuO49wBzITtcBO 09MilYaynKtTt6ACdYc9BmFaRHpe6GZ9twu0beUGD8O0yPNK58chqY6Qvq9P YKk5LVIuFwVv19lAGfH3a8I8aZETOYvvr6+aQ8tFj7cso2iRIF1diji7MXSm JVHlZAEtkvoif/Yj/QUocSLDl9BIi0TrjVlzrWpBU1SvK3qHaRFrB0vxaB91 SIX3w3rhJi3C1uFOT7hNgh4roaeD2ekQxYw6Fr3RU9DQxa9el07SIawXYmUe fD8Jnbz5872YDh2iuhSjJ90uBt1/NLiy40iHuL4TW6D+KgR1vpyU67hHh1BF fZ2q1OWDROqWbuWm0CHPWlcv50kegXwGtor9yugQ/WURNvP3B6HmdeKi/o9/ 9Yyei8gTGSEeNlYZoTk65Hlsu8SN5wTITZrLbZ2GHtHOLmLTv7xHws4Jv2kR pEdSgl99NOtbJx1ylJ5LJ9EjJu/Cq17zLpMc7ilJeJrSI5gCW3hM4CypLEX9 urYHPeLrI30zrmucRFeum8/zhB6xeuPqciRymGTRYTK1+IoeSa/rmvnT10Mq nLcRbfxEj/xg0ZbIou4g7dK5OCUN0iMV4qlVQtItJANhr5c3NugRxbgT4br+ DaQscHdcjY0B+UBfKyLYVUuiWEQIcUgzIJQqzRUN6XKSpnec3Yw2AxLORc/g 7vyOlBiTlllrz4CEOaSpp/MWkKYKX43EBjEgJ0q8JxRiskmPx6qtVd8zIKFH A/50jieQOg3GLR7zMyKeoSx3dOj9SSKu5CQbFUbkTIGXuQunJ8knbKNX4RIj 8pjkNfm2+waJp5bJdPARI5LFst22bm9DcpA4dVF6jRG5et/LCYRokMrOglj8 QSbEzTEtlFhLItHZnfvRLcGEJBjapeKOnyIVPre6cNeWCfFsV/GYbhMhUYgP db63MiEWjjQ8Z6QYSCEj3Roe2cwIybv1RZLhd9WhSp0bPjXMiB+fxshN/i+q KnFYYlAXM/Kb8uVwW3ud6qJmwfQjWhbkj/WdanmrUlXr14FR2S7/LPenzSIt UVXFW7i/U/4Aslqgttl21Ur1L1G5ktuOFQHbZ92aw8dVilMeGgQtH0SM6MCi eu6o8s0sB9ZxE3Zkfbnubfm8raL19WTesGBOJC7OIJ+a85VChKG3snwqN3LW 7OfCk/k0WcLhhIm7m3zIzeCBgiiaKamelgeLoQcEkWLBvsX4AwfFL/nbnU6u P4ZUu54VZbrmd9yVcfZYm4Uw4kvJ3JkUaBPgf92USDNzHDFNsz1wwayP279C 4+KBFFGksZsz6xD9QQ73XNey0zJiyKHc64sfbc+yMuEV7aT/iCN9iYUSHM/j 6TVvGCeIx0kisRZSaKpDPJ6zkvemprA08r/zBbEe4TEne2T+s9HDC1JpZSf/ s7hl6KWcQNn/3D1BnxV3Se4/t9n9UTvEL/+ffxNebSQc2zcl17noqMi+j87O 8ghK7dvh9vK6jOq+N0P23uiZ7lvk5VGuiKh9K2v1f2eK27fudGpYdOK+b0kJ rD5L23fNB5Hvua/3bdQk/7Dh874dnVdJ2i379mEoX2lp23eavortz659T3Uj pNGx/9OvD37FcXLfzNwN+dMz+5a7onVkaWnfmlT0bZ6r+zbLbg7d2Nj3dc3H qgHb+/6feZb//P8AgEksGQ== "]]}, Annotation[#, "Charting`Private`Tag$20771#6"]& ]}, {}, {}}, {{{}, {}, TagBox[ {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Gk01W33B3BDxmM4M5KZ1MkYEs75XUcqZSbTnTJFA4VMGRJldlPKVNJd IZmKBpJUuxBJGTJFhmTIFNFgKP73f63nOee53uz1WXvttb4v9pt9ybn72nhy cXBwaHBycPx/jRg3n19b0wKO/7yxcOqPvt9sW+AHfz1aYltWz++P7wLbL5Mu 8Q+Nsc2v1i0Nb9lOD3Q1jbrKdglnQD6HLts8nsZbJQ5uZZnUU38896Imyza1 2Yc2N2mwHD7LOJ76WZ3lqlPZXmWWauy8l+xkV6+osGx87anFnmkaywUNoV0B TptZdo5Jp7QUKrN8xpX7Lo60kWUOVZnnRrGK8KutcaijLVCg9+8r8SWd8pAw 4lCz9aeV+AbBo0Xfd8gBDT4taJwUVvTWofH0bZABQ369QbgVqHZId6CwtlYS Pt0dtorO2beNFqK/5pMvDpOzIjVV7ZcMoN+C9jlTHPipeQ+tm/MN7I0O2Tkk isNHAZ7Dep2VBudEkkuQjzjkVDXt01jtNfiQ3++A3y4OdT6SqUNBcvSEtqjy e2/EoCw/QGIo8BZdWjejT+mZGFyendS0OVRBf5hTxJtdLgbEm//wt6jV0024 nmmK5IkB4UvPeseeDvrQkfYD5zLE4IJk5NOLbiP04Ldj8T/jxSCxeaSronmB LqS1ct8rTAxcCcobzm3gZuReFh0YOC4GXgU/suRtiQzdVQWBfS5iMCh83VPi lByj+dB27QZrMfhbek+eYqIGw/21mYvBTjGY2PzDyngDYiyquSWVbRODtxPa lCWSOeN8elCFwmYxsFwyb+XhdGIoLicOZUmKQclP4bIXk0cZ1S7/4IRExEBr 0MeNpyeYYVV/f1sUhxg8oziFCbXEMMZoDW7f56mwuGfFxqnzEuN0al/y0VEq BC+lNpTO3mAQf84++thNBRdtjZQWo7uMQqd1n62aqPCtK650+0A1A3shLlJf Q4UZul+PyIMGRsdGVT29Mip0ZnwM1KvvYHglG3rcuflvv7+wm0YdZnDM212Q S6cCHh/TKmg2y8hw8KrOiKPCi9e3Gcnjywza0zOjAqFU6A3QdBxZ5sVAPg1/ xpsKoyHhp/6OImH2CbcN5g9SQd//0FrtSVlseubJ4cNWVKD83Tj/OWULdm5f 68XeHVTg/utGQvfsNkz88UiNhQ4VqL9vqsYs7sDuSi+Nv1SmwssuesuiqiW2 M0aYpLueCtJ9CuIOQX9hvRNyWIkQFUhKTT7Wtz0wP8ttx2TWKND3q/vG1C0/ jLfCJD3tGwX+nJDTLy8Ow66ud3nON0KBK74JTS7bYzGNqIDJ8C4KtOYN10g2 pGKvRuMpc40UaOhU+LXnQDZ2wDSH6fGEAlbmV41N0/Kx+fJy7547FCBsJMWO TpRhCdT6TLMbFJCauJbslFWFSZ/+8AIuUaAlyQf39v1L7OGnmWntWAok2E1/ 7clvxkyMucSLTlFgF0eclFVBJzZUSjWS8qJA5QpuSWrHEBZM3OJz8QAFhF/r gLLRF0woBF3hsaTAeIW34LPf37Cb/fvqQg0p4BsuoPI2chnbOrJ1uUObAolm 936FTXChukmChsamf/PcD06d6hZEdt/mPP+WpIBhvFbRnW9ENPar5eqYCAX8 j5QFvclcj06t3m0z5KLAZJ7wjo3n5RE/z3m+az/I8GB2qRhgM7qCO8FY/EIG A8acbWi9JqIRzQL2fSRDwcYok/ZD29ET8S1Fd1vIsNEt6XBePhOZyQgOCtSS QdRF9aBO5m7UrzRB9qwkw5kmaQmTcAvko9JoAkVkMHR8mv4zwBatbb0dJXmN DPFSjk+sTJ1Qql5cZXAqGSIO61ygbXBHckzP6bbof925hWd89Ai6v3unvOop MnxtnpYjHPBFRuYKjgleZDB/MxDZHxSIOvZxnf988N/8ullzOclhyHP/p1rM mgw58RLdP2TPop+usHRlJxksjtIv+y3Hovgj19V/6JJhjhgsi8MlI3GfM55W W8igcGArn2/TRVQcePBqiTQZ9FKUkrz8M5FBOL2Nl0gG7/nnM+2bc1DzWUk+ dx4yrNJ22hdfvImcE5bpTxdJENA5OSXXfAvNnv/gLz5NgkR61KZjI8UoKqOq MGCQBGJZjyT5IssRISdr4F07Ca4PGh3hkH2IcnODybRXJDAp005T96pCWkV2 JrGPSSC6aV5bNPApqivTjhoqJcHuUxeDcotfILtKUqXBDRJs84ySUyLVo7Ga +anMNBJsuRPybHWtEZ2qbZObjyPB6T1ZT5Ij3iL+pnIH8zASnHiuQB81bUNX Wi+kFJ4gQW/Jp+xllQ5E6/ap5XYjAXdeUzPxSDeq6TdfcrYlwdybcju/1V5k PqKiXm1Mghf8GQHWPwfQwCTOk2JAgvYJE9r+wk/I79tktp8aCfgcv/wQ5htB l1YLeZUpJLCq/yRcaDeBFHgS6Of4SVCgKkP2MZxGD3FH/PtXiGBYqVdtaT+L usSVBtKGieC4/4rE6YV5dERmHXm2kwgxAmITXcXf0aLS570mr4lgY9R3qurY T7Re62YFRzkRdPtn+P6aWkIlelFTTnlEENlnNfEybwXRmS5yjzKJcFjGoVHX 8g9yNpdKORFBhBK1Ne9t2hzM2X2/Xzb6EaH+n05Rv1EOZtT+vkUFDyK4mDYq r4vlZBLcqtUiHYhgLve+PgzPxcw9csWj14QIO4qP2/4Ty8XU8gnJ1sGI4B5k H5o0zMWsC3RoTdUkAtMuQeyxEjfTPnwb77QiEXpp1gtCFtzM8bMUurE4EVQJ H1M/7OdmCkaUzaYJEgGy3/Uf2cvNVAvZmzf0mwDXdY9vfirGzbQJ+GyvOksA v2PbA9tfcTGDfSIEwz4RwDerqFHPkYuZfUzs2av3BLAztTUkvONkPvO4d5L0 igC3BAgN32iczGEXUyXXKgJsr4017T3JweR1Gu0pLSZAX0Z/i4bZGqLZRyYv 5RAg8SznU+fMP8jCWoK5+wIBqHKvBSNer6AMY/PbgwEE4HCj8ATwLSJF7Yog IuPf+a6UmpLsObRH3XKzizoBVtyNUUjjDDpOm/hYIkeA2aY4K5XESZSqFJ26 SCJAm0akevPpcfRQVmrnLl4CjBhjiUq3R1CP5KNfFxfxMLxRJCBVcBj9plqX DEziIaRA2kLSahDJEqect/TjwSBaV7L73/0zEo4lhrTgQXBBs2pQuhsd5pd5 VfcCD7ojddZ8pe9REvfjUMJDPBwX+rgObrSiu6s2qs4FePC6tMl1dPoNal+a Hiq+jIdlS1/9m6YN6Of3uPRfSXgoODBRaWBRi9bPye7ZGYEHpkS77JvXzxE2 Vb2S6ouHzl+zcS1rj5H7mG1Zvxsevor80VqVqUBxn76602zxcIp6vdFY+B4q /phAPbUbDwRy5b0VxxL0rlu+qXY7HsaXjlN1Xt9C8+01EfgteGje+G7tPeMm or6z1zwohQc/cgfu6IarSP/13EiRKB4CRnBv2lUykHNd0uWfnHiQSqm7Q/NJ RVyRey/HfRGF2FziVLxtIjIJiliTeSsKk+lrqNIzGl30vnf48T1RKLLs+3og OgL1uI2+tckUBXpXmIqwRTCSdZTQmQ4ThcLLTSnSz/3QUQvznFgXUTBqSmmz WjmKynee5ZbZKQrfezNMWs65o0X9Cq+qTaLQkNfiWsh0Qkhzos1aWBQav34d X5jZh+KUpfSmvomAaZuKuOAPM/ROyvpGTJcIVDRQBjaP7URUciyf9BMRsJ1w teVYZCBnwcc+j66LgN3ZuphcRx1UwDHTaRUjAro1xnsKdNTQzE9ZxuRREVBO UWyIoCsh7Rnb/GhzESi0OX5crUgKnf6cgJPaKgLG2gU6M2lkVPehxr+SKgLd xba1UQeFkFDr3AfLFWHYWu78cMqbG9m+UjScGBQGjs7Fkg7vZexqjWPhuTph yOoQeZDZ+w0bvp8suqFIGBw7MIG4xXGMVgTBFSnCMDP/W2N8cRDzv/6938Jf GJrlv4o/UOvEqjM27fpiLwyuurhvmsNvMH6n8UOcdGEo9E4XH3F5idnLFpxb LycM2el9AbvxVVj+qMdNLV5hWDiPP5VkVYbNFyuA2ZQQSB6aTSejfIzpNzzg 2SoEx2yfp7znzsbO69z8c6ZCCNDrDwcvX03FPi67bLicLQRpnDHlQsRYbDNI G9yLFALlwlsntFPDsODY/r+aPITgJh2tOeb5YXUmOSGf9wpB+Gm88UqFB0bE O2X9VhOCGHI1r9g/f2GunRKVFLIQNAwbGoSetsTuZvd0qC3hoPu+44yavhH2 2yVrwXgAB/drfS9H2eliJkr2RLdaHDjpKDGiFVSwy5NkzbBCHDyZv6A23SeL jZW9t0xLwUEwn7HYCpGMaQdd8in1x0HsXuMUE+DDzulbp9Q74MB3PK8senqF 0bImWjpAx4FF2pWj1y3nGBvq3zX9ksPBsRNbVCxnhxleSSkTeD4c9PZXxft3 dzKqLM34adOCUFAZXs0j8JrBS8EpG7UJQumWl1Kl0TUM297Xuw5UCkLquTEa yJczcq8neARdFYQbtYrhQUq5jDkP4+jzUYJw/Y01xdA4nYHReHNvewrCllcM 37CYOEbybB2AiSDkUH90nO0JYfQ+jB78oC4IfjM2D+oY3oxNYTtW58mCoH+3 /UjTnYOMIMQpJbQsAFLRQsv5eCvGy3VgoDQoAIm4ub2KewwZ+KYz+7E6AahR POcpG7qV4XyBEepQJADr7jonbbquwCi1/Z3ld14AePEOoVUVZMayxJPKxAAB EGw5dsCuioexZzC0M9dRADJcj+FLc3/SM/O3f3/CEACJ6udVZX7j9JFjv4id 8gIwh+pOPpLuoW9Vr9T8yicAAiX35q8UNdKjvgda8c3wQ6ac2e96kcf0d4+1 fGXb+WHxYk6yvVkRXTJyPkXvET882P14Sc7tCv3oznulNjn8EPzK1bTWLJFe KeD3xvssP+wYOuB1TTSUbpM+w/+PKT/Mjynr2Ms60m/8Var8SIMfpk1C02/7 G9O/SnvvbqXwQ8b++O8L+dvoSUVformG+OCtu2FrVBWZ/uLZ59XDgXxw+SDM fyK1GmhMfPiufo0X+B6MCRqm0A0C51Q3i8XwQsTJ8ObCSJpB1a+zB1e9eOFE xUmqepC4gSEv7VXzdl6Q6zvWpnPmu76NQljWsQ4e8M5Pc+T8WqwfdHC9fh6O Bw5dl+7Y20XQr27bH0kN44Yinfd7zO7Wb99Z3Sfwx54Dgpr7XRIj3ur4FZUt EkgLz49s1KWuZmSr2h9WuNl++sPzvfcf8qgovlZoaP6QpLWvB+Xd7x1z3S0v rq/64r5V1gLartt1sSlbV4ArmPLRQ4KD+d9zmU/I6qz7V16Wo4e6jPzzhFku vxpndWaewLJvrgd+xJ7CsrNXtlT8WXGWE62D9bRyJFleR84Yi1yWZrn7Texc jKgcy3bh7tuya+VZPo6bkn+3X5FlmZJXmbyTSiyHVxntE72qzLJfwfHKbeqb WRbi0nVXG6WxvOuEbQYtTYVl8cdSvrsU1Vi+5J9wUaNbnWWbOEvVa5UaLNOc YuzyIzRZ7hoTyE2z28ryO/dRQ6KMFsuf1t1ezJBn+3vB0TKJjWxLTE1tkFNl 2yNg/pe6AdvL0Wt3zB3Y3nhLYn3iBbb1jPtahdLYNpvIiU/NZPukquyPrGts 11RsbC0oYdvmlVZcXQPbnkd/0Pe8YTtE8NHCm3dsX7PQd3vfyfaXLiZ9+PP/ 5A3hWvAcZ1tYsq5oYpLtrS7GYt++sb2LU+Bd4A+2HfOaYhYX2fbalWxw+jfb //nvYvn/AF3ZBeI= "]]}, Annotation[#, "Charting`Private`Tag$20823#1"]& ], TagBox[ {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2Xc41l/8P/Dbuu11c992RhEqu5D7/T4kkWxFCw2UmZCobDKSaJCkMsoq RSWr7ldmoYxKUla2jDJv+/f5Xdf3y/f8c67Hdc51Xs8/Xn+c6xzpU+esnBgJ BEIGA4Hw/+fAIdOptTV1IPzPGLxMmf25vGEzvu75NwsbltL2Wjk3veHK2Jts PYMbZlP6vgk+bfi274kDIakbzmfwySJobpjFyVBNxE5t3QLtNe4Ziarrtqq6 d1qhXmXdlycx94Q+5XWXXLzn+txcaSPvzUNSqynb122Y9tbMaEwRIhqUU4bp cYQndQFtPscUQN1oddNMtyWHfcRtclPOVhAj7Yl9ErUiEHSCqYBTQA5st8ob BnPJiRN2SNL0I7fA1ngH5YQ9Nps7rqVE5X+TgYvvqbZD2rsVxTnO5s7skQaN 2HK3HLHPym47FVl+ikuC/M4mIRPKqMZpza6cqioxUNWTaqkOWNVS9N+95pkl DCUSlmOPi6Z1oNNMsS9JGDpUwri4Gtd0bPRPH7KNEQbBG0atrCns1DCeuHzk KQzOWt7cQn5S1B9ZnbZ8WsJQMNOY2O9kTI1uCXlR2CAEl/supOkvpVE3ad75 KftOCKQSGoYaNLOpr+7nEu+9EAKZLXqxnJOFVGPGd6o8mUJw0f1LNXNGObXn TOvxsDtC8JLRsb9Dp4bq92kwai5KCAJKcln09zVTudSXilwvCcEZRzJloLed mnGXt6vLXQg634+KzdN/UzVXN7NbOwjBfHRL8sOfY9TG01oadZZCwKK2rDra N0s99dHEQWevEJiGWT0buEHA6EonY5/vEgKPwxpjGmtsWPztC683KwjB9vQ6 vcxmErZlMaYnWUwIMHqn13ZdcazM4QEnF48QPDN3+XN1qyxmUVO0K4QgBOIl tjp+KcrYoGLdyZkpChx7zeewO1YTu5LwM+7sAAWIUppCGYF6GGlu8s2v7xTg tt/c0jC2H8s5xtxnUU+Bosf8wp0K1hj+XpinpoICi7lZSsx7jmNf5XZoaz+n wLbk4U9v6xwx1zg9x2fpFLjGYMnbftkTI0wduiF9mwJR24dbd5j6YXdsXcvu XKXAgaAup3mDEEzxbdAAewAFJH4Y2wq+iMJA5hZfkBsFyqS8I8XVEjGb6Gyd KTsK+BcV9FcN3sXGxsudnS0o8O2CpVrdUjoWZt2c2LGHAqr+Zd9dhnMx4dL+ CrOdFNhzX8h4S1oRVrBpYahyKwXUSnUf+D8rw/ZGcAtoilIgYDRGzoW/CusY kcbzuSjgHG9Vy6LSgHmZ73KRXCND9vdfZL5DXzDia+Pbt/6R4cvo40Cy+08s VdSBxtpPBkb72yUszn2YSojP6OU2MvwVOKT32eEPVjsQRf77gQyOmk3kav1p 7PiB+7qO5WQIuGFDSeRcwqZevHBrf0aGZTuhgCOTjHg0pSbJ5BEZ/jVuS5g5 z4FvuvLjPdwkQ8UY8/2jbiT8Ve/4mEYkGaK9OwiZySK4sSGjcO5FMvQ+eCP8 vlwa73lK0ZdwJUOsYejuTeHyuB9pm2ficTL4OpZFlgyo4Fz+KIXFnAwE7V+S HlRNPL3TujpAjwzUfWcTyrsQrtavtvhVgwxF9gnsHUcM8OpRfhUVeTIsOub3 C10zwQ/9++t0TYwMLIoGH0zYrfHB+abUQR4y9Ju/S3p86Ah+cbWgRY+RDLoC so2MrSdwNpZ41rRZQSCoe54eNnLGUzg9MPqwIHg4K3HvueCBK5JMfKx/CYKW emv5Zg8fvFx4W25BkyDsZ8dbTicE4CaSHN3sVYLg71Hw8/CHELxTdkTQqVgQ puO9WY4uR+Ke2z8YQ64gaF9velhWEYevqWWHiKUJwomzfCvib2/iCdpXi/0S BOGHdOlRzlN3cWldp7GWcEH4V2oEY9kP8aJ9e2V2XBQEH+vKnbSQLFzfdPPh aFdBMPP//KE4OA//as0Y32cnCGvuxbvGyIW409HeKtxSEPycAuiZS6/xuROw kLJXEFjTsSJ3rQo86sxD5VlNQXAYQPdekSpxYc8gJ4ttgnA7eDvPR+E6PM/X LjV/kyCUR/7WOerzCde5TG0hkv7LN//Xq7u8FW8MFWM9xSIIVquiIkV133H7 6EXqW7oAvJteYRXZ1IVPxv/wFh4TgN0yxFkf1j485E5Jjk+3AMR+brVbXhnC +e8nd31uFYCdvRbv/JQm8IwMP0HFWgFQHOpuGvk7havnHjKOLBWALu+bmxxL 5vHq5xohPU8FQLvkmNTFzBX8ULFAsc4jAehWIpjdD2BEgxVTf5JuCYCwrdVn oSUiuljVIj11VQCs36fs8IjkQmz1L2xNLwnAZqnvVdk5/Cil+cb1HA8BcAsu STJtISPF755VTCcFgPo7+efWAVFU0Wm6YH/wv/oXmCZ3xkoh0/7tymWGAkBc TvqjYLIFdY1yOpF1BEBQtiLcvEMeef0bveelJADfL+AzmceVEAP9Y3ODtAAU mNVckwhVQzdXc4hbyQIg2qHweHvoLrSZJZoaxiYAcpwOme1mOugV5xnvziUS 1K1dMpiK0kUGpH05WpMkOHVy1FSGro/ahGW7bv0mQeHjZf0gfiN0RpJZcPIb CebMantj/5kgumzffuOPJHilRmzdZmeJYrZXBj+uIMHf799XYz4eRKLq6a8J L0gwrPdw+5Gvh1G+dsifY5n/nacX+sgk2Q5RdR2k3ySRQCCMWtyefBJ92ofb kmL/q6/zJdu12xHZm0pc9wgkwcjl0f27X59Fk9bLlR+8SJDJz2+WrOSBQo7+ pG92JEGngN42UD2P+E+WKQXbkmC/nFTieU1flHEmxbHDmASND65Fn3tzEal7 +t/biZPgxIGLJRGVl1G1r21zgioJEow1Sp/uDEE2l3cRx7aQQK0td++BvjA0 FEqmGgqTYLDx81D4bCTiCHw+eYuDBM5eoxO3PsYgJf/9mT3L/CAfl67MqhGP rHz6bHZM8oP2k1O6/FmJyM8zkONSLz9ILH21Cbx+G91zEXpX++U/KzifqOxN Ru8cC88L1PLDkFQE2fJZKvrtcED2RAk/lLV++Hdr5SEiHhtof5rHDzomh/ov emUgRZvguIX7/JBalnr+hPpjZGYporvvBj9ceVwomGeeg7xNXk7fDOWHyosi 4+Of8tEdQ9Psbh9+sEM9T5XfPEcle4aObnfmh31Xqs+6cBShX1goT8BhfkjU vR24z/8VImiLVdYY88Pwr7v3FBXfoC0ary+QMH7oq2gjysuWISNlcwUHZX5I YfVRPe75FrkrjvzKl/7PW3drno8ElCAbnkAX4IdXPQORv4Mr0Sspib0GRH64 WdXkOJdTjdrF3swn0vlAo0XSiZWpDi1TLPO7RvlAcrdCnEnCR6TPHUnyb+KD qADNaXuTJuTMJllb/Z4P+k+ctt+LWlAsU2kA/ys+cGv1v7B3thW1Loz15N3l g/HAc5fvlLahuZmrt+dj+YBNxGxk64d2JPpXymhvIB/kEstiJGY60KnBg887 T/KBslmf7kx6N7raO3FK8SAfxFSP7F/j60V5v6IpF/fxgf25sNKfdr/RVGtF IN82PogXzA+/LjqAGIP33706zAvX+91vT6yMIuMLgWuSn3jhbIfd8Fz4GEp0 K3QuLeSFKGdXlMU5gaQOi+wcu8QL1wpjxb5f+4uQ6kiLJTcvGPR3XmH2nkZX t0po//nHA7Gbamr7xWfQZwnLRxFtPLDrePipRNoMoghGsm4q54HV29NBw4dn kT1HqeebhzwgEVUKrUOz6Alh/JtFBA90zXlf3+c2h8bnpLDRszyAU1fxA7/n kMb4waxwUx5YUhBUXT4wj670RXNKqPFAxMHm1GvZ86j6R4V3MYUHYljdlAxm 5hFX898f5kvc4H7uiH2CKh0drN2iN9LNDX36+IkpezpKrTicE1bNDR9tYt7z XqGj30VxvOK53MDaaJb6LJqOFHPB7/V1bvDqfn24KIKOvB/OdJp5c4Os/GFu OS86KrsjbzBsww2x5xaOqB2gI7ZjQ6cZqNyQms4TjAnRkY3UkzBRaW7Qji7Y J/t1HmUNOKarE7khhZbc7ho2j6byNoPJHy7Ysyavkyczj3S9fnc5NXNBRZj/ 6buv51D8zvSVoNdcwPRDZJlAnUO/Fh3E797jggtpR8aqimeRAmzSKQzmAtnk vLxWuVnkF9l5pN6RCyKG3jjtuD6Dqo3v+/ft54JVc3a+ntFpdOKbSDFZkAsi 5UZzHidMobujgqqXcjihIupehtv+STT4/Iv5reucUNu1IMv+cRxpXLjp+dSb E/QKAuzSjMZQ0xrv0y4qJyx59Impmo8g8ZrP9fPSnKDrsqae+2MIucZeH+Fj 5YSGJfs0JrdBRCRzbtVv4YAJ20XOluw+dLDjo8HxYg4ITD8g+uDQb5TxMNrx QioHcOgveBN4exGuSMzIduIAtf7d0ZvNO1HcZDWAMQccScsz+8L7E3W8Cu/+ ocwB7aJ2Z2zG2tEFxCDBtcgOvKrBlLDFr6iSGXRku9nh4HLHszPbvyC++qCj eDU73MzPI2RdakH2N7AA21x26Ms4O5j1sQk9Pbic7BXPDoWzUZG1XxvRokh5 cYwPOwiNqeXokeuRUXfAt4zD7KDObD3rElOH+l3mSd9k2EE/ZmsNG0sVUlMu Vp1gZQffB8PGVLb3KGTG14J1nA32nvXUsPZ4hz6Xqp+TamWDIxEf7frEypFY 8NR17TdswCGbumYjVILO7i18anWfDW5fecvedvQ1Kmb3anALZYPPexsIN3qL EHOT0miEMxt8uTpPqnzyAlndHmd7cIANxL9bnL5z4Bl6dOTp1jcqbEAY7/Qy f5WLJja57Wsms0Gcs7k9c/ATRO1XcBpZZAV1n2pvp8xMFJs7HM7YwwoGffqJ 10TSUbtndoZYDStQ9z95svgyDclpOL/XyGOFoOyTYs7lKch3YUuP6Q1W2HR3 clSVmoTev+tbdfZlhTr5fG1JxVuIJyJDIuQIK4iQ/Za/BSSg4/tPUlNwVvAo ylJ6rxeH8nikjhVtZoWZPYFtxtuiEf1LV0ADGyu0T9xyefsgAu1LSbvbP04E dUa77TJxoei2/fE3K61E4FBxDWWuD0S/N4u1UUqIsP35vZRHWgFIZeTHjHIa Edq91C9nmFxAvn93KAhFEGE66yHLHTlvVDIfarfqSoTKPQeVWjs90fLqt8QB SyII3mlo7ld2RXpExdpGLSL80Jlvm1d0Rle5gxZfShKB8zK+YFF6CtULtiql EonQSpqwsb7hgHjE5U6HjbOAon9S3Z+Yo8hq86Vkl68ssMdYnPn4XhuUpPi5 waKcBRYtn7FoZVmhn6oyBK2M/9atg4692GKOpLT9NCRjWOC5UWYq4+x+5Khb f5boxQK8VbsX5ZIMUI7hprRxGxYICnPWCB7RQ2Nm3i1fMRZIZ5/h5c7FkIpN LUvFFhaICykQexqihS7Yie7O5PxvP48MuKhpoDJHT8/Yqf+aPu31O+f7KmjV rTLj/A9mSEh6E66vvw3t8aF8PwzMUMj3XPqplRy6esmVUzebGWzjsvF2qgyq D32HtsYzQ4jSFcJouQTijSH58lxghr0azDtslYXRwQTnnNljzFAkrGtd8kgA 3U0u+/VrDzNYPCEK1HzkRb8e8PBXKzADQwrf6pbn7EjqySmDfD5mWMAZ9D69 YkaOz4oDbs4zgcWcgxc9m4ByX3EUBHQxgchsrEJBxSI+UW7/+0QNE5hEBFEC XWZxtaoiitFTJmjwyq/nFf+H+9UTDyjfYoLpYT3+00Z/8LKWo8GUS0ygLcIn rv9qAF9tL3i5coIJ2s/cbz66uxff08M43G/IBCku0Y/YjH/iV4dsxBuVmMCG sHL0ZcI3vGEiz+IlmQlYRi/3cjO04HxzqxH3lhnh9XPZtsj39fjBFavS0D5G +OK723uEUIPfZc4eP1vPCAcTRB7E+QD+i3NJ2qKQEfSLFrQGi0txKQFzG827 jFBjxZ5uzf0KdxLNjN0UzAinq/b8VtB4judJz79jcWaETrp/b4J2Dj4hf2B6 zIQRQsNn9XqrMnA1lYdbv6ozQj4zq8oQQxrupzl9rFyUEbIEeO2b7JPwMtww IYOBEfL+HCQU7krE1wxSq2OGGYD3vt9YmWcsvtd0ku7VxACu8iz32lAEHn1Q f8fhYgZ47DAW2jYThDce++8SmsYAFGtrHvn7F3G+03/uyEUwAA+3woGb8+fx g66ontuNAaLPf21bMnLDU87fWp2xZIBkI5GetXxHvMt/SO2XFgOochR4T+g6 4DIhOmeqJBlAf7D9S+dNW9w56kZqHpEBjvR4aH57a4nnxfc1JY4TgBAfS9R4 bIxP3NFkDvhKABkd8a8Dc/q4eto1rRPlBPClvtXq/oHh/lnd7oYZBOh068s/ v3cXXpGvnq4UQwDXonrb5psqOOFl1DeyFwG2vf0Q15wmj+8t+8m+YkMA06V/ wVmYDF6Q91i7TocAjP/ia5kOiOLCqedcEqUI0NEwTb02SMLDrmmnHGMhwBPd 7ZIqopx42zzx5oGva7SLRv1jESeZ8Lz2e/+609ZoK0n1JWGPl7CgUiVL3zNr tCbLj9PNedOY1b3KF2yqa7R0Sd6VouE/mOxlG760xVUa5Z843zbow+jHRs+p Vq/SrJJaevN6f2KN1KCmmuurtBaeo/Ijj75gjyRIykdtV2n0l3t8MhIaMN/V x/ETUqu08fhcMrNZFWbUrT0RNrpCY5wfHxenl2Fi8MlU6NUKbefw6Y8c9UXY xKOTz/IDV2iLlyUf1InnYZWhs1y6hiu0qJGrZQSRDCzpVIz7V74V2sJx9kEq Swrmoi/ReLZjmUZZqWFQ1E3EqFsKt61kLtNuKL6lPS+NwvhYDK4leizTgtx4 Gz8YhGD9A+2jsprLtAXFlgeR+n5YSa27cRlhmfbaH/NKP+mJxWUT8szql2hf rfLTBp46Yg7Rt9n7bi3Rjnoib0X+45iai7zLRbslGueVAYu9BGuMaFzxgXPr Eo2d95zd35z9WIeihfyjv4u0oZndHtOGelgBZ3+URtki7cqki5iOpiYWNnZx 6EP4Is14vMLuopgydugTp6Gd6SLtyf2SCIuPWzD5godP/lEWaZci3l7hei2G LcerE6/2LNCSg3zoRDcS1nyuzkk0b4H2vH86Sc2dDcu0OFZT4LNAC6h52+Ur R8D8VCe36GMLtJs7lb99MZ2lGpPCI74TF2hqw+JJgaxj1E3TlH63ZjrNyHNS idXxN3XqS54+4R6dxlLx8RgrqZ1a+wrPvH2aTnsReeovn3sTNeVOK6PCDjpt ptRa9KNvNdXdz/nU27l52g0k7JGbUEbVtV18bwnztEmPN6cNNQqpglrx0oMx 87RMd6XDH7SfUIeFZUIvWc/TaKb9LYcz71MrFl738EjM0xgta/7MON+k3ujY r5s5OEcrviRtFZMURd11//xaQ8Ac7dxLeznB3T5UjkAWhxP6c7RCg/HARZ+z 1E67lHczXHM0ca6GA5+YHagRku8DJR7N0tB32fGFSiPqlwy+Zc/aGdqw6wkt /qRNVK/c53R+gWmaagt347Wkah0VHs/wPT1TtDGNW77kmVKdf97beXyeTdEu j3x7us/qhY43NXfzV8MpGp1J8UhlVorOhaYMs6Qr/2hheW3a2Y2eOtOj2/bv bJykXRm2EpwfFdAhhtMf7fMeoa0x5HMERx/abeO8Ob31yg9a0I7il243CrXq Gn/Eqlu3I3lNg9FM118au3e8L7JInkaxV+h3ks3rlRn9yL8cRQi6bWNWdLc/ 6oqsXBahpyaIugYJdW1XdXdtDu9p0/fO5Nad5xl/aHHljNiL1KsWQVP8uvbW h5vDRA0FzmU48vXbkHVPqng8+1N0jd3e9Z5EVKiw7v++b8dY+mmr3xdbN7Pg ncHgxU3r/t4Q+TeCV3rdhy6f2nWvSmbd7px/ZD4f3bJuyfzaJOKo7Lovl+hb 86ZuXbfXE/fiXcoK6+Zi1DylNKC4bgOPg3cUb21ft3CpxDmDLUrrvukdnajy XXndVlfNd6QVq6xb8VjEoaxA1XW3DbJn3Dqktu7Ppwb0SJLq6+5lzqbfkdnw zJOzz0XkNizy54+49I4NO/pMzSvrbHgxfO2Zqe2G5R6LiMbc2LC24c9mrlsb Nhm5H5WQtOHzO6Rmk9M2XPFarvlJ/oatatWvVtdt2OnsLNWoYcP+HG+mGz5v OM1s98kv3zY83KZL/d33f/L6M047DW2YW6w6d2R0w2oOhkL//m3YgIH9s+/s hg9n1kfQ6Rt2NYjTubK84f/5D1r3/wN08bL5 "]]}, Annotation[#, "Charting`Private`Tag$20823#2"]& ], TagBox[ {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nVQlk24MHBAunkIEaRLEEEkJJ773gcREAWUkFIpAVEReGlBShAJlZIU lBKkS5GSe0mVkgalpTuVFD6/mXPk7B+785ud2dm5dmb32tnls3TQtSYhIiIi /Vv9/9Z7Rmv98FAaEv1PmfZi+zW4f2RtxtGtjztH5lVw/OOwceS60CjKsekj U0r0c8O2I790Mb/i9+rIucTOGUTnj0xmrX7uxK1z/8w80GiXFin1z7r1ibdF m8/+s9cKYhcxIfnP5e6J9wqvSsAHLiN7tQXaJNpR13kPEsSheVWr/L2k31Tq yZ+0Ly2Kwda88M3JMweMmZ8f9jnfEIWq8YcEB4TjuGngS9Zv70TgQkN7hU0W gcvH/FgBDbMw9HEZr+5qC+YnOsODqTwRhEI+Ojma/FdEfoQlPM3t5YdVwMuZ /MLe6ZPUttmbF/jgsYdVx0fLZyXvy4qRDZ7kgU7tllOD3YXSt8+PvKuv54Sc RMwPLi5Pyol5KB7aZ7DDxCYXlZVMZ4XUYb2Gh8qs0KJgR2ifFiqdmzy32yPD Cge1Z4xD9ZuUGuaZzp49xQpLDV4f5lF8U5re+vZqmp4VvmJXzQz8MawkhtN0 1htiga75ml6r6J5SidpF/jPuLPBuB7vmnJMsvqFQxm8sjxlG1Siz98m9xV8v Yy5TSmGGu+vJA8l2efjp6vWF2GhmCOL2nfjJSvHu9Z1860HM0GwPBhfZVeAp m4sMtTyZ4Wqk1S7tDsQndIQ/f/eAGdaGyQz5pDXhxfrt649ZMMOv76hlzYXb 8dXDWjum+sywRvMwwYO+B681KS5Zqc4MbzykqBHO+oEfmaexZlVihpRTRmwa ReN4x7X5REcJZrgx+sje3XkGT7z9taOFjxn+OBWFG6FbwUcdvCMXYWWGs5tR gQ9DNvECZMH4x5TMMO8q/VgO3x7+Pc0dp+E9HMzSjuaOmSZGVHFq7+RXcPCV gNbt73EUSB+70Ej0Txx8sr0ldYaBAbnDQ8qy0ouD9G2TOUH3WZBtoQmNy19x cHDNGqZ2ciAh4nW+b6txUFrD21opjg/hkE79QFSEg7AlYsKLVgTJVfBbuJGO gxYbC65nxSQQPMGM72MsDhart40rfJRG2tRQQ1woDtquOVfvf1JATLW4nj/w xkHd8bkSjq8EZEVvv+6LIw4at6km3xlWRfxMBrcFrHCwEXYzJDlpIkwWlRK+ hjhIJsU1R/ZIF0m7k2D14zIObjT1AqUDQ0Ta3iNRFsXB/J7V7uucZkiDi2FH hBQO7l9Rz+MRtEIMvOTIFwVxUGori0qU7h4y48+KV2fHQTuNdHaKHkeE2rtw JZoaByXqni8/lXBDJDw00sf2mSDb/Br2/pw3ous8YXBmhQk6ehXWVJ4NQNzs vak9x5ngGQMO5e9nQ5DEu8drmrqZIA373Fjb4wikxqr4P+YmJjg7WHVGJDkG +Wl2Rci8nAl2OoFwZeUkhPzG1EBeDhN0sm3YMfwvDREz8H22k8QEd5d8sUPq d4i2zgmCWjgT7G72u7KoWYg4aZZuRPkzwYUPAU8zjN4jMepaWaPOTFA4rEhG 7l4lUn5hxkTchgmyHLNPDeKpRYYQf/qHRkxQzh29pXW6CSFS4KxrvMwEgzzu fk/ObkUEZT644hAm+I75HX7Urwu5JHlV1EySCTKtivk4DPYjdmJzQ7l8TLDu BZd6yccRJEIoIGKbmQkaCPMrBmATyHterouq5EwwKkU3z+DGHDLA+XErcpsR png0bVUqryL7bDq5I/OM8AeEansdmwgvbsH09DAjPNCM4JJ5vYuo0D3BeXxj hIqXK0rzDohQG0qepoZaRmgSJJ43nUuGhh6reMj0nhGeFviMdsfToAUHumdM MxmhNEuwIt0zJrRrZ3EsJ54Ret+Oywq4xIb+3gx6uRXKCK1/ipWgF06iHKu8 ly56M8JGCe6Ghkk+FF2o3ItwYISe1/t5BFOFUctp/cJhC0ZIWFnWvfRSHA0a X7YU02eE7IXzbVFk59CcoWA2dzVGuEHGIv6kRA5t7+dvrpdnhIUdeKK5MDy6 3lXtzXiaEca8S6wlLCmjbO0GUre4GCHNHoYjeaSGKn5dncxmYIQkrDdPOIpq oqYNofG/iRmhuNw42YckHZTEVyM+aJYB5jez3n19eB297Op9yNPGAKlTPyX5 ON5AI+8X21QUM8ALCZH9k2wW6IDFVJtuLAPMzaFznVa2RnmNTsguejLAJI8N /fY791Bbba2kJ2YM0KtXmy/T3BEtuuh/jOciA0zmHHjyTsMF3Vb8cK/8FAMU 1ZFb/Mr+EAVSc506dAywUJjzUTORLxokwqWwsEYPZdNQ5DlPANrOpZMS2EcP BSzPvz148RRlY3lCwV1FD8/eyC0L2XuGmlJX2H98Qw8PfnRbxbVFoplES73X AukhFcuUnXN/DLr0mxeZt6WH96vfJJvVJaIyS/oZAVr0kHXrQUqMaQr6aCKY huscPaS5aFWyfpiONnyvdipjo4ecLySJW2zeobQdq9+v7tHBGFaRRb6qfFS/ SVB5bpQOKvqxfNNnK0FfVRu9e9xAB03403Zwux/QnyXPGE5m00FzBLN7klOJ imVDtw/P6aCTl15nvwhEnd5sDms70cG4O/fqvZ7Vo5Uxp1RnDejgfeZXA7Jv PqOUN2ZuE+PpoGnOi6uXbVtRA97Mxxx8dJBLu6z4N30nmjFllSpNTgcjfFz7 i1170PUcAai5QAtLWIX9i/wHUILjzxHrDloYJ3KCJOnaMPpCNvWPzwdaKPmw yu/543F0aNfsZHwiLazn5hZrnZhERSG3UrEvLVQzZdyOmphF3Z4MGzdb0cIH RuUVIHkJbbic5DGhQQv5ZTnINePXUBzjjbh9CVpo97EVJz++iZr3nihjZaGF hecpx0prttGCxIEeiR0a+MmEqNdM4w+6bxa3oT5CA1+fUy7o0iYGl4UMcBb1 NJDqmbgajz0piJ9nkfJ8RwNr6Rcu32GlBNOF3Vejn9PAos9it9RMaIGMa5R9 nhMNRGlLZmAOI3isqPO80ZAGKia51VREMoNvhwx5I3gaSDJ9zp6wzgZONrY3 b/HRQMbxug/fRjjAvdDnc4wUNPBUyEqHsx0PKL+qSSm2SA2zdz7OPTfmB+Ss NCIqndTwGabcuGMjBPR/fFW9WUYNN1Q5Lk0snQJpb4KtXF9Rw9sb+JSyQ3Gw aqUe8MKPGvaVcjAxDZwFqBh5WpY1NbRrjf6RGyoNnq00QHiZGo58D+cVy5AD P94HjH6X/Nv/3edT7DlFcMrzwsE6CzXMKuqRLlVFgSsg5qLdpYLyd3WrotyV QR0pVBIapYJmqTLF+nwXAWOzjwnaQAXnyOjIBU6rA9Nw5KFhNhV0WrMJVEm9 DPL09+McX1BBxYX4qZuR2mD3RFVZiDMVFLgT0nLliQ64NPqwN82ICp4NEbk6 Rq8PYjPkN6sQKugKU65+XDYAk3e3cL38VNBAhfsxi6QJOCdZJrVMQQWdW41S Lg3eAn6bLtcolijhoKJH8MShOWivkHbg7aKEsvmmatzXbwNO3/XnCh8p4cJB rHH3pjWwvVicp5tECbfIqhG5GVtQRuXYct+fEj6r7f2gJGsHSL9JzAfaUMKD uI7qzFkHoPtyifL1FUpIXsY0TE3uBFKM80Q+nqWEXK98Np5edwHL3PfVOlgp /+ZzKTZUc24APylqPbdLAWVqz0xc/fwQhGbPBpCMUcAJWZOCjK1HYMA+K42z kQLKEqo5Vwl+QFjGplYmhwL++XUeL3/+MXDZERzTCqeA1vwRwZK3A0FtzcSB jQsFzIqjDMz9GgToA9O4/IwpYLh9EG2vQwi4qWGBT0D/WkGzWuzGM5BDz3uj RIACNnzu3H4cGQ62u0cetlBSwMckeh1BzyKBWkJy/OQSObQebM8QexQNXpre /Pinixzi9A8OeV7FgJ8CnH1s5eSQ6LZNFcVSHDg7931TMpkcsgq91ixyTQQu q2dEjweSw6rUmaoSimRQvuV/6+AeOaz3d7OX6ngD9g96I6d0yOEsfJdx/W4q UCYXa2qVJ4cGh28UzajSQRCdz24pDzn0yK2+z9ycAZpZuiRekZNDN9E6TtP8 TKAr4Bl3t4cMUqSKPXo7kQNixdpbrlWRwaWvu9PvFfPBoBQ/kXwaGUydnRb1 ri4EvApuMjwhZHCUe/nnc9liYEVotiV3JIM5KR53jDNKwDt17uQlAzL4S6HW oPT0e7Co7dTZg5BBeLOuN7/1A3C9xaGYTkMGZbPf1DSYVYBKK3v70HVSSEef VLWtVwUO7tel/fedFILI5Cs71p9AkOc9GkIWKawuSbFN34Cg2b8GiLwghWIJ +G458TrAEIJzoXclhYwjtH7BrvUgPq5yaOgCKZQl3n65odQEhl7TMzWIkkLX B6vt1RWfAW+mpWouIylkfSrfk6rxFWS/py54OHIMOu/mmmaktILKThNfNs9j UMXkVKDF8S5wMFBQ+sf8GJwWdcG583aDC2Mks5Pqx/7Gx+By1bke0LKcc62U 9RhcNSUlknfqA0M0e3zXikmg5vUNtxcGg4CX+arB+XgSGIQuXp1LGwLWHOmh 3L4k8Im90Izo72GwfOrKxqImCQwWc3teZDgGDlVfNYTMEkOrCJr7IhIT4KLW yrbjN2KokVsaPDczAYL1Vc4YlRFDetUvZC/TJgHj7YUY4UBiuB9/yucP+zTg 91O6U89DDF1iKH+0/JkFNk/DX+WQE0Pj8I2u5JI5kPNi4lvkEhFsixxQKLea B9LJYfLmVURQKje1vr1mAVysHKT6Y0AE/7C60jXhl0FBzluFz0pEMFFeypjr xzJgf+VwN5KXCNYwOz0sdlgBj8MUEm6QEUGv15tvN/ZXQN8WedSVnkPsPJtW Sj5hFeQMJK6NJh9ij3q8jKR9VoFPhYSOy51DrHYqjbO9bBXoJtYVUUodYtqm d01U51eBkJcBY/LuAZa7zyxjzb4Gtm/MO0g1HGChLnFtB4Q10Ir3+db4/ABb yB9Omb29BlK4cJImhgeY0c3H9Qd+a8Dl4O2LZd4DDLtuKigQv/Z3v1NYfjz/ B2Nn18aQ7DXACdu0jr//gyVWlTXh36+B5RSL/FzvP9jAqFUdS8UaqPP/RUtQ /4M553qmw49rINYyxK6H8Q9mb4tvUy5aA3dVuFptf+xjFjqZuJS0NYAXLD79 J30f23PsfDf3Yg0wkqmGRT7Yx6oKL9FLu66ByamBeaHz+9iJw5CZ2OtroLzJ 7nIl0T6mnU3VKXt2DTzLIsrRbt7DlgeEReTI1oBZ8Euqieg9bJg7vqG+ZxWc u3vqrvutPWz72+JHhjergPxy9RcakT3M6GLP6lWrVVBAM/lUpnIXowhbvCNX +3c9Ft1nvgTsYoqdJvbaZ1fA9TYa9Vtau1hU9jegE7cM9l9IkweN7WBkkRc7 za8ugQ6Hz9YcOTvY6uWp3OTURZB+7UZjgfMOVue+UyqwvAAu4wIC+8l3MBsi /tQQj3mQENNFInpmGxtk9MtWtZoBdm42lp9+b2Hjbo2ChMRpQDDcrdWBf23Z n+34bQrMsvP7e+ptYRLSO+JlCpNALum/w5aHvzHrW/xG9ifHAbU3mZm5ym9s t+vUQofJGBi+lVCzSfsbe/N2ZzhVfhQE8tR6c6X8wvIOqcrO6A8BI6Lrw8V3 f2HLvYHph0s/gPj4LF5N+hd27wzyX3zEd9Cdxrhv37SJcVhIk+6v9YHMgIwb xyI2sV9JQ4YvinuBp5V8VZzxJoYxVKLuXj2AX9jcEy5uYAaYFuN5yS7gmF24 zcS8gTl46J18L90KztLbB1wYW8fOh50/r+XTDNacxOmd89exzmVypYHBL8AJ ny3Qo76OZaDVOT/bG4F06p0CUtZ1TCExw7fzdgPYJBNWkP25hpmoVehFU9cD 129p2rGP1jDJk/Klu2EQyMlYfG/SWMO4AhI++rfUgN/xPFZbbGtYwUQ+pvim GpT9GV4WmVzF7hQxs/NFVQJ3y6SHRsWrGNv2Y0Hx9HIg/9mENMRnFVM4cFu7 0lkGtk+fCK+4soo5RHfu3uP8ADbmT2vItq5g5P4lvehhMXB5/8401mYF29td MK+KLQK/vYVctohWMCvzC+NRYQXAXT0txOjVMjau1+ebzJYHthl53lTILmO3 yZxn77Rmg4c/Xr3n6FjCcDdFtVpyssBuOnuz170ljMH/WnpO4VuwL4f7hbxZ xHhl133SBdOAN1E49RuFRYxckzepNiIFHHyl4SXqWcCETyoYt8u9Bn7RwbIW 9gtYf9Jk0sMnrwDxLbIrdZQLWP7EZN8WVQJ4LPzYXCB9Hgu7+StyBMYC0tUD 10BkHiNScpyYznwJyAO2U9Sc5jAGVifzXxsR4Kmma1kW7RzWAAOAWs4LQMm2 3kKZNYt9MdSnDygNAyGj9uN3lWexiPLgau+DYECdvfC7eXAGI26srDUOCgJh Tra04m4z2NwQIu6nFgho8VN8zxlnMJmka7SvFR+DF2SW55dzpjEL/9C3aaZ+ gOHbiOZV1WlMQqpzxPOWN4iIv2FZNDqFae+8//FR2xPgLAfcmTynsCJi3Vbt UHcQffr6cyeWKYzrGgUpGbUrYPnVmdZdMIndpZ/JpfviBGJqtMtlNCaxwT+N jaSYI2ALbmmLmZjAlp48ON/T/QDE6Vya+O09gWV+kzWRD74H2Dkbtw3ZJ7Av HfUXMqPugIRJZfqKkp8YZz5N5PkFK8BRUCPAofUTsy7PN38bagmS3JUUvGbG sYNd22z0njngUi7XHvIfxx65lmOfKG6B19SyVsjJcYyPrLTma7ox4Okpfvi6 bAxbIttX139tAFKSJcIPr41htuZxHzaX9IBKu4FGbd8oZkZuGM8WqgPULK65 BNCMYo5fOCJ6erXBpU2NN6qEEay285RNHu4KuPxUpZnCdRi7iMsa6fykDjQ5 kF9fs4ew003XOeJbLgLtfDneZyODmLWqnIGD1AWgQzh7RZt5EPOmTuR+1QKA freoG+OlH9hs9JqcFFQCBjYCqV2PvmPcKvQ3BaTkQeh/zsFRHwawVVpTrgs8 suDTo3oH3eV+LC9Td7X8/jmw+pTZECfSj2mfHqhYpTkLBKNvo11mfdhxh7qK 7sXTwOh1qVBUfC8mf/hTQFX1FAjLPkan29mDtaXs2R0wCYGa93qbTNR/7dW3 bqvKD9ax9MHOC90Y6dlYkbZMHiDcslEX6dWFrR7UfDS25ATGfSo5Ou87sW2P +gS1nOPg2Xh0JNNSB+bjJXoy5AELgIsTHp1CHVjF8vc00mQmMLtyB/J/asd8 vYa3CgzowVVyyvA0iTYsJVen3ugENSg7+e4Wf0oLVkodm8L7gBxwS18ST2Nq xvw1HT7Eg2PgicbsLl/AFyyxccE4yI8ILJoFf03dbMIE0v2huso+qud2Kp7P phEjUYzm7hTfRiuffbFJ7a/HbJ85R+RlbaJ86bayfBp1WOG4d3F8yhoaXEFJ mloJMc4UfrpHdMvoyBudt8pGNdjtczVIW+wcmt8aeUFZqQrbpKtd86yfQr12 OkcJ3OUYJ+/9YVHvn6iGMM6bQPwB2yuyXmkzH0WP6+lyECaLscNAdDU+/gfa cijo4PsiH3PjirxgGdiH2hq/zfbRz8I2oVpsLXU3SloqNOnNkYqphWk6VLJ2 oIQTmsgujMEo2ak0EgRb/g6SYLWW8Bjbz7yOFxxrQh+RvGxUk78LxNunmjqU 61GJxNufWeT+5uU6MfoaUhAdOVG8TMOQBHb9X65flK5C9aQHqoOUM8DpJTSq tbMMLftu+PipVw4gcB4W3OQpRenggkCDSRFYwNx0YoiLUBCdG9TgXgqkp3qQ jvoc9D+b+3MNL8tAwc2i2/wmmWiawmnNxuIKwPlZ/qLK2zS0h3ahoLG9GmhV 8mra4N6g5GM5TE0LGCBmJHcAQwlokrGs4u3AWrCx7GsU6xuDyqrE3J/A1QP2 Sy0ajD8i0XbxX0m3UxtAlIndMHfyc/QO2/X2CckmEHYr5GAoOBglIvpweLvm MxiMeZleqBWIJsyxSE1qfgW+ZLuetl/80HPdLpZWg82g1cjMt7LMC22p7ome vNsKtoHzuuCgG2qVKdNotd0G8Ielp6h7nNA/4S9/TwZ9AyLmF24o7tujLfjd 6JLQDhCmcGXDz/0uGi+Vk7eu0wkCvhSJqs9aoVbCJo3nTnQBQU9pbjIhC/Qs J/WI01gXoJW4P03FdhP9w1D5uySrG5Tc6OtK3DVAm0nvMWzY94Ch89KDDz7r orE7J05Jy/WC4kBB/+h32qjl8leC859egO0933A7vIRKTDw0Lm3oAx1JHid+ 37iI7vaLOm2E9QPfGzMcu+EE9HPr91BpvQEg6Ry2lzWviNp6/Ph84/R3oJxo 9sDKTRalFBwkDTz2A7j5ytJJHJdCs78NKucN/gBNhG3hcInT6GWvIZ+e0kFQ plazi8QKofPCw1X7YUNA4+6a9hA3HxrWNbwtaDUMnpwTJzRwc6LiPiOyWvgR cHfvRX+YMyvaKjrq5MoyCpJfXtnuX2NE7XpHC5MXR8G84YuRgSpqNIjg+NvS cgzUOvhEPWcgQw1iV1nc28eAJZCarIkkQkUWHaXDFMdBqWT9giHVLrKtvKbz JnMcZDBox/c82ES+xP3nWIr7CRS3wxZ3iVeR+KW1F599foJQOpaKcLo5xFbF KX9w/ifI661lp385gcgnrLesGEwA1ZL8zyfDRxDKFaf5Y/UToMfkiYF0Zz8y cHGDkl1yEix2XzAtCOlCshOdRcRfTQKfIPnx6M5WxHN1Q5VAMQWUbw/N/jBt Qi6ruVjpO08BaT17j0DDWoQjafOx7egUkEkHIRPfK5H5NZfUR1emQR7zf1IP 6t4jleq/sIiP0+DL5dlmlKIICU12HckQmAFKQgORJR/fISYbv/bLw2dAvqL+ lDdlOnJaw42zbW8GgIydr92qycj+698K43dmwd0TQQE7nrFI66ab0a/uWfCs EivLQyKRpMtbblSEOcBjlT82ZRuK2KW4x3DlzYEKoXBAkA5E8L+3SqXY50Go gL8C75APQqvp0aUaOA88+R+J2YW6I0Op26vGq/PAwI06cH35PyR/y4PB/uYC 2D2zLHNP4z7io7Vz5vGXBdDY6ssPqqwQ7fSHmrEyi4B8w24529UM4d7ZuZeT sgho9FpiXPsMkWVtz5Aa2iXAZVis+oVKF6nJ2M3q8lgCXgtOUFnlCvJi17Np enIJcOYcl+KMvoiYXtub3L22DF5+kbbXPAYQyUyvYwyfloGX8WuiKMPzCNH+ Hp+A6Argv9+vEBQmhXToPCKcj1kBF3ItnlMaiiEdej6Fb4lWwcE13r3WGgGk 3KemplBuFXxfPj6uF8GFpGQftFXYrQJrXs/+CxxsSHAPOlyftgqEM8LfRfsx Io6HPottA6vgtcYXysFXlIiRGLbXT78GPrmjCoe6JAjh+iH1z4trwCmtji+T sIc/5Qc4Fj3XQCJu5jU5solnzPUV/f33HkRXUHDrK+kyfufvUUk0swbalWS6 XilN438SEV2i5loHKrbZbZ/+G8M3nyYYsuitA7M/UQOUVwbwJQZ+Ntwh6yCk Qf9m4EInPtEfup7C1kFDRFfYpk0z/nEe0ZNzv9ZBv8XAwgO7evy9fsJL/OkN YHzwzMYutBqvS+KfrmaxAeKk7O2/rL7HK56pLbkWtwGqn7F5bBQW4GV7+mJr vm6A85FNJDtLmfizXoue4vsbgPf4m57Fk6l44a/HVSgtNoFAJ4m2zmEUntna vhsT+wXcBq1O9bG64xeTODclan4DjvVbuve5CPg3tG6ydFM7IEx5WbuL/asS iRvrkNUJIgLpMUL5avsXRQraa/6Wy+SEoqyzFbVlQD5grE/FKZ2OMEvNYiWi dkG26FXQNZ91JgKL/ycO6WyKcw5pVoyTBqyE+o7ssc8pdBKm9xK5nvqzE5Sw 49oHtT9FQ3TcFKSTOAmzYlfeyhpZCJGyxEz77nITvAuuJliEHOPtb3myGsjA R7j8AC9JyRHJcd3LUi6xnp/gyGQqE3RenMWOZoG/3USQcPg29vCCHqTjyW2K JZ8XIlAQdfaJepBReJWr6DG8EiH873usY6ZdmZyk6D/Tkpy3lJgS+2fVB/ox YtHi/8xeweWgKijxz1FOwZFn+yX/WTfo6pnksrP/LHYj8HqGt9Q/901TpUVf P/fP7ZZTyjge6X8eJ83ajuE/8mambeEJ4SOfWFg4yXfmyFbO61uSSkfeDTjM 1zI8svDbExwh4UdWUB/soI0+suZc0tOI2CP/d4b3V1zykas/CHdk5h5Zt0k6 qOHzka1tf+EvtRzZg/rjRkv7kZO1FS26e48820fA/5z4P/P1INmwnjkyHWdD 9tz8kc+ZqR9fWzuyKjFVu8uvIxulNwdubx/5nuozpUf7R/6f/wL//P8AHPg3 /Q== "]]}, Annotation[#, "Charting`Private`Tag$20823#3"]& ], TagBox[ {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2mc4l3/0OPCPj71HMrNnlJGVfO77fUtWSUQyKiNK8hWyRxERSskIkVWK QlGS5H4TycheycrePvbm//1f1+/39TsPzrle13UenEfnPDkidrfOOxAJBIL8 v+n/18Dxs4t7e0qQ8D8x5s+18md734ZsA2ufN/YtrO66c2tp35WRT+kGx/ZN J9clCH/tO87D5kzQ832/pbj9kqC2b2oH3WO8l4/95wPd1c6ZMYr/+fz35KuH 6xT+s/884vxkWP4/l3gnOxWck9uf9+kF4d2kI3DIY/DwWXd+Wt3Ub4Z6MzLQ LeCiqbPPCHN2jW/nbavDUGL2bPlj444DV0LjDja9kYKfHdoH4nl6eO/YUOYz HpCEgqHI8YdfOIQIR4Vwrfvi8Co0opd40CLWE5UU/rZDFF66oF59qTdK+hCD Y87ySRFooXecVtQ75shNFRnqP4eEYPrt4w8IXEEKV9X633z/zg/j8SxlW84Z JRmfE3suL3lguOnPL4mvS1Uz+kyqfDUPwtP8lBiPhqX6ePBBki4PB0xcEXwe HnFdgyGwYD6WgQOm3H7Yh+e7asj56GcNbrND/7pAptcvvDW8XAIZ/P6yQyoa bV+nhHANGqvR7ne57NDxR9GjKrnXGuLKnzw5EHaogwugXUKjGnZjpgV9tmyw /i9xbuOHFSns75ydjCkbPJLmlVI3b0fK7X3A5a3DBhurecGP2hukxdayQDZZ Nli0gPIZtnmTiHf1E8MmWGFa3vPSOoY40mnPwD2hX6zQnCsvaJX1OSnm5odr Xz6wwsy3yvKZIJMkbM6rMuPHCovHH1TNPXhPcjQ8m3LfmhX6dPeaD6kVk96f CqYUOsUKFzrchbJbvpHWT3xyKpFmhQe80c4z299JQHGyxZiZFX6uoTHsqagj hUkJqE8vsMDQ3pRDbcMtpEYB4/TQThb4MugcTclIF4mL8z6t4FcWWDF9WsB1 YIB0heGLy+c0Fvj908nQaI1RUjZhtsMolAX2EQ9kKGjOkGZXhZEpRxYo8lb+ XcuPRZLyrOnLkLMskOlro+z2zDopYPgBo8AxFnj1zNw5hTACUvW7zL2YiwVa Zjw1+vuXGmFqJv8+t8UMJeQv/jZfYEJMf4hrTg4ww2u+uhRMggeQ52Xmb+5V MUPT10e3HNV5kaHCh6yHcpghd6XMh8kXwohMDvT69IgZXg41FPMblEDc05b7 DN2Z4YXpqufJlUeQ0nhp7QkzZnhS5kR70d9jCJ3V+FUKEjO0QAcv7mYdR8yE s+/xiTDDUpYXmlKsGPJy1D5DiYYZDhoofQyeOIUs5opBg2kmKLe11n1f4QyC uQ71OzQzwQgNetaQN8ZItErGzp1PTJDVVUe1ZcIM6d20PpSYzASlvqHDmwWX kcNQUOPDXSaY/d4iP0D1KuJ1v8+izp4JTu349+KdjkjV6RSfYX0meLE8uvUJ vSvCwWb1bFuOCd6MvThiVeCB2HTwFh/kZIK5dBSfl1/5IfnJ3e1yG4zwUoOZ s5xEMLJt/WxJt58Rql1KXzagD0NOS5hx2H5nhGw8eseFTz9EEqc4Ff3eMMIo hsG5w2JPkbGCtnOxjxhhz13tuvoTzxBlz6cu79wZYa1MQuj9z6nIvRPGj6ov MsLvIoNfjbYzkaY91nf9pH/7xSTsOTTeIIeqG+vWRBghZTcH7f3hfMQp8tEk Gy0jJA9NkbDcIqTknAGdzAwDzIogJIcQvyA0BxmltFoYYCMpwU2oGkdMe2q1 LxUzwDW+M7GfpKqQzLQH9p7PGWD3mctHGKNqEbK9bkh0EAMUKGuU/yjTjKAy NJmvHRgg/+fG4y2u7cjD+SoITzPAnaSQMOfm30jPx5CB3/IM0DVe2ZSsO4hI +53cXeRkgEfpHTv0Q0YQT0AhwLRJD4sOR2f5NU8ilVRQQ2KAHmb9tdg0Vycj bHV3LNEqeqhbPp4deWUZufIY8b2Y869hDbtK1AbyznT7mWs0PXxAH3S6ZncP 2eT9Whxxmx66XCnT+UpJheoN+HZkmtPD7uKU9RoiPZrw8vjyV4Qe+mIB1VCN FR25scbRIUoPt+zySO89D6DH5IsV52jp4YeQD8K3NHjQoGUPI9pZOlgwIGT7 XUwQbfyidEu4lQ6Ofjx0p7pEFOW/u/hI/TMdzLCh4kU1pFDHUx/enU+hg0Se 2fPS9UfQYnrX+pvBdNDXlf/xq1ZFlKpJbir0Gh1Mj5QObKFXRc/HzdK9OEMH T2t6fWE/roGmW7yT+qxABzdDNYwo6jB0TvCmTvNBOqj6V3B6ruAUSho57DC5 SQvLNT+IzXjqo5E5EyHEQVrIud246mdwDu12eZ3JX00LuwxlNfnUTFBJ5WsV yrm0cKH+Wdjok4uox4b44NnHtPCbHmuBav8ltKJ8ePeaBy3kdo9QlMqxRVlC MwWCLGhhQvS3SLt4B/SSvi0pCaWFkeaULlXmTmgui7BVoRgttCiR5m5kdUXX 2/p96+lo4S9P+UK/x7dRnaTUxJFZGmjUO9QjUO+Nxl259HmnlQZ2rMdGx00E oENi/J1cJTTwH3OT6nuRwajC5O9l+VQauPFxXINf6z7qQT56mDuUBvqRK5n0 nSLQkrXgy7tONLCr/Cu3skU0ur3bETNqTAMrN71Nxnmfopo0Mj8ajtNAu9u2 eXxP49Ew5jubRUI0sKYioqQrLwmt42yVe05DA40FNximI16gLIckr96bpYY9 rxpZN8Uy0fNifs9utFPDaHb583Hhr9AEmcZ6o6/U8JtxlUlyWA76R1GUcDyT GpptONWmauSjwupeykIR1FDTzfoZPvQBtcfqHGlcqSFPQckGg/gn9I2uYOqs GTVclLTDfFZL0BlD95Z2hBrKZTclcLt/QxXMflCXiVNDQZfn9tYWFajnZb4T WYzUsOHmxdAzzlVoqb2LS+QiFfwTyr5yheonunuzMtPtNxWMziDs7qg2oCdv c3WZQyqoGl8xbB/djIb5OTFir6mgSLDoK4YbbWhdcDmQiqaCjpX87z9+7URZ Izg8WDypoIlB7h+mpB7U9Mm1NytWVNC2k1vfi2sATXxW2tt7kgoG1VzvVZEc QntfsLBXHaaCrzgtvnnIjqLC2Xbab9moYJjdnMBi7gRqn1fs+3SNEirN69CN F8+gOR8Z8n37KWHjUPMvhkIyOvf1ypBNNSV8j8cxsTgsoce+F3LpvaOEdlcq v00Er6JedTRn5GMp4V6tsnYn9yZa2mJ5l8uPElalr6jyH99Fd7vzi3ZsKCEe zusl6k8BTg4SJ0Z0KeH0e5dtNWUqEDZudqhBjhKedP7MVm9CC+rnco2KDlLC 9DprZHGcAbCt7oYmbxPhVK248iMCKzDdOf8leJgIHx1ZflTWxQ4SqV7POtYR oQnPJp1DKCfoZdwSMfpAhKLdZ8Tvx3AD4QPnzNQSiZAzmCkJZ+QHDnxZkYJ3 ibBIdiT+BIUQyBVZK6e+RoSqwP7BCBQBc9JnlmYMiJBF5eVk1DlxcEwhTapd iQg/vivDbqlKAS+1JauvfETYzpTsEhkkA0pR3SeZFERYFqd1iuuEHNjTfl4V MUEBhcuqhkyOK4JTZ+fXXZso4C23hLU3SUrgganWUfNiCrjUrsLuoK8KGqye 2YJUChjn/fltjZE6YLs6HS8ZSgFtNt7yM5SSgKkTqGO+SQGnn1mzauhhIMkt dnfZmALek/LeQ11Pgn6f8WO9xylgxD0J2ek/p4BokMb170IUcBndwn8+1QXX wh8/z6WhgBbbn2wEU0+D3OjhpphZArz1+k3yHqUhmItXo/JtJ8ATX4rS8ieM gFJq1HGbrwR46LXPeUY6E+DzcsBZN5MAlS8+GqO+dgGUvVXKkIsgwPiFXHUe enNAKArvOOhKgAcEmPfOrVuCU6V/6HfMCNBC/ZGUhcYVkJ/7Sr1GgwBf2l94 /JDLFvA8v3UjRpgAXx/Ev145cxXci1JPsqImwCulxA+3Kh1A5xrN0zPte3jX 8T6D5HuOILc7eWEgdQ+v+qAybxR7E9z5ImfscX0P1w2Xn8nedgHnkyvf0ynu 4Zfu8XPmXXUDEv5mbKmbu3iIjZajy53bYN1q6pZi1S6ekGr5pKDNEzSQ7jRV P9rFuc5Mx8w4+oB0AQ55y4u7uF9EuxzDKX/gsfsqek54F8+aYM2yvHkH6A2o z92b2sGL6nqFWhaDAD/8dZb74w5+4rbsNHPfPTCXbpv3NnAHr/krdBtdDwWV wStMmO4O/uX0nfIAvXCQYBfh3M62g6dXFvSKtUaAG1oCDY4927iPDZtrS9JD QBL/ILuTtY2PINNr114+BmzU2lEx/2zjel+NHe/7x4CR0e4pCbVtnMmK0zXu TCwo+eF8upSwjSspn3RX144H1g/i6Idjt3DtrnNrZhVJ4NgN6Rvel7fwksJE DbnTKYDmdNlPRqktnJszOP8ifRrokTGSTidv4mp/NlNlKDJAPuNIuHLpJo4W 9bVeTckE92a8x3+GbOK7v5Suq5q/BBd+MepePruJRy/RdkarZoPtaCWasMEN vEm7wQ23ywXNt2oc+HI38DMXEc83H9+BLCOr6vzbG7jdgdZUFcUC4KU4L66F bODWTq+isdn34DRHSGgXzQY+fLsFNbUoBIJLXCM3m9fxhEc7fKN9RWCxLVeL kLyOh460hlIEfAJJ8a3Ew0fXcQ3Puzn09F+As9c1u2+ra7jL3Ls0wmYpwC5u VhjDNVzFxuVUAt03MMEjGuxnsoYLXKvila+AoGzj0yCLwBoe9/rUSM5aBXjc o49lja3idtRPjT+h34Fqitteve8qLjxq/WZ6rxowBFJb22it4q0aRYEf/WpA 3+Wk8mWmVVzjnXmGLm0tCBWqCBRIX8FXWf3wELMGYE640PfhxgpuW1V92563 ERz5O0HSUVrBPUSD6wPmmkBbJtu2y49l3Lfdl+7BeAvIDnlpRflkGW9MCA8U mG0FfvbHvz6zWMat0g71BW61AVFJGz84s4Q36F7Q+qvYCVxzCtbZDyzhznLz 6ak7PUCBxSXk5OAiTiAONQQf6QUL7kdYbuct4umdqrtNNn3AnZQj1q67iJvo k6RnuwaAZ1OmYULAAm4e6CjN5jsEVJVtf//QX8DlqXFDbaFhsJooZL/GtYAX j3iv0/wYBt52Kb7mH8j4b2tryY4Do2BpSlZfpWEeJ9SUnw3PHgceH99cSbg2 j49YZrWL606A1UAJjzXCPD4tw6dmNToB1tmE0r6ozOHybsfmt3mmgG/P8498 zbP40Rw2LDVvCmxm8dT5O83iRIeDqCY6DbZVOVaQtBk87sPlTJrzMyCQ8Jgh TX0Gj9JZt3VonwG7tYzChPZpPONEur2W8SwIin2gYusyjT/0bQrU/jkLKC5T n6mkm8bzrwbgB9TnwD3JezZiWVO4CwvtmEXWHKAi73qGIlO4xOF+WEMzD+5/ 8Y8a7ZrEKQ9KPmO/Og9oQtbTddwn8QN5H8LJn+dBuIFn8WumSfycVYtbDJEM 6LgW6+leT+B66+GaqhJkEDHg8veG5gR+8eDDiHotMmDImV6t+zOOuxs5yalf IYMod0emI17jeKKf6UknDzJgIo2KPGIbx38cLxc+G0YG0dR2anO5Y7i04df7 bbFkwNrUb3BOewzPQ5fTF1PI4Emild37gVE8g55FPCuDDDjsur3Z/UbxaBEn g7//Olb2wiN3zlE88eaRiXepZMC50pLZlj+CCw4FmtHHk0F8uWGJsv4IPnGZ MWQnnAy4HtT/ih8exlUXf/bGepHBM2O94dXAYTz+EKNejw0Z8PBXr1/kGcar PrIyDemQQdKIJsuXwiF8eoWnDJcmA778cjG+s0O410HtQ1E0ZJDiraHuP/4X TxfLoSqH80BAs8SwN/gvHqSl6FDoPA9eMKjYI4f+4mM/Y92V2eeBUPsH3xfF gziXBH9wZP4c0Go006/oHMATxqK3h9tngY6tkUcI4wAevtO9HnllFugt66dp Y/34hEOinsHQDDDgQ1Zqc3rxjOBA/oe/p4HZNbGM1oDf+EGxncyomEkQ6Xb7 wdNP3bjUo48sERsT4FvA91vn57pwbepa/dorE0A89iraat2J51JENz0WHQeL eNaflpNtOJYvaO+WNAIk65cqY/xbcW9R8w64MgwsOrVyjT+24CFb8SlHzg8D ODPs0yLRjF9QswtIZRoCgkp6RzLZ6/CCMOo7wsID4L7+xKZIyE/8s1aCFcV0 H5ixflCbsfwDZ65rMQ4o7QWlD39ey+j6jj9N4vw85NgD8hpiTmpqfMWFIm9o 8DF3Av+NlgFMsAT/5W0cn0fTAfQlOQIxik94enfFhgFtO6jfE791NzoPlzp2 OfO8YCsgJybZLyTdw0dSCgsKDH6BAGJctc7xG+BL75Gh78X1QC75ag2n6mPA BF7IHFCoAyZK3WVhmi+B/qLUJoNRDSj+ffFeuH8uCH/16a7LajVghtNiVZbv Aa84V0Do2yrgdu3mZFVcMXi78Xi8H6sEmeqyBtUfvoDuwPWeFOEK0M40nV/d WAZ6F7sKKFggSLFQOXE1tAK898JlR4XLgIpW/M1hju9gUhVYJOmXgsYjKylX M6rA8oLxaEdkCSAQPu1dLa8BZytJBV0m/+73SU7FEYNakAGmBRh6isCxNg87 +z91YMNx4GaGZyGoL2uPHbnRAKpdjbQaJT4A+2zlavv1X6DfmkE3uK0A7DyO Wx0JawI2NnxexsF5oJ60GVsY2Qx8burb3zJ5C+wlLauP8bYC7nZLIYUrr4EC P0O/+2AriCht+JUX+wrssJauFr5uA9ETWgaK41mgjsqJdcmlHdyYcOI6cTET JGzwSiupdgBr0cgIo6F0YDdXi93e6QAQS9ZnZkkDcsO+FkVVnWDg6fKlhfAU UNPwO1LJpBuMvQl1ciUmAkefnhor2d9g2UoEHW6LB3Tif6hCKXsA9/uTxdyt sSCn6Y/muz89oCC7qIFnMwac9u+90170B7TvsZsd0H8CpiT7vm5H9QIT33Mn 3vk8AlGtfevi9n1AReplfFZmJDhyp1/lLKkfXN2dRhUZH4CGwwPunpwDgJmx kbos7z5w7hgoSJ0ZAGwmFAPT90NAGOa6amc3CCI/sPi9eRwMzBLInN6Ng2CW qgmVj74LpGZclaJO/AXJWcblqsYBYF1zwTgt+y+g6upWSLf1BT+fubkWcQyB CC3eCs4vXiBxdiG65s4QYIwLzMwx9gCOWu55f6aGwDfWuvA/Eu7geNJi/bzZ MOCSH9+LUHAFdPPuU5Tfh8FPG9rw0d/OoPvUEh2P/AjI9PTYtMi7AXKSb0sd eT4CiDVNh/XbrgE/8pI2RjsKLmS1McqesgendTzsTW+PgvkpzmiWDVvAl7J8 z3FgFIgmskiLdFmDqQWPjIAzY8AkMPpKtuwlUKq7gj/5PAbc7GyUpkbMQWSq Z/9LsXEQHxtH5ti4ACyXVrZLHo+Dg4+9fgtZmwBZfS/+X1vjwLJEa+k3izHY frGq/vf6BKiVuLEcSWEIGpa9zFfaJkBetjeL9KXTIOX0mhc9NgnqqZZb5ER0 gXO6d7zAu0mQzORo66R9CpBW14oU/72DL1zVRz+VawImA59W7dApcKjzV18D LQC9GetkC/IUIBhcdXPm1QB5az6sLpemwYuTHLftstTAnbMbR+/9nAaeM2M0 OonKwDDL1yBBeQbc+15YyTijCAQ3Npxy02fAcqdGeoOUPJgz9IsoZ5oFmUz3 i88zyYLyl5uvW31mQZLPVYfLHlIgetPvx9jILDA6PLPhZyQOrhhtjWwazQFO f8fGsaciQD7bn5L12xxI/5pWUX5FEBC2t0TEDs8DEWHXtj0VPtBsHICpxc+D 4Kzr3icSuUCzyZ2CVwQy+FTwj+MZjwOg5E55eYEqGWQd5WCn+8oG0nN2f31x JoMrtxRmOMqZwIN2tO97JhkU8R08tP6GDrju3Zn51U0Gx35MGUyIUANzGXyr i2UBXC56t/aQiwiwC3sMQ6cWQEVa4+ens7uodBDgm/FbAFPXObeXHTdRtrd3 D6++XwCLhbe1/MNW0Y0O/DhhfAEcc9+w9lVYQocIBD0GgUUwzE6kJpiS0TpZ 7CKnySIgR2VacFZMo4VmQdcEIxZBQl9/zbXH42hyMPSUxhdBwKknp2Y2htF7 7wj3j60sAoE5uY6hqUHUqQuLI8kuAeUrvENtL3rR88TgLB3bJVA04WtyVq4b PXG0otDo2RJw9u7sGLnejqq0dyaU1y4BAm/z7qBDC6rgP+N3ZHsJWP56RDud +QuVFSVaJ8stg18+Vql6arWoZC23Fp3tMti6OdJY61KNirgelfKKXQZvVtne NhyrRA9xazGOVC+D5ctIh81AOcpTbj5vvL4M2OWvL01Il6IHHFzacJkVsNPC tVEtXoyyMIV+Pnp5BWgVF/JHfSlEGYqSnj9/vAJ2kwmmDzMLUGrLgrv0lStg OPRDGVdhLkqgqL7qvbwCdI/pUQoFZ6Nbr3t0RyVXQVFqi0fqUia6akiWNbFY BW/Dp0mbQ2nowgo1W0XUKjAE6vJSDcnoTAr/slz5KnDjrnA1vZuAjmspdqeQ V8Gpnh79o/1P0aEpnTIGsTXwRCJdJyT1Mdofcynd58IaGHC64dDmGYn+Pu4e Oha+Bu6XPCkNEApD2wfCHU1L14BSk6CHrt89tDks1aByZg0Evzj68lHHHbT+ aJGCgtA6mJQXmDpf5Iv+aP/J+cJ4Hbj5qAVoXfNEK/z71xlD14HTqDT6o8EN LRNd7vUtXgfDbzRu/Yj7B/1cS18xPrEOdiLXDKmiHdFCV6FXF/g3QJH83cEH l+zRPG6ViO9nN4Cdxjer2T4b9E356X8UgzbAlxm7VcspK/Slg41xWuEGaFrn eJN34CKaxuSlwjy6AWgtFWTzWEzQ5KIoXn/uTdDcYFJ/3+0cmmCZsTOhvwkW jeqFf07qozEUn/+aBWyCBfUqNacL2ujDNw3VVfmbQPORimlKlCYafm4o59jf TWCb6ud4q52E3ltde5R+YAtsbm2L2+aooYGpzO4sOltAf2J3x+6aEupzSsws wGcLwMSs3us18ujt6eMnpnK3ALiBUTsTZFCXp4aC5n1bIO2fuyc+YRKok7o9 8QfrNqAey5L1sBRBHQZ9x5ROboP6Eflg7Nwh1Cb8cV2GxzZ40ufudpmdG70k 9yqf9fU2eC8+Sb3zgwO92FH6NPD3NvjR+fBhZQQLej6g2WuacQcQ3pVWJjbS oWfFxiwt0B2AZwxx+4hQoXp1W2iN6w5ot7vu8dGYgGq5sYupZO0A5YKUVieX TQTlkaLN6tgBJpq/L2/YriDqOGmajW4XCFVIZnTpLiDK18433TmxC8Tp1Rm2 xqYRBWbHohnnXZD/hHahLmgMkf0Y+MwybRdY8Pqo64kMIZJWsf4/W3ZBTKVJ wapcHyJKzLFWpdoDbxl6Nb96dSECOeVaL1X3QPJ32ZPB3a0Ij1G7FMeNPUDa fB2ziDQiB9YmGYOe74HImK8PbiA/EZYXe/Ozv/aA9OhSZbHjdyQ0k2HqKIGA +X5cq/jBhCNEr4O99rwELK85jephUwliaZPbWqJMwOI4m1cXXYqQwtOglsmI gH0WOcGydz0fYVBpx21uEjCe67PLKpWvETuhG8UfwwhYVIP+27LITKSUfvcd XSYB+5Dfi9NNpCAcy0+zLn0jYCaa0FUzOAFx6pdKft9NwJRtC6U37sYglT/L nlAtE7Cynxhdv1wUwldkHG7OSoHdX+i7K8t1H3FPHQt8J0OBebBT9d0yC0Lq wv09CDoUWOHhw2Oy+r6IqDvbTVNbCoynD31yPOo24nfple2bAArsGR/f0YYj Lkirzgnz7WcU2CJOmaF06joio9hkaFREgVFr6jBvTtkiIfz22i8bKbD3gQey A55YIb3UGxrrkxRY/U1jAaWjFxBl8qNjBtRELPG938luYIQ87BE9nC5MxI4Y fOtWn9BDRqo+Cy1rEDHtpPNvu9m0EFKBAZfeRSJ2lBWInpNCkLikv0wp7kRs 4dlgrZyWKjIT4kVJfkTE7JjOHazbVEBOuTBuauUQsZM6g9qp/YeRFPN08rMq Iibbw1I7ki+GLJ9UGZ8eIGK13VzGEVMCiMHRuj6wRcSifN/yUn7iQl5yW7fH clFiOOsK55AqO7JNsVw3rkiJRZ7zxYrYGRDTmQcVGmcpsbRFyTGpz5TIu06B kseOlNjuU9XRnp87JKqKwvzhEEqsxF5o+bHPKunSW91XammUWGikY13VHJn0 Mb73eVQpJab4XkJzJmCSxBTk9nSggxLTEMhhH5UeJtk70UQoLVBivl9vrWpX 95LKTJ/fDWeiwpwRWpETsR0kTqDg9UeKCtu2Yw3pl24mOR+udpbXosJCvBIH 7h79Sao+YHk15AoVdrX51/ePbJUkwd05iy5fKkyCTjUkb7WU5DURYiQbT4Vx mk5vCfF+JDW28ujefU+FNSrF6Q3P5JEkv+UhbfVUGEXT4s8ALJt05/VJZalx KsxoiRvPC0sndcZ0yfgTqbELuvybQaGJpLBrFDxi6tTYPe/+FJWhSFK/UQKL tyk1dnIxMSCjP4SkqiFLXX+LGpuYFq5bvhBIGmO9sOieTY396ojIvvnnFknn y5uGygM0mOPasnBQyHkSLZNRsN0cDWbayFNfkMRNMpeyhKr0tNj6UBtlgQo7 Kfek/R6DOC2209T9e5idnmTo6xNYZEGL9QtFv20K3tRIGEv3paqmxQ4Fa3j/ PN6nIVmx4Jb9nA4jk3SDPOvSNbS9Yu2m9Bgwt+1F64xSEY2QwU4t9yxmbJrH jr9Pku3E++dhRncW2bHnXJh5YGe12q1Me7YRs4PYO6JMpbT2oPIVp2SB8GAe rHZ3OEOLp0oxwthLXSmFH3t762VzsISFHBVn/NjdTUEsfGZCzoJdXaar/j45 lFUE44zRGaT5vSVxwd9ONfm7KBYTGHF/zmJF2JlxWrTRUhxj0B1nZXnfzy/0 9kcCzZQEJnZKQ+3bnSAu/xItE9bnUpjIRNy4Qoomm2u2c7Gq/GHsK6d7fWED LQMTUc1OblQGu0wuVFmM+UPU/sc0Xib2CPa//wU8XwRuaYvL/een7g9iFLrk //P5sHNHU4sV/rOMVeiFl4GK/7lzjD4z9sKx/9xoN6rJIaT0n/9SvV6PF933 crZjAa/kvnmnpw+JHN23/e3FNXmNfW+G7OWdvbhvyVe8fBGP962u+6eZKXbf BpMp4U8S9u12VHjlWeq+yz5JNme/3ff5H0phVTX7dnBcIenV79uH4fNSfeO+ Uw1P2LZ17HuiEyMNDf+feX2ISw7j+2bmr8qZnNr3MWtd7oWFfWtT0Dd6rOzb PKsudH19307aDzUCtvf9P/8t//n/AVI/WdQ= "]]}, Annotation[#, "Charting`Private`Tag$20823#4"]& ], TagBox[ {RGBColor[0.528488, 0.470624, 0.701351], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2nc4l1/8P/C38bZDIStbZGaPvO/73Eg0zGypzIiEkJ1VKCVEZjaZDUVG 7tsslJVki2SPt7359buu7/fje/4453pcr3M9z+u6zj/nj8NnfdfAjhSHw4n+ m/7/GjClvXJ4KIvh/mdM+p1cH9w7sg7j6GbF9pF5lV33764euf5xLNXvySNT Sf7ixr4f+YXHzctBKUcuIrmXg1M8Mt5OU4bdUuY/M/U1OWfFSP9ng4ZkG5FW qf/stwQ5P/9z9j9/up98+42u5FG/sUa8B0nimOVy4DJJZB2pZtpnHa15USzp FEtl3Nla6rwvPr33LEQw9keDpxWmfjNcD3vB0vFaGNu2YacTZOI6GXiTrJSW SQjLd4p8I83whBMnwYOqPxTEinoUTCvmg3gHniSFF/3kx8aONRsLzt0/fYrG oWBNjQ8rdLOS+CL+ScRJXhQ/eIoHO6edyOCgPi1hozjyuqGBE/v0+hcV2cxL aVHvc4cuOWxY1hdoBPueJ5c5fLXRR5UFq71Nt6rBGK04FcxC0GQ7gQXci9e/ QzKmXBV/RmPa+BjWyakvN3lxU4XKYsqGhHAM+5j/nJHq8FDFmDcvhIPvGBZU 2attuoYnrBQKYFfm6LDu6c4KqmRmggjGrfLuAR0WZ/sA7z4hTUicZZb2fU2L cdA2sWY+diRMvvmhG/eUFiv+eVb3q7IbQc4z1qXYnRb7LVtViMjfJ3QcMhSP EGgxNGrFomg/jEDBQius3kWD1XR43qpcyiAYDrRoXCunwarJRskysvIIWekR tp4pNFgPnFMXplhKINpqhj4LosGa7Oz99U9/IMCiFFn5djTYWMsI40JPFSFq qRHDLtFgubP8x6n66wgDH0JH+8/+y7f9fux2xRfCGV+1gxVmGmzBaPRuhG8H wROQcNHtUGPWN5Nkh4Z7CPXkmMrpUWpsAzZOns4cJDC2BprDjdRY42LJT9sL 44Tr0ZCPSQE1ZsPznp7l9DSh2HDvpeszaixLeCGZZniJsMNeXR55jxozPxM8 fRq3TtAa9fmZZUqN7VqOvfDL2yUk5CitVUPU2NVbFQMxkqTQhOPmiZ/81Nij FTsa43FKSOZsufQiJTXGb/aMu9SYAQpa89CjXKDCjHdv3DkfyQy1V8re5e2m wqoV3jqqjXNAnA9WnipXUGEGtBUl8XF8kMP5d8UGqVTYJfNj5/vWhKByatc2 p2AqzKWOl/vXigRE3iE5G2b/r+6PammEykIGLxaoXl2mwurdOOub7ZShDLNi 4QopKmzM4L6vewgCLXI7XehkocJKI9hQN1cNiDAhYjezQ4n90inuP9FxGXpc MB1K+psSQ7m9bjeTGUB9LvlZnE2UWMpg1h0ZPRNISM6+Tq6QEnvW6sP7jv86 5LEt+Fs7mhIrO4wmu+VhA9XV/jmw96DEVraeutOwOkL0YVlcQWaUGBEbcSEX cYWuXbQiJMGUmLea5zhbmwdUSM9r8V6AEhtTlG83q/SFtn6M+LRRUWKWHqGM 54WDoQtJaYkTCxTYmWbnvqaDh9CL69cq9rspMCbbb0n9YlHQuABn78lPFNh2 0uMHfPhYSGqmf+1sGgWmunJGe5ziJeRBlBBhDfu3f+C+6dnZVOjTZrDlwW0K 7E7Wz6vf+LOgvYOfMX/1KbBPTryPtaryIFUK0eZvShQYGyOz9kmPYujRscCd Mh4KrONl+Aq+7R3UytwtmUJBgeEo84JEVcoh+lNCNiELeIzN/1ZbHFoNGQj4 vnTswWPpeeKXuq/UQQmi7W161XisCasTmYhqggal+XFKWXiMcTs3zL6rFeJV 9pLjicRjZqIDvgFFnZAt0upA4YrHWGFbw92yHui1JnfagjEeO/kiafftm35o Xse9qwfCYy95I3m0e0chKeNmfI0gHlPk0/+88PEP5GnJcS6bFo910PCalltN Q1W2Li6PV8ix4G6l0NN8i9CBU32WWz85Vs5+QLKRuAKp3Tv5yxQjx8Qogk49 XdqAHvnepkXyybHCxeMRG6p7UGtwLRB+Ro7Nc3v8abUhgRkiT3jQe5Jjf8It FL5Z4WHD5/av1y3IMef2pp236jRw4suqoSG1f3lbeUHXuBjhoVf0xxtFyLFz 6QeUinVMMG+etUYRIzkG/JdYLaTZYNuScp/YTTIsfsIbEkriggs+0JT6jJBh bqrsvc4n+eHF6uvjN5vIsFqJt0klLEKwTMP7k1rFZNiCvXXUaaIo7NVKcfls HBkmmLkeme4oBVd1mT846UuGjbaqelfvyMIHfaVl+zfJsIpulSW6K0qw2m/S 6QlNMkyIK+GgIAyCH00Zn/omSYbtf/jC8HpGFW5bLNQrYyHD+nNbeGYrNGDG jYOw5D1S7GsZpc1tnUuw4b5BZfAfUow6N9J+qEcXTiTPX3BoJcX8JNps1KCr 8BDtLp/eO1Isy2DjwncVE5iXSddYMZEU++VNQnSnvAbbcWQ/5n5AijnMeEbM /LkJF/Jt1uLtSTF6p4jmFSNbePHM5dX5K//yW2XTsz0dYBmpdOEeWVLM4Nqq zqjNHdhLcdWimoMUK47Z18Ky3eAqWPN5FgkpxiwR9FtK2BM+1EhpjJwmwR46 VzJpmfjA57WXtlw7SDA+upzkvquBcIShuoRpOQn2QHlM8wxfCPzN4qUVSCPB Pv4pmTDMfwgz2szFC4WRYK9mVJmQ3kjY8DZoPeZEghWsR5aJfHsGJ7nFHazp k2CCgt8rYeNYeMR7SmZIiQTD++ymGHbGw/xBKrcaeEiwflJZxsfzSbB9eHRK IQUJJhllY8X15RVc+OxPR8wCDsu5y3EvAMmCF+MVyX16cNiyzEslQkYuLJv2 ROlmNQ6rdSMyn0wqgL1zRp01s3AYdd4BWD5fCtcUyWZKRuKwCY6Z3oXf72Bc WfhPFlccFqzB22bE/hE+XzVIvW+MwwRdWFUHRz/BpYW5yl9UcFhi9+TD0LLP MFvKXccYXhxGLqkhyl9eB4c8UU6ywOMw7FDehsDeBPduUsRe7jlE+e9FcCVy tMCFfcnLo2mHqLDyKST153c4sFJS3+PWIXpft8CP6WMXbJBc/5ZK+hC1aeuN TzvogU/7GTOm7RygJJKu1H+G+uAti9m70o0HqKhK1xzqMAx/IwR2ND09QF/l iRf43hiDM7hOnDU3OUBfiLkvXAuagD0Ocp8t8h6gPFQ+KZKi07DWqPJiyOw+ er3ZyhN3bx7mxL5rs37YR0XZskQ4qojwYoZVSVHAPnq8bkneJ3cVrg9ep0M0 99FXc5RxxnSbcIJ1pHMP4z5aXu34YIBkF3ZU5/rmMLCHnuY+xbaUcggTBN+J 7WfvoTWB/T7tPqSAEa/xJObOHnrfHIUrY/Fg4m/f7GnFPVRq8PPT3TPU4FOz 86Uq3B6q/XE9jUX3GIjKxxXqtO6ip8WDX+GPHQc3Il5Q/4nbRZ3oFi70dzIB Gcczjvctd1FO27PRD3GsgOJSzVda4V30E/d1Mt0iDjAgqncmg7iDbhsLTd0b 5waltBPhclU7qEm6h0LZEB8Imb8/9TV0Bw0mRl+myBYERt9pNS21d1CmQfeT oZ3C4Expet7yyR20nyIzYc9dDOw9k6V49Hsb7TR3ermSdBZ03v1ix1G4jX5L r3h0Q0wGZOtZNJXe20ajrr0pthmRA17SS4Lq0DbqbFz4o4+oCC6dCA37RbGN 7jE90OtwUQHcqycnnDq30PX05B9ldgCs/ChUxyVvoWX52m5KK6qg+QOc/cJm C9W3PWHTEnAeJMV3k4pIbKF/xVJwFdc1gbOXvfXnjU10YkdfRjD9EkBMdur0 sU1UUo7ultolHcCs9IxvMnITPccQdUtOQR9Ms/EH+17dROsazvolRF4FNdsf f9NzbaI0NFo3aoWMQfTARSR7cgMN7s8cHGIxA9bVw+mKbzfQk5V2U7M3rgGF VLfDNp8NlFcpw/Aa5U1AE4C/cVN9A73UbxwVeNIaDFsm1a7RbaB9lp85ZW1s wVtYgjuydx0dPkM337NqD8J46gK4MtbRO3W6bpc7HIEpzmj4neM6KthWF8q0 7wzEx6YJF2TX0ejZVZkcNVeAq/dPHdhbQ5fu//Y0VnIHP7IY91ya19Be8i/m 5rYeIC80x4Ls+Rq6Mni/ornNC/jaKlW/NFtD7wUl4pg9fICOxjcOcYE1NCap u5vXxh/wC930xeZX0V6LYCuF9Adgg2Kt37B8FR179frGo5fBoGUqXHnmwSr6 Gs/vOxUVClK/ciYFXFxFN9eaHKPLHgLXgjdbx5lWUaYhc9UohgggRe8SqvZ7 BT1jvW196/5jsOwuTn+vZAVl+9jwSJrlKXj/azYx23cFlaGQjm6fjwbuhAKB Hs0V9Hl/GhANjgGymbdKyVlWUC+rZCJeIg6s4YWU5ceX0Y+sDNuKey+AZ0eW ToL/MvrgcGKciT4JKMhZ9TdfXEZpVy/mlRulgI1EHtvNk8voF9rPbzJa00D5 /vCi8AQRvfNL+HqTYga4b53qY/qOiLLI9gtmZWcCpS/m5JGBRNT7tqm6mWg2 2BJjj668TERvbOLDb33PAauzYhflvy2honldYkUur4HHh9fXE+yX0PVnsQt4 10KwEXDaYxO3hD479A/GvSgG9zWzIk1TFlEWWykCNFQKthh50ivlF9HXF6Rl pHPfAp+BlA8cnQvoSLWVBR3xHdjJZmv1u72ALljJTITploE9hRPrUPo8+thy /dgr3XIQgIumSVeeR8tOXpYZX64ABy20vLieOfT6FEsxVXElILHEX66nmkN1 tPm22Zw+gxChkJsC2bNocMZTo2A3FJATDzzDoFnURez0JZsWDFCEbmVccJ9B m27WcakxN4DwK57l+XQzKH3YIhmrbiOgOrnSRpU/jS7X4A0fJzYBmoK5jdbB KXRUtiZb0vQreOLuQCfuNYVGmcTJVbe3ADrCX76njFOok0HHQIphG2DoGLmi qzGJ0hHYQzKftYPniRbWb0f/ouxdNAP2fJ3ghHXf/eO+f9Gnc5pBEmRdgHm9 K+tH6QTK0lqzEjXcDdg4m7ZM2P6g5uCp6PnZXpA0oUpf+X4cpVFpKK8++AU4 SmsFOLTHUYMh+atZ7P2AS/WTzlDwGHo9O3Yn1GoQqLcbX6zrHUVPEL0Ckll/ A2N7gcxu/3508tZLNl3Rv+Cx272I2I99KOVOUBd761/w2b/hrsHiL9TELZN5 xWESCMbZwN03etEFZY11h6wpsIJmD3ap/UDzSrl7H+zMAKG21foYv24UU1Wr /hkxC8x61Qv1P3ShaS28ezeZ5gA2/8e763QnannXWv0N5zyYXrqF8X9uR5m9 WZfrEueBLgVVdJbk93/3+Z22kHEBcMtqiWcdb0WjNk7Xv19aAA8vTu/whX5F WdQgSkXjRTB/I6Ilc60ZNR62rDctXwRXvc4k8tk3oU7vxGe6GZZAVdRX+8xf DajNwrW3ttZLgC/bQZ7vYj26kPGtv6tkCURUUpFnVmFoX9bH/fHlJTCSrp+r alqL8kmrTMmwEkHJtxg1VZVqtFgHFCVIE4Hfdtcowv0JPSjYYaXWIoKLQicC EJKP6NeWQXMfcyJgvWrAgUy8Q2OdShL6HYig7VDw7oNnJeh2y9oa9z0icDDL LQg0zEefP3xWpupDBORlpycCODJRAzV3SciPCBD2K9AOFo9uNj/5y/CvTkxM sl1OCkFztdMDq92JwJ/0RdMFJUdg80a+4fy/fMlkmy/MCtGgm/lFcpkZEYyw v1ukZUgFBR0thyc0ieCqbF/NI9UcoD32d9VVigjK+01Cwv0KAZuzs/MICxEc w+YEGs3fAvdXRv4ji0sAxBU9arxfBp71cFN7FC4BN3unmcYX5cB99Abt2+tL IEtZ7ErTu0pw+q6lUCvtEuihmyttaq8Bi+qOnQfvFkGqmfw5m7A68O5qOR02 uwDk1eOd/pxoAJU9h/sDAQugXXw91SazEbxwFowTp10AONzHQ5vaL0DmxUdC Ocs8SJphlp640gJeNzpbJcTNAZkfHta2g63A0a7syR7dHLDNk2uy3foOnpse +4KtzgBbIfMmGfZu4NL499yZlCnw5Vv/Y9mrfQCw3xPsyBgHDt4DXyzE+oHm Z13lD6tjgEpwkDyMbADo6Deu12qOgUt+Q4E9ZYPgOBcVx+WZUfBNZNTdk3kU xAfxcj7rGQDOP0ffpM2PgqLoSRfGV/3gEeK6YW39G/DQ8rSauvQB4XlX2Sfn xoBrcrXZW8Fe4KDuXjI4Ow74/+z8uUbsAkpJK21Lxn/AYwOWWLDVCaiW3GfJ Gv6AedMP35uoOkFB8j1h8ZQJIOTSSZwL/wZ8iasaCOVf4LZdGaw73AouXfCw Nbz3FwySjF/nPN8CZpc9Mv0vTwKbs1cQR41mUKW5jj6vmATbFy5sRI42gsdp niM5AlPglOg1U4PHDUDsohfn990p4GT0wC+DsQ7svdpQHrs1DW5013RO9qLg 25qX6fqPaXA++HMcc9Fn4JxxP56reAac6HqrnVNUCQgbm2XSbLOARihBRaW3 AtBd8e7WCJsFMf7Ubl84y8FQ5hbRjDgLxKz8UX2/D6Bk05vB5dociCQcqxpZ fQ8CtbclQr7OgTH5H4KuYe+ATrbPlQS5eRA7unGFQvwtWNTxjaylWwAZEtpq Yd5FoDZnJ7/bewFI/TxT+0ujADzb8W2enFgATrrfaS8q54PrersTO3qLQNb/ 7585vVxwNs+PjOHzImigNlEbfpwNcHu7fAIiS6DDQrDl/N9M0KnvjyjGLwES 218bRtczwKfA2to3CkTgfMvNlPpyCsgoOPhe6UwEIt1Zysm/E0FEDzzckEUE mE/FW/G8BOB6GDj/vY8IOjOdIioSXwBTUXT3F/0yWOv3NdT/GAsQo0Oa8fPL oIf165DU9nNwJghwzPsuA7+uG1nmDc8AY9EDkY23yyD3aUC8f98TsP0TVcJN LYM30WvQpngkGMfhtGi4VoDLfgnTuZpHoFUMMWG+ugLEpd7YrQaHgffGQfbc kSugk99cgME3BCQHY55n0BWwMkt952NGEAgpxj2UWV8BhVrU0zETAeD2L+QF QWwVCIXkWbf2+gID0uDsC1aroJkfWf903Buck6h7r/dyFRjnPt90ivYE8j29 CbUtq6Apn0/X4u49IOU37yu+twp0Cy+p2Aa5ATF+0hvJkmvgXDEV5dmAu0Co hVWdymoNSCXmZ8VecQZ8rhLCXnFrYDA3mv6UgyM4xapOO9G0BsQuRcm7tNgD tlrTJf2tNaAjRzabftsWMNm5/EBF14Hn4vRn+QvWgJ4urELCch3Y4sI2OU3+ vQ/LklJSotcBYRjVV5W2BHjzNw+o69eBWsny8CCdOcCRNNncX1sHo7aVlVTK JmA3f0Dzr9AGyC4KFncqNQQbOkSxq2YbQMH/vRJsbwCW1/GMdU82gEaD4qtL 5npgPpVzTbJ249+5x2OrqLXBlLp0XypxA9jWPbHwr7sIxmcv1NAIbIKUY4Ji ut0XwEjMtQxvo03gf6rhvZ/sedCv5B42Gb4JLGPD2RiGVUHPaLiDYdUmAFv1 2onRAHQ+SrtSP78J4nDaBecGVECbRJmUFM8WkBKjUWV4pgSae74yv9LfAj8Y PnsQMuRBnd/IFm3YFiBzK5xeoJAFNfxrQz7lW8BRNGIGrpQCFS3UdVPTW2BE 1jn8ynUJ8N6VJ9eIcxuwBx7sNdeLgBJW+cgG7W2gWqT4ayBWCLyuvXRHOmgb dK8WrzfUC4Acu5v66e+3geXSidBFTT6QTuclf+zvNjil+iihXJobJJc9Yfdj 3QFmG2/v0plzgATzzP3pizvgJdv7vLTtkyCGpGLM2H8H1Nvs2jeRMoOo19+a Gkt3QO7LfpOrjsdBuO54gczYDvBNiiptP08PQjY2n2Yw7YIzKH9mhhYNCEg7 5k5/YRe4G55aGvxGAbzPCxj7e++C0qBwe9F6MnBvTuncbOEu2MxloV3kIAEu sTrcpsO7YP7i/r5Qwj58W9mWtJlhDyTeRA27ordhu98+k7JqeyCEei5+kWED vhke3ZrpsQc0acQVmvGr8DXJ3FKG/D3gv/IgPMGaCJv8rIoN6N8DWhn1F6tl 5mED/06vOdp9cOp4GqYLTcPaApPmZvA+0K4CLs2dE7BW6y78xXUfXPAafO8y OAarux0XkM/eBwyrf+zDU0ZgmE2YMvvnPtAQNIwwlRuAlVHCHCPVAVD+SdQJ deyF5ewNOgLPHYDfbsNrSkI/YKljDmXzzgfgV4+dg45pJyz2IeClefoBGAvZ KekdbYOFLOL8vnYdABed62FhtV9gftKCGwrkh+DJpyG7TLlGmKugVj1H4RAE iVs5akvUwWx6PcInHA+BQAiX0Q/xzzDT5gxtUMohaOInjj3APsH0rw6XFr4f AprSLH/HnQ9wWBbNrAQOhzwOrlTHN7yDSb1YhmzZcYjdu4eSm7SlsPnNwu5P cjjk9v7lkuNUBfD7S6CFTg+HVEPPCgV6cmAa+R70phMOWflR9C1RNxO25nEs //AIh+RHB3U8/ZwKV1EfFFNl4ZA2QvYD156X8Im12Oxrn3GISWuFD1dNHHx7 RDj5bR8OUW1lf79t8Byu/1rznHwNhwwWJbdrbD+GOcr0w00ZSJD07FeiemqP YPe0yYBiURLkXvePkhrTELg13M8Dd4EEUbJsDlaWD4T53RmdDK1IkKwY1dmh Xm/Y91qu1Wt/EiRiIEb9qb0H3H3hnOneSxIkRzWAX77GFRaV7tDRKyNBoi7E qMU5O8GhnLYaOe0kCDnvmNBDN3t4CL+tsjVDgtAkftXyNLWG5YhPZa7gSZHx voz7zWuWcNQAv0gGLyny4VDT9c0dU3iisYJnTYUUyY7kiS38exUmvLlyUsuE FLk6R4FOntWDXySN0aW6kyL7qZp1njqX4PlQLzLiU1KEVWu+rN5MAz7vQruj XkCKJAsRK9p1VOFU0wziy0ZSxP5wMJ6XkgCvqclPzY2SIu/7M8I+FirAVyRa h8EuKaJh9NNMRVcGzmG90RN3kgxhWnPdtHkiAe+RrLVOSZMhP/MsQjfahWHD +Yg6FW0yhN1o0+u7iABc3Mv1KdqBDLEIw6kTO7hh8rr3pX9C/9XprZSnPrPB 14o0cxXTyRB9tlF5XB8T/CF+KOVJFRkiu8navt/KANMFucWO/iRDzHbXadRd qWHb2xSRsstkSDn38ks/Q3K4xjDlQTgdOeKaLU5pdw4HMwMpr0FhcsTizi5/ wO9tyFmkyfmsOjnSiLnxm6esQU1M5jah18mR3Fhi04ENEeI+WDT75UOOxEsG DVPTzkJe06F6YvHkiLFTa8W1wgmovZtN88FbcuS4rHHB9s3fkNDnEuhHGzlS e+Oj/bPFfigwX01OeIocwZ/IHKEK7oF6Y36J+pHiETl6UhMX6U5I0t+Zr4ML j+Dqt46vPmmBHtmTsAko4xGbbl/oDW8jNKKXQH/fEI941JtH1ZagkIKKGL7t Lh6hakqmN5n8BD07je1yP8EjAq8tOs2iyqBJBqMV9zw8Er69WqP1uhSCd2am m+vwyMHdj9aTpK+hhInAUY5hPPJUROhM9tcsaLGdqddlC49UcaxRPDZPgy5U vv5Wz0SBxLDzqMZPJ0CvsqGGk2cpEN7PbKU+gzHQxtPuytuXKBAKvhvpj9qf QDret97W2lEgcoJM75vSH0J51nt5J4IpEJNA3MUfbUHQwZWYNPtUCqQkBH34 icEXMlYUelFVQYHELY6vDEt7QKV81Y/pf1Ag1yh5/EvU7kKUdHrB1osUyI06 pcwQUQfIVNgcU6CmRFaHU90CUWuoUM32kEaQEnli9KLjJr0ltGfpAo/ClMje gE9DUIAxpOPjHVBmRoncmRF2sLTRhzJehNSEe1Aiz4NMeWQHL0Erb6J2LaIp kZ/+Tx3NK85D59sSzkkVUiL4V9yj1vMASpjM8CFvokRIQ7Pio2OUoGmSok99 o5SIx7qC8+64DHSO6+Nm8Q4l8uH4qwgOEgkoSglVCGahQnCkvbNDsBA0crXF 00iKCvG/Jf6wi4YPkrr744PIZSoEuqZcTcPCAYU8Hl7dt6NCmj8OKsYuMUE9 uVMy3UFUyOVDCuMRV3pIqG7ZLS+FCqkzC0r9qUAJeQ/tvvUtp0LaSQevdZWS QK2beKJOFxUyUHXbKXR6h3CKifGswDwVYv/J0V/83hrBRZLDZZOCGjH/KbWi SLdEwC4KlrTxUSNuBD3nqsdThBN2kvPpBGrE2op+MqJnjGAbpCTmYUKNnGbV 4ri4M0AoT1G7reVOjVzOHLj92bqHQFVxpeDUU2rkrmQR54nmdoJ5t/E0MZ8a Efu9/spL9guheOGmcFM9NRJu/mjji3cd4YDKyT5pmBpp0eteGNCqIugJeube 2aJGqNNjRl6jZYQs8GBClYkGOe0SkWieU0JYM48UOClJg/hxv3C+pZRH0PCK s57VokFupfJLa2VnEBJi0jJrbWiQnBbRAK4/iYTp4vzfsYE0yBtzUBTzMpYQ 9af6usoHGiTTs9rYqDSM0KM3YR7FQ4s0c3mFR0KOBFsx+auSG7TIcF0OmWib NCH0d6+6e/YxhG/qeKmlXY3KSOXlO941x5DyU70DkosfVM7FYQmBP48hHbbt +Uw/SlWIGoUzjynpEV67CyQbBRkq14sCorOd6JHS/id9TSBU5ZyX4GCPLAPi 1smTGeuvpbKNV67ktGZEZk/PpGZZdp57m/JIL3DlOJI6yV3x+1yb8t0sW8YJ YxYE9DF90crWULx+O5krPJgNCRYYPt5xNVwuUt9LWTaVEzkQuvWpxdpHmpw5 fvLBDjeynMMtETiISfxqe0gMY+BDbGpWQ5KPTYgY+VkrJDfwI8Qm1Px+6sXT zrRz/O3mgojcRQpcg0MiL09RcwLF7Gkkgrndykghk9Pvk/pVhhRhxDOFz+0Z xw8W1zzncoWzIsjA5cB7SnvkjHSkitaSf0URWU9LZenvutQadwzjRePEkZsF Orqd5JdI2Sq57moISiL/+z8g1j0iRurX2f9s8EhXIq1c6j+LWoQZ5QRI/+fe SeqsOCOZ/9xu/Vf1BI/sfx4jz9+K5z/yWp7DG3ahI7PPzZ3ikziy7b2VzbMq R94JPSzRNjmyUC47R2T0kZU1Bzvp4o58ZSY1/HnCkd0keNdfph255qNQZ17R kQ2aZR81fjmyncM6QavtyN40Fatt7UdO0zln9ePnkad7EcL4n//Trzfpqt3U kY9xNhbMzB5Z5oYm6/LykTVIqNs91o9smt0atrV15NsaUSr+e0f+n/8o//n/ Ab1SF/I= "]]}, Annotation[#, "Charting`Private`Tag$20823#5"]& ], TagBox[ {RGBColor[0.772079, 0.431554, 0.102387], AbsoluteThickness[1.6], Opacity[1.], LineBox[CompressedData[" 1:eJxN2mk0lV/0OPDrupdrSBpIZIrImKky3Oc5DxIVQpIhMqdIMmVuoJDKTKaM ESlTmfM8xoQoITJlyOyarnn691/r9/v67Rdnr88658V+sdc6+8Xmt7yrZ4PH 4XCS/47/n33HtRZ3d2Ux3P/EmDf7cu/WnrVZB1dL1vfMp+C0fXdpzzXPIkh/ xvZMkvzFg33bc5Sr+aWHCXt+R+OSgTu7Z6KNusxRU5n/fKi73iEtXPo/69XG W4k0Sf1n7znIIWzk1H8uvR9/O++y5F69EVf5duLEsdAVklnAxH28etJnbY0Z USyetHvbq9yDIfOLZ5eLiQi2KsFXc9kpZb9ZQBRb21thrL/WNVeBNMTmZ077 gemQEBZeQ4l70q/HhZPgRVWfCGJYlifly84lvt8hcYHvOo9jwWMdw5nf1U8c Y7TLpqrwYzW09F4yKc9F7E+LEnuP8WJzr87OBhlUS1idHXhbW8uFuS/fZOJ6 6Sot6qG465jBgb0PVJZj1gyUS+2/UuepzIal3zD2dBNwOTv+iI2sznEQs8/r S2ZabVQojz6pNmGwD+vPjNOoeDeqRDIZt6Ih78MeykEeT7xnlAz4Mh9z8u/D ytaIn9G4JaXFHAFMc5oZs9K7zHvsIZ4sgvEoFTxgxgihhqFPlfnIr6YOS3u9 ZcIaLRP4erFr5LG8n5cjXzBhrA27tfQHzMlybhGOuc5M2LFO5eWUTzbktt39 uQNkJsxJLuQbJ+ZCpmNjElb9wYh5LdHWm/OGkfV/f1W7XsyI+XAEbF1IjCan JQdZuyUwYlv+WQMjlEQyLEqXlmXDiGlXZFXG/comP5+rw7CLjJhJSxXeEiog //7oP9hzihF7/eeBSel6Mfmkl8rO4mFGjGbTRyYsuorsBmi4mTcYMPI7qTfw 1TpyDQFTOjHIgF1Q5BAXoGkmszb5GcN1DJhLj+iaw+QPslko5HktmwH7xlTo Ta34Rc7V34p1esmAFYudKqi8NUjeOFpRHOzCgDE9u0vKqB0lawx6dqYZMmDp s8cenrOfJsdkyFMrIAasVSMslYdtkTx6a/Vg53EGbCj+a2Ju+ypZ5lSxNIWe ATshv/+Lv9Eu+SHVVYd+loSNEbgd/OIJUGuZ7F2+dhJmtngZ2WZmgrgeLL5Q KCH9ax+xQqzyAGR3riBXL5GErXBNSi8qHYGKGZya7R+RsECK1+vztjwQoU1y KsCWhBnabRK0+gUgvahZ0utLJIxZE/dRiyICpRjlCpdIkTCcZHV/67gUROGx P/+djYQ1kvS1HxDOQORREZvJDXpMLqL0mXcGGXqWPeGP/0OPXSxG8RMJKlC3 Y1YaVz09Jqaz9veIsAYkJGdbLZdDj7H0stF1Xb4Mua4L/tEKpcf0mjC3eTV9 qLpqZMfWlR7T/Zrk3SVvDLEEpHE/NKLHHimIl12eN4euX7Agx8H0WN7QZGVX rw2Uw8JnUihAj+2Qhy9NiDtAaz8HPJtJ9JhotEbKRQFn6Hxc0qvRWTpM2y81 +dqV+1CU2fWS7XY6TMHqiozdii80LMDVxV5Kh6k9b37ZLO8PSU32UE8l0WFp Nwwsb6cFQa7zEiJHAv55gir8jBAKla4+Mt25TYeZsf+QZH4cCW3tdIb/1aXD 5Gh1TwX5v4KU6UQbWuTpMBnlQN7l+tfQ031+G0W8dNji/iztjkvpUNPhdskE Ojps3SJX/qv4W4jlmJDV41kippA2dK1W+QOkJ+AVe6uDiLXp/Lh4Y6oQihFt bdapIGJF5S+b/VJKoF7p4zj5NCL2545Pr6f3Z4hPwV2ON5iI4chT71TMayBr pMmOzomICV40Trw+3AC9VedJmjUgYupM7XWaHi3QjLbzjw6IiL28qunPUfAD kjJoIFYKEjHz1kiFy6udkJspp2I6ExHrVLwr+hfuhcqtHR2fLRIwkUUaz2tD f6Ad+5q0ez0EzMfo+U+1v6OQigv7L0OMgGlUdlzn+DUJPfW6zYRkEbBmgg3l 3Mwc1PSoCgi/JGDja2Vxi4VL0P7gg64sbgTMQD+/KerCGqQfZvt22YSA2Q/r xp2Y2oZexZb39akQsIWrGdZPbuLhvtcsB+pECFjyh2vXgpPpYL5MS7V3rASs /VtH/u4XJtj6fbFnxCotZp4FR1gzHoCzPzJ+8BygxRROnWXWHD4MUyrMhs3r abEb1nOvX4YfhWVqC9k1cmkxacfe2jY1Xti9ie7Sqch/91aH2wlcAnD5D+MH 7F60mDaX3qy0njC80/2haNucFhuW3X4i7SQOq/zBT4yq02JMO8L65nrS8NNx g2MtkrTYzT9cwWGHT8PNlBydIjZaLBSmpSynKMCsKzsB8Vt47PXZxa+JfADW 39YrezSCxzjyPuVcGlaBXxGyZu2a8NhNzo/m6Mh5uI9pk1+nAI9dZjMJTSy5 BPMdumxw9hUeS3qJW66t1YFtONOf8TzAY/XqpkzBKvpwDv9qFdEWj/21pjhE uRnClJOXlmY08VjAWCPn6ANTWEYqWbhDFo+Fd/P5+tZbwO5nl0wqOPHYk8pj MwRrG7gcVg9Lo8Fjwqxq2m9Kb8G7agl1wRM0mFjPbkfTX0f4nNbcmlMbDcb6 3P8NyzNnOEhfVcKwmAabq2z98FXBHW4xibUASTTYCVKpvdFrL5jVajpaKIAG a8RtG+B7HsD6t0HTPnsa7E5at+Q9kj8cdy9yh6pLg12Poz5ZLnsKD3iMy/TJ 02CytfZhNMdC4OMPlW7W8v57b7GlzyYcBtsGhibk0NFgluoHSj4qRsI5L0fa wmdxmGFY/kWfgRiYEn2W4NmBw9TVQr/niCXAskkh8uYVOIxzcpD4mzcF9sgY dFBPw2Ep6p2ibjzpcOU72VTJYBx2tNQ0JuVNJowrCuxkc8JhOtliB2JacuBz 5b0M2wY4jEXda1P7Qx78IeeNwhclHLbtLTF1Y60Q5ki4eyucD4fxsv/x3V9Q DD8OUYgzIeKwExafB9yPVcBdq3QRlzp20dCT/KlkCQzO6Y5fGEzaRXeYQj6K a9TCfmWSuq43d9HeR51yX6kNsF58TT5JehcdDUN3bmo2wye8DViTNnbQC2sJ iSpnvsNrJlN3pet2UPqZW8WFSj/hFrJfW/2LHfSxO7/gzaYuOIX74Cnjazuo M/WRi8P6b9h1581LCt8OelPikpnTyCCsMahAeTy1jX77ZJaZ8XMY5sK+aR35 uI2eVxEfU5cbgykpFu/f+W6jqbWMDEInp+CaR8vMiPo26q1JnuxroMAxlsEO HazbaASehfyVbRG+pcrdYvd7C0XpFh1LFZdhsmCB2Hb6FlpzsZDCMboGsxLV QsLvbKFKeX4hpkLb8Ojf7qkTZ7dQNqtfCi7MNKC0weFiOW4LPXAKOElP04Ln Wbgc7aZN9IdJHi4Zpgc3gqIYRiI30fdhr48xczABmVsnb9033UQHSr5MCoXs B3QXKxuZhDdR3JA5p8C1g+C3qM7JlPkNtKArmNVMiw18YBoNlCvfQGNs0mpe FXOAxzP3xxv9N1Cmc1xXienHwNVvTOqmWhvoFGwa4hbBB05+SM5cYN9AM9d8 iu6dFABbL2Xpnv5ZR1mG7MksvELg+90vNpw562gESVxS118EpOuY1H9wWUfL PfNNf1lJAHfpOUFVaB3dCT1IeTAhBS4e9A/4RbeOUiX1Y184ygKeJfZR++9r 6M2uLZXL2mfA4s8cVVz8GtrxwydGIlIBNHyE06Os1tCC9Trp/gsQiItux4tI rKFG/vruAEOAg7ut5eeVVbRV9xxsIaAKkGsb1brYKnruo2EL8ZcaOCz/kn8s eBVFZ+u6W0Y1wATH8UdeV1ZR90MdJ4yuaYLK9U9/WLhXUVL1MX9Zbh0Q+vsC kj62gtqp3eNz1tIDlhX9yWfzV9BXO1o5AbX64Ezivd1mzxW0M+P5PsXAa4DR l3jDXHUFDWIaGeFPNQb9pnFVVOYVdJg7lTuB0wzkwxI8wV3LKHmZ++3CjjkI 4K325U5ZRmUur+kcErMChrir/QW3ltGdHlnBxlgbID40QT4vu4ze4e5oeH/J DuBqfBJ/b1FRaiXlzaKWPfiZxrrl2EBFGz+XjJllOoJM/wwT2jAqerybUvVB 8h7wspaviDWiosUWnfl42AVoq7VwigtQ0SBLTesDT93AcSFzL2xmCe2cZZPh Y/YAK3TUHv3iJdS0YEelu9MLfB0PVJh8sIS+SnHdd2nSFyQ2csX5XlhCFbij jLwzHwKn7Ly1A4eWUGYGw6N//R8DKRZHf5U/i2gH45c5JYcAsOAszuLyfhEd FN63vfbwKSj8NfUq3WsRJTVkP/KpDwLO5GyBDvVF9EWfxjcDKATIpt78QGBb RDtpV09emHkBqEQhhdPDCyitbP5FAfsw4NaWph3js4DyKW4IsRVHgjNyFj0N FxZQ/SuBAZ5h0WDlFa/1KvsC2sP/77sKjwXF2/0U4dF5lCe1P3GhPA7ct0z0 NCyYR4tqcoX2sSYC+S/GhGC/eZQQkFyNRL4Ga2JHQ8suzaOerTasmekpYGlK 7MLpljkUiXRmys1MB64f35rF2M6hnmNDral6b8CK7wnXVdwcaqUxuzBzLAvc V08LNkygoGcy5Mt46LPBGitvctlpCsren1TSdvAd8Pyd8JHz+yyafjc757Xy e7CRztHkfXsW5QsqOHMqOg9snTm4DCXPoBTSqV9xhoXAFxfKmKwwg3baj3H4 VhWBna9MfLiOaZRnyJXuoOInQGNKvFRDmkbzq+2dY91KwWOhx+YC6VOogEWy qcDZckCY33ELgKbQi3NoVPSBSkDnv5Zy3nkSvWskpvZvjAeBmm7FWcyT6J2T bbk9PNWAxL7YTMqaQNtVR9a8lGsAY/b0SlPvONrwecj4UUEdCHG2YxZ3H0dn 37hhd3brATP5L/8L1nG0+QR8VvX6F7C/bUDzstoYyr/RE2um2gTCXplY5g/+ RaOFwo+Mf2sGBy277x/w+ou6z+pZ9N38Bg4v/0j7+WEUPW0kkshs8x1wcNWv XeMYQYGb/1z+8Q4QN6rMUlY4jNK/Da8IF+wEnB+qBDi1htFnuzesn0h0AW7l Uu2+R0No7b47n+uvdAPVVoML1V2DaCx/5Ct0sg8Y2Aqktvv0oJVzNlxeTiPg 2T2XoIhP3ahRh7Kz0IFR8Nmn9q4e5Rc6VmpDaSwYBYKRVnD7jS5UFJ4KS1/4 CxbR9N4fKj9RRWYBgrDlBBBqXqoJ925HxT3ZRFjXJ4BRl2qO7scfqJ4U5Y7Y i0mAzYx4/DjxHb2beaQu8N0U4JHVEE870IS2jJbB08Uz4MmFiQ1+/0aUmfbA lrfELJi5EfQ1ldqAHgEUF+/Xs+CK+8lX/Lb1qI+iXEY8AwWUP2+0Tf1Vi641 lPa/cKQA/nS70/wXatDGfEnufd8oIKiMREgtx9Aat0TzDsE5MJCs+0bZsApl OdW+lu42B963hKsoK1WgB9QMuhB0Dniv/xhEeEpRE790u3LcPLggdNAXofmE DsC9bvQ88+DIFT1OZLQAdf9C/+Xe2XnQvCt498HL9yj1zguzMc15YGf0JttP Pwu9HpIueNVsHhCKToz6cqaidM1Om/n28wA5qgltYNEo9Nynbc51Hsy/irNe iHuMXvc1zGD0mgc++Kj68/K3AF7MIWn7nyXjrb4cPhMKNAg/8Y3358HA0QIK 0/5EQITPqTg4zYMrst2VT5UzQN8mfmbOeh4U91x7HOidA+SE+t6ZXJ0H+7Bp gTrjfHBaA4YrlOcBiHz3tO5+EWDL9rPgFp0H92ztJ+uiisHthza1kSzzIE1B TLO+oAz4nlLtshmYAx3M0x/qWyvBk+xIIPhqDtD9yTnQMI2C58vSsTEX50Ci 0WlFq4BqkF8nWrq8TAGnVaPtRw7Wgk+txfCDeApoFV9OtEqtA2bvQyA3eQrA 4T7tWlV9Ad+bTMxqLWZB3ORh6VHNr4DsYsteNDsDZH66Wlr3NgFHMIJBrjPA OlOu3nrtG2CU/87s6jwNrIWM62WOtoPC1T+6dNAk+NLS80z2X1/HBYR1eBuP AjuP319MxHqA07P6QuHcEUAS7CUE0P4GLVz+z2h3hsFF7z6/jqJeILdlTO1K HwItIoPObocHQSRL6O8k2gHg0DmYlzQzCASCIjOnP/eBp4jTiqXlH/BrZ/p7 r28vEJ5xkg1RHAKFF82knrD2ADtV5/e9U8NAzNL8Q1tIB5CPW2yeMxgBNFXD /jp+PwFpznmKtnYEfPs9EXXcsx1kx7sIiyeMAs2CWL3LQd+B1/ySGkL/Fyij K67lCm3g4nlXa32XvyBv/KW0uus3MLXgmupzaQz4P4uSreduAuXqy2hYyRg4 4ceuE/e8ETxLchvIEBgHyrYNM2+YvwCxC+5c3zbHwRDTWm4CqANbr1cUhm5O gEPXcfT4xRrQQnU3XP45AWxC32smfawGDin3o7lzJ0Hiyfk5pvYqQF5ZLZLm mAK9PPUibB8rAbOmR7tawBT4JErttisqB32pa/NG81PAhpU9mb+tFLxf9djv eH0avLSN7dGlKwF+WusSjxunwVxjvDrR8BPQTvfUjJGbAS6lZxNUaosARdsr uIp5FpT/IWjYDOeDqoyNrHaPWXA39ZJO7Mk88HLDq2FsdBZY8h/deliSC8x0 Nkc3dChAQNDnQsjdHHAq05t2/2cK0K117avSfgtwW5v8AiJzYGXxMp/YlUzw XdcHORs9B8oEHy+Me2WAUr+qqrwz84Bz0jT+r3gqSMne+VbmMA8qUnRyj95M BkEdcH9t2jzIvRhFyMpNBE67fjPfuueB1VA89ZhwPDAURTd/sSwAzFnkp8rP WIBc3WUcPrcA2N1upu+8jwYnHwLOGa8F8Kjj6sDVj5FgvROVx40vAPUrsy3P 5cPAMA6nwci9CG4+UWKUtnwBmsSQa4evLAKv2AKnU9HPQKHBQ1ue4EUguNpw 3JIYBOIfYW4n0UWgkH2m++qHJ+BxLu6JzPIiyJAQjOkM8Qe3fyFRZLElkE8P m07GPQJ6+Efp5y2WwHr5olp29gOgKFFdqBO7BKaczJVEnH3A6Y6umKqvS2Cw zUjbodgTSHnPeIlvLYGYMrm8ybP3gdhx/I14SSoQ2P+Lc3rBFQh9PaJKsqAC Dh5vcbo/zoDfSULYPZIKtFPl1Y/uOIFjR1SZRuup4NitvvGwMEfAUWU4p7tG BbKvEp2pbvbgkI3jT1R0GaRMRI29fWMHWJgDSiRMlwHlwglT56O2gLEoLiEh dBlIQRUcgc1WgGic94ChZhmAF7bWwcUWAEdTb3WfugwCPGYFaN/dAJtZv9X/ Cq2AzZ9B8vnq18GK9rzYFaMVMDY9OZqsaAQWloms1SEr4CDi+4fGxwDMJHJR JatWgJ3XAvMbgj4YV5XuTpxfAaED4hKz33TB8NT5SkaBVfCtU5Q5Iv0yGAi/ nuJxdRX0H2Xs1mXTBD3yzgFjgauAc8PZd3pMA3QMBtrpl6+CMBTOZt1/Hnx/ mqRZM7MK9Mvw71SeqIJmiSIpKd41cIKmib5WWRk0dDQefq27Blhe9LcyeMOg 2ntgjSlgDZAWbArgUUVQeZza51m8BgjXvVofFp0FJV8Zqscn1sDx+1GbygNy oNCJ981VrnVgkGp7bMlYBrw/cjq4Vmsd/DlSOE/hkwJvqy7ekX64Dh4zaqa1 6IiDDBtz3eTCdVCmUxqb0HESJDO7n973dx3IN/Lyx2EnQHxRyFHvIxsgY6VW 3ohBAMQYp25PXNgATRcLRV5l8IFwmpIhA58NIGWpRg8OcoPnb1vq6z5sgIdf Cw2NTY+CwMvD2TJDG4DBX7+/lIsdPF5ZfZFyaBOYxte38SOHgG/SPmeW85tg seX67YYqVuBxTsDAx2MTbA7/3gdx7gMu0/KKUzmbQNxVMjpMlQE4RmjzGPZv AmG2Wa3OCSK4rWCNb9i/BSada9fkNvHA5o/nmKzKFhBWTzEIuIMD5oGhTamu W2A16GiMhN0WfF3yzYf9WVtAoTxZQzx4Db7WWR7h27MFOLu1b1WKLcN6Pt/d p5m2wYundT0lYBHWEhgzNoK3gWuPRnHVnTlYo2kT/uK0De52uwlcZJiGVe8d EDidvg1+Pw1vXVMah2EOYfr0zm1AKe3NMF0cgRVQ8jQraQesVZYL3uYaguVs 9dr8FHeAH82tHl2dflhqn13RjMMOuPnik/Iuew8s9tE31jh5B7iTzk9SXDph IZNI78YfO8BC8sftI1fa4eP47BtnCLvg3HOZ7RW1Npg7u0o148wu6IsQv1Ty tgnm0OkQPnhrF3hotMoNFTXAh1YnmR4m7IJtboKaiU4tzPJ6d2722y7gbjfv P3QbgwPSGKckcDjkUApVVnmwAsa7s/VZH8UhQauFuz/SS2Bj85z2Ujkc0qns f6MGK4ILL4KvzDo4RL//AVHTJx9mPN2BmtvjkPpN1xEGn3ewJe+t4o9PcUgs xLULhjPhcoadXFIaDgn3MdLsoE+HD1Ij0q9/xiFzn/1nrZOS4dsDwvH53bh/ 4/8y11vFeLimsTKMQMUhtoZa3ZKV0TBnkW6g4X4aROOnW6/JdjjsnDTmmytK g4xlkts9q17ATYHerrjzNMjDTk1Z29Ag+Lgzq72+BQ1ylKXFzUU5APa6/sbi rQ8N0uXSfT007yHcfl7RcCuWBnFktajgcfOGRaXbtHWKaJA1HX278DB32J/L Wi2jlQZpCx44FP3EGe4jriutTdIgZZh6RaeZIyw3/0JGk4hHzNlmcfkDdvDz 38dFUvjwSOxbo7fW16zh0boSXqoSHlltn4gXeG0Ok/M02TWu4ZHy2R2Ppzwm cFTcEHOiMx5xshO9Js1pAM/4u9POv8Aj9zcn9m1t68LnHJk2VLPxyK7GD/dd ZS040TBlPrYOj4S8DojLq1GHqSqnx6cH8Yjl3GzDnJoqrCnR1A828cjhCjPQ oAjgjCM3OiLZaZFAYUWaZ2oK8BYNtWlcmhaJNvO6c+iOHKw/E1StpEWLLFnF vbnnKwXndnGXhtrRIpkYlfgnVhQmVBd+GPGnRX7+PlK2cfsEfP2d+puzybTI pLdbRJ4iP/wxui8hpJwWcd/3TPxLHhfM/PBexGAnLUJjN8TLI88OW9+mC5Zd oEXKqT3ZTm0H4Er9hAeBzARkRXEQaghghg8DKfdeYQJS8dQsSqGVDnYQqXc4 pUpAnAxPmvOdxcP1h4yt/M0IiAAfI1mFdRvi2aEY/fIkIIZGSr+STq5C7hP+ OmLRBCRY61aTr+Mi1NrOof4gn4Cw1h5z69SahYQ+v4d+NhOQiLePkhzPjUN+ WSpywuMEROwBSvziMgx1hf8S9cYTkb/nPzk/U+qHJH0c+Nu4iUjLI5l9X/l+ QU9taTgEFIiIPccnyvfz7dCATgzLfX0iMmFl5rHS0wKdURIjNt8lIrnl/Z/b qhqglyewTZ4QIsKR9PcWw2Q1NLb/6qJzJhEp9+hNlBavhOCNyYmGaiJS++mO cQJ/MRQz6jfI2U9EvrzpPGhtWgBRWg91Oa4REZe0qkPvz76Dzpe9bak5RIdM 7r9Fd0D7DfQ6HaplP0WHNI+c+izzNgVaedFedvsiHbI221gyRRsPaXvczK+y oUO6QwIjUi9GQZmWW5kHH9EhfOOaV3qSQqEdzfAk20Q6RBAZPMIVHwQZnBWK Ki+hQ0iPp8RXePyhD/wVz1h+0iHW9Nju9zxfiJ5Z55ElhQ7xzovceku4DxkK G2NnGOiRfl1pjuWJe1COivUuoyA9cnFW4G5tlz20ZeoID8L0yPsyu+f+iTaQ tqeHb5ERPdIjEwpvVZtDKVGPKwNd6ZHrGfMfby8bQYt5zzdNQumRck1Nqiib PnSuOUZRKoceWX+dPf2Z4TIUM5biSainR1CtETPOZXVoguZdafcgPeJvbSIa 5qECKXJ/Ws3doEc0250YCC5k6Lk8euYRGwnRSqlm0Ro+DQ1c+ep2VYqESF+O OPXkuxQkdffnR5FLJMRxIVxLsk0Eevysf2nbhoS8LRCZo/0qAHW8GZdpf0hC +EK/TpRp8kBC1Qv3MhNIyFLL8vW34kcgj77NfK9iEnJvUeiQ0ccDUNMqcV77 BwnJ0nslJEtkgo4dYj0lMENCpiPaxO68IkCOkpyOq3QMSH163iHt67tk7ILg +2Z+BqTpUdZnw55V8kEbyZlkMgNiUBBU/o57kWz9UF7M9RoDInH6UFC47zS5 OEHltoYzA9LiIXk3snOUTCrRzD72ggH5/d7B/kjIINm43WBiPosBaa3unPrb 84ucO2suXF/DgHxn0RBLo20n75DsbeP6GRCKaGK5gGQzWUfQ7c2dNQbkTOTJ IE3vOnIaeDCqfIgRkWKsEuLvrCJTjYMF2CUZkeMVakuqkiVkNfdIyykNRuQd JwOjk10BOSY8KbXKihGZs05SSebOIU/kZv2J8GNE3Avdx+TC08nPRyrMlD4y IvlHff52jEaTO3RGjZ/zMiGuASz3LzF4k4UcKHHmikyIQ46bkT2HK9kjcK1b 7ioTEkJ2G//QdYd8rIr5Wv8zJmSUZat11cqcbC12+orkChPy8rGbLfBXJRef BxH4A8xIlk1SALGKTCZZXvjRJcaMTOlaJuJOnCbnvjK9/MCCGUlpU3SebBUi U4lPL31vYUZCbeiOnZNgJPv/6VJ1Tt+H+Lq3vI7T/a40UHbpjkflPuQ3j+qf u7yNSoqRWIxf5z5kiNp4uLWtWmleLWfyGT0LYnTjfoWsaZGS2Tvf0HR7FgSW /dtqnBSjpOgu2Nshux+xf6e80XrTVGmdqFDGZcmK2G2dd2wKGlXMT3iq47d4 ANElgXmVzGGFu2nWrKMGbMjTpeoPJbMWZ81ux3MHPuJALkXpZNNyZMkF67or yCZyIaeNfs69mE2SJhyOHnuwwYPMP+7LCaWbkPjV/GQ+YD8/kszXMx+1/4Do VW/LM/G1x5HD9ueFmW95nXBgmj7eaiyIeFJTt8f5Wvl43zXE0E2dQK4lWey/ bNjD5V2qemV/gjBS38WRdpDhALtTpkPxmVMiiFr67fnPFudZmfFnLSX/iiI9 Mbli7K+iGNTu6EeLRoojREMJNNE6Cs9Rxn1XTVAS+d/9ggjnoHCpX6f+s97T yxJJxVL/WdQk4GqGr/R/7hpjSIu8KvOfWy3/Kh/klf3PQ4Sstejje6Zm2uUd Fdrz0enpY/wSe7Z2WVw9pbTnDf/d91rX9iz05ihncOieFdR7vzNH7llzMjEw LGbP9yT4lmOT9lz5Seh75rs96zXIPq37smcbu2WyRvOePRhLlppb95ykrWjx s3PPE10IeXjk/9TrgV+yGd/zPq667MmpPcvcUD+ysLBnNRqGVtflPRumNwWs re35ttpzJZ+tPf/PPst//n953DEY "]]}, Annotation[#, "Charting`Private`Tag$20823#6"]& ]}, {}, {}}}, 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, Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Charting`ScaledFrameTicks[{Identity, Identity}]}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{-20, 20}, {0., 2.4193602864417216`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202638197606*^9},ExpressionUUID->"18e6e9b9-43bd-433e-a30c-\ 4827598cda5e"], Cell[BoxData["\<\"Difference beween k0=10 and k0=0 case\"\>"], "Print", CellChangeTimes->{3.78520245995514*^9, 3.785202567838773*^9, 3.785202638208571*^9},ExpressionUUID->"ec40a91a-94fb-483a-97f9-\ 46ada4c620d5"], Cell[BoxData[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"83.33333333333334`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "t", "+", RowBox[{"33.333333333333336`", " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Abs", "[", "x", "]"}]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2.5885441393589224`*^37"}], "+", RowBox[{"2.5885441393589224`*^37", " ", RowBox[{"Erf", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"(", RowBox[{ RowBox[{"9.128709291752768`", " ", SuperscriptBox["\[ExponentialE]", "t"]}], "+", RowBox[{"1.8257418583505538`", " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202638280347*^9},ExpressionUUID->"6f1d4879-b311-4034-9450-\ 8937472edac8"], Cell[BoxData["\<\"Difference beween k0=0 and u[x,t]\"\>"], "Print", CellChangeTimes->{3.78520245995514*^9, 3.785202567838773*^9, 3.785202638287747*^9},ExpressionUUID->"abf855be-3c9c-42fe-af18-\ cf557a786857"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "1.0300645387285055`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5.`", "\[VeryThinSpace]", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1.`"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]], " ", SqrtBox[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]]}], "+", FractionBox[ RowBox[{"1.0300645387285057`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"t", "-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.78520263875697*^9},ExpressionUUID->"17dda255-3572-49f2-9f84-\ cde0a940a71e"], Cell[BoxData["\<\"Difference beween k0=10 and u[x,t]\"\>"], "Print", CellChangeTimes->{3.78520245995514*^9, 3.785202567838773*^9, 3.7852026387638063`*^9},ExpressionUUID->"94fa138a-0b6a-4be3-bdcd-\ b968746ee28d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "1.0300645387285055`"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5.`", "\[VeryThinSpace]", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1.`"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]], " ", SqrtBox[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]]}], "+", FractionBox[ RowBox[{"1.0300645387285057`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"t", "-", FractionBox[ RowBox[{"3.3333333333333335`", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"5", "+", RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", "x"}]}], ")"}], "2"]}], RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]}]]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]], "+", RowBox[{"2.5885441393589224`*^37", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"83.33333333333334`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}], "+", "t", "+", RowBox[{"33.333333333333336`", " ", SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"Abs", "[", "x", "]"}]}]}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1.`"}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", "t"], " ", RowBox[{"(", RowBox[{ RowBox[{"9.128709291752768`", " ", SuperscriptBox["\[ExponentialE]", "t"]}], "+", RowBox[{"1.8257418583505538`", " ", RowBox[{"Abs", "[", "x", "]"}]}]}], ")"}]}], SqrtBox[ RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "t"}]]}]]], "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{{3.785042891014888*^9, 3.785042902627574*^9}, { 3.785042955611792*^9, 3.785042960658251*^9}, {3.785043017262671*^9, 3.785043044860716*^9}, 3.78504307640812*^9, 3.7850431311422987`*^9, 3.7850432123598623`*^9, 3.785045739832857*^9, 3.785046851368845*^9, 3.785048132304161*^9, 3.785048182793132*^9, 3.785056428394924*^9, 3.7850564865587473`*^9, 3.785057257121127*^9, 3.785116420560001*^9, { 3.78511647377674*^9, 3.785116503288827*^9}, {3.785116612569099*^9, 3.785116631277742*^9}, 3.785118219525985*^9, 3.785118814079311*^9, 3.7851290282864437`*^9, 3.7851292994304132`*^9, 3.785129343957204*^9, 3.785129405301661*^9, 3.785129454569346*^9, 3.785129964317967*^9, 3.7851311676529427`*^9, {3.785131327676428*^9, 3.7851313457609253`*^9}, 3.785131417726104*^9, 3.785131648653023*^9, 3.785131752868709*^9, 3.785131784336887*^9, 3.785131885091848*^9, 3.78513221602125*^9, 3.785132410012684*^9, 3.785132730715043*^9, {3.785132956275408*^9, 3.7851329834465303`*^9}, 3.7851330860946703`*^9, 3.785133306874642*^9, 3.78513334200895*^9, {3.785133386928774*^9, 3.785133399242408*^9}, 3.785133552395796*^9, {3.785133673147566*^9, 3.785133684092167*^9}, { 3.7851337432154427`*^9, 3.785133786605598*^9}, 3.7851338265270977`*^9, 3.78513399995798*^9, 3.785134408605212*^9, {3.785136139667616*^9, 3.785136157683384*^9}, 3.7851361918022118`*^9, {3.785136237396593*^9, 3.785136284175331*^9}, 3.785136315221427*^9, {3.7851366607604322`*^9, 3.785136686157524*^9}, 3.7851999699884233`*^9, 3.78520086276082*^9, { 3.785200901255247*^9, 3.785200929629524*^9}, 3.785201008502137*^9, 3.7852012440454483`*^9, 3.7852012764144373`*^9, 3.785201326214342*^9, 3.785201362268292*^9, 3.785201465413371*^9, 3.785201747306817*^9, 3.7852020137226667`*^9, 3.7852022170920963`*^9, 3.785202436658263*^9, 3.7852025437073317`*^9, 3.785202638876395*^9},ExpressionUUID->"3b8aff21-8108-4998-9cef-\ ddd0de88c1f6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{"%501", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "30"}], ",", "30"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input", CellChangeTimes->{{3.785202696450692*^9, 3.785202708791223*^9}, { 3.785202844516345*^9, 3.785202860985285*^9}}, NumberMarks->False,ExpressionUUID->"72ba024b-f1c5-4814-a760-d57a1426d70b"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJyNnHt4lNW1xkcFuaRCQAQsVoKEwSpCiCEDZUoiXkiQS0gRtVQbLXi0NIC2 9VLQpGpFz1SwY63n2FZylE6t1IraExDQjIgonqO23nXwkEKoAQFBLXJRppm9 97t21rufeU79wz7+nt096/tlz5r9vd9lyJULauceG4lEJnSNRI7r+N/Fa488 eN8/PpgwPTtwTTb7zXTE/fOz069tmZw8pZL53Ys2vladHBHwH4xuH7y6fkzA +wzbe3F1Mh7w2V85/GJ95pyAjzz+y+3N9ecH/Bjz7+qAv3no2FOqk1MC/kaO 960J+Prruzxan5kR8N992nVscsW3Ar50YbdNzfUXBfyGPd1nZsovDvgV3++5 LZu9JODwPLj+pJJM87jAM3N4Zg7PzOGZOTwzh2fm8MwcnpnDM3N4Zg7PzOGZ OTwzh2fm8Pzx+30eaa4fE3hmDs/M4Zk5PDOHZ+bwzByemcMzc3hmDs/M4Zk5 PDOHZ+bwzByeW6p6FSWLRweemcMzc3hmDs/M4Zk5PDOHZ+bwzByemcMzc3hm Ds/M4Zk5PDOH51PNOv964FnzKQl41nxeAp4Vr7spAc+KFzYWwLMe/+MCeFa8 8YoCeNa8JgHPircuTMAzzwPPuv7CAnhWPF2XgGfFi64tgGeeH555Hnh+1vgf EnjWfHsKnhVv3BGFZz3+cAqeNX8vBc96no+i8Kx4+lAKnvX4nSl41vPfE4Vn ngee9fimKDzr+Y9E4Znnh2c+XnhmDs/PGN4n8Kz51TF41rx2NTxrXhKDZ81/ EINnzcfG4Fnzohg8M4dnngeeuR54Zg7PPD88sx945vHwzPXAs/3v1jh71jwd h2fNV62HZx4PzzQ+Ds/M4Zk5PDOHZ+bwzPXAM3N45nngmTk8szd45vnh+Tnr vxLj4Vnz78l61nymrGfN/XrWfJ6sZ839euZ54Jk5PGteJOuZx8Mzfy48M4dn nh+eeX54Zg7PadtPAs+avyf9WfFO/VnxSt+f9TzvSn/W8/j+rMcflv6s+S7p z5r7/qzrORKFZz3e92f+XHjm+eFZ8fThKDzr8Uei8Fxkfx8Dz5pPkP2G5n6/ oXil328o3tog+w3FG/1+Q3O/39Dc7zd0PdfKfkPxtN9v6PF+v6Hn9/sNfVx+ v6G532/wPHo9jw48M9fr2XO9nj3X69lzvZ491+vZc72ePdfr2XO9nj3X69lz vZ491+vZc72ePdfr2XN43mfPXwLPzOGZOTwzh2fm8MwcnpnDM3N4Zg7PzOGZ OTwzh2fm8MwcnpnrvjEu8Mxc9w3Pdd/wXPcNz3Xf8Fz3Dc913/Bc9w3Pdd/w XPcNz3Xf8Fz3Dc913/Bc9w3PKa8LPDOnvC7wzJzyusAzc8rrAs/MKa8LPDOn vC7wzJzyusAzc8rrhP/41pcfnJL8SmWsfMCP6jPj0+yf+e6VPX5dP+iSYDzm Z475x1peyfMzx/z5eL76OYek8UE9+fzw584sv/mymuQXFc9/deCvmvfEZZ5o wb8/23z3JZXMMX6j5ZU8njk85Juf68f8+ern+Wl88Pfiz0U9+ernz31y5PyH j4mcHOSTa3/63FORyNeD+sF5fK8DOyZH0qXBeHAeP+HMj8ZHIuOC8eA8fn7d vhGRyopgPDiPf+3lw70i6YnBeHAe/29zb+4WaQ3z/Kz5pyrgGM/zYDzz+x+4 9WB2cJj/g/P4UWO67s9WTA/Gg/P4tg+f/yw7KrxeAM7jS3LztNQG48GDvPrW C/Zkp88Mrxc4zuNfem3JzuzW8HoEOI/v97XNO7ILwusU4Dwe65bzXqxP5liH zLHemGNdMcf6YY71wBzrgTn+7szx92WOvyNz/L2C3Nv9XZjDP3N4Zg7PnPfC M3N4Zg7PzOGZOTwzh2fm8MwcnpnDM3N4Zg7PQe7tPDOHZ+bwzByedQ5clYBn nTNflYBnxXf/KAHP4K3Gy+QCeAY3+56BiwvgGTx3rTUy9roCeAbvl+P3fKcA nsHbcv/ZUJOAZ/A9Ob5sfgKewRfmeMvEAngGH2iO98ICeAY/kBtfUZOAZ/BV po7SAngGz10zjhTOL4Bn8J45vvDbBfCs8t6m1hQ8gx81db4dhWc1fmF7Cp7B jc+ifSl4Bn/X1PlUFJ7Bz7OrPArP4F3NPAdT8Azey/jZmYJn8CYzT3MKnsH3 Gm+fpuAZvG9u+KptKXgG328+76MoPIMfnxtftT8Kz2p8xXspeOb8HJ513js3 Bs/gdn0OWA3Pevzo1fAM/qUZf1kMnsHNum26MgbPikfKYvDMuTQ8M4dn8M/M uDExeAY3fiKlMXjm/ByewbsYfnoMnvU8/WLwDL7XFlgOz+BfGDw0Bs/285D3 ro/DM/g+M37ZenjW4/8Yh2dwe160Jg7PevyqODwzh2fm8MwcnpnDM/g/zP9/ XRye9fh0HJ7Bu7j64Znnh2c9/pE4PINvsd7i8Kzy3qY6Wc/gB+06kfWs8+Ey Wc/gdj1/R9YzuF23fj2Dm/4WKZf1zPkzPDOHZ/CvGH6arGdw6/lMWc+6zjJZ z5yfw7Ouv1TWM/hRt27hmeuEZ5X3tr4l/RnczvOe9GedG/v+DG68derP4KY/ NzRLfwY3/bnxVenP4KY/1/n+DG76c2SX9GfwJjOP78/g5vex4bMoPIOb/ly4 IwrP4KbfNuxMwTO46Run70vBsx6ficKz8vPS4Sg86xz4G7LfADeHOWqu7DfU +Hf9fgPc9PMGv98AN/3ki0Wy3wA366TG7zfAeb8BzvsNcOPzRb/fADf7jYpz Zb8BbvYbrX6/Ab7bfN502W+A2/1Gmew3wM26KvH7DXCz3yj0+w3Oe/V69lyv Z8/1evZcr2fP9Xr2XK9nz/V69lyvZ8/1evZcr2fP9XrulHur9ey5Xs+e6/Xs OTxz3gvPzOGZOTwzh2fm8MwcnpnDM3N4Zg7PzOGZOTwHubfzzByemcMzc903 fN6r+4bnum94rvuG57pveK77hue6b3iu+4bnum94rvuG57pveK77RqfcW/UN z3Xf8Fz3Dc/hmfM6yuUCz8wpZws8M6fcLPDMHJ6ZU94VeGZO+VXgmTnlUYHn fDnn3K0nPZet+Eaafa6c0b+2eLPn8Ln/+f7bq2p9Hg6fnJPD5y2PDOianOPz WPjcSDktfBbcPXB45vowbxySJz+8muqHzz9R/fD5CdUPn2P5eoHzyfXDJ9cP n2Om9h2XORDmb4ta+r6cbSgPfD43+sTZxT1igc9uK07cXZX0HD6n9e93c/2g sYHPX97Zr1dyhefwmTncb3nzWWEeuz9P/jaW6ofPW6h++NxA9cNnd6ofPrl+ +OT60Qfep/rhueu6Xk80Pxbmbxee1Xtiprw08PyL5b3fyLZ4Ds/v9CmcU1x9 duD51NsL/1H1uufwPOdA4R31s8sCzyuv7jMg2ea5Pu8I87fuVD88T6P64TlJ 9cPzu1S/5EJUPzxz/fD8KNUPz4+a79EZlnfK38rN9+XMtDnMijmyH95gvhcj 7Pg1C2Q/PM30n7NsjtR7oeyHM9tPfr+q76j0kRzvVif74bI5Jxyt6ltic5WG c2Q/vOjtE5bV/7ok/YrhRQl4Hupyrc9pP7zK1f9hji+pl/1w3NXfbur/tuyH X3D12/O+42Q/XOPqN/O3+Pxti6v/kxx//FLZD6P+A65+eP6Jq9/sz1tKEvA8 2fzdT7PeOuVvb5u/71DreXCrnN9daf6OxXZ85T45v9trvtfDXC70kpzf2f4T TR/K4eVvyvmd/Z4OT+8y9byXguf7zPfx9PQTpv6n5fzueZdrfeLOv+C5xtVv fGYTUXje4uo3uc10n7/NdfVbz/dG9T5tmPu7+/xtsav/UzP+Bsnfurn6bV7n 87d7Xf3bDd8s+dtbpp4T3Tr3+Zv1dpL1nJ0seUUXM/8AN744pvPkk13uNFvy Cvu9GJQ+bPgQySvs+vlaeof9gHJ4HmPWSVH6twZ/XA7Pm1TeNVjyim2ufsvL JK846Oo3f8fscMkrerr6reehklec5uq38/SWvGKsq9+cR5f4nHO6q5/zt7Nd /fa4uklescrU/7cW683nb2sN399ip/m95G/9TT2H3Pg/x3XOeYzzvDyur0N1 Tdt86X7J3+xx9XD1LJP87RJT/wnOcwPlb0fX2+N6XPK3ftW2frueV0r+9ndX v/W8WvK3ka5+6/kpyd9ecPXvdfXD8yeu/k9d/Xo/3CPoz9Nd/Zy/1Vpuj6NT /mb3Sz1cPtYUh+dP7ee64/6P9Tp/O8aNXxXX10cOVdg8cIV4ftp6qOhm+CPi +QH7d6+wedofxfMalWs9NA6ex7n66+wPjHgucPWPMPwe8fyhq7+/+1x4ftrV 38PVD88nu/qPd/XrPHl/Beec6139W9w6h2fbz4ts/Z3yN/e9dt7OjcGz+x65 452wWp/fnezGF0nfON5+TytNPa110jf22O+1zdkipZJzvm77gMstR0jOuU7d F3paGTyPdPVbzxHpG+e5+kc4Ds+lrn7reaD0jVNc/Tbf87l9V1e/yXkiIyXn dH3VHlfHPPD8tqu/i6sfnu0+8HRbf6f8zf1OufFPp+DZ/S7Y8UV/ieq8YpjN 0yp3ye/g9+zvjs0JI6+m4Nn9zlre1CY5Z7X9XbPHlT4gv4OD1H2nux+G56Wu /ibD10rOeayr33peKDnnTa5+k3MubJPfQfc77tbzPfI7eGXn+it9zvmOq9/6 uVNyzgtd/YZf/bnknG4f4ur3+2e3b3HznCr7OrfPcX+XmbKvc/si5/maBDzb +3BG2Hl2/1D2dW7faHnRQtnX/cHu0+y6arpccs5nVa71re7wfIOrf04ONxbJ vm60q3+kGT8jAc/vufpNztk0WfZ1bl/qPEcK4NntY916mJmA55ir33wfW6+R fd1KV7/hJZdLzun21YFntw8XLtev7b5dODy7fb5weHbnNcLh2Z0HCYfnLva8 Qzg8782Tv/2e6ofnK6h+eD6F6ofnd6h+eOb64Znrh+euVD88u/PEwLM7rww8 u/PQwLM7bw08u/P0wLM7rw88l9nz6MDzqXnyt3eofnj+BdUPz1OofnjuRvXL dSiqH565fngeQ/XDcw+bzwSen6f76+D5ZpufBJ5jdF8iPLt8KfDs8qjA8xyb /wSep+bJ346n+iW3p/rheTHVD8/lfP+n88z1wzPXTz7T7L9nHj6H8i7McxV5 wPi5eXhP8kD3mwV15nvPAOeHuN+SOe5nZo77mZnjfmbmuJ+ZOe5nZo77mZnj fmbmuJ+ZOe5nZo77mZnjfmbmuJ+ZOXxyTgifzOGTOXwyh0/m8MkcPpnDJ3P4 ZA6fzOGTOXwyh0/m8Mkc9wMzh2fOA+GZOTwzh2fm8MwcnpnDM3N4Zg7PzOGZ OTwzh2fm8MwcnpnDM3N4Ru5naVyen9Lce9Z8tjyPpnjdNfI8muKFC+V5ND1+ rjyPpnjjDHkeTfNKeR5N8dY6eR6N54FnOi55Hk3xdI08j6Z40RXyPBrPD888 Dzz/xOVjdvz/yvPainfyrHjHeRM863m2y/OViqc3yPOVije9Kc9XKl6zXZ6v 1J/7hjxfqeu8UZ6v5HngWY+/U56v1PW0yfPvPD888/HCM3N4nuJyMHv+XiXP t4KzZ3B7/KXyvLDmhfK8sJ5/ijwvrPlAeV5YzxOR54WZwzPPA89cDzwzh2ee H561hzvFM4+HZ64Hnqtd3mVzj3vkeW1w9qzHN8rz7zwPPNN4ef6dOTwzh2fm 8MwcnrkeeGYOzzwPPDOHZ3C7Dx4knnl+/T6B9ri9f6xF+EUul3P3Scb1ewna 5fl6cIznv4ue//H14Hr+Bnpfga8HnOvR7zGQ+YXT/PR+Az8enMfr9x748eA8 Xr8PwY8H5/H6PQl+PDiP1+9P8H7A2Y9+r4IfD87j9fsWfD3gXI9+D4MfD87j 9fsZ2uPDC3847P8+2HM2OMbbPjAipt/b4OsH5/qxbmtdnmmvC0yU/gzO61OP P1v6M7i9z7m39GfNJ0t/1vMMkP7M82A9MMffXfNsOf6+PB5/R/5c/L2Y4+/C 88M/zw/PzOH5ZpdbmutcLRtkvwHOnsHNdd7Bfr+h5nnc7zcUzz4n+w3Fl/v9 huINfr+hud9vgFs/N8h+Q41f0Cbvc9Djl8h+gz8Xnnl+eFbje7fJ+xwUr2iL wvMMl0/aec6S/TM4ewY313mz35b9M7id3++f1fxbF8j+Gdz8vRr8/hncXI9r 8Ptnzf3+WfGs3z8r3uL3z/p4sz3hWc/v98+KV/j9s+Z+/8zzwHOSckh4Zg7P zOGZOTwzh2fm8MwcnpnDM3N4Zg7PzOGZOTwzh2fm8MwcnhdT3gjPzOGZOTwz h2fm8MwcnpnDM3N4Zg7PzOGZOTwzh2fm8MwcnpnDM+eB8MkcPpnDJ3P4ZA6f zOGTOXwyh0/m8MkcPpnDJ3P4ZA6fzFcc3XDOsM1nBHnd59d9+G7xXWUB/81V ewpXPzY+4EMeu2lF8TVhbvlZanG6/sh5AX/A5dVBXvrLn/WrfnJ6wAdPOm9g 9UNhPtl94/mp+nlhPrm/clJZsizMJ99/pmpD85ezAr7xG5NrMpsuCfhtf/77 L5Irzg5yttMf2b05l3cz/3DqocbMgcqAPz3pi98U33VewEe7fJ75rQNuv6P4 mjA/nJfzUxrmhzP7LHmo/sjMgH9z6Z0lyY2zAj7cvR+A+VM7P7o12TYuyLv+ uPfGy5K3Vwa8oX3RTZn+5wUc1xeYvzrnhVuLD9UGfPXfNhVWb5gZ8KbLX3qw PjEr4HdlNo9IzgxzueuWHRxX3bcyyMfOv+vIRckV5wo339vGGXyd1J5XttQk vvrk8Q3Fd83U44uuKDhuVPcTqmtnCT/WzYP3VyierkkscNd9kLdk3b6u5xmL SqtLzxVu5q/ZLs/7gNvzhRujc7OTFhWfPEvP07Efm764ukf1tosD/hd3XYlz CVyv0blEJPbElLtuKP6DzzGOun01rpvg/NpeN78n/t/uuok6r2mqi/3O9RPw Xe785aDrJ+D2uZuG9b91/UTzZXH0E3B7n1JDHP0E/KDj6CfgHzuOfkKfG0c/ 4c9FP9GfuyyOfsLnfegnzNFP+LxvvbueiPMOu4+dGLvd9Rlwcx9mx/ka+gz4 AXeegj7D52trXZ/R4wfESl2fAbd+suXoM+D73fzoM7qeATH0GZ4ffQZ8n5sf fYbPs3rj+imdN/3Z9R9ws4/tOG9C/+HzJvQfcNz/ucP1H8U7znfQf9Tndpzv oP/w+Q76j5qn43wH/UfN03G+U+Gu/2Ifbu5T7TgfQV9S5y8d5yPoS+r8peN8 ZLTrS/r8ItsTfUmfv9Qk0Jf4fAF9ic8XFrq+xPtY9KXgfMH1JeZXub7EHH2J OfoS7+vQl5g/6foS834Pbnv/4uTuCv69puvCwrH/Cca7eXhfhH17vuvOzPF9 Z76pqWFL891VweduLZu3ZE39ScHv78/Pya6pH1QV8O+OP/at5scuDPgJ46+e tyDTJ/gd/GuX9LAt5cMDXrvtlvuK/zAp4MO2/PSJ+vEXBvzzt25/pfmVaQH/ oXsvE1//al/y7P2r64fp++E7ztP/M7bjuPmZ0cF1roG3Hb02Uz6Jfk8rE7sW H7O0ePNk/bu8tS7xTG6fPHtacP2oas1x38scqAmuT726dONVa+u7BtePjvZ8 pse9K4bq382O/jPsprb1mQMlwfWRl3+w67Pc/Sjg9n0RG1IfDL1lWnLjBTTP G6lVX/vp9zOzJuvxHX3jtly/3Tk1uO7z6J3n/rX5mZrgus+9Xc//buaOWj3P 8rboLPeeKL5e03/pukXzM0Po97109aq1239c3beErl8Uxi76087HMuUx4fY5 7imxw//18Y762ROEZ12ff3jjl2dU114g3PWl8uufjUxKtvF1mYEx83e5fmrw uSdceltF8vaagB/IrbeptcH+ZGvtHbMz/Wfq8U2fRQe57y/n/yP6rN1T3bco uG5yw8EXLps/e2RwveBvH7dfVV1bHlx3uGP73gdz95Ew/9W8n3zUPHViwK/B fZWOd3M8/t3GodXXVdM+qjHeK+ehy9SgnoVff/6x+gvD6ymXpjaOT/arDT53 4tBNm5s/CK+nnNn04sWZlL+egu/v8Ln9l3e+3nH/jPjf160bUrYkz3WTpXmu d+S7rpHv+kW+6xT5rke86Pon7/fyXY/Id90h3/WFfNcR8l0vyHddgPP/qMv/ t7k+j/2PPS94PXW36/N6v9Q7Vuf6vM63e8cKXZ/HfsN8T9Olidddn1f7kI6+ hD7P+xn0eXBTf8MbqYOuz3Ouu8j1ec5jd7o+r/Yh2bMSD7g+zzkt+jy4/dwZ BR+5Pq/2Sw2V0uc5X0WfV5/bMkP6PO830OeZo88zR59njj7PHH2eOfo885Wu zzNHn2f+Ldfnef9zkuvzzNHnmaPPMz/i+jxz9Hnm6PPM0eeZo88zR59njj7P HP08yLtcP2eOfs4c/Zz5fa6fM0c/Zz7e9XPm6OfM0c+Zo58zRz9njn7OHPep 8j4T96kyx32qzHGfKnPcp8oc96kyvz9Pvof7UZnLc3PEkc8E92G68xHmOI/I 54H3z/DAXD9X6DndFx14YD4qT76H42WO4w3uk3THy5zucxaO85R8x8v7ebrf Pjhe5jjefzX3w3EF9yXq++SD42KO48pXvzqPKLxanssAN88TFV0uz2WAm+dW ii4I8kB+Hhbc5FoNF8nzsODmOYvWS+W5CXDznFHrOfJcMPbzJj/p9Lwq+Afm fOd1eV4V3Mxf2BrkhJebBzlulOcZwU2es9U/N8o54WuUEw62OuU5LN7nc37I z0tq3lvm4f0w54r83J+636bTc3+cK+J7zbki1jnne/DPuSI88D4T9TO/P0/e iO875434XnA9WG+cN+Lvy7ki/DOHT84b1+bJG+GN80Z447wR3jhvhDfOA+GN 97ej8uSQ8MM5JPxwDgk//Lnwwzkk/HAO2StPDgkPnEPCA+eQ8MA5JDyo+Tu+ d2158kkcL+eTOF7ez+N4OZ/E8XI+OSFPPonj4nwSx8X5JI6L75coyZNbon7O LVE/55aon3PL+XlyS9TJHHX+q3km6mGOevJ9Lu9X8bn/as6J+fPNw/s9qzXM FdE/+Xcf45mjjzHHPPw7i37CHPMzx/zM5fkv4vhczhXxuZwryvNulCuiHr7v HfVwrijvJ6FcEd9TzhXlOVPKFVEn54qok3NFfB85V0T96vpg0RvyPgrOFVE/ 54qon3NFfE85V8Rxca6I4+JcEcfFOR6Oi3NFfH85V8Tx0n3m8l4IzhVxvPy5 8vwgcRwv54roA+BmGzV2v3jg/A0eOFeEBx4PD5zLwQNz9BPm8MP5Ifwwhx+u B36Yww9/LvwwRx8D/4up7+Ny/X5a5GPr6P207fGdhvP7advj9vdiJb2fFvdj 8/tpff6m30/ruX4/refwmY/n2+/xeP3e2vb4p+549Xtrfa6o31vbHj/OHZd+ b62fX7+3tj3Pe2vb469Yn/TeDOx/SuX7xfsfHBe4fX6/u7yvAPsHO36N9Dfw VjP+59KvwM35TqPvV+APmfFPy3sDwKuMnv+R7526T7IhKv0f3Lyfp2Wa9H+1 P1lQJ/0ffJOZx/d/8DeNttnS/8F/lSuzslKerwcfkOOtk6X/834AdTJHncyx zpmjfuaonznqZ07v1xKOdcgcx8X7EBwXc/2eCs9xXMzx/WWO42WO42WO42Uu zzUTx/EG92eq9y+Fxxvke+54meN4meN4maNf5dvXMYcH5vDAHB6Yw0Nwvdt5 YI7+8/88f51mzuP/CeAuMSA= "], {{ {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[ GrayLevel[1], 3], StyleBox[GraphicsGroup3DBox[ TagBox[{Polygon3DBox[CompressedData[" 1:eJw1mXfgllMbx5/nPudJVCqFtnaKymgvWmgio5eECqFFpVASJUmUBmkho7Rp oI0KDSMiDVFKhaiMMt/P9/3e7x/nd31+53f/nufcZ1zX97pOua59OvROMpnM E/wI2NewhbFfZjOZ/8Bj4ZHwzfCz8Fj4JngSPAZuAPeF74Qbwv3gHnBd+C64 O1wH7gPfBteGe8O3wlfAj8FD4VpwL/gWuFLw/54TM5kL6e8Jd6O/GNwUrg8X h5vBDeAScHO4IXw+fB3cAS4Ht4KbwefB/4GvhKvCHeDWcHm4NdwcbgT3h3vC p8AXagxwEbghXAvOB9eCz4VPgxvAF8Jl4cvgpnAhuB58PlwYrg9fAJ8NXwm3 ghvD98C94IvggXAf+F54ITwLvgt+FX4e7gPPgp+DB8IL4JnwAHg+/Ap8AdwD 7gr/RKsCn4X9jVYTrozVYs+Ep8PHNV/w2dgDmi+4mJ7lme7wTfDt8PPwJLg7 /Bz8DPwAvBSeBz8IvwkvgIfCb8EL4SHwG/B8+BF4JbwEHgGvgpfCTeABcG/4 UXg1/AY8Fv4AXgOPhtfBK+CR8Br4zaz37Hp4JTwGfh9eDT8Jvwevgn/X2sNV sCfTfwFcTfOD3Uf7lnY//TOwU+i/D34BngzfDU+Gx8EPwbPhGfDD8Bz4RXgQ /CI8FR4MvwRPg/+kVYRLYYfRPxd+Cf6VVho+I51/zXlx7AntRbgEti/PT4HH w/3hafBEuB88FZ4A94Inwk/Cj8OL4LlwD3g8PBq+GL4d7gJfCd8P94WP6szA hbBP0b8Mfh0eBb8Oz4Enw+/Ay+HH4Nfg2fCz8NvwMngcvBxeBM9N1+hhzm7e xPuqKv3HaCXh07B/0CrAJbF7dcbgAtidNI565l/ajqz90N9aG503bEHsPlp+ uDD2e1pROMH+QDsdjukelu/6i7Ydll/7k3ZQZxX7D20/XABbBHtIZxvOYH+k nQGehN1Fy6kbu5t2EpzTGPnAc+FK+my4GlxB44XPgSvCf8l/waWx9ejvAl8H /0IrBRfNZv43sLMx5eAjtOLwqdivaHnggM3yTFW4PLxHexfOh/2ZVgzOj/2G lhc+GfsdrSx8puacCdwCj8G+wOdsgN/Rs7xUa36vocmGm8NV4H9pzeDK2H20 s+D82EI5x4A6cOGc/X5d+NScfXctOB/cTusN/0NrClfCnkJ/W/g8uAB8ufwp fDLcBq4JnwS3gqvDWbiF5gUO8CWaX/h3Wn24DPZ7WjX4NGwenrlM6wHfET0X E3nf4vTfQ/9F9OWH2+vMw0Xg2+SL4Uej/fJrPJ/Q31JzTV9BuCNcG47wpYlj 0MhoX/86zz8WHQ8WwXdGr83T8N/Rfrwi9s9o/15e/5dz7KwHH4uOcyWwv0TH wpLYojn71gbwBfA0xSrFPni64hl8PjwV7gjXhJ+Br4F/jY6vpbA16H8avho+ D54EXwtXhyfCV8G/Rcfm0tijaXwtjj0RHb/LYg/RqsCFsX9Ex8Vy2B9o58BF sD/SzoWLYg/rO+DTsX9F+/QK2O9oFeFTsQdpleFC2OPRuuEs7AFaJbgg9kh0 DCuG/UnvA5+B/Tk6Jp2J7RHtO55hzntG+4hJcK9oH/EsnEfrzxavk7UvagrX g8+Er4Av1ZmGL4br6qzDTeDa8gHw5fAl8hNwS7gxXBC+FL4o67m5Ge4Inwpf AjeRT4LbwS3kk+D2cMus56wb3CnrObsFviHr+bgJvjbrM9cRvhwuo3WD28P/ 0urCNeWjeLdC8tX8/R9+rwPX0GfS/zC8FltK6w+3la+Fb4Cvynoub4NvVPzR 3oHbZb1ut8Kds16rzvDVWa/JjfA1Gj/7Zzy/X6m9Bs/Q58Ll4OGaF/iuaH86 jTF0i/a/Y+G7o/31dPihaF85F+4b7bufg4dG+9M58C3RMeApuE+0754K9472 3ZPhJnzvPJ4/CneP9psT4FujY8k4+LZoPz4e7sCzg3iXfvz+YLRvna05i/bp 8+B7o330S/CA6Bg5Ax4YHcNehO+Ljt8vw/dHx+xX4CHRPv1VeHB07J8F3xPt 31+Ah0drygVw/2g//jw8LFqXzIcHRcfImfCIaB25EL4KO5iv6M/froYfgO+B b4GfgB+Bf8MedijLHKf9TPuU9iPtCO0AbW/6zB7a7xlroIK071OWFjocbKcE +54v4A8VZ9PP3J+xf/ocu5n+2Trf8OnSFenn//97jqbjOZGO4Rva54l16V/B a/gJvCHrvx9Mx7kwcex+VT4leN/Knyzg96/h+YnH8l06niM8s1bjw/5EK5OO /9f0ezUHv6Tj13scS99X7y3dsj/93ynwZ/BG+YFgDSx/Lr+7Fd6Utd/9CH4P 3qqYKY3Bsw9Ex/4/4I/k27QO8IeJ4/IJxQj+Xhuujv04sfaTBtRcaf0OpWM8 nr5bv2hd8lvweLVm0qzyA1pD5WirE2seaZ/DWY+nDHa9/KX+J3gOfk3n/3D6 Pfr/F3lmh/aJ9iL8Jfxx1nHjY/h9nU94G/xR1t+n7/qDNitdi206A/BXWtus x/9Luvdm0r8b+0XW4z+W7reX6d+F3arzBu+EP4NLKqZmrB+KB+cy0iRFg32U 4unuxHr+X81J6sNPkoZJfbti1teJ9ad8/67Euc8/PH84jQt55DPgGvDf9P8I N4ajNEzq/xWnvk28XllpCbgF3IhxPhKdB0q0/p36+YKpNukKXy99qHObcaz8 i/62cAG4ZOL+NtKEaXw5RX4ljSP5FKPTWCMN9kMam3Lw6OhcN698TBprFFuf is5ppYuOpeM8Wb4t2M8rLucJji+KoSE4Rih270scRxL518SxJsC54Bik+Fsu OGeXRsoHd8o4RhcIjhHSMKcGxzLpkILB8VEaY0K0DpZ+OyU4HklvFA6eK2mA s4Jzf2m//MExSBqpdHDuL416WnAMlT4pEhxDpUmOpP5FvkM68W7sHVlrw6Hw vfD5wTmmdGD14BxfurRmcA4u7XphcA4ujVpPvj5jfVshuHYhLVol+POlV88J rnVIx06N1orSolWD6yHS2K/Srk2sJ5sEj0daWhpzDPwoY6uV8xm7Xvs26zOb N+v8UHniHP62InEOJZ2zMnEeIZ2zKvEzionLE+d00kWjg31UFz5zFLwZvgke EJynXw4PCs7HpQmXJc5BpGPvp62AO9A/ODhPl558IDg3l+Z8J3Guqrj8durH 5H/eSpybSIf3C64PtOP5e4LrAO3h/vASuC18TXAdqbHmCX5G5wv+IDq3lN5Y mji/UxxfnDhfkzZ4IthHdeWZNxLnbtIAj8vnwjfTvyRxnig9sChxDihN0jG4 ltWEZx6DN8E3RmucjfC7Wa/bg/BA+Bp4CDwAvg5+CL4fvhEeAT8I94QnwE/A d8BPwaPgO+Fx8ONwN3g0PBzuBA+DB8Nd4cfhYfCt8JPwCLgLPAp+GL4+scYb BHeGH4GHwDfAw+EHss69lYMrR5BG2w5voX9k8Ht1pn9IcP1EecGm6PxQWm5g cN3mCnhEcO2lEzw8uJaiHGRC4rlaKx8YXG/RvlVuoT22jv5hwTUZ5S/KRbQW 67POyebJ98OLo99TuZhysunae4oviWtl0mYfJM5/pZ02Js6vpcHeT5w7Szt9 kvp5xdBtiWtu0mBbEtd5pM0uCa4xKv/akDhnl647mrgGuAT+LHFNT5rt08R1 P2mwzXD1jPXepsS5v/Th9sR1P+nVvYlrj9J13yTONRR39iSuT0rXrUms23+F L6WNzDiPrhy8x95RjE5cG1wMH0xct1R+uiNx7VGa+UDiGqM04U64Ucba9VDi Gqby0+/hNhnnp+WDteIabMXgPfw2tmywnlwdrN913hczh2uja1XS872Ca4yt 4XcT122k7XsH1yfb0N89uD55CdwjeH0vgzsH1wmbwu2Da8gN4Z7BtcpWcLtg H6ic94bgPXAxvDK65qX8/fbo+ssvijPBdchm2jPBtdCW0s7wHfBy7InEtd83 4DLBmn8VthjtXngFtkRwHWylNAXtFbi5dLd8MPwmfXmD62bLFGeC66UteOZ4 4hryUvrWJq7vKa/JBtd53tL5S1z/UV5TO2ddpXNULdhvvIttGOwHNmEnRtfp NLYWwTW9T7FPR9dSNM4p0fUQ7ZPGwf7hQ2yjYP2/WXsv1RbSBk9E16M1zvHR NXHNT61gf/U+dnJ03UP7YVJ0LUj74Yvo/Fl6qaXGwfOfYZsH+7ct8p3RtRrt q8+j82fpqKXR/m67/H10LXKH/Hp0fUlrsSTaP34pXx1dx9cZvCDYp72HPS/Y p63XPoquF60Lzk0UDxvnrEX3ZJwjqN6lvEH54PPRdSf9b+vgOurn2FbBtdyt 2OuD67e7sdcF13W/0tmP1ujS8MoFlBcoP5geXTdTfj02uo6vtX4y+o5B+21a dC1L6zsm+l5Be2lc9N2D9lId2qN85gfYBsE+f6N8WnQd9hBcP9jnb5Bfis7z lV9sja4FKG9qFlzj/QT7YXTtT75lXXSt9jv4zeiYtBNeHV3j3gOvj67zHoDv Cq7l6vmd0TUOab+7g2u/euar6FqG9Oeu6BqHdPKa6Nr3Xp5ZFV03/wZeEV2n /hreEF0v/h7eGF1T/gF+L7pmfRB+N7qevl/fGV1n36dxRdfTv4Xfiq5374KX RdfltV7Lo2vlWsfd0bUbaftOwfV2jaGvviPj76oRHHO1ly4OjtEfYbdH13qk 87+M1vrS9jcH1731Xk2D4/jH2C3R9wrK6bZF15KUj3wcfe+inOuT6HsX5YBD g/NczcNDwbVZzYPuM9ale6xrcA1f89mNtjjjd98RXWOSPt8TXd+Rtr8zuPau ebsjuIavefsoOg9UznhfcO1X+6pLcG1fe+Dr6FqY8qYF0TpGZ3xzqkHlb2dH ax3NzxXBdyI6s5VyvoOR/6+Y852NYsT8aF0i3zUvWpfIV1TO+f5Geu/K4HsW +Yergu9KtD+r5HyXI61YLOd7L2mzMjnfIcn3zo3WTNrzbYPvRLZhz8r5/kmx oGzO90+KR22C70q+wJ6Z8/2ZdObCaF0lP1Ah57soxaNXouss8skvR9eMdDZn Res/+duZ0fUX+dtR0feRitcvRd+v6My+EF0Plx+bEV1/lr/dH12PUw74WrTm k19aFF3H0bu8Hq0RNea90XU65Yblc74/U2x9MbqWLh8yJ1oXak+ekfPdnvTz 2TnfgUlvfxtdT1ReWSLn+0LF2bo55//ShKVzvs9THGyUc24vXd0w5xxeeUT9 nPN25RENcs75pbHr5ZzDSz+fnvN9oWJ9qZzvMhWvS+Z8Zyk90CH4vkxx4WrN dcbnumrOd3jKTc7NWWsqB6mW812gdOl/AT9Ny3E= "]], Polygon3DBox[CompressedData[" 1:eJwtmQf8V1Mfx++55zQkDRqKVFraU2nKfGwptBQNklG2jBAaIqOSUZGGFVpa NEREWdkkhUr2Xk/U83k/n/t6dbvnfc+993f/957z/X6+n1N74PDuw/Isyy7S f0n702KWTdL+QvFSHegmnii+QLxEfKr4HvFQ8WLxLeL3xdPELUtk2QniO8SD xAvVP0L8nPge8aviG8VrxA+I14tv13Z80O/q2M86dqL6J6g9WO1F6rte/Ib4 XnFT3f9uHeul88/RsUx9w7StVnOs+uuW8O+9Jr5b3Eh8rXiDeJK4sfg48Xjx APF83au3eKr4MvHz4lu1ddD9j9SxL3TsJvW/qPaDam9Q33Xi18WTxU10v+PF t4sHiheo/zbxJvEscTv19xFPE18uXsH9xR+Ip4tbqX+weIl4pLiG+ELxCvGt 4triXuIHxZeKn9P1N2tro+frqGObdOwG9b+l9n1qN9f5z2i/U/y1tnlqD1f/ C2qPU7ue+i8SrxSPFh8s7iG+V3yxeDnfU1t73f8IHftcxy5W/yq1x6hdR+df Ln5ZfIe4vvhK8SviCeIG4vHiT8WzxYeJn9D+C/E32uarfZX616l9p9qHqH+0 +EPxQ+LW4tJcp9/vqmNb1R6j/o/UfljtNuofJ/5EPFPcVjxW/LF4hvhQ8TLt q3Kt7vGG/par1f+q+C4db6j+7uLJxXhfpv7zxEvFN4gPUv+f0deX0fVvq/98 8XLxTeqvpf7V7MVfqf9N9Q9R/zLxjTpes4Sf6aXgMcez9kh+30uCxy/j/23x /Tq/hbil+q8UD1P/3uJ+6n9GfJX6q4tbqf8q8XD1lxW3EF/B9xKXETcTX8Z8 FZcuxvcD4nN0/b7i5uq/nL9X/XuJb1f/ZvEc9bcXd1b//cwX9VcVd0m+/h7x /uJG4uHiIeIoPlnXPyQ+T9fvJ26s/kvE56s/iVvzzsWXiPcRtxFfw/gVlxMf IX6Yv198gLip+FLii7iU+EjxDOKD+EBxQ/Ewfk+ci6/R7z8vnqjff414lPz+ 5wd/357J43NlcDw6S+c/Lb5S51djvia/38eCx/MJ4nnix4Pjx5nJ82V58Pfp njwfFwfP9zOS482y4PnWSXwf40tchX793mN8z9zcLXn8LAiORyeJF4ufDp4/ JyfP/2eC50/X5Pd7X/D3Py75+R8Nnq8niueLnwiez6ckj995wfOpp37/ccZL 7u9J/HiC75H7e44UvymeIm4mrssYZrzo+n/VPljbueL+4l3EM21HqX0Cc1jX jBMfKT6eGCP+V/drpnZ9HftAfWO1HaH2cTq2U/13qn8r71ftTowv8V3inuLy 4sP4DfGo4PG6W/3NxQ3EH6qvrbabxNeIK6h/jLir2v9hDuoeZ0e/jxG5x0v/ 6O95de7xdbj4bnGv3Nf/I24grqV7vK97nZ4c35YGv48J6t/C+ND5HcXt1D+O +a/+iuJd6q8vril+T311iCHis8X/kDuS/75x4ko6v2Py798mriw+Nvl7PBIc T9pF//3dcs+PY6Pn49m5f6+Bzr+IfKjzM3E98QXkG/Futetru1A8SLxH7UO0 XSw+Vxx0/jHJ42FGcHw6Onl8Phwc744SP0r8Dc4/f0fHt/3F76jvL3FNcVXx RvEp0fN3SO6/r6aODRT3Vf9fatfSNkh8lvhvte/Q+Z8xfnV+hxLWD8zv83O/ j9o6Z7C4n87/r9ofB+cMNMkCckT09z9O7ZI6/1LxIvHt4nU6fyrxUdfcoGN1 1TcLjSEeI24jnp08tnjHvOtHyXHBObuDeA45NVgTtCcX8Ztq8wA38K7I2cGa piNzSzw6WKN0IjeRV9QO2t/I86M7uBztIK6qc84XdxXfS6wgXuv6a3Wsuvqe TB4bjBHG6mrxk+IFzEnxTPEN4tHiVowN4rn4OvFBaAPyh3ik+GBiP/lBfD1j PPo3icXEZJ5lSnIsJiYfKH5EPFJ8q7gFsV18rXiUuJF4evLc4xvwLZjjzHXm 6GY0HXFV7Z917Er1rSPOiH8SXyFezzwU/8oziF8kbxBLxJckjynGFmPuTfWt ZVyo/Z2OXaa+19FF4t95ZvEG5rn4N/EIYrW2uWov1LEBaD/yptq/6NhVyfpg PfNNx18nNyTHdmI82mgGGlN8i7gZYxuNJ75Z3CQ6fm0kXuv6Lhp/34nfEa8P 1oPEAGIBMeWDYkw+H6wZGavfFte/Fqx3iTnEHsYYY+0vtasR28Ubc48pxvIZ ucfaquRYT4wj1s0T3xms2Y4Wo4HRzofk1sZoaLRrtdza+qfcWm5/7ccna7pW 4r1ya72ntN0erPGPiNawE4M1J9oWDdxa7TK5tfHTzOngGuFItIp4QrCmOipa 808K1tTUAtQMD4ofyVxLUDOQ24kBxIK/cueS2uSKZE2O9kCDoGWoQaaKZ2au Tf7OnYsO1v6uZA03Tf2zMms7aobJwZqbWgJNO108O7PWnSseH1zDdEVLUhfw GrUflaypm4hTbq1NjGAu9cgdO4ghzN3TcscWNDmxnJhOrkXjzxLPzaz9S2vr rXZLnT8p+Z0x187K/S5554y9vrm/Bc/E2OuT+1mJCczF3rljBTGIuX567thE zCIWdM8dyxgTxL7+ucfKS9oWBtdgQ6llkrUImgRtS80zU/xk5lpoDWMiOMYO jM751Br75dYC5PT24oq5cz0aoIN430IblNI1vYgl4onJOfowcYXcuZs5R2y7 LfdcJMeQa2rr2Ns69q62umrvIoap7zfx6cQq6gjx77q+gvi/mfU3NeWa4JqP 2o8YR6w7PLeeKRudP1uLfxFXidbTXXLn613anyWuo/0OcZnofNpK/LO4UrTe 7pQ7P5WP1sNtxb+Ly0Xr00PFv4n3jdbjHXLnw/epS8T/6hnfTY4RbcW7C/3w r7gfuUv7r8T7Rev1jrnzZ4Vofd1O/Ie4YrRebi/+U7xPdL5vI/5VXDm6nuic W7/9rv0Z4hrafyn+Q/szyR3abxP/qX1PcU3ttyePCcbCqNxjhZjK3Loud6xl TDCXrs89Vnaie/j+2tYUeoy5fk3u2PUKcyS45r8kFjlN7Wtz5zqOEbvH5z6X McrcuTn32CVGthPvKfQa35xvXzFzLZZH649Gan+bHA/P0a6B+BvxHp5JXF/7 r8W7te8vrqf9Tp4vt577Qfd/S1wyWs810/EfxSWi9XBT8Q/F+EYvNxf/JI7R eqex+DtxitYzTcTfJ2tYtGwLHduSe4zT/rPQV+RLcsePwfXmEnSO+DPxkORv 1kXtYzN/S+ZAZ/ExmefGZvGh4i7kzNz1b2m1P9exoer7TFtbtQ/nb1TfCm1l 1d6uYxerb6V4H/EO8TDx1uT6m5xB7liU//+VZpt0bHCyJtO/7BPxoOR6vWFw TiG3kMPIZX+jcZjf4jrMVzQLuVG8t3ib+CLik7iS+FvxpeItxNjg+v/H3GOK sfW1jg1X3+L8/zI42yw+T/xsbt/qU/G5jDVxGfGX4gvJ9eK9xF+IL0jOUWip frlz1yfamgXPye253+HJalcq3i3PcKq4Su5n4x2eIq6c+91+qq1FcIwj1vEN 8Q7QQHzbTeLmwWN4R27NgHZAE+AtoQnQBngCeANoILTVH4Xe/kjbIWq3zOyH /Kqth9oHaP958j0ZG+WK39qm/dHistp/LL5Z93xPPJX8kvubdhNXzf2t0XCM nRK5tR2/wbsvlfu3GbOMnZK5xzJ/I7VX+dx/O++MsbhP7ne5J3p888xcj+Y4 Lvg3+W1q5mWF/sK7WqTtxMw1JvllYXR+p8Ykn3ypa9qI99Z+NOMvWi9QY5J/ 8BzwHoZqK1HC8Yzas5b2E9Q/P5qpGck/1HjUetTw1MLztB2V2fND3zwVne9a B+uBldpmq/2UjvUlNkbnv5bBev9pcafMnhx64Zlo/YWHhr4ippQO9pSINXOj 82Wr4PoAj6pk8Jxl7qIRBgTXDGgHPAe8BzwkvEc8JLwkala8UTyz1cEeF14a HtkLRT7EO8NjXBXsueE94hHgFeCZ4MXhQeBF4EHg7VEDUgtSI+JN4kngTeAx 4PXhqeCt4Pnh/eK5kX/R2GhtPM+1wR4pXiiezPxCb+DF4YEsKPQI+RqPZXmR Hxj/1NyvFvOBWhwP8eVgDxhvcbG27pk9Y/Qtc6BT8JhnbuBpvRLsceB1Ldc2 ILNnjD4OxfUNde49yTXBxmAPkedfpePl1H5S+86614PR9UelIj6SIxlLjCnG 2sDkZ2UO428MSPZj+Rv4W85OfnaeiWc7J/nZ1gXXw9RMtYt6gFpqDt+Y/BRc 78yO1qN1g+udR6LrTa7h2lnR+rVOcH31ePR8aVzop/d0z3rif8QjxY9Gx+qG RXx+ILqe2rfIB9RMBwf/BrXUY9H6v1ERv/EM8A7wFPBO+yV7nXxzvv3d0fEa TUB+WCbuo3b3YL2OZ/diMV7w8pYW+vi0YP2/pNCP3YLn77NFfUMMIZb8knu+ Vtf+DvFabYuCPcELdO4T0bGYmEz9Pim6nsyLfDFZXEWcivx6T3Q9ujtzfrsv un4sV+SP+6Pr1wpFvpoYna+yIt9Mia5/yxb5pX/y2GfMMnaX6jlLibcwp9V3 b3RuKFPkZzwqvNAZmb0rPCzqIzQUWgrPBu+G+gKvGU8ILwo/A68Izwx/A/+C egkPGC8YDdk42qPBi8JfwLvBA6S+or6jXsEjxPul3sI7xJPBj6A+oj7Dk8Wb RdM2jNY8fBu+EVoIjdwjWEOjndFAJwVrdrQRGujkYA2KNkJDnRKsQdFWaNYz gjUZWhYNfWawZkNb46HireKJ4a2i4U8P1sxoezTaqcEaFu2Ghj4mOEejrfHM 8c6pCVpHe+B44Wj6ptGe8JRgzxWvGE3dJ1hTorVZg5kT7MGyNoPnPTbY48ML Z03p2WCPmLUmYsbc3DGDWPKTjq1Ve0Vw/kWjnhicw9GueKAjgv0VvFE8LvJY g2i/BY8frx9N3zzaU8fPGSE+NNozxM+hJqU2xePErxmVuXbkXuRGagbuyRoD aw3UQC2ZL3qeMcw9cWfxs4xR8XTxSeLp0fqterBfQ410dLBG2lVo6GODNdLu Ikd3DJ6j5O5p4qvJleL60TGoSXCMIjbdxRjJvGb1q9qTk/M5NQ+1z0Lqlsxr SN9Hv88dan+l7efomuqgYA1PrXW5uEZwzHu50EBNg2swtBGeK/U6NQ61Dh46 /go1KbUpawCsBeC3sLbIGgFrBXjKrIXhwePFs4bAWtpUbdvU3q7tx+gcQC5A 3+EdEeOJ9eQEvFBqxp7BNUr5YryQa7jHD9ExolRwjCJ24OHi5VJj1o5eA2Et hBq0TvSazJDifdWLrjnxYgdlrkWpef4TrL/2FDURsZSYirCnpiQ3DijeN+Ia r5masma0p4y3TA1dI7qmZG2AGolakzUK1irwhFm7Iqf2Lu5HrsWjxqumpq4W XZOz1oC+oVanBsc7p6aiNiemnxCco4n11Nx4w9Rg1OLUxHjLgzPXytOi6w08 NOoDPDrWQLcW739mtB9LTiO3EaOJ1cRgaoN3o700PCzqgaGFfkevocfeU/+U zJ4bfgo5gdxAzKfWeCs6VhIz8WfeifbC8Mjwd96O9tbwnPBznhcPzazx0Hpv RHvJeMz4OeujYzkxHX/pNfHYzJ423jZzlLl0Zu65+2b03MWTxi9cF13f4Oni 7b4a7QfhIeMlvxLtP+F54n2+Hu1t44njb22M9vbwBPGj1kb7UXjCeMMvFr+P 5473Xln7bzOPX8bxmmj/Ek8ab/qFaL8KTxpvelW0X4UHjhe+Mjp2EcPwpldH +2143HjdL0f7Y3iyeLNoMLQYmoXalZxN7kZzUKu+FB37iIF41+R8cj85m9oR TYI2wT+glkXzoH3I8dTGzAHG7mG5YxE5nlyPRqDWRAOgBdAI1LIbotcSWEPA f+uTrMXR4Gjx3snaG42OVq+anKvIoeTSA5NzHTGB2FAlOTeS08htNZJjBXOU uVo9OfeRM8md1ZJzLzmR3HhAci4lh5JL9yceZM7R5OrKybmYHEwuLp+cK4nh xPKJxfxkPpLf90vOVeR0cnuF5FhPTCG2VErO9eR4cn3F5FhDjCHWlEvOFeRk cjM1FbUVNRDe6z7ohcw5hdwyodAXvCP0NZoR7YhGxPstk1xv4ongjeyVrP3x RPBGSiXXr3gY1LfUWNRa1GyszaD50H5oQrwW1ijw4/FgqNfRjGhH6nW8p7LJ 9S6aH+2/d3K9fXiwf1YyuT7Gs8AfQMOiZdFHeNsx+V7ck3qZa7iWe+LFheTc hAdB/ZwnexF4BtTzK6JzPTmftZwSyfU6ng7+QyImZPaA8Cvej9Z2aDy89F7J tRo1ILUgmh/tj5+AV/NVdO1FDYYf+7X4pcxrGKxlzIiuTXhHvCtqCmoLagK8 2i+jvWLWYPAHP432B/Hk8eafi471jCnG1kfR2gKPHq/+s+hcTE7GS2c9BO8A DwGvjJqH2ocah7Wfvsm1LTUntec30bUEjBf8cbR2RkOz1vBFtL/Imhp+IzUM tQw1EN4UNTy1PDUDa3lbov1HPHG88U3R/idrEKxFfBLtX7KmwdrGzui1HjxO /EtqMGoxcg5rX5vVPyfzGgRrEdR01HbUdKxtkbPIXbUze10nFfH83NxaDH8V f7xWZr8TTYM2+D5Y66DJ0GbkQNbWPohee2ENh7WcHdG1EWsA+Kmsr+Kf4qGj p/DcDgjWeHhxD0X77xyj78PotRTWdFjb+SVaq5FjybXbo2t5anr84s+jtRSa Cv+Xmgzv5JbctRpregcG/wZrfVuLftZMWDvZQJzJrPHwrB6O1nJcw7V9i/Fz RW5vZhuaNfOaBX70/wC45MZa "]], Polygon3DBox[CompressedData[" 1:eJwt13f8llMbAPCn5/n90g4NKqJJpUIDpb3e0qCpSXsXLaNFS1QaslNZGRnv S5FSvG2kaElT1ouM16bpe33u3x/X55zre1/nGfc459xl+oxsPyKdSqUOiGxx cSaVukhcmpVKNXXgUe1ueS/9yblSqXvUNJPvEb3ZFDaLtZSfpfY81oK1Yz/p 7+V9tFPZbNZK/onoy6axOew6eWlxobjEZzRx7BFtLdFF/x51M8QL8pJqSoiK +o0de1i7U95Df6Ka6T6vifwCUUpUcLyRYw9pa4sb9Weqm6uuvuOPiq/k54iC bK3j2eqKaZuxNux7/fKsgXYkG8eKG3eluCJax9o69pS2prxGhH479nSYuF7/ LmNnGnu141msKGvKWrMf9Auwi7TtWGf2R5xLNlX7DHtWlHGRLo3zJKo61tKx J7T5RWn9tmo6Gfu7/nVspnYVe4eNMOYy9i92O7tNLJKX5+VEZf3mjj2uXRP/ Tb+9mm7G5pWX5fXYcDaGFY3zHOeVDWAjWKG4juwqNpCNZIXj+rJr2GA2SCyU l+VlRCX9Zo49pt0n76c/Xc39xraO+5HXYUPYreycGMeuZcPYaFYk/gOrz0aw sawYWy0uZzewriyP/GJ1ddlQNoqdyzZkknN5lvNbKc5F3FPqnmTr1W0QtR07 wIey2fEfjG0vz62uOGvO2rIf9T/kHbVj2SR2rXyb6MDGsImsrvwD0Z6NZhNY HflVPu8mNpc9zFqw7aITG8cms3ry98UNbBQbz66R7xBd2Z1sCmsoL+zzKrBO rCc7pX81u1k7jz3Cmqt7L5PcswX9z1r6tcWZeK7ZVeoaqDuiX9/YW7RL2fOs i5pz2CWsC7uJndGvx0Zql7DnWCd1KVaAXcvqxvMqP1dUZt3iGon5cb3FwHi+ 5YsNa2NsMVaV9WT94qNYXTYo5gu2hLVl57Hq7CY2gOVmv4kj8myRW3wY94+I yW+xfJm6zmqKsstYD9aXZdif4if5RaIi2+x4EXVVtN1ZH5ZWk4eViueOtYr5 Lu55MSDmH/mDYoU8r7iAtZZ3MPZX/cbsdu3z7FXWy+c1Z3exf7NVbCA7JbJZ LVaPHdZvpO427XPsFdZTzS7Rk02KuZM1lX8surMJbBprLD8ohrE58ftYB/kh MZzdzx5iHeW5fEfBuKasKftSP80Kxf3AmrGv9D9VO1h7H1vArpc3UDc2ncxf MY+tlWdEYdZA3lzd1/r71Q7RzmIPsBvkh8WtbAF7nHWVNzR2HFvGXmY92EbR iuVx71aJeU40UTeRvaxupbr+7CPRjY1nU1kj+WbRmuUztnrMF6KZsZPZq+re VDcgk8zF09gK9rrYGHOpmM5Wyt9WN1TdJnEdy+vzqupXE1tEG5Y/O2fNiN9r 7D3sTWPXGTucNWWT2CvsDdaPnY45htVm9dkh/T/Yj/LS4sKYA2MtEDMceyPO sbpharZmkrWpQHayLtXM+X/xP6/ISn7Tk9rl8rR+OWOrGLs/nZzDOJfVs5L/ s0S7RP69mixRXN0m/hf7I54NUY3tYF+w8dpFcc1ZH/nf8SzJLxHV2fa4t9nZ 2ivYNeybWM/Yd/KUKKrZwG703U/EvMr2sKlqOrNH2Fa2g03KJOflB/lZIk+4 mq5isbrt8r3qpqnpwhaxbWw3m8L+E/MYu5LVYd/qf8kmxG+K9Zf1lX8u7ox1 kj3Nesu/FlNivWcvsSHyV0ReVpnVYJ/H/cTyaauwmuwL/W/YfdrlcV+xW+X/ E/eyF9lr7Bb5V+Lu2Gew5WxwJtkjdU4na3ms6YVd52/5LPZSzDfqRskXi2Py tCjGNjp+POYTeVVxWaxJPuuh+H/6+UU+davVHWV3xPrMnmI3y/uofZ7tY0fY nJhb2FL2EdvHZsSaxR5mW9h2NjHWGDaXvcO2sHE5a+1TbCf7WGyTH+OPstXy 9erukl/P57F32VZ2Wzy7bDZ7O55JNibWVLaQbWQfsDtjPmRPs11sP5vJHotr Jy8iCrF1sW6oe1a7hx1k96npxZ5hu3Mle+V7Y+1lD6STvUHsEd6L+5F/GddB FFD3tuPfsfna19gadkc8Q/HdbE3sLdjd8o5x/tnmWJ/YBLZIfCs/HXscsT7n up3Mee7j+d9lXAfxoGOb4typGx/PPbufrWOb2dicNapkOll7Yw0+GnOAmMPW yjepG63u97gH5efFusfejfU5nn/tDvYJm55J1u5K6WS9i3XvWFxv/oV+wbiP 1K1JJ/u/q9PJ+h7r/J9ZyV4gfzq59+Ie/FTeWzzHPpEfVjLbZ93MlrG97BCb xZbFfCIvKcqxnbH+sePyUqI82xXrKTshv0BUYLvjGWW/ys8NZx/Es8Iy2vLx LLAD8ZyxX+Rnx2ey9+OezSTvJ/GyFO9J8b4Ue+oWLItli9xifSbZS2f0K+hX FP/NJPvcdHay345995Pi57j34r/42PdivWJZ2gpxXthB/YK+o5y2A+vOTsYz kEne0XJlJ/vo2E/nU3cha6Ouo7rf0sn6E+vQ5VnJOrdUuyrq9ZvEdVN3XL8U r6Xtz4azgjE3s4qsM+vFTsd6xcvEnoW1Yn/rv8Uu1bZk7WPqznk+FqSTtTLW zCp+5xE+ij0gX6Sum/xFkYuVZZXZp/qF4r1E25H1YCf0X8jERst3s0q6+/Sf Yb/FOhHPA9uWTvZc/dPJO2O8OxbxvSdiHY31SdRStyd+FyuirRnPAjuWTq5T XK8qOdc03o8Wyg+rycS6ou5NPp8dkJ9KbuPUCvYLe1n7Pt8Z+7pMsu/8LGct ijVpUJwTdlD/THIbpVbG3BDPkrYGr8u+i3PEDslzidzsjVjb457TNmIt2V/6 89h++YnYr4rX2YM6R1neCPZWOnmniXebalnJXmlxzAWipn4/dcPUFXD8fHYl 68OGsPxsXSZ53z6Tlbynx/v6SXEm1nJRW91ex5+NuUNePOYm9mHcb+z/MR+K EmxrzNWsobY3G8zOl6/NJO/qp7OSd/x41/9MjGYL1T2hrrt8pSjB6rAm7Bf9 EsbU0PZlQ1k+NSviv8T9wBqzn2PNziS/K37fcvmPmWR/Oiad7M9jn17CRSnO qrFe8v5xndT9AyD78yo= "]]}, Annotation[#, "Charting`Private`Tag$22293#1"]& ]], Lighting->{{"Ambient", RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, { "Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{0, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, { {GrayLevel[0], Line3DBox[CompressedData[" 1:eJwt0jsvZGEcwOGzZncWs+MSkUhWiA+wOqKgFAWViIKOKGxBIgpbbrGh0/EJ aInQS+is2xh3xspGxC2CXXfheRPF7zxvzrw55//mTEVHb3PPhyiKfulWYX2t v5rKiqICzrKcy6xkhnW8YBOf2c5ELIq+8ytL9cO6hkNs4ChbOc4uzrCf87zi Me+1pn8614KB0vzNdS5yg0vcDDNxiyvc5ipT2gnP4S7T3OM697nBDDd5wC3+ 4YRznPBBh/ofzqhhs6X4k3Ps4zQ7OcYWjrCeg6xmlQasS9jNHLbx0TsaecZa 7vFbOBfLeGnfEe+Ur5uwV8VmzGMRkyzkl7CHCSaZG74Bc8L7mM04P+mzdYzx 8I3DPb7qo17Cb3qSMaJJl9P3/8Mbz7NK+Q== "]]}, {GrayLevel[0.2], Line3DBox[{690, 1005, 473, 689, 1123, 912, 691, 1124, 913, 692, 1125, 914, 693, 1126, 915, 694, 1127, 916, 695, 1128, 1012, 1229, 696, 1129, 917, 697, 1130, 918, 698, 1131, 919, 699, 1132, 920, 700, 1133, 921, 701, 1134, 922, 702, 1341, 1006, 923, 1007}], Line3DBox[{704, 1013, 1230, 703, 488, 705, 1135, 924, 706, 1136, 925, 707, 1137, 926, 708, 1138, 927, 709, 1139, 1014, 1231, 710, 1015, 1232, 711, 1140, 928, 712, 1141, 929, 713, 1142, 930, 714, 1143, 931, 715, 1144, 932, 716, 1145, 933, 717}], Line3DBox[{719, 1016, 1233, 718, 1017, 1234, 720, 504, 721, 1146, 934, 722, 1147, 935, 723, 1148, 936, 724, 1149, 1018, 1235, 725, 1019, 1236, 726, 1020, 1237, 727, 1150, 937, 728, 1151, 938, 729, 1152, 939, 730, 1153, 940, 731, 1154, 941, 732}], Line3DBox[{734, 1021, 1238, 733, 1022, 1239, 735, 1023, 1240, 736, 520, 737, 1155, 942, 738, 1156, 943, 739, 1157, 1024, 1241, 740, 1025, 1242, 741, 1026, 1243, 742, 1027, 1244, 743, 1158, 944, 744, 1159, 945, 745, 1160, 946, 746, 1161, 947, 747}], Line3DBox[{749, 1028, 1245, 748, 1029, 1246, 750, 1030, 1247, 751, 1031, 1248, 752, 1162, 948, 753, 1163, 949, 754, 1164, 1032, 1249, 755, 1033, 1250, 756, 1034, 1251, 757, 1035, 1252, 758, 1036, 1253, 759, 1165, 950, 760, 1166, 951, 761, 1167, 952, 762}], Line3DBox[{764, 1037, 1254, 763, 1038, 1255, 765, 1039, 1256, 766, 1040, 1257, 767, 1041, 1258, 768, 1168, 953, 769, 1169, 1042, 1259, 770, 1043, 1260, 771, 1044, 1261, 772, 1045, 1262, 773, 1046, 1263, 774, 1047, 1264, 775, 1170, 954, 776, 1171, 955, 777}], Line3DBox[{779, 1048, 1265, 778, 1049, 1266, 780, 1050, 1267, 781, 1051, 1268, 782, 1052, 1269, 783, 1053, 1270, 784, 1172, 1054, 1271, 785, 1055, 1272, 786, 1056, 1273, 787, 1057, 1274, 788, 1058, 1275, 789, 1059, 1276, 790, 1060, 1277, 791, 1173, 956, 792}], Line3DBox[{796, 1174, 957, 794, 1175, 958, 798, 1176, 959, 800, 1177, 960, 802, 1178, 961, 804, 1179, 962, 806, 1180, 1068, 1286, 808, 1181, 963, 810, 1182, 964, 812, 1183, 965, 814, 1184, 966, 816, 1185, 967, 818, 1186, 968, 820, 1187, 969, 822}], Line3DBox[{821, 1293, 1075, 819, 1292, 1074, 817, 1291, 1073, 815, 1290, 1072, 813, 1289, 1071, 811, 1288, 1070, 809, 1287, 1069, 807, 1285, 1284, 1067, 805, 1283, 1066, 803, 1282, 1065, 801, 1281, 1064, 799, 1280, 1063, 797, 1279, 1062, 793, 1278, 1061, 795}], Line3DBox[{824, 1076, 1294, 823, 1188, 970, 825, 1189, 971, 826, 1190, 972, 827, 1191, 973, 828, 1192, 974, 829, 1193, 1077, 1295, 830, 1078, 1296, 831, 1194, 975, 832, 1195, 976, 833, 1196, 977, 834, 1197, 978, 835, 1198, 979, 836, 1199, 980, 837}], Line3DBox[{839, 1079, 1297, 838, 1080, 1298, 840, 1200, 981, 841, 1201, 982, 842, 1202, 983, 843, 1203, 984, 844, 1204, 1081, 1299, 845, 1082, 1300, 846, 1083, 1301, 847, 1205, 985, 848, 1206, 986, 849, 1207, 987, 850, 1208, 988, 851, 1209, 989, 852}], Line3DBox[{854, 1084, 1302, 853, 1085, 1303, 855, 1086, 1304, 856, 1210, 990, 857, 1211, 991, 858, 1212, 992, 859, 1213, 1087, 1305, 860, 1088, 1306, 861, 1089, 1307, 862, 1090, 1308, 863, 1214, 993, 864, 1215, 994, 865, 1216, 995, 866, 1217, 996, 867}], Line3DBox[{869, 1091, 1309, 868, 1092, 1310, 870, 1093, 1311, 871, 1094, 1312, 872, 1218, 997, 873, 1219, 998, 874, 1220, 1095, 1313, 875, 1096, 1314, 876, 1097, 1315, 877, 1098, 1316, 878, 1099, 1317, 879, 1221, 999, 880, 1222, 1000, 881, 1223, 1001, 882}], Line3DBox[{884, 1100, 1318, 883, 1101, 1319, 885, 1102, 1320, 886, 1103, 1321, 887, 1104, 1322, 888, 1224, 1002, 889, 1225, 1105, 1323, 890, 1106, 1324, 891, 1107, 1325, 892, 1108, 1326, 893, 1109, 1327, 894, 1110, 1328, 895, 1226, 1003, 896, 1227, 1004, 897}], Line3DBox[{911, 1011, 1010, 1342, 910, 1340, 1122, 909, 1339, 1121, 908, 1338, 1120, 907, 1337, 1119, 906, 1336, 1118, 905, 1335, 1117, 904, 1334, 1116, 1228, 903, 1333, 1115, 902, 1332, 1114, 901, 1331, 1113, 900, 1330, 1112, 899, 1329, 1111, 898, 684, 1008, 1009}]}, {GrayLevel[0.2], Line3DBox[{251, 474, 1123, 252, 488, 280, 1234, 503, 295, 1239, 518, 310, 1246, 533, 325, 1255, 548, 340, 1266, 563, 355, 1279, 578, 1175, 370, 593, 1188, 385, 1298, 608, 400, 1303, 623, 415, 1310, 638, 430, 1319, 653, 445, 1329, 668, 460}], Line3DBox[{253, 475, 1124, 254, 489, 1135, 281, 504, 296, 1240, 519, 311, 1247, 534, 326, 1256, 549, 341, 1267, 564, 356, 1280, 579, 1176, 371, 594, 1189, 386, 609, 1200, 401, 1304, 624, 416, 1311, 639, 431, 1320, 654, 446, 1330, 669, 461}], Line3DBox[{255, 476, 1125, 256, 490, 1136, 282, 505, 1146, 297, 520, 312, 1248, 535, 327, 1257, 550, 342, 1268, 565, 357, 1281, 580, 1177, 372, 595, 1190, 387, 610, 1201, 402, 625, 1210, 417, 1312, 640, 432, 1321, 655, 447, 1331, 670, 462}], Line3DBox[{257, 477, 1126, 258, 491, 1137, 283, 506, 1147, 298, 521, 1155, 313, 536, 1162, 328, 1258, 551, 343, 1269, 566, 358, 1282, 581, 1178, 373, 596, 1191, 388, 611, 1202, 403, 626, 1211, 418, 641, 1218, 433, 1322, 656, 448, 1332, 671, 463}], Line3DBox[{259, 478, 1127, 260, 492, 1138, 284, 507, 1148, 299, 522, 1156, 314, 537, 1163, 329, 552, 1168, 344, 1270, 567, 359, 1283, 582, 1179, 374, 597, 1192, 389, 612, 1203, 404, 627, 1212, 419, 642, 1219, 434, 657, 1224, 449, 1333, 672, 464}], Line3DBox[{261, 479, 1128, 263, 493, 1139, 285, 508, 1149, 300, 523, 1157, 315, 538, 1164, 330, 553, 1169, 345, 568, 1172, 360, 1284, 583, 1180, 375, 598, 1193, 390, 613, 1204, 405, 628, 1213, 420, 643, 1220, 435, 658, 1225, 450, 673, 1228, 465}], Line3DBox[{265, 481, 1129, 266, 1232, 495, 287, 1236, 510, 302, 1242, 525, 317, 1250, 540, 332, 1260, 555, 347, 1272, 570, 362, 1287, 585, 1181, 377, 1296, 600, 392, 1300, 615, 407, 1306, 630, 422, 1314, 645, 437, 1324, 660, 452, 1335, 675, 467}], Line3DBox[{267, 482, 1130, 268, 496, 1140, 288, 1237, 511, 303, 1243, 526, 318, 1251, 541, 333, 1261, 556, 348, 1273, 571, 363, 1288, 586, 1182, 378, 601, 1194, 393, 1301, 616, 408, 1307, 631, 423, 1315, 646, 438, 1325, 661, 453, 1336, 676, 468}], Line3DBox[{269, 483, 1131, 270, 497, 1141, 289, 512, 1150, 304, 1244, 527, 319, 1252, 542, 334, 1262, 557, 349, 1274, 572, 364, 1289, 587, 1183, 379, 602, 1195, 394, 617, 1205, 409, 1308, 632, 424, 1316, 647, 439, 1326, 662, 454, 1337, 677, 469}], Line3DBox[{271, 484, 1132, 272, 498, 1142, 290, 513, 1151, 305, 528, 1158, 320, 1253, 543, 335, 1263, 558, 350, 1275, 573, 365, 1290, 588, 1184, 380, 603, 1196, 395, 618, 1206, 410, 633, 1214, 425, 1317, 648, 440, 1327, 663, 455, 1338, 678, 470}], Line3DBox[{273, 485, 1133, 274, 499, 1143, 291, 514, 1152, 306, 529, 1159, 321, 544, 1165, 336, 1264, 559, 351, 1276, 574, 366, 1291, 589, 1185, 381, 604, 1197, 396, 619, 1207, 411, 634, 1215, 426, 649, 1221, 441, 1328, 664, 456, 1339, 679, 471}], Line3DBox[{275, 486, 1134, 276, 500, 1144, 292, 515, 1153, 307, 530, 1160, 322, 545, 1166, 337, 560, 1170, 352, 1277, 575, 367, 1292, 590, 1186, 382, 605, 1198, 397, 620, 1208, 412, 635, 1216, 427, 650, 1222, 442, 665, 1226, 457, 1340, 680, 472}], Line3DBox[{277, 682, 1341, 683, 278, 501, 1145, 293, 516, 1154, 308, 531, 1161, 323, 546, 1167, 338, 561, 1171, 353, 576, 1173, 368, 1293, 591, 1187, 383, 606, 1199, 398, 621, 1209, 413, 636, 1217, 428, 651, 1223, 443, 666, 1227, 458, 685, 1342, 686, 687}], Line3DBox[{459, 667, 684, 444, 652, 1318, 429, 637, 1309, 414, 622, 1302, 399, 607, 1297, 384, 592, 1294, 369, 1174, 577, 1278, 354, 562, 1265, 339, 547, 1254, 324, 532, 1245, 309, 517, 1238, 294, 502, 1233, 279, 487, 1230, 250, 473, 681, 688}], Line3DBox[{466, 674, 1334, 451, 659, 1323, 436, 644, 1313, 421, 629, 1305, 406, 614, 1299, 391, 599, 1295, 376, 584, 1286, 1285, 361, 569, 1271, 346, 554, 1259, 331, 539, 1249, 316, 524, 1241, 301, 509, 1235, 286, 494, 1231, 264, 480, 1229, 262}]}, {}, {}}}, VertexNormals->CompressedData[" 1:eJztnHtcTXn3x4+74aTQRLqoRMelpOsmlUuuk6EI4zLlViIKXTCDmHI9I1JM 4zaEc5BcYpykhjTUULmNUSbTjSmRycg19avvXnufX+vbfskzz+t55nmeff7p dT6v1drfvc53f/da7+/FeKa/+5ymEonEqYVE0kzCf0Lr//3DWdRFXdRFXdT/ nrqV7yXT/AHPpT+22X/JqXSWlNOzElvNPzbimhzbJ8+ZLe+rUyTH9g8e3PhE 2yKX8uNxpPmO9OB4KfZz+mxbedXMGEpfrh0/omC5C3XduDtL98bEbKP0goG6 DnfXJFJ+BqZ/dLhz8z3QziV8e/aWO9/KPHmUa7+c089VbjheNfMw5adZdPzU UVd2SLEf3a0DgyNSo6XYj1Cc16QtM7eyXqzsqbWk+/08DRmnP5x7sNzf8VMZ tp//dEryzIxZysXnZT/H5CxVcrr2qHXDtOMdwc87BafbLB1xs0e/kTLQzfh4 9m7prx0/RknpJM63FVhf6/4wLsDRgvK/fbqGpYnJACVup1/65ZzgFHsZtvdN uHT2otZPZvh+f11htv1k8RUF9jPL+mhp8lArpfudvM73d6vv957N8djUSksq DkJxvnqshUFY2VYG6803Tk4IK1vN9Cbt2c1w+pD+f/Q7WRyiwva2/bcZqAwz KfvEj4583DruS0qvTPohsM4Pqx9T1Y/zbNB38zp3PbDn/YRsbDl7xz1PBtvP 35o2rHXcNEpn4zxFZeSqs8vb+3teZ+Ps857rqvWvV3touasWUnETivPhsPW9 hxcMcHpTU/fxcXpF/j7l7avId8+UKqRXkO9LUkpAz3i7ujqsrEnKH+S7P/xV 2zdWDyBxfp6M9V1ndEzDyyooXcjPdBLnx45/tT3BazXSzds9pK5bI+nvVdtO Qf84zmx/3ifYn03R78j1Z1PUPyf23Fs5NeIaY7BiwUoXl1eoP/uBn2OoP/tQ zwXXn7H/gyTOMyh7ofti+zN9XejPDPbP/T++XyH/H6rHDe877GKlNzW+bT/Q JqNj/BhqfGbj/LvCc1Szl0lJ6nGJHTccKT/GpvqpWS9HUH648bl7g+NzsQLr 1q1b3bl2zYKz58fbH0J2f71l3wAZ1iPc3B9lvbSn9G1aFn750cOU/mhcfc/4 LBvLjs/8eA7jM6ULxbl0lb3t5jXF0jTy3hzPvzdf6P28orZ/ytNQ/hAWZHVv dHUhpZfOunVZpp8Lfpbwfrh8A9tz+QbW2ThPoPKKVkPOVbipogTzDeyHyzew PZdvYHsu36Du6/PNB7T8d1A6l29g/0JxFnVRF3VRF3VRF/X/eB19RF3URV3U Rf1fpUurehmFJVRI/TLMy3T8ZvB1mVarwf2rnS9J00m9NpTXmz3b/Gfvnnny 4K83Bm4umszrzNUnMdFVZyl+Hu8TovP5TzekXyD7cy/Smga3OCLF7UmIHKJr YrKd0i90qMfPeT3P94ZrwYCtlN7Ta2rk+pKTlJ/JKTXlp1dvk/qS9szl2zPV t7Djk88Oyh+y9TuvmxZfX99KFiFfybafr8fLRxsc79HskPQcsl87QdL11Nra Olf5Z/Ua8wBeL+4Unb0jx19pGp/mZWLShucJJ56XZ38X4KDsQzjGE56HxCie +dtpjVduLls8WqLlz3OMLXfbDu++apIyvO+nCSEv5/L6haLz/kVvcxQjiZ88 nocoDUuanVhsS/HznW4hMQHvRlH8PFS/YX5uY7d1qePGXsqKT+p47Ave//Lr hxJHzLBXfomuO7dk2t1KmbZM85HPL0eOPOP1/LF20795ZiZ7oVn/fkuaWTzK cT9mZkTsm/LxcTWy7NjlVgelC+Ewk/n7jUwoC63WtVLqWPts8Tio5jzd/siw MpsWwXFF/nf3dWoRPcd7LdOV8OTtPH/zSnPYlFBsD5x5La/7nG0WFel5njEj 9/U1rxc2Se5lvyGV4uQnLbt6J2j6M0uJvoLXLx3cPyWjb7DK4je9oRJJHM/3 NgBvdEDc7xXRbVQSwjOVaj+/N990sngSw5C4reDtb3xqUJGXN53i55KKlgE2 udqMCeL2g18mGdd0maHSS9SqvHbtBK/P3bPbso5zYj/zCD93YnqRfvstr2sH dvI2CLd3eks472yn18B7TxB+3sWJtRuZwrcHPk+I3cKUCrC/Qjh5RXIl+b4o 5THoF5abONX2MyG+LcF6PxK3NMp+jgA/X7pvgzLA8RmlZxHee4PSr+d+2zu8 rIDi2wsI7/1ViHtT7ZxH+Pllyn9+r7cLPKf+Sulsf95L9edxH6+PrevnXdj+ zP8ufH9G/XC9QtPP7noSM4Vw3RJeL3kVG76zeSpzdXPpzfWtn6L+7MkYE/+H eL3VOgP/kBAfVTrphwt4/Uvoz9rouVhD4jxTdVervv0dEufBHFfn7yuHxHkG IyXjwH7ePsr21hab3Nnw/KrbYzYut8Oy0eOYCeh+OY9dUXwkDX5q2zN9g/5H nWYrsR7qU3ptDD/eqXX30Vlena7ays7qpT0/8mghP/68PWeiyMszV84kcVaP z5LPApdI4q5RfjYZKcqO6tvKpOz4yY+HRo4ZbhFNR1P8PLRzw/zc+auf38n0 eyufovE5jgnKjuxqSXHywlWb14W8ZCh9cfZH5RXW3ZSL0PvF02qe1EXDQRmN 3kfew3tcmHG6vWwwOz7z4zaMzxQ/fxyxZeHAZwWQb7jx79PQfW26ZxqukAei PKFb6x2JKZ3zKM48rl2333IunJWfR7w9YOLkol4/3JAuYfMZ9Tw45BvYz97i N/YKje2cPa9v6fj/+fnEjzi9wKNDsOPoSCrfWDLKXmP3nZPStiSe03k/XL4x hOhjqHwjUSDfwO3s5dL/m66vDlLt79s9bWVo/x3Shaj9kgY/oi7qoi7qoi7q oi7qov7v1oX425Srw7RSbX+k8sw+q1b4J937heJvhWSd6k/SSyifVK0aukgn h+Zpe8m6kWWU7kDqOG3quv7aDfO39KQN87170PxtxxP3PiYmCZR/PYNDvhGp kXLM3yLIepKd8nMonx+8VPGVY5ttlJ8XUXXrV0Mo/taErCeZIz1OdGvejxB/ i2tX9axj/HAZ5pzDj570S0qaTPE3LbJO1Rzqsid83WT87RmDPFMrWSdSbz7k 67IZZB2UuVIL1XdsnA8oMkkdncnr/rB+VRfVd13Xj9qRGtRLqUHa/4a/bteW bQ7ExFhTdWvIcmZL7XUp/jaFrEM7Z9YZ+Z9K+M9JBeacn5H1UTR/SyfroyTK iWSd1cj38rcW2c01am+M4m+RI/xW5uUtoDhAP7LeLJniby7rnLVarp7D6CJe V0DW9U1SdWDt+XrfAXhaNssreN0feIVeg/ztgEKTxPkIxd+kiCewvMKNaU/i HMnrbJxHqzqyvILX2Ti7qbTZ9iP+dlHRRas+3+P42ya9VA+TjUHq9dIC/C2b rKtcxLwj3yelVIPehsR/HsNyt7kpL0DPAP7G8ib1utYrzb7sYG2dyjxFfsaT +Acxd8n3sSk1oFsBf4sg35157sfxt98Q11Ilm9XIpj1N/pV8n5/yHHGzfPLd J+Ul6DeBv7H8cFbKG9BXEf7myhSi9vdkuZDqEWq/H/C3AtT+UrJ+Nc0xC7Vf iL/FA+dk4zzCidOjoD+DzvuZRNapnmdeovZfAs5ZhfQi0p9HgB91HAZyfJh8 /Pi4LYT+zOozk7jrlsLv8hn5Pohvz3XgnD3I93F8HO4Bf9Mg+mQ+bouAc7J7 4rzw+mdJNWo/p79B7T/6c1vNua5Fya/Q7y7E37JIf15Nxb8l9Gd99BwNI+tX fVQyNG7kLvtqWUzORWber633eHiU87objCeYc4ammQ3XK5mtykDjM/t3ypmP 0fjJcXshztnKtT6XK3zw8EBqpblMA43PX8B6eFvEUTnOqc+OM7wO47MMc04Y n2XWZNwe+V7+doKsEx4O7zU1vwp4e+XO5iF2siCUb7Bx/kWBOeePZNywUuoj 3mWoF93+3uvBsgT0ntXx7l7g9mqUsg/7XkNxHnQQvpvWj/NpBRtn9e+ynqwf bqdciuahCnXt5vV53U1myb6XeX0XWT9sJrND7/GLUf3XTX47gOKc3PiciNr/ LKZssvxFX9kGdnzG64TRpzb+ZJ1wmvQyyk9e3fbcEzb/jLwHittask74pvwy ynOCDF2+jHG7Ll3O5lG8n8sk3zsktUC/45VBG9/ssqM5J/tXDnxTzTnZOJtS ed0gsn44kNLPkXwvluKcY8j64c30/GxlqwNGY/fJV6B+NZbke7HSPqj9mtuq IixWR4mcU9RFXdRFXdRFXdT/53V2n3sx7Nce/968iN3/fp7Kx9j977fk2M8D 4IpYZ/ej7aG4HLsfbQOls/vRbKjrsvvfv6J0dj/aYcrPQMgn8TrDvcAPf0T8 kN2PFkP5Yfe/r6P29bP70cKl2M+lQ3YuV12nKtk66wWqU/CH44p2Mqwb+bTW r9sXOfHr+57WsTP5+iI7uLtNxJAe4F9dp5gBV+yKuOKu71zGRwyxU2L9rGEd XUpRYL04OW61drwO5d+S8MNuVN3tpuPRLSfLWIbtIy7fHLVVnmCG4zAH+CH2 o50Zen/XHD1litehSO9g9f2OzF5bGRugS8XhGvArQ+K/5XvrqRZkv/AMxhyt /xlK6tNJKg/ifzHv355wxWOUfRLZLzyN0l8AVzRHXPELloeDruZ1bJx7KM0R f1hG9r87M9ieXT82kNLnE344QGWM6vo8so91BHVdNs69lViPIPzwUwbH4RTh V22cmpLvDM+vhOK8riK3v2zaKqY5+W7JcyQ9q1Nt9UoCVSx/HKrmS4Qr3gCu peZpX6U/77BOZxmD9RDCWwJVlA78CuuxhKtcpPSeieEhpvlTKf9zSZzPO2K9 auDV0MNZE6nrGm+eOauO/2B9JeGH31PXbdmE5YdYV8B5Amx81OcJxED8WR5r /974C+mxtvm2xxMH2b5B/HMD/F7seQR9+fZYMmvvlbranWE5rPq8AgP4HR+h 3zEdzjEoJ7qa316E37cQxyd7RfCp1F622H4t+d19GWy/eVWB7iPXHmew/TLg b9jeH3gytveFfoLtd8I5Cdg+GvoPtucii+05HdtPhXMVsL079DdsP2OlmUPJ +M5UfGrYfkjF50PbEwTnM1DxgX6L7avh3AZsXwE8HNunCfBYof5ZvYEdnzuj cYmB8bkzGm9dCSePY7TJ+ue7vH6CjM+u4Ec9rj4GTo7fR4thfMb+9wCP7Yp4 7E3CCa1lWPeC+QV8XS92fGawfx/ghPh+O7Pjs4x9Dy5Wr28n78GelP42sOjP cYybkuV7I/E5PFSc5wGnXY542uNegQ9qn1NFk5Ahr6/J1e/Z/HkWOm1+6a7E /LAj4bT9KD9RkG9oo7wijuQbWQqsGw4P/y5GtxNnz8czHXgs1rsnJ/e999qY 0n3lJm5zLS2VY1Ce4An5Bm6nlM03ZGfYfIOP5yA236D0YsJjb0t/YLnue+P8 lJzncF7+A8qHVwGnxXohOc/hJ/CvPk9pDOTP2D4e8mesBwnMvzclPDaM0u9B /oz92Ajw2G8gf8b2pyF/xnoROc9hHaVrQ/6M/QvFU9RFXdRFXdRF/b9JnyDA x84I8LFd8P69hLhTkgC/agn8Kh3xKz14/15BfjiOZIjytN2Q1xkh3RvyqyC0 HozjOecRzxkBPGcCytNeAj+xQPxkNuTJfVGeLAdeAfkw74err9+ieqSHwPqc b6C+foTqa32oc3Fd3NelLDjgXTpTiupfrs4tQNddCvVpKdJnQR2K7aOg3sxH +uCato51dTG2HwP1Y55APYivK6QL1X2XBeq4KoF6zQHqNT1U74yGek0L1Wtx UK/poLppp0D9ZUHy/34yI4H6Sxf5+RzqLx3UHq7O0kHtF6qzfAXqpnKom5qj uqmwXt2ktheqmzIE6h0zqHc6IX0u1Duu6DnygudxGfLfDuqds6iuWQP1yEWc t0M9cgHVI64wXqUge0agXtgB4xW25+qFC0gvhnoB65IGP6Iu6o3TufmvNNSv Mj9wnmuFwPzU0X9wfuoyei8LzR9x80Qh6Lnm5ok88PwIzBPpo3Hje5j3we/3 Ipj3MUD2/T5w3kcO8z76qP2ZMF+D/bSEeRkLND4PgfcItmdgXgbbJ8K8TG+k LwW+J0Pj/PfAo/qg90UIzL/0wfMsMP+CdT+YfzFB8y/3Yf7FAtknQL7Bro9V z6eYwHp4PG+yHvj8W5Rv3IR8owa9rzVv5usWLM9gsM7Np2B9OeQhWOfmTd4J 5A/VOH+APATbO5G85TPquu9gPoX9rl5vvAbyEKw73488HJ/oZYv7g9C8ST+Y v8DzHfuqjhx7qthoi+c1hOYvtgjMO4R6O7+eYtCN0ms7lWHd+RiP0P0KzUcI zTvEes6KbWh+RGgegYtIY3Uh/t8sqI4nz6Ce9xLg50bouQ6G50sfPXclnuGp /WJzpJhLvwNejfMTjht/jMalU/Ccdm4kN5Y0+PnD+SHw2wuI35YLcNqTUH+l Ij3kA/lqrgBfFWqnqIu6qIu6qP93649v9k8dm3lKepfd36HO54eGL+wWFU3V C2cWLDs0omANpW+H+lqBOF7n1/EGUQ7rpaVo/0j3707Ej4uNpPbDttV2L+wy fJ10I3ovGwIP1ELvX0v/wharo40pHpiYM2ZcRKo5V0fw+ljgEp+/+aTcNL+M 36fzy5TBO/dPpfeNZmeucdib0kXp0iVxtUe4uq65DJywOeKEvWd9Im3f3k1l g/Z53Zhy9cjxxEFnMD/k9kuO1qq/39NKIB/OlTTMFYX2/QlxxQ5f1NUFkyiu +G7dkqyamqRGc8Vh8ae96vaZYo63KSJ8UN3+Ppx/fihv5Pb3NZY3hrD7WKn2 cBH5u/PGRwLrQ4Q4ZKWx2eyOY63+MoecGe3erXdxe4pDBmc20TDsQK8D+Uc5 pGnb+uOAEIeMhjxcBz2//+l8klsvgbmiyC1F/a/o/yyu+MW/mSvicy0+lCuq gCvifOBfxRV10Xmw7+OK+L4+lCty67oxD4zcN2lMwRsT5d+FK8rMv61+Lguj uGL/+AN344vtG80VcycpTDb5pVIcLzdCUeAftpjSufXYOF8S4oqBOmF7ap8H prFcsSq66OUTJyvqum01y/NuDJzWaK7YAc7HYDkhfT4tyw3V5zNwXLGM6Orz aX+E8zHYcwro82kbyxXNIG5Yny3AD9uDPc73QuDcWmzPnVtL6XBuBta5c2sb yxXnwLkZWH8A59Zi/bzAvADH7W9r1n/utOcU2lpbD6XOT9gP5xJg3mj0TONa tfNQijd+a9HwetTApS75sQGayhPtyLkB6vOohx0yrojLV+D857bzrbE/X8qS svzTUX2O0KKwowuTz0lPoPrOpnvG+d9t0ijeuL/eueXq/fULb91+7qZaRY3/ 1UePpFyaECUNQ+O2o1vqvvzB+6j99ZIGP6Iu6qLekP5/jhHRNg== "]], Axes->True, AxesLabel->{None, None, None}, AxesOrigin->{Automatic, Automatic, Automatic}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, ImageSize->{300.3562658296538, 111.49288944606712`}, Method->{"DefaultBoundaryStyle" -> Directive[ GrayLevel[0.3]], "RotationControl" -> "Globe"}, PlotRange->{All, All, All}, PlotRangePadding->{Automatic, Automatic, Automatic}, Ticks->{Automatic, Automatic, Automatic}, ViewPoint->{0.03290084344094795, -3.3778321931194912`, 0.19790707320981135`}, ViewVertical->{0., 0., 1.}]], "Output", CellChangeTimes->{{3.785202691419776*^9, 3.7852027097046223`*^9}, { 3.785202847281139*^9, 3.785202862040802*^9}},ExpressionUUID->"dc17772e-7bca-4f92-a24a-\ 127b4a7d63f2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", RowBox[{ RowBox[{"Exp", "[", FractionBox[ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}]}], "+", "x0"}], ")"}], "^", "2"}]}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{ FractionBox["d", RowBox[{"4", "k"}]], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{"2", " ", "k", " ", "t"}], "]"}], "-", "1"}], ")"}]}]}], ")"}]}]], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "\[Infinity]"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.78513527403436*^9, 3.7851354007370577`*^9}},ExpressionUUID->"3e31ed15-9f6e-451b-84ad-\ e45303bf9b06"], Cell[BoxData[ RowBox[{"ConditionalExpression", "[", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Erf", "[", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "k"}], " ", "t"}]], " ", "x0", " ", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k"}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]}], "]"}]}], ")"}]}], RowBox[{"2", " ", SqrtBox[ FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k"}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]]]}]]}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k"}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "-", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], "]"}], "\[Equal]", "0"}], "&&", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"k", " ", "t"}]], " ", "k", " ", "x0"}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "-", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], "]"}], "<", "0"}]}], ")"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k"}], RowBox[{"d", "-", RowBox[{"d", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], "-", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], "]"}], "<", "0"}], "&&", RowBox[{ RowBox[{"Re", "[", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]], " ", "k"}], RowBox[{ RowBox[{"d", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "k", " ", "t"}]]}], ")"}]}], "+", RowBox[{"4", " ", "k", " ", SuperscriptBox["\[Sigma]", "2"]}]}]], "]"}], "\[GreaterEqual]", "0"}]}], ")"}]}]}], "]"}]], "Output", CellChangeTimes->{3.785135380070451*^9, 3.785135448682418*^9},ExpressionUUID->"c310bbb2-abd4-4570-8029-\ ffb1e855719d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Clear", "[", "t", "]"}], "\[IndentingNewLine]", RowBox[{"Protect", "[", "p1", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"S", "[", "z_", "]"}], "=", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1000000", "/", "\[Pi]"}], "]"}], RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "1000000"}], "*", " ", RowBox[{ RowBox[{"(", "z", ")"}], "^", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Sigma]", "=", RowBox[{"1", "/", RowBox[{"Sqrt", "[", "40", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "=", ".5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x0", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dThick", "=", "40"}], ";"}], "\n", RowBox[{ RowBox[{"dTime", "=", "100"}], ";"}], "\n", RowBox[{ RowBox[{"eqSimplee", "=", RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Equal]", RowBox[{ RowBox[{ RowBox[{"d", "/", "2"}], "*", RowBox[{"D", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], "]"}]}], "+", RowBox[{"k", "*", RowBox[{"D", "[", RowBox[{ RowBox[{"x", "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}], ",", "x"}], "]"}]}], "-", RowBox[{"k0", "*", RowBox[{"Exp", "[", RowBox[{"k", " ", "t"}], "]"}], "*", RowBox[{"S", "[", "x", "]"}], "*", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}]}]}]}]}], ";"}], "\n", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{"4", RowBox[{"\[Sigma]", "^", "2"}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqInie", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "0"}], "]"}], "==", RowBox[{ RowBox[{"\[Sqrt]", RowBox[{"(", RowBox[{"\[Beta]", "/", "\[Pi]"}], ")"}]}], "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", "\[Beta]"}], "*", RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}]}], "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqBlefte", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{ RowBox[{"-", "dThick"}], ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"eqBleftg", "=", RowBox[{ RowBox[{"Pe", "[", RowBox[{"dThick", ",", "t"}], "]"}], "\[Equal]", "0"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h", "=", RowBox[{"-", ".4"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"-", "1.5"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ys", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"mol", "[", RowBox[{"n_", ",", "o_"}], "]"}], ":=", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}], ",", RowBox[{"\"\\"", "\[Rule]", "n"}]}], "}"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res", "=", RowBox[{"NDSolve", "[", RowBox[{ RowBox[{"{", RowBox[{"eqSimplee", ",", "eqInie", ",", "eqBlefte", ",", "eqBleftg"}], "}"}], ",", RowBox[{"{", "Pe", "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "dTime"}], "}"}]}], "]"}]}], "\n", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "20"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ListPlot", "[", "%", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"ab1", "=", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"NIntegrate", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "/.", "res"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "dThick"}], ",", "dThick"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "100", ",", "5"}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "13"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Scaled", "[", RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"y", "-", RowBox[{"4.5", "ys"}]}], ",", RowBox[{"h", "-", "2"}]}], "}"}]}], "}"}]}], "]"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07"}], ",", "1.03"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"{", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], "}"}]}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "14"}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<\!\(\*SubscriptBox[\(Q\), \(e\)]\)(t)\>\"", ",", "14"}], "]"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Dashed", "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"ab1", ",", "p1"}], "]"}]}]}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.785143610036563*^9, 3.7851438218097754`*^9}, { 3.7851439897677097`*^9, 3.7851439899326773`*^9}, {3.785144298577484*^9, 3.785144298919526*^9}, {3.785202916284574*^9, 3.7852030232194853`*^9}, { 3.7852039841617613`*^9, 3.78520399223383*^9}, {3.785204184264882*^9, 3.785204205131181*^9}, 3.7852043740987797`*^9, {3.785204433617737*^9, 3.785204522221718*^9}, {3.785204572909402*^9, 3.785204617228408*^9}, { 3.785204680274775*^9, 3.785204684203053*^9}},ExpressionUUID->"f1cb9ecd-7a17-4e3a-9711-\ d6bbcdf88291"], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.785203023890944*^9, 3.785203993606455*^9, {3.785204194391522*^9, 3.785204211908334*^9}, 3.78520438597456*^9, {3.785204436417878*^9, 3.785204463153171*^9}, 3.785204523328392*^9, 3.785204684874731*^9},ExpressionUUID->"35e3514b-581b-445c-b445-\ d3bbb6000261"], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"Pe", "\[Rule]", TagBox[ TemplateBox[{RowBox[{ StyleBox[ TagBox["InterpolatingFunction", "SummaryHead"], "NonInterpretableSummary"], StyleBox["[", "NonInterpretableSummary"], DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"]], ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "40.`"}], ",", "40.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "100.`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}], True -> GridBox[{{ PaneBox[ ButtonBox[ DynamicBox[ FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, Evaluator -> Automatic, Method -> "Preemptive"], Alignment -> {Center, Center}, ImageSize -> Dynamic[{ Automatic, 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], GraphicsBox[{{ GrayLevel[0.6], AbsolutePointSize[5], PointBox[{1, 1}], PointBox[{2, 4}], PointBox[{3, 2}], PointBox[{4, 3}]}, {{}, {}, { AbsoluteThickness[1], Opacity[1.], LineBox[CompressedData[" 1:eJwBMQPO/CFib1JlAgAAADIAAAACAAAA4ScLwZmZ6T/ACPskWpOYv4AjHgZ5 3Os/cnpQh5xu1j/qWn1XCVDuP5K7ih5ptuc/r+pongFN8D/CUK87BHLxP46d cUQ/bPE/ujUa8/qu9j9TbqBw1aPyP/TWyyAhFfw/neDJZqDG8z+QAqdF9GsA QM1wGePDAfU/VsVD/9nXAkCidscSKDf2P6Bp73exDQVA/B1wDMFX9z+TpM3k wfUGQDzjPoyykPg/7M3Z+O7ZCEABSgjW2LT5P3pl9LwNcgpAbCYw0z/T+j86 ypori9cLQL0gflb/Cfw/lpOs9xIqDUCTvMaj8yv9Pw4alcoYNg5AT3Y1d0Bm /j+pB2LLtyIPQLClAv7Nmv8/NnA5bbjSD0BLO2UnSF0AQFrcILXmpw9AsTLc klX5AED+sDHBQukOQNp6UGP9igFAbZ+lR/sLDkD10dd20SgCQNHi3Mj38wxA 42MO5MXDAkAZdr6AZb8LQJRGQrZUVANArv7zEMKHCkA4OInLD/EDQLBlMO3M IglAnnrNRWWDBEA3d8OX6skHQNf3wBnbEgVAD3D3ndNyBkADhMcwfa4FQHOK 7Wak/wRA8WDLrLk/BkC/MhCgYawDQNJM4msi3QZAwss/TmVLAkCGc6iEq3cH QIsIg92+BgFA/OprAs8HCECrPCvgePD/P2VxQsMepAhAKXVLE0Xg/j+RSBbp CDYJQPRz0a7WJ/4/kFqZaBPFCUDN4sX5uLj9P4J7LytKYApAvh1MbRmT/T82 7cJSG/EKQHzT1YZwwv0/3W1pvRiOC0B2LZ/10lT+P0c/DY2wIAxAVrX8MJA7 /z+DS2C2aLAMQElWzbMzPQBAsmbGIk1MDUCi9bAadCABQKTSKfTL3Q1AYexd q+EpAkCJTaAId3sOQFyS/ndEhgNAQAPGdkIWD0BHWcLdahwFQLoJ6Umopg9A vd1CiejSBkCTjw8wnSEQQPiVkXD08QhAq0KpbbNqEEBsk2Azxi4LQCyTGthZ shBAYCBYjj+gDUAnaxVkFgARQMwfdA9ySBBAg+uOIqBIEUBj/5rHgMsRQNFn q5SZmRFAL++xNeOlE0Dwt3AR "]]}}}, AspectRatio -> 1, Axes -> False, Background -> GrayLevel[0.93], Frame -> True, FrameStyle -> Directive[ GrayLevel[0.7], Thickness[Tiny]], FrameTicks -> None, ImageSize -> {Automatic, Dynamic[ 3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])]}, PlotRange -> {{0, 5}, {0, 5}}], GridBox[{{ RowBox[{ TagBox["\"Domain: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "40.`"}], ",", "40.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "100.`"}], "}"}]}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Output: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"scalar\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Order: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"{", RowBox[{"5", ",", "3"}], "}"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\"Method: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\"Hermite\"", "SummaryItem"]}]}, { RowBox[{ TagBox["\"Periodic: \"", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["False", "SummaryItem"]}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, BaseStyle -> { ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, BaselinePosition -> {1, 1}]}, Dynamic[Typeset`open$$], ImageSize -> Automatic], BaselinePosition -> Baseline], DynamicModuleValues :> {}], StyleBox["]", "NonInterpretableSummary"]}]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->( "InterpolatingFunction[{{-40., 40.}, {0., 100.}}, <>]"& )], False, Editable->False, SelectWithContents->True, Selectable->False]}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.785203023890944*^9, 3.785203993606455*^9, {3.785204194391522*^9, 3.785204211908334*^9}, 3.78520438597456*^9, {3.785204436417878*^9, 3.785204463153171*^9}, 3.785204523328392*^9, 3.785204685679953*^9},ExpressionUUID->"389f9a45-131e-421b-be09-\ 91c7a84589fe"], Cell[BoxData[ Graphics3DBox[GraphicsComplex3DBox[CompressedData[" 1:eJx1nXlcTd/6xyuFNGggTRooQ6I0z+1GhaJUSJREpKQIhZDMFCljhlDmIqqD Og0qmccGCikRlSFUxn5X7c9zfI+f+899vd6vdXfPeZ9t7bU/Zz3rqvuHus8W EhAQcBQREOjxv/82PCV1r7PTrmDF5e8Hk77cthJg/1PgJKmWoGHzF991Z0Ct U4LFX/yMmOzqkGqjv3hR13VG/8UzusYPIV7/5dgp7yXrRS52cTni6pkl+uPt E0y7/1fCeeDB2mOaDJY+Mz7cPZ4Bz1pqMK8wbGBsavf1Gf6/m9ddz1/8RHf9 f/GE7s/7F+d2+/mLsz7/xQvWDQvLH5sgzjzunOImMzspHp7Bn9eJiTpMORAP z+Canwcd/CKbFA/P4Oly50YL914mB8/gyueqBYySJx+CZ/CVyhcv2gZWnoFn cAOORLvoAW8zeAaX8/R5nTbc2Bqe6e/eVIi9w7iZwjN4kljVNb9N97LgGdz5 +agdAkLvsuAZPMWp1xkTxS9Z8Ay+WM6/U3usghE8g8++qe15JnuxETyDuw7d JZ2UUWQIz9uWF991TlBm1p+c7uWxNjsDnsHnmQuvuTrlXAY8gw8rSX6iPS0t A57BRyZskFK7uz8DnsEV0+ZOn/VjWwY8g6uf/3k/73hkBjyDF3JDPOYsqKH7 GVxt385at1UO5Bk8dpJVY9hlm0vwDM6EDJW3yM3Jhmdw0Xlyx++LFGfDM3hi 9hs7D4WsbHgGz8qfpHPcN5U8g++e/+ql0JUa8gzeVj/Rel2mCXhB8OhG1ZwQ Tabq7kb93cqHzeEZfGf7wUdDriWbwzO4lneJS6X2XnN4Bo+rnHPksG+SOTyD v67vPL/SdYc5PINLjlwstPviJnN4Bs+8eGjUp1fR5vAMbrByVvDHvi/z4Bn8 w9DVEkvmNXPgGdzNLUPFVSXRGJ7BK70yBEdGJhnDM3h+e0aAztUkY3gGbxWa 0SQSkmQMz+AzpEXdE84lGsMzuHtMeP3qfY/Is7Tmu8nOCdpMx+GiQ6URfhbw DG5kqf/oqZW/BTyDywn615/dH2ABz+BbxQZU6jYFWsAzeLpXqcrC78EW8Az+ TPl1nmhnuAU8gw/JDTy7zjTaAp7BY9Wvdcj5/yDPdB05l7ThWytM4BlcatM3 45QxBTnwDH7K5bqx57DLOfAMXucxTCxibXYOPINf++y7ZeuAiznwDD58w7NT xV6ZOfAMXnqlf4nGzY/Z8DxN/Nu1kOrRzK7Gka39LtpbwjP4m+g+5UOuj7GE Z/CiyUxVfK/xlvAMPiFp/rX5g9ws4Rm8dfb+p5sMvCzhGfziaevRRYJ+lvAM fnbt4FWMyAJLeAb/dvlE+LdJRlx4Bo8eKrCwdfQtup/B84S3j3VuaSTP4Gap L7w+HKsjz+AGvXd/MnN/Rp7Bhb/vS/xy5zF5Bv+uG+uyPrmCPIP3qDYblz2k P3jBqJ4/67NDDBlF6Xdqem8jyDO4raHR+vkjI8kz+I0AHyO/0yvJM7ip766V fQbHkGfw6SPf1Pdfs4E8g19TWK6w9ON28gyuHacQdqP0EHkGt2yadv+E5mjy DG7v8cpqVDXPM7ivU4in04E28kzjg1eOUlH8QJ7Bn18rmbzO7Q15Bt8TKV4U KtRAnsHNGtQyLorWkWfwyG1+Fb33qJFnwa7PYcrsil+x78ztDeQZPKF+d6/a KVvIM/jBxmGi7crbyTP4rJfxT7Uu7CTP4OUeIkaHNuwlz+CVukstbAKPkGfw kdtNKxptzpNn8Of373dyRUTJM3j953WGAVmnyTP4VV898aUrBDjwTPUsToy6 W9RGnsFVOccsrFd9JM/g6mop3kM2NpNn8L7Hd44coNlInsEnFL84HPFRkzw/ +iqk7Py/64U4HZx368pALjyDeyl9XBzdT50Lz+CV1Sn7d6tpcOEZPDbTeXTs /mFceAbXmimdcLlehwvP4OYKIeVVP4y48AwuGdUe7hPnwIVncHXxLLOIyFry DP7q/kbB9UY8z+DOlxoX99soTp7BX9z3THdK7MGBZ6pz8tBBkl9/kmfwqc+1 5zV4d5Bn8G1OK/es3vaZPNPn2thfLPiIHnl++JvLMExobYiysbMdeQaXlz4f aj7MkTyDP3d5tt9YeSx5Bv8YdHmtdPME8gy+1+PgeKMMD/IMfmypmNbgB9PJ M7iUhPns7Lb55Bl8TcHMbxZeIvnwDG7y9k7L+txi8gz+0CBFZaGnKnkGDzpn Jnw/rj95BvdQ0FZJ2iTFgWfw85sPHtvQ0ocDz+B2SYYLQq/25MAzeJV3xYua 0/bkOXeJ8KmQahumbCHHJ+agO3kGT2kzrVAO8CTP4G7r6lOUDKeSZ/BNI6aq x96fQZ7Bc9v23VfrmEWewYNjs0bo3Agmz+DNgvIb9TqjyDO4k97Yeu89/cgz uNyRgyrikQ/IM3jnxsVPv04YTp7BEzrHRimHqpNn8IvxZquOlyiSZ/C4Was3 29zrT57BFylOEHy7SIY8g4eaXlFbUDyRPKd+EjFJOGbHPO0dO25p3STyDN73 1FEbvVde5Bk8dpJZcXjfaeQZnCvSyTXZ60eewQPFFn59v282eQY/nuzzbfLk UPIM/lM/UyXiwkryDB79fsKDAxn9yTN41DnHWSbG5eQZ/KLWC7+HgiPIM7jD kNtzfKMHkWfwRoPdS02clMkzeJNtx4QxHXLkGfzq2lV5FjNlyTP4rGMzmiQT 3Mhz3MJepdkhDkxWap5V6H4H8gweNDkvPtDcmTyDj63LWRvt4kqewQe7jjLT /OROnsGdDX/J9HSYSp5p/K23FkUf/MkzeKiWqGL6u3DyDH6nhFvnkMSbN8B/ 2a1Sidx7nzyD1zy5b5aUo06ewY+6hHK2Jg0gz+DqWcNKC09Ik2fwJ6blfoMN xckzuGqp1OVdS3uRZ3AZ83B/HxEH8ry0pbdHtdEYxk1dMKpJU548g7/v+W2Z V44aeQYPbpSdJ3BqKHkG/6x7dr1Y6GjyDP4jOdBXP86cPIMfX6QwxfitE3kG 91fpo6mxwZc8g5ul1h94Nj7bCp7BbaLv5q44d5M8gw87UV0s+ESKPINLH6mx s58qTJ7BF2bc5KgP/EHPQfAajt34QU2f6TkILhez4vZwtw/0HAQfOkotecem EeR5ZlCfus5OJ0Y23rNIcZKsFTyDl2VIzk9slrKCZ/DP2wWExQeKWsEzeMun xoC5bR9oXQeufyNl2vCAPuQZfPv9Vb++ntcmz+BJL6SevRjmQp7B0xberfQ4 8oY8g/vllOyP31NCnsGv61i2+Q91Js/gZxekPg+2tyHP4NNUNKdOXmxG9zP4 wXWV24bFGtL9DH5mT8OOm9p6dD+DH0p8OyI9emFOVGTfDqcE24KImBsHxyf8 sD7gn2N3vHlVT/gHn5sbrnHg1Zqe7HgGPHSu6wrjvROQRxG/mCc8aPbG0wa4 fvNp0f0hSk7M8ilRB0wW/LTE9cHVb01M8i4UssL1waMFJyzJq+zPAUf9w9sV ypNqdcH/yl0x/h+cvscRfnVG58bLWKF+/N3KDQ3LxzGeOVXSUgEaznYFHkYr p09MaLbes/juq+jaCCGWM+DTJ/ReV3lW4QLGDxHbzM3e5sQ0DvD1fdpfygrj wZsLZfL2Gmvge6HrC2x36eujvEsA4/nrx/VRv95rkZlrH/Pqx/XP+16YsCss gOr/V36Lv9tf0MT16NOITNSD6zyrWK2+I49XP/6uTM/XMkNcdDnvEiUrOlfx ct3V6/tnPpuaHD+hU57T2Wn5198Fx/gHOk+XiWruji961K+4s9Pk71yd5Rg/ T1nZSqTPArnuOvX/8bn0abx2Vz485tDErr87ksZHcb53Xq1aKAKO8aH9N/QK 31Z4xqjrOoNpvGlXPh9uCo7xk7vyZDMz4y4uS+PXPJKdtq493hQc4z26cuZe 1t3V1uZi/Ew259fvHk/fu3wXTzfGeFxHks2rMR68yqP7+gbdddJ1Nnb9XvBz LTjGJ3bl26NNXbs9/HW/gWN8wW3D1ULVDVnd19H/azw4xmv4TIhKlmjNKuz+ Hv8aD47xsxLjZGu5HYbdf9fyH/VY0viNAZphQ155GrH34V/jwSmfX1a9UV0t HOMprx4xL2N/f5XzGbg/wbefXxpw9cOJDNyH4PuGala+lUnJwP0Gvqf1wPMT c5IycF+BC3wtOD9624YM3D/gr7py8ly6T8C9u3Ly/nSfgMuz+Tm+d/Davd3j 8f2CCy/9naurX8L3CK4x58v4d20F2fi+wF3txa4vT+Bm43sBd8rVOHpj2pFs +Ae/+cb95kLfIvIPfnjPIuW5Go/JM/LeXeNbSgMND5jDM/jawuU682X3mcMz +AanU4OSbu0yh2fwS9P1tfpO3mkOz+BXQ+bnlzvEm8Mz+HT508cnaGwwh2fw 67dmBn/sezEPnsFHsvk5PIN3rJjVNR6ewRsfndBaPO8WB57BSzzigxXaE43h GXzccR39UQeTjOGZ8nPz0ZXPjyQZwzP4ttLeIm8sk4zhGbxv9nWLk4oJ4JRX ZwxPbbks4m8Bz+CqE3c9jxQOsIBn8JShF674np1jAc80/vy7qImLgizgGbwp 9dE5o1ELLeAZ/KL9tUsnbkdYwDO4TJSBppz/LfIMHsXm5/AMrtvFb5Fn8GLb ajPprdkm8AzukfNY+11cbg48gzvcX6be4MnJgWfwSl3L6p/7snLgGdx3r/VO 7+MXcuAZfC5z63Rf8XPglFerNqfviZ0zxhKewbe9CN/9pX2sJTyDx+2fcaqm ZYIlPIMfWbn2QdTpSZbwDB5Tu/Du0LqplvAMnpPCKU6JmWUJz+BhTVvHz3Pp yYVnyuHZ/ByewTldvCcXnsH7pYXGD9Q/Q/czuKioXaa0QAN5Bj+Z6NXY83Ut eQa3WdvxXiClhjyDr3EqL5oq9Jg8gzvZMPdVrz8kz8h7ubrbpgqXLCPP4G+q 3PvUb1lBnsGDXDP29H61mjyDu5Tm60o9iCXP4Bf6xglem72FPIM3ZPu/v5mW SJ5p/K/+78XfCZBncGM2P4dncPEuLkiewad4pf8c/5TnGfzWjAE/Xba0kmdw vYl+T2qLmskz+Nqxh62fXnhNnsFXJ7r9ZOxfkmfwfW+TE6x2PCfPyHtlIz/v jXy9mTyDP/Q8Gn9KMJ48g39zeBNS6Z1AnilXT74hOvvALvIMfuqScqhB0QHy DJ6nvWTK7AVp5Bl8n9kXKQ/rcpo3wCvY/Byewfd08cc0b4CvVrwbV1i4hTyD P9pe9EVx9zfyDB65K3laL/XP5BlcYXhDtqTzB/IMXl04Pd4/tIk8g79edEvr sFoDeUbeu6imOfj0bTUuPINzTn9x2zF9MBeewYWLtCLntwzhwjP4k01nZx6y 1ubCM3jF5PQD35P0uPAM/i1+2+N7whZceAb3t4z2GXXoHN3P4Epsfg7P4B/E fvNzdD+DO62ulWoex/MMntp4Sz7rfU8OPINf5l58HugkyIFncLOg6zXcp9/J M13nq4Dh1sB28gx+MMvhxpfvH8kz8l7h004N3rccyDN4+q8H201UnckzuHjt tVuqXBfyDN6nxHLDIXd38gxeYHNcdYLyFPIMPkRK9nqUtj95BpduTLikvaGc PINHsfk5PIM7dfFy8gweN+dJu2PZMfIMLjlIPX28qQJ5Bn8WoC+tLy5LnsFP 7Qy3kyiR5MAz5e0uwrsF60XxfkfcKm1YlVZTD3rvQ977qkR0wzwxT/IMnqb+ 9V01M4U8gxtJbPtYk+1DnsFtSweHhZ2bSZ7BXzQF6L9yDCTP4MNkgtwPbgkj z+BrfTjL9157SZ7Bbdj8HJ7Bpbr4S/IMnn7WTXlzTCZ5BpffGbUqdJYGeQYP GtNo+uG+CnkG18xfbJfyRp48gztKG5wY8bUfeQZPXCY4Nk5Tijwj732T9bzu 8jov8gw+7GTi0UEi3uQZfE2aR4dbwwzyDJ640dinn+Is8gxeV1j2dZfNPPIM XjQm3uHgyEXkGXzncYfnu+sbyDP4EjY/h2dwpos3kGfwG8JbZKbaZJFn8Obj iS9PZWiSZ/BpfuPvW7qpkWfysO9Kb6uxiuQZXE3W+3SsjBx5BhcIanE2+cLz jLzXYOaBdXOvOZFn8J3Wl0o7eruQZ3CH+X1/Rq93I8/gHJtdaf2VvcgzePC3 uMiszunkGXxK+sXLjacDyTP4wFcK9psqefMGeCmbn8Mz+PYuzps3wBPdI9oG Hj5PnsGPf/Z/PrSXMnkG9xMcbz30UD/yDC4RLMgNnSRFnsHfKmsYF4iIkWdw o/ANLbc3CpNnynurombeGMR7DoJLLpRo8WzRJM/g0z/nx8edGkWeKSef02fR oWgj8gwe3vz4jv1nG/IM/lNm/I0Dpm7kGVxzc8VJuScxVvAMrsfm5/AM3nHs N19vBc/gyyZGrryTfZo8gwcclfw1bpooeQavt1Df/laf9xwEb8+U/zAz6Cs9 B8GHN+3QPlb8iZ6D4E+U8syYuGZ6DiKvq93fY8Z+e2kreAbfW7zBRHa8mBU8 g6uJyNjeCP1J6zpwz4kjh39p/JgHz+DBwTHzy4oHkmfwUN9l6aMmm5JnysMf bh7vEnqJPIMfYPNzeKbxXfwSeQa/t+BEscjLVPIM3n+yyrBNpvbkGbzqp/HW PdFW5Jl+XxBpvOWwz4TuZ/CZfapd3dIN6L7ljFpwVFBAlBn9tqxUX2gX5Zyv DeZv4ISIMLYLDEI+HIinPFPOfO780GrBv3LLjWxOzp9P1scVz7kc8sWaP4eM ZHNa/rzR72Ddk8kJNdZ/54r7D/3Owdwk3T7+mSvmsfVf+nhjwbzRrqbw+Zat P1i6eIT0nbIs+BzA1r9nXJ43U1hHuV8MW/+Zrn2tDZTvVbP1123flJ/SLmQE n+Fs/cu79rV6UC50/FeRjeZ1RaYz8Jq61/4zlL9x1xReEBBQYF7u/HJ0ZvFh yt8qhAs0a4wGMLOvePRZPHMH5W8tG7i7c0L6Mzpd+1RXUv4mLJYnuvOYLNNk Hz39juUsyt8U464sX1At/Vf+Nlr6couzjNRf+Vv8P3LXk2z9/LlrAVt/2aX/ 5quof6BOy7MZvS5R/tbE1i/HvJtkr5hK+ZsQW3/6u6Njw4S3k08Ftn4lV6/b Bfm5lL+h/ksPRcrN3Xg559fw11UamzSY4/Ji32xG7aX8Lfbiqx0JxwYzaT08 olJeJFD+JtXWMFagYBCzapvAzY05myl/SzZu6LGgWp351LVPdQ3lb0MjX+ZW t6kxT9UrbcLGLKL8LfNyfYSzjBpT3bVPdQblb8s7SqYvmKbCBK2c9Z/8LeEf Oec3tn7+nHMdW79KW2btnzkn6h/yco7E6MrNlL/tZ+uXyx9kFF+0jvK3IWz9 6aNefPSWXk35G+qfP/JzvMz5xZS/rWDrn/8u51hrdjV5PjinRSrn7AhmbGR2 qv07X8rftE40X9e4rsUM8Uj/2P5mBuVvWW+aYhJeDmdUUhoVEl9Np/zNZkST uYDAcKZj3k0lpR8+lL/dCn77OURpGDPn0NWz5qt8KH+bkv7mbLXRUKbXzY+N qmYzKH+rf984x9l9CLPKubTjz/xtwT9yzkNs/fw5J+ovlja1i/kj58xm639b +O35leYz9B7NsPWbrcq9MVwzhd6jb7L1z/usrue5aTs91yaz9c8dVvBAcJg/ PddQ/4rSlPSPCrycc9DZyGMa80YzrdHjDfvcs6e84rXL19XVbbqMuJykOlfE gfKKs++WTU+I1WUKJtw8ojnfgZ5ri+I7TJ1ldBmdfj8vXDJwpLwi3O+DtgCj wyTdWcptEnKivOJnyvuGkGmjGOv26ZGZIq6UV2ysf3eweslI5vL20Nm/8zR4 7vePnBP18+ecjWz9PpOT5BK38HJO1O/YW+H4vmlPyDPqrzhbrDZswQPyvJCt /2HFh6LxATfI8w+2fvd+PasHVBaRZ9TfT8pwXNIfOefntBUFId8NGJshJvPi vJeQ58tjfiRrbDJgkg6F+N7/tYQ8r25cHlktZ8CM+q5SPfTHUvLsuOm7Z8Ix fUbucIXPrNRI8iymtVzPWU//f/Nble7cuhXk+f6Nb5ICBXqMT05ZyqX6GPK8 e35UU7aLHpOmxJweoCpInn3+kXN+YevnzzmvsPVvH142StqAl7+hfpXrMkYp kS3k2YGtPy57UqXZ9wbyjPq1aus9kr1fkGfUX58uvEHGr4Y8o35P4fZ64z9y zmuHV9VkbzNhDMsuDAscv4k8b7Pp5IQomTD7Bsf+UnXbQp4n1UUnaZw0ZoJ0 NQ8N0I0jzwprf4VVGxkzVrZzzRLG7yDPzwZHuyYUGzFVtgnF1zSTyPOx4p9a zu5GzM56z+FC7QfIc9Dslb0Eag0Zn+AjLc+dKmne0PlHzlnG1s+fc8ax9W89 YJLk8IznGfUPL069lXuxjTzLs/XryezISr/1gTyj/o7eVRzB9W/JM+pvt3+X rHCTcjYG9R/sN7Fj0h855759MR2dqhZMf6eaML+6gfTe4WcuVJ591py5VxHm smykCr13DKlZcz7E3Jypyejw885VofeO5hWCcRrXzRjXvUd+1D5WpfeO8wPX BFV7mTGTPk60OmGoznvv4AqMSXhpypSo9RGKX61J62FL39WDncNNmScTRdXn RPLyN6F/5Jz72fr5c86ZbP32R5/a37jBy99Q/4ANG6W95wvReriJrV/w1fQ7 76Z/I8+ov6J08rYD0p957x1s/bNWGEs9PfOePKP+qBk77nP/yDmDE9f1c860 ZpTmztQf/MSOPOsZinzstLZmBt0yTA5LsyfPHeWxt7NvWzHLM5qG7a1wIM/c 33nINCvmy+ZrD9KKxpDn2AGx6zXe/G8+mzhtvc7UceR5LKfHrOollozH95Qn V8e6k+e+U9daJwhbMp3ij2xP+/Leo8v/kXOGsPXz55z6bP1br2YPXz+b5xn1 C7ltX1b6QIY8o34nockRlyb1ofcO1G+bH+j0ekkPeu9wZuvXCv9RUp/6kzxL sfXfHvLCYPAPXs6pOsZe3vmIDVORZHpWu3kSeY75ff15NoxGqd/QmjOe5Lnh 9dXPnTr/Gz9PWshy2BTy7PT777YxzOodm/Q0P00jz6c32t3PzmMY1a2eJxJs Z5Jnyd/1xDJMrcu9RXPS55LnsOFXz4aMYxit0rqiB+de/jdP/n9yTjW2fv6c E/VHCxq+ibnLyzlR/1GFkQ+WlKiRZ9QvdfiyjYWWPHlG/SOybpb2j5Uhz6jf JkIlVzFYgvIK1L9q9tAE+z9yzt7FDmkh8+2Y17Y9HSym8/K3+b/vEz07xsXi stOBY1PJ852AkhiNr7bMKIXF48L0efnb6N/3T74ts2eipMjjNf7kOVHEwbd6 vS3TkVi/utx8Lnlu/31fudgyZw9KdaSbhJNn77Ri84R+tkyuAjeo5hkvf8v7 R84pytbPn3Oi/qC2utvaa3k5J+p3aho36as4L39D/cL75LJNdqqSZ9TfmLkm 5OgUBfKM+vePYCavNuhPnlF/tYRdQ/wfOedHZoxBgoEDcz49beEe8XHk2UN6 w5GQ7/bMjOe3BZPl3MhzzotSKecie0bzXqtL0U9P8qyY2XOVxiZ7xk8tuuyK +XTyvDLGsaVzgj1zVpb7QGV/AHmudV8/rVrOnpkmMjs2eMVC8mw3uPR69lM7 5n8X/mH6kzdvpP0j52xl6+fPOVG/eL6F+VNLXs6J+m1M2i3nr1Inz6j/3uoX zgXuSuQZ9b9e/qpZoV2OPKP+j2MtJg0bzsuTUX/WlxEjtP7IOZ/kORVl/3Rk nu0xdR68YDh5tozbqJtQ7Mg8GuT4ftFKQ/J8eEbZwZAtjsygfsvFrt5lyHMP nd4Szu6OjLdhb5nMCmfyPKdzzHINBUemI22WtuRSD/J8/e6GN53PHZgGHze9 JZq830e0D1+bXJ3mwNx36Hz5svcKyoXi/5FzVrP18+ecqL/fyEe/UpJ5OSfq L/Jyt0lKlSXPqH+p6ZEh5cmS5Bn1SyR1pvbuFCXPqD9l+YSiztG9yDPq91++ +/j5P3LOYrOxE6tLnZgid4eLqVISlL8NZffXCejoT0z8dI/WdZurr2sneDgx TlL9f3WOliTPLey+xNFB6pnbr2iQ5wkrnEWd68YwAZemfLfaZ0SeM8dvWqpx cgyjMWH31xdfnclz/4HXGzpDxzCrb7s8/q7Py9+W/SPnRP38OSfqP2GY2dD6 nZdzov4h/j1sO4Ybk2fsqzyZefjFqk5t8oz6P2+7Lz7bcxB5Rv2B4/QE6uQp ty9oPtCddy3s2qfq2xP+A9gcrKxrP6qOIfgJNu8qOOEVKSwTSu/p/VgPzQGH RqhYDOBiPPwcHm0017WPIH2/V1kPag5HRIf/GkkcOeHYc5mDuI9HU53/Omcg k61n7Zy3gRZn98ZjvyV4Xb5Q3m2x7dQXD344acbbJWEJ1BcPXiUbdbpHrwjq iweXNytgMk54UF88eMuegTO8ox5RXzz4pbnFzDbnydQXD77oxsI+4fYG1K8N vlBjZODv/BD7mcEd+l2ePu/DLeqLB/frIbqqwOYt9cWDb/Ndv+vjklbqiwdP exjh+1pNjvq1wTtGb7hRoRpuBJ+X2ZxNeep6G811JzLgE1zDupRZVcfrfwd/ yuaK8Amecna2+JTqROp/B9+5QnL92JXrqf8d3NXxd664iPrfwRcLiml5tpqR T3AzK2+HTGE78gk+bNaGc5yzg6j/Hfza1Oj9lrfPU/87eFP+kei23lzqfweX az1qfDwtg/rfwfvkqpx81ecw+QRf8VOwquNwOfW/g4stEblsHq9HniXZPC3X u95+2Y8d5vAMfqfHfIG8wYnU/w5+8ZyRusSyeOp/Bw9nc0V4Bn9Rs0pl4JF1 1P8OPjx548xnUqup/x18g9adzskTF1H/O3jUDxXhlaq65Bm8IvrlsusXRpBn cN2naWH7NDdR/zu4iO1oVYHKzdT/Dt46/PnHK/pbqP8d/OzYcxGBZZup/x08 Rir9VN9nm6j/HVxaaFxSUcl18mzF5mYj6uZJFFu7W8Az+NrHhvPKlkyk/ndw q1DlsUuTPaj/HTxfRflRddNk6n8HP/nqQsK37z7U/w5eot5/qGWnP/W/gxe+ 9U48ZrqA+t/BJReuqOxl+In638Fjk6eazRzM698BL7N0bkzfcJr6hcE/LJ3e LnrjGPWxEvf6MfqkTAr1lYBLNUqp71p2gPpKwJPXcbQZz33UVwLuYxQuL+r8 OBueF7D52HDhgd4mlaOpHwF8oWIvkWJJHeoXBr+YmdQs09OQ+oXBZ+7sb6dw 0ZT6SsB9H996knGcoX5h8D7GUg5CPZyoXxjc6tGw9+axXtQvDF6uuCAltW0Q 9bGC33Op1YxMLqRzBsBnuAZNnVpWSZ7p756r3SEo84A8g5+oHXmjoPQ2eQbP NRFSSjxynTyDf07fqBNzrpQ8gze/EzKKDRbJgee7bA42S0ZCLER8JnkGt3XK /37p7HTyDH7H9rKs0oAA8gw+PGdGY2v8XPIMvmFRj93XH4WSZ3CVb61Nqq1L yDP45dBZE2fGriPP4OIbPPvM6W1InsEzMi/NsvHh9b+DXzp+ZNB+gXfkGVys NXDK1d6vyDO4aP+xYcYXXpBn+ruRUVILa56SZ3Cv3Rekrb89Js/gP4KSB0sM lyfPgWzetSjQc0Db0xXU/97Z9R8TZjPb/w7/GP8gPLTHZLVI4hgfz/bR43vB eNM0mSfGQmuIY/xevj56jPffOqZh0c1Y4hg/na+/HuNrfFo+P2ndTBzj7/D1 3WN8bsy8dfIhO4lj/AO+fnyMN04QvRZuzOMYP4yvTx/jHYJ85/S/MYr6vDBe +cF/+/cxfv6lrD2LBt7ggGN8vy//7evHeMb4lkReY3sOOMYX8PX7Y7yHi8AU g/cf6H7D+Pt85wBg/GuLtuUaG94Sp/r5zgfA+DmSqklDPjUQx/iBfOcGYHy4 5ftfarfriGO8ON95AhjvfvFcqJGdOnGMH8+eM4D7djebc1ovSeUOrRvIxf0J vrrysGCFkCL1V4LnS+RVxexXp/5K8MFHw5dVrdek/krwPY+qS041jKC+P/D4 9NOOA5QNqO+PrjNUrHRFtS3dD+CfHy3XTntUQ/cDuOOS3mUzHXnfO3jfd/ev He4pRt8vePMMg+3N24So7w+c6bHU4dE8Xn8l+FzP8+pi8u3kH/zVY8cO9ehP 5Bl80aeCesOzo8mzDptnRj2TXb44w4Y8g8tnWYXFX7ciz+ByVYdH6Vfak2fw cfNrZ5dEOZNn8LCxveLWx0wkz+BW8583B96eTJ7BfQqVdr5zm0OewQekLO7r 0FuQ+oXB83MXJdxmCskzeO6vpFQ5aSXyDB7LbatKPSBDnsErpTaErdkmTv2V 4K/WJs+NsexF/ZXgP6pyUu2O9aD+SvBBEVe19MttyPNLNrf0CinXGkj7xOyI qxTGH9y9xpU8gze+CMxcnuZBnsGtMjY/NbSeSp7B+26ecf7dND/yDD5qr75s cVIgeQY/ItunrHDgEvIMHnNBwDLguRR5Bp9ftyhf8Nkd8gwe23eormCmJnkG 31e46FtY7UDyDD5+cPk+tfdy5BncuCNkdma6DHkGF/7aNnbUvr7kGbxq3r6V P7LGk2ddNp+ccu/dlqGaXuQZ/IGFyqMVzCTyDB7ULKk/ZpA3eQYvvF0e+FOA d84AuPSadbM3Xg8gz+CbpER3XpVaQJ7BPyvOfjhp6gryDF4vddv7x2DeOQPg Y062MoOqHpJn8MePtQ69GqZFnsGbZLZ+yGvjnecA7lo39/v79UrkGdxikkWI fQDvnAFwpQmBvjvf8s5zAH/zTny91Qg38ryCzSEzbnx9KCQ2iTyDH+zXFpQR NZE8gx9957VIZ48XeQaP1tj+8uKTaeQZXO18hOo1S3/yDL7sndvD5+eCyDN4 0L3WFadORpJn8LLLX/Ly90qTZ/Bbr5eflKrheQYvCd4v82PdUPIM3qZ9SkS8 TZU8gwuUSHyZP16ePIOnaww2GJwqS57B11S6m+qtlSLP4KmD1cclVbmQ5zI2 bxQ6Ml22R4cdeQb3dHh2o+gLQ57BbYdNe8M1cCLP4JOVlJz27nMlz+DX1Q2L j5/hnQMDftZvlmPQel/yDH5lTWX54hELyTO4rMvDM949BMgz+DX/yAVaJ++R Z3CvzDDn2usq5Bk8WvKujLt5P/IMfmSdV22pgCR5Bo/xH/bAqoQ3P4PXaFg4 VBzlzc/gehm7Zx1cwZufkQfqZk8qtR+sRD7Bq+fc/17ZNJh8gteGKW2OshpF PsE36b7Z83OdCfkEL7TrY7k605F8gp9vdObenjudfIJvn/j93s2EUjpPAHyO Q7r8qpYb5BN83nkrG5lPg8kneMwXz7yoEYrkE3z1wE7xLX6y5BM8cIhhfK/T kuQTfK30rWqXiaLkE1xmb5hc3U7rnE9z5MdrOFv+lVuKHpNtdkow/iu3VH0h uTWk+u/cMsii3xQN52F/5ZZaIf11q7MViI8U1ObM/Z1biv/+XK/ywRezueXb J9Insn+fk8iXT/qdk7iYHaJL3JfNJ8ctkumXoPF3PmloNGBxSLU58VQ2n4z/ IRGkcZ0h/pXNJ3vOkFL8/fsQ+HB/VSPtAbmGgV2fy+SvvHFl17kEesQT2LxR s+vzDideZd+dNx7u+r6UiUtNcM+/5V5uWtH1/bblg+++sGDuSlXGWlhXcXt2 iA7lewGzhYRv9uZmt3T5MSS+t6I2ZElaRnblAbneCRrmxLeFXtrRr9dho5ld 3hjiJnf8PI5vLTeqZM8HoNy1TcxNc8pUoyddXJ/yulo233vedf0RxLXYfE+2 q05V4h/uDf75O9970HUfChKP8VlxrUX2cd52W2mL6mwDytOGibUqrtXfYhwl IpecHWLGy+tyTBR7l2021guQ+OX0u0+G5ZnKPdsqajYZnyjpm57dYkv81tef R8+nVRrt6/KsTTlYzcun7a6d/halXfWoE+9dmCR3yXSBRWGX/57E9wr93t/V nDew63s0pTzqTEtgwBqXAzm9uj6vNfFH4pJ+Pdv35kSy51dQDnazcqPqmVjj NV18EOVFkT9ba1RjvSzTu+oUJ14sceThd64a9+RuBY3qbCvKZ4zVz6cWWFzL GTuyr221kS1xAfviASEf0nLudX0uacpJHnZOmFQ1SJqr1PXvlJdLXKucF/Xm y72cIr6cYRObM+zlywf2sPlABl8O4MPmACV87/u32Pf9bL73+nvse30h3/u7 5n/e3+XoPf0Bu39mJ9/7eNcwZvCVQ3zv3QIB+l3v3Zf53q9xzl4q33u0Cvse Hc/3vqzKvi/n8r0XS7DvxQZ8778Cc+u63n/b2fmT3kNnjXxx8n/vsxLs/Am+ 801GtfQGTa4GO3+Cv5umLtH71QhuODt/gleVlKwM+9/7rBk7f4L3OB536uf/ 3mc3svMn+MK4s8lb//c++4KdP8ErtrpPdX+9nOPDzp/g+2dJR7mO7sEZw86f 4E++Gbg4yvzM0WXnT/DgJ/uPLlzVnrONnT/BI88PaHIv/pQjzM6f4Mu8B46f bcjJCWLnT7xnvWhZlyyn78xdzc6f4N/FBavtnSZytdn5EzxTQ8GA4zOZe46d P+l9MHN3wvtzs7mS4t3zJ7iusvmXHoIC+b90uudP8MVK191Uc2U5b9j5Ezxk X2VV2AUJzkN2/qQ6H1xZNeZjL44vO3+CV9y8bf1hoDCnnJ0/wbW+uonZJD3K qWbnT7zvhJ246BrcOoNbz86f9J41KOOk8fPZ3IHs/Ak+q5/AC73Ti7iv2PkT 3N3CKE+qUDQ/jp0/wdv2K0oPuC/PWcbOn+DZ12pfFJTLckaz8yf4Bq2MjO+J Upzj7PwJ7uDy1E6v/8ecA+z8ifeI9OvfZ+cen8ctY+dP8H7LHb0dxZdw77Lz J/iCLx8PTs8WyVdi509wt3l7A9ufyXNE2PkT/NSnzsH5e/pxlrHzJ73f3bMc 1CNCiBPDzp9Ybz/1Eyi79XIhN4edP8HP2tnujLX9wD3Bzp/gP1yfPdpTKMPB /AkefEFUoo9Zbw7mT6wzR7QIfh1YkGCF+RM8T1cl6dZeQQ67Tvjr91+sr8AN noeIzeqVa9iLHY91V7T+SeltDlL0XgAuvOrsjs0b+3LZ8bROG3KKk+Ff9SXn Pfs7Na6vyfazaLG/+4OfYftEBnbX/9fvrROxH5jlz9jfVbO6PdB6QLmrb2KA tQ67fwD8FdsfMb7b51+/M57t9k88h/09sZjdLwG+iP09cU3390jP8e71j671 ku7vnfgT4X4Vp3ZrXRrH7lsAV2T7BZaz50Th+VsQkXbgubW7hXj3/cZ77qft UU5M9rBQ774/iWdF3rf81jSZ3YevT7yW3c+f2H2f0/PdsGsf/qO87ueOOvHW iLmqUfNqOHHd/46Iu0YOPFeolpqjx+6vANdi99uf6v73SOuB1p8ngnUqR1sa dP/7JX57zjrlXj0NLVd1/3sn/uTe+qzeF00tk7rnB97vZWmj9I4eZyy92P0n 4GHsPvlj3fMMrSvaF6+Y5pr3Me9H1/ypSrwkuPW0pM4tk0fd8xhx7vrjR+Rk HuY86p73iAeMUqtyfHsnJ5/dNwJexu5vxzlXWJ8YZq89F7nMz3JW93xLfIiW 2qzAcbMsn3bPz8QPhw5aEhEQaPmpez4n7rjuvOuvlhBLqe71M/Eai96fJipF WFqw+23Azdj96uHd63BrcOutv8q/c3W567qfO7SOWl22XfKoZglHvvs5RTz9 klbfnvlvc5Z2P9eI151V3N1/4sucmd3PQeLLCqvFwg/V5oxj98+AP2X3n2Pe QA5/d0z2s8E9oiwTup+/xJ/U9dhnKhdtad79vCY+bLb23eLXayzdup/vxKMa A75vZ9ZbBnavB4iLHz5esrN4m+XX7vUD8e3Rc1MsFu+2HMvuRwLPnN+9z1yl y9sra/Dsar8FrwVHccW71y30O4L2kfbQN9bXOdO61znE342UMfua0pYj370u Ip7vaTuxyPFDTo/udRTxV3rqy6Zy3uS0dK+7iDv6rswontOQ08zu86Hfm9j9 5B/Y+RPrk44x3fvJFdj5k9YtD7r3aauy8yee72L50u19ttpwPdj5E1yK3Red xs6f4K5d+5MLuEPZ+RO8d3H3PmQXdv7E89fokcm08T8mcjPY+ZNy2jmqQbmN k7gl7PwJfovdDzybnT/Bl0+8fuWswAfuYnb+BDcoq/VL1srgOLHzJ+XJ7L5c zJ94/s6XGDXBu8iDi/kTXEbT7PY10yncQez8CT677EN8qf50rgk7f4Insvtm o9n5E3xG175W4fxL7PwJznD7TA1eUUTzJ/jRSrUj2q81OaPZ+RO8N7uvFfMn nu/vRYZ8OzvMjWvIzp/gl4o56oG/JnExf1K+dz/iXLnwFC7mT3AtpWeG80xn cDF/Uk7I7kfdzc6f4Aub6h3XKYmx609V4s61/TMz1t9g15kjiNvsVV81ykWT g/kT/NqFu2+t8wZyuDiHDZ+L3UeK+RPrE07NgYrejA0X8ye4POObOTLQnlvD zp/gVfGHJgk0OnFb2fkTvHKunl30swlczJ/gIRU2kWLSXlzMn+Cv2X2hM9n5 E9y/X9+gzzoC+ZvY+ZPyPfHbK3Pn3OAosPMneJxPtt9GlYEczJ/gBoa1qd/D ZDmYP8Efri9pXa8owcH8CX6G3eeJeRLrKMW1ETt7Zihxzdh5EnzntemXXy3U 4E5k50lwIY2tSyI8dbiz2XkSfEma/86tr025bew8CR4ws+qEeLgz156dJ8El 2H2bQ9h5Enyv7tAbtmsvWMmw8yT4IK9E6QTLMs4Mdp4Ef3av1XC3oBpHkZ0n wSXl7DabqstxRNh5ktaNblOOL2qU4rxj50nwZaZ2O09NEuO0sPMk1o1P2f2W mD9pPLuvEvtgMT7iwpVKgaid1DcNzt83Dc7fNw3O3zcNzt83Dc7fNw0+n80P sd8VPKrrvER16ucF7+XCWRT84CX1R4PrLrAIWzHyA/VHgy9b2Xf4UP/vdM4h +LTDQwYkXOCdZwh+l/UJP1g/H2r+zlh37KI+aHB55Y7swoat1AcNvuzunCfy kqupD5rW4Xx90OD8fdDgeuw+RngAv8exGfjs1xXqawYfqrfm6534i9TXDP5E uHycpnU8nSsIXnui5CTTp5A8gK/Tiu87o88DI3xerNuv7d37ZHbaeupHpv1+ MU2R7WNjqB+Z8kDJVRKjBJdTPzK4/nr///Qjg0ey+wnxucDf1Y2OEVLfQn3E 4FMyX1Qof9pMfcTgdfdFTo4M2kx9xOANU3VWW2bGGqN+rOejGy22fns2k/p8 wReElassT55Lfb7g2v0VD/7Z5wsuwu7TQ53gOQPHH4tYe5D6vMBDo+KZOzn7 qf+I9tcFheoGa+3IQT1Yh2/qFeXM9JhE/YOUN94d1V/RndcPC36V3c+Gvwue 83DJUh/RMvq74DvuChhniRbm4PpY3/reOT5ITp7XBwouwu7jwnXAl+dIOvZb Vk79U7Rfhe/cM/CbfOeegX/hO/eMck6+c8/Aj/CdewbO4Tv3DHw/37lnWH/a /Gc/Um0uxks9+G+fIPjWh//tEwS3V/rveWjgd/jOQwOP4DsPDVyO7zw08Eq+ 89DAX7LnocEz1skx4ybnDjFTp34T2g/zySHba64G9UHQujqq4sQnreHUBwG+ bcfOnE+7dKkPAnyC5q2xfTV455CA5wZoHCjby+u7BG9k9/PAG3iZ9HOtaVt4 3ijPHJg932aBCPU7gJeM21koZitA/Q5Uj5yCwDrXb+QN/GLoupbzGm28fmGW tzv21drd/CEHfrD+tw/a7KsU6UR+wEM3p3xo1XclP+B7jKVmHno/ifyAN8h+ 8zDzmEF+wCNPvhtev5zX90TvKew+HHgA72jqb/jpcz/yAN4e/r6hl5IUeQCv CktZFmDdh/o+wDc5Ck37odeT+izA296c6tt5U4CDz4v3DlOpyIOJd3h9XvSe smqY7MVTs+jzgkuZum+9XxdCnxc8jTHZV5HH61sEj2L3w+BzgT8XLbUe/kiB Phd4rntfX0XZ/vS5wN+lqq9NrpSmzwXumDWtZsnPPhzUj/eRrcbPZuss5PUD gl9Y0yDtsZnXDwg+UyIjub6W1w8IXs3uM0Gd4HFjtm39spHXrwceNvhg2Zpo Xr8e7asxLG+Ki5bi0PnYyEvvKbn1DA6lesCztqYaRrTy7h/aX8Hux6Bznllu vGvsoTAJWfq74ErTlNP2D5Dk4PpYn2sqym9YE7SS+pjA5dh9CLgO7XPQGhly /6AQB+OxLp3G/s6O+ZM//8Tzgj//pPMQ+PJPXId+t+U7HwYc58Pg+vz5J67P n38W/SP/xN+l31v5zksBf1/7+cWf56Xw55+oB8996V6RH29Yu9N5JuApm70v rEv2oPNMwDsGBRxtbZpM55nw55+ok8bznTcCfs99xvaVf5w3At62rKVQViyV nlP8+Sfqx/oh667IDqPK0fR8B/dO/KIn2dOQnu/gdpytHn0vmtLzHVxwrOvl 1OMMPd/58098LnD+8z3ApVw4Jx78cb4H+JIbGnePn35Anwu8QsWrvCPjDj1/ +fNPfF6sczJHti0v/uRHnxfcpmH9WoOHs+jzggfsZHQMvgXS5wX3WbVU2nb7 Avq84HN9dK6VzYug9Qy4BZt/wgM4//kb4JZDtxUv+OOcYfAnntcvvJzVSB7A 92qWP1cLqycP4McEmrMsJ9fS8xS8+r/nb1De+N7/zNu4iBXkB9y5VsI+Mnw1 +QFPXO4nEB63lvyA3/xy1abcbiP5Ab+3MKs5dtR28gM+1MVH/LXrXlrvgY8P 7c4/4Y1yVL7zNMCN/B2Cl/xxbjDtn7feNyTA7xN5Azcr2f5rVUcLeQN3e54p k3iskbyBc5pVXc724p2nAc5/ngZ//on6aX81e04FxuM5XnxH5lL+ARvqO+bP P3EdcP5zGMBxDgOuT/tLzVIatKe40fXpd0+zOu0fQz1onQl+h80/8XfB+c8l ABe0/M643uGdSwB+iM0/UQ+emwcOcS0W3+Kdjwqev1Fjda9RvHMDwHVWPj80 6fV0WteB72bzT9QJzt/XD16xMTOh7Y/zS+n5nnbli1QT7/xS8B5s/kl9rOzz d1OFYcSWU+5UP7ij/Xn359t450uAx+S/mpG0bSrVD77PJ0q4MtKX1mngF9n8 k/7/L1jO30cP3vSifsh+a14fPbj6nuTVbtqD6XOB35nYVy0jTZnWaeDNbP6J z4t1ws3TlqLCsbxzS8A3r/PRNv3gSJ8XfJ/n09vjC8fR5wU3GXV7cs5aN/q8 lDcWKTvuPzaZ1nXgrWz+SefqsJy/zx28n+Pbo58P8vrcaT9kVpFpyxl58gAu He/6pqxNmjyAXxXwavlmJE7rQPBTbP4JD1gvrXx3Y9VInUHkAdxLeI14ax8t 8gC++duWM/OW6JMHcLnIpEClSGvyAL7n8oBrcUautJ6k3JXNP+EHnL8/HdxT vSrOo4jXnw6u1bZgX/QZ3nmn4Mr3al4Zf+Kddwqeez/+3KQI3nmn4H1KvcTE +vDOOwVf/N/+ccobR7C/s/8fbTeUjA== "], {{ {RGBColor[0.880722, 0.611041, 0.142051], EdgeForm[None], Specularity[ GrayLevel[1], 3], StyleBox[GraphicsGroup3DBox[ TagBox[{Polygon3DBox[CompressedData[" 1:eJwtmXfgjtUbxp/znPPlJ0mUkcrIKgplZkUlpaRoUilERTTQ3tGeRkOKKLQo FW2lnaKsRJSRjIhoj9/ncj1/nO/9ee/v8z7rPee+r/s+tfoM6T44z7LsDv5E 7GH8uQU7H/tnyrID8VfD/sGoD++D/Z1RD66K3c6oDlfEhhK+D9eCb+b7H3Ce M+Ecf1P8B8D/MRrDNbAZ/iZwTfhfRiO4OnYbY3+4AjZyTDO4Npzg5nAduARu AdeFS8Et4XrwLVz3Q07dE/6VUQd/ZewORk14b+xvjLpwFewvjBrwXtidjNpw JezenPNMuBn8D+MQeH9sNfwXwq3h0dh5XOv9kGWL+TyKzz107xxzCdwObg9P hM+Bj4anwv3go+ApcF+4E/w83B/uCD8Fnwd3gCfD58J/Mw6G98O2xf8EfBbc An4IPg1uDY/P/ewPMmrBr/I+9sM/BG6LryX8MHw63AZ+HO4Ft4Ifgc+AD4cf y/3bNYfHwqfC7eAJ8NnwHdHPrnuriP9k/IfBFeCT4EPhPeHj4CbwadgbOP4K 3tXp8I3wlfA58Ej4BvhU+Hp4ONwTvhm+Bu6Ve05eC58F3wpfB58Nj4Cvh8fA n8MfwIPg0fA9cH/4Pvg2uAd8LTwU7g5fA18OHwUPgvvBF8EPwnfBp8DXwcPg vvDd8K1wP/geeAR8PnwvPBLuA98F3wLvxbOfweemye/vC/wfBv9W8+GP4H05 RouvDcfcyvv8KPNvsQf+DvgbwUsZT8K9sXdGP6PmRmWOORd/C3gf+AL4cLgS 3BtuDleBz4NbwpOwy/nuQq5bGn8rPtfHXx7uCDeGR3L+TzL/vvfpvPhfxjeC 8XHm+XYb/Gnm+bw7323PMQfD5eAj4EPgMnAb+CC4LNwObgjvBreFG8BHwk/D fbQusBdzzvO5t2Yl/i1PwX8Y/ADcHZ6YfM73uP6TyeeZC09KPv/78JWM1zMf P0HrAf+7+N5OnmffwndHv3+tuznJv+sqfO8k/34r4VWKcdzLf/BTyc/1ITw+ +b3NgZ9O/o0+gsfCh8KvwQ8nx7o34MnJ7+cDeBR8ADwLvp4xJ/MaHM04CP9s fI8lx7F34HHJ8e1t+KHkuPo6/K3iGvf2D7wC/hn+G14CP8ox2+B1cGm4BPsD 439wKeyPmlvw/7DvJs/j7/Sbw5fD6/U7w5fBP2g+whfD6xRTk9fVWnilYijX /RfeoDmEvwx2k+ImXBb7ja7HMX9yzDJ4PfwH/JZiGM/+CLxWsZvPCfu24iv+ R/GvVm7gc479XjmD7wbsRsUU/Lth1ygHKGfpuZPzwlt895HkfPEmPEXzDP4Y Poi5NBI+Dl8T+D74JLgxfC/cDb5O8yBzLG2E/x78Jyruljg/nqA8AN8Nd4Ub wLfBXeCG8O3w8fBWRlW4PLY+/pvgznBN+Aq4g+YCfBV8JFwXvgHuBNeBr4eP huvBN8LHwLXh6+CjNNfg++GTFePhK+GO8DV6v5nXTnX8l+JvD29RLID3wP6k 2AGXw85gnAAv4HuvJMfHxfANjHcz54LXk2PxMp07OeaugF9Njo9L4NlFfP8a npUcx5fCU5Nj6yfwtGKdfwq/mRzHl8ObFbPg3bEvJ8flRfinw8fn1iEvwF0U Q+EX4a7wl/C1WtuZc9NMRjf8C/E9A3eCP4Nfgk+Ev4KfgzsrT8DPwsfA8+C7 ouNzn2K+DFR8CD7HYLh/8LFD4AHB2uEcXTdYX5ytdx6sHc6CewTrl1PhrsHa 4XzF1WDd1FtzLFjv9FcsDdZZ5+mdB+f5foq3wZrrXMWK4Dl1MnxssJY5Az4J 3k15Bm4Ib+dZ9oRfwleR0RpuGqzRToNPDNYFx8FHBq+tlnDj4Bh2puJnsCY6 He4WvBZbYZoE56LP4LnB8awLfFRwjOkIt4I3MCrC/zIOjc7j+u0UJzrDRwSv 42PhDnDT6JyuefgDn8vBe2E3Ko/CGXYTY2/dCnYzoxKcguf1SXBneCt2HWNt 5jl1IrZTcCzsALcMjjdHwC2C4253uEtwXDwGbh8cV9rDzeEGcA/4+OB10w0+ JjjOdYWPhsvAh8ENdL9wG7gZXAE+XJoa/pVn+wq+LzreKNe/HbyOlXPnBMck 5dl3gvOe8uy7wfFGWvrN4BjwKvx8cHyS1n0rOOc/rPMH64JH4PuDtepExdtg PfuAtH5w3FKsmxUcF7WOXg3WC4/CDwTrgqvhS4Pjn2LCa8HxTHn2xeBYNQt+ ITj+Ka/NDo5br8EzgmPbbHh6sE6ZAD8crH2mwI8H69Op8BPB+a0xXC84Dx8K HxhcNwyAe0s7KUbCbYNzURO4vvRYch5RPlHOqQlXwZblczP4YHh3uDl8CFxN MRVuE5yvasFVg7XPkXDr4Dj9IjwtONbOgKcGa/xp8ITgWPsMPDE4xk+HpwTr 4jvhm4Jz9YFwzeC65wL43GC9fAd8I7xO9wdXwK7VfcPlsWu0zuFy2BUMpcj/ GEOT19tjzKshycc9BA9PXjOPw8OS19J4+LLkNaY8e0nyNR6GL02+tvJyDXLH cK0TfFdjn+Q647TGS6ypDsQ/mLEa31iOHwSvgsfAA+GV8Gj4IvhbeJS0mXIP PEHxgHM8yzknaT7gX675jn+AdIPWBHxh8nM+CF/D8ZM4/jG92+T1/4TqVPzP 4Z8crFnGwaPgofB4eExwrhgGDw7OdUPhi4Nzy+XwoODcchk8MDhXDIeHBOeT K+BL4GPhS+ELg3PIJfAFcFXeyQDFR+5rIHYU/ruDddMY+F74Lngm/Bx8K/w8 /BQ8DH4cHhusvx6DRwfXkW/CLwdruvfgN+Dnijig2vpO+CX4Wfx/SX/weV/s g9g38M/EfzWft2EnqhYv7m8NfEdyzpgO3wYn3ROcYxvw3dp85x9GPbg6NuA/ CD4g+Hz7wHsEf+9guC78N6MuvD824m8I14F3BOu9vbF/MmrD+2J/0RqGK2K3 MKrAZbBHlLhW6V3MBTD7K/McUX/iH0bTEtfeqrW/07zEVzp4flWGSwXPx9Jw SfAcLFEaCZ6zZeCywfO0FByx2xUL4D31Phl14P2wO4PjSWXstVxzMjweHpH8 vp7lpq5Lfs7J0iTJzzYJvic5B7+kuiM5H7yo+J+cJ2bCI5Pf13P6TZPj1AzN +eR7elK5Mfk3eEa1Q/I9PQUfjq8P99OTz38wDoCrKcbwsCOUX6Vx4GWKkRx/ f3K8ewW+Kfk5p8I3Jv82U6T9ks/1tNZp8u86Db49Oc+9AL+X+1qKOW8k1+ff SNfl/k0VT9YW8VnPcmx0DFQdurnIrdJ7P8HtMtcLx0THQNWza4qYrPnZWdfO XM+uL3SI9P/WIqdL066DW2Suazbk1jZ6zxdFr4XN0hW5dY7qlC2FBpAGXl3E eT3X9kIPqOa9jDEX3ootHa211KeSvlqd+X1uw/7B2MD4mfE7Yz3jveS+wPcc s1u0JlTv62vVM8ppirfR63oLthXjqsw9k5bROVe9lN3hXpn7acprzypmYd/B VshcW83JrfdUW11crAedX9epqncV3Ie4H74dHhgdW37C/lJoG82Ho6J7JtLk R0bHMf2mHaP7IdL/nxbxQXPyvOj4swF7dHSsU13QJzrWbcR2YozNXHd/VWgk zatFRS7W3Gsf3Z9R7fBNbr2qNbWs0E6a8wtz61vNz+9y6wHVs335/DK8SfO5 0Feqfz8p4pXi3kGaB5n7G5vwH5953W3MrV21Nlfl1g+ql+9K1gellbty6xDV p9Jeir2KwSsZjTLXnvOKGKi1/3NuDay6b3luHah1fXW0Zv5ZtoiNig+fw4dk Xssr4LaZ4/BryT0y9Y6O0LNl7kMuyK1P1Jf4vZhzCzUvo+sI9WE2ZdbB0sC/ FVyesUZzLfPc/YXjq2PHYTcX5/lBsT66TlGvRn3BpfAXit/R9Yj6NuovLoE/ l57h836af8n9wsX45wX3Jr+G58PPwHvAlYKvs764ltaN1s/3WhvRuk69o+kc /53WY+7/a239qHsunkXPNyN3XpimY/nOvyHbJYh2Fuf8qRjbiu/qN9M1d3Cd nYz3C95anLd88W62Z7tKjV3f21nc26/F/+TfUbwrvbNxnHMR9jP+UTG6plMv entxvN63+qwLsB9zzFZGfbiGNFly7JaOmo+tkbmf81HuNat+TjVG38w9tKuS c+Rf+CpH14nq3am3qrlxFf/7IrfWVU/mluT8nRXvRrGxEXZpbv2pvsqS3Pej vsrWYq6odno+WeuoZ7t3dO2pvvqW4l1sLN7BjmLured/5Yr1sqX4v+aYet7f YL8M7hkvgxcE95i/hD8Jzku74ljmPvcK7CJ8e0bX1+rz3xt9vHrj6ot/Cy8O 7h2uhJfo+aRjMtf+e0TX49ovUH99Fbw0uO+uefU1vDz599D7bB7df1Z/oE60 Jlff9b/cdaX2O4ZF1zjqEQ2PrmXUO7oiusZRH6Ykur7W/sWHubWTtO6p0XWZ eu+nR9dl2hf4m2NOyLzXUCq61taeyAXRdYT6RQOi6wv1f86IrsvUz5mdWy9J b0fGKZn3BVJ0z0H7FBJL6hXs2rvJXddrL+Ce6DmpPYiy0b0O9RVn5q7Zpb37 Rddl6kH1jq4f1ad6JXcNLk3+au4aXNp+THKdLP1Zhs8XZu6F5tH6RL3NWbm1 meqCl3PX9dL8pzEeytwD/y13T0B7NJdH17nqvw2FX8ncc/sgt86U/n8guQ5U /Pknd72vPZ0h0fWa+nVfJmtuaaHB0bWbenTSR+qVvSKtHl2vqY/3a+4ehfaD BuF/IXPPcAf+Tpn3pM7G/0TmPt7O3H0D7X+pDpD/IdUR0TlXPfnPkrW+6qn+ 0XWuen3nw09n7ump3tK1nua7c5P3LVRTjCtil2LYX7l7DtrPUlxVjJcm+Dd3 X0L7cdpHUsxT/OwWXe9rr+pPPvfM3H8+J7oGV8+wUfS+jPpg3aPrLNUIPaK1 rvq9+0TXPup7L0yuZ6SLFueuo6UPyxXvp53iHJ+vzNwb/zy5fpMeWJRcnygP 9oyuAdVnrh1dc6lPfgrjqcw957Oia6UfFbOT92ZWw12j6ybpq7rRNZr68/tG 13Hq+VeK7tepfz4vuY6VVvk0uT7UOU+Orm11zhrRtaH2FN7Prf9VO9eKrh+1 v1Aluu5Tf75XdO2pnvn+0bWk9iZOiK491VdvE71npJ7q67nrJtXLzaL3rdTD LB+996T9gnbRe0nqnS5Irm+l075Irj2kc1pH7zGpRzo/uZaWvq0QvYeivvcb uWsZ9QH2iu5hqjfeMHr/S/3YQ6L32tQjbRy9H6e+6FfJtaV0qXK7YssJqpej 61PtlczNXcepn9A2ei9MfeAu0TW49lAaRO+vqfd+cPQ+mnq/qlP7wr045/8B wLbCwA== "]], Polygon3DBox[CompressedData[" 1:eJwtmmXAVcUWhs/MnA8RO1BAaSxC7A4Eu8HCBsVCBbswERs7sbEVC1EJu1Cx +5rYGNjtNe7z3DU/xr0fZ+/DOXvPvGu9a31d9xg5aERuNBoH8Z8mx6VLo7E/ x/7wzfyPnvAB8AD4Fvgx+BB4eGo0roWXhQ+CN2L+dvhPeAH4L8Y78OKMbTnf guv/4vwd5i+Ez4IfgFsYy/nvwp9x/kj9vH3gK+EX4BPhI1N8/qPwwfC+8FVw b3gEvAH//m3wA/X77sn8ZfDD8Eh4b/gKuE/lDbl+Avw2fAF8JvPT4FaM5eFl 4M85f5z5Q+H94fHw79y3CdyV4wXwS8yfDI9i/i74RXg0fAx8J9y3ft+Nuf4O uANjILwJ839y3ov5A+H1mb8V/gOeH/6T8TbcDt6D89WZvxr+mOOKcBuOZ8Ar Mn+4zxeeCC/C2MLnwef/yvk8jHXhVeFvOJ+bsQ68Cjyb8wUZG8Lrwj9yvhBj I7gf/BPnic8f5PPg8y+C52KsDa/M/Nect2asAveFv+D8Pa6/GD4bfsj3zX29 4MLxVPh95i+Bz2H+YfgL/v/q8AIcx8JfclwDXpDj2fBXHNeEF+J4DvwB918B X8D9j8DzMvrBq8Hfcr4AYwN4HfgHzv/D9efCp8JT4Lfgc+BT4Mnwy/AY+Fj4 bvhH/p0BcAeO58E/cOwPt+d4LvwJx5XguTieCb/G/afBJ3D/JPhd+CJ4LPwg /AY8Fj4Zvg9+FT4VPh6+B34TPhseA98Pz8dYz/cNf8f5Tozp8MPwGi2Nxi7w M/Cj8FrwMdz/IHwh3+cN5l6BT4GPS7Ee2jO2dv3Bf3C+MGNjeD34Z87bMFaD l4e/4nz9+v12y/F+OjK2g7dk/m/OB9TP3zXH++3E2B7eivl/OF+L+ePh7XI8 33aMrdQH5n/3t9X9snOO/d+/Pv9dcjyvRRlbuj+5/je1oerNpjn2U2t4R78v fIlrET4B3j7H++1X999OOfZzZ8YO8NZ83r+cr8H8sfA2Od7HRxxXgOfkeDq8 BGN3eAeub+H5rsn1x8Hb5ng/K8FH+DxyvL+V4SP9/Tne/zpVr3aAp8Krw6Pg QfC9akvVk81y6MWcjFXh5fj3vuS8LWNz9QD+hfOujJ39vnDi+ywJD4EHw63g LvBgeCDcgHvAu/k84CbcHd7V9wEXuBu8i78HzvAKfJ/D4M1zrP/X4bPg0Sm+ 7yT+P/+r8S68r3oJ94Qzx1PcXznWT4Pjx66/HPr5O9fPdK3CS8Pfw++533Lo /W/wB+ol3Bf+FX7f/ZnjefwLf+T+yKEv/8Afwj/niCeLc/we/iXH+uyYY78f zZd9QH2AX29GPDvG9Q7Px+99P4f+tXD8pK6vk9RjeH7mT4Qfhy+H32R+k/o8 9sihN7/mWO+dcujlPzme9xI51uvMHHrbiuOn8OwcerxwDr10vbm/W+eILx/m 0K85csQ/9dD9OX+O/fhZDj2bh+Ms+PMcej1vDr1dlXFmfV+L8v1n5dDv+XKs p9UZ58FnMN+e+TXg82u86wB/l2N/LpIjPqzUjOdh/FqY+W9z7Me2OeLFyozT 4ROZb8v89zn0ZdEc+rsK4wz4JOYXaQn9NN61y6FnfRnDfZ4p3se/Ofbbkjn0 4e8c67VHjvg1sOYL+8NPuTeqfu8FPw5vVvVzGPwYvGnV2z3hR9W+Gt+Hw0/C g6o+HwBPh7ep8epA+Gn3GnwVfBg8Q/2Fr4QPhZ+FH+PYFf4iRX7zCNwFnpUi Xj9Y4/kweBx8q/sC/opxtxrme+P8S8ZdnO9Y49khnD/D9VM5toM/4v7/wP/N sV+759CDg7l+EnwW/Bq8HzzB9w+/VPVxX/Ukhx4Yv4dyunSOfMPNrH4slSMe mM+oH11yxIPfcuhl5xzxv3D9nnAv+L/wHPA+cN8cetoK3hteNof+t8B7wX1y xIs94BvgY+EX4aHw9fAo+AX4IPge1yP8qtoGX+f6g5+Hn+a4FPwdz+NduMn8 MLh3jnxyOHw7fDL8MrxsM37/UK6fV31rxv4/BF4Q7tWM77cbPBf8FPctAn8D H8Xcs3AH+Ed4VNWv9vAP8DHGR8bN8DVwD+5/jvnF4Z/h45jbgHELfC28BPMb ugbg8fCS8PNc3xH+BT5evYWXgP+CR8NPwm3h2fCRxkfGePUI7sb9M5hfDP4J Ppa51+Ae8H/hk6r+doP/gE+AN2LcBl8HL8X9rzLfHf4TPtF4zLgWHgd3bQk9 XwZOHMcw17MZz3tX5tu4nprxPrpUfc7N0PeuKfT/rxLrd+6q93v7neAZ8Abc P5r51+Er+PzbGc1m6P9SKfSy+A7VgxT6vFQz1u+O8BzcfwX3d1Kv4EPVIvg5 fx+f9Rb8A/xq/ffU7wGMm+Cr4e7cv0wz1vMu8Jzw31zfWf2q8eefEvu5XY1P /5bY7+1rPFuHcXkj8s9O3L82PA4+H+4IP8H3WBj+Gj5C/WFMce/DyzG/BXwf fAfcB94Svh++E14WHgRPg++BV4A3g++Gb4V7wVvBk9UOuC+8s3sEfgResyX0 Y074Y3gEcw/B88Cfw4fAvZuxX3eH5+b6Ps3Yz0PgeeDN4YnwbXBveBr3t4E/ gUcy9wA8F/wpfJB6B88NfwYfDC9vDIYPhhfg/oFqGjwRXh6ezPVzwDPhA5hb k3EpfC68GPP35vCh78H7cdKPcQ18GdyF+Yn5/6lG4x14H58d0Ar+AN4ffhxe SL2FD4fXYlwGnwcvzv335f/LYuN9eDhz78K94SbH0+BNGHfCNzO/DBdur8bD U+BV4B3hp+CH4NXhwcYEeBq8GrwpfBd8C9wT3gF+FJ4Krwpv6zuB74dXgreD H4Ynwyu3RHxZ0PgAH+a11d/uBV/ejN+vv34b3pDrn6z+70D4+mZoyhIpftPz NSbrjcw5jNVqmHvVPau26bH12nritiXW7GIpNMK1rCZ2TKFRaqWatHgKzVGr 9OB6cT37oiU0sEcKz6c2miOukMLjmTuqWd1T5JBqmZ5cb+5vXKiEh3kixZ7W 2xgDW6dY01NrDrRsipzQ3EiN7pZCs9TuJ+BL4KvhLbj/FfjeFB5pf7UCvhG+ Qw0oEfP0Qnp6Y+GN8MgUOX73EjGnTQpNMxYZr3zfZ+TYH2p27xSeUC3Xc+m9 xjTCm7fl/Gv3i3sqh2fQ++mh9BLPcT7b/Vk10TXfSLGG3Quu6WaKmOBad83m FBrjWlYD1UJjyl7N2OMLp4hJ7v1DS6zXsTn0xhz+n0asMXN7PYveVc+nlzm8 hN88O4ceGVN6pag5GGtugg9K4XmWKLEHrfW4Jl2bI0us99Nz6JUxpmcKj2Xs MSZZW9EjGKtc42qrGuvad892SBHD3MtqRKsUMXpy1fhX4Xcaof3tS9RIrI1c 0wwPoPc3R9YbXAcfkMJzdSwRk4xN7ev61zNaGzCn1Eu6h9xLeqLOJXIGcwc9 nF5OTVPbzClWLVETsjakR12shCewlmIOrle4AR6RYo92LeEBrJ3oQWbXHGhC ihzI3Mgc8/oUOZ25pzHR2Khnmllzer2inmtWzZHUajXb3MmYZGwypzS3VPPU PmPUDiVilLHKGDa4RA5vLm/OvmEJDVaL1cztSniuzilivl5MT6A3GN0Ir60n sJak59ErdGb+0hSavSvzK6q5KTRvFLyumgU/7x4q4TmsTfVrhBdZmvmbUmjw ASU89Gkpajh6a2toR6Xw2NbWfOf7paixuRYuhndKUTPLJWqU1iq9xmvVzFtr DJlYc9rNU3hKc93WxtQUOUKHEjmwtTA9mbnx+fBm8DbwT+bMXPMk5w+myGfU aLVaD7CAa5PPOz2FB9uyhMccXteL3lMPu3YKj6e3XYj5o1N4sHVLeDS9mh5G L2OMXTBFDmjsNSbPW9ezsfpsrplp/OJ8APeeBr8NXwuv3RJrwPx0ZI61YY5l rmUOpjferUT8OjJHvPUd+i6OqO929xL5yFE58kXXkPmt9WPXljmUuVSXRnh7 16D558E51qbPwLWxT45ns1WJ/HPfHP7UNeLauCjH2rHmN4DP27QRtUD9/QzO z8+RH7lGzcctYrt2rRn2r3puLfHXEn7rjhz5528l/JhrwLXgMx0P75fjWZ/j modvgddviTXo2j2lrk01R+0ZD6/TEvUB99LQHP57DPwmfFWOet3JxjT4yhz5 wnHwi/AlOeL9sfAL8MU58oFT4Lfgq3Pkc2PhD+Cb4P7wWfD78I3weq4NNQ2+ Ae4Hn2rMhK/JUR9Us6wPDMyhZea07areWoux3mF+Pi5H/jKz6nG3qs+uQdfu 4Lo21Ty1YuscWng8/BJ8aY78SA1RO3bPoS1qhPWGHat2bFxCi4bkqA+cAL8M X5YjP1LD1LKjc/gdc8z5U3gyc09rJEvX+GHtRP9rvnxSDn9jjfCYun/cX9a0 rO2e3IhalzUIa6v9G1GbsKZn7dWagbU+exyHVr2392GNUS+pp9RbmyOulKIm be5oj+SQGg+sNV3ajNqGNY55zKdK5Ofn5MjXrYlae7ZmYa3UGpu1mzNrfNFz LV/1XS/2RIlYZAwzlo2o8ct8xHzIHoS1Pz28+Ys19hVT1NCtvR9Zol58bg7/ YU/E3og9nrmYuxAelKKm+keOmqi1amte1krH1vxI/bM2Zc1yVNV/a5n2UI5I UfO1t/J5je/Ge2tdH9d8c5n6e6yh2/sYWJ+/HrJLzUet/e1Twi+dkMM/Dyvh j47L4d/2LuF/js/hv/ct4S9OzOGvjzKGwufl8Bv2VA5LUfO112LPZI36/u2l WEN5IEXNz9rKiBL5/mk58nd7SoenqAHba7IHohcd2ojayul1Pa1Xf689KntV 1qTtjVnT0BuYM5o7Hlgi3z81h7+wh7Bmip6DvQV7Dpum6LnYi7BmcnuKmo+1 FGtSN6SoeVircg+dVNePe+uiErmSOaO548Xwoo3IocylpvCZrd07xihz5RKx wzXl2rqwRK5pjmmueX+JteEac6294XOG/3ZPwfeViIV+Z7/7ZHinRqwp15Yx cn14sRo7LyiRu5rjmuteWmJvG8OMZUOboYfTU+jbns3Ql2dSxLM9mqGfT6fQ w8tKxEI1Qq0YVyL3NUYaK4c0I548lUIfd2tG/Hg8hX6fXyLXNic2Nz6vRG5s Tmtum+vv65kjt5hSIrdwDbgW7i3xrlzTrm01UK/4aCO0UY3X27mm1H41dlpd b2qvmje1rg+10BigN3SNGBuMcdYCrGkb+4whek9zdGOLMc1ahzUPY50xx16R mmMsck8bO7vleB8TS8RG97R7+54S88ZMY+eEEtqhZ9O73Vlir7jGXeu3lfBy apRadXsJLVRz1J474LUaoZFq5V0l1rZ7zr03Cd6sETHd2P6pcdD1x/Es+O4S 68U94d4Y1oz48GyKeOw79927JoyNl5fwPnoevc8NJbyvHlQv+n0JL+n7th/w YYn67kUp6sXflPCGk1LUD2eXeNY+c+up35Z4V74z9/LXanYj9qR78zv4iUZo iFryaYl655Up6stfldi75vjm+p/BN8JXpag360n1omNyeNWZJerNF6aoXz9f QkvUWLX2uRJaqyapTU+V8Kp6DL3Grs3Qv8dS5HvTS3g1Pa3e9tkSWmiMM9bN KKFtaqRa+TR8VCM8nl7vmRKx0BhnrPu4RH3WeqT19E9K1HOvSFGf/7KEl9GT 6E3Gl9B+Y4C1h6tK1Bb0eHq9K0vkGuYcesHrStQG9PR6++tL1BKsGVg7uLXE etFz671vKeG99ah61ZtLeFU9p97zphKxyJik97y6RO3CGoe1jmtL6Jk1Dmsd 15SodVjjsNZhjcBawuE5agfWFPQie+eoNXxU5y9O0Y/4or5PNVqtnlVCq/V0 ervPS3g767HW+6fn0Odv4aPhqczv14icw9xjWolYbU5hbnEj3KcRNR5rPeac o2u8NhdVI9VK94xeQA1VS9VMc0drftb+rPl1K1HzG1Lzmx4lep72Poe4p0r0 UPUf5nDmcvYU7S3as1mwRE9Mv3l5/fftKWxc47u9Bmuw6tMrVe/+rPF/UI2f 7kn35oyqb/ac/dsAezL2ou0x+7cE9mzsPdsjtrduT8jesT3QwTUeL1Kip+zf luiX7DWr+Wq/McVc2Z6Az9ZnvGSJHpTP1mds/mZPwN6ANdIuJWrOar2ab53B HpW9bHte9q7sydirtcdnr0YNmVT12t6EPSB7Qf5Nynwlenpqpxr6RfU8Z9Tn qxeyh+TfflhPsbdksdLYaww2/7TnZGwyRlkvsQfo317YM7U36Jpybem59F5q mFpmjmyubM/X3q89tnlL9Nj8WxF7fPbe7GHae7cnaG/THot/u2OP1d6LPR3/ FsAeqL0eez72/u0Z2QuyR22v2p5VmxI9Invv5qf2juxB24u2Zzp/CY1T66xX 2Luzx2CvYS+4U4kavbX6Ye7JEpqj9oxvhHezRmXt3JzQ2pU5ob0ZPa65oh7C 69UsvYWar/arsfYO9Qw+rwn1+ahhV9Tr7T2ac9o70GOai5pjjq/P19zTHNVe jx7Y3FXPZi3enFsvpwfzbzXUZL2ZmvxYXe96c3MQ178xSm9pzjqxvi9zWWOE scKYYq9SD2Ht3xxZb2FOb2/BHNhc3xqfvQVzZmt/xiBjkRpt79OapdqsRpuP Wr+w9jiL8UsJDVPLjJH2WtWkTik0cnqN0WuliNHG7nO55ptGeGzzD+uRE3LU O+3VmGPOmULjptSagrX8axtRa7CGMK6+T2sL93DNJ43w6D+W+Aw/6zPGTyVq Ru+qpzlqSebQ1uqtWZhbm7Nbe7dGYS5vDdLeiZ7S2qQ5a58UMeSN6vGfrfqk 9/8fdGTLiA== "]], Polygon3DBox[CompressedData[" 1:eJwt13W4VVUaB+Bzz7kHpBEQUEkppURJaWlpaUklDUKkDFJCkFBEBR0FDKxR dAYJFYQRAVFKJUQMxhzbMUcQmfd7Nn/8nrW+d6+zz7071lqn4tBxPcamU6nU x5KVgbmp1CqwPyeVOqKem0ml1ko+Vp3VZZ/or2PFtfVYU/aN/j/Y2dpLWWP2 lX5f51uhfYPtZ9ONGcRWswPsPTaP9WHL2S62j01jz0t+VoPVY5/qv8AKaGuy +uwz/f4++7B2LzvEZhtzFXuI7WEH2e3sRTmXNWat2U/6q9i36lwpyXawf7Ji 2rqsCftaf4DzrdTuY4fZHGPWy3msCWvDftbvZ9wD2t3sAJthTCkpKdUca+TY w9rH1b8YU0LKGreHt+bTtM+x9WyEMW3YdLaWbWDD2RVsHtvAtrDRrAWbzJ5g a+QtdUe5g21Uv2rcGOOas/HsEfY068dasVvY0+wFNoTVZf3YfHaHvKSuJ1ex Beq7jWth3OXsZvYUe54NZi3ZFPYkW8sGsfPjWslFjjWJ79e2lRn6zxu30biR jrdns+JZiu9k17JGbBRbzu6X7erGch17QL3auG7GXcauZSvYKtaVNWHxgK9k T7A+rAOby9azF+VtdVMZF8+D+knjehtXnw1hd7HlrD1rx2bGc8g2sVGsGbuR rWZPsb6sIbuGLWUPsA6sAbua3c1WsHasrJSR6vE3OPaotry6nNTQb8Ye01ZU V5Ca+s3Z49rn1Ln6VZyvlvN9EPeQ/RnPlFRlh9jfWVpbidVg7+s/yzLayqwm O6b/DMvRXsCqs6NxX9lJdRmpwg7GM8b+UJ8nldg7cT/Zf9WFw9nu+F/YT+qi cj57M/4X9rO6WJyTvRXPCTsRY6Qye5d19v8t0L7EtrFxxtRhV7Bb2M3ynPpi uZyNV99i3EUxB0lRqexYfcce1PaW+/V3GrfXuKmOr4p3Wi6M5ynun7YILyyV 4nmP50tbPOYDqaLfgP1Ne466hFTVb8ge0lZSXyC19FuwNdpOMl9/k+/d6nvH Or5Gfo35RsqxvTFnGneldhZbwBrG98X/ILUdaxnXXXuJdNefadx84xo53ovd x3awPew29j/5tzq/5JMxxnSVxcZtUe8wboIx+6UTG80mskvVx2Qgm8bmstbq vfFusmvZeHaxep90ZDewCewS9UHpwSawqayx+m3pwsayyaye+qj0Z7ex2exy 9QHpzMawSayu+h3pysaxKay++kuZwO5lD7MB6s9kNFvM7mM91Z/LGLYk5g3W S/1BrD9sOpvH2qj3xHvNRrEbWW31u9KN3RjPGmugfl8GsKlsDmulPiQ92UQ2 jTVRvxfrGZvCZrLm8V659qfVF0sDdtjxNEtp67CGukdiIWZ/qWvHOx3XJmqf /12/WnzekH3GnY57rL5Q6rAD7BT7Ld77+Dzbz06yH9Tl41mLd8T5/mQ/6leI cxq3K508L8fVeeWsWJeNO8J6OzZZPcO4ZurD8byxSWw6a6r+Qm5iy9hDrL96 g1RkrVhH9of+q1JY/5mYk2SE79gY70ysfcZ1cuyE/r8yyft4VjZZM2LtOCH/ MaZ0/N3GbXX8U3aDdhG7l/VQfyRD2Wy2iHVUv5ZJ1px82WSujTl3WyZZi/Oy 0vrnyvZMMgfnzybzb8zDr2aSdz6bTd73eO+3ZpJ3Pk82Wddjff9e7oz/y/eu 873j4++View+tjL2VnEvZGHMv7H2sJvU38rtMTeyZ9n1cX/kHraObWa3xvwq D7JXYg1ks9TfyNTYU8S6z4apv5JbY55ij7Fr1F/LbTFPscfZUPV3MjvWkphL 2Q3qN6QVG8ZGs+rqXZlk/ins/62qX012ZpI5rlA2maNirnpL2rKRPjvOZ2vF MyXD2Vy2hHWOeUlGsHnsLtZF/bEMY3PYYtZJ/aEMZjNiD8Laqt+UNvHssLGs pnq3tGbDY55jNdQvySWsB+vP8qlflktZjr85v34BeT2TrLEFssn6Guvsjkyy xhbMJvN5zOufyPVsofMtc74r1VsyyfqSm03Wh1gnNmeSdSOTTdagWItekbrx vmeTtSXWmE1yEevofD1jGoh3XI6qT6iLxv5U/UfMd6xUvMNsm8+U9N5U1vZi A9lJ/XtiblOfPrOPXx/7jJiz2Em1bmodG+qzT2gP8w/Zwrju7El2hH3EFsU9 Y0+x93KS3waL2VI5pj6VTFOpF+PZjnvHsjFvsE0xL8d7qM7EfMI2ppNrHdf8 gtzkWqyIvZU8qr/duNelRVwzdj5rqm4mP+Ym+7U56WRfG/vbC43Lywqmkzky 5sov1YWcv2Dcw9zkPi/XLovnyPEcyeNv2cDvj/upLhDrI3s51v54H2JMXGu2 M96peG/UKSmh2c6udM67tdvYG2yKMT3Y0pi32G52M+vO7mJb2S42OZ5l9gh7 mx1ld7AubBHbHNeATWQ92b3p5JrEtTl05lo9xt5VvyNHYi8ZvyPYQfUxn13g s9ewNewQ+4DdyVbGPKFOyzns9ZgHYp5Q/6UuLq+lk+9dlk72xLE3rus6Lzfu U/1Ccb2MeyX2ROxz9dnhbEvssWIdUBfPSeb4mOtXsM/URaQg25xOflf0TSf7 t9jHFc8mD9OpM+tTrFPHc5PfM5PSyX4/9v3ljSsf+z02RD3Sx/I4fwVWh13N RrG8rByrzQazEfE+xBrCarABMR/EHkFdRmqygeph8Y6cGVeddWKd493JTdbQ 73OSfVTsp46x82LfaFw/9dWp5AUrzaqyPmww+ku/FKui7c0GsVP658ReMa43 G8D+1C/LamkHseFxSWJNYtVYXzaEndYvHr8PtN1YH/abfglWQdud9WW/6xdj 5bRdWW/2a3yGLYl1mO1kk2J+YmVZF9aL/ZJO3q1C6eT9i/dwYbxrsedlbdVd jPs23mlWQtsmrhX7Lp3s0Ttor2PXS9Fs8vttZDr5HRm/J0tnkz33ZenkXsQ9 ibW+ECvJ2qm7Ot/3+kVYaW0H1p39GOsQK6Vtz7qxH2LNZkW1LVl79mWsz+ws bSPWkh2PeZlltfVjfmEfpZM5p0w6ud9x35eqcyUPa6BubtyHsR9hhbXNWVv2 eewp4jeDtgVrx76IvQLLq20Ycxr7ONbE+L2mXSvH2RLX/v//BfoF "]]}, Annotation[#, "Charting`Private`Tag$141635#1"]& ]], Lighting->{{"Ambient", RGBColor[0.30100577, 0.22414668499999998`, 0.090484535]}, { "Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{0, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 2, 2}]}, {"Directional", RGBColor[0.2642166, 0.18331229999999998`, 0.04261530000000001], ImageScaled[{2, 0, 2}]}}]}, {}, {}, {}, {}}, { {GrayLevel[0], Line3DBox[CompressedData[" 1:eJwt0rsrhWEcwPGX485xSVaykIFRBkYZmCQDGxkYKBkYDWKz8RewktgVm/v9 fkuS2+J+jc9Thu/7+b2dp87v6Zzitp7G7oQoiob0qjA/6lIziVGUy3kWcY0V PGUNH9jAb7YyKxZFcXWZyzjAKo6wjuNs5iQ7OMc+LvKF13zXlp51ryULbXOZ O1zhLle5F3biPtd5wA0ecpNbOjJv85g7POEuT7nHM+7znFPuccMPXYSdwh01 ardNDnKBvZxlOyfYxDHWcpiV7GcpS9RpTmcLP31HPe9YzWOWh3uxkE/OXfFN OeE9nFWBHbOZzzjzmBXOMJNxZjCT6UxjqtLMyWFmjCnhN2Yyf5Wkn/CZvmSN aNrj9v//8AfXm0sB "]]}, {GrayLevel[0.2], Line3DBox[{690, 1010, 1015, 1350, 689, 1127, 912, 691, 1128, 913, 692, 1129, 914, 693, 1130, 915, 694, 1131, 916, 695, 1132, 917, 696, 1133, 1016, 1240, 697, 1134, 918, 698, 1135, 919, 699, 1136, 920, 700, 1137, 921, 701, 1138, 922, 702, 1125, 1139, 923, 1011}], Line3DBox[{704, 1017, 1241, 703, 1018, 1242, 705, 1140, 924, 706, 1141, 925, 707, 1142, 926, 708, 1143, 927, 709, 1144, 928, 710, 1145, 1019, 1243, 711, 1020, 1244, 712, 1146, 929, 713, 1147, 930, 714, 1148, 931, 715, 1149, 932, 716, 1150, 933, 717}], Line3DBox[{719, 1021, 1245, 718, 1022, 1246, 720, 1023, 1247, 721, 1151, 934, 722, 1152, 935, 723, 1153, 936, 724, 1154, 937, 725, 1155, 1024, 1248, 726, 1025, 1249, 727, 1026, 1250, 728, 1156, 938, 729, 1157, 939, 730, 1158, 940, 731, 1159, 941, 732}], Line3DBox[{734, 1027, 1251, 733, 1028, 1252, 735, 1029, 1253, 736, 1030, 1254, 737, 1160, 942, 738, 1161, 943, 739, 1162, 944, 740, 1163, 1031, 1255, 741, 1032, 1256, 742, 1033, 1257, 743, 1034, 1258, 744, 1164, 945, 745, 1165, 946, 746, 1166, 947, 747}], Line3DBox[{749, 1035, 1259, 748, 1036, 1260, 750, 1037, 1261, 751, 1038, 1262, 752, 1039, 1263, 753, 1167, 948, 754, 1168, 949, 755, 1169, 1040, 1264, 756, 1041, 1265, 757, 1042, 1266, 758, 1043, 1267, 759, 1044, 1268, 760, 1170, 950, 761, 1171, 951, 762}], Line3DBox[{764, 1045, 1269, 763, 1046, 1270, 765, 1047, 1271, 766, 1048, 1272, 767, 1049, 1273, 768, 1050, 1274, 769, 1172, 952, 770, 1173, 1051, 1275, 771, 1052, 1276, 772, 1053, 1277, 773, 1054, 1278, 774, 1055, 1279, 775, 1056, 1280, 776, 1174, 953, 777}], Line3DBox[{781, 1175, 954, 779, 1176, 955, 783, 1177, 956, 785, 1178, 957, 787, 1179, 958, 789, 1180, 959, 791, 1181, 960, 793, 1183, 1184, 961, 795, 1185, 962, 797, 1186, 963, 799, 1187, 964, 801, 1188, 965, 803, 1189, 966, 805, 1190, 967, 807}], Line3DBox[{806, 1294, 1070, 804, 1293, 1069, 802, 1292, 1068, 800, 1291, 1067, 798, 1290, 1066, 796, 1289, 1065, 794, 1288, 1064, 1182, 792, 1287, 1063, 790, 1286, 1062, 788, 1285, 1061, 786, 1284, 1060, 784, 1283, 1059, 782, 1282, 1058, 778, 1281, 1057, 780}], Line3DBox[{809, 1071, 1295, 808, 1191, 968, 810, 1192, 969, 811, 1193, 970, 812, 1194, 971, 813, 1195, 972, 814, 1196, 973, 815, 1197, 1072, 1296, 816, 1198, 974, 817, 1199, 975, 818, 1200, 976, 819, 1201, 977, 820, 1202, 978, 821, 1203, 979, 822}], Line3DBox[{824, 1073, 1297, 823, 1074, 1298, 825, 1204, 980, 826, 1205, 981, 827, 1206, 982, 828, 1207, 983, 829, 1208, 984, 830, 1209, 1075, 1299, 831, 1076, 1300, 832, 1210, 985, 833, 1211, 986, 834, 1212, 987, 835, 1213, 988, 836, 1214, 989, 837}], Line3DBox[{839, 1077, 1301, 838, 1078, 1302, 840, 1079, 1303, 841, 1215, 990, 842, 1216, 991, 843, 1217, 992, 844, 1218, 993, 845, 1219, 1080, 1304, 846, 1081, 1305, 847, 1082, 1306, 848, 1220, 994, 849, 1221, 995, 850, 1222, 996, 851, 1223, 997, 852}], Line3DBox[{854, 1083, 1307, 853, 1084, 1308, 855, 1085, 1309, 856, 1086, 1310, 857, 1224, 998, 858, 1225, 999, 859, 1226, 1000, 860, 1227, 1087, 1311, 861, 1088, 1312, 862, 1089, 1313, 863, 1090, 1314, 864, 1228, 1001, 865, 1229, 1002, 866, 1230, 1003, 867}], Line3DBox[{869, 1091, 1315, 868, 1092, 1316, 870, 1093, 1317, 871, 1094, 1318, 872, 1095, 1319, 873, 1231, 1004, 874, 1232, 1005, 875, 1233, 1096, 1320, 876, 1097, 1321, 877, 1098, 1322, 878, 1099, 1323, 879, 1100, 1324, 880, 1234, 1006, 881, 1235, 1007, 882}], Line3DBox[{884, 1101, 1325, 883, 1102, 1326, 885, 1103, 1327, 886, 1104, 1328, 887, 1105, 1329, 888, 1106, 1330, 889, 1236, 1008, 890, 1237, 1107, 1331, 891, 1108, 1332, 892, 1109, 1333, 893, 1110, 1334, 894, 1111, 1335, 895, 1112, 1336, 896, 1238, 1009, 897}], Line3DBox[{911, 1014, 1349, 1126, 910, 1348, 1124, 909, 1347, 1123, 908, 1346, 1122, 907, 1345, 1121, 906, 1344, 1120, 905, 1343, 1119, 1239, 904, 1342, 1118, 903, 1341, 1117, 902, 1340, 1116, 901, 1339, 1115, 900, 1338, 1114, 899, 1337, 1113, 898, 684, 1012, 1013}]}, {GrayLevel[0.2], Line3DBox[{251, 474, 1127, 252, 1242, 488, 280, 1246, 503, 295, 1252, 518, 310, 1260, 533, 325, 1270, 548, 340, 1282, 563, 1176, 355, 578, 1191, 370, 1298, 593, 385, 1302, 608, 400, 1308, 623, 415, 1316, 638, 430, 1326, 653, 445, 1337, 668, 460}], Line3DBox[{253, 475, 1128, 254, 489, 1140, 281, 1247, 504, 296, 1253, 519, 311, 1261, 534, 326, 1271, 549, 341, 1283, 564, 1177, 356, 579, 1192, 371, 594, 1204, 386, 1303, 609, 401, 1309, 624, 416, 1317, 639, 431, 1327, 654, 446, 1338, 669, 461}], Line3DBox[{255, 476, 1129, 256, 490, 1141, 282, 505, 1151, 297, 1254, 520, 312, 1262, 535, 327, 1272, 550, 342, 1284, 565, 1178, 357, 580, 1193, 372, 595, 1205, 387, 610, 1215, 402, 1310, 625, 417, 1318, 640, 432, 1328, 655, 447, 1339, 670, 462}], Line3DBox[{257, 477, 1130, 258, 491, 1142, 283, 506, 1152, 298, 521, 1160, 313, 1263, 536, 328, 1273, 551, 343, 1285, 566, 1179, 358, 581, 1194, 373, 596, 1206, 388, 611, 1216, 403, 626, 1224, 418, 1319, 641, 433, 1329, 656, 448, 1340, 671, 463}], Line3DBox[{259, 478, 1131, 260, 492, 1143, 284, 507, 1153, 299, 522, 1161, 314, 537, 1167, 329, 1274, 552, 344, 1286, 567, 1180, 359, 582, 1195, 374, 597, 1207, 389, 612, 1217, 404, 627, 1225, 419, 642, 1231, 434, 1330, 657, 449, 1341, 672, 464}], Line3DBox[{261, 479, 1132, 262, 493, 1144, 285, 508, 1154, 300, 523, 1162, 315, 538, 1168, 330, 553, 1172, 345, 1287, 568, 1181, 360, 583, 1196, 375, 598, 1208, 390, 613, 1218, 405, 628, 1226, 420, 643, 1232, 435, 658, 1236, 450, 1342, 673, 465}], Line3DBox[{263, 480, 1133, 265, 494, 1145, 286, 509, 1155, 301, 524, 1163, 316, 539, 1169, 331, 554, 1173, 346, 569, 1182, 1183, 361, 584, 1197, 376, 599, 1209, 391, 614, 1219, 406, 629, 1227, 421, 644, 1233, 436, 659, 1237, 451, 674, 1239, 466}], Line3DBox[{267, 482, 1134, 268, 1244, 496, 288, 1249, 511, 303, 1256, 526, 318, 1265, 541, 333, 1276, 556, 348, 1289, 571, 1185, 363, 586, 1198, 378, 1300, 601, 393, 1305, 616, 408, 1312, 631, 423, 1321, 646, 438, 1332, 661, 453, 1344, 676, 468}], Line3DBox[{269, 483, 1135, 270, 497, 1146, 289, 1250, 512, 304, 1257, 527, 319, 1266, 542, 334, 1277, 557, 349, 1290, 572, 1186, 364, 587, 1199, 379, 602, 1210, 394, 1306, 617, 409, 1313, 632, 424, 1322, 647, 439, 1333, 662, 454, 1345, 677, 469}], Line3DBox[{271, 484, 1136, 272, 498, 1147, 290, 513, 1156, 305, 1258, 528, 320, 1267, 543, 335, 1278, 558, 350, 1291, 573, 1187, 365, 588, 1200, 380, 603, 1211, 395, 618, 1220, 410, 1314, 633, 425, 1323, 648, 440, 1334, 663, 455, 1346, 678, 470}], Line3DBox[{273, 485, 1137, 274, 499, 1148, 291, 514, 1157, 306, 529, 1164, 321, 1268, 544, 336, 1279, 559, 351, 1292, 574, 1188, 366, 589, 1201, 381, 604, 1212, 396, 619, 1221, 411, 634, 1228, 426, 1324, 649, 441, 1335, 664, 456, 1347, 679, 471}], Line3DBox[{275, 486, 1138, 276, 500, 1149, 292, 515, 1158, 307, 530, 1165, 322, 545, 1170, 337, 1280, 560, 352, 1293, 575, 1189, 367, 590, 1202, 382, 605, 1213, 397, 620, 1222, 412, 635, 1229, 427, 650, 1234, 442, 1336, 665, 457, 1348, 680, 472}], Line3DBox[{277, 682, 683, 1139, 278, 501, 1150, 293, 516, 1159, 308, 531, 1166, 323, 546, 1171, 338, 561, 1174, 353, 1294, 576, 1190, 368, 591, 1203, 383, 606, 1214, 398, 621, 1223, 413, 636, 1230, 428, 651, 1235, 443, 666, 1238, 458, 1349, 685, 686, 687}], Line3DBox[{459, 667, 684, 444, 652, 1325, 429, 637, 1315, 414, 622, 1307, 399, 607, 1301, 384, 592, 1297, 369, 577, 1295, 354, 1175, 562, 1281, 339, 547, 1269, 324, 532, 1259, 309, 517, 1251, 294, 502, 1245, 279, 487, 1241, 250, 473, 1350, 681, 688}], Line3DBox[{467, 675, 1343, 452, 660, 1331, 437, 645, 1320, 422, 630, 1311, 407, 615, 1304, 392, 600, 1299, 377, 585, 1296, 362, 1184, 570, 1288, 347, 555, 1275, 332, 540, 1264, 317, 525, 1255, 302, 510, 1248, 287, 495, 1243, 266, 481, 1240, 264}]}, {}, {}}}, VertexNormals->CompressedData[" 1:eJzE/Xk4Vd0D/42bxzKHzDMZMs/ONpTMkZIhSshQQmWWUMYSIpKhQRpEUWSf wzmHTGUs81wyy5x5fu6itbs9T7/P9/O5rt/z9E/X/br3dZzz3ts+e73We614 7dxNzxEREBAcISUgICYAf4L//feM+v+/+eEgA8/5nGZSAp5QLnNKdPhvnh6g HNV6aEGZgOBBgYQkbxF4nWD3A+ST0WgCDyznN0u00m9exOJEphRwg4QgT+0z wXVj0v+33v9/y20PZT92teenjfZQGyQwS4j9zdsKzSz9A8RozSbIHpcYp9H+ 5hoLWcp6sG1sXlB+PiNlPuBqMTqYxXeNScsc2IalK+ZJv/l6RNX5CPl0bt4a MYV2NeeHv3ncnkniLSI6CckFt5tua+wSv7nyxytvzlU8KjoZnKSXS3ID5Jwa 9nDag6ROPafeLq+k3LUkptls3kB5Wr3ui/mJKZnLymtZ6lcc1bWVwee6JZHV dqlYXtKs49jisSX533zvJNqI4uhz+XtlyfkXxL8BHug8p1802S5f62r1edpT uvA3Pz3mkk+1wVt4R5Fsq+yjK+BSunbndA6fLRRs7HyKO3ED8GzeQE+dHx0K NNLyDxicqBR+86C+Nw12TRGSG40nkhqCBiV/8w+Xwn0Gmi/nqm0QHuqv6AVc DKNNqExxPvdpFM896FQL4Js1tbkKPxxzc6uOcJ0wrQZ8eU7Vovn76Vy5incY vFEx4ERBW5I/8kxzh+k/zByyfg64jUz0HbEo3iIHf/NINdpvILcqB93JdeMA 9XN6avz6/Hbqcd72anVb0+pqT1590qhIwvjtuyvO+0kG8/v4hXY56uGoFIXN mscLnL7V4PMWLXa9fs92pfAQ4XxAu3YdyGcswerhC+o7hSd4JIKe7BsEXInp +Mu3w48Lb5KWCyl1TgJO09ItXX8OV4h/dqOEAHsDvP6wZEmm41UTRUaf/Tcc Fk0BL0ibcBQe01JdGZOzS3qDL/7N5wNZjCQLDqnKBX1+cdGlGHDTTb4C69zD qmKePdeGV2HA7YzPD32f01bl96eo7j9VAPhto7R3pAU6qgEq1WriV/MAH6ct 8Itw0Vc9QLUnVO7qC8AFrj+gYq43Vg0T477h4p4OuJ9SMXFlvYA6O8F1qkR4 D6TzSW1l65+c3Z+keEax7VU2JxwtqeZkADl7jt9xDGZTgr/PiAz2HnoM/+a1 P9C65ft54JKq/U62Dx8Afir+GHXhvu8Kx2/yeWHpUgFn+RYzlKC7X/HjVzv+ Of37gJ97s5A42c6vWGCwtaqzPwXwQh258qyQccUjmteIyi2+gvMi2JfwmeY+ IdZhXiI3yo1b7Td3nOpmXyshw1INPuvK27Mf8CyLLbfFJhosiwQVq2cVDeBz +lXzZ62YsfqXj7yaU30O8rEcOLlORsOHrbjNKjrUyY4F5z1ptWOsXBqb/Ei4 tixOHvBKuhsJIcGGWEWWPqpQrAngbw+eJxenmYciV15tWIgyQeE9w1s/cya3 HImYbvuhJOVTQrYyVQzu2xuFBnK6In5w2gnyU7mPyxR/c58LtWpBn1xgSpvx RSMhLOBYw4GiHGVbeP91965JIhhwNX55r+Hik/B7rsnLSk/zAdeIjVawXDGB mb7HLRFBbwCX8/Aw039Pjk73WJl4IzgDruebVP7Po5omsYmsRsT3enRxv3li Mipxz8Yc1mfBwJAnzhDwI+PfjQ2117HeRJWPT7WYAP6NYHOTII0Up7vn/SO7 hBOAN9A8/f75NQOOlKUlROalFeD7BY7dFoMEcPWKp3LQSvaA24ueRw/LHMJl 6sZanyS7jBxfOZJqzlOCJxU+Vqqysoa6XL71K2cG/dYjmEZeTJpB0RATJg/J 2VNtU2rpBcxyvGjZm78K5KD/7tjc9HIyXFid0LPCUAK47GvYXfheDDzAFkF3 TAgNuM2xkLNME6Gw9J0qvz0dSM4GtuZHaHOvwQMYEc+VgTzAwyhLujvUxNFk cxcmNlqnQM69Ud34/Xe4cT1jIW6KlNbgc51jlnhrJSKIu75MbdrLZgt4do+H d/qEBE5Q6e5nj1U7wJ9yPnwe/1UBR6ZVfHBM1gnwT1GHFmKrDuHa9esXcPRu gBvWW81pXzTD9XGo0a7meAHueCeE09bUE0cNlwn5Hg8FnFFU1ar2dQc+KW+d 6JPlXnzFg41fOSsZpbwci+bG1LS6m5LPPEX/Pj6Z1P+E450iuEOdv/Ss8AeQ Q6zKy/4NgSw4PRuX6jiAA1zw+wXt8cfp8JkOy4B91e8Af5IvQ0b2KgFuiB61 0VxH8nyb6iB9TzwazvHnlDZ6lg34Oc6OUj1hBXTTgklC7JFRkPOX73pqpQLS ODWqdn6jPOR6s6H7XMO5poBbELGe9s46DXjsV/J39hoaOBHr2OsLdEjOB8wF BSU7dHF1dXV7vJgdkfMywvS01d/sF//80BXJU+Ag2Yq206/XMc7wRM5XXzDX W4ZwnKOj4xFnyxuAX14qfUi+mgXJOaPIplMp8d4L29cz5cR7inYrIswxNNfs iPBjkLO9mt3SBFslfM7RcXiGDsn5UlGKecX5fLjPn8ktbQPJmU1wyETT6Rkc On4MfXIDyblJhs69TT0d/ubPNOWuitwfXPuJtD5n3oWfeKBuNknkAE5E97Ih zACF/vn6se1IznJy4WSk5ytRitQUdtL8rNBvXs3OZ/WwoA5VH1CiyV7MDniE 8uc6nGELiuwLcXzLSR7AeZjuavpRfEU1Hw8vH1zhB/wCeuRAZMt3FO2CWTM0 cABwgRmGz2v0G6iq99c/Hs6SATz2IpP3vnh26MatNcWyIE3ABwo2gp6vZuFH Ekbvr73pgprEt69nrVe3bVAB1BiF/R66TvN3wX1jz+UXBx5FN8HVL4vZmRUn QA6+JEIU+iulcL9vQucHlwHA3WzmJkNC8uHHJEvU2jW9gMtfRiv62GXBL6iv j3hodQDu3P5QmP/LY/ixrM+ow40WwCVG3Unf9umiC7+dFWLMYAA84fxZ9zsf xlHo/dzBdDUC4HOJwcoHbzz4gXJ6c3rtTL8w4MkUoV6BZquoFbczByBBccA/ KlGf2eIhgexfpS5EykkD/s3ddoLDiR6awy74LhkoIDlrSufTd/NBBKofHqYw aAC+Se1dRduvCfWbUHhhBI4CnjiwWiK1WYYPnTr048HGMBRpv/Qr53uH8zwx qRIYFQsdWveGDJDzxJvjZmrqg/DDJ4UYMWgRfF50r/pZ+FYT7Bjid6Lk7RTg d3WLKS6ZVcKvZD9sxqWOAP7pekePVk0xnPTqvf+wFnJeuj90hwndzYfPHqSy UjLpA1zFV7+wLfkU+tSG2crLV5yAew32db5uXEWZaJwl5HfmBZ/Ljnuf/bsV Qqh1hKQkcgu5Pn0k+OIcXSkhCtbN62NxSP4JsravWtwYoQr64NrqT0j+Lznr nRnreSD1+g1RjWzkumWgdhsUk5OByDd8O7S/qwDe80WCpOrQMYjtK4GhOEoP 2tzavj+8nV8JmpatxxPM4Y1ZNAaga7Yrv/gM3fqQJ5ca5mvDqTOVQg9Bzs5K wxc1TWbgRYbsGWvmOfB5bVNPNIUN98JKb+wvSZh+R3LuVRt4KdcIh+97gb6o Mgj4q+e4fQKuVfBz8o3u99eQPKs2+znNUktgZROJ5dTJbsCF/de7Yuwc0V1v Ao+NOOwHfFXOdauXdwPVw1/NzPyJFf+bc96mcjGKJ4bS6vYY3lhlBzzwwVOd jvfUUCRv0EIxFw/gq3YPT9Tr7YN8bhOYXDjAD/h53bZowat8kJQHl+vBcWHA 4xneFoQLyUEoK067FmMpwEnV9Or6jY9DL1hS1ecTVfG/cw4jXt8ab67Dl5Oy DWy6fMGrJKz94i05IkZMbOoY+HarvfCQH7g/33lbjid6NQtrk9Kcl34/Cp5v De1ThjXY+2D7i11zquz9gNPNU4fQeDfBvLztPwYWegDnpnrten3tA0w83JBw 5UQH4IFSzo+mukth/oUqRnKWVsCFIWVTJi8n9FYVi3nFbUbAdZy+r79zmkXd aT2bUHRRBHxezQvyrPk5S6hBsXdfed+IAW5Hm6DgSU4ImR0nlTShQfJh63j9 kDGeCroZHXspACULODt53Nj5eBZIgjeUw0BXCfD+ks/pQV6ikJzxmPGhdg3A 3TJFFQhT9aEB7Pr7Sg8jkDO+Z27LQD0dbzh1Si2DfxKvj/7xi/NjMoPWDshj Fl5p8cfJJ4KcV717XgYPjsK1nMXtrUIr4POmpKW5HeZqg3Xgw6JnmX4ATtv/ 1Idl4COsG19YGnVvAvCChTkv2+4SmL2CFY5oGgGcK14xuZWrEJ7V6Rs7HzoI uMN9uSumdNbokqf7tN0m+ABfsqIss73ViupVU6cipkau254IxZFo7a+oAx1f H68ncAFejws1ieYcRXESHzBNzOEFfIvCd+Dc0XlUtEpnpiqrIOAklVbNEU+J of6ZUXs6f1HAz/Vc87EOZIUUD2vHy8vLAI6muxZ04ZoalB9CekDXUB1wqfr1 hCTiKig/G80pZ9mHL7Pcvp79yDxH00cFMdna7t2JJddBznv3eIyeHeiBb5fo 0/e5Ib/vJKmT+8ZoPsLlg1EppXtbkecxWlL//HcYeOhhvMaZlAbANSe6VkuD cuGjyYeZtNuR5xaOK/vP1VE9hanrpIXJXcqR5z3fmHL0WS102eyF2AAaQsAf l0X1a5bmo2LSzDtoTSrAc1TbpEQ2S+17VKdY19gYZSvgAVcjNj87f0ZN67Bb +nzuB/zrJJbnuEAf6ow+yd4vsjOAuxHKmtJszaJsHGyk4zPXAZf7NiCphKOE rtxxG33CuwfkyVR1/bmMkzT0PaKUSqqLD/DP0VsPW/k/Qgy44C9vDz6Fjjpt X+c5w0aTHAP7MddoievOLMWBnBVa600unaJDM51uSboXpgDu2zof+R859G3A pg23SdqNJAEPHmdjDxGahWs72IuypUQAl5RqEWAxHoZNVQ27phv4AdeL3Dh5 zPErHHuz3kKrmQfwPjVBPw/ScLRtyOlw3OvTIOeW2TnxnpZjZHof6O6cS3wK /OQi/epD29zD4U3dFD/aWA+Q/eauzHduGXFovHNZWGtMsb8NfNeRBvvj07Zl 8p1sPR2y5Styv3l6fsL9yKPVKBtHjHW+LQXIzfeExYsGsQpUd1SC58NXZIDL 1KCVZiPK4FEDmJqoiwG8f7Rm7RPmzi7YZvr8x3FTbsC3//4/95MP2HqcRYOK ULfzS1pe8TaA8247RG9EcMYVPdGaeVrO2xTkE1N70x/9JOs6AQGP3LhgzXXw uboCPy4UMMoSEDzS5Bv0k/3NS746vfE3KEGpQnU97kGLyPUZG3Z59lEnPNEP 0XstsoL3P5vNcuUheUbIz/+y2L+jJ/9/vP+Ml2ZNNt8KUbnsSTGqGx/B61PL WHVRGgSgj50X+8KtZ6n4n17HxjSRf4/07XwCAg2ZuOpWmd+8p+n1672BxSi2 yfdOry8vgNd/mRbSEuw6CKt9sdUS1+cC79/F2TbD11eUtiz4dJzwqSTaXT93 159/zq9WATGDokVsNE17aQ113n88vu3SfSdP/qokbYELZQsmRkn/6Xi6yJ9+ +Da3zC8/bAH8MJH6pdduN3Ck9KwDJwnJM8B1Ph0/EHaNZFl8SbF5JH6dBHhj zC8/36rM8svPEwJvbPzLJwcXuf/yyfaAW1C1f7ZK/aHsGDsyHcvABbhn3LXn t1jS1PeyrHdZt6uVuNhrBH5fn1ZfDNr2/Evu//b8eb+4NRr9i0cCfmfHV2fs 8tWtsduvf57536+f9mu+wJ7kc+7P+QJJMF+Q98tvmyp/+eW3BYGn/Vuepl+K WBgT3sj7YB7vVVOekP9Pxx8If3kioL1GvvQZ7nL0OE/hfzp+rvNQ0AYHZSGm pgluN7H4j8cTCZA5YZ4cLvRAxf547uX5H48nK5uNvkXwQuH45xqazuFgcPzy yaasNMpzuQw/FB4pi38FHvv9Dfgqx4xrbuQw6/Xn79oAPxpqGePD5pzr8ORw 6ADLJ8D9++clPsva59q2xOHuXy0HnEVXcIzLzCp3cVJhduDSO8A9f3lywiL/ X578PchfdNamjNDEQP2xS4WFEb+MusfYrNTP7xHcjj+33fHnd3b8ecLM9vHq u47/mPHTq3tjoq8miPN+QnxvnEs4Mc+XAAXfLLhfAZUHcnhwjJ7asimsMJtH 9PR+4W7AH42ftDdmSi7UP0kKreFHAFdTzkme4M4p9Cs15ThoPAy40/TzwHld HkXsvYfKVnEhwBvU8ZqaNKQcUo3es1FyuQnx5KpctlZ3PA6rTnhb6kW2oQFf j5uOl/fXVh1aUpQIhd8B7nv0htFy8xHVo12j18ld3wJ+SUHwDDNaV3V4T/BG TfUrwANypjgvlBmo7pl0TWCifgY4q6kCSWX9PFRmIkqdCPegUHODv76vr+z4 c8Ydf66348+fH9s+XmVC7F/HqwlbXI5im1S6KxckXMP5A3y/G1CctVrlF4ev OH8w06R+BJ4blfLJP3+a2QNHinC50XSkAV40Mm3TTEmuePql/2KcI+LJIwmF 4HP9HIrlq3qWkdcQr35zQFDV4maxopST4CubtiTAH05cjudkJ8MyVSkujHcg npztmkKKYsMe7FjUq5J79fSA+3+qvUhdyoi9rvnUOPvRoupv3k5RtKioyokt ZrtCb0OxB3hvffXLpfmpItgah7B3WX0igKf5BYpLJahie0Ye0N/y1ACc/dMF cnGaCuimqs2ihegg6nLq9nNR9o4/D9nlz9NGto/vK8jd+PP4o8FuatNtTUpy 97s/O0+ngvuh1GJq24+gS3Dy/WRI7g7idVms29cSSc7Bce6vRtPvYgDn3htn FtNgDbenPWiuLkH8mNrmTcFDBmZwIj0z0wVqxPcGiAXfEPjcDgcYkX6sFH8N uHj43vQEqzlsz35x/tz9iCdPS1I/qya7io3U6C3TlUY8eU6d1dS1BiJcSiQf YanYccAP0wqcb7y6F5d1R/9OzQNzwK1JMtUGutlwmsvODN+ZzgBecV32TbmU NE6aJjr33UXEAy+45L2w4InFk2hV29ME1KJodsZZtDv+fF1o259f2fHnMrU/ eSz+hvhPjhz/o6foDqaRENPPHVp0HxMHcr4uZ3sqUPQxLEkj91aFGJm/kKxK atXkuwsbXL7t/TStGPCzBvb6BEs3YfWRTfOlyELAacbGpWfDb8A27GfQ5OxI zseSOCjfmq/DrFyHFGViXwGuKN66ZHtVAMcjdQ4lmofkwDF+pjK6WAyHEvkx c0sL8bffU5cP7h+VxR1/4Ept/eAc4M9ZGfUsFdRxl44cjm/OOA84n0mDO42b IU7lbTifS/glwDGtRPqiMnY4uUsND3wu+CM596ES6l+/wEto7TFkGe3FBSxu 50a148+jd/lzeZuf/AX+9ORPjhxPsP/C2PfoLTRJS5ff7FQYuG+cnb9euK/p DRwbiEa3kCI5N7Dkla2sPoHX39+ihtqQ6/mtV6HRvuH7MIW18Yz2OpKnZErT eXOdeHiaNT5nVRrx6vlm/JX/fBuip2ZZWQukXwD+2mCL1VRDAccdNv7umCji yT2a1YlsuCEciqp9a/jsWcBN9dm6tR5q4+LKFpTO3XUA/El1c6r3nAmuoa4u mu+UC+A8OZ8MNL6dxt0pW2hpeO0BOAn+zqWk8is4czRXpbuQH+Dahyi3+lb8 IEUF0T5b/i5c28716bLjz8V2+XOW5Z/cD2r5xTvB8SZWDRtdVv3o8+PNgs1C ISDn6rP6HhOLxXB1XZ1S6h85rxruJTj34DUsJSub4LeB5FyoYUcecvUJfOSb v/gjuQKEf6kbYNqfCqtRtR86ehnJ2SWRU/WZ+170qwdMo3ovkJw7HrymNayt RRXf/kjKpYt48kdufYf5PjehNrO9skkvcQMumlGzwEDUjXrutJCHT+MDXOub xTk78SHUFQG32jtTQoAX3OBeE9GbQ12v8elaFT8IeL8J/YHqXAqIvf3M2xY8 4ntrc/rkRFL88IQfct6rTL+EQua3c+va8edfdvnzz/M/uR8+sfUnfwkV7ByP xuqZHg4YR3sHFc2sbXqC+4YR60mHI2Ef4aRbdjKVhcPI/TOfe4uqqAhODvwg 6SX8DfD6XNFYp7k8WEvY4JoZjHjFYIO3snYhz+GnZiUjr0zbkflNjYWyxS1W 9Nj9mFjOuUbAZ5Kcv4qR/0Bdxi9SnwxCPK2655sBvNMyKkn9a3o4kxjgHJXu vM9DCaGD0oc0G8mlANffM5ya5kMNSbzTVdQolQX8kwKvVQnJfugUkfsTtw1l wL2uXQw/SCwFBQazmPHdO4T4YbmYY0Qh8Xj4QqPCGRkYoujdzi1mx59f3eXP r15e+4fH4wNSD//DC6GYneOd797SwKXuxaSs55yparsOcl7PreopqeqCq72o pMSnZ0EOmyHpQ+4K9XCk1aMDIsLjgPc/7T14/FYZbM+rvffY6hDgdCf2fyjG YuCP9Qk/VML7AT+IKVjZXyyGri4fWU6P7gEcH2WSed+JEBq6bEKeloN48vmx L4eLYsmh9dqtY3dykOuzItJOOHmMDuI+YZwn3yEKuK9iYElgKBvEMH46Mj4K yf9rUdMeI2ERSGKL2rC/TB5wVafg6eHvEPQ6SeKwoBMyT+HMXJqtopWGFzt3 2EbLNR86OrSdW9aOP1/9se3Pg3b8eVr66j88HW9uV/IPz4eu7xxva0ax4MPF gSEwphNklg8CObexCQ+q3B2Cl9NOs/NVIPMUPtiPVsm32+HTA6SJRkeQeYp2 WVkB++/1sOnMiPbeFiTP++lUBWEVFXDEV7KPUZivgO957F2pcE0Bzae3qMXu gcwf1Wx+TeX9QQSFmTs83ZeI+Ebhrs3YhXeUkOeQZnmRODfgSdmm/b7XGaBN EroYF1LEU02sCCru4eWEWq/RfjG8ifhGpYBbQVdfikKfKA8Y9RxE/DDxuZEx ewVNKL36qqU1L+KBedw+J9+uTMVT1UUd1U55jT81tZ1bwI4/R+/y5w2Xf/I0 vGjAT/4ab7RzvLPU/XQWNm5Mcsa8hB6VFbg/Lx6SfVhjOgKfrJIg8L2P+FgT Gx5h3ZOd8MpmxiKzQR/gbmwUYbMUn+EFKrlPlsrdgL9LSPNLl62Ca8bqrrCG tQNeOd8omxiviH5W0WZo5NkEeDlVnSfj4CKK7b3oYoEuksPw7BjLKe8t1KqO F76UUBLwDtfDHSybZBALnKpUS4342GRMvnXRRQaot41SZ6BMHvFa+mKHG/V4 IaG49xcfN6gCrpJyyDtOWRF6Kuo28WTjEOB1yexY+4tOeCmcR5KwOQ4vWrOd W8GOP9fa5c8PSS38wy/i4zVs/uE4/Led4ymq6Vo3DuzDiPpnHrqo6wVyjkp/ kiGo3gcXch4bNyyeBzk0VCnuG9VphOUJTEgZpWYAt7wwVEoXUQkvOrBvvKj/ DnhdTyge5YqD6Z7W3CDYGgZ8bXXTmUJRHM1cHXyOeP4b4Fpld+x0aL6gSivG 3Xr5EE9uHqTf2bU5hLLGdd2ZZkQ8udLYoY0ohVlUhWC7du8nZN7nZjVzZVHd Bgqz7yyJUDUy7+PXB6P8n9JARVGCrjJyBwGnS41xVXIThlKOLyiu+iPnJfms 6p5jTklQYHNPT5JnHp5rcjs3kR1//mqXPw8S2viHJ0FkUz95Ht5p53gBucr0 R6OkmGtGdvla+XYg55nDJDGTlk3wIyjmYmlAJ/i9tqD3dfnmWQZbprhw+ko0 AT4mb3gqdOUdTG2z4C5PXwf4wu3zrTf6c2C1oa3kd8VIv8XznHrWrXAGtNUb rTMU66XI88lC4F7FF6Wok/fWDjy91Qyer2QKk5y3aOtRHsW0pUm4PsCplk/r Fp7oQs3fyz1GZDwOuIPvnX5F+u8ou3YpbiVXxGd2VOuzHL+9iZp8miREHUwM 8kxR8cUI07BDkUVRV9+tMALuM6DXiLdNhsxD5WOKX3pCCRvbuX3c8efUu/w5 7/2fPBka/vCTe0HpO8fPdDzeMhpYQS/L959VbnIHOfvFPHUrSCFFl8ytUbqq yCDe2/Jh7+UbS/Dt5hNnNEvEAHdXekNbUz8J4zYkjpBGCwEu1notnP3FIMwT O+FHQod4dVE9gvLUNAFaPelK9CfVROAtR6evtU0yWMbGq9++nX47B/C/ecu/ +cm/eci/+ca/ecVnJq6/vGL7tX97RVVp5nSGTnflm3FjWlvJWsA7xYv0b9om FshPqNvhfANngd+zFRE+e5M3XV5v7tqjcJ9WwKN+9Vo/yLf86rXyAv/D+YVr b9waVSEm67B6fJIZ4Fq/eq2ahSq/eq32gMc/SaRw8vPITcU9XtXe0wX82Ij+ fKlouH3u9Ya8/t7IBsDrcPhTFa+tcy/4dgiOPSsBfO/8z57q0VydXz3VbMAf QFs6FyjVcgONEudlwu78z/7tv/WuU1+3/erhxX/71RNVIRUifU6F+rcSYdvs 9yCH4GU9Yn/qkMJK1/em8ftaAD9TPuUq0XGz0Kzppl3muTbAqedG338MTi/k kaBbZ8mSALwos33UM4BHkUOa4YzhA8RzqsR42mehNFWPuxfOqa8jfdSwQDka anJ1VSFzwa/i628A1x2oeDDkoaqKTtYP6L6cBXj6r56qomr4r57qI8CJ9+ik Cn6SVc0jp7QXtokH/Oivnqqkas6vnmrg/82/de3yaf+t57SoeP3Lc8r0+x35 03Oi1zIcNJiZYBtV5g5j/gTwvePfMxcRPN2pQHj+y5MH9LcAf7Jkb8nzjUhx iowZa7l2HXAUejFQOYNY8UfLXg8/AX/AL2B5qOJCihWlvO53ZJBng5wrM+iH W0eIsfsneebfd+8Dnk3k6HWi75zk2G6CQgWSL2SAT2TWml2bocYezkUnNmkg vV+sUbZ47l4GbEmu2rsTYoh/czx5StP5KRuWuiDLWEKTB/CGJxMnZYLFsY2p dx68rZQCfM/otk/TGnn9L5/233rOeYUvR396zoK4EoKPf3hOtdX6m5NaZ+E9 XczqboVIf2ym221aV/UYPMtjGiJW+ADwmzG1cYW1GvBNSesqHFsU4NBN4iV/ HxE4ritBUuHJKcRnUnrCXCXtsPMqbUN6K+I5c+53OrsHzmIZTCgq2TeR/up5 /GQqidwCdmBd82UkpAe404lFa1biNWxbkn6cChrhGcTk2iOviXDRicWhMi/1 Eb8kQe3jZkOD218cI8nSivi9+Wnd04Sy/LiWhnwnKzJTwIetxn75NIoj5E/+ 9Gn/redkel8kNdnWpORgENUd+IfnDBRdxVov3YHLpujaY98i3+8xh70e3gi7 Di+oYm4YCxUBTkEaeWhfuSf8XljqZGcT4jnPp3PTbvY6wVGkavmj828BT1/W corVWIfdLiv3lv3hOd86KbjP4/lwlyuqS+qwNki/NP5a4Gl6YZz3mOzjNhKk v8o/qj1U+F0Ch1+JGtd6gfii7y6ypCY88rjQUeYnsATii6S2Oj6mRWjiBq23 jo8nOQPeL/5eRk7pJC4wjvgE4RnEy2mGXUz/6dPIBjWkh5IRn/Zfe85c1PBP z3mijqTp4R+e05eOcG8jYxb8QWD2lXXme5AD5tPptItGqTBF42I2uRuSc4OL WiLXTByc8vSWxC1vJOd5fv998thwWDnNl7D5JJLz4EC4eaEcGbr/giOr4B+e M/O761ctVnkcwzeNLTczxL+JXG4cekSqilO/4ebtnoDkKTl+TMXQTAtHk6jo PTeO5MmTu360SMYAd4G8Ir1nDPFv5wt13kdkmOPmxyolXPiQPIsnyyxz2N1w fbqPXrtPIf6t9UtO+8KKH3QBa2isKIr4t//WcyqF8jwdj95C91AIRvz4w3Om e7sxa+4vhE88uHKTlAbxby25H+5zVz2HY2rJX56eQfybYxilF39gOmzcesZx iRHxbydLhBKXvyfAr1kKzce1EP/mpLvQJO6wF+31nFXl3R+eE83YxbfCUY3K Pjzpe/0Q0l89vn7NGOXRgHpEKypfEYJwgVT9QnW7ZhRHzZBI2BLChd25uEwb ulAnREhde7/tB/x5ur5fVdUQqpzvRt7LNcTvOXK8VToVtYY6cDSCoDkQ6RmW v3zH07Dqh68kszq99IdP+289Z/Ra4EavVT+aLGwlLZ0P8Zzu93t4R8LKYIub YmuO9xBvM0P9gY/fOx9+S49nbMtExh2kdp4RXmHPYVs+1Q9bdNWAN9NzOP34 8gCe0rlxcR1G7j+E2VmqZT9Y0RkiIlZaWUjObPeje6wezaBmTjEy6Dgj/uck yzxD+dN5FPq6Orlpggjg56MJiS7RraFI9lSMqWQgXu7gG7/gTHNi6PIV60lP AcQLGVNnj42o0UE9un33lwTkkB5s09LZklQBqFl52MSEHoX4PR65SbrheHz3 XaFwiAOGVHr/N8/JOrkabRgwjmawUx3bR+oF7hvm+5xyaKKb4AkTma9nKiZB DhHPPCJthMth3ZMSrjnXEc/maRClU5NWCEc3VRIaRiI9q/vK6JyJ5hx49uGz rhnLLqSnLbB3n98LMXSjOv6Z7B+esz5cQqs4mQCiPygCd7IiPWHizr5jnOdI IVuImVfnKeI/OYjen76jshdCt+S7tcYiPdXB8ViN4637IFOcYdzgNNITPpot tWDJwg+tz1f1nCBXAvy0ue3zCTMliDqzlUrdRgvwYtvb9O8L0/A6MoZ32z3z Ie6h/81zPqr/GF+SuhdzOJn38r1WxHNqN2MulU73wUWZjPc342ZADs9sID7p vkbYszYuPMl7DHmuEE+TmMdVwgfsi4+VzyC91gZe9osReCysMMF8qm8a8c/Y lDdX864ooFk9bZ0S//CcZXoRWVz1RBDRgAyfKC8TGM9iroXEfDKmhAav+vJm WyM9sXNk32OvMDBALwIoyK05VsB9VcUufCBWlgMqDQsPvBg/h/rNg0tJD9Cn H4Di/I52nJVjBnnK9dd3hwRoQAnTI5ludxFfyjD1XkyxPxW/7EP38QX9a3zb 1P/mOSPvuir4cnFgXClbJq5yIp7TQuR2hrLRMCx1FN9HuImsP3qnk3dA/2AH LKI5M+39Gun1lVnUhwoFN8DJoQ6fbA58BrxPzxnNTFEJCzRQkp71bQac9ly+ GjZOEb289MDmvTviOX0Oc3hZnFpGvWAVI53+cADp101J3RB9SQglJ1HmfbyL eLkgu+zTG8TU0BEO4hpbVsTzUL9j4eZwY4ZWZLXsgqeQXquKvNzx536C0LVr 6I0ZNjnApftSMs6dV4MO2t0V1ZpXAVy34m6VRZ0DHjPGdLlSFYePq/nfPGcO 9m4GMxs3ZgJvPZQqhXjOlsInlxTFBmFm4dT18W/T4Pm2tvtGBdmJNrgjSLfL zhLpqfLmuioW7KmHh29E89SsIT6twy8q9GppBRxkUssfHYL0ih3JHBVOGIij 60XJBy794TmhITuBUxT9KK0DUKeXG9Kvnj907eP1iUmU4d5oL7SEAOACx/a3 J3mvoJjKDc5/U0bOy+2GUEw9OzkUQFTWqIlCcma5V30t7DsLZByTQ8FPqAC4 SN3e4pfU0lB6Nm3I2k2kJ0xzwjetGZcEKbnU+WCi8/C9E/+b5/xubNS1fmAf pkFaLdZREvGcj+5vnaSU6oKjA4nsX9xB+tUX+jiN3tyqg69VOYSKXkdyc5U1 LBsNKYPVrFhQtNpfAX8qxDb0LawINvT+etLsOeKfz6vy5wrkMqDlfRxJW+eQ 86J95sPwXHY5yiJV/qY8H9I7NQnKX97ibkGFUj59w9RIBHJo634e/5F3ANXW ffTMvgRawBXCWtmKhOZQe0ZIxutzkP58siTNossUKXRgXjXtkiTiRdELcQRp /byQAMkeyYPEyHmhaUaxxkUkQ2b+WhPhvleg2I3/zXNGb6VfKhwlxRRZGzyl fWILcj75pY8+7uwCHHBW44n6HOLNRh90oE6LDMIbwjP4/Z1I7zFhKtfxXUkL rM+4HOQ+SgN40OeILo7USrjifWmi5Swh4NhfPVVpMvFfPdUw0N+7/6uPyvMO +6uPehF4qgzOdPaLw5aFD0xWqvZuXQXjdFuOtNLV9C7UDM3WIOPafpDPyRlt LVKRN7Dakj3clT0P7ktu6mYixb2dcBUfH4XDHCd4PxmLUi+JDn2B28Keq36K RHq2BP+Pf2bU17ZEaaj3iNDW0AznfKhMBp6Qdij4B98+TtrGF1YnQ7aiwXp5 qYtjAqUaNrFFtCjU7HOkJzmmhKpw32xIsrw/2OIbdgJZF194MbAt5j53r4mj sZr8OeAV11u/HIFI90hEMfNiCK6yAq9478SXdnLz9CKDLdRSXk4w8Ir8+BiZ lLsf1YcT0tQvqbmUfChQaAt0mlYfqrzPyNvprowtaM/0u4f4w/lO8pZUYrR8 lH56BOw0D/K/8InwsI5DpnzkCQN/7N4vgF9cu0tIPNMibw89yHkSfRCcFweL FUyTP3fhQw/Bhy8lXQA/sXlh9qri6UKCe1yzgt8Rr5X1Uk+2FeWaOxGo+Tbr ONLTO+NMyl7TGyK5qhL07V3JF8C/7nhF711eEeroIM6SP5tLtO8dc8lGGeAr i+LXuaTMc4WO61Ib+xcAfh6/qXOB0jB33OSnV3wMeJOriBzhSnARFpLqGViy A3mmtWDjst69Vu8Y0qRzLtNTryxgeqw+O62+6bviStwXi+nr8IMkeqmBvxIw gFYjRhIUptYEObTZykGPTlpV+Gjlc9dCS6NbHiZylYhfDZcPwcVFFfIXlt6O 5v0CuO7xtlCqgZTCd6RNRhznkZ5eyhNJz/6DhYU371gYZkxfAa/vTNbJxvhB V9GWnJtWttsQ8Es2Njyqj5VUg42vRw3yIp7wW/lzjUtPFFXVGM5ubBzMB3wY J/ZNtltZVeFOAtejFaSPp7LjFXN2ecUZW2J+8scoVbaoNQPF1EzA56LocuZD NFTz99A+1Ux9APibtSpe8b5DqjYVQrOPzyG+sagpkZvW8Jx6/2St3KqcgfpU bY7U8j/3qyrLTlICwhBMeJzT5PMKfpCzsyHTUyGOg7C6Yed85N1EcN8mvUub vsnLBDPGLdLP/uEPceNy9W5sfQp3or/WOY7HAY7nmGv6EkSrSKQSpHf1USzg BCde6Hx+zKrofOGhXrUxcnx2nPpFXrlviuolvQE2cc3gvIxzjHSU4BeLqTKI BagfUgBPaHmJE+q7N1uM5nlqVj6HrHP3Ypbzy27cLL6kxziYRrYJ+nvp3O5m by3JsHr52Q97VnKR87JHQ/zFXgZs9lvq7lZ2xCtefTJO+q6cF5vyzGWIIF0Q cH6yi1Vng9Wwwnq+hKfwSK+PxyYt7KYxi/oIo3gZ/SF6yDGtb+Pn98KqsE4a wSFi5avE9d17XxOCnN+2FqjMZJ2HsVKr5e6PEU/4aPXkJfZGK/jEuECv17VM wIXX2knucZvAwV+FcHjoEcLlexRshLXh5HqRE0uZKYALvE0lh9fVYN2DGbNn 3RMBP3T6yeDXvhk4rjTfgujhZ3A9886UPyRZ78WOmqGMmVzlwfdyecqQivrp Niy1sZyl61MZwMe1LQyOyA1hP14Soo6AlAFPcJB9rCQ/g4086rDM2AsB/uUG 27MEsnVsxLIDzYutQ4ATzt0UTrGhwQnlV5aw/+EVTaUGzB7XieMwV7IIoilP AW7HujYpkzYC3XaT1Hx5hQaC9LfHTdCTD7QX2kkwXeE2/uVFMPjeMRbvJMt7 ngRTeYoqWP1A1tfg6DbaucvD4Zowqos06sh64ZQaqRh74qvwuVNoGlkP5Dn/ hv4lgwvQFTg769qCDhrplS161pspHnOFiTr0HNU5kHXEB89f/0qZwoEe0el7 ZFMyDXKOlhQ4r/58D07fN6PSvxzxpb3PWl6T2ZLicux7r5KZIT1JZ385KqND TLjh3nTeQI6TgI/aQOSMq1w4ufNTsdcokHyM3DWNuD6K4k5087lphSJ+rErF UjeJBIXT9u2PJNdEPJja2awM77BTuPXGuo6rr30A53x+NyKc+CPeDlpVYVDq RLW5bz/nyGteER09yoshvrp2I/3+E5CzloTXPDVhHqwTc/flJQdkHlblXNOI jNFDWErr9J59H/CAd3arpx74Fg9r1aiKEcUiOTefVDGMj4iC99N9erufF8mZ bBwTXht9HS5V0cJVcCNea+xletkTHil0kazgST6ZSZDzM5/UBmYtERyhWinz fiLEx57cWf++uGv9O2FEvGk2Kx9u7La4INsXJM/OnXX0qF3r6J0tGBvThaVx z9KaHTV7kb7lzb+so8+LnWfPUVbBnbkS+FKFDump8u2sr6/ftb7ex7TvzJWc Izhm1VdKwQMXAc/cWXdfv2vd/dt1f2/2Oxa46tBnuMxbyP4GZ3bW4x/YtR7f 8t6lx6WGPrglcVhUQQ7Z9+DBzjp9p13r9K+teH6mlG7F32Y6R8zYvwc//msl 7rT68uK2l1PY5eWs+JqHVko5MJxvtR2JzZF9Enh21vWf2LWuf/l4+Yf5MCz8 MnM8M0EAGUef+ct6/5bHqmq03S/hsDCKk6+Gkd/fi3/ZB4C3cEnqWsRDuKJr OSP9E+Klmf+yP0CY/VFG26934TiqKUlhEuT3uv4v+wY0laJPKX2+DV/w0+xB wcj+DM5/2U+g8FS8ViO1ItrTMSsm1wLZT2CT9v95nwFlMUJcKkc1KvzV/XD/ Pzzt1os3+98Wl6HoysRbE7n2IfsPfFvdw1fWiJIryivOvscBuKS6e1KPYDcq z11sM8Af8a5r7iY+D31HUKUcBpj0Z4ifFJYMXtRxW0GddWj+/uM44huLliTT LnGxQh5s5lePPISQ9eD0ZGn0V5/gz8DYmxmn2iH/jm1/yCQ/Hy9lToXJ/CRX VcoSDe4btyLG5oqiG+F4Z5+vRc6Ip7o5nbKnnq4UfnZqv0mYJ+Kj9hw+VFnp 8xY2z1fhGSlFfCCT01tYkOoFvHaRSH+zHFmPmUZVV5U98Qge0LqTmGuPeF2e 6BzeE/d10GeWjLYOvqFDzlfBchENZhIVPI93EDsrCD4X35VZeyPxYVT2CYvo H6lI73SdcmZ+jGQBVXAzsvyJNLI/gzi12TFiegKIYL/B4yP1SO9Um19yaO4D NWS6h9/r7ALSn3xCV6tXtJ8LGo2s5VWuUgO8zIKBUDlaDbrOXfk0YE0fcHOL ZdoH2BL8qMLMC++7g9B3vm2vpUBjM3ltQhhjGHZDzhbzCOSc3SyrTRjyDab2 KI25IY+M45qezVf/IP8Mo7ZKvEL6kD7kvn59Em2PMthE567twkXE01p43N9D SIKGH90gXPH3R85LzWcLvW/f8+DLDBLvJe4j+z8ItZ/TgxvM0ecXk0kqv7Mh 8z7UUpMJVzZQFxOeed33RHIubaK57bu8gOq4NErXk4PkTMzF9ehDMwmUmWyn GaWL5Iz1sk4ba6OFhOsd2g+PITmTxGayE0ewQwIfVEZDyREfDpFhg22aJSBH Kt6HZ/qQnPekPnUP1DOEPmTZqxIyGUBbO/MI121Wlz6cqcYX9+aJiz4fhLoL ln9xt3sPWlV5FDHYSxHHI6qRnBUOnHGhWB+HFVxor+prIzmjWiacfDM7YYOv t4QcFpGcxU1Mt76G1MNtpXM/uq4hOZvwbjHfUC6H+yvD7xlHIjmL6vdlPmEt hqfmn+Cz85Cc+8qob2mK2qPFG9zypAjYAVdvo3UkrCKCnMlW7Tkol4FfhaOf uVatrKHqMD/azxDNA74yNHCB+x4VZNG1Jl/4cQPwI7VbBMesmaA6iq1FrCEx yI0qv9E/LZMX6jtR1PykjQrwRpo4Q0sJWahCG57ol0PuS5duqzq36JlCmGeO Fg6DQiDnPKmtkknievxX1hrfM+J50EHObf7tdPz9w2koTOQFx/CAV8i6v6sL J5gzNmfgZM24Kbr2GvB51/IqPt2g+Qp3RDCs9V9E5mWanAXeWrc2wiJMP9an NpD1F8Md8prNsh/gDtOTujymyP18pj3nXt2JUvij6/07x62Q+7lwT0pS47gj uiP73tgt6xFwfzZJk1pszCaAHGaeF7/jQbxTZ0TAJg12GaV3y/5LzxjiFVtf QO9/FJNDl6/kp81yCgFu79hCFKrHADUQij/fckLWuUv3PiZn+cENBdIG5KTc RfzVPfdwLo4YaajmuKayeTPiFa0qWlc2aI5BitDDq0JZh/C/cz7mtUF7wb4c Ty2cGnjVbRCvwrF93/CUZiGgtlXFFOMzXT5uRYDv5VaDiNdzF6fhT9FUGdOi s2C81l1YXH3+Yg/8eS+HxdE+ZJ+HqXhmHxu5z7DMG+HBl5UDgDuFUqUcX6yA XWY7icyj/vCEjPfO+p/GwUKxFakFdxDfmP5kQ0Rtwh6dzap+ftKFDfDZyFSe r+/mUD+6idct7iH7ORhVPWLcqJtA1eg0GufkIz3ezwcnu7/GrKOqUQyp6cHi iD/kl/E85UMGFX2uohSglwZ8yebegRA+JohAse+sfxjSh/S9YKhdOyIEfdFx t5b5jALcFRdrQROqAw2iHpzk3NQDOZdyEYsUsCRBYin5BWSzY3h1/4Xt/gN1 jXVcmgxGcvxrK5dGPMi5xEoWV6czDF/YzDhz+BPSL20VyfeKS26GLdr25XRe RXL2p96goPhWCWPLg6wJI5GcG82afIJbiuG7ejS+l2yRnNe76/B+Svmwu8x3 vyBLJGcBrc4pTwtztOvq24VWDSTn917EldF+PajgOz7f4sbZwOftTbduc+IZ Rt2TEZfQUUb61SVtTJZfqn6gnAQuvyAuRPrVV9MY8B9MiCArXelHtulIH3US un0hlJIFWjZ74L7vDHI9n3t+zSGUXRXa7IwTsItTA9w6NNDrgU4V5JgR5Wyr 04NXcFj/lSezg8pqcbUAppmHiDHgaSjI80LXNaGJzQm4H05L6eCkAveN4fYs PbR3J8y5LpHgOo94VFG+wEdb5+pgiX4xwZioNfD7XrSmVx1IXQYPFd9wDjiP 7M9zaRjD0j+ChuvXmXlLfvxA7idnvrgLMpmhr88zz8fSygEu+RdvOfofvGXP /6G3dHhwc/HNT2+ZZ2+7PxPxlnILzOcS4z+qE00fyzqt4lKyyTbOdc9p+r/2 k247ftLhL37ywS4/abbjJwl3+ckYY6vEd++aFD7YW/8z5CUG98//1jde/9Vj NMx1Nfq3b7xpYGr13oitKFHxRl1XUifiY6uSqYmveqpXRC4ZL8qdUs+imvvW /8/181IkYenIc9dCDRuqFZk//KFA3Najc3eiCt+03X7hyoP4w7DLCbo5nSmF q1VxFV72iD88Ylgcfp+msFAk36FklMAffC5vu/a3kUW6iiRRtmO5Hsg67ukd v7d/l9+b3/F7Bbv8njn9kyqJvkOqcgFz//J777fw2gqEbOqM502EcT8IoZXS U7+8k0b7p3co9T4FEypsSs13xLO57QvgmblNq7h4I3buzkPEy7mfubIQUMqq 6GUbIiZ7DDk+gEYVQyH9TbHDxuSrtjXi5V6JTXsUlfNim1wclqDHiB+jurd2 wClYDVuQ7HEnoQTxY3NnL5KL0wxCnYxvNixESSA+ePt7hyWYi7I44gh8clk3 m6HsPvKcqeU087AagiEHD5voNsRfnWItWlgtXYKt9obGQPtuIvermBt6HnXi uCxrr7HQP3wRG/9UgabFc7zCGiH1xOog6urS9v1Zgd/Oj5jLDZ7ytW8uTfuj 9+VsYGd4cB9aINcZoxbzFHCuKnKf2tdovHVbRGiH5yRuonPnucXoXQKVBDOa 1yFA1/xkFjjebMczzO/yDFE7fkB4lx/g3vEANbs8QMbOeL9613jfemdcL7hr XJ+yM34/u2v87rDTnxHaNU7/9b+Da7evJ1sCcF0RECSv/Bx3E5jY/2vc7bUz vh7bNb7m2BlHR/5ln73BXePlCzvj4me7xsU/dsa/BB77/jX+/dCto+L2z3i2 aCg5p/CP8Sy5phCjo1A3SixUlDL0j/EsV7K0vZTfz/EsYd3LP8az9i72QXTu K6h864zYrT/Gs3QfLuZ6cbNCUwct08//MZ71Lk3QOF78DF9kYMqI/Wc8e6xt ezw7Q9dwaMSqCZ2RdLk9lv0S+N7xvbXX8Vrge3ha7e455nfIczuNnojqy2v5 cMuHUaMxAmQdXyzFF3864iw4xPJE8N7vyLj12de0A9bej+HlmY6a5qt/jFvn iCymKrTRfR8O1VO6XwX8dYfNuL73FupWwPe71wclkF6Kbrr4NAM1JMJ6QFZB CRlvnuXe3wBxc0JM9/bVGFuoAp5pM5t8RkcVar7blpc/owu4qVTGZmwAFi8s 0y5trP4NuiC8PR9aT2SVMHurCcZR65O1MiLrv24uJeo6QRXw0mH/d1yxyDpH D2XuxwxoDFzGFxfoJYas/xIaPFV7ofsN7P1xunQm8gviZ1gaVyTzT6A358J8 FyKRnlt+UJNAZBUrZEi44l3Mhewj9yGjWy+aRBTarHjuOXoQWYeYMU96UNNS B7qteSFbvl4bjDvkbzJ8L1Uuw7OkeZFV7OuAvjpvn9+MjcB443eN8GY68/Fo 4VHwc4kremYeEVfB4h0UUbEHkH32dOmCtKfE8bDFXQnz18PI+jVVQQsvio1T 6KtPeF1M/D8CbvuY1YXutjj0IplY53T3DzDOeo93qJzs0YEeGx8arPNC9nHy 8Z6/4vAGi7fpmze0tWnAUw9v+7fn/Qn7XWXqYRXtkF4nHmS8wzLBcIoysxx+ Ieeou1KH+FWf1R4suZ85uvHLCLv9RC3gV558iBY9ogERzTlFqPEjPQT4JZGu 6sVQvOZND3bKr614iHf75+KlfeJW+MrhN2HVF1iTv4D7MFvBLYMPzNroYHFa 4tjTNYBTlT2853T8GbR5jeqtrnspPq9gO//12h/EI9f50OxGnZrXqpDX+dv8 b055wAD8z/PD0BkayWP1yPNDrj8m09K0GeWdciTf4gQLsl6MJt6R6HUTaviL psIiJ8L96X9wdqaqohcyPB6zdyHPb1w761lQu9azSOysE7m+a53Ii7/Mt/bt zKv67JpXjU0fq9vLmaN+VUognaTXsIRTWfL4k7lp9T192+sjnHetj/jbPOPo znyi0q75RLWd+cRXu+YT6QdMscRXHdRbZvNUln7OA5ZeQ/+cB5x5W5YqxRiC iVm43PFGgQPMT+XurBcw27Ve4H7Quag6/GLxaTqukO93kPm4AxFU4sWNm8Us WeUvRcY3wLxbV1afH9aSDJvVViLqUYe8/1c7ff4Xu/r8Z1ofklTWM6m/jMdR J8LrqGZZ482f14l5EJlzFNuGUnB4l2g1JxF4n99epOt9arKGowfbSM6EPgHn cWSnb/9pV9++wEeo9/taLzbPc86Y8Y95LubFAXYZuSFs8LfsyLA/5rPO3fpx RFh+Bhsa/CiK/o/5LHb/Cc1LZOtYY3eCoad/zGdNiW/35KeK/t2TX0rRpYTp x6AlG07UtBwlJHBw8df1b0nJ3PIyekSJZugz5Or1BoxHBGdbwvXv3YQL9DUu p/kivWupE9Un5YmCYLWKMB7jZ0jvepNku99etqvfbrqcENJSQoXzHtLSF7Y9 hvTzV2VZ3r9jwLElD4celkX2qc47kLoYJ86Ba7V7Y6KsbAH4yAFGwc/Nwrhk N585Zx/keYai1JJ775QSjuae0bJxG9K7Ltzpq7vu6quvdU3+8zwG498OqNFN rM6jZnf6jb5mjSRJRWyYJOmVoMJ9WSCHs8PmiplEWXDVFWIaMvMK8LmCtTo+ HORPge2MtCuCS5F9wlVjLhnM2MfBtj5f+etPIZ5nZqd/rrarf25DJ1eoFcOP w0unn1a3QfajNra/oBDyRBS36MBh8cgSmT/SLWR7FWcki8Pos1vM2iD7db96 JS9I/R7C2VwJpHL8hszvvBZ961c0Y4i77guzsPm6A04qis4SdnHAtclMfSmo R+bdhHZ65iXF/+6Zm0zMTc0mt+L99dL5El9T4m9LbN+HE2fO3jRMZccMO2V9 XZV+guynx/GFKT4HA8dwExgb8yHzcd/uXTI5Uv8CTpc1eZg5/EduVx69fJGY Dr8Rf1Ntq4hcP1cxOUZbtQmwhuknq6SHyLxbhs52nzx6V5/80U6fPGFXn5xg ZbunXery7572jwX8vnOHJ1FuZB9FDk4hfd1DO73onF296CLyzaDnq1F48rGf PeQiqL5p+3Xu7vSQPXb1kKWysQQxr9ZQN4vcngcYIK+PP1j61vcsMRR9jG/G KxfpA+/9Sx/4ePEKt15gDj6yNl9eEWqEtqq383/mSpNZL8eM6VBeTEhXReY1 dHd6uSW7ernZQRvn4wMJII/PbV1U5uPge3/qtE1rVS8ZNCNz0NCRbBrwTjWL owQE9FCw6GLtcvos4FI7vdm88H/3Zjkl14KmZXH4Q2U/e63NEI/F9vscUKsj 8OYSxwjdPqj8ij8WvE/687LfvtmMwinogMlAemQfZuxOrzV0V6/1ZBY8Orlv DfWiliiVnx/xPEs4zkXVB0SQ2ya5GGk10pNkZcqKnDKmhiy5UmlMQxBfF/7I z5VCkBnSuWTvxC6F9FQVdvqol3f1UT9vbQRdISnD836cMVInasbf0N7+XBRT w6uGHrKY0tNJB58reYDrP3Fd+tAM6juMN1x/T04xCb6/wpnzwp/WdcAKazk8 nZTIumyJnR7pt1090tFbR5K1SKZQsqcqr9cKIJ5W/IVSj2LlPCqf1xS7KYn0 P0/cL6r58GATlWmAl4w4JQG4WfP9nJk2Cij0w4vHp3GIb7yIpTYSrmeBZl3m MWHliL/l3umFPtjVC/1is7zlO52If+Zy5BWmawj/MmJ7PiKyE+W3gpfEHJnp P3LsUyzIYVImlN5YfBCmQfNbHI5G/K1rVeJNGpkmeG7UpnZcbgzwE6zns4wy KmDlzMNbMvOIV3yz0/O03tXzvBzOe37BpRelq08xjt+D7MPQWH5L9BzXCKp2 RFIj0x3xhHudjWf9SeZRnyKJ/apGkOvn5uj4l0BnEui4Tq53NzVynXyxN1HT 5+WCpDJf9ElzILllNG33Nhf8/t3bNPMNfM9/qBx6Fk8sx57Wg8d4bHvCohQO 6Vti/JiUyPORnMeCQT7HljAbCeyD8IYGbbi4OjH4vYhxEYyo2t8MfyT63v2q dh2Z5zpax0LlVAXjDltrNwkvIeOaW9D+vQE4WICadKTeDdlfuminb4nZ1bdU 2ulVfl/8d69y7/39k1uZFrHHX6dH3Dd9/f/5uun9O73H3p3e48ed3uPdX/sl aimX/NovcR94Xq2zFA3L08uRF80U88M7DAN/+B6vxkDNWSOv3SGgP7QXWR+d +NzdueAqZaHpkrGyVKU54HDLefpGxsOFy50PytizLgM+x7SdZ/auPImYKY66 JJ/NjTtdoHT4ewWyrvkrMUnYlFWuk/bmBUqTIsBZDZgZz6eY5n5eiQ8bVXv1 P6+DTt3pMX7Y1WMcdShfDdCXV0jWyU0cXcYi/87OU4mIMbcbhYVVXh1mD9oB b2e7F0ramFBIcQdNylXUD/iLoxVSJS+fF+qElIcLlPYC/lGH/7idOY8ixQhP yEspdzAOcvy26EYgjVIlsKSeFkh4ivQAZfZ5i2Spq1Lxjn3Kcn0MeKiQgUlH l6aqf9PnckLM/f/beuQzhP9e94r5S5/QRmNP+pbCQGHv7CrrQ+s74P7AgHeO IbxFopieo3hUVRPxip9f06m+t2RUXIefWTUTI7yqyRV9N7xY8cPeW0u4/Yjf q6nwLiA8wI1NoFK7l7PKC8YLVwp823jeyGBdiWprmoUUALfu3V5P+mn41uqf 60k5d3p633b19B73alXfW9CFtw5QnZn0SEW8xHjEPeYjWvBocl3He1Qy0l8K o7Y4X9UOD2o2HSl/jKzbPfhg+XRZkSDuVPjh4YgWpK9VdaNg9Oe6Sy+XnE2J VmTdpcNOny1qV59tyO/IhICnB9wuyyJ3aA15Xs0RDEkU01mHT1qFseO3kPWS p+I5h36uN5Q6o3xNPhNZb7h3p8f1bFePiyjbd8VEgQxdPhF0dqYG8W9ZO/ue 8eza98zlL/ueGe3se3Zn175nD3f2Pfu0a98ztr/se0aws++Zxf/hvmeBO32k 0F19pJmdPpLELs8pNb/9/Dm0a51gwc5+aF679kMr/ct+aD/+sh/a27/sh5b3 X+6HZrlo7M1D0ohC9xrPOKwg6yVd9RfkfXw6UNjh6vWSO8i/G1LtXUXLpDqA MtFgJDvgjjzfXv3a/FgudRYl98O11HIGWSflMKOjNv3Pc2ahX17LdRekF1EL 6VYsPvfDr4RXavsPv4Sidtb3eez0eU7u6vNsdg8I048Po+NYL8Vfi0bW7xgc 6lgOCKuCbfW4Fl1GET9mGkVJQT+GhtGlKYbnHBC/1ya+UHeyORdebo2JX3qF rHs6rZGTT3fgGbwMq+urtiDPpSnJsi2Mm6zok6bH/D4/+4R4+1sGZUXoDRTL tVwOCg7Ef77+IhnzyIkc0rtrGm/1f7V27lFNlnEcB+IigoI4Ai8oxWWktATk 3l5hmOFA5LJAQQZZmBcIBJXNy8hSSIIWeCtBmQpLDAnU+Qx3QQG5pSIgDg1S iE3iIhOUVC52qPfsN9/OTnVO/z5/vGfPe872Pvv8vt/POww9vm/WrInN32uO XQ7JL2jnu6vWLZZzOQ4ejthjQ7cVhQ/h/SnJ+ZL+ruO50iVyZ5GxI8Is8P+t dDyH84CQw9k9ki5eSW9DW/Y5TJ92Y0j1OZ1JBkhBqUfMdgW9jwFcsYZzjxEU WIn0Xc0SBdfhvn3ne2+UPSpAradbk5ok0Iv0ueCdWCdYLGSxtfSj9oM/pwYL eGClbYHV+IfMDD4C+0U9MieRlR1m9tzfkLwQ9usfk/TTJp43xjy+l+y8Hvab Vb/fevG2fGnDIhsDZeIFzAvvx6XieRgBIQ/DeBqrzAxoRVtnUej7+mBf9+qN ogd1GtCpPJfPdlpC39DbIlDQk3MVTb6dXRCqgH1FnJiYfZHtJpQNxhsudoF8 l0yenjDS8hZW27GwoJ07pvq/Y/PRHdcbFT7YGdOUBemdkEvJWDkr7VFbnpRO Oa/tGlgqPYX3zvh4zoQ859WcScwC3/i0WzfRcDznKwslzDV2rbcNerTlGmrx Y9ZnceF7TeJcGUrPcRd+zMruMfWA92R1FXddG8jyxoqnByRbWkNOwIYuMi7K ipPmaisivvWTSFPwfhYDz2O8tH81j/Hk91CsSlqNhIUWBQVboG81WZFzPuM9 R2Fijt5BeRL4u97v1W5OLT+ClU3/sGnFgTKpAu+LMfEcApmQQ5iMS/o9othM eL2yq3OS26m6Thg+Z08gzNn/L/75X/0w/xf/1ORLMT/0ly/Ft9mBpu5L0cQ/ jwj09aqlo6ITVPpYVR7wzxtBBaEXmidFvuwtdd3PgH8GvF+jrFirL/4kQu8i d80/809NvhHjjPLIKd8Io44hVPeNrJ74Kmx96Dq0bEPf5Z6qv/PPmwT+ebtQ xno51in25VLmq+f8fxpe54EtlYsf6HKT0tX45w/+d90prkpxRYHoczM1/mm6 u+pNlv64ONK2NIz/L/inJr9HOe+Q26M7LR6Byc7hKWp+jxdLLLd5mhxAjl1R kS8YMNegtZyltG/koJ/9R+f/qv13/kn0e0TZGz/SCTeW7Mk0c6J9CXl7rOjA zAbpbMnzeZdom9kfqNZvVg9Mhhy0kuxXrFb+zFsLPLM/1bmvyUFCdxL3z58A 7+6d4rvB7HxPyTGxSF6dC37dyzj/TCLwT03+jeMsxbkp/8aF0rVVeWr+jZ1Z vLYTjEIUT59D9+8EDqxsfCGUoaPo7Bu0nHA98AzLgue7cnK5iLzBIEdX7T4M 4vzTm8A/2dl+JKsjZMlCdKP2JAf2xbufyTI3WSKRZjllrLODOfXTGUGnnWnu kpImSsa5nbDfMYa9ielemqTMzbbt8DbwCbMiDEQdkSESm7mPb82Og/vA6+oO 6bffKDGKRvwRR/AJP2v/i3/uI3g2NPk0lmpdnDbl09iTIeare4N1zwR8tODc efRFX6c5ywDOb9cntntUDxai2JpFLrUdcH47ZNcSmWiZhxrvMqoW68LvfGXJ +EvynIMoyNJWJ8ULzm/uGnwamvinJk/Fkrao3grOIJW1p7q2hAw52OU4/ywl 8M//6mEo6WeeeLdjnJrKw9K5s+D67a1LI3o7XsN8NnULmt3h+mY4/xQR+Kcm L0H8d9J3prwEEw4zhxrUvAQ0nH+KCPwzzyfge7mLDnaLGc6/tPWp6jm+4xTP OuXyNKyXbVj6pGhUtZ5qrbOLJJuFrbFlke52wLoHzj9vEfinpl7/rjSe9VSv f2Q79WykHfT6C+3ud3s6KFDsvLTme3PBI3ER558sAv8cn6H/Ft9IC2sXhPVO DgK/4vQcNTQt08MKl7dNO3gY8ocT0SZvxOiaYOFsb/mEH3DClSvm2bXPtcR4 bz9sDKsH/knD+ec2Av/U1KPPHH3desoXWlV25kCyFZzDXxfvsFr2qRxVb0j8 OJPZr3p+vTO+yOooSYaOLYzpajosV63b4/zzAYF/Jjs471k2OEwlb2WbDVCA yz3WLk8PHX1Otby/e0wSB/6BEVRXEvOrDvb1aNHJh1Lwgiqsd3ieHJuB/TgQ l2WmBd7UnP5VMk/WPCzfk7loldIdODDOP4sI/FNTzz0sYOfeKZ+n0XrH8+Y+ 0HNfVRcdePRZJ1p6mkIpbwQObIBqRVeym9AvTpv4x4PBJ7Ap7/ZV3hfVaGuf qTQ3CvhnCc4/Iwn8c2PMmzGXtHuo5t9zS8YMwNupTLgq12UOUQtMklYWJYC3 cxcr/ZiXzRjVJaHYZ8cAcPIvi27bNUqMMK9zMvvhDMj9bq7num0+Y4vJf/jM hVQJPlVdvLceu/1V/qmpny7QIvkW9upVMO0MnbyiwMPJWI0CnRruo4iMr7Md P9eB9xJ+wOa/ptWMWp6kLOf5Av/kRXkKVztcQ2m3n6dUPIY8ZEdKd5OkVYyG K4OHSNHAP6/orviTc/5G4Jy2+JzdjzBn/wNRCFhk "]], Axes->True, AxesLabel->{None, None, None}, AxesOrigin->{Automatic, Automatic, Automatic}, BoxRatios->{1, 1, 0.4}, DisplayFunction->Identity, FaceGrids->None, FaceGridsStyle->Automatic, Method->{"DefaultBoundaryStyle" -> Directive[ GrayLevel[0.3]], "RotationControl" -> "Globe"}, PlotRange->{{-40, 40}, {0, 50}, {-0.0000827255322092806, 0.0006560468474646232}}, PlotRangePadding->{ Scaled[0.02], Scaled[0.02], Scaled[0.02]}, Ticks->{Automatic, Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.785203023890944*^9, 3.785203993606455*^9, {3.785204194391522*^9, 3.785204211908334*^9}, 3.78520438597456*^9, {3.785204436417878*^9, 3.785204463153171*^9}, 3.785204523328392*^9, 3.785204685984922*^9},ExpressionUUID->"3cef3fb3-2330-459a-97de-\ 069db0e0a83c"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"-\\\", \ \\\"2.6574933312425904`\\\"}], \\\"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.9999998374971696`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"1.5254380766949773`*^-6\\\"}]\\) for the integral and \ error estimates.\"",2,717,21,24531285060607036166,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.785204686367442*^9},ExpressionUUID->"ec162ce2-0f1a-4f5a-b2a1-\ 3790f97c861b"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,717,22,24531285060607036166, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7852046867553864`*^9},ExpressionUUID->"b388708a-801d-4f85-bf98-\ a87e4603d979"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.15500666875740957`\\\", \\\ \"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.9796291712280777`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"6.8649513281381815`*^-6\\\"}]\\) for the integral and \ error estimates.\"",2,717,23,24531285060607036166,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7852046870427322`*^9},ExpressionUUID->"5e9a275c-8769-435f-a4ec-\ b26c2aad5b93"], Cell[BoxData[ TemplateBox[{ "NIntegrate","ncvb", "\"NIntegrate failed to converge to prescribed accuracy after \ \\!\\(\\*RowBox[{\\\"9\\\"}]\\) recursive bisections in \ \\!\\(\\*RowBox[{\\\"x\\\"}]\\) near \\!\\(\\*RowBox[{\\\"{\\\", \\\"x\\\", \ \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \\\"0.15500666875740957`\\\", \\\ \"}\\\"}]\\). NIntegrate obtained \ \\!\\(\\*RowBox[{\\\"0.5781003203224417`\\\"}]\\) and \ \\!\\(\\*RowBox[{\\\"0.00001536234471634736`\\\"}]\\) for the integral and \ error estimates.\"",2,717,24,24531285060607036166,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.785204687472097*^9},ExpressionUUID->"3baca08d-d5f0-4747-98f4-\ e100b67a1363"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"ncvb\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,717,25,24531285060607036166,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.785204687689927*^9},ExpressionUUID->"7e9f1f8b-6057-4f13-bd87-\ 52cb08ace66b"], Cell[BoxData[ TemplateBox[{ "NIntegrate","slwcon", "\"Numerical integration converging too slowly; suspect one of the \ following: singularity, value of the integration is 0, highly oscillatory \ integrand, or WorkingPrecision too small.\"",2,717,26,24531285060607036166, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.785204688071767*^9},ExpressionUUID->"9f38117d-366e-4162-a4c3-\ ec8b1c14be98"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "0.9999998374971696`", "}"}], ",", RowBox[{"{", "0.9796291712280777`", "}"}], ",", RowBox[{"{", "0.5781003203224417`", "}"}], ",", RowBox[{"{", "0.22805862200884808`", "}"}], ",", RowBox[{"{", "0.08410228103697567`", "}"}], ",", RowBox[{"{", "0.030428760582721325`", "}"}], ",", RowBox[{"{", "0.010998848832016454`", "}"}], ",", RowBox[{"{", "0.004155039154327292`", "}"}], ",", RowBox[{"{", "0.0020671195040305895`", "}"}], ",", RowBox[{"{", "0.00047523733252800366`", "}"}], ",", RowBox[{"{", "0.00008978713169766815`", "}"}], ",", RowBox[{"{", "0.00003133466134240432`", "}"}], ",", RowBox[{"{", "0.000020437531715544466`", "}"}], ",", RowBox[{"{", "0.000014059410687716455`", "}"}], ",", RowBox[{"{", "6.942981648698813`*^-6", "}"}], ",", RowBox[{"{", "4.193739873776197`*^-6", "}"}], ",", RowBox[{"{", "3.2852270202477797`*^-6", "}"}], ",", RowBox[{"{", "1.028195980518071`*^-6", "}"}], ",", RowBox[{"{", RowBox[{"-", "5.484663076056844`*^-7"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.415366274711726`*^-6"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.7164590482711373`*^-6"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.785203023890944*^9, 3.785203993606455*^9, {3.785204194391522*^9, 3.785204211908334*^9}, 3.78520438597456*^9, {3.785204436417878*^9, 3.785204463153171*^9}, 3.785204523328392*^9, 3.785204690078916*^9},ExpressionUUID->"7e7e1a24-0d5c-4a34-a774-\ a21d476931ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Flatten", "[", "%717", "]"}]], "Input", NumberMarks->False,ExpressionUUID->"c4d923a6-9189-46cd-a2e6-a400eb2a2c8b"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.9999998374971696`", ",", "0.9796291712280777`", ",", "0.5781003203224417`", ",", "0.22805862200884808`", ",", "0.08410228103697567`", ",", "0.030428760582721325`", ",", "0.010998848832016454`", ",", "0.004155039154327292`", ",", "0.0020671195040305895`", ",", "0.00047523733252800366`", ",", "0.00008978713169766815`", ",", "0.00003133466134240432`", ",", "0.000020437531715544466`", ",", "0.000014059410687716455`", ",", "6.942981648698813`*^-6", ",", "4.193739873776197`*^-6", ",", "3.2852270202477797`*^-6", ",", "1.028195980518071`*^-6", ",", RowBox[{"-", "5.484663076056844`*^-7"}], ",", RowBox[{"-", "1.415366274711726`*^-6"}], ",", RowBox[{"-", "1.7164590482711373`*^-6"}]}], "}"}]], "Output", CellChangeTimes->{ 3.785203023890944*^9, 3.785203993606455*^9, {3.785204194391522*^9, 3.785204211908334*^9}, 3.78520438597456*^9, {3.785204436417878*^9, 3.785204463153171*^9}, 3.785204523328392*^9, {3.785204690214343*^9, 3.785204701162403*^9}},ExpressionUUID->"7f373c8c-ca77-4e69-81ce-\ 79a53bdbce0d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "%719", "]"}]], "Input", NumberMarks->False,ExpressionUUID->"a80e4d93-3edd-4fe4-a108-83250e5b446c"], Cell[BoxData[ GraphicsBox[{{}, {{}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[CompressedData[" 1:eJxTTMoPSmViYGAQBWIQDQEf7D8fP7ji///39lABh7NWU9zkI2F8DodDH43s ztQ/gvIFHDKW9SSyGZ6F8kUcji2epLSrfSuUL+FQzGfXt11jPpQv43BnnnnD hLY2KF/BwfxQw5X7LIVQvpLD0yehoQLvE6B8FYflUYJnNVTtoXw1Bx0hP93m TnEoX8Mhdfufw6tyGaB8LYd19VY1Gnlf7SB8HQeP+j8bxGreQvl6Dg7ryp1/ yN2F8g0cFPyDC/5NuwjlGzrI7Gxc/qPvNJRv5LB15up8QYeNUL6xA9fdQC2v 9EX7IHwTh2dqZms/79sO5Zs67OVZvE7pzJ59AOEhXXM= "]]}, {}}, {}, {}, {{}, {}}, {{}, {}}}, 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" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{0., 21.}, {-1.7164590482711373`*^-6, 0.5701450127281494}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.785204703303597*^9},ExpressionUUID->"203ca3d2-c417-4763-94ee-\ d17c17294a71"] }, Open ]], Cell["\<\ The kenkre\[CloseCurlyQuote]s method of finding the answer to arbitrarily \ placed sink.\ \>", "Text", CellChangeTimes->{{3.786321784745689*^9, 3.786321809282011*^9}},ExpressionUUID->"95d5903a-4ae0-444c-a704-\ 42ba3154c513"], Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p1", "[", "x_", "]"}], "=", RowBox[{"a1", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", "l", " ", "\[Epsilon]"}], "\[CapitalGamma]"]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x", "/", "2"}], "l"}], ")"}]}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", "<", "x0"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p2", "[", "x_", "]"}], "=", RowBox[{ RowBox[{"b", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "+", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", "l", " ", "\[Epsilon]"}], "\[CapitalGamma]"]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x", "/", "2"}], "l"}], ")"}]}], "]"}]}], "+", RowBox[{"c", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", "l", " ", "\[Epsilon]"}], "\[CapitalGamma]"]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x", "/", "2"}], "l"}], ")"}]}], "]"}]}]}]}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{"x", ">", "x0"}], "&&", RowBox[{"x", "<", "a"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p3", "[", "x_", "]"}], "=", RowBox[{"d", "*", RowBox[{"Exp", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", "l", " ", "\[Epsilon]"}], "\[CapitalGamma]"]}], "]"}]}], ")"}], RowBox[{"(", RowBox[{ RowBox[{"x", "/", "2"}], "l"}], ")"}]}], "]"}]}]}], ";"}], RowBox[{"(*", RowBox[{"x", ">", "a"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn1", "=", RowBox[{ RowBox[{"p1", "[", "x0", "]"}], "\[Equal]", RowBox[{"p2", "[", "x0", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn2", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p2", "'"}], "[", "x0", "]"}], "-", RowBox[{ RowBox[{"p1", "'"}], "[", "x0", "]"}], "-", RowBox[{"p2", "[", "x0", "]"}], "+", RowBox[{"p1", "[", "x0", "]"}]}], "\[Equal]", RowBox[{"k0", "*", RowBox[{"p2", "[", "x0", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn3", "=", RowBox[{ RowBox[{"p2", "[", "a", "]"}], "\[Equal]", RowBox[{"p3", "[", "a", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"eqn4", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"p3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"p2", "'"}], "[", "a", "]"}], "+", RowBox[{"p3", "[", "a", "]"}], "+", RowBox[{"p2", "[", "a", "]"}]}], "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b", ",", "c", ",", "d"}], "}"}], "=", RowBox[{ RowBox[{"{", RowBox[{"a1", ",", "b", ",", "c", ",", "d"}], "}"}], "/.", RowBox[{"Flatten", "[", RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"p1", "[", "x0", "]"}], "\[Equal]", RowBox[{"p2", "[", "x0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"d", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"p2", "'"}], "[", "x0", "]"}], "-", RowBox[{ RowBox[{"p1", "'"}], "[", "x0", "]"}]}], ")"}]}], "+", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"p2", "[", "x0", "]"}]}], "+", RowBox[{"p1", "[", "x0", "]"}]}], ")"}]}]}], "\[Equal]", RowBox[{"-", "1"}]}], ",", RowBox[{ RowBox[{"p2", "[", "a", "]"}], "\[Equal]", RowBox[{"p3", "[", "a", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"d", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"p3", "'"}], "[", "a", "]"}], "-", RowBox[{ RowBox[{"p2", "'"}], "[", "a", "]"}]}], ")"}]}], "+", RowBox[{"\[CapitalGamma]", RowBox[{"(", RowBox[{ RowBox[{"p3", "[", "a", "]"}], "+", RowBox[{"p2", "[", "a", "]"}]}], ")"}]}]}], "\[Equal]", "0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a1", ",", "b", ",", "c", ",", "d"}], "}"}]}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "a", "]"}], ";"}], "\[IndentingNewLine]", "a", "\[IndentingNewLine]", RowBox[{"p1", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"p1", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "a", "]"}], "\[IndentingNewLine]", "a", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"p2", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"p2", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "a", "]"}], "\[IndentingNewLine]", "a", "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"p3", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"p3", "[", "x", "]"}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.7863218499760303`*^9, 3.786321865506517*^9}, { 3.786321909363256*^9, 3.7863219712749033`*^9}, {3.786322086843354*^9, 3.7863220888646383`*^9}, {3.786322134365305*^9, 3.7863222139735394`*^9}, { 3.786322325548993*^9, 3.786322362965716*^9}, {3.786322396883007*^9, 3.786322528845744*^9}, {3.78632256199886*^9, 3.786322613427842*^9}, { 3.786322769943301*^9, 3.786322835529126*^9}, {3.786322880704687*^9, 3.7863229465817833`*^9}, {3.786323037646517*^9, 3.786323087146287*^9}, { 3.7863231443101997`*^9, 3.786323234846613*^9}, {3.78632327769739*^9, 3.78632330789157*^9}, {3.786323339061455*^9, 3.7863233596474333`*^9}, { 3.786323414969571*^9, 3.7863236751475983`*^9}, 3.786323728068438*^9, { 3.78632382555271*^9, 3.786323852763212*^9}, {3.7863239121436377`*^9, 3.7863239215558043`*^9}, {3.786324310910952*^9, 3.786324356829074*^9}, { 3.78632549802607*^9, 3.7863255563506117`*^9}, {3.786326258514151*^9, 3.786326260899972*^9}, {3.7863268231182823`*^9, 3.786326846446766*^9}, { 3.7863270799005213`*^9, 3.786327095332102*^9}, {3.7863273156316853`*^9, 3.786327350043871*^9}, 3.7863289146740513`*^9},ExpressionUUID->"a3d628b1-920d-4971-a270-\ a8d44ff3c0f4"], Cell["Taking Inverse Laplace transform of the kenkre solution", "Text", CellChangeTimes->{{3.786366401091794*^9, 3.786366417099286*^9}},ExpressionUUID->"28c9c20d-f19a-4048-b5a3-\ 69315fcc8315"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "x0_", ",", "s_"}], "]"}], "=", RowBox[{ FractionBox[ RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "-", RowBox[{"Abs", "[", "x0", "]"}]}], ")"}], RowBox[{"2", "l"}]]}], "]"}], RowBox[{"\[CapitalGamma]", " ", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", " ", "l", " ", "s"}], "\[CapitalGamma]"]}], "]"}]}]], RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", " ", "l", " ", "s"}], "\[CapitalGamma]"]}], "]"}]}], FractionBox[ RowBox[{"Abs", "[", RowBox[{"x", "-", "x0"}], "]"}], RowBox[{"2", "l"}]]}], "]"}], "+", RowBox[{"0", FractionBox[ RowBox[{"Exp", "[", RowBox[{ RowBox[{"-", RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", "l", " ", "s"}], "\[CapitalGamma]"]}], "]"}]}], FractionBox[ RowBox[{"(", RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "+", RowBox[{"Abs", "[", "x0", "]"}]}], ")"}], RowBox[{"2", "l"}]]}], "]"}], RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"1", "+", FractionBox[ RowBox[{"4", " ", "l", " ", "s"}], "\[CapitalGamma]"]}], "]"}], "-", "1"}]]}]}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"P", "[", RowBox[{"x", ",", "x0", ",", "s"}], "]"}], ",", "s", ",", "t"}], "]"}]}], "Input", CellChangeTimes->{{3.786366421527163*^9, 3.7863666291838903`*^9}, { 3.786366661881709*^9, 3.786366697086*^9}},ExpressionUUID->"8ede492a-e833-471a-b2be-03a4669c141a"], Cell[BoxData[ FractionBox[ RowBox[{"InverseLaplaceTransform", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{ SqrtBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"4", " ", "l", " ", "s"}], "\[CapitalGamma]"]}]], " ", RowBox[{"Abs", "[", RowBox[{"x", "-", "x0"}], "]"}]}], RowBox[{"2", " ", "l"}]]}], "-", FractionBox[ RowBox[{ RowBox[{"Abs", "[", "x", "]"}], "-", RowBox[{"Abs", "[", "x0", "]"}]}], RowBox[{"2", " ", "l"}]]}]], SqrtBox[ RowBox[{"1", "+", FractionBox[ RowBox[{"4", " ", "l", " ", "s"}], "\[CapitalGamma]"]}]]], ",", "s", ",", "t"}], "]"}], "\[CapitalGamma]"]], "Output", CellChangeTimes->{{3.786366699289221*^9, 3.786366708650159*^9}},ExpressionUUID->"a2b195be-3dbe-4862-9d72-\ 982e16228335"] }, Open ]], Cell[BoxData[{ RowBox[{"THe", " ", "initial", " ", "condition", " ", "test"}], "\n", RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";", RowBox[{ RowBox[{"P", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", RowBox[{"x0", "+", "a"}], "]"}]}], "-", RowBox[{"2", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"x0", "+", "a"}], "]"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", " ", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "/.", RowBox[{"t", "\[Rule]", RowBox[{"t", "/", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"P", "[", RowBox[{"x", ",", "0"}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"x", "=", RowBox[{"-", "x0"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Simplify", "[", RowBox[{"P", "[", RowBox[{"x", ",", "0"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Clear", "[", "x", "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", ">", "a"}], "&&", RowBox[{"x0", ">", RowBox[{"-", "a"}]}]}], ",", RowBox[{"Simplify", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", RowBox[{"x0", "+", "a"}], "]"}]}], "-", RowBox[{"2", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"x0", "+", "a"}], "]"}]}]}], ")"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "<", "a"}], "&&", RowBox[{"x0", ">", RowBox[{"-", "a"}]}]}], ",", RowBox[{"Simplify", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", RowBox[{"x0", "+", "a"}], "]"}]}], "-", RowBox[{"2", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"x0", "+", "a"}], "]"}]}]}], ")"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", ">", "a"}], "&&", RowBox[{"x0", "<", RowBox[{"-", "a"}]}]}], ",", RowBox[{"Simplify", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", RowBox[{"x0", "+", "a"}], "]"}]}], "-", RowBox[{"2", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"x0", "+", "a"}], "]"}]}]}], ")"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Assuming", "[", RowBox[{ RowBox[{ RowBox[{"x", "<", "a"}], "&&", RowBox[{"x0", "<", RowBox[{"-", "a"}]}]}], ",", RowBox[{"Simplify", "[", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}], "-", RowBox[{"x0", "*", RowBox[{"RealSign", "[", RowBox[{"x0", "+", "a"}], "]"}]}], "-", RowBox[{"2", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"x0", "+", "a"}], "]"}]}]}], ")"}], "]"}]}], "]"}], "\n", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "2"], RowBox[{"4", " ", SuperscriptBox["\[Sigma]", "2"]}]]}], "-", RowBox[{"g", " ", RowBox[{"(", RowBox[{ RowBox[{"x", " ", RowBox[{"RealSign", "[", RowBox[{ RowBox[{"-", "a"}], "+", "x"}], "]"}]}], "-", RowBox[{"x0", " ", RowBox[{"RealSign", "[", RowBox[{"a", "+", "x0"}], "]"}]}], "+", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "-", "x"}], "]"}]}], "-", RowBox[{"2", " ", "a", " ", RowBox[{"UnitStep", "[", RowBox[{"a", "+", "x0"}], "]"}]}]}], ")"}]}]}]], RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ SuperscriptBox["\[Sigma]", "2"]]}]], "\n", FractionBox["1", RowBox[{"2", " ", SqrtBox["\[Pi]"], " ", SqrtBox[ SuperscriptBox["\[Sigma]", "2"]]}]], "\n", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "a"}], "+", "x", "-", "x0"}], "\n", RowBox[{ RowBox[{"-", "x"}], "-", "x0"}], "\n", RowBox[{"x", "+", "x0"}], "\n", RowBox[{ RowBox[{"2", " ", "a"}], "-", "x", "+", "x0"}], "\n", RowBox[{ RowBox[{"\\", "exp", "\\", "left"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\\", "text"}]}], RowBox[{ RowBox[{"{", "x0", "}"}], "\\", "text"}], RowBox[{"{", "sgn", "}"}], RowBox[{"(", RowBox[{ RowBox[{"-", "a"}], "-", RowBox[{ RowBox[{"\\", "text"}], RowBox[{"{", "x0", "}"}]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"a", "\\", "theta"}], " ", RowBox[{"(", RowBox[{"a", "+", RowBox[{ RowBox[{"\\", "text"}], RowBox[{"{", "x0", "}"}]}]}], ")"}]}], "+", RowBox[{"\\", "left"}]}], "|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\\", "text"}], RowBox[{"{", "x0", "}"}], "\\r", "ight"}], "|"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"g", "^", "2"}], " ", "t", "\\r", "ight"}]}], ")"}]}], "\n", RowBox[{"TeXForm", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"-", "g"}], "*", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"RealSign", "[", RowBox[{"x", "-", "a"}], "]"}]}], "+", RowBox[{"2", "a", "*", RowBox[{"UnitStep", "[", RowBox[{ RowBox[{"-", "x"}], "+", "a"}], "]"}]}]}], ")"}], "+", RowBox[{"RealAbs", "[", "x0", "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"g", "^", "2"}], "d", "*", "t"}]}], "]"}], "/", RowBox[{"Sqrt", "[", RowBox[{"4", "\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}], ")"}], RowBox[{"Exp", "[", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], "/", RowBox[{"(", RowBox[{"4", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]}], ")"}]}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{ RowBox[{"\\", "frac"}], RowBox[{"{", RowBox[{ RowBox[{"\\", "exp", "\\", "left"}], RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "g"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"x", "\\", "text"}], RowBox[{"{", "sgn", "}"}], RowBox[{"(", RowBox[{"x", "-", "a"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{"a", "\\", "theta"}], " ", RowBox[{"(", RowBox[{"a", "-", "x"}], ")"}]}], "+", RowBox[{"\\", "left"}]}], "|", "\[IndentingNewLine]", RowBox[{ RowBox[{"\\", "text"}], RowBox[{"{", "x0", "}"}], "\\r", "ight"}], "|"}], ")"}]}], "-", RowBox[{"d", " ", RowBox[{"g", "^", "2"}], " ", "t"}], "-", RowBox[{ RowBox[{"\\", "frac"}], RowBox[{"{", RowBox[{ RowBox[{"(", RowBox[{"x", "+", RowBox[{ RowBox[{"\\", "text"}], RowBox[{"{", "x0", "}"}]}]}], ")"}], "^", "2"}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"4", "\\", "left"}], RowBox[{"(", RowBox[{ RowBox[{"d", " ", "t"}], "+", RowBox[{ RowBox[{"\\", RowBox[{"sigma", "^", "2"}]}], "\\r", "ight"}]}], ")"}]}], "}"}], "\\r", "ight"}]}], ")"}]}], "}"}], RowBox[{"{", RowBox[{ RowBox[{"2", "\\", "sqrt"}], RowBox[{ RowBox[{"{", RowBox[{"\\", "pi"}], "}"}], "\\", "sqrt"}], RowBox[{"{", RowBox[{ RowBox[{"d", " ", "t"}], "+", RowBox[{"\\", RowBox[{"sigma", "^", "2"}]}]}], "}"}]}], "}"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.786428401364769*^9, 3.7864284014722977`*^9}, 3.7864304193945227`*^9},ExpressionUUID->"9d232dbe-d405-4df0-8795-\ 907fc6d5328b"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearAll", "[", "\"\\"", "]"}], ";", RowBox[{ RowBox[{"Pe", "[", RowBox[{"x_", ",", "t_"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"(", FractionBox["1", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"\[Pi]", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "]"}]}]], ")"}], RowBox[{"Exp", "[", RowBox[{"-", FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"x", "+", "x0"}], ")"}], "^", "2"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]]}], "]"}]}], "+", RowBox[{ FractionBox["k2", RowBox[{"4", "d"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"Sign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"x", "*", RowBox[{"Sign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", RowBox[{"2", "\[Epsilon]2"}]}], "]"}]}], "+", RowBox[{"Erf", "[", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "*", RowBox[{"Sign", "[", RowBox[{"x", "-", "b"}], "]"}]}], "+", RowBox[{"2", "b", "*", RowBox[{"Unit", "[", RowBox[{"b", "-", "x"}], "]"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}], ")"}]}], ")"}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Heaviside", "[", RowBox[{"a", "-", "x"}], "]"}], RowBox[{"(", RowBox[{ RowBox[{ FractionBox["k1", RowBox[{"4", "d"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", RowBox[{"2", "\[Epsilon]2"}]}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "-", RowBox[{ FractionBox["k1", RowBox[{"4", "d"}]], RowBox[{"Exp", "[", RowBox[{ RowBox[{ RowBox[{"\[Epsilon]2", "^", "2"}], "*", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], "+", RowBox[{"\[Epsilon]2", RowBox[{"(", RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], ")"}]}]}], "]"}], RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"RealSign", "[", RowBox[{ FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"(", RowBox[{"2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}], ")"}]], "+", RowBox[{"2", "\[Epsilon]2"}]}], "]"}]}], "+", RowBox[{"Erf", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0", "+", RowBox[{"2", "\[Epsilon]2", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}]}]}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["\[Epsilon]1", "2"], RowBox[{"(", RowBox[{ RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "+", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "b"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{"x", "+", RowBox[{"2", RowBox[{"(", RowBox[{"b", "-", "a"}], ")"}]}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}], "-", RowBox[{"Erfc", "[", FractionBox[ RowBox[{ RowBox[{"-", "x"}], "+", RowBox[{"2", "a"}], "+", "x0"}], RowBox[{"2", RowBox[{"Sqrt", "[", RowBox[{"(", RowBox[{ RowBox[{"\[Sigma]", "^", "2"}], "+", " ", RowBox[{"d", " ", "t"}]}], ")"}], "]"}]}]], "]"}]}], ")"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TeXForm", "[", RowBox[{"Pe", "[", RowBox[{"x", ",", "t"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.787660567673842*^9, 3.7876606392691097`*^9}},ExpressionUUID->"d17ecb59-92e5-4e46-ba45-\ 126b9641901c"], Cell["\<\ \\text{Heaviside}(a-x) \\left(-\\frac{\\text{k1} \\exp \\left(\\text{$\\epsilon $2} (2 (b-a)+x+\\text{x0})+\\text{$\\epsilon $2}^2 \\left(d t+\\sigma ^2\\right)\\right) \\left(\\text{erf}\\left(\\frac{2 (b-a)+2 \\text{$\\epsilon $2} \\left(d t+\\sigma ^2\\right)+x+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)-\\text{sgn}\\left(\\frac{2 (b-a)+x+\\text{x0}}{2 \\left(\\sigma ^2+d t\\right)}+2 \\text{$\\epsilon $2}\\right)\\right)}{4 d}+\\frac{1}{2} \\text{$\\epsilon $1} \\left(-\\text{erfc}\\left(\\frac{2 (b-a)+x+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)-\\text{erfc}\\left(\\frac{2 a-x+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)+\\text{erfc}\\left(\\frac{2 b-x+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)+\\text{erfc}\\left(\\frac{x+\\text{ x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)\\right)+\\frac{\\text{k1} e^{\\text{$\\epsilon $2} (2 b-x+\\text{x0})+\\text{$\\epsilon $2}^2 \\left(d t+\\sigma ^2\\right)} \\left(\\text{erf}\\left(\\frac{2 b+2 \\text{$\\epsilon $2} \\left(d t+\\sigma ^2\\right)-x+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)-\\text{sgn}\\left(\\frac{2 b-x+\\text{x0}}{2 \\left(\\sigma ^2+d t\\right)}+2 \\text{$\\epsilon $2}\\right)\\right)}{4 d}\\right)+\\frac{\\text{k2} \\exp \\left(\\text{$\\epsilon $2} (x \\text{sgn}(x-b)+2 b \\text{Unit}(b-x)+\\text{x0})+\\text{$\\epsilon $2}^2 \\left(d t+\\sigma ^2\\right)\\right) \\left(\\text{erf}\\left(\\frac{x \\text{sgn}(x-b)+2 b \\text{Unit}(b-x)+2 \\text{$\\epsilon $2} \\left(d t+\\sigma ^2\\right)+\\text{x0}}{2 \\sqrt{d t+\\sigma ^2}}\\right)-\\text{sgn}\\left(2 \\text{$\\epsilon $2}+\\frac{\\text{x0}+x \\text{sgn}(x-b)+2 b \\text{Unit}(b-x)}{2 \\left(\\sigma ^2+d t\\right)}\\right)\\right)}{4 d}+\\frac{e^{-\\frac{(x+\\text{x0})^2}{4 \\left(d t+\\sigma ^2\\right)}}}{2 \\sqrt{\\pi } \\sqrt{d t+\\sigma ^2}}\ \>", "Output", CellChangeTimes->{{3.7876606321320972`*^9, 3.787660641703929*^9}},ExpressionUUID->"94726ad7-11d7-4fe9-9482-\ d62310a8a7f1"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{ 3.788768080652904*^9},ExpressionUUID->"163e8c0b-84d5-4b51-a3d5-\ 59a40907aa23"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,44,18,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080696671*^9},ExpressionUUID->"5d14a498-9907-4574-b2d3-\ c05f062238b6"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,44,19,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080725173*^9},ExpressionUUID->"d2a9fca4-dfbd-4826-b34c-\ 470343bef9bd"], Cell[BoxData[ TemplateBox[{ "ReplaceAll","reps", "\"\\!\\(\\*RowBox[{\\\"{\\\", \\\"res\\\", \\\"}\\\"}]\\) is neither a \ list of replacement rules nor a valid dispatch table, and so cannot be used \ for replacing.\"",2,44,20,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080758469*^9},ExpressionUUID->"4f29e01e-28d1-4386-8fe5-\ 7b3e9dfa2ea8"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"ReplaceAll\\\", \ \\\"::\\\", \\\"reps\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"",2,44,21,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080786687*^9},ExpressionUUID->"31dae731-e856-4a51-adaf-\ 36a1d1fa821e"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"1\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,44, 22,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.7887680808074913`*^9},ExpressionUUID->"402bed91-efd3-4518-9278-\ 5f8675a8a405"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"2\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,44, 23,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080828579*^9},ExpressionUUID->"aab555f6-ec26-48c1-b29d-\ ba2044d21000"], Cell[BoxData[ TemplateBox[{ "NIntegrate","inumr", "\"The integrand \\!\\(\\*RowBox[{RowBox[{\\\"Pe\\\", \\\"[\\\", \ RowBox[{\\\"x\\\", \\\",\\\", \\\"3\\\"}], \\\"]\\\"}], \\\"/.\\\", \\\"\ \[VeryThinSpace]\\\", \\\"res\\\"}]\\) has evaluated to non-numerical values \ for all sampling points in the region with boundaries \ \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \ \\\"20\\\"}], \\\",\\\", \\\"20\\\"}], \\\"}\\\"}], \\\"}\\\"}]\\).\"",2,44, 24,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080850058*^9},ExpressionUUID->"8b25fc0e-6e5e-4755-ada3-\ b59c512ec7c9"], Cell[BoxData[ TemplateBox[{ "General","stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"NIntegrate\\\", \ \\\"::\\\", \\\"inumr\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"",2,44,25,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768080870409*^9},ExpressionUUID->"febb637c-450e-40ae-883f-\ 203f180f2e04"], Cell[BoxData["$Aborted"], "Output", CellChangeTimes->{ 3.7887680813940153`*^9},ExpressionUUID->"71496947-96f2-49fb-9908-\ 36700775370d"], Cell[BoxData[ TemplateBox[{ "ListPlot","lpn", "\"\\!\\(\\*RowBox[{\\\"$Aborted\\\"}]\\) is not a list of numbers or \ pairs of numbers.\"",2,45,26,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768081617505*^9},ExpressionUUID->"99362995-bce7-4c59-ad3a-\ 4124d9f2f429"], Cell[BoxData[ RowBox[{"ListPlot", "[", "$Aborted", "]"}]], "Output", CellChangeTimes->{ 3.788768081652034*^9},ExpressionUUID->"6af513c5-74ca-4ca7-9671-\ ff5daa10fd0c"], Cell[BoxData[ TemplateBox[{ "Show","gtype", "\"\\!\\(\\*RowBox[{\\\"ListPlot\\\"}]\\) is not a type of graphics.\"",2, 46,27,24554672211970007265,"Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{ 3.788768081659672*^9},ExpressionUUID->"b57e34ad-1a98-48e8-909b-\ d2e5ecae62e3"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"ListPlot", "[", "$Aborted", "]"}], "]"}]], "Output", CellChangeTimes->{ 3.788768081690974*^9},ExpressionUUID->"ad79396a-f0fd-4c01-8839-\ 5d7497b57345"] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->{1371, 929}, WindowMargins->{{150, Automatic}, {0, Automatic}}, FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "00004AC9"->{ Cell[2769915, 60750, 1714, 176, 370, "Reference", "ExpressionUUID" -> "7d533f1f-9c9d-41a7-9bed-e05880913a15", CellTags->{"00007D89", "00004AC9", "000080DE"}]}, "00007D89"->{ Cell[2769915, 60750, 1714, 176, 370, "Reference", "ExpressionUUID" -> "7d533f1f-9c9d-41a7-9bed-e05880913a15", CellTags->{"00007D89", "00004AC9", "000080DE"}]}, "000080DE"->{ Cell[2769915, 60750, 1714, 176, 370, "Reference", "ExpressionUUID" -> "7d533f1f-9c9d-41a7-9bed-e05880913a15", CellTags->{"00007D89", "00004AC9", "000080DE"}]} } *) (*CellTagsIndex CellTagsIndex->{ {"00004AC9", 3713877, 81028}, {"00007D89", 3714060, 81032}, {"000080DE", 3714243, 81036} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 230, 6, 150, "Title", "ExpressionUUID" -> \ "7de4687e-ca31-4f2d-bba6-f7aab0817087"], Cell[813, 30, 1092, 20, 173, "Section", "ExpressionUUID" -> \ "75e5b042-8674-4d99-8ee4-e3cb5ac361a9"], Cell[CellGroupData[{ Cell[1930, 54, 2906, 42, 294, "Section", "ExpressionUUID" -> \ "c87f93cf-0dcb-4f73-9f34-8e8d383ad4b7"], Cell[4839, 98, 1509, 48, 80, "Input", "ExpressionUUID" -> \ "03c0ba70-5edf-4743-bdb9-145b82710ec9"] }, Open ]], Cell[CellGroupData[{ Cell[6385, 151, 3863, 59, 301, "Section", "ExpressionUUID" -> \ "5d46f492-e607-4a8b-b76b-a0c22979af24"], Cell[10251, 212, 1717, 52, 106, "Input", "ExpressionUUID" -> \ "c3c1292a-2949-4e4d-ba87-3a5bac820c2d"], Cell[11971, 266, 17747, 420, 294, "Input", "ExpressionUUID" -> \ "4498ecd0-f893-4cc9-8103-1c0ba051be4e"], Cell[29721, 688, 234, 6, 33, "Text", "ExpressionUUID" -> \ "e8392f6a-942e-48af-9c12-04c7e1de8547"], Cell[CellGroupData[{ Cell[29980, 698, 192, 3, 45, "Subsection", "ExpressionUUID" -> \ "dd726767-7335-4721-899f-8c112a92c114"], Cell[30175, 703, 1814, 55, 115, "Input", "ExpressionUUID" -> \ "170d3458-057d-4baf-9d70-0b524ef8bc9e"], Cell[31992, 760, 369, 8, 33, "Text", "ExpressionUUID" -> \ "31762c42-5b4b-4b1a-98c5-dee879152017"], Cell[32364, 770, 1608, 50, 108, "Input", "ExpressionUUID" -> \ "2d95f868-5b38-47b2-8854-3e0ca733357b"], Cell[33975, 822, 182, 4, 32, "Input", "ExpressionUUID" -> \ "26c043ff-b750-4945-82cd-af81fdb5e3fb"], Cell[34160, 828, 210, 4, 33, "Text", "ExpressionUUID" -> \ "a6d71006-5530-45de-b490-e631b63590b2"], Cell[34373, 834, 2213, 77, 112, "Input", "ExpressionUUID" -> \ "1bf469c2-5ebf-486d-8c36-6d1980c93651"], Cell[36589, 913, 246, 4, 33, "Text", "ExpressionUUID" -> \ "330dca57-b828-4c7a-9d69-a2759f309943"], Cell[CellGroupData[{ Cell[36860, 921, 6962, 178, 329, "Input", "ExpressionUUID" -> \ "a90f6498-81e4-4f7d-a972-d9276ed6c34a"], Cell[43825, 1101, 1260, 34, 73, "Output", "ExpressionUUID" -> \ "c51dc4ab-8063-4ae7-8f31-5e6390763e18"], Cell[45088, 1137, 416, 7, 24, "Print", "ExpressionUUID" -> \ "eb994e69-696d-43ea-8474-caabbc103aa2"], Cell[45507, 1146, 560, 9, 32, "Output", "ExpressionUUID" -> \ "72c45172-0b99-4bda-865e-54532f687bf0"], Cell[46070, 1157, 560, 9, 32, "Output", "ExpressionUUID" -> \ "e9482f88-d480-4e9b-b51a-6755dd73f59d"], Cell[46633, 1168, 560, 9, 32, "Output", "ExpressionUUID" -> \ "901020d3-39b4-4c73-a086-a12d1895c83f"], Cell[47196, 1179, 357, 6, 24, "Print", "ExpressionUUID" -> \ "c1becc4f-8464-41f1-919d-34b87e1c9314"], Cell[47556, 1187, 837, 20, 68, "Output", "ExpressionUUID" -> \ "a44506bb-9140-4fa0-973b-d538bb2f3ef6"] }, Open ]], Cell[48408, 1210, 400, 7, 33, "Text", "ExpressionUUID" -> \ "4d7713ca-5633-47c1-bf8a-a8fac5f74dc5"], Cell[48811, 1219, 1305, 39, 90, "Input", "ExpressionUUID" -> \ "4fc4d5e5-03cd-46a5-8363-f1478e38818d"], Cell[50119, 1260, 864, 17, 55, "Text", "ExpressionUUID" -> \ "03dd1800-322f-4f17-a77d-3256bb286903"], Cell[CellGroupData[{ Cell[51008, 1281, 14556, 379, 806, "Input", "ExpressionUUID" -> \ "39cb6a4e-0bdd-425c-9cb1-323f213dea20"], Cell[65567, 1662, 1041, 15, 24, "Print", "ExpressionUUID" -> \ "21ff88ee-44cb-4674-8131-fbdb7048669a"], Cell[66611, 1679, 988, 15, 32, "Output", "ExpressionUUID" -> \ "bf7a30e2-54de-472c-b9f6-5aa721a2f571"], Cell[67602, 1696, 1028, 15, 24, "Print", "ExpressionUUID" -> \ "a1598f1f-e042-474f-a8b2-d8a951c5b3f8"], Cell[68633, 1713, 988, 15, 32, "Output", "ExpressionUUID" -> \ "409fffd2-2a94-4356-9d66-331ee40e1315"], Cell[69624, 1730, 1031, 15, 24, "Print", "ExpressionUUID" -> \ "856530e4-792e-4df7-93c1-f70a77d19c77"], Cell[70658, 1747, 986, 15, 32, "Output", "ExpressionUUID" -> \ "db9514cf-d0bb-43c9-a8b6-0cb957974d95"], Cell[71647, 1764, 1033, 15, 24, "Print", "ExpressionUUID" -> \ "f9346164-f157-4289-9626-960105ee4f36"], Cell[72683, 1781, 990, 15, 32, "Output", "ExpressionUUID" -> \ "4cfc9dc4-daff-430b-bee0-971484755625"], Cell[73676, 1798, 1066, 16, 24, "Print", "ExpressionUUID" -> \ "d3612ef1-f302-43f0-964a-ab0b8c7ffb34"], Cell[74745, 1816, 129054, 2289, 254, "Output", "ExpressionUUID" -> \ "01243c5d-ef8a-4a36-a545-59d90790de61"] }, Open ]], Cell[203814, 4108, 177, 3, 32, "Input", "ExpressionUUID" -> \ "ec79c726-6dfc-4281-953f-8a672ac7f2ce"], Cell[203994, 4113, 715, 12, 77, "Text", "ExpressionUUID" -> \ "a71fba33-d29e-4202-afa1-2905a03bc7f9"], Cell[204712, 4127, 1099, 32, 62, "Input", "ExpressionUUID" -> \ "7828c872-6a1d-4711-9ce1-dc1bd647fc48"], Cell[205814, 4161, 261, 6, 33, "Text", "ExpressionUUID" -> \ "8c75f060-1cb1-4f0c-8094-5bf42f82763e"], Cell[CellGroupData[{ Cell[206100, 4171, 30575, 801, 1388, "Input", "ExpressionUUID" -> \ "519492b8-0ebd-4897-a4e9-9ca77539fb50"], Cell[CellGroupData[{ Cell[236700, 4976, 269, 4, 24, "Print", "ExpressionUUID" -> \ "2b9a5c94-c2ca-4d67-886d-e8ba6bada002"], Cell[236972, 4982, 276, 4, 24, "Print", "ExpressionUUID" -> \ "1350f7af-64e3-426d-b4ce-a05595ec4d0e"], Cell[237251, 4988, 309, 5, 24, "Print", "ExpressionUUID" -> \ "546b73c3-4c6d-4186-8a7c-028cf36d25a3"] }, Open ]], Cell[237575, 4996, 245, 4, 32, "Output", "ExpressionUUID" -> \ "7151caed-1aad-4fd7-a206-379528c96d49"], Cell[237823, 5002, 247, 4, 32, "Output", "ExpressionUUID" -> \ "a9cf5d05-2d06-49b5-95f1-0df292a014bb"], Cell[CellGroupData[{ Cell[238095, 5010, 290, 4, 24, "Print", "ExpressionUUID" -> \ "8a6cb7e7-00d3-4246-a3ee-a6e8d18b7848"], Cell[238388, 5016, 269, 4, 24, "Print", "ExpressionUUID" -> \ "896ce4b6-8973-4d0d-a972-48f2e7b8e912"], Cell[238660, 5022, 332, 5, 24, "Print", "ExpressionUUID" -> \ "9cfaf94f-4af7-4ef8-b2f0-3f8c8e5f754d"] }, Open ]], Cell[239007, 5030, 245, 4, 32, "Output", "ExpressionUUID" -> \ "46d42c28-7d80-4d26-9bbb-53bfd1c43a69"], Cell[239255, 5036, 281, 4, 24, "Print", "ExpressionUUID" -> \ "9e6a7a36-efb2-42b6-ab66-33a07f484250"], Cell[239539, 5042, 807, 23, 56, "Output", "ExpressionUUID" -> \ "a5a82343-ff9e-4518-b1d6-2206900ed033"], Cell[240349, 5067, 147807, 2610, 256, "Output", "ExpressionUUID" -> \ "1ec8b475-1281-40f7-8bd2-48a052d180fc"] }, Open ]], Cell[388171, 7680, 337, 7, 33, "Text", "ExpressionUUID" -> \ "35775a33-0f3d-41a8-8593-795cb0e29893"], Cell[388511, 7689, 1333, 39, 62, "Input", "ExpressionUUID" -> \ "7bdaaefb-0963-47f5-8ad8-cfdc82e75ef0"], Cell[389847, 7730, 1241, 32, 55, "Text", "ExpressionUUID" -> \ "9571580b-cd2f-4f28-b4f2-0df512131fd9"], Cell[391091, 7764, 1208, 38, 62, "Input", "ExpressionUUID" -> \ "c664313d-9a71-44db-9c97-1af8a704ddb8"], Cell[392302, 7804, 240, 6, 33, "Text", "ExpressionUUID" -> \ "977d60d3-ce6a-4fb0-8c33-0f92559fac0b"], Cell[392545, 7812, 1360, 44, 62, "Input", "ExpressionUUID" -> \ "d6235ad4-a5b9-4c31-b2c4-bd870cdd1131"], Cell[393908, 7858, 217, 5, 33, "Text", "ExpressionUUID" -> \ "3aab463a-8a25-4edd-8c26-9d7f7160bd04"], Cell[394128, 7865, 1006, 32, 62, "Input", "ExpressionUUID" -> \ "62a3abd4-6c4a-4993-991d-4d89e5ed5a3a"], Cell[395137, 7899, 233, 6, 33, "Text", "ExpressionUUID" -> \ "97336d5c-8375-4141-9b85-e3b3ebb92c4b"], Cell[395373, 7907, 796, 27, 59, "Input", "ExpressionUUID" -> \ "d21345ca-013f-48af-a3f8-e9d8d98c1c0a"], Cell[396172, 7936, 452, 8, 55, "Text", "ExpressionUUID" -> \ "eacfa4b4-8b23-4569-a79c-173836620ac0"], Cell[CellGroupData[{ Cell[396649, 7948, 24903, 698, 1427, "Input", "ExpressionUUID" -> \ "0433282e-a2e3-48b9-bb9c-6c90064f71ba"], Cell[421555, 8648, 2782, 56, 52, "Output", "ExpressionUUID" -> \ "53f8c7a0-2d2a-4b19-b0cd-9ef91ff11ea5"], Cell[424340, 8706, 2456, 44, 45, "Output", "ExpressionUUID" -> \ "845f520c-1ca3-47f0-9f93-101bee519317"], Cell[426799, 8752, 3063, 65, 52, "Output", "ExpressionUUID" -> \ "54ac7fde-315c-4619-8e71-f8485ecdcbb0"], Cell[429865, 8819, 2456, 44, 45, "Output", "ExpressionUUID" -> \ "e689d103-89e8-4ad3-b6bb-3cc979236a1d"], Cell[432324, 8865, 2100, 30, 24, "Print", "ExpressionUUID" -> \ "4644b2b7-4a76-4581-8815-9654965ece1f"], Cell[434427, 8897, 2671, 50, 57, "Output", "ExpressionUUID" -> \ "c3585adf-0a66-4edd-a8c0-71a6a4ac5862"], Cell[437101, 8949, 2108, 30, 24, "Print", "ExpressionUUID" -> \ "03aa69d4-0fd6-450f-835e-75be0ed14dd5"], Cell[439212, 8981, 2681, 50, 57, "Output", "ExpressionUUID" -> \ "e2f0f882-988c-4c29-8897-5bc8ad8cf911"], Cell[441896, 9033, 3220, 70, 73, "Output", "ExpressionUUID" -> \ "95afb65e-a819-464e-b120-ed724548e103"], Cell[445119, 9105, 3223, 70, 73, "Output", "ExpressionUUID" -> \ "6fd9cb47-ff1f-46fd-86bb-830181e44c28"], Cell[448345, 9177, 2096, 30, 24, "Print", "ExpressionUUID" -> \ "87d09495-aa2a-4c18-98e3-5337eacc34f5"], Cell[450444, 9209, 2068, 30, 32, "Output", "ExpressionUUID" -> \ "41b23063-10fa-4ce8-9739-0d1a85d839a4"], Cell[452515, 9241, 2108, 30, 24, "Print", "ExpressionUUID" -> \ "1fe16a11-6be2-435a-aeeb-2cb04dc86561"], Cell[454626, 9273, 2630, 49, 56, "Output", "ExpressionUUID" -> \ "96002f7a-afdc-426d-b8c9-1da6e608940d"], Cell[457259, 9324, 2097, 30, 24, "Print", "ExpressionUUID" -> \ "1ec2f90b-20e3-4505-8b54-37730477c9b3"], Cell[459359, 9356, 47835, 803, 248, "Output", "ExpressionUUID" -> \ "f80c937a-a4c2-4bf7-86a6-72c7e7c45378"], Cell[507197, 10161, 4516, 90, 236, "Output", "ExpressionUUID" -> \ "20a90935-f46a-4c89-b346-ddc3b7b95e4b"] }, Open ]], Cell[511728, 10254, 290, 7, 33, "Text", "ExpressionUUID" -> \ "6c38682f-5c61-4e20-9c71-67a326b5dacd"], Cell[512021, 10263, 978, 33, 59, "Input", "ExpressionUUID" -> \ "0859e302-5871-4da2-ab4c-80c84372ec60"], Cell[CellGroupData[{ Cell[513024, 10300, 12510, 374, 944, "Input", "ExpressionUUID" -> \ "89793c84-3cc5-4e8e-9302-86990e29a642"], Cell[525537, 10676, 195, 3, 24, "Print", "ExpressionUUID" -> \ "623e21d3-0a70-4ae1-8cb6-5e8baadd06c1"], Cell[525735, 10681, 2633, 84, 140, "Output", "ExpressionUUID" -> \ "f664c165-ef91-4bdc-8729-1ccf90fa52b3"], Cell[528371, 10767, 204, 3, 24, "Print", "ExpressionUUID" -> \ "95df09aa-3929-4382-9d98-607344c3232d"], Cell[528578, 10772, 176, 3, 32, "Output", "ExpressionUUID" -> \ "801c191e-9bcb-4fd9-80fb-7762d6aa09e9"], Cell[528757, 10777, 2382, 76, 108, "Output", "ExpressionUUID" -> \ "09e7fc22-5d29-4ba0-9fa9-f2bc8feb08c7"], Cell[531142, 10855, 2435, 79, 108, "Output", "ExpressionUUID" -> \ "8fc410b3-8ef0-44b2-8a45-c0ee538fe4b2"], Cell[533580, 10936, 203, 3, 24, "Print", "ExpressionUUID" -> \ "3cbb9dce-c0ea-4770-8fde-e4d88d71007c"], Cell[533786, 10941, 176, 3, 32, "Output", "ExpressionUUID" -> \ "6f70ed43-086e-4ade-84c7-eae723a00490"], Cell[CellGroupData[{ Cell[533987, 10948, 250, 4, 26, "Print", "ExpressionUUID" -> \ "3d83d346-cd7d-47b1-9330-6f90bbc6afdd"], Cell[534240, 10954, 204, 3, 24, "Print", "ExpressionUUID" -> \ "c550d8de-0a3d-40bc-95c1-f655640f6bbc"] }, Open ]], Cell[534459, 10960, 176, 3, 32, "Output", "ExpressionUUID" -> \ "f51cbda6-ac66-42e0-a198-4a44ff0ee64d"], Cell[534638, 10965, 820, 25, 57, "Output", "ExpressionUUID" -> \ "7892a596-3b6d-43fa-b079-550bbeef05a2"] }, Open ]], Cell[535473, 10993, 263, 6, 33, "Text", "ExpressionUUID" -> \ "5ee8f633-bcfe-455d-bc59-6877090e06f7"], Cell[CellGroupData[{ Cell[535761, 11003, 39087, 1040, 3538, "Input", "ExpressionUUID" -> \ "36570522-2a19-45b6-887d-7ca2071ac4bf"], Cell[574851, 12045, 299, 8, 23, "Message", "ExpressionUUID" -> \ "69c7e7d2-56fb-43a9-81d5-7fe7e2bbd0cb"], Cell[575153, 12055, 575, 10, 24, "Print", "ExpressionUUID" -> \ "ceba38d4-46c9-4d1b-9e5d-52fb63c3b870"], Cell[575731, 12067, 524, 9, 32, "Output", "ExpressionUUID" -> \ "8bbdc71f-ab76-4409-b3f5-02e4f90030f3"], Cell[576258, 12078, 524, 9, 32, "Output", "ExpressionUUID" -> \ "7772aca7-1be9-4509-9eab-39b7df955404"], Cell[576785, 12089, 524, 9, 32, "Output", "ExpressionUUID" -> \ "31a76c4d-5005-4f57-9c58-232642ad58c7"], Cell[577312, 12100, 550, 9, 24, "Print", "ExpressionUUID" -> \ "8e261b38-9bc9-4794-9e14-b3e5b7b543ec"], Cell[577865, 12111, 527, 9, 32, "Output", "ExpressionUUID" -> \ "aca62929-70fd-4820-a64b-c59f05940527"], Cell[578395, 12122, 526, 9, 32, "Output", "ExpressionUUID" -> \ "57ffaed1-58f4-44f0-b11f-b5290ffb509b"], Cell[578924, 12133, 524, 9, 32, "Output", "ExpressionUUID" -> \ "ee732956-126f-4958-8c29-d03ca34f0c51"], Cell[579451, 12144, 10261, 330, 664, "Output", "ExpressionUUID" -> \ "ea5bdf9b-42e0-4aed-b76e-aee649b5f3b8"], Cell[589715, 12476, 2213, 37, 138, "Output", "ExpressionUUID" -> \ "1ec0008f-0904-4a72-bfda-cd15b42e567b"], Cell[591931, 12515, 291, 7, 23, "Message", "ExpressionUUID" -> \ "7a874270-0287-4168-a0a9-b3be7567cade"], Cell[592225, 12524, 3654, 78, 238, "Output", "ExpressionUUID" -> \ "7981c0de-33f6-4446-8703-a8bff27c434a"], Cell[595882, 12604, 2220, 37, 138, "Output", "ExpressionUUID" -> \ "f02da7db-6e79-4a3f-9e9a-bc5e71422809"] }, Open ]], Cell[598117, 12644, 3287, 72, 238, "Input", "ExpressionUUID" -> \ "9a05d70d-95a4-4791-b02a-39e41cb65219"], Cell[601407, 12718, 369, 8, 33, "Text", "ExpressionUUID" -> \ "466127d5-d6a2-4ed4-b603-0eac5425bd27"], Cell[CellGroupData[{ Cell[601801, 12730, 36340, 927, 3183, "Input", "ExpressionUUID" -> \ "f0cde5fb-e859-418f-9198-297c5a070caf"], Cell[638144, 13659, 939, 15, 32, "Output", "ExpressionUUID" -> \ "3b14167e-4e13-4da1-9059-b59bcab6621c"], Cell[639086, 13676, 925, 14, 32, "Output", "ExpressionUUID" -> \ "8fe8f72f-f3b6-4933-964f-0b012796916b"], Cell[640014, 13692, 924, 14, 32, "Output", "ExpressionUUID" -> \ "07cabde9-4ecc-4238-9919-31015d95235e"], Cell[640941, 13708, 925, 14, 32, "Output", "ExpressionUUID" -> \ "b1a510ec-1c99-418d-81eb-54fa7d3cd464"], Cell[641869, 13724, 924, 14, 32, "Output", "ExpressionUUID" -> \ "c5e78234-2b17-472b-b9bb-6e57e8b97779"], Cell[642796, 13740, 10903, 238, 243, "Output", "ExpressionUUID" -> \ "707e5370-d2f9-4433-90d5-d116e185779b"] }, Open ]], Cell[653714, 13981, 692, 12, 77, "Text", "ExpressionUUID" -> \ "73ba6bc7-0eb3-420e-9aeb-518339f380f9"], Cell[CellGroupData[{ Cell[654431, 13997, 24193, 673, 1543, "Input", "ExpressionUUID" -> \ "a974d6de-e232-4606-9464-e35ed9522bd1"], Cell[678627, 14672, 426, 8, 32, "Output", "ExpressionUUID" -> \ "a614dc93-2352-4841-b77e-970d67fd0ad1"], Cell[679056, 14682, 564, 12, 23, "Message", "ExpressionUUID" -> \ "f3bb6877-74aa-488d-bbc1-942cb2044f46"], Cell[679623, 14696, 698, 14, 23, "Message", "ExpressionUUID" -> \ "d246718b-5547-42f5-897c-bc18bf1146a3"], Cell[680324, 14712, 988, 18, 41, "Message", "ExpressionUUID" -> \ "5245eed9-393e-4542-967d-8101ee7a4a9e"], Cell[681315, 14732, 696, 14, 23, "Message", "ExpressionUUID" -> \ "98304d6a-2669-4e7a-889c-6a561f527636"], Cell[682014, 14748, 989, 18, 41, "Message", "ExpressionUUID" -> \ "e442d955-4406-4c56-8efc-9c4fa0114166"], Cell[683006, 14768, 988, 18, 41, "Message", "ExpressionUUID" -> \ "9f1b5545-e520-4182-a3df-1c01254d6eee"], Cell[683997, 14788, 669, 13, 23, "Message", "ExpressionUUID" -> \ "f4ec9d5e-e521-4929-95ca-6ef89ea51f52"], Cell[684669, 14803, 1930, 34, 99, "Output", "ExpressionUUID" -> \ "731eb57d-21e3-4689-b79d-bea53bb293d0"], Cell[686602, 14839, 10742, 237, 243, "Output", "ExpressionUUID" -> \ "6d7c792c-9b43-4f61-b62c-02bb47da6441"], Cell[697347, 15078, 688, 13, 23, "Message", "ExpressionUUID" -> \ "ce770f79-29f9-4cd1-9b93-4ca752f4ff05"], Cell[698038, 15093, 10334, 210, 69, "Output", "ExpressionUUID" -> \ "5ad150b7-c66d-44ec-aba1-7bc94d80db10"], Cell[708375, 15305, 74463, 1219, 302, "Output", "ExpressionUUID" -> \ "1f93e492-2703-45ab-97f2-1cc75ee1a3cf"], Cell[782841, 16526, 986, 18, 41, "Message", "ExpressionUUID" -> \ "ea6d0f21-9a2f-41a5-be6d-083327e9d3af"], Cell[783830, 16546, 47390, 1078, 273, "Output", "ExpressionUUID" -> \ "f2be29c7-767b-498f-930a-131145be1f65"], Cell[831223, 17626, 87411, 1851, 273, "Output", "ExpressionUUID" -> \ "fc895e65-77ec-4109-9b0a-050e64bd52d4"] }, Open ]], Cell[918649, 19480, 79646, 1687, 272, "Input", "ExpressionUUID" -> \ "4c9ba015-9855-487e-8b09-df09e1b53f40"], Cell[CellGroupData[{ Cell[998320, 21171, 1711, 47, 148, "Input", "ExpressionUUID" -> \ "46e2c455-6629-4fac-aebf-4dbe0c601401"], Cell[1000034, 21220, 433, 10, 23, "Message", "ExpressionUUID" -> \ "fa215a79-56b0-444c-ac7e-dce6a1931a66"], Cell[1000470, 21232, 720, 13, 41, "Message", "ExpressionUUID" -> \ "978f8cff-831c-463f-bab0-37a49ab5ba89"], Cell[1001193, 21247, 433, 10, 23, "Message", "ExpressionUUID" -> \ "c1b49694-b58e-4d00-8b57-902d40c37e27"], Cell[1001629, 21259, 729, 14, 41, "Message", "ExpressionUUID" -> \ "02c5cc0a-acbd-49d1-95a3-3f4cdddb07b5"], Cell[1002361, 21275, 725, 14, 41, "Message", "ExpressionUUID" -> \ "692e9c3e-9fc7-4cd3-9e9d-d92210a28dea"], Cell[1003089, 21291, 404, 9, 23, "Message", "ExpressionUUID" -> \ "71db3ef9-79fe-44dc-87ae-76b70b14f941"] }, Open ]], Cell[1003508, 21303, 79661, 1688, 272, "Input", "ExpressionUUID" -> \ "04e35d71-74c9-4460-afa3-277dc7a29808"], Cell[1083172, 22993, 220, 5, 34, "Input", "ExpressionUUID" -> \ "c9c3ebcd-f12e-4755-91b7-42345425408d"], Cell[CellGroupData[{ Cell[1083417, 23002, 62023, 1372, 267, "Input", "ExpressionUUID" -> \ "b3a2e6c4-808b-436c-829b-25d0feb8f19f"], Cell[1145443, 24376, 54900, 1228, 273, "Output", "ExpressionUUID" -> \ "110d1508-47f4-449a-9c25-377394342e5c"] }, Open ]], Cell[CellGroupData[{ Cell[1200380, 25609, 183, 4, 32, "Input", "ExpressionUUID" -> \ "6bb366ad-7f76-490e-908f-74dd2311016d"], Cell[1200566, 25615, 55665, 1237, 273, "Output", "ExpressionUUID" -> \ "0dc29df8-1e4f-4a69-b6c7-84aea7ea6889"] }, Open ]], Cell[1256246, 26855, 54712, 1221, 272, "Input", "ExpressionUUID" -> \ "02b3d94c-d199-4760-bc0f-04165355a71e"], Cell[1310961, 28078, 54807, 1224, 272, "Input", "ExpressionUUID" -> \ "20c969e6-4e14-4475-8141-bdb18c833951"], Cell[CellGroupData[{ Cell[1365793, 29306, 209, 5, 34, "Input", "ExpressionUUID" -> \ "390fe8c7-d75f-4490-8aba-e99fb9b428ce"], Cell[1366005, 29313, 44689, 1023, 273, "Output", "ExpressionUUID" -> \ "c6803e4e-d6fb-4883-acc9-fee7e9222ec7"] }, Open ]], Cell[1410709, 30339, 193, 3, 33, "Text", "ExpressionUUID" -> \ "5dab84aa-25b7-41da-98d2-ae149e2381be"], Cell[1410905, 30344, 10683, 312, 933, "Input", "ExpressionUUID" -> \ "e864a20b-e0fc-4fa5-9eb9-791349dda1ff"], Cell[1421591, 30658, 105826, 2123, 274, "Input", "ExpressionUUID" -> \ "425361f3-0cd2-4af5-b7a6-d8c1da9d03a6"], Cell[1527420, 32783, 403, 8, 55, "Text", "ExpressionUUID" -> \ "23a319dc-56e7-4452-97d8-b3d6a99c2859"], Cell[1527826, 32793, 1203, 39, 59, "Input", "ExpressionUUID" -> \ "59caf7f0-9ee2-4006-98ed-f1a2477f3773"], Cell[1529032, 32834, 274, 6, 33, "Text", "ExpressionUUID" -> \ "87e1778a-3752-423f-866b-0ddd68406bc5"], Cell[CellGroupData[{ Cell[1529331, 32844, 22708, 631, 1081, "Input", "ExpressionUUID" -> \ "15e70779-b49e-4ee2-8813-283e92c7febd"], Cell[1552042, 33477, 563, 10, 32, "Output", "ExpressionUUID" -> \ "117a5d11-8050-452e-b3b9-30d57796914f"], Cell[1552608, 33489, 566, 9, 24, "Print", "ExpressionUUID" -> \ "ddc1b612-9ef0-4da2-8699-465ca28faaf3"], Cell[1553177, 33500, 12535, 343, 622, "Output", "ExpressionUUID" -> \ "7a8f7855-e7f8-41a1-a8ed-5c8950c6ecad"], Cell[1565715, 33845, 573, 9, 24, "Print", "ExpressionUUID" -> \ "a6292d87-b558-4786-b8a5-dd06bb028b35"], Cell[1566291, 33856, 542, 9, 32, "Output", "ExpressionUUID" -> \ "5b4cd467-30b3-45b0-bfcf-b3360160e8ed"], Cell[1566836, 33867, 578, 9, 24, "Print", "ExpressionUUID" -> \ "df8ba4c9-2edd-4cc0-becb-848816f56a4c"], Cell[1567417, 33878, 544, 9, 32, "Output", "ExpressionUUID" -> \ "f99bceaa-298a-4535-b5a4-30737fc313f1"], Cell[1567964, 33889, 544, 9, 32, "Output", "ExpressionUUID" -> \ "3b60f29e-ccad-4ff3-9475-8823983b99e8"], Cell[1568511, 33900, 569, 9, 24, "Print", "ExpressionUUID" -> \ "f05db77f-9e14-4c9a-b0db-82fc784c822e"], Cell[1569083, 33911, 542, 9, 32, "Output", "ExpressionUUID" -> \ "1f8adfff-910d-4c97-9c54-5d2f3bcbd917"], Cell[1569628, 33922, 542, 9, 32, "Output", "ExpressionUUID" -> \ "bb2ae28f-f14f-4a87-a083-8b9b4c93472e"] }, Open ]], Cell[CellGroupData[{ Cell[1570207, 33936, 11306, 314, 522, "Input", "ExpressionUUID" -> \ "8dff77f7-2224-45f9-8d4d-df0507995574"], Cell[1581516, 34252, 6925, 206, 275, "Output", "ExpressionUUID" -> \ "47658d6e-e074-4508-8ad1-af7514a537bb"], Cell[1588444, 34460, 1624, 30, 221, "Output", "ExpressionUUID" -> \ "bf51bf5e-f635-4ac4-83d0-187f538ef201"] }, Open ]], Cell[1590083, 34493, 196, 3, 33, "Text", "ExpressionUUID" -> \ "ce26b2bb-55c0-41ab-9905-b31aac01386f"], Cell[CellGroupData[{ Cell[1590304, 34500, 76175, 2004, 3326, "Input", "ExpressionUUID" -> \ "66574953-dc9b-4d7e-b282-b47a3418cd6a"], Cell[1666482, 36506, 2761, 42, 23, "Message", "ExpressionUUID" -> \ "a217d4b7-517f-4a0b-bd8d-ae2fbbe35809"], Cell[1669246, 36550, 3178, 48, 46, "Message", "ExpressionUUID" -> \ "aff866e6-3080-4846-bd8d-ed8d7499c157"], Cell[1672427, 36600, 2989, 45, 28, "Message", "ExpressionUUID" -> \ "291a92e0-b7a3-4141-a053-5dc9499648fe"], Cell[1675419, 36647, 2980, 45, 40, "Message", "ExpressionUUID" -> \ "53185c83-ae47-4c34-8b34-ddd96d2922a0"], Cell[1678402, 36694, 4183, 64, 116, "Output", "ExpressionUUID" -> \ "054eb921-24c0-4780-bde7-3ccc1aaeb4ff"], Cell[1682588, 36760, 13983, 295, 272, "Output", "ExpressionUUID" -> \ "d381c125-75a7-4156-8e0e-6137409cd95a"], Cell[1696574, 37057, 3168, 47, 41, "Message", "ExpressionUUID" -> \ "377af4d3-9241-44ef-82fc-1eb17635037c"], Cell[1699745, 37106, 2990, 45, 28, "Message", "ExpressionUUID" -> \ "40c45b6e-ec38-4893-a2fc-6fc0de238661"], Cell[1702738, 37153, 2979, 45, 40, "Message", "ExpressionUUID" -> \ "7e243081-5773-4b83-ba0f-4e7aed475d0b"], Cell[1705720, 37200, 4274, 66, 116, "Output", "ExpressionUUID" -> \ "7ae0ca2f-3044-40e1-830c-95ac5e11dac4"], Cell[1709997, 37268, 5777, 106, 238, "Output", "ExpressionUUID" -> \ "ef21d290-0dbe-414e-b63a-b4321b73df8c"], Cell[1715777, 37376, 94574, 1658, 243, "Output", "ExpressionUUID" -> \ "f744efcc-31e0-4870-b53f-9348266dbb21"], Cell[1810354, 39036, 2642, 38, 32, "Output", "ExpressionUUID" -> \ "d9319029-0c7c-4fcf-bc03-4e80f691440d"], Cell[1812999, 39076, 4199, 65, 99, "Output", "ExpressionUUID" -> \ "829710a0-53c0-49cf-aea5-330fe465cdbe"] }, Open ]], Cell[CellGroupData[{ Cell[1817235, 39146, 10626, 236, 186, "Input", "ExpressionUUID" -> \ "903c59e3-c9ce-4fb8-b5ad-d832a0f2bdb9"], Cell[1827864, 39384, 26845, 537, 245, "Output", "ExpressionUUID" -> \ "9539c292-2e17-4ef7-b19e-10aed63d16d2"], Cell[1854712, 39923, 21316, 444, 272, "Output", "ExpressionUUID" -> \ "3673c5b4-c145-4d65-9f18-b8616f090426"] }, Open ]], Cell[1876043, 40370, 171, 3, 33, "Text", "ExpressionUUID" -> \ "1fb9ea6e-92df-49c2-8669-944100248811"], Cell[1876217, 40375, 18959, 407, 271, "Input", "ExpressionUUID" -> \ "8a69919b-840d-4463-ac54-c333057f6b4e"], Cell[1895179, 40784, 18024, 385, 243, "Input", "ExpressionUUID" -> \ "f10c3706-c504-416f-8947-562a9ff2bba7"], Cell[1913206, 41171, 313, 7, 55, "Text", "ExpressionUUID" -> \ "0b972816-3d9f-4b9f-b254-e9482cb6d7f8"], Cell[1913522, 41180, 220, 5, 34, "Input", "ExpressionUUID" -> \ "141994e2-56e4-4785-9981-c024a50e07b2"], Cell[1913745, 41187, 16673, 348, 245, "Input", "ExpressionUUID" -> \ "786a1b7f-b00b-4823-acdf-d4f3d68f4757"], Cell[1930421, 41537, 176, 3, 33, "Text", "ExpressionUUID" -> \ "ed9f64cb-98f7-4d1e-af8d-ceff1a7ac5b0"], Cell[CellGroupData[{ Cell[1930622, 41544, 39818, 1017, 3446, "Input", "ExpressionUUID" -> \ "080509ee-a2db-426a-938f-6b677f9a69b1"], Cell[1970443, 42563, 30475, 853, 471, "Output", "ExpressionUUID" -> \ "da0d6ad0-c5eb-48e0-a305-4962a173901c"], Cell[2000921, 43418, 716, 11, 32, "Output", "ExpressionUUID" -> \ "3145ebe2-995a-4a5d-8b9b-dc321bf4c393"], Cell[2001640, 43431, 718, 11, 32, "Output", "ExpressionUUID" -> \ "db6239c5-3879-4c20-8d30-932366b48ca7"], Cell[2002361, 43444, 713, 11, 32, "Output", "ExpressionUUID" -> \ "51028cde-39ee-493a-aa69-86ddb5d27a29"], Cell[2003077, 43457, 12010, 264, 273, "Output", "ExpressionUUID" -> \ "bbfe46ff-0ea6-439a-a473-ede31918a76d"] }, Open ]], Cell[2015102, 43724, 183, 3, 33, "Text", "ExpressionUUID" -> \ "5518cce9-e564-4a88-89b2-771f9a68ef74"], Cell[CellGroupData[{ Cell[2015310, 43731, 39358, 1115, 2222, "Input", "ExpressionUUID" -> \ "af92908f-f836-4347-9e2c-7f712cb08c9f"], Cell[2054671, 44848, 1889, 33, 99, "Output", "ExpressionUUID" -> \ "93cfd214-9161-4de5-b52c-95da8ee9f6f4"], Cell[2056563, 44883, 755, 13, 41, "Message", "ExpressionUUID" -> \ "2cf4a857-45b7-4356-bf9c-88ddb7e0b459"], Cell[2057321, 44898, 758, 14, 41, "Message", "ExpressionUUID" -> \ "06cb4900-6fef-49c9-9cd7-c14a2e6012bf"], Cell[2058082, 44914, 749, 14, 41, "Message", "ExpressionUUID" -> \ "62a55cdf-3489-4a37-9864-0e97ba902ab2"], Cell[2058834, 44930, 428, 9, 23, "Message", "ExpressionUUID" -> \ "1cfa807f-a588-4599-90b5-919654b5e917"], Cell[2059265, 44941, 459, 10, 23, "Message", "ExpressionUUID" -> \ "0c1d90be-79dd-41a7-961e-3af971c98857"], Cell[2059727, 44953, 459, 10, 23, "Message", "ExpressionUUID" -> \ "c4f5c3b9-99ca-49f6-86bc-539ab3399f5e"], Cell[2060189, 44965, 457, 10, 23, "Message", "ExpressionUUID" -> \ "5b667701-a471-495f-949a-f3e4531a9884"], Cell[2060649, 44977, 430, 9, 23, "Message", "ExpressionUUID" -> \ "73c455ff-4a29-455d-84ad-5386f60e4685"], Cell[2061082, 44988, 2204, 52, 233, "Output", "ExpressionUUID" -> \ "5241ae1a-fbd9-4311-b95f-6685cbe9d4fa"], Cell[2063289, 45042, 1873, 32, 99, "Output", "ExpressionUUID" -> \ "f55e3c18-3202-4185-a751-c92b8746932a"], Cell[2065165, 45076, 758, 14, 41, "Message", "ExpressionUUID" -> \ "bd79788d-239e-4d38-85f7-9a17678dd5b5"], Cell[2065926, 45092, 751, 13, 41, "Message", "ExpressionUUID" -> \ "ae6847e2-3edd-43bf-8f54-c75233c8c2f3"], Cell[2066680, 45107, 751, 14, 41, "Message", "ExpressionUUID" -> \ "899d4528-379f-4218-aba5-cf699135c445"], Cell[2067434, 45123, 430, 9, 23, "Message", "ExpressionUUID" -> \ "7a68ef59-a247-492b-be2c-6b212d6d4782"], Cell[2067867, 45134, 457, 10, 23, "Message", "ExpressionUUID" -> \ "5fc61ab1-65ed-4d13-940a-b369d19fe097"], Cell[2068327, 45146, 457, 10, 23, "Message", "ExpressionUUID" -> \ "855c0855-470b-4619-848c-c7b79a90af25"], Cell[2068787, 45158, 457, 10, 23, "Message", "ExpressionUUID" -> \ "c054bc27-c32d-43e8-88d3-970763d17466"], Cell[2069247, 45170, 430, 9, 23, "Message", "ExpressionUUID" -> \ "36a5dc85-4ab4-41ef-abf8-8fdef143c073"], Cell[2069680, 45181, 2237, 52, 227, "Output", "ExpressionUUID" -> \ "023fd45e-46a3-4d55-97f2-f503c4c7ed7c"], Cell[2071920, 45235, 1893, 33, 99, "Output", "ExpressionUUID" -> \ "50059220-d64d-40ad-8b6f-1dbda4915f60"], Cell[2073816, 45270, 755, 13, 41, "Message", "ExpressionUUID" -> \ "c0e658d9-d529-4a51-871d-98fef15c46b6"], Cell[2074574, 45285, 755, 14, 41, "Message", "ExpressionUUID" -> \ "ee88bcc0-c03f-4449-9f42-e5cc9c37de77"], Cell[2075332, 45301, 758, 13, 41, "Message", "ExpressionUUID" -> \ "104d744b-18da-47be-96d1-ce36ac3a592a"], Cell[2076093, 45316, 428, 9, 23, "Message", "ExpressionUUID" -> \ "30b44df0-7370-432b-bce3-93937b3f5c14"], Cell[2076524, 45327, 457, 10, 23, "Message", "ExpressionUUID" -> \ "31f53ebe-5d59-49b0-b232-faa1da44af08"], Cell[2076984, 45339, 457, 10, 23, "Message", "ExpressionUUID" -> \ "68e2453d-bcc9-4c79-a1c3-2af7792a587d"], Cell[2077444, 45351, 457, 10, 23, "Message", "ExpressionUUID" -> \ "d9aa697c-b0f3-4338-b301-fde8ceed9040"], Cell[2077904, 45363, 432, 9, 23, "Message", "ExpressionUUID" -> \ "7b8482d0-22d5-472d-a4fe-6852cf7e264c"] }, Open ]], Cell[CellGroupData[{ Cell[2078373, 45377, 2456, 73, 356, "Input", "ExpressionUUID" -> \ "086dfa3c-3080-41a9-9221-da8a80019f51"], Cell[2080832, 45452, 725, 14, 41, "Message", "ExpressionUUID" -> \ "c5162cb5-d3f1-4497-b525-ae78cc29b2c4"], Cell[2081560, 45468, 6155, 119, 236, "Output", "ExpressionUUID" -> \ "8be81489-e2a2-4c1f-9f5e-3b0ffc80e0b0"] }, Open ]], Cell[2087730, 45590, 193, 5, 56, "Input", "ExpressionUUID" -> \ "67312b7d-8998-4b32-9937-0343440a49d1"], Cell[2087926, 45597, 26629, 560, 272, "Input", "ExpressionUUID" -> \ "84c88a07-b574-4832-837a-db80fa3478b2"], Cell[2114558, 46159, 211, 5, 33, "Text", "ExpressionUUID" -> \ "faa9700d-14b5-4754-b96c-08a4c9bc83cf"], Cell[2114772, 46166, 14092, 298, 243, "Input", "ExpressionUUID" -> \ "e76cc698-105b-45bd-9158-b711390f2097"], Cell[2128867, 46466, 566, 11, 55, "Text", "ExpressionUUID" -> \ "c6415237-ca4e-45cf-b694-40f27f753c5e"], Cell[CellGroupData[{ Cell[2129458, 46481, 1202, 31, 107, "Input", "ExpressionUUID" -> \ "af9508d5-e587-40f3-b155-6e42c173505e"], Cell[2130663, 46514, 5493, 111, 238, "Output", "ExpressionUUID" -> \ "558112ab-e56d-45e7-bc5e-3b80a05a8a49"] }, Open ]], Cell[CellGroupData[{ Cell[2136193, 46630, 15758, 441, 627, "Input", "ExpressionUUID" -> \ "f277dcc7-d01e-4cd5-9848-e61779f7f382"], Cell[2151954, 47073, 521, 8, 24, "Print", "ExpressionUUID" -> \ "ee38a7b4-d76a-48a7-95ba-01a2c333332f"], Cell[2152478, 47083, 470, 8, 32, "Output", "ExpressionUUID" -> \ "ba2faa8a-07bf-4783-ae93-4014628344d3"], Cell[2152951, 47093, 472, 8, 32, "Output", "ExpressionUUID" -> \ "092e36a1-ce86-464a-8f73-2710391d2172"], Cell[2153426, 47103, 470, 8, 32, "Output", "ExpressionUUID" -> \ "0e214253-ebba-4668-bd21-db27e6cad505"], Cell[2153899, 47113, 506, 8, 24, "Print", "ExpressionUUID" -> \ "d759a41b-7015-4e4e-bb1d-813e509e08f8"], Cell[2154408, 47123, 745, 19, 68, "Output", "ExpressionUUID" -> \ "914cc1d7-a975-432e-9512-baf8c6a6f4de"], Cell[2155156, 47144, 498, 8, 24, "Print", "ExpressionUUID" -> \ "23f712e4-49ad-409d-b945-81badcc3fbb1"], Cell[2155657, 47154, 470, 8, 32, "Output", "ExpressionUUID" -> \ "41dff9d5-ebb9-43bb-835e-5d585d96c3d6"], Cell[2156130, 47164, 562, 9, 24, "Print", "ExpressionUUID" -> \ "f78b996e-e9eb-4147-bad1-30f2f13e706d"], Cell[2156695, 47175, 470, 8, 32, "Output", "ExpressionUUID" -> \ "e1fe166d-88dd-461c-bdc0-cc73c088b559"], Cell[2157168, 47185, 498, 8, 24, "Print", "ExpressionUUID" -> \ "4e1c1f20-3830-41b4-8736-a1200063df81"], Cell[2157669, 47195, 470, 8, 32, "Output", "ExpressionUUID" -> \ "257742b4-0117-4616-a505-d713cf5af649"], Cell[2158142, 47205, 561, 9, 24, "Print", "ExpressionUUID" -> \ "22a4d171-9e22-4eaa-b5a7-aa48dfb51127"], Cell[2158706, 47216, 472, 8, 32, "Output", "ExpressionUUID" -> \ "b3ad4712-9ee4-4d52-affc-930f17725b75"] }, Open ]], Cell[CellGroupData[{ Cell[2159215, 47229, 3178, 96, 289, "Input", "ExpressionUUID" -> \ "f65365b7-84f6-4ce2-8872-fa8022884c1b"], Cell[2162396, 47327, 68048, 1150, 241, "Output", "ExpressionUUID" -> \ "55bfebd1-c8a4-448c-86c6-cacedf9c7efc"] }, Open ]], Cell[2230459, 48480, 325, 6, 33, "Text", "ExpressionUUID" -> \ "7a30252e-a189-40e1-b378-13b467a93d2c"], Cell[2230787, 48488, 1155, 36, 59, "Input", "ExpressionUUID" -> \ "aab9a8ee-bbd3-4629-a735-46236c971cd6"], Cell[2231945, 48526, 379, 8, 33, "Text", "ExpressionUUID" -> \ "2b394004-3db8-4da8-8b4d-09fbe96def56"], Cell[2232327, 48536, 231, 6, 33, "Text", "ExpressionUUID" -> \ "6a34d742-1d6b-417c-ae1c-bb74ae021b88"], Cell[CellGroupData[{ Cell[2232583, 48546, 25985, 708, 1004, "Input", "ExpressionUUID" -> \ "3e302e80-aa10-4598-85fd-d11bc8859423"], Cell[2258571, 49256, 504, 9, 32, "Output", "ExpressionUUID" -> \ "0a13e419-fb0a-4f5e-ab7c-24a1b92ebfd3"], Cell[CellGroupData[{ Cell[2259100, 49269, 495, 8, 24, "Print", "ExpressionUUID" -> \ "1350a489-80cc-41f2-ac68-80fc24c576b5"], Cell[2259598, 49279, 502, 8, 24, "Print", "ExpressionUUID" -> \ "0257055f-fad2-4568-a43d-efa9d7aa9490"] }, Open ]], Cell[2260115, 49290, 487, 8, 32, "Output", "ExpressionUUID" -> \ "d06d8d14-095b-4245-b127-bfd0e4d305b1"], Cell[2260605, 49300, 509, 8, 24, "Print", "ExpressionUUID" -> \ "47025a01-9be3-49a1-b590-214781d00008"], Cell[2261117, 49310, 487, 8, 32, "Output", "ExpressionUUID" -> \ "fc804025-9c36-4d00-8062-339cae882a78"], Cell[2261607, 49320, 487, 8, 32, "Output", "ExpressionUUID" -> \ "b0fb09a0-02e1-4353-bd9e-1475f82fa106"], Cell[2262097, 49330, 501, 8, 24, "Print", "ExpressionUUID" -> \ "0bb070b8-aeea-4f38-88cc-6406f332d9b3"], Cell[2262601, 49340, 487, 8, 32, "Output", "ExpressionUUID" -> \ "4e1ba99e-f4fe-4f9f-9731-d3a1f4b5f445"], Cell[2263091, 49350, 487, 8, 32, "Output", "ExpressionUUID" -> \ "cd4e2f1d-05ad-4a93-b8ba-68fc9c5cb3db"] }, Open ]], Cell[2263593, 49361, 232, 6, 33, "Text", "ExpressionUUID" -> \ "71b1f019-66cf-4c2c-825b-4deb1c8ce098"], Cell[CellGroupData[{ Cell[2263850, 49371, 6667, 217, 584, "Input", "ExpressionUUID" -> \ "8e5a8282-2e7f-435a-91c5-6897aec3b65e"], Cell[2270520, 49590, 314, 9, 42, "Output", "ExpressionUUID" -> \ "78016b05-e3a6-4aca-8ac8-fb5397e4f3ae"], Cell[2270837, 49601, 477, 15, 42, "Output", "ExpressionUUID" -> \ "ec8e0312-5d56-4281-b92b-56b205a3cbc7"], Cell[2271317, 49618, 487, 16, 42, "Output", "ExpressionUUID" -> \ "b008b95e-4a54-4067-96f4-b043ac187383"], Cell[2271807, 49636, 279, 7, 41, "Output", "ExpressionUUID" -> \ "3ce1f88a-a766-4a20-9d97-decd8b31c2c7"], Cell[2272089, 49645, 6931, 196, 197, "Output", "ExpressionUUID" -> \ "6ae385d4-fd63-49e9-8838-ad525af0f198"], Cell[2279023, 49843, 179, 3, 24, "Print", "ExpressionUUID" -> \ "ddc4f126-e21d-4f47-a10e-9a24b905c1b4"], Cell[2279205, 49848, 4442, 118, 166, "Output", "ExpressionUUID" -> \ "31b2f077-31a3-41e7-ba2f-42c7c54cfddc"] }, Open ]], Cell[2283662, 49969, 432, 8, 55, "Text", "ExpressionUUID" -> \ "ceac0ac7-04fb-4026-80d3-d8ae7dfb103a"], Cell[CellGroupData[{ Cell[2284119, 49981, 61901, 1663, 4364, "Input", "ExpressionUUID" -> \ "f9e2e618-7604-45f6-89e2-db4736bcbb92"], Cell[2346023, 51646, 1588, 23, 24, "Print", "ExpressionUUID" -> \ "74c02f61-723a-4853-8ea1-95a57c732d00"], Cell[2347614, 51671, 1604, 24, 32, "Output", "ExpressionUUID" -> \ "42e21c38-4ed0-40ba-96f5-8081f0d7ab65"], Cell[2349221, 51697, 84108, 1489, 241, "Output", "ExpressionUUID" -> \ "1ea78701-ded2-479e-93f5-2bb3853d9420"], Cell[2433332, 53188, 3084, 50, 99, "Output", "ExpressionUUID" -> \ "533a875c-9871-4a61-8b0e-14c65717be72"], Cell[2436419, 53240, 11903, 253, 243, "Output", "ExpressionUUID" -> \ "749ea90a-2f20-41ae-a434-2da98c50ce33"], Cell[2448325, 53495, 1723, 29, 42, "Output", "ExpressionUUID" -> \ "a26d0416-0e9f-4f2c-962c-4e6af1b3a260"], Cell[2450051, 53526, 1886, 35, 42, "Output", "ExpressionUUID" -> \ "4290b796-5b45-4715-a819-da6b11456a07"], Cell[2451940, 53563, 1896, 36, 42, "Output", "ExpressionUUID" -> \ "3464fd15-f723-422e-977f-c8ee94c857c6"], Cell[2453839, 53601, 1691, 28, 41, "Output", "ExpressionUUID" -> \ "8c19fa85-4bf7-4ec4-a33f-9ca605e798cc"], Cell[2455533, 53631, 8012, 211, 197, "Output", "ExpressionUUID" -> \ "5b414e53-0acc-4d17-8048-7fa48c3acfda"], Cell[2463548, 53844, 1591, 23, 24, "Print", "ExpressionUUID" -> \ "94b7b143-598b-443e-860e-befcef725e78"], Cell[2465142, 53869, 12387, 300, 455, "Output", "ExpressionUUID" -> \ "57a159c1-c809-432b-b756-6d41041595d4"], Cell[2477532, 54171, 11175, 279, 562, "Output", "ExpressionUUID" -> \ "f4eab75e-0713-4b36-9a5a-44270ffc67b2"], Cell[2488710, 54452, 3049, 49, 99, "Output", "ExpressionUUID" -> \ "2c2d4203-4997-4233-8379-6d4697119e9d"], Cell[2491762, 54503, 4656, 91, 244, "Output", "ExpressionUUID" -> \ "a5a0920d-6bcd-402f-b653-20db8f99b096"], Cell[2496421, 54596, 3068, 50, 99, "Output", "ExpressionUUID" -> \ "1d3b7ae2-f252-438f-b209-eabe6c7faf72"], Cell[2499492, 54648, 4672, 91, 244, "Output", "ExpressionUUID" -> \ "913973b5-d12e-4987-bc9d-de1ba380c20b"], Cell[2504167, 54741, 12762, 259, 245, "Output", "ExpressionUUID" -> \ "dfe3d204-10ef-445a-b1a3-ce0602d3c336"] }, Open ]], Cell[CellGroupData[{ Cell[2516966, 55005, 210, 5, 34, "Input", "ExpressionUUID" -> \ "452d16d2-d7fa-431e-a9d2-d7562ff6ff81"], Cell[2517179, 55012, 10107, 213, 245, "Output", "ExpressionUUID" -> \ "e329a304-58cf-40c5-ab9c-1e79f09b29f2"] }, Open ]], Cell[2527301, 55228, 11407, 239, 245, "Input", "ExpressionUUID" -> \ "e3c23401-98b5-45c4-9e15-2226310d66b7"] }, Open ]] }, Open ]], Cell[2538735, 55471, 495, 9, 173, "Section", "ExpressionUUID" -> \ "1ec5af86-aab3-44f2-b91e-7cb858e86cba"], Cell[CellGroupData[{ Cell[2539255, 55484, 215, 4, 51, "Section", "ExpressionUUID" -> \ "d985f334-4808-4815-ba2f-40988208158c"], Cell[CellGroupData[{ Cell[2539495, 55492, 7037, 206, 626, "Input", "ExpressionUUID" -> \ "1f7f5e4f-8b83-406c-8ec2-825ea911829e"], Cell[2546535, 55700, 161, 3, 32, "Output", "ExpressionUUID" -> \ "65838705-2e04-41cd-ac63-b034a10c665f"], Cell[2546699, 55705, 499, 10, 23, "Message", "ExpressionUUID" -> \ "74b722e1-e991-4956-b8dd-57dc444a547e"], Cell[2547201, 55717, 499, 10, 23, "Message", "ExpressionUUID" -> \ "ca3b38e8-3843-4747-949b-c1b4748e3bc9"], Cell[2547703, 55729, 499, 10, 23, "Message", "ExpressionUUID" -> \ "e0f4308d-e9ba-41d3-9308-9418e7e0f076"], Cell[2548205, 55741, 496, 10, 23, "Message", "ExpressionUUID" -> \ "dba62798-bcd3-45f4-bfd8-2f11e56af1bc"], Cell[2548704, 55753, 759, 14, 23, "Message", "ExpressionUUID" -> \ "f51e4600-3377-4e6f-b862-6b9c42dbbefa"], Cell[2549466, 55769, 759, 14, 23, "Message", "ExpressionUUID" -> \ "865094e3-389c-4fcd-b425-6755b94b7269"], Cell[2550228, 55785, 759, 14, 23, "Message", "ExpressionUUID" -> \ "7d48099c-1731-4bbb-8ece-ce32cd5e14eb"], Cell[2550990, 55801, 497, 10, 23, "Message", "ExpressionUUID" -> \ "f38e88cf-f146-45a1-ad21-cc5f71c9c0e4"], Cell[2551490, 55813, 23169, 597, 1261, "Output", "ExpressionUUID" -> \ "716d172b-5236-467e-ada6-21f97a90b0cf"], Cell[2574662, 56412, 499, 10, 23, "Message", "ExpressionUUID" -> \ "010aac96-89aa-4b65-ae04-e374865eb433"], Cell[2575164, 56424, 500, 10, 23, "Message", "ExpressionUUID" -> \ "14f031f4-5fe4-45b0-adce-670013756b32"], Cell[2575667, 56436, 502, 10, 23, "Message", "ExpressionUUID" -> \ "feb9e4af-8dce-4979-be64-e440fadd79a3"], Cell[2576172, 56448, 499, 10, 23, "Message", "ExpressionUUID" -> \ "2434790e-9a80-4744-83a0-b0e3fa629829"], Cell[2576674, 56460, 760, 14, 23, "Message", "ExpressionUUID" -> \ "37b8b9cc-2943-4e16-96b9-b3dd98c5a76e"], Cell[2577437, 56476, 758, 14, 23, "Message", "ExpressionUUID" -> \ "64647902-0f62-4c22-abb2-f05f385ccde5"], Cell[2578198, 56492, 760, 14, 23, "Message", "ExpressionUUID" -> \ "3ce4c00c-1052-4663-8ae5-39719d0fd77c"], Cell[2578961, 56508, 500, 10, 23, "Message", "ExpressionUUID" -> \ "ee2de697-e42f-4787-a35e-c30c271380d4"], Cell[2579464, 56520, 163, 3, 32, "Output", "ExpressionUUID" -> \ "af7817f0-8869-4c9d-8b37-da74b99f872e"], Cell[2579630, 56525, 399, 9, 23, "Message", "ExpressionUUID" -> \ "82573b26-1468-4c7b-92d4-8a3f96b4c697"], Cell[2580032, 56536, 186, 4, 32, "Output", "ExpressionUUID" -> \ "1d540d6d-aa4a-472b-80f3-37497200e2f5"] }, Open ]], Cell[2580233, 56543, 99, 1, 1, "PageBreak", "ExpressionUUID" -> \ "7d1d1226-803c-4314-b12e-bae530db975a", PageBreakBelow->True], Cell[CellGroupData[{ Cell[2580357, 56548, 438, 11, 34, "Input", "ExpressionUUID" -> \ "2115cbe0-0602-4591-85f2-0c725fe12971"], Cell[2580798, 56561, 6513, 207, 187, "Output", "ExpressionUUID" -> \ "47302154-b3f9-428a-a7d5-e2464918d597"] }, Open ]], Cell[CellGroupData[{ Cell[2587348, 56773, 189, 4, 32, "Input", "ExpressionUUID" -> \ "ff114cd9-c5a4-49da-a55b-a610ec07e152"], Cell[2587540, 56779, 1945, 48, 231, "Output", "ExpressionUUID" -> \ "0de343f8-c92b-403f-a1e1-191ab8d2ba6a"] }, Open ]], Cell[CellGroupData[{ Cell[2589522, 56832, 289, 7, 36, "Input", "ExpressionUUID" -> \ "2f92ce61-7bd8-4b41-90ac-1d28a010cf24"], Cell[2589814, 56841, 1616, 47, 50, "Output", "ExpressionUUID" -> \ "45915def-b767-4f84-9ee5-6a25c4ced0d5"] }, Open ]], Cell[CellGroupData[{ Cell[2591467, 56893, 1468, 44, 136, "Input", "ExpressionUUID" -> \ "32188fa0-5730-43ba-bd75-a12299d46a91"], Cell[2592938, 56939, 226, 5, 32, "Output", "ExpressionUUID" -> \ "14f1a8f3-bab0-4162-990f-9f563ff540c8"], Cell[2593167, 56946, 227, 5, 32, "Output", "ExpressionUUID" -> \ "2f752357-d5b4-4279-bf22-4ca0ebce7365"], Cell[2593397, 56953, 229, 5, 32, "Output", "ExpressionUUID" -> \ "2dbe3da7-7a25-4f9a-9986-a0d8011f5660"], Cell[2593629, 56960, 227, 5, 32, "Output", "ExpressionUUID" -> \ "9626d339-65fc-47c3-bbab-474f9f71be21"], Cell[2593859, 56967, 229, 5, 32, "Output", "ExpressionUUID" -> \ "39959d9c-8009-45e7-bbd3-6ea517ded856"] }, Open ]], Cell[CellGroupData[{ Cell[2594125, 56977, 217, 6, 36, "Input", "ExpressionUUID" -> \ "75c2e26f-1022-4fcf-bfb9-58e95dcdd9c4"], Cell[2594345, 56985, 1757, 50, 50, "Output", "ExpressionUUID" -> \ "05f3a753-a097-4acf-a0cd-f3c8a5493f1e"] }, Open ]], Cell[CellGroupData[{ Cell[2596139, 57040, 191, 4, 32, "Input", "ExpressionUUID" -> \ "09e48ea9-f43a-4170-8e83-8ce7eecbb66f"], Cell[2596333, 57046, 166, 4, 32, "Output", "ExpressionUUID" -> \ "41984857-a2d2-41dc-9c14-93c9289fad34"] }, Open ]], Cell[CellGroupData[{ Cell[2596536, 57055, 351, 10, 36, "Input", "ExpressionUUID" -> \ "134fc465-292c-4f35-bcf3-524ffde2cce5"], Cell[2596890, 57067, 156, 3, 32, "Output", "ExpressionUUID" -> \ "46389fac-e4af-444b-9878-6d6156abdeff"] }, Open ]], Cell[2597061, 57073, 33800, 895, 1621, "Input", "ExpressionUUID" -> \ "7b9307e9-cdcf-4e74-9de5-b6c1feadf81e"], Cell[CellGroupData[{ Cell[2630886, 57972, 842, 18, 370, "Input", "ExpressionUUID" -> \ "d8740066-6826-44f7-acbc-3a56b9e04b98"], Cell[2631731, 57992, 247, 6, 200, "Output", "ExpressionUUID" -> \ "ac482328-92b2-4abe-b030-666f4d143a8d"] }, Open ]], Cell[2631993, 58001, 653, 21, 235, "Input", "ExpressionUUID" -> \ "94f33cc8-22af-48df-9072-b5fc87372e10"], Cell[CellGroupData[{ Cell[2632671, 58026, 179, 4, 150, "Input", "ExpressionUUID" -> \ "101e1b95-0b5f-4c3c-a7ea-856a9251451c"], Cell[2632853, 58032, 520, 11, 150, "Output", "ExpressionUUID" -> \ "cb83920c-7814-48c4-b14c-0a45e7c6ff0e"], Cell[2633376, 58045, 451, 10, 110, "Message", "ExpressionUUID" -> \ "5066a581-657e-4e3b-a8bf-f97f116ae3f2"], Cell[2633830, 58057, 437, 8, 150, "Output", "ExpressionUUID" -> \ "4144ef0d-ef3d-4116-a0bc-56b9f418791f"] }, Open ]], Cell[2634282, 58068, 13687, 387, 3187, "Input", "ExpressionUUID" -> \ "893cafbf-e0df-41eb-a6df-2a8fc7e2b0dd"], Cell[CellGroupData[{ Cell[2647994, 58459, 486, 10, 477, "Input", "ExpressionUUID" -> \ "64bd6617-2537-4f02-934b-35c726857bdf"], Cell[2648483, 58471, 840, 28, 343, "Output", "ExpressionUUID" -> \ "283030be-459a-4cee-ac51-5249df63b263"] }, Open ]], Cell[2649338, 58502, 184, 4, 150, "Input", "ExpressionUUID" -> \ "d1efe5e2-2050-4c63-875b-050389fcac45"], Cell[2649525, 58508, 182, 4, 150, "Input", "ExpressionUUID" -> \ "774a46fa-77c9-4af6-bc91-a152a8a77250"], Cell[CellGroupData[{ Cell[2649732, 58516, 973, 18, 585, "Input", "ExpressionUUID" -> \ "89daacef-0761-437f-b7ed-8ba1ba99e594"], Cell[2650708, 58536, 680, 21, 196, "Output", "ExpressionUUID" -> \ "c175ccf2-868b-4f10-92a5-c22f9dcd69dc"], Cell[2651391, 58559, 852, 26, 243, "Output", "ExpressionUUID" -> \ "5fc2eb6c-aa89-45e1-849e-e52517886dcf"], Cell[2652246, 58587, 1477, 47, 370, "Output", "ExpressionUUID" -> \ "3f2c620f-80f5-4121-8e58-eb5734c402b5"] }, Open ]], Cell[2653738, 58637, 210, 4, 157, "Text", "ExpressionUUID" -> \ "7045dd5b-fb9c-46a1-93cf-bb6ef6b814ab"], Cell[CellGroupData[{ Cell[2653973, 58645, 1095, 21, 796, "Input", "ExpressionUUID" -> \ "394d2b78-f839-4b86-860f-2f28a6e35e02"], Cell[2655071, 58668, 1161, 38, 235, "Output", "ExpressionUUID" -> \ "29adb0ed-a760-4100-98a7-8e68c391ed7b"], Cell[2656235, 58708, 1161, 38, 235, "Output", "ExpressionUUID" -> \ "cd1c41c9-bca8-40ca-8ddb-ca19b693d90e"] }, Open ]], Cell[2657411, 58749, 178, 3, 157, "Text", "ExpressionUUID" -> \ "b64a7832-7653-46e4-8596-b00c896f4464"], Cell[2657592, 58754, 112134, 1986, 1157, "Input", "ExpressionUUID" -> \ "e0adf15f-2d55-47ce-a854-ce749785d85a"] }, Open ]], Cell[CellGroupData[{ Cell[2769763, 60745, 149, 3, 312, "Section", "ExpressionUUID" -> \ "2c4b9d55-e2af-4f47-ab5d-6af7bd5109b3"], Cell[2769915, 60750, 1714, 176, 370, "Reference", "ExpressionUUID" -> \ "7d533f1f-9c9d-41a7-9bed-e05880913a15", CellTags->{"00007D89", "00004AC9", "000080DE"}], Cell[2771632, 60928, 152, 3, 151, "Input", "ExpressionUUID" -> \ "862fca63-8ea3-40b0-a84c-3487e93b0c6b"], Cell[2771787, 60933, 261, 8, 157, "Input", "ExpressionUUID" -> \ "03c31a16-9041-44e3-b755-3ad299f166b6"] }, Open ]], Cell[CellGroupData[{ Cell[2772085, 60946, 2511, 56, 538, "Section", "ExpressionUUID" -> \ "c3d7718d-4de7-4ed5-8427-e9261b16ccda"], Cell[2774599, 61004, 422, 8, 157, "Text", "ExpressionUUID" -> \ "d21650ab-d5c6-4723-968b-43af0bcb7877"], Cell[2775024, 61014, 411, 8, 157, "Text", "ExpressionUUID" -> \ "96896beb-4350-4e81-b3cf-ceaedcb84cb2"], Cell[2775438, 61024, 742, 11, 112, "Print", "ExpressionUUID" -> \ "0d3c843f-927b-4d32-abb5-731363a74833"], Cell[2776183, 61037, 720, 11, 151, "Output", "ExpressionUUID" -> \ "d0bd4a8d-df6c-4862-9a7d-3d8e4b7bc5bf"], Cell[2776906, 61050, 742, 11, 112, "Print", "ExpressionUUID" -> \ "be31a1b9-54c9-4d6f-a565-c062925b1e76"], Cell[2777651, 61063, 720, 11, 151, "Output", "ExpressionUUID" -> \ "322210b1-7a24-4a8b-9646-c4a72c69b4fa"], Cell[2778374, 61076, 741, 11, 112, "Print", "ExpressionUUID" -> \ "9d4e43a5-002c-401a-ac3c-f708c4fa1e42"], Cell[2779118, 61089, 720, 11, 151, "Output", "ExpressionUUID" -> \ "b9ad3ed1-a993-4641-b2f6-9d46086942f7"], Cell[2779841, 61102, 791, 12, 112, "Print", "ExpressionUUID" -> \ "89f6067d-ef25-4bac-bf4e-b803b904f2da"], Cell[2780635, 61116, 722, 11, 151, "Output", "ExpressionUUID" -> \ "7a55d417-1f63-4cef-9adb-cad4e976a0c9"], Cell[2781360, 61129, 722, 11, 151, "Output", "ExpressionUUID" -> \ "21567cc5-e407-492c-84d5-38e355158451"], Cell[2782085, 61142, 717, 10, 151, "Output", "ExpressionUUID" -> \ "e9769f02-0d95-4185-95f2-64085348bf67"], Cell[2782805, 61154, 729, 11, 112, "Print", "ExpressionUUID" -> \ "e700af59-3bed-4f67-8bef-f72cac784853"], Cell[2783537, 61167, 836, 16, 291, "Output", "ExpressionUUID" -> \ "cf78a7ad-3399-4e12-ab32-1b56aba77ab8"], Cell[2784376, 61185, 742, 11, 112, "Print", "ExpressionUUID" -> \ "133ccb0f-1127-4abc-af1d-e6f528b73c85"], Cell[2785121, 61198, 1958, 51, 332, "Output", "ExpressionUUID" -> \ "d6fb4ddb-b8b4-452d-88e5-b694e6076a59"], Cell[2787082, 61251, 777, 11, 112, "Print", "ExpressionUUID" -> \ "4f307645-35c3-4315-a45b-b48cc9d1a603"], Cell[2787862, 61264, 660, 10, 157, "Text", "ExpressionUUID" -> \ "c6f213b2-b234-4be8-b961-1764f31c378e"], Cell[CellGroupData[{ Cell[2788547, 61278, 1521, 42, 902, "Input", "ExpressionUUID" -> \ "b7b8336e-f04c-4fb3-9db2-a4090633297a"], Cell[2790071, 61322, 174, 4, 151, "Output", "ExpressionUUID" -> \ "9cc0f00a-1343-48b6-8c2e-d93dbe796540"], Cell[2790248, 61328, 152, 3, 151, "Output", "ExpressionUUID" -> \ "6e1762d0-39f8-43e9-84ae-3232f3c991ec"] }, Open ]], Cell[CellGroupData[{ Cell[2790437, 61336, 2653, 79, 916, "Input", "ExpressionUUID" -> \ "096045e7-f2d6-453c-a9b0-c832e8f9d61f"], Cell[2793093, 61417, 919, 24, 266, "Output", "ExpressionUUID" -> \ "92ba23c5-3c83-4409-8576-da269809810a"] }, Open ]], Cell[2794027, 61444, 811, 25, 366, "Input", "ExpressionUUID" -> \ "45fe4745-8b98-47be-9eb4-c048dde4b3d2"], Cell[2794841, 61471, 179, 4, 150, "Input", "ExpressionUUID" -> \ "fa15d585-4ec0-4984-b8ae-22c42c9e23a4"], Cell[2795023, 61477, 128, 3, 151, "Input", "ExpressionUUID" -> \ "8aeb4398-351c-454f-8b52-0e6403e29928"], Cell[2795154, 61482, 292, 7, 157, "Text", "ExpressionUUID" -> \ "a71be787-7707-4619-856c-dc9f5d10fd69"], Cell[CellGroupData[{ Cell[2795471, 61493, 358, 6, 370, "Input", "ExpressionUUID" -> \ "62e6dddf-3013-42db-bbf6-a1603bedef2c"], Cell[2795832, 61501, 303, 8, 110, "Message", "ExpressionUUID" -> \ "15e22493-75d2-4c2e-94c2-a0d980667603"], Cell[2796138, 61511, 162, 4, 151, "Output", "ExpressionUUID" -> \ "b41e2d09-0631-48c2-952f-030d75edc7c2"] }, Open ]], Cell[2796315, 61518, 266, 6, 34, "Text", "ExpressionUUID" -> \ "d8a0a49a-ca1e-4101-b3a2-f120ff462e7e"], Cell[CellGroupData[{ Cell[2796606, 61528, 26187, 715, 1608, "Input", "ExpressionUUID" -> \ "a82ad742-ab6c-4da4-be63-48007343e827"], Cell[2822796, 62245, 611, 11, 33, "Output", "ExpressionUUID" -> \ "5e80230b-89d2-43e8-9981-9aa59144c5aa"], Cell[CellGroupData[{ Cell[2823432, 62260, 614, 10, 25, "Print", "ExpressionUUID" -> \ "e11b4c49-5a0f-48a2-8099-da904ee23001"], Cell[2824049, 62272, 621, 10, 25, "Print", "ExpressionUUID" -> \ "b97f144e-bedd-48a5-9e0a-5c284f7e7d41"] }, Open ]], Cell[2824685, 62285, 594, 10, 33, "Output", "ExpressionUUID" -> \ "a71b34b1-bae7-422f-86f4-f2ecb0d8d9d8"], Cell[2825282, 62297, 594, 10, 33, "Output", "ExpressionUUID" -> \ "69b6d9ac-1f7e-487e-bda9-3d594c1432de"], Cell[2825879, 62309, 625, 10, 25, "Print", "ExpressionUUID" -> \ "9e83a047-2544-41a7-a67a-1eba46a26998"], Cell[2826507, 62321, 594, 10, 33, "Output", "ExpressionUUID" -> \ "201bea6a-a7cd-40b3-a4de-ed8d3e4bb516"], Cell[2827104, 62333, 596, 10, 33, "Output", "ExpressionUUID" -> \ "b86416dd-c3ba-459e-b935-c0387d5c20f7"], Cell[2827703, 62345, 620, 10, 25, "Print", "ExpressionUUID" -> \ "0c77f51e-c2f5-46f1-b1c3-3e94c9f09bee"], Cell[2828326, 62357, 596, 10, 33, "Output", "ExpressionUUID" -> \ "ab18bdf6-768f-4db2-8e25-341a28b9e1b6"], Cell[2828925, 62369, 614, 10, 25, "Print", "ExpressionUUID" -> \ "b12cd83a-3b0c-4795-851e-a09ee7497df7"], Cell[2829542, 62381, 4430, 132, 254, "Output", "ExpressionUUID" -> \ "9e8c10bb-b14a-4153-a440-465b29b0cb65"], Cell[2833975, 62515, 648, 11, 25, "Print", "ExpressionUUID" -> \ "36f5c451-190e-4f9e-8f5a-5d4c05425a57"], Cell[2834626, 62528, 594, 10, 33, "Output", "ExpressionUUID" -> \ "bdb0ef34-f4b9-4b11-b6e4-04c16acc7121"], Cell[2835223, 62540, 596, 10, 33, "Output", "ExpressionUUID" -> \ "b571214f-829c-4b05-943a-43a1bf17a991"], Cell[2835822, 62552, 653, 11, 25, "Print", "ExpressionUUID" -> \ "ac691b6d-16e8-4036-9d60-525de5ae3d45"], Cell[2836478, 62565, 594, 10, 33, "Output", "ExpressionUUID" -> \ "d48330c9-2dd4-4bcc-a2f0-086782e5e368"], Cell[2837075, 62577, 647, 11, 25, "Print", "ExpressionUUID" -> \ "f1d174e8-7cc9-445e-bab8-814f3b2521b6"], Cell[2837725, 62590, 596, 10, 33, "Output", "ExpressionUUID" -> \ "f0bcf111-c3b1-4ec3-ae67-a25828e6bb1d"] }, Open ]], Cell[2838336, 62603, 327, 6, 195, "Input", "ExpressionUUID" -> \ "4d5db774-a33b-4523-9224-da3fd19668b1"], Cell[2838666, 62611, 341, 7, 34, "Text", "ExpressionUUID" -> \ "21ac62eb-0aae-408f-af45-8dae464346e7"], Cell[2839010, 62620, 19909, 513, 1085, "Input", "ExpressionUUID" -> \ "a7f65e9f-e59f-47ac-a476-b3a44b83b0f2"], Cell[CellGroupData[{ Cell[2858944, 63137, 12611, 289, 593, "Input", "ExpressionUUID" -> \ "ff83bc79-384a-43d8-9bd9-0bb4fa4fa75f"], Cell[2871558, 63428, 542, 9, 33, "Output", "ExpressionUUID" -> \ "68ec3c8e-4768-4887-bf90-85c4c2c0aae4"], Cell[CellGroupData[{ Cell[2872125, 63441, 544, 8, 25, "Print", "ExpressionUUID" -> \ "fa8a2170-54a8-4471-869c-51dbe70b0edb"], Cell[2872672, 63451, 553, 8, 25, "Print", "ExpressionUUID" -> \ "3d705a04-18ac-44ae-a5d8-728625ef8d78"] }, Open ]], Cell[2873240, 63462, 525, 8, 33, "Output", "ExpressionUUID" -> \ "16a04b55-8b34-4bb6-8b05-9e1c87a13bb4"], Cell[2873768, 63472, 556, 8, 25, "Print", "ExpressionUUID" -> \ "96d456d4-fbfa-4793-ab0f-98ea7b508c5f"], Cell[2874327, 63482, 525, 8, 33, "Output", "ExpressionUUID" -> \ "9efeb6c6-538f-46ad-be6b-c03ee83c17aa"], Cell[2874855, 63492, 525, 8, 33, "Output", "ExpressionUUID" -> \ "94c99cee-7001-4fb7-bafa-11a36e9d5c3d"], Cell[2875383, 63502, 547, 7, 25, "Print", "ExpressionUUID" -> \ "0c6c40d3-00d6-499f-aa55-ef38d34cc44c"], Cell[2875933, 63511, 2905, 83, 133, "Output", "ExpressionUUID" -> \ "73339dbc-bc9b-4cf3-9e4c-0531b3b998ab"], Cell[2878841, 63596, 544, 8, 25, "Print", "ExpressionUUID" -> \ "c09ae036-62db-4a3a-b27a-1fd66269f5ff"], Cell[2879388, 63606, 5606, 170, 290, "Output", "ExpressionUUID" -> \ "447444a4-141e-4166-b50f-2cd0bae9d726"], Cell[2884997, 63778, 578, 9, 25, "Print", "ExpressionUUID" -> \ "53350480-7783-48e0-a04e-cee0f4084443"], Cell[2885578, 63789, 527, 8, 33, "Output", "ExpressionUUID" -> \ "b7b6556b-226f-482d-b8d5-a3191176416b"], Cell[2886108, 63799, 525, 8, 33, "Output", "ExpressionUUID" -> \ "ef3fe5ae-6680-49f2-b8b5-ea36f369c8bd"], Cell[2886636, 63809, 585, 9, 25, "Print", "ExpressionUUID" -> \ "f31bf58c-88d1-404c-a267-bed95bf46ae7"], Cell[2887224, 63820, 5022, 133, 197, "Output", "ExpressionUUID" -> \ "12586e5f-4100-4af6-b3ed-a157bb422be0"], Cell[2892249, 63955, 577, 9, 25, "Print", "ExpressionUUID" -> \ "fb700b63-2b6a-46c2-ab66-ae43d1c1a5cb"], Cell[2892829, 63966, 4152, 115, 318, "Output", "ExpressionUUID" -> \ "b10cc278-3592-46e6-a53a-4860b1a5edb8"] }, Open ]], Cell[2896996, 64084, 243, 6, 34, "Text", "ExpressionUUID" -> \ "92ac20be-0bb7-4198-9ee0-3f946470a8ba"], Cell[2897242, 64092, 224, 5, 34, "Text", "ExpressionUUID" -> \ "0a0dcc56-a9b8-4926-97ef-04be6bc32106"], Cell[2897469, 64099, 6221, 187, 682, "Input", "ExpressionUUID" -> \ "c3dfbace-2aa4-4859-862a-7555f690c13e"], Cell[2903693, 64288, 4967, 145, 371, "Input", "ExpressionUUID" -> \ "d54dd4e3-aeff-49c1-8d8b-11b8b1e4638c"], Cell[CellGroupData[{ Cell[2908685, 64437, 11231, 318, 784, "Input", "ExpressionUUID" -> \ "1b7d9d18-b8ad-43bd-b674-fd11d1ada85f"], Cell[2919919, 64757, 2175, 53, 235, "Output", "ExpressionUUID" -> \ "604a8c88-4566-425e-802a-cf63d68beeb5"], Cell[2922097, 64812, 1563, 32, 200, "Output", "ExpressionUUID" -> \ "3835eaef-19bf-492e-90b6-58df71b8e568"], Cell[2923663, 64846, 1717, 34, 158, "Output", "ExpressionUUID" -> \ "eabb39c1-6392-4d69-a4e9-fc538ec92675"], Cell[2925383, 64882, 1584, 30, 158, "Output", "ExpressionUUID" -> \ "613efa92-5016-4f7e-95f4-b5f09374324f"], Cell[2926970, 64914, 1598, 31, 197, "Output", "ExpressionUUID" -> \ "8278cac5-04e2-4189-9849-67571ccaf830"], Cell[2928571, 64947, 1584, 31, 43, "Output", "ExpressionUUID" -> \ "2028ff40-ed6c-4b75-a2a9-b14dcfbfd4cc"], Cell[2930158, 64980, 1180, 18, 33, "Output", "ExpressionUUID" -> \ "ce90de27-47d9-4c92-a4eb-5305594c95a3"], Cell[2931341, 65000, 1175, 18, 33, "Output", "ExpressionUUID" -> \ "0290c891-ffe2-4e6e-abfb-fe69fbff4d29"], Cell[2932519, 65020, 1177, 18, 33, "Output", "ExpressionUUID" -> \ "33cb4686-c1ee-4b09-83d3-0ea7a0cfddae"], Cell[2933699, 65040, 1175, 18, 33, "Output", "ExpressionUUID" -> \ "87bacc31-1f5b-41cb-a0ef-e4cfc5f324d9"], Cell[2934877, 65060, 2380, 54, 68, "Output", "ExpressionUUID" -> \ "4f69a084-1bef-4254-bfa7-47815df251d0"], Cell[2937260, 65116, 1750, 37, 62, "Output", "ExpressionUUID" -> \ "a7f3de9c-0dde-42cc-8cb5-5c514b508011"], Cell[2939013, 65155, 1804, 37, 66, "Output", "ExpressionUUID" -> \ "6b52bd78-3b10-4aac-a048-5c2b88388573"], Cell[2940820, 65194, 1653, 34, 66, "Output", "ExpressionUUID" -> \ "1440dbb4-6791-4fc2-b9d8-891b0835e5c3"] }, Open ]], Cell[CellGroupData[{ Cell[2942510, 65233, 949, 26, 88, "Input", "ExpressionUUID" -> \ "c426de1c-391d-422c-ace7-c5427fce309c"], Cell[2943462, 65261, 7645, 203, 95, "Output", "ExpressionUUID" -> \ "62b68d7f-c590-4a2d-990a-47c8097740f1"] }, Open ]], Cell[CellGroupData[{ Cell[2951144, 65469, 3096, 91, 365, "Input", "ExpressionUUID" -> \ "7487edbb-e3bb-472c-8454-5359cfd44ce0"], Cell[2954243, 65562, 852, 27, 245, "Output", "ExpressionUUID" -> \ "8d48a7d8-ac90-4095-aacd-25342fb14db2"], Cell[2955098, 65591, 462, 14, 245, "Output", "ExpressionUUID" -> \ "ef2915fd-9ddb-4a34-b834-af6891a4e967"], Cell[2955563, 65607, 464, 14, 245, "Output", "ExpressionUUID" -> \ "63b5f99a-9d23-4b41-9cb7-a94b509cdcac"], Cell[2956030, 65623, 441, 14, 285, "Output", "ExpressionUUID" -> \ "b15b0eb4-b510-460b-a904-fb11ffa9aa88"] }, Open ]], Cell[CellGroupData[{ Cell[2956508, 65642, 137, 2, 151, "Input", "ExpressionUUID" -> \ "cda6525f-80cd-4d85-a87e-e97bc7c4f40f"], Cell[2956648, 65646, 376, 13, 245, "Output", "ExpressionUUID" -> \ "b4e9e6fb-7400-4baf-b208-9adef6ca86b9"] }, Open ]], Cell[CellGroupData[{ Cell[2957061, 65664, 129, 3, 151, "Input", "ExpressionUUID" -> \ "365253d5-b0c7-438b-9139-ce0023cfbb27"], Cell[2957193, 65669, 3491, 111, 713, "Output", "ExpressionUUID" -> \ "6c35c4d4-ee4f-42f3-94d8-b63f1e30b855"] }, Open ]], Cell[CellGroupData[{ Cell[2960721, 65785, 3547, 111, 1272, "Input", "ExpressionUUID" -> \ "182b47c2-a3fa-413b-91fd-dd95260d93d6"], Cell[2964271, 65898, 574, 16, 233, "Output", "ExpressionUUID" -> \ "7a89f344-7b27-4861-a828-9923cd691b99"], Cell[2964848, 65916, 640, 19, 233, "Output", "ExpressionUUID" -> \ "9848661d-8af6-457b-a984-1e48fb837f50"] }, Open ]], Cell[CellGroupData[{ Cell[2965525, 65940, 2751, 80, 916, "Input", "ExpressionUUID" -> \ "7aff9fc7-49de-4f5d-a37d-e8832574bfd3"], Cell[2968279, 66022, 862, 22, 266, "Output", "ExpressionUUID" -> \ "b9433187-cd3c-4bc9-a3d9-78773b37d971"] }, Open ]], Cell[2969156, 66047, 193, 3, 157, "Text", "ExpressionUUID" -> \ "c1e537bd-94a6-45eb-8ce3-a3e51a9042e8"], Cell[CellGroupData[{ Cell[2969374, 66054, 2536, 76, 418, "Input", "ExpressionUUID" -> \ "f7602392-1a36-444d-a714-acacb922d478"], Cell[2971913, 66132, 2355, 69, 507, "Output", "ExpressionUUID" -> \ "639dacf5-4aa0-4a1c-8466-fcab9e4fd028"] }, Open ]], Cell[CellGroupData[{ Cell[2974305, 66206, 12206, 337, 3066, "Input", "ExpressionUUID" -> \ "f539fce6-b464-4846-8192-f8df9a52b5a7"], Cell[2986514, 66545, 8970, 264, 1416, "Output", "ExpressionUUID" -> \ "21ddbe46-c096-466e-aa64-f6d64fc292e9"], Cell[2995487, 66811, 11556, 321, 2902, "Output", "ExpressionUUID" -> \ "77fd0039-349f-43ea-a71c-1d8043498f50"], Cell[3007046, 67134, 11575, 322, 2902, "Output", "ExpressionUUID" -> \ "832cb85a-ee24-4260-83a0-31395e56d5c2"], Cell[3018624, 67458, 7813, 223, 2026, "Output", "ExpressionUUID" -> \ "3e79eacf-fa64-4475-8f58-72c1c2e239dc"], Cell[3026440, 67683, 5328, 150, 1043, "Output", "ExpressionUUID" -> \ "164f65e0-6090-46b2-a3c8-8d98d01a17d4"] }, Open ]], Cell[CellGroupData[{ Cell[3031805, 67838, 288, 4, 370, "Input", "ExpressionUUID" -> \ "1a1ff4c7-dca7-4889-9546-f164e8ed1f1a"], Cell[3032096, 67844, 147, 4, 151, "Output", "ExpressionUUID" -> \ "e8cafd18-2e71-41dd-aa44-7d6b5320bbbf"] }, Open ]], Cell[3032258, 67851, 234, 4, 157, "Text", "ExpressionUUID" -> \ "7170810c-c096-4157-a614-10249dd25c53"], Cell[CellGroupData[{ Cell[3032517, 67859, 10442, 281, 2612, "Input", "ExpressionUUID" -> \ "6e6fe682-b19e-420c-b983-692d22feeb2c"], Cell[3042962, 68142, 1208, 19, 891, "Output", "ExpressionUUID" -> \ "8b2828a2-f8d9-49bf-82cf-55c5f0aeae51"], Cell[3044173, 68163, 4378, 113, 3308, "Output", "ExpressionUUID" -> \ "2cfbce88-b651-4d9c-86ce-d0897e4251f4"], Cell[3048554, 68278, 256, 5, 663, "Print", "ExpressionUUID" -> \ "10c0507b-6360-4c8e-b11d-8910b8dea5e4"], Cell[3048813, 68285, 1189, 18, 891, "Output", "ExpressionUUID" -> \ "f7a0de55-3b7c-4083-a621-496f3bb8ae7c"], Cell[3050005, 68305, 1191, 18, 891, "Output", "ExpressionUUID" -> \ "2acfad3c-67fa-4b0b-80d3-cb231a216828"], Cell[3051199, 68325, 262, 5, 663, "Print", "ExpressionUUID" -> \ "995baa40-1215-425c-94c4-2c4c4a1937dd"], Cell[3051464, 68332, 1189, 18, 891, "Output", "ExpressionUUID" -> \ "b3db1821-7a06-47b7-bf8a-720227cf35a3"] }, Open ]], Cell[CellGroupData[{ Cell[3052690, 68355, 10830, 288, 16210, "Input", "ExpressionUUID" -> \ "80ad746b-8bd0-4a4f-89a0-b824596fba9e"], Cell[3063523, 68645, 239, 5, 891, "Output", "ExpressionUUID" -> \ "cf6803d4-d695-4c36-8fe3-a2007368849f"], Cell[3063765, 68652, 3550, 101, 3308, "Output", "ExpressionUUID" -> \ "8654aec0-30cd-43ab-9139-bfd2f0c06d77"], Cell[3067318, 68755, 249, 4, 663, "Print", "ExpressionUUID" -> \ "19789bd4-d601-4517-ae38-2b685170895b"], Cell[3067570, 68761, 17132, 467, 890, "Output", "ExpressionUUID" -> \ "49e2deba-d1d6-476c-898b-d00684821d60"], Cell[3084705, 69230, 17130, 467, 890, "Output", "ExpressionUUID" -> \ "80c70953-4467-420e-9eef-3ea43ab0b9cf"], Cell[3101838, 69699, 257, 4, 25, "Print", "ExpressionUUID" -> \ "d4e1edcf-ffcc-45cf-80a9-0e2ef8b4a3ea"], Cell[3102098, 69705, 227, 4, 33, "Output", "ExpressionUUID" -> \ "6ef6a341-4948-47bc-8d1b-3180aad5fb89"] }, Open ]], Cell[CellGroupData[{ Cell[3102362, 69714, 18426, 487, 1296, "Input", "ExpressionUUID" -> \ "19371cd4-ca80-4c7f-b2f8-c04cc5fd4742"], Cell[3120791, 70203, 2028, 30, 33, "Output", "ExpressionUUID" -> \ "7179416c-b7c0-4458-905b-5ed8d40ec115"], Cell[3122822, 70235, 5200, 124, 121, "Output", "ExpressionUUID" -> \ "72db50ac-cc29-43ff-aa98-62bc93154953"], Cell[3128025, 70361, 4663, 110, 220, "Output", "ExpressionUUID" -> \ "dd649ad3-7914-43c2-a655-45268b58f78d"], Cell[3132691, 70473, 63597, 1069, 244, "Output", "ExpressionUUID" -> \ "de64df19-7499-4aa0-8a7d-509a1fddd184"], Cell[3196291, 71544, 192, 3, 25, "Print", "ExpressionUUID" -> \ "397ff0fd-7927-4ad4-bc8e-8ace23cee017"], Cell[3196486, 71549, 4156, 92, 109, "Output", "ExpressionUUID" -> \ "0afba802-2faa-406c-bba1-fbbdb40081fc"], Cell[3200645, 71643, 191, 3, 25, "Print", "ExpressionUUID" -> \ "52704b2c-12fc-4582-a629-90bf92ba44ac"], Cell[3200839, 71648, 2842, 55, 109, "Output", "ExpressionUUID" -> \ "0c9d4930-c7b8-4cbd-aed4-4be1ad8eb876"], Cell[3203684, 71705, 63599, 1069, 244, "Output", "ExpressionUUID" -> \ "ab42d5df-f98f-46ff-8df7-711931c53f51"], Cell[3267286, 72776, 63608, 1069, 244, "Output", "ExpressionUUID" -> \ "3e580cd5-4fa3-45c9-b557-30a8556690ae"], Cell[3330897, 73847, 184579, 3079, 244, "Output", "ExpressionUUID" -> \ "18e6e9b9-43bd-433e-a30c-4827598cda5e"], Cell[3515479, 76928, 216, 3, 25, "Print", "ExpressionUUID" -> \ "ec40a91a-94fb-483a-97f9-46ada4c620d5"], Cell[3515698, 76933, 2997, 57, 74, "Output", "ExpressionUUID" -> \ "6f1d4879-b311-4034-9450-8937472edac8"], Cell[3518698, 76992, 212, 3, 25, "Print", "ExpressionUUID" -> \ "abf855be-3c9c-42fe-af18-cf557a786857"], Cell[3518913, 76997, 3407, 75, 94, "Output", "ExpressionUUID" -> \ "17dda255-3572-49f2-9f84-cde0a940a71e"], Cell[3522323, 77074, 215, 3, 25, "Print", "ExpressionUUID" -> \ "94fa138a-0b6a-4be3-bdcd-b968746ee28d"], Cell[3522541, 77079, 4381, 102, 168, "Output", "ExpressionUUID" -> \ "3b8aff21-8108-4998-9cef-ddd0de88c1f6"] }, Open ]], Cell[CellGroupData[{ Cell[3526959, 77186, 479, 11, 35, "Input", "ExpressionUUID" -> \ "72ba024b-f1c5-4814-a760-d57a1426d70b"], Cell[3527441, 77199, 43706, 714, 126, "Output", "ExpressionUUID" -> \ "dc17772e-7bca-4f92-a24a-127b4a7d63f2"] }, Open ]], Cell[CellGroupData[{ Cell[3571184, 77918, 982, 31, 90, "Input", "ExpressionUUID" -> \ "3e31ed15-9f6e-451b-84ad-e45303bf9b06"], Cell[3572169, 77951, 3649, 103, 184, "Output", "ExpressionUUID" -> \ "c310bbb2-abd4-4570-8029-ffb1e855719d"] }, Open ]], Cell[CellGroupData[{ Cell[3575855, 78059, 7792, 226, 776, "Input", "ExpressionUUID" -> \ "f1cb9ecd-7a17-4e3a-9711-d6bbcdf88291"], Cell[3583650, 78287, 338, 7, 33, "Output", "ExpressionUUID" -> \ "35e3514b-581b-445c-b445-d3bbb6000261"], Cell[3583991, 78296, 10080, 205, 69, "Output", "ExpressionUUID" -> \ "389f9a45-131e-421b-be09-91c7a84589fe"], Cell[3594074, 78503, 73514, 1204, 289, "Output", "ExpressionUUID" -> \ "3cef3fb3-2330-459a-97de-069db0e0a83c"], Cell[3667591, 79709, 725, 14, 43, "Message", "ExpressionUUID" -> \ "ec162ce2-0f1a-4f5a-b2a1-3790f97c861b"], Cell[3668319, 79725, 435, 10, 42, "Message", "ExpressionUUID" -> \ "b388708a-801d-4f85-bf98-a87e4603d979"], Cell[3668757, 79737, 707, 14, 43, "Message", "ExpressionUUID" -> \ "5e9a275c-8769-435f-a4ec-b26c2aad5b93"], Cell[3669467, 79753, 705, 14, 43, "Message", "ExpressionUUID" -> \ "3baca08d-d5f0-4747-98f4-e100b67a1363"], Cell[3670175, 79769, 404, 9, 24, "Message", "ExpressionUUID" -> \ "7e9f1f8b-6057-4f13-bd87-52cb08ace66b"], Cell[3670582, 79780, 433, 10, 42, "Message", "ExpressionUUID" -> \ "9f38117d-366e-4162-a4c3-ec8b1c14be98"], Cell[3671018, 79792, 1554, 32, 109, "Output", "ExpressionUUID" -> \ "7e7e1a24-0d5c-4a34-a774-a21d476931ac"] }, Open ]], Cell[CellGroupData[{ Cell[3672609, 79829, 139, 2, 33, "Input", "ExpressionUUID" -> \ "c4d923a6-9189-46cd-a2e6-a400eb2a2c8b"], Cell[3672751, 79833, 1106, 20, 76, "Output", "ExpressionUUID" -> \ "7f373c8c-ca77-4e69-81ce-79a53bdbce0d"] }, Open ]], Cell[CellGroupData[{ Cell[3673894, 79858, 140, 2, 33, "Input", "ExpressionUUID" -> \ "a80e4d93-3edd-4fe4-a108-83250e5b446c"], Cell[3674037, 79862, 1639, 43, 242, "Output", "ExpressionUUID" -> \ "203ca3d2-c417-4763-94ee-d17c17294a71"] }, Open ]], Cell[3675691, 79908, 238, 6, 34, "Text", "ExpressionUUID" -> \ "95d5903a-4ae0-444c-a704-42ba3154c513"], Cell[3675932, 79916, 7474, 205, 805, "Input", "ExpressionUUID" -> \ "a3d628b1-920d-4971-a270-a8d44ff3c0f4"], Cell[3683409, 80123, 197, 3, 34, "Text", "ExpressionUUID" -> \ "28c9c20d-f19a-4048-b5a3-69315fcc8315"], Cell[CellGroupData[{ Cell[3683631, 80130, 2163, 65, 133, "Input", "ExpressionUUID" -> \ "8ede492a-e833-471a-b2be-03a4669c141a"], Cell[3685797, 80197, 970, 29, 123, "Output", "ExpressionUUID" -> \ "a2b195be-3dbe-4862-9d72-982e16228335"] }, Open ]], Cell[3686782, 80229, 10558, 331, 762, "Input", "ExpressionUUID" -> \ "9d232dbe-d405-4df0-8795-907fc6d5328b"], Cell[CellGroupData[{ Cell[3697365, 80564, 8750, 252, 384, "Input", "ExpressionUUID" -> \ "d17ecb59-92e5-4e46-ba45-126b9641901c"], Cell[3706118, 80818, 2090, 52, 960, "Output", "ExpressionUUID" -> \ "94726ad7-11d7-4fe9-9482-d62310a8a7f1"], Cell[3708211, 80872, 137, 3, 33, "Output", "ExpressionUUID" -> \ "163e8c0b-84d5-4b51-a3d5-59a40907aa23"], Cell[3708351, 80877, 406, 9, 24, "Message", "ExpressionUUID" -> \ "5d14a498-9907-4574-b2d3-c05f062238b6"], Cell[3708760, 80888, 406, 9, 24, "Message", "ExpressionUUID" -> \ "d2a9fca4-dfbd-4826-b34c-470343bef9bd"], Cell[3709169, 80899, 406, 9, 24, "Message", "ExpressionUUID" -> \ "4f29e01e-28d1-4386-8fe5-7b3e9dfa2ea8"], Cell[3709578, 80910, 403, 9, 24, "Message", "ExpressionUUID" -> \ "31dae731-e856-4a51-adaf-36a1d1fa821e"], Cell[3709984, 80921, 666, 13, 24, "Message", "ExpressionUUID" -> \ "402bed91-efd3-4518-9278-5f8675a8a405"], Cell[3710653, 80936, 664, 13, 24, "Message", "ExpressionUUID" -> \ "aab555f6-ec26-48c1-b29d-ba2044d21000"], Cell[3711320, 80951, 664, 13, 24, "Message", "ExpressionUUID" -> \ "8b25fc0e-6e5e-4755-ada3-b59c512ec7c9"], Cell[3711987, 80966, 404, 9, 24, "Message", "ExpressionUUID" -> \ "febb637c-450e-40ae-883f-203f180f2e04"], Cell[3712394, 80977, 139, 3, 33, "Output", "ExpressionUUID" -> \ "71496947-96f2-49fb-9908-36700775370d"], Cell[3712536, 80982, 326, 8, 24, "Message", "ExpressionUUID" -> \ "99362995-bce7-4c59-ad3a-4124d9f2f429"], Cell[3712865, 80992, 171, 4, 37, "Output", "ExpressionUUID" -> \ "6af513c5-74ca-4ca7-9671-ff5daa10fd0c"], Cell[3713039, 80998, 307, 8, 24, "Message", "ExpressionUUID" -> \ "b57e34ad-1a98-48e8-909b-d2e5ecae62e3"], Cell[3713349, 81008, 202, 5, 37, "Output", "ExpressionUUID" -> \ "ad79396a-f0fd-4c01-8839-5d7497b57345"] }, Open ]] }, Open ]] }, Open ]] } ] *)